Routine: PSJCOM1

Package	Total	Call Graph
Inpatient Medications	10	$$ENDTC^PSGMI EN^PSGPEN GTDRG^PSIVORFA GTDRG^PSIVORFB (GTOT,NAME)^PSIVUTL $$ONE^PSJBCMA EN1^PSJHL2 GETUD^PSJLMGUD INIT^PSJLMUDE DRGDISP^PSJLMUT1
VA Fileman	3	NOW^%DTC ^DIE ^DIR
Registration	1	($$SETSTR,FULL)^VALM1

Package	Total	Caller Graph
Inpatient Medications	13	PSGOE9 PSGOE91 PSGOE92 PSGOEC PSGOECS PSGOEE PSIVEDT PSIVSPDC PSJCOMR PSJLIACT PSJOEA PSJOEA1 PSJOEA2

Name	Comments	DBIA/ICR reference
PIV1	; Print Sched type, start/stop dates, and status.
PIVAD	; Print IV Additives.
HOLDHDR	; Freeze header text while processing order actions
CMPLX2(PSGP,ON,PSGORD)	;
DSPLORDV(DFN,ON)
CMPLX(PSGP,ON,PSGORD)	;
UPDATE	; Refresh array, actions, & display.
SOL	;
EXPIRE	;Change status of order to expired and send notice to OE/RR
PAUSE	;
DONE	;
NEW	;
OUT	;
DSPLORDU(PSGP,ON)
SETTMP	;

Name	Field # of Occurrence
NOW^%DTC	DSPLORDU+8, DSPLORDV+4, NEW+8
^DIE	EXPIRE+3
^DIR	PAUSE+1
$$ENDTC^PSGMI	DSPLORDU+10, PIV1+2
EN^PSGPEN	CMPLX2+6
GTDRG^PSIVORFA	DSPLORDV+8
GTDRG^PSIVORFB	DSPLORDV+6
GTOT^PSIVUTL	DSPLORDV+6, DSPLORDV+8
NAME^PSIVUTL	SOL+2, PIVAD+1
$$ONE^PSJBCMA	DSPLORDV+5
EN1^PSJHL2	EXPIRE+4
GETUD^PSJLMGUD	UPDATE+1
INIT^PSJLMUDE	UPDATE+1
DRGDISP^PSJLMUT1	DSPLORDU+4
$$SETSTR^VALM1	DSPLORDU+14, SOL+2, PIVAD+1, PIV1+3, PIV1+4
FULL^VALM1	CMPLX2+3

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: CMPLX+11
Function Call: WRITE	Prompt: ! Line Location: CMPLX2+7
Function Call: WRITE	Prompt: IOSC Line Location: HOLDHDR+1
Function Call: WRITE	Prompt: @IOSTBM Line Location: HOLDHDR+1
Function Call: WRITE	Prompt: @IOSTBM Line Location: HOLDHDR+1
Function Call: WRITE	Prompt: ! Line Location: PAUSE+1
Function Call: WRITE	Prompt: ! Line Location: PAUSE+1
Function Call: WRITE	Prompt: "." Line Location: NEW+31
Routine Call	DIE Line Location: EXPIRE+3
Routine Call	DIR Line Location: PAUSE+1

Name	Line Occurrences (* Changed, ! Killed)
^PS(51.2 - [#51.2]	NEW+10
^PS(53.1 - [#53.1]	CMPLX+4, DSPLORDV+8, NEW+3
^PS(53.45 - [#53.45]	NEW+25, NEW+28
^PS(55 - [#55]	CMPLX+6, DSPLORDV+3, NEW+9
^TMP("PSJCOM"	NEW+3, NEW+5

Name	Line Occurrences
DSPLORDU	CMPLX+5, CMPLX+7, CMPLX2+4
DSPLORDV	CMPLX+7, DSPLORDU+5
EXPIRE	DSPLORDU+8, DSPLORDV+4
PAUSE	CMPLX+1, CMPLX+10, CMPLX2+5
PIV1	SOL+2, PIVAD+1
PIVAD	DSPLORDV+9
SETTMP	SOL+2, PIVAD+1
SOL	DSPLORDV+9

Name	Field # of Occurrence
^(	NEW+20*, NEW+25, NEW+28
^(0	NEW+5*, NEW+10
^(2	DSPLORDV+8
^(4	NEW+23*
^(6	NEW+23*
^(8	DSPLORDV+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	DSPLORDU+8, DSPLORDV+4, NEW+8
C	NEW+25, NEW+26, NEW+28, NEW+29, NEW+30, DONE+1!
D	NEW+25*, DONE+1!
DA	NEW+8!, NEW+12, NEW+13, NEW+18, EXPIRE+1~, EXPIRE+3
DA(1	EXPIRE+3*
DFN	UPDATE+1, DSPLORDV~, DSPLORDV+3, DSPLORDV+5
DIE	EXPIRE+1~, EXPIRE+3*
DIR	PAUSE+1!
DIR("A"	PAUSE+1*
DIR(0	PAUSE+1*
DR	EXPIRE+1~, EXPIRE+3*
DRG	DSPLORDV+1~, SOL+2, PIVAD+1
DRG("AD"	PIVAD+1
DRG("SOL"	SOL+2
DRGI	DSPLORDV+1~
DRGT	DSPLORDV+1~
DRGX	DSPLORDV+1~, SOL+2, PIVAD+1
DRUGNAME	DSPLORDU+1~, DSPLORDU+4
DRUGNAME(	DSPLORDU+12, DSPLORDU+15
DRUGNAME(1	DSPLORDU+14*
DT	NEW+25
DUZ	NEW+15, NEW+16
F	DSPLORDU+1~, DSPLORDU+2, DSPLORDU+3, NEW+18, NEW+20, NEW+21*, NEW+23, NEW+25, NEW+26, NEW+28 , NEW+29, NEW+30
FIL	DSPLORDV+1~
>> IOBM	HOLDHDR+1*
>> IORC	HOLDHDR+1
>> IOSC	HOLDHDR+1
IOSL	HOLDHDR+1
>> IOSTBM	HOLDHDR+1
>> IOTM	HOLDHDR+1*
>> NAME	SOL+2, PIVAD+1
>> NAME(	SOL+2, PIVAD+1
ND	DSPLORDV+1~, NEW+12, NEW+13, NEW+18, DONE+1!
ND2	NEW+13*, NEW+23, DONE+1!
ND4	NEW+8!, NEW+15, NEW+16, NEW+17*, NEW+23, DONE+1!
NODE0	DSPLORDU+1~, DSPLORDU+3*, DSPLORDU+5, DSPLORDU+6, DSPLORDU+7, DSPLORDU+9
NODE2	DSPLORDU+1~, DSPLORDU+3*, DSPLORDU+8, DSPLORDU+10
ON	CMPLX~, CMPLX+4, CMPLX+6, CMPLX+8~*, CMPLX+9, CMPLX+10, CMPLX2~, UPDATE+1, DSPLORDU~, DSPLORDU+2 , DSPLORDU+4, DSPLORDU+5, DSPLORDU+15, DSPLORDV~, DSPLORDV+2, DSPLORDV+3, DSPLORDV+5, DSPLORDV+6, DSPLORDV+8, SETTMP+1
ON55	DSPLORDV+1~, DSPLORDV+6*
P	DSPLORDV+1~
P(	DSPLORDV+3, PIV1+2
P("OT"	DSPLORDV+6*
P(17	DSPLORDV+4, DSPLORDV+8, PIV1+3, PIV1+4
P(2	DSPLORDV+5, DSPLORDV+8*, PIV1+3, PIV1+4
P(3	DSPLORDV+4, DSPLORDV+5, DSPLORDV+8*, PIV1+3, PIV1+4
P(4	DSPLORDV+6, DSPLORDV+8*
P(8	DSPLORDV+8*
P(9	DSPLORDV+5, DSPLORDV+8*
PSCM	CMPLX+2~
>> PSGAT	NEW+4
PSGDO	NEW+20, DONE+1!
PSGDRG	DONE+1!
PSGDRGN	DONE+1!
>> PSGDT	NEW+8*, NEW+12, NEW+16
>> PSGFD	NEW+4
PSGFOK	DONE+1!
PSGHSM	NEW+12, DONE+1!
PSGMR	NEW+10, NEW+12, DONE+1!
PSGMRN	NEW+10*, DONE+1!
PSGNEDFD	NEW+12, DONE+1!
PSGNEFD	NEW+4*, NEW+13, DONE+1!
PSGNESD	NEW+4*, NEW+11, NEW+13, DONE+1!
>> PSGOEAV	NEW+6, NEW+12, NEW+13, NEW+15, NEW+26, NEW+29, NEW+30
>> PSGOEE	NEW+4*, NEW+6, NEW+13
>> PSGOEPR	NEW+4*
>> PSGOES	NEW+6
PSGOETOF	NEW+6*, OUT+1!
PSGORD	CMPLX~, CMPLX+4, CMPLX+5, CMPLX+6, CMPLX+7, CMPLX2~, CMPLX2+1, CMPLX2+4, CMPLX2+5, CMPLX2+6 , NEW+2, NEW+3, NEW+5, NEW+8, NEW+13, NEW+21
PSGP	CMPLX~, CMPLX+5, CMPLX+7, CMPLX2~, CMPLX2+4, DSPLORDU~, DSPLORDU+4, DSPLORDU+5, NEW+9, NEW+12 , NEW+21, EXPIRE+3, EXPIRE+4
>> PSGPD	NEW+4
>> PSGPDN	NEW+4
PSGPDRG	NEW+4*, NEW+20, DONE+1!
PSGPDRGN	NEW+4*, DONE+1!
PSGPO	EXPIRE+1~, EXPIRE+3*
>> PSGPR	NEW+4, NEW+12
>> PSGS0XT	NEW+11, NEW+13
>> PSGS0Y	NEW+4, NEW+11, NEW+13
>> PSGSCH	NEW+13
>> PSGSD	NEW+4
PSGSI	NEW+23, DONE+1!
>> PSGSM	NEW+6*, NEW+12
>> PSGST	NEW+12
PSGSTN	DONE+1!
PSIVACT	EXPIRE+1~, EXPIRE+3*
PSJCM	CMPLX+1!, DSPLORDU+1!
PSJCM(	CMPLX+5, CMPLX+7, CMPLX+8, CMPLX+9, CMPLX+10, CMPLX2+5, DSPLORDU+15, SETTMP+1
>> PSJCOM	NEW+1, NEW+20
>> PSJCT	DSPLORDV+7*
PSJDOSE	DONE+1!
PSJDOSE("DO"	NEW+20, NEW+21
>> PSJEXTP	PIV1+2, PIV1+3
PSJID	DSPLORDU+1~, DSPLORDU+10, DSPLORDU+11, DSPLORDU+13
PSJIVFLG	DSPLORDV+1~, DSPLORDV+9*, SOL+1, SOL+2, PIVAD+1, PIV1+1!
>> PSJL	DSPLORDV+7, SOL+1, SOL+2, PIVAD+1, PIV1+3, PIV1+4, SETTMP+1
PSJLINE	CMPLX+2~, CMPLX+3, CMPLX+5, CMPLX+7, CMPLX2+2~, CMPLX2+5, DSPLORDU+15, DSPLORDU+16, SETTMP+1*
>> PSJNOO	NEW+20
PSJO	CMPLX+4~, CMPLX+5, CMPLX+6~
PSJOO	CMPLX+5, CMPLX+6~, CMPLX+7, EXPIRE+2, EXPIRE+3, EXPIRE+4
PSJORIFN	DSPLORDV+1~
>> PSJOWALL	NEW+9*
>> PSJPWD	NEW+13
>> PSJSYSP	NEW+25, NEW+28
>> PSJSYSU	NEW+15, NEW+16
PSJX	DSPLORDU+1~, DSPLORDU+12*, DSPLORDU+13, DSPLORDU+14, DSPLORDU+15
PSX	CMPLX+2~, CMPLX+9*, CMPLX+10
>> Q	NEW+28*
SCH	DSPLORDU+1~, DSPLORDU+6, DSPLORDU+11, DSPLORDU+13
SD	DSPLORDU+1~, DSPLORDU+10, DSPLORDU+11, DSPLORDU+13
STAT	DSPLORDU+1~, DSPLORDU+7, DSPLORDU+8, DSPLORDU+9*, DSPLORDU+10, DSPLORDU+11, DSPLORDU+13
>> STATUS	EXPIRE+3*
TYP	DSPLORDV+1~, DSPLORDV+2, DSPLORDV+5, PIV1+3, PIV1+4
U	DSPLORDU+5, DSPLORDU+6, DSPLORDU+7, DSPLORDU+8, DSPLORDU+9, DSPLORDU+10, DSPLORDV+3, DSPLORDV+8, NEW+10, NEW+12 , NEW+13, NEW+15, NEW+16, NEW+17, NEW+20, NEW+21, NEW+25, NEW+26, NEW+29, NEW+30
>> VALM("TM"	HOLDHDR+1
>> VALMBCK	UPDATE+1*
X	DSPLORDU+1~, DSPLORDU+13, DSPLORDU+14, DSPLORDV+1~, DSPLORDV+3, PIV1+2, NEW+25, NEW+28*
Y	DSPLORDU+1~, DSPLORDV+1~, DSPLORDV+3, DSPLORDV+8

Customize PDF page

Package: Inpatient Medications

Routine: PSJCOM1

Information

Source Information

Call Graph

Call Graph Total: 14

Caller Graph

Caller Graph Total: 13

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: