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

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  
Inpatient Medications 1 $$ISCLOZ^PSJCLOZ  
List Manager 1 FULL^VALM1  
Pharmacy Data Management 1 ($$L,PSOL,PSOUL,UL)^PSSLOCK  

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

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

Entry Points

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

External References

Name Field # of Occurrence
FIELD^DID EDT+70, EDT+75
EN^DIQ1 EDT+61, EDT+71
^DIR SEL+7, EDT+11, EDT+62, EDT+73, CHK+5, PROV+4, PAUSE+2
$$ISCLOZ^PSJCLOZ EDT+41
$$LSTRFL^PSOBPSU1 SEL+4, EDT+32
$$STATUS^PSOBPSUT SEL+6, EDT+54
^PSOBUILD EX+8, QUIT
EN^PSOCMOPC QUIT
EDTDAW^PSODAWUT EDT+56
EN^PSODIAG EDT+48, EDT+49
PROV^PSODIR PROV+2
SIG^PSODIR1 SIG+4
NDC^PSODRG EDT+43
POST^PSODRG EDT+46
SET^PSODRG EDT+7
EN^PSOHLSN1 EX1
HLDHDR^PSOLMUTL EDTSEL
EOJ^PSONEW EX+12
LOCK^PSOORCPY SELEDTSEL+1
EN^PSOORED1 EX+6
INS^PSOORED1 EDT+47
EDTDOSE^PSOORED2 EDT+46
FLDT^PSOORED2 EDT+53
ISDT^PSOORED2 EDT+52
REF^PSOORED2 EDT+34
DRG^PSOORED6 EDT+49
PSOCOU^PSOORED6 EDT+35
PSOI^PSOORED6 EDT+48
UPDATE^PSOORED6 EX+1
NDCDAWDE^PSOORED7 EDT+31
NOCHG^PSOORED7 EDT+58
ACT^PSOORNE2 QUIT
$$CSDRG^PSOORNEW EDT+8, EDT+36
$$NDF^PSOORNEW EDT+8, EDT+36
LOG^PSORXED EX+1
POST^PSORXED EX+1
EN1^PSOSIGNO SIG+4
POP^PSOSIGNO EDT+24, EDT+29
$$TITRX^PSOUTL EDT+27
CLEAN^PSOVER1 EX2+2
$$L^PSSLOCK SELEDTSEL+1
PSOL^PSSLOCK SEL+1, EDTSEL+2
PSOUL^PSSLOCK UL+3
UL^PSSLOCK SEL+1, EDTSEL+2, UL+2
FULL^VALM1 EDT+46

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+28
Function Call: WRITE
  • Prompt: !!,"Digitally Signed Order - Provider can't be changed"
  • Line Location: EDT+50
Function Call: WRITE
  • Prompt: !,"Data Required!",!
  • Line Location: EDT+65
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+7
    • EDT+11
    • EDT+62
    • EDT+73
    • 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+19
^PSDRUG - [#50] EDT+7, EDT+20, EDT+21, CHK
^PSRX - [#52] QUITQUIT+1, EDT+4, EDT+6, EDT+14, EDT+15, EDT+17, EDT+19, EDT+20*, EDT+23
EDT+49, EDT+77, CHK+2, CHK+4, CHK+7, UDPROV+1*, UDPROV+2*, SIG+1, SIG+2, SIG+3
SIG+5*!
^VA(200 - [#200] EDT+23, PROV+1

Label References

Name Line Occurrences
$$CSFLDBLK EDT+9
$$REQFLDS EDT+27
CHK EDT+24, EDT+29
EDT EDTSEL+3
EX EDTSEL
EX1 EX+1
EX2 EX
PAUSE EDT+50
PROV EDT+51
SVAL SELEDTSEL+1
SVALO SEL+1, EDTSEL+2
UL SEL+7, EXEX+13, QUIT

Naked Globals

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