Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSOORNEW

Package: Outpatient Pharmacy

Routine: PSOORNEW


Information

PSOORNEW ;BIR/SAB - display orders from oerr ;6/19/06 3:53pm

Source Information

Source file <PSOORNEW.m>

Call Graph

Call Graph Total: 32

Package Total Call Graph
Outpatient Pharmacy 24 EN^PSODIAG  DOSCK^PSODOSUT  POST^PSODRG  $$CHKERX^PSOERXU1  ^PSOLMPO1  EN^PSON52  (DAOC,EOJ)^PSONEW  (DCORD,DISPLAY,EXPR,STOP)^PSONEW2  
^PSONEWF  DIN^PSONFI  CHECK^PSONRXN  DRG^PSOORDRG  DOSE^PSOORED4  (INST,OBX)^PSOORFI1  ELIG^PSOORFI2  (DOSE2,INST,ORCHK,PQTY,PROVCOM)^PSOORFI4  
(LMDISP,PRV)^PSOORFI5  RXNCHK^PSOORNE1  2^PSOORNW1  (1,10,11,12,13,14,3,4,5,7,8,9,INS)^PSOORNW2  MARK^PSOOTMRX  ALERT^PSOPKIV1  ($$MAXNUMRF,NPSOSD)^PSOUTIL  CLEAN^PSOVER1  
VA FileMan 3 FILE^DIE  $$GET1^DIQ  ^DIR  
Kernel 2 $$FMADD^XLFDT  $$UP^XLFSTR  
List Manager 1 FULL^VALM1  
Order Entry Results Reporting 1 EN1^ORCFLAG  
Registration 1 ADD^VADPT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 11

