Routine: PSDNCGS

Information

PSDNCGS ;BIR/JPW-Complete Green Sheet - Ready for Pickup ; 10 Jan 94

Source file <PSDNCGS.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!!,?9,"** Please contact your Coordinator for access to complete",!,?12,"narcotic orders.",!!,"PSJ RNURSE or PSD NURSE security key required.",! Line Location: PSDNCGS+4
Function Call: WRITE	Prompt: !!,"Complete a Green Sheet - Ready for Pick Up" Line Location: PSDNCGS+5
Function Call: WRITE	Prompt: ! Line Location: ASKN+1
Function Call: WRITE	Prompt: ! Line Location: GS+1
Function Call: WRITE	Prompt: $C(7),!!,"The Green Sheet # ",PSDPN," is assigned to ",NAOUN,".",!,"Please select another Green Sheet.",! Line Location: GS+6
Function Call: WRITE	Prompt: $C(7),!!,"There's no data on ",NAOUN," for Green Sheet # ",PSDPN,".",!,"Contact your Pharmacy Coordinator for assistance.",! Line Location: GS+7
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: GS+8
Function Call: WRITE	Prompt: ! Line Location: GS+9
Function Call: WRITE	Prompt: !!,"Accessing ",PSDRN," information...",!! Line Location: COM+1
Function Call: WRITE	Prompt: !!,"Updating your records now..." Line Location: COM+2
Function Call: WRITE	Prompt: $C(7),!!," THIS GREEN SHEET HAS NOT BEEN COMPLETED ",!!,"The status remains "_STATN,! Line Location: COM+5
Function Call: WRITE	Prompt: ?2,!,"* Your Green Sheet #"_PSDPN_" is now "_$S($P($G(^PSD(58.82,STAT,0)),"^")]"":$P(^(0),"^"),1:"UNKNOWN")_" *",! Line Location: COM+7