Routine: GMTSPSI5

Information

GMTSPSI5 ; SLC/JER,KER - IV Rx Summary Component (V5) ; 02/11/2003

Source file <GMTSPSI5.m>

Package	Total	Call Graph
Health Summary	2	REGDT4^GMTSU CKP^GMTSUP
Inpatient Medications	1	ENHS^PSJEEU0

Package	Total	Caller Graph
Health Summary	1	GMTSPSI

Name	Comments	DBIA/ICR reference
HEAD	; Prints Header
WRT	; Prints IV Pharmacy order
MAIN	; Controls Branching
NOPSJ	; Handles case where ^PSJEEU0 not present
LSTSOL	; Write Solutions

Name	Field # of Occurrence
REGDT4^GMTSU	WRT+5
CKP^GMTSUP	NOPSJ+1, WRT+7, WRT+10, WRT+12, WRT+16, LSTSOL+2, HEAD+1
ENHS^PSJEEU0	MAIN+3, MAIN+4

Name	Line Occurrences
Function Call: WRITE	Prompt: "Inpatient Pharmacy version 3.2 or greater is required.",! Line Location: NOPSJ+1
Function Call: WRITE	Prompt: $E($P($P(^UTILITY("PSIV",$J,GMTSIDT,"A",1),";",2),U),1,36),?38,$P(^(1),U,2) Line Location: WRT+11
Function Call: WRITE	Prompt: ?50,STAT,?57,SD,?69,FD,! Line Location: WRT+12
Function Call: WRITE	Prompt: $E($P($P(GMTSDRUG,";",2),U),1,36),?38,$P(GMTSDRUG,U,2),! Line Location: WRT+17
Function Call: WRITE	Prompt: ?3,$S(SOL=1!GMTSNPG:"In: ",1:" ") Line Location: LSTSOL+3
Function Call: WRITE	Prompt: $P($P(SLN,";",2),U)," ",$P(SLN,U,2)," ",IR," ",SCH,! Line Location: LSTSOL+4

Name	Line Occurrences (* Changed, ! Killed)
^UTILITY("PSG"	MAIN+7!
^UTILITY("PSIV"	MAIN+3!, MAIN+4, MAIN+6, MAIN+7!, WRT+2, WRT+9, WRT+11, WRT+15, LSTSOL+1

Name	Field # of Occurrence
FD	WRT+1~, WRT+2*, WRT+12
GMI	MAIN+1~, MAIN+5, WRT+6, WRT+7, WRT+8
>> GMRANGE	WRT+4
>> GMTS1	WRT+4
>> GMTS2	MAIN+2
GMTSAD	WRT+1~, WRT+14, WRT+15, WRT+16
GMTSDRUG	WRT+1~, WRT+16*, WRT+17
GMTSIDT	MAIN+1~, MAIN+6*, WRT+2, WRT+9, WRT+11, WRT+15, LSTSOL+1
>> GMTSLO	HEAD+2
>> GMTSNPG	WRT+7, WRT+10, WRT+12, WRT+16, LSTSOL+2, LSTSOL+3, HEAD+1
>> GMTSQIT	MAIN+6, NOPSJ+1, WRT+7, WRT+9, WRT+10, WRT+12, WRT+13, WRT+15, WRT+16, WRT+18 , LSTSOL+1, LSTSOL+2, HEAD+1
GMV	WRT+1~, WRT+5*
GMW	WRT+1~
IOSL	HEAD+2
IR	WRT+1~, WRT+2*, LSTSOL+4
MAX	MAIN+1~
ON	MAIN+1~
PS	MAIN+1~
PSIVREA	MAIN+1~
PSJEDT	MAIN+1~, MAIN+2*
PSJNKF	MAIN+1~, MAIN+2*
PSJPFWD	MAIN+1~
SCH	WRT+1~, WRT+2*, LSTSOL+4
SD	WRT+1~, WRT+2*, WRT+4, WRT+12
SLN	WRT+1~, LSTSOL+2*, LSTSOL+4
SOL	WRT+1~, LSTSOL+1*, LSTSOL+2, LSTSOL+3
STAT	WRT+1~, WRT+2*, WRT+12
TN	MAIN+1~
U	WRT+2, WRT+11, WRT+17, LSTSOL+4
X	WRT+5*!

Name	Field # of Occurrence
$T(ENHS^PSJEEU0	MAIN+3