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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: PSJCLOR4

Package: Inpatient Medications

Routine: PSJCLOR4


Information

PSJCLOR4 ;BIR/JCH - INPATIENT MEDICATIONS PROFILE FOR CLINIC ORDERS ;25 SEP 97 / 7:43 AM

Source Information

Source file <PSJCLOR4.m>

Call Graph

Call Graph

Call Graph Total: 29

Package Total Call Graph
Inpatient Medications 24 ($$ENDL,ENE)^PSGDL  ($$ENDD,$$ENDTC)^PSGMI  DOSE^PSGOE81  ENFF^PSGOE82  DOSE^PSGOE91  ENFF^PSGOE92  ENHLP^PSGOEM  (ENCV,ENIVKV)^PSGSETU  
ENDEV^PSGTI  EN2^PSGVW  (ALC,ENA)^PSGVW0  ENSTOP^PSIVCAL  DOSE^PSIVEDT1  ENINP^PSIVOPT  ENHLP^PSIVORC1  ENDL^PSIVSP  
ENLOG^PSIVVW1  ENBOTH^PSJAC  ^PSJO  (BOT,ENL)^PSJO3  $$COMPLEX^PSJOE  ENVW^PSJOE0  CNV^PSJP  (EFDNV,READ)^PSJUTL  
VA FileMan 3 ^%DT  EN^DDIOL  ^DIR  
Kernel 1 ^%ZISC  
List Manager 1 PAUSE^VALM1  

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

Package Total Caller Graph
Inpatient Medications 3 PSJCLOR1  PSJCLOR2  PSJCLOR3  

Entry Points

Name Comments DBIA/ICR reference
EN ;
DONE ;
GO ;
DEV ;
ENQ ;
PC ;
PJ ;
PG ;
PW ;
PAT ;
PAT1 ;
PP ;
PP1 ;
PP2 ; Display selected order.
PP3
PH ;
ENOR(PSGP) ;S (PSGP,DFN)=+ORVP,PSGP(0)=^DPT(PSGP,0)
ENLM
A34 ; Stop date Active Unit Dose
W34 ;Compare to Start Date
A34DONE ; clean up Active UD Stop Date vars
A25NV ; Stop Date Non-Verified
W25 ; Loop Stop Date NV
A25DONE ; NV Stop Date Done
A25V(DFN,ON) ; Stop Date Active IV
A25V2 ; IV Stop Date Continued

External References

Name Field # of Occurrence
^%DT A34+11, A25NV+7, A25V2+6
^%ZISC ENQ+5
EN^DDIOL W34+5, W25+5
^DIR GO+2, DEV+4, PP3
$$ENDL^PSGDL A34+10, A25NV+6, A25V2+7
ENE^PSGDL A34+10, A25NV+6
$$ENDD^PSGMI A34+11, A25NV+7
$$ENDTC^PSGMI A34+11, A25NV+7
DOSE^PSGOE81 W25+2
ENFF^PSGOE82 A25NV+4
DOSE^PSGOE91 W34+2
ENFF^PSGOE92 A34+8
ENHLP^PSGOEM A34+9, A25NV+5, A25V2+9
ENCV^PSGSETU ENLM+2
ENIVKV^PSGSETU DONE+2
ENDEV^PSGTI DEV+4
EN2^PSGVW PP2+3
ALC^PSGVW0 GO+3
ENA^PSGVW0 PP2+3
ENSTOP^PSIVCAL A25V2+1
DOSE^PSIVEDT1 A25V2+11
ENINP^PSIVOPT PP2+2
ENHLP^PSIVORC1 A25V2+5
ENDL^PSIVSP A25V2+7
ENLOG^PSIVVW1 PP2+2
ENBOTH^PSJAC ENQ+4, PAT1+2, ENLM+3
^PSJO PP+1
BOT^PSJO3 PP+7
ENL^PSJO3 EN+5, ENLM+3
$$COMPLEX^PSJOE A34+3, A25V2+2
ENVW^PSJOE0 PP+1
CNV^PSJP ENLM+3
EFDNV^PSJUTL A25DONE+1
READ^PSJUTL PP+1, PP+3
PAUSE^VALM1 A34+4, A25V2+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: GO+2
Function Call: READ
  • Timeout: DTIME
  • Line Location: GO+3
Function Call: WRITE
  • Prompt: !!?2,"Enter a 'P' to print ONLY the PROFILE of orders for this patient. Enter an",!,"'E' to print ONLY the EXPANDED VIEW of the orders for this patient. Enter a",!,"'B' to have BOTH the profile (first) and the expanded views print."
  • Line Location: PH+1
Function Call: WRITE
  • Prompt: " Enter an '^'to exit."
  • Line Location: PH+2
Function Call: WRITE
  • Prompt: !!?5,"Stop Date/Time may not be edited for active complex orders."
  • Line Location: A34+4
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: A34+6
Function Call: WRITE
  • Prompt: !,"STOP DATE/TIME: "_$S($P(PSGFDN,"^")]"":$P(PSGFDN,"^")_"// ",1:"")
  • Line Location: A34+6
Function Call: WRITE
  • Prompt: " "_$P(PSGFDN,"^")
  • Line Location: A34+7
Function Call: WRITE
  • Prompt: " ...dose limit..."
  • Line Location: A34+10
Function Call: WRITE
  • Prompt: $C(7),!!?13,"*** WARNING! THE STOP DATE ENTERED IS IN THE PAST! ***",!
  • Line Location: W34+6
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: A25NV+2
Function Call: WRITE
  • Prompt: !,"STOP DATE/TIME: "_$S($P(PSGFDN,"^")]"":$P(PSGFDN,"^")_"// ",1:"")
  • Line Location: A25NV+2
Function Call: WRITE
  • Prompt: " ...dose limit..."
  • Line Location: A25NV+6
Function Call: WRITE
  • Prompt: $C(7),!!?13,"*** WARNING! THE STOP DATE ENTERED IS IN THE PAST! ***",!
  • Line Location: W25+6
Function Call: WRITE
  • Prompt: !!?5,"This is a Complex Order. Stop Date may not be edited at this point."
  • Line Location: A25V2+3
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: A25V2+4
Function Call: WRITE
  • Prompt: $C(7)," (Required)"
  • Line Location: A25V2+5
Function Call: WRITE
  • Prompt: $C(7),!?5," Time is REQUIRED. Re-enter Start Date. "
  • Line Location: A25V2+10
Function Call: WRITE
  • Prompt: !,"There is no administration time that falls between the Start Date/Time"
  • Line Location: A25V2+15
Function Call: WRITE
  • Prompt: !,"and Stop Date/Time.",!
  • Line Location: A25V2+16
Routine Call
  • DIR
  • Line Location:
    • GO+2
    • DEV+4
    • PP3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" A25V2+4
^DIC(42 - [#42] PG+1
^DPT - [#2] PAT+1, ENOR+1
^DPT("CN" PW+1
^PS(53.1 - [#53.1] PP2+1
^PS(55 - [#55] PC+3, PC+4, PC+6, PC+7
^PS(57.5 - [#57.5] PG+1
^PS(57.7 - [#57.7] PAT+2
^PS(59.5 - [#59.5] A25V2+1
^TMP("PSG" PP+3
^TMP("PSJ" DONE+1!, PP+6, PP+7!, PP1+1
^TMP("PSJAT" ENQ+2!, PC+4!, PC+7!, PW+1!, PAT+4*, PAT1+1, PAT1+2
^TMP("PSJON" DONE+1!
^TMP("PSJPR" PC+1!, PC+4, PC+7, PJ+1*

Label References

Name Line Occurrences
@( EN+2, EN+3, ENQ+5, PP+2, A34+8, A25NV+4
A25DONE A25NV+2
A25NV A25NV+4, A25NV+6, A25NV+7, W25+2, W25+6
A25V2 A25V2+5, A25V2+7, A25V2+9, A25V2+10, A25V2+14, A25V2+17
A34 A34+8, A34+10, A34+11, W34+2
A34DONE A34+5, A34+6
DEV GO+1
DONE EN+1, EN+3, ENQ+5, ENLM+5
EN EN+5, GO+2, GO+4
ENQ DEV+3, DEV+4
GO EN+5, ENLM+3
PAT PC+4, PC+7, PW+1
PAT1 PC+4, PC+7, PW+2
PJ PC+4, PC+7
PP ENQ+4, PAT1+2
PP1 PP+6
PP2 PP1+1
PP3 PP+4, PP2+2, PP2+3
PW PG+1
W34 A34+7

Naked Globals

Name Field # of Occurrence
^(0 PAT+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT A34+11!*, A25NV+7!*, A25V2+6!*
%DT(0 A34+11*, A25NV+7*
AND DONE+2!
AT DONE+2!, GO+3*, PAT+1*, PAT+2*, PAT+4, PP2+3*
C DONE+2!
CA DONE+2!
CLINIC DONE+3!, PC+2*, PC+3*, PC+4, PC+5*, PC+6*, PC+7
DDH DONE+2!
DFN DONE+2!, ENQ+4*, PC+4*, PC+7*, PW+1*, PAT+1, PAT+4, PAT1+2*, ENOR+1*, A25V~
A25V2+2
DIR GO+2~, DEV+4!, PP3!, A25V+1~, A25V2+9!
DIR("?" GO+2*
DIR("A" GO+2*, DEV+4*
DIR("B" GO+2*, DEV+4*
DIR(0 GO+2*, DEV+4*, PP3*
DN DONE+2!
DOB DONE+2!
>> DONE A25V2+4*
DRGI DONE+2!
DRGN DONE+2!
DRGT DONE+2!
DTIME GO+3, A34+6, A25NV+2, A25V2+4
DTOUT DONE+3!, PP+4, PP2+2, PP2+3, PP3
DUOUT DONE+3!, PP+4, PP2+2, PP2+3, PP3
>> F1 A25V2+5*
>> F2 A25V2+5*
FIL DONE+2!
FQC DONE+2!
HDR DONE+2!
HDT DONE+5!
I1 DONE+2!
IO ENQ+2, PP+2
>> IO("Q" DEV+4
>> IO(0 ENQ+2
IOF ENQ+5
IOST ENQ+2
J DONE+2!
JDFN DONE+3!, PC+2*, PC+4*, PC+5*, PC+7*, PJ+1
JJ DONE+2!
MF DONE+2!
MSG A34+1*, W34+1~, W34+5, W34+6*, A34DONE+1!, W25+1~, W25+5, A25DONE+2!
MSG(1 W34+3*, W25+3*
MSG(2 W34+4*, W25+4*
NF DONE+2!
O DONE+2!
OD DONE+2!
ON DONE+2!, A25V~, A25V2+2
ON55 DONE+2!
P DONE+2!
P("IVRM" A25V2+1
P(2 A25V2+1, A25V2+4
P(3 A25V2+1, A25V2+4, A25V2+6, A25V2+13, A25V2+17*
P(9 A25V2+7
P1 DONE+2!
PDRG DONE+2!
PFLG PSJCLOR4+5~
PG DONE+2!
POP DONE+3!, DEV+4
PPAGE PSJCLOR4+5~, EN+3*, ENLM~, ENLM+1*
PPN DONE+2!, ENQ+3*, ENQ+4, PAT+1*
PRI DONE+2!
PRIV DONE+2!
>> PSGDL A34+10*, A25NV+6*
PSGDLS A34+10!, A25NV+6!
>> PSGDT W34+6, W25+6
>> PSGF2 A34+1*
>> PSGFD A34+7, A34+11*, W34+2, W34+6, A25NV+3, A25NV+7*, W25+6
>> PSGFDN A34+6, A34+7, A34+11*, A25NV+2, A25NV+3, A25NV+7*
PSGFDX A34+2!, A34+11*, A25NV+1!, A25NV+7*, A25V2+17*
PSGLI PSJCLOR4+6~
PSGLMT DONE+2!
>> PSGNEFD W34+2, A25NV+7*, W25+2
PSGODT DONE+5!
PSGOE DONE+2!
>> PSGOEE A34+3*, A34+6*, A25NV+2*
PSGON DONE+2!
PSGONC DONE+2!
PSGONR DONE+2!
PSGONV DONE+2!
PSGORD DONE+2!, PP2+3*
PSGP ENQ+4*, PW+1*, PAT1+2*, PP2+2, ENOR~, ENOR+1, ENLM+3, A34+3
PSGP(0 ENOR+1*, ENLM+3
PSGPR DONE+2!
PSGPRF PP+1!
PSGPRP DONE+2!, ENQ+2*
PSGPTMP PSJCLOR4+5~, EN+3*, ENLM~, ENLM+1*
>> PSGSCH A34+10, A25NV+6
>> PSGSD A34+11, A25NV+7
PSGSS DONE+2!
PSGSSH DONE+2!
PSGTIR DONE+3!, DEV+2*
PSGWD PSJCLOR4+6~
PSIVAC DONE+3!, A25V2+1
PSIVCT DONE+3!
PSIVREA DONE+3!
PSIVSCR DONE+3!
>> PSIVSITE A25V2+1*
PSIVUP DONE+3!
PSIVX DONE+3!
PSJACNWP DONE+4!, ENQ+2*
PSJACOK DONE+4!
PSJAT PSJCLOR4+6~, PAT1+1*, PAT1+2
>> PSJBKDR A25V2+3
PSJDBL DONE+4!, PAT1+1!, PAT1+2*
PSJDEV DONE+4!, PP+2*
PSJEXTP EN+2, EN+3, DONE+3!, PP+2, ENLM+3
PSJION DONE+4!
PSJIVOF DONE+5!
PSJLM PP2+1~
PSJNEW PSJCLOR4+5~*, ENLM~*
PSJNKF DONE+3!, ENLM+5*
PSJOCNT DONE+5!
>> PSJOL EN+5, ENLM+3
PSJON DONE+4!, DONE+5!, PP+1, PP+2*
PSJOPC DONE+5!
PSJORD DONE+5!, PP2+1*, PP2+2, PP2+3, A34+3
PSJORIFN DONE+5!
PSJOS DONE+4!, DEV+1*
PSJP DONE+4!
PSJPNRB PSJCLOR4+6~, PAT1+2*
PSJPR DONE+5!, ENQ+2*, ENQ+5, PP+1, PP+2, PP+3, PP+4, PP+7, PP3
PSJPRA DONE+5!, GO+1*, GO+3*, GO+4, PP2+2, PP2+3
PSJPRF DONE+5!, PP+1*, PP2+1~, PP2+2*
PSJPRP DONE+5!, GO+1*, GO+2*, GO+3, ENQ+2, PP+1, PP+2, PP+4
PSJPRW DONE+4!, PG+1*, PAT+2, ENLM+3*
PSJPRWG DONE+4!, PG+1, ENLM+3*
PSJPRWGN DONE+4!, ENLM+3*
PSJPRWN DONE+4!, PG+1*, PW+1, ENLM+3*
PSJPWDO PSJCLOR4+6~
PSJQ DONE+5!, PP+6*, PP1+1*
>> PSJQMSG A25V2+8*, A25V2+9*, A25V2+10*
PSJS1 DONE+5!, PP+5*, PP+6*, PP1+1, PP2+3, PP3*
PSJS2 DONE+5!, PP+5*, PP+6*, PP1+1, PP3*
PSJS3 DONE+5!, PP+5*, PP+6*, PP1+1, PP3*
PSJS4 DONE+5!, PP+5*, PP1+1*, PP2+1, PP3*
PSJSEL EN+3!, DONE+4!
PSJSEL( ENQ+1
PSJSEL("P" ENQ+3, ENQ+4, ENLM+3*
PSJSEL("RBP" EN+4*, PAT+1
PSJSEL("SELECT" EN+3*, EN+4*, GO+1, ENQ+3, ENQ+5, PP+3, ENLM+3*
PSJSEL("TM" PAT+2
PSJSEL("WG" EN+4
PSJSS DONE+4!
PSJSSH DONE+4!
PSJSTOP PSJCLOR4+6~, EN+3, EN+4
>> PSJSYSP0 DEV+1
PSJTEAM PSJCLOR4+6~
PX DONE+5!
Q DONE+3!, GO+3
QFLG PSJCLOR4+5~
RB DONE+5!, PAT+1*, PAT+2
RCT DONE+5!
RF DONE+5!
SD DONE+5!
SLS DONE+5!
SSN DONE+5!
STDTE DONE+3!, PC+2*, PC+3*, PC+4, PC+5*, PC+6*, PC+7
SUB DONE+5!
TF DONE+5!
TMPY A25V+1~, A25V2+8*, A25V2+9, A25V2+10
U ENQ+1, PAT+1, PP2+1, A25V2+4
UD DONE+5!
WD DONE+5!
WDP DONE+5!
WT DONE+5!
X DONE+3!, DEV+2*, ENQ+1*, ENQ+3, ENQ+4, PG+1, PAT+1*, PAT+4, PAT1+2, PP+1
PP+5*, PP+7, PP3*, A34+6*, A34+7, A34+8, A34+9*, A34+10, A25NV+2*, A25NV+3*
A25NV+4, A25NV+5*, A25NV+6, A25V+1~, A25V2+4*, A25V2+5*, A25V2+6*, A25V2+7, A25V2+9!, A25V2+12*
A25V2+13*, A25V2+14, A25V2+17*
XQUIT EN+1, EN+3, DONE+5!, ENLM+3*
Y DONE+3!, GO+2, DEV+4, ENQ+1*, PAT+3*, A34+8, A34+11, A25NV+4, A25NV+7, A25V2+4*
A25V2+6, A25V2+8, A25V2+9!, A25V2+12, A25V2+17
Z W34+1~, W34+2, W25+1~, W25+2, A25V2+14
ZTDESC DONE+3!, DEV+2*
ZTOUT DONE+5!
ZTSAVE DEV+2!
ZTSAVE( DEV+2*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All