Routine: PSIVUTL

Call Graph

Call Graph Total: 13

Package	Total	Call Graph
Inpatient Medications	10	$$ENDTC^PSGMI TXT^PSGMUTL DW^PSGS0 ENHLP^PSIVORC1 GTDRG^PSIVORFA GTDRG^PSIVORFB (EN,ENI)^PSIVSP ($$CODES,GTOT)^PSIVUTL $$ONE^PSJBCMA DRGDISP^PSJLMUT1
VA Fileman	2	^DIC FIELD^DID
IHS Changes To Pharmacy	1	$$SCREEN^APSPMULT

Package	Total	Caller Graph
Inpatient Medications	82	ADDITIVE PSGAPIV PSGCAPIV PSGMIV PSGMMIV PSGMMIVC PSGOE3 PSGOE6 PSGOE82 PSGOE92 PSGOECS PSGOEM PSGOER PSGS0 PSIV PSIVCHK PSIVCHK1 PSIVEDRG PSIVLB PSIVLBL1 PSIVMAN1 PSIVOD PSIVOPT2 PSIVORA PSIVORA1 PSIVORC PSIVORC1 PSIVORE PSIVORE2 PSIVORFA PSIVORFB PSIVORFE PSIVORH PSIVORV1 PSIVORV2 PSIVPRO PSIVQUI PSIVSET PSIVSTAT PSIVUDL PSIVUTL PSIVUTL1 PSIVVW1 PSIVWL1 PSJBCMA2 PSJCOM1 PSJCOMR PSJDCHK PSJDSS PSJEXP0 PSJH1 PSJHL10 PSJHL3 PSJHL4A PSJLIFN PSJLIFNI PSJLIORD PSJLIPRF PSJLIUTL PSJLIVFD PSJLIVMD PSJLMPRI PSJLMUT1 PSJMIV PSJMUTL PSJO1 PSJOE0 PSJOEEW PSJORMA2 PSJORP2 PSJORPOE PSJORRE PSJORRE1 PSJORRN PSJORRN1 PSJORRO PSJPDV1 PSJPXRM1 PSJQPR QUICK CODE ^PS(57.1 SOLUTION
Pharmacy Data Management	2	PSSGS0 PSSGSGUI

Package

Total

Caller Graph

Inpatient Medications

ADDITIVE  PSGAPIV  PSGCAPIV  PSGMIV  PSGMMIV  PSGMMIVC  PSGOE3  PSGOE6
PSGOE82  PSGOE92  PSGOECS  PSGOEM  PSGOER  PSGS0  PSIV  PSIVCHK
PSIVCHK1  PSIVEDRG  PSIVLB  PSIVLBL1  PSIVMAN1  PSIVOD  PSIVOPT2  PSIVORA
PSIVORA1  PSIVORC  PSIVORC1  PSIVORE  PSIVORE2  PSIVORFA  PSIVORFB  PSIVORFE
PSIVORH  PSIVORV1  PSIVORV2  PSIVPRO  PSIVQUI  PSIVSET  PSIVSTAT  PSIVUDL
PSIVUTL  PSIVUTL1  PSIVVW1  PSIVWL1  PSJBCMA2  PSJCOM1  PSJCOMR  PSJDCHK
PSJDSS  PSJEXP0  PSJH1  PSJHL10  PSJHL3  PSJHL4A  PSJLIFN  PSJLIFNI
PSJLIORD  PSJLIPRF  PSJLIUTL  PSJLIVFD  PSJLIVMD  PSJLMPRI  PSJLMUT1  PSJMIV
PSJMUTL  PSJO1  PSJOE0  PSJOEEW  PSJORMA2  PSJORP2  PSJORPOE  PSJORRE
PSJORRE1  PSJORRN  PSJORRN1  PSJORRO  PSJPDV1  PSJPXRM1  PSJQPR  QUICK CODE
^PS(57.1  SOLUTION

Pharmacy Data Management

PSSGS0 PSSGSGUI

Entry Points

Name	Comments	DBIA/ICR reference
PIV1	; Print Sched type, start/stop dates, and status.
WDTE(Y)	; Format and print date.
PIVAD	; Print IV Additives.
59	; Validate the Infusion rate entered using IV Quick order code.
PIV(ON)	; Display IV orders.
CODES(PSJCD,PSJF,PSJFLD)	; Get name from code. ; PSJF = one of following files: ^PS(55, ^PS(53.1, ^PS(52.6
INTERVAL(IVAR)	;
GTPCI(Y)	; Set up "work" area for provider comments.
WRTDRG(X,L)	; Format and print drug name, strength and bottle no.
CODES1(PSJCD,PSJF,PSJFLD)	;Check to see if code is valid. ; PSJF = one of following files: ^PS(55, ^PS(53.1, ^PS(52.6
DRGSC(Y,PSJSCT)	; Called to set DIC("S") when selecting Orderable Items.
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,MARX,AD)	; Format Additive display.
CODES2(PSJF,PSJFLD)	;Get field name ; PSJF = one of following files: ^PS(55, ^PS(53.1, ^PS(52.6
DOW(SCHED)	;	ICR #4580 Status: Active Usage: Private
SOL	;
ENU(Y)	;Get IV additive strength.
GTOT(Y)	; Get order type & protocol

External References

Name	Field # of Occurrence
$$SCREEN^APSPMULT	DRGSC+6
^DIC	GTPCI+1
FIELD^DID	CODES+2, CODES1+2, CODES2+2
$$ENDTC^PSGMI	PIV1+1
TXT^PSGMUTL	NAME+9
DW^PSGS0	DOW+4
ENHLP^PSIVORC1	59+4
GTDRG^PSIVORFA	PIV+8, PIV+9
GTDRG^PSIVORFB	PIV+4
EN^PSIVSP	INTERVAL+2
ENI^PSIVSP	59+5
$$CODES^PSIVUTL	ENU+1
GTOT^PSIVUTL	PIV+4, PIV+8, PIV+9
$$ONE^PSJBCMA	PIV+3
DRGDISP^PSJLMUT1	PIV+10

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: "->" Line Location: PIV+6
Function Call: WRITE	Prompt: ! Line Location: PIV+8
Function Call: WRITE	Prompt: @($S(PSIVX=1:"?9",1:"!?11")),MARX(PSIVX) Line Location: PIV+11
Function Call: WRITE	Prompt: ! Condition for execution: (DRGX'=1!(PSGX'=1)) Line Location: PIVAD+3
Function Call: WRITE	Prompt: ?9,NAME(PSGX) 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

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

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	WDTE+2
^PS(50.7 - [#50.7]	DRGSC+2
^PS(51.1 - [#51.1]	DOW+5, DOW+8
^PS(52.6 - [#52.6]	ENU+1
^PS(53.1 - [#53.1]	PIV+7, PIV+8, PIV+9
^PS(55 - [#55]	PIV+2, PIV+5, PIV+6
^PS(57.1 - [#57.1]	59+2, 59+3
^PSDRUG("ASP"	DRGSC+5

Name	Line Occurrences
59	59+4
NAME	SOL+3, PIVAD+2
PIV	PIV+8
PIV1	PIV+11, SOL+5, PIVAD+3
PIVAD	PIV+12

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AD	NAME~, NAME+3, NAME+5, NAME+9
>> DFN	PIV+2, PIV+3, PIV+5, PIV+6
DIC	GTPCI+1~*
DIC(0	GTPCI+1*
DINUM	GTPCI+1~*
DLAYGO	GTPCI+1~*
DLOOP	DRGSC+5~*, DRGSC+6
DRG	PIV+1~
DRG(	GTOT+2
DRG("AD"	PIV+12, SOL+4, SOL+5, PIVAD+2
DRG("SOL"	SOL+2, SOL+3, 59+3*, NAME+5
>> DRGI	GTOT+2*
>> DRGT	GTOT+2*
DRGX	PIV+12~, SOL+2, SOL+3, SOL+4, SOL+5, PIVAD+2, PIVAD+3, NAME+7
DT	DRGSC+4
DUZ	GTPCI+1
>> F1	59+4*
>> F2	59+4*
I	59+1~*
IVAR	INTERVAL~, INTERVAL+1
IVAR(15	INTERVAL+2*, INTERVAL+3
L	WRTDRG~, WRTDRG+2, NAME~, NAME+9
MARX	PIV+10~, NAME~, NAME+3!
MARX(	PIV+11
MARX(1	NAME+10*
MARX(2	NAME+9*
NAME	SOL+1~, SOL+3, PIVAD+1~, PIVAD+2
NAME(	SOL+5, PIVAD+3
ND	DRGSC+1~, DRGSC+2*, DRGSC+4
NDI	DRGSC+1~
NDU	DRGSC+1~
O	PIV+7~*, PIV+8
OK	DRGSC+1~, DRGSC+4, DRGSC+5, DRGSC+6*, DRGSC+7
ON	PIV~, PIV+1, PIV+2, PIV+3, PIV+4, PIV+5, PIV+6, PIV+7, PIV+9, PIV+10
ON55	PIV+1~, PIV+4*
P	PIV+1~, INTERVAL+1~*
P(	PIV+2, PIV1+1, 59+1*
P("OT"	GTOT+1, GTOT+2, PIV+4*, PIV+9
P(15	INTERVAL+2
P(17	PIV+8, PIV+9, PIV1+2, PIV1+3
P(2	PIV+3, PIV+8, PIV+9, PIV1+2, PIV1+3
P(23	NAME+6, NAME+7
P(3	PIV+3, PIV+8, PIV+9, PIV1+2, PIV1+3
P(4	PIV+4, PIV+8, PIV+9, 59+2*, NAME+6, NAME+7
P(5	NAME+6, NAME+7
P(8	PIV+8, PIV+9, 59+2, 59+5, NAME+6, NAME+7
P(9	PIV+3, PIV+8, PIV+9, NAME+6, NAME+7, INTERVAL+1
P9	DOW+2~, DOW+5, DOW+6, DOW+8*, DOW+9
PSGOES	INTERVAL+1~*
>> PSGP	PIV+10
PSGX	PIVAD+1~, PIVAD+3*
PSIVX	PIV+10~, PIV+11, DOW+2~, DOW+5, DOW+6, DOW+7, DOW+8, DOW+9, DOW+10
PSJCD	CODES~, CODES+4, CODES1~, CODES1+3
PSJDD	CODES+3!, CODES1+3!, CODES1+4!
PSJDD("LABEL"	CODES2+3
PSJDD("POINTER"	CODES+3, CODES1+3
>> PSJEXTP	PIV1+1, PIV1+2
PSJF	CODES~, CODES+2, CODES1~, CODES1+2, CODES2~, CODES2+2
PSJFLD	CODES~, CODES+2, CODES1~, CODES1+2, CODES2~, CODES2+2
>> PSJL	NAME+6
PSJORIFN	PIV+1~
>> PSJQO	59+2, 59+3
PSJSCT	DRGSC~
>> PSJSYSU	PIV+6
SCHED	DOW~, DOW+1, DOW+2, DOW+4, DOW+5, DOW+8
TYP	PIV+1~, PIV+3, PIV1+2, PIV1+3
U	DRGSC+4, ENU+1, GTOT+2, PIV+2, PIV+5, PIV+6, PIV+8, PIV+9, 59+2, WRTDRG+1 , WRTDRG+2, NAME+3, NAME+9, NAME+10
X	ENU+1~, GTPCI+1~, PIV+1~, PIV+2, PIV+6, SOL+5, PIV1+1, 59+4, 59+5, WRTDRG~ , WRTDRG+1, WRTDRG+2, NAME~, NAME+3, NAME+9, NAME+10, INTERVAL+1~, DOW+2~, DOW+4, DOW+5* , DOW+6, DOW+8*, DOW+9
Y	DRGSC~, DRGSC+2, DRGSC+5, IVDRGSC~, IVDRGSC+2~, IVDRGSC+3, IVDRGSC+4, ENU~, ENU+1, ENU+2 , CODES+3, CODES+4, CODES+5, GTPCI~, GTPCI+2, WDTE~, WDTE+1, WDTE+2, WDTE+3, GTOT~ , GTOT+1, PIV+1~, PIV+2, PIV+8, PIV+9, WRTDRG+1~, WRTDRG+2, NAME+3~, NAME+6, NAME+7 , NAME+9, NAME+10

Customize PDF page

Package: Inpatient Medications

Routine: PSIVUTL

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Caller Graph Total: 84

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: