Routine: APCLOS21

Package	Total	Call Graph
IHS Patient	1	($$MCD,$$PI)^AUPNPAT

Package

Total

Call Graph

($$MCD,$$PI)^AUPNPAT

Package	Total	Caller Graph
Patient Care Component Reports	2	APCLOS2 APCLVLU

Package

Total

Caller Graph

Name	Comments	DBIA/ICR reference
PIDD(P,D)	;EP - Is patient P private insurance MEDICARE D eligible on date D. 1= yes, 0=no. ; I = IEN ; Y = 1:yes, 0:no ; X = Pointer to INSURER file.
THIRD	;ENTRY POINT
MCRA2	;
MCD	;
PIDDX	;
PI	;
MCRA	;

Name	Field # of Occurrence
$$MCD^AUPNPAT	MCD+1
$$PI^AUPNPAT	PI+1

Name	Line Occurrences (* Changed, ! Killed)
^AUPNMCR - [#9000003]	MCRA+2, MCRA+5, MCRA2+1, MCRA2+2, MCRA2+3
^AUPNPAT - [#9000001]	PIDD+10
^AUPNPRVT - [#9000006]	PIDD+11, PIDD+14, PIDD+15, PIDD+16, PIDD+21, PIDD+22
^AUTNINS - [#9999999.18]	PIDD+18, PIDD+19
^DPT - [#2]	MCRA+3, MCRA+4, PIDD+8, PIDD+9, PIDD+12
^XTMP(	THIRD+8, THIRD+18, MCRA+7, PI+1, MCD+1

Name	Line Occurrences
$$PIDD	THIRD+7, THIRD+17
MCD	THIRD+9, THIRD+19
MCRA	THIRD+2, THIRD+3, THIRD+5, THIRD+11, THIRD+12, THIRD+15
MCRA2	MCRA+5
PI	THIRD+9, THIRD+19
PIDDX	PIDD+8, PIDD+9, PIDD+10, PIDD+11, PIDD+12

Name	Field # of Occurrence
>> APCLACE	THIRD+1, THIRD+7, THIRD+10, THIRD+17, MCRA2+3, PI+1, MCD+1
>> APCLACED	THIRD+1, THIRD+10, MCRA+4, MCRA2+2
>> APCLBTH	THIRD+8, THIRD+18, MCRA+7, PI+1, MCD+1
>> APCLFYB	THIRD+1
>> APCLFYE	THIRD+1
APCLGOT	THIRD+6, THIRD+16, MCRA+1!, MCRA+5!, MCRA+6, MCRA2+4*
>> APCLJOB	THIRD+8, THIRD+18, MCRA+7, PI+1, MCD+1
>> APCLMCR	THIRD+2, THIRD+3, THIRD+4, THIRD+8, THIRD+11, THIRD+12, THIRD+14, THIRD+18, MCRA+7
>> APCLMDFN	MCRA+5*, MCRA2+1, MCRA2+2, MCRA2+3
>> APCLOS	THIRD+1, THIRD+8, THIRD+10, THIRD+18, MCRA+7, PI+1, MCD+1
>> APCLPYB	THIRD+10
>> APCLPYE	THIRD+10
>> APCLVAL	THIRD+2, THIRD+3, THIRD+4, THIRD+11, THIRD+12, THIRD+14, MCRA2+1
D	PIDD~, PIDD+5, PIDD+12, PIDD+21, PIDD+22
>> DFN	THIRD+7, THIRD+17, MCRA+2, MCRA+3, MCRA+4, MCRA+5, MCRA2+1, MCRA2+2, MCRA2+3, PI+1 , MCD+1
>> G	PIDD+17, PIDD+18, PIDD+19*, PIDD+20
I	PIDD+6~, PIDD+13, PIDD+14, PIDD+15, PIDD+16, PIDD+21, PIDD+22
P	PIDD~, PIDD+4, PIDD+8, PIDD+9, PIDD+10, PIDD+11, PIDD+12, PIDD+14, PIDD+15, PIDD+16 , PIDD+21, PIDD+22
U	MCRA+4, MCRA2+1, MCRA2+2, MCRA2+3, PIDD+7*, PIDD+9, PIDD+12, PIDD+15, PIDD+16, PIDD+18 , PIDD+19, PIDD+21, PIDD+22
X	THIRD+7, THIRD+8, THIRD+17, THIRD+18, PIDD+6~, PIDD+16*, PIDD+18, PIDD+19
Y	PIDD+6~, PIDD+7, PIDD+23, PIDDX+1

Information