Routine: PSDORP2

Information

PSDORP2 ;BIR/JPW,LTL - Pharm CS Order Request Entry ;22 Jun 94

Source file <PSDORP2.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This will be "_CNT_" separate order requests," Line Location: NOMAX+4
Function Call: WRITE	Prompt: !!,(PSDQTY\PSDR(1))," order" Line Location: NOMAX+6
Function Call: WRITE	Prompt: " for ",PSDR(1)," ",NBKU,"." Line Location: NOMAX+8
Function Call: WRITE	Prompt: ! Line Location: NOMAX+9
Function Call: WRITE	Prompt: !,"No order request created. You must edit quantity.",! Line Location: NOMAX+11
Function Call: WRITE	Prompt: !!,"The "_CNT_" requests are being created. You must review every request.",! Line Location: NOMAX+12
Function Call: WRITE	Prompt: !!,"Creating your order request # "_ORD_" of "_CNT_" for "_PSDRN Line Location: NOMAX+13
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:"PSDR")_" 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