Routine: PSIVUTL

Information

PSIVUTL ;BIR/MLM - IV UTILITIES ;Jul 05, 2018@08:59

Source file <PSIVUTL.m>

Name	Comments	DBIA/ICR reference
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
ENU(Y)	;Get IV additive strength.
CODES(PSJCD,PSJF,PSJFLD)	; Get name from code. ; PSJF = one of following files: ^PS(55, ^PS(53.1, ^PS(52.6
CODES1(PSJCD,PSJF,PSJFLD)
CODES2(PSJF,PSJFLD)
GTPCI(Y)	; Set up "work" area for provider comments.
WDTE(Y)	; Format and print date.
GTOT(Y)	; Get order type & protocol
PIV(ON)	; Display IV orders.
SOL	;
PIVAD	; Print IV Additives.
PIV1	; Print Sched type, start/stop dates, and status.
PIV2	; Print Sched type, start/stop dates with four digit year, and status. ;#373
RENEWDT	; 373 - Put renewal date on 2nd line instead of 1st.
59	; Validate the Infusion rate entered using IV Quick order code.
WRTDRG(X,L)
NAME(X,L,MARX,AD)
INTERVAL(IVAR)	;
DOW(SCHED)	;	ICR #4580 Status: Active Usage: Private
GETP(ON)	; Populate P array with data from order ON
GTNUMLBL(DFN,ON)	; Get Number of Labels Per Day

Name	Line Occurrences
Function Call: WRITE	Prompt: "->" Line Location: PIV+6
Function Call: WRITE	Prompt: ! Line Location: PIV+9
Function Call: WRITE	Prompt: @($S(PSIVX=1:"?9",1:"!?11")),MARX(PSIVX) Line Location: PIV+15
Function Call: WRITE	Prompt: ?12 Line Location: SOL+6
Function Call: WRITE	Prompt: NAME(X) Line Location: SOL+6
Function Call: WRITE	Prompt: ! Line Location: SOL+8
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: ! Condition for execution: (DRGX'=1!(PSGX'=1)) Line Location: PIVAD+4
Function Call: WRITE	Prompt: ?9,NAME(PSGX) Line Location: PIVAD+4
Function Call: WRITE	Prompt: ?50,TYP,?53,P(2),?60,P(3),?67,$S($G(P(25))]"":P(25),1:P(17)) Line Location: PIV1+3
Function Call: WRITE	Prompt: ?46,TYP,?49,P(2),?60,P(3),?71,$S($G(P(25))]"":P(25),1:P(17)) Line Location: PIV1+5
Function Call: WRITE	Prompt: ?46,TYP,?49,P(2),?60,P(3),?71,$S($G(P(25))]"":P(25),1:P(17)) Line Location: PIV1+6
Function Call: WRITE	Prompt: ?46,TYP,?49,P(2),?60,P(3),?71,$S($G(P(25))]"":P(25),1:P(17)) Line Location: PIV2+2
Function Call: WRITE	Prompt: ?46,TYP,?49,P(2),?60,P(3),?71,$S($G(P(25))]"":P(25),1:P(17)) Line Location: PIV2+3
Function Call: WRITE	Prompt: ?49,"Renewed: ",$P(ND14," ") Line Location: RENEWDT+2

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