Routine: PSDDFP

Information

PSDDFP ;BIR/JPW-Dispense from Pharmacy w/o Green Sheet ; 8 Aug 94

Source file <PSDDFP.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!!,?9,"** Please contact your Pharmacy Coordinator for access to",!,?12,"dispense narcotic supplies.",!!,"PSJ RPHARM or PSD TECH ADV security key required.",! Line Location: PSDDFP+9
Function Call: WRITE	Prompt: !!,"There are no stocked drugs for this Pharmacy Vault!!",!! Line Location: CHKD+0
Function Call: WRITE	Prompt: ! Line Location: DRUG+1
Function Call: WRITE	Prompt: $C(7),!!,?10,"** Your Dispensing Site is missing stock drug data.",!,"Please contact your Pharmacy Coordinator for assistance.",! Line Location: DRUG+5
Function Call: WRITE	Prompt: $C(7),!!,PSDRN," is missing breakdown unit or",!,"package size data in ",PSDSN,"." Line Location: DRUG+7
Function Call: WRITE	Prompt: !!,PSDSN,"is missing narcotic breakdown unit",!,"for ",PSDRN,"." Line Location: DRUG+13
Function Call: WRITE	Prompt: !!,PSDSN,"is missing narcotic package size",!,"for ",PSDRN,"." Line Location: DRUG+14
Function Call: WRITE	Prompt: !!,"The drug balance for this drug is ",+$P(^PSD(58.8,PSDS,1,PSDR,0),"^",4),".",!,"You cannot dispense ",QTY," for this drug.",!! Line Location: QTY+1
Function Call: WRITE	Prompt: ! Line Location: OK+0
Function Call: WRITE	Prompt: !!,"Updating Expiration Date data..." Line Location: MFG+5
Function Call: WRITE	Prompt: "done.",!! Line Location: MFG+5
Function Call: WRITE	Prompt: !!," No action taken. ",!! Line Location: MSG+0