Routine: GMTSPSI

Information

GMTSPSI ; SLC/JER,KER - IV Rx Summary Component (V4.5) ; 08/27/2002

Source file <GMTSPSI.m>

Package	Total	Call Graph
Health Summary	3	MAIN^GMTSPSI5 REGDT4^GMTSU CKP^GMTSUP
Inpatient Medications	1	ENHS^PSJEEU0
Kernel	1	$$VERSION^XPDUTL

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	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),?50,STAT,?57,SD,?69,FD,! Line Location: WRT+9
Function Call: WRITE	Prompt: $E($P($P(GMTSDRUG,";",2),U),1,36),?38,$P(GMTSDRUG,U,2),! Line Location: WRT+11
Function Call: WRITE	Prompt: ?3,$S(SOL=1!GMTSNPG:"In: ",1:" ") Line Location: LSTSOL+4
Function Call: WRITE	Prompt: $P($P(SLN,";",2),U)," ",$P(SLN,U,2)," ",IR," ",SCH,! Line Location: LSTSOL+5

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

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

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