Routine: PSJCLOR4

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

Package	Total	Caller Graph
Inpatient Medications	3	PSJCLOR1 PSJCLOR2 PSJCLOR3

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

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

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*

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

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*

Customize PDF page

Package: Inpatient Medications

Routine: PSJCLOR4

Information

Source Information

Call Graph

Call Graph Total: 29

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: