Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: PSDBALI

Package: Controlled Substances

Routine: PSDBALI


Information

PSDBALI ;BIR/JPW-Display/Print Drug Inv Sheet & Balance ; 29 Aug 94

Source Information

Source file <PSDBALI.m>

Entry Points

Name Comments DBIA/ICR reference
ASKD ;ask disp location
CHKD
SORT ;asks sort
DRUG ;ask schedule/drug
DEV ;sel device
START ;entry for compile
PRINT ;prints data
PRT ;
DONE
END ;
SAVE
HDR ;header
LOOP ;sets inv type
LOOP1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"There are no CS stocked drugs for your dispensing vault.",!!
  • Line Location: CHKD+0
Function Call: WRITE
  • Prompt: !
  • Line Location: SORT+1
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: !,?10,"Inspector's Signature: ______________________________",!
  • Line Location: PRINT+6
Function Call: WRITE
  • Prompt: ?5,"Stock Level: ",SLVL
  • Condition for execution: SLVL
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: ?30,"Exp. Date: ",EXP
  • Condition for execution: EXP]""
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: !
  • Line Location: PRT+1
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,"Inventory Sheet 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",?41,"CURRENT BALANCE",?58,"SCHEDULE",?69,"ON-HAND",!,LN,!!
  • Line Location: HDR+3
Info |  Source |  Entry Points |  Interaction Calls