000100 IDENTIFICATION DIVISION.                                         00010000
000200 PROGRAM-ID.    HHCAL170.                                         00020001
000201 DATE-COMPILED.                                                   00020100
000202******************************************************************00020200
000203*                        CMS                                     *00020300
000210******************************************************************00021000
000600*  A). NATIONAL HHA PRICER                                       *00060000
000700*  B). NATIONAL HHA PRICER EFFECTIVE OCT 1 2001                  *00070000
000800*  C). THERE ARE YEARLY HHA PRICER MODULES THAT WILL             *00080000
000900*      CALCULATE THE HRG'S,REVENUE CODES AND TYPE OF BILLS       *00090000
001112******************************************************************00111200
001113* LUPA = LOW UTILIZATION PAYMENT ADJUSTMENT                      *00111300
001120******************************************************************00112000
001200* FOR CY2017:                                                    *00120000
001210*    EXPANDED H-HHA-INPUT-DATA TO 650 CHARS.                     *00121000
001300******************************************************************00130000
001400******************************************************************00140000
001500*            RETURN CODE VALUES (HHA-RTC)                         00150000
001600*                                                                 00160000
001700*        HHA-RTC  WITH PAYMENTS RETURNED                          00170000
001800*                                                                 00180000
001900*     RETURN CODES                                                00190000
002000*          00 = FINAL PAYMENT                                     00200000
002100*               TOB = 329,339,327,337                             00210000
002200*                  OR 32G OR 33G OR 32I OR 33I OR 32Q             00220000
002300*                  OR 32J OR 33J OR 32M OR 33M OR 33Q             00230000
002400*                  OR 32F OR 32K OR 32P OR 32H                    00240000
002500*                  OR 33F OR 33K OR 33P OR 33H                    00250000
002600*               WITH HRG,REVENUE CODE WHERE NO OUTLIER APPLIES    00260000
002700*          01 = FINAL PAYMENT                                     00270000
002800*               TOB = 329,339,327,337                             00280000
002900*                  OR 32G OR 33G OR 32I OR 33I OR 32Q             00290000
003000*                  OR 32J OR 33J OR 32M OR 33M OR 33Q             00300000
003100*                  OR 32F OR 32K OR 32P OR 32H                    00310000
003200*                  OR 33F OR 33K OR 33P OR 33H                    00320000
003300*               WITH HRG,REVENUE CODE WHERE OUTLIER APPLIES       00330000
003400*          03 = INITIAL HALF PAYMENT PAYMENT WILL BE ZERO         00340000
003500*               TOB = 332 AND 322                                 00350000
003600*          04 = INITIAL HALF PAYMENT PAID AT 50%                  00360000
003700*               TOB = 332 AND 322                                 00370000
003800*               WITH INITIAL (FIRST) HRG AND NO REVENUE CODES     00380000
003900*          05 = INITIAL HALF PAYMENT PAID AT 60%                  00390000
004000*               TOB = 332 AND 322                                 00400000
004100*               WITH INITIAL (FIRST) HRG AND NO REVENUE CODES     00410000
004200*       06,14 = LUPA PAYMENT ONLY                                 00420000
004300*               TOB = 329,339,327,337                             00430000
004400*                  OR 32G OR 33G OR 32I OR 33I OR 32Q             00440000
004500*                  OR 32J OR 33J OR 32M OR 33M OR 33Q             00450000
004600*                  OR 32F OR 32K OR 32P OR 32H                    00460000
004700*                  OR 33F OR 33K OR 33P OR 33H                    00470000
004800*               WITH REVENUE CODES AND REVENUE QTYS < 5       *   00480000
004900******************************************************************00490000
005000*          07 = FINAL PAYMENT, SCIC, PEP = N, NO OUTLIER          00500000
005100*               TOB = 329,339,327,337                             00510000
005200*                  OR 32G OR 33G OR 32I OR 33I OR 32Q             00520000
005300*                  OR 32J OR 33J OR 32M OR 33M OR 33Q             00530000
005400*                  OR 32F OR 32K OR 32P OR 32H                    00540000
005500*                  OR 33F OR 33K OR 33P OR 33H                    00550000
005600*               WITH REVENUE CODE WHERE NO OUTLIER APPLIES        00560000
005700*               WITH MORE THAN ONE HRG OCCURRENCE             *   00570000
005800*          08 = FINAL PAYMENT, SCIC, PEP = N, WITH OUTLIER        00580000
005900*               TOB = 329,339,327,337                             00590000
006000*                  OR 32G OR 33G OR 32I OR 33I OR 32Q             00600000
006100*                  OR 32J OR 33J OR 32M OR 33M OR 33Q             00610000
006200*                  OR 32F OR 32K OR 32P OR 32H                    00620000
006300*                  OR 33F OR 33K OR 33P OR 33H                    00630000
006400*               WITH REVENUE CODE WHERE OUTLIER APPLIES           00640000
006500*               WITH MORE THAN ONE HRG OCCURRENCE             *   00650000
006600******************************************************************00660000
006700*          09 = FINAL PAYMENT, PEP = Y, NO OUTLIER                00670000
006800*               TOB = 329,339,327,337                             00680000
006900*                  OR 32G OR 33G OR 32I OR 33I OR 32Q             00690000
007000*                  OR 32J OR 33J OR 32M OR 33M OR 33Q             00700000
007100*                  OR 32F OR 32K OR 32P OR 32H                    00710000
007200*                  OR 33F OR 33K OR 33P OR 33H                    00720000
007300*               WITH REVENUE CODE WHERE NO OUTLIER APPLIES        00730000
007400*               WITH ONE HRG OCCURRENCE                       *   00740000
007500*          11 = FINAL PAYMENT, PEP = Y, WITH OUTLIER              00750000
007600*               TOB = 329,339,327,337                             00760000
007700*                  OR 32G OR 33G OR 32I OR 33I OR 32Q             00770000
007800*                  OR 32J OR 33J OR 32M OR 33M OR 33Q             00780000
007900*                  OR 32F OR 32K OR 32P OR 32H                    00790000
008000*                  OR 33F OR 33K OR 33P OR 33H                    00800000
008100*               WITH REVENUE CODE WHERE OUTLIER APPLIES           00810000
008200*               WITH ONE HRG OCCURRENCE                       *   00820000
008300******************************************************************00830000
008400*          12 = FINAL PAYMENT, SCIC, PEP = Y, NO OUTLIER          00840000
008500*               TOB = 329,339,327,337                             00850000
008600*                  OR 32G OR 33G OR 32I OR 33I OR 32Q             00860000
008700*                  OR 32J OR 33J OR 32M OR 33M OR 33Q             00870000
008800*                  OR 32F OR 32K OR 32P OR 32H                    00880000
008900*                  OR 33F OR 33K OR 33P OR 33H                    00890000
009000*               WITH REVENUE CODE WHERE NO OUTLIER APPLIES        00900000
009100*               WITH MORE THAN ONE HRG OCCURRENCE             *   00910000
009200*          13 = FINAL PAYMENT, SCIC, PEP = Y, WITH OUTLIER        00920000
009300*               TOB = 329,339,327,337                             00930000
009400*                  OR 32G OR 33G OR 32I OR 33I OR 32Q             00940000
009500*                  OR 32J OR 33J OR 32M OR 33M OR 33Q             00950000
009600*                  OR 32F OR 32K OR 32P OR 32H                    00960000
009700*                  OR 33F OR 33K OR 33P OR 33H                    00970000
009800*               WITH REVENUE CODE WHERE OUTLIER APPLIES           00980000
009900*               WITH MORE THAN ONE HRG OCCURRENCE             *   00990000
010000******************************************************************01000000
010100******************************************************************01010000
010200*                                                             *   01020000
010300*            HHA-RTC   NO PAYMENTS RETURNED                   *   01030000
010400*                                                             *   01040000
010500*              10 = INVALID TOB                               *   01050000
010600*                                                             *   01060000
010700*              15 = INVALID PEP DAYS                          *   01070000
010800*                   FOR SHORTENED EPISODE                     *   01080000
010900*                                                             *   01090000
011000*              16 = INVALID HRG DAYS , > 60 DAYS              *   01100000
011100*                                                             *   01110000
011200*              20 = INVALID PEP INDICATOR                     *   01120000
011300*                                                             *   01130000
011400*              25 = INVALID MED REVIEW INDICATOR              *   01140000
011500*                                                             *   01150000
011600*              30 = INVALID CBSA CODE                         *   01160000
011700*                                                             *   01170000
011800*              35 = INVALID INITIAL PAYMENT INDICATOR         *   01180000
011900*                        0 = MAKE NORMAL INITIAL PAYMENT      *   01190000
012000*                        1 = MAKE ZERO PAYMANT                *   01200000
012100*                                                             *   01210000
012200*              40 = INVALID SERVICE THRU DATE FOR             *   01220000
012300*                      CURRENT CALENDER YEAR                  *   01230000
012400*                                                             *   01240000
012500*              70 = INVALID OR NO HRG CODE PRESENT            *   01250000
012600*                                                             *   01260000
012700*              75 = NO HRG PRESENT IN FIRST OCCURANCE AND     *   01270000
012800*                   REVENUE-QTY-COV-VISITS > 4  AND           *   01280000
012900*                       TOB = 329,339,327,337                 *   01290000
013000*                          OR 32G OR 33G OR 32I OR 33I        *   01300000
013100*                          OR 32J OR 33J OR 32M OR 33M        *   01310000
013200*                          OR 32F OR 32K OR 32P OR 32H            01320000
013300*                          OR 33F OR 33K OR 33P OR 33H            01330000
013400*                                                             *   01340000
013500*              80 = INVALID REVENUE CODE                      *   01350000
013600*                                                             *   01360000
013700*              85 = NO REVENUE CODE PRESENT                   *   01370000
013800*                   WITH TOB 329 OR 339 OR 327 OR 337         *   01380000
013900*                         OR 32G OR 33G OR 32I OR 33I         *   01390000
014000*                         OR 32J OR 33J OR 32M OR 33M         *   01400000
014100*                         OR 32F OR 32K OR 32P OR 32H             01410000
014200*                         OR 33F OR 33K OR 33P OR 33H             01420000
014300*                                                             *   01430000
014400***************************************************************   01440000
014600                                                                  01460000
014800 ENVIRONMENT DIVISION.                                            01480000
014900 CONFIGURATION SECTION.                                           01490000
015000 SOURCE-COMPUTER.            IBM-370.                             01500000
015100 OBJECT-COMPUTER.            IBM-370.                             01510000
015200 INPUT-OUTPUT  SECTION.                                           01520000
015300 FILE-CONTROL.                                                    01530000
015400                                                                  01540000
015500 DATA DIVISION.                                                   01550000
015600 FILE SECTION.                                                    01560000
015700                                                                  01570000
015800 WORKING-STORAGE SECTION.                                         01580000
015900 01  W-STORAGE-REF                  PIC X(46)  VALUE              01590000
016000     'HHCAL170       - W O R K I N G   S T O R A G E'.            01600000
016100 01  CAL-VERSION                    PIC X(07)  VALUE 'C2017.0'.   01610000
016200 01  CO1                            PIC S9(04) COMP SYNC.         01620000
016300 01  SUB1                           PIC S9(04) COMP SYNC.         01630000
016400 01  R1                             PIC S9(04) COMP SYNC.         01640000
016500 01  R2                             PIC S9(04) COMP SYNC.         01650000
016600 01  R3                             PIC S9(04) COMP SYNC.         01660000
016700                                                                  01670000
016800***************************************************************   01680000
016900*   YEARCHANGE - NO CHANGE FOR 2016                           *   01690000
017000*-------------------------------------------------------------*   01700000
017100* - DOES NOT CHANGE EACH YEAR                                 *   01710000
017200* - FROM CLAIM EXAMPLE SPREAD SHEET HIPPSPAYCALC TAB          *   01720000
017300***************************************************************   01730000
017400 01  LABOR-NLABOR-PERCENT.                                        01740000
017500     05 LABOR-PERCENT        PIC 9V9(05)  VALUE 0.78535.          01750000
017600     05 NONLABOR-PERCENT     PIC 9V9(05)  VALUE 0.21465.          01760000
017700***************************************************************   01770000
017800*   YEARCHANGE - NO CHANGE FOR 2016                           *   01780000
017900***************************************************************   01790000
018000 01  LUPA-ADD-ON                  PIC 9(03)V9(02) VALUE 093.96.   01800000
018100 01  LUPA-ADD-ON-RURAL            PIC 9(03)V9(02) VALUE 096.78.   01810000
018200 01  LUPA-ADD-ON-2PERCENT         PIC 9(03)V9(02) VALUE 095.85.   01820000
018300 01  LUPA-ADD-ON-2PERCENT-RUR     PIC 9(03)V9(02) VALUE 098.73.   01830000
018400***************************************************************   01840000
018500*   YEARCHANGE - NO CHANGE FOR 2016                           *   01850000
018600***************************************************************   01860000
018700 01  LUPA-ADD-ON-SN4              PIC 9(01)V9(04) VALUE 00.8451.  01870000
018800 01  LUPA-ADD-ON-PT1              PIC 9(01)V9(04) VALUE 00.6700.  01880000
018900 01  LUPA-ADD-ON-SLT3             PIC 9(01)V9(04) VALUE 00.6266.  01890000
019000***************************************************************** 01900000
019100*   YEARCHANGE - NO CHANGE FOR 2016                           *   01910000
019200***    EXAMPLE    *********************************************** 01920000
019300*** FED-EPISODE-RATE-AMT TIMES 1.13 = OUTLIER-THRESHOLD-AMT ***** 01930000
019400******  2327.68 TIMES 0.65  = 1512.99  ROUNDED UP  ************** 01940000
019500***************************************************************** 01950000
019600 01  OUTL-LOSS-SHAR-RATIO-PERCENT PIC 9(01)V9(02) VALUE 0.80.     01960000
019700                                                                  01970000
019800 01  LUPA-LABOR-ADJ               PIC 9(03)V9(02).                01980000
019900 01  LUPA-NON-LABOR-ADJ           PIC 9(03)V9(02).                01990000
020000 01  FED-EPISODE-RATE-AMT         PIC 9(05)V9(02) VALUE 0.        02000000
020100 01  OUTLIER-THRESHOLD-AMT        PIC 9(05)V9(02) VALUE 0.        02010000
020200                                                                  02020000
020300 01  WK-PEP-DAYS           PIC S9(04)       VALUE 0.              02030000
020400 01  WK-HRG-NO-OF-DAYS     PIC S9(04)       VALUE 0.              02040000
020500 01  WK-HRG-NO-OF-DAYS-FAC PIC S9(04)V9(06) VALUE 0.              02050000
020600 01  WK-HRG-NO-OF-DAYS-TOT PIC S9(04)       VALUE 0.              02060000
020700 01  WK-RTC-ADJ-IND        PIC 9            VALUE 0.              02070000
020800 01  WK-ALL-TOTALS.                                               02080000
020900     05  FED-ADJ                        PIC S9(07)V9(02).         02090000
021000     05  FED-ADJP                       PIC S9(07)V9(02).         02100000
021100     05  FED-ADJ1                       PIC S9(07)V9(02).         02110000
021200     05  FED-ADJ2                       PIC S9(07)V9(02).         02120000
021300     05  FED-ADJ3                       PIC S9(07)V9(02).         02130000
021400     05  FED-ADJ4                       PIC S9(07)V9(02).         02140000
021500     05  FED-ADJ5                       PIC S9(07)V9(02).         02150000
021600     05  FED-ADJ6                       PIC S9(07)V9(02).         02160000
021700     05  FED-LUPA-ADJ1                  PIC S9(07)V9(02).         02170000
021800     05  FED-LUPA-ADJ2                  PIC S9(07)V9(02).         02180000
021900     05  FED-LUPA-ADJ3                  PIC S9(07)V9(02).         02190000
022000     05  FED-LUPA-ADJ4                  PIC S9(07)V9(02).         02200000
022100     05  FED-LUPA-ADJ5                  PIC S9(07)V9(02).         02210000
022200     05  FED-LUPA-ADJ6                  PIC S9(07)V9(02).         02220000
022300     05  FED-LABOR-ADJ                  PIC S9(07)V9(02).         02230000
022400     05  FED-LABOR-ADJP                 PIC S9(07)V9(02).         02240000
022500     05  FED-LABOR-ADJ1                 PIC S9(07)V9(02).         02250000
022600     05  FED-LABOR-ADJ2                 PIC S9(07)V9(02).         02260000
022700     05  FED-LABOR-ADJ3                 PIC S9(07)V9(02).         02270000
022800     05  FED-LABOR-ADJ4                 PIC S9(07)V9(02).         02280000
022900     05  FED-LABOR-ADJ5                 PIC S9(07)V9(02).         02290000
023000     05  FED-LABOR-ADJ6                 PIC S9(07)V9(02).         02300000
023100     05  FED-LABOR-LUPA-ADJ1            PIC S9(07)V9(02).         02310000
023200     05  FED-LABOR-LUPA-ADJ2            PIC S9(07)V9(02).         02320000
023300     05  FED-LABOR-LUPA-ADJ3            PIC S9(07)V9(02).         02330000
023400     05  FED-LABOR-LUPA-ADJ4            PIC S9(07)V9(02).         02340000
023500     05  FED-LABOR-LUPA-ADJ5            PIC S9(07)V9(02).         02350000
023600     05  FED-LABOR-LUPA-ADJ6            PIC S9(07)V9(02).         02360000
023700     05  FED-SUPPLY-ADJ                 PIC S9(07)V9(02).         02370000
023800     05  FED-NON-LABOR-ADJ              PIC S9(07)V9(02).         02380000
023900     05  FED-NON-LABOR-ADJP             PIC S9(07)V9(02).         02390000
024000     05  FED-NON-LABOR-ADJ1             PIC S9(07)V9(02).         02400000
024100     05  FED-NON-LABOR-ADJ2             PIC S9(07)V9(02).         02410000
024200     05  FED-NON-LABOR-ADJ3             PIC S9(07)V9(02).         02420000
024300     05  FED-NON-LABOR-ADJ4             PIC S9(07)V9(02).         02430000
024400     05  FED-NON-LABOR-ADJ5             PIC S9(07)V9(02).         02440000
024500     05  FED-NON-LABOR-ADJ6             PIC S9(07)V9(02).         02450000
024600     05  FED-NON-LABOR-LUPA-ADJ1        PIC S9(07)V9(02).         02460000
024700     05  FED-NON-LABOR-LUPA-ADJ2        PIC S9(07)V9(02).         02470000
024800     05  FED-NON-LABOR-LUPA-ADJ3        PIC S9(07)V9(02).         02480000
024900     05  FED-NON-LABOR-LUPA-ADJ4        PIC S9(07)V9(02).         02490000
025000     05  FED-NON-LABOR-LUPA-ADJ5        PIC S9(07)V9(02).         02500000
025100     05  FED-NON-LABOR-LUPA-ADJ6        PIC S9(07)V9(02).         02510000
025200     05  OUT-THRES-AMT-ADJ              PIC S9(07)V9(02).         02520000
025300     05  OUT-THRES-LABOR-ADJ            PIC S9(07)V9(02).         02530000
025400     05  OUT-THRES-NON-LABOR-ADJ        PIC S9(07)V9(02).         02540000
025500     05  WK-3000-PEP-N-PRETOT-PAY       PIC S9(07)V9(02).         02550000
025600     05  WK-3000-PEP-N-PAYMENT          PIC S9(07)V9(02).         02560000
025700     05  WK-4000-PEP-Y-PRETOT-PAY       PIC S9(07)V9(02).         02570000
025800     05  WK-4000-PEP-Y-PAYMENT          PIC S9(07)V9(02).         02580000
025900     05  WK-5000-PEP-N-PRETOT-PAY       PIC S9(07)V9(02).         02590000
026000     05  WK-5000-PEP-N-PAYMENT          PIC S9(07)V9(02).         02600000
026100     05  WK-6000-PEP-Y-PRETOT-PAY       PIC S9(07)V9(02).         02610000
026200     05  WK-6000-PEP-Y-PAYMENT          PIC S9(07)V9(02).         02620000
026300     05  WK-6050-PEP-Y-TOT-DAYS         PIC S9(04).               02630000
026400     05  WK-7000-OUTLIER-VALUE-A        PIC S9(07)V9(02).         02640000
026500     05  WK-7000-AB-DIFF                PIC S9(07)V9(02).         02650000
026600     05  WK-7000-CALC                   PIC S9(07)V9(02).         02660000
026700     05  WK-8000-OUTLIER-VALUE-B        PIC S9(07)V9(02).         02670000
026800     05  WK-8000-OUTLIER-LAB-NLAB       PIC S9(07)V9(02).         02680000
026900     05  WK-10000-OUTLIER-POOL-DIF      PIC S9(07)V9(02).         02690000
027000     05  WK-10000-OUTLIER-POOL-PERCENT  PIC S9(09)V9(02).         02700000
027100     05  WK-10000-OUTLIER-AVAIL-POOL    PIC S9(09)V9(02).         02710000
027200                                                                  02720000
027300 01  WORK-HRG.                                                    02730000
027400     05  WORK-HRG1                      PIC X(01).                02740000
027500     05  WORK-HRG2                      PIC X(01).                02750000
027600     05  WORK-HRG3                      PIC X(01).                02760000
027700     05  WORK-HRG4                      PIC X(01).                02770000
027800     05  WORK-HRG5                      PIC X(01).                02780000
028000                                                                  02800000
028100*----------------------------------------------------------------*02810000
028200 01  HOLD-HHA-DATA.                                               02820000
028300     05  H-HHA-INPUT-DATA.                                        02830000
028400         10  H-HHA-NPI                 PIC X(10).                 02840000
028500         10  H-HHA-HIC                 PIC X(12).                 02850000
028600         10  H-HHA-PROV-NO             PIC X(06).                 02860000
028700         10  H-HHA-TOB                 PIC XXX.                   02870000
028800             88 H-VALID-TOB-CLAIM       VALUE                     02880000
028900             '329', '339', '327', '337',                          02890000
029000             '32G', '33G', '32I', '33I',                          02900000
029100             '32J', '33J', '32M', '33M', '32Q',                   02910000
029200             '32F', '32K', '32P', '32H', '33Q',                   02920000
029300             '33F', '33K', '33P', '33H'.                          02930000
029400             88 H-VALID-TOB-RAP         VALUE                     02940000
029500             '322', '332'.                                        02950000
029600*                                                             *   02960000
029700         10  H-HHA-PEP-INDICATOR       PIC X.                     02970000
029800         10  H-HHA-PEP-DAYS            PIC 999.                   02980000
029900         10  H-HHA-INIT-PAY-INDICATOR  PIC X.                     02990000
030000             88 H-HHA-WITH-DATA-CHECK VALUE '0', '1'.             03000000
030100             88 H-HHA-NO-DATA-CHECK   VALUE '2', '3'.             03010000
030200         10  FILLER                    PIC X(07).                 03020000
030300         10  H-HHA-MSA1                PIC 9(07)V9(02).           03030000
030400         10  H-HHA-MSA2-DATA REDEFINES H-HHA-MSA1.                03040000
030500             15  FILLER             PIC XXX.                      03050000
030600             15  H-HHA-MSA2         PIC XXXX.                     03060000
030700             15  FILLER             PIC XX.                       03070000
030800         10  H-HHA-CBSA-DATA REDEFINES H-HHA-MSA1.                03080000
030900             15  FILLER             PIC XX.                       03090000
031000             15  H-HHA-CBSA         PIC XXXXX.                    03100000
031100             15  FILLER             PIC XX.                       03110000
031200         10  H-HHA-SERV-FROM-DATE.                                03120000
031300             15  H-HHA-FROM-CC         PIC XX.                    03130000
031400             15  H-HHA-FROM-YYMMDD.                               03140000
031500                 25  H-HHA-FROM-YY     PIC XX.                    03150000
031600                 25  H-HHA-FROM-MM     PIC XX.                    03160000
031700                 25  H-HHA-FROM-DD     PIC XX.                    03170000
031800         10  H-HHA-SERV-THRU-DATE.                                03180000
031900             15  H-HHA-THRU-CC         PIC XX.                    03190000
032000             15  H-HHA-THRU-YYMMDD.                               03200000
032100                 25  H-HHA-THRU-YY     PIC XX.                    03210000
032200                 25  H-HHA-THRU-MM     PIC XX.                    03220000
032300                 25  H-HHA-THRU-DD     PIC XX.                    03230000
032400         10  H-HHA-ADMIT-DATE.                                    03240000
032500             15  H-HHA-ADMIT-CC        PIC XX.                    03250000
032600             15  H-HHA-ADMIT-YYMMDD.                              03260000
032700                 25  H-HHA-ADMIT-YY    PIC XX.                    03270000
032800                 25  H-HHA-ADMIT-MM    PIC XX.                    03280000
032900                 25  H-HHA-ADMIT-DD    PIC XX.                    03290000
033000         10  H-HHA-HRG-DATA      OCCURS 6.                        03300000
033100             15  H-HHA-MED-REVIEW-INDICATOR PIC X.                03310000
033200             15  H-HHA-HRG-INPUT-CODE       PIC X(05).            03320000
033300             15  H-HHA-HRG-OUTPUT-CODE      PIC X(05).            03330000
033400             15  H-HHA-HRG-NO-OF-DAYS       PIC 9(03).            03340000
033500             15  H-HHA-HRG-WGTS             PIC 9(02)V9(04).      03350000
033600             15  H-HHA-HRG-PAY              PIC 9(07)V9(02).      03360000
033700         10  H-HHA-REVENUE-DATA     OCCURS 6.                     03370000
033800             15  H-HHA-REVENUE-CODE             PIC X(04).        03380000
033900             15  H-HHA-REVENUE-QTY-COV-VISITS   PIC 9(03).        03390000
033910             15  H-HHA-REVENUE-QTY-OUTL-UNITS   PIC 9(05).        03391000
034000             15  H-HHA-REVENUE-EARLIEST-DATE    PIC 9(08).        03400000
034100             15  H-HHA-REVENUE-DOLL-RATE        PIC 9(07)V9(02).  03410000
034200             15  H-HHA-REVENUE-COST             PIC 9(07)V9(02).  03420000
034300             15  H-HHA-REVENUE-ADD-ON-VISIT-AMT PIC 9(07)V9(02).  03430000
034400     05  H-HHA-PASSBACK-DATA.                                     03440000
034500         10  H-HHA-PAY-RTC                PIC 99.                 03450000
034600         10  H-HHA-REVENUE-SUM1-3-QTY-THR PIC 9(05).              03460000
034700         10  H-HHA-REVENUE-SUM1-6-QTY-ALL PIC 9(05).              03470000
034800         10  H-HHA-OUTLIER-PAYMENT        PIC 9(07)V9(02).        03480000
034900         10  H-HHA-TOTAL-PAYMENT          PIC 9(07)V9(02).        03490000
035000     05  H-HHA-CASE-MIX-DATA.                                     03500000
035100         10  H-HHA-LUPA-ADD-ON-PAYMENT    PIC 9(03)V9(02).        03510000
035200         10  H-HHA-LUPA-SRC-ADM           PIC X.                  03520000
035300         10  H-HHA-RECODE-IND             PIC X.                  03530000
035400         10  H-HHA-EPISODE-TIMING         PIC 9.                  03540000
035500         10  H-HHA-SEVERITY-POINTS.                               03550000
035600             15  H-HHA-CLINICAL-SEV-EQ1   PIC X(01).              03560000
035700             15  H-HHA-FUNCTION-SEV-EQ1   PIC X(01).              03570000
035800             15  H-HHA-CLINICAL-SEV-EQ2   PIC X(01).              03580000
035900             15  H-HHA-FUNCTION-SEV-EQ2   PIC X(01).              03590000
036000             15  H-HHA-CLINICAL-SEV-EQ3   PIC X(01).              03600000
036100             15  H-HHA-FUNCTION-SEV-EQ3   PIC X(01).              03610000
036200             15  H-HHA-CLINICAL-SEV-EQ4   PIC X(01).              03620000
036300             15  H-HHA-FUNCTION-SEV-EQ4   PIC X(01).              03630000
036400     05  H-HHA-PROV-TOTAL-DATA.                                   03640000
036500         10  H-HHA-PROV-OUTLIER-PAY-TOTAL PIC 9(08)V9(02).        03650000
036600         10  H-HHA-PROV-PAYMET-TOTAL      PIC 9(09)V9(02).        03660000
036700     05  FILLER                           PIC X(51).              03670000
037000*----------------------------------------------------------------*03700000
037100                                                                  03710000
037200 LINKAGE SECTION.                                                 03720000
037300***************************************************************   03730000
037400*                 * * * * * * * * *                           *   03740000
037500***************************************************************   03750000
037600***************************************************************   03760000
037700*    THIS DATA IS CALCULATED BY THIS HHAPR  SUBROUTINE        *   03770000
037800*    AND PASSED BACK TO THE CALLING PROGRAM                   *   03780000
037900***************************************************************   03790000
038000 01  HHA-INPUT-DATA.                                              03800000
038100     05  HHA-DATA.                                                03810000
038200         10  HHA-NPI                 PIC X(10).                   03820000
038300         10  HHA-HIC                 PIC X(12).                   03830000
038400         10  HHA-PROV-NO             PIC X(06).                   03840000
038500         10  HHA-TOB                 PIC XXX.                     03850000
038600             88 HHA-VALID-TOB-CLAIM       VALUE                   03860000
038700             '329', '339', '327', '337',                          03870000
038800             '32G', '33G', '32I', '33I',                          03880000
038900             '32J', '33J', '32M', '33M', '32Q',                   03890000
039000             '32F', '32K', '32P', '32H', '33Q',                   03900000
039100             '33F', '33K', '33P', '33H'.                          03910000
039200             88 HHA-VALID-TOB-RAP         VALUE                   03920000
039300             '322', '332'.                                        03930000
039400*                                                             *   03940000
039500         10  HHA-PEP-INDICATOR       PIC X.                       03950000
039600         10  HHA-PEP-DAYS            PIC 999.                     03960000
039700         10  HHA-INIT-PAY-INDICATOR  PIC X.                       03970000
039800             88  HHA-WITH-DATA-CHECK VALUE '0', '1'.              03980000
039900             88  HHA-NO-DATA-CHECK   VALUE '2', '3'.              03990000
040000         10  FILLER                  PIC X(07).                   04000000
040100         10  HHA-MSA1                PIC 9(07)V9(02).             04010000
040200         10  HHA-MSA2-DATA REDEFINES HHA-MSA1.                    04020000
040300             15  FILLER             PIC XXX.                      04030000
040400             15  HHA-MSA2.                                        04040000
040500                 25  HHA-MSA2-RURAL-1ST.                          04050000
040600                     30  HHA-RURAL-MSA         PIC XX.            04060000
040700                     88  HHA-MSA-RURAL-CHECK   VALUE '99'.        04070000
040800                 25  HHA-MSA2-RURAL-2ND        PIC XX.            04080000
040900             15  FILLER             PIC XX.                       04090000
041000         10  HHA-CBSA-DATA REDEFINES HHA-MSA1.                    04100000
041100             15  FILLER             PIC XX.                       04110000
041200             15  HHA-CBSA.                                        04120000
041300                 88  HHA-CBSA-RURAL-CHECK-ALL VALUE               04130000
041400                 '50001', '50002', '50005', '50007', '50025',     04140000
041500                 '50028', '50031', '50035', '50036', '50037',     04150000
041600                 '50041', '50045', '50047', '50048', '50050',     04160000
041700                 '50056', '50057', '50066', '50068', '50071',     04170000
041800                 '50073', '50080', '50084', '50087', '50089',     04180000
041900                 '50090', '50091', '50103', '50104', '50111',     04190000
042000                 '50115', '50117', '50118', '50120', '50121',     04200000
042100                 '50139', '50146', '50147', '50149', '50151',     04210000
042200                 '50164', '50165', '50168', '50169', '50173',     04220000
042300                 '50174', '50177', '50180', '50182', '50183'.     04230000
042400*                                                                 04240000
042500                 25  HHA-CBSA-RURAL-1ST.                          04250000
042600                     30  HHA-RURAL-CBSA        PIC XXX.           04260000
042700                     88  HHA-CBSA-RURAL-CHECK   VALUE '999'.      04270000
042800                 25  HHA-CBSA-RURAL-2ND        PIC XX.            04280000
042900             15  FILLER             PIC XX.                       04290000
043000         10  HHA-SERV-FROM-DATE.                                  04300000
043100             15  HHA-FROM-CC         PIC XX.                      04310000
043200             15  HHA-FROM-YYMMDD.                                 04320000
043300                 25  HHA-FROM-YY     PIC XX.                      04330000
043400                 25  HHA-FROM-MM     PIC XX.                      04340000
043500                 25  HHA-FROM-DD     PIC XX.                      04350000
043600         10  HHA-SERV-THRU-DATE.                                  04360000
043700             15  HHA-THRU-CC         PIC XX.                      04370000
043800             15  HHA-THRU-YYMMDD.                                 04380000
043900                 25  HHA-THRU-YY     PIC XX.                      04390000
044000                 25  HHA-THRU-MM     PIC XX.                      04400000
044100                 25  HHA-THRU-DD     PIC XX.                      04410000
044200         10  HHA-ADMIT-DATE.                                      04420000
044300             15  HHA-ADMIT-CC        PIC XX.                      04430000
044400             15  HHA-ADMIT-YYMMDD.                                04440000
044500                 25  HHA-ADMIT-YY    PIC XX.                      04450000
044600                 25  HHA-ADMIT-MM    PIC XX.                      04460000
044700                 25  HHA-ADMIT-DD    PIC XX.                      04470000
044800         10  HHA-HRG-DATA      OCCURS 6.                          04480000
044900             15  HHA-MED-REVIEW-INDICATOR PIC X.                  04490000
045000             15  HHA-HRG-INPUT-CODE       PIC X(05).              04500000
045100             15  HHA-HRG-OUTPUT-CODE      PIC X(05).              04510000
045200             15  HHA-HRG-NO-OF-DAYS       PIC 9(03).              04520000
045300             15  HHA-HRG-WGTS             PIC 9(02)V9(04).        04530000
045400             15  HHA-HRG-PAY              PIC 9(07)V9(02).        04540000
045500         10  HHA-REVENUE-DATA     OCCURS 6.                       04550000
045600             15  HHA-REVENUE-CODE             PIC X(04).          04560000
045700             15  HHA-REVENUE-QTY-COV-VISITS   PIC 9(03).          04570000
045710             15  HHA-REVENUE-QTY-OUTL-UNITS   PIC 9(05).          04571000
045800             15  HHA-REVENUE-EARLIEST-DATE    PIC 9(08).          04580000
045900             15  HHA-REVENUE-DOLL-RATE        PIC 9(07)V9(02).    04590000
046000             15  HHA-REVENUE-COST             PIC 9(07)V9(02).    04600000
046100             15  HHA-REVENUE-ADD-ON-VISIT-AMT PIC 9(07)V9(02).    04610000
046200     05  HHA-PASSBACK-DATA.                                       04620000
046300         10  HHA-PAY-RTC                PIC 99.                   04630000
046400         10  HHA-REVENUE-SUM1-3-QTY-THR PIC 9(05).                04640000
046500         10  HHA-REVENUE-SUM1-6-QTY-ALL PIC 9(05).                04650000
046600         10  HHA-OUTLIER-PAYMENT        PIC 9(07)V9(02).          04660000
046700         10  HHA-TOTAL-PAYMENT          PIC 9(07)V9(02).          04670000
046800     05  HHA-CASE-MIX-DATA.                                       04680000
046900         10  HHA-LUPA-ADD-ON-PAYMENT      PIC 9(03)V9(02).        04690000
047000         10  HHA-LUPA-SRC-ADM             PIC X.                  04700000
047100         10  HHA-RECODE-IND               PIC X.                  04710000
047200         10  HHA-EPISODE-TIMING           PIC 9.                  04720000
047300         10  HHA-SEVERITY-POINTS.                                 04730000
047400             15  HHA-CLINICAL-SEV-EQ1     PIC X(01).              04740000
047500             15  HHA-FUNCTION-SEV-EQ1     PIC X(01).              04750000
047600             15  HHA-CLINICAL-SEV-EQ2     PIC X(01).              04760000
047700             15  HHA-FUNCTION-SEV-EQ2     PIC X(01).              04770000
047800             15  HHA-CLINICAL-SEV-EQ3     PIC X(01).              04780000
047900             15  HHA-FUNCTION-SEV-EQ3     PIC X(01).              04790000
048000             15  HHA-CLINICAL-SEV-EQ4     PIC X(01).              04800000
048100             15  HHA-FUNCTION-SEV-EQ4     PIC X(01).              04810000
048200     05  HHA-PROV-TOTAL-DATA.                                     04820000
048300         10  HHA-PROV-OUTLIER-PAY-TOTAL PIC 9(08)V9(02).          04830000
048400         10  HHA-PROV-PAYMET-TOTAL      PIC 9(09)V9(02).          04840000
048500     05  FILLER                         PIC X(51).                04850000
048600*----------------------------------------------------------------*04860000
048800                                                                  04880000
048900 01  HOLD-VARIABLES-DATA.                                         04890000
049000     02  HOLD-VAR-DATA.                                           04900000
049100         05  PRICER-OPTION-SW                   PIC X(01).        04910000
049200         05  HHOPN-VERSION                      PIC X(07).        04920000
049300         05  HHDRV-VERSION                      PIC X(07).        04930000
049400         05  HHCAL-VERSION                      PIC X(07).        04940000
049500         05  FILLER                             PIC X(20).        04950000
049600                                                                  04960000
049700 01  CBSA-WAGE-INDEX-DATA.                                        04970000
049800     02  HOLD-WIR-DATA.                                           04980000
049900         05  WIR-CBSA                       PIC X(05).            04990000
050000         05  WIR-CBSA-EFFDATE               PIC X(08).            05000000
050100         05  WIR-CBSA-WAGEIND               PIC 9(02)V9(04).      05010000
050200                                                                  05020000
050210 01  TB-REV-DOLL-RATE-UNITS.                                      05021000
050211     05 WK-REV-DOLL-RATE-UNITS  PIC 9(07)V9(02)                   05021100
050212                                OCCURS 6.                         05021200
050220                                                                  05022000
050300 PROCEDURE DIVISION  USING HHA-INPUT-DATA                         05030000
050400                           HOLD-VARIABLES-DATA                    05040000
050500                           CBSA-WAGE-INDEX-DATA                   05050000
050510                           TB-REV-DOLL-RATE-UNITS.                05051000
050600                                                                  05060000
050700***************************************************************   05070000
050800*    PROCESSING:                                              *   05080000
050900*        A. WILL PROCESS NATIONAL HHA FOR CY 2010             *   05090000
051000*                STARTING JAN 1, 2010                         *   05100000
051100***************************************************************   05110000
051200                                                                  05120000
051300     MOVE CAL-VERSION TO HHCAL-VERSION.                           05130000
051400                                                                  05140000
051500     PERFORM 200-MAINLINE-CONTROL THRU 200-EXIT.                  05150000
051600                                                                  05160000
051700*         YEARCHANGE  2014.1                      ===========**   05170000
051800     MOVE 0 TO  H-HHA-LUPA-ADD-ON-PAYMENT.                        05180000
051900*         YEARCHANGE  2014.1                      ===========**   05190000
052000                                                                  05200000
052100     MOVE HOLD-HHA-DATA TO HHA-INPUT-DATA.                        05210000
052200                                                                  05220000
052300     GOBACK.                                                      05230000
052400                                                                  05240000
052500 200-MAINLINE-CONTROL.                                            05250000
052600                                                                  05260000
052700     MOVE HHA-INPUT-DATA TO HOLD-HHA-DATA.                        05270000
052800                                                                  05280000
053100                                                                  05310000
053200     MOVE ALL '0' TO                                              05320000
053300                     WK-ALL-TOTALS                                05330000
053400                     WK-HRG-NO-OF-DAYS                            05340000
053500                     WK-HRG-NO-OF-DAYS-TOT                        05350000
053600                     WK-RTC-ADJ-IND                               05360000
053700                     WK-PEP-DAYS                                  05370000
053800                     H-HHA-PASSBACK-DATA                          05380000
053900                     H-HHA-HRG-PAY (1)                            05390000
054000                     H-HHA-HRG-PAY (2)                            05400000
054100                     H-HHA-HRG-PAY (3)                            05410000
054200                     H-HHA-HRG-PAY (4)                            05420000
054300                     H-HHA-HRG-PAY (5)                            05430000
054400                     H-HHA-HRG-PAY (6)                            05440000
054500                     H-HHA-REVENUE-COST (1)                       05450000
054600                     H-HHA-REVENUE-COST (2)                       05460000
054700                     H-HHA-REVENUE-COST (3)                       05470000
054800                     H-HHA-REVENUE-COST (4)                       05480000
054900                     H-HHA-REVENUE-COST (5)                       05490000
055000                     H-HHA-REVENUE-COST (6)                       05500000
055100                     H-HHA-REVENUE-ADD-ON-VISIT-AMT (1)           05510000
055200                     H-HHA-REVENUE-ADD-ON-VISIT-AMT (2)           05520000
055300                     H-HHA-REVENUE-ADD-ON-VISIT-AMT (3)           05530000
055400                     H-HHA-REVENUE-ADD-ON-VISIT-AMT (4)           05540000
055500                     H-HHA-REVENUE-ADD-ON-VISIT-AMT (5)           05550000
055600                     H-HHA-REVENUE-ADD-ON-VISIT-AMT (6).          05560000
055700                                                                  05570000
055800     IF  H-HHA-PAY-RTC = 00                                       05580000
055900         PERFORM 400-CALC-THE-HHA THRU 400-EXIT.                  05590000
056000                                                                  05600000
056100 200-EXIT.   EXIT.                                                05610000
056200                                                                  05620000
056300 400-CALC-THE-HHA.                                                05630000
056400                                                                  05640000
056500*    IF H-HHA-SERV-THRU-DATE < 20070101                           05650000
056600*        MOVE '40' TO H-HHA-PAY-RTC                               05660000
056700*        GO TO 400-EXIT.                                          05670000
056800                                                                  05680000
056900     IF H-HHA-ADMIT-DATE >                                        05690000
057000        H-HHA-SERV-FROM-DATE                                      05700000
057100         MOVE '40' TO H-HHA-PAY-RTC                               05710000
057200         GO TO 400-EXIT.                                          05720000
057300                                                                  05730000
057400     IF (H-VALID-TOB-RAP  AND                                     05740000
057500        (H-HHA-HRG-INPUT-CODE (1) = SPACE))                       05750000
057600        MOVE '70' TO H-HHA-PAY-RTC                                05760000
057700        GO TO 400-EXIT.                                           05770000
057800                                                                  05780000
057900     IF (H-VALID-TOB-CLAIM AND                                    05790000
058000         (H-HHA-REVENUE-SUM1-6-QTY-ALL > 4 ) AND                  05800000
058100         (H-HHA-HRG-INPUT-CODE (1) = SPACE))                      05810000
058200        MOVE '75' TO H-HHA-PAY-RTC                                05820000
058300        GO TO 400-EXIT.                                           05830000
058400                                                                  05840000
058500     IF (H-VALID-TOB-CLAIM AND                                    05850000
058600         (H-HHA-REVENUE-CODE (1) = SPACE))                        05860000
058700        MOVE '85' TO H-HHA-PAY-RTC                                05870000
058800        GO TO 400-EXIT.                                           05880000
058900                                                                  05890000
059000     IF (H-VALID-TOB-CLAIM AND                                    05900000
059100         (H-HHA-HRG-INPUT-CODE (2) NOT = SPACES) AND              05910000
059200         (H-HHA-PEP-INDICATOR = 'Y') AND                          05920000
059300         (H-HHA-PEP-DAYS NOT NUMERIC OR                           05930000
059400          H-HHA-PEP-DAYS = ZEROES))                               05940000
059500        MOVE '15' TO H-HHA-PAY-RTC                                05950000
059600        GO TO 400-EXIT.                                           05960000
059700                                                                  05970000
059800     IF H-HHA-PAY-RTC NOT = 00 GO TO 400-EXIT.                    05980000
059900                                                                  05990000
060000***************************************************************   06000000
060100***************************************************************   06010000
060200*        THESE RATES & THRESHOLDS ARE APPLIED                 *   06020000
060300* FOR NON-RURAL AND  RURAL                                    *   06030000
060400***************************************************************   06040000
060500*   YEARCHANGE - CHANGED FOR 2017                             *   06050003
060600***************************************************************   06060000
060700* FOR NON RURAL NO DATA - TABLE 2                                 06070000
060800     MOVE 02931.63 TO   FED-EPISODE-RATE-AMT.                     06080003
060900     MOVE 01612.40 TO   OUTLIER-THRESHOLD-AMT.                    06090003
061000                                                                  06100000
061100*-------------------------------------------------------------*   06110000
061200*   YEARCHANGE - CHANGED FOR 2017                             *   06120003
061300*   WITH REPORTING DATA                                       *   06130000
061400*-------------------------------------------------------------*   06140000
061500     IF HHA-WITH-DATA-CHECK                                       06150000
061600        NEXT SENTENCE                                             06160000
061700     ELSE                                                         06170000
061800        GO TO NO-REPORTING-DATA.                                  06180000
061900                                                                  06190000
062000        IF HHA-CBSA-RURAL-CHECK                                   06200000
062100        OR HHA-CBSA-RURAL-CHECK-ALL                               06210000
062200*-------------------------------------------------------------*   06220000
062300*   YEARCHANGE - CHANGED FOR 2017                             *   06230003
062400*   RURAL, AND REPORTING DATA --  TABLE 7, 1ST GROUP, 2ND COL *   06240003
062500*-------------------------------------------------------------*   06250000
062600           MOVE 03079.67 TO   FED-EPISODE-RATE-AMT                06260003
062700           MOVE 01693.82 TO   OUTLIER-THRESHOLD-AMT               06270003
062800        ELSE                                                      06280000
062900*-------------------------------------------------------------*   06290000
063000*   YEARCHANGE - CHANGED FOR 2017                             *   06300003
063100*   NON RURAL, AND REPORTING DATA -- TABLE 1                  *   06310000
063200*-------------------------------------------------------------*   06320000
063300           MOVE 02989.97 TO   FED-EPISODE-RATE-AMT                06330003
063400           MOVE 01644.48 TO   OUTLIER-THRESHOLD-AMT.              06340003
063500                                                                  06350000
063600                                                                  06360000
063700      GO TO PROCESS-PAYMENT.                                      06370000
063800                                                                  06380000
063900 NO-REPORTING-DATA.                                               06390000
064000                                                                  06400000
064100        IF HHA-CBSA-RURAL-CHECK                                   06410000
064200        OR HHA-CBSA-RURAL-CHECK-ALL                               06420000
064300*-------------------------------------------------------------*   06430000
064400*   YEARCHANGE - CHANGED FOR 2017                             *   06440003
064500*   RURAL, AND NO REPORTING DATA - TABLE 8, 2ND GROUP, 2ND COL*   06450000
064600*-------------------------------------------------------------*   06460000
064700           MOVE 03019.58 TO   FED-EPISODE-RATE-AMT                06470003
064800           MOVE 01660.77 TO   OUTLIER-THRESHOLD-AMT               06480003
064900        GO TO PROCESS-PAYMENT.                                    06490000
065000                                                                  06500000
065100                                                                  06510000
065200*------------------------------------------------------           06520000
065300                                                                  06530000
065400                                                                  06540000
065500 PROCESS-PAYMENT.                                                 06550000
065600                                                                  06560000
065700*------------------------------------------------------           06570000
065800***************************************************************   06580000
065900                                                                  06590000
066000     IF H-VALID-TOB-RAP                                           06600000
066100        PERFORM 500-INITIAL-PAYMENT THRU 500-EXIT                 06610000
066200        GO TO 400-EXIT.                                           06620000
066300                                                                  06630000
066400     IF H-VALID-TOB-CLAIM                                         06640000
066500        PERFORM 1000-FINAL-PAYMENT THRU 1000-EXIT                 06650000
066600        GO TO 400-EXIT.                                           06660000
066700                                                                  06670000
066800     MOVE '10' TO H-HHA-PAY-RTC.                                  06680000
066900                                                                  06690000
067000                                                                  06700000
067100 400-EXIT.   EXIT.                                                06710000
067200                                                                  06720000
067300 500-INITIAL-PAYMENT.                                             06730000
067400                                                                  06740000
067500***************************************************************   06750000
067600*            TOB = 322 OR 332 INITIAL PAYMENT                     06760000
067700***************************************************************   06770000
067800                                                                  06780000
067900     IF  H-HHA-INIT-PAY-INDICATOR  = '0' OR '1' OR '2' OR '3'     06790000
068000         NEXT SENTENCE                                            06800000
068100     ELSE                                                         06810000
068200         MOVE '35' TO H-HHA-PAY-RTC                               06820000
068300         GO TO 500-EXIT.                                          06830000
068400                                                                  06840000
068500     IF  H-HHA-INIT-PAY-INDICATOR  = '1' OR '3'                   06850000
068600         MOVE '03' TO H-HHA-PAY-RTC                               06860000
068700         GO TO 500-EXIT.                                          06870000
068800                                                                  06880000
068900     COMPUTE FED-ADJ ROUNDED =                                    06890000
069000               H-HHA-HRG-WGTS (1) * FED-EPISODE-RATE-AMT.         06900000
069100                                                                  06910000
069200     COMPUTE FED-LABOR-ADJ ROUNDED =                              06920000
069300             WIR-CBSA-WAGEIND *                                   06930000
069400             LABOR-PERCENT *                                      06940000
069500             FED-ADJ.                                             06950000
069600                                                                  06960000
069700     COMPUTE FED-NON-LABOR-ADJ ROUNDED =                          06970000
069800              (NONLABOR-PERCENT * FED-ADJ).                       06980000
069900                                                                  06990000
070000     MOVE H-HHA-HRG-OUTPUT-CODE (1) TO WORK-HRG.                  07000000
070100                                                                  07010000
070200*         YEARCHANGE                              ===========**   07020000
070300                                                                  07030000
070400      PERFORM 10100-SUPPLY-ADD-ON-CALC  THRU 10100-EXIT.          07040000
070500                                                                  07050000
070600*         YEARCHANGE                              ===========**   07060000
070700                                                                  07070000
070800*    IF HHA-SERV-THRU-DATE > 20071231 AND                         07080000
070900*       HHA-SERV-FROM-DATE > 20071231                             07090000
071000*        NEXT SENTENCE                                            07100000
071100*    ELSE                                                         07110000
071200*        MOVE 0000000.00 TO FED-SUPPLY-ADJ.                       07120000
071300                                                                  07130000
071400                                                                  07140000
071500     IF H-HHA-SERV-FROM-DATE = H-HHA-ADMIT-DATE                   07150000
071600        COMPUTE H-HHA-TOTAL-PAYMENT ROUNDED =                     07160000
071700       (FED-LABOR-ADJ + FED-NON-LABOR-ADJ + FED-SUPPLY-ADJ) * .6  07170000
071800        MOVE H-HHA-TOTAL-PAYMENT TO H-HHA-HRG-PAY (1)             07180000
071900        MOVE '05' TO H-HHA-PAY-RTC                                07190000
072000     ELSE                                                         07200000
072001        COMPUTE H-HHA-TOTAL-PAYMENT ROUNDED =                     07200116
072200       (FED-LABOR-ADJ + FED-NON-LABOR-ADJ + FED-SUPPLY-ADJ) * .5  07220000
072300        MOVE H-HHA-TOTAL-PAYMENT TO H-HHA-HRG-PAY (1)             07230000
072400        MOVE '04' TO H-HHA-PAY-RTC.                               07240000
072500                                                                  07250000
072600 500-EXIT.   EXIT.                                                07260000
072700                                                                  07270000
072800 1000-FINAL-PAYMENT.                                              07280000
072900                                                                  07290000
073000     IF H-HHA-REVENUE-QTY-COV-VISITS (1) NOT NUMERIC              07300000
073100        MOVE ZEROES TO H-HHA-REVENUE-QTY-COV-VISITS (1).          07310000
073200     IF H-HHA-REVENUE-QTY-COV-VISITS (2) NOT NUMERIC              07320000
073300        MOVE ZEROES TO H-HHA-REVENUE-QTY-COV-VISITS (2).          07330000
073400     IF H-HHA-REVENUE-QTY-COV-VISITS (3) NOT NUMERIC              07340000
073500        MOVE ZEROES TO H-HHA-REVENUE-QTY-COV-VISITS (3).          07350000
073600     IF H-HHA-REVENUE-QTY-COV-VISITS (4) NOT NUMERIC              07360000
073700        MOVE ZEROES TO H-HHA-REVENUE-QTY-COV-VISITS (4).          07370000
073800     IF H-HHA-REVENUE-QTY-COV-VISITS (5) NOT NUMERIC              07380000
073900        MOVE ZEROES TO H-HHA-REVENUE-QTY-COV-VISITS (5).          07390000
074000     IF H-HHA-REVENUE-QTY-COV-VISITS (6) NOT NUMERIC              07400000
074100        MOVE ZEROES TO H-HHA-REVENUE-QTY-COV-VISITS (6).          07410000
074110                                                                  07411000
074120     IF H-HHA-REVENUE-QTY-OUTL-UNITS (1) NOT NUMERIC              07412000
074130        MOVE ZEROES TO H-HHA-REVENUE-QTY-OUTL-UNITS (1).          07413000
074140     IF H-HHA-REVENUE-QTY-OUTL-UNITS (2) NOT NUMERIC              07414000
074150        MOVE ZEROES TO H-HHA-REVENUE-QTY-OUTL-UNITS (2).          07415000
074160     IF H-HHA-REVENUE-QTY-OUTL-UNITS (3) NOT NUMERIC              07416000
074170        MOVE ZEROES TO H-HHA-REVENUE-QTY-OUTL-UNITS (3).          07417000
074180     IF H-HHA-REVENUE-QTY-OUTL-UNITS (4) NOT NUMERIC              07418000
074190        MOVE ZEROES TO H-HHA-REVENUE-QTY-OUTL-UNITS (4).          07419000
074191     IF H-HHA-REVENUE-QTY-OUTL-UNITS (5) NOT NUMERIC              07419100
074192        MOVE ZEROES TO H-HHA-REVENUE-QTY-OUTL-UNITS (5).          07419200
074193     IF H-HHA-REVENUE-QTY-OUTL-UNITS (6) NOT NUMERIC              07419300
074194        MOVE ZEROES TO H-HHA-REVENUE-QTY-OUTL-UNITS (6).          07419400
074200                                                                  07420000
074300     COMPUTE H-HHA-REVENUE-SUM1-3-QTY-THR ROUNDED =               07430000
074400             H-HHA-REVENUE-QTY-COV-VISITS (1) +                   07440000
074500             H-HHA-REVENUE-QTY-COV-VISITS (2) +                   07450000
074600             H-HHA-REVENUE-QTY-COV-VISITS (3).                    07460000
074700     COMPUTE H-HHA-REVENUE-SUM1-6-QTY-ALL ROUNDED =               07470000
074800             H-HHA-REVENUE-QTY-COV-VISITS (1) +                   07480000
074900             H-HHA-REVENUE-QTY-COV-VISITS (2) +                   07490000
075000             H-HHA-REVENUE-QTY-COV-VISITS (3) +                   07500000
075100             H-HHA-REVENUE-QTY-COV-VISITS (4) +                   07510000
075200             H-HHA-REVENUE-QTY-COV-VISITS (5) +                   07520000
075300             H-HHA-REVENUE-QTY-COV-VISITS (6).                    07530000
075400                                                                  07540000
075500     MOVE H-HHA-HRG-OUTPUT-CODE (1) TO WORK-HRG.                  07550000
075510                                                                  07551015
075700     IF H-HHA-REVENUE-SUM1-6-QTY-ALL < 5                          07570000
075800       NEXT SENTENCE                                              07580000
075900     ELSE                                                         07590000
076000       GO TO PEP-CHECK.                                           07600000
076100                                                                  07610000
076200*01  LUPA-ADD-ON                                                  07620000
076300*01  LUPA-ADD-ON-RURAL                                            07630000
076400*01  LUPA-ADD-ON-2PERCENT                                         07640000
076500*01  LUPA-ADD-ON-2PERCENT-RUR                                     07650000
076600                                                                  07660000
076700     IF HHA-WITH-DATA-CHECK                                       07670000
076800        IF HHA-CBSA-RURAL-CHECK                                   07680000
076900        OR HHA-CBSA-RURAL-CHECK-ALL                               07690000
077000         COMPUTE LUPA-LABOR-ADJ ROUNDED =                         07700000
077100                 WIR-CBSA-WAGEIND *                               07710000
077200                 LABOR-PERCENT *                                  07720000
077300                 LUPA-ADD-ON-2PERCENT-RUR                         07730000
077400        ELSE                                                      07740000
077500         COMPUTE LUPA-LABOR-ADJ ROUNDED =                         07750000
077600                 WIR-CBSA-WAGEIND *                               07760000
077700                 LABOR-PERCENT *                                  07770000
077800                 LUPA-ADD-ON-2PERCENT                             07780000
077900        END-IF                                                    07790000
078000     ELSE                                                         07800000
078100        IF HHA-CBSA-RURAL-CHECK                                   07810000
078200        OR HHA-CBSA-RURAL-CHECK-ALL                               07820000
078300         COMPUTE LUPA-LABOR-ADJ ROUNDED =                         07830000
078400                 WIR-CBSA-WAGEIND *                               07840000
078500                 LABOR-PERCENT *                                  07850000
078600                 LUPA-ADD-ON-RURAL                                07860000
078700        ELSE                                                      07870000
078800         COMPUTE LUPA-LABOR-ADJ ROUNDED =                         07880000
078900                 WIR-CBSA-WAGEIND *                               07890000
079000                 LABOR-PERCENT *                                  07900000
079100                 LUPA-ADD-ON                                      07910000
079200        END-IF                                                    07920000
079300     END-IF.                                                      07930000
079400                                                                  07940000
079500     IF HHA-WITH-DATA-CHECK                                       07950000
079600        IF HHA-CBSA-RURAL-CHECK                                   07960000
079700        OR HHA-CBSA-RURAL-CHECK-ALL                               07970000
079800         COMPUTE LUPA-NON-LABOR-ADJ ROUNDED =                     07980000
079900                 NONLABOR-PERCENT *                               07990000
080000                 LUPA-ADD-ON-2PERCENT-RUR                         08000000
080100        ELSE                                                      08010000
080200         COMPUTE LUPA-NON-LABOR-ADJ ROUNDED =                     08020000
080300                 NONLABOR-PERCENT *                               08030000
080400                  LUPA-ADD-ON-2PERCENT                            08040000
080500        END-IF                                                    08050000
080600     ELSE                                                         08060000
080700        IF HHA-CBSA-RURAL-CHECK                                   08070000
080800        OR HHA-CBSA-RURAL-CHECK-ALL                               08080000
080900         COMPUTE LUPA-NON-LABOR-ADJ ROUNDED =                     08090000
081000                 NONLABOR-PERCENT *                               08100000
081100                 LUPA-ADD-ON-RURAL                                08110000
081200        ELSE                                                      08120000
081300         COMPUTE LUPA-NON-LABOR-ADJ ROUNDED =                     08130000
081400                 NONLABOR-PERCENT *                               08140000
081500                 LUPA-ADD-ON                                      08150000
081600        END-IF                                                    08160000
081700     END-IF.                                                      08170000
081800                                                                  08180000
081900                                                                  08190000
082000*    IF H-HHA-ADMIT-DATE = H-HHA-SERV-FROM-DATE AND               08200000
082100*        WORK-HRG1 = '1' OR '2'                                   08210000
082200*       COMPUTE H-HHA-LUPA-ADD-ON-PAYMENT ROUNDED =               08220000
082300*         LUPA-LABOR-ADJ + LUPA-NON-LABOR-ADJ                     08230000
082400*    ELSE                                                         08240000
082500*       MOVE 0 TO  H-HHA-LUPA-ADD-ON-PAYMENT.                     08250000
082600*                                                                 08260000
082700***         VARYING SUB1 FROM 1 BY 1 UNTIL                        08270000
082800***         (H-HHA-REVENUE-CODE (SUB1) = SPACES OR                08280000
082900***          SUB1 > 6.                                            08290000
083000                                                                  08300000
083100                                                                  08310000
083200**   CHANGE MISSING DATES TO DEFAULT FOR EARLIEST DATE COMPARE ** 08320000
083300                                                                  08330000
083400     IF H-HHA-REVENUE-EARLIEST-DATE (1) = 0                       08340000
083500        MOVE 29990101 TO H-HHA-REVENUE-EARLIEST-DATE (1).         08350000
083600                                                                  08360000
083700     IF H-HHA-REVENUE-EARLIEST-DATE (3) = 0                       08370000
083800        MOVE 29990101 TO H-HHA-REVENUE-EARLIEST-DATE (3).         08380000
083900                                                                  08390000
084000     IF H-HHA-REVENUE-EARLIEST-DATE (4) = 0                       08400000
084100        MOVE 29990101 TO H-HHA-REVENUE-EARLIEST-DATE (4).         08410000
084200                                                                  08420000
084300*    IF REVENUE EARLIEST DATES = ALL 9'S THEN                     08430000
084400*    LUPA ADD ON DOES NOT CALCULATE                               08440000
084500                                                                  08450000
084600     IF (H-HHA-REVENUE-EARLIEST-DATE (1) = 99999999 AND           08460000
084700         H-HHA-REVENUE-EARLIEST-DATE (3) = 99999999 AND           08470000
084800         H-HHA-REVENUE-EARLIEST-DATE (4) = 99999999)              08480000
084900         MOVE 0 TO  H-HHA-LUPA-ADD-ON-PAYMENT                     08490000
085000                    H-HHA-REVENUE-ADD-ON-VISIT-AMT (1)            08500000
085100                    H-HHA-REVENUE-ADD-ON-VISIT-AMT (2)            08510000
085200                    H-HHA-REVENUE-ADD-ON-VISIT-AMT (3)            08520000
085300                    H-HHA-REVENUE-ADD-ON-VISIT-AMT (4)            08530000
085400                    H-HHA-REVENUE-ADD-ON-VISIT-AMT (5)            08540000
085500         MOVE 0 TO  H-HHA-LUPA-ADD-ON-PAYMENT                     08550000
085600           GO TO RTC-CHECK.                                       08560000
085700                                                                  08570000
085800*    IF  REVENUE EARLIEST DATES = DEFAULT THEN                    08580000
085900*    LUPA ADD ON DOES NOT CALCULATE                               08590000
086000                                                                  08600000
086100     IF (H-HHA-REVENUE-EARLIEST-DATE (1) = 29990101 AND           08610000
086200         H-HHA-REVENUE-EARLIEST-DATE (3) = 29990101 AND           08620000
086300         H-HHA-REVENUE-EARLIEST-DATE (4) = 29990101)              08630000
086400         MOVE 0 TO  H-HHA-LUPA-ADD-ON-PAYMENT                     08640000
086500                    H-HHA-REVENUE-ADD-ON-VISIT-AMT (1)            08650000
086600                    H-HHA-REVENUE-ADD-ON-VISIT-AMT (2)            08660000
086700                    H-HHA-REVENUE-ADD-ON-VISIT-AMT (3)            08670000
086800                    H-HHA-REVENUE-ADD-ON-VISIT-AMT (4)            08680000
086900                    H-HHA-REVENUE-ADD-ON-VISIT-AMT (5)            08690000
087000         MOVE 0 TO  H-HHA-LUPA-ADD-ON-PAYMENT                     08700000
087100           GO TO RTC-CHECK.                                       08710000
087200                                                                  08720000
087300*    IF PT OCCURS ON EARLIEST DATE THEN LUPA ADD ON APPLIES TO    08730000
087400*       PT                                                        08740000
087500                                                                  08750000
087600     IF (H-HHA-REVENUE-EARLIEST-DATE (1) <                        08760000
087700         H-HHA-REVENUE-EARLIEST-DATE (3)) AND                     08770000
087800        (H-HHA-REVENUE-EARLIEST-DATE (1) <                        08780000
087900         H-HHA-REVENUE-EARLIEST-DATE (4))                         08790000
088000        COMPUTE  H-HHA-REVENUE-ADD-ON-VISIT-AMT (1) ROUNDED =     08800000
088100           H-HHA-REVENUE-DOLL-RATE (1) * LUPA-ADD-ON-PT1          08810000
088200        COMPUTE H-HHA-LUPA-ADD-ON-PAYMENT ROUNDED =               08820000
088300           H-HHA-LUPA-ADD-ON-PAYMENT +                            08830000
088400           H-HHA-REVENUE-ADD-ON-VISIT-AMT (1)                     08840000
088500           GO TO RTC-CHECK.                                       08850000
088600                                                                  08860000
088700*    IF SLT OCCURS ON EARLIEST DATE THEN LUPA ADD ON APPLIES TO   08870000
088800*       SLT                                                       08880000
088900                                                                  08890000
089000     IF (H-HHA-REVENUE-EARLIEST-DATE (3) <                        08900000
089100         H-HHA-REVENUE-EARLIEST-DATE (1)) AND                     08910000
089200        (H-HHA-REVENUE-EARLIEST-DATE (3) <                        08920000
089300         H-HHA-REVENUE-EARLIEST-DATE (4))                         08930000
089400        COMPUTE  H-HHA-REVENUE-ADD-ON-VISIT-AMT (3) ROUNDED =     08940000
089500           H-HHA-REVENUE-DOLL-RATE (3) * LUPA-ADD-ON-SLT3         08950000
089600        COMPUTE H-HHA-LUPA-ADD-ON-PAYMENT ROUNDED =               08960000
089700           H-HHA-LUPA-ADD-ON-PAYMENT +                            08970000
089800           H-HHA-REVENUE-ADD-ON-VISIT-AMT (3)                     08980000
089900           GO TO RTC-CHECK.                                       08990000
090000                                                                  09000000
090100*    IF SN OCCURS ON EARLIEST DATE THEN LUPA ADD ON APPLIES TO    09010000
090200*       SN                                                        09020000
090300                                                                  09030000
090400     IF (H-HHA-REVENUE-EARLIEST-DATE (4) <                        09040000
090500         H-HHA-REVENUE-EARLIEST-DATE (1)) AND                     09050000
090600        (H-HHA-REVENUE-EARLIEST-DATE (4) <                        09060000
090700         H-HHA-REVENUE-EARLIEST-DATE (3))                         09070000
090800        COMPUTE  H-HHA-REVENUE-ADD-ON-VISIT-AMT (4) ROUNDED =     09080000
090900           H-HHA-REVENUE-DOLL-RATE (4) * LUPA-ADD-ON-SN4          09090000
091000        COMPUTE H-HHA-LUPA-ADD-ON-PAYMENT ROUNDED =               09100000
091100           H-HHA-LUPA-ADD-ON-PAYMENT +                            09110000
091200           H-HHA-REVENUE-ADD-ON-VISIT-AMT (4)                     09120000
091300           GO TO RTC-CHECK.                                       09130000
091400                                                                  09140000
091500*    IF PT  EARLIEST DATE = SLT EARLIEST AND = SN EARLIEST        09150000
091600*    THEN LUPA ADD ON APPLIES TO SN                               09160000
091700*                                                                 09170000
091800                                                                  09180000
091900     IF (H-HHA-REVENUE-EARLIEST-DATE (1) =                        09190000
092000         H-HHA-REVENUE-EARLIEST-DATE (3)) AND                     09200000
092100        (H-HHA-REVENUE-EARLIEST-DATE (1) =                        09210000
092200         H-HHA-REVENUE-EARLIEST-DATE (4))                         09220000
092300        COMPUTE  H-HHA-REVENUE-ADD-ON-VISIT-AMT (4) ROUNDED =     09230000
092400           H-HHA-REVENUE-DOLL-RATE (4) * LUPA-ADD-ON-SN4          09240000
092500        COMPUTE H-HHA-LUPA-ADD-ON-PAYMENT ROUNDED =               09250000
092600           H-HHA-LUPA-ADD-ON-PAYMENT +                            09260000
092700           H-HHA-REVENUE-ADD-ON-VISIT-AMT (4)                     09270000
092800           GO TO RTC-CHECK.                                       09280000
092900                                                                  09290000
093000*    IF PT EARLIEST DATE = SN EARLIEST                            09300000
093100*    THEN LUPA ADD ON APPLIES TO SN                               09310000
093200*                                                                 09320000
093300                                                                  09330000
093400     IF (H-HHA-REVENUE-EARLIEST-DATE (1) =                        09340000
093500         H-HHA-REVENUE-EARLIEST-DATE (4))                         09350000
093600        COMPUTE  H-HHA-REVENUE-ADD-ON-VISIT-AMT (4) ROUNDED =     09360000
093700           H-HHA-REVENUE-DOLL-RATE (4) * LUPA-ADD-ON-SN4          09370000
093800        COMPUTE H-HHA-LUPA-ADD-ON-PAYMENT ROUNDED =               09380000
093900           H-HHA-LUPA-ADD-ON-PAYMENT +                            09390000
094000           H-HHA-REVENUE-ADD-ON-VISIT-AMT (4)                     09400000
094100           GO TO RTC-CHECK.                                       09410000
094200                                                                  09420000
094300*    IF SLT EARLIEST DATE = SN EARLIEST                           09430000
094400*    THEN LUPA ADD ON APPLIES TO SN                               09440000
094500*                                                                 09450000
094600                                                                  09460000
094700     IF (H-HHA-REVENUE-EARLIEST-DATE (3) =                        09470000
094800         H-HHA-REVENUE-EARLIEST-DATE (4))                         09480000
094900        COMPUTE  H-HHA-REVENUE-ADD-ON-VISIT-AMT (4) ROUNDED =     09490000
095000           H-HHA-REVENUE-DOLL-RATE (4) * LUPA-ADD-ON-SN4          09500000
095100        COMPUTE H-HHA-LUPA-ADD-ON-PAYMENT ROUNDED =               09510000
095200           H-HHA-LUPA-ADD-ON-PAYMENT +                            09520000
095300           H-HHA-REVENUE-ADD-ON-VISIT-AMT (4)                     09530000
095400           GO TO RTC-CHECK.                                       09540000
095500                                                                  09550000
095600*    IF PT  EARLIEST DATE = SLT EARLIEST                          09560000
095700*    THEN LUPA ADD ON APPLIES TO PT                               09570000
095800*                                                                 09580000
095900                                                                  09590000
096000     IF (H-HHA-REVENUE-EARLIEST-DATE (1) =                        09600000
096100         H-HHA-REVENUE-EARLIEST-DATE (3))                         09610000
096200        COMPUTE  H-HHA-REVENUE-ADD-ON-VISIT-AMT (1) ROUNDED =     09620000
096300           H-HHA-REVENUE-DOLL-RATE (1) * LUPA-ADD-ON-PT1          09630000
096400        COMPUTE H-HHA-LUPA-ADD-ON-PAYMENT ROUNDED =               09640000
096500           H-HHA-LUPA-ADD-ON-PAYMENT +                            09650000
096600           H-HHA-REVENUE-ADD-ON-VISIT-AMT (1)                     09660000
096700           GO TO RTC-CHECK.                                       09670000
096800                                                                  09680000
096900                                                                  09690000
097000 RTC-CHECK.                                                       09700000
097100************************************************************      09710000
097200* ZERO OUT LUPA ADD-ON PAYMENT WHEN CERTAIN CONDITIONS MET *      09720000
097300************************************************************      09730000
097400                                                                  09740000
097500     MOVE H-HHA-HRG-OUTPUT-CODE (1) TO WORK-HRG.                  09750000
097600                                                                  09760000
097700     IF H-HHA-ADMIT-DATE NOT = H-HHA-SERV-FROM-DATE               09770000
097800         MOVE 0 TO  H-HHA-LUPA-ADD-ON-PAYMENT                     09780000
097900                    H-HHA-REVENUE-ADD-ON-VISIT-AMT (1)            09790000
098000                    H-HHA-REVENUE-ADD-ON-VISIT-AMT (2)            09800000
098100                    H-HHA-REVENUE-ADD-ON-VISIT-AMT (3)            09810000
098200                    H-HHA-REVENUE-ADD-ON-VISIT-AMT (4)            09820000
098300                    H-HHA-REVENUE-ADD-ON-VISIT-AMT (5).           09830000
098400*                                                                 09840000
098500     IF (WORK-HRG1 =  '1' OR '2')                                 09850000
098600       NEXT SENTENCE                                              09860000
098700     ELSE                                                         09870000
098800         MOVE 0 TO  H-HHA-LUPA-ADD-ON-PAYMENT                     09880000
098900                    H-HHA-REVENUE-ADD-ON-VISIT-AMT (1)            09890000
099000                    H-HHA-REVENUE-ADD-ON-VISIT-AMT (2)            09900000
099100                    H-HHA-REVENUE-ADD-ON-VISIT-AMT (3)            09910000
099200                    H-HHA-REVENUE-ADD-ON-VISIT-AMT (4)            09920000
099300                    H-HHA-REVENUE-ADD-ON-VISIT-AMT (5).           09930000
099400*                                                                 09940000
099500     IF (H-HHA-LUPA-SRC-ADM = 'B' OR 'C')                         09950000
099600         MOVE 0 TO  H-HHA-LUPA-ADD-ON-PAYMENT                     09960000
099700                    H-HHA-REVENUE-ADD-ON-VISIT-AMT (1)            09970000
099800                    H-HHA-REVENUE-ADD-ON-VISIT-AMT (2)            09980000
099900                    H-HHA-REVENUE-ADD-ON-VISIT-AMT (3)            09990000
100000                    H-HHA-REVENUE-ADD-ON-VISIT-AMT (4)            10000000
100100                    H-HHA-REVENUE-ADD-ON-VISIT-AMT (5).           10010000
100200*                                                                 10020000
100300                                                                  10030000
100400     IF H-HHA-RECODE-IND  = '2'                                   10040000
100500         MOVE 0 TO  H-HHA-LUPA-ADD-ON-PAYMENT                     10050000
100600                    H-HHA-REVENUE-ADD-ON-VISIT-AMT (1)            10060000
100700                    H-HHA-REVENUE-ADD-ON-VISIT-AMT (2)            10070000
100800                    H-HHA-REVENUE-ADD-ON-VISIT-AMT (3)            10080000
100900                    H-HHA-REVENUE-ADD-ON-VISIT-AMT (4)            10090000
101000                    H-HHA-REVENUE-ADD-ON-VISIT-AMT (5).           10100000
101100                                                                  10110000
101200*                                                                 10120000
101300     IF H-HHA-REVENUE-SUM1-6-QTY-ALL = 0                          10130000
101400         MOVE 0 TO  H-HHA-LUPA-ADD-ON-PAYMENT                     10140000
101500                    H-HHA-REVENUE-ADD-ON-VISIT-AMT (1)            10150000
101600                    H-HHA-REVENUE-ADD-ON-VISIT-AMT (2)            10160000
101700                    H-HHA-REVENUE-ADD-ON-VISIT-AMT (3)            10170000
101800                    H-HHA-REVENUE-ADD-ON-VISIT-AMT (4)            10180000
101900                    H-HHA-REVENUE-ADD-ON-VISIT-AMT (5).           10190000
102000*                                                                 10200000
102100        PERFORM 1050-LUPA THRU 1050-EXIT.                         10210000
102200                                                                  10220000
102300        IF H-HHA-LUPA-ADD-ON-PAYMENT > 0                          10230000
102400           MOVE '14' TO H-HHA-PAY-RTC                             10240000
102500        ELSE                                                      10250000
102600           MOVE '06' TO H-HHA-PAY-RTC                             10260000
102700        END-IF.                                                   10270000
102800                                                                  10280000
102900**   CHANGE DATES WITH DEFAULT BACK TO ZERO FOR PASSBACK       ** 10290000
103000                                                                  10300000
103100     IF H-HHA-REVENUE-EARLIEST-DATE (1) = 29990101                10310000
103200        MOVE 0 TO H-HHA-REVENUE-EARLIEST-DATE (1).                10320000
103300                                                                  10330000
103400     IF H-HHA-REVENUE-EARLIEST-DATE (3) = 29990101                10340000
103500        MOVE 0 TO H-HHA-REVENUE-EARLIEST-DATE (3).                10350000
103600                                                                  10360000
103700     IF H-HHA-REVENUE-EARLIEST-DATE (4) = 29990101                10370000
103800        MOVE 0 TO H-HHA-REVENUE-EARLIEST-DATE (4).                10380000
103900                                                                  10390000
104000                                                                  10400000
104100        COMPUTE H-HHA-TOTAL-PAYMENT   ROUNDED =                   10410000
104200                H-HHA-REVENUE-COST (1) +                          10420000
104300                H-HHA-REVENUE-ADD-ON-VISIT-AMT (1) +              10430000
104400                H-HHA-REVENUE-COST (2) +                          10440000
104500                H-HHA-REVENUE-ADD-ON-VISIT-AMT (2) +              10450000
104600                H-HHA-REVENUE-COST (3) +                          10460000
104700                H-HHA-REVENUE-ADD-ON-VISIT-AMT (3) +              10470000
104800                H-HHA-REVENUE-COST (4) +                          10480000
104900                H-HHA-REVENUE-ADD-ON-VISIT-AMT (4) +              10490000
105000                H-HHA-REVENUE-COST (5) +                          10500000
105100                H-HHA-REVENUE-ADD-ON-VISIT-AMT (5) +              10510000
105200                H-HHA-REVENUE-COST (6) +                          10520000
105300                H-HHA-REVENUE-ADD-ON-VISIT-AMT (6).               10530000
105500        GO TO 1000-EXIT.                                          10550000
105600                                                                  10560000
105700 PEP-CHECK.                                                       10570000
105710                                                                  10571011
105900     IF (H-HHA-PEP-INDICATOR NOT = 'Y' AND NOT = 'N')             10590000
106000         MOVE '20' TO H-HHA-PAY-RTC                               10600000
106100         GO TO 1000-EXIT.                                         10610000
106200                                                                  10620000
106300      PERFORM 1100-ADD-HRG-DAYS THRU 1100-EXIT                    10630000
106400         VARYING CO1 FROM 1 BY 1 UNTIL CO1 > 6.                   10640000
106500                                                                  10650000
106600      IF WK-HRG-NO-OF-DAYS-TOT > 60                               10660000
106700         MOVE '16' TO H-HHA-PAY-RTC                               10670000
106800         GO TO 1000-EXIT.                                         10680000
106900                                                                  10690000
107000                                                                  10700000
107100*********  HRG  PAYMENT   *******************                     10710000
107200                                                                  10720000
107300***  IF H-HHA-REVENUE-SUM1-3-QTY-THR > 9                          10730000
107400        IF H-HHA-HRG-INPUT-CODE (2) = SPACES                      10740000
107500           IF H-HHA-PEP-INDICATOR = 'N'                           10750000
107600              PERFORM 3000-PEP-N-ADJUST THRU 3000-EXIT            10760000
107700                  VARYING CO1 FROM 1 BY 1 UNTIL                   10770000
107800*                 (H-HHA-HRG-INPUT-CODE (CO1) = SPACES OR         10780000
107900                   CO1 > 6                                        10790000
108000               PERFORM 7000-OUTLIER-PAYMENT THRU 7000-EXIT        10800000
108100               GO TO 1000-EXIT.                                   10810000
108200                                                                  10820000
108300                                                                  10830000
108400***  IF H-HHA-REVENUE-SUM1-3-QTY-THR > 9                          10840000
108500        IF H-HHA-HRG-INPUT-CODE (2) = SPACES                      10850000
108600           IF H-HHA-PEP-INDICATOR = 'Y'                           10860000
108700              PERFORM 4000-PEP-Y-ADJUST THRU 4000-EXIT            10870000
108800                  VARYING CO1 FROM 1 BY 1 UNTIL                   10880000
108900*                 (H-HHA-HRG-INPUT-CODE (CO1) = SPACES OR         10890000
109000                   CO1 > 6                                        10900000
109100               PERFORM 7000-OUTLIER-PAYMENT THRU 7000-EXIT        10910000
109200               GO TO 1000-EXIT.                                   10920000
109300                                                                  10930000
109400**** IF H-HHA-REVENUE-SUM1-3-QTY-THR > 9                          10940000
109500        IF H-HHA-HRG-INPUT-CODE (2) NOT = SPACES                  10950000
109600           IF H-HHA-PEP-INDICATOR = 'N'                           10960000
109700              PERFORM 5000-PEP-N-ADJUST THRU 5000-EXIT            10970000
109800                  VARYING CO1 FROM 1 BY 1 UNTIL                   10980000
109900*                 (H-HHA-HRG-INPUT-CODE (CO1) = SPACES OR         10990000
110000                   CO1 > 6                                        11000000
110100               PERFORM 7000-OUTLIER-PAYMENT THRU 7000-EXIT        11010000
110200               GO TO 1000-EXIT.                                   11020000
110300                                                                  11030000
110400**** IF H-HHA-REVENUE-SUM1-3-QTY-THR > 9                          11040000
110500        IF H-HHA-HRG-INPUT-CODE (2) NOT = SPACES                  11050000
110600           IF H-HHA-PEP-INDICATOR = 'Y'                           11060000
110700              PERFORM 6000-PEP-Y-ADJUST THRU 6000-EXIT            11070000
110800                  VARYING CO1 FROM 1 BY 1 UNTIL                   11080000
110900*                 (H-HHA-HRG-INPUT-CODE (CO1) = SPACES OR         11090000
111000                   CO1 > 6                                        11100000
111100               PERFORM 7000-OUTLIER-PAYMENT THRU 7000-EXIT        11110000
111200               GO TO 1000-EXIT.                                   11120000
111300                                                                  11130000
111400                                                                  11140000
111500      MOVE '20' TO H-HHA-PAY-RTC.                                 11150000
111600                                                                  11160000
111700 1000-EXIT.  EXIT.                                                11170000
111800 1050-LUPA.                                                       11180000
111900                                                                  11190000
112000***************************************************************   11200000
112100*                    LUPA PAYMENT                                 11210000
112200***************************************************************   11220000
112300                                                                  11230000
112400*    IF H-HHA-REVENUE-QTY-COV-VISITS (1) = 0                      11240000
112500*       GO TO 1050-EXIT.                                          11250000
112600                                                                  11260000
112700     MOVE H-HHA-HRG-OUTPUT-CODE (1) TO WORK-HRG.                  11270000
112800                                                                  11280000
112900     COMPUTE FED-ADJ1 ROUNDED =                                   11290000
113000            (H-HHA-REVENUE-QTY-COV-VISITS (1) *                   11300000
113100             H-HHA-REVENUE-DOLL-RATE (1)).                        11310000
113200                                                                  11320000
113300     COMPUTE FED-LUPA-ADJ1 ROUNDED =                              11330000
113400             H-HHA-REVENUE-ADD-ON-VISIT-AMT (1).                  11340000
113500                                                                  11350000
113600     COMPUTE FED-LABOR-ADJ1 ROUNDED =                             11360000
113700             WIR-CBSA-WAGEIND *                                   11370000
113800             LABOR-PERCENT *                                      11380000
113900             FED-ADJ1.                                            11390000
114000                                                                  11400000
114100     COMPUTE FED-LABOR-LUPA-ADJ1 ROUNDED =                        11410000
114200             WIR-CBSA-WAGEIND *                                   11420000
114300             LABOR-PERCENT *                                      11430000
114400             FED-LUPA-ADJ1.                                       11440000
114500                                                                  11450000
114600     COMPUTE FED-NON-LABOR-ADJ1 ROUNDED =                         11460000
114700             NONLABOR-PERCENT *                                   11470000
114800             FED-ADJ1.                                            11480000
114900                                                                  11490000
115000     COMPUTE FED-NON-LABOR-LUPA-ADJ1 ROUNDED =                    11500000
115100             NONLABOR-PERCENT *                                   11510000
115200             FED-LUPA-ADJ1.                                       11520000
115300                                                                  11530000
115400     COMPUTE H-HHA-REVENUE-COST (1) ROUNDED =                     11540000
115500             (FED-LABOR-ADJ1 + FED-NON-LABOR-ADJ1).               11550000
115700     COMPUTE H-HHA-REVENUE-ADD-ON-VISIT-AMT (1) ROUNDED =         11570000
115800             (FED-LABOR-LUPA-ADJ1 + FED-NON-LABOR-LUPA-ADJ1).     11580000
115900                                                                  11590000
116000     COMPUTE FED-ADJ2 ROUNDED =                                   11600000
116100            (H-HHA-REVENUE-QTY-COV-VISITS (2) *                   11610000
116200             H-HHA-REVENUE-DOLL-RATE (2)).                        11620000
116300                                                                  11630000
116400     COMPUTE FED-LABOR-ADJ2 ROUNDED =                             11640000
116500             WIR-CBSA-WAGEIND *                                   11650000
116600             LABOR-PERCENT *                                      11660000
116700             FED-ADJ2.                                            11670000
116830                                                                  11683004
116900     COMPUTE FED-NON-LABOR-ADJ2 ROUNDED =                         11690000
117000             NONLABOR-PERCENT *                                   11700000
117100             FED-ADJ2.                                            11710000
117110                                                                  11711004
117300     COMPUTE H-HHA-REVENUE-COST (2) ROUNDED =                     11730000
117400             (FED-LABOR-ADJ2 + FED-NON-LABOR-ADJ2).               11740000
117500                                                                  11750000
117600     COMPUTE FED-ADJ3 ROUNDED =                                   11760000
117700            (H-HHA-REVENUE-QTY-COV-VISITS (3) *                   11770000
117800             H-HHA-REVENUE-DOLL-RATE (3)).                        11780000
117900                                                                  11790000
118000     COMPUTE FED-LUPA-ADJ3 ROUNDED =                              11800000
118100             H-HHA-REVENUE-ADD-ON-VISIT-AMT (3).                  11810000
118200                                                                  11820000
118300     COMPUTE FED-LABOR-ADJ3 ROUNDED =                             11830000
118400             WIR-CBSA-WAGEIND *                                   11840000
118500             LABOR-PERCENT *                                      11850000
118600             FED-ADJ3.                                            11860000
118700                                                                  11870000
118800     COMPUTE FED-LABOR-LUPA-ADJ3 ROUNDED =                        11880000
118900             WIR-CBSA-WAGEIND *                                   11890000
119000             LABOR-PERCENT *                                      11900000
119100             FED-LUPA-ADJ3.                                       11910000
119200                                                                  11920000
119300     COMPUTE FED-NON-LABOR-ADJ3 ROUNDED =                         11930000
119400             NONLABOR-PERCENT *                                   11940000
119500             FED-ADJ3.                                            11950000
119600                                                                  11960000
119700     COMPUTE FED-NON-LABOR-LUPA-ADJ3 ROUNDED =                    11970000
119800             NONLABOR-PERCENT *                                   11980000
119900             FED-LUPA-ADJ3.                                       11990000
120000                                                                  12000000
120100     COMPUTE H-HHA-REVENUE-COST (3) ROUNDED =                     12010000
120200             (FED-LABOR-ADJ3 + FED-NON-LABOR-ADJ3).               12020000
120300                                                                  12030000
120400     COMPUTE H-HHA-REVENUE-ADD-ON-VISIT-AMT (3) ROUNDED =         12040000
120500             (FED-LABOR-LUPA-ADJ3 + FED-NON-LABOR-LUPA-ADJ3).     12050000
120600                                                                  12060000
120700     COMPUTE FED-ADJ4 ROUNDED =                                   12070000
120800            (H-HHA-REVENUE-QTY-COV-VISITS (4) *                   12080000
120900             H-HHA-REVENUE-DOLL-RATE (4)).                        12090000
121000                                                                  12100000
121100     COMPUTE FED-LUPA-ADJ4 ROUNDED =                              12110000
121200             H-HHA-REVENUE-ADD-ON-VISIT-AMT (4).                  12120000
121300                                                                  12130000
121400     COMPUTE FED-LABOR-ADJ4 ROUNDED =                             12140000
121500             WIR-CBSA-WAGEIND *                                   12150000
121600             LABOR-PERCENT *                                      12160000
121700             FED-ADJ4.                                            12170000
121800                                                                  12180000
121900     COMPUTE FED-LABOR-LUPA-ADJ4 ROUNDED =                        12190000
122000             WIR-CBSA-WAGEIND *                                   12200000
122100             LABOR-PERCENT *                                      12210000
122200             FED-LUPA-ADJ4.                                       12220000
122300                                                                  12230000
122400     COMPUTE FED-NON-LABOR-ADJ4 ROUNDED =                         12240000
122500             NONLABOR-PERCENT *                                   12250000
122600             FED-ADJ4.                                            12260000
122700                                                                  12270000
122800     COMPUTE FED-NON-LABOR-LUPA-ADJ4 ROUNDED =                    12280000
122900             NONLABOR-PERCENT *                                   12290000
123000             FED-LUPA-ADJ4.                                       12300000
123100                                                                  12310000
123200     COMPUTE H-HHA-REVENUE-COST (4) ROUNDED =                     12320000
123300             (FED-LABOR-ADJ4 + FED-NON-LABOR-ADJ4).               12330000
123400                                                                  12340000
123500     COMPUTE H-HHA-REVENUE-ADD-ON-VISIT-AMT (4) ROUNDED =         12350000
123600             (FED-LABOR-LUPA-ADJ4 + FED-NON-LABOR-LUPA-ADJ4).     12360000
123700                                                                  12370000
123800     COMPUTE FED-ADJ5 ROUNDED =                                   12380000
123900            (H-HHA-REVENUE-QTY-COV-VISITS (5) *                   12390000
124000             H-HHA-REVENUE-DOLL-RATE (5)).                        12400000
124100                                                                  12410000
124200     COMPUTE FED-LABOR-ADJ5 ROUNDED =                             12420000
124300             WIR-CBSA-WAGEIND *                                   12430000
124400             LABOR-PERCENT *                                      12440000
124500             FED-ADJ5.                                            12450000
124600                                                                  12460000
124700                                                                  12470000
124800     COMPUTE FED-NON-LABOR-ADJ5 ROUNDED =                         12480000
124900             NONLABOR-PERCENT *                                   12490000
125000             FED-ADJ5.                                            12500000
125100                                                                  12510000
125200     COMPUTE H-HHA-REVENUE-COST (5) ROUNDED =                     12520000
125300             (FED-LABOR-ADJ5 + FED-NON-LABOR-ADJ5).               12530000
125400                                                                  12540000
125500     COMPUTE FED-ADJ6 ROUNDED =                                   12550000
125600            (H-HHA-REVENUE-QTY-COV-VISITS (6) *                   12560000
125700             H-HHA-REVENUE-DOLL-RATE (6)).                        12570000
125800                                                                  12580000
125900     COMPUTE FED-LABOR-ADJ6 ROUNDED =                             12590000
126000             WIR-CBSA-WAGEIND *                                   12600000
126100             LABOR-PERCENT *                                      12610000
126200             FED-ADJ6.                                            12620000
126300                                                                  12630000
126400                                                                  12640000
126500     COMPUTE FED-NON-LABOR-ADJ6 ROUNDED =                         12650000
126600             NONLABOR-PERCENT *                                   12660000
126700             FED-ADJ6.                                            12670000
126800                                                                  12680000
126900     COMPUTE H-HHA-REVENUE-COST (6) ROUNDED =                     12690000
127000             (FED-LABOR-ADJ6 + FED-NON-LABOR-ADJ6).               12700000
127200                                                                  12720000
127300 1050-EXIT.   EXIT.                                               12730000
127400                                                                  12740000
127500 1100-ADD-HRG-DAYS.                                               12750000
127600                                                                  12760000
127700      IF H-HHA-HRG-NO-OF-DAYS (CO1) NUMERIC                       12770000
127800         ADD H-HHA-HRG-NO-OF-DAYS (CO1) TO                        12780000
127900             WK-HRG-NO-OF-DAYS-TOT.                               12790000
128000                                                                  12800000
128100 1100-EXIT.   EXIT.                                               12810000
128200                                                                  12820000
128300 3000-PEP-N-ADJUST.                                               12830000
128400                                                                  12840000
128500***************************************************************   12850000
128600*           HRG OCCUR < 2 AND PEP = N ADJUSTMENT                  12860000
128700***************************************************************   12870000
128800                                                                  12880000
128900     IF H-HHA-HRG-INPUT-CODE (CO1) = SPACES                       12890000
129000        MOVE 6 TO CO1                                             12900000
129100        GO TO 3000-EXIT.                                          12910000
129200                                                                  12920000
129300     MOVE H-HHA-HRG-NO-OF-DAYS (CO1) TO WK-HRG-NO-OF-DAYS.        12930000
129400                                                                  12940000
129500     MOVE H-HHA-HRG-OUTPUT-CODE (CO1) TO WORK-HRG.                12950000
129600                                                                  12960000
129700*         YEARCHANGE                              ===========**   12970000
129800                                                                  12980000
129900      PERFORM 10100-SUPPLY-ADD-ON-CALC  THRU 10100-EXIT.          12990000
130000                                                                  13000000
130100*         YEARCHANGE                              ===========**   13010000
130200                                                                  13020000
130300                                                                  13030000
130400*    IF HHA-SERV-THRU-DATE > 20071231 AND                         13040000
130500*       HHA-SERV-FROM-DATE > 20071231                             13050000
130600*        NEXT SENTENCE                                            13060000
130700*    ELSE                                                         13070000
130800*        MOVE 0000000.00 TO FED-SUPPLY-ADJ.                       13080000
130900                                                                  13090000
131000     COMPUTE FED-ADJ ROUNDED =                                    13100000
131100               H-HHA-HRG-WGTS (1) * FED-EPISODE-RATE-AMT.         13110000
131200                                                                  13120000
131300     COMPUTE FED-LABOR-ADJ ROUNDED =                              13130000
131400              (WIR-CBSA-WAGEIND *                                 13140000
131500               LABOR-PERCENT * FED-ADJ).                          13150000
131600                                                                  13160000
131700     COMPUTE FED-NON-LABOR-ADJ ROUNDED =                          13170000
131800              (NONLABOR-PERCENT * FED-ADJ).                       13180000
131900                                                                  13190000
132000     COMPUTE WK-3000-PEP-N-PAYMENT ROUNDED =                      13200000
132100          (FED-LABOR-ADJ + FED-NON-LABOR-ADJ + FED-SUPPLY-ADJ).   13210000
132200                                                                  13220000
132300     COMPUTE H-HHA-HRG-PAY (CO1) ROUNDED =                        13230000
132400             WK-3000-PEP-N-PAYMENT.                               13240000
132500                                                                  13250000
132600     COMPUTE WK-3000-PEP-N-PRETOT-PAY ROUNDED =                   13260000
132700             WK-3000-PEP-N-PRETOT-PAY + WK-3000-PEP-N-PAYMENT.    13270000
132800                                                                  13280000
133000 3000-EXIT.   EXIT.                                               13300000
133100                                                                  13310000
133200 4000-PEP-Y-ADJUST.                                               13320000
133300                                                                  13330000
133400***************************************************************   13340000
133500*           HRG OCCUR < 2 AND PEP = Y ADJUSTMENT                  13350000
133600***************************************************************   13360000
133700                                                                  13370000
133800     IF H-HHA-HRG-INPUT-CODE (CO1) = SPACES                       13380000
133900        MOVE 6 TO SUB1                                            13390000
134000        GO TO 4000-EXIT.                                          13400000
134100                                                                  13410000
134200     MOVE 2 TO WK-RTC-ADJ-IND.                                    13420000
134300                                                                  13430000
134400     MOVE H-HHA-HRG-NO-OF-DAYS (CO1) TO WK-HRG-NO-OF-DAYS.        13440000
134500                                                                  13450000
134600     MOVE H-HHA-HRG-OUTPUT-CODE (CO1) TO WORK-HRG.                13460000
134700                                                                  13470000
134800*         YEARCHANGE                              ===========**   13480000
134900                                                                  13490000
135000      PERFORM 10100-SUPPLY-ADD-ON-CALC  THRU 10100-EXIT.          13500000
135100                                                                  13510000
135200*         YEARCHANGE                              ===========**   13520000
135300                                                                  13530000
135400                                                                  13540000
135500*    IF HHA-SERV-THRU-DATE > 20071231 AND                         13550000
135600*       HHA-SERV-FROM-DATE > 20071231                             13560000
135700*        NEXT SENTENCE                                            13570000
135800*    ELSE                                                         13580000
135900*        MOVE 0000000.00 TO FED-SUPPLY-ADJ.                       13590000
136000                                                                  13600000
136100                                                                  13610000
136200     COMPUTE FED-ADJP ROUNDED =                                   13620000
136300               H-HHA-HRG-WGTS (1) * FED-EPISODE-RATE-AMT.         13630000
136400                                                                  13640000
136500     COMPUTE FED-LABOR-ADJP ROUNDED =                             13650000
136600               WIR-CBSA-WAGEIND *                                 13660000
136700               LABOR-PERCENT * FED-ADJP.                          13670000
136800                                                                  13680000
136900     COMPUTE FED-NON-LABOR-ADJP ROUNDED =                         13690000
137000               NONLABOR-PERCENT * FED-ADJP.                       13700000
137100                                                                  13710000
137200     COMPUTE WK-4000-PEP-Y-PAYMENT ROUNDED =                      13720000
137300         (FED-LABOR-ADJP + FED-NON-LABOR-ADJP + FED-SUPPLY-ADJ).  13730000
137400                                                                  13740000
137500     COMPUTE WK-HRG-NO-OF-DAYS-FAC ROUNDED =                      13750000
137600               (WK-HRG-NO-OF-DAYS / 60).                          13760000
137700                                                                  13770000
137800     COMPUTE WK-4000-PEP-Y-PAYMENT ROUNDED =                      13780000
137900             WK-4000-PEP-Y-PAYMENT *                              13790000
138000             WK-HRG-NO-OF-DAYS-FAC.                               13800000
138100                                                                  13810000
138200     COMPUTE H-HHA-HRG-PAY (CO1) ROUNDED =                        13820000
138300             WK-4000-PEP-Y-PAYMENT.                               13830000
138400                                                                  13840000
138500     COMPUTE WK-4000-PEP-Y-PRETOT-PAY ROUNDED =                   13850000
138600             WK-4000-PEP-Y-PRETOT-PAY + WK-4000-PEP-Y-PAYMENT.    13860000
138700                                                                  13870000
138800                                                                  13880000
138900 4000-EXIT.   EXIT.                                               13890000
139000 5000-PEP-N-ADJUST.                                               13900000
139100                                                                  13910000
139200***************************************************************   13920000
139300*           HRG OCCUR > 1 AND PEP = N ADJUSTMENT                  13930000
139400***************************************************************   13940000
139500                                                                  13950000
139600     IF H-HHA-HRG-INPUT-CODE (CO1) = SPACES                       13960000
139700        MOVE 6 TO SUB1                                            13970000
139800        GO TO 5000-EXIT.                                          13980000
139900                                                                  13990000
140000     MOVE 1 TO WK-RTC-ADJ-IND.                                    14000000
140100                                                                  14010000
140200     MOVE H-HHA-HRG-NO-OF-DAYS (CO1) TO WK-HRG-NO-OF-DAYS.        14020000
140300                                                                  14030000
140400     MOVE H-HHA-HRG-OUTPUT-CODE (CO1) TO WORK-HRG.                14040000
140500                                                                  14050000
140600*         YEARCHANGE                              ===========**   14060000
140700                                                                  14070000
140800      PERFORM 10100-SUPPLY-ADD-ON-CALC  THRU 10100-EXIT.          14080000
140900                                                                  14090000
141000*         YEARCHANGE                              ===========**   14100000
141100                                                                  14110000
141200                                                                  14120000
141300*    IF HHA-SERV-THRU-DATE > 20071231 AND                         14130000
141400*       HHA-SERV-FROM-DATE > 20071231                             14140000
141500*        NEXT SENTENCE                                            14150000
141600*    ELSE                                                         14160000
141700*        MOVE 0000000.00 TO FED-SUPPLY-ADJ.                       14170000
141800                                                                  14180000
141900                                                                  14190000
142000     COMPUTE FED-ADJ ROUNDED =                                    14200000
142100               (WK-HRG-NO-OF-DAYS  *                              14210000
142200                H-HHA-HRG-WGTS (CO1) *                            14220000
142300                FED-EPISODE-RATE-AMT) / 60.                       14230000
142400                                                                  14240000
142500     COMPUTE FED-LABOR-ADJ ROUNDED =                              14250000
142600               WIR-CBSA-WAGEIND *                                 14260000
142700               LABOR-PERCENT * FED-ADJ.                           14270000
142800                                                                  14280000
142900     COMPUTE FED-NON-LABOR-ADJ ROUNDED =                          14290000
143000               NONLABOR-PERCENT * FED-ADJ.                        14300000
143100                                                                  14310000
143200     COMPUTE WK-5000-PEP-N-PAYMENT ROUNDED =                      14320000
143300           (FED-LABOR-ADJ + FED-NON-LABOR-ADJ + FED-SUPPLY-ADJ).  14330000
143400                                                                  14340000
143500     COMPUTE H-HHA-HRG-PAY (CO1) ROUNDED =                        14350000
143600             WK-5000-PEP-N-PAYMENT.                               14360000
143700                                                                  14370000
143800                                                                  14380000
143900     COMPUTE WK-5000-PEP-N-PRETOT-PAY ROUNDED =                   14390000
144000             WK-5000-PEP-N-PRETOT-PAY + WK-5000-PEP-N-PAYMENT.    14400000
144100                                                                  14410000
144200                                                                  14420000
144300 5000-EXIT.   EXIT.                                               14430000
144400 6000-PEP-Y-ADJUST.                                               14440000
144500                                                                  14450000
144600***************************************************************   14460000
144700*           HRG OCCUR > 1 AND PEP = Y SHORTENED EPISODE           14470000
144800***************************************************************   14480000
144900                                                                  14490000
145000     IF H-HHA-HRG-INPUT-CODE (CO1) = SPACES                       14500000
145100        MOVE 6 TO SUB1                                            14510000
145200        GO TO 6000-EXIT.                                          14520000
145300                                                                  14530000
145400     MOVE 3 TO WK-RTC-ADJ-IND.                                    14540000
145500                                                                  14550000
145600     MOVE H-HHA-HRG-NO-OF-DAYS (CO1) TO WK-HRG-NO-OF-DAYS.        14560000
145700     MOVE H-HHA-PEP-DAYS             TO WK-PEP-DAYS.              14570000
145800                                                                  14580000
145900     MOVE H-HHA-HRG-OUTPUT-CODE (CO1) TO WORK-HRG.                14590000
146000                                                                  14600000
146100*         YEARCHANGE                              ===========**   14610000
146200                                                                  14620000
146300      PERFORM 10100-SUPPLY-ADD-ON-CALC  THRU 10100-EXIT.          14630000
146400                                                                  14640000
146500*         YEARCHANGE                              ===========**   14650000
146600                                                                  14660000
146700                                                                  14670000
146800*    IF HHA-SERV-THRU-DATE > 20071231 AND                         14680000
146900*       HHA-SERV-FROM-DATE > 20071231                             14690000
147000*        NEXT SENTENCE                                            14700000
147100*    ELSE                                                         14710000
147200*        MOVE 0000000.00 TO FED-SUPPLY-ADJ.                       14720000
147300*                                                                 14730000
147400*    COMPUTE FED-ADJ ROUNDED =                                    14740000
147500*        (WK-HRG-NO-OF-DAYS / WK-PEP-DAYS)                        14750000
147600*                                *                                14760000
147700*                    ((WK-PEP-DAYS / 60)                          14770000
147800*                                *                                14780000
147900*          (H-HHA-HRG-WGTS (CO1) * FED-EPISODE-RATE-AMT)).        14790000
148000*                                                                 14800000
148100*                                                                 14810000
148200*    COMPUTE FED-ADJ ROUNDED =                                    14820000
148300*        (WK-HRG-NO-OF-DAYS / WK-PEP-DAYS)                        14830000
148400*                                *                                14840000
148500*      ((WK-PEP-DAYS * H-HHA-HRG-WGTS (CO1) *                     14850000
148600*                          FED-EPISODE-RATE-AMT) / 60).           14860000
148700                                                                  14870000
148800     COMPUTE FED-ADJ  ROUNDED =                                   14880000
148900      ((WK-PEP-DAYS * H-HHA-HRG-WGTS (CO1) *                      14890000
149000                           FED-EPISODE-RATE-AMT) / 60).           14900000
149100                                                                  14910000
149200     COMPUTE FED-ADJ ROUNDED  =                                   14920000
149300                  (FED-ADJP * WK-HRG-NO-OF-DAYS) / WK-PEP-DAYS.   14930000
149400                                                                  14940000
149500     COMPUTE FED-LABOR-ADJ ROUNDED =                              14950000
149600               WIR-CBSA-WAGEIND *                                 14960000
149700               LABOR-PERCENT * FED-ADJ.                           14970000
149800                                                                  14980000
149900     COMPUTE FED-NON-LABOR-ADJ ROUNDED =                          14990000
150000               NONLABOR-PERCENT * FED-ADJ.                        15000000
150100                                                                  15010000
150200     COMPUTE WK-6000-PEP-Y-PAYMENT ROUNDED =                      15020000
150300          (FED-LABOR-ADJ + FED-NON-LABOR-ADJ + FED-SUPPLY-ADJ).   15030000
150400                                                                  15040000
150500     COMPUTE H-HHA-HRG-PAY (CO1) ROUNDED =                        15050000
150600             WK-6000-PEP-Y-PAYMENT.                               15060000
150700                                                                  15070000
150800     COMPUTE WK-6000-PEP-Y-PRETOT-PAY ROUNDED =                   15080000
150900             WK-6000-PEP-Y-PRETOT-PAY + WK-6000-PEP-Y-PAYMENT.    15090000
151000                                                                  15100000
151100                                                                  15110000
151200 6000-EXIT.   EXIT.                                               15120000
151300                                                                  15130000
151400 7000-OUTLIER-PAYMENT.                                            15140000
151410                                                                  15141015
151500***************************************************************   15150000
151600*                    OUTLIER PAYMENT                              15160000
151700***************************************************************   15170000
151800     COMPUTE OUT-THRES-LABOR-ADJ ROUNDED =                        15180000
151900               WIR-CBSA-WAGEIND *                                 15190000
152000               LABOR-PERCENT * OUTLIER-THRESHOLD-AMT.             15200000
152100                                                                  15210000
152200     COMPUTE OUT-THRES-NON-LABOR-ADJ ROUNDED =                    15220000
152300               NONLABOR-PERCENT * OUTLIER-THRESHOLD-AMT.          15230000
152400                                                                  15240000
152500     COMPUTE OUT-THRES-AMT-ADJ ROUNDED  =                         15250000
152600             (OUT-THRES-LABOR-ADJ +                               15260000
152700              OUT-THRES-NON-LABOR-ADJ).                           15270000
152800                                                                  15280000
152900      COMPUTE WK-7000-OUTLIER-VALUE-A ROUNDED =                   15290000
153000              OUT-THRES-AMT-ADJ +                                 15300000
153100             WK-3000-PEP-N-PRETOT-PAY +                           15310000
153200             WK-4000-PEP-Y-PRETOT-PAY +                           15320000
153300             WK-5000-PEP-N-PRETOT-PAY +                           15330000
153400             WK-6000-PEP-Y-PRETOT-PAY.                            15340000
153500                                                                  15350000
153600      PERFORM 8000-ADD-REV-DOLL THRU 8000-EXIT                    15360000
153700                  VARYING CO1 FROM 1 BY 1 UNTIL                   15370000
153800                   CO1 > 6.                                       15380000
153900                                                                  15390000
154000      COMPUTE WK-7000-AB-DIFF ROUNDED =                           15400000
154100              WK-8000-OUTLIER-VALUE-B - WK-7000-OUTLIER-VALUE-A.  15410000
154200****===================                                           15420000
154300      IF WK-7000-AB-DIFF > ZERO                                   15430000
154400         COMPUTE WK-7000-CALC ROUNDED =                           15440000
154500               OUTL-LOSS-SHAR-RATIO-PERCENT * WK-7000-AB-DIFF     15450000
154600                                                                  15460000
154700*** ================== NEW OUTLIER CAP HERE ========              15470000
154800         PERFORM 10000-OUTLIER-CAP-CALC THRU 10000-EXIT           15480000
154900*** ================== NEW OUTLIER CAP HERE ========              15490000
155000                                                                  15500000
155100****===================                                           15510000
155200         COMPUTE H-HHA-OUTLIER-PAYMENT ROUNDED =                  15520000
155300               WK-7000-CALC                                       15530000
155400                                                                  15540000
155500****===================                                           15550000
155600         COMPUTE H-HHA-TOTAL-PAYMENT ROUNDED =                    15560000
155700                (WK-7000-CALC +                                   15570000
155800                 WK-3000-PEP-N-PRETOT-PAY +                       15580000
155900                 WK-4000-PEP-Y-PRETOT-PAY +                       15590000
156000                 WK-5000-PEP-N-PRETOT-PAY +                       15600000
156100                 WK-6000-PEP-Y-PRETOT-PAY)                        15610000
156200                                                                  15620000
156300          PERFORM 9000-WHICH-RTC-OUTLIER THRU 9000-EXIT           15630000
156400      ELSE                                                        15640000
156500         COMPUTE H-HHA-TOTAL-PAYMENT ROUNDED =                    15650000
156600                (WK-3000-PEP-N-PRETOT-PAY +                       15660000
156700                 WK-4000-PEP-Y-PRETOT-PAY +                       15670000
156800                 WK-5000-PEP-N-PRETOT-PAY +                       15680000
156900                 WK-6000-PEP-Y-PRETOT-PAY)                        15690000
157000          PERFORM 9050-WHICH-RTC-NO-OUTLIER THRU 9050-EXIT.       15700000
157100                                                                  15710000
157300 7000-EXIT.   EXIT.                                               15730000
157400                                                                  15740000
157500 8000-ADD-REV-DOLL.                                               15750000
157700***************************************************************   15770000
157800*        ADD ALL REVENUE DOLLARS                                  15780000
157900***************************************************************   15790000
158100     IF H-HHA-REVENUE-CODE (CO1) = SPACES                         15810000
158200        MOVE 6 TO CO1                                             15820000
158300        GO TO 8000-EXIT.                                          15830000
158740                                                                  15874023
158800     COMPUTE FED-ADJ ROUNDED =                                    15880024
159000             WK-REV-DOLL-RATE-UNITS (CO1) *                       15900024
159010             H-HHA-REVENUE-QTY-OUTL-UNITS (CO1).                  15901024
159100                                                                  15910000
159200     COMPUTE FED-LABOR-ADJ ROUNDED =                              15920000
159300               WIR-CBSA-WAGEIND *                                 15930000
159400               LABOR-PERCENT * FED-ADJ.                           15940000
159500                                                                  15950000
159600     COMPUTE FED-NON-LABOR-ADJ ROUNDED =                          15960000
159700               NONLABOR-PERCENT * FED-ADJ.                        15970000
159800                                                                  15980000
159900     COMPUTE WK-8000-OUTLIER-LAB-NLAB ROUNDED =                   15990000
160000           (FED-LABOR-ADJ + FED-NON-LABOR-ADJ).                   16000000
160100                                                                  16010000
160200                                                                  16020000
160300     COMPUTE H-HHA-REVENUE-COST (CO1) ROUNDED =                   16030000
160400               WK-8000-OUTLIER-LAB-NLAB.                          16040000
160600     COMPUTE WK-8000-OUTLIER-VALUE-B ROUNDED =                    16060000
160700             WK-8000-OUTLIER-VALUE-B + WK-8000-OUTLIER-LAB-NLAB.  16070000
160800                                                                  16080000
160900 8000-EXIT.   EXIT.                                               16090000
161000                                                                  16100000
161100 9000-WHICH-RTC-OUTLIER.                                          16110000
161200                                                                  16120000
161300      MOVE '01' TO H-HHA-PAY-RTC.                                 16130000
161400      IF WK-RTC-ADJ-IND = 1  MOVE '08' TO H-HHA-PAY-RTC.          16140000
161500      IF WK-RTC-ADJ-IND = 2  MOVE '11' TO H-HHA-PAY-RTC.          16150000
161600      IF WK-RTC-ADJ-IND = 3  MOVE '13' TO H-HHA-PAY-RTC.          16160000
161700      IF WK-RTC-ADJ-IND = 4  MOVE '02' TO H-HHA-PAY-RTC.          16170000
161800                                                                  16180000
161900                                                                  16190000
162000 9000-EXIT.   EXIT.                                               16200000
162100                                                                  16210000
162200 9050-WHICH-RTC-NO-OUTLIER.                                       16220000
162300                                                                  16230000
162400      MOVE '00' TO H-HHA-PAY-RTC.                                 16240000
162500                                                                  16250000
162600      IF WK-RTC-ADJ-IND = 1  MOVE '07' TO H-HHA-PAY-RTC.          16260000
162700      IF WK-RTC-ADJ-IND = 2  MOVE '09' TO H-HHA-PAY-RTC.          16270000
162800      IF WK-RTC-ADJ-IND = 3  MOVE '12' TO H-HHA-PAY-RTC.          16280000
162900                                                                  16290000
163000 9050-EXIT.   EXIT.                                               16300000
163100                                                                  16310000
163200*         YEARCHANGE  2011.0                      ===========**   16320000
163300                                                                  16330000
163400 10000-OUTLIER-CAP-CALC.                                          16340000
163500                                                                  16350000
163600     IF  HHA-PROV-PAYMET-TOTAL = 0                                16360000
163700        GO TO 10000-EXIT.                                         16370000
163800                                                                  16380000
163900     IF  HHA-PROV-OUTLIER-PAY-TOTAL = 0                           16390000
164000        GO TO 10000-EXIT.                                         16400000
164100                                                                  16410000
164200     COMPUTE WK-10000-OUTLIER-POOL-PERCENT ROUNDED =              16420000
164300         HHA-PROV-PAYMET-TOTAL * .1.                              16430000
164400                                                                  16440000
164500     COMPUTE WK-10000-OUTLIER-AVAIL-POOL ROUNDED =                16450000
164600      WK-10000-OUTLIER-POOL-PERCENT - HHA-PROV-OUTLIER-PAY-TOTAL. 16460000
164700                                                                  16470000
164800      COMPUTE WK-10000-OUTLIER-POOL-DIF ROUNDED =                 16480000
164900         WK-10000-OUTLIER-AVAIL-POOL - WK-7000-CALC.              16490000
165000                                                                  16500000
165100      IF WK-10000-OUTLIER-POOL-DIF > 0                            16510000
165200        GO TO 10000-EXIT.                                         16520000
165300                                                                  16530000
165400      IF WK-10000-OUTLIER-POOL-DIF < 0 OR                         16540000
165500         HHA-PROV-OUTLIER-PAY-TOTAL < 0                           16550000
165600        COMPUTE WK-7000-CALC ROUNDED = 0                          16560000
165700        MOVE 4 TO WK-RTC-ADJ-IND.                                 16570000
165800                                                                  16580000
165900*         YEARCHANGE  2011.0                      ===========**   16590000
166000                                                                  16600000
166100 10000-EXIT.   EXIT.                                              16610000
166200                                                                  16620000
166300*         YEARCHANGE  2017.0                      ===========**   16630003
166400                                                                  16640000
166500 10100-SUPPLY-ADD-ON-CALC.                                        16650000
166600                                                                  16660000
166700*===========================================================**    16670000
166800*   RURAL, NO QUALITY DATA       = 10B COL 6           =====**    16680000
166900*   RURAL, WITH QUALITY DATA     = 10B COL 4           =====**    16690000
167000*   NON-RURAL, NO QUALITY DATA   =  7B COL 4           =====**    16700000
167100*   NON-RURAL, WITH QUALITY DATA =  6B COL 4           =====**    16710000
167200*===========================================================**    16720000
167300                                                                  16730000
167400*    YEARCHANGE  2017.0 NON RURAL W/ QUALITY DATA  ====**         16740003
167500*    YEARCHANGE  2017.0 TABLE  5B 4TH COL          ====**         16750003
167600                                                                  16760000
167700     IF HHA-CBSA-RURAL-CHECK                                      16770000
167800     OR HHA-CBSA-RURAL-CHECK-ALL                                  16780000
167900       GO TO RURAL-DATA-CHECK.                                    16790000
168000                                                                  16800000
168100     IF HHA-WITH-DATA-CHECK                                       16810000
168200       NEXT SENTENCE                                              16820000
168300     ELSE                                                         16830000
168400       GO TO NO-DATA-CHECK.                                       16840000
168500                                                                  16850000
168600        IF  WORK-HRG5 = 'S' OR '1'                                16860000
168700         MOVE 0000014.16 TO FED-SUPPLY-ADJ                        16870003
168800         GO TO 10100-EXIT.                                        16880000
168900                                                                  16890000
169000        IF  WORK-HRG5 = 'T' OR '2'                                16900000
169100         MOVE 0000051.15 TO FED-SUPPLY-ADJ                        16910003
169200         GO TO 10100-EXIT.                                        16920000
169300                                                                  16930000
169400        IF  WORK-HRG5 = 'U' OR '3'                                16940000
169500         MOVE 0000140.24 TO FED-SUPPLY-ADJ                        16950003
169600         GO TO 10100-EXIT.                                        16960000
169700                                                                  16970000
169800        IF  WORK-HRG5 = 'V' OR '4'                                16980000
169900         MOVE 0000208.35 TO FED-SUPPLY-ADJ                        16990003
170000         GO TO 10100-EXIT.                                        17000000
170100                                                                  17010000
170200        IF  WORK-HRG5 = 'W' OR '5'                                17020000
170300         MOVE 0000321.29 TO FED-SUPPLY-ADJ                        17030003
170400         GO TO 10100-EXIT.                                        17040000
170500                                                                  17050000
170600        IF  WORK-HRG5 = 'X' OR '6'                                17060000
170700         MOVE 0000554.79 TO FED-SUPPLY-ADJ                        17070000
170800         GO TO 10100-EXIT.                                        17080000
170900                                                                  17090000
171000 NO-DATA-CHECK.                                                   17100000
171100                                                                  17110000
171200*    YEARCHANGE  2017.0 NON RURAL WO/ QUALITY DATA   ====**       17120003
171300*    YEARCHANGE  2017.0 TABLE  6B 4TH COL            ====**       17130003
171400                                                                  17140000
171500     IF HHA-NO-DATA-CHECK                                         17150000
171600       NEXT SENTENCE                                              17160000
171700     ELSE                                                         17170000
171800         GO TO 10100-EXIT.                                        17180000
171900                                                                  17190000
172000        IF  WORK-HRG5 = 'S' OR '1'                                17200000
172100         MOVE 0000013.89 TO FED-SUPPLY-ADJ                        17210003
172200         GO TO 10100-EXIT.                                        17220000
172300                                                                  17230000
172400        IF  WORK-HRG5 = 'T' OR '2'                                17240000
172500         MOVE 0000050.15 TO FED-SUPPLY-ADJ                        17250003
172600         GO TO 10100-EXIT.                                        17260000
172700                                                                  17270000
172800        IF  WORK-HRG5 = 'U' OR '3'                                17280000
172900         MOVE 0000137.51 TO FED-SUPPLY-ADJ                        17290003
173000         GO TO 10100-EXIT.                                        17300000
173100                                                                  17310000
173200        IF  WORK-HRG5 = 'V' OR '4'                                17320000
173300         MOVE 0000204.30 TO FED-SUPPLY-ADJ                        17330003
173400         GO TO 10100-EXIT.                                        17340000
173500                                                                  17350000
173600        IF  WORK-HRG5 = 'W' OR '5'                                17360000
173700         MOVE 0000315.05 TO FED-SUPPLY-ADJ                        17370003
173800         GO TO 10100-EXIT.                                        17380000
173900                                                                  17390000
174000        IF  WORK-HRG5 = 'X' OR '6'                                17400000
174100         MOVE 0000541.85 TO FED-SUPPLY-ADJ                        17410003
174200         GO TO 10100-EXIT.                                        17420000
174300                                                                  17430000
174400*===========================================================**    17440000
174500*   RURAL, NO QUALITY DATA       = 10B COL 6           =====**    17450000
174600*   RURAL, WITH QUALITY DATA     = 10B COL 4           =====**    17460000
174700*   NON-RURAL, NO QUALITY DATA   =  7B COL 4           =====**    17470000
174800*   NON-RURAL, WITH QUALITY DATA =  6B COL 4           =====**    17480000
174900*===========================================================**    17490000
175000 RURAL-DATA-CHECK.                                                17500000
175100                                                                  17510000
175200*    YEARCHANGE  2017.0 RURAL W/ QUALITY DATA      ====**         17520003
175300*    YEARCHANGE  2017.0 TABLE  9B  COL 4           ====**         17530003
175400                                                                  17540000
175500     IF HHA-WITH-DATA-CHECK                                       17550000
175600       NEXT SENTENCE                                              17560000
175700     ELSE                                                         17570000
175800       GO TO RURAL-NO-DATA-CHECK.                                 17580000
175900                                                                  17590000
176000        IF  WORK-HRG5 = 'S' OR '1'                                17600000
176100         MOVE 0000014.59 TO FED-SUPPLY-ADJ                        17610003
176200         GO TO 10100-EXIT.                                        17620000
176300                                                                  17630000
176400        IF  WORK-HRG5 = 'T' OR '2'                                17640000
176500         MOVE 0000052.68 TO FED-SUPPLY-ADJ                        17650003
176600         GO TO 10100-EXIT.                                        17660000
176700                                                                  17670000
176800        IF  WORK-HRG5 = 'U' OR '3'                                17680000
176900         MOVE 0000144.46 TO FED-SUPPLY-ADJ                        17690003
177000         GO TO 10100-EXIT.                                        17700000
177100                                                                  17710000
177200        IF  WORK-HRG5 = 'V' OR '4'                                17720000
177300         MOVE 0000214.62 TO FED-SUPPLY-ADJ                        17730003
177400         GO TO 10100-EXIT.                                        17740000
177500                                                                  17750000
177600        IF  WORK-HRG5 = 'W' OR '5'                                17760000
177700         MOVE 0000330.96 TO FED-SUPPLY-ADJ                        17770003
177800         GO TO 10100-EXIT.                                        17780000
177900                                                                  17790000
178000        IF  WORK-HRG5 = 'X' OR '6'                                17800000
178100         MOVE 0000569.21 TO FED-SUPPLY-ADJ.                       17810003
178200         GO TO 10100-EXIT.                                        17820000
178300                                                                  17830000
178400 RURAL-NO-DATA-CHECK.                                             17840000
178500*    YEARCHANGE  2017.0 RURAL WO/ QUALITY DATA     ====**         17850003
178600*    YEARCHANGE  2017.0 TABLE  9B COL 6            ====**         17860003
178700                                                                  17870000
178800     IF HHA-NO-DATA-CHECK                                         17880000
178900       NEXT SENTENCE                                              17890000
179000     ELSE                                                         17900000
179100         GO TO 10100-EXIT.                                        17910000
179200                                                                  17920000
179300        IF  WORK-HRG5 = 'S' OR '1'                                17930000
179400         MOVE 0000014.30 TO FED-SUPPLY-ADJ                        17940003
179500         GO TO 10100-EXIT.                                        17950000
179600                                                                  17960000
179700        IF  WORK-HRG5 = 'T' OR '2'                                17970000
179800         MOVE 0000051.65 TO FED-SUPPLY-ADJ                        17980003
179900         GO TO 10100-EXIT.                                        17990000
180000                                                                  18000000
180100        IF  WORK-HRG5 = 'U' OR '3'                                18010000
180200         MOVE 0000141.63 TO FED-SUPPLY-ADJ                        18020003
180300         GO TO 10100-EXIT.                                        18030000
180400                                                                  18040000
180500        IF  WORK-HRG5 = 'V' OR '4'                                18050000
180600         MOVE 0000210.42 TO FED-SUPPLY-ADJ                        18060003
180700         GO TO 10100-EXIT.                                        18070000
180800                                                                  18080000
180900        IF  WORK-HRG5 = 'W' OR '5'                                18090000
181000         MOVE 0000324.47 TO FED-SUPPLY-ADJ                        18100003
181100         GO TO 10100-EXIT.                                        18110000
181200                                                                  18120000
181300        IF  WORK-HRG5 = 'X' OR '6'                                18130000
181400         MOVE 0000558.06 TO FED-SUPPLY-ADJ                        18140003
181500         GO TO 10100-EXIT.                                        18150000
181600                                                                  18160000
181700 10100-EXIT.   EXIT.                                              18170000
181800                                                                  18180000
181900******        L A S T   S O U R C E   S T A T E M E N T   *****   18190000
