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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: PSADJR

Package: Drug Accountability

Routine: PSADJR


Information

PSADJR ;BIR/LTL,JMB-Balance Adjustments History ;8/21/97

Source Information

Source file <PSADJR.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 3 (,HOME)^%ZIS  ^%ZISC  (,$$S)^%ZTLOAD  
VA FileMan 3 DD^%DT  ^DIC  ^DIR  
Drug Accountability 2 SITES^PSAUTL1  ^PSAUTL3  

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

Package Total Caller Graph
Drug Accountability 2 PSA BALANCE ADJUSTMENTS REPORT  PSADJ  

Entry Points

Name Comments DBIA/ICR reference
LOOK ;Get locations to display
DEV ;asks device and queueing info
START ;compiles and prints output
LOOP
EXIT
HEADER ;prints header info
TRAN ;

External References

Name Field # of Occurrence
DD^%DT START+3
^%ZIS DEV+1
HOME^%ZIS DEV+2
^%ZISC EXIT+4
^%ZTLOAD DEV+2
$$S^%ZTLOAD HEADER+4
^DIC LOOK+6
^DIR LOOK+8, EXIT+3, HEADER+3
SITES^PSAUTL1 START+1, LOOP+9
^PSAUTL3 LOOK+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"There are no active pharmacy locations."
  • Line Location: LOOK+3
Function Call: WRITE
  • Prompt: !!,"There are no drugs in ",PSALOCN
  • Line Location: LOOK+4
Function Call: WRITE
  • Prompt: !
  • Line Location: LOOK+5
Function Call: WRITE
  • Prompt: !!,"There have been no adjustments for this drug.",!!
  • Line Location: LOOK+7
Function Call: WRITE
  • Prompt: !
  • Line Location: LOOK+8
Function Call: WRITE
  • Prompt: !,"NO DEVICE SELECTED OR OUTPUT PRINTED!"
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: !,$E(Y,1,17)
  • Line Location: LOOP+3
Function Call: WRITE
  • Prompt: ?30
  • Condition for execution: $P($G(^PSD(58.81,PSAR,0)),"^",2)=24
  • Line Location: LOOP+4
Function Call: WRITE
  • Prompt: $J($P($G(^PSD(58.81,PSAR,0)),"^",6),5,0)
  • Line Location: LOOP+4
Function Call: WRITE
  • Prompt: !?37,$P($G(^PSD(58.81,PSAR,0)),"^",16),!
  • Line Location: LOOP+6
Function Call: WRITE
  • Prompt: !?37,"TRANSFER DATA MISSING",!
  • Line Location: LOOP+8
Function Call: WRITE
  • Prompt: !?37,"TO "_PSALOCN,!
  • Condition for execution: $L(PSALOCN)<42
  • Line Location: LOOP+10
Function Call: WRITE
  • Prompt: !?37,"TO "
  • Line Location: LOOP+10
Function Call: WRITE
  • Prompt: !?37,"FROM "_PSALOCN,!
  • Condition for execution: $L(PSALOCN)<42
  • Line Location: LOOP+11
Function Call: WRITE
  • Prompt: !?37,"FROM "
  • Line Location: LOOP+11
Function Call: WRITE
  • Prompt: !
  • Line Location: EXIT+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EXIT+3
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: !!,"Task #",$G(ZTSK),", ",$G(ZTDESC)," was stopped by ",$P($G(^VA(200,+$G(DUZ),0)),"^"),"."
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: !?22,"HISTORY OF ADJUSTMENTS AND TRANSFERS",?70,"PAGE: ",PSAPG,!
  • Line Location: HEADER+7
Function Call: WRITE
  • Prompt: ?20,"** INACTIVE DRUG IN PHARMACY LOCATION **",!
  • Line Location: HEADER+9
Function Call: WRITE
  • Prompt: !,"DATE",?22,"ADJUST",?30,"TRANS",?37,"TRANSACTOR & REASON",!,PSASLN
  • Line Location: HEADER+10
Function Call: WRITE
  • Prompt: $P($P(PSALOCN,":",2),"(IP)"),!
  • Line Location: TRAN+1
Function Call: WRITE
  • Prompt: $P($P(PSALOCN,":",2),"(OP)"),!
  • Line Location: TRAN+2
Function Call: WRITE
  • Prompt: "COMBINED:"_$P($P(PSALOCN,":",2),"(IP)",1)_"(IP)",!
  • Line Location: TRAN+3
Function Call: WRITE
  • Prompt: ?49
  • Condition for execution: PSATF="T"
  • Line Location: TRAN+3
Function Call: WRITE
  • Prompt: ?51
  • Condition for execution: PSATF="F"
  • Line Location: TRAN+3
Function Call: WRITE
  • Prompt: $P($P(PSALOCN,":",2),"(IP)",2),!
  • Line Location: TRAN+3
Routine Call
  • DIC
  • Line Location:
    • LOOK+6
