Routine: GMTSPSI5

Information

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

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

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