Routine: PSJCOM1

Package	Total	Call Graph
Inpatient Medications	12	$$ENDTC^PSGMI EN^PSGPEN GTDRG^PSIVORFA GTDRG^PSIVORFB (GTOT,NAME)^PSIVUTL $$ONE^PSJBCMA ($$ISCLOZ,DISPCMP,PSJFILE)^PSJCLOZ EN1^PSJHL2 GETUD^PSJLMGUD INIT^PSJLMUDE DRGDISP^PSJLMUT1 SETOC^PSJNEWOC
VA FileMan	3	NOW^%DTC ^DIE ^DIR
List Manager	1	($$SETSTR,FULL)^VALM1
Mental Health	1	INPSND^YSCLTST5

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

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

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

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: CMPLX+11
Function Call: WRITE	Prompt: ! Line Location: CMPLX2+16
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+32
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+26, NEW+29
^PS(55 - [#55]	CMPLX+6, DSPLORDV+3, NEW+9
^TMP("PSJCOM"	NEW+3, NEW+5
^TMP("PSODAOC"	CMPLX2+14*
^TMP($J	CMPLX2+7!

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

Name	Field # of Occurrence
^(	NEW+20*, NEW+26, NEW+29
^(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, DONE+1!
C	NEW+26, NEW+27, NEW+29, NEW+30, NEW+31, DONE+1!
CLOZFLG	CMPLX2+3~, CMPLX2+4, CMPLX2+5, CMPLX2+6
D	NEW+26*, 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+13, DSPLORDU+16
DRUGNAME(1	DSPLORDU+15*
DT	NEW+26
DUZ	NEW+15, NEW+16
F	DSPLORDU+1~, DSPLORDU+2, DSPLORDU+3, NEW+18, NEW+20, NEW+21*, NEW+23, NEW+24, NEW+26, NEW+27 , NEW+29, NEW+30, NEW+31
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!
ND2P1	NEW+14*, NEW+24, 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, DSPLORDU+12
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+16, 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
PSGDN	CMPLX2+6~*
PSGDO	NEW+20, DONE+1!
PSGDRG	DONE+1!
PSGDRGN	DONE+1!
>> PSGDT	NEW+8*, NEW+12, NEW+16
>> PSGDUR	NEW+14
>> 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+27, NEW+30, NEW+31
>> 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+3, CMPLX2+4, CMPLX2+11 , CMPLX2+12, CMPLX2+13, CMPLX2+14, CMPLX2+15, DSPLORDU+12~*, NEW+2, NEW+3, NEW+5, NEW+8, NEW+13 , NEW+21
PSGP	CMPLX~, CMPLX+5, CMPLX+7, CMPLX2~, CMPLX2+3, CMPLX2+7, CMPLX2+11, DSPLORDU~, DSPLORDU+4, DSPLORDU+5 , NEW+9, NEW+12, NEW+21, EXPIRE+3, EXPIRE+4
>> PSGPD	NEW+4
>> PSGPDN	DSPLORDU+12, NEW+4
PSGPDRG	NEW+4*, NEW+20, DONE+1!
PSGPDRGN	NEW+4*, DONE+1!
PSGPO	EXPIRE+1~, EXPIRE+3*
>> PSGPR	NEW+4, NEW+12
>> PSGRF	NEW+14, NEW+24
>> PSGRMV	NEW+14
>> PSGRMVT	NEW+14
>> 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+12, DSPLORDU+16, 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+14
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+9~, CMPLX2+12, DSPLORDU+16, DSPLORDU+17, SETTMP+1*
>> PSJNOO	NEW+20
PSJO	CMPLX+4~, CMPLX+5, CMPLX+6~, CMPLX2+14
PSJOO	CMPLX+5, CMPLX+6~, CMPLX+7, EXPIRE+2, EXPIRE+3, EXPIRE+4
PSJORIFN	DSPLORDV+1~
>> PSJOWALL	NEW+9*
>> PSJPWD	NEW+13
>> PSJSYSP	NEW+26, NEW+29
>> PSJSYSU	NEW+15, NEW+16
PSJX	DSPLORDU+1~, DSPLORDU+13*, DSPLORDU+14, DSPLORDU+15, DSPLORDU+16
PSSD	DSPLORDU+12*!
PSX	CMPLX+2~, CMPLX+9*, CMPLX+10
Q	NEW+29*, DONE+1!
SCH	DSPLORDU+1~, DSPLORDU+6, DSPLORDU+11, DSPLORDU+14
SD	DSPLORDU+1~, DSPLORDU+10, DSPLORDU+11, DSPLORDU+12*, DSPLORDU+14
STAT	DSPLORDU+1~, DSPLORDU+7, DSPLORDU+8, DSPLORDU+9*, DSPLORDU+10, DSPLORDU+11, DSPLORDU+14
>> STATUS	EXPIRE+3*
TYP	DSPLORDV+1~, DSPLORDV+2, DSPLORDV+5, PIV1+3, PIV1+4
U	CMPLX2+6, DSPLORDU+5, DSPLORDU+6, DSPLORDU+7, DSPLORDU+8, DSPLORDU+9, DSPLORDU+10, DSPLORDV+3, DSPLORDV+8, NEW+10 , NEW+12, NEW+13, NEW+14, NEW+15, NEW+16, NEW+17, NEW+20, NEW+21, NEW+26, NEW+27 , NEW+30, NEW+31
>> VALM("TM"	HOLDHDR+1
>> VALMBCK	UPDATE+1*
X	DSPLORDU+1~, DSPLORDU+14, DSPLORDU+15, DSPLORDV+1~, DSPLORDV+3, PIV1+2, NEW+26, NEW+29*
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: 17

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 14

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: