Routine: PSIVUDL

Package	Total	Call Graph
Inpatient Medications	6	($$ENDTC,$$ENDTC1)^PSGMI RPHINIT^PSGMIV NAME^PSIVUTL ENIV^PSJAC $$ONE^PSJBCMA $$LASTREN^PSJLMPRI
IHS Patient	1	$$HRN^AUPNPAT

Package	Total	Caller Graph
Inpatient Medications	2	PSGL PSGL0

Entry Points

Name	Comments	DBIA/ICR reference
ENP	; Print MAR label for IV order.
NXTLNE(NL)	; Print info to right of drug (x=line number,NL=new label)
DONE	;
EN(DFN,ON,PSJLWD,PSJLRB)	; Entry to print MAR label for all types of IV orders.

External References

Name	Field # of Occurrence
$$HRN^AUPNPAT	ENP+9
$$ENDTC^PSGMI	NXTLNE+4, NXTLNE+7
$$ENDTC1^PSGMI	EN+7
RPHINIT^PSGMIV	EN+8
NAME^PSIVUTL	ENP+14, ENP+17
ENIV^PSJAC	EN+1
$$ONE^PSJBCMA	EN+5
$$LASTREN^PSJLMPRI	ENP+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(13),?1,$E(P("LOG"),1,5)," \|",X,?36,"(",$S($G(PSJPBID):PSJPBID,$G(PSGLBID):PSGLBID,$G(PSGLSSN):PSGLSSN,1:$$HRN^AUPNPAT(DFN,$G(DUZ(2)))),")",?42,"\|",$G(PSJLAT(1)),?52,VADM(1),?88,$J($S(PSJLRB]"":PSJLRB,1:"NF"),12) Line Location: ENP+9
Function Call: WRITE	Prompt: ! Line Location: ENP+14
Function Call: WRITE	Prompt: ?1,NAME(Y) Line Location: ENP+14
Function Call: WRITE	Prompt: ?4,NAME(Y) Line Location: ENP+15
Function Call: WRITE	Prompt: ?4,NAME(Y) Line Location: ENP+18
Function Call: WRITE	Prompt: !?7,PSJPRT2 Line Location: ENP+19
Function Call: WRITE	Prompt: "CAUTION-CHEMOTHERAPY" Line Location: ENP+22
Function Call: WRITE	Prompt: ?1,"" Line Location: ENP+23
Function Call: WRITE	Prompt: ?1 Line Location: ENP+24
Function Call: WRITE	Prompt: ?1,PSJCONT Line Location: ENP+28
Function Call: WRITE	Prompt: ?1 Line Location: ENP+28
Function Call: WRITE	Prompt: ?24,"RPH:",PSJRPH,?33," RN:",PSGLRN Line Location: ENP+31
Function Call: WRITE	Prompt: ! Line Location: ENP+31
Function Call: WRITE	Prompt: ?24,"RPH:",$S(PSJRPH]"":PSJRPH,1:"_____"),?33," RN:_____" Line Location: ENP+32
Function Call: WRITE	Prompt: ! Line Location: ENP+32
Function Call: WRITE	Prompt: ?43,"\|",$G(PSJLAT(PSJCNT)) Line Location: NXTLNE+3
Function Call: WRITE	Prompt: ?52,$P(VADM(2),U,2),?70,$E($$ENDTC^PSGMI(+VADM(3)),1,8)," (",VADM(4),")",?85,$J($S(PSJTM]"":PSJTM,1:"NOT FOUND"),15) Line Location: NXTLNE+3
Function Call: WRITE	Prompt: ?42,PSGLST Condition for execution: PSJCNT=2 Line Location: NXTLNE+4
Function Call: WRITE	Prompt: ?43,"\|",$G(PSJLAT(PSJCNT)) Line Location: NXTLNE+4
Function Call: WRITE	Prompt: ?52,$G(PSJPPID),?70,$E($$ENDTC^PSGMI(+VADM(3)),1,8)," (",VADM(4),")",?85,$J($S(PSJTM]"":PSJTM,1:"NOT FOUND"),15) Line Location: NXTLNE+4
Function Call: WRITE	Prompt: ?52,$S(VADM(5)]"":$P(VADM(5),U,2),1:"____"),?65,"DX: ",VAIN(9) Line Location: NXTLNE+5
Function Call: WRITE	Prompt: ?52,$S(PSJWGN]"":$E(PSJWGN,1,21),1:"NOT FOUND"),?79,$J($S($P(PSJLWD,U,2)]"":$P(PSJLWD,U,2),1:"NOT FOUND"),21) Line Location: NXTLNE+9
Function Call: WRITE	Prompt: !,?1 Line Location: NXTLNE+10
Function Call: WRITE	Prompt: !,?1 Line Location: NXTLNE+10
Function Call: WRITE	Prompt: ?1,PSJCONT Line Location: NXTLNE+11

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(52.6 - [#52.6]	ENP+14
^PS(52.7 - [#52.7]	ENP+19
^PS(53.1 - [#53.1]	EN+4, ENP+1
^PS(55 - [#55]	EN+3, ENP+1
^PS(57.5 - [#57.5]	EN+2
^PS(57.7 - [#57.7]	EN+2
^VA(200 - [#200]	ENP+11

Label References

Name	Line Occurrences
@(	EN+3
NXTLNE	ENP+14, ENP+18, ENP+19, ENP+21, ENP+22, ENP+24, ENP+26, ENP+28, ENP+29, ENP+30 , ENP+31, NXTLNE+11

Naked Globals

Name	Field # of Occurrence
^(	EN+4
^(0	ENP+11, ENP+14

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DFN	EN~, EN+3, EN+5, ENP+1, ENP+2, ENP+9
DRG	DONE+1!
DRG("AD"	ENP+14
DRG("SOL"	ENP+17, ENP+19
DUZ(2	ENP+9
MSG	EN+3, ENP+12, ENP+14*, ENP+20, DONE+1!
NAME	ENP+13~, ENP+14, ENP+17
NAME(	ENP+14, ENP+17, ENP+18
NL	DONE+1!, NXTLNE~, NXTLNE+10*, NXTLNE+11
ON	EN~, EN+3, EN+4, EN+5, EN+6, ENP+1, ENP+2, ENP+4
ON55	EN+3!, DONE+1!
P	DONE+1!
P(	EN+7*
P("LOG"	ENP+9
P("MR"	ENP+21
P("OPI"	EN+4, ENP+20, ENP+21, ENP+22, ENP+23, ENP+24
P(11	EN+5
P(17	EN+9
P(2	EN+5, ENP+4, ENP+5
P(3	EN+5, ENP+5
P(4	ENP+21, ENP+22
P(8	ENP+21
P(9	EN+5, ENP+21
>> PSGLBID	ENP+9
PSGLREN	ENP+2~*, ENP+3
>> PSGLRN	ENP+1, ENP+3, ENP+4, ENP+10, ENP+11, ENP+31
PSGLRNDT	ENP+3~*
>> PSGLSSN	ENP+9
>> PSGLST	EN+5, EN+6, NXTLNE+4
PSJACNWP	EN+1*, DONE+1!
PSJCNT	ENP+12, ENP+21, ENP+27, ENP+28, ENP+29, ENP+30, ENP+31, DONE+1!, NXTLNE+4, NXTLNE+5 , NXTLNE+6, NXTLNE+9, NXTLNE+10, NXTLNE+11
>> PSJCONT	ENP+12*, ENP+28, NXTLNE+11
PSJLABEL	EN+1~*
PSJLAT	EN+3!, EN+5*, EN+9, EN+12, EN+13, EN+14, EN+15, DONE+1!
PSJLAT(	EN+11, EN+15, ENP+21, ENP+27, ENP+29, ENP+31, NXTLNE+4
PSJLAT(0	EN+9*, EN+10, EN+12, EN+13, EN+14, EN+15
PSJLAT(1	EN+9, EN+13, EN+14*, ENP+9
PSJLAT(2	EN+9*
PSJLAT(3	EN+9, EN+12, EN+14*
PSJLAT(4	EN+9*
PSJLAT(5	EN+9, EN+13, EN+14*
PSJLDT	EN+3*, DONE+1!, NXTLNE+6, NXTLNE+7
PSJLR	EN+3*, DONE+1!, NXTLNE+6
PSJLRB	EN~, EN+2, ENP+9
PSJLWD	EN~, EN+2, NXTLNE+9
>> PSJPBID	ENP+9
>> PSJPPID	NXTLNE+4
PSJPRT2	ENP+16~, ENP+19*
PSJRPH	EN+3*, EN+8, ENP+31, DONE+1!
PSJTM	EN+2*, DONE+1!, NXTLNE+4
PSJWGN	EN+2*, DONE+1!, NXTLNE+9
U	EN+2, EN+3, ENP+14, ENP+19, ENP+21, NXTLNE+5, NXTLNE+9
VADM	EN+1~
VADM(1	ENP+9
VADM(3	NXTLNE+4
VADM(4	NXTLNE+4
VADM(5	NXTLNE+5
VAIN	EN+1~
VAIN(9	NXTLNE+5
X	EN+3, EN+4, EN+7, EN+9, EN+11, EN+15, ENP+4, ENP+5, ENP+9, ENP+11* , ENP+12, ENP+14, ENP+17*, ENP+19, DONE+1!
Y	ENP+14, ENP+17, ENP+18, ENP+23, ENP+24, DONE+1!, NXTLNE+1~, NXTLNE+6, NXTLNE+8
Y1	ENP+24*, ENP+25, DONE+1!

Customize PDF page

Package: Inpatient Medications

Routine: PSIVUDL

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: