Routine: PSIVUTL1

Information

PSIVUTL1 ;BIR/MLM-IV UTILITIES ;21 MAY 96 / 10:37 AM

Source Information

Source file <PSIVUTL1.m>

Call Graph

Call Graph Total: 11

Package	Total	Call Graph
Inpatient Medications	9	$$ENDTC^PSGMI $$DOSES^PSIVCAL ENHLP^PSIVORC1 GTDRG^PSIVORFA GTDRG^PSIVORFB ENI^PSIVSP ($$CODES,GTOT)^PSIVUTL $$ONE^PSJBCMA $$DRUGNAME^PSJLMUTL
Kernel	1	$$FMDIFF^XLFDT
VA Fileman	1	^DIC

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Inpatient Medications	1	PSIVCAL

Entry Points

Name	Comments	DBIA/ICR reference
GTOT(DFN,ON)	; Get order type for display.
PIV1	; Print Sched type, start/stop dates, and status.
PIVAD	; Print IV Additives.
59	; Validate the Infusion rate entered using IV Quick order code.
PIV(ON)	; Display IV orders.
GETMIN(LIM,DFN,PSJORD,DAYS)	;
GTPCI(Y)	; Set up "work" area for provider comments.
WRTDRG(X,L)
DRGSC(Y,PSJSCT)	; Called to set DIC("S") when selecting orderable item.
WDTE(Y)	; Format and print date.
IVDRGSC(Y)	; Set DIC("S") for IV additive/solution selection. ; Naked reference below refers to full reference in Y, which is either ^PS(52.6, or ^PS(52.7
NAME(X,L,NAME,AD)
CNVTOM(RATE,TVOL)	; Convert volume to minutes ; Input: ; RATE - Infusion Rate ; TVOL - Volume being infused, EX: m100 (100 Milliliters) or l5 (5 Liters) ; Output: ; MINS - Minutes required to infuse volume
SOL	;
ENU(Y)	;Get IV additive strength.
CODES(X,Y)	; Get name from code.

External References

Name	Field # of Occurrence
^DIC	GTPCI+1
$$ENDTC^PSGMI	PIV1+1
$$DOSES^PSIVCAL	GETMIN+16
ENHLP^PSIVORC1	59+4
GTDRG^PSIVORFA	PIV+5
GTDRG^PSIVORFB	PIV+4
ENI^PSIVSP	59+5
$$CODES^PSIVUTL	ENU+1
GTOT^PSIVUTL	PIV+4, PIV+5
$$ONE^PSJBCMA	PIV+3
$$DRUGNAME^PSJLMUTL	PIV+6
$$FMDIFF^XLFDT	GETMIN+17

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?11,"Give: ",P("DO")," ",$P(P("MR"),U,2)," ",$S(P(9)]"":P(9),1:P(8)) Line Location: PIV+8
Function Call: WRITE	Prompt: ! Line Location: SOL+4
Function Call: WRITE	Prompt: ?9,"in " Condition for execution: DRG=1 Line Location: SOL+4
Function Call: WRITE	Prompt: ?9,NAME(X) Line Location: PIVAD+3
Function Call: WRITE	Prompt: ?50,TYP,?53,P(2),?60,P(3),?67,P(17) Line Location: PIV1+2
Function Call: WRITE	Prompt: ?50,TYP,?53,P(2),?63,P(3),?73,P(17) Line Location: PIV1+3
Routine Call	DIC Line Location: GTPCI+1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PS(53.45 - [#53.45]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	WDTE+2
^PS(50.7 - [#50.7]	DRGSC+2
^PS(51.2 - [#51.2]	PIV+7
^PS(52.6 - [#52.6]	ENU+1
^PS(53.1 - [#53.1]	PIV+5, PIV+7
^PS(55 - [#55]	GTOT+2, GTOT+4, PIV+2, PIV+6
^PS(57.1 - [#57.1]	59+2, 59+3

Label References

Name	Line Occurrences
$$CNVTOM	GETMIN+8
59	59+4
NAME	SOL+3, PIVAD+2
PIV1	PIV+8, SOL+5, PIVAD+3
PIVAD	PIV+9

Naked Globals

Name	Field # of Occurrence
^(0	59+3
^(2	PIV+5
^(8	PIV+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AD	NAME~, NAME+4, NAME+5
DAYS	CNVTOM+6~, GETMIN~, GETMIN+15, GETMIN+17, GETMIN+18
DDLX	GETMIN+1~, GETMIN+12, GETMIN+13, GETMIN+14, GETMIN+16*
DFN	GTOT~, GTOT+2, GTOT+4, PIV+2, PIV+3, GETMIN~
DIC	GTPCI+1~*
DIC(0	GTPCI+1*
DINUM	GTPCI+1~*
DLAYGO	GTPCI+1~*
>> DN	PIV+6
DOSVOL	GETMIN+9~, GETMIN+11, GETMIN+12
DRG	PIV+1~, PIV+9, SOL+2, SOL+3, SOL+4, SOL+5, PIVAD+2, PIVAD+3
DRG("AD"	PIV+9, SOL+5, PIVAD+2
DRG("SOL"	SOL+2, SOL+3, 59+3*
DRGI	GTOT+1~, GTOT+4*
DRGT	GTOT+1~, GTOT+4*
DT	DRGSC+3
DUR	GETMIN+9~
DUZ	GTPCI+1
F	GETMIN+1~, GETMIN+3*, GETMIN+4, GETMIN+10, GETMIN+11, GETMIN+16
>> F1	59+4*
>> F2	59+4*
I	59+1~*
L	WRTDRG~, WRTDRG+2, NAME~, NAME+6
LASTD	GETMIN+15~, GETMIN+16*, GETMIN+17
LIM	GETMIN~, GETMIN+2, GETMIN+5, GETMIN+8, GETMIN+12, GETMIN+13, GETMIN+18, GETMIN+19*, GETMIN+20
>> MIN	GETMIN+8*
>> MINS	CNVTOM+12*, CNVTOM+13
ML	CNVTOM+6~
MLSHR	CNVTOM+6~
NAME	SOL+1~, SOL+3, PIVAD+1~, PIVAD+2, NAME~, NAME+3!
NAME(	SOL+5, PIVAD+3
NAME(1	NAME+6, NAME+7
NAME(2	NAME+6*
ND	DRGSC+1~, DRGSC+2*, DRGSC+3
NDI	DRGSC+1~
NDU	DRGSC+1~
OIX	GETMIN+9~, GETMIN+16*
OK	DRGSC+1~, DRGSC+3, DRGSC+4
ON	GTOT~, GTOT+2, GTOT+4, PIV~, PIV+1, PIV+2, PIV+3, PIV+4, PIV+5, PIV+6 , PIV+7
ON55	PIV+1~, PIV+4*
P	PIV+1~, GETMIN+16
P(	PIV+2, PIV1+1, 59+1*
P("DO"	PIV+6*, PIV+8
P("MR"	PIV+7*, PIV+8
P("OT"	PIV+4*, PIV+5
P("PD"	PIV+6*, PIV+8
P(17	PIV+5*, PIV1+2, PIV1+3
P(2	PIV+3, PIV+5*, PIV1+2, PIV1+3, GETMIN+17
P(23	NAME+5
P(3	PIV+3, PIV+5*, PIV1+2, PIV1+3
P(4	PIV+4, PIV+5, 59+2, NAME+5
P(5	NAME+5
P(8	PIV+5, PIV+8, 59+2, 59+5*, NAME+5
P(9	PIV+3, PIV+5*, PIV+8, NAME+5
>> PSGP	PIV+6
>> PSJEXTP	PIV1+1, PIV1+2
>> PSJO	PIV+6
PSJORD	GETMIN~, GETMIN+3, GETMIN+4
PSJORIFN	PIV+1~
>> PSJQO	59+2, 59+3
PSJSCT	DRGSC~
RATE	CNVTOM~, CNVTOM+8, CNVTOM+9, CNVTOM+12, GETMIN+4~, GETMIN+6, GETMIN+7*, GETMIN+8, GETMIN+9
SOL	GETMIN+9~, GETMIN+10*
SOLVOL	GETMIN+9~, GETMIN+11
STOP	GETMIN+9~, GETMIN+15~*
TVOL	CNVTOM~, CNVTOM+10*, CNVTOM+12
TYP	PIV+1~, PIV+3, PIV1+2, PIV1+3
U	DRGSC+3, ENU+1, CODES+1, GTOT+2, GTOT+4, PIV+2, PIV+5, PIV+7, PIV+8, 59+2 , WRTDRG+1, WRTDRG+2, NAME+4, NAME+6, NAME+7
X	ENU+1~, CODES~, CODES+1, GTPCI+1~, GTOT+2, GTOT+3, PIV+1~, PIV+2, SOL+5, PIVAD+3 , PIV1+1*, 59+4, 59+5, WRTDRG~, WRTDRG+1, WRTDRG+2, NAME~, NAME+4, NAME+6, NAME+7 , GETMIN+9~
Y	DRGSC~, DRGSC+2, IVDRGSC~, IVDRGSC+2~, IVDRGSC+3, ENU~, ENU+1, ENU+2, CODES~, CODES+1* , CODES+2, GTPCI~, GTPCI+2, WDTE~, WDTE+1, WDTE+2, WDTE+3, GTOT+1~, GTOT+3, GTOT+4 , GTOT+5, PIV+1~, PIV+2, PIV+5, PIV+7, WRTDRG+1~, WRTDRG+2, NAME+4~, NAME+5, NAME+6 , NAME+7

Customize PDF page

Package: Inpatient Medications

Routine: PSIVUTL1

Call Graph Total: 11

Caller Graph Total: 1