Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  Global Variables Directly Accessed |  Local Variables |  All
Print Page as PDF
Routine: AGEDCHEK

Package: IHS Patient Registration

Routine: AGEDCHEK


Information

AGEDCHEK ;IHS/ITSC/TPF - USE TO REPORT ON BAD DATA IN ELIGIBILITY FILES

Source Information

Source file <AGEDCHEK.m>

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

Global Variables Directly Accessed

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

Local Variables

Legend:

>> 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
Info |  Source |  Entry Points |  Interaction Calls |  Global Variables Directly Accessed |  Local Variables |  All