Routine: PSGMMIVC

Information

PSGMMIVC ;BIR/MV-PRT MULT DAYS MAR C ORDERS(IV) ;16 Mar 99 / 2:10 PM

Name	Comments	DBIA/ICR reference
PRT	;*** Print IV orders.
OS	; order record set
PRTIV	;*** Print IV order on MAR
L(X)	;***Check to see if a new block if needed.
LN(L)	;*** Print lines within block.
CELL(X,X1)
INITOPI	;* Set nurse's initial and the other print info.
NAME(X,NAME,INIT)

Name	Line Occurrences
Function Call: WRITE	Prompt: !?6,"\|",?19,"\|",?48,"\|",$G(TS(1)) Line Location: PRTIV+2
Function Call: WRITE	Prompt: !,$E(P("LOG"),1,5)," \|" Line Location: PRTIV+3
Function Call: WRITE	Prompt: ?39,"("_$E(PSGP(0))_$E(PSSN,8,12)_")" Line Location: PRTIV+6
Function Call: WRITE	Prompt: ?48,"\|",$G(TS(2)) Line Location: PRTIV+7
Function Call: WRITE	Prompt: ! Line Location: PRTIV+18
Function Call: WRITE	Prompt: ! Line Location: PRTIV+18
Function Call: WRITE	Prompt: !,"CAUTION-CHEMOTHERAPY",?48,"\|",$G(TS(L)) Line Location: PRTIV+22
Function Call: WRITE	Prompt: ! Line Location: PRTIV+23
Function Call: WRITE	Prompt: "CAUTION-CHEMOTHERAPY",?48,"\|",$G(TS(L)) Line Location: PRTIV+27
Function Call: WRITE	Prompt: ! Line Location: PRTIV+29
Function Call: WRITE	Prompt: ! Line Location: PRTIV+34
Function Call: WRITE	Prompt: ! Line Location: PRTIV+35
Function Call: WRITE	Prompt: $E(Y1,1,47) Line Location: PRTIV+38
Function Call: WRITE	Prompt: ! Line Location: PRTIV+39
Function Call: WRITE	Prompt: $E(Y1,48,$L(Y1)) Line Location: PRTIV+40
Function Call: WRITE	Prompt: Y1," " Line Location: PRTIV+41
Function Call: WRITE	Prompt: ! Line Location: PRTIV+48
Function Call: WRITE	Prompt: ! Line Location: PRTIV+49
Function Call: WRITE	Prompt: !?7,LN2 Condition for execution: PSGMAROC<6 Line Location: PRTIV+50
Function Call: WRITE	Prompt: ?55 Line Location: CELL+1
Function Call: WRITE	Prompt: ?55 Line Location: CELL+2
Function Call: WRITE	Prompt: ?55,$$LN(X) Line Location: CELL+3

FileNo	Call Tags
^VA(200 - [#200]	Classic Fileman Calls