Routine: PSADAI

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"There are no active pharmacy locations." Line Location: LOC+2
Function Call: WRITE	Prompt: !!,PSALOCN Line Location: LOC+3
Function Call: WRITE	Prompt: ! Line Location: DEVICE+0
Function Call: WRITE	Prompt: !,"No Device was selected or output printed." Line Location: DEVICE+0
Function Call: WRITE	Prompt: !!,"<< NO DRUGS WERE FOUND. >>",! Line Location: PRINT+8
Function Call: WRITE	Prompt: ! Line Location: DONE+2
Function Call: WRITE	Prompt: @IOF Line Location: HDR+2
Function Call: WRITE	Prompt: @IOF Line Location: HDR+3
Function Call: WRITE	Prompt: ! Line Location: HDR+5
Function Call: WRITE	Prompt: ?21,"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: HDR+8
Function Call: WRITE	Prompt: !?24,"DRUG BALANCES BY LOCATION REPORT" Line Location: HDR+9
Function Call: WRITE	Prompt: !?((80-$L(PSALOCN))/2),PSALOCN Line Location: HDR+10
Function Call: WRITE	Prompt: !!?47,"CURRENT",?58,"DISPENSE",?72,"TOTAL" Line Location: HDR+14
Function Call: WRITE	Prompt: !,"DRUG NAME",?47,"BALANCE",?60,"UNIT",?70,"INVENTORY",!,PSASLN Line Location: HDR+15
Routine Call	%ZIS Line Location: DEVICE+1
Routine Call	DIR Line Location: DONE+3 HDR+6
Routine Call	%ZIS Line Location: DEVICE

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PRCP(445	PRINT+4, HDR+12
^PS(59 - [#59]	START+7
^PS(59.4 - [#59.4]	START+6
^PSD(58.8 - [#58.8]	COMPILE+2, COMPILE+4, COMPILE+5, PRINT+2, PRINT+3
^PSDRUG - [#50]	COMPILE+3, COMPILE+5
^TMP($J	EXIT1!, COMPILE+1!, COMPILE+5*, PRINT+8, PRINT+10, PRINT+13, PRINT+14, PRINT+15, PRINT+16

Name	Line Occurrences
COMPILE	START+9
DONE	START+9, PRINT+8
EXIT1	LOC, LOC+2, DEVICE, DEVICE+1
HDR	PRINT+6, PRINT+11

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	DEVICE*, EXIT1!
DIR	EXIT1!, DONE+3!, HDR+6!
DIR("A"	DONE+3*
DIR(0	DONE+3, HDR+6
DIRUT	EXIT1!, HDR+6
DT	COMPILE+4
DTOUT	DEVICE*, EXIT1!
IO("Q"	DEVICE!, DEVICE+1, EXIT!
IOF	EXIT, PRINT+10, DONE+4, HDR+2, HDR+3, HDR+6
IOSL	PRINT+11
IOST	EXIT, PRINT+10, DONE+1, DONE+4, HDR+2, HDR+3, HDR+4, HDR+7
>> POP	DEVICE
PSACHK	LOC+1*, LOC+2, LOC+3, EXIT1+1!
PSACNT	LOC, LOC+1, EXIT1+1!
PSADRG	EXIT1+1!, COMPILE+2, COMPILE+3, COMPILE+4, COMPILE+5, PRINT+6, PRINT+10*, PRINT+12, PRINT+13, PRINT+14 , PRINT+15, PRINT+16
PSADT	START+1*, START+2, EXIT1+1!
PSAIEN	START+4*, START+5, EXIT1+1!, COMPILE+2, COMPILE+4, COMPILE+5, PRINT+2, PRINT+3
PSAINV	EXIT1+1!, PRINT+4, PRINT+5, HDR+12, HDR+13
PSAISIT	START+5*, START+6, START+8, EXIT1+1!
PSAISITN	START+6*, START+8, EXIT1+1!
PSALEN	EXIT1+1!, PRINT+2, PRINT+5, PRINT+13*, PRINT+14
PSALINK	EXIT1+1!
PSALINK(	PRINT+3*, HDR+11
PSALNK	EXIT1+1!, PRINT+2, PRINT+3, PRINT+4, HDR+11, HDR+12
PSALOC	LOC+2, LOC+3, EXIT1+1!
PSALOC(	START+3, START+4, START+5
PSALOC(""	LOC+1
PSALOCA	EXIT1+1!
PSALOCN	LOC+3, START, START+3, START+4, START+5, EXIT1+1!, HDR+10
PSAOSIT	START+5*, START+7, START+8, EXIT1+1!
PSAOSITN	START+7*, START+8, EXIT1+1!
PSAOUT	LOC, START, START+3, START+4, START+9, EXIT1+2!, PRINT+10, PRINT+11, DONE+3, HDR+4 , HDR+6
PSAPG	EXIT1+2!, PRINT+6, HDR+1, HDR+2, HDR+3, HDR+4, HDR+8
PSARPDT	START+1, START+2, EXIT1+2!, HDR+7
PSAS	EXIT1+2!, DONE+2, HDR+5
PSASEL	LOC+3, EXIT1+2!
PSASITES	START+8*, EXIT1+2!
PSASLN	START*, EXIT1+2!, HDR+15
PSASS	EXIT1+2!, DONE+2, HDR+5
PSATMP	EXIT1+2!, PRINT+8*
X	EXIT1+2!
Y	DEVICE, DEVICE+1, EXIT1+2!, DONE+3, HDR+6
ZTDESC	DEVICE+1*, EXIT1+2!
ZTDTH	EXIT1+2!
ZTIO	EXIT1+2!
>> ZTQUEUED	EXIT
>> ZTREQ	EXIT*
ZTRTN	DEVICE+1*, EXIT1+2!
ZTSAVE	EXIT1+2!
ZTSAVE("PSALOC("	DEVICE+1*
ZTSK	EXIT1+2!

Customize PDF page

Package: Drug Accountability

Routine: PSADAI

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
LOC
EXIT1
HDR	;Print header
PRINT	;Prints body of report
COMPILE	;Creates ^TMP(Drug Name)= current balance ^ dispense unit ^ total inventory (current balance in 50)
START
EXIT
DEVICE
DONE	;Holds screen or ejects paper if sent to printer