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 ;Dec 13, 2021@08:01:18

Source Information

Source file <PSOORNEW.m>

Call Graph

Call Graph Total: 35

Package Total Call Graph
Outpatient Pharmacy 27 EN^PSODIAG  DOSCK^PSODOSUT  POST^PSODRG  SETPEN^PSOERUT5  ($$CHKERX,UPDSTAT)^PSOERXU1  $$GETREQ^PSOERXU2  $$ERXIEN^PSOERXUT  ^PSOLMPO1  
EN^PSON52  (DAOC,EOJ)^PSONEW  (DCORD,DISPLAY,EXPR,STOP)^PSONEW2  ^PSONEWF  (DIN,RV)^PSONFI  CHECK^PSONRXN  DRG^PSOORDRG  DOSE^PSOORED4  
(INST,OBX)^PSOORFI1  ELIG^PSOORFI2  (DOSE2,IND,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

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

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
DSPL
OI
PT
ORCHK
EDT ; Entry point for ED Action in the OP Pending Queue
EDTSEL ; Entry point for individual field editing
ACP ;
ABORT
KV
REF ;
; Retrieving the Maximum Number of Refills allowed
1
4
3
6
7
5
13
12
2
9
8
10
14
11
15
DRGMSG ;
PZ ;
CSDRG(DRGIEN) ;/BLB/ Patch PSO*7*505/517 Controlled Substance drug?
; Input: DRGIEN - DRUG file (#50) pointer
NDF(DRGIEN) ;PATCH PSO*7*505/517 - 1:YES 0:NO checks the cs federal schedule field of the va product file
CSBLOCK(DFN,DIEN) ;
CSERX(ORD) ; Check whether a Pending Order is for a CS eRx

External References

Name Field # of Occurrence
FILE^DIE ACP+58
$$GET1^DIQ PT+6, ACP+59, ACP+60, CSDRG+5, NDF+2, NDF+3, CSERX+1
^DIR EDT+4, EDTSEL+11, ACP+7, ACP+14, ACP+25, ACP+37, ACP+39, ACP+43, ABORT, PZ+1
EN1^ORCFLAG ACP+3
EN^PSODIAG 2+1
DOSCK^PSODOSUT ACP+32
POST^PSODRG ACP+31
SETPEN^PSOERUT5 PT+51
$$CHKERX^PSOERXU1 ACP+57
UPDSTAT^PSOERXU1 ACP+62, ACP+63
$$GETREQ^PSOERXU2 ACP+61
$$ERXIEN^PSOERXUT PT+6, PT+7, PT+47, EDTSEL+1, CSERX+1
^PSOLMPO1 PT+53
EN^PSON52 ACP+45
DAOC^PSONEW ACP+52
EOJ^PSONEW ACP+65
DCORD^PSONEW2 ACP+45
DISPLAY^PSONEW2 ACP+36
EXPR^PSONEW2 ACP+35
STOP^PSONEW2 ACP+36
^PSONEWF ACP+36
DIN^PSONFI OI+5
RV^PSONFI PT+52
CHECK^PSONRXN ACP+33
DRG^PSOORDRG OI+2
DOSE^PSOORED4 3+2
INST^PSOORFI1 PT+2, PT+7
OBX^PSOORFI1 OI+5
ELIG^PSOORFI2 PT+18
DOSE2^PSOORFI4 PT
IND^PSOORFI4 ORCHK
INST^PSOORFI4 PT+1
ORCHK^PSOORFI4 ORCHK
PQTY^PSOORFI4 PT+28
PROVCOM^PSOORFI4 ORCHK
LMDISP^PSOORFI5 OI+6
PRV^PSOORFI5 PT+33
RXNCHK^PSOORNE1 ACP+34
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+47
ALERT^PSOPKIV1 ACP+45
$$MAXNUMRF^PSOUTIL REF+2
NPSOSD^PSOUTIL ACP+53
CLEAN^PSOVER1 ABORT
ADD^VADPT CSBLOCK+2
FULL^VALM1 EDTSEL+7, ACP+1, ACP+53
$$FMADD^XLFDT ACP+35
$$UP^XLFSTR CSBLOCK+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$C(7)
  • Line Location: ACP+7
Function Call: WRITE
  • Prompt: !
  • Line Location: ACP+25
Function Call: WRITE
  • Prompt: !!,"No action taken!",!
  • Line Location: ACP+37
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
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: CSERX+2
Routine Call
  • DIE
  • Line Location:
    • ACP+58
Routine Call
  • DIR
  • Line Location:
    • EDT+4
    • EDTSEL+11
    • ACP+7
    • ACP+14
    • ACP+25
    • ACP+37
    • ACP+39
    • ACP+43
    • ABORT
    • PZ+1

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" PT+12, PT+15, PT+16, PT+17, PT+46
^PS(50.606 - [#50.606] OI+7
^PS(50.7 - [#50.7] OI+1, OI+7
^PS(52.41 - [#52.41] ACP+3, ACP+15
^PS(53 - [#53] DSPL+3, PT+11
^PS(55 - [#55] DSPL+3, PT+4
^PSDRUG - [#50] OI+12, PT+20, PT+22, PT+24, DRGMSG+1, DRGMSG+2
^PSDRUG("AQ" OI+10
^PSRX - [#52] ACP+51
^TMP("PSODAOC" ACP+49, ACP+50!
^TMP("PSOPO" DSPL+1!, OI+7*, OI+8, OI+10*, OI+11, OI+12*, OI+13*, PT+1*, PT+2*, PT+3*
, PT+5*, PT+6*, PT+7*, PT+8*, PT+10*, PT+11*, PT+12*, PT+13*, PT+15*, PT+16*
, PT+17*, PT+19*, PT+20*, PT+21*, PT+24*, PT+26*, PT+27*, PT+30*, PT+31*, PT+32*
, PT+36*, PT+37*, PT+40*, PT+42*, PT+43*, PT+45*, PT+46*, PT+50!, DRGMSG+1*, DRGMSG+2*
^VA(200 - [#200] PT+34, PT+36, PT+44, PT+45
^XUSEC("PSORPH" ACP+4

Label References

Name Line Occurrences
$$CSBLOCK ACP+25
$$CSDRG EDTSEL+6, CSBLOCK+3, CSBLOCK+4, CSERX+1
$$CSERX EDTSEL+3
$$NDF EDTSEL+6, CSBLOCK+3, CSBLOCK+4
3 2+2
@( EDTSEL+14, ACP+33
ABORT ACP+45
DRGMSG OI+12
DSPL EDTSEL+7, ACP+20, ACP+22, ACP+32, ACP+35, ACP+40
KV EDT+1, EDTSEL+4, EDTSEL+14, ACP+9, ACP+37, ACP+39, ACP+40, ABORT
OI DSPL+2
ORCHK ACP+19
PT OI+9
PZ 1+1, 3+1, 13+1, 10+1
REF EDTSEL+14

Naked Globals

Name Field # of Occurrence
^("PS" PT+34, PT+35
^(0 OI+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> ACP ACP+19*
>> BINGCRT ACP+41*
>> BINGRTE ACP+41*
CHECK EDTSEL+4~, EDTSEL+13*
>> CLOZPAT DSPL+2, OI+3, OI+4, PT+18, PT+28, ACP+18, REF+2
CPRN 2+1~*, 8~*
CSDRG EDTSEL+4~*, EDTSEL+6*, EDTSEL+8, EDTSEL+13
DEA CSDRG+3~, CSDRG+5*, CSDRG+6
DEARES NDF+1~, NDF+3*, NDF+4
DFN CSBLOCK~
DIEN CSBLOCK~, CSBLOCK+3, CSBLOCK+4
DIR EDTSEL+11!, ACP+2~, ACP+25!, ACP+37!, ACP+42!, ACP+43!, KV!, PZ+1~
DIR("?" ACP+37*, ABORT*
DIR("A" EDT+2*, EDT+3*, ACP+5*, ACP+6*, ACP+7*, ACP+10*, ACP+11*, ACP+12*, ACP+13*, ACP+37*
, ACP+39*, ABORT*, PZ+1*
DIR("B" ACP+13*, ACP+39*, ACP+43*
DIR(0 EDT+3*, EDTSEL+11*, ACP+7*, ACP+13*, ACP+25*, ACP+37*, ACP+39*, ACP+42*, ABORT*, PZ+1*
DIRUT ACP+3, ACP+14, ACP+39, ACP+42!, ACP+43!, KV!
>> DREN OI+2*
DRET ACP+37!, ACP+39!
DRGIEN ACP+24*, ACP+25, CSDRG~, CSDRG+4, CSDRG+5, NDF~, NDF+2
DT PT+15, ACP+35
DTOUT EDT+4, KV!
DUOUT EDT+4, KV!
DUZ PT+44, ACP+4
EMTYPE ACP+56~, ACP+59*, ACP+60, ACP+62, ACP+63
ERXFDA ACP+58!
ERXFDA( ACP+58*
ERXIEN PT+47*, PT+49, PT+51, ACP+56~, ACP+57*, ACP+58, ACP+59, ACP+60, ACP+61, ACP+62
, ACP+63
ERXREQ ACP+56~, ACP+61*, ACP+62, ACP+63
FLD EDTSEL+4~, EDTSEL+12*, EDTSEL+13, EDTSEL+14
>> I PT+9*
>> IEN OI+5*, OI+7*, OI+8, OI+10*, OI+11, OI+12*, OI+13*, PT+1*, PT+2*, PT+3*
, PT+5*, PT+6*, PT+7*, PT+8*, PT+10*, PT+11*, PT+12*, PT+13*, PT+15, PT+16
, PT+17*, PT+19*, PT+20, PT+21, PT+23*, PT+24, PT+25*, PT+26, PT+27, PT+30*
, PT+31*, PT+32*, PT+35*, PT+36, PT+37*, PT+40*, PT+42*, PT+43, PT+45*, PT+46
, PT+50*, PT+51*, DRGMSG+1*, DRGMSG+2
>> LINE PT+50*, PT+51
LST OI+9!, EDTSEL+4~, EDTSEL+7*, EDTSEL+8, EDTSEL+12, EDTSEL+13, EDTSEL+14, 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+12, PT+15, PT+17, PT+21, PT+26, PT+27, PT+30
, PT+33, PT+34, PT+38, PT+39, PT+44, PT+46, ACP+18, ACP+35, ACP+57, 1
, 3, 13, 2+1, 8, 10
>> ORCHK ACP+30, ACP+31*
ORD OI+6, PT+6, PT+7, PT+47, PT+51, EDTSEL+1, EDTSEL+3, ACP+3, ACP+15, CSERX~
, CSERX+1
>> ORDRG ACP+30, ACP+31*
OUT EDTSEL+4~*, EDTSEL+12
>> PKI ACP+45
POERR OI+2*!
PSOANSQ ACP+39!, ACP+40!
PSOANSQD DSPL!, ACP+37!, ACP+39!
PSOBDR 1+2~, 2~
PSOBDRG 1+2~*, 2~*
>> PSOCPZ("DFLG" ACP+37!, ACP+39!
PSOCSIG 2~, 2+2!
>> PSODAOC ACP+51*
>> PSODFN DSPL+3, PT+4, ACP+25
>> PSODIR("DFLG" ACP+19*, ACP+21
>> PSODIR("QFLD" ACP+19*
PSODOSE EDTSEL+7~*
>> PSODRG EDTSEL+5*, EDTSEL+6
>> PSODRUG PT+51
>> PSODRUG("DEA" OI+3, PT+33
>> PSODRUG("IEN" OI+5, OI+10, OI+12, PT+20, PT+22, PT+24, PT+33, EDTSEL+5, ACP+24, REF+2
, DRGMSG+1, DRGMSG+2
>> PSODRUG("NAME" OI+9, OI+10, ACP+22, ACP+30, ACP+31
>> PSODRUG("OI" OI, OI+1*, OI+5, OI+7, PT+44
>> PSODRUG("OIN" OI+1*
PSODSPL DSPL!
PSOEDDOS KV!, 3+2~*
PSOELSE PT+8!, PT+12!*, PT+13, PT+14!*, PT+16
>> PSOFROM ACP+33*
>> PSOID PT+12*
>> PSOLMC DSPL+1*, PT+53*, PT+54
PSOMWP PT+29~*, PT+30
>> PSONEW PT+51, EDTSEL+7, ACP+45, ACP+53, 3+2
>> PSONEW("# OF REFILLS" , OI+3*, OI+4*, PT+30, REF+3, REF+4, REF+6*
>> PSONEW("ADMINCLINIC" PT+39!*
>> PSONEW("CLERK CODE" , PT+44*, PT+45
>> PSONEW("COPIES" PT+37
>> PSONEW("COSIG NING PROVIDER" , PT+35*, PT+36
>> PSONEW("DAYS SUPPLY" , DSPL+2*, DSPL+3*, PT+19, REF+2
>> PSONEW("DFLG" ACP+34*, ACP+45!
>> PSONEW("FILL DATE" , PT+15*
>> PSONEW("FLD" ACP+22
>> PSONEW("IND" PT+3
>> PSONEW("INDO" PT+4, PT+5
>> PSONEW("IRXN" ACP+47, ACP+51, ACP+58
>> PSONEW("ISSUE DATE" , PT+12*, PT+13
>> PSONEW("MAIL/WINDOW" PT+29, ACP+41
>> PSONEW("METHO D OF PICK-UP" , ACP+44*
>> PSONEW("N# RE F" , REF+4*, REF+6*
>> PSONEW("PATIE NT STATUS" , PT+11, REF+2
>> PSONEW("POE" ACP+45*
>> PSONEW("PROVI DER NAME" , PT+32
>> PSONEW("PROVIDER" PT+33, PT+34
>> PSONEW("QFLG" ACP+20, ACP+33, ACP+34
>> PSONEW("QTY" PT+18*, PT+21, ACP+18*
>> PSONEW("REMARKS" PT+38*, PT+41, PT+42, PT+43
>> PSONEW("RX #" , ACP+33
>> PSONEW("SIG" PT+1
PSOORNEW ACP+2~*
>> PSOPAR ACP+33, ACP+41
>> PSOQFLG 2*, 2+1
>> PSORX("CLERK CODE" , PT+44*
>> PSORX("CLINIC" PT+31
>> PSORX("DFLG" ACP+19*, ACP+21, ACP+30, ACP+31, ACP+32, ACP+45!, ACP+50
>> PSORX("FILL D ATE" , PT+14, PT+15*, PT+16*
>> PSORX("MAIL/WINDOW" ACP+41*, ACP+53!
>> PSORX("METHOD OF PICK-UP" , ACP+43, ACP+44*
>> PSOSIGFL PT+44
>> PSOVLMBG EDTSEL+1*
>> PSOX ACP+33*
RESTYPE ACP+56~, ACP+60*
RN PT+23*, PT+24!, PT+45*, PT+46!
RTN ACP+33*, ACP+41!
>> RXN ACP+51*
SG PT+10*, PT+42*, PT+43, DRGMSG+1*, DRGMSG+2, DRGMSG+3!
>> SIG PT+9*, PT+10, PT+51
>> SIG( PT+9
>> SIG(0 ACP+22
>> TY PT+2*, PT+7*
U CSBLOCK+3
>> VALMBCK DSPL*, PT+53*, PT+54*, EDTSEL+15*, ACP+8*, ACP+14*, ACP+37*, ACP+39*, ABORT*, CSERX+2*
>> VALMBG EDTSEL+1
>> VALMCNT PT+51*
>> VALMSG PT+44*, CSERX+2*
VAPA CSBLOCK+1~
VAPA(11 CSBLOCK+4
VAPA(25 CSBLOCK+3
VAPA(6 CSBLOCK+4
VPROD NDF+1~, NDF+2*, NDF+3
X ACP+44!
Y PT+12*, PT+15*, PT+16*, PT+17*, PT+46*, EDTSEL+3, EDTSEL+7, ACP+2~*, ACP+3, ACP+4*
, ACP+14, ACP+25!, ACP+40, ACP+44!
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