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

Package: Drug Accountability

Routine: PSAHIS1


Information

PSAHIS1 ;BIR/LTL,JMB-Drug Transaction History - CONT'D ;7/23/97

Source Information

Source file <PSAHIS1.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
Drug Accountability 1 SITES^PSAUTL1  
Kernel 1 $$S^%ZTLOAD  
VA FileMan 1 ^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 PSAHIS  

Entry Points

Name Comments DBIA/ICR reference
PRINT
DONE ;Holds screen or ejects paper if sent to printer
TRANS
HEADER ;Prints header info
ALL ;Creates drug array with all drugs in location
WRAPDRUG ;Prints drug name w/o spliting words
REASON ;Prints transaction reason w/o spliting words
TRANSFER ;Prints transfer pharm loc that rec'd or sent drugs
TRAN ;Prints transferred location w/o spliting words
TOTALS ;Prints totals

External References

Name Field # of Occurrence
$$S^%ZTLOAD HEADER+5
^DIR DONE+3, HEADER+4
SITES^PSAUTL1 TRANSFER+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"No transactions were found for the pharmacy location."
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: !
  • Line Location: DONE+2
Function Call: WRITE
  • Prompt: !!!,"REPORT RUN: ",PSARUN
  • Line Location: DONE+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DONE+4
Function Call: WRITE
  • Prompt: ?72,$J(PSABAL,7)
  • Line Location: TRANS+7
Function Call: WRITE
  • Prompt: !,$E(PSADT,4,5)_"-"_$E(PSADT,6,7)_"-"_$E(PSADT,2,3),?10,$S($P(PSATR0,"^",2)=14:$E($P($G(^VA(200,+$P(PSATR4,"^",2),0)),"^"),1,28),1:$E($P($G(^VA(200,+$P(PSATR0,"^",7),0)),"^"),1,28))
  • Line Location: TRANS+11
Function Call: WRITE
  • Prompt: ?37,"|",?41,$J($P(PSATR0,"^",6),6),?48,"|",?54,"|",?60,"|",?71,"|",?72,$J(PSABAL,7),!
  • Line Location: TRANS+16
Function Call: WRITE
  • Prompt: ?11,"PO# ",$P($G(^(0)),"^"),?37,"|",?48,"|",?54,"|",?60,"|",?71,"|"
  • Line Location: TRANS+17
Function Call: WRITE
  • Prompt: !
  • Condition for execution: PSAWRT
  • Line Location: TRANS+18
Function Call: WRITE
  • Prompt: ?11,"TR# ",$P($G(^(0)),"^"),?37,"|",?48,"|",?54,"|",?60,"|",?71,"|"
  • Line Location: TRANS+18
Function Call: WRITE
  • Prompt: !
  • Condition for execution: PSAWRT
  • Line Location: TRANS+19
Function Call: WRITE
  • Prompt: ?11,"ORD# ",$P($G(^(8)),"^",2),?37,"|",?48,"|",?54,"|",?60,"|",?71,"|"
  • Line Location: TRANS+19
Function Call: WRITE
  • Prompt: !
  • Condition for execution: PSAWRT
  • Line Location: TRANS+20
Function Call: WRITE
  • Prompt: ?11,"INV# ",$P($G(^(8)),"^"),?37,"|",?48,"|",?54,"|",?60,"|",?71,"|"
  • Line Location: TRANS+20
Function Call: WRITE
  • Prompt: !?11,"DATE ENTERED: "_$E(PSADJDT,4,5)_"-"_$E(PSADJDT,6,7)_"-"_$E(PSADJDT,2,3),?37,"|",?48,"|",?54,"|",?60,"|",?71,"|"
  • Line Location: TRANS+25
Function Call: WRITE
  • Prompt: ?10,"NIGHTLY BACKGROUND JOB",?37,"|",?48,"|",?49,$J($P(PSATR0,"^",6),5),?54,"|",?60,"|",?71,"|",?72,$J(PSABAL,7)
  • Line Location: TRANS+29
Function Call: WRITE
  • Prompt: ?10,"NIGHTLY BACKGROUND JOB",?37,"|",?48,"|",?54,"|",?55,$J($P(PSATR0,"^",6),5),?60,"|",?71,"|",?72,$J(PSABAL,7)
  • Line Location: TRANS+31