Package Total Caller Graph
Outpatient Pharmacy 10 PSO LM ACCEPT ORDER  PSO LM EDIT  PSO LM FINISH  PSOBKDED  PSODRG  PSOLMUTL  PSOOREDT  PSOORFI1  
PSOORNE6  PSOORNW2  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
CSDRG(DRGIEN) ;/BLB/ Patch PSO*7*505/517 Controlled Substance drug?
; Input: DRGIEN - DRUG file (#50) pointer
ACP ;
DRGMSG ;
CSBLOCK(DFN,DIEN) ;
REF ;
; Retrieving the Maximum Number of Refills allowed
PT
PZ ;
1
3
2
5
4
7
6
9
8
NDF(DRGIEN) ;PATCH PSO*7*505/517 - 1:YES 0:NO checks the cs federal schedule field of the va product file
ORCHK
11
10
13
12
15
14
OI
EDTSEL
DSPL
ABORT
KV
EDT

External References

Name Field # of Occurrence
FILE^DIE ACP+56
$$GET1^DIQ CSDRG+5, NDF+2, NDF+3
^DIR EDT, EDTSEL+6, ACP+7, ACP+14, ACP+24, ACP+36, ACP+38, ACP+42, ABORT, PZ+1
EN1^ORCFLAG ACP+2
EN^PSODIAG 2+1
DOSCK^PSODOSUT ACP+31
POST^PSODRG ACP+30
$$CHKERX^PSOERXU1 ACP+55
^PSOLMPO1 PT+42
EN^PSON52 ACP+44
DAOC^PSONEW ACP+51
EOJ^PSONEW ACP+58
DCORD^PSONEW2 ACP+44
DISPLAY^PSONEW2 ACP+35
EXPR^PSONEW2 ACP+34
STOP^PSONEW2 ACP+35
^PSONEWF ACP+35
DIN^PSONFI OI+5
CHECK^PSONRXN ACP+32
DRG^PSOORDRG OI+2
DOSE^PSOORED4 3+2
INST^PSOORFI1 PT+2, PT+3
OBX^PSOORFI1 OI+5
ELIG^PSOORFI2 PT+14
DOSE2^PSOORFI4 PT
INST^PSOORFI4 PT+1
ORCHK^PSOORFI4 ORCHK
PQTY^PSOORFI4 PT+24
PROVCOM^PSOORFI4 ORCHK
LMDISP^PSOORFI5 OI+6
PRV^PSOORFI5 PT+28
RXNCHK^PSOORNE1 ACP+33
2^PSOORNW1 2+1
1^PSOORNW2 1+2
10^PSOORNW2 11
11^PSOORNW2 12
12^PSOORNW2 13+2
13^PSOORNW2 14
14^PSOORNW2 15
3^PSOORNW2 5
4^PSOORNW2 6
5^PSOORNW2 7
7^PSOORNW2 8
8^PSOORNW2 9
9^PSOORNW2 10+2
INS^PSOORNW2 4
MARK^PSOOTMRX ACP+46
ALERT^PSOPKIV1 ACP+44
$$MAXNUMRF^PSOUTIL REF+2
NPSOSD^PSOUTIL ACP+52
CLEAN^PSOVER1 ACP+29, ABORT
ADD^VADPT CSBLOCK+2
FULL^VALM1 EDTSEL+3, ACP+3, ACP+52
$$FMADD^XLFDT ACP+34
$$UP^XLFSTR CSBLOCK+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"for controlled substances. These field(s) will be skipped.",!
  • Line Location: EDTSEL+5
Function Call: WRITE
  • Prompt: !,$C(7)
  • Line Location: ACP+7
Function Call: WRITE
  • Prompt: !
  • Line Location: ACP+24
Function Call: WRITE
  • Prompt: !!,"No action taken!",!
  • Line Location: ACP+36
Function Call: WRITE
  • Prompt: !!,"Digitally Signed Order - Orderable Item cannot be changed",!
  • Line Location: 1+1
Function Call: WRITE
  • Prompt: !!,"Digitally Signed Order - Dose cannot be changed",!
  • Line Location: 3+1
Function Call: WRITE
  • Prompt: !!,"Digitally Signed Order - Provider cannot be changed",!
  • Line Location: 13+1
Function Call: WRITE
  • Prompt: !!,"Digitally Signed Order - Refills cannot be changed",!
  • Line Location: 10+1
Function Call: WRITE
  • Prompt: !
  • Line Location: PZ+1
Routine Call
  • DIE
  • Line Location:
    • ACP+56
Routine Call
  • DIR
  • Line Location:
    • EDT
    • EDTSEL+6
    • ACP+7
    • ACP+14
    • ACP+24
    • ACP+36
    • ACP+38
    • ACP+42
    • ABORT
    • PZ+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSDRUG - [#50] GET1^DIQ
^PSNDF(50.68 - [#50.68] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" PT+8, PT+11, PT+12, PT+13, PT+41
^PS(50.606 - [#50.606] OI+7
^PS(50.7 - [#50.7] OI+1, OI+7
^PS(52.41 - [#52.41] ACP+2, ACP+15
^PS(53 - [#53] DSPL+3, PT+7
^PS(55 - [#55] DSPL+3
^PSDRUG - [#50] OI+12, PT+16, PT+18, PT+20, DRGMSG+1, DRGMSG+2
^PSDRUG("AQ" OI+10
^PSRX - [#52] ACP+50
^TMP("PSODAOC" ACP+48, ACP+49!
^TMP("PSOPO" DSPL+1!, OI+7*, OI+8, OI+10*, OI+11, OI+12*, OI+13*, PT+1*, PT+2*, PT+3*
, PT+4*, PT+6*, PT+7*, PT+8*, PT+9*, PT+11*, PT+12*, PT+13*, PT+15*, PT+16*
, PT+17*, PT+20*, PT+22*, PT+23*, PT+25*, PT+26*, PT+27*, PT+31*, PT+32*, PT+35*
, PT+37*, PT+38*, PT+40*, PT+41*, DRGMSG+1*, DRGMSG+2*
^VA(200 - [#200] PT+29, PT+31, PT+39, PT+40
^XUSEC("PSORPH" ACP+4

Label References

Name Line Occurrences
$$CSBLOCK ACP+24
$$CSDRG EDTSEL+2, CSBLOCK+3, CSBLOCK+4
$$NDF EDTSEL+2, CSBLOCK+3, CSBLOCK+4
3 2+2
@( EDTSEL+9, ACP+32
ABORT ACP+44
DRGMSG OI+12
DSPL EDTSEL+3, ACP+17, ACP+19, ACP+21, ACP+29, ACP+31, ACP+34, ACP+39
KV EDT, EDTSEL, EDTSEL+9, ACP+9, ACP+36, ACP+38, ACP+39, ABORT
OI DSPL+2
ORCHK ACP+18
PT OI+9
PZ 1+1, 3+1, 13+1, 10+1
REF EDTSEL+9

Naked Globals

Name Field # of Occurrence
^("PS" PT+29, PT+30
^(0 OI+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> ACP ACP+18*
>> BINGCRT ACP+40*
>> BINGRTE ACP+40*
CHECK EDTSEL~, EDTSEL+8*
>> CLOZPAT DSPL+2, OI+3, OI+4, PT+14, PT+24, ACP+17, REF+2
CPRN 2+1~*, 8~*
CSDRG EDTSEL~*, EDTSEL+2*, EDTSEL+4, EDTSEL+8
DEA CSDRG+3~, CSDRG+5*, CSDRG+6
DEARES NDF+1~, NDF+3*, NDF+4
DFN CSBLOCK~
DIEN CSBLOCK~, CSBLOCK+3, CSBLOCK+4
DIR EDTSEL+6!, ACP+1~, ACP+24!, ACP+36!, ACP+41!, ACP+42!, KV!, PZ+1~
DIR("?" ACP+36*, ABORT*
DIR("A" EDT*, ACP+5*, ACP+6*, ACP+7*, ACP+10*, ACP+11*, ACP+12*, ACP+13*, ACP+36*, ACP+38*
, ABORT*, PZ+1*
DIR("B" ACP+13*, ACP+38*, ACP+42*
DIR(0 EDT*, EDTSEL+6*, ACP+7*, ACP+13*, ACP+24*, ACP+36*, ACP+38*, ACP+41*, ABORT*, PZ+1*
DIRUT ACP+2, ACP+14, ACP+38, ACP+41!, ACP+42!, KV!
>> DREN OI+2*
DRET ACP+36!, ACP+38!
DRGIEN ACP+23*, ACP+24, CSDRG~, CSDRG+4, CSDRG+5, NDF~, NDF+2
DT PT+11, ACP+34
DTOUT EDT, KV!
DUOUT EDT, KV!
DUZ PT+39, ACP+4
ERXFDA ACP+56!
ERXFDA( ACP+56*
ERXIEN ACP+54~, ACP+55*, ACP+56
FLD EDTSEL~, EDTSEL+7*, EDTSEL+8, EDTSEL+9
>> I PT+5*
>> IEN OI+5*, OI+7*, OI+8, OI+10*, OI+11, OI+12*, OI+13*, PT+1*, PT+2*, PT+3*
, PT+4*, PT+6*, PT+7*, PT+8*, PT+9*, PT+11, PT+12, PT+13*, PT+15*, PT+16
, PT+17, PT+19*, PT+20, PT+21*, PT+22, PT+23, PT+25*, PT+26*, PT+27*, PT+30*
, PT+31, PT+32*, PT+35*, PT+37*, PT+38, PT+40*, PT+41, DRGMSG+1*, DRGMSG+2
LST OI+9!, EDTSEL~, EDTSEL+3*, EDTSEL+4, EDTSEL+7, EDTSEL+8, EDTSEL+9, 3
MAXRF REF+2~*, REF+3, REF+6
>> NFID OI+10, OI+11*
>> NFIO OI+7, OI+8*
OI OI+1~*
OID OI+1~*
>> OR0 OI+1, OI+2, OI+4, PT+8, PT+11, PT+13, PT+17, PT+22, PT+23, PT+25
, PT+28, PT+29, PT+33, PT+34, PT+39, PT+41, ACP+34, ACP+55, 1, 3
, 13, 2+1, 8, 10
>> ORCHK ACP+29, ACP+30*
>> ORD OI+6, ACP+2, ACP+15
>> ORDRG ACP+29, ACP+30*
OUT EDTSEL~*, EDTSEL+7
>> PKI ACP+44
POERR OI+2*!
PSOANSQ ACP+38!, ACP+39!
PSOANSQD DSPL!, ACP+36!, ACP+38!
PSOBDR 1+2~, 2~
PSOBDRG 1+2~*, 2~*
>> PSOCPZ("DFLG" ACP+36!, ACP+38!
PSOCSIG 2~, 2+2!
>> PSODAOC ACP+50*
>> PSODFN DSPL+3, ACP+24
>> PSODIR("DFLG" ACP+18*, ACP+20
>> PSODIR("QFLD" ACP+18*
PSODOSE EDTSEL+3~*
>> PSODRG EDTSEL+1*, EDTSEL+2
>> PSODRUG("DEA" OI+3, PT+28
>> PSODRUG("IEN" OI+5, OI+10, OI+12, PT+16, PT+18, PT+20, PT+28, EDTSEL+1, ACP+23, REF+2
, DRGMSG+1, DRGMSG+2
>> PSODRUG("NAME" OI+9, OI+10, ACP+21, ACP+29, ACP+30
>> PSODRUG("OI" OI, OI+1*, OI+5, OI+7, PT+39
>> PSODRUG("OIN" OI+1*
PSODSPL DSPL!
PSOEDDOS KV!, 3+2~*
PSOELSE PT+4!, PT+8!*, PT+9, PT+10!*, PT+12
>> PSOFROM ACP+32*
>> PSOID PT+8*
>> PSOLMC DSPL+1*, PT+42*, PT+43
>> PSONEW EDTSEL+3, ACP+44, ACP+52, 3+2
>> PSONEW("# OF REFILLS" , OI+3*, OI+4*, PT+25, REF+3, REF+4, REF+6*
>> PSONEW("ADMINCLINIC" PT+34!*
>> PSONEW("CLERK CODE" , PT+39*, PT+40
>> PSONEW("COPIES" PT+32
>> PSONEW("COSIG NING PROVIDER" , PT+30*, PT+31
>> PSONEW("DAYS SUPPLY" , DSPL+2*, DSPL+3*, PT+15, REF+2
>> PSONEW("DFLG" ACP+33*, ACP+44!
>> PSONEW("FILL DATE" , PT+11*
>> PSONEW("FLD" ACP+21
>> PSONEW("IRXN" ACP+46, ACP+50, ACP+56
>> PSONEW("ISSUE DATE" , PT+8*, PT+9
>> PSONEW("MAIL/WINDOW" PT+25, ACP+40
>> PSONEW("METHO D OF PICK-UP" , ACP+43*
>> PSONEW("N# RE F" , REF+4*, REF+6*
>> PSONEW("PATIE NT STATUS" , PT+7, REF+2
>> PSONEW("POE" ACP+44*
>> PSONEW("PROVI DER NAME" , PT+27
>> PSONEW("PROVIDER" PT+28, PT+29
>> PSONEW("QFLG" ACP+19, ACP+32, ACP+33
>> PSONEW("QTY" PT+14*, PT+17, ACP+17
>> PSONEW("REMARKS" PT+33*, PT+36, PT+37, PT+38
>> PSONEW("RX #" , ACP+32
>> PSONEW("SIG" PT+1
PSOORNEW ACP+1~*
>> PSOPAR ACP+32, ACP+40
>> PSOQFLG 2*, 2+1
>> PSORX("CLERK CODE" , PT+39*
>> PSORX("CLINIC" PT+26
>> PSORX("DFLG" ACP+18*, ACP+20, ACP+29, ACP+30, ACP+31, ACP+44!, ACP+49
>> PSORX("FILL D ATE" , PT+10, PT+11*, PT+12*
>> PSORX("MAIL/WINDOW" ACP+40*, ACP+52!
>> PSORX("METHOD OF PICK-UP" , ACP+42, ACP+43*
>> PSOSIGFL PT+39
>> PSOX ACP+32*
RN PT+19*, PT+20!, PT+40*, PT+41!
RTN ACP+32*, ACP+40!
>> RXN ACP+50*
SG PT+6*, PT+37*, PT+38, DRGMSG+1*, DRGMSG+2, DRGMSG+3!
>> SIG PT+5*, PT+6
>> SIG( PT+5
>> SIG(0 ACP+21
>> TY PT+2*, PT+3*
U CSBLOCK+3
>> VALMBCK DSPL*, PT+42*, PT+43*, EDTSEL+10*, ACP+8*, ACP+14*, ACP+36*, ACP+38*, ABORT*
>> VALMSG PT+39*, ACP+17*
VAPA CSBLOCK+1~
VAPA(11 CSBLOCK+4
VAPA(25 CSBLOCK+3
VAPA(6 CSBLOCK+4
VPROD NDF+1~, NDF+2*, NDF+3
X ACP+43!
Y PT+8*, PT+11*, PT+12*, PT+13*, PT+41*, EDTSEL+3, ACP+1~*, ACP+2, ACP+4*, ACP+14
, ACP+24!, ACP+39, ACP+43!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All