Routine: PSAMON

Package	Total	Call Graph
Kernel	4	(,HOME)^%ZIS ^%ZISC (,$$S)^%ZTLOAD $$HTFM^XLFDT
Drug Accountability	3	LOC^PSALEVRP ^PSAMON1 END^PSAPROC
VA Fileman	3	^DIC DT^DICRW ^DIR

Package	Total	Caller Graph
Drug Accountability	1	PSA MONTHLY SUMMARY

Entry Points

Name	Comments	DBIA/ICR reference
END1	;Kills variables at end of report
LOC
END	;End of page
HEADER	;prints header info
DEV	;asks device and queueing info
START	;compiles and prints output
DRUG
PRINT	;Prints in drug order.
LOOP
SUMHELP	;Extended help to 'Print summary report?'

External References

Name	Field # of Occurrence
^%ZIS	DEV+2
HOME^%ZIS	DEV+6
^%ZISC	END1+1
^%ZTLOAD	DEV+6
$$S^%ZTLOAD	HEADER+4
^DIC	DRUG+2
DT^DICRW	LOC+7
^DIR	LOC+8, LOC+18, END+3, HEADER+3
LOC^PSALEVRP	LOC+1
^PSAMON1	END+4
END^PSAPROC	DRUG+6
$$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: !!,"There are no drugs in ",$G(PSALOCN) Line Location: LOC+14
Function Call: WRITE	Prompt: ! Line Location: LOC+17
Function Call: WRITE	Prompt: !!,"Select one, several, or ^ALL drugs.",! Line Location: DRUG+0
Function Call: WRITE	Prompt: !!,"Sorry, no history for that month." Line Location: DRUG+7
Function Call: WRITE	Prompt: ! Line Location: DEV+2
Function Call: WRITE	Prompt: !,"NO DEVICE SELECTED OR OUTPUT PRINTED!" Line Location: DEV+2
Function Call: WRITE	Prompt: !,"TOTAL",?36,$J(PSATREC,6,0),?49,$J(PSATDISP,6,0),?60,$J(PSATADJ,6,0),?73,$J(PSATTF,6,0),!,PSADLN,! Line Location: LOOP+5
Function Call: WRITE	Prompt: !!,"<< NO DATA WAS FOUND. >>" Line Location: PRINT+1
Function Call: WRITE	Prompt: $J($S($G(PSABAL):PSABAL,1:0),6,0) Line Location: PRINT+7
Function Call: WRITE	Prompt: ?36,$J(PSAREC,6,0) Line Location: PRINT+9
Function Call: WRITE	Prompt: ?49,$J(PSADISP,6,0) Line Location: PRINT+10
Function Call: WRITE	Prompt: ?60,$J(PSADJ,6,0) Line Location: PRINT+11
Function Call: WRITE	Prompt: ?73,$J(PSATF,6,0),! Line Location: PRINT+12
Function Call: WRITE	Prompt: ! Line Location: END+2
Function Call: WRITE	Prompt: ! Line Location: HEADER+2
Function Call: WRITE	Prompt: !!,"Task #",$G(ZTSK),", ",$G(ZTDESC)," was stopped by ",$P($G(^VA(200,+$G(DUZ),0)),U),"." Line Location: HEADER+4
Function Call: WRITE	Prompt: @IOF Line Location: HEADER+5
Function Call: WRITE	Prompt: @IOF Line Location: HEADER+6
Function Call: WRITE	Prompt: ?20,"DRUG ACCOUNTABILITY/INVENTORY INTERFACE",?71,"PAGE: ",PSAPG Line Location: HEADER+8
Function Call: WRITE	Prompt: !?22,"MONTHLY SUMMARY REPORT FOR "_PSAMONN Line Location: HEADER+9
Function Call: WRITE	Prompt: !!,?14,"BEGINNING",?26,"ENDING",?36,"TOTAL",?48,"TOTAL",?60,"TOTAL",?72,"TOTAL" Line Location: HEADER+12
Function Call: WRITE	Prompt: !,"DRUG",?16,"BALANCE",?25,"BALANCE",?34,"RECEIVED",?46,"DISPENSED",?58,"ADJUSTED",?69,"TRANSFERRED" Line Location: HEADER+13
Function Call: WRITE	Prompt: !,PSADLN Line Location: HEADER+14
Function Call: WRITE	Prompt: !!?5,"Enter YES to print a report with the totals for each selected drug",!?5,"in all the pharmacy locations that were selected. A total line will" Line Location: SUMHELP+1
Function Call: WRITE	Prompt: !?5,"print for the total dispense units received, dispensed, adjusted,",!?5,"and transferrred during the selected month." Line Location: SUMHELP+2
Function Call: WRITE	Prompt: !!?5,"Enter NO to print each pharmacy location's report without the",!?5,"summary report." Line Location: SUMHELP+3
Routine Call	%ZIS Line Location: DEV+6
Routine Call	DIC Line Location: DRUG+2
Routine Call	DIR Line Location: LOC+8 LOC+18 END+3 HEADER+3
Routine Call	%ZIS Line Location: DEV+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PSD(58.8 - [#58.8]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	LOC+7, LOC+9
^PSD(58.8 - [#58.8]	LOC+14, DRUG+5, DRUG+7, LOOP+3, PRINT+6, PRINT+7, PRINT+8, PRINT+9, PRINT+10, PRINT+11 , PRINT+12
^PSDRUG - [#50]	LOOP+3
^TMP("PSAD"	LOC!, DRUG+5, DRUG+8, DEV+1, LOOP, LOOP+2, END1+2!
^TMP("PSAG"	PRINT+15, PRINT+16, END1+2!
^TMP("PSAMON"	START+4!, LOOP+3*, LOOP+4!, PRINT+1, PRINT+3, PRINT+4, PRINT+13, END1+2!
^VA(200 - [#200]	HEADER+4

Label References

Name	Line Occurrences
DEV	LOC+16, LOC+19
DRUG	LOC+15
END	LOOP+6, PRINT+1
END1	LOC+1, LOC+3, LOC+8, LOC+18, DEV+1, DEV+2, DEV+3
HEADER	LOOP+1, LOOP+5, PRINT+4
PRINT	LOOP+4

Naked Globals

Name	Field # of Occurrence
^(	PRINT+15, PRINT+16
^(0	PRINT+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	DEV+2*, END1+3!
DIC	DRUG+1*, DRUG+9!, END1+3!
DIC("A"	DRUG+1*
DIC(0	DRUG+1*
DIR	LOC+8!, LOC+18!, END+3!, HEADER+3!
DIR("?"	LOC+17, LOC+18
DIR("??"	LOC+18*
DIR("A"	LOC+8, LOC+17, END+3*
DIR("B"	LOC+8, LOC+17
DIR(0	LOC+8, LOC+17, END+3, HEADER+1, HEADER+3*
DIRUT	LOC+1, LOC+8, LOC+18, END+3, END1+3!, HEADER+3
DT	LOC+7
DTOUT	DRUG+2, END1+3!
DUOUT	END1+3!
DUZ	HEADER+4
IO("Q"	DEV+2!, DEV+3, END1+2!
IOF	LOC+13, END+4, HEADER+5, HEADER+6
IOP	DEV+2~
IOSL	LOOP+5, PRINT+4
IOST	END+1, HEADER+1, HEADER+5, HEADER+6, HEADER+7
POP	DEV+2~
PSA	LOC+9, DRUG+5, DEV+1, LOOP+2, LOOP+3, PRINT+4*, PRINT+6, PRINT+7, PRINT+8, PRINT+9 , PRINT+10, PRINT+11, PRINT+12, END1+3!
PSABAL	PRINT+7*, END1+3!
PSACHK	LOC+2*, LOC+3, END1+3!
PSACNT	LOC, LOC+3, LOC+4, LOC+9, LOC+12*, LOC+16, END1+3!
PSACOMB	END1+3!
PSAD	END1+3!
PSADISP	PRINT+10*, PRINT+15, END1+3!
PSADJ	PRINT+11*, PRINT+16, END1+3!
PSADLN	START+3*, LOOP+5, PRINT+13, END1+3!, HEADER+14
PSADONE	DRUG+1, DRUG+2, DRUG+6, END1+3!
PSADRUG	PRINT+3*, PRINT+4, PRINT+5, PRINT+13, PRINT+15, PRINT+16, END1+3!
PSADT	START+1*, START+2, END1+3!
PSAGADJ	END1+3!
PSAGDISP	END1+3!
PSAGREC	END1+3!
PSAGTF	END1+3!
PSAHIS	LOC*, END1+3!
PSAISIT	END1+4!
PSAISITN	END1+4!
PSALOC	LOC+5, LOC+11, LOC+14, DRUG+5, DRUG+7, LOOP+1*, LOOP+3, PRINT+6, PRINT+7, PRINT+8 , PRINT+9, PRINT+10, PRINT+11, PRINT+12, END1+4!
PSALOC(	LOC+5*, LOOP+1
PSALOC(""	LOC+2
PSALOCA	END1+4!
PSALOCA(	LOC+5
PSALOCA(""	LOC+5
PSALOCN	LOC+5, LOC+6, LOC+11, LOC+13, LOC+14, DRUG+5, DRUG+8, START+3, LOOP*, LOOP+1 , LOOP+2, END1+4!, HEADER+10, HEADER+11
PSAMENU	END1+4!
PSAMENU(	LOC+11
PSAMENU(1	LOC+5*
PSAMON	LOC+7, LOC+8, LOC+9, DRUG+5, DRUG+7, LOOP+3, PRINT+6, PRINT+7, PRINT+8, PRINT+9 , PRINT+10, PRINT+11, PRINT+12, END1+4!
PSAMONN	LOC+9*, START+3, END1+4!, HEADER+9
PSANODE	END1+4!
PSANUM	END1+4!
PSAOSIT	END1+4!
PSAOSITN	END1+4!
PSAOUT	LOC, LOC+1, LOC+8, LOC+11, LOC+14, LOC+15, LOC+16, DRUG+2, DRUG+3, DEV+1 , START+3, LOOP, LOOP+5, PRINT+3, PRINT+4, END+1, END+3, END+4, END1+4!, HEADER+1 , HEADER+3, HEADER+4
PSAPC	LOC+10*, END1+4!
PSAPC1	END1+4!
PSAPCS	END1+4!
PSAPG	START+3, END1+5!, HEADER+1, HEADER+6, HEADER+7, HEADER+8
PSAPICK	LOC+10*, LOC+11, END1+4!
PSAREC	PRINT+9*, PRINT+15, END1+5!
PSARPDT	START+1, START+2, END1+5!, HEADER+7
PSAS	END+2, END1+5!, HEADER+2
PSASEL	LOC+5*, LOC+10, END1+5!
PSASLN	START+3*, PRINT+13, END1+5!
PSASS	END+2, END1+5!, HEADER+2
PSASUB	END1+5!
PSATABH	START+3*, END1+5!
PSATADJ	LOOP+5, PRINT+2, PRINT+11, END1+5!
PSATDISP	LOOP+5, PRINT+2, PRINT+10, END1+5!
PSATF	PRINT+12*, PRINT+16, END1+5!
PSATOT	LOC+5, LOC+16, LOC+18*, PRINT+14, END+4, END1+5!
PSATREC	LOOP+5, PRINT+2, PRINT+9, END1+5!
PSATTF	LOOP+5, PRINT+2, PRINT+12, END1+5!
PSAX	PRINT+1*, END1+5!
U	LOOP+3, PRINT+6, PRINT+7, PRINT+8, PRINT+9, PRINT+10, PRINT+11, PRINT+12, HEADER+4
X	DRUG+2, DRUG+3, DRUG+4, END1+5!
Y	LOC+7, LOC+9, LOC+18, DRUG+2, DRUG+3, DRUG+7, DRUG+8, END1+5!
ZTDESC	DEV+4!, DEV+5*, END1+5!, HEADER+4
ZTDTH	DEV+4!
ZTIO	DEV+4!
>> ZTQUEUED	END1+1
>> ZTREQ	END1+1*
ZTRTN	DEV+4!, DEV+5*, END1+5!
ZTSAVE	DEV+4!
ZTSAVE("PSA*"	DEV+5*
ZTSAVE("^TMP(""PSAD"",$J,"	DEV+5*
ZTSK	DEV+4!, HEADER+4

Customize PDF page

Package: Drug Accountability

Routine: PSAMON

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: