Routine: AGEDCHEK

Entry Points

Name	Comments	DBIA/ICR reference
PRVT	;
CHECKALL	;EP - CHECK FOR BAD ENTRIES FOR ALL KNOWN ELIGIBILITY DATA PROBLEMS
PAT	;
TPLFIX	;
RRE	;
MCD	;
TPLCNV	;
INS	;
MCR	;

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"CHECKING PRIVATE INSURANCE FILE" Line Location: PRVT+1
Function Call: WRITE	Prompt: !,RECNO Line Location: PRVT+6
Function Call: WRITE	Prompt: !,RECNO," MISSING POLICY HOLDER" Line Location: PRVT+7
Function Call: WRITE	Prompt: !,"CHECKING MEDICAID FILE" Line Location: MCD+1
Function Call: WRITE	Prompt: !,RECNO," 1ST PIECE MISSING" Line Location: MCD+4
Function Call: WRITE	Prompt: !,RECNO," 2ND PIECE MISSING" Line Location: MCD+5
Function Call: WRITE	Prompt: !,RECNO,"STATE FIELD MISSING" Line Location: MCD+6
Function Call: WRITE	Prompt: !?5,RECNO_"-"_D1 Line Location: MCD+9
Function Call: WRITE	Prompt: !,"CHECKING MEDICAID AB X-REF" Line Location: MCD+11
Function Call: WRITE	Prompt: !,"AB X-REF ",DFN,"-",RECNO Line Location: MCD+17
Function Call: WRITE	Prompt: !,"CHECKING RAILROAD FILE B X-REF" Line Location: RRE+1
Function Call: WRITE	Prompt: !,RECNO Line Location: RRE+4
Function Call: WRITE	Prompt: !,"CHECKING RAILROAD ELIG DATES" Line Location: RRE+6
Function Call: WRITE	Prompt: !,RECNO Line Location: RRE+10
Function Call: WRITE	Prompt: !,"CHECKING MEDICARE FILE B X-REF" Line Location: MCR+1
Function Call: WRITE	Prompt: !,RECNO Line Location: MCR+4
Function Call: WRITE	Prompt: !,"CHECKING MEDICARE ELIG DATES" Line Location: MCR+6
Function Call: WRITE	Prompt: !,"MISSING B X-REF ",RECNO Line Location: MCR+8
Function Call: WRITE	Prompt: !,RECNO Line Location: MCR+11
Function Call: WRITE	Prompt: !,"CHECKING INSURER FILE FOR DATE/TIME FIELD AS IEN" Line Location: INS+1
Function Call: WRITE	Prompt: !,RECNO Line Location: INS+4
Function Call: WRITE	Prompt: !,"CHECKING B X-REF WITH RECORD AND NO .01 FIELD" Line Location: INS+5
Function Call: WRITE	Prompt: !,RECIEN Line Location: INS+10
Function Call: WRITE	Prompt: !,"CHECKING PATIENT FILE FOR MISSING .01 FIELD" Line Location: PAT+1
Function Call: WRITE	Prompt: !,RECNO Line Location: PAT+4
Function Call: WRITE	Prompt: !,"CHECKING FOR ""D"" X-REF WITH NO PARENT RECORD" Line Location: PAT+6
Function Call: WRITE	Prompt: !,RECNO,"*",HRN Line Location: PAT+9
Function Call: WRITE	Prompt: !,"MISSING INSURER PTR "_RECNO Line Location: TPLCNV+5
Function Call: WRITE	Prompt: !?5,"MISSING PTPTR AT "_RECNO Line Location: TPLCNV+8
Function Call: WRITE	Prompt: !?5,"MISSING DATE TRANSFER FROM AUTO "_RECNO_" TO TPL AT "_PTPTR_"\|"_ACCDT Line Location: TPLCNV+9
Function Call: WRITE	Prompt: !?5,"RRE PTR FOUND"_PTPTR_"\|"_DTIEN Line Location: TPLCNV+13
Function Call: WRITE	Prompt: !?5,"NULL PTR FOUND",PTPTR_"\|"_DTIEN Line Location: TPLCNV+14

Name	Line Occurrences (* Changed, ! Killed)
^AUPNAUTO - [#9000031]	TPLCNV+2, TPLCNV+3, TPLCNV+6, TPLCNV+7
^AUPNMCD - [#9000004]	MCD+3, MCD+4, MCD+5, MCD+6, MCD+8, MCD+9, MCD+17
^AUPNMCD("AB"	MCD+13, MCD+14, MCD+15, MCD+16
^AUPNMCR - [#9000003]	MCR+4, MCR+7, MCR+10, MCR+11
^AUPNMCR("B"	MCR+3, MCR+8
^AUPNPAT - [#9000001]	PAT+3, PAT+4, PAT+9
^AUPNPAT("D"	PAT+7, PAT+8
^AUPNPRVT - [#9000006]	PRVT+3, PRVT+5, PRVT+6, PRVT+7
^AUPNRRE - [#9000005]	RRE+4, RRE+7, RRE+9, RRE+10
^AUPNRRE("B"	RRE+3
^AUPNTPL - [#9000041]	TPLCNV+9, TPLCNV+11, TPLCNV+12, TPLFIX+2, TPLFIX+4, TPLFIX+5*
^AUTNINS - [#9999999.18]	INS+3, INS+10
^AUTNINS("B"	INS+7, INS+9
^DPT - [#2]	PAT+9

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ACCDT	TPLCNV+7*, TPLCNV+9
>> D1	PRVT+4, PRVT+5, PRVT+6, PRVT+7, MCD+7, MCD+8, MCD+9, RRE+8, RRE+9, RRE+10 , MCR+9, MCR+10, MCR+11
>> DFN	MCD+12, MCD+13, MCD+14, MCD+15, MCD+16, MCD+17
>> DTIEN	TPLCNV+10, TPLCNV+11, TPLCNV+12, TPLCNV+13, TPLCNV+14, TPLFIX+3, TPLFIX+4, TPLFIX+5
>> HRN	PAT+7*, PAT+8, PAT+9
>> IEN	TPLFIX+1, TPLFIX+2, TPLFIX+4, TPLFIX+5
>> INSPTR	TPLCNV+3, TPLCNV+4, TPLCNV+5, TPLCNV+12, TPLCNV+13, TPLCNV+14
>> MCDNUM	MCD+15*, MCD+16
>> PTPTR	TPLCNV+6*, TPLCNV+8, TPLCNV+9, TPLCNV+11, TPLCNV+12, TPLCNV+13, TPLCNV+14
>> RECIEN	INS+8, INS+9, INS+10
>> RECNO	PRVT+2, PRVT+3, PRVT+5, PRVT+6, PRVT+7, MCD+2, MCD+3, MCD+4, MCD+5, MCD+6 , MCD+8, MCD+9, MCD+16, MCD+17, RRE+2, RRE+3, RRE+4, RRE+5, RRE+7, RRE+9 , RRE+10, MCR+2, MCR+3, MCR+4, MCR+5, MCR+7, MCR+8, MCR+10, MCR+11, INS+2 , INS+3, INS+4, INS+6, INS+7, INS+9, PAT+2, PAT+3, PAT+4, PAT+8, PAT+9 , TPLCNV+1, TPLCNV+2, TPLCNV+3, TPLCNV+5, TPLCNV+6, TPLCNV+7, TPLCNV+8, TPLCNV+9
>> ST	MCD+14*, MCD+15, MCD+16
U	PRVT+6, PRVT+7, MCD+4, MCD+5, MCD+6, MCD+9, MCD+17, RRE+4, RRE+10, MCR+4 , MCR+11, INS+10, PAT+4, TPLCNV+3, TPLCNV+6, TPLCNV+7, TPLCNV+12, TPLFIX+5

Customize PDF page

Package: IHS Patient Registration

Routine: AGEDCHEK

Information

Source Information

Entry Points

Interaction Calls

Global Variables Directly Accessed

Local Variables

Legend: