ACHSTX3D.m

ACHSTX3D ;IHS/SET/GTH - RECORD 3(PATIENT FOR AO/FI) FORMAT ; [ 12/06/2002  10:36 AM ]

 ;;3.1;CONTRACT HEALTH MGMT SYSTEM;**5,22**;JUN 11, 2001;Build 43

 ;IHS/SET/GTH ACHS*3.1*5 12/06/2002 - New Routine.

 ;ACHS*3.1*22 IHS/OIT/FCJ MODIFICATION TO 3C to include century data

 ;;

 ;;Record 3A - PATIENT RECORD.

 ;;Routine :  ACHSTX3

 ;;

 ;;   POSIT  LENGTH  VAR       NAME                         JUSTIFY

 ;;   -----  ------  --------  --------------------------   -------

 ;;    1          2  constant  3A                           -

 ;;    3- 8       6  ACHSFAC   AUTHORIZING FACILITY         -

 ;;    9-14       6  ACHSHRN   HEALTH RECORD NUMBER         R

 ;;   15-21       7  ACHSDOB   DATE OF BIRTH                L

 ;;   22          1  ACHSSEX   SEX                          -

 ;;   23-25       3  ACHSTRIB  TRIBE                        -

 ;;   26-55      30  ACHSNAME  NAME                         L

 ;;   56          1  ACHSCOV   CARE, CAID "AB", RR or PVT   -

 ;;   57-63       7  ACHSCOMM  COMMUNITY CODE               L

 ;;   64-72       9  ACHSSSN   SSN                          -

 ;;   73-78       6  ACHSUPDT  DATE OF LAST PT UPDATE       -

 ;;   79          1  $$SSV     SSN VERIFICATION STATUS      -

 ;;   80          1  ACHSDEST  DOCUMENT DESTINATION         -

 ;;

 ;;Record 3B - PATIENT RECORD.

 ;;Routine:  ACHSTX3

 ;;

 ;;   POSIT  LENGTH  VAR       NAME                         JUSTIFY

 ;;   -----  ------  --------  --------------------------   -------

 ;;    1- 2       2  constant  3B                           -

 ;;    3-32      30  ACHSADDR  STREET ADDRESS               L

 ;;   33-52      20  ACHSCITY  CITY                         L

 ;;   53-54       2  ACHSST    STATE                        -

 ;;   55-63       9  ACHSZIP   ZIP CODE                     L

 ;;   64-80      17  ACHSINSR  INSURED NAME                 L

 ;;

 ;;Record 3C - PATIENT RECORD 3RD PARTY COVERAGE.

 ;;Routine:  ACHSTX3C

 ;;   POSIT  LENGTH  VAR       NAME                         JUSTIFY

 ;;   -----  ------  --------  --------------------------   -------

 ;;    1- 2       2            "3C"

 ;;    3-32      30            INSURER NAME                 L

 ;;   33-47      15            POLICY NUMBER                L

 ;;   48-49       2            STATE

 ;;   50-51       2            POLICY SUFFIX

 ;;   52-57       6            ELIG BEGIN DATE (YYMMDD)

 ;;   58-63       6            ELIG END DATE   (YYMMDD)

 ;;   64-80      17            COVERAGE TYPE                L 

 ;;   77-78       2            Century Elig Begin

 ;;   79-80       2            Century Elig End

ACHSTX3D  ;IHS/SET/GTH - RECORD 3(PATIENT FOR AO/FI) FORMAT ; [ 12/06/2002  10:36 AM ]

 +1       ;;3.1;CONTRACT HEALTH MGMT SYSTEM;**5,22**;JUN 11, 2001;Build 43

 +2       ;IHS/SET/GTH ACHS*3.1*5 12/06/2002 - New Routine.

 +3       ;ACHS*3.1*22 IHS/OIT/FCJ MODIFICATION TO 3C to include century data

 +4       ;;

 +5       ;;Record 3A - PATIENT RECORD.

 +6       ;;Routine :  ACHSTX3

 +7       ;;

 +8       ;;   POSIT  LENGTH  VAR       NAME                         JUSTIFY

 +9       ;;   -----  ------  --------  --------------------------   -------

 +10      ;;    1          2  constant  3A                           -

 +11      ;;    3- 8       6  ACHSFAC   AUTHORIZING FACILITY         -

 +12      ;;    9-14       6  ACHSHRN   HEALTH RECORD NUMBER         R

 +13      ;;   15-21       7  ACHSDOB   DATE OF BIRTH                L

 +14      ;;   22          1  ACHSSEX   SEX                          -

 +15      ;;   23-25       3  ACHSTRIB  TRIBE                        -

 +16      ;;   26-55      30  ACHSNAME  NAME                         L

 +17      ;;   56          1  ACHSCOV   CARE, CAID "AB", RR or PVT   -

 +18      ;;   57-63       7  ACHSCOMM  COMMUNITY CODE               L

 +19      ;;   64-72       9  ACHSSSN   SSN                          -

 +20      ;;   73-78       6  ACHSUPDT  DATE OF LAST PT UPDATE       -

 +21      ;;   79          1  $$SSV     SSN VERIFICATION STATUS      -

 +22      ;;   80          1  ACHSDEST  DOCUMENT DESTINATION         -

 +23      ;;

 +24      ;;Record 3B - PATIENT RECORD.

 +25      ;;Routine:  ACHSTX3

 +26      ;;

 +27      ;;   POSIT  LENGTH  VAR       NAME                         JUSTIFY

 +28      ;;   -----  ------  --------  --------------------------   -------

 +29      ;;    1- 2       2  constant  3B                           -

 +30      ;;    3-32      30  ACHSADDR  STREET ADDRESS               L

 +31      ;;   33-52      20  ACHSCITY  CITY                         L

 +32      ;;   53-54       2  ACHSST    STATE                        -

 +33      ;;   55-63       9  ACHSZIP   ZIP CODE                     L

 +34      ;;   64-80      17  ACHSINSR  INSURED NAME                 L

 +35      ;;

 +36      ;;Record 3C - PATIENT RECORD 3RD PARTY COVERAGE.

 +37      ;;Routine:  ACHSTX3C

 +38      ;;   POSIT  LENGTH  VAR       NAME                         JUSTIFY

 +39      ;;   -----  ------  --------  --------------------------   -------

 +40      ;;    1- 2       2            "3C"

 +41      ;;    3-32      30            INSURER NAME                 L

 +42      ;;   33-47      15            POLICY NUMBER                L

 +43      ;;   48-49       2            STATE

 +44      ;;   50-51       2            POLICY SUFFIX

 +45      ;;   52-57       6            ELIG BEGIN DATE (YYMMDD)

 +46      ;;   58-63       6            ELIG END DATE   (YYMMDD)

 +47      ;;   64-80      17            COVERAGE TYPE                L 

 +48      ;;   77-78       2            Century Elig Begin

 +49      ;;   79-80       2            Century Elig End