Routine: PSDBAL

Information

PSDBAL ;BIR/JPW - Display/Print Current Drug Balance ;29 Aug 94

Source file <PSDBAL.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Contact your Pharmacy Coordinator for access to display current CS drug",!,"balances.",!!,"PSJ RPHARM or PSD TECH security key required.",! Line Location: PSDBAL+3
Function Call: WRITE	Prompt: !!,"There are no CS stocked drugs for your dispensing vault.",!! Line Location: CHKD+0
Function Call: WRITE	Prompt: !,"Select Schedule/Drug" Line Location: DRUG+1
Function Call: WRITE	Prompt: !!,?5,"You may select a single drug, several drugs,",!,?5,"or enter ^ALL to select all drugs.",! Line Location: DRUG+8
Function Call: WRITE	Prompt: ! Line Location: DRUG+9
Function Call: WRITE	Prompt: ! Line Location: DEV+2
Function Call: WRITE	Prompt: !!,"NO DEVICE SELECTED OR REPORT PRINTED!!",! Line Location: DEV+2
Function Call: WRITE	Prompt: !!,?15,"** NO STOCK BALANCE DATA AVAILABLE **",!! Line Location: PRINT+3
Function Call: WRITE	Prompt: @IOF Line Location: DONE+0
Function Call: WRITE	Prompt: ! Line Location: DONE+1
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: HDR+2
Function Call: WRITE	Prompt: !,?12,"Current Stock Balances for ",PSDSN,?72,"Page: ",PG,!,?20,$S(SCH=1:"Schedules I - II",SCH=2:"Schedules III - V",SCH=3:"Schedules I - V",1:""),!?20,RPDT,!! Line Location: HDR+2
Function Call: WRITE	Prompt: ?5,"DRUG",?50,"SCHEDULE",?61,"CURRENT BALANCE",!,LN,!! Line Location: HDR+3