Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
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>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 4 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  $$HTFM^XLFDT  
Drug Accountability 1 ^PSAUTL3  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Drug Accountability 1 PSA DISPLAY LOCATION  

Entry Points

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

External References

Name Field # of Occurrence
^%ZIS DEVICE
HOME^%ZIS DEVICE+1
^%ZISC EXIT
^%ZTLOAD DEVICE+1
^DIR DONE+3, HDR+6
^PSAUTL3 LOC
$$HTFM^XLFDT START+1

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
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+1
Routine Call
  • DIR
  • Line Location:
    • DONE+3
    • HDR+6
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRCP(445 PRINT+4, HDR+12
^PS(59 - [#59] START+7
^PS(59.4 - [#59.4] START+6
^PSD(58.8 - [#58.8] COMPILE+2, COMPILE+4, COMPILE+5, PRINT+2, PRINT+3
^PSDRUG - [#50] COMPILE+3, COMPILE+5
^TMP($J EXIT1!, COMPILE+1!, COMPILE+5*, PRINT+8, PRINT+10, PRINT+13, PRINT+14, PRINT+15, PRINT+16

Label References

Name Line Occurrences
COMPILE START+9
DONE START+9, PRINT+8
EXIT1 LOC, LOC+2, DEVICE, DEVICE+1
HDR PRINT+6, PRINT+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DEVICE*, EXIT1!
DIR EXIT1!, DONE+3!, HDR+6!
DIR("A" DONE+3*
DIR(0 DONE+3*, HDR+6*
DIRUT EXIT1!, HDR+6
DT COMPILE+4
DTOUT DEVICE*, EXIT1!
IO("Q" DEVICE!, DEVICE+1, EXIT!
IOF EXIT, PRINT+10, DONE+4, HDR+2, HDR+3, HDR+6
IOSL PRINT+11
IOST EXIT, PRINT+10, DONE+1, DONE+4, HDR+2, HDR+3, HDR+4, HDR+7
>> POP DEVICE
PSACHK LOC+1*, LOC+2, LOC+3, EXIT1+1!
PSACNT LOC*, LOC+1*, EXIT1+1!
PSADRG EXIT1+1!, COMPILE+2*, COMPILE+3, COMPILE+4, COMPILE+5, PRINT+6*, PRINT+10*, PRINT+12, PRINT+13, PRINT+14
, PRINT+15, PRINT+16
PSADT START+1*, START+2, EXIT1+1!
PSAIEN START+4*, START+5, EXIT1+1!, COMPILE+2, COMPILE+4, COMPILE+5, PRINT+2, PRINT+3
PSAINV EXIT1+1!, PRINT+4*, PRINT+5, HDR+12*, HDR+13
PSAISIT START+5*, START+6, START+8, EXIT1+1!
PSAISITN START+6*, START+8, EXIT1+1!
PSALEN EXIT1+1!, PRINT+2*, PRINT+5*, PRINT+13*, PRINT+14
PSALINK EXIT1+1!
PSALINK( PRINT+3*, HDR+11
PSALNK EXIT1+1!, PRINT+2*, PRINT+3, PRINT+4, HDR+11*, HDR+12
PSALOC LOC+2, LOC+3, EXIT1+1!
PSALOC( START+3, START+4, START+5
PSALOC("" LOC+1
PSALOCA EXIT1+1!
PSALOCN LOC+3, START*, START+3*, START+4, START+5, EXIT1+1!, HDR+10
PSAOSIT START+5*, START+7, START+8, EXIT1+1!
PSAOSITN START+7*, START+8, EXIT1+1!
PSAOUT LOC*, START*, START+3, START+4, START+9, EXIT1+2!, PRINT+10, PRINT+11, DONE+3*, HDR+4
, HDR+6*
PSAPG EXIT1+2!, PRINT+6*, HDR+1*, HDR+2, HDR+3, HDR+4, HDR+8
PSARPDT START+1*, START+2*, EXIT1+2!, HDR+7
PSAS EXIT1+2!, DONE+2*, HDR+5*
PSASEL LOC+3, EXIT1+2!
PSASITES START+8*, EXIT1+2!
PSASLN START*, EXIT1+2!, HDR+15
PSASS EXIT1+2!, DONE+2*, HDR+5*
PSATMP EXIT1+2!, PRINT+8*
X EXIT1+2!
Y DEVICE*, DEVICE+1*, EXIT1+2!, DONE+3, HDR+6
ZTDESC DEVICE+1*, EXIT1+2!
ZTDTH EXIT1+2!
ZTIO EXIT1+2!
>> ZTQUEUED EXIT
>> ZTREQ EXIT*
ZTRTN DEVICE+1*, EXIT1+2!
ZTSAVE EXIT1+2!
ZTSAVE("PSALOC(" DEVICE+1*
ZTSK EXIT1+2!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All