Routine: PSDRFD

Information

PSDRFD ;BIR/JPW,LTL-Nurse RF Dispensing ; 8 Aug 94

Source file <PSDRFD.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!!,?9,"** Please contact your Pharmacy Coordinator for access to order",!,?12,"narcotic supplies.",! Line Location: PSDRFD+3
Function Call: WRITE	Prompt: !!,"Please enter the ward from which the drug(s) will be signed out." Line Location: NAOU+1
Function Call: WRITE	Prompt: ! Line Location: NAOU+4
Function Call: WRITE	Prompt: !!,"Contact your Pharmacy Coordinator.",!,"The Pharmacy Dispensing Site is invalid for this NAOU." Line Location: NAOU+11
Function Call: WRITE	Prompt: !!,"Sorry, Pharmacy has not set up ",$G(NAOUN)," to keep a perpetual inventory." Line Location: NAOU+13
Function Call: WRITE	Prompt: $C(7),!!,?10,"Contact your Pharmacy Coordinator.",!,?10,"This "_$S(MSG=2:"Dispensing Site",MSG=1:"NAOU",1:"Drug")_" is missing " Line Location: MSG+1
Function Call: WRITE	Prompt: $S(MSG1=1:"Primary Disp. Site",MSG1=2:"stocked drugs",MSG1=3:"narcotic breakdown unit",MSG1=4:"narcotic package size",1:"data")_".",! Line Location: MSG+2