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

Package: Drug Accountability

Routine: PSADAI


Information

PSADAI ;BIR/LTL/,JMB/PDW-Drug Balances by Location ;7/23/97

Source Information

Source file <PSADAI.m>

Entry Points

Name Comments DBIA/ICR reference
LOC
DEVICE
START
EXIT
EXIT1
COMPILE ;Creates ^TMP(Drug Name)= current balance ^ dispense unit ^ total inventory (current balance in 50)
PRINT ;Prints body of report
DONE ;Holds screen or ejects paper if sent to printer
HDR ;Print header

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"There are no active pharmacy locations."
  • Line Location: LOC+2
Function Call: WRITE
  • Prompt: !!,PSALOCN
  • Line Location: LOC+3
Function Call: WRITE
  • Prompt: !
  • Line Location: DEVICE+0
Function Call: WRITE
  • Prompt: !,"No Device was selected or output printed."
  • Line Location: DEVICE+0
Function Call: WRITE
  • Prompt: !!,"<< NO DRUGS WERE FOUND. >>",!
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: !
  • Line Location: DONE+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: ?21,"D R U G A C C O U N T A B I L I T Y",?71,"Page ",$J(PSAPG,2)
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !?24,"DRUG BALANCES BY LOCATION REPORT"
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !?((80-$L(PSALOCN))/2),PSALOCN
  • Line Location: HDR+10
Function Call: WRITE
  • Prompt: !!?47,"CURRENT",?58,"DISPENSE",?72,"TOTAL"
  • Line Location: HDR+14
Function Call: WRITE
  • Prompt: !,"DRUG NAME",?47,"BALANCE",?60,"UNIT",?70,"INVENTORY",!,PSASLN
  • Line Location: HDR+15
Info |  Source |  Entry Points |  Interaction Calls