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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSALEVRP

Package: Drug Accountability

Routine: PSALEVRP


Information

PSALEVRP ;BIR/LTL,JMB-Stock and Reorder Report ;7/23/97

Source Information

Source file <PSALEVRP.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
Drug Accountability 2 END^PSAPROC  SITES^PSAUTL1  
VA Fileman 2 NOW^%DTC  ^DIR  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Drug Accountability 2 PSA STOCK & REORDER LEVEL RPT  PSAMON  

Entry Points

Name Comments DBIA/ICR reference
LOC
EXIT1
HDR ;Report header
MV
DISPLOC ;Displays the available pharmacy locations.
SELLOC
DEV ;Asks device & queueing info
COMPILE ;Compiles data
PRINT ;Prints report
DISPMV ;Displays active master vaults
MASTER
TEST
EXIT
SELMV ;Select displayed master vaults

External References

Name Field # of Occurrence
NOW^%DTC PRINT+1
^%ZIS DEV+3
^%ZISC EXIT
^%ZTLOAD DEV+8
^DIR SELLOC+1, SELMV+2
END^PSAPROC PRINT+23, HDR+1
SITES^PSAUTL1 LOC+8, PRINT+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?5,"No Drug Accountability location has been created yet."
  • Line Location: LOC+1
Function Call: WRITE
  • Prompt: !
  • Line Location: LOC+4
Function Call: WRITE
  • Prompt: @IOF,!,"Choose one or many pharmacy locations:",!
  • Line Location: DISPLOC+1
Function Call: WRITE
  • Prompt: !
  • Line Location: SELLOC+0
Function Call: WRITE
  • Prompt: !,"There are no active pharmacy locations."
  • Line Location: SELLOC+9
Function Call: WRITE
  • Prompt: @IOF,!,"Choose one or many master vaults:",!
  • Line Location: DISPMV+1
Function Call: WRITE
  • Prompt: !,$J(PSA,2)_".",?4,PSAMVA
  • Line Location: DISPMV+4
Function Call: WRITE
  • Prompt: !
  • Line Location: SELMV+1
Function Call: WRITE
  • Prompt: !!,"Each pharmacy location can contain all drugs in the DRUG file. Therefore,",!,"this report could be very long. It is advised to queue the report to run",!,"during non-critical hours.",!
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: !,"NO DEVICE SELECTED OR OUTPUT PRINTED!"
  • Line Location: DEV+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !?20,"DRUG ACCOUNTABILITY/INVENTORY INTERFACE",?72,"PAGE "_PSAPG
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !?25,"STOCK AND REORDER LEVEL REPORT",!
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: "RUN: "_PSARUN
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: ?31,"PHARMACY LOCATION"
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !!,$P(PSALOCN,"(IP)",1)_"(IP)",!!?17,$P(PSALOCN,"(IP)",2)
  • Condition for execution: $L(PSALOCN)>79
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !!,PSALOCN
  • Condition for execution: $L(PSALOCN)<80
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !,"MASTER VAULT: "_$P($G(^PSD(58.8,PSAMV,0)),"^")
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !!,"DRUG",?43,"STOCK LEVEL",?63,"REORDER LEVEL",!,PSASLN
  • Line Location: HDR+9
Routine Call
  • DIR
  • Line Location:
    • SELLOC+1
    • SELMV+2
