Routine: APSPCDI1

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

Package	Total	Caller Graph
IHS Changes To Pharmacy	1	APSPCDI

Entry Points

Name	Comments	DBIA/ICR reference
PRINT1	;EP
DASH	;EP
HDR	;EP
HDR1	;EP
INTOUT(RX)	;EP-
PRINT2(DATA)	; EP -
APSPINV(IEN)	;EP-
PRINT	;EP
PRINT3(ADD)	;EP

External References

Name	Field # of Occurrence
$$HRN^AUPNPAT	PRINT2+7, APSPINV+5
$$GET1^DIQ	PRINT1+4, PRINT2+6, PRINT2+9, HDR+6, HDR+8, HDR+9, INTOUT+5, INTOUT+7, INTOUT+8, APSPINV+5 , APSPINV+6
$$FMTE^XLFDT	PRINT2+9, HDR+3, APSPINV+5
$$NOW^XLFDT	HDR+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!!,"Pharmacy Division: "_$$GET1^DIQ(59,DIV,.01),! Line Location: PRINT1+4
Function Call: WRITE	Prompt: !,"Critical Drug Interaction Report",?(IOM-28),$P($TR($$FMTE^XLFDT($$NOW^XLFDT,"5Z"),"@"," "),":",1,2),?(IOM-10),"Page: "_APSPPG Line Location: HDR+3
Function Call: WRITE	Prompt: !,"Report Criteria:" Line Location: HDR+4
Function Call: WRITE	Prompt: !,?5,"Inclusive Dates: "_APSPBDF_" to "_APSPEDF Line Location: HDR+5
Function Call: WRITE	Prompt: !,?5,"Pharmacy Division: "_$S(APSPDIV:$$GET1^DIQ(59,APSPDIV,.01),1:"All") Line Location: HDR+6
Function Call: WRITE	Prompt: !,?5,"Sorted by: "_$S(APSPSORT=1:"Drug Name, Fill Date",APSPSORT=2:"Fill Date then Drug Name",APSPSORT=3:"Patient then Fill Date",4:"Prescriber then Drug Name, Fill Date",1:"Unknown") Line Location: HDR+7
Function Call: WRITE	Prompt: !,?7,"Patient sort restricted to ",$$GET1^DIQ(2,APSPPAT,.01) Line Location: HDR+8
Function Call: WRITE	Prompt: !,?7,"Prescriber sort restricted to ",$$GET1^DIQ(200,APSPPRV,.01) Line Location: HDR+9
Function Call: WRITE	Prompt: "Date Disp.",?14,"Type",?20,"Patient",?40,"HRN",?48,"Rx Number",?60,"Drug Name" Line Location: HDR1+2
Function Call: WRITE	Prompt: !,?37,"Overriding Provider" Line Location: HDR1+3
Function Call: WRITE	Prompt: !,?7,"Overriding Reason" Line Location: HDR1+4
Function Call: WRITE	Prompt: !,"Cause" Line Location: HDR1+5
Function Call: WRITE	Prompt: ! Line Location: DASH+2
Function Call: WRITE	Prompt: "-" Line Location: DASH+2
Function Call: WRITE	Prompt: ! Line Location: DASH+3
Function Call: WRITE	Prompt: !,?5,$P($TR($$FMTE^XLFDT($P(NODE0,U),"5Z"),"@"," "),":",1,2),?21,$$GET1^DIQ(2,DFN,.01),?51,$$HRN^AUPNPAT(DFN,$$GET1^DIQ(59,$P(NODE0,U,16),100,"I")),?58,$$GET1^DIQ(FN,IEN,.05) Line Location: APSPINV+5
Function Call: WRITE	Prompt: !,?7,$$GET1^DIQ(200,$P(NODE0,U,4),.01),?49,$$GET1^DIQ(FN,IEN,.08) Line Location: APSPINV+6
Function Call: WRITE	Prompt: !,"Critical Drug Interaction over-ridden in RPMS Pharmacy Package" Line Location: APSPINV+7

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
100.09	GET1^DIQ
^ORD(100.8 - [#100.8]	GET1^DIQ
^DPT - [#2]	GET1^DIQ
^VA(200 - [#200]	GET1^DIQ
^PSRX - [#52]	GET1^DIQ
^PS(59 - [#59]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^APSPQA(32.4 - [#9009032.4]	APSPINV+3
^OR(100 - [#100]	INTOUT+4, INTOUT+5, INTOUT+9
^PSRX - [#52]	INTOUT+3
^TMP($J	PRINT1+3, PRINT1+6, PRINT1+7, PRINT1+8, PRINT1+9, PRINT1+12, PRINT1+13, PRINT1+14, PRINT1+15, PRINT1+18 , PRINT1+19, PRINT1+20, PRINT1+21, PRINT1+22, PRINT1+25, PRINT1+26, PRINT1+27, PRINT1+28, PRINT1+29

Label References

Name	Line Occurrences
APSPINV	PRINT2+3
DASH	HDR1+1, HDR1+6
HDR	PRINT+3, PRINT3+2
HDR1	HDR+10
INTOUT	PRINT2+10
PRINT1	PRINT+4
PRINT2	PRINT1+9, PRINT1+15, PRINT1+22, PRINT1+29
PRINT3	PRINT2+8, PRINT2+11

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ADD	PRINT3~, PRINT3+1*, PRINT3+2
>> APSPBDF	HDR+5
>> APSPDIV	PRINT1+4, HDR+6
>> APSPEDF	HDR+5
>> APSPPAT	HDR+8
APSPPG	PRINT+1~, PRINT+2, HDR+1, HDR+2, HDR+3
>> APSPPRV	HDR+9
>> APSPSORT	PRINT1+5, PRINT1+11, PRINT1+17, PRINT1+24, HDR+7, HDR+8, HDR+9
CAUSE	INTOUT+1~, INTOUT+9*, INTOUT+10, INTOUT+11
CNT	INTOUT+1~, INTOUT+2*
DASH	DASH+1~, DASH+2*
DATA	PRINT2~, PRINT2+2, PRINT2+3, PRINT2+5, PRINT2+8, PRINT2+9
DFLG	PRINT+1~, PRINT+2, PRINT+5, PRINT1+10, PRINT1+16, PRINT1+23, PRINT1+30*
DFN	PRINT2+1~, PRINT2+6, PRINT2+7, PRINT2+9, APSPINV+1~, APSPINV+4, APSPINV+5
DIV	PRINT1+1~, PRINT1+3*, PRINT1+4, PRINT1+6, PRINT1+7, PRINT1+8, PRINT1+12, PRINT1+13, PRINT1+14, PRINT1+18 , PRINT1+19, PRINT1+20, PRINT1+21, PRINT1+25, PRINT1+26, PRINT1+27, PRINT1+28
DUZ(2	PRINT2+7
FN	APSPINV+1~, APSPINV+2*, APSPINV+5, APSPINV+6
HRN	PRINT2+1~, PRINT2+7*, PRINT2+9
IEN	INTOUT+1~, INTOUT+2, INTOUT+4, INTOUT+5, INTOUT+6, INTOUT+9, APSPINV~, APSPINV+3, APSPINV+5, APSPINV+6
IENS	INTOUT+1~, INTOUT+6*, INTOUT+7, INTOUT+8
IOF	HDR+1
IOM	HDR+3, DASH+2, INTOUT+11
IOSL	PRINT3+2
LP	PRINT1+1~
LSTFDT	PRINT1+1~, PRINT1+2*
NEWPG	PRINT+1~, PRINT+2, HDR+2
NODE0	APSPINV+1~, APSPINV+3*, APSPINV+4, APSPINV+5, APSPINV+6
ORDID	INTOUT+1~, INTOUT+3*, INTOUT+4, INTOUT+5, INTOUT+6, INTOUT+9
RX	PRINT2+1~, PRINT2+5*, PRINT2+6, PRINT2+9, PRINT2+10, INTOUT~, INTOUT+3
SUB1	PRINT1+1~, PRINT1+6, PRINT1+7, PRINT1+8, PRINT1+12, PRINT1+13, PRINT1+14, PRINT1+18, PRINT1+19, PRINT1+20 , PRINT1+21, PRINT1+25, PRINT1+26, PRINT1+27, PRINT1+28
SUB2	PRINT1+1~, PRINT1+7, PRINT1+8, PRINT1+13, PRINT1+14, PRINT1+19, PRINT1+20, PRINT1+21, PRINT1+26, PRINT1+27 , PRINT1+28
SUB3	PRINT1+1~, PRINT1+8, PRINT1+9, PRINT1+14, PRINT1+15, PRINT1+20, PRINT1+21, PRINT1+27, PRINT1+28
SUB4	PRINT1+1~, PRINT1+21, PRINT1+22, PRINT1+28, PRINT1+29
SUB5	PRINT1+1~
U	PRINT2+2, PRINT2+8, PRINT2+9, INTOUT+3, INTOUT+5, APSPINV+4, APSPINV+5, APSPINV+6
VAL	PRINT1+1~

Customize PDF page

Package: IHS Changes To Pharmacy

Routine: APSPCDI1

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

Local Variables

Legend: