00001 ***** 01/15/20 00002 * DTSIX460 00003 * DTSIX460 DAILY "CLEAN HANDS" DATA EXTRACT RECORD. LV006 00004 * DTSIX460 00005 * DTSIX460 00006 ***** DTSIX460 00007 DTSIX460 00008 15 X460-AGY-TRACKING-ID PIC X(13). CL**3 00009 15 FILLER PIC X(01) VALUE '|'. CL**6 00010 15 X460-AGY-ID-ADM-DIV PIC X(06). CL**3 00011 15 FILLER PIC X(01) VALUE '|'. CL**6 00012 15 X460-ENTITY-ID-TYPE PIC X(01). CL**3 00013 88 X460-ENTITY-TYPE-SSN-88 VALUE 'S'. CL**3 00014 88 X460-ENTITY-TYPE-EIN-88 VALUE 'E'. CL**3 00015 15 FILLER PIC X(01) VALUE '|'. CL**6 00016 15 X460-ENTITY-ID PIC X(09). CL**3 00017 15 FILLER PIC X(01) VALUE '|'. CL**6 00018 15 X460-RELATIONSHIP-IND PIC X(01). CL**3 00019 88 X460-RELATION-EXISTS-88 VALUE 'R'. CL**3 00020 88 X460-NO-RELATION-88 VALUE 'N'. CL**3 00021 15 FILLER PIC X(01) VALUE '|'. CL**6 00022 15 X460-ENTITY-BUSNS-NAME PIC X(70). CL**4 00023 15 FILLER PIC X(01) VALUE '|'. CL**6 00024 15 X460-ENTITY-LAST-NAME PIC X(35). CL**4 00025 15 FILLER PIC X(01) VALUE '|'. CL**6 00026 15 X460-ENTITY-FIRST-NAME PIC X(35). CL**4 00027 15 FILLER PIC X(01) VALUE '|'. CL**6 00028 15 X460-ENTITY-MID-INIT PIC X(01). CL**4 00029 15 FILLER PIC X(01) VALUE '|'. CL**6 00030 15 X460-ENTITY-SUFFIX PIC X(10). CL**4 00031 15 FILLER PIC X(01) VALUE '|'. CL**6 00032 15 X460-ENTITY-DOB PIC X(10). CL**4 00033 15 FILLER PIC X(01) VALUE '|'. CL**6 00034 15 X460-STREET-NUMBER PIC X(10). CL**4 00035 15 FILLER PIC X(01) VALUE '|'. CL**6 00036 15 X460-STREET-NAME PIC X(100). CL**4 00037 15 FILLER PIC X(01) VALUE '|'. CL**6 00038 15 X460-CITY PIC X(30). CL**4 00039 15 FILLER PIC X(01) VALUE '|'. CL**6 00040 15 X460-STATE PIC X(02). CL**4 00041 15 FILLER PIC X(01) VALUE '|'. CL**6 00042 15 X460-ZIP PIC X(05). CL**4 00043 15 FILLER PIC X(01) VALUE '|'. CL**6 00044 15 X460-ZIP-EXT PIC X(04). CL**4 00045 15 FILLER PIC X(01) VALUE '|'. CL**6 00046 15 X460-FAILURE-TO-FILE-IND PIC X(01). CL**4 00047 88 X460-FAIL-TO-FILE-YES-88 VALUE 'Y'. CL**4 00048 88 X460-FAIL-TO-FILE-NO-88 VALUE 'N'. CL**4 00049 15 FILLER PIC X(01) VALUE '|'. CL**6 00050 15 X460-DEBT-AMT PIC ----------9.99. CL**4 00051 15 FILLER PIC X(01) VALUE '|'. CL**6 00052 15 X460-AGY-REPORT-DT PIC X(10). CL**4