Function Call: WRITE
  • Prompt: ?37,"|",?48,"|",?54,"|",?60,"|",?62,$J($P(PSATR0,"^",6),8),?71,"|",?72,$J($P(PSATR0,"^",10),7)
  • Line Location: TRANS+33
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEADER+1
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: !!,"Task #",$G(ZTSK),", ",$G(ZTDESC)," was stopped by ",$P($G(^VA(200,+$G(DUZ),0)),"^"),"."
  • Line Location: HEADER+5
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEADER+6
Function Call: WRITE
  • Prompt: !?22,"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: HEADER+7
Function Call: WRITE
  • Prompt: !?((42-$L(PSABDTR)-$L(PSARPDT))/2),"HISTORY OF DRUG TRANSACTIONS FROM ",PSABDTR," TO ",PSARPDT
  • Line Location: HEADER+8
Function Call: WRITE
  • Prompt: !?((80-$L(PSALOCN))/2),PSALOCN
  • Line Location: HEADER+9
Function Call: WRITE
  • Prompt: !!?37,"|",?48,"| DISPENSED |",?71,"|"
  • Line Location: HEADER+10
Function Call: WRITE
  • Prompt: !,"DATE",?10,"INITIATOR",?37,"| RECEIVED | IP | OP | ADJUSTED | BALANCE"
  • Line Location: HEADER+11
Function Call: WRITE
  • Prompt: !,PSADLN
  • Line Location: HEADER+12
Function Call: WRITE
  • Prompt: ?72,$J(PSABAL,7)
  • Line Location: HEADER+13
Function Call: WRITE
  • Prompt: !,"* ",PSADRG,?37,"|",?48,"|",?54,"|",?60,"|",?71,"|"
  • Line Location: WRAPDRUG+1
Function Call: WRITE
  • Prompt: !,"* "_PSAPC1,?37,"|",?48,"|",?54,"|",?60,"|",?71,"|"
  • Line Location: WRAPDRUG+4
Function Call: WRITE
  • Prompt: !?11,PSAREA,?37,"|",?48,"|",?54,"|",?60,"|",?71,"|"
  • Line Location: REASON+2
Function Call: WRITE
  • Prompt: !?11,PSAPC1,?37,"|",?48,"|",?54,"|",?60,"|",?71,"|"
  • Line Location: REASON+5
Function Call: WRITE
  • Prompt: !?11,PSAPC1,?37,"|",?48,"|",?54,"|",?60,"|",?71,"|"
  • Line Location: TRANSFER+8
Function Call: WRITE
  • Prompt: !?11,$P(PSAREA,":")_":",?37,"|",?48,"|",?54,"|",?60,"|",?71,"|"
  • Line Location: TRAN+4
Function Call: WRITE
  • Prompt: !?37,"|----------|-----|-----|----------|--------"
  • Line Location: TOTALS+1
Function Call: WRITE
  • Prompt: !?25,"DRUG TOTALS",?37,"|",?41,$J($G(PSARECT),6),?48,"|",$J($G(PSAIPT),5),?54,"|",$J($G(PSAOPT),5),?60,"|",?64,$J($G(PSADJT),6),?71,"|",!,PSADLN
  • Line Location: TOTALS+2
