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

Package: Drug Accountability

Routine: PSAHIS


Information

PSAHIS ;BIR/LTL,JMB-Drug Transaction History ;7/23/97

Source Information

Source file <PSAHIS.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Kernel 4 ^%ZIS  ^%ZISC  ^%ZTLOAD  $$HTFM^XLFDT  
Drug Accountability 3 (,ALL)^PSAHIS1  SITES^PSAUTL1  ^PSAUTL3  
VA FileMan 2 ^DIC  ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Drug Accountability 1 PSA DRUG DISPLAY  

Entry Points

Name Comments DBIA/ICR reference
LOC ;Gets locations & drugs to print
DRUG ;Gets drugs to print
DAYS
DEV ;Asks device & queueing info
START ;Compiles & prints output data
EXIT
EXIT1
FIND ;Finds drugs & puts in alpha order in ^TMP("PSAHIS",$J)

External References

Name Field # of Occurrence
^%ZIS DEV+2
^%ZISC EXIT
^%ZTLOAD DEV+6
^DIC DRUG+3
^DIR DAYS+1
^PSAHIS1 FIND+9
ALL^PSAHIS1 DRUG+4
SITES^PSAUTL1 START+6
^PSAUTL3 LOC+1
$$HTFM^XLFDT START+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"There are no active pharmacy locations."
  • Line Location: LOC+3
Function Call: WRITE
  • Prompt: !!,"You may select one, several, or ^ALL drugs."
  • Line Location: DRUG+1
Function Call: WRITE
  • Prompt: !!,"There have been no transactions for this drug.",!
  • Line Location: DRUG+7
Function Call: WRITE
  • Prompt: !!,"There are no drugs in all the selected location(s)."
  • Line Location: DRUG+8
Function Call: WRITE
  • Prompt: !
  • Line Location: DAYS+1
Function Call: WRITE
  • Prompt: !
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: !,"NO DEVICE SELECTED OR OUTPUT PRINTED!"
  • Line Location: DEV+2
Function Call: WRITE
  • Prompt: !!,"No transactions were found for the pharmacy location."
  • Line Location: FIND+10
Routine Call
  • %ZIS
  • Line Location:
    • DEV+2
Routine Call
  • DIC
  • Line Location:
    • DRUG+3
Routine Call
  • DIR
  • Line Location:
    • DAYS+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSD(58.81 - [#58.81] DRUG+7, FIND+5, FIND+6
^PSDRUG - [#50] DRUG+6, DRUG+7
^TMP("PSA" EXIT+1!, FIND+1!, FIND+7*
^TMP("PSADRG" DRUG+6*, DRUG+7, DAYS, EXIT+1!, FIND+3
^TMP("PSAHIS" EXIT+1!, FIND+1!, FIND+7*, FIND+9, FIND+10

Label References

Name Line Occurrences
DAYS LOC+7
DRUG LOC+6
EXIT LOC+7, DRUG+8, DAYS, DAYS+2, DEV+2, DEV+3, START+5
EXIT1 LOC+1, LOC+3
FIND START+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DEV+1~*, EXIT1!
DIC DRUG+2*, DRUG+3!, EXIT1!
DIC("A" DRUG+2*
DIC(0 DRUG+2*
DIR DAYS+1!, EXIT1!
DIR("?" DAYS+1*
DIR("A" DAYS+1*
DIR("B" DAYS+1*
DIR(0 DAYS+1*
DIRUT DAYS+2, EXIT1!
DTOUT DRUG+5, EXIT1!
DUOUT DRUG+5, EXIT1!
IO("Q" DEV+1!, DEV+3, EXIT+1!
IOF LOC+5, EXIT
IOP DEV+1~
IOST EXIT
POP DEV+1~, DEV+2
PSA50 EXIT1!, FIND+3*, FIND+5
PSABAD EXIT1!, FIND+3*
PSABAD( FIND+8*
PSABAD1 EXIT1!, FIND+8*
PSABAL EXIT1!
PSABDT DAYS+2*, START+4, EXIT1!, FIND+7
PSABDTR START+4*, EXIT1!
PSACHK LOC+2*, LOC+3, EXIT1!
PSACNT LOC+1*, LOC+2*, DRUG+3, DRUG+6*, DRUG+7, EXIT1!, FIND+2*
PSACOMB EXIT1!
PSADJDT EXIT1!
PSADJT EXIT1!
PSADLN START+3*, EXIT1!
PSADRG EXIT1!, FIND+2*, FIND+3*, FIND+7, FIND+8
PSADRUG EXIT1!
PSADT START+1*, START+2, EXIT1!
PSAFIRST EXIT1+1!, FIND+1!, FIND+5*, FIND+7*, FIND+8
PSAHOLD EXIT1+1!
PSAHOLDN EXIT1+1!
PSAIPT EXIT1+1!
PSAISIT EXIT1+1!
PSAISITN EXIT1+1!
PSALN EXIT1+1!
PSALOC LOC+3, LOC+4*, DRUG+2, DRUG+6, DRUG+7, DRUG+8, START+6*, EXIT+1!, EXIT1+1!, FIND+3
, FIND+6
PSALOC( LOC+4, START+5, START+6
PSALOC("" LOC+2
PSALOCA EXIT+1!, EXIT1+1!
PSALOCN LOC+4*, LOC+5, START+5*, START+6, EXIT+1!, EXIT1+1!
PSANONE EXIT1+1!
PSAOPT EXIT1+1!
PSAOSIT EXIT1+1!
PSAOSITN EXIT1+1!
PSAOUT LOC+1*, LOC+4, LOC+6, LOC+7, DRUG+2, DRUG+3*, DRUG+5*, START+4*, START+5, START+6
, EXIT1+1!, FIND+5
PSAPC EXIT1+1!
PSAPC1 EXIT1+1!
PSAPCS EXIT1+1!
PSAPG EXIT1+1!, FIND+2*
PSAREA EXIT1+2!
PSARECT EXIT1+2!
PSARPDT START+1*, START+2*, EXIT1+2!
PSARUN START+2*, EXIT1+2!
PSAS EXIT1+2!
PSASEL EXIT1+2!
PSASITES EXIT1+2!
PSASS EXIT1+2!
PSATM START+1*, START+2, EXIT1+2!
PSATR EXIT1+2!, FIND+5*, FIND+6, FIND+7, FIND+8
PSATR0 EXIT1+2!, FIND+6*, FIND+7, FIND+8
PSATRANL EXIT1+2!
PSATRCNT EXIT1+2!
PSAWRT EXIT1+2!
X LOC+6, DRUG+2, DRUG+3, DRUG+4, EXIT1+2!
Y DRUG+2, DRUG+3, DRUG+5, DRUG+6, DRUG+7, DAYS+2, EXIT1+2!
ZTDESC DEV+4~, DEV+5*, EXIT1+2!
ZTDTH DEV+4~, EXIT1+2!
ZTIO DEV+4~, EXIT1+2!
>> ZTQUEUED EXIT
>> ZTREQ EXIT*
ZTRTN DEV+4~, DEV+5*, EXIT1+2!
ZTSAVE DEV+4~, EXIT1+2!
ZTSAVE("PSABDT" DEV+6*
ZTSAVE("PSALOC(" DEV+6*
ZTSAVE("^TMP(""PSADRG"",$J," DEV+6*
ZTSK DEV+4~, EXIT1+2!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All