Routine: PSIVORC

Information

PSIVORC ;BIR/MLM-COMPLETE IV ORDERS ENTERED THROUGH OE/RR ;02 Mar 99 / 10:16 AM

Source file <PSIVORC.m>

Name	Comments	DBIA/ICR reference
EN	; Set IV parameters.
SELECT	;
GTORDRS	;
PROFILE	; Display profile of all incomplete orders.
DISPLAY	; Display order on profile.
GTYP	; Get formatted heading for type
ASK	; Ask which orders to view.
SHOW	; Display selected order and prompt for action
SHOW1	; Entry point from backdoor.
G
W
P
GG	; put patient(s) with incomplete orders into array
GW
GP	;
DISCONT	; Cancel incomplete order
D2	; Called from PNDRN for pending order
D3	; called from PNDRN for original order
EDIT	; Edit incomplete order
FINISH	; Finish incomplete order
PNDRN(PSJDCTYP)	; Discontinue pending renewal only or both pending and original orders

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$C(7),"NO PENDING ORDERS FOR ",$S(PSGSS="P":"PATIENT",1:"WARD"),$S(PSGSS="G":" GROUP",1:"")," SELECTED." Line Location: GTORDRS+2
Function Call: WRITE	Prompt: !?3,PSGLMT Line Location: DISPLAY+2
Function Call: WRITE	Prompt: !,X_PSIV_X Line Location: GTYP+5
Function Call: WRITE	Prompt: ! Line Location: G+0
Function Call: WRITE	Prompt: S Line Location: W+0
Function Call: WRITE	Prompt: ! Line Location: W+0
Function Call: WRITE	Prompt: !,$C(7),"Order Unchanged." Line Location: D2+1
Function Call: WRITE	Prompt: !,$C(7),"Order Unchanged." Line Location: D2+3
Function Call: WRITE	Prompt: ! Line Location: D2+4
Function Call: WRITE	Prompt: !,"Order discontinued.",! Line Location: D3+4
Function Call: WRITE	Prompt: !,$C(7),"This order LOCKED by another user." Line Location: EDIT+1
Function Call: WRITE	Prompt: !,$C(7),"This order LOCKED by another user." Line Location: FINISH+1