Routine Call
  • DIR
  • Line Location:
    • DONE+3
    • HEADER+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRC(442 - [#442] TRANS+17
^PRCS(410 - [#410] TRANS+18
^PSD(58.8 - [#58.8] ALL+1, TRANSFER+3
^PSD(58.81 - [#58.81] TRANS, TRANS+6, TRANS+9, TRANS+19, TRANS+20, TRANS+35, TRANSFER+1
^PSDRUG - [#50] ALL+1
^TMP("PSA" TRANS+6
^TMP("PSADRG" ALL+1*
^TMP("PSAHIS" PRINT+1, PRINT+2, PRINT+3
^VA(200 - [#200] TRANS+11, HEADER+5

Label References

Name Line Occurrences
HEADER PRINT, PRINT+1, PRINT+3, PRINT+4
REASON TRANS+26, TRANS+33
TOTALS PRINT+4
TRAN TRANSFER+4
TRANS PRINT+3
TRANSFER TRANS+27
WRAPDRUG TRANS+5, HEADER+13

Naked Globals

Name Field # of Occurrence
^(0 TRANS+17, TRANS+18
^(8 TRANS+19, TRANS+20

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DIR DONE+3!, HEADER+4!
DIR("A" DONE+3*
DIR(0 DONE+3*, HEADER+4*
>> DIRUT DONE+3, HEADER+4
DUZ HEADER+5
IOF DONE+4, HEADER+1, HEADER+4, HEADER+6
IOSL PRINT+1, PRINT+3, PRINT+4
IOST DONE+1, DONE+4, HEADER+1, HEADER+2, HEADER+6
>> PSA50 ALL+1*
>> PSABAD( TRANS+7
PSABAL PRINT+1!, TRANS+7*, TRANS+12*, TRANS+13*, TRANS+14*, TRANS+16, TRANS+24, TRANS+29, TRANS+31, TRANS+36
, HEADER+13
>> PSABDTR HEADER+8
>> PSACNT PRINT*, PRINT+5, TRANS*, ALL+1*
>> PSACOMB TRANSFER+3
>> PSADJDT TRANS+25*
PSADJT TRANS+27*, TRANS+33*, TRANS+36*, TOTALS+2, TOTALS+3!
>> PSADLN HEADER+12, TOTALS+2
>> PSADRG PRINT*, PRINT+1*, PRINT+2, PRINT+3, TRANS+6, TRANS+7, HEADER+13, WRAPDRUG+1, WRAPDRUG+2
>> PSADT PRINT+1*, PRINT+2*, PRINT+3, TRANS+11
>> PSAHOLD TRANSFER+1*, TRANSFER+2, TRANSFER+5
>> PSAHOLDN TRANSFER+1*, TRANSFER+2, TRANSFER+5
PSAIPT TRANS+29*, TOTALS+2, TOTALS+3!
>> PSALN TRANS+17*, TRANS+18*, TRANS+19*, TRANS+20*, TRANS+37*, TRANS+38*, TRANS+39*
>> PSALOC ALL+1, TRANSFER+1*, TRANSFER+2*, TRANSFER+3, TRANSFER+5*
>> PSALOCN HEADER+9, TRANSFER+1, TRANSFER+2*, TRANSFER+3*, TRANSFER+5*, TRAN+1, TRAN+2, TRAN+3
PSAOPT TRANS+31*, TOTALS+2, TOTALS+3!
>> PSAOUT PRINT+1, PRINT+2, PRINT+3, PRINT+4, PRINT+6, DONE+3*, HEADER+2, HEADER+4*, HEADER+5*
>> PSAPC WRAPDRUG+2*, WRAPDRUG+3, WRAPDRUG+4, REASON+3*, REASON+4, REASON+5, TRANSFER+6*, TRANSFER+7, TRANSFER+8
>> PSAPC1 WRAPDRUG+2*, WRAPDRUG+3*, WRAPDRUG+4*, WRAPDRUG+5, REASON+3*, REASON+4*, REASON+5*, REASON+6, TRANSFER+6*, TRANSFER+7*
, TRANSFER+8*, TRANSFER+9
>> PSAPCS WRAPDRUG+2*, REASON+3*, TRANSFER+6*
>> PSAPG HEADER+1*, HEADER+2, HEADER+6, HEADER+7
>> PSAREA REASON+1*, REASON+2, REASON+3, TRANSFER+2*, TRANSFER+4*, TRANSFER+6, TRAN+1*, TRAN+2*, TRAN+3*, TRAN+4
, TRAN+5*
PSARECT TRANS+16*, TOTALS+2, TOTALS+3!
>> PSARPDT HEADER+8
>> PSARUN DONE+4
>> PSAS DONE+2*, HEADER+3*
>> PSASS DONE+2*, HEADER+3*
>> PSATR PRINT+3*, TRANS, TRANS+9, TRANS+19, TRANS+20, TRANS+35
>> PSATR0 TRANS*, TRANS+11, TRANS+12, TRANS+13, TRANS+14, TRANS+16, TRANS+17, TRANS+18, TRANS+23, TRANS+24
, TRANS+25, TRANS+26, TRANS+27, TRANS+29, TRANS+31, TRANS+33, TRANS+35, REASON+1, TRANSFER+1, TRANSFER+4
>> PSATR4 TRANS+9*, TRANS+11, TRANS+14, TRANS+36, TRANS+37
>> PSATR8 TRANS+35*, TRANS+38, TRANS+39
>> PSATRANL TRANSFER+1*
PSATRCNT PRINT+1!, TRANS*, TRANS+4, HEADER+13
PSAW TRANS+21!, TRANS+40!
>> PSAWRT TRANS+16*, TRANS+17*, TRANS+18*, TRANS+19*, TRANS+20*, TRANS+37*, TRANS+38*, TRANS+39*
>> Z TRANS+6*, TRANS+7
>> ZTDESC HEADER+5
>> ZTSK HEADER+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All