Routine: PSDNRGO

Information

PSDNRGO ;BIR/JPW-Receive Green Sheet for NAOU ; 6 Jan 94

Source file <PSDNRGO.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!!,"The Green Sheet # ",PSDPN," is assigned to ",NAOUN,".",!,"Please select another Green Sheet.",! Line Location: ORD+3
Function Call: WRITE	Prompt: $C(7),!!,"There's no data on ",NAOUN," for Green Sheet # ",PSDPN,".",!,"Contact your Pharmacy Coordinator for assistance.",! Line Location: ORD+4
Function Call: WRITE	Prompt: $C(7),!!,"This Green Sheet has a status of "_$S(STATN]"":STATN,1:"UNKNOWN")_".",!,"Please select another Green Sheet.",! Line Location: ORD+5
Function Call: WRITE	Prompt: !!,"Accessing ",PSDRN," information...",!! Line Location: REC+1
Function Call: WRITE	Prompt: !!,"Quantity not entered. No action taken.",!,"This order remains ",STATN,!! Line Location: REC+2
Function Call: WRITE	Prompt: $C(7),!!,"The quantity received does not match the quantity dispensed.",!,"This order must be returned to pharmacy for investigation.",!! Line Location: REC+3
Function Call: WRITE	Prompt: $C(7),!!,"* THIS ORDER HAS NOT BEEN RECEIVED *",!,"Receiving nurses name must be entered.",!!,"The status remains "_STATN,! Line Location: REC+7
Function Call: WRITE	Prompt: !!,"Updating your records now..." Line Location: UPDATE+11
Function Call: WRITE	Prompt: "done.",!! Line Location: UPDATE+14
Function Call: WRITE	Prompt: ?5,"* Your Green Sheet #"_PSDPN_" is now "_$S($P($G(^PSD(58.82,STAT,0)),"^")]"":$P(^(0),"^"),1:"UNKNOWN")_" *",! Line Location: UPDATE+15