Routine: PRCPCSOU

Information

PRCPCSOU ;WISC/RFJ-surgery order supplies utilities ; 06/23/2009 2:17 PM

Name	Comments	DBIA/ICR reference
SHOWORD(PATIENT,SURGERY)	; show orders placed for patient da and surgery da
SHOWCC(OPERATE,ORDERDA,PRCDT)	;show case carts linked to operation da, order da

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"ORDERS WHICH HAVE BEEN PLACED FOR OPERATION:" Line Location: SHOWORD+2
Function Call: WRITE	Prompt: !?2,"<< NONE >>" Line Location: SHOWORD+3
Function Call: WRITE	Prompt: !,"Order # ",$P(DATA,"^"),?15,"Date: ",DATE,?35,"By: ",$E($$USER^PRCPUREP($P(DATA,"^",5)),1,18),?54,"Status: ",$$STATUS^PRCPOPU(DA) Line Location: SHOWORD+8
Function Call: WRITE	Prompt: !," TO DELETE ORDERS WHICH HAVE BEEN RELEASED FOR PROCESSING, PLEASE PHONE SPD " Line Location: SHOWORD+10
Function Call: WRITE	Prompt: !!,"Case Carts to Order for Operation: ",$TR($$ICPT^PRCPCUT1(+OPERATE,$G(PRCDT)),"^"," ") Line Location: SHOWCC+2
Function Call: WRITE	Prompt: !?5,"<< NONE SPECIFIED >>" Line Location: SHOWCC+3
Function Call: WRITE	Prompt: !?5,$E($$DESCR^PRCPUX1($P(DATA,"^",2),DA),1,30),?32,"#",DA,?42 Line Location: SHOWCC+8
Function Call: WRITE	Prompt: "* NOT ORDERED *" Line Location: SHOWCC+10
Function Call: WRITE	Prompt: "QTY ORDERED: ",$P(%,"^",2) Line Location: SHOWCC+11