Routine: APSPTDD1

Package	Total	Call Graph
VA Fileman	2	$$GET1^DIQ ^DIR
Kernel	1	($$DT,$$FMDIFF,$$FMTE)^XLFDT

Package

Total

Call Graph

VA Fileman

$$GET1^DIQ ^DIR

Kernel

($$DT,$$FMDIFF,$$FMTE)^XLFDT

Package	Total	Caller Graph
IHS Changes To Pharmacy	1	APSPTDD

Package

Total

Caller Graph

IHS Changes To Pharmacy

APSPTDD

Name	Comments	DBIA/ICR reference
EN	;ENTRY POINT
PAUS
PRINT
DIVSUB	;DIVISION SUB
DATE	;
LOOP
HDR	;

Name	Field # of Occurrence
$$GET1^DIQ	HDR+2, HDR+7, HDR+16
^DIR	PAUS+3
$$DT^XLFDT	HDR+5
$$FMDIFF^XLFDT	HDR+11
$$FMTE^XLFDT	HDR+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: EN+9
Function Call: WRITE	Prompt: @IOF Line Location: DATE+1
Function Call: WRITE	Prompt: @IOF Line Location: DATE+3
Function Call: WRITE	Prompt: !,DRG,?41,$J($P(^TMP($J,"PSODUR",DIV,DRG,UNIT),U,2),6),?55,UNIT,?70,$J(+^(UNIT),8) Line Location: DATE+4
Function Call: WRITE	Prompt: !,$$GET1^DIQ(59,DIV,.01)," ""Total Drugs Dispensed"" List" Line Location: HDR+2
Function Call: WRITE	Prompt: ?73,"Page ",APSPPG Line Location: HDR+3
Function Call: WRITE	Prompt: !,"Date of Listing: " Line Location: HDR+4
Function Call: WRITE	Prompt: $$FMTE^XLFDT($$DT^XLFDT,"2ZD") Line Location: HDR+5
Function Call: WRITE	Prompt: ?31,"By: Drug" Line Location: HDR+8
Function Call: WRITE	Prompt: !,"Outpatient Drugs dispensed from " Line Location: HDR+9
Function Call: WRITE	Prompt: APSPBDF," through ",APSPEDF,! Line Location: HDR+10
Function Call: WRITE	Prompt: "Total Number of Days = "_($$FMDIFF^XLFDT(APSPED,APSPBD)),! Line Location: HDR+11
Function Call: WRITE	Prompt: ?25,$$GET1^DIQ(50,DN,.01),! Line Location: HDR+16
Function Call: WRITE	Prompt: !,?41,"Number",?55,"Type of Units",! Line Location: PRINT+0
Function Call: WRITE	Prompt: "Drug Name",?41,"of Rx's",?55,"Dispensed",?70,"Total" Line Location: PRINT+1
Function Call: WRITE	Prompt: ! Line Location: PRINT+2
Function Call: WRITE	Prompt: "_" Line Location: PRINT+2
Function Call: WRITE	Prompt: !!?20,"NO DRUGS FOUND !" Line Location: PRINT+3
Function Call: WRITE	Prompt: ! Line Location: PRINT+4
Routine Call	DIR Line Location: PAUS+3

FileNo	Call Tags
^PSDRUG - [#50]	GET1^DIQ
^PS(50.605 - [#50.605]	GET1^DIQ
^PS(59 - [#59]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("XY"	EN+3
^TMP($J	EN+8, EN+9, LOOP, LOOP+1, DATE+4, PRINT+3

Name	Line Occurrences
DATE	LOOP+1
DIVSUB	EN+9
HDR	EN+8, EN+9, DATE+1, DATE+3
LOOP	EN+9
PAUS	DIVSUB+3, DATE+1

Name	Field # of Occurrence
^(	DATE+4
^("XY"	EN+3

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> APSPBD	HDR+11
>> APSPBDF	HDR+10
>> APSPCLS	HDR+6, HDR+7, HDR+13
>> APSPDALL	HDR+13
>> APSPDARY(	HDR+16
APSPDT	EN+1~
>> APSPED	HDR+11
>> APSPEDF	HDR+10
>> APSPNOD	HDR+15
APSPPG	EN+1~, EN+5, DIVSUB+2, HDR+1*, HDR+3
APSPQ	EN+1~, EN+5, EN+9, LOOP, DIVSUB+1, DATE+1, DATE+2, PAUS+4
DIR	PAUS~
DIR("?"	PAUS+1*
DIR("A"	PAUS+2*
DIR(0	PAUS+2*
DIV	EN+1~, EN+7, EN+9, LOOP, LOOP+1, DATE+4, HDR+2
DN	EN+2~, HDR+12, HDR+16
DRG	EN+1~, EN+7, LOOP, LOOP+1, DATE+4
DTOUT	LOOP+1, PAUS~
DUOUT	LOOP+1, PAUS~, PAUS+4
DX	EN+2~, EN+3*
DY	EN+2~, EN+3*
I	EN+2~, HDR+16, PRINT+2
IO	EN+4
IOF	EN+9, DATE+1, DATE+3
IOSL	DATE+1, DATE+3
IOST	DIVSUB+3, DATE+1, DATE+3
PSOZDUR1	EN+2~
>> TOTAL	EN+5*
U	DATE+4
UNIT	EN+1~, EN+7, LOOP+1, DATE+4
X	EN+2~

Customize PDF page

Package: IHS Changes To Pharmacy

Routine: APSPTDD1

Information

Source Information

Call Graph

Call Graph Total: 3

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: