000100 IDENTIFICATION DIVISION.                                         00010000
000200 PROGRAM-ID.          HHOPN130.                                   00020069
000300*AUTHOR.             DDS TEAM.                                    00030000
000400*                        CMS.                                     00040000
000500******************************************************************00050000
000600*REMARKS.                                                         00060000
000700*     HHDRV040   NATIONAL HHA FOR OCT 1, 2003                     00070000
000800*                LOADS ALL FILES                                  00080000
000900*                     HRG , REVENUE , MSA TABLES                  00090000
001000*                MSA = ML00.@DBA2652.WIPREREC.#020709.M2          00100000
001100*                      APPLYING FY 2003 INDEX IN FY 2004          00110000
001200*                      FY 2003 WAGE INDEX                         00120000
001300*                      PRE-RECLASSIED AND PRE-FLOOR               00130000
001400*     HHDRV041 NEW RATES APR 1, 2004                              00140000
001500*     HHDRV050 NEW RATES JAN 1, 2005                              00150000
001600*              MSA = ML00.@DBA2652.WI2005.PFPREC.#041030.SCR401U  00160000
001700*                    APPLYING CY 2005                             00170000
001800*                    CY 2005 WAGE INDEX                           00180000
001900*                    PRE-RECLASSIED AND PRE-FLOOR                 00190000
002000*     HHDRV060 NEW RATES JAN 1, 2006                              00200000
002100*             CBSA = ML00.@DBA2652.WI06.CBSA.#050301.SNF-STANLY   00210000
002200*                    APPLYING CY 2006                             00220000
002300*                    CY 2006 WAGE INDEX                           00230000
002400*                    PRE-RECLASSIED AND PRE-FLOOR                 00240000
002500*     HHDRV061 NEW RATES JAN 1, 2006                              00250000
002600*              CY 2006 WAGE INDEX                                 00260000
002700*              PRE-RECLASSIED AND PRE-FLOOR RURAL DIFFERENTIAL    00270000
002800*     HHDRV062 ADDED RURAL DIFFERENTIAL LOGIC FOR SPECIFIC CBSA   00280000
002900*              CODES, INITIALIZE THE TABLES BEFORE LOADING        00290000
003000*     HHOPN063 NEW CICS  APR 1, 2006 - CICS VERSION               00300000
003100*     HHOPN070 NEW CICS  JAN 1, 2007 - CICS VERSION               00310000
003200*     HHOPN071 NEW CICS  JAN 1, 2007 - CICS VERSION               00320000
003300*              CORRECT LUPA RATE DETERMINATION IF LOGIC           00330000
003400*     HHOPN083 NEW CICS  JAN 1, 2008 - CICS VERSION               00340000
003500*              CORRECT LUPA RATE DETERMINATION IF LOGIC           00350000
003600*              CORRECT LUPA CALCULATION FOR REJECTED AND          00351001
003700*              REPROCESSED CLAIMS                                 00352001
003800*     HHOPN084 NEW CICS  JAN 1, 2008 - CICS VERSION               00353006
003900*              CORRECT HIPPS CODE RECODING LOGIC AND LUPA         00354004
004000*              RECODING LOGIC. THIS PROGRAM REFECTS CHANGES TO    00355002
004100*              RELEASE LEVEL ONLY                                 00356002
004200*     HHOPN090 NEW CICS  JAN 1, 2009 - CICS VERSION               00357006
004300*              CORRECT HIPPS CODE RECODING LOGIC AND LUPA         00358006
004400*              RECODING LOGIC. THIS PROGRAM REFECTS CHANGES TO    00359006
004500*              RELEASE LEVEL ONLY                                 00359106
004600*     HHOPN091 LUPA ADD ON ZERO WHEN REV VISITS = ZERO            00359208
004700*     HHOPN092 CHANGE IN HIPPS RECODING FOR 5 IN POS 1            00359309
004800*     HHDRV100 EXPAND BILLING RECORD TO 500 BYTES -               00359416
004900*     HHDRV101 LUPA FACTOR TRANSPOSITION FIX                      00359516
005000*     HHDRV103 CORRECT SUPPLY ADD ON CODING.                      00359619
005100*     HHDRV105 HEALTH CARE REFORM                                 00359727
005200*     HHDRV111 CY 2011                                            00359861
005300*     HHDRV120 CY 2012                                            00359962
005300*     HHDRV130 CY 2012                                            00360069
005400***************************************************************   00361069
005500*     RETURN CODES                                                00370000
005600*          00 = FINAL PAYMENT                                     00380000
005700*               TOB = 329,339,327,337                             00390000
005800*                  OR 32G OR 33G OR 32I OR 33I                    00400000
005900*                  OR 32J OR 33J OR 32M OR 33M                    00410000
006000*                  OR 32F OR 32K OR 32P OR 32H                    00420000
006100*                  OR 33F OR 33K OR 33P OR 33H                    00430000
006200*               WITH HRG,REVENUE CODE WHERE NO OUTLIER APPLIES    00440000
006300*          01 = FINAL PAYMENT                                     00450000
006400*               TOB = 329,339,327,337                             00460000
006500*                  OR 32G OR 33G OR 32I OR 33I                    00470000
006600*                  OR 32J OR 33J OR 32M OR 33M                    00480000
006700*                  OR 32F OR 32K OR 32P OR 32H                    00490000
006800*                  OR 33F OR 33K OR 33P OR 33H                    00500000
006900*               WITH HRG,REVENUE CODE WHERE OUTLIER APPLIES       00510000
007000*          03 = INITIAL HALF PAYMENT PAYMENT WILL BE ZERO         00520000
007100*               TOB = 332 AND 322                                 00530000
007200*          04 = INITIAL HALF PAYMENT PAID AT 50%                  00540000
007300*               TOB = 332 AND 322                                 00550000
007400*               WITH INITIAL (FIRST) HRG AND NO REVENUE CODES     00560000
007500*          05 = INITIAL HALF PAYMENT PAID AT 60%                  00570000
007600*               TOB = 332 AND 322                                 00580000
007700*               WITH INITIAL (FIRST) HRG AND NO REVENUE CODES     00590000
007800*          06 = LUPA PAYMENT ONLY                                 00600000
007900*               TOB = 329,339,327,337                             00610000
008000*                  OR 32G OR 33G OR 32I OR 33I                    00620000
008100*                  OR 32J OR 33J OR 32M OR 33M                    00630000
008200*                  OR 32F OR 32K OR 32P OR 32H                    00640000
008300*                  OR 33F OR 33K OR 33P OR 33H                    00650000
008400*               WITH REVENUE CODES AND REVENUE QTYS < 5       *   00660000
008500******************************************************************00670000
008600**  RTC CODES 07,08,09,11,12,13 EFFECTIVE 10/01/2002          ****00680000
008700******************************************************************00690000
008800******************************************************************00700000
008900*          07 = FINAL PAYMENT, SCIC, PEP = N, NO OUTLIER          00710000
009000*               TOB = 329,339,327,337                             00720000
009100*                  OR 32G OR 33G OR 32I OR 33I                    00730000
009200*                  OR 32J OR 33J OR 32M OR 33M                    00740000
009300*                  OR 32F OR 32K OR 32P OR 32H                    00750000
009400*                  OR 33F OR 33K OR 33P OR 33H                    00760000
009500*               WITH REVENUE CODE WHERE NO OUTLIER APPLIES        00770000
009600*               WITH MORE THAN ONE HRG OCCURRENCE             *   00780000
009700*          08 = FINAL PAYMENT, SCIC, PEP = N, WITH OUTLIER        00790000
009800*               TOB = 329,339,327,337                             00800000
009900*                  OR 32G OR 33G OR 32I OR 33I                    00810000
010000*                  OR 32J OR 33J OR 32M OR 33M                    00820000
010100*                  OR 32F OR 32K OR 32P OR 32H                    00830000
010200*                  OR 33F OR 33K OR 33P OR 33H                    00840000
010300*               WITH REVENUE CODE WHERE OUTLIER APPLIES           00850000
010400*               WITH MORE THAN ONE HRG OCCURRENCE             *   00860000
010500******************************************************************00870000
010600*          09 = FINAL PAYMENT, PEP = Y, NO OUTLIER                00880000
010700*               TOB = 329,339,327,337                             00890000
010800*                  OR 32G OR 33G OR 32I OR 33I                    00900000
010900*                  OR 32J OR 33J OR 32M OR 33M                    00910000
011000*                  OR 32F OR 32K OR 32P OR 32H                    00920000
011100*                  OR 33F OR 33K OR 33P OR 33H                    00930000
011200*               WITH REVENUE CODE WHERE NO OUTLIER APPLIES        00940000
011300*               WITH ONE HRG OCCURRENCE                       *   00950000
011400*          11 = FINAL PAYMENT, PEP = Y, WITH OUTLIER              00960000
011500*               TOB = 329,339,327,337                             00970000
011600*                  OR 32G OR 33G OR 32I OR 33I                    00980000
011700*                  OR 32J OR 33J OR 32M OR 33M                    00990000
011800*                  OR 32F OR 32K OR 32P OR 32H                    01000000
011900*                  OR 33F OR 33K OR 33P OR 33H                    01010000
012000*               WITH REVENUE CODE WHERE OUTLIER APPLIES           01020000
012100*               WITH ONE HRG OCCURRENCE                       *   01030000
012200******************************************************************01040000
012300*          12 = FINAL PAYMENT, SCIC, PEP = Y, NO OUTLIER          01050000
012400*               TOB = 329,339,327,337                             01060000
012500*                  OR 32G OR 33G OR 32I OR 33I                    01070000
012600*                  OR 32J OR 33J OR 32M OR 33M                    01080000
012700*                  OR 32F OR 32K OR 32P OR 32H                    01090000
012800*                  OR 33F OR 33K OR 33P OR 33H                    01100000
012900*               WITH REVENUE CODE WHERE NO OUTLIER APPLIES        01110000
013000*               WITH MORE THAN ONE HRG OCCURRENCE             *   01120000
013100*          13 = FINAL PAYMENT, SCIC, PEP = Y, WITH OUTLIER        01130000
013200*               TOB = 329,339,327,337                             01140000
013300*                  OR 32G OR 33G OR 32I OR 33I                    01150000
013400*                  OR 32J OR 33J OR 32M OR 33M                    01160000
013500*                  OR 32F OR 32K OR 32P OR 32H                    01170000
013600*                  OR 33F OR 33K OR 33P OR 33H                    01180000
013700*               WITH REVENUE CODE WHERE OUTLIER APPLIES           01190000
013800*               WITH MORE THAN ONE HRG OCCURRENCE             *   01200000
013900******************************************************************01210000
014000******************************************************************01220000
014100******************************************************************01230000
014200******************************************************************01240000
014300*                                                             *   01250000
014400*            HHA-RTC   NO PAYMENTS RETURNED                   *   01260000
014500*                                                             *   01270000
014600*              10 = INVALID TOB                               *   01280000
014700*                                                             *   01290000
014800*              15 = INVALID PEP DAYS                          *   01300000
014900*                   FOR SHORTENED EPISODE                     *   01310000
015000*                                                             *   01320000
015100*              20 = INVALID PEP INDICATOR                     *   01330000
015200*                                                             *   01340000
015300*              25 = INVALID MED REVIEW INDICATOR              *   01350000
015400*                                                             *   01360000
015500*              30 = INVALID MSA CODE                          *   01370000
015600*                                                             *   01380000
015700*              35 = INVALID INITIAL PAYMENT INDICATOR         *   01390000
015800*                        0 = MAKE NORMAL INITIAL PAYMENT      *   01400000
015900*                        1 = MAKE ZERO PAYMANT                *   01410000
016000*                                                             *   01420000
016100*              40 = FROM DATE  < OCT 1, 2000 OR INVALID       *   01430000
016200*                   THRU DATE  < OCT 1, 2000 OR INVALID       *   01440000
016300*                   ADMIT DATE < OCT 1, 2000 OR INVALID       *   01450000
016400*                                                             *   01460000
016500*              70 = INVALID OR NO HRG CODE PRESENT            *   01470000
016600*                                                             *   01480000
016700*              75 = NO HRG PRESENT IN FIRST OCCURANCE AND     *   01490000
016800*                   REVENUE-QTY-COV-VISITS > 4  AND           *   01500000
016900*                       TOB = 329,339,327,337                 *   01510000
017000*                          OR 32G OR 33G OR 32I OR 33I        *   01520000
017100*                          OR 32J OR 33J OR 32M OR 33M        *   01530000
017200*                          OR 32F OR 32K OR 32P OR 32H            01540000
017300*                          OR 33F OR 33K OR 33P OR 33H            01550000
017400*                                                             *   01560000
017500*              80 = INVALID REVENUE CODE                      *   01570000
017600*                                                             *   01580000
017700*              85 = NO REVENUE CODE PRESENT                   *   01590000
017800*                   WITH TOB 329 OR 339 OR 327 OR 337         *   01600000
017900*                         OR 32G OR 33G OR 32I OR 33I         *   01610000
018000*                         OR 32J OR 33J OR 32M OR 33M         *   01620000
018100*                         OR 32F OR 32K OR 32P OR 32H             01630000
018200*                         OR 33F OR 33K OR 33P OR 33H             01640000
018300*                                                             *   01650000
018400***************************************************************   01660000
018500******************************************************************01670000
018600 DATE-COMPILED.                                                   01680000
018700 ENVIRONMENT                     DIVISION.                        01690000
018800                                                                  01700000
018900 CONFIGURATION                   SECTION.                         01710000
019000 SOURCE-COMPUTER.                IBM-370.                         01720000
019100 OBJECT-COMPUTER.                IBM-370.                         01730000
019200                                                                  01740000
019300 INPUT-OUTPUT SECTION.                                            01750000
019400 FILE-CONTROL.                                                    01760000
019500                                                                  01770000
019600     SELECT MSAFILE    ASSIGN TO UT-S-MSAFILE                     01780000
019700         FILE STATUS IS MSA-STAT.                                 01790000
019800     SELECT CBSAFILE   ASSIGN TO UT-S-CBSAFILE                    01800000
019900         FILE STATUS IS CBSA-STAT.                                01810000
020000     SELECT HRGTABL    ASSIGN TO UT-S-HRGTABL                     01820000
020100         FILE STATUS IS HRG-STAT.                                 01830000
020200     SELECT REVTABL    ASSIGN TO UT-S-REVTABL                     01840000
020300         FILE STATUS IS REV-STAT.                                 01850000
020400                                                                  01860000
020500 DATA DIVISION.                                                   01870000
020600 FILE SECTION.                                                    01880000
020700                                                                  01890000
020800 FD  MSAFILE                                                      01900000
020900     RECORDING MODE IS F                                          01910000
021000     BLOCK CONTAINS 133 RECORDS                                   01920000
021100     LABEL RECORDS ARE STANDARD.                                  01930000
021200 01  MSA-REC.                                                     01940000
021300     05  MSA-CODE.                                                01950000
021400         10  MSA-BLANK            PIC X(02).                      01960000
021500         10  MSA-STATE            PIC X(02).                      01970000
021600     05  FILLER                   PIC X.                          01980000
021700     05  MSA-EFFDATE              PIC X(08).                      01990000
021800     05  FILLER                   PIC X.                          02000000
021900     05  MSA-WAGEIND              PIC 9(02)V9(04).                02010000
022000     05  FILLER                   PIC X(08).                      02020000
022100     05  MSA-NAME                 PIC X(52).                      02030000
022200                                                                  02040000
022300 FD  CBSAFILE                                                     02050000
022400     RECORDING MODE IS F                                          02060000
022500     BLOCK CONTAINS 133 RECORDS                                   02070000
022600     LABEL RECORDS ARE STANDARD.                                  02080000
022700 01  F-CBSA-REC.                                                  02090000
022800     05  F-CBSA.                                                  02100000
022900         10  F-CBSA-BLANK            PIC X(03).                   02110000
023000         10  F-CBSA-STATE            PIC X(02).                   02120000
023100     05  FILLER                   PIC X.                          02130000
023200     05  F-CBSA-EFFDATE           PIC X(08).                      02140000
023300     05  FILLER                   PIC X.                          02150000
023400     05  F-CBSA-WAGEIND           PIC 9(02)V9(04).                02160000
023500     05  FILLER                   PIC X(08).                      02170000
023600     05  F-CBSA-NAME              PIC X(51).                      02180000
023700                                                                  02190000
023800 FD  HRGTABL                                                      02200000
023900     RECORDING MODE IS F                                          02210000
024000     BLOCK CONTAINS 133 RECORDS                                   02220000
024100     LABEL RECORDS ARE STANDARD.                                  02230000
024200 01  HRG-TABL-REC.                                                02240000
024300     05  HRG-CODE                 PIC X(05).                      02250000
024400     05  FILLER                   PIC X.                          02260000
024500     05  HRG-EFFDATE              PIC X(08).                      02270000
024600     05  FILLER                   PIC X.                          02280000
024700     05  HRG-WGTS                 PIC 9(02)V9(04).                02290000
024800     05  FILLER                   PIC X.                          02300000
024900     05  HRG-CODE2                PIC X(05).                      02310000
025000     05  FILLER                   PIC X.                          02320000
025100     05  HRG-WGTS2                PIC 9(02)V9(04).                02330000
025200     05  FILLER                   PIC X(46).                      02340000
025300                                                                  02350000
025400 FD  REVTABL                                                      02360000
025500     RECORDING MODE IS F                                          02370000
025600     BLOCK CONTAINS 133 RECORDS                                   02380000
025700     LABEL RECORDS ARE STANDARD.                                  02390000
025800 01  REV-TABL-REC.                                                02400000
025900     05  REV-CODE                       PIC X(04).                02410000
026000     05  FILLER                         PIC X.                    02420000
026100     05  REV-EFFDATE                    PIC X(08).                02430000
026200     05  FILLER                         PIC X.                    02440000
026300     05  REV-DOLL-RATE-NRURAL           PIC 9(07)V9(02).          02450000
026400     05  FILLER                         PIC X.                    02460000
026500     05  REV-DOLL-RATE-RURAL            PIC 9(07)V9(02).          02470000
026600     05  FILLER                         PIC X.                    02480000
026700     05  REV-DOLL-RATE-NRURAL-NOSUBMIT  PIC 9(07)V9(02).          02490000
026800     05  FILLER                         PIC X.                    02500000
026900     05  REV-DOLL-RATE-RURAL-NOSUBMIT   PIC 9(07)V9(02).          02510000
027000     05  FILLER                         PIC X(27).                02520000
027100                                                                  02530000
027200 WORKING-STORAGE SECTION.                                         02540000
027300 77  W-STORAGE-REF               PIC X(49)  VALUE                 02550000
027400     'HHA D R I V E R   - W O R K I N G   S T O R A G E'.         02560000
027500 01  OPN-VERSION                 PIC X(07)  VALUE 'O2013.0'.      02570070
027600 01  DRV-VERSION                 PIC X(07)  VALUE 'D2013.0'.      02580070
027700 01  HHCAL014                    PIC X(08)  VALUE 'HHCAL015'.     02590061
027800 01  HHCAL021                    PIC X(08)  VALUE 'HHCAL022'.     02600061
027900 01  HHCAL031                    PIC X(08)  VALUE 'HHCAL032'.     02610061
028000 01  HHCAL042                    PIC X(08)  VALUE 'HHCAL043'.     02620061
028100 01  HHCAL051                    PIC X(08)  VALUE 'HHCAL052'.     02630061
028200 01  HHCAL064                    PIC X(08)  VALUE 'HHCAL065'.     02640061
028300 01  HHCAL072                    PIC X(08)  VALUE 'HHCAL073'.     02650061
028400 01  HHCAL086                    PIC X(08)  VALUE 'HHCAL087'.     02660061
028500 01  HHCAL093                    PIC X(08)  VALUE 'HHCAL094'.     02660161
028600 01  HHCAL106                    PIC X(08)  VALUE 'HHCAL10C'.     02661061
028700 01  HHCAL107                    PIC X(08)  VALUE 'HHCAL109'.     02662061
028800 01  HHCAL111                    PIC X(08)  VALUE 'HHCAL111'.     02663061
028900 01  HHCAL120                    PIC X(08)  VALUE 'HHCAL120'.     02664069
028900 01  HHCAL130                    PIC X(08)  VALUE 'HHCAL130'.     02665069
029000 01  HHDRV130                    PIC X(08)  VALUE 'HHDRV130'.     02670069
029100 01  SUB1                        PIC 9(03)  VALUE 0.              02680000
029200 01  EOF-SW                      PIC 9(01)  VALUE 0.              02690000
029300 01  EOF-MSA                     PIC 9(01)  VALUE 0.              02700000
029400 01  EOF-CBSA                    PIC 9(01)  VALUE 0.              02710000
029500 01  EOF-HRG                     PIC 9(01)  VALUE 0.              02720000
029600 01  EOF-REV                     PIC 9(01)  VALUE 0.              02730000
029700 01  LOAD-TABLES-SW              PIC 9(01)  VALUE 0.              02740000
029800 01  TABLES-LOADED-SW            PIC 9(01)  VALUE 0.              02750000
029900 01  HRG-CT                      PIC 9(10)  VALUE 0.              02760000
030000 01  MSA-STAT.                                                    02770000
030100     05  MSA-STAT1               PIC X.                           02780000
030200     05  MSA-STAT2               PIC X.                           02790000
030300 01  CBSA-STAT.                                                   02800000
030400     05  CBSA-STAT1               PIC X.                          02810000
030500     05  CBSA-STAT2               PIC X.                          02820000
030600 01  HRG-STAT.                                                    02830000
030700     05  HRG-STAT1               PIC X.                           02840000
030800     05  HRG-STAT2               PIC X.                           02850000
030900 01  REV-STAT.                                                    02860000
031000     05  REV-STAT1               PIC X.                           02870000
031100     05  REV-STAT2               PIC X.                           02880000
031200*******************************************************           02890000
031300*    PASSED TO HHDRV PROGRAM                          *           02900000
031400*******************************************************           02910000
031500 01  WAGE-INDEX-DATA.                                             02920000
031600     02  WIR-MSA               PIC X(04).                         02930000
031700     02  WIR-EFFDATE           PIC X(08).                         02940000
031800     02  WIR-AREA-WAGEIND      PIC 9(02)V9(04).                   02950000
031900                                                                  02960000
032000 01  MSA-WI-TABLE.                                                02970000
032100     05  M-MSA-DATA        OCCURS 4000                            02980000
032200                           INDEXED BY MU1 MU2 MU3.                02990000
032300         10  TB-MSA        PIC X(04).                             03000000
032400         10  FILLER        PIC X(01).                             03010000
032500         10  TB-EFFDATE    PIC X(08).                             03020000
032600         10  FILLER        PIC X(01).                             03030000
032700         10  TB-WAGEIND    PIC 9(02)V9(04).                       03040000
032800                                                                  03050000
032900 01  CBSA-WAGE-INDEX-DATA.                                        03060000
033000     02  WIR-CBSA              PIC X(05).                         03070000
033100     02  WIR-CBSA-EFFDATE      PIC X(08).                         03080000
033200     02  WIR-CBSA-WAGEIND      PIC 9(02)V9(04).                   03090000
033300                                                                  03100000
033400 01  CBSA-WI-TABLE.                                               03110000
033500     05  T-CBSA-DATA        OCCURS 6000                           03120071
033600                           INDEXED BY MA1 MA2 MA3.                03130000
033700         10  T-CBSA            PIC X(05).                         03140000
033800         10  FILLER            PIC X(01).                         03150000
033900         10  T-CBSA-EFFDATE    PIC X(08).                         03160000
034000         10  FILLER            PIC X(01).                         03170000
034100         10  T-CBSA-WAGEIND    PIC 9(02)V9(04).                   03180000
034200                                                                  03190000
034300 01  HRG-WI-TABLE.                                                03200000
034400     05  M-HRG-DATA        OCCURS 4000                            03210000
034500                           INDEXED BY HU1 HU2 HU3.                03220000
034600         10  TB-HRG-HRG        PIC X(05).                         03230000
034700         10  FILLER            PIC X(01).                         03240000
034800         10  TB-HRG-EFFDATE    PIC X(08).                         03250000
034900         10  FILLER            PIC X(01).                         03260000
035000         10  TB-HRG-WGTS       PIC 9(02)V9(04).                   03270000
035100         10  FILLER            PIC X(01).                         03280000
035200         10  TB-HRG-HRG2       PIC X(05).                         03290000
035300         10  FILLER            PIC X(01).                         03300000
035400         10  TB-HRG-WGTS2      PIC 9(02)V9(04).                   03310000
035500                                                                  03320000
035600 01  REVENUE-TABLE.                                               03330000
035700     05  M-REV-DATA        OCCURS 200                             03340071
035800                           INDEXED BY RU1 RU2 RU3.                03350000
035900         10  TB-REV-CODE.                                         03360000
036000             15  TB-REV-CODE-1ST.                                 03370000
036100                 88  TB-REV-CODE-RURAL-CHECK   VALUE '99'.        03380000
036200                 20  TB-REV-CODE-RURAL       PIC XX.              03390000
036300             15  TB-REV-CODE-2ND          PIC XX.                 03400000
036400         10  FILLER                       PIC X(01).              03410000
036500         10  TB-REV-EFFDATE               PIC X(08).              03420000
036600         10  FILLER                       PIC X(01).              03430000
036700         10  TB-REV-DOLL-RATE-NRURAL      PIC 9(07)V9(02).        03440000
036800         10  FILLER                       PIC X(01).              03450000
036900         10  TB-REV-DOLL-RATE-RURAL       PIC 9(07)V9(02).        03460000
037000         10  FILLER                       PIC X.                  03470000
037100         10  TB-DOLL-RATE-NRURAL-NOSUBMIT PIC 9(07)V9(02).        03480000
037200         10  FILLER                       PIC X.                  03490000
037300         10  TB-DOLL-RATE-RURAL-NOSUBMIT  PIC 9(07)V9(02).        03500000
037400                                                                  03510000
037500 LINKAGE SECTION.                                                 03520000
037600*******************************************************           03530000
037700* NATIONAL HHA RECORD FORMAT PASSED TO HHCAL PROGRAM  *           03540000
037800*******************************************************           03550000
037900 01  HHA-INPUT-DATA.                                              03560000
038000     05  HHA-DATA.                                                03570000
038100         10  HHA-NPI                 PIC X(10).                   03580000
038200         10  HHA-HIC                 PIC X(12).                   03590000
038300         10  HHA-PROV-NO             PIC X(06).                   03600000
038400         10  HHA-TOB                 PIC XXX.                     03610000
038500         10  HHA-PEP-INDICATOR       PIC X.                       03620000
038600         10  HHA-PEP-DAYS            PIC 999.                     03630000
038700         10  HHA-INIT-PAY-INDICATOR  PIC X.                       03640000
038800             88  HHA-WITH-DATA-CHECK VALUE '0', '1'.              03650000
038900             88  HHA-NO-DATA-CHECK   VALUE '2', '3'.              03660000
039000         10  FILLER                  PIC X(07).                   03670000
039100         10  HHA-MSA1                PIC 9(07)V9(02).             03680000
039200         10  HHA-MSA2-DATA REDEFINES HHA-MSA1.                    03690000
039300             15  FILLER             PIC XXX.                      03700000
039400             15  HHA-MSA2.                                        03710000
039500                 20  HHA-MSA2-1ST.                                03720000
039600                     25  HHA-MSA2-RURAL        PIC XX.            03730000
039700                         88  HHA-MSA2-RURAL-CHECK  VALUE '99'.    03740000
039800                 20  HHA-MSA2-2ND              PIC XX.            03750000
039900             15  FILLER             PIC XX.                       03760000
040000         10  HHA-CBSA-DATA REDEFINES HHA-MSA1.                    03770000
040100             15  FILLER             PIC XX.                       03780000
040200             15  HHA-CBSA.                                        03790000
040300                 20  HHA-CBSA-1ST.                                03800000
040400                     25  HHA-CBSA-RURAL        PIC XXX.           03810000
040500                         88  HHA-CBSA-RURAL-CHECK  VALUE '999'.   03820000
040600                 20  HHA-CBSA-2ND              PIC XX.            03830000
040700             15  FILLER             PIC XX.                       03840000
040800         10  HHA-SERV-FROM-DATE.                                  03850000
040900             15  HHA-FROM-CC         PIC XX.                      03860000
041000             15  HHA-FROM-YYMMDD.                                 03870000
041100                 25  HHA-FROM-YY     PIC XX.                      03880000
041200                 25  HHA-FROM-MM     PIC XX.                      03890000
041300                 25  HHA-FROM-DD     PIC XX.                      03900000
041400         10  HHA-SERV-THRU-DATE.                                  03910000
041500             15  HHA-THRU-CC         PIC XX.                      03920000
041600             15  HHA-THRU-YYMMDD.                                 03930000
041700                 25  HHA-THRU-YY     PIC XX.                      03940000
041800                 25  HHA-THRU-MM     PIC XX.                      03950000
041900                 25  HHA-THRU-DD     PIC XX.                      03960000
042000         10  HHA-ADMIT-DATE.                                      03970000
042100             15  HHA-ADMIT-CC        PIC XX.                      03980000
042200             15  HHA-ADMIT-YYMMDD.                                03990000
042300                 25  HHA-ADMIT-YY    PIC XX.                      04000000
042400                 25  HHA-ADMIT-MM    PIC XX.                      04010000
042500                 25  HHA-ADMIT-DD    PIC XX.                      04020000
042600         10  HHA-HRG-DATA      OCCURS 6.                          04030000
042700             15  HHA-MED-REVIEW-INDICATOR PIC X.                  04040000
042800             15  HHA-HRG-INPUT-CODE       PIC X(05).              04050000
042900             15  HHA-HRG-OUTPUT-CODE      PIC X(05).              04060000
043000             15  HHA-HRG-NO-OF-DAYS       PIC 9(03).              04070000
043100             15  HHA-HRG-WGTS             PIC 9(02)V9(04).        04080000
043200             15  HHA-HRG-PAY              PIC 9(07)V9(02).        04090000
043300         10  HHA-REVENUE-DATA     OCCURS 6.                       04100000
043400             15  HHA-REVENUE-CODE       PIC X(04).                04110000
043500             15  HHA-REVENUE-QTY-COV-VISITS PIC 9(03).            04120000
043600             15  HHA-REVENUE-DOLL-RATE  PIC 9(07)V9(02).          04130000
043700             15  HHA-REVENUE-COST       PIC 9(07)V9(02).          04140000
043800     05  HHA-PASSBACK-DATA.                                       04150000
043900         10  HHA-PAY-RTC                PIC 99.                   04160000
044000         10  HHA-REVENUE-SUM1-3-QTY-THR PIC 9(05).                04170000
044100         10  HHA-REVENUE-SUM1-6-QTY-ALL PIC 9(05).                04180000
044200         10  HHA-OUTLIER-PAYMENT        PIC 9(07)V9(02).          04190000
044300         10  HHA-TOTAL-PAYMENT          PIC 9(07)V9(02).          04200000
044400     05  HHA-CASE-MIX-DATA.                                       04210000
044500         10  HHA-LUPA-ADD-ON-PAYMENT    PIC 9(03)V9(02).          04220000
044600         10  HHA-LUPA-SRC-ADM           PIC X.                    04230000
044700         10  HHA-RECODE-IND             PIC X.                    04240000
044800         10  HHA-EPISODE-TIMING         PIC 9.                    04250000
044900         10  HHA-SEVERITY-POINTS.                                 04260000
045000             15  HHA-CLINICAL-SEV-EQ1   PIC X(01).                04270000
045100             15  HHA-FUNCTION-SEV-EQ1   PIC X(01).                04280000
045200             15  HHA-CLINICAL-SEV-EQ2   PIC X(01).                04290000
045300             15  HHA-FUNCTION-SEV-EQ2   PIC X(01).                04300000
045400             15  HHA-CLINICAL-SEV-EQ3   PIC X(01).                04310000
045500             15  HHA-FUNCTION-SEV-EQ3   PIC X(01).                04320000
045600             15  HHA-CLINICAL-SEV-EQ4   PIC X(01).                04330000
045700             15  HHA-FUNCTION-SEV-EQ4   PIC X(01).                04340000
045800     05  HHA-PROV-TOTAL-DATA.                                     04351012
045900         10  HHA-PROV-OUTLIER-PAY-TOTAL PIC 9(08)V9(02).          04352012
046000         10  HHA-PROV-PAYMET-TOTAL      PIC 9(09)V9(02).          04353060
046100     05  FILLER                         PIC X(33).                04354064
046200**==================================================***           04360000
046300*    05  FILLER                         PIC X(20).                04370000
046400**==================================================***           04380000
046500*    RETURNED BY HHCAL PROGRAM AND PASSED ON TO MGR   *           04390000
046600**==================================================***           04400000
046700 01  HOLD-VARIABLES-DATA.                                         04410000
046800     02  HOLD-VAR-DATA.                                           04420000
046900         05  PRICER-OPTION-SW              PIC X(01).             04430000
047000         05  HHOPN-VERSION                 PIC X(07).             04440000
047100         05  HHDRV-VERSION                 PIC X(07).             04450000
047200         05  HHCAL-VERSION                 PIC X(07).             04460000
047300         05  FILLER                        PIC X(20).             04470000
047400                                                                  04480000
047500                                                                  04490000
047600**==================================================***           04500000
047700 PROCEDURE  DIVISION USING HHA-INPUT-DATA                         04510000
047800                           HOLD-VARIABLES-DATA.                   04520000
047900                                                                  04530000
048000 0000-MAINLINE  SECTION.                                          04540000
048100                                                                  04550000
048200     MOVE OPN-VERSION TO HHOPN-VERSION.                           04560000
048300                                                                  04570000
048400**** IF PRICER-OPTION-SW = 'A'                                    04580000
048500        IF TABLES-LOADED-SW NOT NUMERIC                           04581057
048600            MOVE 1 TO TABLES-LOADED-SW.                           04582157
048700                                                                  04583057
048800        IF TABLES-LOADED-SW = 0                                   04590000
048900            PERFORM 1100-LOAD-CBSAFILE THRU 1100-EXIT             04600017
049000            PERFORM 1300-LOAD-MSAFILE THRU 1300-EXIT              04610000
049100            PERFORM 1800-LOAD-HRGTABL THRU 1800-EXIT              04620000
049200            PERFORM 2500-LOAD-REVTABL THRU 2500-EXIT              04630000
049300            MOVE 1 TO TABLES-LOADED-SW.                           04640000
049400                                                                  04650000
049500                                                                  04660000
049600     MOVE ALL '0' TO HHA-PASSBACK-DATA.                           04670000
049700                                                                  04680000
049800 0100-PROCESS-RECORDS.                                            04690000
049900                                                                  04700000
050000*******************************************************           04710000
050100*****    FY 2011 VERSION 0                                        04720044
050200***                                                               04730000
050300         CALL HHDRV130 USING WAGE-INDEX-DATA                      04740069
050400                             MSA-WI-TABLE                         04750000
050500                             CBSA-WAGE-INDEX-DATA                 04760000
050600                             CBSA-WI-TABLE                        04770000
050700                             HRG-WI-TABLE                         04780000
050800                             REVENUE-TABLE                        04790000
050900                             HHA-INPUT-DATA                       04800000
051000                             HOLD-VARIABLES-DATA.                 04810000
051100         GOBACK.                                                  04820000
051200                                                                  04830000
051300                                                                  04840000
051400*******************************************************           04850000
051500                                                                  04860000
051600 0100-EXIT.  EXIT.                                                04870000
051700                                                                  04880000
051800                                                                  04890000
051900 1100-LOAD-CBSAFILE.                                              04900000
052000     OPEN INPUT CBSAFILE.                                         04910000
052100     INITIALIZE CBSA-WI-TABLE.                                    04920000
052200     MOVE 0 TO EOF-CBSA.                                          04930000
052300     SET MA3 TO EOF-CBSA.                                         04940000
052400                                                                  04950000
052500     PERFORM 1200-READ-CBSAFILE THRU 1200-EXIT                    04960000
052600             UNTIL EOF-CBSA = 1.                                  04970000
052700                                                                  04980000
052800     CLOSE CBSAFILE.                                              04990000
052900                                                                  05000000
053000 1100-EXIT.  EXIT.                                                05010000
053100                                                                  05020000
053200 1200-READ-CBSAFILE.                                              05030000
053300     READ CBSAFILE                                                05040000
053400          AT END   MOVE 1 TO EOF-CBSA.                            05050000
053500                                                                  05060000
053600     IF EOF-CBSA = 0                                              05070000
053700        IF F-CBSA-EFFDATE > '20050930' OR                         05080000
053800          (F-CBSA-STATE = '98' OR '99')                           05090000
053900           SET MA3 UP BY 1                                        05100000
054000               MOVE F-CBSA         TO T-CBSA         (MA3)        05110000
054100               MOVE F-CBSA-EFFDATE TO T-CBSA-EFFDATE (MA3)        05120000
054200               MOVE F-CBSA-WAGEIND TO T-CBSA-WAGEIND (MA3).       05130000
054300                                                                  05140000
054400 1200-EXIT.  EXIT.                                                05150000
054500                                                                  05160000
054600 1300-LOAD-MSAFILE.                                               05170000
054700     OPEN INPUT MSAFILE.                                          05180000
054800     INITIALIZE MSA-WI-TABLE.                                     05190000
054900     MOVE 0 TO EOF-MSA.                                           05200000
055000     SET MU3 TO EOF-MSA.                                          05210000
055100                                                                  05220000
055200     PERFORM 1400-READ-MSAFILE THRU 1400-EXIT                     05230000
055300             UNTIL EOF-MSA = 1.                                   05240000
055400                                                                  05250000
055500     CLOSE MSAFILE.                                               05260000
055600                                                                  05270000
055700 1300-EXIT.  EXIT.                                                05280000
055800                                                                  05290000
055900 1400-READ-MSAFILE.                                               05300000
056000     READ MSAFILE                                                 05310000
056100          AT END   MOVE 1 TO EOF-MSA.                             05320000
056200                                                                  05330000
056300     IF EOF-MSA = 0                                               05340000
056400        IF MSA-EFFDATE > '19970930' OR                            05350000
056500          (MSA-STATE = '98' OR '99')                              05360000
056600           SET MU3 UP BY 1                                        05370000
056700               MOVE MSA-CODE    TO TB-MSA     (MU3)               05380000
056800               MOVE MSA-EFFDATE TO TB-EFFDATE (MU3)               05390000
056900               MOVE MSA-WAGEIND TO TB-WAGEIND (MU3).              05400000
057000                                                                  05410000
057100 1400-EXIT.  EXIT.                                                05420000
057200                                                                  05430000
057300                                                                  05440000
057400 1800-LOAD-HRGTABL.                                               05450000
057500     OPEN INPUT HRGTABL.                                          05460000
057600     INITIALIZE HRG-WI-TABLE.                                     05470000
057700     MOVE 0 TO EOF-HRG.                                           05480000
057800     SET HU3 TO EOF-HRG.                                          05490000
057900                                                                  05500000
058000     PERFORM 1900-READ-HRGTABL THRU 1900-EXIT                     05510000
058100             UNTIL EOF-HRG = 1.                                   05520000
058200                                                                  05530000
058300     CLOSE HRGTABL.                                               05540000
058400                                                                  05550000
058500 1800-EXIT.  EXIT.                                                05560000
058600                                                                  05570000
058700 1900-READ-HRGTABL.                                               05580000
058800     READ HRGTABL                                                 05590000
058900          AT END   MOVE 1 TO EOF-HRG.                             05600000
059000     ADD 1 TO HRG-CT.                                             05610000
059100     IF EOF-HRG = 0                                               05620000
059200        SET HU3 UP BY 1                                           05630000
059300            MOVE HRG-CODE     TO TB-HRG-HRG      (HU3)            05640000
059400            MOVE HRG-EFFDATE  TO TB-HRG-EFFDATE  (HU3)            05650000
059500            MOVE HRG-WGTS     TO TB-HRG-WGTS     (HU3)            05660000
059600            MOVE HRG-CODE2    TO TB-HRG-HRG2     (HU3)            05670000
059700            MOVE HRG-WGTS2    TO TB-HRG-WGTS2    (HU3).           05680000
059800                                                                  05690000
059900 1900-EXIT.  EXIT.                                                05700000
060000                                                                  05710000
060100                                                                  05720000
060200 2500-LOAD-REVTABL.                                               05730000
060300     OPEN INPUT REVTABL.                                          05740000
060400     INITIALIZE REVENUE-TABLE.                                    05750000
060500     MOVE 0 TO EOF-REV.                                           05760000
060600     SET RU3 TO EOF-REV.                                          05770000
060700                                                                  05780000
060800     PERFORM 2600-READ-REVTABL THRU 2600-EXIT                     05790000
060900             UNTIL EOF-REV = 1.                                   05800000
061000                                                                  05810000
061100     CLOSE REVTABL.                                               05820000
061200                                                                  05830000
061300 2500-EXIT.  EXIT.                                                05840000
061400                                                                  05850000
061500 2600-READ-REVTABL.                                               05860000
061600     READ REVTABL                                                 05870000
061700          AT END   MOVE 1 TO EOF-REV.                             05880000
061800                                                                  05890000
061900     IF EOF-REV = 0                                               05900000
062000        SET RU3 UP BY 1                                           05910000
062100            MOVE REV-CODE      TO TB-REV-CODE     (RU3)           05920000
062200            MOVE REV-EFFDATE   TO TB-REV-EFFDATE  (RU3)           05930000
062300            MOVE REV-DOLL-RATE-NRURAL TO                          05940000
062400                              TB-REV-DOLL-RATE-NRURAL (RU3)       05950000
062500            MOVE REV-DOLL-RATE-RURAL TO                           05960000
062600                              TB-REV-DOLL-RATE-RURAL (RU3)        05970000
062700            MOVE REV-DOLL-RATE-NRURAL-NOSUBMIT TO                 05980000
062800                          TB-DOLL-RATE-NRURAL-NOSUBMIT (RU3)      05990000
062900            MOVE REV-DOLL-RATE-RURAL-NOSUBMIT TO                  06000000
063000                         TB-DOLL-RATE-RURAL-NOSUBMIT (RU3)        06010000
063100     END-IF.                                                      06020000
063200                                                                  06030000
063300 2600-EXIT.  EXIT.                                                06040000
063400                                                                  06050000
063500                                                                  06060000
063600                                                                  06070000
063700*****        LAST STATEMENT               *************           06080000
