Routine: PSALEVRP

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
Drug Accountability	2	END^PSAPROC SITES^PSAUTL1
VA Fileman	2	NOW^%DTC ^DIR

Package	Total	Caller Graph
Drug Accountability	2	PSA STOCK & REORDER LEVEL RPT PSAMON

Entry Points

Name	Comments	DBIA/ICR reference
LOC
EXIT1
HDR	;Report header
MV
DISPLOC	;Displays the available pharmacy locations.
SELLOC
DEV	;Asks device & queueing info
COMPILE	;Compiles data
PRINT	;Prints report
DISPMV	;Displays active master vaults
MASTER
TEST
EXIT
SELMV	;Select displayed master vaults

External References

Name	Field # of Occurrence
NOW^%DTC	PRINT+1
^%ZIS	DEV+3
^%ZISC	EXIT
^%ZTLOAD	DEV+8
^DIR	SELLOC+1, SELMV+2
END^PSAPROC	PRINT+23, HDR+1
SITES^PSAUTL1	LOC+8, PRINT+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?5,"No Drug Accountability location has been created yet." Line Location: LOC+1
Function Call: WRITE	Prompt: ! Line Location: LOC+4
Function Call: WRITE	Prompt: @IOF,!,"Choose one or many pharmacy locations:",! Line Location: DISPLOC+1
Function Call: WRITE	Prompt: ! Line Location: SELLOC+0
Function Call: WRITE	Prompt: !,"There are no active pharmacy locations." Line Location: SELLOC+9
Function Call: WRITE	Prompt: @IOF,!,"Choose one or many master vaults:",! Line Location: DISPMV+1
Function Call: WRITE	Prompt: !,$J(PSA,2)_".",?4,PSAMVA Line Location: DISPMV+4
Function Call: WRITE	Prompt: ! Line Location: SELMV+1
Function Call: WRITE	Prompt: !!,"Each pharmacy location can contain all drugs in the DRUG file. Therefore,",!,"this report could be very long. It is advised to queue the report to run",!,"during non-critical hours.",! Line Location: DEV+1
Function Call: WRITE	Prompt: !,"NO DEVICE SELECTED OR OUTPUT PRINTED!" Line Location: DEV+3
Function Call: WRITE	Prompt: @IOF Line Location: HDR+2
Function Call: WRITE	Prompt: !?20,"DRUG ACCOUNTABILITY/INVENTORY INTERFACE",?72,"PAGE "_PSAPG Line Location: HDR+4
Function Call: WRITE	Prompt: !?25,"STOCK AND REORDER LEVEL REPORT",! Line Location: HDR+5
Function Call: WRITE	Prompt: "RUN: "_PSARUN Line Location: HDR+6
Function Call: WRITE	Prompt: ?31,"PHARMACY LOCATION" Line Location: HDR+7
Function Call: WRITE	Prompt: !!,$P(PSALOCN,"(IP)",1)_"(IP)",!!?17,$P(PSALOCN,"(IP)",2) Condition for execution: $L(PSALOCN)>79 Line Location: HDR+7
Function Call: WRITE	Prompt: !!,PSALOCN Condition for execution: $L(PSALOCN)<80 Line Location: HDR+7
Function Call: WRITE	Prompt: !,"MASTER VAULT: "_$P($G(^PSD(58.8,PSAMV,0)),"^") Line Location: HDR+8
Function Call: WRITE	Prompt: !!,"DRUG",?43,"STOCK LEVEL",?63,"REORDER LEVEL",!,PSASLN Line Location: HDR+9
Routine Call	DIR Line Location: SELLOC+1 SELMV+2
Routine Call	%ZIS Line Location: DEV+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PSD(58.8 - [#58.8]	LOC, LOC+5, LOC+6, LOC+7, LOC+8, LOC+10, SELLOC+11, MASTER+1, MASTER+2, MASTER+3 , COMPILE+4, COMPILE+5, COMPILE+6, MV+3, MV+4, MV+5, PRINT+4, HDR+8
^PSDRUG - [#50]	COMPILE+5, COMPILE+6, MV+4, MV+5
^TMP("PSALEV"	COMPILE+6, MV+5, PRINT+3, PRINT+6, PRINT+8, PRINT+13, PRINT+15, PRINT+17, PRINT+19, EXIT1!
^XUSEC("PSA ORDERS"	MASTER

Label References

Name	Line Occurrences
EXIT	SELLOC+1, TEST, TEST+2, DEV+4, PRINT+13
EXIT1	SELLOC+9, PRINT+23
HDR	PRINT+5, PRINT+7, PRINT+16, PRINT+18
LOC	PSALEVRP+7
MASTER	PSALEVRP+7, LOC+1, LOC+11
MV	COMPILE+1
PRINT	MV
TEST	MASTER, MASTER+4, SELMV+3

Naked Globals

Name	Field # of Occurrence
^(	PRINT+8, PRINT+19
^(0	LOC+10, COMPILE+6, MV+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	PRINT+1, EXIT1+1!
%ZIS	DEV+2!*, EXIT1+1!
%ZIS("B"	DEV+2*
DIR	SELLOC+1!, SELMV+2!, EXIT1+1!
DIR("?"	SELLOC, SELMV+1
DIR("??"	SELLOC, SELMV+1
DIR("A"	SELLOC, SELMV+1
DIR(0	SELLOC, SELMV+1
DT	LOC+7, MASTER+2
DTOUT	SELLOC+1, SELMV+2, EXIT1+1!
DUOUT	SELLOC+1, SELMV+2, EXIT1+1!
DUZ	MASTER
IO("Q"	DEV+2!, DEV+4, EXIT1!
IOF	DISPLOC+1, DISPMV+1, EXIT, HDR+1, HDR+2
IOP	DEV+2!
IOSL	PRINT+7, PRINT+18
IOST	PRINT+23, EXIT, HDR+1, HDR+2, HDR+6
POP	DEV+2!, DEV+3
PSA	DISPMV+2, DISPMV+4, SELMV+1, SELMV+4, SELMV+5, SELMV+6, TEST+1, TEST+2, DEV+7, COMPILE+1* , MV, PRINT+13, EXIT1+1!
PSACHK	LOC+11, SELLOC+8, SELLOC+9, EXIT1+1!
PSACNT	LOC+4, LOC+9, LOC+12, DISPLOC+2, DISPLOC+5, DISPLOC+6, SELLOC, EXIT1+1!
PSACOMB	LOC+10, PRINT+4, EXIT1+1!
PSADRG	COMPILE+4, COMPILE+5, COMPILE+6, MV+3, MV+4, MV+5, PRINT+6, PRINT+8, PRINT+9, PRINT+17 , PRINT+19, PRINT+20, EXIT1+1!
PSAFIRST	PRINT+3, PRINT+5, PRINT+14, PRINT+15, PRINT+16*, EXIT1+1!
>> PSAHIS	LOC+12, SELLOC+2
PSAISIT	EXIT1+1!
PSAISITN	EXIT1+1!
PSALOC	LOC, LOC+1, LOC+4, LOC+5, LOC+6, LOC+7, LOC+8, LOC+10, DISPLOC+4, DISPLOC+5 , SELLOC+5, SELLOC+6, SELLOC+9, SELLOC+10, SELLOC+11, COMPILE+3, COMPILE+4, COMPILE+5, COMPILE+6, PRINT+3 , PRINT+4, PRINT+6, PRINT+8, EXIT1+1!, HDR+7
PSALOC(	SELLOC+6*, SELLOC+10, COMPILE+2, COMPILE+3
PSALOC(""	SELLOC+8, TEST+1, COMPILE+1
PSALOCA	EXIT1+1!
PSALOCA(	LOC+10*, DISPLOC+3, DISPLOC+4, SELLOC+6
PSALOCA(""	LOC+11
PSALOCN	DISPLOC+2, DISPLOC+3, DISPLOC+4, DISPLOC+5, DISPLOC+7, SELLOC+5, SELLOC+6, SELLOC+10, SELLOC+12, COMPILE+2* , COMPILE+3, PRINT+4*, EXIT1+1!, HDR+7
PSAMAST	EXIT1+1!
PSAMAST(	SELMV+7*, MV+1, MV+2
PSAMAST(""	TEST+1, MV
PSAMENU	EXIT1+1!
PSAMENU(	DISPLOC+5*, SELLOC+5
PSAMV	MASTER, MASTER+1, MASTER+2, MASTER+3, DISPMV+3, DISPMV+4, DISPMV+5!, TEST+1, TEST+2, DEV+7 , MV+2, MV+3, MV+4, MV+5, PRINT+14, PRINT+15*, PRINT+17, PRINT+19, EXIT1+1!, HDR+8
PSAMV(	MASTER+3*, DISPMV+2, DISPMV+3
PSAMVA	DISPMV+2, DISPMV+3, DISPMV+4, SELMV+5, SELMV+6, SELMV+7, EXIT1+1!
PSAMVIEN	SELMV+6*, SELMV+7, EXIT1+1!
PSAMVN	MASTER, MASTER+3, MASTER+4, MV+1*, MV+2, EXIT1+1!
PSANUM	SELLOC+4*, SELLOC+5, EXIT1+2!
PSAOSIT	EXIT1+2!
PSAOSITN	EXIT1+2!
PSAOUT	LOC, LOC+1, SELLOC+1, SELLOC+2, SELLOC+10, SELMV+2, TEST, PRINT+2, PRINT+3, PRINT+5 , PRINT+6, PRINT+7, PRINT+15, PRINT+16, PRINT+17, PRINT+18, PRINT+23*, EXIT1+2!, HDR+1
PSAPC	SELLOC+4, SELMV+4, EXIT1+2!
PSAPG	PRINT+2, EXIT1+2!, HDR+1, HDR+2, HDR+3, HDR+4
PSAREORD	PRINT+8, PRINT+11, PRINT+19, PRINT+22, EXIT1+2!
PSARUN	PRINT+1*, EXIT1+2!, HDR+6
PSASEL	SELLOC+3, SELLOC+4, SELMV+3, SELMV+4, EXIT1+2!
PSASLN	PRINT+2*, EXIT1+2!, HDR+9
PSASTOCK	PRINT+8, PRINT+10, PRINT+19, PRINT+21, EXIT1+2!
PSAVAULT	SELMV+8!, EXIT1+2!
PSAVAULT(	DISPMV+4*, SELMV+5, SELMV+6
Y	SELLOC+2, SELLOC+3, SELMV+3, PRINT+2!, EXIT1+2!
ZTDESC	DEV+5~, DEV+6*, EXIT1+2!
ZTDTH	DEV+5~, EXIT1+2!
ZTIO	DEV+5~, EXIT1+2!
>> ZTQUEUED	EXIT
>> ZTREQ	EXIT*
ZTRTN	DEV+5~, DEV+6*, EXIT1+2!
ZTSAVE	DEV+5~, EXIT1+2!
ZTSAVE("PSALOC("	DEV+7*
ZTSAVE("PSAMAST("	DEV+7*
ZTSK	DEV+5~, EXIT1+2!

Customize PDF page

Package: Drug Accountability

Routine: PSALEVRP

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: