Routine: PSDORD

Information

PSDORD ;BIR/JPW,LTL - Nurse CS Order Request Entry DIR style ;8 Aug 94

Source file <PSDORD.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Searching for ",$P($G(^VA(200,DUZ,.1)),U,4),"'s pending requests." Line Location: PSDORD+4
Function Call: WRITE	Prompt: "." Line Location: PSDORD+6
Function Call: WRITE	Prompt: ! Line Location: QTY+3
Function Call: WRITE	Prompt: !!,"Quantity must be "_NPKG_" or a multiple of "_NPKG,! Line Location: QTY+4
Function Call: WRITE	Prompt: !!,"This will be "_CNT_" separate order requests. The quantity is "_NPKG_" per request." Line Location: QTY+5
Function Call: WRITE	Prompt: ! Line Location: QTY+6
Function Call: WRITE	Prompt: !,"No order request created. You must edit quantity.",! Line Location: QTY+8
Function Call: WRITE	Prompt: !!,"The "_CNT_" requests are being created.",! Line Location: QTY+9
Function Call: WRITE	Prompt: ! Line Location: QTY+9
Function Call: WRITE	Prompt: !!,"Creating your order request # "_ORD_" of "_CNT_" for "_PSDRN Line Location: QTY+10
Function Call: WRITE	Prompt: ! Line Location: QTY+11
Function Call: WRITE	Prompt: ?10,!!,"processing now..." Line Location: DIE2+2
Function Call: WRITE	Prompt: $C(7),!!,?10,"Contact your Pharmacy Coordinator.",!,?10,"This "_$S(MSG=2:"Dispensing Site",MSG=1:"NAOU",1:"Drug")_" is missing " Line Location: MSG+1
Function Call: WRITE	Prompt: $S(MSG1=1:"Primary Disp. Site",MSG1=2:"stocked drugs",MSG1=3:"narcotic breakdown unit",MSG1=4:"narcotic package size",1:"data")_".",! Line Location: MSG+2