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

Package: Drug Accountability

Routine: PSAMON


Information

PSAMON ;BIR/LTL,JMB-Monthly Summary ;7/23/97

Source Information

Source file <PSAMON.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
Kernel 4 (,HOME)^%ZIS  ^%ZISC  (,$$S)^%ZTLOAD  $$HTFM^XLFDT  
Drug Accountability 3 LOC^PSALEVRP  ^PSAMON1  END^PSAPROC  
VA Fileman 3 ^DIC  DT^DICRW  ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Drug Accountability 1 PSA MONTHLY SUMMARY  

Entry Points

Name Comments DBIA/ICR reference
END1 ;Kills variables at end of report
LOC
END ;End of page
HEADER ;prints header info
DEV ;asks device and queueing info
START ;compiles and prints output
DRUG
PRINT ;Prints in drug order.
LOOP
SUMHELP ;Extended help to 'Print summary report?'

External References

Name Field # of Occurrence
^%ZIS DEV+2
HOME^%ZIS DEV+6
^%ZISC END1+1
^%ZTLOAD DEV+6
$$S^%ZTLOAD HEADER+4
^DIC DRUG+2
DT^DICRW LOC+7
^DIR LOC+8, LOC+18, END+3, HEADER+3
LOC^PSALEVRP LOC+1
^PSAMON1 END+4
END^PSAPROC DRUG+6
$$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: !!,"There are no drugs in ",$G(PSALOCN)
  • Line Location: LOC+14
Function Call: WRITE
  • Prompt: !
  • Line Location: LOC+17
Function Call: WRITE
  • Prompt: !!,"Select one, several, or ^ALL drugs.",!
  • Line Location: DRUG+0
Function Call: WRITE
  • Prompt: !!,"Sorry, no history for that month."
  • Line Location: DRUG+7
Function Call: WRITE
  • Prompt: !
  • Line Location: DEV+2
Function Call: WRITE
  • Prompt: !,"NO DEVICE SELECTED OR OUTPUT PRINTED!"
  • Line Location: DEV+2
Function Call: WRITE
  • Prompt: !,"TOTAL",?36,$J(PSATREC,6,0),?49,$J(PSATDISP,6,0),?60,$J(PSATADJ,6,0),?73,$J(PSATTF,6,0),!,PSADLN,!
  • Line Location: LOOP+5
Function Call: WRITE
  • Prompt: !!,"<< NO DATA WAS FOUND. >>"
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: $J($S($G(PSABAL):PSABAL,1:0),6,0)
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: ?36,$J(PSAREC,6,0)
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: ?49,$J(PSADISP,6,0)
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: ?60,$J(PSADJ,6,0)
  • Line Location: PRINT+11
Function Call: WRITE
  • Prompt: ?73,$J(PSATF,6,0),!
  • Line Location: PRINT+12
Function Call: WRITE
  • Prompt: !
  • Line Location: END+2
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)),U),"."
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEADER+5
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEADER+6
Function Call: WRITE
  • Prompt: ?20,"DRUG ACCOUNTABILITY/INVENTORY INTERFACE",?71,"PAGE: ",PSAPG
  • Line Location: HEADER+8
Function Call: WRITE
  • Prompt: !?22,"MONTHLY SUMMARY REPORT FOR "_PSAMONN
  • Line Location: HEADER+9
Function Call: WRITE
  • Prompt: !!,?14,"BEGINNING",?26,"ENDING",?36,"TOTAL",?48,"TOTAL",?60,"TOTAL",?72,"TOTAL"
  • Line Location: HEADER+12
Function Call: WRITE
  • Prompt: !,"DRUG",?16,"BALANCE",?25,"BALANCE",?34,"RECEIVED",?46,"DISPENSED",?58,"ADJUSTED",?69,"TRANSFERRED"
  • Line Location: HEADER+13
Function Call: WRITE
  • Prompt: !,PSADLN
  • Line Location: HEADER+14
Function Call: WRITE
  • Prompt: !!?5,"Enter YES to print a report with the totals for each selected drug",!?5,"in all the pharmacy locations that were selected. A total line will"
  • Line Location: SUMHELP+1
