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