Routine: APSPDUR1

Package	Total	Call Graph
IHS Patient	1	$$HRN^AUPNPAT
Kernel	1	($$DT,$$FMTE)^XLFDT
VA Fileman	1	$$GET1^DIQ

Package	Total	Caller Graph
IHS Changes To Pharmacy	1	APSPDUR

Entry Points

Name	Comments	DBIA/ICR reference
DATE	;EP
PRINT	;EP
EN	;EP
RX	;EP
HDR	;

External References

Name	Field # of Occurrence
$$HRN^AUPNPAT	PRINT+5
$$GET1^DIQ	PRINT+4, PRINT+8
$$DT^XLFDT	HDR+6
$$FMTE^XLFDT	PRINT+6, HDR+6

Interaction Calls

Name	Line Occurrences
Function Call: READ	Timeout: DTIME Variable: X Line Location: EN+8
Function Call: WRITE	Prompt: !,"Press Return to Continue...." Line Location: EN+8
Function Call: WRITE	Prompt: !!,"TOTAL NUMBER OF ISSUES : ",TOTAL Line Location: EN+9
Function Call: WRITE	Prompt: !,@IOF Line Location: EN+10
Function Call: WRITE	Prompt: @IOF Line Location: RX+3
Function Call: WRITE	Prompt: @IOF Line Location: PRINT+2
Function Call: WRITE	Prompt: !,$$GET1^DIQ(2,DFN,.01) Line Location: PRINT+4
Function Call: WRITE	Prompt: ?35,$J($$HRN^AUPNPAT(DFN,DUZ(2)),7) Line Location: PRINT+5
Function Call: WRITE	Prompt: ?45,$$FMTE^XLFDT(RDATE,"5ZD") Line Location: PRINT+6
Function Call: WRITE	Prompt: ?55,$J($P(DATA,U,4),4) Line Location: PRINT+7
Function Call: WRITE	Prompt: ?61,$E($$GET1^DIQ(200,$P(DATA,U,6),.01),1,18) Line Location: PRINT+8
Function Call: WRITE	Prompt: !,"Remarks: ",REM,! Line Location: PRINT+10
Function Call: WRITE	Prompt: !!,$S($G(DUZ(2)):$P(^DIC(4,DUZ(2),0),U)_" ",1:""),"DRUG USE EVALUATION LIST" Line Location: HDR+4
Function Call: WRITE	Prompt: ?73,"Page ",APSPPG Line Location: HDR+5
Function Call: WRITE	Prompt: !,"DATE OF LISTING: "_$$FMTE^XLFDT($$DT^XLFDT(),"5Z") Line Location: HDR+6
Function Call: WRITE	Prompt: !,"All Divisions for: ",$P(^DIC(4,DUZ(2),0),U,1) Line Location: HDR+7
Function Call: WRITE	Prompt: !,"Division: ",$G(APSPDV) Line Location: HDR+8
Function Call: WRITE	Prompt: !!,"This list will include all Outpatients dispensed one or any" Line Location: HDR+9
Function Call: WRITE	Prompt: " combination ",!,"of the following drug(s) from " Line Location: HDR+10
Function Call: WRITE	Prompt: APSPBDF," through ",APSPEDF,!! Line Location: HDR+11
Function Call: WRITE	Prompt: $P(^PSDRUG(DN,0),U),", " Line Location: HDR+13
Function Call: WRITE	Prompt: ! Line Location: HDR+13
Function Call: WRITE	Prompt: !!,"PATIENT",?35,"CHART",?45,"DATE" Line Location: HDR+14
Function Call: WRITE	Prompt: !,"NAME",?35,"NUMBER",?45,"DISPENSED",?55,"QTY",?61,"MD" Line Location: HDR+15
Function Call: WRITE	Prompt: ! Line Location: HDR+16
Function Call: WRITE	Prompt: "_" Line Location: HDR+16
Function Call: WRITE	Prompt: !!?20,"NO PATIENTS RECEIVED MEDICATION" Line Location: HDR+17
Function Call: WRITE	Prompt: ! Line Location: HDR+18

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^VA(200 - [#200]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("XY"	EN+2
^DIC(4 - [#4]	HDR+4, HDR+7
^PS(59 - [#59]	HDR+3
^PSDRUG - [#50]	HDR+13
^TMP($J	EN+5, EN+7, DATE+1, RX+1, RX+2, PRINT+3, HDR+17

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> APSPBDF	HDR+11
>> APSPDARY(	HDR+13
>> APSPDIV	HDR+7
APSPDT	EN+1~
APSPDV	HDR+1~, HDR+3*, HDR+8
>> APSPEDF	HDR+11
APSPPG	EN+1~, EN+4, HDR+2, HDR+5
CT	HDR+1~, HDR+12, HDR+13
DATA	PRINT+1~, PRINT+3*, PRINT+7, PRINT+8, PRINT+9
DFN	EN+1~, EN+7*, DATE+1, RX+1, RX+2, PRINT+4, PRINT+5
DIV	EN+1~, EN+5*, EN+7, DATE+1, RX+1, RX+2, HDR+3
DN	HDR+1~, HDR+12, HDR+13
DTIME	EN+8
>> DTOUT	EN+8
DUZ(2	PRINT+5, HDR+4, HDR+7
>> DX	EN+2*
>> DY	EN+2*
>> I	HDR+16*
IO	EN+3
IOF	EN+10, PRINT+2
IOM	HDR+16
IOSL	PRINT+2
IOST	EN+8, EN+10
NXT	EN+1~, RX+2*, PRINT+3
RDATE	EN+1~, DATE+1*, RX+1, RX+2, PRINT+6
REM	PRINT+1~, PRINT+9*, PRINT+10
RX	EN+1~, RX+1*, RX+2
TOTAL	EN+1~, EN+4, EN+9, PRINT+11
U	PRINT+7, PRINT+8, PRINT+9, HDR+3, HDR+4, HDR+7, HDR+13
>> X	EN+8*

Customize PDF page

Package: IHS Changes To Pharmacy

Routine: APSPDUR1

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: