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: PSDBALI1

Package: Controlled Substances

Routine: PSDBALI1


Information

PSDBALI1 ;BIR/JPW-Display/Prt Drug Inv Sheet & Bal (cont'd) ; 12 Apr 94

Source Information

Source file <PSDBALI1.m>

Entry Points

Name Comments DBIA/ICR reference
PRINT ;prints data
PRT ;
HDR ;header

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,?2,"=> INVENTORY TYPE: ",$S($E(TYPN,1,2)="ZZ":$E(TYPN,3,99),1:TYPN),!
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: !,?10,"Inspector's Signature: ______________________________",!
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !,?2,"=> INVENTORY TYPE: ",$S($E(TYPN,1,2)="ZZ":$E(TYPN,3,99),1:TYPN),!
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: ?5,"Stock Level: ",SLVL
  • Condition for execution: SLVL
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: ?30,"Exp. Date: ",EXP
  • Condition for execution: EXP]""
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: !
  • Line Location: PRT+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,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