000100 IDENTIFICATION DIVISION.                                         00010000
000200 PROGRAM-ID.          HHDRV130.                                   00020000
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*     HHDRV063 CICS VERSION JUL 1, 2006                           00300000
003100*     HHDRV070 CICS VERSION JAN 1, 2007                           00301000
003200*     HHDRV071 CICS VERSION JAN 1, 2007 CORRECT LUPA RATE         00301100
003300*              CORRECT LUPA RATE DETERMINATION IF LOGIC           00301200
003400*     HHDRV083 CICS VERSION JAN 1, 2008 CORRECT LUPA RATE         00301300
003500*              CORRECT LUPA RATE DETERMINATION IF LOGIC           00301400
003600*     HHDRV084 KEEP LUPA HIPPS CODES FROM RE-CODING AND           00301300
003700*              CORRECT  HIPPS RECODE LOGIC                        00301400
003800*     HHDRV090 KEEP LUPA HIPPS CODES FROM RE-CODING AND           00301300
003900*              CORRECT  HIPPS RECODE LOGIC                        00301400
004000*     HHDRV091 LUPA PAYMNT ZERO FOR ZERO REV VISITS                     00
004100*     HHDRV092 HIPPS CODE RECODING FOR 5 IN POS 1                       00
004200*     HHDRV100 EXPAND BILLING RECORD TO 500 BYTES - BEATA VERSION       00
004300***************************************************************   00301500
004400*     RETURN CODES                                                00301600
004500*          00 = FINAL PAYMENT                                     00301700
004600*               TOB = 329,339,327,337                             00301800
004700*                  OR 32G OR 33G OR 32I OR 33I                    00301900
004800*                  OR 32J OR 33J OR 32M OR 33M                    00302000
004900*                  OR 32F OR 32K OR 32P OR 32H                    00302100
005000*                  OR 33F OR 33K OR 33P OR 33H                    00302200
005100*               WITH HRG,REVENUE CODE WHERE NO OUTLIER APPLIES    00303000
005200*          01 = FINAL PAYMENT                                     00304000
005300*               TOB = 329,339,327,337                             00305000
005400*                  OR 32G OR 33G OR 32I OR 33I                    00306000
005500*                  OR 32J OR 33J OR 32M OR 33M                    00307000
005600*                  OR 32F OR 32K OR 32P OR 32H                    00308000
005700*                  OR 33F OR 33K OR 33P OR 33H                    00309000
005800*               WITH HRG,REVENUE CODE WHERE OUTLIER APPLIES       00310000
005900*          03 = INITIAL HALF PAYMENT PAYMENT WILL BE ZERO         00320000
006000*               TOB = 332 AND 322                                 00330000
006100*          04 = INITIAL HALF PAYMENT PAID AT 50%                  00340000
006200*               TOB = 332 AND 322                                 00350000
006300*               WITH INITIAL (FIRST) HRG AND NO REVENUE CODES     00360000
006400*          05 = INITIAL HALF PAYMENT PAID AT 60%                  00370000
006500*               TOB = 332 AND 322                                 00380000
006600*               WITH INITIAL (FIRST) HRG AND NO REVENUE CODES     00390000
006700*          06 = LUPA PAYMENT ONLY                                 00400000
006800*               TOB = 329,339,327,337                             00410000
006900*                  OR 32G OR 33G OR 32I OR 33I                    00420000
007000*                  OR 32J OR 33J OR 32M OR 33M                    00430000
007100*                  OR 32F OR 32K OR 32P OR 32H                    00440000
007200*                  OR 33F OR 33K OR 33P OR 33H                    00450000
007300*               WITH REVENUE CODES AND REVENUE QTYS < 5       *   00460000
007400******************************************************************00470000
007500**  RTC CODES 07,08,09,11,12,13 EFFECTIVE 10/01/2002          ****00480000
007600******************************************************************00490000
007700******************************************************************00500000
007800*          07 = FINAL PAYMENT, SCIC, PEP = N, NO OUTLIER          00510000
007900*               TOB = 329,339,327,337                             00520000
008000*                  OR 32G OR 33G OR 32I OR 33I                    00530000
008100*                  OR 32J OR 33J OR 32M OR 33M                    00540000
008200*                  OR 32F OR 32K OR 32P OR 32H                    00550000
008300*                  OR 33F OR 33K OR 33P OR 33H                    00560000
008400*               WITH REVENUE CODE WHERE NO OUTLIER APPLIES        00570000
008500*               WITH MORE THAN ONE HRG OCCURRENCE             *   00580000
008600*          08 = FINAL PAYMENT, SCIC, PEP = N, WITH OUTLIER        00590000
008700*               TOB = 329,339,327,337                             00600000
008800*                  OR 32G OR 33G OR 32I OR 33I                    00610000
008900*                  OR 32J OR 33J OR 32M OR 33M                    00620000
009000*                  OR 32F OR 32K OR 32P OR 32H                    00630000
009100*                  OR 33F OR 33K OR 33P OR 33H                    00640000
009200*               WITH REVENUE CODE WHERE OUTLIER APPLIES           00650000
009300*               WITH MORE THAN ONE HRG OCCURRENCE             *   00660000
009400******************************************************************00670000
009500*          09 = FINAL PAYMENT, PEP = Y, NO OUTLIER                00680000
009600*               TOB = 329,339,327,337                             00690000
009700*                  OR 32G OR 33G OR 32I OR 33I                    00700000
009800*                  OR 32J OR 33J OR 32M OR 33M                    00710000
009900*                  OR 32F OR 32K OR 32P OR 32H                    00720000
010000*                  OR 33F OR 33K OR 33P OR 33H                    00730000
010100*               WITH REVENUE CODE WHERE NO OUTLIER APPLIES        00740000
010200*               WITH ONE HRG OCCURRENCE                       *   00750000
010300*          11 = FINAL PAYMENT, PEP = Y, WITH OUTLIER              00760000
010400*               TOB = 329,339,327,337                             00770000
010500*                  OR 32G OR 33G OR 32I OR 33I                    00780000
010600*                  OR 32J OR 33J OR 32M OR 33M                    00790000
010700*                  OR 32F OR 32K OR 32P OR 32H                    00800000
010800*                  OR 33F OR 33K OR 33P OR 33H                    00810000
010900*               WITH REVENUE CODE WHERE OUTLIER APPLIES           00820000
011000*               WITH ONE HRG OCCURRENCE                       *   00830000
011100******************************************************************00840000
011200*          12 = FINAL PAYMENT, SCIC, PEP = Y, NO OUTLIER          00850000
011300*               TOB = 329,339,327,337                             00860000
011400*                  OR 32G OR 33G OR 32I OR 33I                    00870000
011500*                  OR 32J OR 33J OR 32M OR 33M                    00880000
011600*                  OR 32F OR 32K OR 32P OR 32H                    00890000
011700*                  OR 33F OR 33K OR 33P OR 33H                    00900000
011800*               WITH REVENUE CODE WHERE NO OUTLIER APPLIES        00910000
011900*               WITH MORE THAN ONE HRG OCCURRENCE             *   00920000
012000*          13 = FINAL PAYMENT, SCIC, PEP = Y, WITH OUTLIER        00930000
012100*               TOB = 329,339,327,337                             00940000
012200*                  OR 32G OR 33G OR 32I OR 33I                    00950000
012300*                  OR 32J OR 33J OR 32M OR 33M                    00960000
012400*                  OR 32F OR 32K OR 32P OR 32H                    00970000
012500*                  OR 33F OR 33K OR 33P OR 33H                    00980000
012600*               WITH REVENUE CODE WHERE OUTLIER APPLIES           00990000
012700*               WITH MORE THAN ONE HRG OCCURRENCE             *   01000000
012800******************************************************************01010000
012900******************************************************************01020000
013000******************************************************************01030000
013100******************************************************************01040000
013200*                                                             *   01050000
013300*            HHA-RTC   NO PAYMENTS RETURNED                   *   01060000
013400*                                                             *   01070000
013500*              10 = INVALID TOB                               *   01080000
013600*                                                             *   01090000
013700*              15 = INVALID PEP DAYS                          *   01100000
013800*                   FOR SHORTENED EPISODE                     *   01110000
013900*                                                             *   01120000
014000*              20 = INVALID PEP INDICATOR                     *   01130000
014100*                                                             *   01140000
014200*              25 = INVALID MED REVIEW INDICATOR              *   01150000
014300*                                                             *   01160000
014400*              30 = INVALID MSA CODE                          *   01170000
014500*                                                             *   01180000
014600*              35 = INVALID INITIAL PAYMENT INDICATOR         *   01190000
014700*                        0 = MAKE NORMAL INITIAL PAYMENT      *   01200000
014800*                        1 = MAKE ZERO PAYMANT                *   01210000
014900*                                                             *   01220000
015000*              40 = FROM DATE  < OCT 1, 2000 OR INVALID       *   01230000
015100*                   THRU DATE  < OCT 1, 2000 OR INVALID       *   01240000
015200*                   ADMIT DATE < OCT 1, 2000 OR INVALID       *   01250000
015300*                                                             *   01260000
015400*              70 = INVALID OR NO HRG CODE PRESENT            *   01270000
015500*                                                             *   01280000
015600*              75 = NO HRG PRESENT IN FIRST OCCURANCE AND     *   01290000
015700*                   REVENUE-QTY-COV-VISITS > 4  AND           *   01300000
015800*                       TOB = 329,339,327,337                 *   01310000
015900*                          OR 32G OR 33G OR 32I OR 33I        *   01320000
016000*                          OR 32J OR 33J OR 32M OR 33M        *   01330000
016100*                          OR 32F OR 32K OR 32P OR 32H            01340000
016200*                          OR 33F OR 33K OR 33P OR 33H            01350000
016300*                                                             *   01360000
016400*              80 = INVALID REVENUE CODE                      *   01370000
016500*                                                             *   01380000
016600*              85 = NO REVENUE CODE PRESENT                   *   01390000
016700*                   WITH TOB 329 OR 339 OR 327 OR 337         *   01400000
016800*                         OR 32G OR 33G OR 32I OR 33I         *   01410000
016900*                         OR 32J OR 33J OR 32M OR 33M         *   01420000
017000*                         OR 32F OR 32K OR 32P OR 32H             01430000
017100*                         OR 33F OR 33K OR 33P OR 33H             01440000
017200*                                                             *   01450000
017300***************************************************************   01460000
017400******************************************************************01470000
017500 DATE-COMPILED.                                                   01480000
017600 ENVIRONMENT                     DIVISION.                        01490000
017700                                                                  01500000
017800 CONFIGURATION                   SECTION.                         01510000
017900 SOURCE-COMPUTER.                IBM-370.                         01520000
018000 OBJECT-COMPUTER.                IBM-370.                         01530000
018100                                                                  01540000
018200 INPUT-OUTPUT SECTION.                                            01550000
018300 FILE-CONTROL.                                                    01560000
018400                                                                  01570000
018500 DATA DIVISION.                                                   01580000
018600 FILE SECTION.                                                    01590000
018700 WORKING-STORAGE SECTION.                                         01600000
018800 77  W-STORAGE-REF               PIC X(49)  VALUE                 01610000
018900     'HHA D R I V E R   - W O R K I N G   S T O R A G E'.         01620000
019000 01  DRV-VERSION                 PIC X(07)  VALUE 'D2013.0'.      01630000
019100 01  HHCAL015                    PIC X(08)  VALUE 'HHCAL015'.     01640000
019200 01  HHCAL022                    PIC X(08)  VALUE 'HHCAL022'.     01650000
019300 01  HHCAL032                    PIC X(08)  VALUE 'HHCAL032'.     01660000
019400 01  HHCAL043                    PIC X(08)  VALUE 'HHCAL043'.     01670000
019500 01  HHCAL052                    PIC X(08)  VALUE 'HHCAL052'.     01680000
019600 01  HHCAL065                    PIC X(08)  VALUE 'HHCAL065'.     01690000
019700 01  HHCAL073                    PIC X(08)  VALUE 'HHCAL073'.     01700000
019800 01  HHCAL087                    PIC X(08)  VALUE 'HHCAL087'.     01701000
019900 01  HHCAL094                    PIC X(08)  VALUE 'HHCAL094'.     01701000
020000 01  HHCAL10C                    PIC X(08)  VALUE 'HHCAL10C'.     01701000
020100 01  HHCAL109                    PIC X(08)  VALUE 'HHCAL109'.     01701000
020200 01  HHCAL111                    PIC X(08)  VALUE 'HHCAL111'.     01701000
020300 01  HHCAL120                    PIC X(08)  VALUE 'HHCAL120'.     01701000
020300 01  HHCAL130                    PIC X(08)  VALUE 'HHCAL130'.     01701000
020400 01  SUB1                        PIC 9(03)  VALUE 0.              01710000
020500 01  EOF-SW                      PIC 9(01)  VALUE 0.              01720000
020600 01  EOF-MSA                     PIC 9(01)  VALUE 0.              01730000
020700 01  EOF-CBSA                    PIC 9(01)  VALUE 0.              01740000
020800 01  EOF-HRG                     PIC 9(01)  VALUE 0.              01750000
020900 01  SEARCH-HRG.                                                  01751003
021000     05  SEARCH-HRG1             PIC X(01).                       01752003
021100     05  SEARCH-HRG2             PIC X(01).                       01752106
021200     05  SEARCH-HRG3             PIC X(01).                       01752206
021300     05  SEARCH-HRG4             PIC X(01).                       01752306
021400     05  SEARCH-HRG5             PIC X(01).                       01753003
021500 01  WORK-HRG.                                                    01754007
021600     05  WORK-HRG1               PIC X(01).                       01755007
021700     05  WORK-HRG2               PIC X(01).                       01756007
021800     05  WORK-HRG3               PIC X(01).                       01757007
021900     05  WORK-HRG4               PIC X(01).                       01758007
022000     05  WORK-HRG5               PIC X(01).                       01759007
022100 01  EOF-REV                     PIC 9(01)  VALUE 0.              01760000
022200 01  LOAD-TABLES-SW              PIC 9(01)  VALUE 0.              01770000
022300 01  TABLES-LOADED-SW            PIC 9(01)  VALUE 0.              01780000
022400 01  HRG-RECODE-SW               PIC 9(01)  VALUE 0.              01770000
022500 01  HRG-KEEP5-SW1               PIC 9(01)  VALUE 0.              01770000
022600 01  HRG-CT                      PIC 9(10)  VALUE 0.              01790000
022700 01  MSA-STAT.                                                    01800000
022800     05  MSA-STAT1               PIC X.                           01810000
022900     05  MSA-STAT2               PIC X.                           01820000
023000 01  CBSA-STAT.                                                   01830000
023100     05  CBSA-STAT1               PIC X.                          01840000
023200     05  CBSA-STAT2               PIC X.                          01850000
023300 01  HRG-STAT.                                                    01860000
023400     05  HRG-STAT1               PIC X.                           01870000
023500     05  HRG-STAT2               PIC X.                           01880000
023600 01  REV-STAT.                                                    01890000
023700     05  REV-STAT1               PIC X.                           01900000
023800     05  REV-STAT2               PIC X.                           01910000
023900 LINKAGE SECTION.                                                 01920000
024000*******************************************************           01930000
024100*******************************************************           01940000
024200*    PASSED TO HHCAL PROGRAM                          *           01950000
024300*******************************************************           01960000
024400 01  WAGE-INDEX-DATA.                                             01970000
024500     02  WIR-MSA               PIC X(04).                         01980000
024600     02  WIR-EFFDATE           PIC X(08).                         01990000
024700     02  WIR-AREA-WAGEIND      PIC 9(02)V9(04).                   02000000
024800                                                                  02010000
024900 01  MSA-WI-TABLE.                                                02020000
025000     05  M-MSA-DATA        OCCURS 4000                            02030000
025100                           INDEXED BY MU1 MU2 MU3.                02040000
025200         10  TB-MSA        PIC X(04).                             02050000
025300         10  FILLER        PIC X(01).                             02060000
025400         10  TB-EFFDATE    PIC X(08).                             02070000
025500         10  FILLER        PIC X(01).                             02080000
025600         10  TB-WAGEIND    PIC 9(02)V9(04).                       02090000
025700                                                                  02100000
025800 01  CBSA-WAGE-INDEX-DATA.                                        02110000
025900     02  WIR-CBSA              PIC X(05).                         02120000
026000     02  WIR-CBSA-EFFDATE      PIC X(08).                         02130000
026100     02  WIR-CBSA-WAGEIND      PIC 9(02)V9(04).                   02140000
026200                                                                  02150000
026300 01  CBSA-WI-TABLE.                                               02160000
026400     05  T-CBSA-DATA        OCCURS 6000                           02170000
026500                           INDEXED BY MA1 MA2 MA3.                02180000
026600         10  T-CBSA            PIC X(05).                         02190000
026700         10  FILLER            PIC X(01).                         02200000
026800         10  T-CBSA-EFFDATE    PIC X(08).                         02210000
026900         10  FILLER            PIC X(01).                         02220000
027000         10  T-CBSA-WAGEIND    PIC 9(02)V9(04).                   02230000
027100                                                                  02240000
027200 01  HRG-WI-TABLE.                                                02250000
027300     05  M-HRG-DATA        OCCURS 4000                            02260000
027400                           INDEXED BY HU1 HU2 HU3.                02270000
027500         10  TB-HRG-HRG        PIC X(05).                         02280000
027600         10  FILLER            PIC X(01).                         02290000
027700         10  TB-HRG-EFFDATE    PIC X(08).                         02300000
027800         10  FILLER            PIC X(01).                         02310000
027900         10  TB-HRG-WGTS       PIC 9(02)V9(04).                   02320000
028000         10  FILLER            PIC X(01).                         02330000
028100         10  TB-HRG-HRG2       PIC X(05).                         02340000
028200         10  FILLER            PIC X(01).                         02350000
028300         10  TB-HRG-WGTS2      PIC 9(02)V9(04).                   02360000
028400                                                                  02370000
028500 01  REVENUE-TABLE.                                               02380000
028600     05  M-REV-DATA        OCCURS 200                             02390000
028700                           INDEXED BY RU1 RU2 RU3.                02400000
028800         10  TB-REV-CODE.                                         02410000
028900             15  TB-REV-CODE-1ST.                                 02420000
029000                 88  TB-REV-CODE-RURAL-CHECK   VALUE '99'.        02430000
029100                 20  TB-REV-CODE-RURAL       PIC XX.              02440000
029200             15  TB-REV-CODE-2ND           PIC XX.                02450000
029300         10  FILLER                        PIC X(01).             02460000
029400         10  TB-REV-EFFDATE                PIC X(08).             02470000
029500         10  FILLER                        PIC X(01).             02480000
029600         10  TB-REV-DOLL-RATE-NRURAL       PIC 9(07)V9(02).       02490000
029700         10  FILLER                        PIC X(01).             02500000
029800         10  TB-REV-DOLL-RATE-RURAL        PIC 9(07)V9(02).       02510000
029900         10  FILLER                        PIC X.                 02520000
030000         10  TB-DOLL-RATE-NRURAL-NOSUBMIT  PIC 9(07)V9(02).       02530000
030100         10  FILLER                        PIC X.                 02540000
030200         10  TB-DOLL-RATE-RURAL-NOSUBMIT   PIC 9(07)V9(02).       02550000
030300                                                                  02560000
030400*******************************************************           02570000
030500* NATIONAL HHA RECORD FORMAT PASSED TO HHCAL PROGRAM  *           02580000
030600*******************************************************           02590000
030700 01  HHA-INPUT-DATA.                                              02600000
030800     05  HHA-DATA.                                                02610000
030900         10  HHA-NPI                 PIC X(10).                   02620000
031000         10  HHA-HIC                 PIC X(12).                   02630000
031100         10  HHA-PROV-NO             PIC X(06).                   02640000
031200         10  HHA-TOB                 PIC XXX.                     02650000
031300         10  HHA-PEP-INDICATOR       PIC X.                       02660000
031400         10  HHA-PEP-DAYS            PIC 999.                     02670000
031500         10  HHA-INIT-PAY-INDICATOR  PIC X.                       02680000
031600             88  HHA-WITH-DATA-CHECK VALUE '0', '1'.              02690000
031700             88  HHA-NO-DATA-CHECK   VALUE '2', '3'.              02700000
031800         10  FILLER                  PIC X(07).                   02710000
031900         10  HHA-MSA1                PIC 9(07)V9(02).             02720000
032000         10  HHA-MSA2-DATA REDEFINES HHA-MSA1.                    02730000
032100             15  FILLER             PIC XXX.                      02740000
032200             15  HHA-MSA2.                                        02750000
032300                 20  HHA-MSA2-1ST.                                02760000
032400                     25  HHA-MSA2-RURAL        PIC XX.            02770000
032500                         88  HHA-MSA2-RURAL-CHECK  VALUE '99'.    02780000
032600                 20  HHA-MSA2-2ND              PIC XX.            02790000
032700             15  FILLER             PIC XX.                       02800000
032800         10  HHA-CBSA-DATA REDEFINES HHA-MSA1.                    02810000
032900             15  FILLER             PIC XX.                       02820000
033000             15  HHA-CBSA.                                        02830000
033100                 88  HHA-CBSA-RURAL-CHECK-ALL VALUE               02840000
033200                 '50001', '50007', '50016', '50020', '50031',     02850000
033300                 '50036', '50054', '50060', '50067', '50087',     02860000
033400                 '50089', '50091', '50092', '50100', '50104',     02870000
033500                 '50108', '50114', '50121', '50125', '50140',     02880000
033600                 '50145', '50152', '50164', '50170', '50199',     02890000
033700                 '50206', '50210', '50214', '50218', '50222',     02900000
033800                 '50225', '50226', '50231', '50234', '50237',     02910000
033900                 '50243', '50248', '50250', '50255', '50256',     02920000
034000                 '50257', '50260', '50261', '50262', '50266',     02930000
034100                 '50268', '50272', '50275', '50281', '50286',     02940000
034200                 '50313', '50314', '50316', '50325', '50326',     02950000
034300                 '50327', '50329', '50336', '50344', '50352',     02960000
034400                 '50192', '50263', '50293'.                       02970000
034500                 20  HHA-CBSA-1ST.                                02980000
034600                     25  HHA-CBSA-RURAL        PIC XXX.           02990000
034700                         88  HHA-CBSA-RURAL-CHECK  VALUE '999'.   03000000
034800                 20  HHA-CBSA-2ND              PIC XX.            03010000
034900             15  FILLER             PIC XX.                       03020000
035000         10  HHA-SERV-FROM-DATE.                                  03030000
035100             15  HHA-FROM-CC         PIC XX.                      03040000
035200             15  HHA-FROM-YYMMDD.                                 03050000
035300                 25  HHA-FROM-YY     PIC XX.                      03060000
035400                 25  HHA-FROM-MM     PIC XX.                      03070000
035500                 25  HHA-FROM-DD     PIC XX.                      03080000
035600         10  HHA-SERV-THRU-DATE.                                  03090000
035700             15  HHA-THRU-CC         PIC XX.                      03100000
035800             15  HHA-THRU-YYMMDD.                                 03110000
035900                 25  HHA-THRU-YY     PIC XX.                      03120000
036000                 25  HHA-THRU-MM     PIC XX.                      03130000
036100                 25  HHA-THRU-DD     PIC XX.                      03140000
036200         10  HHA-ADMIT-DATE.                                      03150000
036300             15  HHA-ADMIT-CC        PIC XX.                      03160000
036400             15  HHA-ADMIT-YYMMDD.                                03170000
036500                 25  HHA-ADMIT-YY    PIC XX.                      03180000
036600                 25  HHA-ADMIT-MM    PIC XX.                      03190000
036700                 25  HHA-ADMIT-DD    PIC XX.                      03200000
036800         10  HHA-HRG-DATA      OCCURS 6.                          03210000
036900             15  HHA-MED-REVIEW-INDICATOR PIC X.                  03220000
037000             15  HHA-HRG-INPUT-CODE       PIC X(05).              03230000
037100             15  HHA-HRG-OUTPUT-CODE      PIC X(05).              03240000
037200             15  HHA-HRG-NO-OF-DAYS       PIC 9(03).              03250000
037300             15  HHA-HRG-WGTS             PIC 9(02)V9(04).        03260000
037400             15  HHA-HRG-PAY              PIC 9(07)V9(02).        03270000
037500         10  HHA-REVENUE-DATA     OCCURS 6.                       03280000
037600             15  HHA-REVENUE-CODE       PIC X(04).                03290000
037700             15  HHA-REVENUE-QTY-COV-VISITS PIC 9(03).            03300000
037800             15  HHA-REVENUE-DOLL-RATE  PIC 9(07)V9(02).          03310000
037900             15  HHA-REVENUE-COST       PIC 9(07)V9(02).          03320000
038000     05  HHA-PASSBACK-DATA.                                       03330000
038100         10  HHA-PAY-RTC                PIC 99.                   03340000
038200         10  HHA-REVENUE-SUM1-3-QTY-THR PIC 9(05).                03350000
038300         10  HHA-REVENUE-SUM1-6-QTY-ALL PIC 9(05).                03360000
038400         10  HHA-OUTLIER-PAYMENT        PIC 9(07)V9(02).          03370000
038500         10  HHA-TOTAL-PAYMENT          PIC 9(07)V9(02).          03380000
038600     05  HHA-CASE-MIX-DATA.                                       03381001
038700         10  HHA-LUPA-ADD-ON-PAYMENT    PIC 9(03)V9(02).          03382001
038800         10  HHA-LUPA-SRC-ADM           PIC X.                    03383001
038900         10  HHA-RECODE-IND             PIC X.                    03384001
039000         10  HHA-EPISODE-TIMING         PIC 9.                    03385001
039100         10  HHA-SEVERITY-POINTS.                                 03386001
039200             15  HHA-CLINICAL-SEV-EQ1   PIC X(01).                03387001
039300             15  HHA-FUNCTION-SEV-EQ1   PIC X(01).                03388001
039400             15  HHA-CLINICAL-SEV-EQ2   PIC X(01).                03389001
039500             15  HHA-FUNCTION-SEV-EQ2   PIC X(01).                03389101
039600             15  HHA-CLINICAL-SEV-EQ3   PIC X(01).                03389201
039700             15  HHA-FUNCTION-SEV-EQ3   PIC X(01).                03389301
039800             15  HHA-CLINICAL-SEV-EQ4   PIC X(01).                03389401
039900             15  HHA-FUNCTION-SEV-EQ4   PIC X(01).                03389501
040000     05  HHA-PROV-TOTAL-DATA.                                     00010000
040100         10  HHA-PROV-OUTLIER-PAY-TOTAL PIC 9(08)V9(02).          00020000
040200         10  HHA-PROV-PAYMET-TOTAL      PIC 9(09)V9(02).          00030000
040300     05  FILLER                         PIC X(33).                00040000
040400*******************************************************           03389701
040500*    05  FILLER                         PIC X(20).                03390001
040600*******************************************************           03400000
040700*    RETURNED BY HHCAL PROGRAM AND PASSED ON TO MGR   *           03410000
040800*******************************************************           03420000
040900 01  HOLD-VARIABLES-DATA.                                         03430000
041000     02  HOLD-VAR-DATA.                                           03440000
041100         05  PRICER-OPTION-SW              PIC X(01).             03450000
041200         05  HHOPN-VERSION                 PIC X(07).             03460000
041300         05  HHDRV-VERSION                 PIC X(07).             03470000
041400         05  HHCAL-VERSION                 PIC X(07).             03480000
041500         05  FILLER                        PIC X(20).             03490000
041600                                                                  03500000
041700**===========================================================     03510000
041800 PROCEDURE  DIVISION USING WAGE-INDEX-DATA                        03520000
041900                           MSA-WI-TABLE                           03530000
042000                           CBSA-WAGE-INDEX-DATA                   03540000
042100                           CBSA-WI-TABLE                          03550000
042200                           HRG-WI-TABLE                           03560000
042300                           REVENUE-TABLE                          03570000
042400                           HHA-INPUT-DATA                         03580000
042500                           HOLD-VARIABLES-DATA.                   03590000
042600                                                                  03600000
042700 0000-MAINLINE  SECTION.                                          03610000
042800                                                                  03620000
042900     MOVE DRV-VERSION TO HHDRV-VERSION.                           03630000
043000                                                                  03640000
043100*     DISPLAY '-- HHA-HIC HHMGR130  ===> ' HHA-HIC.               03640000
043200                                                                  03640000
043300 0100-PROCESS-RECORDS.                                            03650000
043400     MOVE ALL '0' TO HHA-PASSBACK-DATA.                           03660000
043500     MOVE SPACES  TO CBSA-WAGE-INDEX-DATA.                        03670000
043600                                                                  03680000
043700     IF HHA-TOB = '322' OR '332' OR '337' OR                      03690000
043800                  '329' OR '339' OR '327' OR '339' OR             03700000
043900                  '32G' OR '33G' OR '32I' OR '33I' OR             03710000
044000                  '32J' OR '33J' OR '32M' OR '33M' OR             03720000
044100                  '32F' OR '32K' OR '32P' OR '32H' OR             03730000
044200                  '33F' OR '33K' OR '33P' OR '33H'                03740000
044300        NEXT SENTENCE                                             03750000
044400     ELSE                                                         03760000
044500        MOVE '10' TO HHA-PAY-RTC                                  03770000
044600        GOBACK.                                                   03780000
044700                                                                  03790000
044800     IF HHA-SERV-FROM-DATE < 20001001 OR                          03800000
044900        HHA-SERV-THRU-DATE < 20001001 OR                          03810000
045000        HHA-ADMIT-DATE < 20001001                                 03820000
045100        MOVE '40' TO HHA-PAY-RTC                                  03830000
045200        GOBACK.                                                   03840000
045300                                                                  03850000
045400     IF HHA-ADMIT-DATE >                                          03860000
045500        HHA-SERV-FROM-DATE                                        03870000
045600        MOVE '40' TO HHA-PAY-RTC                                  03880000
045700        GOBACK.                                                   03890000
045800                                                                  03900000
045900     IF HHA-REVENUE-QTY-COV-VISITS (1) NOT NUMERIC                03910000
046000        MOVE ZEROES TO HHA-REVENUE-QTY-COV-VISITS (1).            03920000
046100     IF HHA-REVENUE-QTY-COV-VISITS (2) NOT NUMERIC                03930000
046200        MOVE ZEROES TO HHA-REVENUE-QTY-COV-VISITS (2).            03940000
046300     IF HHA-REVENUE-QTY-COV-VISITS (3) NOT NUMERIC                03950000
046400        MOVE ZEROES TO HHA-REVENUE-QTY-COV-VISITS (3).            03960000
046500     IF HHA-REVENUE-QTY-COV-VISITS (4) NOT NUMERIC                03970000
046600        MOVE ZEROES TO HHA-REVENUE-QTY-COV-VISITS (4).            03980000
046700     IF HHA-REVENUE-QTY-COV-VISITS (5) NOT NUMERIC                03990000
046800        MOVE ZEROES TO HHA-REVENUE-QTY-COV-VISITS (5).            04000000
046900     IF HHA-REVENUE-QTY-COV-VISITS (6) NOT NUMERIC                04010000
047000        MOVE ZEROES TO HHA-REVENUE-QTY-COV-VISITS (6).            04020000
047100                                                                  04030000
047200     COMPUTE HHA-REVENUE-SUM1-3-QTY-THR =                         04040000
047300                 HHA-REVENUE-QTY-COV-VISITS (1) +                 04050000
047400                 HHA-REVENUE-QTY-COV-VISITS (2) +                 04060000
047500                 HHA-REVENUE-QTY-COV-VISITS (3).                  04070000
047600                                                                  04080000
047700     COMPUTE HHA-REVENUE-SUM1-6-QTY-ALL =                         04090000
047800                 HHA-REVENUE-QTY-COV-VISITS (1) +                 04100000
047900                 HHA-REVENUE-QTY-COV-VISITS (2) +                 04110000
048000                 HHA-REVENUE-QTY-COV-VISITS (3) +                 04120000
048100                 HHA-REVENUE-QTY-COV-VISITS (4) +                 04130000
048200                 HHA-REVENUE-QTY-COV-VISITS (5) +                 04140000
048300                 HHA-REVENUE-QTY-COV-VISITS (6).                  04150000
048400                                                                  04160000
048500     IF ((HHA-TOB = '329' OR '339' OR '327' OR '337' OR           04170000
048600                    '32G' OR '33G' OR '32I' OR '33I' OR           04180000
048700                    '32F' OR '32K' OR '32P' OR '32H' OR           04190000
048800                    '33F' OR '33K' OR '33P' OR '33H' OR           04200000
048900                    '32J' OR '33J' OR '32M' OR '33M') AND         04210000
049000         (HHA-REVENUE-SUM1-6-QTY-ALL > 4) AND                     04220000
049100         (HHA-HRG-INPUT-CODE (1) = SPACE))                        04230000
049200         MOVE '75' TO HHA-PAY-RTC                                 04240000
049300         GOBACK.                                                  04250000
049400                                                                  04260000
049500     IF ((HHA-TOB = '332' OR '322') AND                           04270000
049600         (HHA-HRG-INPUT-CODE (1) = SPACE))                        04280000
049700         MOVE '70' TO HHA-PAY-RTC                                 04290000
049800         GOBACK.                                                  04300000
049900                                                                  04310000
050000     IF HHA-PAY-RTC NOT = '00'                                    04320000
050100        GOBACK.                                                   04330000
050200                                                                  04340000
050300     IF ((HHA-TOB = '329' OR '339' OR '327' OR '337' OR           04350000
050400                    '32G' OR '33G' OR '32I' OR '33I' OR           04360000
050500                    '32F' OR '32K' OR '32P' OR '32H' OR           04370000
050600                    '33F' OR '33K' OR '33P' OR '33H' OR           04380000
050700                    '32J' OR '33J' OR '32M' OR '33M') AND         04390000
050800         (HHA-REVENUE-CODE (1) = SPACE OR                         04400000
050900          HHA-REVENUE-CODE (2) = SPACE OR                         04410000
051000          HHA-REVENUE-CODE (3) = SPACE OR                         04420000
051100          HHA-REVENUE-CODE (4) = SPACE OR                         04430000
051200          HHA-REVENUE-CODE (5) = SPACE OR                         04440000
051300          HHA-REVENUE-CODE (6) = SPACE))                          04450000
051400         MOVE '85' TO HHA-PAY-RTC.                                04460000
051500                                                                  04470000
051600     IF HHA-PAY-RTC NOT = '00'                                    04480000
051700        GOBACK.                                                   04490000
051800                                                                  04500000
051900     IF HHA-SERV-THRU-DATE < 20060101                             04510000
052000        PERFORM 1600-GET-MSA THRU 1600-EXIT                       04520000
052100     ELSE                                                         04530000
052200        PERFORM 1250-GET-CBSA THRU 1250-EXIT.                     04540000
052300                                                                  04550000
052400     IF HHA-SERV-THRU-DATE < 20060101                             04560000
052500        IF HHA-PAY-RTC = '00'                                     04570000
052600           PERFORM 1700-GET-WAGE-INDEX THRU 1700-EXIT             04580000
052700           VARYING MU2 FROM MU1 BY 1 UNTIL                        04590000
052800           TB-MSA (MU2) NOT = HHA-MSA2.                           04600000
052900                                                                  04610000
053000     IF HHA-SERV-THRU-DATE > 20051231                             04620000
053100        IF HHA-PAY-RTC = '00'                                     04630000
053200           PERFORM 1260-GET-CBSA-WAGE-INDEX THRU 1260-EXIT        04640000
053300           VARYING MA2 FROM MA1 BY 1 UNTIL                        04650000
053400           T-CBSA (MA2) NOT = HHA-CBSA.                           04660000
053500                                                                  04670000
053600                                                                  04670000
053700     IF HHA-PAY-RTC = '00'                                        04680000
053800        MOVE 0 TO  HRG-RECODE-SW                                  01770000
053900                                                                  06170000
054000        PERFORM 2000-GET-HRG THRU 2000-EXIT                       04690000
054100             VARYING SUB1 FROM 1 BY 1 UNTIL                       04700000
054200*           (HHA-HRG-INPUT-CODE (SUB1) = SPACES OR                04710000
054300             SUB1 > 6.                                            04720000
054400                                                                  04730000
054500     IF HHA-PAY-RTC = '00'                                        04740000
054600        IF HHA-TOB = '329' OR '339' OR '327' OR '337' OR          04750000
054700                     '32G' OR '33G' OR '32I' OR '33I' OR          04760000
054800                     '32F' OR '32K' OR '32P' OR '32H' OR          04770000
054900                     '33F' OR '33K' OR '33P' OR '33H' OR          04780000
055000                     '32J' OR '33J' OR '32M' OR '33M'             04790000
055100           PERFORM 2700-GET-REV THRU 2700-EXIT                    04800000
055200               VARYING SUB1 FROM 1 BY 1 UNTIL                     04810000
055300*             (HHA-REVENUE-CODE (SUB1) = SPACES OR                04820000
055400                SUB1 > 6.                                         04830000
055500                                                                  04840000
055600     IF HHA-PAY-RTC NOT = '00'                                    04850000
055700         GOBACK.                                                  04860000
055800                                                                  04870000
055900*******************************************************           04880000
056000*****    FY 2013 VERSION 0                                        04890000
056100***                                                               04900000
056200     IF  HHA-SERV-THRU-DATE > 20121231                            04910000
056300         CALL  HHCAL130   USING HHA-INPUT-DATA                    04920000
056400                                HOLD-VARIABLES-DATA               04930000
056500                                CBSA-WAGE-INDEX-DATA              04940000
056600         GOBACK.                                                  04950000
056700                                                                  04960000
056800*******************************************************           04880000
056000*****    FY 2012 VERSION 0                                        04890000
056100***                                                               04900000
056200     IF  HHA-SERV-THRU-DATE > 20111231                            04910000
056300         CALL  HHCAL120   USING HHA-INPUT-DATA                    04920000
056400                                HOLD-VARIABLES-DATA               04930000
056500                                CBSA-WAGE-INDEX-DATA              04940000
056600         GOBACK.                                                  04950000
056700                                                                  04960000
056800*******************************************************           04880000
056900*****    FY 2011 VERSION 0                                        04890000
057000***                                                               04900000
057100     IF  HHA-SERV-THRU-DATE > 20101231                            04910000
057200         CALL  HHCAL111   USING HHA-INPUT-DATA                    04920000
057300                                HOLD-VARIABLES-DATA               04930000
057400                                CBSA-WAGE-INDEX-DATA              04940000
057500         GOBACK.                                                  04950000
057600                                                                  04960000
057700*******************************************************           04880000
057800*****    FY 2010 VERSION B                                        04890000
057900***                                                               04900000
058000     IF  HHA-SERV-THRU-DATE > 20100331                            04910000
058100         CALL  HHCAL109   USING HHA-INPUT-DATA                    04920000
058200                                HOLD-VARIABLES-DATA               04930000
058300                                CBSA-WAGE-INDEX-DATA              04940000
058400         GOBACK.                                                  04950000
058500                                                                  04960000
058600*******************************************************           04880000
058700*****    FY 2010 VERSION A                                        04890000
058800***                                                               04900000
058900     IF  HHA-SERV-THRU-DATE > 20091231                            04910000
059000         CALL  HHCAL10C   USING HHA-INPUT-DATA                    04920000
059100                                HOLD-VARIABLES-DATA               04930000
059200                                CBSA-WAGE-INDEX-DATA              04940000
059300         GOBACK.                                                  04950000
059400                                                                  04960000
059500*******************************************************           04880000
059600*****    FY 2009 VERSION 3                                        04890000
059700***                                                               04900000
059800     IF  HHA-SERV-THRU-DATE > 20081231                            04910000
059900         CALL  HHCAL094   USING HHA-INPUT-DATA                    04920000
060000                                HOLD-VARIABLES-DATA               04930000
060100                                CBSA-WAGE-INDEX-DATA              04940000
060200         GOBACK.                                                  04950000
060300                                                                  04960000
060400*******************************************************           04880000
060500*****    FY 2008 VERSION 6                                        04890000
060600***                                                               04900000
060700     IF  HHA-SERV-THRU-DATE > 20071231                            04910000
060800         CALL  HHCAL087   USING HHA-INPUT-DATA                    04920000
060900                                HOLD-VARIABLES-DATA               04930000
061000                                CBSA-WAGE-INDEX-DATA              04940000
061100         GOBACK.                                                  04950000
061200                                                                  04960000
061300*******************************************************           04961000
061400*****    FY 2007 VERSION 2                                        04962000
061500***                                                               04963000
061600     IF  HHA-SERV-THRU-DATE > 20061231                            04964000
061700         CALL  HHCAL073   USING HHA-INPUT-DATA                    04965000
061800                                HOLD-VARIABLES-DATA               04966000
061900                                CBSA-WAGE-INDEX-DATA              04967000
062000         GOBACK.                                                  04968000
062100                                                                  04969000
062200*******************************************************           04970000
062300*******************************************************           04980000
062400*****    FY 2006 VERSION 4                                        04990000
062500***                                                               05000000
062600     IF  HHA-SERV-THRU-DATE > 20051231                            05010000
062700         CALL  HHCAL065   USING HHA-INPUT-DATA                    05020000
062800                                HOLD-VARIABLES-DATA               05030000
062900                                CBSA-WAGE-INDEX-DATA              05040000
063000         GOBACK.                                                  05041000
063100                                                                  05042000
063200*******************************************************           05043000
063300*******************************************************           05044000
063400*****    FY 2005 VERSION 1                                        05045000
063500***                                                               05046000
063600     IF  HHA-SERV-THRU-DATE > 20041231                            05047000
063700         CALL  HHCAL052   USING HHA-INPUT-DATA                    05048000
063800                                HOLD-VARIABLES-DATA               05049000
063900                                WAGE-INDEX-DATA                   05049100
064000         GOBACK.                                                  05049200
064100                                                                  05049300
064200*******************************************************           05049400
064300*******************************************************           05049500
064400*****    FY 2004 VERSION 2                                        05049600
064500***                                                               05049700
064600     IF  HHA-SERV-THRU-DATE > 20030930                            05049800
064700         CALL  HHCAL043   USING HHA-INPUT-DATA                    05049900
064800                                HOLD-VARIABLES-DATA               05050000
064900                                WAGE-INDEX-DATA                   05060000
065000         GOBACK.                                                  05070000
065100                                                                  05080000
065200*******************************************************           05090000
065300*****    FY 2003 VERSION 1                                        05100000
065400***                                                               05110000
065500     IF  HHA-SERV-THRU-DATE > 20020930                            05120000
065600         CALL  HHCAL032   USING HHA-INPUT-DATA                    05130000
065700                                HOLD-VARIABLES-DATA               05140000
065800                                WAGE-INDEX-DATA                   05150000
065900         GOBACK.                                                  05160000
066000                                                                  05170000
066100*******************************************************           05180000
066200*****    FY 2002 VERSION 1                                        05190000
066300***                                                               05200000
066400     IF  HHA-SERV-THRU-DATE > 20010930                            05210000
066500         CALL  HHCAL022   USING HHA-INPUT-DATA                    05220000
066600                                HOLD-VARIABLES-DATA               05230000
066700                                WAGE-INDEX-DATA                   05240000
066800         GOBACK.                                                  05250000
066900                                                                  05260000
067000*******************************************************           05270000
067100*****    FY 2001 VERSION 4                                        05280000
067200***                                                               05290000
067300     IF  HHA-SERV-THRU-DATE > 20000930                            05300000
067400         CALL  HHCAL015   USING HHA-INPUT-DATA                    05310000
067500                                HOLD-VARIABLES-DATA               05320000
067600                                WAGE-INDEX-DATA                   05330000
067700         GOBACK.                                                  05340000
067800                                                                  05350000
067900*******************************************************           05270000
068000     MOVE '40' TO HHA-PAY-RTC.                                    05370000
068100     GOBACK.                                                      05380000
068200                                                                  05390000
068300 0100-EXIT.  EXIT.                                                05400000
068400                                                                  05410000
068500 1250-GET-CBSA.                                                   05420000
068600     SET MA1 TO 1.                                                05430000
068700                                                                  05440000
068800     SEARCH T-CBSA-DATA VARYING MA1                               05450000
068900            AT END                                                05460000
069000               MOVE '30' TO HHA-PAY-RTC                           05470000
069100               GO TO 1250-EXIT                                    05480000
069200            WHEN T-CBSA (MA1) = HHA-CBSA                          05490000
069300               SET MA2 TO MA1.                                    05500000
069400                                                                  05510000
069500 1250-EXIT.  EXIT.                                                05520000
069600                                                                  05530000
069700 1260-GET-CBSA-WAGE-INDEX.                                        05540000
069800                                                                  05550000
069900     IF HHA-TOB = '332' OR '322'                                  05560000
070000        IF HHA-SERV-FROM-DATE NOT < T-CBSA-EFFDATE (MA2)          05570000
070100           MOVE T-CBSA         (MA2) TO WIR-CBSA                  05580000
070200           MOVE T-CBSA-EFFDATE (MA2) TO WIR-CBSA-EFFDATE          05590000
070300           MOVE T-CBSA-WAGEIND (MA2) TO WIR-CBSA-WAGEIND          05600000
070400               GO TO 1260-EXIT.                                   05610000
070500                                                                  05620000
070600     IF HHA-TOB = '329' OR '339' OR '327' OR '337' OR             05630000
070700                  '32G' OR '33G' OR '32I' OR '33I' OR             05640000
070800                  '32F' OR '32K' OR '32P' OR '32H' OR             05650000
070900                  '33F' OR '33K' OR '33P' OR '33H' OR             05660000
071000                  '32J' OR '33J' OR '32M' OR '33M'                05670000
071100        IF HHA-SERV-THRU-DATE NOT < T-CBSA-EFFDATE (MA2)          05680000
071200           MOVE T-CBSA         (MA2) TO WIR-CBSA                  05690000
071300           MOVE T-CBSA-EFFDATE (MA2) TO WIR-CBSA-EFFDATE          05700000
071400           MOVE T-CBSA-WAGEIND (MA2) TO WIR-CBSA-WAGEIND          05710000
071500               GO TO 1260-EXIT.                                   05720000
071600                                                                  05730000
071700     IF WIR-CBSA-WAGEIND NOT NUMERIC                              05740000
071800           MOVE '30' TO HHA-PAY-RTC.                              05750000
071900                                                                  05760000
072000                                                                  05770000
072100 1260-EXIT.  EXIT.                                                05780000
072200                                                                  05790000
072300 1600-GET-MSA.                                                    05800000
072400     SET MU1 TO 1.                                                05810000
072500                                                                  05820000
072600     SEARCH M-MSA-DATA VARYING MU1                                05830000
072700            AT END                                                05840000
072800               MOVE '30' TO HHA-PAY-RTC                           05850000
072900               GO TO 1600-EXIT                                    05860000
073000            WHEN TB-MSA (MU1) = HHA-MSA2                          05870000
073100               SET MU2 TO MU1.                                    05880000
073200                                                                  05890000
073300 1600-EXIT.  EXIT.                                                05900000
073400                                                                  05910000
073500 1700-GET-WAGE-INDEX.                                             05920000
073600                                                                  05930000
073700     IF HHA-TOB = '332' OR '322'                                  05940000
073800        IF HHA-SERV-FROM-DATE NOT < TB-EFFDATE (MU2)              05950000
073900           MOVE TB-MSA     (MU2) TO WIR-MSA                       05960000
074000           MOVE TB-EFFDATE (MU2) TO WIR-EFFDATE                   05970000
074100           MOVE TB-WAGEIND (MU2) TO WIR-AREA-WAGEIND.             05980000
074200                                                                  05990000
074300     IF HHA-TOB = '329' OR '339' OR '327' OR '337' OR             06000000
074400                  '32G' OR '33G' OR '32I' OR '33I' OR             06010000
074500                  '32F' OR '32K' OR '32P' OR '32H' OR             06020000
074600                  '33F' OR '33K' OR '33P' OR '33H' OR             06030000
074700                  '32J' OR '33J' OR '32M' OR '33M'                06040000
074800        IF HHA-SERV-THRU-DATE NOT < TB-EFFDATE (MU2)              06050000
074900           MOVE TB-MSA     (MU2) TO WIR-MSA                       06060000
075000           MOVE TB-EFFDATE (MU2) TO WIR-EFFDATE                   06070000
075100           MOVE TB-WAGEIND (MU2) TO WIR-AREA-WAGEIND.             06080000
075200                                                                  06090000
075300 1700-EXIT.  EXIT.                                                06100000
075400                                                                  06110000
075500 2000-GET-HRG.                                                    06120000
075600                                                                  06130000
075700     IF HHA-HRG-INPUT-CODE (SUB1) = SPACES                        06140000
075800        MOVE 6 TO SUB1                                            06150000
075900        GO TO 2000-EXIT.                                          06160000
076000                                                                  06130000
076100     MOVE HHA-HRG-INPUT-CODE (SUB1) TO SEARCH-HRG.                06177010
076200     MOVE HHA-HRG-INPUT-CODE (SUB1) TO WORK-HRG.                  06177110
076300     MOVE HHA-HRG-INPUT-CODE (SUB1) TO HHA-HRG-OUTPUT-CODE (SUB1).06177210
076400                                                                  06178003
076500     IF HHA-MED-REVIEW-INDICATOR (SUB1) = 'Y' AND                 06570000
076600        HHA-RECODE-IND = '0'                                      06178612
076700        GO TO 2000-SEARCH-HRG.                                    06160000
076800                                                                  06178003
076900**********************************                                06170000
077000*  IF LUPA SKIP RECODING OF HIPPS CODE                            06170000
077100**********************************                                06170000
077200                                                                  04120005
077300     IF  (HHA-TOB = '329' OR '339' OR '327' OR '337' OR           04130005
077400                    '32G' OR '33G' OR '32I' OR '33I' OR           04140005
077500                    '32F' OR '32K' OR '32P' OR '32H' OR           04150005
077600                    '33F' OR '33K' OR '33P' OR '33H' OR           04160005
077700                    '32J' OR '33J' OR '32M' OR '33M') AND         04170005
077800         (HHA-REVENUE-SUM1-6-QTY-ALL < 5 )                        04180005
077900        GO TO 2000-SEARCH-HRG.                                    06160000
078000                                                                  04220005
078100****RECODESTART*******************                                06170000
078200                                                                  06178003
078300     IF HHA-TOB = '332' OR '322'                                  05560000
078400        GO TO 2000-SEARCH-HRG.                                    06160000
078500                                                                  06170000
078600     IF SEARCH-HRG1 = '0' OR '6' OR '7' OR '8' OR '9'             06180415
078700        MOVE '70' TO HHA-PAY-RTC                                  06210000
078800        MOVE 6 TO SUB1                                            06150000
078900        GO TO 2000-EXIT.                                          06160000
079000                                                                  06170000
079100**********************************                                06170000
079200*   RECODING OF HIPPS CODE DEPENDING ON CLAIM INFORMATION         06170000
079300**********************************                                06170000
079400**********************************                                06170000
079500
079600     IF HHA-RECODE-IND = '1' OR '3'
079700        PERFORM 2300-RECODE-HRG THRU 2300-EXIT
079800         MOVE WORK-HRG TO HHA-HRG-OUTPUT-CODE (SUB1)
079900         MOVE WORK-HRG TO SEARCH-HRG
080000        GO TO 2000-GET-HRG-TWO.
080100
080200     IF WORK-HRG1 = '5'
080300        PERFORM 2305-RECODE-EPISODE THRU 2305-EXIT
080400         MOVE WORK-HRG TO HHA-HRG-OUTPUT-CODE (SUB1)
080500         MOVE WORK-HRG TO SEARCH-HRG
080600        GO TO 2000-GET-HRG-TWO.
080700
080800     IF SEARCH-HRG1 = '1' OR '2' OR '3' OR '4' OR '5'
080900        PERFORM 2430-RECODE-HRG4-1 THRU 2430-EXIT
081000         MOVE WORK-HRG TO HHA-HRG-OUTPUT-CODE (SUB1)
081100         MOVE WORK-HRG TO SEARCH-HRG
081200        GO TO 2000-GET-HRG-TWO.
081300
081400
081500 2000-GET-HRG-TWO.
081600
081700     IF HHA-RECODE-IND = '1' OR '3'
081800        PERFORM 2300-RECODE-HRG THRU 2300-EXIT
081900         MOVE WORK-HRG TO HHA-HRG-OUTPUT-CODE (SUB1)
082000         MOVE WORK-HRG TO SEARCH-HRG
082100        GO TO 2000-SEARCH-HRG.
082200
082300     IF WORK-HRG1 = '5'
082400        PERFORM 2305-RECODE-EPISODE THRU 2305-EXIT
082500         MOVE WORK-HRG TO HHA-HRG-OUTPUT-CODE (SUB1)
082600         MOVE WORK-HRG TO SEARCH-HRG
082700        GO TO 2000-SEARCH-HRG.
082800
082900     IF SEARCH-HRG1 = '1' OR '2' OR '3' OR '4' OR '5'
083000        PERFORM 2430-RECODE-HRG4-1 THRU 2430-EXIT
083100         MOVE WORK-HRG TO HHA-HRG-OUTPUT-CODE (SUB1)
083200         MOVE WORK-HRG TO SEARCH-HRG.
083300
083400 2000-SEARCH-HRG.
083500
083600     IF SEARCH-HRG1 = '1' OR '2' OR '3' OR '4' OR '5'
083700        MOVE ' ' TO SEARCH-HRG5.
083800
083900
084000     SET HU1 TO 1.
084100     SEARCH M-HRG-DATA VARYING HU1
084200            AT END
084300               MOVE '70' TO HHA-PAY-RTC
084400               MOVE 6 TO SUB1
084500               GO TO 2000-EXIT
084600            WHEN TB-HRG-HRG (HU1) = SEARCH-HRG
084700               SET HU2 TO HU1
084800               PERFORM 2100-GET-HRG-WIEGHTS THRU 2100-EXIT.
084900                                                                  06270000
085000 2000-EXIT.  EXIT.                                                06280000
085100                                                                  06290000
085200 2100-GET-HRG-WIEGHTS.                                            06300000
085300                                                                  06310000
085400      PERFORM 2200-GET-HRG-SEARCH THRU 2200-EXIT                  06320000
085500           VARYING HU2 FROM HU1 BY 1 UNTIL                        06330000
085600           TB-HRG-HRG (HU2) NOT = SEARCH-HRG.                     06340004
085700                                                                  06350000
085800 2100-EXIT.   EXIT.                                               06360000
085900                                                                  06370000
086000 2200-GET-HRG-SEARCH.                                             06380000
086100                                                                  06390000
086200     IF HHA-TOB = '332' OR '322'                                  06400000
086300        IF HHA-SERV-FROM-DATE NOT < TB-HRG-EFFDATE (HU2)          06410000
086400*          MOVE HHA-HRG-INPUT-CODE (SUB1)                         06420010
086500*                                 TO HHA-HRG-OUTPUT-CODE (SUB1)   06421010
086600           MOVE TB-HRG-WGTS (HU2) TO HHA-HRG-WGTS (SUB1).         06430000
086700                                                                  06440000
086800     IF HHA-TOB = '329' OR '339' OR '327' OR '337' OR             06450000
086900                  '32G' OR '33G' OR '32I' OR '33I' OR             06460000
087000                  '32F' OR '32K' OR '32P' OR '32H' OR             06470000
087100                  '33F' OR '33K' OR '33P' OR '33H' OR             06480000
087200                  '32J' OR '33J' OR '32M' OR '33M'                06490000
087300        IF HHA-SERV-THRU-DATE NOT < TB-HRG-EFFDATE (HU2)          06500000
087400           PERFORM 2250-CHECK-FOR-WHICH-HRG THRU 2250-EXIT.       06510000
087500                                                                  06520000
087600 2200-EXIT.  EXIT.                                                06530000
087700                                                                  06540000
087800 2250-CHECK-FOR-WHICH-HRG.                                        06550000
087900                                                                  06560000
088000     IF HHA-MED-REVIEW-INDICATOR (SUB1) NOT = 'Y' AND             06570000
088100                                        NOT = 'N'                 06580000
088200               MOVE '25' TO HHA-PAY-RTC                           06590000
088300               MOVE 6 TO SUB1                                     06600000
088400               GO TO 2250-EXIT.                                   06610000
088500                                                                  06620000
088600     IF SEARCH-HRG1    = '1' OR '2' OR '3' OR '4' OR '5'          06178612
088700             MOVE TB-HRG-WGTS (HU2) TO HHA-HRG-WGTS (SUB1)        06700000
088800             MOVE WORK-HRG TO HHA-HRG-OUTPUT-CODE (SUB1)          06178813
088900               GO TO 2250-EXIT.                                   06610000
089000                                                                  06624005
089100     IF (HHA-REVENUE-SUM1-3-QTY-THR < 10)
089200        IF (HHA-MED-REVIEW-INDICATOR (SUB1) = 'N')
089300          IF TB-HRG-HRG (HU2) NOT = TB-HRG-HRG2 (HU2)
089400             MOVE TB-HRG-HRG2 (HU2) TO HHA-HRG-OUTPUT-CODE (SUB1)
089500             MOVE TB-HRG-WGTS2 (HU2) TO HHA-HRG-WGTS (SUB1)
089600          ELSE
089700             MOVE TB-HRG-HRG  (HU2) TO HHA-HRG-OUTPUT-CODE (SUB1)
089800             MOVE TB-HRG-WGTS (HU2) TO HHA-HRG-WGTS (SUB1)
089900        ELSE
090000           MOVE TB-HRG-HRG  (HU2) TO HHA-HRG-OUTPUT-CODE (SUB1)
090100           MOVE TB-HRG-WGTS (HU2) TO HHA-HRG-WGTS (SUB1)
090200     ELSE
090300       MOVE TB-HRG-HRG  (HU2) TO HHA-HRG-OUTPUT-CODE (SUB1)
090400       MOVE TB-HRG-WGTS (HU2) TO HHA-HRG-WGTS (SUB1).
090500
090600     IF (HHA-REVENUE-SUM1-6-QTY-ALL < 5)
090700       MOVE TB-HRG-HRG  (HU2) TO HHA-HRG-OUTPUT-CODE (SUB1)
090800       MOVE ZEROES            TO HHA-HRG-WGTS (SUB1).
090900
091000                                                                  06810000
091100 2250-EXIT.  EXIT.                                                06820000
091200                                                                  06830000
091300 2300-RECODE-HRG.                                                 06830113
091400                                                                  06830208
091500       MOVE ZEROES            TO HRG-KEEP5-SW1.                   06830208
091600                                                                  06830208
091700     IF HHA-RECODE-IND = '1'                                      06830308
091800        PERFORM 2310-RECODE-HRG1 THRU 2310-EXIT                   06830413
091900               GO TO 2300-EXIT.                                   06830510
092000                                                                  06830610
092100                                                                  06830710
092200     IF HHA-RECODE-IND = '3'                                      06831108
092300        PERFORM 2312-RECODE-HRG2 THRU 2312-EXIT                   06831213
092400               GO TO 2300-EXIT.                                   06831310
092500                                                                  06831410
092600                                                                  06833509
092700 2300-EXIT.  EXIT.                                                06833609
092800                                                                  06833710
092900 2305-RECODE-EPISODE.                                             06833812
093000                                                                  06833912
093100     IF HHA-EPISODE-TIMING = 1                                    06834012
093200        PERFORM 2410-RECODE-EPP1 THRU 2410-EXIT                   06834113
093300               GO TO 2305-EXIT.                                   06834212
093400                                                                  06834312
093500                                                                  06834412
093600     IF HHA-EPISODE-TIMING = 2                                    06834512
093700        PERFORM 2415-RECODE-EPP2 THRU 2415-EXIT                   06834612
093800               GO TO 2305-EXIT.                                   06834712
093900                                                                  06834812
094000                                                                  06834912
094100 2305-EXIT.  EXIT.                                                06835012
094200                                                                  06835112
094300 2310-RECODE-HRG1.                                                06835213
094400                                                                  06835312
094500       IF (HHA-REVENUE-SUM1-3-QTY-THR < 14)                       06835412
094600         MOVE '1' TO WORK-HRG1                                    06835512
094700        PERFORM 2315-RECODE-HRG1-1 THRU 2315-EXIT                 06835613
094800               GO TO 2310-EXIT.                                   06835712
094900                                                                  06835912
095000       IF (HHA-REVENUE-SUM1-3-QTY-THR > 13 AND                    06836012
095100           HHA-REVENUE-SUM1-3-QTY-THR < 20)                       06836112
095200             MOVE '2' TO WORK-HRG1                                06836212
095300        PERFORM 2320-RECODE-HRG1-2 THRU 2320-EXIT                 06836313
095400               GO TO 2310-EXIT.                                   06836412
095500                                                                  06835912
095600       IF (HHA-REVENUE-SUM1-3-QTY-THR > 19)                       06836012
095700             MOVE '2' TO WORK-HRG1                                06836212
095800             MOVE '1' TO HRG-KEEP5-SW1                            06830208
095900        PERFORM 2320-RECODE-HRG1-2 THRU 2320-EXIT                 06836313
096000               GO TO 2310-EXIT.                                   06836412
096100                                                                  06836512
096200 2310-EXIT.  EXIT.                                                06836610
096300                                                                  06836810
096400 2312-RECODE-HRG2.                                                06836913
096500                                                                  06837011
096600       IF (HHA-REVENUE-SUM1-3-QTY-THR < 14)                       06837111
096700         MOVE '3' TO WORK-HRG1                                    06837211
096800        PERFORM 2325-RECODE-HRG1-3 THRU 2325-EXIT                 06837313
096900               GO TO 2312-EXIT.                                   06837411
097000                                                                  06837611
097100       IF (HHA-REVENUE-SUM1-3-QTY-THR > 13 AND                    06837711
097200           HHA-REVENUE-SUM1-3-QTY-THR < 20)                       06837811
097300             MOVE '4' TO WORK-HRG1                                06837911
097400        PERFORM 2330-RECODE-HRG1-4 THRU 2330-EXIT                 06838013
097500               GO TO 2312-EXIT.                                   06838111
097600                                                                  06837611
097700       IF (HHA-REVENUE-SUM1-3-QTY-THR > 20)                       06837711
097800             MOVE '4' TO WORK-HRG1                                06837911
097900             MOVE '1' TO HRG-KEEP5-SW1                            06830208
098000        PERFORM 2330-RECODE-HRG1-4 THRU 2330-EXIT                 06838013
098100               GO TO 2312-EXIT.                                   06838111
098200                                                                  06838211
098300 2312-EXIT.  EXIT.                                                06838311
098400                                                                  06838411
098500 2315-RECODE-HRG1-1.                                              06838513
098600                                                                  06838611
098700        IF HHA-CLINICAL-SEV-EQ1 = 'A' OR 'B' OR 'C' OR 'D'        06838711
098800           MOVE 'A'  TO WORK-HRG2.                                06838811
098900                                                                  06838911
099000        IF HHA-CLINICAL-SEV-EQ1 = 'E' OR 'F' OR 'G' OR 'H'        06839011
099100           MOVE 'B'  TO WORK-HRG2.                                06839111
099200                                                                  06839211
099300        IF HHA-CLINICAL-SEV-EQ1 = 'I' OR 'J' OR 'K' OR            06839313
099400                                  'L' OR 'M' OR 'N' OR 'O' OR     06839413
099500                    'P' OR 'Q' OR 'R' OR 'S' OR 'T' OR 'U' OR     06839513
099600                    'V' OR 'W' OR 'X' OR 'Y' OR 'Z'               06839613
099700           MOVE 'C'  TO WORK-HRG2.                                06839711
099800                                                                  06839811
099900        IF HHA-FUNCTION-SEV-EQ1 = 'A' OR 'B' OR 'C' OR 'D' OR 'E' 06839911
100000           MOVE 'F'  TO WORK-HRG3.                                06840011
100100                                                                  06840111
100200        IF HHA-FUNCTION-SEV-EQ1 = 'F'                             06840211
100300           MOVE 'G'  TO WORK-HRG3.                                06840311
100400                                                                  06840411
100500        IF HHA-FUNCTION-SEV-EQ1 =  'G' OR 'H' OR 'I' OR           06840511
100600                     'J' OR 'K' OR 'L' OR 'M' OR 'N' OR 'O' OR    06840611
100700                     'P' OR 'Q' OR 'R' OR 'S' OR 'T' OR 'U' OR    06840711
100800                     'V' OR 'W' OR 'X' OR 'Y' OR 'Z'              06840813
100900           MOVE 'H'  TO WORK-HRG3.                                06840911
101000                                                                  06841011
101100        PERFORM 2430-RECODE-HRG4-1 THRU 2430-EXIT.                06841011
101200                                                                  06842811
101300 2315-EXIT.  EXIT.                                                06842911
101400                                                                  06843011
101500 2320-RECODE-HRG1-2.                                              06843213
101600                                                                  06843311
101700        IF HHA-CLINICAL-SEV-EQ2 = 'A' OR 'B' OR 'C' OR 'D' OR     06843411
101800                                  'E' OR 'F'
101900           MOVE 'A'  TO WORK-HRG2.                                06843511
102000                                                                  06843611
102100        IF HHA-CLINICAL-SEV-EQ2 = 'G' OR 'H' OR                   06843711
102200                                  'I' OR 'J' OR 'K' OR 'L' OR     06843811
102300                                  'M' OR 'N'
102400           MOVE 'B'  TO WORK-HRG2.                                06843911
102500                                                                  06844011
102600        IF HHA-CLINICAL-SEV-EQ2 = 'O' OR 'P' OR 'Q' OR 'R' OR     06844111
102700                                  'S' OR 'T' OR 'U' OR            06844211
102800                                  'V' OR 'W' OR 'X' OR 'Y' OR 'Z' 06844313
102900           MOVE 'C'  TO WORK-HRG2.                                06844411
103000                                                                  06844511
103100        IF HHA-FUNCTION-SEV-EQ2 = 'A' OR 'B' OR 'C' OR 'D' OR     06844611
103200                                  'E' OR 'F'                      06844911
103300           MOVE 'F'  TO WORK-HRG3.                                06844711
103400                                                                  06844811
103500        IF HHA-FUNCTION-SEV-EQ2 = 'G'                             06844911
103600           MOVE 'G'  TO WORK-HRG3.                                06845011
103700                                                                  06845111
103800        IF HHA-FUNCTION-SEV-EQ2 =  'H' OR 'I' OR                  06845211
103900                     'J' OR 'K' OR 'L' OR 'M' OR 'N' OR 'O' OR    06845311
104000                     'P' OR 'Q' OR 'R' OR 'S' OR 'T' OR 'U' OR    06845411
104100                     'V' OR 'W' OR 'X' OR 'Y' OR 'Z'              06845513
104200           MOVE 'H'  TO WORK-HRG3.                                06845611
104300                                                                  06845711
104400                                                                  06841011
104500        PERFORM 2430-RECODE-HRG4-1 THRU 2430-EXIT.                06841011
104600                                                                  06842811
104700                                                                  06845811
104800                                                                  06847011
104900 2320-EXIT.  EXIT.                                                06847111
105000                                                                  06847211
105100 2325-RECODE-HRG1-3.                                              06847313
105200                                                                  06847411
105300        IF HHA-CLINICAL-SEV-EQ3 = 'A' OR 'B'                      06847511
105400           MOVE 'A'  TO WORK-HRG2.                                06847611
105500                                                                  06847711
105600        IF HHA-CLINICAL-SEV-EQ3 = 'C' OR 'D' OR 'E'               06847811
105700           MOVE 'B'  TO WORK-HRG2.                                06848111
105800                                                                  06849011
105900        IF HHA-CLINICAL-SEV-EQ3 = 'F' OR 'G' OR 'H' OR            06849211
106000                                  'I' OR 'J' OR 'K' OR 'L' OR     06849311
106100                                  'M' OR 'N' OR 'O' OR            06849411
106200                    'P' OR 'Q' OR 'R' OR 'S' OR 'T' OR 'U' OR     06849511
106300                    'V' OR 'W' OR 'X' OR 'Y' OR 'Z'               06849613
106400           MOVE 'C'  TO WORK-HRG2.                                06849711
106500                                                                  06849811
106600        IF HHA-FUNCTION-SEV-EQ3 = 'A' OR 'B' OR 'C' OR 'D' OR     06849911
106700                                  'E' OR 'F' OR 'G' OR 'H'        06850011
106800           MOVE 'F'  TO WORK-HRG3.                                06850211
106900                                                                  06850311
107000        IF HHA-FUNCTION-SEV-EQ3 = 'I'                             06850411
107100           MOVE 'G'  TO WORK-HRG3.                                06850511
107200                                                                  06850611
107300        IF HHA-FUNCTION-SEV-EQ3 =  'J' OR 'K' OR                  06850811
107400                                   'L' OR 'M' OR 'N' OR 'O' OR    06850811
107500                     'P' OR 'Q' OR 'R' OR 'S' OR 'T' OR 'U' OR    06850911
107600                     'V' OR 'W' OR 'X' OR 'Y' OR 'Z'              06851014
107700           MOVE 'H'  TO WORK-HRG3.                                06851111
107800                                                                  06851211
107900                                                                  06841011
108000        PERFORM 2430-RECODE-HRG4-1 THRU 2430-EXIT.                06841011
108100                                                                  06842811
108200                                                                  06853411
108300 2325-EXIT.  EXIT.                                                06853511
108400                                                                  06853611
108500 2330-RECODE-HRG1-4.                                              06853713
108600                                                                  06853811
108700        IF HHA-CLINICAL-SEV-EQ4 = 'A' OR 'B' OR 'C' OR 'D' OR     06853911
108800                                  'E' OR 'F' OR 'G' OR 'H'        06854211
108900           MOVE 'A'  TO WORK-HRG2.                                06854011
109000                                                                  06854111
109100                                                                  06854211
109200        IF HHA-CLINICAL-SEV-EQ4 = 'I' OR 'J' OR 'K' OR 'L' OR     06854311
109300                                  'M' OR 'N' OR 'O' OR 'P'        06854811
109400           MOVE 'B'  TO WORK-HRG2.                                06854411
109500                                                                  06854511
109600        IF HHA-CLINICAL-SEV-EQ4 = 'Q' OR 'R' OR 'S' OR            06854811
109700                                  'T' OR 'U' OR                   06854911
109800                                  'V' OR 'W' OR 'X' OR 'Y' OR 'Z' 06855013
109900           MOVE 'C'  TO WORK-HRG2.                                06855111
110000                                                                  06855211
110100        IF HHA-FUNCTION-SEV-EQ4 = 'A' OR 'B' OR 'C' OR 'D' OR     06855311
110200                                  'E' OR 'F' OR 'G'               06855411
110300           MOVE 'F'  TO WORK-HRG3.                                06855611
110400                                                                  06855711
110500        IF HHA-FUNCTION-SEV-EQ4 = 'H'                             06855811
110600           MOVE 'G'  TO WORK-HRG3.                                06855911
110700                                                                  06856011
110800        IF HHA-FUNCTION-SEV-EQ4 =  'I' OR 'J' OR 'K' OR           06856111
110900                                   'L' OR 'M' OR 'N' OR 'O' OR    06856111
111000                     'P' OR 'Q' OR 'R' OR 'S' OR 'T' OR 'U' OR    06856211
111100                     'V' OR 'W' OR 'X' OR 'Y' OR 'Z'              06856311
111200           MOVE 'H'  TO WORK-HRG3.                                06856411
111300                                                                  06856511
111400                                                                  06841011
111500        PERFORM 2430-RECODE-HRG4-1 THRU 2430-EXIT.                06841011
111600                                                                  06842811
111700                                                                  06857211
111800                                                                  06858811
111900 2330-EXIT.  EXIT.                                                06858911
112000                                                                  06859011
112100 2410-RECODE-EPP1.                                                06859112
112200                                                                  06859212
112300       IF (HHA-REVENUE-SUM1-3-QTY-THR < 14)                       06859312
112400         MOVE '1' TO WORK-HRG1                                    06859412
112500        PERFORM 2315-RECODE-HRG1-1 THRU 2315-EXIT                 06859513
112600               GO TO 2410-EXIT.                                   06859612
112700                                                                  06859712
112800                                                                  06859812
112900       IF (HHA-REVENUE-SUM1-3-QTY-THR > 13 AND                    06859912
113000           HHA-REVENUE-SUM1-3-QTY-THR < 20)                       06860012
113100             MOVE '2' TO WORK-HRG1                                06860112
113200        PERFORM 2320-RECODE-HRG1-2 THRU 2320-EXIT                 06860213
113300               GO TO 2410-EXIT.                                   06860312
113400                                                                  06860412
113500 2410-EXIT.  EXIT.                                                06860512
113600                                                                  06860612
113700 2415-RECODE-EPP2.                                                06860712
113800                                                                  06860812
113900       IF (HHA-REVENUE-SUM1-3-QTY-THR < 14)                       06860912
114000         MOVE '3' TO WORK-HRG1                                    06861012
114100        PERFORM 2325-RECODE-HRG1-3 THRU 2325-EXIT                 06861113
114200               GO TO 2415-EXIT.                                   06861212
114300                                                                  06861312
114400                                                                  06861412
114500       IF (HHA-REVENUE-SUM1-3-QTY-THR > 13 AND                    06861512
114600           HHA-REVENUE-SUM1-3-QTY-THR < 20)                       06861612
114700             MOVE '4' TO WORK-HRG1                                06861712
114800        PERFORM 2330-RECODE-HRG1-4 THRU 2330-EXIT                 06861813
114900               GO TO 2415-EXIT.                                   06861912
115000                                                                  06862012
115100 2415-EXIT.  EXIT.                                                06862112
115200                                                                  06862212
115300 2430-RECODE-HRG4-1.                                              06862415
115400                                                                  06862515
115500                                                                  06862615
115600     IF WORK-HRG1 = '1' OR '3'                                    06862715
115700        PERFORM 2440-RECODE-HRG4-2  THRU 2440-EXIT                06862815
115800        GO TO 2430-EXIT.                                          06864015
115900                                                                  06865015
116000                                                                  06865115
116100     IF WORK-HRG1 = '2' OR '4'                                    06865215
116200        PERFORM 2450-RECODE-HRG4-3  THRU 2450-EXIT                06865315
116300        GO TO 2430-EXIT.                                          06865415
116400                                                                  06866915
116500 2430-EXIT.  EXIT.                                                06867015
116600                                                                  06867115
116700                                                                  06867215
116800 2440-RECODE-HRG4-2.                                              06867315
116900                                                                  06867415
117000     IF  HHA-REVENUE-SUM1-3-QTY-THR < 6                           06867515
117100             MOVE 'K' TO WORK-HRG4.                               06867615
117200                                                                  06867715
117300     IF  HHA-REVENUE-SUM1-3-QTY-THR = 6                           06867815
117400             MOVE 'L' TO WORK-HRG4.                               06867915
117500                                                                  06868015
117600                                                                  06868115
117700     IF (HHA-REVENUE-SUM1-3-QTY-THR >  6 AND                      06868215
117800         HHA-REVENUE-SUM1-3-QTY-THR < 10)                         06868315
117900             MOVE 'M' TO WORK-HRG4.                               06868415
118000                                                                  06868515
118100     IF  HHA-REVENUE-SUM1-3-QTY-THR = 10                          06868615
118200             MOVE 'N' TO WORK-HRG4.                               06868715
118300                                                                  06868815
118400     IF (HHA-REVENUE-SUM1-3-QTY-THR > 10 AND                      06868915
118500         HHA-REVENUE-SUM1-3-QTY-THR < 14)                         06869015
118600             MOVE 'P' TO WORK-HRG4.                               06869115
118700                                                                  06868815
118800     IF (WORK-HRG1 = '1' AND                                      06862715
118900         HHA-REVENUE-SUM1-3-QTY-THR > 13 AND                      06868315
119000         HHA-REVENUE-SUM1-3-QTY-THR < 20)                         06869015
119100           MOVE '2' TO WORK-HRG1                                  06862715
119200           MOVE '1' TO HHA-RECODE-IND                             03384001
119300           COMPUTE HRG-RECODE-SW = HRG-RECODE-SW + 1              01770000
119400           GO TO 2000-GET-HRG.                                    06864015
119500                                                                  06869215
119600                                                                  06868815
119700     IF (WORK-HRG1 = '3' AND                                      06862715
119800         HHA-REVENUE-SUM1-3-QTY-THR > 13 AND                      06868315
119900         HHA-REVENUE-SUM1-3-QTY-THR < 20)                         06869015
120000           MOVE '4' TO WORK-HRG1                                  06862715
120100           MOVE '3' TO HHA-RECODE-IND                             03384001
120200           COMPUTE HRG-RECODE-SW = HRG-RECODE-SW + 1              01770000
120300           GO TO 2000-GET-HRG.                                    06864015
120400                                                                  06869215
120500                                                                  06872415
120600     IF (WORK-HRG1 = '1' AND                                      06862715
120700         HHA-REVENUE-SUM1-3-QTY-THR > 19)                         06868315
120800           MOVE '5' TO WORK-HRG1                                  06862715
120900*          MOVE '1' TO HHA-RECODE-IND                             03384001
121000          PERFORM 2475-RECODE-HRG5-3  THRU 2475-EXIT.             06865315
121100                                                                  06869215
121200                                                                  06872415
121300     IF (WORK-HRG1 = '3' AND                                      06862715
121400         HHA-REVENUE-SUM1-3-QTY-THR > 19)                         06868315
121500           MOVE '5' TO WORK-HRG1                                  06862715
121600*          MOVE '1' TO HHA-RECODE-IND                             03384001
121700          PERFORM 2480-RECODE-HRG5-4  THRU 2480-EXIT.             06865315
121800                                                                  06869215
121900                                                                  06870615
122000 2440-EXIT.  EXIT.                                                06870715
122100                                                                  06870815
122200                                                                  06870915
122300 2450-RECODE-HRG4-3.                                              06871015
122400                                                                  06871115
122500                                                                  06871215
122600     IF (HHA-REVENUE-SUM1-3-QTY-THR > 13 AND                      06871315
122700         HHA-REVENUE-SUM1-3-QTY-THR < 16)                         06871415
122800             MOVE 'K' TO WORK-HRG4.                               06871515
122900                                                                  06871615
123000     IF (HHA-REVENUE-SUM1-3-QTY-THR > 15 AND                      06871715
123100         HHA-REVENUE-SUM1-3-QTY-THR < 18)                         06871815
123200             MOVE 'L' TO WORK-HRG4.                               06871915
123300                                                                  06872015
123400     IF (HHA-REVENUE-SUM1-3-QTY-THR > 17 AND                      06872115
123500         HHA-REVENUE-SUM1-3-QTY-THR < 20)                         06872215
123600             MOVE 'M' TO WORK-HRG4.                               06872315
123700                                                                  06872415
123800     IF (WORK-HRG1 = '2' AND                                      06862715
123900         HHA-REVENUE-SUM1-3-QTY-THR < 14)                         06868315
124000           MOVE '1' TO WORK-HRG1                                  06862715
124100           MOVE '1' TO HHA-RECODE-IND                             03384001
124200           COMPUTE HRG-RECODE-SW = HRG-RECODE-SW + 1              01770000
124300           GO TO 2000-GET-HRG-TWO.                                06864015
124400                                                                  06869215
124500                                                                  06872415
124600     IF (WORK-HRG1 = '4' AND                                      06862715
124700         HHA-REVENUE-SUM1-3-QTY-THR < 14)                         06868315
124800           MOVE '3' TO WORK-HRG1                                  06862715
124900           MOVE '3' TO HHA-RECODE-IND                             03384001
125000           COMPUTE HRG-RECODE-SW = HRG-RECODE-SW + 1              01770000
125100           GO TO 2000-GET-HRG-TWO.                                06864015
125200                                                                  06869215
125300                                                                  06872415
125400     IF (WORK-HRG1 = '2' AND                                      06862715
125500         HHA-REVENUE-SUM1-3-QTY-THR > 19)                         06868315
125600           MOVE '5' TO WORK-HRG1                                  06862715
125700*          MOVE '1' TO HHA-RECODE-IND                             03384001
125800*       IF HRG-KEEP5-SW1 = 1                                      06830208
125900*         PERFORM 2480-RECODE-HRG5-4  THRU 2480-EXIT
126000*          MOVE WORK-HRG TO HHA-HRG-OUTPUT-CODE (SUB1)
126100*          MOVE WORK-HRG TO SEARCH-HRG
126200*          GO TO 2450-EXIT                                        06864015
126300*       ELSE                                                      06864015
126400          PERFORM 2475-RECODE-HRG5-3  THRU 2475-EXIT              06865315
126500           GO TO 2450-EXIT.
126600                                                                  06869215
126700     IF (WORK-HRG1 = '4' AND                                      06862715
126800         HHA-REVENUE-SUM1-3-QTY-THR > 19)                         06868315
126900           MOVE '5' TO WORK-HRG1                                  06862715
127000*          MOVE '1' TO HHA-RECODE-IND                             03384001
127100          PERFORM 2480-RECODE-HRG5-4  THRU 2480-EXIT              06865315
127200           GO TO 2450-EXIT.
127300                                                                  06869215
127400                                                                  06872515
127500 2450-EXIT.  EXIT.                                                06872615
127600                                                                  06872715
127700                                                                  06870915
127800 2475-RECODE-HRG5-3.                                              06871015
127900                                                                  06871115
128000                                                                  06843311
128100        IF HHA-CLINICAL-SEV-EQ2 = 'A' OR 'B' OR 'C' OR 'D' OR     06843411
128200                                  'E' OR 'F' OR 'G'
128300           MOVE 'A'  TO WORK-HRG2.                                06843511
128400                                                                  06843611
128500        IF HHA-CLINICAL-SEV-EQ2 = 'H' OR                          06843711
128600                                  'I' OR 'J' OR 'K' OR 'L' OR     06843811
128700                                  'M' OR 'N'
128800           MOVE 'B'  TO WORK-HRG2.                                06843911
128900                                                                  06844011
129000        IF HHA-CLINICAL-SEV-EQ2 = 'O' OR 'P' OR 'Q' OR 'R' OR     06844111
129100                                  'S' OR 'T' OR 'U' OR            06844211
129200                                  'V' OR 'W' OR 'X' OR 'Y' OR 'Z' 06844313
129300           MOVE 'C'  TO WORK-HRG2.                                06844411
129400                                                                  06844511
129500        IF HHA-FUNCTION-SEV-EQ2 = 'A' OR 'B' OR 'C' OR 'D' OR     06844611
129600                                  'E' OR 'F'                      06844911
129700           MOVE 'F'  TO WORK-HRG3.                                06844711
129800                                                                  06844811
129900        IF HHA-FUNCTION-SEV-EQ2 = 'G'                             06844911
130000           MOVE 'G'  TO WORK-HRG3.                                06845011
130100                                                                  06845111
130200        IF HHA-FUNCTION-SEV-EQ2 =  'H' OR 'I' OR                  06845211
130300                     'J' OR 'K' OR 'L' OR 'M' OR 'N' OR 'O' OR    06845311
130400                     'P' OR 'Q' OR 'R' OR 'S' OR 'T' OR 'U' OR    06845411
130500                     'V' OR 'W' OR 'X' OR 'Y' OR 'Z'              06845513
130600           MOVE 'H'  TO WORK-HRG3.                                06845611
130700                                                                  06845711
130800                                                                  06871215
130900        IF HHA-REVENUE-SUM1-3-QTY-THR > 19                        06871315
131000             MOVE 'K' TO WORK-HRG4.                               06871515
131100                                                                  06871615
131200                                                                  06842811
131300                                                                  06845811
131400                                                                  06872515
131500 2475-EXIT.  EXIT.                                                06872615
131600                                                                  06872715
131700 2480-RECODE-HRG5-4.                                              06871015
131800                                                                  06871115
131900                                                                  06843311
132000        IF HHA-CLINICAL-SEV-EQ4 = 'A' OR 'B' OR 'C' OR 'D' OR     06843411
132100                                  'E' OR 'F' OR 'G'
132200           MOVE 'A'  TO WORK-HRG2.                                06843511
132300                                                                  06843611
132400        IF HHA-CLINICAL-SEV-EQ4 = 'H' OR                          06843711
132500                                  'I' OR 'J' OR 'K' OR 'L' OR     06843811
132600                                  'M' OR 'N'
132700           MOVE 'B'  TO WORK-HRG2.                                06843911
132800                                                                  06844011
132900        IF HHA-CLINICAL-SEV-EQ4 = 'O' OR 'P' OR 'Q' OR 'R' OR     06844111
133000                                  'S' OR 'T' OR 'U' OR            06844211
133100                                  'V' OR 'W' OR 'X' OR 'Y' OR 'Z' 06844313
133200           MOVE 'C'  TO WORK-HRG2.                                06844411
133300                                                                  06844511
133400        IF HHA-FUNCTION-SEV-EQ4 = 'A' OR 'B' OR 'C' OR 'D' OR     06844611
133500                                  'E' OR 'F'                      06844911
133600           MOVE 'F'  TO WORK-HRG3.                                06844711
133700                                                                  06844811
133800        IF HHA-FUNCTION-SEV-EQ4 = 'G'                             06844911
133900           MOVE 'G'  TO WORK-HRG3.                                06845011
134000                                                                  06845111
134100        IF HHA-FUNCTION-SEV-EQ4 =  'H' OR 'I' OR                  06845211
134200                     'J' OR 'K' OR 'L' OR 'M' OR 'N' OR 'O' OR    06845311
134300                     'P' OR 'Q' OR 'R' OR 'S' OR 'T' OR 'U' OR    06845411
134400                     'V' OR 'W' OR 'X' OR 'Y' OR 'Z'              06845513
134500           MOVE 'H'  TO WORK-HRG3.                                06845611
134600                                                                  06845711
134700                                                                  06871215
134800        IF HHA-REVENUE-SUM1-3-QTY-THR > 19                        06871315
134900             MOVE 'K' TO WORK-HRG4.                               06871515
135000                                                                  06871615
135100                                                                  06842811
135200                                                                  06845811
135300                                                                  06872515
135400 2480-EXIT.  EXIT.                                                06872615
135500                                                                  06872715
135600***===================================================***         06872715
135700                                                                  06872715
135800 2700-GET-REV.                                                    06872815
135900                                                                  06872915
136000     IF HHA-REVENUE-CODE (SUB1) = SPACES                          06873015
136100        MOVE 6 TO SUB1                                            06874000
136200        GO TO 2700-EXIT.                                          06880000
136300                                                                  06890000
136400     SET RU1 TO 1.                                                06900000
136500     SEARCH M-REV-DATA VARYING RU1                                06910000
136600            AT END                                                06920000
136700               MOVE '80' TO HHA-PAY-RTC                           06930000
136800               MOVE 6 TO SUB1                                     06940000
136900               GO TO 2700-EXIT                                    06950000
137000            WHEN TB-REV-CODE (RU1) = HHA-REVENUE-CODE (SUB1)      06960000
137100               SET RU2 TO RU1                                     06970000
137200               PERFORM 2750-GET-REV-DOLLARS THRU 2750-EXIT.       06980000
137300                                                                  06990000
137400 2700-EXIT.  EXIT.                                                07000000
137500                                                                  07010000
137600 2750-GET-REV-DOLLARS.                                            07020000
137700                                                                  07030000
137800      PERFORM 2800-GET-REV-SEARCH THRU 2800-EXIT                  07040000
137900           VARYING RU2 FROM RU1 BY 1 UNTIL                        07050000
138000           TB-REV-CODE (RU2) NOT = HHA-REVENUE-CODE (SUB1).       07060000
138100                                                                  07070000
138200 2750-EXIT.   EXIT.                                               07080000
138300                                                                  07090000
138400 2800-GET-REV-SEARCH.                                             07100000
138500                                                                  07110000
138600        IF HHA-SERV-THRU-DATE NOT < TB-REV-EFFDATE (RU2)          07120000
138700           MOVE TB-REV-DOLL-RATE-NRURAL (RU2) TO                  07130000
138800                    HHA-REVENUE-DOLL-RATE (SUB1)                  07140000
138900        ELSE                                                      07150000
139000           GO TO 2800-EXIT.                                       07160000
139100                                                                  07170000
139200           IF HHA-SERV-THRU-DATE > 20010331 AND                   07180000
139300              HHA-SERV-THRU-DATE < 20060101                       07190000
139400              IF HHA-MSA2-RURAL-CHECK                             07200000
139500                  MOVE TB-REV-DOLL-RATE-RURAL (RU2) TO            07210000
139600                    HHA-REVENUE-DOLL-RATE (SUB1).                 07220000
139700                                                                  07230000
139800           IF HHA-SERV-THRU-DATE > 20051231 AND                   07231000
139900              HHA-SERV-THRU-DATE < 20070101 AND                   07232000
140000              HHA-SERV-FROM-DATE > 20051231                       07233000
140100              IF HHA-CBSA-RURAL-CHECK                             07234000
140200              OR HHA-CBSA-RURAL-CHECK-ALL                         07235000
140300                  MOVE TB-REV-DOLL-RATE-RURAL (RU2) TO            07236000
140400                    HHA-REVENUE-DOLL-RATE (SUB1)                  07237000
140500                    GO TO 2800-EXIT.                              07238000
140600                                                                  07239000
140700           IF HHA-SERV-THRU-DATE > 20061231 AND                   07240000
140800              HHA-SERV-FROM-DATE > 20061231 AND                   07250000
140900              HHA-SERV-THRU-DATE < 20070101                       07240000
141000                IF HHA-CBSA-RURAL-CHECK                           07340000
141100                OR HHA-CBSA-RURAL-CHECK-ALL                       07350000
141200                   IF HHA-WITH-DATA-CHECK                         07351000
141300                      MOVE TB-REV-DOLL-RATE-RURAL (RU2) TO        07352000
141400                      HHA-REVENUE-DOLL-RATE (SUB1)                07353000
141500                   ELSE                                           07354000
141600                      MOVE TB-DOLL-RATE-RURAL-NOSUBMIT (RU2) TO   07355000
141700                      HHA-REVENUE-DOLL-RATE (SUB1)                07356000
141800                   END-IF                                         07357000
141900                ELSE                                              07358000
142000                   IF HHA-WITH-DATA-CHECK                         07359000
142100                      MOVE TB-REV-DOLL-RATE-NRURAL (RU2) TO       07359100
142200                      HHA-REVENUE-DOLL-RATE (SUB1)                07359200
142300                   ELSE                                           07359300
142400                      MOVE TB-DOLL-RATE-NRURAL-NOSUBMIT (RU2) TO  07359400
142500                      HHA-REVENUE-DOLL-RATE (SUB1)                07359500
142600                   END-IF                                         07359600
142700                END-IF                                            07359600
142800           END-IF.                                                07359700
142900                                                                  07360000
143000                IF HHA-CBSA-RURAL-CHECK                           07340000
143100                OR HHA-CBSA-RURAL-CHECK-ALL                       07350000
143200                   IF HHA-WITH-DATA-CHECK                         07351000
143300                      MOVE TB-REV-DOLL-RATE-RURAL (RU2) TO        07352000
143400                      HHA-REVENUE-DOLL-RATE (SUB1)                07353000
143500                   ELSE                                           07354000
143600                      MOVE TB-DOLL-RATE-RURAL-NOSUBMIT (RU2) TO   07355000
143700                      HHA-REVENUE-DOLL-RATE (SUB1)                07356000
143800                   END-IF                                         07357000
143900                ELSE                                              07358000
144000                   IF HHA-WITH-DATA-CHECK                         07359000
144100                      MOVE TB-REV-DOLL-RATE-NRURAL (RU2) TO       07359100
144200                      HHA-REVENUE-DOLL-RATE (SUB1)                07359200
144300                   ELSE                                           07359300
144400                      MOVE TB-DOLL-RATE-NRURAL-NOSUBMIT (RU2) TO  07359400
144500                      HHA-REVENUE-DOLL-RATE (SUB1)                07359500
144600                   END-IF                                         07359600
144700                END-IF.                                           07359600
144800                                                                  07360200
144900                                                                  07360300
145000 2800-EXIT.  EXIT.                                                07360400
145100                                                                  07360500
145200**----------------------------------------------------            07360600
145300*  HHA-WITH-DATA-CHECK  (0, 1)                                    07360700
145400*  HHA-NO-DATA-CHECK (2, 3)                                       07360800
145500*                                                                 07360900
145600*COL 1 TB-REV-DOLL-RATE-NRURAL                                    07361000
145700*COL 2 TB-REV-DOLL-RATE-RURAL                                     07362000
145800*COL 3 TB-DOLL-RATE-NRURAL-NOSUBMIT                               07363000
145900*COL 4 TB-DOLL-RATE-RURAL-NOSUBMIT                                07364000
146000*                                                                 07365000
146100*                                                                 07366000
146200*****        LAST STATEMENT               *************           07367000
