Routine: APSPDR4

Package	Total	Call Graph
VA Fileman	2	$$GET1^DIQ ^DIR
IHS Changes To Pharmacy	1	$$FMTPHN^APSPFUNC
IHS Patient	1	$$HRN^AUPNPAT
Kernel	1	($$DT,$$FMTE)^XLFDT

Package	Total	Caller Graph
IHS Changes To Pharmacy	1	APSPDR3

Entry Points

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

External References

Name	Field # of Occurrence
$$FMTPHN^APSPFUNC	PRINT+14
$$HRN^AUPNPAT	PRINT+16
$$GET1^DIQ	PRINT+4, PRINT+6, PRINT+8, PRINT+9, PRINT+10, PRINT+11, PRINT+12, PRINT+13, PRINT+15
^DIR	RX+2
$$DT^XLFDT	HDR+5
$$FMTE^XLFDT	PRINT+17, HDR+5

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: !,@IOF Line Location: EN+10
Function Call: WRITE	Prompt: @IOF Line Location: RX+2
Function Call: WRITE	Prompt: @IOF Line Location: PRINT+2
Function Call: WRITE	Prompt: !,$$FMTPHN^APSPFUNC(HPHN) Line Location: PRINT+14
Function Call: WRITE	Prompt: ?16,$$GET1^DIQ(2,DFN,.01) Line Location: PRINT+15
Function Call: WRITE	Prompt: ?48,$J($$HRN^AUPNPAT(DFN,DUZ(2)),7) Line Location: PRINT+16
Function Call: WRITE	Prompt: ?58,$$FMTE^XLFDT(RDATE,"5ZD") Line Location: PRINT+17
Function Call: WRITE	Prompt: ?72,$P(DATA,U,4) Line Location: PRINT+18
Function Call: WRITE	Prompt: !,"ADDRESS: ",AD1," ",$G(AD2) Line Location: PRINT+19
Function Call: WRITE	Prompt: " ",$G(AD3)," ",$G(CITY)," " Line Location: PRINT+20
Function Call: WRITE	Prompt: $G(STATE)," ",$G(ZIP) Line Location: PRINT+21
Function Call: WRITE	Prompt: ! Line Location: PRINT+22
Function Call: WRITE	Prompt: !!,$S($G(DUZ(2)):$P(^DIC(4,DUZ(2),0),U)_" ",1:""),"DRUG RECALL LIST" Line Location: HDR+3
Function Call: WRITE	Prompt: ?73,"Page ",APSPPG Line Location: HDR+4
Function Call: WRITE	Prompt: !,"DATE OF LISTING: "_$$FMTE^XLFDT($$DT^XLFDT(),"5Z") Line Location: HDR+5
Function Call: WRITE	Prompt: !,"All Divisions for: ",$P(^DIC(4,DUZ(2),0),U,1) Line Location: HDR+6
Function Call: WRITE	Prompt: !,"Division: ",$G(APSPDV) Line Location: HDR+7
Function Call: WRITE	Prompt: !,?25,"CONFIDENTIAL PATIENT INFORMATION" 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: !!,"HOME",?16,"PATIENT",?48,"CHART",?58,"DATE",?72,"QTY" Line Location: HDR+14
Function Call: WRITE	Prompt: !,"PHONE",?16,"NAME",?48,"NUMBER",?58,"DISPENSED" 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
Routine Call	DIR Line Location: RX+2

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^DIC(5 - [#5]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("XY"	EN+2
^DIC(4 - [#4]	HDR+3, HDR+6
^PS(59 - [#59]	HDR+2
^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
AD1	PRINT+1~, PRINT+6*, PRINT+7, PRINT+19
AD2	PRINT+1~, PRINT+8*, PRINT+19
AD3	PRINT+1~, PRINT+9*, PRINT+20
>> APSPBDF	HDR+11
>> APSPDARY(	HDR+13
>> APSPDIV	HDR+6
APSPDT	EN+1~
>> APSPDV	HDR+2*, HDR+7
>> APSPEDF	HDR+11
APSPPG	EN+1~, EN+4, HDR+1, HDR+4
CITY	PRINT+1~, PRINT+10*, PRINT+20
>> CT	HDR+12, HDR+13
DATA	PRINT+1~, PRINT+3*, PRINT+18
DFN	EN+1~, EN+7*, DATE+1, RX+1, RX+2, PRINT+4, PRINT+6, PRINT+8, PRINT+9, PRINT+10 , PRINT+11, PRINT+13, PRINT+15, PRINT+16
>> DIR("A"	RX+2*
>> DIR(0	RX+2*
>> DIROUT	RX+2
DIV	EN+1~, EN+5*, EN+7, DATE+1, RX+1, RX+2, HDR+2
>> DN	HDR+12, HDR+13
DTIME	EN+8
>> DTOUT	EN+8, RX+2
>> DUOUT	RX+2
DUZ(2	PRINT+16, HDR+3, HDR+6
>> DX	EN+2*
>> DY	EN+2*
HPHN	PRINT+1~, PRINT+4, PRINT+5, PRINT+14
>> I	HDR+16*
IO	EN+3
IOF	EN+10, RX+2, PRINT+2
IOM	HDR+16
IOSL	RX+2, PRINT+2
IOST	EN+8, EN+10, RX+2, PRINT+2
NXT	EN+1~, RX+2*, PRINT+3
RDATE	EN+1~, DATE+1*, RX+1, RX+2, PRINT+17
RX	EN+1~, RX+1*, RX+2
STATE	PRINT+1~, PRINT+11, PRINT+12, PRINT+21
U	PRINT+18, HDR+2, HDR+3, HDR+6, HDR+13
>> X	EN+8*
ZIP	PRINT+1~, PRINT+13*, PRINT+21

Customize PDF page

Package: IHS Changes To Pharmacy

Routine: APSPDR4

Information

Source Information

Call Graph

Call Graph Total: 5

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: