Routine: PSAHIS1

Package	Total	Call Graph
Drug Accountability	1	SITES^PSAUTL1
Kernel	1	$$S^%ZTLOAD
VA Fileman	1	^DIR

Package	Total	Caller Graph
Drug Accountability	1	PSAHIS

Entry Points

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

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+6
Function Call: WRITE	Prompt: !,$E(PSADT,4,5)_"-"_$E(PSADT,6,7)_"-"_$E(PSADT,2,3),?10,$E($P($G(^VA(200,+$P(PSATR0,"^",7),0)),"^"),1,28) Line Location: TRANS+9
Function Call: WRITE	Prompt: ?37,"\|",?41,$J($P(PSATR0,"^",6),6),?48,"\|",?54,"\|",?60,"\|",?71,"\|",?72,$J(PSABAL,7),! Line Location: TRANS+13
Function Call: WRITE	Prompt: ?11,"PO# ",$P($G(^(0)),"^"),?37,"\|",?48,"\|",?54,"\|",?60,"\|",?71,"\|" Line Location: TRANS+14
Function Call: WRITE	Prompt: ! Condition for execution: PSAWRT Line Location: TRANS+15
Function Call: WRITE	Prompt: ?11,"TR# ",$P($G(^(0)),"^"),?37,"\|",?48,"\|",?54,"\|",?60,"\|",?71,"\|" Line Location: TRANS+15
Function Call: WRITE	Prompt: ! Condition for execution: PSAWRT Line Location: TRANS+16
Function Call: WRITE	Prompt: ?11,"ORD# ",$P($G(^(8)),"^",2),?37,"\|",?48,"\|",?54,"\|",?60,"\|",?71,"\|" Line Location: TRANS+16
Function Call: WRITE	Prompt: ! Condition for execution: PSAWRT Line Location: TRANS+17
Function Call: WRITE	Prompt: ?11,"INV# ",$P($G(^(8)),"^"),?37,"\|",?48,"\|",?54,"\|",?60,"\|",?71,"\|" Line Location: TRANS+17
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+22
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+26
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+28
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	TRANS+14
^PRCS(410	TRANS+15
^PSD(58.8 - [#58.8]	ALL+1, TRANSFER+3
^PSD(58.81 - [#58.81]	TRANS, TRANS+6, TRANS+16, TRANS+17, 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+9, HEADER+5

Label References

Name	Line Occurrences
HEADER	PRINT, PRINT+1, PRINT+3, PRINT+4
REASON	TRANS+23
TOTALS	PRINT+4
TRAN	TRANSFER+4
TRANS	PRINT+3
TRANSFER	TRANS+24
WRAPDRUG	TRANS+5, HEADER+13

Naked Globals

Name	Field # of Occurrence
^(0	TRANS+14, TRANS+15
^(8	TRANS+16, TRANS+17

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+6
PSABAL	PRINT+1!, TRANS+6, TRANS+10, TRANS+11*, TRANS+13, TRANS+21, TRANS+26, TRANS+28, HEADER+13
>> PSABDTR	HEADER+8
>> PSACNT	PRINT, PRINT+5, TRANS, ALL+1*
>> PSACOMB	TRANSFER+3
>> PSADJDT	TRANS+22*
PSADJT	TRANS+24*, TOTALS+2, TOTALS+3!
>> PSADLN	HEADER+12, TOTALS+2
>> PSADRG	PRINT, PRINT+1, PRINT+2, PRINT+3, TRANS+6, HEADER+13, WRAPDRUG+1, WRAPDRUG+2
>> PSADT	PRINT+1, PRINT+2, PRINT+3, TRANS+9
>> PSAHOLD	TRANSFER+1*, TRANSFER+2, TRANSFER+5
>> PSAHOLDN	TRANSFER+1*, TRANSFER+2, TRANSFER+5
PSAIPT	TRANS+26*, TOTALS+2, TOTALS+3!
>> PSALN	TRANS+14, TRANS+15, TRANS+16, TRANS+17
>> 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+28*, 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+13*, 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+16, TRANS+17
>> PSATR0	TRANS*, TRANS+9, TRANS+10, TRANS+11, TRANS+13, TRANS+14, TRANS+15, TRANS+20, TRANS+21, TRANS+22 , TRANS+23, TRANS+24, TRANS+26, TRANS+28, REASON+1, TRANSFER+1, TRANSFER+4
>> PSATRANL	TRANSFER+1*
PSATRCNT	PRINT+1!, TRANS*, TRANS+4, HEADER+13
PSAW	TRANS+18!
>> PSAWRT	TRANS+13, TRANS+14, TRANS+15, TRANS+16, TRANS+17*
>> ZTDESC	HEADER+5
>> ZTSK	HEADER+5

Customize PDF page

Package: Drug Accountability

Routine: PSAHIS1

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: