ACHSTX6D.m

ACHSTX6D ;IHS/SET/GTH - RECORD 6(PAY FOR AO) FORMAT ; [ 12/06/2002  10:36 AM ]

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

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

 ;;

 ;;Record 6A - PAYMENT RECORD FOR AREA OFFICE.

 ;;Routine:  ACHSTX6

 ;;

 ;;   POSIT  LENGTH  VAR       NAME                         JUSTIFY

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

 ;;    1- 2       2  constant  6A                           -

 ;;    3-11       9  ACHSDOCN  PURCHASE ORDER NUMBER        -

 ;;   12-13       2  ACHSTOS   PO TYPE (43, 57, 64)         -

 ;;   14-19       6            PO DATE (YYMMDD)             -

 ;;   20          1  constant  6                            -

 ;;   21-26       6  FAC       FACILITY CODE                -

 ;;   27-32       6  ACHSHRN   HEALTH RECORD NUMBER         R

 ;;   33-44      12  ACHSEIN   VENDOR ID NUMBER             L

 ;;   45-46       2  ACHSPTYP  VENDOR TYPE                  -

 ;;   47          1  ACHSFED   VENDOR FED/NON FED CODE      -

 ;;   48-57      10  ACHSCN    CONTRACT NUMBER              L

 ;;   58-64       7  ACHSCAN   COMMON ACCOUNTING NUMBER     -

 ;;   65-68       4  ACHSOBJC  OBJECT CLASSIFICATION        -

 ;;   69          1  ACHSDCR   DCR ACCOUNT NUMBER           -

 ;;   70-80      11  -         blanks                       -

 ;;

 ;;Record 6B - PAYMENT RECORD FOR AREA OFFICE.

 ;;Routine:  ACHSTX6.

 ;;

 ;;   POSIT  LENGTH  VAR       NAME                         JUSTIFY

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

 ;;    1- 2       2  constant  6B                           -

 ;;    3-10       8  ACHSOAMT  TOTAL AMOUNT OBLIGATED       R

 ;;   11-18       8  ACHSIPA   IHS PAYMENT AMOUNT           R

 ;;   19          1  ACHSFULP  FULL PAYMENT CODE            -

 ;;   20-39      20  ACHSLNAM  PATIENT LAST NAME            L

 ;;   40-49      10  ACHSFNAM  PATIENT FIRST NAME           L

 ;;   50-55       6  ACHSDOS   DATE OF SERVICE (MMDDYY)     R

 ;;   56-58       3  ACHSWKLD  WORKLOAD                     R

 ;;   59-66       8  ACHSTHRD  3P AMOUNT

 ;;   67-80      14  -         blanks                       -

 ;

ACHSTX6D  ;IHS/SET/GTH - RECORD 6(PAY FOR AO) FORMAT ; [ 12/06/2002  10:36 AM ]

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

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

 +3       ;;

 +4       ;;Record 6A - PAYMENT RECORD FOR AREA OFFICE.

 +5       ;;Routine:  ACHSTX6

 +6       ;;

 +7       ;;   POSIT  LENGTH  VAR       NAME                         JUSTIFY

 +8       ;;   -----  ------  --------  --------------------------   -------

 +9       ;;    1- 2       2  constant  6A                           -

 +10      ;;    3-11       9  ACHSDOCN  PURCHASE ORDER NUMBER        -

 +11      ;;   12-13       2  ACHSTOS   PO TYPE (43, 57, 64)         -

 +12      ;;   14-19       6            PO DATE (YYMMDD)             -

 +13      ;;   20          1  constant  6                            -

 +14      ;;   21-26       6  FAC       FACILITY CODE                -

 +15      ;;   27-32       6  ACHSHRN   HEALTH RECORD NUMBER         R

 +16      ;;   33-44      12  ACHSEIN   VENDOR ID NUMBER             L

 +17      ;;   45-46       2  ACHSPTYP  VENDOR TYPE                  -

 +18      ;;   47          1  ACHSFED   VENDOR FED/NON FED CODE      -

 +19      ;;   48-57      10  ACHSCN    CONTRACT NUMBER              L

 +20      ;;   58-64       7  ACHSCAN   COMMON ACCOUNTING NUMBER     -

 +21      ;;   65-68       4  ACHSOBJC  OBJECT CLASSIFICATION        -

 +22      ;;   69          1  ACHSDCR   DCR ACCOUNT NUMBER           -

 +23      ;;   70-80      11  -         blanks                       -

 +24      ;;

 +25      ;;Record 6B - PAYMENT RECORD FOR AREA OFFICE.

 +26      ;;Routine:  ACHSTX6.

 +27      ;;

 +28      ;;   POSIT  LENGTH  VAR       NAME                         JUSTIFY

 +29      ;;   -----  ------  --------  --------------------------   -------

 +30      ;;    1- 2       2  constant  6B                           -

 +31      ;;    3-10       8  ACHSOAMT  TOTAL AMOUNT OBLIGATED       R

 +32      ;;   11-18       8  ACHSIPA   IHS PAYMENT AMOUNT           R

 +33      ;;   19          1  ACHSFULP  FULL PAYMENT CODE            -

 +34      ;;   20-39      20  ACHSLNAM  PATIENT LAST NAME            L

 +35      ;;   40-49      10  ACHSFNAM  PATIENT FIRST NAME           L

 +36      ;;   50-55       6  ACHSDOS   DATE OF SERVICE (MMDDYY)     R

 +37      ;;   56-58       3  ACHSWKLD  WORKLOAD                     R

 +38      ;;   59-66       8  ACHSTHRD  3P AMOUNT

 +39      ;;   67-80      14  -         blanks                       -

 +40      ;