Routine: PSGMIV

Package	Total	Call Graph
Inpatient Medications	12	SPN^PSGMAR0 (BOT,HEADER,TMSTR,TS)^PSGMAR3 $$ENDTC1^PSGMI ONHOLD^PSGMMAR2 INITOPI^PSGMMIVC ENIV^PSGPL0 EN^PSGS0 GT531^PSIVORFA GT55^PSIVORFB NAME^PSIVUTL $$ONE^PSJBCMA NAMENEED^PSJMUTL
VA Fileman	1	C^%DTC

Package	Total	Caller Graph
Inpatient Medications	5	PSGMAR0 PSGMAR2 PSGMMIVC PSIVUDL PSJORMA2

Entry Points

Name	Comments	DBIA/ICR reference
PRT	;*** Print IV orders.
ORSET	; order record set
DEFINIT(X)	;
LNNEED	;*** Find lines needed per label.
PRTIV	;*** Print IV order on MAR
IV	;*** Sort IV orders for 24 Hrs MAR.
START	;*** Read IV orders
L(X)	;***Check to see if a new block is needed.
RPHINIT(RPH)	; Find initial for the person who completed the IV order.
OS	; order record set
SETL0	;*** Set variable to use in ^PSGPL0 to calculate admin time.

External References

Name	Field # of Occurrence
C^%DTC	IV+22
SPN^PSGMAR0	IV+12, IV+26, IV+29
BOT^PSGMAR3	PRTIV+2, L+5
HEADER^PSGMAR3	PRTIV+2, L+5
TMSTR^PSGMAR3	PRTIV+14, PRTIV+18, PRTIV+19
TS^PSGMAR3	PRT+4
$$ENDTC1^PSGMI	PRT+5
ONHOLD^PSGMMAR2	PRTIV+1
INITOPI^PSGMMIVC	PRT+8
ENIV^PSGPL0	SETL0+3
EN^PSGS0	ORSET+2
GT531^PSIVORFA	PRT+3
GT55^PSIVORFB	IV+1, PRT+2
NAME^PSIVUTL	PRTIV+14, PRTIV+17
$$ONE^PSJBCMA	IV+4, PRT+6
NAMENEED^PSJMUTL	LNNEED+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?6,"\|",?19,"\|",?48,PSGL,$G(TS(1)),?55,"\|" Line Location: PRTIV+4
Function Call: WRITE	Prompt: !,$E(P("LOG"),1,5)," \|" Line Location: PRTIV+5
Function Call: WRITE	Prompt: "O N H O L D" Line Location: PRTIV+7
Function Call: WRITE	Prompt: $E(P(2),1,5)_$E(P(2),9,14)," \|",P(3) Line Location: PRTIV+8
Function Call: WRITE	Prompt: ?39,"(",$E(PSGP(0))_$E(PSSN,8,12)_")" Line Location: PRTIV+11
Function Call: WRITE	Prompt: ?48,PSGL,$G(TS(2)),?55,"\|" Line Location: PRTIV+12
Function Call: WRITE	Prompt: !,NAME(Y) Line Location: PRTIV+14
Function Call: WRITE	Prompt: ?47,PSGST Condition for execution: L=3 Line Location: PRTIV+14
Function Call: WRITE	Prompt: ?48,PSGL,$G(TS(L)),?55,"\|" Line Location: PRTIV+14
Function Call: WRITE	Prompt: ! Condition for execution: (Y>1!(PSIVX>1)) Line Location: PRTIV+18
Function Call: WRITE	Prompt: ?4,NAME(Y) Line Location: PRTIV+18
Function Call: WRITE	Prompt: ?47,PSGST Condition for execution: L=3 Line Location: PRTIV+18
Function Call: WRITE	Prompt: ?48,PSGL,$G(TS(L)),?55,"\|" Line Location: PRTIV+18
Function Call: WRITE	Prompt: !?7,PSJPRT2 Line Location: PRTIV+19
Function Call: WRITE	Prompt: ?47,PSGST Condition for execution: L=3 Line Location: PRTIV+19
Function Call: WRITE	Prompt: ?48,PSGL,$G(TS(L)),?55,"\|" Line Location: PRTIV+19
Function Call: WRITE	Prompt: !,$P(P("MR"),U,2)," ",P(9)," ",P(8) Line Location: PRTIV+20
Function Call: WRITE	Prompt: ?48,PSGL,$G(TS(L)),?55,"\|" Line Location: PRTIV+20
Function Call: WRITE	Prompt: ?48,PSGL,$G(TS(L)),?55,"\|" Line Location: PRTIV+20
Function Call: WRITE	Prompt: !?48,PSGL,$G(TS(L)),?55,"\|" Line Location: PRTIV+21
Function Call: WRITE	Prompt: !,"CAUTION-CHEMOTHERAPY" Line Location: PRTIV+22
Function Call: WRITE	Prompt: !,"CAUTION-CHEMOTHERAPY",?48,PSGL,$G(TS(L)),?55,"\|" Line Location: PRTIV+23
Function Call: WRITE	Prompt: ! Line Location: PRTIV+27
Function Call: WRITE	Prompt: Y1," " Line Location: PRTIV+33
Function Call: WRITE	Prompt: ?48,PSGL,$G(TS(L)),?55,"\|" Line Location: PRTIV+34
Function Call: WRITE	Prompt: ! Line Location: PRTIV+34
Function Call: WRITE	Prompt: ?48,PSGL,$G(TS(L)),?55,"\|" Line Location: PRTIV+35
Function Call: WRITE	Prompt: ! Condition for execution: L#6=0 Line Location: PRTIV+35
Function Call: WRITE	Prompt: ?48,PSGL,$G(TS(L)),?55,"\|" Line Location: PRTIV+36
Function Call: WRITE	Prompt: !?48,PSGL,$G(TS(L)),?55,"\|" Line Location: PRTIV+37
Function Call: WRITE	Prompt: !?48,PSGL,$G(TS(L)),?55,"\|" Line Location: PRTIV+39
Function Call: WRITE	Prompt: ! Line Location: PRTIV+40
Function Call: WRITE	Prompt: ! Line Location: PRTIV+41
Function Call: WRITE	Prompt: ?29,"RPH: ",PSGLRPH,?38,"RN: ",PSGLRN,?48,PSGL,$G(TS(L)),?55,"\|" Line Location: PRTIV+42
Function Call: WRITE	Prompt: !?7,LN2 Condition for execution: PSGMAROC<6 Line Location: PRTIV+42
Function Call: WRITE	Prompt: !,"See next label for continuation",?48,PSGL,$G(TS(L)),?55,"\|" Line Location: L+3
Function Call: WRITE	Prompt: !?7,LN2 Condition for execution: PSGMAROC<6 Line Location: L+3
Function Call: WRITE	Prompt: !,"See next label for continuation",?48,PSGL,$G(TS(L)),?55,"\|" Line Location: L+4
Function Call: WRITE	Prompt: !?7,LN2,! Condition for execution: PSGMAROC<6 Line Location: L+4

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(52.7 - [#52.7]	PRTIV+19
^PS(55 - [#55]	START+2, IV+10, RPHINIT+1
^TMP($J	IV+10, IV+15, IV+16, IV+17, IV+34, IV+36*
^VA(200 - [#200]	DEFINIT+1
^XTMP(	IV+23, IV+25, IV+28*

Label References

Name	Line Occurrences
$$DEFINIT	RPHINIT+2
IV	START+2
L	PRTIV+14, PRTIV+18, PRTIV+19, PRTIV+23, PRTIV+26, PRTIV+34, PRTIV+37
LNNEED	PRT+10
ORSET	PRT+4
PRTIV	PRT+10
SETL0	ORSET+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	IV+22!
%H	IV+22!
%T	IV+22!
A	IV+9~, IV+10*
CD	ORSET+6!
>> DAO	PRT+2
>> DFN	IV+1, IV+4, PRT+2, PRT+3, PRT+6
DRG	IV+1!, IV+8, PRT+1!
DRG("AD"	IV+8, PRTIV+14, PRTIV+21
DRG("SOL"	IV+8, PRTIV+15, PRTIV+17, PRTIV+19, PRTIV+21
DT	IV+22, IV+23
>> FD	ORSET+2*
HCD	ORSET+6!
HM	ORSET+6!
I	ORSET+6!
J	ORSET+6!
>> L	PRTIV+12, PRTIV+14, PRTIV+18, PRTIV+19, PRTIV+20, PRTIV+21, PRTIV+22, PRTIV+23, PRTIV+25, PRTIV+32 , PRTIV+34, PRTIV+35, PRTIV+36, PRTIV+37, PRTIV+38, PRTIV+39, PRTIV+40, PRTIV+41, PRTIV+42, L+1* , L+4*
LN	PRT+1~, LNNEED+8*, PRTIV+2, L+5
>> LN2	PRTIV+42, L+4
M	ORSET+6!
MID	ORSET+6!
MN	ORSET+6!, SETL0+2*
>> MSG1	L+5*
NAME	PRTIV+13~, PRTIV+14, PRTIV+17
NAME(	PRTIV+14, PRTIV+17, PRTIV+18
NAMENEED	PRT+9~, LNNEED+5, LNNEED+7
ND	ORSET+6!, SETL0+2*
ND1	ORSET+6!, SETL0+2*
NEED	PRT+9~, LNNEED+5
OD	ORSET+6!
>> ON	START+1, START+2, IV+4, IV+8, IV+10, PRT+2*, PRT+3, PRT+6, PRTIV+6, PRTIV+10 , RPHINIT+1
ON55	IV+1~, PRT+1~
>> ONHOLD	PRTIV+7
P	IV+1!, PRT+1!
P(	PRT+5*
P("LOG"	PRTIV+5
P("MR"	IV+3, PRTIV+20
P("OPI"	LNNEED+6, PRTIV+22, PRTIV+25, PRTIV+29, PRTIV+30, PRTIV+33, PRTIV+40, PRTIV+41
P(11	PRT+4, ORSET+3, SETL0+2
P(2	IV+2, IV+4, PRT+6, PRTIV+8, ORSET+2, ORSET+3, SETL0+2
P(3	IV+4, PRT+6, PRTIV+8, ORSET+2, ORSET+3, SETL0+2
P(4	LNNEED+6, PRTIV+22, PRTIV+23, SETL0+2
P(8	PRTIV+20
P(9	IV+4, IV+5, PRT+4, PRT+6, PRTIV+20, ORSET+1, ORSET+2, ORSET+3, SETL0+2
PLSD	ORSET+6!, SETL0+2*
>> PN	PRT+2
>> PPN	IV+15, IV+16, IV+17, IV+25, IV+28, IV+34, IV+36
>> PSGCLNC	IV+17
PSGD	ORSET+6!
PSGDEM1	IV+20~*, IV+25, IV+28, IV+30
>> PSGINCL	IV+24, IV+33
>> PSGINCLG	IV+27, IV+35
>> PSGINWD	IV+17
>> PSGINWDG	IV+16
PSGL	PRTIV+3~*, PRTIV+4, PRTIV+12, PRTIV+14, PRTIV+18, PRTIV+19, PRTIV+20, PRTIV+21, PRTIV+23, PRTIV+34 , PRTIV+35, PRTIV+36, PRTIV+37, PRTIV+39, PRTIV+42, L+4
>> PSGLFFD	PRT+7*
>> PSGLRN	PRTIV+42
>> PSGLRPH	PRTIV+42
PSGMAR	ORSET+4!, SETL0+1!
PSGMAR(	ORSET+4
>> PSGMARED	START+2*
>> PSGMAROC	PRTIV+2, PRTIV+4, PRTIV+42, L+4, L+5*
PSGMARWC	IV+6~, IV+7*, IV+38
>> PSGMARWN	IV+7, IV+10, IV+15, IV+16, IV+17, IV+24, IV+25, IV+27, IV+28, IV+33 , IV+34, IV+35, IV+36, IV+38
>> PSGMFOR	ORSET+2*
>> PSGMSORT	IV+15, IV+16, IV+17, IV+25, IV+28, IV+34, IV+36
>> PSGOES	ORSET+2*
>> PSGP	START+2, IV+1, IV+10, RPHINIT+1
>> PSGP(0	PRTIV+11
>> PSGPLC	ORSET+3, SETL0+1, SETL0+2*
>> PSGPLF	IV+2, PRT+7, ORSET+2, ORSET+3
>> PSGPLS	START+2, ORSET+3
>> PSGRBPPN	IV+24, IV+27, IV+33, IV+35
>> PSGREP	IV+20, IV+21*, IV+23, IV+25, IV+28
>> PSGS0XT	ORSET+2
>> PSGSS	IV+15, IV+16, IV+17, IV+24, IV+27, IV+33, IV+35
>> PSGST	PRT+6*, PRTIV+14, PRTIV+18, PRTIV+19
PSIVX	PRTIV+13~, PRTIV+14, PRTIV+17, PRTIV+18, PRTIV+19
PSJLABEL	IV+1~, PRT+1~
>> PSJPRB	IV+25, IV+28, IV+34, IV+36
PSJPRT2	PRTIV+16~, PRTIV+19*
>> PSSN	PRTIV+11
>> PST	START+2, IV+3, ORSET+1, ORSET+3, ORSET+4
>> Q	ORSET+4*
QD1	ORSET+6!
QD2	ORSET+6!
QQ	ORSET+6!
>> QST	IV+4, IV+5, IV+15, IV+16, IV+17, IV+25, IV+28, IV+34, IV+36
>> QX	ORSET+4*
RPH	RPHINIT~, RPHINIT+1, RPHINIT+2, RPHINIT+3, DEFINIT+1, DEFINIT+2*
>> SD	ORSET+2*
ST	ORSET+6!, SETL0+2*
>> SUB1	IV+10
>> SUB2	IV+10
>> T	ORSET+2*, ORSET+3, SETL0+2
>> TM	IV+10, IV+25, IV+28, IV+34, IV+36
>> TMSTR	PRT+4, ORSET+5
TS	PRT+1!, PRT+4, LNNEED+8, PRTIV+25, PRTIV+29, PRTIV+35, PRTIV+36, PRTIV+37, ORSET+6!, SETL0+2
TS(	PRTIV+14, PRTIV+18, PRTIV+19, PRTIV+20, PRTIV+21, PRTIV+23, PRTIV+34, PRTIV+35, PRTIV+36, PRTIV+37 , PRTIV+39, PRTIV+42, L+4
TS(1	PRTIV+4
TS(2	PRTIV+12
U	IV+3, IV+8, IV+23, PRT+2, PRTIV+19, PRTIV+20, RPHINIT+1, DEFINIT+1, DEFINIT+2
UD	ORSET+6!
WDT	ORSET+6!
WS	ORSET+6!
WS1	ORSET+6!
X	IV+1~, IV+3, IV+8, IV+11~, IV+15, IV+16, IV+17, IV+20, IV+23, IV+30* , IV+34, IV+36, PRT+5, PRT+9~, LNNEED+5, LNNEED+6, LNNEED+7, LNNEED+8, L~, L+1 , ORSET+2, ORSET+3, ORSET+4, ORSET+5, ORSET+6!, DEFINIT~, DEFINIT+1, DEFINIT+2*
X1	IV+11~, IV+22*, ORSET+6!
X2	IV+22*, ORSET+6!
>> XTYPE	IV+3, IV+5
Y	IV+11~, PRTIV+14, PRTIV+17, PRTIV+18, PRTIV+33*
>> Y1	PRTIV+33*, PRTIV+34

Customize PDF page

Package: Inpatient Medications

Routine: PSGMIV

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: