000100 IDENTIFICATION DIVISION.                                         00010001
000200 PROGRAM-ID.      SNFPR190.                                       00020001
000300*AUTHOR.                 CMS.                                     00030001
000400*                                                                 00040001
000500*                                                                 00050001
000600*REMARKS. (CENTERS FOR MEDICARE AND MEDICAID SERVICES)            00060001
000700***         - CICS VERSION RELEASED FOR JULY 1 2006               00070001
000800***         - NATIONAL SNF PRICER FOR ALL YEARS                   00080001
000900***         - NATIONAL SNF PRICER EFFECTIVE JULY 1, 1998          00090001
001000***         - SNF PRICER REFERS TO A PROGRAM WHICH WILL           00100001
001100***           CALCULATE THE DAILY MEDICARE RATE UPON WHICH THE    00110001
001200***           MEDICARE SNF PPS PAYMENT IS MADE. PRICER USES THE   00120001
001300***           FACILITY'S PSF RATE, MSA AND BLEND INDICATOR WITH   00130001
001400***           THE 'STATEMENT COVERS THROUGH DATE' ON THE CLAIM AND00140001
001500***           HCPPS RATE CODE TO CALCULATE THE HCPPS RATES.       00150001
001600***************************************************************   00160001
001700******************************************************************00161001
001800*     SNFPR16A   EFFECTIVE OCT 1, 2015                            00162001
001900*                KEEP CBSA FILE FOR FY2016                        00163001
002000*                ICD10 TESTING SNF CALC MODULE  - SNFPR160        00164001
002100******************************************************************00165001
001700******************************************************************00166001
001800*     SNFPR160   EFFECTIVE OCT 1, 2015                            00167001
001900*                KEEP CBSA FILE FOR FY2016                        00168001
002000*                ICD10 TESTING SNF CALC MODULE  - SNFPR160        00169001
002100******************************************************************00169101
001700******************************************************************00169201
001800*     SNFPR170   EFFECTIVE OCT 1, 2016                            00169301
001900*                KEEP CBSA FILE FOR FY2017                        00169401
002000*                SNF CALC MODULE  - SNFPR170                      00169501
002100******************************************************************00169601
001700******************************************************************00169701
001800*     SNFPR180   EFFECTIVE OCT 1, 2017                            00169801
001900*                KEEP CBSA FILE FOR FY2017                        00169901
002000*                SNF CALC MODULE  - SNFPR180                      00170001
002100******************************************************************00170101
002200***************************************************************   00170201
001800*     SNFPR181   EFFECTIVE OCT 1, 2017                            00170301
001900*                KEEP CBSA FILE FOR FY2017                        00170401
002000*                SNF CALC MODULE  - SNFPR181                      00170501
002000*                ADD QRP PENALTY LOGIC - SNFPR181                 00170601
002100******************************************************************00170701
002200***--------------------------------------------------------****   00170801
008200*     SNFPR19B   EFFECTIVE OCT 1, 2018                            00170901
008200*                BETA VERSION USED FOR TESTING ONLY               00171001
008300*                KEEP CBSA FILE FOR FY2018                        00171101
008300*                KEEP PAYMENT RATES FOR FY2018                    00171201
008400*                SNF DRIVER - SNFDR19B                            00171301
008400*                VALUE BASED PAYMENT LOGIC ADDED                  00171401
002100******************************************************************00171501
002100******************************************************************00171601
002200***--------------------------------------------------------****   00171701
008200*     SNFPR190   EFFECTIVE OCT 1, 2018                            00171801
008300*                USE CBSA FILE FOR FY2019                         00171901
008300*                USE PAYMENT RATES FOR FY2019                     00172001
008400*                SNF DRIVER - SNFDR190                            00172101
008400*                VALUE BASED PAYMENT LOGIC ADDED                  00172201
002100******************************************************************00172301
002300 DATE-COMPILED.                                                   00172401
002400 ENVIRONMENT DIVISION.                                            00172501
002500 CONFIGURATION SECTION.                                           00172601
002600 SOURCE-COMPUTER.            IBM-370.                             00172701
002700 OBJECT-COMPUTER.            IBM-370.                             00172801
002800 INPUT-OUTPUT  SECTION.                                           00172901
002900 FILE-CONTROL.                                                    00173001
003000                                                                  00173101
003100 DATA DIVISION.                                                   00173201
003200 FILE SECTION.                                                    00173301
003300                                                                  00173401
003400 WORKING-STORAGE SECTION.                                         00173501
003500 01  W-STORAGE-REF                  PIC X(46)  VALUE              00173601
003600     'SNFPR19.0   - W O R K I N G   S T O R A G E'.               00173701
003700 01  CAL-VERSION                    PIC X(09)  VALUE 'SNFPR19.0'. 00173801
003800 01  R1                             PIC S9(04) COMP SYNC.         00173901
003900 01  R2                             PIC S9(04) COMP SYNC.         00174001
004000 01  R3                             PIC S9(04) COMP SYNC.         00175001
004100 01  LABOR-NLABOR-PERCENT.                                        00176001
004200     05 PERCENT-1999-LABOR     PIC 9V99999 VALUE 0.75888.         00177001
004300     05 PERCENT-1999-NLABOR    PIC 9V99999 VALUE 0.24112.         00178001
004400     05 PERCENT-2000-LABOR     PIC 9V99999 VALUE 0.77545.         00179001
004500     05 PERCENT-2000-NLABOR    PIC 9V99999 VALUE 0.22455.         00180001
004600     05 PERCENT-2001-LABOR     PIC 9V99999 VALUE 0.77870.         00190001
004700     05 PERCENT-2001-NLABOR    PIC 9V99999 VALUE 0.22130.         00200001
004800     05 PERCENT-2002-LABOR     PIC 9V99999 VALUE 0.75379.         00210001
004900     05 PERCENT-2002-NLABOR    PIC 9V99999 VALUE 0.24621.         00220001
005000     05 PERCENT-2003-LABOR     PIC 9V99999 VALUE 0.76128.         00230001
005100     05 PERCENT-2003-NLABOR    PIC 9V99999 VALUE 0.23872.         00240001
005200     05 PERCENT-2004-LABOR     PIC 9V99999 VALUE 0.76372.         00250001
005300     05 PERCENT-2004-NLABOR    PIC 9V99999 VALUE 0.23628.         00260001
005400     05 PERCENT-2005-LABOR     PIC 9V99999 VALUE 0.76222.         00270001
005500     05 PERCENT-2005-NLABOR    PIC 9V99999 VALUE 0.23778.         00280001
005600     05 PERCENT-2006-LABOR     PIC 9V99999 VALUE 0.75922.         00290001
005700     05 PERCENT-2006-NLABOR    PIC 9V99999 VALUE 0.24078.         00300001
005800     05 PERCENT-2007-LABOR     PIC 9V99999 VALUE 0.75839.         00310001
005900     05 PERCENT-2007-NLABOR    PIC 9V99999 VALUE 0.24161.         00320001
006000     05 PERCENT-2008-LABOR     PIC 9V99999 VALUE 0.70249.         00330001
006100     05 PERCENT-2008-NLABOR    PIC 9V99999 VALUE 0.29751.         00340001
006200**************YEARCHANGE 2009.0 *******************************   00350001
006300     05 PERCENT-2009-LABOR     PIC 9V99999 VALUE 0.69783.         00360001
006400     05 PERCENT-2009-NLABOR    PIC 9V99999 VALUE 0.30217.         00370001
006500**************YEARCHANGE 2009.0 *******************************   00380001
006600**************YEARCHANGE 2010.0 *******************************   00390001
006700     05 PERCENT-2010-LABOR     PIC 9V99999 VALUE 0.69840.         00400001
006800     05 PERCENT-2010-NLABOR    PIC 9V99999 VALUE 0.30160.         00410001
006900**************YEARCHANGE 2010.0 *******************************   00420001
007000**************YEARCHANGE 2011.2 *******************************   00430001
007100     05 PERCENT-2011-LABOR     PIC 9V99999 VALUE 0.69311.         00440001
007200     05 PERCENT-2011-NLABOR    PIC 9V99999 VALUE 0.30689.         00450001
007300**************YEARCHANGE 2011.2 *******************************   00460001
007400**************YEARCHANGE 2012.0 *******************************   00470001
007500     05 PERCENT-2012-LABOR     PIC 9V99999 VALUE 0.68693.         00480001
007600     05 PERCENT-2012-NLABOR    PIC 9V99999 VALUE 0.31307.         00490001
007700**************YEARCHANGE 2012.0 *******************************   00500001
007800**************YEARCHANGE 2013.0 *******************************   00510001
007900     05 PERCENT-2013-LABOR     PIC 9V99999 VALUE 0.68383.         00520001
008000     05 PERCENT-2013-NLABOR    PIC 9V99999 VALUE 0.31617.         00530001
008100**************YEARCHANGE 2013.0 *******************************   00540001
008200**************YEARCHANGE 2014.0 *******************************   00550001
008300     05 PERCENT-2014-LABOR     PIC 9V99999 VALUE 0.69545.         00560001
008400     05 PERCENT-2014-NLABOR    PIC 9V99999 VALUE 0.30455.         00570001
008500**************YEARCHANGE 2014.0 *******************************   00580001
008600**************YEARCHANGE 2015.0 *******************************   00590001
008700     05 PERCENT-2015-LABOR     PIC 9V99999 VALUE 0.69180.         00600001
008800     05 PERCENT-2015-NLABOR    PIC 9V99999 VALUE 0.30820.         00610001
008900**************YEARCHANGE 2015.0 *******************************   00620001
009000**************YEARCHANGE 2016.0 *******************************   00630001
009100     05 PERCENT-2016-LABOR     PIC 9V99999 VALUE 0.69100.         00640001
009200     05 PERCENT-2016-NLABOR    PIC 9V99999 VALUE 0.30900.         00650001
009300**************YEARCHANGE 2016.0 *******************************   00660001
009000**************YEARCHANGE 2017.0 *******************************   00670001
009100     05 PERCENT-2017-LABOR     PIC 9V99999 VALUE 0.68800.         00680001
009200     05 PERCENT-2017-NLABOR    PIC 9V99999 VALUE 0.31200.         00690001
009300**************YEARCHANGE 2017.0 *******************************   00700001
009000**************YEARCHANGE 2018.0 *******************************   00710001
009100     05 PERCENT-2018-LABOR     PIC 9V99999 VALUE 0.70800.         00720001
009200     05 PERCENT-2018-NLABOR    PIC 9V99999 VALUE 0.29200.         00730001
009300**************YEARCHANGE 2018.0 *******************************   00740001
009400                                                                  00750001
009000*****-------  YEARCHANGE 2019.0   ------***********************   00760001
009100     05 PERCENT-2019-LABOR     PIC 9V99999 VALUE 0.70500.         00770001
009200     05 PERCENT-2019-NLABOR    PIC 9V99999 VALUE 0.29500.         00771001
009300**************YEARCHANGE 2019.0 *******************************   00772001
009400                                                                  00773001
009500 01  WK-PAYMENT-RATE           PIC 9(06)V99 VALUE 0.              00774001
009600 01  WK-FACILITY-RATE          PIC 9(06)V99 VALUE 0.              00775001
009600 01  AIDS-ADD-ON-MULTIPLIER    PIC 9(02)V99 VALUE 02.28.          00776001
009500 01  VBP-ADJ-PYMT-RATE         PIC 9(06)V99 VALUE 0.              00777001
009500 01  INITIAL-PAYMENT-RATE      PIC 9(06)V99 VALUE 0.              00778001
009700                                                                  00779001
009800 01  HLD-PRICE-FROM-DATE.                                         00780001
009900     10  HLD-PRICE-FROM-CC     PIC XX.                            00790001
010000     10  HLD-PRICE-FROM-YY     PIC XX.                            00800001
010100     10  HLD-PRICE-FROM-MMDD   PIC XXXX.                          00810001
010200                                                                  00820001
010300 01  HLD-PRICE-THRU-DATE.                                         00830001
010400     10  HLD-PRICE-THRU-CC     PIC XX.                            00840001
010500     10  HLD-PRICE-THRU-YY     PIC XX.                            00850001
010600     10  HLD-PRICE-THRU-MMDD   PIC XXXX.                          00860001
010700                                                                  00870001
010800 01  HOLD-SNF-DATA.                                               00880001
010900     10  HLD-MSA.                                                 00890001
011000         15  HLD-MSA-1ST       PIC XX.                            00900001
011100             88  HLD-MSA-RURAL-CHECK VALUE '  '.                  00910001
011200         15  HLD-MSA-2ND       PIC XX.                            00920001
011300     10  HLD-CBSA.                                                00930001
011400         15  HLD-CBSA-1ST      PIC XXX.                           00940001
011500             88  HLD-CBSA-RURAL-CHECK     VALUE '   ' '999'.      00950001
011600         15  HLD-CBSA-2ND      PIC XX.                            00960001
011700     10  HLD-SPEC-WI-IND       PIC X.                             00970001
011800     10  HLD-SPEC-WI           PIC 9(02)V9(04).                   00980001
011900     10  HLD-RUG-CODE.                                            00990001
012000         15  HLD-RUG           PIC XXX.                           01000001
012100         15  HLD2-RUG REDEFINES HLD-RUG.                          01010001
012200             20  HLD-RUG-POS12 PIC XX.                            01020001
012300             20  HLD-RUG-POS3  PIC 9.                             01030001
012400         15  FILLER            PIC XX.                            01040001
012500     10  HLD-FROM-DATE.                                           01050001
012600         15  HLD-FROM-CC       PIC XX.                            01060001
012700         15  HLD-FROM-YY       PIC XX.                            01070001
012800         15  HLD-FROM-MMDD     PIC XXXX.                          01080001
012900     10  HLD-THRU-DATE.                                           01090001
013000         15  HLD-THRU-CC       PIC XX.                            01100001
013100         15  HLD-THRU-YY       PIC XX.                            01110001
013200         15  HLD-THRU-MMDD     PIC XXXX.                          01120001
013300     10  HLD-FED-BLEND         PIC X.                             01130001
013400         88  HLD-ALL-FACILITY        VALUE '0'.                   01140001
013500         88  HLD-FED-BLEND-QRP-FAIL  VALUE '1'.                   01150001
013600         88  HLD-FED-BLEND-5050PER   VALUE '2'.                   01160001
013700         88  HLD-FED-BLEND-7525PER   VALUE '3'.                   01170001
013800         88  HLD-FED-BLEND-100PER    VALUE '4'.                   01180001
013900                                                                  01190001
014000     10  HLD-FACILITY-RATE     PIC 99999V99.                      01200001
014100                                                                  01210001
014200     10  HLD-DIAGNOSIS-CODES.                                     01220001
014300         15  HLD-PRIN-DIAG-CODE     PIC X(07).                    01230001
014400         15  HLD-OTHER-DIAG-CODE2   PIC X(07).                    01240001
014500         15  HLD-OTHER-DIAG-CODE3   PIC X(07).                    01250001
014600         15  HLD-OTHER-DIAG-CODE4   PIC X(07).                    01260001
014700         15  HLD-OTHER-DIAG-CODE5   PIC X(07).                    01270001
014800         15  HLD-OTHER-DIAG-CODE6   PIC X(07).                    01280001
014900         15  HLD-OTHER-DIAG-CODE7   PIC X(07).                    01290001
015000         15  HLD-OTHER-DIAG-CODE8   PIC X(07).                    01300001
015100         15  HLD-OTHER-DIAG-CODE9   PIC X(07).                    01310001
015200         15  HLD-OTHER-DIAG-CODE10  PIC X(07).                    01320001
015300         15  HLD-OTHER-DIAG-CODE11  PIC X(07).                    01330001
015400         15  HLD-OTHER-DIAG-CODE12  PIC X(07).                    01340001
015500         15  HLD-OTHER-DIAG-CODE13  PIC X(07).                    01350001
015600         15  HLD-OTHER-DIAG-CODE14  PIC X(07).                    01360001
015700         15  HLD-OTHER-DIAG-CODE15  PIC X(07).                    01370001
015800         15  HLD-OTHER-DIAG-CODE16  PIC X(07).                    01380001
015900         15  HLD-OTHER-DIAG-CODE17  PIC X(07).                    01390001
016000         15  HLD-OTHER-DIAG-CODE18  PIC X(07).                    01400001
016100         15  HLD-OTHER-DIAG-CODE19  PIC X(07).                    01410001
016200         15  HLD-OTHER-DIAG-CODE20  PIC X(07).                    01420001
016300         15  HLD-OTHER-DIAG-CODE21  PIC X(07).                    01430001
016400         15  HLD-OTHER-DIAG-CODE22  PIC X(07).                    01440001
016500         15  HLD-OTHER-DIAG-CODE23  PIC X(07).                    01450001
016600         15  HLD-OTHER-DIAG-CODE24  PIC X(07).                    01460001
016700         15  HLD-OTHER-DIAG-CODE25                                01470001
016800                               PIC X(07).                         01480001
016900     10  HLD-RATE-RTC.                                            01490001
017000         15  HLD-PAYMENT-RATE  PIC 9(06)V99.                      01500001
017100         15  HLD-RTC           PIC 99.                            01510001
022500     10  HLD-VBP-DATA.                                            01520001
022600         15  HLD-VBP-MULTIPLIER          PIC S9V9(11).            01530001
022700         15  HLD-VBP-PAY-DIFF            PIC S9(06)V9(02).        01540001
022800     10  FILLER                      PIC X(50).                   01550001
020100                                                                  01551001
017300                                                                  01552001
017400***************************************************************   01553001
017500*    LAYUP TABLE AREA FOR REGIONS                             *   01554001
017600*  FORMAT FOR RATE TABLE 1998 AND 1999 FOR JULY 1 1998        *   01555001
017700*  FORMAT FOR RATE TABLE 2000 FOR OCT 1, 1999                 *   01556001
017800*  FORMAT FOR RATE TABLE 2001 FOR OCT 1, 2000                 *   01557001
017900*  FORMAT FOR RATE TABLE 2001 FOR APR 1, 2001                 *   01558001
018000*  FORMAT FOR RATE TABLE 2002 FOR OCT 1, 2001                 *   01559001
018100*  FORMAT FOR RATE TABLE 2003 FOR OCT 1, 2002                 *   01560001
018200*  FORMAT FOR RATE TABLE 2004 FOR OCT 1, 2003                 *   01570001
018300*  FORMAT FOR RATE TABLE 2005 FOR OCT 1, 2004                 *   01580001
018400*  FORMAT FOR RATE TABLE 2006 FOR OCT 1, 2005                 *   01590001
018500*  FORMAT FOR RATE TABLE 2007 FOR OCT 1, 2006                 *   01600001
018600*  FORMAT FOR RATE TABLE 2008 FOR OCT 1, 2007                 *   01610001
018700*  FORMAT FOR RATE TABLE 2009 FOR OCT 1, 2008                 *   01620001
018800*  FORMAT FOR RATE TABLE 2010 FOR OCT 1, 2009                 *   01630001
018900*  FORMAT FOR RATE TABLE 2011 FOR OCT 1, 2010                 *   01640001
019000*  FORMAT FOR RATE TABLE 2012 FOR OCT 1, 2011                 *   01650001
019100*  FORMAT FOR RATE TABLE 2013 FOR OCT 1, 2012                 *   01660001
019200*  FORMAT FOR RATE TABLE 2014 FOR OCT 1, 2013                 *   01670001
019200*  FORMAT FOR RATE TABLE 2015 FOR OCT 1, 2014                 *   01680001
019200*  FORMAT FOR RATE TABLE 2016 FOR OCT 1, 2015                 *   01690001
019200*  FORMAT FOR RATE TABLE 2017 FOR OCT 1, 2016                 *   01700001
019300*  REGION = ( 1 = RURAL  2 = URBAN ) RATES                    *   01710001
019400***************************************************************   01720001
019500 01  REGION-TABLE.                                                01730001
019600     02  REGION-DATA.                                             01740001
019700*  TABLE RATE FOR FY1998 AND 1999                                 01750001
019800*  19980701/               REGION/ INP / GEN SER / THER / REHAB   01760001
019900     05  FILLER    PIC X(08) VALUE '19980701'.                    01770001
020000     05  FILLER    PIC X(25) VALUE '1 10488 05695 01166 09551'.   01780001
020100     05  FILLER    PIC X(25) VALUE '2 10948 05588 01091 08267'.   01781001
020200*  TABLE RATE FOR FY2000                                          01782001
020300*  19991001/               REGION/ INP / GEN SER / THER / REHAB   01783001
020400     05  FILLER    PIC X(08) VALUE '19991001'.                    01784001
020500     05  FILLER    PIC X(25) VALUE '1 10712 05825 01188 09733'.   01785001
020600     05  FILLER    PIC X(25) VALUE '2 11189 05720 01112 08425'.   01786001
020700*  TABLE RATE FOR FY2001                                          01787001
020800*  20001001/               REGION/ INP / GEN SER / THER / REHAB   01788001
020900     05  FILLER    PIC X(08) VALUE '20001001'.                    01789001
021000     05  FILLER    PIC X(25) VALUE '1 10929 05945 01213 09934'.   01790001
021100     05  FILLER    PIC X(25) VALUE '2 11438 05838 01135 08616'.   01800001
021200*  TABLE RATE FOR FY2001 EFFECTIVE APR 1, 2001                    01810001
021300*  20010401/               REGION/ INP / GEN SER / THER / REHAB   01820001
021400     05  FILLER    PIC X(08) VALUE '20010401'.                    01830001
021500     05  FILLER    PIC X(25) VALUE '1 12999 06062 01236 10129'.   01840001
021600     05  FILLER    PIC X(25) VALUE '2 13605 05953 01157 08784'.   01850001
021700*  TABLE RATE FOR FY2002 EFFECTIVE OCT 1, 2001                    01860001
021800*  20011001/               REGION/ INP / GEN SER / THER / REHAB   01870001
021900     05  FILLER    PIC X(08) VALUE '20011001'.                    01880001
022000     05  FILLER    PIC X(25) VALUE '1 13213 06162 01256 10296'.   01890001
022100     05  FILLER    PIC X(25) VALUE '2 13829 06050 01176 08929'.   01900001
022200*  TABLE RATE FOR FY2003 EFFECTIVE OCT 1, 2002                    01910001
022300*  20021001/               REGION/ INP / GEN SER / THER / REHAB   01920001
022400     05  FILLER    PIC X(08) VALUE '20021001'.                    01930001
022500     05  FILLER    PIC X(25) VALUE '1 11617 06320 01288 10561'.   01940001
022600     05  FILLER    PIC X(25) VALUE '2 12159 06205 01206 09158'.   01950001
024300**************YEARCHANGE 2004.0 *******************************   01960001
022700*  TABLE RATE FOR FY2004 EFFECTIVE OCT 1, 2003                    01970001
022800*  20031001/               REGION/ INP / GEN SER / THER / REHAB   01980001
022900     05  FILLER    PIC X(08) VALUE '20031001'.                    01990001
023000     05  FILLER    PIC X(25) VALUE '1 12374 06733 01372 11250'.   02000001
023100     05  FILLER    PIC X(25) VALUE '2 12952 06610 01285 09756'.   02010001
024300**************YEARCHANGE 2005.0 *******************************   02020001
023200*  TABLE RATE FOR FY2005 EFFECTIVE OCT 1, 2004                    02030001
023300*  20041001/               REGION/ INP / GEN SER / THER / REHAB   02040001
023400     05  FILLER    PIC X(08) VALUE '20041001'.                    02050001
023500     05  FILLER    PIC X(25) VALUE '1 12734 06929 01412 11578'.   02060001
023600     05  FILLER    PIC X(25) VALUE '2 13329 06803 01322 10040'.   02070001
023700**************YEARCHANGE 2006.0 *******************************   02080001
023800*  TABLE RATE FOR FY2006 EFFECTIVE OCT 1, 2005                    02090001
023900*  20051001/               REGION/ INP / GEN SER / THER / REHAB   02100001
024000     05  FILLER    PIC X(08) VALUE '20051001'.                    02110001
024100     05  FILLER    PIC X(25) VALUE '1 13145 07152 01458 11951'.   02120001
024200     05  FILLER    PIC X(25) VALUE '2 13759 07022 01365 10364'.   02130001
024300**************YEARCHANGE 2007.0 *******************************   02140001
024400*  TABLE RATE FOR FY2007 EFFECTIVE OCT 1, 2006                    02150001
024500*  20061001/               REGION/ INP / GEN SER / THER / REHAB   02160001
024600     05  FILLER    PIC X(08) VALUE '20061001'.                    02170001
024700     05  FILLER    PIC X(25) VALUE '1 13570 07383 01505 12337'.   02180001
024800     05  FILLER    PIC X(25) VALUE '2 14204 07249 01409 10699'.   02190001
024900**************YEARCHANGE 2008.0 *******************************   02200001
025000*  TABLE RATE FOR FY2008 EFFECTIVE OCT 2, 2007                    02210001
025100*  20071001/               REGION/ INP / GEN SER / THER / REHAB   02220001
025200     05  FILLER    PIC X(08) VALUE '20071001'.                    02230001
025300     05  FILLER    PIC X(25) VALUE '1 14008 07621 01554 12735'.   02240001
025400     05  FILLER    PIC X(25) VALUE '2 14662 07483 01454 11044'.   02250001
025500**************YEARCHANGE 2009.0 *******************************   02260001
025600*  TABLE RATE FOR FY2009 EFFECTIVE OCT 1, 2008                    02270001
025700*  20081001/               REGION/ INP / GEN SER / THER / REHAB   02280001
025800     05  FILLER    PIC X(08) VALUE '20081001'.                    02290001
025900     05  FILLER    PIC X(25) VALUE '1 14497 07887 01608 13180'.   02300001
026000     05  FILLER    PIC X(25) VALUE '2 15174 07744 01505 11430'.   02310001
026100**************YEARCHANGE 2009.0 *******************************   02320001
026200**************YEARCHANGE 2010.0 *******************************   02330001
026300*  TABLE RATE FOR FY2009 EFFECTIVE OCT 2, 2009                    02340001
026400*  20091001/               REGION/ INP / GEN SER / THER / REHAB   02350001
026500     05  FILLER    PIC X(08) VALUE '20091001'.                    02360001
026600     05  FILLER    PIC X(25) VALUE '1 14831 08069 01645 13483'.   02370001
026700     05  FILLER    PIC X(25) VALUE '2 15523 07922 01540 11693'.   02380001
026800**************YEARCHANGE 2010.0 *******************************   02390001
026900**************YEARCHANGE 2011.0 *******************************   02400001
027000*  TABLE RATE FOR FY2009 EFFECTIVE OCT 2, 2009                    02410001
027100*  20091001/               REGION/ INP / GEN SER / THER / REHAB   02420001
027200     05  FILLER    PIC X(08) VALUE '20101001'.                    02430001
027300     05  FILLER    PIC X(25) VALUE '1 15079 08204 01672 13708'.   02440001
027400     05  FILLER    PIC X(25) VALUE '2 15782 08054 01566 11888'.   02450001
027500**************YEARCHANGE 2011.0 *******************************   02460001
027600**************YEARCHANGE 2012.0 *******************************   02470001
027700*  TABLE RATE FOR FY2012 EFFECTIVE OCT 1, 2011                    02480001
027800*  20111001/               REGION/ INP / GEN SER / THER / REHAB   02490001
027900     05  FILLER    PIC X(08) VALUE '20111001'.                    02500001
028000     05  FILLER    PIC X(25) VALUE '1 15346 08349 01702 13951'.   02510001
028100     05  FILLER    PIC X(25) VALUE '2 16062 08197 01594 12099'.   02520001
028200**************YEARCHANGE 2012.0 *******************************   02530001
028300**************YEARCHANGE 2013.0 *******************************   02540001
028400*  TABLE RATE FOR FY2013 EFFECTIVE OCT 1, 2012                    02550001
028500*  20121001/               REGION/ INP / GEN SER / THER / REHAB   02560001
028600     05  FILLER    PIC X(08) VALUE '20121001'.                    02570001
028700     05  FILLER    PIC X(25) VALUE '1 15628 08503 01733 14208'.   02580001
028800     05  FILLER    PIC X(25) VALUE '2 16358 08348 01623 12322'.   02590001
028900**************YEARCHANGE 2013.0 *******************************   02600001
029000**************YEARCHANGE 2014.0 *******************************   02610001
029100*  TABLE RATE FOR FY2014 EFFECTIVE OCT 1, 2013                    02620001
029200*  20131001/               REGION/ INP / GEN SER / THER / REHAB   02630001
029300     05  FILLER    PIC X(08) VALUE '20131001'.                    02640001
029400     05  FILLER    PIC X(25) VALUE '1 15841 08619 01757 14401'.   02650001
029500     05  FILLER    PIC X(25) VALUE '2 16581 08462 01645 12490'.   02660001
029600**************YEARCHANGE 2014.0 *******************************   02670001
029700**************YEARCHANGE 2015.0 *******************************   02680001
029800*  TABLE RATE FOR FY2015 EFFECTIVE OCT 1, 2014                    02690001
029900*  20141001/               REGION/ INP / GEN SER / THER / REHAB   02700001
030000     05  FILLER    PIC X(08) VALUE '20141001'.                    02710001
030100     05  FILLER    PIC X(25) VALUE '1 16172 08799 01794 14702'.   02720001
030200     05  FILLER    PIC X(25) VALUE '2 16928 08639 01679 12751'.   02730001
030300**************YEARCHANGE 2015.0 *******************************   02740001
030400**************YEARCHANGE 2016.0 *******************************   02750001
030500*  TABLE RATE FOR FY2016 EFFECTIVE OCT 1, 2015                    02760001
030600*  20151001/               REGION/ INP / GEN SER / THER / REHAB   02770001
030700     05  FILLER    PIC X(08) VALUE '20151001'.                    02780001
030800     05  FILLER    PIC X(25) VALUE '1 16353 08897 01814 14867'.   02790001
030900     05  FILLER    PIC X(25) VALUE '2 17117 08736 01698 12894'.   02800001
031000**************YEARCHANGE 2016.0 *******************************   02810001
030400**************YEARCHANGE 2017.0 *******************************   02820001
030500*  TABLE RATE FOR FY2017 EFFECTIVE OCT 1, 2016                    02830001
030600*  20161001/               REGION/ INP / GEN SER / THER / REHAB   02840001
030700     05  FILLER    PIC X(08) VALUE '20161001'.                    02850001
030800     05  FILLER    PIC X(25) VALUE '1 16745 09111 01858 15224'.   02860001
030900     05  FILLER    PIC X(25) VALUE '2 17528 08946 01739 13203'.   02870001
031000**************YEARCHANGE 2017.0 *******************************   02880001
032800                                                                  02890001
031000**************YEARCHANGE 2017.0 *******************************   02900001
031100     02  REGION-DATA2 REDEFINES REGION-DATA.                      02910001
031200         04  REG-PERIOD        OCCURS 20.                         02920001
031300**************YEARCHANGE 2017.0 *******************************   02930001
031400             06  REG-EFF-DATE  PIC X(08).                         02940001
031500             06  REGS          OCCURS 2.                          02950001
031600                 08  REG-DATA  OCCURS 1.                          02951001
031700                     10  REGION        PIC X.                     02952001
031800                     10  FILLER        PIC X.                     02953001
031900                     10  R-IP-RATE     PIC 999V99.                02954001
032000                     10  FILLER        PIC X.                     02955001
032100                     10  R-GS-RATE     PIC 999V99.                02956001
032200                     10  FILLER        PIC X.                     02957001
032300                     10  R-TH-RATE     PIC 999V99.                02958001
032400                     10  FILLER        PIC X.                     02959001
032500                     10  R-REHAB-RATE  PIC 999V99.                02960001
032600                                                                  02961001
032700                                                                  02962001
032900***************************************************************   02963001
033000*  LAYUP TABLE AREA FOR RUG  44 CODES                         *   02964001
033100*  EFFECTIVE JULY 1, 1998  TIL JANUARY 1, 2006                *   02965001
033200*  FORMAT FOR RUG TABLE 44                                    *   02966001
033300*    N = NURSING   T = THERAPY  F = THERAPY COMPONENT FACTOR  *   02967001
033400***************************************************************   02968001
033500 01  RUG-TABLE.                                                   02968101
033600     02  RUG-DATA1.                                               02968201
033700*                               RUG  REV                          02968301
033800*                               CODE CODE N - T - F               02968401
033900         03  FILLER  PIC X(19)                                    02968501
034000                         VALUE 'AAA  9000 046 000 1'.             02968601
034100         03  FILLER  PIC X(19)                                    02968701
034200                         VALUE 'PA1  9001 046 000 1'.             02968801
034300         03  FILLER  PIC X(19)                                    02968901
034400                         VALUE 'PA2  9002 049 000 1'.             02969001
034500         03  FILLER  PIC X(19)                                    02970001
034600                         VALUE 'PB1  9003 050 000 1'.             02980001
034700         03  FILLER  PIC X(19)                                    02990001
034800                         VALUE 'PB2  9004 051 000 1'.             03000001
034900         03  FILLER  PIC X(19)                                    03010001
035000                         VALUE 'PC1  9005 064 000 1'.             03020001
035100         03  FILLER  PIC X(19)                                    03030001
035200                         VALUE 'PC2  9006 065 000 1'.             03040001
035300         03  FILLER  PIC X(19)                                    03050001
035400                         VALUE 'PD1  9007 070 000 1'.             03060001
035500         03  FILLER  PIC X(19)                                    03070001
035600                         VALUE 'PD2  9008 072 000 1'.             03080001
035700         03  FILLER  PIC X(19)                                    03090001
035800                         VALUE 'PE1  9009 077 000 1'.             03100001
035900         03  FILLER  PIC X(19)                                    03110001
036000                         VALUE 'PE2  9010 079 000 1'.             03120001
036100         03  FILLER  PIC X(19)                                    03130001
036200                         VALUE 'BA1  9011 048 000 1'.             03140001
036300         03  FILLER  PIC X(19)                                    03150001
036400                         VALUE 'BA2  9012 056 000 1'.             03160001
036500         03  FILLER  PIC X(19)                                    03170001
036600                         VALUE 'BB1  9013 065 000 1'.             03180001
036700         03  FILLER  PIC X(19)                                    03190001
036800                         VALUE 'BB2  9014 068 000 1'.             03200001
036900         03  FILLER  PIC X(19)                                    03210001
037000                         VALUE 'IA1  9015 053 000 1'.             03220001
037100         03  FILLER  PIC X(19)                                    03230001
037200                         VALUE 'IA2  9016 057 000 1'.             03240001
037300         03  FILLER  PIC X(19)                                    03250001
037400                         VALUE 'IB1  9017 067 000 1'.             03260001
037500         03  FILLER  PIC X(19)                                    03270001
037600                         VALUE 'IB2  9018 069 000 1'.             03280001
037700         03  FILLER  PIC X(19)                                    03290001
037800                         VALUE 'CA1  9019 075 000 1'.             03300001
037900         03  FILLER  PIC X(19)                                    03310001
038000                         VALUE 'CA2  9020 083 000 1'.             03320001
038100         03  FILLER  PIC X(19)                                    03330001
038200                         VALUE 'CB1  9021 084 000 1'.             03340001
038300         03  FILLER  PIC X(19)                                    03350001
038400                         VALUE 'CB2  9022 091 000 1'.             03360001
038500         03  FILLER  PIC X(19)                                    03370001
038600                         VALUE 'CC1  9023 099 000 1'.             03380001
038700         03  FILLER  PIC X(19)                                    03390001
038800                         VALUE 'CC2  9024 112 000 1'.             03400001
038900         03  FILLER  PIC X(19)                                    03410001
039000                         VALUE 'SSA  9025 101 000 1'.             03420001
039100         03  FILLER  PIC X(19)                                    03430001
039200                         VALUE 'SSB  9026 105 000 1'.             03440001
039300         03  FILLER  PIC X(19)                                    03450001
039400                         VALUE 'SSC  9027 113 000 1'.             03460001
039500         03  FILLER  PIC X(19)                                    03470001
039600                         VALUE 'SE1  9028 117 000 1'.             03480001
039700         03  FILLER  PIC X(19)                                    03490001
039800                         VALUE 'SE2  9029 139 000 1'.             03500001
039900         03  FILLER  PIC X(19)                                    03510001
040000                         VALUE 'SE3  9030 170 000 1'.             03520001
040100         03  FILLER  PIC X(19)                                    03530001
040200                         VALUE 'RLA  9031 080 043 0'.             03540001
040300         03  FILLER  PIC X(19)                                    03550001
040400                         VALUE 'RLB  9032 111 043 0'.             03560001
040500         03  FILLER  PIC X(19)                                    03570001
040600                         VALUE 'RMA  9033 096 077 0'.             03580001
040700         03  FILLER  PIC X(19)                                    03590001
040800                         VALUE 'RMB  9034 109 077 0'.             03600001
040900         03  FILLER  PIC X(19)                                    03610001
041000                         VALUE 'RMC  9035 135 077 0'.             03620001
041100         03  FILLER  PIC X(19)                                    03630001
041200                         VALUE 'RHA  9036 087 094 0'.             03640001
041300         03  FILLER  PIC X(19)                                    03650001
041400                         VALUE 'RHB  9037 106 094 0'.             03660001
041500         03  FILLER  PIC X(19)                                    03670001
041600                         VALUE 'RHC  9038 126 094 0'.             03680001
041700         03  FILLER  PIC X(19)                                    03690001
041800                         VALUE 'RVA  9039 081 141 0'.             03700001
041900         03  FILLER  PIC X(19)                                    03710001
042000                         VALUE 'RVB  9040 104 141 0'.             03720001
042100         03  FILLER  PIC X(19)                                    03730001
042200                         VALUE 'RVC  9041 113 141 0'.             03740001
042300         03  FILLER  PIC X(19)                                    03750001
042400                         VALUE 'RUA  9042 078 225 0'.             03760001
042500         03  FILLER  PIC X(19)                                    03770001
042600                         VALUE 'RUB  9043 095 225 0'.             03780001
042700         03  FILLER  PIC X(19)                                    03790001
042800                         VALUE 'RUC  9044 130 225 0'.             03800001
042900     02  RUG-DATA2 REDEFINES RUG-DATA1 OCCURS 45                  03810001
043000             ASCENDING KEY IS RUG-CODE                            03820001
043100             INDEXED BY RUG01.                                    03830001
043200         03  RUG-CODE          PIC X(03).                         03840001
043300         03  RUG-REGS             OCCURS 1.                       03850001
043400             04  FILLER        PIC XX.                            03860001
043500             04  REV-CODE      PIC XXXX.                          03870001
043600             04  FILLER        PIC X.                             03880001
043700             04  RUG-NURSING   PIC 9V99.                          03890001
043800             04  FILLER        PIC X.                             03900001
043900             04  RUG-THERAPY   PIC 9V99.                          03910001
044000             04  FILLER        PIC X.                             03920001
044100             04  RUG-FACTOR    PIC 9.                             03930001
044200                                                                  03940001
044300                                                                  03950001
044400***************************************************************   03960001
044500*  LAYUP TABLE AREA FOR RUG 53 CODES                          *   03970001
044600*  EFFECTIVE JAN  1, 2006                                     *   03980001
044700*  FORMAT FOR RUG TABLE 53                                    *   03990001
044800*    N = NURSING   T = THERAPY  F = THERAPY COMPONENT FACTOR  *   04000001
044900***************************************************************   04010001
045000 01  RUG53-TABLE.                                                 04020001
045100     02  RUG53-DATA1.                                             04030001
045200*                               RUG  REV                          04040001
045300*                               CODE CODE N - T - F               04050001
045400         03  FILLER  PIC X(19)                                    04060001
045500                         VALUE 'AAA  9000 050 000 1'.             04070001
045600         03  FILLER  PIC X(19)                                    04080001
045700                         VALUE 'PA1  9001 050 000 1'.             04090001
045800         03  FILLER  PIC X(19)                                    04100001
045900                         VALUE 'PA2  9002 053 000 1'.             04110001
046000         03  FILLER  PIC X(19)                                    04120001
046100                         VALUE 'PB1  9003 054 000 1'.             04130001
046200         03  FILLER  PIC X(19)                                    04140001
046300                         VALUE 'PB2  9004 055 000 1'.             04150001
046400         03  FILLER  PIC X(19)                                    04160001
046500                         VALUE 'PC1  9005 069 000 1'.             04170001
046600         03  FILLER  PIC X(19)                                    04180001
046700                         VALUE 'PC2  9006 071 000 1'.             04190001
046800         03  FILLER  PIC X(19)                                    04200001
046900                         VALUE 'PD1  9007 076 000 1'.             04210001
047000         03  FILLER  PIC X(19)                                    04220001
047100                         VALUE 'PD2  9008 078 000 1'.             04230001
047200         03  FILLER  PIC X(19)                                    04240001
047300                         VALUE 'PE1  9009 082 000 1'.             04250001
047400         03  FILLER  PIC X(19)                                    04260001
047500                         VALUE 'PE2  9010 085 000 1'.             04270001
047600         03  FILLER  PIC X(19)                                    04280001
047700                         VALUE 'BA1  9011 052 000 1'.             04290001
047800         03  FILLER  PIC X(19)                                    04300001
047900                         VALUE 'BA2  9012 060 000 1'.             04310001
048000         03  FILLER  PIC X(19)                                    04320001
048100                         VALUE 'BB1  9013 069 000 1'.             04330001
048200         03  FILLER  PIC X(19)                                    04340001
048300                         VALUE 'BB2  9014 073 000 1'.             04350001
048400         03  FILLER  PIC X(19)                                    04360001
048500                         VALUE 'IA1  9015 056 000 1'.             04370001
048600         03  FILLER  PIC X(19)                                    04380001
048700                         VALUE 'IA2  9016 061 000 1'.             04390001
048800         03  FILLER  PIC X(19)                                    04400001
048900                         VALUE 'IB1  9017 072 000 1'.             04410001
049000         03  FILLER  PIC X(19)                                    04420001
049100                         VALUE 'IB2  9018 074 000 1'.             04430001
049200         03  FILLER  PIC X(19)                                    04440001
049300                         VALUE 'CA1  9019 080 000 1'.             04450001
049400         03  FILLER  PIC X(19)                                    04460001
049500                         VALUE 'CA2  9020 090 000 1'.             04470001
049600         03  FILLER  PIC X(19)                                    04480001
049700                         VALUE 'CB1  9021 091 000 1'.             04490001
049800         03  FILLER  PIC X(19)                                    04500001
049900                         VALUE 'CB2  9022 098 000 1'.             04510001
050000         03  FILLER  PIC X(19)                                    04520001
050100                         VALUE 'CC1  9023 106 000 1'.             04530001
050200         03  FILLER  PIC X(19)                                    04540001
050300                         VALUE 'CC2  9024 122 000 1'.             04550001
050400         03  FILLER  PIC X(19)                                    04560001
050500                         VALUE 'SSA  9025 110 000 1'.             04570001
050600         03  FILLER  PIC X(19)                                    04580001
050700                         VALUE 'SSB  9026 113 000 1'.             04590001
050800         03  FILLER  PIC X(19)                                    04600001
050900                         VALUE 'SSC  9027 123 000 1'.             04610001
051000         03  FILLER  PIC X(19)                                    04620001
051100                         VALUE 'SE1  9028 126 000 1'.             04630001
051200         03  FILLER  PIC X(19)                                    04640001
051300                         VALUE 'SE2  9029 149 000 1'.             04650001
051400         03  FILLER  PIC X(19)                                    04660001
051500                         VALUE 'SE3  9030 186 000 1'.             04670001
051600         03  FILLER  PIC X(19)                                    04680001
051700                         VALUE 'RLA  9031 085 043 0'.             04690001
051800         03  FILLER  PIC X(19)                                    04700001
051900                         VALUE 'RLB  9032 114 043 0'.             04710001
052000         03  FILLER  PIC X(19)                                    04720001
052100                         VALUE 'RMA  9033 104 077 0'.             04730001
052200         03  FILLER  PIC X(19)                                    04740001
052300                         VALUE 'RMB  9034 109 077 0'.             04750001
052400         03  FILLER  PIC X(19)                                    04760001
052500                         VALUE 'RMC  9035 115 077 0'.             04770001
052600         03  FILLER  PIC X(19)                                    04780001
052700                         VALUE 'RHA  9036 094 094 0'.             04790001
052800         03  FILLER  PIC X(19)                                    04800001
052900                         VALUE 'RHB  9037 111 094 0'.             04810001
053000         03  FILLER  PIC X(19)                                    04820001
053100                         VALUE 'RHC  9038 122 094 0'.             04830001
053200         03  FILLER  PIC X(19)                                    04840001
053300                         VALUE 'RVA  9039 082 141 0'.             04850001
053400         03  FILLER  PIC X(19)                                    04860001
053500                         VALUE 'RVB  9040 109 141 0'.             04870001
053600         03  FILLER  PIC X(19)                                    04880001
053700                         VALUE 'RVC  9041 123 141 0'.             04890001
053800         03  FILLER  PIC X(19)                                    04900001
053900                         VALUE 'RUA  9042 084 225 0'.             04910001
054000         03  FILLER  PIC X(19)                                    04920001
054100                         VALUE 'RUB  9043 099 225 0'.             04930001
054200         03  FILLER  PIC X(19)                                    04940001
054300                         VALUE 'RUC  9044 128 225 0'.             04950001
054400         03  FILLER  PIC X(19)                                    04960001
054500                         VALUE 'RLX  9045 131 043 0'.             04970001
054600         03  FILLER  PIC X(19)                                    04980001
054700                         VALUE 'RML  9046 168 077 0'.             04990001
054800         03  FILLER  PIC X(19)                                    05000001
054900                         VALUE 'RMX  9047 193 077 0'.             05010001
055000         03  FILLER  PIC X(19)                                    05020001
055100                         VALUE 'RHL  9048 137 094 0'.             05030001
055200         03  FILLER  PIC X(19)                                    05040001
055300                         VALUE 'RHX  9049 142 094 0'.             05050001
055400         03  FILLER  PIC X(19)                                    05060001
055500                         VALUE 'RVL  9050 133 141 0'.             05070001
055600         03  FILLER  PIC X(19)                                    05080001
055700                         VALUE 'RVX  9051 154 141 0'.             05090001
055800         03  FILLER  PIC X(19)                                    05100001
055900                         VALUE 'RUL  9052 140 225 0'.             05110001
056000         03  FILLER  PIC X(19)                                    05120001
056100                         VALUE 'RUX  9053 190 225 0'.             05130001
056200     02  RUG53-DATA2 REDEFINES RUG53-DATA1 OCCURS 54              05140001
056300             ASCENDING KEY IS RUG53-CODE                          05150001
056400             INDEXED BY RUG53-01.                                 05160001
056500         03  RUG53-CODE          PIC X(03).                       05170001
056600         03  RUG53-REGS             OCCURS 1.                     05180001
056700             04  FILLER        PIC XX.                            05190001
056800             04  REV53-CODE      PIC XXXX.                        05200001
056900             04  FILLER        PIC X.                             05210001
057000             04  RUG53-NURSING   PIC 9V99.                        05220001
057100             04  FILLER        PIC X.                             05230001
057200             04  RUG53-THERAPY   PIC 9V99.                        05240001
057300             04  FILLER        PIC X.                             05250001
057400             04  RUG53-FACTOR    PIC 9.                           05260001
057500                                                                  05270001
057600                                                                  05280001
057700***************************************************************   05290001
057800*  LAYUP TABLE AREA FOR RUG 53 CODES FOR FY2010               *   05300001
057900*  EFFECTIVE OCT  1, 2009                                     *   05310001
058000*  FORMAT FOR RUG TABLE 53                                    *   05320001
058100*    N = NURSING   T = THERAPY  F = THERAPY COMPONENT FACTOR  *   05330001
058200***************************************************************   05340001
058300 01  RUG53-2010-TABLE.                                            05350001
058400     02  RUG53-2010-DATA1.                                        05360001
058500*                               RUG  REV                          05370001
058600*                               CODE CODE N - T - F               05380001
058700         03  FILLER  PIC X(19)                                    05390001
058800                         VALUE 'AAA  9000 046 000 1'.             05400001
058900         03  FILLER  PIC X(19)                                    05410001
059000                         VALUE 'PA1  9001 046 000 1'.             05420001
059100         03  FILLER  PIC X(19)                                    05430001
059200                         VALUE 'PA2  9002 049 000 1'.             05440001
059300         03  FILLER  PIC X(19)                                    05450001
059400                         VALUE 'PB1  9003 050 000 1'.             05460001
059500         03  FILLER  PIC X(19)                                    05470001
059600                         VALUE 'PB2  9004 052 000 1'.             05480001
059700         03  FILLER  PIC X(19)                                    05490001
059800                         VALUE 'PC1  9005 065 000 1'.             05500001
059900         03  FILLER  PIC X(19)                                    05510001
060000                         VALUE 'PC2  9006 066 000 1'.             05520001
060100         03  FILLER  PIC X(19)                                    05530001
060200                         VALUE 'PD1  9007 070 000 1'.             05540001
060300         03  FILLER  PIC X(19)                                    05550001
060400                         VALUE 'PD2  9008 072 000 1'.             05560001
060500         03  FILLER  PIC X(19)                                    05570001
060600                         VALUE 'PE1  9009 077 000 1'.             05580001
060700         03  FILLER  PIC X(19)                                    05590001
060800                         VALUE 'PE2  9010 079 000 1'.             05600001
060900         03  FILLER  PIC X(19)                                    05610001
061000                         VALUE 'BA1  9011 048 000 1'.             05620001
061100         03  FILLER  PIC X(19)                                    05630001
061200                         VALUE 'BA2  9012 056 000 1'.             05640001
061300         03  FILLER  PIC X(19)                                    05650001
061400                         VALUE 'BB1  9013 065 000 1'.             05660001
061500         03  FILLER  PIC X(19)                                    05670001
061600                         VALUE 'BB2  9014 068 000 1'.             05680001
061700         03  FILLER  PIC X(19)                                    05690001
061800                         VALUE 'IA1  9015 053 000 1'.             05700001
061900         03  FILLER  PIC X(19)                                    05710001
062000                         VALUE 'IA2  9016 057 000 1'.             05720001
062100         03  FILLER  PIC X(19)                                    05730001
062200                         VALUE 'IB1  9017 067 000 1'.             05740001
062300         03  FILLER  PIC X(19)                                    05750001
062400                         VALUE 'IB2  9018 069 000 1'.             05760001
062500         03  FILLER  PIC X(19)                                    05770001
062600                         VALUE 'CA1  9019 075 000 1'.             05780001
062700         03  FILLER  PIC X(19)                                    05790001
062800                         VALUE 'CA2  9020 083 000 1'.             05800001
062900         03  FILLER  PIC X(19)                                    05810001
063000                         VALUE 'CB1  9021 084 000 1'.             05820001
063100         03  FILLER  PIC X(19)                                    05830001
063200                         VALUE 'CB2  9022 091 000 1'.             05840001
063300         03  FILLER  PIC X(19)                                    05850001
063400                         VALUE 'CC1  9023 099 000 1'.             05860001
063500         03  FILLER  PIC X(19)                                    05870001
063600                         VALUE 'CC2  9024 113 000 1'.             05880001
063700         03  FILLER  PIC X(19)                                    05890001
063800                         VALUE 'SSA  9025 102 000 1'.             05900001
063900         03  FILLER  PIC X(19)                                    05910001
064000                         VALUE 'SSB  9026 105 000 1'.             05920001
064100         03  FILLER  PIC X(19)                                    05930001
064200                         VALUE 'SSC  9027 114 000 1'.             05940001
064300         03  FILLER  PIC X(19)                                    05950001
064400                         VALUE 'SE1  9028 117 000 1'.             05960001
064500         03  FILLER  PIC X(19)                                    05970001
064600                         VALUE 'SE2  9029 138 000 1'.             05980001
064700         03  FILLER  PIC X(19)                                    05990001
064800                         VALUE 'SE3  9030 172 000 1'.             06000001
064900         03  FILLER  PIC X(19)                                    06010001
065000                         VALUE 'RLA  9031 079 043 0'.             06020001
065100         03  FILLER  PIC X(19)                                    06030001
065200                         VALUE 'RLB  9032 106 043 0'.             06040001
065300         03  FILLER  PIC X(19)                                    06050001
065400                         VALUE 'RMA  9033 097 077 0'.             06060001
065500         03  FILLER  PIC X(19)                                    06070001
065600                         VALUE 'RMB  9034 101 077 0'.             06080001
065700         03  FILLER  PIC X(19)                                    06090001
065800                         VALUE 'RMC  9035 107 077 0'.             06100001
065900         03  FILLER  PIC X(19)                                    06110001
066000                         VALUE 'RHA  9036 088 094 0'.             06120001
066100         03  FILLER  PIC X(19)                                    06130001
066200                         VALUE 'RHB  9037 103 094 0'.             06140001
066300         03  FILLER  PIC X(19)                                    06150001
066400                         VALUE 'RHC  9038 113 094 0'.             06160001
066500         03  FILLER  PIC X(19)                                    06170001
066600                         VALUE 'RVA  9039 077 141 0'.             06180001
066700         03  FILLER  PIC X(19)                                    06190001
066800                         VALUE 'RVB  9040 101 141 0'.             06200001
066900         03  FILLER  PIC X(19)                                    06210001
067000                         VALUE 'RVC  9041 114 141 0'.             06220001
067100         03  FILLER  PIC X(19)                                    06230001
067200                         VALUE 'RUA  9042 078 225 0'.             06240001
067300         03  FILLER  PIC X(19)                                    06250001
067400                         VALUE 'RUB  9043 092 225 0'.             06260001
067500         03  FILLER  PIC X(19)                                    06270001
067600                         VALUE 'RUC  9044 120 225 0'.             06280001
067700         03  FILLER  PIC X(19)                                    06290001
067800                         VALUE 'RLX  9045 122 043 0'.             06300001
067900         03  FILLER  PIC X(19)                                    06310001
068000                         VALUE 'RML  9046 157 077 0'.             06320001
068100         03  FILLER  PIC X(19)                                    06330001
068200                         VALUE 'RMX  9047 180 077 0'.             06340001
068300         03  FILLER  PIC X(19)                                    06350001
068400                         VALUE 'RHL  9048 127 094 0'.             06360001
068500         03  FILLER  PIC X(19)                                    06370001
068600                         VALUE 'RHX  9049 133 094 0'.             06380001
068700         03  FILLER  PIC X(19)                                    06390001
068800                         VALUE 'RVL  9050 124 141 0'.             06400001
068900         03  FILLER  PIC X(19)                                    06410001
069000                         VALUE 'RVX  9051 144 141 0'.             06420001
069100         03  FILLER  PIC X(19)                                    06430001
069200                         VALUE 'RUL  9052 131 225 0'.             06440001
069300         03  FILLER  PIC X(19)                                    06450001
069400                         VALUE 'RUX  9053 177 225 0'.             06460001
069500     02  RUG53-2010-DATA2 REDEFINES RUG53-2010-DATA1 OCCURS 54    06470001
069600             ASCENDING KEY IS RUG53-2010-CODE                     06480001
069700             INDEXED BY RUG53-2010-01.                            06490001
069800         03  RUG53-2010-CODE     PIC X(03).                       06500001
069900         03  RUG53-2010-REGS        OCCURS 1.                     06510001
070000             04  FILLER        PIC XX.                            06520001
070100             04  REV53-2010-CODE      PIC XXXX.                   06530001
070200             04  FILLER        PIC X.                             06540001
070300             04  RUG53-2010-NURSING PIC 9V99.                     06550001
070400             04  FILLER        PIC X.                             06560001
070500             04  RUG53-2010-THERAPY PIC 9V99.                     06570001
070600             04  FILLER        PIC X.                             06580001
070700             04  RUG53-2010-FACTOR PIC 9.                         06590001
070800                                                                  06600001
070900***************************************************************   06610001
071000*  LAYUP TABLE AREA FOR RUG 53 CODES FOR FY2011               *   06620001
071100*  EFFECTIVE OCT  2, 2010                                     *   06630001
071200*  FORMAT FOR RUG TABLE 53                                    *   06640001
071300*    N = NURSING   T = THERAPY  F = THERAPY COMPONENT FACTOR  *   06650001
071400***************************************************************   06660001
071500 01  RUG67-2011-TABLE.                                            06670001
071600     02  RUG67-2011-DATA1.                                        06680001
071700*                                      RUG  REV                   06690001
071800*                                      CODE CODE N - T - F        06700001
071900         03  FILLER  PIC X(19)  VALUE 'AAA  9000 054 000 1'.      06710001
072000         03  FILLER  PIC X(19)  VALUE 'BA1  9011 064 000 1'.      06720001
072100         03  FILLER  PIC X(19)  VALUE 'BA2  9012 070 000 1'.      06730001
072200         03  FILLER  PIC X(19)  VALUE 'BB1  9013 090 000 1'.      06740001
072300         03  FILLER  PIC X(19)  VALUE 'BB2  9014 097 000 1'.      06750001
072400         03  FILLER  PIC X(19)  VALUE 'CA1  9019 078 000 1'.      06760001
072500         03  FILLER  PIC X(19)  VALUE 'CA2  9020 088 000 1'.      06770001
072600         03  FILLER  PIC X(19)  VALUE 'CB1  9021 102 000 1'.      06780001
072700         03  FILLER  PIC X(19)  VALUE 'CB2  9022 115 000 1'.      06790001
072800         03  FILLER  PIC X(19)  VALUE 'CC1  9023 115 000 1'.      06800001
072900         03  FILLER  PIC X(19)  VALUE 'CC2  9024 129 000 1'.      06810001
073000         03  FILLER  PIC X(19)  VALUE 'CD1  9024 138 000 1'.      06820001
073100         03  FILLER  PIC X(19)  VALUE 'CD2  9024 156 000 1'.      06830001
073200         03  FILLER  PIC X(19)  VALUE 'CE1  9024 150 000 1'.      06840001
073300         03  FILLER  PIC X(19)  VALUE 'CE2  9028 168 000 1'.      06850001
073400         03  FILLER  PIC X(19)  VALUE 'ES1  9028 232 000 1'.      06860001
073500         03  FILLER  PIC X(19)  VALUE 'ES2  9029 267 000 1'.      06870001
073600         03  FILLER  PIC X(19)  VALUE 'ES3  9030 358 000 1'.      06880001
073700         03  FILLER  PIC X(19)  VALUE 'HB1  9015 146 000 1'.      06890001
073800         03  FILLER  PIC X(19)  VALUE 'HB2  9016 186 000 1'.      06900001
073900         03  FILLER  PIC X(19)  VALUE 'HC1  9017 148 000 1'.      06910001
074000         03  FILLER  PIC X(19)  VALUE 'HC2  9018 189 000 1'.      06920001
074100         03  FILLER  PIC X(19)  VALUE 'HD1  9018 160 000 1'.      06930001
074200         03  FILLER  PIC X(19)  VALUE 'HD2  9018 204 000 1'.      06940001
074300         03  FILLER  PIC X(19)  VALUE 'HE1  9018 174 000 1'.      06950001
074400         03  FILLER  PIC X(19)  VALUE 'HE2  9018 222 000 1'.      06960001
074500         03  FILLER  PIC X(19)  VALUE 'LB1  9018 114 000 1'.      06970001
074600         03  FILLER  PIC X(19)  VALUE 'LB2  9018 145 000 1'.      06980001
074700         03  FILLER  PIC X(19)  VALUE 'LC1  9018 122 000 1'.      06990001
074800         03  FILLER  PIC X(19)  VALUE 'LC2  9018 156 000 1'.      07000001
074900         03  FILLER  PIC X(19)  VALUE 'LD1  9018 146 000 1'.      07010001
075000         03  FILLER  PIC X(19)  VALUE 'LD2  9018 186 000 1'.      07020001
075100         03  FILLER  PIC X(19)  VALUE 'LE1  9018 154 000 1'.      07030001
075200         03  FILLER  PIC X(19)  VALUE 'LE2  9018 196 000 1'.      07040001
075300         03  FILLER  PIC X(19)  VALUE 'PA1  9001 054 000 1'.      07050001
075400         03  FILLER  PIC X(19)  VALUE 'PA2  9002 059 000 1'.      07060001
075500         03  FILLER  PIC X(19)  VALUE 'PB1  9003 078 000 1'.      07070001
075600         03  FILLER  PIC X(19)  VALUE 'PB2  9004 084 000 1'.      07080001
075700         03  FILLER  PIC X(19)  VALUE 'PC1  9005 102 000 1'.      07090001
075800         03  FILLER  PIC X(19)  VALUE 'PC2  9006 110 000 1'.      07100001
075900         03  FILLER  PIC X(19)  VALUE 'PD1  9007 128 000 1'.      07110001
076000         03  FILLER  PIC X(19)  VALUE 'PD2  9008 138 000 1'.      07120001
076100         03  FILLER  PIC X(19)  VALUE 'PE1  9009 140 000 1'.      07130001
076200         03  FILLER  PIC X(19)  VALUE 'PE2  9010 150 000 1'.      07140001
076300         03  FILLER  PIC X(19)  VALUE 'RHA  9036 123 085 0'.      07150001
076400         03  FILLER  PIC X(19)  VALUE 'RHB  9037 160 085 0'.      07160001
076500         03  FILLER  PIC X(19)  VALUE 'RHC  9038 194 085 0'.      07170001
076600         03  FILLER  PIC X(19)  VALUE 'RHL  9048 289 085 0'.      07180001
076700         03  FILLER  PIC X(19)  VALUE 'RHX  9049 343 085 0'.      07190001
076800         03  FILLER  PIC X(19)  VALUE 'RLA  9031 095 028 0'.      07200001
076900         03  FILLER  PIC X(19)  VALUE 'RLB  9032 201 028 0'.      07210001
077000         03  FILLER  PIC X(19)  VALUE 'RLX  9045 304 028 0'.      07220001
077100         03  FILLER  PIC X(19)  VALUE 'RMA  9033 113 055 0'.      07230001
077200         03  FILLER  PIC X(19)  VALUE 'RMB  9034 163 055 0'.      07240001
077300         03  FILLER  PIC X(19)  VALUE 'RMC  9035 183 055 0'.      07250001
077400         03  FILLER  PIC X(19)  VALUE 'RML  9046 295 055 0'.      07260001
077500         03  FILLER  PIC X(19)  VALUE 'RMX  9047 331 055 0'.      07270001
077600         03  FILLER  PIC X(19)  VALUE 'RUA  9042 133 187 0'.      07280001
077700         03  FILLER  PIC X(19)  VALUE 'RUB  9043 210 187 0'.      07290001
077800         03  FILLER  PIC X(19)  VALUE 'RUC  9044 210 187 0'.      07300001
077900         03  FILLER  PIC X(19)  VALUE 'RUL  9052 345 187 0'.      07310001
078000         03  FILLER  PIC X(19)  VALUE 'RUX  9053 359 187 0'.      07320001
078100         03  FILLER  PIC X(19)  VALUE 'RVA  9039 148 128 0'.      07330001
078200         03  FILLER  PIC X(19)  VALUE 'RVB  9040 149 128 0'.      07340001
078300         03  FILLER  PIC X(19)  VALUE 'RVC  9041 202 128 0'.      07350001
078400         03  FILLER  PIC X(19)  VALUE 'RVL  9050 295 128 0'.      07360001
078500         03  FILLER  PIC X(19)  VALUE 'RVX  9051 351 128 0'.      07370001
078600     02  RUG67-2011-DATA2 REDEFINES RUG67-2011-DATA1 OCCURS 67    07380001
078700             ASCENDING KEY IS RUG67-2011-CODE                     07390001
078800             INDEXED BY RUG67-2011-01.                            07400001
078900         03  RUG67-2011-CODE     PIC X(03).                       07410001
079000         03  RUG67-2011-REGS        OCCURS 1.                     07420001
079100             04  FILLER        PIC XX.                            07430001
079200             04  REV67-2011-CODE      PIC XXXX.                   07440001
079300             04  FILLER        PIC X.                             07450001
079400             04  RUG67-2011-NURSING PIC 9V99.                     07460001
079500             04  FILLER        PIC X.                             07470001
079600             04  RUG67-2011-THERAPY PIC 9V99.                     07480001
079700             04  FILLER        PIC X.                             07490001
079800             04  RUG67-2011-FACTOR PIC 9.                         07500001
079900                                                                  07510001
080000***************************************************************   07520001
080100*  LAYUP TABLE AREA FOR RUG 67 CODES FOR FY2012               *   07530001
080200*  EFFECTIVE OCT  1, 2011                                     *   07540001
080300*  FORMAT FOR RUG TABLE 67                                    *   07550001
080400*    N = NURSING   T = THERAPY  F = THERAPY COMPONENT FACTOR  *   07560001
080500***************************************************************   07570001
080600 01  RUG67-2012-TABLE.                                            07580001
080700     02  RUG67-2012-DATA1.                                        07590001
080800*                                      RUG  REV                   07600001
080900*                                      CODE CODE N - T - F        07610001
081000         03  FILLER  PIC X(19)  VALUE 'AAA  9000 054 000 1'.      07620001
081100         03  FILLER  PIC X(19)  VALUE 'BA1  9011 064 000 1'.      07630001
081200         03  FILLER  PIC X(19)  VALUE 'BA2  9012 070 000 1'.      07640001
081300         03  FILLER  PIC X(19)  VALUE 'BB1  9013 090 000 1'.      07650001
081400         03  FILLER  PIC X(19)  VALUE 'BB2  9014 097 000 1'.      07660001
081500         03  FILLER  PIC X(19)  VALUE 'CA1  9019 078 000 1'.      07670001
081600         03  FILLER  PIC X(19)  VALUE 'CA2  9020 088 000 1'.      07680001
081700         03  FILLER  PIC X(19)  VALUE 'CB1  9021 102 000 1'.      07690001
081800         03  FILLER  PIC X(19)  VALUE 'CB2  9022 115 000 1'.      07700001
081900         03  FILLER  PIC X(19)  VALUE 'CC1  9023 115 000 1'.      07710001
082000         03  FILLER  PIC X(19)  VALUE 'CC2  9024 129 000 1'.      07720001
082100         03  FILLER  PIC X(19)  VALUE 'CD1  9024 138 000 1'.      07730001
082200         03  FILLER  PIC X(19)  VALUE 'CD2  9024 156 000 1'.      07740001
082300         03  FILLER  PIC X(19)  VALUE 'CE1  9024 150 000 1'.      07750001
082400         03  FILLER  PIC X(19)  VALUE 'CE2  9028 168 000 1'.      07760001
082500         03  FILLER  PIC X(19)  VALUE 'ES1  9028 232 000 1'.      07770001
082600         03  FILLER  PIC X(19)  VALUE 'ES2  9029 267 000 1'.      07780001
082700         03  FILLER  PIC X(19)  VALUE 'ES3  9030 358 000 1'.      07790001
082800         03  FILLER  PIC X(19)  VALUE 'HB1  9015 146 000 1'.      07800001
082900         03  FILLER  PIC X(19)  VALUE 'HB2  9016 186 000 1'.      07810001
083000         03  FILLER  PIC X(19)  VALUE 'HC1  9017 148 000 1'.      07820001
083100         03  FILLER  PIC X(19)  VALUE 'HC2  9018 189 000 1'.      07830001
083200         03  FILLER  PIC X(19)  VALUE 'HD1  9018 160 000 1'.      07840001
083300         03  FILLER  PIC X(19)  VALUE 'HD2  9018 204 000 1'.      07850001
083400         03  FILLER  PIC X(19)  VALUE 'HE1  9018 174 000 1'.      07860001
083500         03  FILLER  PIC X(19)  VALUE 'HE2  9018 222 000 1'.      07870001
083600         03  FILLER  PIC X(19)  VALUE 'LB1  9018 114 000 1'.      07880001
083700         03  FILLER  PIC X(19)  VALUE 'LB2  9018 145 000 1'.      07890001
083800         03  FILLER  PIC X(19)  VALUE 'LC1  9018 122 000 1'.      07900001
083900         03  FILLER  PIC X(19)  VALUE 'LC2  9018 156 000 1'.      07910001
084000         03  FILLER  PIC X(19)  VALUE 'LD1  9018 146 000 1'.      07920001
084100         03  FILLER  PIC X(19)  VALUE 'LD2  9018 186 000 1'.      07930001
084200         03  FILLER  PIC X(19)  VALUE 'LE1  9018 154 000 1'.      07940001
084300         03  FILLER  PIC X(19)  VALUE 'LE2  9018 196 000 1'.      07950001
084400         03  FILLER  PIC X(19)  VALUE 'PA1  9001 054 000 1'.      07960001
084500         03  FILLER  PIC X(19)  VALUE 'PA2  9002 059 000 1'.      07970001
084600         03  FILLER  PIC X(19)  VALUE 'PB1  9003 078 000 1'.      07980001
084700         03  FILLER  PIC X(19)  VALUE 'PB2  9004 084 000 1'.      07990001
084800         03  FILLER  PIC X(19)  VALUE 'PC1  9005 102 000 1'.      08000001
084900         03  FILLER  PIC X(19)  VALUE 'PC2  9006 110 000 1'.      08010001
085000         03  FILLER  PIC X(19)  VALUE 'PD1  9007 128 000 1'.      08020001
085100         03  FILLER  PIC X(19)  VALUE 'PD2  9008 138 000 1'.      08030001
085200         03  FILLER  PIC X(19)  VALUE 'PE1  9009 140 000 1'.      08040001
085300         03  FILLER  PIC X(19)  VALUE 'PE2  9010 150 000 1'.      08050001
085400         03  FILLER  PIC X(19)  VALUE 'RHA  9036 091 085 0'.      08060001
085500         03  FILLER  PIC X(19)  VALUE 'RHB  9037 119 085 0'.      08070001
085600         03  FILLER  PIC X(19)  VALUE 'RHC  9038 145 085 0'.      08080001
085700         03  FILLER  PIC X(19)  VALUE 'RHL  9048 215 085 0'.      08090001
085800         03  FILLER  PIC X(19)  VALUE 'RHX  9049 255 085 0'.      08100001
085900         03  FILLER  PIC X(19)  VALUE 'RLA  9031 071 028 0'.      08110001
086000         03  FILLER  PIC X(19)  VALUE 'RLB  9032 150 028 0'.      08120001
086100         03  FILLER  PIC X(19)  VALUE 'RLX  9045 226 028 0'.      08130001
086200         03  FILLER  PIC X(19)  VALUE 'RMA  9033 084 055 0'.      08140001
086300         03  FILLER  PIC X(19)  VALUE 'RMB  9034 122 055 0'.      08150001
086400         03  FILLER  PIC X(19)  VALUE 'RMC  9035 136 055 0'.      08160001
086500         03  FILLER  PIC X(19)  VALUE 'RML  9046 219 055 0'.      08170001
086600         03  FILLER  PIC X(19)  VALUE 'RMX  9047 247 055 0'.      08180001
086700         03  FILLER  PIC X(19)  VALUE 'RUA  9042 099 187 0'.      08190001
086800         03  FILLER  PIC X(19)  VALUE 'RUB  9043 156 187 0'.      08200001
086900         03  FILLER  PIC X(19)  VALUE 'RUC  9044 156 187 0'.      08210001
087000         03  FILLER  PIC X(19)  VALUE 'RUL  9052 257 187 0'.      08220001
087100         03  FILLER  PIC X(19)  VALUE 'RUX  9053 267 187 0'.      08230001
087200         03  FILLER  PIC X(19)  VALUE 'RVA  9039 110 128 0'.      08240001
087300         03  FILLER  PIC X(19)  VALUE 'RVB  9040 111 128 0'.      08250001
087400         03  FILLER  PIC X(19)  VALUE 'RVC  9041 151 128 0'.      08260001
087500         03  FILLER  PIC X(19)  VALUE 'RVL  9050 219 128 0'.      08270001
087600         03  FILLER  PIC X(19)  VALUE 'RVX  9051 261 128 0'.      08280001
087700     02  RUG67-2012-DATA2 REDEFINES RUG67-2012-DATA1 OCCURS 67    08290001
087800             ASCENDING KEY IS RUG67-2012-CODE                     08300001
087900             INDEXED BY RUG67-2012-01.                            08310001
088000         03  RUG67-2012-CODE     PIC X(03).                       08320001
088100         03  RUG67-2012-REGS        OCCURS 1.                     08330001
088200             04  FILLER        PIC XX.                            08340001
088300             04  REV67-2012-CODE      PIC XXXX.                   08350001
088400             04  FILLER        PIC X.                             08360001
088500             04  RUG67-2012-NURSING PIC 9V99.                     08370001
088600             04  FILLER        PIC X.                             08380001
088700             04  RUG67-2012-THERAPY PIC 9V99.                     08390001
088800             04  FILLER        PIC X.                             08400001
088900             04  RUG67-2012-FACTOR PIC 9.                         08410001
089000                                                                  08420001
089100*********************>>  2013  <<**********************           08430001
089200                                                                  08440001
089300                                                                  08450001
089400***************************************************************   08460001
089500*  LAYUP TABLE AREA FOR RUG 67 CODES FOR FY2013               *   08470001
089600*  EFFECTIVE OCT  1, 2012                                     *   08480001
089700*  FORMAT FOR RUG TABLE 67                                    *   08490001
089800*    N = NURSING   T = THERAPY  F = THERAPY COMPONENT FACTOR  *   08500001
089900***************************************************************   08510001
090000 01  RUG67-2013-TABLE.                                            08520001
090100     02  RUG67-2013-DATA1.                                        08530001
090200*                                      RUG  REV                   08540001
090300*                                      CODE CODE N - T - F        08550001
090400         03  FILLER  PIC X(19)  VALUE 'AAA  9000 054 000 1'.      08560001
090500         03  FILLER  PIC X(19)  VALUE 'BA1  9011 064 000 1'.      08570001
090600         03  FILLER  PIC X(19)  VALUE 'BA2  9012 070 000 1'.      08580001
090700         03  FILLER  PIC X(19)  VALUE 'BB1  9013 090 000 1'.      08590001
090800         03  FILLER  PIC X(19)  VALUE 'BB2  9014 097 000 1'.      08600001
090900         03  FILLER  PIC X(19)  VALUE 'CA1  9019 078 000 1'.      08610001
091000         03  FILLER  PIC X(19)  VALUE 'CA2  9020 088 000 1'.      08620001
091100         03  FILLER  PIC X(19)  VALUE 'CB1  9021 102 000 1'.      08630001
091200         03  FILLER  PIC X(19)  VALUE 'CB2  9022 115 000 1'.      08640001
091300         03  FILLER  PIC X(19)  VALUE 'CC1  9023 115 000 1'.      08650001
091400         03  FILLER  PIC X(19)  VALUE 'CC2  9024 129 000 1'.      08660001
091500         03  FILLER  PIC X(19)  VALUE 'CD1  9024 138 000 1'.      08670001
091600         03  FILLER  PIC X(19)  VALUE 'CD2  9024 156 000 1'.      08680001
091700         03  FILLER  PIC X(19)  VALUE 'CE1  9024 150 000 1'.      08690001
091800         03  FILLER  PIC X(19)  VALUE 'CE2  9028 168 000 1'.      08700001
091900         03  FILLER  PIC X(19)  VALUE 'ES1  9028 232 000 1'.      08710001
092000         03  FILLER  PIC X(19)  VALUE 'ES2  9029 267 000 1'.      08720001
092100         03  FILLER  PIC X(19)  VALUE 'ES3  9030 358 000 1'.      08730001
092200         03  FILLER  PIC X(19)  VALUE 'HB1  9015 146 000 1'.      08740001
092300         03  FILLER  PIC X(19)  VALUE 'HB2  9016 186 000 1'.      08750001
092400         03  FILLER  PIC X(19)  VALUE 'HC1  9017 148 000 1'.      08760001
092500         03  FILLER  PIC X(19)  VALUE 'HC2  9018 189 000 1'.      08770001
092600         03  FILLER  PIC X(19)  VALUE 'HD1  9018 160 000 1'.      08780001
092700         03  FILLER  PIC X(19)  VALUE 'HD2  9018 204 000 1'.      08790001
092800         03  FILLER  PIC X(19)  VALUE 'HE1  9018 174 000 1'.      08800001
092900         03  FILLER  PIC X(19)  VALUE 'HE2  9018 222 000 1'.      08810001
093000         03  FILLER  PIC X(19)  VALUE 'LB1  9018 114 000 1'.      08820001
093100         03  FILLER  PIC X(19)  VALUE 'LB2  9018 145 000 1'.      08830001
093200         03  FILLER  PIC X(19)  VALUE 'LC1  9018 122 000 1'.      08840001
093300         03  FILLER  PIC X(19)  VALUE 'LC2  9018 156 000 1'.      08850001
093400         03  FILLER  PIC X(19)  VALUE 'LD1  9018 146 000 1'.      08860001
093500         03  FILLER  PIC X(19)  VALUE 'LD2  9018 186 000 1'.      08870001
093600         03  FILLER  PIC X(19)  VALUE 'LE1  9018 154 000 1'.      08880001
093700         03  FILLER  PIC X(19)  VALUE 'LE2  9018 196 000 1'.      08890001
093800         03  FILLER  PIC X(19)  VALUE 'PA1  9001 054 000 1'.      08900001
093900         03  FILLER  PIC X(19)  VALUE 'PA2  9002 059 000 1'.      08910001
094000         03  FILLER  PIC X(19)  VALUE 'PB1  9003 078 000 1'.      08920001
094100         03  FILLER  PIC X(19)  VALUE 'PB2  9004 084 000 1'.      08930001
094200         03  FILLER  PIC X(19)  VALUE 'PC1  9005 102 000 1'.      08940001
094300         03  FILLER  PIC X(19)  VALUE 'PC2  9006 110 000 1'.      08950001
094400         03  FILLER  PIC X(19)  VALUE 'PD1  9007 128 000 1'.      08960001
094500         03  FILLER  PIC X(19)  VALUE 'PD2  9008 138 000 1'.      08970001
094600         03  FILLER  PIC X(19)  VALUE 'PE1  9009 140 000 1'.      08980001
094700         03  FILLER  PIC X(19)  VALUE 'PE2  9010 150 000 1'.      08990001
094800         03  FILLER  PIC X(19)  VALUE 'RHA  9036 091 085 0'.      09000001
094900         03  FILLER  PIC X(19)  VALUE 'RHB  9037 119 085 0'.      09010001
095000         03  FILLER  PIC X(19)  VALUE 'RHC  9038 145 085 0'.      09020001
095100         03  FILLER  PIC X(19)  VALUE 'RHL  9048 215 085 0'.      09030001
095200         03  FILLER  PIC X(19)  VALUE 'RHX  9049 255 085 0'.      09040001
095300         03  FILLER  PIC X(19)  VALUE 'RLA  9031 071 028 0'.      09050001
095400         03  FILLER  PIC X(19)  VALUE 'RLB  9032 150 028 0'.      09060001
095500         03  FILLER  PIC X(19)  VALUE 'RLX  9045 226 028 0'.      09070001
095600         03  FILLER  PIC X(19)  VALUE 'RMA  9033 084 055 0'.      09080001
095700         03  FILLER  PIC X(19)  VALUE 'RMB  9034 122 055 0'.      09090001
095800         03  FILLER  PIC X(19)  VALUE 'RMC  9035 136 055 0'.      09100001
095900         03  FILLER  PIC X(19)  VALUE 'RML  9046 219 055 0'.      09110001
096000         03  FILLER  PIC X(19)  VALUE 'RMX  9047 247 055 0'.      09120001
096100         03  FILLER  PIC X(19)  VALUE 'RUA  9042 099 187 0'.      09130001
096200         03  FILLER  PIC X(19)  VALUE 'RUB  9043 156 187 0'.      09140001
096300         03  FILLER  PIC X(19)  VALUE 'RUC  9044 156 187 0'.      09150001
096400         03  FILLER  PIC X(19)  VALUE 'RUL  9052 257 187 0'.      09160001
096500         03  FILLER  PIC X(19)  VALUE 'RUX  9053 267 187 0'.      09170001
096600         03  FILLER  PIC X(19)  VALUE 'RVA  9039 110 128 0'.      09180001
096700         03  FILLER  PIC X(19)  VALUE 'RVB  9040 111 128 0'.      09190001
096800         03  FILLER  PIC X(19)  VALUE 'RVC  9041 151 128 0'.      09200001
096900         03  FILLER  PIC X(19)  VALUE 'RVL  9050 219 128 0'.      09210001
097000         03  FILLER  PIC X(19)  VALUE 'RVX  9051 261 128 0'.      09220001
097100     02  RUG67-2013-DATA2 REDEFINES RUG67-2013-DATA1 OCCURS 67    09230001
097200             ASCENDING KEY IS RUG67-2013-CODE                     09240001
097300             INDEXED BY RUG67-2013-01.                            09250001
097400         03  RUG67-2013-CODE     PIC X(03).                       09260001
097500         03  RUG67-2013-REGS        OCCURS 1.                     09270001
097600             04  FILLER        PIC XX.                            09280001
097700             04  REV67-2013-CODE      PIC XXXX.                   09290001
097800             04  FILLER        PIC X.                             09300001
097900             04  RUG67-2013-NURSING PIC 9V99.                     09310001
098000             04  FILLER        PIC X.                             09320001
098100             04  RUG67-2013-THERAPY PIC 9V99.                     09330001
098200             04  FILLER        PIC X.                             09340001
098300             04  RUG67-2013-FACTOR PIC 9.                         09350001
098400                                                                  09360001
098500                                                                  09370001
098600                                                                  09380001
098700*********************>>  2013  <<**********************           09390001
098800*********************>>  2014  <<**********************           09400001
098900                                                                  09410001
099000                                                                  09420001
099100***************************************************************   09430001
099200*  LAYUP TABLE AREA FOR RUG 67 CODES FOR FY2014               *   09440001
099300*  EFFECTIVE OCT  1, 2013                                     *   09450001
099400*  FORMAT FOR RUG TABLE 67                                    *   09460001
099500*    N = NURSING   T = THERAPY  F = THERAPY COMPONENT FACTOR  *   09470001
099600***************************************************************   09480001
099700 01  RUG67-2014-TABLE.                                            09490001
099800     02  RUG67-2014-DATA1.                                        09500001
099900*                                      RUG  REV                   09510001
100000*                                      CODE CODE N - T - F        09520001
100100         03  FILLER  PIC X(19)  VALUE 'AAA  9000 054 000 1'.      09530001
100200         03  FILLER  PIC X(19)  VALUE 'BA1  9011 064 000 1'.      09540001
100300         03  FILLER  PIC X(19)  VALUE 'BA2  9012 070 000 1'.      09550001
100400         03  FILLER  PIC X(19)  VALUE 'BB1  9013 090 000 1'.      09560001
100500         03  FILLER  PIC X(19)  VALUE 'BB2  9014 097 000 1'.      09570001
100600         03  FILLER  PIC X(19)  VALUE 'CA1  9019 078 000 1'.      09580001
100700         03  FILLER  PIC X(19)  VALUE 'CA2  9020 088 000 1'.      09590001
100800         03  FILLER  PIC X(19)  VALUE 'CB1  9021 102 000 1'.      09600001
100900         03  FILLER  PIC X(19)  VALUE 'CB2  9022 115 000 1'.      09610001
101000         03  FILLER  PIC X(19)  VALUE 'CC1  9023 115 000 1'.      09620001
101100         03  FILLER  PIC X(19)  VALUE 'CC2  9024 129 000 1'.      09630001
101200         03  FILLER  PIC X(19)  VALUE 'CD1  9024 138 000 1'.      09640001
101300         03  FILLER  PIC X(19)  VALUE 'CD2  9024 156 000 1'.      09650001
101400         03  FILLER  PIC X(19)  VALUE 'CE1  9024 150 000 1'.      09660001
101500         03  FILLER  PIC X(19)  VALUE 'CE2  9028 168 000 1'.      09670001
101600         03  FILLER  PIC X(19)  VALUE 'ES1  9028 232 000 1'.      09680001
101700         03  FILLER  PIC X(19)  VALUE 'ES2  9029 267 000 1'.      09690001
101800         03  FILLER  PIC X(19)  VALUE 'ES3  9030 358 000 1'.      09700001
101900         03  FILLER  PIC X(19)  VALUE 'HB1  9015 146 000 1'.      09710001
102000         03  FILLER  PIC X(19)  VALUE 'HB2  9016 186 000 1'.      09720001
102100         03  FILLER  PIC X(19)  VALUE 'HC1  9017 148 000 1'.      09730001
102200         03  FILLER  PIC X(19)  VALUE 'HC2  9018 189 000 1'.      09740001
102300         03  FILLER  PIC X(19)  VALUE 'HD1  9018 160 000 1'.      09750001
102400         03  FILLER  PIC X(19)  VALUE 'HD2  9018 204 000 1'.      09760001
102500         03  FILLER  PIC X(19)  VALUE 'HE1  9018 174 000 1'.      09770001
102600         03  FILLER  PIC X(19)  VALUE 'HE2  9018 222 000 1'.      09780001
102700         03  FILLER  PIC X(19)  VALUE 'LB1  9018 114 000 1'.      09790001
102800         03  FILLER  PIC X(19)  VALUE 'LB2  9018 145 000 1'.      09800001
102900         03  FILLER  PIC X(19)  VALUE 'LC1  9018 122 000 1'.      09810001
103000         03  FILLER  PIC X(19)  VALUE 'LC2  9018 156 000 1'.      09820001
103100         03  FILLER  PIC X(19)  VALUE 'LD1  9018 146 000 1'.      09830001
103200         03  FILLER  PIC X(19)  VALUE 'LD2  9018 186 000 1'.      09840001
103300         03  FILLER  PIC X(19)  VALUE 'LE1  9018 154 000 1'.      09850001
103400         03  FILLER  PIC X(19)  VALUE 'LE2  9018 196 000 1'.      09860001
103500         03  FILLER  PIC X(19)  VALUE 'PA1  9001 054 000 1'.      09870001
103600         03  FILLER  PIC X(19)  VALUE 'PA2  9002 059 000 1'.      09880001
103700         03  FILLER  PIC X(19)  VALUE 'PB1  9003 078 000 1'.      09890001
103800         03  FILLER  PIC X(19)  VALUE 'PB2  9004 084 000 1'.      09900001
103900         03  FILLER  PIC X(19)  VALUE 'PC1  9005 102 000 1'.      09910001
104000         03  FILLER  PIC X(19)  VALUE 'PC2  9006 110 000 1'.      09920001
104100         03  FILLER  PIC X(19)  VALUE 'PD1  9007 128 000 1'.      09930001
104200         03  FILLER  PIC X(19)  VALUE 'PD2  9008 138 000 1'.      09940001
104300         03  FILLER  PIC X(19)  VALUE 'PE1  9009 140 000 1'.      09950001
104400         03  FILLER  PIC X(19)  VALUE 'PE2  9010 150 000 1'.      09960001
104500         03  FILLER  PIC X(19)  VALUE 'RHA  9036 091 085 0'.      09970001
104600         03  FILLER  PIC X(19)  VALUE 'RHB  9037 119 085 0'.      09980001
104700         03  FILLER  PIC X(19)  VALUE 'RHC  9038 145 085 0'.      09990001
104800         03  FILLER  PIC X(19)  VALUE 'RHL  9048 215 085 0'.      10000001
104900         03  FILLER  PIC X(19)  VALUE 'RHX  9049 255 085 0'.      10010001
105000         03  FILLER  PIC X(19)  VALUE 'RLA  9031 071 028 0'.      10020001
105100         03  FILLER  PIC X(19)  VALUE 'RLB  9032 150 028 0'.      10030001
105200         03  FILLER  PIC X(19)  VALUE 'RLX  9045 226 028 0'.      10040001
105300         03  FILLER  PIC X(19)  VALUE 'RMA  9033 084 055 0'.      10050001
105400         03  FILLER  PIC X(19)  VALUE 'RMB  9034 122 055 0'.      10060001
105500         03  FILLER  PIC X(19)  VALUE 'RMC  9035 136 055 0'.      10070001
105600         03  FILLER  PIC X(19)  VALUE 'RML  9046 219 055 0'.      10080001
105700         03  FILLER  PIC X(19)  VALUE 'RMX  9047 247 055 0'.      10090001
105800         03  FILLER  PIC X(19)  VALUE 'RUA  9042 099 187 0'.      10100001
105900         03  FILLER  PIC X(19)  VALUE 'RUB  9043 156 187 0'.      10110001
106000         03  FILLER  PIC X(19)  VALUE 'RUC  9044 156 187 0'.      10120001
106100         03  FILLER  PIC X(19)  VALUE 'RUL  9052 257 187 0'.      10130001
106200         03  FILLER  PIC X(19)  VALUE 'RUX  9053 267 187 0'.      10140001
106300         03  FILLER  PIC X(19)  VALUE 'RVA  9039 110 128 0'.      10150001
106400         03  FILLER  PIC X(19)  VALUE 'RVB  9040 111 128 0'.      10160001
106500         03  FILLER  PIC X(19)  VALUE 'RVC  9041 151 128 0'.      10170001
106600         03  FILLER  PIC X(19)  VALUE 'RVL  9050 219 128 0'.      10180001
106700         03  FILLER  PIC X(19)  VALUE 'RVX  9051 261 128 0'.      10190001
106800     02  RUG67-2014-DATA2 REDEFINES RUG67-2014-DATA1 OCCURS 67    10200001
106900             ASCENDING KEY IS RUG67-2014-CODE                     10210001
107000             INDEXED BY RUG67-2014-01.                            10220001
107100         03  RUG67-2014-CODE     PIC X(03).                       10230001
107200         03  RUG67-2014-REGS        OCCURS 1.                     10240001
107300             04  FILLER               PIC XX.                     10250001
107400             04  REV67-2014-CODE      PIC XXXX.                   10260001
107500             04  FILLER               PIC X.                      10270001
107600             04  RUG67-2014-NURSING   PIC 9V99.                   10280001
107700             04  FILLER               PIC X.                      10290001
107800             04  RUG67-2014-THERAPY   PIC 9V99.                   10300001
107900             04  FILLER               PIC X.                      10310001
108000             04  RUG67-2014-FACTOR    PIC 9.                      10320001
108100                                                                  10330001
108200                                                                  10340001
108300                                                                  10350001
108400*********************>>  2014  <<**********************           10360001
108500*********************>>  2015  <<**********************           10370001
108600                                                                  10380001
108700                                                                  10390001
108800***************************************************************   10400001
108900*  LAYUP TABLE AREA FOR RUG 67 CODES FOR FY2015               *   10410001
109000*  EFFECTIVE OCT  1, 2014                                     *   10420001
109100*  FORMAT FOR RUG TABLE 67                                    *   10430001
109200*    N = NURSING   T = THERAPY  F = THERAPY COMPONENT FACTOR  *   10440001
109300***************************************************************   10450001
109400 01  RUG67-2015-TABLE.                                            10460001
109500     02  RUG67-2015-DATA1.                                        10470001
109600*                                      RUG  REV                   10480001
109700*                                      CODE CODE N - T - F        10490001
109800         03  FILLER  PIC X(19)  VALUE 'AAA  9000 054 000 1'.      10500001
109900         03  FILLER  PIC X(19)  VALUE 'BA1  9011 064 000 1'.      10510001
110000         03  FILLER  PIC X(19)  VALUE 'BA2  9012 070 000 1'.      10520001
110100         03  FILLER  PIC X(19)  VALUE 'BB1  9013 090 000 1'.      10530001
110200         03  FILLER  PIC X(19)  VALUE 'BB2  9014 097 000 1'.      10540001
110300         03  FILLER  PIC X(19)  VALUE 'CA1  9019 078 000 1'.      10550001
110400         03  FILLER  PIC X(19)  VALUE 'CA2  9020 088 000 1'.      10560001
110500         03  FILLER  PIC X(19)  VALUE 'CB1  9021 102 000 1'.      10570001
110600         03  FILLER  PIC X(19)  VALUE 'CB2  9022 115 000 1'.      10580001
110700         03  FILLER  PIC X(19)  VALUE 'CC1  9023 115 000 1'.      10590001
110800         03  FILLER  PIC X(19)  VALUE 'CC2  9024 129 000 1'.      10600001
110900         03  FILLER  PIC X(19)  VALUE 'CD1  9024 138 000 1'.      10610001
111000         03  FILLER  PIC X(19)  VALUE 'CD2  9024 156 000 1'.      10620001
111100         03  FILLER  PIC X(19)  VALUE 'CE1  9024 150 000 1'.      10630001
111200         03  FILLER  PIC X(19)  VALUE 'CE2  9028 168 000 1'.      10640001
111300         03  FILLER  PIC X(19)  VALUE 'ES1  9028 232 000 1'.      10650001
111400         03  FILLER  PIC X(19)  VALUE 'ES2  9029 267 000 1'.      10660001
111500         03  FILLER  PIC X(19)  VALUE 'ES3  9030 358 000 1'.      10670001
111600         03  FILLER  PIC X(19)  VALUE 'HB1  9015 146 000 1'.      10680001
111700         03  FILLER  PIC X(19)  VALUE 'HB2  9016 186 000 1'.      10690001
111800         03  FILLER  PIC X(19)  VALUE 'HC1  9017 148 000 1'.      10700001
111900         03  FILLER  PIC X(19)  VALUE 'HC2  9018 189 000 1'.      10710001
112000         03  FILLER  PIC X(19)  VALUE 'HD1  9018 160 000 1'.      10720001
112100         03  FILLER  PIC X(19)  VALUE 'HD2  9018 204 000 1'.      10730001
112200         03  FILLER  PIC X(19)  VALUE 'HE1  9018 174 000 1'.      10740001
112300         03  FILLER  PIC X(19)  VALUE 'HE2  9018 222 000 1'.      10750001
112400         03  FILLER  PIC X(19)  VALUE 'LB1  9018 114 000 1'.      10760001
112500         03  FILLER  PIC X(19)  VALUE 'LB2  9018 145 000 1'.      10770001
112600         03  FILLER  PIC X(19)  VALUE 'LC1  9018 122 000 1'.      10780001
112700         03  FILLER  PIC X(19)  VALUE 'LC2  9018 156 000 1'.      10790001
112800         03  FILLER  PIC X(19)  VALUE 'LD1  9018 146 000 1'.      10800001
112900         03  FILLER  PIC X(19)  VALUE 'LD2  9018 186 000 1'.      10810001
113000         03  FILLER  PIC X(19)  VALUE 'LE1  9018 154 000 1'.      10820001
113100         03  FILLER  PIC X(19)  VALUE 'LE2  9018 196 000 1'.      10830001
113200         03  FILLER  PIC X(19)  VALUE 'PA1  9001 054 000 1'.      10840001
113300         03  FILLER  PIC X(19)  VALUE 'PA2  9002 059 000 1'.      10850001
113400         03  FILLER  PIC X(19)  VALUE 'PB1  9003 078 000 1'.      10860001
113500         03  FILLER  PIC X(19)  VALUE 'PB2  9004 084 000 1'.      10870001
113600         03  FILLER  PIC X(19)  VALUE 'PC1  9005 102 000 1'.      10880001
113700         03  FILLER  PIC X(19)  VALUE 'PC2  9006 110 000 1'.      10890001
113800         03  FILLER  PIC X(19)  VALUE 'PD1  9007 128 000 1'.      10900001
113900         03  FILLER  PIC X(19)  VALUE 'PD2  9008 138 000 1'.      10910001
114000         03  FILLER  PIC X(19)  VALUE 'PE1  9009 140 000 1'.      10920001
114100         03  FILLER  PIC X(19)  VALUE 'PE2  9010 150 000 1'.      10930001
114200         03  FILLER  PIC X(19)  VALUE 'RHA  9036 091 085 0'.      10940001
114300         03  FILLER  PIC X(19)  VALUE 'RHB  9037 119 085 0'.      10950001
114400         03  FILLER  PIC X(19)  VALUE 'RHC  9038 145 085 0'.      10960001
114500         03  FILLER  PIC X(19)  VALUE 'RHL  9048 215 085 0'.      10970001
114600         03  FILLER  PIC X(19)  VALUE 'RHX  9049 255 085 0'.      10980001
114700         03  FILLER  PIC X(19)  VALUE 'RLA  9031 071 028 0'.      10990001
114800         03  FILLER  PIC X(19)  VALUE 'RLB  9032 150 028 0'.      11000001
114900         03  FILLER  PIC X(19)  VALUE 'RLX  9045 226 028 0'.      11010001
115000         03  FILLER  PIC X(19)  VALUE 'RMA  9033 084 055 0'.      11020001
115100         03  FILLER  PIC X(19)  VALUE 'RMB  9034 122 055 0'.      11030001
115200         03  FILLER  PIC X(19)  VALUE 'RMC  9035 136 055 0'.      11040001
115300         03  FILLER  PIC X(19)  VALUE 'RML  9046 219 055 0'.      11050001
115400         03  FILLER  PIC X(19)  VALUE 'RMX  9047 247 055 0'.      11060001
115500         03  FILLER  PIC X(19)  VALUE 'RUA  9042 099 187 0'.      11070001
115600         03  FILLER  PIC X(19)  VALUE 'RUB  9043 156 187 0'.      11080001
115700         03  FILLER  PIC X(19)  VALUE 'RUC  9044 156 187 0'.      11090001
115800         03  FILLER  PIC X(19)  VALUE 'RUL  9052 257 187 0'.      11100001
115900         03  FILLER  PIC X(19)  VALUE 'RUX  9053 267 187 0'.      11110001
116000         03  FILLER  PIC X(19)  VALUE 'RVA  9039 110 128 0'.      11120001
116100         03  FILLER  PIC X(19)  VALUE 'RVB  9040 111 128 0'.      11130001
116200         03  FILLER  PIC X(19)  VALUE 'RVC  9041 151 128 0'.      11140001
116300         03  FILLER  PIC X(19)  VALUE 'RVL  9050 219 128 0'.      11150001
116400         03  FILLER  PIC X(19)  VALUE 'RVX  9051 261 128 0'.      11160001
116500     02  RUG67-2015-DATA2 REDEFINES RUG67-2015-DATA1 OCCURS 67    11170001
116600             ASCENDING KEY IS RUG67-2015-CODE                     11180001
116700             INDEXED BY RUG67-2015-01.                            11190001
116800         03  RUG67-2015-CODE     PIC X(03).                       11200001
116900         03  RUG67-2015-REGS        OCCURS 1.                     11210001
117000             04  FILLER               PIC XX.                     11220001
117100             04  REV67-2015-CODE      PIC XXXX.                   11230001
117200             04  FILLER               PIC X.                      11240001
117300             04  RUG67-2015-NURSING   PIC 9V99.                   11250001
117400             04  FILLER               PIC X.                      11260001
117500             04  RUG67-2015-THERAPY   PIC 9V99.                   11270001
117600             04  FILLER               PIC X.                      11280001
117700             04  RUG67-2015-FACTOR    PIC 9.                      11290001
117800                                                                  11300001
117900                                                                  11310001
118000                                                                  11320001
118100*********************>>  2015  <<**********************           11330001
118200*********************>>  2016  <<**********************           11340001
118300                                                                  11350001
118400                                                                  11360001
118500***************************************************************   11370001
118600*  LAYUP TABLE AREA FOR RUG 67 CODES FOR FY2016               *   11380001
118700*  EFFECTIVE OCT  1, 2015                                     *   11390001
118800*  FORMAT FOR RUG TABLE 67                                    *   11400001
118900*    N = NURSING   T = THERAPY  F = THERAPY COMPONENT FACTOR  *   11410001
119000***************************************************************   11420001
119100 01  RUG67-2016-TABLE.                                            11430001
119200     02  RUG67-2016-DATA1.                                        11440001
119300*                                      RUG  REV                   11450001
119400*                                      CODE CODE N - T - F        11460001
119500         03  FILLER  PIC X(19)  VALUE 'AAA  9000 054 000 1'.      11470001
119600         03  FILLER  PIC X(19)  VALUE 'BA1  9011 064 000 1'.      11480001
119700         03  FILLER  PIC X(19)  VALUE 'BA2  9012 070 000 1'.      11490001
119800         03  FILLER  PIC X(19)  VALUE 'BB1  9013 090 000 1'.      11500001
119900         03  FILLER  PIC X(19)  VALUE 'BB2  9014 097 000 1'.      11510001
120000         03  FILLER  PIC X(19)  VALUE 'CA1  9019 078 000 1'.      11520001
120100         03  FILLER  PIC X(19)  VALUE 'CA2  9020 088 000 1'.      11530001
120200         03  FILLER  PIC X(19)  VALUE 'CB1  9021 102 000 1'.      11540001
120300         03  FILLER  PIC X(19)  VALUE 'CB2  9022 115 000 1'.      11550001
120400         03  FILLER  PIC X(19)  VALUE 'CC1  9023 115 000 1'.      11560001
120500         03  FILLER  PIC X(19)  VALUE 'CC2  9024 129 000 1'.      11570001
120600         03  FILLER  PIC X(19)  VALUE 'CD1  9024 138 000 1'.      11580001
120700         03  FILLER  PIC X(19)  VALUE 'CD2  9024 156 000 1'.      11590001
120800         03  FILLER  PIC X(19)  VALUE 'CE1  9024 150 000 1'.      11600001
120900         03  FILLER  PIC X(19)  VALUE 'CE2  9028 168 000 1'.      11610001
121000         03  FILLER  PIC X(19)  VALUE 'ES1  9028 232 000 1'.      11620001
121100         03  FILLER  PIC X(19)  VALUE 'ES2  9029 267 000 1'.      11630001
121200         03  FILLER  PIC X(19)  VALUE 'ES3  9030 358 000 1'.      11640001
121300         03  FILLER  PIC X(19)  VALUE 'HB1  9015 146 000 1'.      11650001
121400         03  FILLER  PIC X(19)  VALUE 'HB2  9016 186 000 1'.      11660001
121500         03  FILLER  PIC X(19)  VALUE 'HC1  9017 148 000 1'.      11661001
121600         03  FILLER  PIC X(19)  VALUE 'HC2  9018 189 000 1'.      11662001
121700         03  FILLER  PIC X(19)  VALUE 'HD1  9018 160 000 1'.      11663001
121800         03  FILLER  PIC X(19)  VALUE 'HD2  9018 204 000 1'.      11664001
121900         03  FILLER  PIC X(19)  VALUE 'HE1  9018 174 000 1'.      11665001
122000         03  FILLER  PIC X(19)  VALUE 'HE2  9018 222 000 1'.      11666001
122100         03  FILLER  PIC X(19)  VALUE 'LB1  9018 114 000 1'.      11667001
122200         03  FILLER  PIC X(19)  VALUE 'LB2  9018 145 000 1'.      11668001
122300         03  FILLER  PIC X(19)  VALUE 'LC1  9018 122 000 1'.      11669001
122400         03  FILLER  PIC X(19)  VALUE 'LC2  9018 156 000 1'.      11670001
122500         03  FILLER  PIC X(19)  VALUE 'LD1  9018 146 000 1'.      11670101
122600         03  FILLER  PIC X(19)  VALUE 'LD2  9018 186 000 1'.      11670201
122700         03  FILLER  PIC X(19)  VALUE 'LE1  9018 154 000 1'.      11670301
122800         03  FILLER  PIC X(19)  VALUE 'LE2  9018 196 000 1'.      11670401
122900         03  FILLER  PIC X(19)  VALUE 'PA1  9001 054 000 1'.      11670501
123000         03  FILLER  PIC X(19)  VALUE 'PA2  9002 059 000 1'.      11670601
123100         03  FILLER  PIC X(19)  VALUE 'PB1  9003 078 000 1'.      11670701
123200         03  FILLER  PIC X(19)  VALUE 'PB2  9004 084 000 1'.      11670801
123300         03  FILLER  PIC X(19)  VALUE 'PC1  9005 102 000 1'.      11670901
123400         03  FILLER  PIC X(19)  VALUE 'PC2  9006 110 000 1'.      11671001
123500         03  FILLER  PIC X(19)  VALUE 'PD1  9007 128 000 1'.      11671101
123600         03  FILLER  PIC X(19)  VALUE 'PD2  9008 138 000 1'.      11671201
123700         03  FILLER  PIC X(19)  VALUE 'PE1  9009 140 000 1'.      11671301
123800         03  FILLER  PIC X(19)  VALUE 'PE2  9010 150 000 1'.      11671401
123900         03  FILLER  PIC X(19)  VALUE 'RHA  9036 091 085 0'.      11671501
124000         03  FILLER  PIC X(19)  VALUE 'RHB  9037 119 085 0'.      11671601
124100         03  FILLER  PIC X(19)  VALUE 'RHC  9038 145 085 0'.      11671701
124200         03  FILLER  PIC X(19)  VALUE 'RHL  9048 215 085 0'.      11671801
124300         03  FILLER  PIC X(19)  VALUE 'RHX  9049 255 085 0'.      11671901
124400         03  FILLER  PIC X(19)  VALUE 'RLA  9031 071 028 0'.      11672001
124500         03  FILLER  PIC X(19)  VALUE 'RLB  9032 150 028 0'.      11672101
124600         03  FILLER  PIC X(19)  VALUE 'RLX  9045 226 028 0'.      11672201
124700         03  FILLER  PIC X(19)  VALUE 'RMA  9033 084 055 0'.      11672301
124800         03  FILLER  PIC X(19)  VALUE 'RMB  9034 122 055 0'.      11672401
124900         03  FILLER  PIC X(19)  VALUE 'RMC  9035 136 055 0'.      11672501
125000         03  FILLER  PIC X(19)  VALUE 'RML  9046 219 055 0'.      11672601
125100         03  FILLER  PIC X(19)  VALUE 'RMX  9047 247 055 0'.      11672701
125200         03  FILLER  PIC X(19)  VALUE 'RUA  9042 099 187 0'.      11672801
125300         03  FILLER  PIC X(19)  VALUE 'RUB  9043 156 187 0'.      11672901
125400         03  FILLER  PIC X(19)  VALUE 'RUC  9044 156 187 0'.      11673001
125500         03  FILLER  PIC X(19)  VALUE 'RUL  9052 257 187 0'.      11673101
125600         03  FILLER  PIC X(19)  VALUE 'RUX  9053 267 187 0'.      11673201
125700         03  FILLER  PIC X(19)  VALUE 'RVA  9039 110 128 0'.      11673301
125800         03  FILLER  PIC X(19)  VALUE 'RVB  9040 111 128 0'.      11673401
125900         03  FILLER  PIC X(19)  VALUE 'RVC  9041 151 128 0'.      11673501
126000         03  FILLER  PIC X(19)  VALUE 'RVL  9050 219 128 0'.      11673601
126100         03  FILLER  PIC X(19)  VALUE 'RVX  9051 261 128 0'.      11673701
126200     02  RUG67-2016-DATA2 REDEFINES RUG67-2016-DATA1 OCCURS 67    11673801
126300             ASCENDING KEY IS RUG67-2016-CODE                     11673901
126400             INDEXED BY RUG67-2016-01.                            11674001
126500         03  RUG67-2016-CODE     PIC X(03).                       11674101
126600         03  RUG67-2016-REGS        OCCURS 1.                     11674201
126700             04  FILLER               PIC XX.                     11674301
126800             04  REV67-2016-CODE      PIC XXXX.                   11674401
126900             04  FILLER               PIC X.                      11674501
127000             04  RUG67-2016-NURSING   PIC 9V99.                   11674601
127100             04  FILLER               PIC X.                      11674701
127200             04  RUG67-2016-THERAPY   PIC 9V99.                   11674801
127300             04  FILLER               PIC X.                      11674901
127400             04  RUG67-2016-FACTOR    PIC 9.                      11675001
127500                                                                  11675101
127600                                                                  11675201
127700                                                                  11675301
127800*********************>>  2016  <<**********************           11675401
118200*********************>>  2017  <<**********************           11675501
118300                                                                  11675601
118400                                                                  11675701
118500***************************************************************   11675801
118600*  LAYUP TABLE AREA FOR RUG 67 CODES FOR FY2017               *   11675901
118700*  EFFECTIVE OCT  1, 2016                                     *   11676001
118800*  FORMAT FOR RUG TABLE 67                                    *   11676101
118900*    N = NURSING   T = THERAPY  F = THERAPY COMPONENT FACTOR  *   11676201
119000***************************************************************   11676301
119100 01  RUG67-2017-TABLE.                                            11676401
119200     02  RUG67-2017-DATA1.                                        11676501
119300*                                      RUG  REV                   11676601
119400*                                      CODE CODE N - T - F        11676701
119500         03  FILLER  PIC X(19)  VALUE 'AAA  9000 054 000 1'.      11676801
119600         03  FILLER  PIC X(19)  VALUE 'BA1  9011 064 000 1'.      11676901
119700         03  FILLER  PIC X(19)  VALUE 'BA2  9012 070 000 1'.      11677001
119800         03  FILLER  PIC X(19)  VALUE 'BB1  9013 090 000 1'.      11677101
119900         03  FILLER  PIC X(19)  VALUE 'BB2  9014 097 000 1'.      11677201
120000         03  FILLER  PIC X(19)  VALUE 'CA1  9019 078 000 1'.      11677301
120100         03  FILLER  PIC X(19)  VALUE 'CA2  9020 088 000 1'.      11677401
120200         03  FILLER  PIC X(19)  VALUE 'CB1  9021 102 000 1'.      11677501
120300         03  FILLER  PIC X(19)  VALUE 'CB2  9022 115 000 1'.      11677601
120400         03  FILLER  PIC X(19)  VALUE 'CC1  9023 115 000 1'.      11677701
120500         03  FILLER  PIC X(19)  VALUE 'CC2  9024 129 000 1'.      11677801
120600         03  FILLER  PIC X(19)  VALUE 'CD1  9024 138 000 1'.      11677901
120700         03  FILLER  PIC X(19)  VALUE 'CD2  9024 156 000 1'.      11678001
120800         03  FILLER  PIC X(19)  VALUE 'CE1  9024 150 000 1'.      11678101
120900         03  FILLER  PIC X(19)  VALUE 'CE2  9028 168 000 1'.      11678201
121000         03  FILLER  PIC X(19)  VALUE 'ES1  9028 232 000 1'.      11678301
121100         03  FILLER  PIC X(19)  VALUE 'ES2  9029 267 000 1'.      11678401
121200         03  FILLER  PIC X(19)  VALUE 'ES3  9030 358 000 1'.      11678501
121300         03  FILLER  PIC X(19)  VALUE 'HB1  9015 146 000 1'.      11678601
121400         03  FILLER  PIC X(19)  VALUE 'HB2  9016 186 000 1'.      11678701
121500         03  FILLER  PIC X(19)  VALUE 'HC1  9017 148 000 1'.      11678801
121600         03  FILLER  PIC X(19)  VALUE 'HC2  9018 189 000 1'.      11678901
121700         03  FILLER  PIC X(19)  VALUE 'HD1  9018 160 000 1'.      11679001
121800         03  FILLER  PIC X(19)  VALUE 'HD2  9018 204 000 1'.      11679101
121900         03  FILLER  PIC X(19)  VALUE 'HE1  9018 174 000 1'.      11679201
122000         03  FILLER  PIC X(19)  VALUE 'HE2  9018 222 000 1'.      11679301
122100         03  FILLER  PIC X(19)  VALUE 'LB1  9018 114 000 1'.      11679401
122200         03  FILLER  PIC X(19)  VALUE 'LB2  9018 145 000 1'.      11679501
122300         03  FILLER  PIC X(19)  VALUE 'LC1  9018 122 000 1'.      11679601
122400         03  FILLER  PIC X(19)  VALUE 'LC2  9018 156 000 1'.      11679701
122500         03  FILLER  PIC X(19)  VALUE 'LD1  9018 146 000 1'.      11679801
122600         03  FILLER  PIC X(19)  VALUE 'LD2  9018 186 000 1'.      11679901
122700         03  FILLER  PIC X(19)  VALUE 'LE1  9018 154 000 1'.      11680001
122800         03  FILLER  PIC X(19)  VALUE 'LE2  9018 196 000 1'.      11680101
122900         03  FILLER  PIC X(19)  VALUE 'PA1  9001 054 000 1'.      11680201
123000         03  FILLER  PIC X(19)  VALUE 'PA2  9002 059 000 1'.      11680301
123100         03  FILLER  PIC X(19)  VALUE 'PB1  9003 078 000 1'.      11680401
123200         03  FILLER  PIC X(19)  VALUE 'PB2  9004 084 000 1'.      11680501
123300         03  FILLER  PIC X(19)  VALUE 'PC1  9005 102 000 1'.      11680601
123400         03  FILLER  PIC X(19)  VALUE 'PC2  9006 110 000 1'.      11680701
123500         03  FILLER  PIC X(19)  VALUE 'PD1  9007 128 000 1'.      11680801
123600         03  FILLER  PIC X(19)  VALUE 'PD2  9008 138 000 1'.      11680901
123700         03  FILLER  PIC X(19)  VALUE 'PE1  9009 140 000 1'.      11681001
123800         03  FILLER  PIC X(19)  VALUE 'PE2  9010 150 000 1'.      11681101
123900         03  FILLER  PIC X(19)  VALUE 'RHA  9036 091 085 0'.      11681201
124000         03  FILLER  PIC X(19)  VALUE 'RHB  9037 119 085 0'.      11681301
124100         03  FILLER  PIC X(19)  VALUE 'RHC  9038 145 085 0'.      11681401
124200         03  FILLER  PIC X(19)  VALUE 'RHL  9048 215 085 0'.      11681501
124300         03  FILLER  PIC X(19)  VALUE 'RHX  9049 255 085 0'.      11681601
124400         03  FILLER  PIC X(19)  VALUE 'RLA  9031 071 028 0'.      11681701
124500         03  FILLER  PIC X(19)  VALUE 'RLB  9032 150 028 0'.      11681801
124600         03  FILLER  PIC X(19)  VALUE 'RLX  9045 226 028 0'.      11681901
124700         03  FILLER  PIC X(19)  VALUE 'RMA  9033 084 055 0'.      11682001
124800         03  FILLER  PIC X(19)  VALUE 'RMB  9034 122 055 0'.      11682101
124900         03  FILLER  PIC X(19)  VALUE 'RMC  9035 136 055 0'.      11682201
125000         03  FILLER  PIC X(19)  VALUE 'RML  9046 219 055 0'.      11682301
125100         03  FILLER  PIC X(19)  VALUE 'RMX  9047 247 055 0'.      11682401
125200         03  FILLER  PIC X(19)  VALUE 'RUA  9042 099 187 0'.      11682501
125300         03  FILLER  PIC X(19)  VALUE 'RUB  9043 156 187 0'.      11682601
125400         03  FILLER  PIC X(19)  VALUE 'RUC  9044 156 187 0'.      11682701
125500         03  FILLER  PIC X(19)  VALUE 'RUL  9052 257 187 0'.      11682801
125600         03  FILLER  PIC X(19)  VALUE 'RUX  9053 267 187 0'.      11682901
125700         03  FILLER  PIC X(19)  VALUE 'RVA  9039 110 128 0'.      11683001
125800         03  FILLER  PIC X(19)  VALUE 'RVB  9040 111 128 0'.      11683101
125900         03  FILLER  PIC X(19)  VALUE 'RVC  9041 151 128 0'.      11683201
126000         03  FILLER  PIC X(19)  VALUE 'RVL  9050 219 128 0'.      11683301
126100         03  FILLER  PIC X(19)  VALUE 'RVX  9051 261 128 0'.      11683401
126200     02  RUG67-2017-DATA2 REDEFINES RUG67-2017-DATA1 OCCURS 67    11683501
126300             ASCENDING KEY IS RUG67-2017-CODE                     11683601
126400             INDEXED BY RUG67-2017-01.                            11683701
126500         03  RUG67-2017-CODE     PIC X(03).                       11683801
126600         03  RUG67-2017-REGS        OCCURS 1.                     11683901
126700             04  FILLER               PIC XX.                     11684001
126800             04  REV67-2017-CODE      PIC XXXX.                   11684101
126900             04  FILLER               PIC X.                      11684201
127000             04  RUG67-2017-NURSING   PIC 9V99.                   11684301
127100             04  FILLER               PIC X.                      11684401
127200             04  RUG67-2017-THERAPY   PIC 9V99.                   11684501
127300             04  FILLER               PIC X.                      11684601
127400             04  RUG67-2017-FACTOR    PIC 9.                      11684701
127500                                                                  11684801
127800*********************>>  2017  <<**********************           11684901
127600                                                                  11685001
127700                                                                  11685101
110000*********************>>  2018  <<**********************           11685201
110000*********************>>  2018  <<**********************           11685301
000000****>>  MAJOR TABLE FORMAT CHANGES FOR 2018     <<******          11685401
000000****>>       ADD QRP PENALTY LOGIC              <<******          11685501
000000****>>  NEW RUG COMPONENT TABLE WITH 4 REGIONS  <<******          11685601
118200*********************>>  2018  <<**********************           11685701
118200*********************>>  2018  <<**********************           11685801
031000*                                                                 11685901
118300                                                                  11686001
031000**************YEARCHANGE 2018.0 *******************************   11686101
017400***************************************************************   11686201
017500*    RATE COMPONENT TABLE AREA FOR REGIONS - QRP              *   11686301
019200*         STARTING IN 2018 & ALL FUTURE YEARS                 *   11686401
019200*  FORMAT FOR RATE TABLE 2018 FOR OCT 1, 2017                 *   11686501
0R9300*  REGION = ( 1 = RURAL  RATES )                              *   11686601
0R9300*           ( 2 = URBAN  RATES )                              *   11686701
R19300*           ( 3 = RURAL-QRP-FAIL  RATES )                     *   11686801
R19300*           ( 4 = URBAN-QRP-FAIL  RATES )                     *   11686901
019400***************************************************************   11687001
019500 01  REGION-TABLE-Q.                                              11687101
019600     02  REGION-DATA-Q.                                           11687201
030400**************YEARCHANGE 2018.0 *******************************   11687301
030500*  RATE COMPONENT TABLE FOR FY2018 EFFECTIVE OCT 1, 2017          11687401
030600*  20171001/               REGION/ INP / GEN SER / THER / REHAB   11687501
030700     05  FILLER    PIC X(08) VALUE '20171001'.                    11687601
030800     05  FILLER    PIC X(25) VALUE '1 16929 09211 01878 15392'.   11687701
030900     05  FILLER    PIC X(25) VALUE '2 17721 09044 01758 13348'.   11687801
030800     05  FILLER    PIC X(25) VALUE '3 16594 09029 01841 15087'.   11687901
030900     05  FILLER    PIC X(25) VALUE '4 17370 08865 01723 13084'.   11688001
031000**************YEARCHANGE 2018.0 *******************************   11688101
030400**************YEARCHANGE 2019.0 *******************************   11688201
030500*  RATE COMPONENT TABLE FOR FY2019 EFFECTIVE OCT 1, 2018          11688301
030600*  20181001/               REGION/ INP / GEN SER / THER /REHAB    11688401
030700     05  FILLER    PIC X(08) VALUE '20181001'.                    11688501
030800     05  FILLER    PIC X(25) VALUE '1 17334 09431 01923 15760'.   11688601
030900     05  FILLER    PIC X(25) VALUE '2 18144 09260 01800 13667'.   11688701
030800     05  FILLER    PIC X(25) VALUE '3 16995 09247 01885 15452'.   11688801
030900     05  FILLER    PIC X(25) VALUE '4 17790 09079 01765 13400'.   11688901
031000**************YEARCHANGE 2019.0 ******************************    11689001
031100     02  REGION-DATA-Q2         REDEFINES REGION-DATA-Q.          11689101
031200         04  REG-PERIOD-Q          OCCURS 2.                      11689201
031300**************YEARCHANGE 2019.0 *******************************   11689301
031400             06  REG-EFF-DATE-Q           PIC X(08).              11689401
031500             06  REGS-Q                OCCURS 4.                  11689501
031600                 08  REG-DATA-Q        OCCURS 1.                  11689601
031700                     10  REGION-Q         PIC X.                  11689701
031800                     10  FILLER           PIC X.                  11689801
031900                     10  R-IP-RATE-Q      PIC 999V99.             11689901
032000                     10  FILLER           PIC X.                  11690001
032100                     10  R-GS-RATE-Q      PIC 999V99.             11690101
032200                     10  FILLER           PIC X.                  11690201
032300                     10  R-TH-RATE-Q      PIC 999V99.             11690301
032400                     10  FILLER           PIC X.                  11690401
032500                     10  R-REHAB-RATE-Q   PIC 999V99.             11690501
032600                                                                  11690601
030400**************YEARCHANGE 2019.0 *******************************   11690701
030400**************YEARCHANGE 2018.0 *******************************   11690801
118400                                                                  11690901
030400**************YEARCHANGE 2018.0 *******************************   11691001
118500***************************************************************   11691101
118600*     RATE COMPONENT TABLE AREA OF RUG 67 CODES FOR FY2018    *   11691201
118700*     EFFECTIVE OCT  1, 2017                                  *   11691301
118800*     FORMAT FOR RUG TABLE 67                                 *   11691401
118900*     N = NURSING                                             *   11691501
118900*     T = THERAPY                                             *   11691601
118900*     F = THERAPY COMPONENT FACTOR                            *   11691701
119000***************************************************************   11691801
119100 01  RUG67-2018-TABLE-Q.                                          11691901
119200     02  RUG67-2018-DATA1-Q.                                      11692001
119300*                                      RUG  REV                   11692101
119400*                                      CODE CODE N - T - F        11692201
119500         03  FILLER  PIC X(19)  VALUE 'AAA  9000 054 000 1'.      11692301
119600         03  FILLER  PIC X(19)  VALUE 'BA1  9011 064 000 1'.      11692401
119700         03  FILLER  PIC X(19)  VALUE 'BA2  9012 070 000 1'.      11692501
119800         03  FILLER  PIC X(19)  VALUE 'BB1  9013 090 000 1'.      11692601
119900         03  FILLER  PIC X(19)  VALUE 'BB2  9014 097 000 1'.      11692701
120000         03  FILLER  PIC X(19)  VALUE 'CA1  9019 078 000 1'.      11692801
120100         03  FILLER  PIC X(19)  VALUE 'CA2  9020 088 000 1'.      11692901
120200         03  FILLER  PIC X(19)  VALUE 'CB1  9021 102 000 1'.      11693001
120300         03  FILLER  PIC X(19)  VALUE 'CB2  9022 115 000 1'.      11693101
120400         03  FILLER  PIC X(19)  VALUE 'CC1  9023 115 000 1'.      11693201
120500         03  FILLER  PIC X(19)  VALUE 'CC2  9024 129 000 1'.      11693301
120600         03  FILLER  PIC X(19)  VALUE 'CD1  9024 138 000 1'.      11693401
120700         03  FILLER  PIC X(19)  VALUE 'CD2  9024 156 000 1'.      11693501
120800         03  FILLER  PIC X(19)  VALUE 'CE1  9024 150 000 1'.      11693601
120900         03  FILLER  PIC X(19)  VALUE 'CE2  9028 168 000 1'.      11693701
121000         03  FILLER  PIC X(19)  VALUE 'ES1  9028 232 000 1'.      11693801
121100         03  FILLER  PIC X(19)  VALUE 'ES2  9029 267 000 1'.      11693901
121200         03  FILLER  PIC X(19)  VALUE 'ES3  9030 358 000 1'.      11694001
121300         03  FILLER  PIC X(19)  VALUE 'HB1  9015 146 000 1'.      11694101
121400         03  FILLER  PIC X(19)  VALUE 'HB2  9016 186 000 1'.      11694201
121500         03  FILLER  PIC X(19)  VALUE 'HC1  9017 148 000 1'.      11694301
121600         03  FILLER  PIC X(19)  VALUE 'HC2  9018 189 000 1'.      11694401
121700         03  FILLER  PIC X(19)  VALUE 'HD1  9018 160 000 1'.      11694501
121800         03  FILLER  PIC X(19)  VALUE 'HD2  9018 204 000 1'.      11694601
121900         03  FILLER  PIC X(19)  VALUE 'HE1  9018 174 000 1'.      11694701
122000         03  FILLER  PIC X(19)  VALUE 'HE2  9018 222 000 1'.      11694801
122100         03  FILLER  PIC X(19)  VALUE 'LB1  9018 114 000 1'.      11694901
122200         03  FILLER  PIC X(19)  VALUE 'LB2  9018 145 000 1'.      11695001
122300         03  FILLER  PIC X(19)  VALUE 'LC1  9018 122 000 1'.      11695101
122400         03  FILLER  PIC X(19)  VALUE 'LC2  9018 156 000 1'.      11695201
122500         03  FILLER  PIC X(19)  VALUE 'LD1  9018 146 000 1'.      11695301
122600         03  FILLER  PIC X(19)  VALUE 'LD2  9018 186 000 1'.      11695401
122700         03  FILLER  PIC X(19)  VALUE 'LE1  9018 154 000 1'.      11695501
122800         03  FILLER  PIC X(19)  VALUE 'LE2  9018 196 000 1'.      11695601
122900         03  FILLER  PIC X(19)  VALUE 'PA1  9001 054 000 1'.      11695701
123000         03  FILLER  PIC X(19)  VALUE 'PA2  9002 059 000 1'.      11695801
123100         03  FILLER  PIC X(19)  VALUE 'PB1  9003 078 000 1'.      11695901
123200         03  FILLER  PIC X(19)  VALUE 'PB2  9004 084 000 1'.      11696001
123300         03  FILLER  PIC X(19)  VALUE 'PC1  9005 102 000 1'.      11696101
123400         03  FILLER  PIC X(19)  VALUE 'PC2  9006 110 000 1'.      11696201
123500         03  FILLER  PIC X(19)  VALUE 'PD1  9007 128 000 1'.      11696301
123600         03  FILLER  PIC X(19)  VALUE 'PD2  9008 138 000 1'.      11696401
123700         03  FILLER  PIC X(19)  VALUE 'PE1  9009 140 000 1'.      11696501
123800         03  FILLER  PIC X(19)  VALUE 'PE2  9010 150 000 1'.      11696601
123900         03  FILLER  PIC X(19)  VALUE 'RHA  9036 091 085 0'.      11696701
124000         03  FILLER  PIC X(19)  VALUE 'RHB  9037 119 085 0'.      11696801
124100         03  FILLER  PIC X(19)  VALUE 'RHC  9038 145 085 0'.      11696901
124200         03  FILLER  PIC X(19)  VALUE 'RHL  9048 215 085 0'.      11697001
124300         03  FILLER  PIC X(19)  VALUE 'RHX  9049 255 085 0'.      11697101
124400         03  FILLER  PIC X(19)  VALUE 'RLA  9031 071 028 0'.      11697201
124500         03  FILLER  PIC X(19)  VALUE 'RLB  9032 150 028 0'.      11697301
124600         03  FILLER  PIC X(19)  VALUE 'RLX  9045 226 028 0'.      11697401
124700         03  FILLER  PIC X(19)  VALUE 'RMA  9033 084 055 0'.      11697501
124800         03  FILLER  PIC X(19)  VALUE 'RMB  9034 122 055 0'.      11697601
124900         03  FILLER  PIC X(19)  VALUE 'RMC  9035 136 055 0'.      11697701
125000         03  FILLER  PIC X(19)  VALUE 'RML  9046 219 055 0'.      11697801
125100         03  FILLER  PIC X(19)  VALUE 'RMX  9047 247 055 0'.      11697901
125200         03  FILLER  PIC X(19)  VALUE 'RUA  9042 099 187 0'.      11698001
125300         03  FILLER  PIC X(19)  VALUE 'RUB  9043 156 187 0'.      11698101
125400         03  FILLER  PIC X(19)  VALUE 'RUC  9044 156 187 0'.      11698201
125500         03  FILLER  PIC X(19)  VALUE 'RUL  9052 257 187 0'.      11698301
125600         03  FILLER  PIC X(19)  VALUE 'RUX  9053 267 187 0'.      11698401
125700         03  FILLER  PIC X(19)  VALUE 'RVA  9039 110 128 0'.      11698501
125800         03  FILLER  PIC X(19)  VALUE 'RVB  9040 111 128 0'.      11698601
125900         03  FILLER  PIC X(19)  VALUE 'RVC  9041 151 128 0'.      11698701
126000         03  FILLER  PIC X(19)  VALUE 'RVL  9050 219 128 0'.      11698801
126100         03  FILLER  PIC X(19)  VALUE 'RVX  9051 261 128 0'.      11698901
127500                                                                  11699001
126200     02  RUG67-2018-DATA2-Q                                       11699101
126200             REDEFINES RUG67-2018-DATA1-Q                         11699201
126200                OCCURS 67                                         11699301
126300                   ASCENDING KEY IS RUG67-2018-CODE-Q             11699401
126400                      INDEXED BY RUG67-2018-01-Q.                 11699501
127700                                                                  11699601
126500         03  RUG67-2018-CODE-Q        PIC X(03).                  11699701
126600         03  RUG67-2018-REGS-Q        OCCURS 1.                   11699801
030400**************YEARCHANGE 2018.0 *************************         11699901
126700             04  FILLER               PIC XX.                     11700001
126800             04  REV67-2018-CODE-Q    PIC XXXX.                   11700101
126900             04  FILLER               PIC X.                      11700201
127000             04  RUG67-2018-NURSING-Q PIC 9V99.                   11700301
127100             04  FILLER               PIC X.                      11700401
127200             04  RUG67-2018-THERAPY-Q PIC 9V99.                   11700501
127300             04  FILLER               PIC X.                      11700601
127400             04  RUG67-2018-FACTOR-Q  PIC 9.                      11700701
127600                                                                  11700801
127800*-------------------------------------------------------*         11700901
127800*****>>  END OF RATE COMPONENT TABLE FOR FY2018  <<******         11701001
127800*-------------------------------------------------------*         11701101
127600                                                                  11701201
127800*-------------------------------------------------------*         11701301
127800***>>  START OF RATE COMPONENT TABLE FOR FY2019 <<******          11701401
127800*-------------------------------------------------------*         11701501
127600                                                                  11701601
118400                                                                  11701701
030400**************YEARCHANGE 2019.0 *******************************   11701801
118500***************************************************************   11701901
118600*     RATE COMPONENT TABLE AREA OF RUG 67 CODES FOR FY2019.0  *   11702001
118700*     EFFECTIVE OCT  1, 2018                                  *   11702101
118800*     FORMAT FOR RUG TABLE 67                                 *   11702201
118900*     N = NURSING                                             *   11702301
118900*     T = THERAPY                                             *   11702401
118900*     F = THERAPY COMPONENT FACTOR                            *   11702501
119000***************************************************************   11702601
119100 01  RUG67-2019-TABLE-Q.                                          11702701
119200     02  RUG67-2019-DATA1-Q.                                      11702801
119300*                                      RUG  REV                   11702901
119400*                                      CODE CODE N - T - F        11703001
119500         03  FILLER  PIC X(19)  VALUE 'AAA  9000 054 000 1'.      11703101
119600         03  FILLER  PIC X(19)  VALUE 'BA1  9011 064 000 1'.      11703201
119700         03  FILLER  PIC X(19)  VALUE 'BA2  9012 070 000 1'.      11703301
119800         03  FILLER  PIC X(19)  VALUE 'BB1  9013 090 000 1'.      11703401
119900         03  FILLER  PIC X(19)  VALUE 'BB2  9014 097 000 1'.      11703501
120000         03  FILLER  PIC X(19)  VALUE 'CA1  9019 078 000 1'.      11703601
120100         03  FILLER  PIC X(19)  VALUE 'CA2  9020 088 000 1'.      11703701
120200         03  FILLER  PIC X(19)  VALUE 'CB1  9021 102 000 1'.      11703801
120300         03  FILLER  PIC X(19)  VALUE 'CB2  9022 115 000 1'.      11703901
120400         03  FILLER  PIC X(19)  VALUE 'CC1  9023 115 000 1'.      11704001
120500         03  FILLER  PIC X(19)  VALUE 'CC2  9024 129 000 1'.      11704101
120600         03  FILLER  PIC X(19)  VALUE 'CD1  9024 138 000 1'.      11704201
120700         03  FILLER  PIC X(19)  VALUE 'CD2  9024 156 000 1'.      11704301
120800         03  FILLER  PIC X(19)  VALUE 'CE1  9024 150 000 1'.      11704401
120900         03  FILLER  PIC X(19)  VALUE 'CE2  9028 168 000 1'.      11704501
121000         03  FILLER  PIC X(19)  VALUE 'ES1  9028 232 000 1'.      11704601
121100         03  FILLER  PIC X(19)  VALUE 'ES2  9029 267 000 1'.      11704701
121200         03  FILLER  PIC X(19)  VALUE 'ES3  9030 358 000 1'.      11704801
121300         03  FILLER  PIC X(19)  VALUE 'HB1  9015 146 000 1'.      11704901
121400         03  FILLER  PIC X(19)  VALUE 'HB2  9016 186 000 1'.      11705001
121500         03  FILLER  PIC X(19)  VALUE 'HC1  9017 148 000 1'.      11705101
121600         03  FILLER  PIC X(19)  VALUE 'HC2  9018 189 000 1'.      11705201
121700         03  FILLER  PIC X(19)  VALUE 'HD1  9018 160 000 1'.      11705301
121800         03  FILLER  PIC X(19)  VALUE 'HD2  9018 204 000 1'.      11705401
121900         03  FILLER  PIC X(19)  VALUE 'HE1  9018 174 000 1'.      11705501
122000         03  FILLER  PIC X(19)  VALUE 'HE2  9018 222 000 1'.      11705601
122100         03  FILLER  PIC X(19)  VALUE 'LB1  9018 114 000 1'.      11705701
122200         03  FILLER  PIC X(19)  VALUE 'LB2  9018 145 000 1'.      11705801
122300         03  FILLER  PIC X(19)  VALUE 'LC1  9018 122 000 1'.      11705901
122400         03  FILLER  PIC X(19)  VALUE 'LC2  9018 156 000 1'.      11706001
122500         03  FILLER  PIC X(19)  VALUE 'LD1  9018 146 000 1'.      11706101
122600         03  FILLER  PIC X(19)  VALUE 'LD2  9018 186 000 1'.      11706201
122700         03  FILLER  PIC X(19)  VALUE 'LE1  9018 154 000 1'.      11706301
122800         03  FILLER  PIC X(19)  VALUE 'LE2  9018 196 000 1'.      11706401
122900         03  FILLER  PIC X(19)  VALUE 'PA1  9001 054 000 1'.      11706501
123000         03  FILLER  PIC X(19)  VALUE 'PA2  9002 059 000 1'.      11706601
123100         03  FILLER  PIC X(19)  VALUE 'PB1  9003 078 000 1'.      11706701
123200         03  FILLER  PIC X(19)  VALUE 'PB2  9004 084 000 1'.      11706801
123300         03  FILLER  PIC X(19)  VALUE 'PC1  9005 102 000 1'.      11706901
123400         03  FILLER  PIC X(19)  VALUE 'PC2  9006 110 000 1'.      11707001
123500         03  FILLER  PIC X(19)  VALUE 'PD1  9007 128 000 1'.      11707101
123600         03  FILLER  PIC X(19)  VALUE 'PD2  9008 138 000 1'.      11707201
123700         03  FILLER  PIC X(19)  VALUE 'PE1  9009 140 000 1'.      11707301
123800         03  FILLER  PIC X(19)  VALUE 'PE2  9010 150 000 1'.      11707401
123900         03  FILLER  PIC X(19)  VALUE 'RHA  9036 091 085 0'.      11707501
124000         03  FILLER  PIC X(19)  VALUE 'RHB  9037 119 085 0'.      11707601
124100         03  FILLER  PIC X(19)  VALUE 'RHC  9038 145 085 0'.      11707701
124200         03  FILLER  PIC X(19)  VALUE 'RHL  9048 215 085 0'.      11707801
124300         03  FILLER  PIC X(19)  VALUE 'RHX  9049 255 085 0'.      11707901
124400         03  FILLER  PIC X(19)  VALUE 'RLA  9031 071 028 0'.      11708001
124500         03  FILLER  PIC X(19)  VALUE 'RLB  9032 150 028 0'.      11708101
124600         03  FILLER  PIC X(19)  VALUE 'RLX  9045 226 028 0'.      11708201
124700         03  FILLER  PIC X(19)  VALUE 'RMA  9033 084 055 0'.      11708301
124800         03  FILLER  PIC X(19)  VALUE 'RMB  9034 122 055 0'.      11708401
124900         03  FILLER  PIC X(19)  VALUE 'RMC  9035 136 055 0'.      11708501
125000         03  FILLER  PIC X(19)  VALUE 'RML  9046 219 055 0'.      11708601
125100         03  FILLER  PIC X(19)  VALUE 'RMX  9047 247 055 0'.      11708701
125200         03  FILLER  PIC X(19)  VALUE 'RUA  9042 099 187 0'.      11708801
125300         03  FILLER  PIC X(19)  VALUE 'RUB  9043 156 187 0'.      11708901
125400         03  FILLER  PIC X(19)  VALUE 'RUC  9044 156 187 0'.      11709001
125500         03  FILLER  PIC X(19)  VALUE 'RUL  9052 257 187 0'.      11709101
125600         03  FILLER  PIC X(19)  VALUE 'RUX  9053 267 187 0'.      11709201
125700         03  FILLER  PIC X(19)  VALUE 'RVA  9039 110 128 0'.      11709301
125800         03  FILLER  PIC X(19)  VALUE 'RVB  9040 111 128 0'.      11709401
125900         03  FILLER  PIC X(19)  VALUE 'RVC  9041 151 128 0'.      11709501
126000         03  FILLER  PIC X(19)  VALUE 'RVL  9050 219 128 0'.      11709601
126100         03  FILLER  PIC X(19)  VALUE 'RVX  9051 261 128 0'.      11709701
127500                                                                  11709801
126200     02  RUG67-2019-DATA2-Q                                       11709901
126200             REDEFINES RUG67-2019-DATA1-Q                         11710001
126200                OCCURS 67                                         11710101
126300                   ASCENDING KEY IS RUG67-2019-CODE-Q             11710201
126400                      INDEXED BY RUG67-2019-01-Q.                 11710301
127700                                                                  11710401
126500         03  RUG67-2019-CODE-Q       PIC X(03).                   11710501
126600         03  RUG67-2019-REGS-Q       OCCURS 1.                    11710601
030400**************YEARCHANGE 2019.0 *************************         11710701
126700             04  FILLER               PIC XX.                     11710801
126800             04  REV67-2019-CODE-Q    PIC XXXX.                   11710901
126900             04  FILLER               PIC X.                      11711001
127000             04  RUG67-2019-NURSING-Q PIC 9V99.                   11711101
127100             04  FILLER               PIC X.                      11711201
127200             04  RUG67-2019-THERAPY-Q PIC 9V99.                   11711301
127300             04  FILLER               PIC X.                      11711401
127400             04  RUG67-2019-FACTOR-Q  PIC 9.                      11711501
127600                                                                  11711601
127800*-------------------------------------------------------*         11711701
127800****>>  END OF RATE COMPONENT TABLE FOR FY2019.0 <<******         11711801
127800*-------------------------------------------------------*         11711901
127600                                                                  11712001
127800*-------------------------------------------------------*         11712101
127800*------------>>  END OF WORKING STORGE  <<--------------*         11712201
127800*-----------------------------------------  ------------*         11712301
127700                                                                  11712401
127900 LINKAGE SECTION.                                                 11712501
128000***************************************************************   11712601
128100*                 * * * * * * * * *                           *   11712701
128200***************************************************************   11712801
128300***************************************************************   11712901
128400*    THIS DATA IS CALCULATED BY THIS SNFPR  SUBROUTINE        *   11713001
128500*    AND PASSED BACK TO THE CALLING PROGRAM                   *   11713101
128600*            RETURN CODE VALUES (SNF-RTC)                     *   11713201
128700*                                                             *   11713301
128800*            SNF-RTC                                          *   11713401
128900*              00 = RUG III GROUP RATE RETURNED               *   11713501
129000*                                                             *   11713601
129100*            SNF-RTC   NO RATE RETURNED                       *   11713701
129200*                                                             *   11713801
129300*              20 = INVALID RUG CODE                          *   11713901
129400*                                                             *   11714001
129500*              30 = INVALID MSA OR CBSA OR WAGE INDEX         *   11714101
129600*                                                             *   11714201
129700*              40 = THRU DATE < JULY 1 1998 OR INVALID        *   11714301
129800*                                                             *   11714401
129900*              50 = INVALID FEDERAL BLEND FOR THAT YEAR       *   11714501
130000*                                                             *   11714601
130100*              60 = INVALID FEDERAL BLEND                     *   11714701
130200*                                                             *   11714801
130300*              61 = FEDERAL BLEND = 0 AND                     *   11714901
130400*                   SNF THRU DATE < JAN 1, 2000               *   11715001
130500*                                                             *   11715101
130300*              70 = VBP-MULTIPLIER = ZEROES                   *   11715201
130600***************************************************************   11715301
130700*     IP-RATE, GS-RATE, MDS-RATE, THERAPY, REHAB              *   11715401
130800***************************************************************   11715501
130900 01  SNF-DATA.                                                    11715601
131000     10  SNF-MSA               PIC XXXX.                          11715701
131100     10  SNF-CBSA              PIC XXXXX.                         11715801
131200     10  SNF-SPEC-WI-IND       PIC X.                             11715901
131300     10  SNF-SPEC-WI           PIC 9(02)V9(04).                   11716001
131400     10  SNF-RUG-CODE.                                            11717001
131500         15  SNF-RUG           PIC XXX.                           11718001
131600         15  FILLER            PIC XX.                            11719001
131700                                                                  11720001
131800     10  SNF-FROM-DATE.                                           11730001
131900         15  SNF-FROM-CC        PIC XX.                           11740001
132000         15  SNF-FROM-YY        PIC XX.                           11750001
132100         15  SNF-FROM-MM        PIC XX.                           11760001
132200         15  SNF-FROM-DD        PIC XX.                           11770001
132300                                                                  11780001
132400     10  SNF-THRU-DATE.                                           11790001
132500         15  SNF-THRU-CC       PIC XX.                            11800001
132600         15  SNF-THRU-YY       PIC XX.                            11810001
132700         15  SNF-THRU-MM       PIC XX.                            11820001
132800         15  SNF-THRU-DD       PIC XX.                            11830001
132900                                                                  11840001
133000     10  SNF-FED-BLEND         PIC X.                             11850001
133100         88  SNF-ALL-FACILITY      VALUE '0'.                     11860001
133200         88  SNF-FED-BLEND-2575PER VALUE '1'.                     11870001
133300         88  SNF-FED-BLEND-5050PER VALUE '2'.                     11880001
133400         88  SNF-FED-BLEND-7525PER VALUE '3'.                     11890001
133500         88  SNF-FED-BLEND-100PER  VALUE '4'.                     11900001
133600     10  SNF-FACILITY-RATE     PIC 9(05)V99.                      11910001
133700     10  SNF-DIAGNOSIS-CODES.                                     11920001
133800         15  SNF-PRIN-DIAG-CODE    PIC X(07).                     11930001
133900         15  SNF-OTHER-DIAG-CODE2  PIC X(07).                     11940001
134000         15  SNF-OTHER-DIAG-CODE3  PIC X(07).                     11950001
134100         15  SNF-OTHER-DIAG-CODE4  PIC X(07).                     11960001
134200         15  SNF-OTHER-DIAG-CODE5  PIC X(07).                     11970001
134300         15  SNF-OTHER-DIAG-CODE6  PIC X(07).                     11980001
134400         15  SNF-OTHER-DIAG-CODE7  PIC X(07).                     11990001
134500         15  SNF-OTHER-DIAG-CODE8  PIC X(07).                     12000001
134600         15  SNF-OTHER-DIAG-CODE9  PIC X(07).                     12010001
134700         15  SNF-OTHER-DIAG-CODE10 PIC X(07).                     12020001
134800         15  SNF-OTHER-DIAG-CODE11 PIC X(07).                     12030001
134900         15  SNF-OTHER-DIAG-CODE12 PIC X(07).                     12040001
135000         15  SNF-OTHER-DIAG-CODE13 PIC X(07).                     12050001
135100         15  SNF-OTHER-DIAG-CODE14 PIC X(07).                     12060001
135200         15  SNF-OTHER-DIAG-CODE15 PIC X(07).                     12070001
135300         15  SNF-OTHER-DIAG-CODE16 PIC X(07).                     12080001
135400         15  SNF-OTHER-DIAG-CODE17 PIC X(07).                     12090001
135500         15  SNF-OTHER-DIAG-CODE18 PIC X(07).                     12100001
135600         15  SNF-OTHER-DIAG-CODE19 PIC X(07).                     12110001
135700         15  SNF-OTHER-DIAG-CODE20 PIC X(07).                     12120001
135800         15  SNF-OTHER-DIAG-CODE21 PIC X(07).                     12130001
135900         15  SNF-OTHER-DIAG-CODE22 PIC X(07).                     12140001
136000         15  SNF-OTHER-DIAG-CODE23 PIC X(07).                     12150001
136100         15  SNF-OTHER-DIAG-CODE24 PIC X(07).                     12160001
136200         15  SNF-OTHER-DIAG-CODE25 PIC X(07).                     12170001
136300     10  SNF-RATE-RTC.                                            12180001
136400         15  SNF-PAYMENT-RATE      PIC 9(06)V99.                  12190001
136500         15  SNF-RTC               PIC XX.                        12200001
022500     10  VBP-DATA.                                                12210001
022600         15  VBP-MULTIPLIER        PIC S9V9(11).                  12220001
022700         15  VBP-PAY-DIFF          PIC S9(06)V9(02).              12230001
022800     10  FILLER                      PIC X(50).                   12240001
020100                                                                  12250001
017300                                                                  12260001
136700                                                                  12270001
136800 01  HOLD-VARIABLES.                                              12280001
136900     02  HOLD-VAR-DATA.                                           12290001
137000         05  FACTOR                         PIC 9.                12300001
137100         05  NUR-INDEX                      PIC 9V99.             12310001
137200         05  THR-INDEX                      PIC 9V99.             12320001
137300         05  AREA-WAGE-INDEX                PIC 9(01)V9(04).      12330001
137400         05  IP-RATE                        PIC 9(03)V9(02).      12340001
137500         05  GS-RATE                        PIC 9(02)V9(02).      12350001
137600         05  TH-RATE                        PIC 9(02)V9(02).      12360001
137700         05  REHAB-RATE                     PIC 9(03)V9(02).      12370001
137800         05  NURSING-COMPONENT              PIC 999V99.           12380001
137900         05  THERAPY-COMPONENT              PIC 999V99.           12390001
138000         05  NCM-THR-COMPONENT              PIC 999V99.           12400001
138100         05  NCM-COMPONENT                  PIC 999V99.           12410001
138200         05  PAYMENT-RATE-ADJ               PIC 9(06)V99.         12420001
138300         05  FED-PAYMENT-PORTION            PIC 9(06)V99.         12430001
138400     02  SNFPR-VERSION                      PIC X(09).            12440001
138500                                                                  12450001
138600 01  MSA-WAGE-INDEX-RECORD.                                       12460001
138700     02  HOLD-MSA-WIR-DATA.                                       12470001
138800         05  MSA-WIR-MSA             PIC X(04).                   12480001
138900         05  MSA-WIR-EFFDATE         PIC X(08).                   12490001
139000         05  MSA-WIR-AREA-WAGEIND    PIC 9(02)V9(04).             12500001
139100                                                                  12510001
139200 01  CBSA-WAGE-INDEX-RECORD.                                      12520001
139300     02  HOLD-CBSA-WIR-DATA.                                      12530001
139400         05  CBSA-WIR-CBSA            PIC X(05).                  12540001
139500         05  CBSA-WIR-EFFDATE         PIC X(08).                  12550001
139600         05  CBSA-WIR-AREA-WAGEIND    PIC 9(02)V9(04).            12560001
139700                                                                  12570001
139800 PROCEDURE DIVISION            USING SNF-DATA                     12580001
139900                                     HOLD-VARIABLES               12590001
140000                                     CBSA-WAGE-INDEX-RECORD       12600001
140100                                     MSA-WAGE-INDEX-RECORD.       12610001
140200                                                                  12620001
140300***************************************************************   12630001
140400*    PROCESSING:                                              *   12640001
140500*        -  WILL PROCESS ALL NATIONAL SNF FOR 1998 THRU 2009  *   12650001
140600*                STARTING JULY 1, 1998                        *   12660001
140700***************************************************************   12670001
140800                                                                  12680001
140900     PERFORM 0200-MAINLINE-CONTROL.                               12690001
141000                                                                  12700001
141100     MOVE HOLD-SNF-DATA        TO SNF-DATA.                       12710001
141200                                                                  12720001
141300     GOBACK.                                                      12730001
141400                                                                  12740001
141500 0200-MAINLINE-CONTROL.                                           12750001
141600                                                                  12760001
141700     MOVE SNF-DATA             TO HOLD-SNF-DATA.                  12770001
141800                                                                  12780001
141900     MOVE ALL '0'              TO HLD-RATE-RTC                    12790001
142000                                  HOLD-VAR-DATA                   12800001
142100                                  WK-PAYMENT-RATE                 12810001
142200                                  WK-FACILITY-RATE.               12820001
142300                                                                  12830001
142400     MOVE CAL-VERSION          TO SNFPR-VERSION.                  12840001
142500                                                                  12850001
142600     IF  HLD-RTC = 00                                             12860001
142700         PERFORM 400-CALC-THE-SNF                                 12870001
142800            THRU 400-EXIT.                                        12880001
142900                                                                  12890001
143000 400-CALC-THE-SNF.                                                12900001
143100                                                                  12910001
143200     MOVE HLD-FROM-DATE        TO HLD-PRICE-FROM-DATE             12920001
143300                                                                  12930001
143400     MOVE HLD-THRU-DATE        TO HLD-PRICE-THRU-DATE             12940001
143500                                                                  12950001
143600     IF HLD-PRICE-THRU-MMDD = '1001' AND                          12960001
143700        HLD-PRICE-FROM-DATE < HLD-PRICE-THRU-DATE                 12970001
143800        MOVE '0930'            TO HLD-PRICE-THRU-MMDD.            12980001
143900                                                                  12990001
144000     IF HLD-THRU-DATE < 19980701                                  13000001
144100         MOVE '40'             TO HLD-RTC.                        13010001
144200                                                                  13020001
144300     IF HLD-RTC NOT = 00                                          13030001
144400            GO TO 400-EXIT.                                       13040001
144500                                                                  13050001
144600**************YEARCHANGE 2019.0 *******************************   13060001
144700     IF HLD-PRICE-THRU-DATE > 20180930                            13070001
144800        MOVE CBSA-WIR-AREA-WAGEIND                                13080001
144900                               TO AREA-WAGE-INDEX                 13090001
145000        PERFORM 2019-67-PAYMENT-RATE-CALC                         13100001
145100           THRU 2019-67-EXIT                                      13110001
145200        GO TO 400-EXIT.                                           13120001
145300**************YEARCHANGE 2019.0 *******************************   13130001
144500                                                                  13140001
144600**************YEARCHANGE 2018.0 *******************************   13150001
144700     IF HLD-PRICE-THRU-DATE > 20170930                            13160001
144800        MOVE CBSA-WIR-AREA-WAGEIND                                13170001
144900                               TO AREA-WAGE-INDEX                 13171001
145000        PERFORM 2018-67-PAYMENT-RATE-CALC                         13172001
145100           THRU 2018-67-EXIT                                      13173001
145200        GO TO 400-EXIT.                                           13174001
145300**************YEARCHANGE 2018.0 *******************************   13175001
144600**************YEARCHANGE 2017.0 *******************************   13176001
144700     IF HLD-PRICE-THRU-DATE > 20160930                            13177001
144800        MOVE CBSA-WIR-AREA-WAGEIND                                13178001
144900                               TO AREA-WAGE-INDEX                 13179001
145000        PERFORM 2017-67-PAYMENT-RATE-CALC                         13180001
145100           THRU 2017-67-EXIT                                      13190001
145200        GO TO 400-EXIT.                                           13200001
145300**************YEARCHANGE 2017.0 *******************************   13210001
144600**************YEARCHANGE 2016.0 *******************************   13220001
144700     IF HLD-PRICE-THRU-DATE > 20150930                            13230001
144800        MOVE CBSA-WIR-AREA-WAGEIND                                13240001
144900                               TO AREA-WAGE-INDEX                 13250001
145000        PERFORM 2016-67-PAYMENT-RATE-CALC                         13260001
145100           THRU 2016-67-EXIT                                      13270001
145200        GO TO 400-EXIT.                                           13280001
145300**************YEARCHANGE 2016.0 *******************************   13290001
145400**************YEARCHANGE 2015.0 *******************************   13300001
145500     IF HLD-PRICE-THRU-DATE > 20140930                            13310001
145600        MOVE CBSA-WIR-AREA-WAGEIND                                13320001
145700                               TO AREA-WAGE-INDEX                 13321001
145800        PERFORM 2015-67-PAYMENT-RATE-CALC                         13322001
145900           THRU 2015-67-EXIT                                      13323001
146000        GO TO 400-EXIT.                                           13324001
146100**************YEARCHANGE 2015.0 *******************************   13325001
146200**************YEARCHANGE 2014.0 *******************************   13326001
146300     IF HLD-PRICE-THRU-DATE > 20130930                            13327001
146400        MOVE CBSA-WIR-AREA-WAGEIND                                13328001
146500                               TO AREA-WAGE-INDEX                 13329001
146600        PERFORM 2014-67-PAYMENT-RATE-CALC                         13330001
146700           THRU 2014-67-EXIT                                      13340001
146800        GO TO 400-EXIT.                                           13350001
146900**************YEARCHANGE 2014.0 *******************************   13360001
147000**************YEARCHANGE 2013.0 *******************************   13370001
147100     IF HLD-PRICE-THRU-DATE > 20120930                            13380001
147200        MOVE CBSA-WIR-AREA-WAGEIND                                13390001
147300                               TO AREA-WAGE-INDEX                 13400001
147400        PERFORM 2013-67-PAYMENT-RATE-CALC                         13410001
147500           THRU 2013-67-EXIT                                      13411001
147600        GO TO 400-EXIT.                                           13412001
147700**************YEARCHANGE 2013.0 *******************************   13413001
147800**************YEARCHANGE 2012.0 *******************************   13414001
147900     IF HLD-PRICE-THRU-DATE > 20110930                            13415001
148000        MOVE CBSA-WIR-AREA-WAGEIND                                13416001
148100                               TO AREA-WAGE-INDEX                 13417001
148200        PERFORM 2012-67-PAYMENT-RATE-CALC                         13418001
148300           THRU 2012-67-EXIT                                      13419001
148400        GO TO 400-EXIT.                                           13420001
148500**************YEARCHANGE 2012.0 *******************************   13430001
148600**************YEARCHANGE 2011.0 *******************************   13440001
148700     IF HLD-PRICE-THRU-DATE > 20100930                            13450001
148800        MOVE CBSA-WIR-AREA-WAGEIND                                13460001
148900                               TO AREA-WAGE-INDEX                 13470001
149000        PERFORM 2011-67-PAYMENT-RATE-CALC                         13480001
149100           THRU 2011-67-EXIT                                      13490001
149200        GO TO 400-EXIT.                                           13500001
149300**************YEARCHANGE 2011.0 *******************************   13510001
149400**************YEARCHANGE 2010.0 *******************************   13520001
149500     IF HLD-PRICE-THRU-DATE > 20090930                            13530001
149600        MOVE CBSA-WIR-AREA-WAGEIND                                13540001
149700                               TO AREA-WAGE-INDEX                 13550001
149800        PERFORM 2010-53-PAYMENT-RATE-CALC                         13560001
149900           THRU 2010-53-EXIT                                      13570001
150000        GO TO 400-EXIT.                                           13580001
150100**************YEARCHANGE 2010.0 *******************************   13590001
150200**************YEARCHANGE 2009.0 *******************************   13600001
150300     IF HLD-PRICE-THRU-DATE > 20080930                            13610001
150400        MOVE CBSA-WIR-AREA-WAGEIND                                13620001
150500                               TO AREA-WAGE-INDEX                 13630001
150600        PERFORM 2009-53-PAYMENT-RATE-CALC                         13640001
150700           THRU 2009-53-EXIT                                      13650001
150800        GO TO 400-EXIT.                                           13660001
150900**************YEARCHANGE 2009.0 *******************************   13670001
151000**************YEARCHANGE 2008.0 *******************************   13680001
151100     IF HLD-PRICE-THRU-DATE > 20070930                            13690001
151200        MOVE CBSA-WIR-AREA-WAGEIND                                13700001
151300                               TO AREA-WAGE-INDEX                 13710001
151400        PERFORM 2008-53-PAYMENT-RATE-CALC                         13720001
151500           THRU 2008-53-EXIT                                      13730001
151600        GO TO 400-EXIT.                                           13740001
151700**************YEARCHANGE 2008.0 *******************************   13750001
151800**************YEARCHANGE 2007.0 *******************************   13760001
151900     IF HLD-PRICE-THRU-DATE > 20060930                            13770001
152000        MOVE CBSA-WIR-AREA-WAGEIND                                13780001
152100                               TO AREA-WAGE-INDEX                 13790001
152200        PERFORM 2007-53-PAYMENT-RATE-CALC THRU 2007-53-EXIT       13800001
152300        GO TO 400-EXIT.                                           13810001
152400**************YEARCHANGE 2007.0 *******************************   13820001
152500**************YEARCHANGE 2006.1 *******************************   13830001
152600     IF HLD-PRICE-THRU-DATE > 20051231                            13840001
152700        MOVE CBSA-WIR-AREA-WAGEIND                                13850001
152800                               TO AREA-WAGE-INDEX                 13860001
152900        PERFORM 2006-53-PAYMENT-RATE-CALC                         13870001
153000           THRU 2006-53-EXIT                                      13880001
153100        GO TO 400-EXIT.                                           13890001
153200**************YEARCHANGE 2006.1 *******************************   13900001
153300**************YEARCHANGE 2006.0 *******************************   13910001
153400     IF HLD-PRICE-THRU-DATE > 20050930 AND                        13920001
153500        HLD-PRICE-THRU-DATE < 20060101                            13930001
153600        MOVE CBSA-WIR-AREA-WAGEIND                                13940001
153700                               TO AREA-WAGE-INDEX                 13950001
153800        PERFORM 2006-44-PAYMENT-RATE-CALC                         13960001
153900           THRU 2006-44-EXIT                                      13970001
154000        GO TO 400-EXIT.                                           13980001
154100**************YEARCHANGE 2006.0 *******************************   13990001
154200                                                                  14000001
154300     MOVE MSA-WIR-AREA-WAGEIND TO AREA-WAGE-INDEX.                14010001
154400                                                                  14020001
154500     IF HLD-PRICE-THRU-DATE > 20040930                            14030001
154600        PERFORM 2005-PAYMENT-RATE-CALC                            14040001
154700           THRU 2005-EXIT                                         14050001
154800        GO TO 400-EXIT.                                           14060001
154900                                                                  14070001
155000     IF HLD-PRICE-THRU-DATE > 20030930                            14080001
155100        PERFORM 2004-PAYMENT-RATE-CALC                            14090001
155200           THRU 2004-EXIT                                         14100001
155300                                                                  14110001
155400        GO TO 400-EXIT.                                           14120001
155500                                                                  14130001
155600     IF HLD-PRICE-THRU-DATE > 20020930                            14140001
155700        PERFORM 2003-PAYMENT-RATE-CALC                            14150001
155800           THRU 2003-EXIT                                         14160001
155900        GO TO 400-EXIT.                                           14170001
156000                                                                  14180001
156100     IF HLD-PRICE-THRU-DATE > 20010930                            14190001
156200        PERFORM 2002-PAYMENT-RATE-CALC                            14200001
156300           THRU 2002-EXIT                                         14210001
156400        GO TO 400-EXIT.                                           14220001
156500                                                                  14230001
156600     IF HLD-PRICE-THRU-DATE > 20010331                            14240001
156700        PERFORM 2001A-PAYMENT-RATE-CALC                           14250001
156800           THRU 2001A-EXIT                                        14260001
156900        GO TO 400-EXIT.                                           14270001
157000                                                                  14280001
157100     IF HLD-PRICE-THRU-DATE > 20000930                            14290001
157200        PERFORM 2001-PAYMENT-RATE-CALC                            14300001
157300           THRU 2001-EXIT                                         14310001
157400        GO TO 400-EXIT.                                           14320001
157500                                                                  14330001
157600     IF HLD-PRICE-THRU-DATE > 19990930                            14340001
157700        PERFORM 2000-PAYMENT-RATE-CALC                            14350001
157800           THRU 2000-EXIT                                         14360001
157900        GO TO 400-EXIT.                                           14370001
158000                                                                  14380001
158100     IF HLD-PRICE-THRU-DATE > 19980630                            14390001
158200        PERFORM 1999-PAYMENT-RATE-CALC                            14400001
158300           THRU 1999-EXIT                                         14410001
158400        GO TO 400-EXIT.                                           14420001
158500                                                                  14430001
158600                                                                  14440001
158700 400-EXIT.                                                        14450001
158800     EXIT.                                                        14460001
158900                                                                  14470001
159000 500-GET-RATES.                                                   14480001
159700                                                                  14490001
127800*-------------------------------------------------------*         14500001
127800*---------->> RATE SEARCH FOR FY2018 & FUTURE <<--------*         14510001
027800*--------->> NOW 4 REGIONS DUE TO QRP PENALTY <<--------*         14520001
127800*-------------------------------------------------------*         14530001
159100                                                                  14540001
144700     IF HLD-PRICE-FROM-DATE > 20170930                            14550001
159100                                                                  14560001
150000        PERFORM 650-WHICH-RATES-NOW-FUTURE                        14570001
150000                VARYING R1                                        14580001
159300                    FROM 1 BY 1                                   14590001
159400                       UNTIL R1 > 2                               14600001
159100                                                                  14610001
159500     ELSE                                                         14611001
127800*-------------------------------------------------------*         14612001
127800*------->>  RATE SEARCH FOR FY1998 THRU FY2017  <<------*         14613001
027800*--------->>       ONLY 2 REGIONS             <<--------*         14613101
027800*-------------------------------------------------------*         14613201
159200         PERFORM 600-WHICH-RATES                                  14613301
159200                 VARYING R1                                       14613401
159200                     FROM 1 BY 1                                  14613501
159400                        UNTIL R1 > 20                             14613601
159500     END-IF.                                                      14613701
159700                                                                  14613801
158900                                                                  14613901
159600 500-EXIT.    EXIT.                                               14614001
159100                                                                  14615001
159700                                                                  14616001
159800 600-WHICH-RATES.                                                 14617001
159900                                                                  14618001
160000     IF HLD-PRICE-THRU-DATE NOT < REG-EFF-DATE (R1)               14619001
159900                                                                  14620001
160100       MOVE R-IP-RATE (R1, R2, R3)                                14630001
160200                               TO IP-RATE                         14640001
160300       MOVE R-GS-RATE (R1, R2, R3)                                14650001
160400                               TO GS-RATE,                        14660001
160500                                  NCM-COMPONENT                   14670001
160600       MOVE R-TH-RATE (R1, R2, R3)                                14680001
160700                               TO TH-RATE,                        14690001
160800                                  NCM-THR-COMPONENT               14700001
160900       MOVE R-REHAB-RATE (R1, R2, R3)                             14710001
161000                               TO REHAB-RATE                      14720001
370500     END-IF.                                                      14730001
161100                                                                  14740001
159700                                                                  14750001
159800 650-WHICH-RATES-NOW-FUTURE.                                      14760001
159900                                                                  14770001
160000     IF HLD-PRICE-THRU-DATE NOT < REG-EFF-DATE-Q (R1)             14780001
                                                                        14790001
160100       MOVE R-IP-RATE-Q (R1, R2, R3)                              14800001
160200                               TO IP-RATE                         14810001
160300       MOVE R-GS-RATE-Q (R1, R2, R3)                              14811001
160400                               TO GS-RATE                         14812001
160500                                  NCM-COMPONENT                   14813001
160600       MOVE R-TH-RATE-Q (R1, R2, R3)                              14814001
160700                               TO TH-RATE                         14815001
160800                                  NCM-THR-COMPONENT               14816001
160900       MOVE R-REHAB-RATE-Q (R1, R2, R3)                           14817001
161000                               TO REHAB-RATE                      14818001
370500     END-IF.                                                      14819001
159700                                                                  14820001
159700                                                                  14820101
161100                                                                  14820201
161200 800-SEARCH-4-RUG.                                                14820301
161300     SET RUG01                 TO 1.                              14820401
161400     SEARCH RUG-DATA2 VARYING RUG01                               14820501
161500       AT END                                                     14820601
161600           MOVE '20'           TO HLD-RTC                         14820701
161700           GO TO 800-SEARCH-EXIT                                  14820801
161800       WHEN RUG-CODE (RUG01) = HLD-RUG                            14820901
161900                                                                  14821001
162000           MOVE RUG-NURSING (RUG01, R3)                           14822001
162100                               TO NUR-INDEX                       14823001
162200           MOVE RUG-THERAPY (RUG01, R3)                           14824001
162300                               TO THR-INDEX                       14825001
162400           MOVE RUG-FACTOR  (RUG01, R3)                           14826001
162500                               TO FACTOR.                         14827001
162600                                                                  14828001
162700 800-SEARCH-EXIT.   EXIT.                                         14829001
162800                                                                  14830001
162900 900-SEARCH-4-RUG53.                                              14840001
163000     SET RUG53-01              TO 1.                              14850001
163100     SEARCH RUG53-DATA2 VARYING RUG53-01                          14860001
163200       AT END                                                     14870001
163300           MOVE '20'           TO HLD-RTC                         14880001
163400           GO TO 900-SEARCH-EXIT                                  14890001
163500                                                                  14900001
163600       WHEN RUG53-CODE (RUG53-01) = HLD-RUG                       14910001
163700           MOVE RUG53-NURSING (RUG53-01, R3)                      14920001
163800                               TO NUR-INDEX                       14930001
163900           MOVE RUG53-THERAPY (RUG53-01, R3)                      14940001
164000                               TO THR-INDEX                       14950001
164100           MOVE RUG53-FACTOR  (RUG53-01, R3)                      14960001
164200                               TO FACTOR.                         14970001
164300                                                                  14980001
164400 900-SEARCH-EXIT.   EXIT.                                         14990001
164500                                                                  15000001
164600                                                                  15010001
164700 910-SEARCH-4-RUG53-2010.                                         15020001
164800                                                                  15030001
164900     SET RUG53-2010-01         TO 1.                              15040001
165000                                                                  15050001
165100     SEARCH RUG53-2010-DATA2   VARYING RUG53-2010-01              15060001
165200       AT END                                                     15070001
165300           MOVE '20'           TO HLD-RTC                         15080001
165400           GO TO 910-SEARCH-EXIT                                  15090001
165500                                                                  15100001
165600       WHEN RUG53-2010-CODE (RUG53-2010-01) = HLD-RUG             15110001
165700           MOVE RUG53-2010-NURSING (RUG53-2010-01, R3)            15120001
165800                               TO NUR-INDEX                       15130001
165900           MOVE RUG53-2010-THERAPY (RUG53-2010-01, R3)            15140001
166000                               TO THR-INDEX                       15150001
166100           MOVE RUG53-2010-FACTOR (RUG53-2010-01, R3)             15160001
166200                               TO FACTOR.                         15170001
166300                                                                  15180001
166400 910-SEARCH-EXIT.   EXIT.                                         15190001
166500                                                                  15200001
166600 911-SEARCH-4-RUG67-2011.                                         15210001
166700                                                                  15220001
166800     SET RUG67-2011-01         TO 1.                              15230001
166900     SEARCH RUG67-2011-DATA2   VARYING RUG67-2011-01              15240001
167000       AT END                                                     15250001
167100           MOVE '20'           TO HLD-RTC                         15260001
167200           GO TO 911-SEARCH-EXIT                                  15270001
167300                                                                  15280001
167400       WHEN RUG67-2011-CODE (RUG67-2011-01) = HLD-RUG             15290001
167500           MOVE RUG67-2011-NURSING (RUG67-2011-01, R3)            15300001
167600                               TO NUR-INDEX                       15310001
167700           MOVE RUG67-2011-THERAPY (RUG67-2011-01, R3)            15320001
167800                               TO THR-INDEX                       15330001
167900           MOVE RUG67-2011-FACTOR (RUG67-2011-01, R3)             15340001
168000                               TO FACTOR.                         15350001
168100                                                                  15360001
168200 911-SEARCH-EXIT.   EXIT.                                         15370001
168300                                                                  15380001
168400                                                                  15390001
168500 912-SEARCH-4-RUG67-2012.                                         15400001
168600     SET RUG67-2012-01         TO 1.                              15410001
168700     SEARCH RUG67-2012-DATA2 VARYING RUG67-2012-01                15420001
168800       AT END                                                     15430001
168900           MOVE '20'           TO HLD-RTC                         15440001
169000           GO TO 912-SEARCH-EXIT                                  15450001
169100       WHEN RUG67-2012-CODE (RUG67-2012-01) = HLD-RUG             15460001
169200           MOVE RUG67-2012-NURSING (RUG67-2012-01, R3)            15470001
169300                               TO NUR-INDEX                       15480001
169400           MOVE RUG67-2012-THERAPY (RUG67-2012-01, R3)            15490001
169500                               TO THR-INDEX                       15500001
169600           MOVE RUG67-2012-FACTOR (RUG67-2012-01, R3)             15510001
169700                               TO FACTOR.                         15520001
169800                                                                  15530001
169900 912-SEARCH-EXIT.   EXIT.                                         15540001
170000                                                                  15550001
170100                                                                  15560001
170200 913-SEARCH-4-RUG67-2013.                                         15570001
170300     SET RUG67-2013-01         TO 1.                              15580001
170400                                                                  15590001
170500     SEARCH  RUG67-2013-DATA2                                     15600001
170600       VARYING RUG67-2013-01                                      15610001
170700       AT END                                                     15620001
170800           MOVE '20'           TO HLD-RTC                         15630001
170900           GO TO 913-SEARCH-EXIT                                  15640001
171000                                                                  15650001
171100       WHEN RUG67-2013-CODE (RUG67-2013-01) = HLD-RUG             15660001
171200                                                                  15670001
171300           MOVE RUG67-2013-NURSING (RUG67-2013-01, R3)            15680001
171400                               TO NUR-INDEX                       15690001
171500           MOVE RUG67-2013-THERAPY (RUG67-2013-01, R3)            15700001
171600                               TO THR-INDEX                       15710001
171700           MOVE RUG67-2013-FACTOR (RUG67-2013-01, R3)             15720001
171800                               TO FACTOR.                         15730001
171900                                                                  15740001
172000 913-SEARCH-EXIT.   EXIT.                                         15750001
172100                                                                  15760001
172200                                                                  15770001
172300 914-SEARCH-4-RUG67-2014.                                         15780001
172400     SET RUG67-2014-01         TO 1.                              15790001
172500                                                                  15800001
172600     SEARCH  RUG67-2014-DATA2                                     15810001
172700       VARYING RUG67-2014-01                                      15820001
172800       AT END                                                     15830001
172900           MOVE '20'           TO HLD-RTC                         15840001
173000           GO TO 914-SEARCH-EXIT                                  15850001
173100                                                                  15860001
173200       WHEN RUG67-2014-CODE (RUG67-2014-01) = HLD-RUG             15870001
173300                                                                  15880001
173400           MOVE RUG67-2014-NURSING (RUG67-2014-01, R3)            15890001
173500                               TO NUR-INDEX                       15900001
173600           MOVE RUG67-2014-THERAPY (RUG67-2014-01, R3)            15910001
173700                               TO THR-INDEX                       15920001
173800           MOVE RUG67-2014-FACTOR (RUG67-2014-01, R3)             15930001
173900                               TO FACTOR.                         15940001
174000                                                                  15950001
174100 914-SEARCH-EXIT.   EXIT.                                         15960001
174200                                                                  15970001
174300                                                                  15980001
174400                                                                  15990001
174500 915-SEARCH-4-RUG67-2015.                                         16000001
174600     SET RUG67-2015-01         TO 1.                              16010001
174700                                                                  16020001
174800     SEARCH  RUG67-2015-DATA2                                     16030001
174900       VARYING RUG67-2015-01                                      16040001
175000       AT END                                                     16050001
175100           MOVE '20'           TO HLD-RTC                         16060001
175200           GO TO 915-SEARCH-EXIT                                  16070001
175300                                                                  16080001
175400       WHEN RUG67-2015-CODE (RUG67-2015-01) = HLD-RUG             16090001
175500                                                                  16100001
175600           MOVE RUG67-2015-NURSING (RUG67-2015-01, R3)            16110001
175700                               TO NUR-INDEX                       16120001
175800           MOVE RUG67-2015-THERAPY (RUG67-2015-01, R3)            16130001
175900                               TO THR-INDEX                       16140001
176000           MOVE RUG67-2015-FACTOR (RUG67-2015-01, R3)             16150001
176100                               TO FACTOR.                         16160001
176200                                                                  16170001
176300 915-SEARCH-EXIT.   EXIT.                                         16180001
176400                                                                  16190001
176500                                                                  16200001
176600                                                                  16210001
176700 916-SEARCH-4-RUG67-2016.                                         16220001
176800     SET RUG67-2016-01         TO 1.                              16230001
176900                                                                  16240001
177000     SEARCH  RUG67-2016-DATA2                                     16250001
177100       VARYING RUG67-2016-01                                      16260001
177200       AT END                                                     16270001
177300           MOVE '20'           TO HLD-RTC                         16280001
177400           GO TO 916-SEARCH-EXIT                                  16290001
177500                                                                  16300001
177600       WHEN RUG67-2016-CODE (RUG67-2016-01) = HLD-RUG             16310001
177700                                                                  16320001
177800           MOVE RUG67-2016-NURSING (RUG67-2016-01, R3)            16330001
177900                               TO NUR-INDEX                       16340001
178000           MOVE RUG67-2016-THERAPY (RUG67-2016-01, R3)            16350001
178100                               TO THR-INDEX                       16360001
178200           MOVE RUG67-2016-FACTOR (RUG67-2016-01, R3)             16370001
178300                               TO FACTOR.                         16380001
178400                                                                  16390001
178500 916-SEARCH-EXIT.   EXIT.                                         16400001
178600                                                                  16410001
178600*** --------------------  917-SEARCH-4 STARTS  --------------     16420001
176600                                                                  16430001
176700 917-SEARCH-4-RUG67-2017.                                         16440001
176800     SET RUG67-2017-01         TO 1.                              16441001
176900                                                                  16442001
177000     SEARCH  RUG67-2017-DATA2                                     16443001
177100       VARYING RUG67-2017-01                                      16444001
177200       AT END                                                     16445001
177300           MOVE '20'           TO HLD-RTC                         16446001
177400           GO TO 917-SEARCH-EXIT                                  16447001
177500                                                                  16448001
177600       WHEN RUG67-2017-CODE (RUG67-2017-01) = HLD-RUG             16449001
177700                                                                  16450001
177800           MOVE RUG67-2017-NURSING (RUG67-2017-01, R3)            16450101
177900                               TO NUR-INDEX                       16450201
178000           MOVE RUG67-2017-THERAPY (RUG67-2017-01, R3)            16450301
178100                               TO THR-INDEX                       16450401
178200           MOVE RUG67-2017-FACTOR (RUG67-2017-01, R3)             16450501
178300                               TO FACTOR.                         16450601
178400                                                                  16450701
178500 917-SEARCH-EXIT.   EXIT.                                         16450801
178600                                                                  16450901
A78600                                                                  16451001
178600*** --------------------  917-SEARCH-4 ENDS    --------------     16451101
178600                                                                  16451201
178600                                                                  16451301
178600                                                                  16451401
178600*** --------------------  918-SEARCH-4 STARTS  --------------     16451501
176600                                                                  16451601
176700 918-SEARCH-4-RUG67-2018.                                         16451701
176800     SET RUG67-2018-01-Q       TO 1.                              16451801
176900                                                                  16451901
177000     SEARCH  RUG67-2018-DATA2-Q                                   16452001
177100       VARYING RUG67-2018-01-Q                                    16452101
177200           AT END                                                 16452201
177300              MOVE '20'        TO HLD-RTC                         16452301
177400       GO TO 918-SEARCH-EXIT                                      16452401
177500                                                                  16452501
177600       WHEN RUG67-2018-CODE-Q (RUG67-2018-01-Q) = HLD-RUG         16452601
177700                                                                  16452701
177800            MOVE RUG67-2018-NURSING-Q (RUG67-2018-01-Q, R3)       16452801
177900                               TO NUR-INDEX                       16452901
178000            MOVE RUG67-2018-THERAPY-Q (RUG67-2018-01-Q, R3)       16453001
178100                               TO THR-INDEX                       16453101
178200            MOVE RUG67-2018-FACTOR-Q (RUG67-2018-01-Q, R3)        16453201
178300                               TO FACTOR.                         16453301
179100                                                                  16453401
179100                                                                  16453501
178500 918-SEARCH-EXIT.   EXIT.                                         16453601
178600                                                                  16453701
178600*** --------------------  918-SEARCH-4 ENDS    --------------     16453801
178600                                                                  16453901
178600                                                                  16454001
178600*** --------------------  919-SEARCH-4 STARTS  --------------     16455001
176600                                                                  16455101
176700 919-SEARCH-4-RUG67-2019.                                         16455201
176800     SET RUG67-2019-01-Q       TO 1.                              16455301
176900                                                                  16455401
177000     SEARCH  RUG67-2019-DATA2-Q                                   16455501
177100       VARYING RUG67-2019-01-Q                                    16455601
177200           AT END                                                 16455701
177300              MOVE '20'        TO HLD-RTC                         16455801
177400       GO TO 919-SEARCH-EXIT                                      16455901
177500                                                                  16456001
177600       WHEN RUG67-2019-CODE-Q (RUG67-2019-01-Q) = HLD-RUG         16456101
177700                                                                  16456201
177800            MOVE RUG67-2019-NURSING-Q (RUG67-2019-01-Q, R3)       16456301
177900                               TO NUR-INDEX                       16456401
178000            MOVE RUG67-2019-THERAPY-Q (RUG67-2019-01-Q, R3)       16456501
178100                               TO THR-INDEX                       16456601
178200            MOVE RUG67-2019-FACTOR-Q (RUG67-2019-01-Q, R3)        16456701
178300                               TO FACTOR.                         16456801
179100                                                                  16456901
179100                                                                  16457001
178500 919-SEARCH-EXIT.   EXIT.                                         16457101
178600                                                                  16457201
178600*** --------------------  919-SEARCH-4 ENDS    --------------     16457301
176600                                                                  16457401
178600                                                                  16457501
178600                                                                  16457601
178700 1999-PAYMENT-RATE-CALC.                                          16457701
178800***************************************************************   16457801
178900*     PAYMENT RATE CALCULATION PROCCESS                           16457901
179000***************************************************************   16458001
179100                                                                  16458101
179200     MOVE 1                    TO R3.                             16458201
179300                                                                  16458301
179400     IF HLD-MSA-RURAL-CHECK                                       16458401
179500        MOVE 1                 TO R2                              16458501
179600     ELSE                                                         16458601
179700        MOVE 2                 TO R2.                             16458701
179800                                                                  16458801
179900     PERFORM 800-SEARCH-4-RUG                                     16458901
180000        THRU 800-SEARCH-EXIT.                                     16459001
180100                                                                  16459101
180200     IF HLD-RTC NOT = 00                                          16459201
180300        GO TO 1999-EXIT.                                          16459301
180400                                                                  16459401
180500     PERFORM 500-GET-RATES.                                       16459501
180600                                                                  16459601
180700     IF SNF-FED-BLEND = 1 OR 2 OR 3 OR 4                          16459701
180800        NEXT SENTENCE                                             16459801
180900     ELSE                                                         16459901
181000        MOVE '60'              TO HLD-RTC                         16460001
181100        MOVE ALL '0'           TO HOLD-VAR-DATA                   16461001
181200        GO TO 1999-EXIT.                                          16462001
181300                                                                  16463001
181400        COMPUTE NURSING-COMPONENT ROUNDED =                       16464001
181500                   (NUR-INDEX * IP-RATE).                         16465001
181600                                                                  16466001
181700        COMPUTE THERAPY-COMPONENT ROUNDED =                       16467001
181800                   (THR-INDEX * REHAB-RATE).                      16468001
181900                                                                  16469001
182000        COMPUTE NCM-THR-COMPONENT ROUNDED =                       16470001
182100                   (FACTOR * NCM-THR-COMPONENT).                  16480001
182200                                                                  16490001
182300        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       16500001
182400                   NURSING-COMPONENT +                            16510001
182500                   THERAPY-COMPONENT +                            16520001
182600                   NCM-THR-COMPONENT +                            16530001
182700                   NCM-COMPONENT.                                 16540001
182800                                                                  16550001
182900        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        16560001
183000             (HLD-PAYMENT-RATE * PERCENT-1999-LABOR) *            16570001
183100               AREA-WAGE-INDEX.                                   16580001
183200                                                                  16590001
183300        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        16600001
183400               (HLD-PAYMENT-RATE * PERCENT-1999-NLABOR) +         16610001
183500                    PAYMENT-RATE-ADJ.                             16620001
183600                                                                  16630001
183700     IF SNF-FED-BLEND = 1                                         16640001
183800        COMPUTE WK-PAYMENT-RATE ROUNDED =                         16650001
183900           (HLD-PAYMENT-RATE * .25)                               16660001
184000        COMPUTE WK-FACILITY-RATE ROUNDED =                        16670001
184100           (HLD-FACILITY-RATE * .75)                              16680001
184200        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              16690001
184300        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        16700001
184400           (WK-PAYMENT-RATE + WK-FACILITY-RATE).                  16710001
184500                                                                  16720001
184600     IF SNF-FED-BLEND = 2                                         16730001
184700        COMPUTE WK-PAYMENT-RATE ROUNDED =                         16740001
184800           (HLD-PAYMENT-RATE * .50)                               16750001
184900        COMPUTE WK-FACILITY-RATE ROUNDED =                        16760001
185000           (HLD-FACILITY-RATE * .50)                              16770001
185100        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              16780001
185200        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        16790001
185300           (WK-PAYMENT-RATE + WK-FACILITY-RATE).                  16800001
185400                                                                  16810001
185500     IF SNF-FED-BLEND = 3                                         16820001
185600        COMPUTE WK-PAYMENT-RATE ROUNDED =                         16830001
185700           (HLD-PAYMENT-RATE * .75)                               16840001
185800        COMPUTE WK-FACILITY-RATE ROUNDED =                        16850001
185900           (HLD-FACILITY-RATE * .25)                              16860001
186000        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              16870001
186100        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        16880001
186200           (WK-PAYMENT-RATE + WK-FACILITY-RATE).                  16890001
186300                                                                  16900001
186400     IF SNF-FED-BLEND = 4                                         16910001
186500        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              16920001
186600        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        16930001
186700                HLD-PAYMENT-RATE * 1.00.                          16940001
186800                                                                  16950001
186900 1999-EXIT.   EXIT.                                               16960001
187000                                                                  16970001
187100 2000-PAYMENT-RATE-CALC.                                          16980001
187200***************************************************************   16990001
187300*     PAYMENT RATE CALCULATION PROCCESS                           17000001
187400***************************************************************   17010001
187500                                                                  17020001
187600     MOVE 1                    TO R3.                             17030001
187700                                                                  17040001
187800     IF HLD-MSA-RURAL-CHECK                                       17050001
187900        MOVE 1                 TO R2                              17060001
188000     ELSE                                                         17070001
188100        MOVE 2                 TO R2.                             17080001
188200                                                                  17090001
188300     PERFORM 800-SEARCH-4-RUG    THRU 800-SEARCH-EXIT.            17100001
188400                                                                  17110001
188500     IF HLD-RTC NOT = 00 GO TO 2000-EXIT.                         17120001
188600                                                                  17130001
188700     PERFORM 500-GET-RATES.                                       17140001
188800                                                                  17150001
188900     IF (HLD-THRU-DATE < 20000101 AND                             17160001
189000         SNF-FED-BLEND = 0)                                       17170001
189100        MOVE '61' TO HLD-RTC                                      17180001
189200        MOVE ALL '0' TO HOLD-VAR-DATA                             17190001
189300        GO TO 2000-EXIT.                                          17200001
189400                                                                  17210001
189500     IF SNF-FED-BLEND = 0 OR 1 OR 2 OR 3 OR 4                     17220001
189600        NEXT SENTENCE                                             17230001
189700     ELSE                                                         17240001
189800        MOVE '60' TO HLD-RTC                                      17250001
189900        MOVE ALL '0' TO HOLD-VAR-DATA                             17260001
190000        GO TO 2000-EXIT.                                          17270001
190100                                                                  17280001
190200        COMPUTE NURSING-COMPONENT ROUNDED =                       17290001
190300                   (NUR-INDEX * IP-RATE).                         17300001
190400                                                                  17310001
190500        COMPUTE THERAPY-COMPONENT ROUNDED =                       17320001
190600                   (THR-INDEX * REHAB-RATE).                      17330001
190700                                                                  17340001
190800        COMPUTE NCM-THR-COMPONENT ROUNDED =                       17350001
190900                   (FACTOR * NCM-THR-COMPONENT).                  17360001
191000                                                                  17370001
191100        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       17380001
191200                   NURSING-COMPONENT +                            17390001
191300                   THERAPY-COMPONENT +                            17400001
191400                   NCM-THR-COMPONENT +                            17410001
191500                   NCM-COMPONENT.                                 17420001
191600                                                                  17430001
191700        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        17440001
191800             (HLD-PAYMENT-RATE * PERCENT-2000-LABOR) *            17450001
191900               AREA-WAGE-INDEX.                                   17460001
192000                                                                  17470001
192100        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        17480001
192200               (HLD-PAYMENT-RATE * PERCENT-2000-NLABOR) +         17490001
192300                    PAYMENT-RATE-ADJ.                             17500001
192400                                                                  17510001
192500     IF  (HLD-THRU-DATE > 20000331 AND                            17520001
192600         (HLD-RUG = 'SE3' OR 'SE2' OR 'SE1' OR 'SSC' OR           17530001
192700                    'SSB' OR 'SSA' OR 'CC2' OR 'CC1' OR           17540001
192800                    'CB2' OR 'CB1' OR 'CA2' OR 'CA1' OR           17550001
192900                    'RHC' OR 'RMC' OR 'RMB'))                     17560001
193000        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        17570001
193100                HLD-PAYMENT-RATE * 1.2.                           17580001
193200                                                                  17590001
193300     IF (HLD-THRU-DATE > 19991231 AND                             17600001
193400         SNF-FED-BLEND = 0)                                       17610001
193500        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        17620001
193600                HLD-FACILITY-RATE * 1.00.                         17630001
193700                                                                  17640001
193800     IF SNF-FED-BLEND = 1                                         17650001
193900        COMPUTE WK-PAYMENT-RATE ROUNDED =                         17660001
194000           (HLD-PAYMENT-RATE * .25)                               17670001
194100        COMPUTE WK-FACILITY-RATE ROUNDED =                        17680001
194200           (HLD-FACILITY-RATE * .75)                              17690001
194300        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              17700001
194400        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        17710001
194500           (WK-PAYMENT-RATE + WK-FACILITY-RATE).                  17720001
194600                                                                  17730001
194700     IF SNF-FED-BLEND = 2                                         17740001
194800        COMPUTE WK-PAYMENT-RATE ROUNDED =                         17750001
194900           (HLD-PAYMENT-RATE * .50)                               17760001
195000        COMPUTE WK-FACILITY-RATE ROUNDED =                        17770001
195100           (HLD-FACILITY-RATE * .50)                              17780001
195200        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              17790001
195300        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        17800001
195400           (WK-PAYMENT-RATE + WK-FACILITY-RATE).                  17810001
195500                                                                  17820001
195600     IF SNF-FED-BLEND = 3                                         17830001
195700        COMPUTE WK-PAYMENT-RATE ROUNDED =                         17840001
195800           (HLD-PAYMENT-RATE * .75)                               17850001
195900        COMPUTE WK-FACILITY-RATE ROUNDED =                        17860001
196000           (HLD-FACILITY-RATE * .25)                              17870001
196100        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              17880001
196200        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        17890001
196300           (WK-PAYMENT-RATE + WK-FACILITY-RATE).                  17900001
196400                                                                  17910001
196500     IF SNF-FED-BLEND = 4                                         17920001
196600        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              17930001
196700        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        17940001
196800                HLD-PAYMENT-RATE * 1.00.                          17950001
196900                                                                  17960001
197000 2000-EXIT.   EXIT.                                               17970001
197100 2001-PAYMENT-RATE-CALC.                                          17980001
197200***************************************************************   17990001
197300*     PAYMENT RATE CALCULATION PROCCESS                           18000001
197400***************************************************************   18010001
197500                                                                  18020001
197600     MOVE 1                    TO R3.                             18030001
197700                                                                  18040001
197800     IF HLD-MSA-RURAL-CHECK                                       18050001
197900        MOVE 1                 TO R2                              18060001
198000     ELSE                                                         18070001
198100        MOVE 2                 TO R2.                             18080001
198200                                                                  18090001
198300     PERFORM 800-SEARCH-4-RUG                                     18100001
198400        THRU 800-SEARCH-EXIT.                                     18110001
198500                                                                  18120001
198600     IF HLD-RTC NOT = 00                                          18130001
198700        GO TO 2001-EXIT.                                          18140001
198800                                                                  18150001
198900     PERFORM 500-GET-RATES.                                       18160001
199000                                                                  18170001
199100     IF (HLD-THRU-DATE < 20000101 AND                             18180001
199200         SNF-FED-BLEND = 0)                                       18190001
199300        MOVE '61'              TO HLD-RTC                         18200001
199400        MOVE ALL '0'           TO HOLD-VAR-DATA                   18210001
199500        GO TO 2001-EXIT.                                          18220001
199600                                                                  18230001
199700     IF SNF-FED-BLEND = 0 OR 1 OR 2 OR 3 OR 4                     18240001
199800        NEXT SENTENCE                                             18250001
199900     ELSE                                                         18260001
200000        MOVE '60'              TO HLD-RTC                         18270001
200100        MOVE ALL '0'           TO HOLD-VAR-DATA                   18280001
200200        GO TO 2001-EXIT.                                          18290001
200300                                                                  18300001
200400        COMPUTE NURSING-COMPONENT ROUNDED =                       18310001
200500                   (NUR-INDEX * IP-RATE).                         18320001
200600                                                                  18330001
200700        COMPUTE THERAPY-COMPONENT ROUNDED =                       18340001
200800                   (THR-INDEX * REHAB-RATE).                      18350001
200900                                                                  18360001
201000        COMPUTE NCM-THR-COMPONENT ROUNDED =                       18370001
201100                   (FACTOR * NCM-THR-COMPONENT).                  18380001
201200                                                                  18390001
201300        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       18400001
201400                   NURSING-COMPONENT +                            18410001
201500                   THERAPY-COMPONENT +                            18420001
201600                   NCM-THR-COMPONENT +                            18430001
201700                   NCM-COMPONENT.                                 18440001
201800                                                                  18450001
201900        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        18460001
202000             (HLD-PAYMENT-RATE * PERCENT-2001-LABOR) *            18470001
202100               AREA-WAGE-INDEX.                                   18480001
202200                                                                  18490001
202300        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        18500001
202400               (HLD-PAYMENT-RATE * PERCENT-2001-NLABOR) +         18510001
202500                    PAYMENT-RATE-ADJ.                             18520001
202600                                                                  18530001
202700     IF  (HLD-RUG = 'SE3' OR 'SE2' OR 'SE1' OR 'SSC' OR           18540001
202800                    'SSB' OR 'SSA' OR 'CC2' OR 'CC1' OR           18550001
202900                    'CB2' OR 'CB1' OR 'CA2' OR 'CA1' OR           18560001
203000                    'RHC' OR 'RMC' OR 'RMB')                      18570001
203100        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        18580001
203200                HLD-PAYMENT-RATE * 1.24                           18590001
203300     ELSE                                                         18600001
203400        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        18610001
203500                HLD-PAYMENT-RATE * 1.04.                          18620001
203600                                                                  18630001
203700     IF  SNF-FED-BLEND = 0                                        18640001
203800        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        18650001
203900                HLD-FACILITY-RATE * 1.00.                         18660001
204000                                                                  18670001
204100     IF SNF-FED-BLEND = 1                                         18680001
204200        COMPUTE WK-PAYMENT-RATE ROUNDED =                         18690001
204300           (HLD-PAYMENT-RATE * .25)                               18700001
204400        COMPUTE WK-FACILITY-RATE ROUNDED =                        18710001
204500           (HLD-FACILITY-RATE * .75)                              18720001
204600        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              18730001
204700        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        18740001
204800           (WK-PAYMENT-RATE + WK-FACILITY-RATE).                  18750001
204900                                                                  18760001
205000     IF SNF-FED-BLEND = 2                                         18770001
205100        COMPUTE WK-PAYMENT-RATE ROUNDED =                         18780001
205200           (HLD-PAYMENT-RATE * .50)                               18790001
205300        COMPUTE WK-FACILITY-RATE ROUNDED =                        18800001
205400           (HLD-FACILITY-RATE * .50)                              18810001
205500        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              18820001
205600        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        18830001
205700           (WK-PAYMENT-RATE + WK-FACILITY-RATE).                  18840001
205800                                                                  18850001
205900     IF SNF-FED-BLEND = 3                                         18860001
206000        COMPUTE WK-PAYMENT-RATE ROUNDED =                         18870001
206100           (HLD-PAYMENT-RATE * .75)                               18880001
206200        COMPUTE WK-FACILITY-RATE ROUNDED =                        18890001
206300           (HLD-FACILITY-RATE * .25)                              18900001
206400        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              18910001
206500        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        18920001
206600           (WK-PAYMENT-RATE + WK-FACILITY-RATE).                  18930001
206700                                                                  18940001
206800     IF SNF-FED-BLEND = 4                                         18950001
206900        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              18960001
207000        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        18970001
207100                HLD-PAYMENT-RATE * 1.00.                          18980001
207200                                                                  18990001
207300                                                                  19000001
207400 2001-EXIT.   EXIT.                                               19010001
207500                                                                  19020001
207600 2001A-PAYMENT-RATE-CALC.                                         19030001
207700***************************************************************   19040001
207800*     PAYMENT RATE CALCULATION PROCCESS EFFECTIVE APR.1, 2001     19050001
207900***************************************************************   19060001
208000                                                                  19070001
208100     MOVE 1                    TO R3.                             19080001
208200                                                                  19090001
208300     IF HLD-MSA-RURAL-CHECK                                       19100001
208400        MOVE 1                 TO R2                              19110001
208500     ELSE                                                         19120001
208600        MOVE 2                 TO R2.                             19130001
208700                                                                  19140001
208800     PERFORM 800-SEARCH-4-RUG                                     19150001
208900        THRU 800-SEARCH-EXIT.                                     19160001
209000                                                                  19170001
209100     IF HLD-RTC NOT = 00                                          19180001
209200        GO TO 2001A-EXIT.                                         19190001
209300                                                                  19200001
209400     PERFORM 500-GET-RATES.                                       19210001
209500                                                                  19220001
209600     IF (HLD-THRU-DATE < 20000101 AND                             19230001
209700         SNF-FED-BLEND = 0)                                       19240001
209800        MOVE '61'              TO HLD-RTC                         19250001
209900        MOVE ALL '0'           TO HOLD-VAR-DATA                   19260001
210000        GO TO 2001A-EXIT.                                         19270001
210100                                                                  19280001
210200     IF SNF-FED-BLEND = 0 OR 1 OR 2 OR 3 OR 4                     19290001
210300        NEXT SENTENCE                                             19300001
210400     ELSE                                                         19310001
210500        MOVE '60'              TO HLD-RTC                         19320001
210600        MOVE ALL '0'           TO HOLD-VAR-DATA                   19330001
210700        GO TO 2001A-EXIT.                                         19340001
210800                                                                  19350001
210900        COMPUTE NURSING-COMPONENT ROUNDED =                       19360001
211000                   (NUR-INDEX * IP-RATE).                         19370001
211100                                                                  19380001
211200        COMPUTE THERAPY-COMPONENT ROUNDED =                       19390001
211300                   (THR-INDEX * REHAB-RATE).                      19400001
211400                                                                  19410001
211500        COMPUTE NCM-THR-COMPONENT ROUNDED =                       19420001
211600                   (FACTOR * NCM-THR-COMPONENT).                  19430001
211700                                                                  19440001
211800        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       19450001
211900                   NURSING-COMPONENT +                            19460001
212000                   THERAPY-COMPONENT +                            19470001
212100                   NCM-THR-COMPONENT +                            19480001
212200                   NCM-COMPONENT.                                 19490001
212300                                                                  19500001
212400        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        19510001
212500             (HLD-PAYMENT-RATE * PERCENT-2001-LABOR) *            19520001
212600               AREA-WAGE-INDEX.                                   19530001
212700                                                                  19540001
212800        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        19550001
212900               (HLD-PAYMENT-RATE * PERCENT-2001-NLABOR) +         19560001
213000                    PAYMENT-RATE-ADJ.                             19570001
213100                                                                  19580001
213200     IF  (HLD-RUG = 'IB2' OR 'IB1' OR 'IA2' OR 'IA1' OR           19590001
213300                    'BB2' OR 'BB1' OR 'BA2' OR 'BA1' OR           19600001
213400                    'PE2' OR 'PE1' OR 'PD2' OR 'PD1' OR           19610001
213500                    'PC2' OR 'PC1' OR 'PB2' OR 'PB1' OR           19620001
213600                    'PA2' OR 'PA1' OR 'AAA')                      19630001
213700        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        19640001
213800                HLD-PAYMENT-RATE * 1.04.                          19650001
213900                                                                  19660001
214000     IF  (HLD-RUG = 'RUC' OR 'RUB' OR 'RUA' OR 'RVC' OR           19670001
214100                    'RVB' OR 'RVA' OR 'RHC' OR 'RHB' OR           19680001
214200                    'RHA' OR 'RMC' OR 'RMB' OR 'RMA' OR           19690001
214300                    'RLB' OR 'RLA')                               19700001
214400        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        19710001
214500                HLD-PAYMENT-RATE * 1.107.                         19720001
214600                                                                  19730001
214700     IF  (HLD-RUG = 'SE3' OR 'SE2' OR 'SE1' OR 'SSC' OR           19740001
214800                    'SSB' OR 'SSA' OR 'CC2' OR 'CC1' OR           19750001
214900                    'CB2' OR 'CB1' OR 'CA2' OR 'CA1')             19760001
215000        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        19770001
215100                HLD-PAYMENT-RATE * 1.24.                          19780001
215200                                                                  19790001
215300     IF  SNF-FED-BLEND = 0                                        19800001
215400        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        19810001
215500                HLD-FACILITY-RATE * 1.00.                         19820001
215600                                                                  19830001
215700     IF SNF-FED-BLEND = 1                                         19840001
215800        COMPUTE WK-PAYMENT-RATE ROUNDED =                         19850001
215900           (HLD-PAYMENT-RATE * .25)                               19860001
216000        COMPUTE WK-FACILITY-RATE ROUNDED =                        19870001
216100           (HLD-FACILITY-RATE * .75)                              19880001
216200        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              19890001
216300        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        19900001
216400           (WK-PAYMENT-RATE + WK-FACILITY-RATE).                  19910001
216500                                                                  19920001
216600     IF SNF-FED-BLEND = 2                                         19930001
216700        COMPUTE WK-PAYMENT-RATE ROUNDED =                         19940001
216800           (HLD-PAYMENT-RATE * .50)                               19950001
216900        COMPUTE WK-FACILITY-RATE ROUNDED =                        19960001
217000           (HLD-FACILITY-RATE * .50)                              19970001
217100        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              19980001
217200        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        19990001
217300           (WK-PAYMENT-RATE + WK-FACILITY-RATE).                  20000001
217400                                                                  20010001
217500     IF SNF-FED-BLEND = 3                                         20020001
217600        COMPUTE WK-PAYMENT-RATE ROUNDED =                         20030001
217700           (HLD-PAYMENT-RATE * .75)                               20040001
217800        COMPUTE WK-FACILITY-RATE ROUNDED =                        20050001
217900           (HLD-FACILITY-RATE * .25)                              20060001
218000        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              20070001
218100        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        20080001
218200           (WK-PAYMENT-RATE + WK-FACILITY-RATE).                  20090001
218300                                                                  20100001
218400     IF SNF-FED-BLEND = 4                                         20110001
218500        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              20120001
218600        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        20130001
218700                HLD-PAYMENT-RATE * 1.00.                          20140001
218800                                                                  20150001
218900                                                                  20160001
219000 2001A-EXIT.   EXIT.                                              20170001
219100                                                                  20180001
219200 2002-PAYMENT-RATE-CALC.                                          20190001
219300***************************************************************   20200001
219400*     PAYMENT RATE CALCULATION PROCCESS EFFECTIVE OCT.1, 2001     20210001
219500***************************************************************   20220001
219600                                                                  20230001
219700     MOVE 1                    TO R3.                             20240001
219800                                                                  20250001
219900     IF HLD-MSA-RURAL-CHECK                                       20260001
220000        MOVE 1                 TO R2                              20270001
220100     ELSE                                                         20280001
220200        MOVE 2                 TO R2.                             20290001
220300                                                                  20300001
220400     PERFORM 800-SEARCH-4-RUG                                     20310001
220500        THRU 800-SEARCH-EXIT.                                     20320001
220600                                                                  20330001
220700     IF HLD-RTC NOT = 00                                          20340001
220800        GO TO 2002-EXIT.                                          20350001
220900                                                                  20360001
221000     PERFORM 500-GET-RATES.                                       20370001
221100                                                                  20380001
221200     IF (HLD-THRU-DATE < 20000101 AND                             20390001
221300         SNF-FED-BLEND = 0)                                       20400001
221400        MOVE '61'              TO HLD-RTC                         20410001
221500        MOVE ALL '0'           TO HOLD-VAR-DATA                   20420001
221600        GO TO 2002-EXIT.                                          20430001
221700                                                                  20440001
221800     IF SNF-FED-BLEND = 0 OR 1 OR 2 OR 3 OR 4                     20450001
221900        NEXT SENTENCE                                             20460001
222000     ELSE                                                         20470001
222100        MOVE '60'              TO HLD-RTC                         20480001
222200        MOVE ALL '0'           TO HOLD-VAR-DATA                   20490001
222300        GO TO 2002-EXIT.                                          20500001
222400                                                                  20510001
222500        COMPUTE NURSING-COMPONENT ROUNDED =                       20520001
222600                   (NUR-INDEX * IP-RATE).                         20530001
222700                                                                  20540001
222800        COMPUTE THERAPY-COMPONENT ROUNDED =                       20550001
222900                   (THR-INDEX * REHAB-RATE).                      20560001
223000                                                                  20570001
223100        COMPUTE NCM-THR-COMPONENT ROUNDED =                       20580001
223200                   (FACTOR * NCM-THR-COMPONENT).                  20590001
223300                                                                  20600001
223400        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       20610001
223500                   NURSING-COMPONENT +                            20620001
223600                   THERAPY-COMPONENT +                            20630001
223700                   NCM-THR-COMPONENT +                            20640001
223800                   NCM-COMPONENT.                                 20650001
223900                                                                  20660001
224000        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        20670001
224100             (HLD-PAYMENT-RATE * PERCENT-2002-LABOR) *            20680001
224200               AREA-WAGE-INDEX.                                   20690001
224300                                                                  20700001
224400        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        20710001
224500               (HLD-PAYMENT-RATE * PERCENT-2002-NLABOR) +         20720001
224600                    PAYMENT-RATE-ADJ.                             20730001
224700                                                                  20740001
224800     IF  (HLD-RUG = 'IB2' OR 'IB1' OR 'IA2' OR 'IA1' OR           20750001
224900                    'BB2' OR 'BB1' OR 'BA2' OR 'BA1' OR           20760001
225000                    'PE2' OR 'PE1' OR 'PD2' OR 'PD1' OR           20770001
225100                    'PC2' OR 'PC1' OR 'PB2' OR 'PB1' OR           20780001
225200                    'PA2' OR 'PA1' OR 'AAA')                      20790001
225300        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        20800001
225400                HLD-PAYMENT-RATE * 1.04.                          20810001
225500                                                                  20820001
225600     IF  (HLD-RUG = 'RUC' OR 'RUB' OR 'RUA' OR 'RVC' OR           20830001
225700                    'RVB' OR 'RVA' OR 'RHC' OR 'RHB' OR           20840001
225800                    'RHA' OR 'RMC' OR 'RMB' OR 'RMA' OR           20850001
225900                    'RLB' OR 'RLA')                               20860001
226000        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        20870001
226100                HLD-PAYMENT-RATE * 1.107.                         20880001
226200                                                                  20890001
226300     IF  (HLD-RUG = 'SE3' OR 'SE2' OR 'SE1' OR 'SSC' OR           20900001
226400                    'SSB' OR 'SSA' OR 'CC2' OR 'CC1' OR           20910001
226500                    'CB2' OR 'CB1' OR 'CA2' OR 'CA1')             20920001
226600        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        20930001
226700                HLD-PAYMENT-RATE * 1.24.                          20940001
226800                                                                  20950001
226900     IF  SNF-FED-BLEND = 0                                        20960001
227000        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        20970001
227100                HLD-FACILITY-RATE * 1.00.                         20980001
227200                                                                  20990001
227300     IF SNF-FED-BLEND = 1                                         21000001
227400        COMPUTE WK-PAYMENT-RATE ROUNDED =                         21010001
227500           (HLD-PAYMENT-RATE * .25)                               21020001
227600        COMPUTE WK-FACILITY-RATE ROUNDED =                        21030001
227700           (HLD-FACILITY-RATE * .75)                              21040001
227800        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              21050001
227900        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        21060001
228000           (WK-PAYMENT-RATE + WK-FACILITY-RATE).                  21070001
228100                                                                  21080001
228200     IF SNF-FED-BLEND = 2                                         21090001
228300        COMPUTE WK-PAYMENT-RATE ROUNDED =                         21100001
228400           (HLD-PAYMENT-RATE * .50)                               21110001
228500        COMPUTE WK-FACILITY-RATE ROUNDED =                        21120001
228600           (HLD-FACILITY-RATE * .50)                              21130001
228700        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              21140001
228800        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        21150001
228900           (WK-PAYMENT-RATE + WK-FACILITY-RATE).                  21160001
229000                                                                  21170001
229100     IF SNF-FED-BLEND = 3                                         21180001
229200        COMPUTE WK-PAYMENT-RATE ROUNDED =                         21190001
229300           (HLD-PAYMENT-RATE * .75)                               21200001
229400        COMPUTE WK-FACILITY-RATE ROUNDED =                        21210001
229500           (HLD-FACILITY-RATE * .25)                              21220001
229600        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              21230001
229700        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        21240001
229800           (WK-PAYMENT-RATE + WK-FACILITY-RATE).                  21250001
229900                                                                  21260001
230000     IF SNF-FED-BLEND = 4                                         21270001
230100        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              21280001
230200        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        21290001
230300                HLD-PAYMENT-RATE * 1.00.                          21300001
230400                                                                  21310001
230500                                                                  21320001
230600 2002-EXIT.   EXIT.                                               21330001
230700                                                                  21340001
230800 2003-PAYMENT-RATE-CALC.                                          21350001
230900***************************************************************   21360001
231000*     PAYMENT RATE CALCULATION PROCCESS EFFECTIVE OCT.1, 2002     21370001
231100***************************************************************   21380001
231200                                                                  21390001
231300     MOVE 1                    TO R3.                             21400001
231400                                                                  21410001
231500     IF HLD-MSA-RURAL-CHECK                                       21420001
231600        MOVE 1                 TO R2                              21430001
231700     ELSE                                                         21440001
231800        MOVE 2                 TO R2.                             21450001
231900                                                                  21460001
232000     PERFORM 800-SEARCH-4-RUG                                     21470001
232100        THRU 800-SEARCH-EXIT.                                     21480001
232200                                                                  21490001
232300     IF HLD-RTC NOT = 00                                          21500001
232400        GO TO 2003-EXIT.                                          21510001
232500                                                                  21520001
232600     PERFORM 500-GET-RATES.                                       21530001
232700                                                                  21540001
232800     IF (HLD-THRU-DATE < 20000101 AND                             21550001
232900         SNF-FED-BLEND = 0)                                       21560001
233000        MOVE '61'              TO HLD-RTC                         21570001
233100        MOVE ALL '0'           TO HOLD-VAR-DATA                   21580001
233200        GO TO 2003-EXIT.                                          21590001
233300                                                                  21600001
233400     IF SNF-FED-BLEND = 0 OR 4                                    21610001
233500        NEXT SENTENCE                                             21620001
233600     ELSE                                                         21630001
233700        MOVE '60'              TO HLD-RTC                         21640001
233800        MOVE ALL '0'           TO HOLD-VAR-DATA                   21650001
233900        GO TO 2003-EXIT.                                          21660001
234000                                                                  21670001
234100        COMPUTE NURSING-COMPONENT ROUNDED =                       21680001
234200                   (NUR-INDEX * IP-RATE).                         21690001
234300                                                                  21700001
234400        COMPUTE THERAPY-COMPONENT ROUNDED =                       21710001
234500                   (THR-INDEX * REHAB-RATE).                      21720001
234600                                                                  21730001
234700        COMPUTE NCM-THR-COMPONENT ROUNDED =                       21740001
234800                   (FACTOR * NCM-THR-COMPONENT).                  21750001
234900                                                                  21760001
235000        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       21770001
235100                   NURSING-COMPONENT +                            21780001
235200                   THERAPY-COMPONENT +                            21790001
235300                   NCM-THR-COMPONENT +                            21800001
235400                   NCM-COMPONENT.                                 21810001
235500                                                                  21820001
235600        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        21830001
235700             (HLD-PAYMENT-RATE * PERCENT-2003-LABOR) *            21840001
235800               AREA-WAGE-INDEX.                                   21850001
235900                                                                  21860001
236000        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        21870001
236100               (HLD-PAYMENT-RATE * PERCENT-2003-NLABOR) +         21880001
236200                    PAYMENT-RATE-ADJ.                             21890001
236300                                                                  21900001
236400     IF  (HLD-RUG = 'IB2' OR 'IB1' OR 'IA2' OR 'IA1' OR           21910001
236500                    'BB2' OR 'BB1' OR 'BA2' OR 'BA1' OR           21920001
236600                    'PE2' OR 'PE1' OR 'PD2' OR 'PD1' OR           21930001
236700                    'PC2' OR 'PC1' OR 'PB2' OR 'PB1' OR           21940001
236800                    'PA2' OR 'PA1' OR 'AAA')                      21950001
236900        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        21960001
237000                HLD-PAYMENT-RATE * 1.00.                          21970001
237100                                                                  21980001
237200     IF  (HLD-RUG = 'RUC' OR 'RUB' OR 'RUA' OR 'RVC' OR           21990001
237300                    'RVB' OR 'RVA' OR 'RHC' OR 'RHB' OR           22000001
237400                    'RHA' OR 'RMC' OR 'RMB' OR 'RMA' OR           22010001
237500                    'RLB' OR 'RLA')                               22020001
237600        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        22030001
237700                HLD-PAYMENT-RATE * 1.067.                         22040001
237800                                                                  22050001
237900     IF  (HLD-RUG = 'SE3' OR 'SE2' OR 'SE1' OR 'SSC' OR           22060001
238000                    'SSB' OR 'SSA' OR 'CC2' OR 'CC1' OR           22070001
238100                    'CB2' OR 'CB1' OR 'CA2' OR 'CA1')             22080001
238200        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        22090001
238300                HLD-PAYMENT-RATE * 1.20.                          22100001
238400                                                                  22110001
238500     IF  SNF-FED-BLEND = 0                                        22120001
238600        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        22130001
238700                HLD-FACILITY-RATE * 1.00.                         22140001
238800                                                                  22150001
238900                                                                  22160001
239000     IF SNF-FED-BLEND = 4                                         22170001
239100        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              22180001
239200        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        22190001
239300                HLD-PAYMENT-RATE * 1.00.                          22200001
239400                                                                  22210001
239500                                                                  22220001
239600 2003-EXIT.   EXIT.                                               22230001
239700 2004-PAYMENT-RATE-CALC.                                          22240001
239800***************************************************************   22250001
239900*     PAYMENT RATE CALCULATION PROCCESS EFFECTIVE OCT.1, 2003     22260001
240000***************************************************************   22270001
240100                                                                  22280001
240200     MOVE 1                    TO R3.                             22290001
240300                                                                  22300001
240400     IF HLD-MSA-RURAL-CHECK                                       22310001
240500        MOVE 1                 TO R2                              22320001
240600     ELSE                                                         22330001
240700        MOVE 2                 TO R2.                             22340001
240800                                                                  22350001
240900     PERFORM 800-SEARCH-4-RUG                                     22360001
241000        THRU 800-SEARCH-EXIT.                                     22370001
241100                                                                  22380001
241200     IF HLD-RTC NOT = 00                                          22390001
241300        GO TO 2004-EXIT.                                          22400001
241400                                                                  22410001
241500     PERFORM 500-GET-RATES.                                       22420001
241600                                                                  22430001
241700     IF (HLD-THRU-DATE < 20000101 AND                             22440001
241800         SNF-FED-BLEND = 0)                                       22450001
241900        MOVE '61'              TO HLD-RTC                         22460001
242000        MOVE ALL '0'           TO HOLD-VAR-DATA                   22470001
242100        GO TO 2004-EXIT.                                          22480001
242200                                                                  22490001
242300     IF SNF-FED-BLEND = 0 OR 4                                    22500001
242400        NEXT SENTENCE                                             22510001
242500     ELSE                                                         22520001
242600        MOVE '60'              TO HLD-RTC                         22530001
242700        MOVE ALL '0'           TO HOLD-VAR-DATA                   22540001
242800        GO TO 2004-EXIT.                                          22550001
242900                                                                  22560001
243000        COMPUTE NURSING-COMPONENT ROUNDED =                       22570001
243100                   (NUR-INDEX * IP-RATE).                         22580001
243200                                                                  22590001
243300        COMPUTE THERAPY-COMPONENT ROUNDED =                       22600001
243400                   (THR-INDEX * REHAB-RATE).                      22610001
243500                                                                  22620001
243600        COMPUTE NCM-THR-COMPONENT ROUNDED =                       22630001
243700                   (FACTOR * NCM-THR-COMPONENT).                  22640001
243800                                                                  22650001
243900        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       22660001
244000                   NURSING-COMPONENT +                            22670001
244100                   THERAPY-COMPONENT +                            22680001
244200                   NCM-THR-COMPONENT +                            22690001
244300                   NCM-COMPONENT.                                 22700001
244400                                                                  22710001
244500        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        22720001
244600             (HLD-PAYMENT-RATE * PERCENT-2004-LABOR) *            22730001
244700               AREA-WAGE-INDEX.                                   22740001
244800                                                                  22750001
244900        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        22760001
245000               (HLD-PAYMENT-RATE * PERCENT-2004-NLABOR) +         22770001
245100                    PAYMENT-RATE-ADJ.                             22780001
245200                                                                  22790001
245300     IF  (HLD-RUG = 'IB2' OR 'IB1' OR 'IA2' OR 'IA1' OR           22800001
245400                    'BB2' OR 'BB1' OR 'BA2' OR 'BA1' OR           22810001
245500                    'PE2' OR 'PE1' OR 'PD2' OR 'PD1' OR           22820001
245600                    'PC2' OR 'PC1' OR 'PB2' OR 'PB1' OR           22830001
245700                    'PA2' OR 'PA1' OR 'AAA')                      22840001
245800        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        22850001
245900                HLD-PAYMENT-RATE * 1.00.                          22860001
246000                                                                  22870001
246100     IF  (HLD-RUG = 'RUC' OR 'RUB' OR 'RUA' OR 'RVC' OR           22880001
246200                    'RVB' OR 'RVA' OR 'RHC' OR 'RHB' OR           22890001
246300                    'RHA' OR 'RMC' OR 'RMB' OR 'RMA' OR           22900001
246400                    'RLB' OR 'RLA')                               22910001
246500        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        22920001
246600                HLD-PAYMENT-RATE * 1.067.                         22930001
246700                                                                  22940001
246800     IF  (HLD-RUG = 'SE3' OR 'SE2' OR 'SE1' OR 'SSC' OR           22950001
246900                    'SSB' OR 'SSA' OR 'CC2' OR 'CC1' OR           22960001
247000                    'CB2' OR 'CB1' OR 'CA2' OR 'CA1')             22970001
247100        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        22980001
247200                HLD-PAYMENT-RATE * 1.20.                          22990001
247300                                                                  23000001
247400     IF  SNF-FED-BLEND = 0                                        23010001
247500        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        23020001
247600                HLD-FACILITY-RATE * 1.00.                         23030001
247700                                                                  23040001
247800                                                                  23050001
247900     IF SNF-FED-BLEND = 4                                         23060001
248000        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              23070001
248100        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        23080001
248200                HLD-PAYMENT-RATE * 1.00.                          23090001
248300                                                                  23100001
248400                                                                  23110001
248500 2004-EXIT.   EXIT.                                               23120001
248600                                                                  23130001
248700 2005-PAYMENT-RATE-CALC.                                          23140001
248800***************************************************************   23150001
248900*     PAYMENT RATE CALCULATION PROCCESS EFFECTIVE OCT.1, 2004     23160001
249000***************************************************************   23170001
249100                                                                  23180001
249200     MOVE 1                    TO R3.                             23190001
249300                                                                  23200001
249400     IF HLD-MSA-RURAL-CHECK                                       23210001
249500        MOVE 1                 TO R2                              23220001
249600     ELSE                                                         23230001
249700        MOVE 2                 TO R2.                             23240001
249800                                                                  23250001
249900     PERFORM 800-SEARCH-4-RUG                                     23260001
250000        THRU 800-SEARCH-EXIT.                                     23270001
250100                                                                  23280001
250200     IF HLD-RTC NOT = 00                                          23290001
250300        GO TO 2005-EXIT.                                          23300001
250400                                                                  23310001
250500     PERFORM 500-GET-RATES.                                       23320001
250600                                                                  23330001
250700     IF (HLD-THRU-DATE < 20000101 AND                             23340001
250800         SNF-FED-BLEND = 0)                                       23350001
250900        MOVE '61'              TO HLD-RTC                         23360001
251000        MOVE ALL '0'           TO HOLD-VAR-DATA                   23370001
251100        GO TO 2005-EXIT.                                          23380001
251200                                                                  23390001
251300     IF SNF-FED-BLEND = 0 OR 4                                    23400001
251400        NEXT SENTENCE                                             23410001
251500     ELSE                                                         23420001
251600        MOVE '60'              TO HLD-RTC                         23430001
251700        MOVE ALL '0'           TO HOLD-VAR-DATA                   23440001
251800        GO TO 2005-EXIT.                                          23450001
251900                                                                  23460001
252000        COMPUTE NURSING-COMPONENT ROUNDED =                       23470001
252100                   (NUR-INDEX * IP-RATE).                         23480001
252200                                                                  23490001
252300        COMPUTE THERAPY-COMPONENT ROUNDED =                       23500001
252400                   (THR-INDEX * REHAB-RATE).                      23510001
252500                                                                  23520001
252600        COMPUTE NCM-THR-COMPONENT ROUNDED =                       23530001
252700                   (FACTOR * NCM-THR-COMPONENT).                  23540001
252800                                                                  23550001
252900        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       23560001
253000                   NURSING-COMPONENT +                            23570001
253100                   THERAPY-COMPONENT +                            23580001
253200                   NCM-THR-COMPONENT +                            23590001
253300                   NCM-COMPONENT.                                 23600001
253400                                                                  23610001
253500        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        23620001
253600             (HLD-PAYMENT-RATE * PERCENT-2005-LABOR) *            23630001
253700               AREA-WAGE-INDEX.                                   23640001
253800                                                                  23650001
253900        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        23660001
254000               (HLD-PAYMENT-RATE * PERCENT-2005-NLABOR) +         23670001
254100                    PAYMENT-RATE-ADJ.                             23680001
254200                                                                  23690001
254300     IF '042   ' = SNF-PRIN-DIAG-CODE   OR                        23700001
254400                   SNF-OTHER-DIAG-CODE2 OR                        23710001
254500                   SNF-OTHER-DIAG-CODE3 OR                        23720001
254600                   SNF-OTHER-DIAG-CODE4 OR                        23730001
254700                   SNF-OTHER-DIAG-CODE5 OR                        23740001
254800                   SNF-OTHER-DIAG-CODE6 OR                        23750001
254900                   SNF-OTHER-DIAG-CODE7 OR                        23760001
255000                   SNF-OTHER-DIAG-CODE8 OR                        23770001
255100                   SNF-OTHER-DIAG-CODE9 OR                        23780001
255200                   SNF-OTHER-DIAG-CODE10 OR                       23790001
255300                   SNF-OTHER-DIAG-CODE11 OR                       23800001
255400                   SNF-OTHER-DIAG-CODE12 OR                       23810001
255500                   SNF-OTHER-DIAG-CODE13 OR                       23820001
255600                   SNF-OTHER-DIAG-CODE14 OR                       23830001
255700                   SNF-OTHER-DIAG-CODE15 OR                       23840001
255800                   SNF-OTHER-DIAG-CODE16 OR                       23850001
255900                   SNF-OTHER-DIAG-CODE17 OR                       23860001
256000                   SNF-OTHER-DIAG-CODE18 OR                       23870001
256100                   SNF-OTHER-DIAG-CODE19 OR                       23880001
256200                   SNF-OTHER-DIAG-CODE20 OR                       23890001
256300                   SNF-OTHER-DIAG-CODE21 OR                       23900001
256400                   SNF-OTHER-DIAG-CODE22 OR                       23910001
256500                   SNF-OTHER-DIAG-CODE23 OR                       23920001
256600                   SNF-OTHER-DIAG-CODE24 OR                       23930001
256700                   SNF-OTHER-DIAG-CODE25                          23940001
256800         COMPUTE HLD-PAYMENT-RATE ROUNDED =                       23950001
256900                 HLD-PAYMENT-RATE * 2.28                          23960001
257000         GO TO 2005-CONTINUE.                                     23970001
257100                                                                  23980001
257200     IF  (HLD-RUG = 'IB2' OR 'IB1' OR 'IA2' OR 'IA1' OR           23990001
257300                    'BB2' OR 'BB1' OR 'BA2' OR 'BA1' OR           24000001
257400                    'PE2' OR 'PE1' OR 'PD2' OR 'PD1' OR           24010001
257500                    'PC2' OR 'PC1' OR 'PB2' OR 'PB1' OR           24020001
257600                    'PA2' OR 'PA1' OR 'AAA')                      24030001
257700        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        24040001
257800                HLD-PAYMENT-RATE * 1.00.                          24050001
257900                                                                  24060001
258000     IF  (HLD-RUG = 'RUC' OR 'RUB' OR 'RUA' OR 'RVC' OR           24070001
258100                    'RVB' OR 'RVA' OR 'RHC' OR 'RHB' OR           24080001
258200                    'RHA' OR 'RMC' OR 'RMB' OR 'RMA' OR           24090001
258300                    'RLB' OR 'RLA')                               24100001
258400        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        24110001
258500                HLD-PAYMENT-RATE * 1.067.                         24120001
258600                                                                  24130001
258700     IF  (HLD-RUG = 'SE3' OR 'SE2' OR 'SE1' OR 'SSC' OR           24140001
258800                    'SSB' OR 'SSA' OR 'CC2' OR 'CC1' OR           24150001
258900                    'CB2' OR 'CB1' OR 'CA2' OR 'CA1')             24160001
259000        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        24170001
259100                HLD-PAYMENT-RATE * 1.20.                          24180001
259200                                                                  24190001
259300 2005-CONTINUE.                                                   24200001
259400                                                                  24210001
259500     IF  SNF-FED-BLEND = 0                                        24220001
259600        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        24230001
259700                HLD-FACILITY-RATE * 1.00.                         24240001
259800                                                                  24250001
259900     IF SNF-FED-BLEND = 4                                         24260001
260000        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              24270001
260100        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        24280001
260200                HLD-PAYMENT-RATE * 1.00.                          24290001
260300                                                                  24300001
260400 2005-EXIT.   EXIT.                                               24310001
260500                                                                  24320001
260600 2006-44-PAYMENT-RATE-CALC.                                       24330001
260700***************************************************************   24340001
260800*     PAYMENT RATE CALCULATION PROCCESS                           24350001
260900*      EFFECTIVE OCT.1, 2005 TIL JAN.1, 2006                      24360001
261000***************************************************************   24370001
261100                                                                  24380001
261200     IF HLD-CBSA = '     '                                        24390001
261300        MOVE '30'              TO HLD-RTC                         24400001
261400        GO TO 2006-44-EXIT.                                       24410001
261500                                                                  24420001
261600     MOVE 1                    TO R3.                             24430001
261700                                                                  24440001
261800     IF HLD-CBSA-RURAL-CHECK                                      24450001
261900        MOVE 1                 TO R2                              24460001
262000     ELSE                                                         24470001
262100        MOVE 2                 TO R2.                             24480001
262200                                                                  24490001
262300     PERFORM 800-SEARCH-4-RUG                                     24500001
262400        THRU 800-SEARCH-EXIT.                                     24510001
262500                                                                  24520001
262600     IF HLD-RTC NOT = 00                                          24530001
262700        GO TO 2006-44-EXIT.                                       24540001
262800                                                                  24550001
262900     PERFORM 500-GET-RATES.                                       24560001
263000                                                                  24570001
263100     IF SNF-FED-BLEND = 0 OR 4                                    24580001
263200        NEXT SENTENCE                                             24590001
263300     ELSE                                                         24600001
263400        MOVE '60'              TO HLD-RTC                         24610001
263500        MOVE ALL '0'           TO HOLD-VAR-DATA                   24620001
263600        GO TO 2006-44-EXIT.                                       24630001
263700                                                                  24640001
263800        COMPUTE NURSING-COMPONENT ROUNDED =                       24650001
263900                   (NUR-INDEX * IP-RATE).                         24660001
264000                                                                  24670001
264100        COMPUTE THERAPY-COMPONENT ROUNDED =                       24680001
264200                   (THR-INDEX * REHAB-RATE).                      24690001
264300                                                                  24700001
264400        COMPUTE NCM-THR-COMPONENT ROUNDED =                       24710001
264500                   (FACTOR * NCM-THR-COMPONENT).                  24720001
264600                                                                  24730001
264700        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       24740001
264800                   NURSING-COMPONENT +                            24750001
264900                   THERAPY-COMPONENT +                            24760001
265000                   NCM-THR-COMPONENT +                            24770001
265100                   NCM-COMPONENT.                                 24780001
265200                                                                  24790001
265300        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        24800001
265400             (HLD-PAYMENT-RATE * PERCENT-2006-LABOR) *            24810001
265500               AREA-WAGE-INDEX.                                   24820001
265600                                                                  24830001
265700        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        24840001
265800               (HLD-PAYMENT-RATE * PERCENT-2006-NLABOR) +         24850001
265900                    PAYMENT-RATE-ADJ.                             24860001
266000                                                                  24870001
266100     IF '042   ' = SNF-PRIN-DIAG-CODE    OR                       24880001
266200                   SNF-OTHER-DIAG-CODE2  OR                       24890001
266300                   SNF-OTHER-DIAG-CODE3  OR                       24900001
266400                   SNF-OTHER-DIAG-CODE4  OR                       24910001
266500                   SNF-OTHER-DIAG-CODE5  OR                       24920001
266600                   SNF-OTHER-DIAG-CODE6  OR                       24930001
266700                   SNF-OTHER-DIAG-CODE7  OR                       24940001
266800                   SNF-OTHER-DIAG-CODE8  OR                       24950001
266900                   SNF-OTHER-DIAG-CODE9  OR                       24960001
267000                   SNF-OTHER-DIAG-CODE10 OR                       24970001
267100                   SNF-OTHER-DIAG-CODE11 OR                       24980001
267200                   SNF-OTHER-DIAG-CODE12 OR                       24990001
267300                   SNF-OTHER-DIAG-CODE13 OR                       25000001
267400                   SNF-OTHER-DIAG-CODE14 OR                       25010001
267500                   SNF-OTHER-DIAG-CODE15 OR                       25020001
267600                   SNF-OTHER-DIAG-CODE16 OR                       25030001
267700                   SNF-OTHER-DIAG-CODE17 OR                       25040001
267800                   SNF-OTHER-DIAG-CODE18 OR                       25050001
267900                   SNF-OTHER-DIAG-CODE19 OR                       25060001
268000                   SNF-OTHER-DIAG-CODE20 OR                       25070001
268100                   SNF-OTHER-DIAG-CODE21 OR                       25080001
268200                   SNF-OTHER-DIAG-CODE22 OR                       25090001
268300                   SNF-OTHER-DIAG-CODE23 OR                       25100001
268400                   SNF-OTHER-DIAG-CODE24 OR                       25110001
268500                   SNF-OTHER-DIAG-CODE25                          25120001
268600         COMPUTE HLD-PAYMENT-RATE ROUNDED =                       25130001
268700                 HLD-PAYMENT-RATE * 2.28                          25140001
268800         GO TO 2006-CONTINUE.                                     25150001
268900                                                                  25160001
269000     IF  (HLD-RUG = 'IB2' OR 'IB1' OR 'IA2' OR 'IA1' OR           25170001
269100                    'BB2' OR 'BB1' OR 'BA2' OR 'BA1' OR           25180001
269200                    'PE2' OR 'PE1' OR 'PD2' OR 'PD1' OR           25190001
269300                    'PC2' OR 'PC1' OR 'PB2' OR 'PB1' OR           25200001
269400                    'PA2' OR 'PA1' OR 'AAA')                      25210001
269500        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        25220001
269600                HLD-PAYMENT-RATE * 1.00.                          25230001
269700                                                                  25240001
269800     IF  (HLD-RUG = 'RUC' OR 'RUB' OR 'RUA' OR 'RVC' OR           25250001
269900                    'RVB' OR 'RVA' OR 'RHC' OR 'RHB' OR           25260001
270000                    'RHA' OR 'RMC' OR 'RMB' OR 'RMA' OR           25270001
270100                    'RLB' OR 'RLA')                               25280001
270200        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        25290001
270300                HLD-PAYMENT-RATE * 1.067.                         25300001
270400                                                                  25310001
270500     IF  (HLD-RUG = 'SE3' OR 'SE2' OR 'SE1' OR 'SSC' OR           25320001
270600                    'SSB' OR 'SSA' OR 'CC2' OR 'CC1' OR           25330001
270700                    'CB2' OR 'CB1' OR 'CA2' OR 'CA1')             25340001
270800        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        25350001
270900                HLD-PAYMENT-RATE * 1.20.                          25360001
271000                                                                  25370001
271100 2006-CONTINUE.                                                   25380001
271200                                                                  25390001
271300     IF  SNF-FED-BLEND = 0                                        25400001
271400        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        25410001
271500                HLD-FACILITY-RATE * 1.00.                         25420001
271600                                                                  25430001
271700     IF SNF-FED-BLEND = 4                                         25440001
271800        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              25450001
271900        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        25460001
272000                HLD-PAYMENT-RATE * 1.00.                          25470001
272100                                                                  25480001
272200                                                                  25490001
272300 2006-44-EXIT.   EXIT.                                            25500001
272400                                                                  25510001
272500 2006-53-PAYMENT-RATE-CALC.                                       25520001
272600***************************************************************   25530001
272700*     PAYMENT RATE CALCULATION PROCCESS EFFECTIVE JAN.1, 2006     25540001
272800***************************************************************   25550001
272900                                                                  25560001
273000     IF HLD-CBSA = '     '                                        25570001
273100        MOVE '30'              TO HLD-RTC                         25580001
273200        GO TO 2006-53-EXIT.                                       25590001
273300                                                                  25600001
273400     MOVE 1                    TO R3.                             25610001
273500                                                                  25620001
273600     IF HLD-CBSA-RURAL-CHECK                                      25630001
273700        MOVE 1                 TO R2                              25640001
273800     ELSE                                                         25650001
273900        MOVE 2                 TO R2.                             25660001
274000                                                                  25670001
274100     PERFORM 900-SEARCH-4-RUG53                                   25680001
274200        THRU 900-SEARCH-EXIT.                                     25690001
274300                                                                  25700001
274400     IF HLD-RTC NOT = 00                                          25710001
274500        GO TO 2006-53-EXIT.                                       25720001
274600                                                                  25730001
274700     PERFORM 500-GET-RATES.                                       25740001
274800                                                                  25750001
274900     IF SNF-FED-BLEND = 0 OR 4                                    25760001
275000        NEXT SENTENCE                                             25770001
275100     ELSE                                                         25780001
275200        MOVE '60'              TO HLD-RTC                         25790001
275300        MOVE ALL '0'           TO HOLD-VAR-DATA                   25800001
275400        GO TO 2006-53-EXIT.                                       25810001
275500                                                                  25820001
275600        COMPUTE NURSING-COMPONENT ROUNDED =                       25830001
275700                   (NUR-INDEX * IP-RATE).                         25840001
275800                                                                  25850001
275900        COMPUTE THERAPY-COMPONENT ROUNDED =                       25860001
276000                   (THR-INDEX * REHAB-RATE).                      25870001
276100                                                                  25880001
276200        COMPUTE NCM-THR-COMPONENT ROUNDED =                       25890001
276300                   (FACTOR * NCM-THR-COMPONENT).                  25900001
276400                                                                  25910001
276500        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       25920001
276600                   NURSING-COMPONENT +                            25930001
276700                   THERAPY-COMPONENT +                            25940001
276800                   NCM-THR-COMPONENT +                            25950001
276900                   NCM-COMPONENT.                                 25960001
277000                                                                  25970001
277100        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        25980001
277200             (HLD-PAYMENT-RATE * PERCENT-2006-LABOR) *            25990001
277300               AREA-WAGE-INDEX.                                   26000001
277400                                                                  26010001
277500        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        26020001
277600               (HLD-PAYMENT-RATE * PERCENT-2006-NLABOR) +         26030001
277700                    PAYMENT-RATE-ADJ.                             26040001
277800                                                                  26050001
277900     IF '042   ' = SNF-PRIN-DIAG-CODE    OR                       26060001
278000                   SNF-OTHER-DIAG-CODE2  OR                       26070001
278100                   SNF-OTHER-DIAG-CODE3  OR                       26080001
278200                   SNF-OTHER-DIAG-CODE4  OR                       26090001
278300                   SNF-OTHER-DIAG-CODE5  OR                       26100001
278400                   SNF-OTHER-DIAG-CODE6  OR                       26110001
278500                   SNF-OTHER-DIAG-CODE7  OR                       26120001
278600                   SNF-OTHER-DIAG-CODE8  OR                       26130001
278700                   SNF-OTHER-DIAG-CODE9  OR                       26140001
278800                   SNF-OTHER-DIAG-CODE10 OR                       26150001
278900                   SNF-OTHER-DIAG-CODE11 OR                       26160001
279000                   SNF-OTHER-DIAG-CODE12 OR                       26170001
279100                   SNF-OTHER-DIAG-CODE13 OR                       26180001
279200                   SNF-OTHER-DIAG-CODE14 OR                       26190001
279300                   SNF-OTHER-DIAG-CODE15 OR                       26200001
279400                   SNF-OTHER-DIAG-CODE16 OR                       26210001
279500                   SNF-OTHER-DIAG-CODE17 OR                       26220001
279600                   SNF-OTHER-DIAG-CODE18 OR                       26230001
279700                   SNF-OTHER-DIAG-CODE19 OR                       26240001
279800                   SNF-OTHER-DIAG-CODE20 OR                       26250001
279900                   SNF-OTHER-DIAG-CODE21 OR                       26260001
280000                   SNF-OTHER-DIAG-CODE22 OR                       26270001
280100                   SNF-OTHER-DIAG-CODE23 OR                       26280001
280200                   SNF-OTHER-DIAG-CODE24 OR                       26290001
280300                   SNF-OTHER-DIAG-CODE25                          26300001
280400         COMPUTE HLD-PAYMENT-RATE ROUNDED =                       26310001
280500                 HLD-PAYMENT-RATE * 2.28                          26320001
280600         GO TO 2006-53-CONTINUE.                                  26330001
280700                                                                  26340001
280800 2006-53-CONTINUE.                                                26350001
280900                                                                  26360001
281000     IF  SNF-FED-BLEND = 0                                        26370001
281100        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        26380001
281200                HLD-FACILITY-RATE * 1.00.                         26390001
281300                                                                  26400001
281400     IF SNF-FED-BLEND = 4                                         26410001
281500        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              26420001
281600        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        26430001
281700                HLD-PAYMENT-RATE * 1.00.                          26440001
281800                                                                  26450001
281900 2006-53-EXIT.   EXIT.                                            26460001
282000                                                                  26470001
282100 2007-53-PAYMENT-RATE-CALC.                                       26480001
282200***************************************************************   26490001
282300*     PAYMENT RATE CALCULATION PROCCESS EFFECTIVE OCT.1, 2007     26500001
282400***************************************************************   26510001
282500                                                                  26520001
282600     IF HLD-CBSA = '     '                                        26530001
282700        MOVE '30' TO HLD-RTC                                      26540001
282800        GO TO 2007-53-EXIT.                                       26550001
282900                                                                  26560001
283000     MOVE 1 TO R3.                                                26570001
283100                                                                  26580001
283200     IF HLD-CBSA-RURAL-CHECK                                      26590001
283300        MOVE 1 TO R2                                              26600001
283400     ELSE                                                         26610001
283500        MOVE 2 TO R2.                                             26620001
283600                                                                  26630001
283700     PERFORM 900-SEARCH-4-RUG53  THRU 900-SEARCH-EXIT.            26640001
283800                                                                  26650001
283900     IF HLD-RTC NOT = 00 GO TO 2007-53-EXIT.                      26660001
284000                                                                  26670001
284100     PERFORM 500-GET-RATES.                                       26680001
284200                                                                  26690001
284300     IF SNF-FED-BLEND = 0 OR 4                                    26700001
284400        NEXT SENTENCE                                             26710001
284500     ELSE                                                         26720001
284600        MOVE '60' TO HLD-RTC                                      26730001
284700        MOVE ALL '0' TO HOLD-VAR-DATA                             26740001
284800        GO TO 2007-53-EXIT.                                       26750001
284900                                                                  26760001
285000        COMPUTE NURSING-COMPONENT ROUNDED =                       26770001
285100                   (NUR-INDEX * IP-RATE).                         26780001
285200                                                                  26790001
285300        COMPUTE THERAPY-COMPONENT ROUNDED =                       26800001
285400                   (THR-INDEX * REHAB-RATE).                      26810001
285500                                                                  26820001
285600        COMPUTE NCM-THR-COMPONENT ROUNDED =                       26830001
285700                   (FACTOR * NCM-THR-COMPONENT).                  26840001
285800                                                                  26850001
285900        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       26860001
286000                   NURSING-COMPONENT +                            26870001
286100                   THERAPY-COMPONENT +                            26880001
286200                   NCM-THR-COMPONENT +                            26890001
286300                   NCM-COMPONENT.                                 26900001
286400                                                                  26910001
286500        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        26920001
286600             (HLD-PAYMENT-RATE * PERCENT-2007-LABOR) *            26930001
286700               AREA-WAGE-INDEX.                                   26940001
286800                                                                  26950001
286900        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        26960001
287000               (HLD-PAYMENT-RATE * PERCENT-2007-NLABOR) +         26970001
287100                    PAYMENT-RATE-ADJ.                             26980001
287200                                                                  26990001
287300     IF '042   ' = SNF-PRIN-DIAG-CODE    OR                       27000001
287400                   SNF-OTHER-DIAG-CODE2  OR                       27010001
287500                   SNF-OTHER-DIAG-CODE3  OR                       27020001
287600                   SNF-OTHER-DIAG-CODE4  OR                       27030001
287700                   SNF-OTHER-DIAG-CODE5  OR                       27040001
287800                   SNF-OTHER-DIAG-CODE6  OR                       27050001
287900                   SNF-OTHER-DIAG-CODE7  OR                       27060001
288000                   SNF-OTHER-DIAG-CODE8  OR                       27070001
288100                   SNF-OTHER-DIAG-CODE9  OR                       27080001
288200                   SNF-OTHER-DIAG-CODE10 OR                       27090001
288300                   SNF-OTHER-DIAG-CODE11 OR                       27100001
288400                   SNF-OTHER-DIAG-CODE12 OR                       27110001
288500                   SNF-OTHER-DIAG-CODE13 OR                       27120001
288600                   SNF-OTHER-DIAG-CODE14 OR                       27130001
288700                   SNF-OTHER-DIAG-CODE15 OR                       27140001
288800                   SNF-OTHER-DIAG-CODE16 OR                       27150001
288900                   SNF-OTHER-DIAG-CODE17 OR                       27160001
289000                   SNF-OTHER-DIAG-CODE18 OR                       27170001
289100                   SNF-OTHER-DIAG-CODE19 OR                       27180001
289200                   SNF-OTHER-DIAG-CODE20 OR                       27190001
289300                   SNF-OTHER-DIAG-CODE21 OR                       27200001
289400                   SNF-OTHER-DIAG-CODE22 OR                       27210001
289500                   SNF-OTHER-DIAG-CODE23 OR                       27220001
289600                   SNF-OTHER-DIAG-CODE24 OR                       27230001
289700                   SNF-OTHER-DIAG-CODE25                          27240001
289800         COMPUTE HLD-PAYMENT-RATE ROUNDED =                       27250001
289900                 HLD-PAYMENT-RATE * 2.28                          27260001
290000         GO TO 2007-53-CONTINUE.                                  27270001
290100                                                                  27280001
290200 2007-53-CONTINUE.                                                27290001
290300                                                                  27300001
290400     IF  SNF-FED-BLEND = 0                                        27310001
290500        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        27320001
290600                HLD-FACILITY-RATE * 1.00.                         27330001
290700                                                                  27340001
290800     IF SNF-FED-BLEND = 4                                         27350001
290900        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              27360001
291000        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        27370001
291100                HLD-PAYMENT-RATE * 1.00.                          27380001
291200                                                                  27390001
291300 2007-53-EXIT. EXIT.                                              27400001
291400                                                                  27410001
291500 2008-53-PAYMENT-RATE-CALC.                                       27420001
291600***************************************************************   27430001
291700*     PAYMENT RATE CALCULATION PROCCESS EFFECTIVE OCT.1, 2007     27440001
291800***************************************************************   27450001
291900                                                                  27460001
292000     IF HLD-CBSA = '     '                                        27470001
292100        MOVE '30' TO HLD-RTC                                      27480001
292200        GO TO 2008-53-EXIT.                                       27490001
292300                                                                  27500001
292400     MOVE 1 TO R3.                                                27510001
292500                                                                  27520001
292600     IF HLD-CBSA-RURAL-CHECK                                      27530001
292700        MOVE 1 TO R2                                              27540001
292800     ELSE                                                         27550001
292900        MOVE 2 TO R2.                                             27560001
293000                                                                  27570001
293100     PERFORM 900-SEARCH-4-RUG53  THRU 900-SEARCH-EXIT.            27580001
293200                                                                  27590001
293300     IF HLD-RTC NOT = 00 GO TO 2008-53-EXIT.                      27600001
293400                                                                  27610001
293500     PERFORM 500-GET-RATES.                                       27620001
293600                                                                  27630001
293700     IF SNF-FED-BLEND = 0 OR 4                                    27640001
293800        NEXT SENTENCE                                             27650001
293900     ELSE                                                         27660001
294000        MOVE '60' TO HLD-RTC                                      27670001
294100        MOVE ALL '0' TO HOLD-VAR-DATA                             27680001
294200        GO TO 2008-53-EXIT.                                       27690001
294300                                                                  27700001
294400        COMPUTE NURSING-COMPONENT ROUNDED =                       27710001
294500                   (NUR-INDEX * IP-RATE).                         27720001
294600                                                                  27730001
294700        COMPUTE THERAPY-COMPONENT ROUNDED =                       27740001
294800                   (THR-INDEX * REHAB-RATE).                      27750001
294900                                                                  27760001
295000        COMPUTE NCM-THR-COMPONENT ROUNDED =                       27770001
295100                   (FACTOR * NCM-THR-COMPONENT).                  27780001
295200                                                                  27790001
295300        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       27800001
295400                   NURSING-COMPONENT +                            27810001
295500                   THERAPY-COMPONENT +                            27820001
295600                   NCM-THR-COMPONENT +                            27830001
295700                   NCM-COMPONENT.                                 27840001
295800                                                                  27850001
295900        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        27860001
296000             (HLD-PAYMENT-RATE * PERCENT-2008-LABOR) *            27870001
296100               AREA-WAGE-INDEX.                                   27880001
296200                                                                  27890001
296300        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        27900001
296400               (HLD-PAYMENT-RATE * PERCENT-2008-NLABOR) +         27910001
296500                    PAYMENT-RATE-ADJ.                             27920001
296600                                                                  27930001
296700     IF '042   ' = SNF-PRIN-DIAG-CODE    OR                       27940001
296800                   SNF-OTHER-DIAG-CODE2  OR                       27950001
296900                   SNF-OTHER-DIAG-CODE3  OR                       27960001
297000                   SNF-OTHER-DIAG-CODE4  OR                       27970001
297100                   SNF-OTHER-DIAG-CODE5  OR                       27980001
297200                   SNF-OTHER-DIAG-CODE6  OR                       27990001
297300                   SNF-OTHER-DIAG-CODE7  OR                       28000001
297400                   SNF-OTHER-DIAG-CODE8  OR                       28010001
297500                   SNF-OTHER-DIAG-CODE9  OR                       28020001
297600                   SNF-OTHER-DIAG-CODE10 OR                       28030001
297700                   SNF-OTHER-DIAG-CODE11 OR                       28040001
297800                   SNF-OTHER-DIAG-CODE12 OR                       28050001
297900                   SNF-OTHER-DIAG-CODE13 OR                       28060001
298000                   SNF-OTHER-DIAG-CODE14 OR                       28070001
298100                   SNF-OTHER-DIAG-CODE15 OR                       28080001
298200                   SNF-OTHER-DIAG-CODE16 OR                       28090001
298300                   SNF-OTHER-DIAG-CODE17 OR                       28100001
298400                   SNF-OTHER-DIAG-CODE18 OR                       28110001
298500                   SNF-OTHER-DIAG-CODE19 OR                       28120001
298600                   SNF-OTHER-DIAG-CODE20 OR                       28130001
298700                   SNF-OTHER-DIAG-CODE21 OR                       28140001
298800                   SNF-OTHER-DIAG-CODE22 OR                       28150001
298900                   SNF-OTHER-DIAG-CODE23 OR                       28160001
299000                   SNF-OTHER-DIAG-CODE24 OR                       28170001
299100                   SNF-OTHER-DIAG-CODE25                          28180001
299200         COMPUTE HLD-PAYMENT-RATE ROUNDED =                       28190001
299300                 HLD-PAYMENT-RATE * 2.28                          28200001
299400         GO TO 2008-53-CONTINUE.                                  28210001
299500                                                                  28220001
299600 2008-53-CONTINUE.                                                28230001
299700                                                                  28240001
299800     IF  SNF-FED-BLEND = 0                                        28250001
299900        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        28260001
300000                HLD-FACILITY-RATE * 1.00.                         28270001
300100                                                                  28280001
300200     IF SNF-FED-BLEND = 4                                         28290001
300300        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              28300001
300400        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        28310001
300500                HLD-PAYMENT-RATE * 1.00.                          28320001
300600                                                                  28330001
300700 2008-53-EXIT. EXIT.                                              28340001
300800                                                                  28350001
300900 2009-53-PAYMENT-RATE-CALC.                                       28360001
301000***************************************************************   28370001
301100*     PAYMENT RATE CALCULATION PROCCESS EFFECTIVE OCT.1, 2009     28380001
301200***************************************************************   28390001
301300                                                                  28400001
301400     IF HLD-CBSA = '     '                                        28410001
301500        MOVE '30' TO HLD-RTC                                      28420001
301600        GO TO 2009-53-EXIT.                                       28430001
301700                                                                  28440001
301800     MOVE 1 TO R3.                                                28450001
301900                                                                  28460001
302000     IF HLD-CBSA-RURAL-CHECK                                      28470001
302100        MOVE 1 TO R2                                              28480001
302200     ELSE                                                         28490001
302300        MOVE 2 TO R2.                                             28500001
302400                                                                  28510001
302500     PERFORM 900-SEARCH-4-RUG53  THRU 900-SEARCH-EXIT.            28520001
302600                                                                  28530001
302700     IF HLD-RTC NOT = 00 GO TO 2009-53-EXIT.                      28540001
302800                                                                  28550001
302900     PERFORM 500-GET-RATES.                                       28560001
303000                                                                  28570001
303100     IF SNF-FED-BLEND = 0 OR 4                                    28580001
303200        NEXT SENTENCE                                             28590001
303300     ELSE                                                         28600001
303400        MOVE '60' TO HLD-RTC                                      28610001
303500        MOVE ALL '0' TO HOLD-VAR-DATA                             28620001
303600        GO TO 2009-53-EXIT.                                       28630001
303700                                                                  28640001
303800        COMPUTE NURSING-COMPONENT ROUNDED =                       28650001
303900                   (NUR-INDEX * IP-RATE).                         28660001
304000                                                                  28670001
304100        COMPUTE THERAPY-COMPONENT ROUNDED =                       28680001
304200                   (THR-INDEX * REHAB-RATE).                      28690001
304300                                                                  28700001
304400        COMPUTE NCM-THR-COMPONENT ROUNDED =                       28710001
304500                   (FACTOR * NCM-THR-COMPONENT).                  28720001
304600                                                                  28730001
304700        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       28740001
304800                   NURSING-COMPONENT +                            28750001
304900                   THERAPY-COMPONENT +                            28760001
305000                   NCM-THR-COMPONENT +                            28770001
305100                   NCM-COMPONENT.                                 28780001
305200                                                                  28790001
305300        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        28800001
305400             (HLD-PAYMENT-RATE * PERCENT-2009-LABOR) *            28810001
305500               AREA-WAGE-INDEX.                                   28820001
305600                                                                  28830001
305700        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        28840001
305800               (HLD-PAYMENT-RATE * PERCENT-2009-NLABOR) +         28850001
305900                    PAYMENT-RATE-ADJ.                             28860001
306000                                                                  28870001
306100     IF '042   ' = SNF-PRIN-DIAG-CODE   OR                        28880001
306200                   SNF-OTHER-DIAG-CODE2 OR                        28890001
306300                   SNF-OTHER-DIAG-CODE3 OR                        28900001
306400                   SNF-OTHER-DIAG-CODE4 OR                        28910001
306500                   SNF-OTHER-DIAG-CODE5 OR                        28920001
306600                   SNF-OTHER-DIAG-CODE6 OR                        28930001
306700                   SNF-OTHER-DIAG-CODE7 OR                        28940001
306800                   SNF-OTHER-DIAG-CODE8 OR                        28950001
306900                   SNF-OTHER-DIAG-CODE9  OR                       28960001
307000                   SNF-OTHER-DIAG-CODE10 OR                       28970001
307100                   SNF-OTHER-DIAG-CODE11 OR                       28980001
307200                   SNF-OTHER-DIAG-CODE12 OR                       28990001
307300                   SNF-OTHER-DIAG-CODE13 OR                       29000001
307400                   SNF-OTHER-DIAG-CODE14 OR                       29010001
307500                   SNF-OTHER-DIAG-CODE15 OR                       29020001
307600                   SNF-OTHER-DIAG-CODE16 OR                       29030001
307700                   SNF-OTHER-DIAG-CODE17 OR                       29040001
307800                   SNF-OTHER-DIAG-CODE18 OR                       29050001
307900                   SNF-OTHER-DIAG-CODE19 OR                       29060001
308000                   SNF-OTHER-DIAG-CODE20 OR                       29070001
308100                   SNF-OTHER-DIAG-CODE21 OR                       29080001
308200                   SNF-OTHER-DIAG-CODE22 OR                       29090001
308300                   SNF-OTHER-DIAG-CODE23 OR                       29100001
308400                   SNF-OTHER-DIAG-CODE24 OR                       29110001
308500                   SNF-OTHER-DIAG-CODE25                          29120001
308600         COMPUTE HLD-PAYMENT-RATE ROUNDED =                       29130001
308700                 HLD-PAYMENT-RATE * 2.28                          29140001
308800         GO TO 2009-53-CONTINUE.                                  29150001
308900                                                                  29160001
309000 2009-53-CONTINUE.                                                29170001
309100                                                                  29180001
309200     IF  SNF-FED-BLEND = 0                                        29190001
309300        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        29200001
309400                HLD-FACILITY-RATE * 1.00.                         29210001
309500                                                                  29220001
309600     IF SNF-FED-BLEND = 4                                         29230001
309700        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              29240001
309800        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        29250001
309900                HLD-PAYMENT-RATE * 1.00.                          29260001
310000                                                                  29270001
310100 2009-53-EXIT. EXIT.                                              29280001
310200                                                                  29290001
310300 2010-53-PAYMENT-RATE-CALC.                                       29300001
310400***************************************************************   29310001
310500*     PAYMENT RATE CALCULATION PROCCESS EFFECTIVE OCT.1, 2009     29320001
310600***************************************************************   29330001
310700                                                                  29340001
310800     IF HLD-CBSA = '     '                                        29350001
310900        MOVE '30' TO HLD-RTC                                      29360001
311000        GO TO 2010-53-EXIT.                                       29370001
311100                                                                  29380001
311200     MOVE 1 TO R3.                                                29390001
311300                                                                  29400001
311400     IF HLD-CBSA-RURAL-CHECK                                      29410001
311500        MOVE 1 TO R2                                              29420001
311600     ELSE                                                         29430001
311700        MOVE 2 TO R2.                                             29440001
311800                                                                  29450001
311900     PERFORM 910-SEARCH-4-RUG53-2010  THRU 910-SEARCH-EXIT.       29460001
312000                                                                  29470001
312100     IF HLD-RTC NOT = 00 GO TO 2010-53-EXIT.                      29480001
312200                                                                  29490001
312300     PERFORM 500-GET-RATES.                                       29500001
312400                                                                  29510001
312500     IF SNF-FED-BLEND = 0 OR 4                                    29520001
312600        NEXT SENTENCE                                             29530001
312700     ELSE                                                         29540001
312800        MOVE '60' TO HLD-RTC                                      29550001
312900        MOVE ALL '0' TO HOLD-VAR-DATA                             29560001
313000        GO TO 2010-53-EXIT.                                       29570001
313100                                                                  29580001
313200        COMPUTE NURSING-COMPONENT ROUNDED =                       29590001
313300                   (NUR-INDEX * IP-RATE).                         29600001
313400                                                                  29610001
313500        COMPUTE THERAPY-COMPONENT ROUNDED =                       29620001
313600                   (THR-INDEX * REHAB-RATE).                      29630001
313700                                                                  29640001
313800        COMPUTE NCM-THR-COMPONENT ROUNDED =                       29650001
313900                   (FACTOR * NCM-THR-COMPONENT).                  29660001
314000                                                                  29670001
314100        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       29680001
314200                   NURSING-COMPONENT +                            29690001
314300                   THERAPY-COMPONENT +                            29700001
314400                   NCM-THR-COMPONENT +                            29710001
314500                   NCM-COMPONENT.                                 29720001
314600                                                                  29730001
314700        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        29740001
314800             (HLD-PAYMENT-RATE * PERCENT-2010-LABOR) *            29750001
314900               AREA-WAGE-INDEX.                                   29760001
315000                                                                  29770001
315100        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        29780001
315200               (HLD-PAYMENT-RATE * PERCENT-2010-NLABOR) +         29790001
315300                    PAYMENT-RATE-ADJ.                             29800001
315400                                                                  29810001
315500     IF '042   ' = SNF-PRIN-DIAG-CODE   OR                        29820001
315600                   SNF-OTHER-DIAG-CODE2 OR                        29830001
315700                   SNF-OTHER-DIAG-CODE3 OR                        29840001
315800                   SNF-OTHER-DIAG-CODE4 OR                        29850001
315900                   SNF-OTHER-DIAG-CODE5 OR                        29860001
316000                   SNF-OTHER-DIAG-CODE6 OR                        29870001
316100                   SNF-OTHER-DIAG-CODE7 OR                        29880001
316200                   SNF-OTHER-DIAG-CODE8 OR                        29890001
316300                   SNF-OTHER-DIAG-CODE9  OR                       29900001
316400                   SNF-OTHER-DIAG-CODE10 OR                       29910001
316500                   SNF-OTHER-DIAG-CODE11 OR                       29920001
316600                   SNF-OTHER-DIAG-CODE12 OR                       29930001
316700                   SNF-OTHER-DIAG-CODE13 OR                       29940001
316800                   SNF-OTHER-DIAG-CODE14 OR                       29950001
316900                   SNF-OTHER-DIAG-CODE15 OR                       29960001
317000                   SNF-OTHER-DIAG-CODE16 OR                       29970001
317100                   SNF-OTHER-DIAG-CODE17 OR                       29980001
317200                   SNF-OTHER-DIAG-CODE18 OR                       29990001
317300                   SNF-OTHER-DIAG-CODE19 OR                       30000001
317400                   SNF-OTHER-DIAG-CODE20 OR                       30010001
317500                   SNF-OTHER-DIAG-CODE21 OR                       30020001
317600                   SNF-OTHER-DIAG-CODE22 OR                       30030001
317700                   SNF-OTHER-DIAG-CODE23 OR                       30040001
317800                   SNF-OTHER-DIAG-CODE24 OR                       30050001
317900                   SNF-OTHER-DIAG-CODE25                          30060001
318000         COMPUTE HLD-PAYMENT-RATE ROUNDED =                       30070001
318100                 HLD-PAYMENT-RATE * 2.28                          30080001
318200         GO TO 2010-53-CONTINUE.                                  30090001
318300                                                                  30100001
318400 2010-53-CONTINUE.                                                30110001
318500                                                                  30120001
318600     IF  SNF-FED-BLEND = 0                                        30130001
318700        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        30140001
318800                HLD-FACILITY-RATE * 1.00.                         30150001
318900                                                                  30160001
319000     IF SNF-FED-BLEND = 4                                         30170001
319100        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              30180001
319200        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        30190001
319300                HLD-PAYMENT-RATE * 1.00.                          30200001
319400                                                                  30210001
319500 2010-53-EXIT. EXIT.                                              30220001
319600                                                                  30230001
319700 2011-67-PAYMENT-RATE-CALC.                                       30240001
319800***************************************************************   30250001
319900*     PAYMENT RATE CALCULATION PROCCESS EFFECTIVE OCT.1, 2009     30260001
320000***************************************************************   30270001
320100                                                                  30280001
320200     IF HLD-CBSA = '     '                                        30290001
320300        MOVE '30' TO HLD-RTC                                      30300001
320400        GO TO 2011-67-EXIT.                                       30310001
320500                                                                  30320001
320600     MOVE 1 TO R3.                                                30330001
320700                                                                  30340001
320800     IF HLD-CBSA-RURAL-CHECK                                      30350001
320900        MOVE 1 TO R2                                              30360001
321000     ELSE                                                         30370001
321100        MOVE 2 TO R2.                                             30380001
321200                                                                  30390001
321300     PERFORM 911-SEARCH-4-RUG67-2011  THRU 911-SEARCH-EXIT.       30400001
321400                                                                  30410001
321500     IF HLD-RTC NOT = 00 GO TO 2011-67-EXIT.                      30420001
321600                                                                  30430001
321700     PERFORM 500-GET-RATES.                                       30440001
321800                                                                  30450001
321900     IF SNF-FED-BLEND = 0 OR 4                                    30460001
322000        NEXT SENTENCE                                             30470001
322100     ELSE                                                         30480001
322200        MOVE '60' TO HLD-RTC                                      30490001
322300        MOVE ALL '0' TO HOLD-VAR-DATA                             30500001
322400        GO TO 2011-67-EXIT.                                       30510001
322500                                                                  30520001
322600        COMPUTE NURSING-COMPONENT ROUNDED =                       30530001
322700                   (NUR-INDEX * IP-RATE).                         30540001
322800                                                                  30550001
322900        COMPUTE THERAPY-COMPONENT ROUNDED =                       30560001
323000                   (THR-INDEX * REHAB-RATE).                      30570001
323100                                                                  30580001
323200        COMPUTE NCM-THR-COMPONENT ROUNDED =                       30590001
323300                   (FACTOR * NCM-THR-COMPONENT).                  30600001
323400                                                                  30610001
323500        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       30620001
323600                   NURSING-COMPONENT +                            30630001
323700                   THERAPY-COMPONENT +                            30640001
323800                   NCM-THR-COMPONENT +                            30650001
323900                   NCM-COMPONENT.                                 30660001
324000                                                                  30670001
324100        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        30680001
324200             (HLD-PAYMENT-RATE * PERCENT-2011-LABOR) *            30690001
324300               AREA-WAGE-INDEX.                                   30700001
324400                                                                  30710001
324500        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        30720001
324600               (HLD-PAYMENT-RATE * PERCENT-2011-NLABOR) +         30730001
324700                    PAYMENT-RATE-ADJ.                             30740001
324800                                                                  30750001
324900     IF '042   ' = SNF-PRIN-DIAG-CODE   OR                        30760001
325000                   SNF-OTHER-DIAG-CODE2 OR                        30770001
325100                   SNF-OTHER-DIAG-CODE3 OR                        30780001
325200                   SNF-OTHER-DIAG-CODE4 OR                        30790001
325300                   SNF-OTHER-DIAG-CODE5 OR                        30800001
325400                   SNF-OTHER-DIAG-CODE6 OR                        30810001
325500                   SNF-OTHER-DIAG-CODE7 OR                        30820001
325600                   SNF-OTHER-DIAG-CODE8 OR                        30830001
325700                   SNF-OTHER-DIAG-CODE9  OR                       30840001
325800                   SNF-OTHER-DIAG-CODE10 OR                       30850001
325900                   SNF-OTHER-DIAG-CODE11 OR                       30860001
326000                   SNF-OTHER-DIAG-CODE12 OR                       30870001
326100                   SNF-OTHER-DIAG-CODE13 OR                       30880001
326200                   SNF-OTHER-DIAG-CODE14 OR                       30890001
326300                   SNF-OTHER-DIAG-CODE15 OR                       30900001
326400                   SNF-OTHER-DIAG-CODE16 OR                       30910001
326500                   SNF-OTHER-DIAG-CODE17 OR                       30920001
326600                   SNF-OTHER-DIAG-CODE18 OR                       30930001
326700                   SNF-OTHER-DIAG-CODE19 OR                       30940001
326800                   SNF-OTHER-DIAG-CODE20 OR                       30950001
326900                   SNF-OTHER-DIAG-CODE21 OR                       30960001
327000                   SNF-OTHER-DIAG-CODE22 OR                       30970001
327100                   SNF-OTHER-DIAG-CODE23 OR                       30980001
327200                   SNF-OTHER-DIAG-CODE24 OR                       30990001
327300                   SNF-OTHER-DIAG-CODE25                          31000001
327400         COMPUTE HLD-PAYMENT-RATE ROUNDED =                       31010001
327500                 HLD-PAYMENT-RATE * 2.28                          31020001
327600         GO TO 2011-67-CONTINUE.                                  31030001
327700                                                                  31040001
327800 2011-67-CONTINUE.                                                31050001
327900                                                                  31060001
328000     IF  SNF-FED-BLEND = 0                                        31070001
328100        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        31080001
328200                HLD-FACILITY-RATE * 1.00.                         31090001
328300                                                                  31100001
328400     IF SNF-FED-BLEND = 4                                         31110001
328500        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              31120001
328600        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        31130001
328700                HLD-PAYMENT-RATE * 1.00.                          31140001
328800                                                                  31150001
328900 2011-67-EXIT. EXIT.                                              31160001
329000                                                                  31170001
329100 2012-67-PAYMENT-RATE-CALC.                                       31180001
329200***************************************************************   31190001
329300*     PAYMENT RATE CALCULATION PROCCESS EFFECTIVE OCT.1, 2009     31200001
329400***************************************************************   31210001
329500                                                                  31220001
329600     IF HLD-CBSA = '     '                                        31230001
329700        MOVE '30'              TO HLD-RTC                         31240001
329800        GO TO 2012-67-EXIT.                                       31250001
329900                                                                  31260001
330000     MOVE 1 TO R3.                                                31270001
330100                                                                  31280001
330200     IF HLD-CBSA-RURAL-CHECK                                      31290001
330300        MOVE 1 TO R2                                              31300001
330400     ELSE                                                         31310001
330500        MOVE 2 TO R2.                                             31320001
330600                                                                  31330001
330700     PERFORM 912-SEARCH-4-RUG67-2012                              31340001
330800        THRU 912-SEARCH-EXIT.                                     31350001
330900                                                                  31360001
331000     IF HLD-RTC NOT = 00 GO TO 2012-67-EXIT.                      31370001
331100                                                                  31380001
331200     PERFORM 500-GET-RATES.                                       31390001
331300                                                                  31400001
331400     IF SNF-FED-BLEND = 0 OR 4                                    31410001
331500        NEXT SENTENCE                                             31420001
331600     ELSE                                                         31430001
331700        MOVE '60'              TO HLD-RTC                         31440001
331800        MOVE ALL '0'           TO HOLD-VAR-DATA                   31450001
331900        GO TO 2012-67-EXIT.                                       31460001
332000                                                                  31470001
332100        COMPUTE NURSING-COMPONENT ROUNDED =                       31480001
332200                   (NUR-INDEX * IP-RATE).                         31490001
332300                                                                  31500001
332400        COMPUTE THERAPY-COMPONENT ROUNDED =                       31510001
332500                   (THR-INDEX * REHAB-RATE).                      31520001
332600                                                                  31530001
332700        COMPUTE NCM-THR-COMPONENT ROUNDED =                       31540001
332800                   (FACTOR * NCM-THR-COMPONENT).                  31550001
332900                                                                  31560001
333000        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       31570001
333100                   NURSING-COMPONENT +                            31580001
333200                   THERAPY-COMPONENT +                            31590001
333300                   NCM-THR-COMPONENT +                            31600001
333400                   NCM-COMPONENT.                                 31610001
333500                                                                  31620001
333600        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        31630001
333700             (HLD-PAYMENT-RATE * PERCENT-2012-LABOR) *            31640001
333800               AREA-WAGE-INDEX.                                   31650001
333900                                                                  31660001
334000        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        31670001
334100               (HLD-PAYMENT-RATE * PERCENT-2012-NLABOR) +         31680001
334200                    PAYMENT-RATE-ADJ.                             31690001
334300                                                                  31700001
334400     IF '042   ' = SNF-PRIN-DIAG-CODE   OR                        31710001
334500                   SNF-OTHER-DIAG-CODE2 OR                        31720001
334600                   SNF-OTHER-DIAG-CODE3 OR                        31730001
334700                   SNF-OTHER-DIAG-CODE4 OR                        31740001
334800                   SNF-OTHER-DIAG-CODE5 OR                        31750001
334900                   SNF-OTHER-DIAG-CODE6 OR                        31760001
335000                   SNF-OTHER-DIAG-CODE7 OR                        31770001
335100                   SNF-OTHER-DIAG-CODE8 OR                        31780001
335200                   SNF-OTHER-DIAG-CODE9  OR                       31790001
335300                   SNF-OTHER-DIAG-CODE10 OR                       31800001
335400                   SNF-OTHER-DIAG-CODE11 OR                       31810001
335500                   SNF-OTHER-DIAG-CODE12 OR                       31820001
335600                   SNF-OTHER-DIAG-CODE13 OR                       31830001
335700                   SNF-OTHER-DIAG-CODE14 OR                       31840001
335800                   SNF-OTHER-DIAG-CODE15 OR                       31850001
335900                   SNF-OTHER-DIAG-CODE16 OR                       31860001
336000                   SNF-OTHER-DIAG-CODE17 OR                       31870001
336100                   SNF-OTHER-DIAG-CODE18 OR                       31880001
336200                   SNF-OTHER-DIAG-CODE19 OR                       31890001
336300                   SNF-OTHER-DIAG-CODE20 OR                       31900001
336400                   SNF-OTHER-DIAG-CODE21 OR                       31910001
336500                   SNF-OTHER-DIAG-CODE22 OR                       31920001
336600                   SNF-OTHER-DIAG-CODE23 OR                       31930001
336700                   SNF-OTHER-DIAG-CODE24 OR                       31940001
336800                   SNF-OTHER-DIAG-CODE25                          31950001
336900         COMPUTE HLD-PAYMENT-RATE ROUNDED =                       31960001
337000                 HLD-PAYMENT-RATE * 2.28                          31970001
337100         GO TO 2012-67-CONTINUE.                                  31980001
337200                                                                  31990001
337300 2012-67-CONTINUE.                                                32000001
337400                                                                  32010001
337500     IF  SNF-FED-BLEND = 0                                        32020001
337600        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        32030001
337700                HLD-FACILITY-RATE * 1.00.                         32040001
337800                                                                  32050001
337900     IF SNF-FED-BLEND = 4                                         32060001
338000        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              32070001
338100        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        32080001
338200                HLD-PAYMENT-RATE * 1.00.                          32090001
338300                                                                  32100001
338400 2012-67-EXIT. EXIT.                                              32110001
338500                                                                  32120001
338600                                                                  32130001
338700 2013-67-PAYMENT-RATE-CALC.                                       32140001
338800***************************************************************   32150001
338900*     PAYMENT RATE CALCULATION PROCCESS EFFECTIVE OCT.1, 2012     32160001
339000***************************************************************   32170001
339100                                                                  32180001
339200     IF HLD-CBSA = '     '                                        32190001
339300        MOVE '30'              TO HLD-RTC                         32200001
339400        GO TO 2013-67-EXIT.                                       32210001
339500                                                                  32220001
339600     MOVE 1                    TO R3.                             32230001
339700                                                                  32240001
339800     IF HLD-CBSA-RURAL-CHECK                                      32250001
339900        MOVE 1                 TO R2                              32260001
340000     ELSE                                                         32270001
340100        MOVE 2                 TO R2.                             32280001
340200                                                                  32290001
340300     PERFORM 913-SEARCH-4-RUG67-2013                              32300001
340400        THRU 913-SEARCH-EXIT.                                     32310001
340500                                                                  32320001
340600     IF HLD-RTC NOT = 00                                          32330001
340700        GO TO 2013-67-EXIT.                                       32340001
340800                                                                  32350001
340900     PERFORM 500-GET-RATES.                                       32360001
341000                                                                  32370001
341100     IF SNF-FED-BLEND = 0 OR 4                                    32380001
341200        NEXT SENTENCE                                             32390001
341300     ELSE                                                         32400001
341400        MOVE '60'              TO HLD-RTC                         32410001
341500        MOVE ALL '0'           TO HOLD-VAR-DATA                   32420001
341600        GO TO 2013-67-EXIT.                                       32430001
341700                                                                  32440001
341800        COMPUTE NURSING-COMPONENT ROUNDED =                       32450001
341900                   (NUR-INDEX * IP-RATE).                         32460001
342000                                                                  32470001
342100        COMPUTE THERAPY-COMPONENT ROUNDED =                       32480001
342200                   (THR-INDEX * REHAB-RATE).                      32490001
342300                                                                  32500001
342400        COMPUTE NCM-THR-COMPONENT ROUNDED =                       32510001
342500                   (FACTOR * NCM-THR-COMPONENT).                  32520001
342600                                                                  32530001
342700        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       32540001
342800                   NURSING-COMPONENT +                            32550001
342900                   THERAPY-COMPONENT +                            32560001
343000                   NCM-THR-COMPONENT +                            32570001
343100                   NCM-COMPONENT.                                 32580001
343200                                                                  32590001
343300        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        32600001
343400             (HLD-PAYMENT-RATE * PERCENT-2013-LABOR) *            32610001
343500               AREA-WAGE-INDEX.                                   32620001
343600                                                                  32630001
343700        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        32640001
343800               (HLD-PAYMENT-RATE * PERCENT-2013-NLABOR) +         32650001
343900                    PAYMENT-RATE-ADJ.                             32660001
344000                                                                  32670001
344100     IF '042   ' = SNF-PRIN-DIAG-CODE   OR                        32680001
344200                   SNF-OTHER-DIAG-CODE2 OR                        32690001
344300                   SNF-OTHER-DIAG-CODE3 OR                        32700001
344400                   SNF-OTHER-DIAG-CODE4 OR                        32710001
344500                   SNF-OTHER-DIAG-CODE5 OR                        32720001
344600                   SNF-OTHER-DIAG-CODE6 OR                        32730001
344700                   SNF-OTHER-DIAG-CODE7 OR                        32740001
344800                   SNF-OTHER-DIAG-CODE8 OR                        32750001
344900                   SNF-OTHER-DIAG-CODE9  OR                       32760001
345000                   SNF-OTHER-DIAG-CODE10 OR                       32770001
345100                   SNF-OTHER-DIAG-CODE11 OR                       32780001
345200                   SNF-OTHER-DIAG-CODE12 OR                       32790001
345300                   SNF-OTHER-DIAG-CODE13 OR                       32800001
345400                   SNF-OTHER-DIAG-CODE14 OR                       32810001
345500                   SNF-OTHER-DIAG-CODE15 OR                       32820001
345600                   SNF-OTHER-DIAG-CODE16 OR                       32830001
345700                   SNF-OTHER-DIAG-CODE17 OR                       32840001
345800                   SNF-OTHER-DIAG-CODE18 OR                       32850001
345900                   SNF-OTHER-DIAG-CODE19 OR                       32860001
346000                   SNF-OTHER-DIAG-CODE20 OR                       32870001
346100                   SNF-OTHER-DIAG-CODE21 OR                       32880001
346200                   SNF-OTHER-DIAG-CODE22 OR                       32890001
346300                   SNF-OTHER-DIAG-CODE23 OR                       32900001
346400                   SNF-OTHER-DIAG-CODE24 OR                       32910001
346500                   SNF-OTHER-DIAG-CODE25                          32920001
346600         COMPUTE HLD-PAYMENT-RATE ROUNDED =                       32930001
346700                 HLD-PAYMENT-RATE * 2.28                          32940001
346800         GO TO 2013-67-CONTINUE.                                  32950001
346900                                                                  32960001
347000 2013-67-CONTINUE.                                                32970001
347100                                                                  32980001
347200     IF SNF-FED-BLEND = 0                                         32990001
347300        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        33000001
347400                HLD-FACILITY-RATE * 1.00.                         33010001
347500                                                                  33020001
347600     IF SNF-FED-BLEND = 4                                         33030001
347700        MOVE HLD-PAYMENT-RATE  TO FED-PAYMENT-PORTION             33040001
347800        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        33050001
347900                HLD-PAYMENT-RATE * 1.00.                          33060001
348000                                                                  33070001
348100 2013-67-EXIT.                                                    33080001
348200     EXIT.                                                        33090001
348300                                                                  33100001
348400                                                                  33110001
348500 2014-67-PAYMENT-RATE-CALC.                                       33120001
348600***************************************************************   33130001
348700*     PAYMENT RATE CALCULATION PROCCESS EFFECTIVE OCT.1, 2013     33140001
348800***************************************************************   33150001
348900                                                                  33160001
349000     IF HLD-CBSA = '     '                                        33170001
349100        MOVE '30'              TO HLD-RTC                         33180001
349200        GO TO 2014-67-EXIT.                                       33190001
349300                                                                  33200001
349400     MOVE 1                    TO R3.                             33210001
349500                                                                  33220001
349600     IF HLD-CBSA-RURAL-CHECK                                      33230001
349700        MOVE 1                 TO R2                              33240001
349800     ELSE                                                         33250001
349900        MOVE 2                 TO R2.                             33260001
350000                                                                  33270001
350100     PERFORM 914-SEARCH-4-RUG67-2014                              33280001
350200        THRU 914-SEARCH-EXIT.                                     33290001
350300                                                                  33300001
350400     IF HLD-RTC NOT = 00                                          33310001
350500        GO TO 2014-67-EXIT.                                       33320001
350600                                                                  33330001
350700     PERFORM 500-GET-RATES.                                       33340001
350800                                                                  33350001
350900     IF SNF-FED-BLEND = 0 OR 4                                    33360001
351000        NEXT SENTENCE                                             33370001
351100     ELSE                                                         33380001
351200        MOVE '60'              TO HLD-RTC                         33390001
351300        MOVE ALL '0'           TO HOLD-VAR-DATA                   33400001
351400        GO TO 2014-67-EXIT.                                       33410001
351500                                                                  33420001
351600        COMPUTE NURSING-COMPONENT ROUNDED =                       33430001
351700                   (NUR-INDEX * IP-RATE).                         33440001
351800                                                                  33450001
351900        COMPUTE THERAPY-COMPONENT ROUNDED =                       33460001
352000                   (THR-INDEX * REHAB-RATE).                      33470001
352100                                                                  33480001
352200        COMPUTE NCM-THR-COMPONENT ROUNDED =                       33490001
352300                   (FACTOR * NCM-THR-COMPONENT).                  33500001
352400                                                                  33510001
352500        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       33520001
352600                   NURSING-COMPONENT +                            33530001
352700                   THERAPY-COMPONENT +                            33540001
352800                   NCM-THR-COMPONENT +                            33550001
352900                   NCM-COMPONENT.                                 33560001
353000                                                                  33570001
353100        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        33580001
353200             (HLD-PAYMENT-RATE * PERCENT-2014-LABOR) *            33590001
353300               AREA-WAGE-INDEX.                                   33600001
353400                                                                  33610001
353500        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        33620001
353600               (HLD-PAYMENT-RATE * PERCENT-2014-NLABOR) +         33630001
353700                    PAYMENT-RATE-ADJ.                             33640001
353800                                                                  33650001
353900     IF '042   ' = SNF-PRIN-DIAG-CODE   OR                        33660001
354000                   SNF-OTHER-DIAG-CODE2 OR                        33670001
354100                   SNF-OTHER-DIAG-CODE3 OR                        33680001
354200                   SNF-OTHER-DIAG-CODE4 OR                        33690001
354300                   SNF-OTHER-DIAG-CODE5 OR                        33700001
354400                   SNF-OTHER-DIAG-CODE6 OR                        33710001
354500                   SNF-OTHER-DIAG-CODE7 OR                        33720001
354600                   SNF-OTHER-DIAG-CODE8 OR                        33730001
354700                   SNF-OTHER-DIAG-CODE9  OR                       33740001
354800                   SNF-OTHER-DIAG-CODE10 OR                       33750001
354900                   SNF-OTHER-DIAG-CODE11 OR                       33760001
355000                   SNF-OTHER-DIAG-CODE12 OR                       33770001
355100                   SNF-OTHER-DIAG-CODE13 OR                       33780001
355200                   SNF-OTHER-DIAG-CODE14 OR                       33790001
355300                   SNF-OTHER-DIAG-CODE15 OR                       33800001
355400                   SNF-OTHER-DIAG-CODE16 OR                       33810001
355500                   SNF-OTHER-DIAG-CODE17 OR                       33820001
355600                   SNF-OTHER-DIAG-CODE18 OR                       33830001
355700                   SNF-OTHER-DIAG-CODE19 OR                       33840001
355800                   SNF-OTHER-DIAG-CODE20 OR                       33850001
355900                   SNF-OTHER-DIAG-CODE21 OR                       33860001
356000                   SNF-OTHER-DIAG-CODE22 OR                       33870001
356100                   SNF-OTHER-DIAG-CODE23 OR                       33880001
356200                   SNF-OTHER-DIAG-CODE24 OR                       33890001
356300                   SNF-OTHER-DIAG-CODE25                          33900001
356400         COMPUTE HLD-PAYMENT-RATE ROUNDED =                       33910001
356500                 HLD-PAYMENT-RATE * 2.28                          33920001
356600         GO TO 2014-67-CONTINUE.                                  33930001
356700                                                                  33940001
356800 2014-67-CONTINUE.                                                33950001
356900                                                                  33960001
357000     IF SNF-FED-BLEND = 0                                         33970001
357100        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        33980001
357200                HLD-FACILITY-RATE * 1.00.                         33990001
357300                                                                  34000001
357400     IF SNF-FED-BLEND = 4                                         34010001
357500        MOVE HLD-PAYMENT-RATE  TO FED-PAYMENT-PORTION             34020001
357600        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        34030001
357700                HLD-PAYMENT-RATE * 1.00.                          34040001
357800                                                                  34050001
357900 2014-67-EXIT.                                                    34060001
358000     EXIT.                                                        34070001
358100                                                                  34080001
358200                                                                  34090001
358300 2015-67-PAYMENT-RATE-CALC.                                       34100001
358400***************************************************************   34110001
358500*     PAYMENT RATE CALCULATION PROCCESS EFFECTIVE OCT.1, 2014     34120001
358600***************************************************************   34130001
358700                                                                  34140001
358800     IF HLD-CBSA = '     '                                        34150001
358900        MOVE '30'              TO HLD-RTC                         34160001
359000        GO TO 2015-67-EXIT.                                       34170001
359100                                                                  34180001
359200     MOVE 1                    TO R3.                             34190001
359300                                                                  34200001
359400     IF HLD-CBSA-RURAL-CHECK                                      34210001
359500        MOVE 1                 TO R2                              34220001
359600     ELSE                                                         34230001
359700        MOVE 2                 TO R2.                             34240001
359800                                                                  34250001
359900     PERFORM 915-SEARCH-4-RUG67-2015                              34260001
360000        THRU 915-SEARCH-EXIT.                                     34270001
360100                                                                  34280001
360200     IF HLD-RTC NOT = 00                                          34290001
360300        GO TO 2015-67-EXIT.                                       34300001
360400                                                                  34310001
360500     PERFORM 500-GET-RATES.                                       34320001
360600                                                                  34330001
360700     IF SNF-FED-BLEND = 0 OR 4                                    34340001
360800        NEXT SENTENCE                                             34350001
360900     ELSE                                                         34360001
361000        MOVE '60'              TO HLD-RTC                         34370001
361100        MOVE ALL '0'           TO HOLD-VAR-DATA                   34380001
361200        GO TO 2015-67-EXIT.                                       34390001
361300                                                                  34400001
361400                                                                  34410001
361500                                                                  34420001
361600                                                                  34430001
361700        COMPUTE NURSING-COMPONENT ROUNDED =                       34440001
361800                   (NUR-INDEX * IP-RATE).                         34450001
361900                                                                  34460001
362000                                                                  34470001
362100        COMPUTE THERAPY-COMPONENT ROUNDED =                       34480001
362200                   (THR-INDEX * REHAB-RATE).                      34490001
362300                                                                  34500001
362400        COMPUTE NCM-THR-COMPONENT ROUNDED =                       34510001
362500                   (FACTOR * NCM-THR-COMPONENT).                  34520001
362600                                                                  34530001
362700                                                                  34540001
362800        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       34550001
362900                   NURSING-COMPONENT +                            34560001
363000                   THERAPY-COMPONENT +                            34570001
363100                   NCM-THR-COMPONENT +                            34580001
363200                   NCM-COMPONENT.                                 34590001
363300                                                                  34600001
363400                                                                  34610001
363500        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        34620001
363600             (HLD-PAYMENT-RATE * PERCENT-2015-LABOR) *            34630001
363700               AREA-WAGE-INDEX.                                   34640001
363800                                                                  34650001
363900                                                                  34660001
364000                                                                  34670001
364100        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        34680001
364200               (HLD-PAYMENT-RATE * PERCENT-2015-NLABOR) +         34690001
364300                    PAYMENT-RATE-ADJ.                             34700001
364400                                                                  34710001
364500                                                                  34720001
364600     IF '042   ' = SNF-PRIN-DIAG-CODE   OR                        34730001
364700                   SNF-OTHER-DIAG-CODE2 OR                        34740001
364800                   SNF-OTHER-DIAG-CODE3 OR                        34750001
364900                   SNF-OTHER-DIAG-CODE4 OR                        34760001
365000                   SNF-OTHER-DIAG-CODE5 OR                        34770001
365100                   SNF-OTHER-DIAG-CODE6 OR                        34780001
365200                   SNF-OTHER-DIAG-CODE7 OR                        34790001
365300                   SNF-OTHER-DIAG-CODE8 OR                        34800001
365400                   SNF-OTHER-DIAG-CODE9  OR                       34810001
365500                   SNF-OTHER-DIAG-CODE10 OR                       34820001
365600                   SNF-OTHER-DIAG-CODE11 OR                       34830001
365700                   SNF-OTHER-DIAG-CODE12 OR                       34840001
365800                   SNF-OTHER-DIAG-CODE13 OR                       34850001
365900                   SNF-OTHER-DIAG-CODE14 OR                       34860001
366000                   SNF-OTHER-DIAG-CODE15 OR                       34870001
366100                   SNF-OTHER-DIAG-CODE16 OR                       34880001
366200                   SNF-OTHER-DIAG-CODE17 OR                       34890001
366300                   SNF-OTHER-DIAG-CODE18 OR                       34900001
366400                   SNF-OTHER-DIAG-CODE19 OR                       34910001
366500                   SNF-OTHER-DIAG-CODE20 OR                       34920001
366600                   SNF-OTHER-DIAG-CODE21 OR                       34930001
366700                   SNF-OTHER-DIAG-CODE22 OR                       34940001
366800                   SNF-OTHER-DIAG-CODE23 OR                       34950001
366900                   SNF-OTHER-DIAG-CODE24 OR                       34960001
367000                   SNF-OTHER-DIAG-CODE25                          34970001
367100                                                                  34980001
367200         COMPUTE HLD-PAYMENT-RATE ROUNDED =                       34990001
367300                 HLD-PAYMENT-RATE * 2.28                          35000001
367400         GO TO 2015-67-CONTINUE.                                  35010001
367500                                                                  35020001
367600 2015-67-CONTINUE.                                                35030001
367700                                                                  35040001
367800     IF SNF-FED-BLEND = 0                                         35050001
367900        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        35060001
368000                HLD-FACILITY-RATE * 1.00.                         35070001
368100                                                                  35080001
368200     IF SNF-FED-BLEND = 4                                         35090001
368300        MOVE HLD-PAYMENT-RATE  TO FED-PAYMENT-PORTION             35100001
368400        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        35110001
368500                HLD-PAYMENT-RATE * 1.00.                          35120001
368600                                                                  35130001
368700 2015-67-EXIT.                                                    35140001
368800     EXIT.                                                        35150001
368900                                                                  35160001
369000                                                                  35170001
369100 2016-67-PAYMENT-RATE-CALC.                                       35180001
369200***************************************************************   35190001
369300*     PAYMENT RATE CALCULATION PROCCESS EFFECTIVE OCT.1, 2015     35200001
369400***************************************************************   35210001
369500                                                                  35220001
369600     IF HLD-CBSA = '     '                                        35230001
369700        MOVE '30'              TO HLD-RTC                         35240001
369800        GO TO 2016-67-EXIT.                                       35250001
369900                                                                  35260001
370000     MOVE 1                    TO R3.                             35270001
370100                                                                  35280001
370200     IF HLD-CBSA-RURAL-CHECK                                      35290001
370300        MOVE 1                 TO R2                              35300001
370400     ELSE                                                         35310001
370500        MOVE 2                 TO R2.                             35320001
370600                                                                  35330001
370700     PERFORM 916-SEARCH-4-RUG67-2016                              35340001
370800        THRU 916-SEARCH-EXIT.                                     35350001
370900                                                                  35360001
371000     IF HLD-RTC NOT = 00                                          35370001
371100        GO TO 2016-67-EXIT.                                       35380001
371200                                                                  35390001
371300     PERFORM 500-GET-RATES.                                       35400001
371400                                                                  35410001
371500     IF SNF-FED-BLEND = 0 OR 4                                    35420001
371600        NEXT SENTENCE                                             35430001
371700     ELSE                                                         35440001
371800        MOVE '60'              TO HLD-RTC                         35450001
371900        MOVE ALL '0'           TO HOLD-VAR-DATA                   35460001
372000        GO TO 2016-67-EXIT.                                       35470001
372100                                                                  35471001
372200                                                                  35472001
372300                                                                  35473001
372400                                                                  35474001
372500        COMPUTE NURSING-COMPONENT ROUNDED =                       35475001
372600                   (NUR-INDEX * IP-RATE).                         35476001
372700                                                                  35477001
372800                                                                  35478001
372900        COMPUTE THERAPY-COMPONENT ROUNDED =                       35479001
373000                   (THR-INDEX * REHAB-RATE).                      35480001
373100                                                                  35481001
373200        COMPUTE NCM-THR-COMPONENT ROUNDED =                       35482001
373300                   (FACTOR * NCM-THR-COMPONENT).                  35483001
373400                                                                  35484001
373500                                                                  35485001
373600        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       35486001
373700                   NURSING-COMPONENT +                            35487001
373800                   THERAPY-COMPONENT +                            35488001
373900                   NCM-THR-COMPONENT +                            35489001
374000                   NCM-COMPONENT.                                 35489101
374100                                                                  35489201
374200                                                                  35489301
374300        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        35489401
374400             (HLD-PAYMENT-RATE * PERCENT-2016-LABOR) *            35489501
374500               AREA-WAGE-INDEX.                                   35489601
374600                                                                  35489701
374700                                                                  35489801
374800                                                                  35489901
374900        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        35490001
375000               (HLD-PAYMENT-RATE * PERCENT-2016-NLABOR) +         35491001
375100                    PAYMENT-RATE-ADJ.                             35492001
375200                                                                  35493001
375300                                                                  35494001
375400     IF 'B20   ' = SNF-PRIN-DIAG-CODE   OR                        35495001
375500                   SNF-OTHER-DIAG-CODE2 OR                        35496001
375600                   SNF-OTHER-DIAG-CODE3 OR                        35497001
375700                   SNF-OTHER-DIAG-CODE4 OR                        35498001
375800                   SNF-OTHER-DIAG-CODE5 OR                        35499001
375900                   SNF-OTHER-DIAG-CODE6 OR                        35499101
376000                   SNF-OTHER-DIAG-CODE7 OR                        35499201
376100                   SNF-OTHER-DIAG-CODE8 OR                        35499301
376200                   SNF-OTHER-DIAG-CODE9  OR                       35499401
376300                   SNF-OTHER-DIAG-CODE10 OR                       35499501
376400                   SNF-OTHER-DIAG-CODE11 OR                       35499601
376500                   SNF-OTHER-DIAG-CODE12 OR                       35499701
376600                   SNF-OTHER-DIAG-CODE13 OR                       35499801
376700                   SNF-OTHER-DIAG-CODE14 OR                       35499901
376800                   SNF-OTHER-DIAG-CODE15 OR                       35500001
376900                   SNF-OTHER-DIAG-CODE16 OR                       35501001
377000                   SNF-OTHER-DIAG-CODE17 OR                       35502001
377100                   SNF-OTHER-DIAG-CODE18 OR                       35503001
377200                   SNF-OTHER-DIAG-CODE19 OR                       35504001
377300                   SNF-OTHER-DIAG-CODE20 OR                       35505001
377400                   SNF-OTHER-DIAG-CODE21 OR                       35506001
377500                   SNF-OTHER-DIAG-CODE22 OR                       35507001
377600                   SNF-OTHER-DIAG-CODE23 OR                       35508001
377700                   SNF-OTHER-DIAG-CODE24 OR                       35509001
377800                   SNF-OTHER-DIAG-CODE25                          35509101
377900                                                                  35509201
378000         COMPUTE HLD-PAYMENT-RATE ROUNDED =                       35509301
378100                 HLD-PAYMENT-RATE * 2.28                          35509401
378200         GO TO 2016-67-CONTINUE.                                  35509501
378300                                                                  35509601
378400 2016-67-CONTINUE.                                                35509701
378500                                                                  35509801
378600     IF SNF-FED-BLEND = 0                                         35509901
378700        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        35510001
378800                HLD-FACILITY-RATE * 1.00.                         35511001
378900                                                                  35512001
379000     IF SNF-FED-BLEND = 4                                         35513001
379100        MOVE HLD-PAYMENT-RATE  TO FED-PAYMENT-PORTION             35514001
379200        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        35515001
379300                HLD-PAYMENT-RATE * 1.00.                          35516001
379400                                                                  35517001
379500 2016-67-EXIT.                                                    35518001
379600     EXIT.                                                        35519001
                                                                        35519101
369100 2017-67-PAYMENT-RATE-CALC.                                       35519201
369200***************************************************************   35519301
369300*     PAYMENT RATE CALCULATION PROCCESS EFFECTIVE OCT.1, 2016     35519401
369400***************************************************************   35519501
369500                                                                  35519601
369600     IF HLD-CBSA = '     '                                        35519701
369700        MOVE '30'              TO HLD-RTC                         35519801
369800        GO TO 2017-67-EXIT.                                       35519901
369900                                                                  35520001
370000     MOVE 1                    TO R3.                             35521001
370100                                                                  35522001
370200     IF HLD-CBSA-RURAL-CHECK                                      35523001
370300        MOVE 1                 TO R2                              35524001
370400     ELSE                                                         35525001
370500        MOVE 2                 TO R2.                             35526001
370600                                                                  35527001
370700     PERFORM 917-SEARCH-4-RUG67-2017                              35528001
370800        THRU 917-SEARCH-EXIT.                                     35529001
370900                                                                  35529101
371000     IF HLD-RTC NOT = 00                                          35529201
371100        GO TO 2017-67-EXIT.                                       35529301
371200                                                                  35529401
371300     PERFORM 500-GET-RATES.                                       35529501
371400                                                                  35529601
371500     IF SNF-FED-BLEND = 0 OR 4                                    35529701
371600        NEXT SENTENCE                                             35529801
371700     ELSE                                                         35529901
371800        MOVE '60'              TO HLD-RTC                         35530001
371900        MOVE ALL '0'           TO HOLD-VAR-DATA                   35530101
372000        GO TO 2017-67-EXIT.                                       35530201
372100                                                                  35530301
372200                                                                  35530401
372300                                                                  35530501
372400                                                                  35530601
372500        COMPUTE NURSING-COMPONENT ROUNDED =                       35530701
372600                   (NUR-INDEX * IP-RATE).                         35530801
372700                                                                  35530901
372800                                                                  35531001
372900        COMPUTE THERAPY-COMPONENT ROUNDED =                       35531101
373000                   (THR-INDEX * REHAB-RATE).                      35531201
373100                                                                  35531301
373200        COMPUTE NCM-THR-COMPONENT ROUNDED =                       35531401
373300                   (FACTOR * NCM-THR-COMPONENT).                  35531501
373400                                                                  35531601
373500                                                                  35531701
373600        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       35531801
373700                   NURSING-COMPONENT +                            35531901
373800                   THERAPY-COMPONENT +                            35532001
373900                   NCM-THR-COMPONENT +                            35532101
374000                   NCM-COMPONENT.                                 35532201
374100                                                                  35532301
374200                                                                  35532401
374300        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        35532501
374400             (HLD-PAYMENT-RATE * PERCENT-2017-LABOR) *            35532601
374500               AREA-WAGE-INDEX.                                   35532701
374600                                                                  35532801
374700                                                                  35532901
374800                                                                  35533001
374900        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        35533101
375000               (HLD-PAYMENT-RATE * PERCENT-2017-NLABOR) +         35533201
375100                    PAYMENT-RATE-ADJ.                             35533301
375200                                                                  35533401
375300                                                                  35533501
375400     IF 'B20   ' = SNF-PRIN-DIAG-CODE   OR                        35533601
375500                   SNF-OTHER-DIAG-CODE2 OR                        35533701
375600                   SNF-OTHER-DIAG-CODE3 OR                        35533801
375700                   SNF-OTHER-DIAG-CODE4 OR                        35533901
375800                   SNF-OTHER-DIAG-CODE5 OR                        35534001
375900                   SNF-OTHER-DIAG-CODE6 OR                        35534101
376000                   SNF-OTHER-DIAG-CODE7 OR                        35534201
376100                   SNF-OTHER-DIAG-CODE8 OR                        35534301
376200                   SNF-OTHER-DIAG-CODE9  OR                       35534401
376300                   SNF-OTHER-DIAG-CODE10 OR                       35534501
376400                   SNF-OTHER-DIAG-CODE11 OR                       35534601
376500                   SNF-OTHER-DIAG-CODE12 OR                       35534701
376600                   SNF-OTHER-DIAG-CODE13 OR                       35534801
376700                   SNF-OTHER-DIAG-CODE14 OR                       35534901
376800                   SNF-OTHER-DIAG-CODE15 OR                       35535001
376900                   SNF-OTHER-DIAG-CODE16 OR                       35535101
377000                   SNF-OTHER-DIAG-CODE17 OR                       35535201
377100                   SNF-OTHER-DIAG-CODE18 OR                       35535301
377200                   SNF-OTHER-DIAG-CODE19 OR                       35535401
377300                   SNF-OTHER-DIAG-CODE20 OR                       35535501
377400                   SNF-OTHER-DIAG-CODE21 OR                       35535601
377500                   SNF-OTHER-DIAG-CODE22 OR                       35535701
377600                   SNF-OTHER-DIAG-CODE23 OR                       35535801
377700                   SNF-OTHER-DIAG-CODE24 OR                       35535901
377800                   SNF-OTHER-DIAG-CODE25                          35536001
377900                                                                  35536101
378000         COMPUTE HLD-PAYMENT-RATE ROUNDED =                       35536201
378100                 HLD-PAYMENT-RATE * 2.28                          35536301
378200         GO TO 2017-67-CONTINUE.                                  35536401
378300                                                                  35536501
378400 2017-67-CONTINUE.                                                35536601
378500                                                                  35536701
378600     IF SNF-FED-BLEND = 0                                         35536801
378700        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        35536901
378800                HLD-FACILITY-RATE * 1.00.                         35537001
378900                                                                  35537101
379000     IF SNF-FED-BLEND = 4                                         35537201
379100        MOVE HLD-PAYMENT-RATE  TO FED-PAYMENT-PORTION             35537301
379200        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        35537401
379300                HLD-PAYMENT-RATE * 1.00.                          35537501
379400                                                                  35537601
379500 2017-67-EXIT.                                                    35537701
379600     EXIT.                                                        35537801
379700                                                                  35537901
379700****----------------- ROUTINE MUST BE REPEATED FOR 2019 ----      35538001
379700                                                                  35538101
369100 2018-67-PAYMENT-RATE-CALC.                                       35538201
369200***************************************************************   35538301
369300*     PAYMENT RATE CALCULATION PROCCESS EFFECTIVE OCT.1, 2017     35538401
369400***************************************************************   35538501
369500                                                                  35538601
369600     IF HLD-CBSA = '     '                                        35538701
369700        MOVE '30'              TO HLD-RTC                         35538801
369800        GO TO 2018-67-EXIT.                                       35538901
369900                                                                  35539001
370000     MOVE 1                    TO R3.                             35539101
370100                                                                  35539201
370200     IF HLD-CBSA-RURAL-CHECK                                      35539301
370200        IF HLD-FED-BLEND-QRP-FAIL                                 35539401
370300             MOVE 3                 TO R2                         35539501
370500         ELSE                                                     35539601
370300             MOVE 1                 TO R2                         35539701
370500         END-IF                                                   35539801
370400     ELSE                                                         35539901
371500         IF HLD-FED-BLEND-QRP-FAIL                                35540001
370200             MOVE 4                 TO R2                         35541001
370500         ELSE                                                     35542001
370300             MOVE 2                 TO R2                         35543001
370500         END-IF                                                   35544001
370500     END-IF.                                                      35545001
370900                                                                  35546001
370900                                                                  35547001
370700     PERFORM 918-SEARCH-4-RUG67-2018                              35548001
370800        THRU 918-SEARCH-EXIT.                                     35549001
370900                                                                  35549101
371000     IF HLD-RTC NOT = 00                                          35549201
371100        GO TO 2018-67-EXIT.                                       35549301
371200                                                                  35549401
371300     PERFORM 500-GET-RATES.                                       35549501
371400                                                                  35549601
371500     IF SNF-FED-BLEND =  0 OR 1 OR 4                              35549701
371600        NEXT SENTENCE                                             35549801
371700     ELSE                                                         35549901
371800        MOVE '60'              TO HLD-RTC                         35550001
371900        MOVE ALL '0'           TO HOLD-VAR-DATA                   35551001
372000        GO TO 2018-67-EXIT.                                       35552001
372400                                                                  35553001
372500     COMPUTE NURSING-COMPONENT ROUNDED =                          35554001
372600                   (NUR-INDEX * IP-RATE).                         35555001
372700                                                                  35556001
372800                                                                  35557001
372900     COMPUTE THERAPY-COMPONENT ROUNDED =                          35558001
373000                   (THR-INDEX * REHAB-RATE).                      35559001
373100                                                                  35559101
373200     COMPUTE NCM-THR-COMPONENT ROUNDED =                          35559201
373300                   (FACTOR * NCM-THR-COMPONENT).                  35559301
373400                                                                  35559401
373500                                                                  35559501
373600     COMPUTE HLD-PAYMENT-RATE  ROUNDED =                          35559601
373700                   NURSING-COMPONENT +                            35559701
373800                   THERAPY-COMPONENT +                            35559801
373900                   NCM-THR-COMPONENT +                            35559901
374000                   NCM-COMPONENT.                                 35560001
374100                                                                  35561001
374200                                                                  35562001
374300     COMPUTE PAYMENT-RATE-ADJ ROUNDED =                           35563001
374400             (HLD-PAYMENT-RATE * PERCENT-2018-LABOR) *            35564001
374500               AREA-WAGE-INDEX.                                   35565001
374600                                                                  35566001
374700                                                                  35567001
374800                                                                  35568001
374900     COMPUTE HLD-PAYMENT-RATE ROUNDED =                           35569001
375000               (HLD-PAYMENT-RATE * PERCENT-2018-NLABOR) +         35569101
375100                    PAYMENT-RATE-ADJ.                             35569201
375300                                                                  35569301
375300*------------------------------------------------------           35569401
375300*   APPLY AIDS ADD-ON IF INDICATED BY PRIN DX CODE    *           35569501
375300*------------------------------------------------------           35569601
375300                                                                  35569701
375400     IF 'B20   ' = SNF-PRIN-DIAG-CODE   OR                        35569801
375500                   SNF-OTHER-DIAG-CODE2 OR                        35569901
375600                   SNF-OTHER-DIAG-CODE3 OR                        35570001
375700                   SNF-OTHER-DIAG-CODE4 OR                        35571001
375800                   SNF-OTHER-DIAG-CODE5 OR                        35572001
375900                   SNF-OTHER-DIAG-CODE6 OR                        35573001
376000                   SNF-OTHER-DIAG-CODE7 OR                        35574001
376100                   SNF-OTHER-DIAG-CODE8 OR                        35575001
376200                   SNF-OTHER-DIAG-CODE9  OR                       35576001
376300                   SNF-OTHER-DIAG-CODE10 OR                       35577001
376400                   SNF-OTHER-DIAG-CODE11 OR                       35578001
376500                   SNF-OTHER-DIAG-CODE12 OR                       35579001
376600                   SNF-OTHER-DIAG-CODE13 OR                       35579101
376700                   SNF-OTHER-DIAG-CODE14 OR                       35579201
376800                   SNF-OTHER-DIAG-CODE15 OR                       35579301
376900                   SNF-OTHER-DIAG-CODE16 OR                       35579401
377000                   SNF-OTHER-DIAG-CODE17 OR                       35579501
377100                   SNF-OTHER-DIAG-CODE18 OR                       35579601
377200                   SNF-OTHER-DIAG-CODE19 OR                       35579701
377300                   SNF-OTHER-DIAG-CODE20 OR                       35579801
377400                   SNF-OTHER-DIAG-CODE21 OR                       35579901
377500                   SNF-OTHER-DIAG-CODE22 OR                       35580001
377600                   SNF-OTHER-DIAG-CODE23 OR                       35581001
377700                   SNF-OTHER-DIAG-CODE24 OR                       35582001
377800                   SNF-OTHER-DIAG-CODE25                          35583001
377900                                                                  35584001
378000         COMPUTE HLD-PAYMENT-RATE ROUNDED =                       35585001
378100                 HLD-PAYMENT-RATE * AIDS-ADD-ON-MULTIPLIER.       35586001
378200         GO TO 2018-67-CONTINUE.                                  35587001
378300                                                                  35588001
378400 2018-67-CONTINUE.                                                35589001
378500                                                                  35589101
378600     IF SNF-FED-BLEND = 0                                         35589201
378700        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        35589301
378800                HLD-FACILITY-RATE * 1.00.                         35589401
378900                                                                  35589501
379000     IF SNF-FED-BLEND = 4                                         35589601
379100        MOVE HLD-PAYMENT-RATE  TO FED-PAYMENT-PORTION             35589701
379200        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        35589801
379300                HLD-PAYMENT-RATE * 1.00.                          35589901
378900*                                                                 35590001
379400                                                                  35590101
379500 2018-67-EXIT.                                                    35590201
379600     EXIT.                                                        35590301
379700                                                                  35590401
379700****---------------ROUTINE MUST BE REPEATED FOR 2020              35590501
379700                                                                  35590601
369100 2019-67-PAYMENT-RATE-CALC.                                       35590701
369200***************************************************************   35590801
369300*     PAYMENT RATE CALCULATION PROCCESS EFFECTIVE OCT.1, 2018     35590901
369400***************************************************************   35591001
369500                                                                  35591101
369600     IF HLD-CBSA = '     '                                        35591201
369700        MOVE '30'              TO HLD-RTC                         35591301
369800        GO TO 2019-67-EXIT.                                       35591401
369900                                                                  35591501
370000     MOVE 1                    TO R3.                             35591601
370100                                                                  35591701
370200     IF HLD-CBSA-RURAL-CHECK                                      35591801
370200        IF HLD-FED-BLEND-QRP-FAIL                                 35591901
370300             MOVE 3                 TO R2                         35592001
370500         ELSE                                                     35592101
370300             MOVE 1                 TO R2                         35592201
370500         END-IF                                                   35592301
370400     ELSE                                                         35592401
371500         IF HLD-FED-BLEND-QRP-FAIL                                35592501
370200             MOVE 4                 TO R2                         35592601
370500         ELSE                                                     35592701
370300             MOVE 2                 TO R2                         35592801
370500         END-IF                                                   35592901
370500     END-IF.                                                      35593001
370900                                                                  35593101
370900                                                                  35593201
370700     PERFORM 919-SEARCH-4-RUG67-2019                              35593301
370800        THRU 919-SEARCH-EXIT.                                     35593401
370900                                                                  35593501
371000     IF HLD-RTC NOT = 00                                          35593601
371100        GO TO 2019-67-EXIT.                                       35593701
371200                                                                  35593801
371300     PERFORM 500-GET-RATES.                                       35593901
371400                                                                  35594001
371500     IF SNF-FED-BLEND =  0 OR 1 OR 4                              35595001
371600        NEXT SENTENCE                                             35596001
371700     ELSE                                                         35596101
371800        MOVE '60'              TO HLD-RTC                         35596201
371900        MOVE ALL '0'           TO HOLD-VAR-DATA                   35596301
372000        GO TO 2019-67-EXIT.                                       35596401
372400                                                                  35596501
372500     COMPUTE NURSING-COMPONENT ROUNDED =                          35596601
372600                   (NUR-INDEX * IP-RATE).                         35596701
372700                                                                  35596801
372800                                                                  35596901
372900     COMPUTE THERAPY-COMPONENT ROUNDED =                          35597001
373000                   (THR-INDEX * REHAB-RATE).                      35597101
373100                                                                  35597201
373200     COMPUTE NCM-THR-COMPONENT ROUNDED =                          35597301
373300                   (FACTOR * NCM-THR-COMPONENT).                  35597401
373400                                                                  35597501
373500                                                                  35597601
373600     COMPUTE HLD-PAYMENT-RATE  ROUNDED =                          35597701
373700                   NURSING-COMPONENT +                            35597801
373800                   THERAPY-COMPONENT +                            35597901
373900                   NCM-THR-COMPONENT +                            35598001
374000                   NCM-COMPONENT.                                 35598101
374100                                                                  35598201
374200                                                                  35598301
374300     COMPUTE PAYMENT-RATE-ADJ ROUNDED =                           35598401
374400             (HLD-PAYMENT-RATE * PERCENT-2019-LABOR) *            35598501
374500               AREA-WAGE-INDEX.                                   35598601
374600                                                                  35598701
374700                                                                  35598801
374800                                                                  35598901
374900     COMPUTE HLD-PAYMENT-RATE ROUNDED =                           35599001
375000               (HLD-PAYMENT-RATE * PERCENT-2019-NLABOR) +         35599101
375100                    PAYMENT-RATE-ADJ.                             35599201
375300                                                                  35599301
375300*------------------------------------------------------           35599401
375300*   APPLY AIDS ADD-ON IF INDICATED BY PRIN DX CODE    *           35599501
375300*------------------------------------------------------           35599601
375300                                                                  35599701
375400     IF 'B20   ' = SNF-PRIN-DIAG-CODE   OR                        35599801
375500                   SNF-OTHER-DIAG-CODE2 OR                        35599901
375600                   SNF-OTHER-DIAG-CODE3 OR                        35600001
375700                   SNF-OTHER-DIAG-CODE4 OR                        35600101
375800                   SNF-OTHER-DIAG-CODE5 OR                        35600201
375900                   SNF-OTHER-DIAG-CODE6 OR                        35600301
376000                   SNF-OTHER-DIAG-CODE7 OR                        35600401
376100                   SNF-OTHER-DIAG-CODE8 OR                        35600501
376200                   SNF-OTHER-DIAG-CODE9  OR                       35600601
376300                   SNF-OTHER-DIAG-CODE10 OR                       35600701
376400                   SNF-OTHER-DIAG-CODE11 OR                       35600801
376500                   SNF-OTHER-DIAG-CODE12 OR                       35600901
376600                   SNF-OTHER-DIAG-CODE13 OR                       35601001
376700                   SNF-OTHER-DIAG-CODE14 OR                       35601101
376800                   SNF-OTHER-DIAG-CODE15 OR                       35601201
376900                   SNF-OTHER-DIAG-CODE16 OR                       35601301
377000                   SNF-OTHER-DIAG-CODE17 OR                       35601401
377100                   SNF-OTHER-DIAG-CODE18 OR                       35601501
377200                   SNF-OTHER-DIAG-CODE19 OR                       35601601
377300                   SNF-OTHER-DIAG-CODE20 OR                       35601701
377400                   SNF-OTHER-DIAG-CODE21 OR                       35601801
377500                   SNF-OTHER-DIAG-CODE22 OR                       35601901
377600                   SNF-OTHER-DIAG-CODE23 OR                       35602001
377700                   SNF-OTHER-DIAG-CODE24 OR                       35603001
377800                   SNF-OTHER-DIAG-CODE25                          35604001
377900                                                                  35605001
378000         COMPUTE HLD-PAYMENT-RATE ROUNDED =                       35606001
378100                 HLD-PAYMENT-RATE * AIDS-ADD-ON-MULTIPLIER.       35607001
378200         GO TO 2019-67-CONTINUE.                                  35608001
378300                                                                  35609001
378400 2019-67-CONTINUE.                                                35609101
378500                                                                  35609201
378600     IF SNF-FED-BLEND = 0                                         35609301
378700        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        35609401
378800                HLD-FACILITY-RATE * 1.00.                         35609501
378900                                                                  35609601
379000     IF SNF-FED-BLEND = 4                                         35609701
379100        MOVE HLD-PAYMENT-RATE  TO FED-PAYMENT-PORTION             35609801
379200        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        35609901
379300                HLD-PAYMENT-RATE * 1.00.                          35610001
378900*                                                                 35611001
375300                                                                  35612001
375300*------------------------------------------------------           35613001
375300*   APPLY VBP USING THE VBP-MULTIPLIER &              *           35614001
375300*   DEVELOP THE VBP-PAY-DIFF                          *           35615001
375300*------------------------------------------------------           35615101
375300                                                                  35615201
369500                                                                  35615301
369600     IF VBP-MULTIPLIER = ZEROES                                   35615401
369700        MOVE '70'              TO HLD-RTC                         35615501
369800        GO TO 2019-67-EXIT.                                       35615601
369900                                                                  35615701
379100     MOVE HLD-PAYMENT-RATE     TO INITIAL-PAYMENT-RATE.           35615801
378900*                                                                 35615901
379200     COMPUTE VBP-ADJ-PYMT-RATE ROUNDED =                          35616001
379300             HLD-PAYMENT-RATE * HLD-VBP-MULTIPLIER.               35616101
378900*                                                                 35616201
378900*                                                                 35616301
379200     COMPUTE HLD-VBP-PAY-DIFF ROUNDED =                           35616401
379200             VBP-ADJ-PYMT-RATE - INITIAL-PAYMENT-RATE.            35616501
378900*                                                                 35616601
378900*                                                                 35616701
379100     MOVE VBP-ADJ-PYMT-RATE    TO HLD-PAYMENT-RATE.               35616801
379300                                                                  35616901
378900*                                                                 35617001
379400                                                                  35617101
379500 2019-67-EXIT.                                                    35617201
379600     EXIT.                                                        35617301
379700                                                                  35617401
379800******        L A S T   S O U R C E   S T A T E M E N T   *****   35617501
