Routine: AMERCLP

Name	Comments	DBIA/ICR reference
MCRE()	; -- medicare eligible end date
END
PRVI()	; -- private insurance
START	;
MCRM()	; -- medicare eligible multiple ien
MCRI()	; -- medicare eligible ien
PRVE()	; -- private insurance eligible end date
MCDE()	; -- medicaid eligible end date
DEV
MCRB()	; -- medicare eligible eligibility
MCDN()	; -- medicaid eligibility number
EN(DFN)
PRVM()	; -- private insurance eligible multiple ien
MCDC()	; -- medicaid eligibility code
MCR()	; -- medicare eligible
AMER
MCD()	; -- medicaid eligible
MCDM()	; -- medicaid eligible multiple ien
MCDI()	; -- medicaid eligible ien
PRVX()	; -- private insurance eligible

Name	Line Occurrences (* Changed, ! Killed)
^AMER(2.5 - [#9009082.5]	DEV+3
^AUPNMCD - [#9000004]	MCDC+1, MCDN+1, MCDM+1, MCDE+1
^AUPNMCD("B"	MCDI+1
^AUPNMCR - [#9000003]	MCRM+1, MCRE+1, MCRB+1
^AUPNMCR("B"	MCRI+1
^AUPNPAT - [#9000001]	START+3, START+8
^AUPNPRVT - [#9000006]	PRVM+1, PRVE+1
^AUPNPRVT("B"	PRVI+1
^DPT - [#2]	START+5, START+6, START+7

Name	Field # of Occurrence
>> %ZIS("A"	DEV+1*
>> %ZIS("B"	DEV+3*
AG	START+10*, END!
AGCHART	START+3, START+4, START+11, END!
AGCOM	START+8*, START+13, END!
AGDOB	START+7*, START+13, END!
AGNAME	START+6*, START+12, END!
AGSEX	START+5*, START+12, END!
AMERCOPY	AMER+2~, AMER+3, AMER+10, START+10
DFN	EN~, START+3, START+5, START+6, START+7, START+8, START+21, END!, PRVI+1, MCDI+1 , MCRI+1
DIR	AMER+2~, AMER+12!
DIR("?"	AMER+4, AMER+6
DIR("A"	AMER+8*
DIR("B"	AMER+3*
DIR(0	AMER+8*
DT	PRVM+1, PRVX+1, MCDM+1, MCD+1, MCRM+1, MCR+1
DUZ(2	DEV+3, START+3
IO	START+1
>> MCDE	MCD+1*
>> POP	DEV+5
U	START+3, START+5, START+6, START+7, START+8, PRVE+1, MCDC+1, MCDN+1, MCDE+1, MCRE+1 , MCRB+1
X	EN+1~
Y	AMER+2~, AMER+10, AMER+11, AMER+12!

Information