Routine: PSDPND1

Package	Total	Call Graph
VA Fileman	1	^DIR

Package

Total

Call Graph

VA Fileman

^DIR

Package	Total	Caller Graph
Controlled Substances	1	PSDPND

Package

Total

Caller Graph

Controlled Substances

PSDPND

Name	Comments	DBIA/ICR reference
SUMHDR	;sum header
HDR	;header for log
SUMPRT	;prt sum
DONE
PRINT	;print pharmacy disp log by date
PRTSUM	;prints summary data

Name	Field # of Occurrence
^DIR	DONE+1, HDR+1, SUMHDR+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,?45,"** NO DISPENSING DATA FOR THIS DISPENSING LOCATION **" Line Location: PRINT+3
Function Call: WRITE	Prompt: !,NUM,?15,$P(NODE,"^"),?58,$J($P(NODE,"^",3),6),?68,$P(NODE,"^",4),?86,$P(NODE,"^",2),?112,$P(NODE,"^",5) Line Location: PRINT+5
Function Call: WRITE	Prompt: !!,"Press <RET> to return to display the summary totals" Line Location: PRINT+6
Function Call: WRITE	Prompt: @IOF Line Location: DONE+0
Function Call: WRITE	Prompt: ! Line Location: DONE+1
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: HDR+2
Function Call: WRITE	Prompt: !,?45,"Pharmacy Dispensing Report",?115,"Page: ",PG,!,?45,"Dispensing Vault: "_PSDSN,!,?45,$P(PSDATE,"^")_" to "_$P(PSDATE,"^",2) Line Location: HDR+2
Function Call: WRITE	Prompt: !!,?58,"QUANTITY",?71,"DATE" Line Location: HDR+3
Function Call: WRITE	Prompt: !,"DISP #",?15,"DRUG",?58,"DISPENSED",?71,"DISP",?86,"DISPENSED TO",?112,"DISPENSED BY" Line Location: HDR+4
Function Call: WRITE	Prompt: !,LN,! Line Location: HDR+5
Function Call: WRITE	Prompt: !!,?45,"** NO DISPENSING DATA FOR THIS DISPENSING LOCATION **" Line Location: SUMPRT+2
Function Call: WRITE	Prompt: !,?2,DRUG,?60,$J(+^TMP("PSDNDT",$J,DRUG),6),! Line Location: PRTSUM+2
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: SUMHDR+2
Function Call: WRITE	Prompt: !,?25,"Pharmacy Dispensing Report",?70,"Page "_PG,!,?25,$P(PSDATE,"^")_" to "_$P(PSDATE,"^",2),!,?31," SUMMARY ",!!,"Dispensing Vault: ",PSDSN,!! Line Location: SUMHDR+2
Function Call: WRITE	Prompt: ?5,"DRUG",?57,"TOTAL DISPENSED",!,LN,! Line Location: SUMHDR+3
Routine Call	DIR Line Location: DONE+1 HDR+1 SUMHDR+1

Name	Line Occurrences (* Changed, ! Killed)
^TMP("PSDND"	PRINT+3, PRINT+4, PRINT+5
^TMP("PSDNDT"	SUMPRT+2, PRTSUM+2

Name	Line Occurrences
DONE	PRINT+1, PRINT+3
HDR	PRINT+3, PRINT+4, PRINT+5
SUMHDR	SUMPRT+2, PRTSUM+1, PRTSUM+2
SUMPRT	PRINT+1, PRINT+7

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	HDR+1!, SUMHDR+1!
DIR	DONE+1!, HDR+1!, SUMHDR+1!
DIR("A"	DONE+1*
DIR(0	DONE+1, HDR+1, SUMHDR+1*
DIRUT	DONE+1!
>> DRUG	PRTSUM+2*
DTIME	PRINT+6
IOF	DONE, HDR+2, SUMHDR+2
IOSL	PRINT+4, PRINT+5, PRTSUM+2
IOST	PRINT+6, DONE, DONE+1, HDR+1, SUMHDR+1
LN	PRINT+3!, HDR+5, SUMPRT+1!, SUMHDR+3
>> NODE	PRINT+5*
>> NUM	PRINT+4*, PRINT+5
>> PG	PRINT+1, PRINT+2, HDR+1, HDR+2, SUMPRT+1, SUMHDR+1, SUMHDR+2*
>> PSD	PRINT+5*
>> PSDATE	HDR+2, SUMHDR+2
>> PSDOUT	PRINT+2, PRINT+4, PRINT+5, PRINT+6, PRINT+7, DONE+1, HDR+1, SUMPRT+1, PRTSUM+1, PRTSUM+2 , SUMHDR+1
>> PSDSN	HDR+2, SUMHDR+2
>> SUM	PRINT+1
>> X	PRINT+6*
>> Y	HDR+1, SUMHDR+1

Customize PDF page

Package: Controlled Substances

Routine: PSDPND1

Information

Source Information

Call Graph

Call Graph Total: 1

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: