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: PSOOREDT

Package: Outpatient Pharmacy

Routine: PSOOREDT


Information

PSOOREDT ;BIR/SAB - Edit orders from backdoor ;5/8/08 3:27pm

Source Information

Source file <PSOOREDT.m>

Call Graph

Call Graph

Call Graph Total: 28

Package Total Call Graph
Outpatient Pharmacy 23 $$LSTRFL^PSOBPSU1  $$STATUS^PSOBPSUT  ^PSOBUILD  EN^PSOCMOPC  EDTDAW^PSODAWUT  EN^PSODIAG  PROV^PSODIR  SIG^PSODIR1  
(NDC,POST,SET)^PSODRG  EN^PSOHLSN1  HLDHDR^PSOLMUTL  EOJ^PSONEW  LOCK^PSOORCPY  (EN,INS)^PSOORED1  (EDTDOSE,FLDT,ISDT,REF)^PSOORED2  (DRG,PSOCOU,PSOI,UPDATE)^PSOORED6  
(NDCDAWDE,NOCHG)^PSOORED7  ACT^PSOORNE2  ($$CSDRG,$$NDF)^PSOORNEW  (LOG,POST)^PSORXED  (EN1,POP)^PSOSIGNO  $$TITRX^PSOUTL  CLEAN^PSOVER1  
VA FileMan 3 FIELD^DID  EN^DIQ1  ^DIR  
List Manager 1 FULL^VALM1  
Pharmacy Data Management 1 ($$L,PSOL,PSOUL,UL)^PSSLOCK  

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: 4

Package Total Caller Graph
Outpatient Pharmacy 3 PSO EDIT ORDERS  PSOLMUTL  PSOORED6  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
QUIT
PAUSE
CHKX
EDTSEL
CHK
SVAL ;Set message for patient lock
CSFLDBLK(FIELDS) ; checks if this field shold be blocked for a controlled substance
REQFLDS(FIELDS) ; Checks if fields 1,2 or 3 are being edited
PROV ;select provider
UL ;
SVALO ;Set message for order lock
EX2
EX
EDT ; Rx Edit (Backdoor)
EX1
UDPROV ;update provider
SEL
SIG ;edit medication instructions (SIG)

External References

Name Field # of Occurrence
FIELD^DID EDT+66, EDT+71
EN^DIQ1 EDT+57, EDT+67
^DIR SEL+6, EDT+11, EDT+58, EDT+69, CHK+5, PROV+4, PAUSE+2
$$LSTRFL^PSOBPSU1 SEL+3, EDT+31
$$STATUS^PSOBPSUT SEL+5, EDT+50
^PSOBUILD EX+8, QUIT
EN^PSOCMOPC QUIT
EDTDAW^PSODAWUT EDT+52
EN^PSODIAG EDT+44, EDT+45
PROV^PSODIR PROV+2
SIG^PSODIR1 SIG+4
NDC^PSODRG EDT+39
POST^PSODRG EDT+42
SET^PSODRG EDT+7
EN^PSOHLSN1 EX1
HLDHDR^PSOLMUTL EDTSEL
EOJ^PSONEW EX+12
LOCK^PSOORCPY SEL, EDTSEL+1
EN^PSOORED1 EX+6
INS^PSOORED1 EDT+43
EDTDOSE^PSOORED2 EDT+42
FLDT^PSOORED2 EDT+49
ISDT^PSOORED2 EDT+48
REF^PSOORED2 EDT+33
DRG^PSOORED6 EDT+45
PSOCOU^PSOORED6 EDT+34
PSOI^PSOORED6 EDT+44
UPDATE^PSOORED6 EX+1
NDCDAWDE^PSOORED7 EDT+30
NOCHG^PSOORED7 EDT+54
ACT^PSOORNE2 QUIT
$$CSDRG^PSOORNEW EDT+8, EDT+35
$$NDF^PSOORNEW EDT+8, EDT+35
LOG^PSORXED EX+1
POST^PSORXED EX+1
EN1^PSOSIGNO SIG+4
POP^PSOSIGNO EDT+23, EDT+28
$$TITRX^PSOUTL EDT+26
CLEAN^PSOVER1 EX2+2
$$L^PSSLOCK SEL, EDTSEL+1
PSOL^PSSLOCK SEL+1, EDTSEL+2
PSOUL^PSSLOCK UL+3
UL^PSSLOCK SEL+1, EDTSEL+2, UL+2
FULL^VALM1 EDT+42

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: EX2+2
Function Call: WRITE
  • Prompt: !,"for controlled substances. These field(s) will be skipped.",!
  • Line Location: EDT+10
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: EDT+27
Function Call: WRITE
  • Prompt: !!,"Digitally Signed Order - Provider can't be changed"
  • Line Location: EDT+46
Function Call: WRITE
  • Prompt: !,"Data Required!",!
  • Line Location: EDT+61
Function Call: WRITE
  • Prompt: !
  • Line Location: CHK+5
Function Call: WRITE
  • Prompt: !
  • Line Location: PROV+3
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+2
Routine Call
  • DIR
  • Line Location:
    • SEL+6
    • EDT+11
    • EDT+58
    • EDT+69
    • CHK+5
    • PROV+4
    • PAUSE+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSRX - [#52] FIELD^DID

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(53 - [#53] EDT+18
^PSDRUG - [#50] EDT+7, EDT+19, EDT+20, CHK
^PSRX - [#52] QUIT, QUIT+1, EDT+4, EDT+6, EDT+14, EDT+16, EDT+18, EDT+19*, EDT+22, EDT+45
, EDT+73, CHK+2, CHK+4, CHK+7, UDPROV+1*, UDPROV+2*, SIG+1, SIG+2, SIG+3, SIG+5*!
^VA(200 - [#200] EDT+22, PROV+1

Label References

Name Line Occurrences
$$CSFLDBLK EDT+9
$$REQFLDS EDT+26
CHK EDT+23, EDT+28
EDT EDTSEL+3
EX EDTSEL
EX1 EX+1
EX2 EX
PAUSE EDT+46
PROV EDT+47
SVAL SEL, EDTSEL+1
SVALO SEL+1, EDTSEL+2
UL SEL+6, EX, EX+13, QUIT

Naked Globals

Name Field # of Occurrence
^("I" CHK
^("INS" EDT+6
^("INSS" EDT+6
^("SIG" EDT+6, EDT+14
^(2 EDT+6
^(3 EDT+6, UDPROV+1*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
B CSFLDBLK+1~, CSFLDBLK+3*
CHK EX+10!, EX2+1!, EDT+23, EDT+28, CHK*
CSDRG EDT+2~, EDT+8*, EDT+9
DA EDT+14*, EDT+16, EDT+18, EDT+19, EDT+22, EDT+23, EDT+28, EDT+44, EDT+57*, EDT+58
, EDT+60, EDT+61!, EDT+64, EDT+68, EDT+70
DAW EDT+52~, EDT+53
DEA EDT+3!
DIC EDT+57!*, EDT+61!, EDT+67!
DIQ EDT+57!*, EDT+61!, EDT+67*!
DIR SEL+4!, SEL+6!, EDTSEL!, EDT+11!, EDT+56!, EDT+60!, EDT+61!, EDT+64!, EDT+69!, EDT+70!
, CHK+3!, CHKX!, PROV+3!, PROV+6!, PAUSE+1~
DIR("?" CHK+4*
DIR("A" SEL+4*, CHK+4*, PROV+3*, PROV+4*, PAUSE+2*
DIR("B" EDT+58*, EDT+68*, CHK+5*
DIR(0 SEL+5*, EDT+11*, EDT+58*, EDT+69*, CHK+4*, PROV+3*, PAUSE+2*
DIROUT EDT+56!, EDT+64!, EDT+70!
DIRUT SEL+4!, SEL+6!, EDTSEL!, EDT+56!, EDT+60!, EDT+61!, EDT+64!, EDT+67!, EDT+69!, EDT+70!
, CHK+5, PROV+3!, PROV+5, PROV+6!
DR EDT+33*, EDT+34, EDT+55*, EDT+58, EDT+59, EDT+60, EDT+61!, EDT+62, EDT+63, EDT+64
, EDT+65, EDT+66, EDT+67*, EDT+68, EDT+69, EDT+70, EDT+71
DRGIEN EDT+2~, EDT+12*, EDT+35
DT CHK
DTOUT SEL+6!, EDTSEL!, EDT+60!, EDT+67!, CHK+3!, CHKX!
DUOUT SEL+4!, EDT+60!, EDT+67!, CHK+3!, CHKX!, PROV+6!
>> FDR EDT+24*, EDT+29*, EDT+33
FIELDS REQFLDS~, REQFLDS+3, CSFLDBLK~, CSFLDBLK+3
FLD EX+9!, EX2+1!, EDT+12*
FLDCHECK CSFLDBLK+1~, CSFLDBLK+2*, CSFLDBLK+3*, CSFLDBLK+5
FLN EX+9!, EX2+1!, EDT+12*, EDT+13, EDT+30, EDT+32, EDT+33, EDT+38, EDT+41, EDT+42
, EDT+43, EDT+44, EDT+45, EDT+46, EDT+47, EDT+48, EDT+49, EDT+50, EDT+51, EDT+54
FLNCHK EDT+2~, EDT+13*, EDT+35
FST EDTSEL*, EX+9!, EX2+1!, EDT+9, EDT+12, EDT+26
I EDT+4*, EDT+73*, UDPROV+2*, UDPROV+3!, SIG+2*, REQFLDS+1~, REQFLDS+3*
IEN EX+9!, EX2+1!
INCOM EX+9!, EX2+1!
NCPDPFLG EX+5*, EDT+3!
NDC EDT+39~, EDT+40
NEWEDT EDTSEL+3*, EX+11!, EX2+2!
>> ORN SEL+1, SEL+3, SEL+5, EDTSEL+2, QUIT, QUIT+1, EDT+4, EDT+6, EDT+14, EDT+26
, EDT+31, UL+3
>> PSODAYS EDT+18*
PSODE EDTSEL+1*, EDTSEL+2*, EDTSEL+4*, EX+10!, EX1, EX2+1!
>> PSODFN SEL, SEL+1, EDTSEL+1, EDTSEL+2, UL+2
PSODIR EX+10!, EX2+1!
>> PSODIV CHK+1
PSODRUG EX+9!, EX2+1!, EDT+7
PSODRUG("DAW" EDT+53*
PSODRUG("IEN" EDT+8, EDT+12, EDT+20*
PSODRUG("NAME" EDT+20*
PSODRUG("NDC" EDT+40*
PSODRUG("OI" EDT+21*
PSOEDIT EDTSEL*, EX+9!, EX2+1!
>> PSOFDR SIG+1*
PSOFROM EX+4*, EX+14*!
PSOI EX+9!, EX2+1!, EDT+18*, EDT+19*, EDT+21
PSOISLKD SEL!, EDTSEL!, EDTSEL+1*, EDTSEL+2*, EX!, EDT+42*
PSOLOKED SEL!, SEL+2*, SEL+6!, EDTSEL+1, EDTSEL+2, EDTSEL+3*, EX+13!, QUIT!, UL+1
>> PSOLST( SEL+1, SEL+3, SEL+5, EDTSEL+2, QUIT, QUIT+1, EDT+4, EDT+6, EDT+14, EDT+26
, EDT+31, UL+3
PSOMRFLG EDTSEL!, EX+10!, EX2+1!, SIG+6*
PSOMSG SEL+1!, SEL+2!, EDTSEL+2!, EDTSEL+3!, SVALO+1
PSOOIFLG EDTSEL!, EX+10!, EX2+1!
>> PSOOINS EDT+6*, EDT+16*
>> PSOPAR EDT+24, EDT+29, EDT+38, EDT+41, EDT+65
>> PSOPINS EDT+6*, EDT+16*
PSOPKI EDT+3!, EDT+14*, EDT+46
PSOPLCK SEL*!, SEL+1!, EDTSEL+1*!, EDTSEL+2!, EDTSEL+3!, SVAL+1
PSOQUIT EDTSEL*, EX, EX2, EX2+1!
PSORENW EX+10!, EX2+1!
PSORENW("OIRXN" EX1, EDT+14*, EDT+44
>> PSORX SIG+4
>> PSORX("COSIGN ING PROVIDER" , PROV+5!, UDPROV+1
>> PSORX("DFLG" SEL+4!, EDTSEL!, EX+9!, EX2+1!, EDT+12, EDT+42
>> PSORX("EDIT" EX+11!, EX2+1!
>> PSORX("FN" EX+2, EX+7, EX2, EDT+42*
>> PSORX("PROVID ER NAME" , EDT+22*, PROV+5!
>> PSORX("PROVIDER" EDT+22*, PROV+5!
>> PSORX("SIG" EX+10!, EX2+1!, SIG+3*, SIG+4, SIG+5
PSORXED EDTSEL*, EX+6, EX2+1!, EDT+44*, EDT+45*, PROV+2
PSORXED( EDT+66*, EDT+71*
PSORXED("COSI GNING PROVIDER" , PROV+7
PSORXED("DFLG" EX+1, EDT+12, EDT+14*, EDT+23, EDT+26*, EDT+28, EDT+44, EDT+45, CHK*, CHK+1
, CHK+2*, CHK+5*, CHK+8*
PSORXED("FLD" EX+11!, EDT+40*, EDT+53*, EDT+58, EDT+59*, EDT+60!, EDT+64*, EDT+65, EDT+66, EDT+70*
, EDT+71, PROV+6*, PROV+7*
PSORXED("IRXN" EDT+14*, EDT+44, EDT+45, EDT+57, EDT+73, CHK+1, CHK+7, UDPROV+1, UDPROV+2, SIG+1
, SIG+2, SIG+3, SIG+4, SIG+5
PSORXED("PROV IDER NAME" , PROV+1*
PSORXED("PROVIDER" PROV+1*, PROV+2, PROV+6, UDPROV+1, UDPROV+2
PSORXED("RX0" EDT+6*, CHK
PSORXED("RX1" EDT+4*
PSORXED("RX2" EDT+6*, CHK+1
PSORXED("RX3" EDT+6*
PSORXED(52 EDT+58, EDT+60!, EDT+61!, EDT+64!, EDT+68, EDT+70!
>> PSORXST EDT+18*
>> PSOSIG EDT+6*, EDT+14*
PSOSIGFL EX+1, EX+2, EX+10!, EX2+1!, EDT+17, EDT+72, SIG+5
>> PSOSITE CHK+1
>> PSOSYS CHK+2, CHK+3
PSOTMP EX+3~, EX+4*, EX+14
PSOTRN EX+11!, EX2+1!, EDT+22*
PSOX EDT+44~, EDT+45~
PSOX("IRXN" EDT+44*, EDT+45*
PSOY EDT+7~*
PSOY(0 EDT+7*
PSPOP CHK+1!, CHKX!
>> PSPRXN CHK+1*, CHK+2, CHK+4
QUIT EX+9!, EX2+1!
REF SEL+3*, SEL+5, QUIT+1!, EDT+31*, EDT+32, EDT+45*
REQFLDS REQFLDS+1~, REQFLDS+2*, REQFLDS+3*, REQFLDS+4
>> RFD EDT+73*
>> RFDT EDT+73*
RFED EX2+1!, UDPROV+2*
>> RX0 EDT+6*, EDT+7, EDT+14*, EDT+18, EDT+19, EDT+20, EDT+22, EDT+24, EDT+29, PROV+1
, PROV+2
>> RX1 EDT+73*
>> RX1( EDT+73*
>> RXN EDT+30, EDT+39, EDT+50, EDT+52
SIG EX2+1!
SIG( SIG+2*
>> ST EDT+30
U EDT+7
>> VALMBCK SEL*, SEL+1*, SEL+6*, EDTSEL+1*, EDTSEL+2*, EDTSEL+4*, EX+13*, EX2*, EX2+2, EDT+27*
VALMCNT EDTSEL~
>> VALMSG EX+5*, EDT+27*, EDT+32*, EDT+41*, EDT+50*, CHK*, CHK+2*, CHK+8*, SVAL+1*, SVALO+1*
X EDT+59, EDT+61!, EDT+62, EDT+64!, EDT+69, EDT+70!, CHKX!, PAUSE+1~
XTY UDPROV+2*, UDPROV+3!
Y EDTSEL, EDT+61!, EDT+62*, EDT+63*, EDT+64!, EDT+70!, CHK+5, CHKX!, PROV+5, PAUSE+1~
ZONE EDTSEL!, EX1, EX2, EX2+1!
ZZ EDT+66!, EDT+71!
ZZ("LABEL" EDT+66, EDT+71
ZZEDIT EX+12*!
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