Routine: PSDNTTPC

Information

PSDNTTPC ;BIR/JPW-Transfer Green Sheet - Receive this NAOU ; 8/15/07 11:42am

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!!,?9,"** Please contact your Coordinator for access to transfer",!,?12,"narcotic orders.",!!,"PSJ RNURSE or PSD NURSE security key required.",! Line Location: PSDNTTPC+4
Function Call: WRITE	Prompt: !!,"Receive a transferred Green Sheet into this NAOU" Line Location: PSDNTTPC+6
Function Call: WRITE	Prompt: ! Line Location: ASKN+1
Function Call: WRITE	Prompt: ! Line Location: GS+1
Function Call: WRITE	Prompt: !!,"Transfer quantity is greater than 0.",!,"Use option 'Receive Green Sheet & Drug from another NAOU'.",! Line Location: GS+13
Function Call: WRITE	Prompt: !!,"This Green Sheet has a status of "_$S(STATN]"":STATN,1:"UNKNOWN")_".",!,"Please contact your Pharmacy Coordinator for assistance.",! Line Location: GS+14
Function Call: WRITE	Prompt: !!,?5,"The Green Sheet # ",PSDPN," and quantity of ",RQTY Line Location: CHK+1
Function Call: WRITE	Prompt: " was being transferred",!,?10,"* from ",NAOUFN,!,?10,"* to ",NAOUN,".",!!,$C(7),?5,"You are transferring it from ",NAOUFN,!,?10,"*** to ",AOUN,"." Line Location: CHK+2
Function Call: WRITE	Prompt: " is being transferred ",!,?10,"* from ",NAOUFN,!,?10,"* to ",NAOUN,"." Line Location: CHK+3
Function Call: WRITE	Prompt: ! Line Location: CHK+4
Function Call: WRITE	Prompt: !!,"Receive Green Sheet # ",PSDPN," transfer into another NAOU not completed.",!! Line Location: CHK+6