Routine Call
  • %ZIS
  • Line Location:
    • DEV+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSD(58.8 - [#58.8] LOC, LOC+5, LOC+6, LOC+7, LOC+8, LOC+10, SELLOC+11, MASTER+1, MASTER+2, MASTER+3
, COMPILE+4, COMPILE+5, COMPILE+6, MV+3, MV+4, MV+5, PRINT+4, HDR+8
^PSDRUG - [#50] COMPILE+5, COMPILE+6, MV+4, MV+5
^TMP("PSALEV" COMPILE+6*, MV+5*, PRINT+3, PRINT+6, PRINT+8, PRINT+13, PRINT+15, PRINT+17, PRINT+19, EXIT1!
^XUSEC("PSA ORDERS" MASTER

Label References

Name Line Occurrences
EXIT SELLOC+1, TEST, TEST+2, DEV+4, PRINT+13
EXIT1 SELLOC+9, PRINT+23
HDR PRINT+5, PRINT+7, PRINT+16, PRINT+18
LOC PSALEVRP+7
MASTER PSALEVRP+7, LOC+1, LOC+11
MV COMPILE+1
PRINT MV
TEST MASTER, MASTER+4, SELMV+3

Naked Globals

Name Field # of Occurrence
^( PRINT+8, PRINT+19
^(0 LOC+10, COMPILE+6, MV+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% PRINT+1, EXIT1+1!
%ZIS DEV+2!*, EXIT1+1!
%ZIS("B" DEV+2*
DIR SELLOC+1!, SELMV+2!, EXIT1+1!
DIR("?" SELLOC*, SELMV+1*
DIR("??" SELLOC*, SELMV+1*
DIR("A" SELLOC*, SELMV+1*
DIR(0 SELLOC*, SELMV+1*
DT LOC+7, MASTER+2
DTOUT SELLOC+1, SELMV+2, EXIT1+1!
DUOUT SELLOC+1, SELMV+2, EXIT1+1!
DUZ MASTER
IO("Q" DEV+2!, DEV+4, EXIT1!
IOF DISPLOC+1, DISPMV+1, EXIT, HDR+1, HDR+2
IOP DEV+2!
IOSL PRINT+7, PRINT+18
IOST PRINT+23, EXIT, HDR+1, HDR+2, HDR+6
POP DEV+2!, DEV+3
PSA DISPMV+2*, DISPMV+4*, SELMV+1, SELMV+4*, SELMV+5, SELMV+6, TEST+1*, TEST+2, DEV+7, COMPILE+1*
, MV*, PRINT+13*, EXIT1+1!
PSACHK LOC+11*, SELLOC+8*, SELLOC+9, EXIT1+1!
PSACNT LOC+4*, LOC+9*, LOC+12, DISPLOC+2*, DISPLOC+5*, DISPLOC+6, SELLOC, EXIT1+1!
PSACOMB LOC+10, PRINT+4, EXIT1+1!
PSADRG COMPILE+4*, COMPILE+5, COMPILE+6, MV+3*, MV+4, MV+5, PRINT+6*, PRINT+8, PRINT+9, PRINT+17*
, PRINT+19, PRINT+20, EXIT1+1!
PSAFIRST PRINT+3*, PRINT+5*, PRINT+14*, PRINT+15*, PRINT+16*, EXIT1+1!
>> PSAHIS LOC+12, SELLOC+2
PSAISIT EXIT1+1!
PSAISITN EXIT1+1!
PSALOC LOC*, LOC+1, LOC+4*, LOC+5*, LOC+6, LOC+7, LOC+8, LOC+10, DISPLOC+4*, DISPLOC+5
, SELLOC+5*, SELLOC+6, SELLOC+9, SELLOC+10*, SELLOC+11, COMPILE+3*, COMPILE+4, COMPILE+5, COMPILE+6, PRINT+3*
, PRINT+4, PRINT+6, PRINT+8, EXIT1+1!, HDR+7
PSALOC( SELLOC+6*, SELLOC+10, COMPILE+2, COMPILE+3
PSALOC("" SELLOC+8, TEST+1, COMPILE+1
PSALOCA EXIT1+1!
PSALOCA( LOC+10*, DISPLOC+3, DISPLOC+4, SELLOC+6
PSALOCA("" LOC+11
PSALOCN DISPLOC+2*, DISPLOC+3*, DISPLOC+4, DISPLOC+5, DISPLOC+7, SELLOC+5*, SELLOC+6, SELLOC+10*, SELLOC+12, COMPILE+2*
, COMPILE+3, PRINT+4*, EXIT1+1!, HDR+7
PSAMAST EXIT1+1!
PSAMAST( SELMV+7*, MV+1, MV+2
PSAMAST("" TEST+1, MV
PSAMENU EXIT1+1!
PSAMENU( DISPLOC+5*, SELLOC+5
PSAMV MASTER*, MASTER+1*, MASTER+2, MASTER+3, DISPMV+3*, DISPMV+4, DISPMV+5!, TEST+1*, TEST+2, DEV+7
, MV+2*, MV+3, MV+4, MV+5, PRINT+14*, PRINT+15*, PRINT+17, PRINT+19, EXIT1+1!, HDR+8
PSAMV( MASTER+3*, DISPMV+2, DISPMV+3
PSAMVA DISPMV+2*, DISPMV+3, DISPMV+4, SELMV+5*, SELMV+6, SELMV+7, EXIT1+1!
PSAMVIEN SELMV+6*, SELMV+7, EXIT1+1!
PSAMVN MASTER*, MASTER+3*, MASTER+4, MV+1*, MV+2, EXIT1+1!
PSANUM SELLOC+4*, SELLOC+5, EXIT1+2!
PSAOSIT EXIT1+2!
PSAOSITN EXIT1+2!
PSAOUT LOC*, LOC+1*, SELLOC+1*, SELLOC+2*, SELLOC+10, SELMV+2*, TEST, PRINT+2*, PRINT+3, PRINT+5
, PRINT+6, PRINT+7, PRINT+15, PRINT+16, PRINT+17, PRINT+18, PRINT+23*, EXIT1+2!, HDR+1
PSAPC SELLOC+4*, SELMV+4*, EXIT1+2!
PSAPG PRINT+2*, EXIT1+2!, HDR+1, HDR+2, HDR+3*, HDR+4
PSAREORD PRINT+8*, PRINT+11, PRINT+19*, PRINT+22, EXIT1+2!
PSARUN PRINT+1*, EXIT1+2!, HDR+6
PSASEL SELLOC+3*, SELLOC+4, SELMV+3*, SELMV+4, EXIT1+2!
PSASLN PRINT+2*, EXIT1+2!, HDR+9
PSASTOCK PRINT+8*, PRINT+10, PRINT+19*, PRINT+21, EXIT1+2!
PSAVAULT SELMV+8!, EXIT1+2!
PSAVAULT( DISPMV+4*, SELMV+5, SELMV+6
Y SELLOC+2, SELLOC+3, SELMV+3, PRINT+2!, EXIT1+2!
ZTDESC DEV+5~, DEV+6*, EXIT1+2!
ZTDTH DEV+5~, EXIT1+2!
ZTIO DEV+5~, EXIT1+2!
>> ZTQUEUED EXIT
>> ZTREQ EXIT*
ZTRTN DEV+5~, DEV+6*, EXIT1+2!
ZTSAVE DEV+5~, EXIT1+2!
ZTSAVE("PSALOC(" DEV+7*
ZTSAVE("PSAMAST(" DEV+7*
ZTSK DEV+5~, EXIT1+2!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All