Routine: PSAHIS

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

Package

Total

Call Graph

Kernel

^%ZIS ^%ZISC ^%ZTLOAD $$HTFM^XLFDT

Drug Accountability

(,ALL)^PSAHIS1 SITES^PSAUTL1 ^PSAUTL3

VA Fileman

^DIC ^DIR

Package	Total	Caller Graph
Drug Accountability	1	PSA DRUG DISPLAY

Package

Total

Caller Graph

Drug Accountability

PSA DRUG DISPLAY

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

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	DIC Line Location: DRUG+3
Routine Call	DIR Line Location: DAYS+1
Routine Call	%ZIS Line Location: DEV+2

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

Name	Line Occurrences
DAYS	LOC+7
DRUG	LOC+6
EXIT	LOC+7, DRUG+8, DAYS, DAYS+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!

Customize PDF page

Package: Drug Accountability

Routine: PSAHIS

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: