Routine: PSDRSI

Information

PSDRSI ;BIR/JPW-Inspector Remove Hold on Green Sheet ; 10 Nov 93

Source file <PSDRSI.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Inspector Remove a Green Sheet from Hold" Line Location: PSDRSI+3
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 REMOVED FROM HOLD ",!!,"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