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