Function Call: WRITE
  • Prompt: !?5,"print for the total dispense units received, dispensed, adjusted,",!?5,"and transferrred during the selected month."
  • Line Location: SUMHELP+2
Function Call: WRITE
  • Prompt: !!?5,"Enter NO to print each pharmacy location's report without the",!?5,"summary report."
  • Line Location: SUMHELP+3
Routine Call
  • %ZIS
  • Line Location:
    • DEV+6
Routine Call
  • DIC
  • Line Location:
    • DRUG+2
Routine Call
  • DIR
  • Line Location:
    • LOC+8
    • LOC+18
    • END+3
    • HEADER+3
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" LOC+7, LOC+9
^PSD(58.8 - [#58.8] LOC+14, DRUG+5, DRUG+7, LOOP+3, PRINT+6, PRINT+7, PRINT+8, PRINT+9, PRINT+10, PRINT+11
, PRINT+12
^PSDRUG - [#50] LOOP+3
^TMP("PSAD" LOC!, DRUG+5*, DRUG+8*, DEV+1, LOOP, LOOP+2, END1+2!
^TMP("PSAG" PRINT+15*, PRINT+16*, END1+2!
^TMP("PSAMON" START+4!, LOOP+3*, LOOP+4!, PRINT+1, PRINT+3, PRINT+4, PRINT+13, END1+2!
^VA(200 - [#200] HEADER+4

Label References

Name Line Occurrences
DEV LOC+16, LOC+19
DRUG LOC+15
END LOOP+6, PRINT+1
END1 LOC+1, LOC+3, LOC+8, LOC+18, DEV+1, DEV+2, DEV+3
HEADER LOOP+1, LOOP+5, PRINT+4
PRINT LOOP+4

Naked Globals

Name Field # of Occurrence
^( PRINT+15*, PRINT+16*
^(0 PRINT+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DEV+2*, END1+3!
DIC DRUG+1*, DRUG+9!, END1+3!
DIC("A" DRUG+1*
DIC(0 DRUG+1*
DIR LOC+8!, LOC+18!, END+3!, HEADER+3!
DIR("?" LOC+17*, LOC+18*
DIR("??" LOC+18*
DIR("A" LOC+8*, LOC+17*, END+3*
DIR("B" LOC+8*, LOC+17*
DIR(0 LOC+8*, LOC+17*, END+3*, HEADER+1*, HEADER+3*
DIRUT LOC+1, LOC+8, LOC+18, END+3, END1+3!, HEADER+3
DT LOC+7
DTOUT DRUG+2, END1+3!
DUOUT END1+3!
DUZ HEADER+4
IO("Q" DEV+2!, DEV+3, END1+2!
IOF LOC+13, END+4, HEADER+5, HEADER+6
IOP DEV+2~
IOSL LOOP+5, PRINT+4
IOST END+1, HEADER+1, HEADER+5, HEADER+6, HEADER+7
POP DEV+2~
PSA LOC+9*, DRUG+5*, DEV+1*, LOOP+2*, LOOP+3, PRINT+4*, PRINT+6, PRINT+7, PRINT+8, PRINT+9
, PRINT+10, PRINT+11, PRINT+12, END1+3!
PSABAL PRINT+7*, END1+3!
PSACHK LOC+2*, LOC+3, END1+3!
PSACNT LOC*, LOC+3, LOC+4, LOC+9*, LOC+12*, LOC+16, END1+3!
PSACOMB END1+3!
PSAD END1+3!
PSADISP PRINT+10*, PRINT+15, END1+3!
PSADJ PRINT+11*, PRINT+16, END1+3!
PSADLN START+3*, LOOP+5, PRINT+13, END1+3!, HEADER+14
PSADONE DRUG+1*, DRUG+2, DRUG+6*, END1+3!
PSADRUG PRINT+3*, PRINT+4, PRINT+5, PRINT+13, PRINT+15, PRINT+16, END1+3!
PSADT START+1*, START+2, END1+3!
PSAGADJ END1+3!
PSAGDISP END1+3!
PSAGREC END1+3!
PSAGTF END1+3!
PSAHIS LOC*, END1+3!
PSAISIT END1+4!
PSAISITN END1+4!
PSALOC LOC+5*, LOC+11*, LOC+14, DRUG+5, DRUG+7, LOOP+1*, LOOP+3, PRINT+6, PRINT+7, PRINT+8
, PRINT+9, PRINT+10, PRINT+11, PRINT+12, END1+4!
PSALOC( LOC+5*, LOOP+1
PSALOC("" LOC+2
PSALOCA END1+4!
PSALOCA( LOC+5
PSALOCA("" LOC+5
PSALOCN LOC+5*, LOC+6, LOC+11*, LOC+13, LOC+14, DRUG+5, DRUG+8, START+3, LOOP*, LOOP+1
, LOOP+2, END1+4!, HEADER+10, HEADER+11
PSAMENU END1+4!
PSAMENU( LOC+11
PSAMENU(1 LOC+5*
PSAMON LOC+7*, LOC+8, LOC+9*, DRUG+5, DRUG+7, LOOP+3, PRINT+6, PRINT+7, PRINT+8, PRINT+9
, PRINT+10, PRINT+11, PRINT+12, END1+4!
PSAMONN LOC+9*, START+3, END1+4!, HEADER+9
PSANODE END1+4!
PSANUM END1+4!
PSAOSIT END1+4!
PSAOSITN END1+4!
PSAOUT LOC*, LOC+1*, LOC+8*, LOC+11, LOC+14*, LOC+15, LOC+16, DRUG+2*, DRUG+3*, DEV+1
, START+3*, LOOP, LOOP+5, PRINT+3, PRINT+4, END+1, END+3*, END+4, END1+4!, HEADER+1
, HEADER+3*, HEADER+4*
PSAPC LOC+10*, END1+4!
PSAPC1 END1+4!
PSAPCS END1+4!
PSAPG START+3*, END1+5!, HEADER+1, HEADER+6, HEADER+7*, HEADER+8
PSAPICK LOC+10*, LOC+11, END1+4!
PSAREC PRINT+9*, PRINT+15, END1+5!
PSARPDT START+1*, START+2*, END1+5!, HEADER+7
PSAS END+2*, END1+5!, HEADER+2*
PSASEL LOC+5*, LOC+10, END1+5!
PSASLN START+3*, PRINT+13, END1+5!
PSASS END+2*, END1+5!, HEADER+2*
PSASUB END1+5!
PSATABH START+3*, END1+5!
PSATADJ LOOP+5, PRINT+2*, PRINT+11*, END1+5!
PSATDISP LOOP+5, PRINT+2*, PRINT+10*, END1+5!
PSATF PRINT+12*, PRINT+16, END1+5!
PSATOT LOC+5*, LOC+16*, LOC+18*, PRINT+14, END+4, END1+5!
PSATREC LOOP+5, PRINT+2*, PRINT+9*, END1+5!
PSATTF LOOP+5, PRINT+2*, PRINT+12*, END1+5!
PSAX PRINT+1*, END1+5!
U LOOP+3, PRINT+6, PRINT+7, PRINT+8, PRINT+9, PRINT+10, PRINT+11, PRINT+12, HEADER+4
X DRUG+2, DRUG+3, DRUG+4, END1+5!
Y LOC+7*, LOC+9*, LOC+18, DRUG+2, DRUG+3, DRUG+7, DRUG+8, END1+5!
ZTDESC DEV+4!, DEV+5*, END1+5!, HEADER+4
ZTDTH DEV+4!
ZTIO DEV+4!
>> ZTQUEUED END1+1
>> ZTREQ END1+1*
ZTRTN DEV+4!, DEV+5*, END1+5!
ZTSAVE DEV+4!
ZTSAVE("PSA*" DEV+5*
ZTSAVE("^TMP(""PSAD"",$J," DEV+5*
ZTSK DEV+4!, 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