Routine Call
  • DIR
  • Line Location:
    • LOOK+8
    • EXIT+3
    • HEADER+3
Routine Call
  • %ZIS
  • Line Location:
    • DEV+1
Routine Call
  • %ZIS
  • Line Location:
    • DEV+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSD(58.8 - [#58.8] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" LOOP+3
^PSD(58.8 - [#58.8] LOOK+4, START+1, LOOP+9, HEADER+9
^PSD(58.81 - [#58.81] LOOK+7, LOOP, LOOP+1, LOOP+2, LOOP+3, LOOP+4, LOOP+5, LOOP+6, LOOP+7, LOOP+10
, LOOP+11
^PSDRUG - [#50] START+2
^VA(200 - [#200] LOOP+5, HEADER+4

Label References

Name Line Occurrences
EXIT LOOK+1, LOOK+3, LOOK+4, LOOK+6, LOOK+7, LOOK+8, DEV+1, DEV+2
HEADER START+3, LOOP+1, LOOP+2
TRAN LOOP+10, LOOP+11

Naked Globals

Name Field # of Occurrence
^(0 LOOP, HEADER+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT START+3~
%ZIS DEV+1~*
DA EXIT+5!
DA(1 LOOK+5*
DIC LOOK+5*, LOOK+6!, EXIT+5!
DIC("A" LOOK+5*
DIC("W" LOOK+5*
DIC(0 LOOK+5*
DIR LOOK+8!, EXIT+5!, HEADER+3!
DIR("A" LOOK+8*, EXIT+3*
DIR("B" LOOK+8*
DIR(0 LOOK+8*, EXIT+3*, HEADER+3*
DIRUT LOOK+8, EXIT+5!
DT START+3, HEADER+9
DTOUT EXIT+5!
DUOUT EXIT+5!
DUZ HEADER+4
IO("Q" DEV+1!, DEV+2, EXIT+4!
IOF EXIT, EXIT+3, HEADER+5
IOP DEV+1~
IOSL LOOP+1, LOOP+2
IOST EXIT, EXIT+1, HEADER+1, HEADER+6
POP DEV+1~
PSA LOOK+6*, START+2, LOOP, EXIT+5!, HEADER+9
PSACHK LOOK+2*, LOOK+3, EXIT+5!
PSACNT LOOK+1*, LOOK+2*, EXIT+5!
PSACOMB START+1, LOOP+9, EXIT+5!
PSADRG START+2*, EXIT+5!, HEADER+8
PSAHOLD LOOP+7*, LOOP+8, LOOP+12, EXIT+5!
PSAHOLDN LOOP+7*, LOOP+8, LOOP+12, EXIT+5!
PSAKK EXIT+2*, EXIT+5!, HEADER+2*
PSALOC LOOK+3, LOOK+4, LOOK+5, START+1, LOOP, LOOP+7*, LOOP+8*, LOOP+9, LOOP+12*, EXIT+5!
, HEADER+9
PSALOC("" LOOK+2
PSALOCA EXIT+5!
PSALOCN LOOK+4, START+1*, LOOP+7, LOOP+8*, LOOP+9*, LOOP+10, LOOP+11, LOOP+12*, EXIT+5!, HEADER+8
, TRAN+1, TRAN+2, TRAN+3
PSAOUT LOOK+1*, LOOK+4*, LOOK+6*, LOOK+7*, LOOK+8*, DEV+1*, DEV+2*, START+3~*, LOOP, LOOP+1
, LOOP+2, EXIT+1, EXIT+5!, HEADER+1, HEADER+3*, HEADER+4*
PSAPG START+3~*, HEADER+1, HEADER+5*, HEADER+7
PSAR START+3*, LOOP*, LOOP+1, LOOP+2, LOOP+3, LOOP+4, LOOP+5, LOOP+6, LOOP+7, LOOP+10
, LOOP+11, EXIT+5!
PSARPDT START+3~*, HEADER+6
PSASEL EXIT+5!
PSASLN START+3~*, HEADER+10
PSASS EXIT+2*, EXIT+5!, HEADER+2*
PSAT LOOK+9*, LOOP, EXIT+5!
PSATAB START+2*, EXIT+5!, HEADER+8
PSATF LOOP+10*, LOOP+11*, EXIT+5!, TRAN+3
PSATRAN EXIT+5!
PSATRANL LOOP+7*, EXIT+5!
X EXIT+5!
Y LOOK+6, LOOK+7, LOOK+9, START+3*, LOOP+3*, EXIT+5!, HEADER+3
ZTDESC DEV+2~*, HEADER+4
ZTDTH DEV+2~
ZTIO DEV+2~
>> ZTQUEUED EXIT+4
>> ZTREQ EXIT+4*
ZTRTN DEV+2~*
ZTSAVE DEV+2~
ZTSAVE("PSA*" DEV+2*
ZTSK DEV+2~, HEADER+4
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All