000100 IDENTIFICATION DIVISION.                                         00010009
000200 PROGRAM-ID.      SNFPR181.                                       00020009
000300*AUTHOR.                 CMS.                                     00030009
000400*                                                                 00040009
000500*                                                                 00050009
000600*REMARKS. (CENTERS FOR MEDICARE AND MEDICAID SERVICES)            00060009
000700***         - CICS VERSION RELEASED FOR JULY 1 2006               00070009
000800***         - NATIONAL SNF PRICER FOR ALL YEARS                   00080009
000900***         - NATIONAL SNF PRICER EFFECTIVE JULY 1, 1998          00090009
001000***         - SNF PRICER REFERS TO A PROGRAM WHICH WILL           00100009
001100***           CALCULATE THE DAILY MEDICARE RATE UPON WHICH THE    00110009
001200***           MEDICARE SNF PPS PAYMENT IS MADE. PRICER USES THE   00120009
001300***           FACILITY'S PSF RATE, MSA AND BLEND INDICATOR WITH   00130009
001400***           THE 'STATEMENT COVERS THROUGH DATE' ON THE CLAIM AND00140009
001500***           HCPPS RATE CODE TO CALCULATE THE HCPPS RATES.       00150009
001600***************************************************************   00160009
001700******************************************************************00161009
001800*     SNFPR16A   EFFECTIVE OCT 1, 2015                            00162009
001900*                KEEP CBSA FILE FOR FY2016                        00163009
002000*                ICD10 TESTING SNF CALC MODULE  - SNFPR160        00164009
002100******************************************************************00165009
001700******************************************************************00166009
001800*     SNFPR160   EFFECTIVE OCT 1, 2015                            00167009
001900*                KEEP CBSA FILE FOR FY2016                        00168009
002000*                ICD10 TESTING SNF CALC MODULE  - SNFPR160        00169009
002100******************************************************************00169109
001700******************************************************************00169209
001800*     SNFPR170   EFFECTIVE OCT 1, 2016                            00169309
001900*                KEEP CBSA FILE FOR FY2017                        00169409
002000*                SNF CALC MODULE  - SNFPR170                      00169509
002100******************************************************************00169609
001700******************************************************************00169709
001800*     SNFPR180   EFFECTIVE OCT 1, 2017                            00169809
001900*                KEEP CBSA FILE FOR FY2017                        00169909
002000*                SNF CALC MODULE  - SNFPR180                      00170009
002100******************************************************************00170109
002200***************************************************************   00170209
001800*     SNFPR181   EFFECTIVE OCT 1, 2017                            00170309
001900*                KEEP CBSA FILE FOR FY2017                        00170409
002000*                SNF CALC MODULE  - SNFPR181                      00170509
002000*                ADD QRP PENALTY LOGIC - SNFPR181                 00170609
002100******************************************************************00170709
002300 DATE-COMPILED.                                                   00170809
002400 ENVIRONMENT DIVISION.                                            00170909
002500 CONFIGURATION SECTION.                                           00171009
002600 SOURCE-COMPUTER.            IBM-370.                             00171109
002700 OBJECT-COMPUTER.            IBM-370.                             00171209
002800 INPUT-OUTPUT  SECTION.                                           00171309
002900 FILE-CONTROL.                                                    00171409
003000                                                                  00171509
003100 DATA DIVISION.                                                   00172009
003200 FILE SECTION.                                                    00173009
003300                                                                  00174009
003400 WORKING-STORAGE SECTION.                                         00175009
003500 01  W-STORAGE-REF                  PIC X(46)  VALUE              00176009
003600     'SNFPR181    - W O R K I N G   S T O R A G E'.               00177015
003700 01  CAL-VERSION                    PIC X(09)  VALUE 'SNFPR18.1'. 00178013
003800 01  R1                             PIC S9(04) COMP SYNC.         00179009
003900 01  R2                             PIC S9(04) COMP SYNC.         00180009
004000 01  R3                             PIC S9(04) COMP SYNC.         00190009
004100 01  LABOR-NLABOR-PERCENT.                                        00200009
004200     05 PERCENT-1999-LABOR     PIC 9V99999 VALUE 0.75888.         00210009
004300     05 PERCENT-1999-NLABOR    PIC 9V99999 VALUE 0.24112.         00220009
004400     05 PERCENT-2000-LABOR     PIC 9V99999 VALUE 0.77545.         00230009
004500     05 PERCENT-2000-NLABOR    PIC 9V99999 VALUE 0.22455.         00240009
004600     05 PERCENT-2001-LABOR     PIC 9V99999 VALUE 0.77870.         00250009
004700     05 PERCENT-2001-NLABOR    PIC 9V99999 VALUE 0.22130.         00260009
004800     05 PERCENT-2002-LABOR     PIC 9V99999 VALUE 0.75379.         00270009
004900     05 PERCENT-2002-NLABOR    PIC 9V99999 VALUE 0.24621.         00280009
005000     05 PERCENT-2003-LABOR     PIC 9V99999 VALUE 0.76128.         00290009
005100     05 PERCENT-2003-NLABOR    PIC 9V99999 VALUE 0.23872.         00300009
005200     05 PERCENT-2004-LABOR     PIC 9V99999 VALUE 0.76372.         00310009
005300     05 PERCENT-2004-NLABOR    PIC 9V99999 VALUE 0.23628.         00320009
005400     05 PERCENT-2005-LABOR     PIC 9V99999 VALUE 0.76222.         00330009
005500     05 PERCENT-2005-NLABOR    PIC 9V99999 VALUE 0.23778.         00340009
005600     05 PERCENT-2006-LABOR     PIC 9V99999 VALUE 0.75922.         00350009
005700     05 PERCENT-2006-NLABOR    PIC 9V99999 VALUE 0.24078.         00360009
005800     05 PERCENT-2007-LABOR     PIC 9V99999 VALUE 0.75839.         00370009
005900     05 PERCENT-2007-NLABOR    PIC 9V99999 VALUE 0.24161.         00380009
006000     05 PERCENT-2008-LABOR     PIC 9V99999 VALUE 0.70249.         00390009
006100     05 PERCENT-2008-NLABOR    PIC 9V99999 VALUE 0.29751.         00400009
006200**************YEARCHANGE 2009.0 *******************************   00410009
006300     05 PERCENT-2009-LABOR     PIC 9V99999 VALUE 0.69783.         00420009
006400     05 PERCENT-2009-NLABOR    PIC 9V99999 VALUE 0.30217.         00430009
006500**************YEARCHANGE 2009.0 *******************************   00440009
006600**************YEARCHANGE 2010.0 *******************************   00450015
006700     05 PERCENT-2010-LABOR     PIC 9V99999 VALUE 0.69840.         00460009
006800     05 PERCENT-2010-NLABOR    PIC 9V99999 VALUE 0.30160.         00470009
006900**************YEARCHANGE 2010.0 *******************************   00480009
007000**************YEARCHANGE 2011.2 *******************************   00490009
007100     05 PERCENT-2011-LABOR     PIC 9V99999 VALUE 0.69311.         00500009
007200     05 PERCENT-2011-NLABOR    PIC 9V99999 VALUE 0.30689.         00510009
007300**************YEARCHANGE 2011.2 *******************************   00520009
007400**************YEARCHANGE 2012.0 *******************************   00530009
007500     05 PERCENT-2012-LABOR     PIC 9V99999 VALUE 0.68693.         00540009
007600     05 PERCENT-2012-NLABOR    PIC 9V99999 VALUE 0.31307.         00550009
007700**************YEARCHANGE 2012.0 *******************************   00560009
007800**************YEARCHANGE 2013.0 *******************************   00570009
007900     05 PERCENT-2013-LABOR     PIC 9V99999 VALUE 0.68383.         00580009
008000     05 PERCENT-2013-NLABOR    PIC 9V99999 VALUE 0.31617.         00590009
008100**************YEARCHANGE 2013.0 *******************************   00600009
008200**************YEARCHANGE 2014.0 *******************************   00610009
008300     05 PERCENT-2014-LABOR     PIC 9V99999 VALUE 0.69545.         00620009
008400     05 PERCENT-2014-NLABOR    PIC 9V99999 VALUE 0.30455.         00630009
008500**************YEARCHANGE 2014.0 *******************************   00640009
008600**************YEARCHANGE 2015.0 *******************************   00650009
008700     05 PERCENT-2015-LABOR     PIC 9V99999 VALUE 0.69180.         00660009
008800     05 PERCENT-2015-NLABOR    PIC 9V99999 VALUE 0.30820.         00670009
008900**************YEARCHANGE 2015.0 *******************************   00680009
009000**************YEARCHANGE 2016.0 *******************************   00690009
009100     05 PERCENT-2016-LABOR     PIC 9V99999 VALUE 0.69100.         00700009
009200     05 PERCENT-2016-NLABOR    PIC 9V99999 VALUE 0.30900.         00710009
009300**************YEARCHANGE 2016.0 *******************************   00720009
009000**************YEARCHANGE 2017.0 *******************************   00730009
009100     05 PERCENT-2017-LABOR     PIC 9V99999 VALUE 0.68800.         00740009
009200     05 PERCENT-2017-NLABOR    PIC 9V99999 VALUE 0.31200.         00750009
009300**************YEARCHANGE 2017.0 *******************************   00760009
009000**************YEARCHANGE 2018.0 *******************************   00770009
009100     05 PERCENT-2018-LABOR     PIC 9V99999 VALUE 0.70800.         00780009
009200     05 PERCENT-2018-NLABOR    PIC 9V99999 VALUE 0.29200.         00790009
009300**************YEARCHANGE 2018.0 *******************************   00800009
009400                                                                  00805009
009500 01  WK-PAYMENT-RATE           PIC 9(06)V99 VALUE 0.              00806009
009600 01  WK-FACILITY-RATE          PIC 9(06)V99 VALUE 0.              00807009
009600 01  AIDS-ADD-ON-MULTIPLIER    PIC 9(02)V99 VALUE 02.28.          00808010
009700                                                                  00810009
009800 01  HLD-PRICE-FROM-DATE.                                         00820009
009900     10  HLD-PRICE-FROM-CC     PIC XX.                            00830009
010000     10  HLD-PRICE-FROM-YY     PIC XX.                            00840009
010100     10  HLD-PRICE-FROM-MMDD   PIC XXXX.                          00850009
010200                                                                  00860009
010300 01  HLD-PRICE-THRU-DATE.                                         00870009
010400     10  HLD-PRICE-THRU-CC     PIC XX.                            00880009
010500     10  HLD-PRICE-THRU-YY     PIC XX.                            00890009
010600     10  HLD-PRICE-THRU-MMDD   PIC XXXX.                          00900009
010700                                                                  00910009
010800 01  HOLD-SNF-DATA.                                               00920009
010900     10  HLD-MSA.                                                 00930009
011000         15  HLD-MSA-1ST       PIC XX.                            00940009
011100             88  HLD-MSA-RURAL-CHECK VALUE '  '.                  00950009
011200         15  HLD-MSA-2ND       PIC XX.                            00960009
011300     10  HLD-CBSA.                                                00970009
011400         15  HLD-CBSA-1ST      PIC XXX.                           00980009
011500             88  HLD-CBSA-RURAL-CHECK     VALUE '   ' '999'.      00990009
011600         15  HLD-CBSA-2ND      PIC XX.                            01000009
011700     10  HLD-SPEC-WI-IND       PIC X.                             01010009
011800     10  HLD-SPEC-WI           PIC 9(02)V9(04).                   01020009
011900     10  HLD-RUG-CODE.                                            01030009
012000         15  HLD-RUG           PIC XXX.                           01040009
012100         15  HLD2-RUG REDEFINES HLD-RUG.                          01050009
012200             20  HLD-RUG-POS12 PIC XX.                            01060009
012300             20  HLD-RUG-POS3  PIC 9.                             01070009
012400         15  FILLER            PIC XX.                            01080009
012500     10  HLD-FROM-DATE.                                           01090009
012600         15  HLD-FROM-CC       PIC XX.                            01100009
012700         15  HLD-FROM-YY       PIC XX.                            01110009
012800         15  HLD-FROM-MMDD     PIC XXXX.                          01120009
012900     10  HLD-THRU-DATE.                                           01130009
013000         15  HLD-THRU-CC       PIC XX.                            01140009
013100         15  HLD-THRU-YY       PIC XX.                            01150009
013200         15  HLD-THRU-MMDD     PIC XXXX.                          01160009
013300     10  HLD-FED-BLEND         PIC X.                             01170009
013400         88  HLD-ALL-FACILITY        VALUE '0'.                   01180013
013500         88  HLD-FED-BLEND-QRP-FAIL  VALUE '1'.                   01190013
013600         88  HLD-FED-BLEND-5050PER   VALUE '2'.                   01200013
013700         88  HLD-FED-BLEND-7525PER   VALUE '3'.                   01210013
013800         88  HLD-FED-BLEND-100PER    VALUE '4'.                   01220013
013900                                                                  01230009
014000     10  HLD-FACILITY-RATE     PIC 99999V99.                      01240009
014100                                                                  01250009
014200     10  HLD-DIAGNOSIS-CODES.                                     01260009
014300         15  HLD-PRIN-DIAG-CODE     PIC X(07).                    01270009
014400         15  HLD-OTHER-DIAG-CODE2   PIC X(07).                    01280009
014500         15  HLD-OTHER-DIAG-CODE3   PIC X(07).                    01290009
014600         15  HLD-OTHER-DIAG-CODE4   PIC X(07).                    01300009
014700         15  HLD-OTHER-DIAG-CODE5   PIC X(07).                    01310009
014800         15  HLD-OTHER-DIAG-CODE6   PIC X(07).                    01320009
014900         15  HLD-OTHER-DIAG-CODE7   PIC X(07).                    01330009
015000         15  HLD-OTHER-DIAG-CODE8   PIC X(07).                    01340009
015100         15  HLD-OTHER-DIAG-CODE9   PIC X(07).                    01350009
015200         15  HLD-OTHER-DIAG-CODE10  PIC X(07).                    01360009
015300         15  HLD-OTHER-DIAG-CODE11  PIC X(07).                    01370009
015400         15  HLD-OTHER-DIAG-CODE12  PIC X(07).                    01380009
015500         15  HLD-OTHER-DIAG-CODE13  PIC X(07).                    01390009
015600         15  HLD-OTHER-DIAG-CODE14  PIC X(07).                    01400009
015700         15  HLD-OTHER-DIAG-CODE15  PIC X(07).                    01410009
015800         15  HLD-OTHER-DIAG-CODE16  PIC X(07).                    01420009
015900         15  HLD-OTHER-DIAG-CODE17  PIC X(07).                    01430009
016000         15  HLD-OTHER-DIAG-CODE18  PIC X(07).                    01440009
016100         15  HLD-OTHER-DIAG-CODE19  PIC X(07).                    01450009
016200         15  HLD-OTHER-DIAG-CODE20  PIC X(07).                    01460009
016300         15  HLD-OTHER-DIAG-CODE21  PIC X(07).                    01470009
016400         15  HLD-OTHER-DIAG-CODE22  PIC X(07).                    01480009
016500         15  HLD-OTHER-DIAG-CODE23  PIC X(07).                    01490009
016600         15  HLD-OTHER-DIAG-CODE24  PIC X(07).                    01500009
016700         15  HLD-OTHER-DIAG-CODE25                                01510009
016800                               PIC X(07).                         01520009
016900     10  HLD-RATE-RTC.                                            01530009
017000         15  HLD-PAYMENT-RATE  PIC 9(06)V99.                      01540009
017100         15  HLD-RTC           PIC XX.                            01550009
017200     10  HLD-FILLER                PIC X(24).                     01560009
017300                                                                  01570009
017400***************************************************************   01580009
017500*    LAYUP TABLE AREA FOR REGIONS                             *   01590009
017600*  FORMAT FOR RATE TABLE 1998 AND 1999 FOR JULY 1 1998        *   01600009
017700*  FORMAT FOR RATE TABLE 2000 FOR OCT 1, 1999                 *   01610009
017800*  FORMAT FOR RATE TABLE 2001 FOR OCT 1, 2000                 *   01620009
017900*  FORMAT FOR RATE TABLE 2001 FOR APR 1, 2001                 *   01630009
018000*  FORMAT FOR RATE TABLE 2002 FOR OCT 1, 2001                 *   01640009
018100*  FORMAT FOR RATE TABLE 2003 FOR OCT 1, 2002                 *   01650009
018200*  FORMAT FOR RATE TABLE 2004 FOR OCT 1, 2003                 *   01660009
018300*  FORMAT FOR RATE TABLE 2005 FOR OCT 1, 2004                 *   01670009
018400*  FORMAT FOR RATE TABLE 2006 FOR OCT 1, 2005                 *   01680009
018500*  FORMAT FOR RATE TABLE 2007 FOR OCT 1, 2006                 *   01690009
018600*  FORMAT FOR RATE TABLE 2008 FOR OCT 1, 2007                 *   01700009
018700*  FORMAT FOR RATE TABLE 2009 FOR OCT 1, 2008                 *   01710009
018800*  FORMAT FOR RATE TABLE 2010 FOR OCT 1, 2009                 *   01720009
018900*  FORMAT FOR RATE TABLE 2011 FOR OCT 1, 2010                 *   01730009
019000*  FORMAT FOR RATE TABLE 2012 FOR OCT 1, 2011                 *   01740009
019100*  FORMAT FOR RATE TABLE 2013 FOR OCT 1, 2012                 *   01750009
019200*  FORMAT FOR RATE TABLE 2014 FOR OCT 1, 2013                 *   01760009
019200*  FORMAT FOR RATE TABLE 2015 FOR OCT 1, 2014                 *   01770009
019200*  FORMAT FOR RATE TABLE 2016 FOR OCT 1, 2015                 *   01780009
019200*  FORMAT FOR RATE TABLE 2017 FOR OCT 1, 2016                 *   01781013
019300*  REGION = ( 1 = RURAL  2 = URBAN ) RATES                    *   01790009
019400***************************************************************   01800009
019500 01  REGION-TABLE.                                                01810009
019600     02  REGION-DATA.                                             01820009
019700*  TABLE RATE FOR FY1998 AND 1999                                 01830009
019800*  19980701/               REGION/ INP / GEN SER / THER / REHAB   01840009
019900     05  FILLER    PIC X(08) VALUE '19980701'.                    01850009
020000     05  FILLER    PIC X(25) VALUE '1 10488 05695 01166 09551'.   01860009
020100     05  FILLER    PIC X(25) VALUE '2 10948 05588 01091 08267'.   01870009
020200*  TABLE RATE FOR FY2000                                          01880009
020300*  19991001/               REGION/ INP / GEN SER / THER / REHAB   01890009
020400     05  FILLER    PIC X(08) VALUE '19991001'.                    01900009
020500     05  FILLER    PIC X(25) VALUE '1 10712 05825 01188 09733'.   01910009
020600     05  FILLER    PIC X(25) VALUE '2 11189 05720 01112 08425'.   01920009
020700*  TABLE RATE FOR FY2001                                          01930009
020800*  20001001/               REGION/ INP / GEN SER / THER / REHAB   01940009
020900     05  FILLER    PIC X(08) VALUE '20001001'.                    01950009
021000     05  FILLER    PIC X(25) VALUE '1 10929 05945 01213 09934'.   01960009
021100     05  FILLER    PIC X(25) VALUE '2 11438 05838 01135 08616'.   01970009
021200*  TABLE RATE FOR FY2001 EFFECTIVE APR 1, 2001                    01980009
021300*  20010401/               REGION/ INP / GEN SER / THER / REHAB   01990009
021400     05  FILLER    PIC X(08) VALUE '20010401'.                    02000009
021500     05  FILLER    PIC X(25) VALUE '1 12999 06062 01236 10129'.   02010009
021600     05  FILLER    PIC X(25) VALUE '2 13605 05953 01157 08784'.   02020009
021700*  TABLE RATE FOR FY2002 EFFECTIVE OCT 1, 2001                    02030009
021800*  20011001/               REGION/ INP / GEN SER / THER / REHAB   02040009
021900     05  FILLER    PIC X(08) VALUE '20011001'.                    02050009
022000     05  FILLER    PIC X(25) VALUE '1 13213 06162 01256 10296'.   02060009
022100     05  FILLER    PIC X(25) VALUE '2 13829 06050 01176 08929'.   02070009
022200*  TABLE RATE FOR FY2003 EFFECTIVE OCT 1, 2002                    02080009
022300*  20021001/               REGION/ INP / GEN SER / THER / REHAB   02090009
022400     05  FILLER    PIC X(08) VALUE '20021001'.                    02100009
022500     05  FILLER    PIC X(25) VALUE '1 11617 06320 01288 10561'.   02110009
022600     05  FILLER    PIC X(25) VALUE '2 12159 06205 01206 09158'.   02120009
024300**************YEARCHANGE 2004.0 *******************************   02130009
022700*  TABLE RATE FOR FY2004 EFFECTIVE OCT 1, 2003                    02140009
022800*  20031001/               REGION/ INP / GEN SER / THER / REHAB   02150009
022900     05  FILLER    PIC X(08) VALUE '20031001'.                    02160009
023000     05  FILLER    PIC X(25) VALUE '1 12374 06733 01372 11250'.   02170009
023100     05  FILLER    PIC X(25) VALUE '2 12952 06610 01285 09756'.   02180009
024300**************YEARCHANGE 2005.0 *******************************   02190009
023200*  TABLE RATE FOR FY2005 EFFECTIVE OCT 1, 2004                    02200009
023300*  20041001/               REGION/ INP / GEN SER / THER / REHAB   02210009
023400     05  FILLER    PIC X(08) VALUE '20041001'.                    02220009
023500     05  FILLER    PIC X(25) VALUE '1 12734 06929 01412 11578'.   02230009
023600     05  FILLER    PIC X(25) VALUE '2 13329 06803 01322 10040'.   02240009
023700**************YEARCHANGE 2006.0 *******************************   02250009
023800*  TABLE RATE FOR FY2006 EFFECTIVE OCT 1, 2005                    02260009
023900*  20051001/               REGION/ INP / GEN SER / THER / REHAB   02270009
024000     05  FILLER    PIC X(08) VALUE '20051001'.                    02280009
024100     05  FILLER    PIC X(25) VALUE '1 13145 07152 01458 11951'.   02290009
024200     05  FILLER    PIC X(25) VALUE '2 13759 07022 01365 10364'.   02300009
024300**************YEARCHANGE 2007.0 *******************************   02310009
024400*  TABLE RATE FOR FY2007 EFFECTIVE OCT 1, 2006                    02320009
024500*  20061001/               REGION/ INP / GEN SER / THER / REHAB   02330009
024600     05  FILLER    PIC X(08) VALUE '20061001'.                    02340009
024700     05  FILLER    PIC X(25) VALUE '1 13570 07383 01505 12337'.   02350009
024800     05  FILLER    PIC X(25) VALUE '2 14204 07249 01409 10699'.   02360009
024900**************YEARCHANGE 2008.0 *******************************   02370009
025000*  TABLE RATE FOR FY2008 EFFECTIVE OCT 2, 2007                    02380009
025100*  20071001/               REGION/ INP / GEN SER / THER / REHAB   02390009
025200     05  FILLER    PIC X(08) VALUE '20071001'.                    02400009
025300     05  FILLER    PIC X(25) VALUE '1 14008 07621 01554 12735'.   02410009
025400     05  FILLER    PIC X(25) VALUE '2 14662 07483 01454 11044'.   02420009
025500**************YEARCHANGE 2009.0 *******************************   02430009
025600*  TABLE RATE FOR FY2009 EFFECTIVE OCT 1, 2008                    02440009
025700*  20081001/               REGION/ INP / GEN SER / THER / REHAB   02450009
025800     05  FILLER    PIC X(08) VALUE '20081001'.                    02460009
025900     05  FILLER    PIC X(25) VALUE '1 14497 07887 01608 13180'.   02470009
026000     05  FILLER    PIC X(25) VALUE '2 15174 07744 01505 11430'.   02480009
026100**************YEARCHANGE 2009.0 *******************************   02490009
026200**************YEARCHANGE 2010.0 *******************************   02500009
026300*  TABLE RATE FOR FY2009 EFFECTIVE OCT 2, 2009                    02510009
026400*  20091001/               REGION/ INP / GEN SER / THER / REHAB   02520009
026500     05  FILLER    PIC X(08) VALUE '20091001'.                    02530009
026600     05  FILLER    PIC X(25) VALUE '1 14831 08069 01645 13483'.   02540009
026700     05  FILLER    PIC X(25) VALUE '2 15523 07922 01540 11693'.   02550009
026800**************YEARCHANGE 2010.0 *******************************   02560009
026900**************YEARCHANGE 2011.0 *******************************   02570009
027000*  TABLE RATE FOR FY2009 EFFECTIVE OCT 2, 2009                    02580009
027100*  20091001/               REGION/ INP / GEN SER / THER / REHAB   02590009
027200     05  FILLER    PIC X(08) VALUE '20101001'.                    02600009
027300     05  FILLER    PIC X(25) VALUE '1 15079 08204 01672 13708'.   02610009
027400     05  FILLER    PIC X(25) VALUE '2 15782 08054 01566 11888'.   02620009
027500**************YEARCHANGE 2011.0 *******************************   02630009
027600**************YEARCHANGE 2012.0 *******************************   02640009
027700*  TABLE RATE FOR FY2012 EFFECTIVE OCT 1, 2011                    02650009
027800*  20111001/               REGION/ INP / GEN SER / THER / REHAB   02660009
027900     05  FILLER    PIC X(08) VALUE '20111001'.                    02670009
028000     05  FILLER    PIC X(25) VALUE '1 15346 08349 01702 13951'.   02680009
028100     05  FILLER    PIC X(25) VALUE '2 16062 08197 01594 12099'.   02690009
028200**************YEARCHANGE 2012.0 *******************************   02700009
028300**************YEARCHANGE 2013.0 *******************************   02710009
028400*  TABLE RATE FOR FY2013 EFFECTIVE OCT 1, 2012                    02720009
028500*  20121001/               REGION/ INP / GEN SER / THER / REHAB   02730009
028600     05  FILLER    PIC X(08) VALUE '20121001'.                    02740009
028700     05  FILLER    PIC X(25) VALUE '1 15628 08503 01733 14208'.   02750009
028800     05  FILLER    PIC X(25) VALUE '2 16358 08348 01623 12322'.   02760009
028900**************YEARCHANGE 2013.0 *******************************   02770009
029000**************YEARCHANGE 2014.0 *******************************   02780009
029100*  TABLE RATE FOR FY2014 EFFECTIVE OCT 1, 2013                    02790009
029200*  20131001/               REGION/ INP / GEN SER / THER / REHAB   02800009
029300     05  FILLER    PIC X(08) VALUE '20131001'.                    02810009
029400     05  FILLER    PIC X(25) VALUE '1 15841 08619 01757 14401'.   02820009
029500     05  FILLER    PIC X(25) VALUE '2 16581 08462 01645 12490'.   02830009
029600**************YEARCHANGE 2014.0 *******************************   02840009
029700**************YEARCHANGE 2015.0 *******************************   02850009
029800*  TABLE RATE FOR FY2015 EFFECTIVE OCT 1, 2014                    02860009
029900*  20141001/               REGION/ INP / GEN SER / THER / REHAB   02870009
030000     05  FILLER    PIC X(08) VALUE '20141001'.                    02880009
030100     05  FILLER    PIC X(25) VALUE '1 16172 08799 01794 14702'.   02890009
030200     05  FILLER    PIC X(25) VALUE '2 16928 08639 01679 12751'.   02900009
030300**************YEARCHANGE 2015.0 *******************************   02910009
030400**************YEARCHANGE 2016.0 *******************************   02920009
030500*  TABLE RATE FOR FY2016 EFFECTIVE OCT 1, 2015                    02930009
030600*  20151001/               REGION/ INP / GEN SER / THER / REHAB   02940009
030700     05  FILLER    PIC X(08) VALUE '20151001'.                    02950009
030800     05  FILLER    PIC X(25) VALUE '1 16353 08897 01814 14867'.   02951009
030900     05  FILLER    PIC X(25) VALUE '2 17117 08736 01698 12894'.   02952009
031000**************YEARCHANGE 2016.0 *******************************   02953009
030400**************YEARCHANGE 2017.0 *******************************   02954009
030500*  TABLE RATE FOR FY2016 EFFECTIVE OCT 1, 2016                    02955009
030600*  20161001/               REGION/ INP / GEN SER / THER / REHAB   02956009
030700     05  FILLER    PIC X(08) VALUE '20161001'.                    02957009
030800     05  FILLER    PIC X(25) VALUE '1 16745 09111 01858 15224'.   02958009
030900     05  FILLER    PIC X(25) VALUE '2 17528 08946 01739 13203'.   02959009
031000**************YEARCHANGE 2017.0 *******************************   02959109
032800                                                                  02967009
031000**************YEARCHANGE 2017.0 *******************************   02967117
031100     02  REGION-DATA2 REDEFINES REGION-DATA.                      02967217
031200         04  REG-PERIOD        OCCURS 20.                         02967317
031300**************YEARCHANGE 2017.0 *******************************   02967417
031400             06  REG-EFF-DATE  PIC X(08).                         02967517
031500             06  REGS          OCCURS 2.                          02967617
031600                 08  REG-DATA  OCCURS 1.                          02967717
031700                     10  REGION        PIC X.                     02967817
031800                     10  FILLER        PIC X.                     02967917
031900                     10  R-IP-RATE     PIC 999V99.                02968017
032000                     10  FILLER        PIC X.                     02968117
032100                     10  R-GS-RATE     PIC 999V99.                02968217
032200                     10  FILLER        PIC X.                     02968317
032300                     10  R-TH-RATE     PIC 999V99.                02968417
032400                     10  FILLER        PIC X.                     02968517
032500                     10  R-REHAB-RATE  PIC 999V99.                02968617
032600                                                                  02968717
032700                                                                  02968817
032900***************************************************************   02968909
033000*  LAYUP TABLE AREA FOR RUG  44 CODES                         *   02969009
033100*  EFFECTIVE JULY 1, 1998  TIL JANUARY 1, 2006                *   02970009
033200*  FORMAT FOR RUG TABLE 44                                    *   02980009
033300*    N = NURSING   T = THERAPY  F = THERAPY COMPONENT FACTOR  *   02990009
033400***************************************************************   03000009
033500 01  RUG-TABLE.                                                   03010009
033600     02  RUG-DATA1.                                               03020009
033700*                               RUG  REV                          03030009
033800*                               CODE CODE N - T - F               03040009
033900         03  FILLER  PIC X(19)                                    03050009
034000                         VALUE 'AAA  9000 046 000 1'.             03060009
034100         03  FILLER  PIC X(19)                                    03070009
034200                         VALUE 'PA1  9001 046 000 1'.             03080009
034300         03  FILLER  PIC X(19)                                    03090009
034400                         VALUE 'PA2  9002 049 000 1'.             03100009
034500         03  FILLER  PIC X(19)                                    03110009
034600                         VALUE 'PB1  9003 050 000 1'.             03120009
034700         03  FILLER  PIC X(19)                                    03130009
034800                         VALUE 'PB2  9004 051 000 1'.             03140009
034900         03  FILLER  PIC X(19)                                    03150009
035000                         VALUE 'PC1  9005 064 000 1'.             03160009
035100         03  FILLER  PIC X(19)                                    03170009
035200                         VALUE 'PC2  9006 065 000 1'.             03180009
035300         03  FILLER  PIC X(19)                                    03190009
035400                         VALUE 'PD1  9007 070 000 1'.             03200009
035500         03  FILLER  PIC X(19)                                    03210009
035600                         VALUE 'PD2  9008 072 000 1'.             03220009
035700         03  FILLER  PIC X(19)                                    03230009
035800                         VALUE 'PE1  9009 077 000 1'.             03240009
035900         03  FILLER  PIC X(19)                                    03250009
036000                         VALUE 'PE2  9010 079 000 1'.             03260009
036100         03  FILLER  PIC X(19)                                    03270009
036200                         VALUE 'BA1  9011 048 000 1'.             03280009
036300         03  FILLER  PIC X(19)                                    03290009
036400                         VALUE 'BA2  9012 056 000 1'.             03300009
036500         03  FILLER  PIC X(19)                                    03310009
036600                         VALUE 'BB1  9013 065 000 1'.             03320009
036700         03  FILLER  PIC X(19)                                    03330009
036800                         VALUE 'BB2  9014 068 000 1'.             03340009
036900         03  FILLER  PIC X(19)                                    03350009
037000                         VALUE 'IA1  9015 053 000 1'.             03360009
037100         03  FILLER  PIC X(19)                                    03370009
037200                         VALUE 'IA2  9016 057 000 1'.             03380009
037300         03  FILLER  PIC X(19)                                    03390009
037400                         VALUE 'IB1  9017 067 000 1'.             03400009
037500         03  FILLER  PIC X(19)                                    03410009
037600                         VALUE 'IB2  9018 069 000 1'.             03420009
037700         03  FILLER  PIC X(19)                                    03430009
037800                         VALUE 'CA1  9019 075 000 1'.             03440009
037900         03  FILLER  PIC X(19)                                    03450009
038000                         VALUE 'CA2  9020 083 000 1'.             03460009
038100         03  FILLER  PIC X(19)                                    03470009
038200                         VALUE 'CB1  9021 084 000 1'.             03480009
038300         03  FILLER  PIC X(19)                                    03490009
038400                         VALUE 'CB2  9022 091 000 1'.             03500009
038500         03  FILLER  PIC X(19)                                    03510009
038600                         VALUE 'CC1  9023 099 000 1'.             03520009
038700         03  FILLER  PIC X(19)                                    03530009
038800                         VALUE 'CC2  9024 112 000 1'.             03540009
038900         03  FILLER  PIC X(19)                                    03550009
039000                         VALUE 'SSA  9025 101 000 1'.             03560009
039100         03  FILLER  PIC X(19)                                    03570009
039200                         VALUE 'SSB  9026 105 000 1'.             03580009
039300         03  FILLER  PIC X(19)                                    03590009
039400                         VALUE 'SSC  9027 113 000 1'.             03600009
039500         03  FILLER  PIC X(19)                                    03610009
039600                         VALUE 'SE1  9028 117 000 1'.             03620009
039700         03  FILLER  PIC X(19)                                    03630009
039800                         VALUE 'SE2  9029 139 000 1'.             03640009
039900         03  FILLER  PIC X(19)                                    03650009
040000                         VALUE 'SE3  9030 170 000 1'.             03660009
040100         03  FILLER  PIC X(19)                                    03670009
040200                         VALUE 'RLA  9031 080 043 0'.             03680009
040300         03  FILLER  PIC X(19)                                    03690009
040400                         VALUE 'RLB  9032 111 043 0'.             03700009
040500         03  FILLER  PIC X(19)                                    03710009
040600                         VALUE 'RMA  9033 096 077 0'.             03720009
040700         03  FILLER  PIC X(19)                                    03730009
040800                         VALUE 'RMB  9034 109 077 0'.             03740009
040900         03  FILLER  PIC X(19)                                    03750009
041000                         VALUE 'RMC  9035 135 077 0'.             03760009
041100         03  FILLER  PIC X(19)                                    03770009
041200                         VALUE 'RHA  9036 087 094 0'.             03780009
041300         03  FILLER  PIC X(19)                                    03790009
041400                         VALUE 'RHB  9037 106 094 0'.             03800009
041500         03  FILLER  PIC X(19)                                    03810009
041600                         VALUE 'RHC  9038 126 094 0'.             03820009
041700         03  FILLER  PIC X(19)                                    03830009
041800                         VALUE 'RVA  9039 081 141 0'.             03840009
041900         03  FILLER  PIC X(19)                                    03850009
042000                         VALUE 'RVB  9040 104 141 0'.             03860009
042100         03  FILLER  PIC X(19)                                    03870009
042200                         VALUE 'RVC  9041 113 141 0'.             03880009
042300         03  FILLER  PIC X(19)                                    03890009
042400                         VALUE 'RUA  9042 078 225 0'.             03900009
042500         03  FILLER  PIC X(19)                                    03910009
042600                         VALUE 'RUB  9043 095 225 0'.             03920009
042700         03  FILLER  PIC X(19)                                    03930009
042800                         VALUE 'RUC  9044 130 225 0'.             03940009
042900     02  RUG-DATA2 REDEFINES RUG-DATA1 OCCURS 45                  03950009
043000             ASCENDING KEY IS RUG-CODE                            03960009
043100             INDEXED BY RUG01.                                    03970009
043200         03  RUG-CODE          PIC X(03).                         03980009
043300         03  RUG-REGS             OCCURS 1.                       03990009
043400             04  FILLER        PIC XX.                            04000009
043500             04  REV-CODE      PIC XXXX.                          04010009
043600             04  FILLER        PIC X.                             04020009
043700             04  RUG-NURSING   PIC 9V99.                          04030009
043800             04  FILLER        PIC X.                             04040009
043900             04  RUG-THERAPY   PIC 9V99.                          04050009
044000             04  FILLER        PIC X.                             04060009
044100             04  RUG-FACTOR    PIC 9.                             04070009
044200                                                                  04080009
044300                                                                  04090009
044400***************************************************************   04100009
044500*  LAYUP TABLE AREA FOR RUG 53 CODES                          *   04110009
044600*  EFFECTIVE JAN  1, 2006                                     *   04120009
044700*  FORMAT FOR RUG TABLE 53                                    *   04130009
044800*    N = NURSING   T = THERAPY  F = THERAPY COMPONENT FACTOR  *   04140009
044900***************************************************************   04150009
045000 01  RUG53-TABLE.                                                 04160009
045100     02  RUG53-DATA1.                                             04170009
045200*                               RUG  REV                          04180009
045300*                               CODE CODE N - T - F               04190009
045400         03  FILLER  PIC X(19)                                    04200009
045500                         VALUE 'AAA  9000 050 000 1'.             04210009
045600         03  FILLER  PIC X(19)                                    04220009
045700                         VALUE 'PA1  9001 050 000 1'.             04230009
045800         03  FILLER  PIC X(19)                                    04240009
045900                         VALUE 'PA2  9002 053 000 1'.             04250009
046000         03  FILLER  PIC X(19)                                    04260009
046100                         VALUE 'PB1  9003 054 000 1'.             04270009
046200         03  FILLER  PIC X(19)                                    04280009
046300                         VALUE 'PB2  9004 055 000 1'.             04290009
046400         03  FILLER  PIC X(19)                                    04300009
046500                         VALUE 'PC1  9005 069 000 1'.             04310009
046600         03  FILLER  PIC X(19)                                    04320009
046700                         VALUE 'PC2  9006 071 000 1'.             04330009
046800         03  FILLER  PIC X(19)                                    04340009
046900                         VALUE 'PD1  9007 076 000 1'.             04350009
047000         03  FILLER  PIC X(19)                                    04360009
047100                         VALUE 'PD2  9008 078 000 1'.             04370009
047200         03  FILLER  PIC X(19)                                    04380009
047300                         VALUE 'PE1  9009 082 000 1'.             04390009
047400         03  FILLER  PIC X(19)                                    04400009
047500                         VALUE 'PE2  9010 085 000 1'.             04410009
047600         03  FILLER  PIC X(19)                                    04420009
047700                         VALUE 'BA1  9011 052 000 1'.             04430009
047800         03  FILLER  PIC X(19)                                    04440009
047900                         VALUE 'BA2  9012 060 000 1'.             04450009
048000         03  FILLER  PIC X(19)                                    04460009
048100                         VALUE 'BB1  9013 069 000 1'.             04470009
048200         03  FILLER  PIC X(19)                                    04480009
048300                         VALUE 'BB2  9014 073 000 1'.             04490009
048400         03  FILLER  PIC X(19)                                    04500009
048500                         VALUE 'IA1  9015 056 000 1'.             04510009
048600         03  FILLER  PIC X(19)                                    04520009
048700                         VALUE 'IA2  9016 061 000 1'.             04530009
048800         03  FILLER  PIC X(19)                                    04540009
048900                         VALUE 'IB1  9017 072 000 1'.             04550009
049000         03  FILLER  PIC X(19)                                    04560009
049100                         VALUE 'IB2  9018 074 000 1'.             04570009
049200         03  FILLER  PIC X(19)                                    04580009
049300                         VALUE 'CA1  9019 080 000 1'.             04590009
049400         03  FILLER  PIC X(19)                                    04600009
049500                         VALUE 'CA2  9020 090 000 1'.             04610009
049600         03  FILLER  PIC X(19)                                    04620009
049700                         VALUE 'CB1  9021 091 000 1'.             04630009
049800         03  FILLER  PIC X(19)                                    04640009
049900                         VALUE 'CB2  9022 098 000 1'.             04650009
050000         03  FILLER  PIC X(19)                                    04660009
050100                         VALUE 'CC1  9023 106 000 1'.             04670009
050200         03  FILLER  PIC X(19)                                    04680009
050300                         VALUE 'CC2  9024 122 000 1'.             04690009
050400         03  FILLER  PIC X(19)                                    04700009
050500                         VALUE 'SSA  9025 110 000 1'.             04710009
050600         03  FILLER  PIC X(19)                                    04720009
050700                         VALUE 'SSB  9026 113 000 1'.             04730009
050800         03  FILLER  PIC X(19)                                    04740009
050900                         VALUE 'SSC  9027 123 000 1'.             04750009
051000         03  FILLER  PIC X(19)                                    04760009
051100                         VALUE 'SE1  9028 126 000 1'.             04770009
051200         03  FILLER  PIC X(19)                                    04780009
051300                         VALUE 'SE2  9029 149 000 1'.             04790009
051400         03  FILLER  PIC X(19)                                    04800009
051500                         VALUE 'SE3  9030 186 000 1'.             04810009
051600         03  FILLER  PIC X(19)                                    04820009
051700                         VALUE 'RLA  9031 085 043 0'.             04830009
051800         03  FILLER  PIC X(19)                                    04840009
051900                         VALUE 'RLB  9032 114 043 0'.             04850009
052000         03  FILLER  PIC X(19)                                    04860009
052100                         VALUE 'RMA  9033 104 077 0'.             04870009
052200         03  FILLER  PIC X(19)                                    04880009
052300                         VALUE 'RMB  9034 109 077 0'.             04890009
052400         03  FILLER  PIC X(19)                                    04900009
052500                         VALUE 'RMC  9035 115 077 0'.             04910009
052600         03  FILLER  PIC X(19)                                    04920009
052700                         VALUE 'RHA  9036 094 094 0'.             04930009
052800         03  FILLER  PIC X(19)                                    04940009
052900                         VALUE 'RHB  9037 111 094 0'.             04950009
053000         03  FILLER  PIC X(19)                                    04960009
053100                         VALUE 'RHC  9038 122 094 0'.             04970009
053200         03  FILLER  PIC X(19)                                    04980009
053300                         VALUE 'RVA  9039 082 141 0'.             04990009
053400         03  FILLER  PIC X(19)                                    05000009
053500                         VALUE 'RVB  9040 109 141 0'.             05010009
053600         03  FILLER  PIC X(19)                                    05020009
053700                         VALUE 'RVC  9041 123 141 0'.             05030009
053800         03  FILLER  PIC X(19)                                    05040009
053900                         VALUE 'RUA  9042 084 225 0'.             05050009
054000         03  FILLER  PIC X(19)                                    05060009
054100                         VALUE 'RUB  9043 099 225 0'.             05070009
054200         03  FILLER  PIC X(19)                                    05080009
054300                         VALUE 'RUC  9044 128 225 0'.             05090009
054400         03  FILLER  PIC X(19)                                    05100009
054500                         VALUE 'RLX  9045 131 043 0'.             05110009
054600         03  FILLER  PIC X(19)                                    05120009
054700                         VALUE 'RML  9046 168 077 0'.             05130009
054800         03  FILLER  PIC X(19)                                    05140009
054900                         VALUE 'RMX  9047 193 077 0'.             05150009
055000         03  FILLER  PIC X(19)                                    05160009
055100                         VALUE 'RHL  9048 137 094 0'.             05170009
055200         03  FILLER  PIC X(19)                                    05180009
055300                         VALUE 'RHX  9049 142 094 0'.             05190009
055400         03  FILLER  PIC X(19)                                    05200009
055500                         VALUE 'RVL  9050 133 141 0'.             05210009
055600         03  FILLER  PIC X(19)                                    05220009
055700                         VALUE 'RVX  9051 154 141 0'.             05230009
055800         03  FILLER  PIC X(19)                                    05240009
055900                         VALUE 'RUL  9052 140 225 0'.             05250009
056000         03  FILLER  PIC X(19)                                    05260009
056100                         VALUE 'RUX  9053 190 225 0'.             05270009
056200     02  RUG53-DATA2 REDEFINES RUG53-DATA1 OCCURS 54              05280009
056300             ASCENDING KEY IS RUG53-CODE                          05290009
056400             INDEXED BY RUG53-01.                                 05300009
056500         03  RUG53-CODE          PIC X(03).                       05310009
056600         03  RUG53-REGS             OCCURS 1.                     05320009
056700             04  FILLER        PIC XX.                            05330009
056800             04  REV53-CODE      PIC XXXX.                        05340009
056900             04  FILLER        PIC X.                             05350009
057000             04  RUG53-NURSING   PIC 9V99.                        05360009
057100             04  FILLER        PIC X.                             05370009
057200             04  RUG53-THERAPY   PIC 9V99.                        05380009
057300             04  FILLER        PIC X.                             05390009
057400             04  RUG53-FACTOR    PIC 9.                           05400009
057500                                                                  05410009
057600                                                                  05420009
057700***************************************************************   05430009
057800*  LAYUP TABLE AREA FOR RUG 53 CODES FOR FY2010               *   05440009
057900*  EFFECTIVE OCT  1, 2009                                     *   05450009
058000*  FORMAT FOR RUG TABLE 53                                    *   05460009
058100*    N = NURSING   T = THERAPY  F = THERAPY COMPONENT FACTOR  *   05470009
058200***************************************************************   05480009
058300 01  RUG53-2010-TABLE.                                            05490009
058400     02  RUG53-2010-DATA1.                                        05500009
058500*                               RUG  REV                          05510009
058600*                               CODE CODE N - T - F               05520009
058700         03  FILLER  PIC X(19)                                    05530009
058800                         VALUE 'AAA  9000 046 000 1'.             05540009
058900         03  FILLER  PIC X(19)                                    05550009
059000                         VALUE 'PA1  9001 046 000 1'.             05560009
059100         03  FILLER  PIC X(19)                                    05570009
059200                         VALUE 'PA2  9002 049 000 1'.             05580009
059300         03  FILLER  PIC X(19)                                    05590009
059400                         VALUE 'PB1  9003 050 000 1'.             05600009
059500         03  FILLER  PIC X(19)                                    05610009
059600                         VALUE 'PB2  9004 052 000 1'.             05620009
059700         03  FILLER  PIC X(19)                                    05630009
059800                         VALUE 'PC1  9005 065 000 1'.             05640009
059900         03  FILLER  PIC X(19)                                    05650009
060000                         VALUE 'PC2  9006 066 000 1'.             05660009
060100         03  FILLER  PIC X(19)                                    05670009
060200                         VALUE 'PD1  9007 070 000 1'.             05680009
060300         03  FILLER  PIC X(19)                                    05690009
060400                         VALUE 'PD2  9008 072 000 1'.             05700009
060500         03  FILLER  PIC X(19)                                    05710009
060600                         VALUE 'PE1  9009 077 000 1'.             05720009
060700         03  FILLER  PIC X(19)                                    05730009
060800                         VALUE 'PE2  9010 079 000 1'.             05740009
060900         03  FILLER  PIC X(19)                                    05750009
061000                         VALUE 'BA1  9011 048 000 1'.             05760009
061100         03  FILLER  PIC X(19)                                    05770009
061200                         VALUE 'BA2  9012 056 000 1'.             05780009
061300         03  FILLER  PIC X(19)                                    05790009
061400                         VALUE 'BB1  9013 065 000 1'.             05800009
061500         03  FILLER  PIC X(19)                                    05810009
061600                         VALUE 'BB2  9014 068 000 1'.             05820009
061700         03  FILLER  PIC X(19)                                    05830009
061800                         VALUE 'IA1  9015 053 000 1'.             05840009
061900         03  FILLER  PIC X(19)                                    05850009
062000                         VALUE 'IA2  9016 057 000 1'.             05860009
062100         03  FILLER  PIC X(19)                                    05870009
062200                         VALUE 'IB1  9017 067 000 1'.             05880009
062300         03  FILLER  PIC X(19)                                    05890009
062400                         VALUE 'IB2  9018 069 000 1'.             05900009
062500         03  FILLER  PIC X(19)                                    05910009
062600                         VALUE 'CA1  9019 075 000 1'.             05920009
062700         03  FILLER  PIC X(19)                                    05930009
062800                         VALUE 'CA2  9020 083 000 1'.             05940009
062900         03  FILLER  PIC X(19)                                    05950009
063000                         VALUE 'CB1  9021 084 000 1'.             05960009
063100         03  FILLER  PIC X(19)                                    05970009
063200                         VALUE 'CB2  9022 091 000 1'.             05980009
063300         03  FILLER  PIC X(19)                                    05990009
063400                         VALUE 'CC1  9023 099 000 1'.             06000009
063500         03  FILLER  PIC X(19)                                    06010009
063600                         VALUE 'CC2  9024 113 000 1'.             06020009
063700         03  FILLER  PIC X(19)                                    06030009
063800                         VALUE 'SSA  9025 102 000 1'.             06040009
063900         03  FILLER  PIC X(19)                                    06050009
064000                         VALUE 'SSB  9026 105 000 1'.             06060009
064100         03  FILLER  PIC X(19)                                    06070009
064200                         VALUE 'SSC  9027 114 000 1'.             06080009
064300         03  FILLER  PIC X(19)                                    06090009
064400                         VALUE 'SE1  9028 117 000 1'.             06100009
064500         03  FILLER  PIC X(19)                                    06110009
064600                         VALUE 'SE2  9029 138 000 1'.             06120009
064700         03  FILLER  PIC X(19)                                    06130009
064800                         VALUE 'SE3  9030 172 000 1'.             06140009
064900         03  FILLER  PIC X(19)                                    06150009
065000                         VALUE 'RLA  9031 079 043 0'.             06160009
065100         03  FILLER  PIC X(19)                                    06170009
065200                         VALUE 'RLB  9032 106 043 0'.             06180009
065300         03  FILLER  PIC X(19)                                    06190009
065400                         VALUE 'RMA  9033 097 077 0'.             06200009
065500         03  FILLER  PIC X(19)                                    06210009
065600                         VALUE 'RMB  9034 101 077 0'.             06220009
065700         03  FILLER  PIC X(19)                                    06230009
065800                         VALUE 'RMC  9035 107 077 0'.             06240009
065900         03  FILLER  PIC X(19)                                    06250009
066000                         VALUE 'RHA  9036 088 094 0'.             06260009
066100         03  FILLER  PIC X(19)                                    06270009
066200                         VALUE 'RHB  9037 103 094 0'.             06280009
066300         03  FILLER  PIC X(19)                                    06290009
066400                         VALUE 'RHC  9038 113 094 0'.             06300009
066500         03  FILLER  PIC X(19)                                    06310009
066600                         VALUE 'RVA  9039 077 141 0'.             06320009
066700         03  FILLER  PIC X(19)                                    06330009
066800                         VALUE 'RVB  9040 101 141 0'.             06340009
066900         03  FILLER  PIC X(19)                                    06350009
067000                         VALUE 'RVC  9041 114 141 0'.             06360009
067100         03  FILLER  PIC X(19)                                    06370009
067200                         VALUE 'RUA  9042 078 225 0'.             06380009
067300         03  FILLER  PIC X(19)                                    06390009
067400                         VALUE 'RUB  9043 092 225 0'.             06400009
067500         03  FILLER  PIC X(19)                                    06410009
067600                         VALUE 'RUC  9044 120 225 0'.             06420009
067700         03  FILLER  PIC X(19)                                    06430009
067800                         VALUE 'RLX  9045 122 043 0'.             06440009
067900         03  FILLER  PIC X(19)                                    06450009
068000                         VALUE 'RML  9046 157 077 0'.             06460009
068100         03  FILLER  PIC X(19)                                    06470009
068200                         VALUE 'RMX  9047 180 077 0'.             06480009
068300         03  FILLER  PIC X(19)                                    06490009
068400                         VALUE 'RHL  9048 127 094 0'.             06500009
068500         03  FILLER  PIC X(19)                                    06510009
068600                         VALUE 'RHX  9049 133 094 0'.             06520009
068700         03  FILLER  PIC X(19)                                    06530009
068800                         VALUE 'RVL  9050 124 141 0'.             06540009
068900         03  FILLER  PIC X(19)                                    06550009
069000                         VALUE 'RVX  9051 144 141 0'.             06560009
069100         03  FILLER  PIC X(19)                                    06570009
069200                         VALUE 'RUL  9052 131 225 0'.             06580009
069300         03  FILLER  PIC X(19)                                    06590009
069400                         VALUE 'RUX  9053 177 225 0'.             06600009
069500     02  RUG53-2010-DATA2 REDEFINES RUG53-2010-DATA1 OCCURS 54    06610009
069600             ASCENDING KEY IS RUG53-2010-CODE                     06620009
069700             INDEXED BY RUG53-2010-01.                            06630009
069800         03  RUG53-2010-CODE     PIC X(03).                       06640009
069900         03  RUG53-2010-REGS        OCCURS 1.                     06650009
070000             04  FILLER        PIC XX.                            06660009
070100             04  REV53-2010-CODE      PIC XXXX.                   06670009
070200             04  FILLER        PIC X.                             06680009
070300             04  RUG53-2010-NURSING PIC 9V99.                     06690009
070400             04  FILLER        PIC X.                             06700009
070500             04  RUG53-2010-THERAPY PIC 9V99.                     06710009
070600             04  FILLER        PIC X.                             06720009
070700             04  RUG53-2010-FACTOR PIC 9.                         06730009
070800                                                                  06740009
070900***************************************************************   06750009
071000*  LAYUP TABLE AREA FOR RUG 53 CODES FOR FY2011               *   06760009
071100*  EFFECTIVE OCT  2, 2010                                     *   06770009
071200*  FORMAT FOR RUG TABLE 53                                    *   06780009
071300*    N = NURSING   T = THERAPY  F = THERAPY COMPONENT FACTOR  *   06790009
071400***************************************************************   06800009
071500 01  RUG67-2011-TABLE.                                            06810009
071600     02  RUG67-2011-DATA1.                                        06820009
071700*                                      RUG  REV                   06830009
071800*                                      CODE CODE N - T - F        06840009
071900         03  FILLER  PIC X(19)  VALUE 'AAA  9000 054 000 1'.      06850009
072000         03  FILLER  PIC X(19)  VALUE 'BA1  9011 064 000 1'.      06860009
072100         03  FILLER  PIC X(19)  VALUE 'BA2  9012 070 000 1'.      06870009
072200         03  FILLER  PIC X(19)  VALUE 'BB1  9013 090 000 1'.      06880009
072300         03  FILLER  PIC X(19)  VALUE 'BB2  9014 097 000 1'.      06890009
072400         03  FILLER  PIC X(19)  VALUE 'CA1  9019 078 000 1'.      06900009
072500         03  FILLER  PIC X(19)  VALUE 'CA2  9020 088 000 1'.      06910009
072600         03  FILLER  PIC X(19)  VALUE 'CB1  9021 102 000 1'.      06920009
072700         03  FILLER  PIC X(19)  VALUE 'CB2  9022 115 000 1'.      06930009
072800         03  FILLER  PIC X(19)  VALUE 'CC1  9023 115 000 1'.      06940009
072900         03  FILLER  PIC X(19)  VALUE 'CC2  9024 129 000 1'.      06950009
073000         03  FILLER  PIC X(19)  VALUE 'CD1  9024 138 000 1'.      06960009
073100         03  FILLER  PIC X(19)  VALUE 'CD2  9024 156 000 1'.      06970009
073200         03  FILLER  PIC X(19)  VALUE 'CE1  9024 150 000 1'.      06980009
073300         03  FILLER  PIC X(19)  VALUE 'CE2  9028 168 000 1'.      06990009
073400         03  FILLER  PIC X(19)  VALUE 'ES1  9028 232 000 1'.      07000009
073500         03  FILLER  PIC X(19)  VALUE 'ES2  9029 267 000 1'.      07010009
073600         03  FILLER  PIC X(19)  VALUE 'ES3  9030 358 000 1'.      07020009
073700         03  FILLER  PIC X(19)  VALUE 'HB1  9015 146 000 1'.      07030009
073800         03  FILLER  PIC X(19)  VALUE 'HB2  9016 186 000 1'.      07040009
073900         03  FILLER  PIC X(19)  VALUE 'HC1  9017 148 000 1'.      07050009
074000         03  FILLER  PIC X(19)  VALUE 'HC2  9018 189 000 1'.      07060009
074100         03  FILLER  PIC X(19)  VALUE 'HD1  9018 160 000 1'.      07070009
074200         03  FILLER  PIC X(19)  VALUE 'HD2  9018 204 000 1'.      07080009
074300         03  FILLER  PIC X(19)  VALUE 'HE1  9018 174 000 1'.      07090009
074400         03  FILLER  PIC X(19)  VALUE 'HE2  9018 222 000 1'.      07100009
074500         03  FILLER  PIC X(19)  VALUE 'LB1  9018 114 000 1'.      07110009
074600         03  FILLER  PIC X(19)  VALUE 'LB2  9018 145 000 1'.      07120009
074700         03  FILLER  PIC X(19)  VALUE 'LC1  9018 122 000 1'.      07130009
074800         03  FILLER  PIC X(19)  VALUE 'LC2  9018 156 000 1'.      07140009
074900         03  FILLER  PIC X(19)  VALUE 'LD1  9018 146 000 1'.      07150009
075000         03  FILLER  PIC X(19)  VALUE 'LD2  9018 186 000 1'.      07160009
075100         03  FILLER  PIC X(19)  VALUE 'LE1  9018 154 000 1'.      07170009
075200         03  FILLER  PIC X(19)  VALUE 'LE2  9018 196 000 1'.      07180009
075300         03  FILLER  PIC X(19)  VALUE 'PA1  9001 054 000 1'.      07190009
075400         03  FILLER  PIC X(19)  VALUE 'PA2  9002 059 000 1'.      07200009
075500         03  FILLER  PIC X(19)  VALUE 'PB1  9003 078 000 1'.      07210009
075600         03  FILLER  PIC X(19)  VALUE 'PB2  9004 084 000 1'.      07220009
075700         03  FILLER  PIC X(19)  VALUE 'PC1  9005 102 000 1'.      07230009
075800         03  FILLER  PIC X(19)  VALUE 'PC2  9006 110 000 1'.      07240009
075900         03  FILLER  PIC X(19)  VALUE 'PD1  9007 128 000 1'.      07250009
076000         03  FILLER  PIC X(19)  VALUE 'PD2  9008 138 000 1'.      07260009
076100         03  FILLER  PIC X(19)  VALUE 'PE1  9009 140 000 1'.      07270009
076200         03  FILLER  PIC X(19)  VALUE 'PE2  9010 150 000 1'.      07280009
076300         03  FILLER  PIC X(19)  VALUE 'RHA  9036 123 085 0'.      07290009
076400         03  FILLER  PIC X(19)  VALUE 'RHB  9037 160 085 0'.      07300009
076500         03  FILLER  PIC X(19)  VALUE 'RHC  9038 194 085 0'.      07310009
076600         03  FILLER  PIC X(19)  VALUE 'RHL  9048 289 085 0'.      07320009
076700         03  FILLER  PIC X(19)  VALUE 'RHX  9049 343 085 0'.      07330009
076800         03  FILLER  PIC X(19)  VALUE 'RLA  9031 095 028 0'.      07340009
076900         03  FILLER  PIC X(19)  VALUE 'RLB  9032 201 028 0'.      07350009
077000         03  FILLER  PIC X(19)  VALUE 'RLX  9045 304 028 0'.      07360009
077100         03  FILLER  PIC X(19)  VALUE 'RMA  9033 113 055 0'.      07370009
077200         03  FILLER  PIC X(19)  VALUE 'RMB  9034 163 055 0'.      07380009
077300         03  FILLER  PIC X(19)  VALUE 'RMC  9035 183 055 0'.      07390009
077400         03  FILLER  PIC X(19)  VALUE 'RML  9046 295 055 0'.      07400009
077500         03  FILLER  PIC X(19)  VALUE 'RMX  9047 331 055 0'.      07410009
077600         03  FILLER  PIC X(19)  VALUE 'RUA  9042 133 187 0'.      07420009
077700         03  FILLER  PIC X(19)  VALUE 'RUB  9043 210 187 0'.      07430009
077800         03  FILLER  PIC X(19)  VALUE 'RUC  9044 210 187 0'.      07440009
077900         03  FILLER  PIC X(19)  VALUE 'RUL  9052 345 187 0'.      07450009
078000         03  FILLER  PIC X(19)  VALUE 'RUX  9053 359 187 0'.      07460009
078100         03  FILLER  PIC X(19)  VALUE 'RVA  9039 148 128 0'.      07470009
078200         03  FILLER  PIC X(19)  VALUE 'RVB  9040 149 128 0'.      07480009
078300         03  FILLER  PIC X(19)  VALUE 'RVC  9041 202 128 0'.      07490009
078400         03  FILLER  PIC X(19)  VALUE 'RVL  9050 295 128 0'.      07500009
078500         03  FILLER  PIC X(19)  VALUE 'RVX  9051 351 128 0'.      07510009
078600     02  RUG67-2011-DATA2 REDEFINES RUG67-2011-DATA1 OCCURS 67    07520009
078700             ASCENDING KEY IS RUG67-2011-CODE                     07530009
078800             INDEXED BY RUG67-2011-01.                            07540009
078900         03  RUG67-2011-CODE     PIC X(03).                       07550009
079000         03  RUG67-2011-REGS        OCCURS 1.                     07560009
079100             04  FILLER        PIC XX.                            07570009
079200             04  REV67-2011-CODE      PIC XXXX.                   07580009
079300             04  FILLER        PIC X.                             07590009
079400             04  RUG67-2011-NURSING PIC 9V99.                     07600009
079500             04  FILLER        PIC X.                             07610009
079600             04  RUG67-2011-THERAPY PIC 9V99.                     07620009
079700             04  FILLER        PIC X.                             07630009
079800             04  RUG67-2011-FACTOR PIC 9.                         07640009
079900                                                                  07650009
080000***************************************************************   07660009
080100*  LAYUP TABLE AREA FOR RUG 67 CODES FOR FY2012               *   07670009
080200*  EFFECTIVE OCT  1, 2011                                     *   07680009
080300*  FORMAT FOR RUG TABLE 67                                    *   07690009
080400*    N = NURSING   T = THERAPY  F = THERAPY COMPONENT FACTOR  *   07700009
080500***************************************************************   07710009
080600 01  RUG67-2012-TABLE.                                            07720009
080700     02  RUG67-2012-DATA1.                                        07730009
080800*                                      RUG  REV                   07740009
080900*                                      CODE CODE N - T - F        07750009
081000         03  FILLER  PIC X(19)  VALUE 'AAA  9000 054 000 1'.      07760009
081100         03  FILLER  PIC X(19)  VALUE 'BA1  9011 064 000 1'.      07770009
081200         03  FILLER  PIC X(19)  VALUE 'BA2  9012 070 000 1'.      07780009
081300         03  FILLER  PIC X(19)  VALUE 'BB1  9013 090 000 1'.      07790009
081400         03  FILLER  PIC X(19)  VALUE 'BB2  9014 097 000 1'.      07800009
081500         03  FILLER  PIC X(19)  VALUE 'CA1  9019 078 000 1'.      07810009
081600         03  FILLER  PIC X(19)  VALUE 'CA2  9020 088 000 1'.      07820009
081700         03  FILLER  PIC X(19)  VALUE 'CB1  9021 102 000 1'.      07830009
081800         03  FILLER  PIC X(19)  VALUE 'CB2  9022 115 000 1'.      07840009
081900         03  FILLER  PIC X(19)  VALUE 'CC1  9023 115 000 1'.      07850009
082000         03  FILLER  PIC X(19)  VALUE 'CC2  9024 129 000 1'.      07860009
082100         03  FILLER  PIC X(19)  VALUE 'CD1  9024 138 000 1'.      07870009
082200         03  FILLER  PIC X(19)  VALUE 'CD2  9024 156 000 1'.      07880009
082300         03  FILLER  PIC X(19)  VALUE 'CE1  9024 150 000 1'.      07890009
082400         03  FILLER  PIC X(19)  VALUE 'CE2  9028 168 000 1'.      07900009
082500         03  FILLER  PIC X(19)  VALUE 'ES1  9028 232 000 1'.      07910009
082600         03  FILLER  PIC X(19)  VALUE 'ES2  9029 267 000 1'.      07920009
082700         03  FILLER  PIC X(19)  VALUE 'ES3  9030 358 000 1'.      07930009
082800         03  FILLER  PIC X(19)  VALUE 'HB1  9015 146 000 1'.      07940009
082900         03  FILLER  PIC X(19)  VALUE 'HB2  9016 186 000 1'.      07950009
083000         03  FILLER  PIC X(19)  VALUE 'HC1  9017 148 000 1'.      07960009
083100         03  FILLER  PIC X(19)  VALUE 'HC2  9018 189 000 1'.      07970009
083200         03  FILLER  PIC X(19)  VALUE 'HD1  9018 160 000 1'.      07980009
083300         03  FILLER  PIC X(19)  VALUE 'HD2  9018 204 000 1'.      07990009
083400         03  FILLER  PIC X(19)  VALUE 'HE1  9018 174 000 1'.      08000009
083500         03  FILLER  PIC X(19)  VALUE 'HE2  9018 222 000 1'.      08010009
083600         03  FILLER  PIC X(19)  VALUE 'LB1  9018 114 000 1'.      08020009
083700         03  FILLER  PIC X(19)  VALUE 'LB2  9018 145 000 1'.      08030009
083800         03  FILLER  PIC X(19)  VALUE 'LC1  9018 122 000 1'.      08040009
083900         03  FILLER  PIC X(19)  VALUE 'LC2  9018 156 000 1'.      08050009
084000         03  FILLER  PIC X(19)  VALUE 'LD1  9018 146 000 1'.      08060009
084100         03  FILLER  PIC X(19)  VALUE 'LD2  9018 186 000 1'.      08070009
084200         03  FILLER  PIC X(19)  VALUE 'LE1  9018 154 000 1'.      08080009
084300         03  FILLER  PIC X(19)  VALUE 'LE2  9018 196 000 1'.      08090009
084400         03  FILLER  PIC X(19)  VALUE 'PA1  9001 054 000 1'.      08100009
084500         03  FILLER  PIC X(19)  VALUE 'PA2  9002 059 000 1'.      08110009
084600         03  FILLER  PIC X(19)  VALUE 'PB1  9003 078 000 1'.      08120009
084700         03  FILLER  PIC X(19)  VALUE 'PB2  9004 084 000 1'.      08130009
084800         03  FILLER  PIC X(19)  VALUE 'PC1  9005 102 000 1'.      08140009
084900         03  FILLER  PIC X(19)  VALUE 'PC2  9006 110 000 1'.      08150009
085000         03  FILLER  PIC X(19)  VALUE 'PD1  9007 128 000 1'.      08160009
085100         03  FILLER  PIC X(19)  VALUE 'PD2  9008 138 000 1'.      08170009
085200         03  FILLER  PIC X(19)  VALUE 'PE1  9009 140 000 1'.      08180009
085300         03  FILLER  PIC X(19)  VALUE 'PE2  9010 150 000 1'.      08190009
085400         03  FILLER  PIC X(19)  VALUE 'RHA  9036 091 085 0'.      08200009
085500         03  FILLER  PIC X(19)  VALUE 'RHB  9037 119 085 0'.      08210009
085600         03  FILLER  PIC X(19)  VALUE 'RHC  9038 145 085 0'.      08220009
085700         03  FILLER  PIC X(19)  VALUE 'RHL  9048 215 085 0'.      08230009
085800         03  FILLER  PIC X(19)  VALUE 'RHX  9049 255 085 0'.      08240009
085900         03  FILLER  PIC X(19)  VALUE 'RLA  9031 071 028 0'.      08250009
086000         03  FILLER  PIC X(19)  VALUE 'RLB  9032 150 028 0'.      08260009
086100         03  FILLER  PIC X(19)  VALUE 'RLX  9045 226 028 0'.      08270009
086200         03  FILLER  PIC X(19)  VALUE 'RMA  9033 084 055 0'.      08280009
086300         03  FILLER  PIC X(19)  VALUE 'RMB  9034 122 055 0'.      08290009
086400         03  FILLER  PIC X(19)  VALUE 'RMC  9035 136 055 0'.      08300009
086500         03  FILLER  PIC X(19)  VALUE 'RML  9046 219 055 0'.      08310009
086600         03  FILLER  PIC X(19)  VALUE 'RMX  9047 247 055 0'.      08320009
086700         03  FILLER  PIC X(19)  VALUE 'RUA  9042 099 187 0'.      08330009
086800         03  FILLER  PIC X(19)  VALUE 'RUB  9043 156 187 0'.      08340009
086900         03  FILLER  PIC X(19)  VALUE 'RUC  9044 156 187 0'.      08350009
087000         03  FILLER  PIC X(19)  VALUE 'RUL  9052 257 187 0'.      08360009
087100         03  FILLER  PIC X(19)  VALUE 'RUX  9053 267 187 0'.      08370009
087200         03  FILLER  PIC X(19)  VALUE 'RVA  9039 110 128 0'.      08380009
087300         03  FILLER  PIC X(19)  VALUE 'RVB  9040 111 128 0'.      08390009
087400         03  FILLER  PIC X(19)  VALUE 'RVC  9041 151 128 0'.      08400009
087500         03  FILLER  PIC X(19)  VALUE 'RVL  9050 219 128 0'.      08410009
087600         03  FILLER  PIC X(19)  VALUE 'RVX  9051 261 128 0'.      08420009
087700     02  RUG67-2012-DATA2 REDEFINES RUG67-2012-DATA1 OCCURS 67    08430009
087800             ASCENDING KEY IS RUG67-2012-CODE                     08440009
087900             INDEXED BY RUG67-2012-01.                            08450009
088000         03  RUG67-2012-CODE     PIC X(03).                       08460009
088100         03  RUG67-2012-REGS        OCCURS 1.                     08470009
088200             04  FILLER        PIC XX.                            08480009
088300             04  REV67-2012-CODE      PIC XXXX.                   08490009
088400             04  FILLER        PIC X.                             08500009
088500             04  RUG67-2012-NURSING PIC 9V99.                     08510009
088600             04  FILLER        PIC X.                             08520009
088700             04  RUG67-2012-THERAPY PIC 9V99.                     08530009
088800             04  FILLER        PIC X.                             08540009
088900             04  RUG67-2012-FACTOR PIC 9.                         08550009
089000                                                                  08560009
089100*********************>>  2013  <<**********************           08570009
089200                                                                  08580009
089300                                                                  08590009
089400***************************************************************   08600009
089500*  LAYUP TABLE AREA FOR RUG 67 CODES FOR FY2013               *   08610009
089600*  EFFECTIVE OCT  1, 2012                                     *   08620009
089700*  FORMAT FOR RUG TABLE 67                                    *   08630009
089800*    N = NURSING   T = THERAPY  F = THERAPY COMPONENT FACTOR  *   08640009
089900***************************************************************   08650009
090000 01  RUG67-2013-TABLE.                                            08660009
090100     02  RUG67-2013-DATA1.                                        08670009
090200*                                      RUG  REV                   08680009
090300*                                      CODE CODE N - T - F        08690009
090400         03  FILLER  PIC X(19)  VALUE 'AAA  9000 054 000 1'.      08700009
090500         03  FILLER  PIC X(19)  VALUE 'BA1  9011 064 000 1'.      08710009
090600         03  FILLER  PIC X(19)  VALUE 'BA2  9012 070 000 1'.      08720009
090700         03  FILLER  PIC X(19)  VALUE 'BB1  9013 090 000 1'.      08730009
090800         03  FILLER  PIC X(19)  VALUE 'BB2  9014 097 000 1'.      08740009
090900         03  FILLER  PIC X(19)  VALUE 'CA1  9019 078 000 1'.      08750009
091000         03  FILLER  PIC X(19)  VALUE 'CA2  9020 088 000 1'.      08760009
091100         03  FILLER  PIC X(19)  VALUE 'CB1  9021 102 000 1'.      08770009
091200         03  FILLER  PIC X(19)  VALUE 'CB2  9022 115 000 1'.      08780009
091300         03  FILLER  PIC X(19)  VALUE 'CC1  9023 115 000 1'.      08790009
091400         03  FILLER  PIC X(19)  VALUE 'CC2  9024 129 000 1'.      08800009
091500         03  FILLER  PIC X(19)  VALUE 'CD1  9024 138 000 1'.      08810009
091600         03  FILLER  PIC X(19)  VALUE 'CD2  9024 156 000 1'.      08820009
091700         03  FILLER  PIC X(19)  VALUE 'CE1  9024 150 000 1'.      08830009
091800         03  FILLER  PIC X(19)  VALUE 'CE2  9028 168 000 1'.      08840009
091900         03  FILLER  PIC X(19)  VALUE 'ES1  9028 232 000 1'.      08850009
092000         03  FILLER  PIC X(19)  VALUE 'ES2  9029 267 000 1'.      08860009
092100         03  FILLER  PIC X(19)  VALUE 'ES3  9030 358 000 1'.      08870009
092200         03  FILLER  PIC X(19)  VALUE 'HB1  9015 146 000 1'.      08880009
092300         03  FILLER  PIC X(19)  VALUE 'HB2  9016 186 000 1'.      08890009
092400         03  FILLER  PIC X(19)  VALUE 'HC1  9017 148 000 1'.      08900009
092500         03  FILLER  PIC X(19)  VALUE 'HC2  9018 189 000 1'.      08910009
092600         03  FILLER  PIC X(19)  VALUE 'HD1  9018 160 000 1'.      08920009
092700         03  FILLER  PIC X(19)  VALUE 'HD2  9018 204 000 1'.      08930009
092800         03  FILLER  PIC X(19)  VALUE 'HE1  9018 174 000 1'.      08940009
092900         03  FILLER  PIC X(19)  VALUE 'HE2  9018 222 000 1'.      08950009
093000         03  FILLER  PIC X(19)  VALUE 'LB1  9018 114 000 1'.      08960009
093100         03  FILLER  PIC X(19)  VALUE 'LB2  9018 145 000 1'.      08970009
093200         03  FILLER  PIC X(19)  VALUE 'LC1  9018 122 000 1'.      08980009
093300         03  FILLER  PIC X(19)  VALUE 'LC2  9018 156 000 1'.      08990009
093400         03  FILLER  PIC X(19)  VALUE 'LD1  9018 146 000 1'.      09000009
093500         03  FILLER  PIC X(19)  VALUE 'LD2  9018 186 000 1'.      09010009
093600         03  FILLER  PIC X(19)  VALUE 'LE1  9018 154 000 1'.      09020009
093700         03  FILLER  PIC X(19)  VALUE 'LE2  9018 196 000 1'.      09030009
093800         03  FILLER  PIC X(19)  VALUE 'PA1  9001 054 000 1'.      09040009
093900         03  FILLER  PIC X(19)  VALUE 'PA2  9002 059 000 1'.      09050009
094000         03  FILLER  PIC X(19)  VALUE 'PB1  9003 078 000 1'.      09060009
094100         03  FILLER  PIC X(19)  VALUE 'PB2  9004 084 000 1'.      09070009
094200         03  FILLER  PIC X(19)  VALUE 'PC1  9005 102 000 1'.      09080009
094300         03  FILLER  PIC X(19)  VALUE 'PC2  9006 110 000 1'.      09090009
094400         03  FILLER  PIC X(19)  VALUE 'PD1  9007 128 000 1'.      09100009
094500         03  FILLER  PIC X(19)  VALUE 'PD2  9008 138 000 1'.      09110009
094600         03  FILLER  PIC X(19)  VALUE 'PE1  9009 140 000 1'.      09120009
094700         03  FILLER  PIC X(19)  VALUE 'PE2  9010 150 000 1'.      09130009
094800         03  FILLER  PIC X(19)  VALUE 'RHA  9036 091 085 0'.      09140009
094900         03  FILLER  PIC X(19)  VALUE 'RHB  9037 119 085 0'.      09150009
095000         03  FILLER  PIC X(19)  VALUE 'RHC  9038 145 085 0'.      09160009
095100         03  FILLER  PIC X(19)  VALUE 'RHL  9048 215 085 0'.      09170009
095200         03  FILLER  PIC X(19)  VALUE 'RHX  9049 255 085 0'.      09180009
095300         03  FILLER  PIC X(19)  VALUE 'RLA  9031 071 028 0'.      09190009
095400         03  FILLER  PIC X(19)  VALUE 'RLB  9032 150 028 0'.      09200009
095500         03  FILLER  PIC X(19)  VALUE 'RLX  9045 226 028 0'.      09210009
095600         03  FILLER  PIC X(19)  VALUE 'RMA  9033 084 055 0'.      09220009
095700         03  FILLER  PIC X(19)  VALUE 'RMB  9034 122 055 0'.      09230009
095800         03  FILLER  PIC X(19)  VALUE 'RMC  9035 136 055 0'.      09240009
095900         03  FILLER  PIC X(19)  VALUE 'RML  9046 219 055 0'.      09250009
096000         03  FILLER  PIC X(19)  VALUE 'RMX  9047 247 055 0'.      09260009
096100         03  FILLER  PIC X(19)  VALUE 'RUA  9042 099 187 0'.      09270009
096200         03  FILLER  PIC X(19)  VALUE 'RUB  9043 156 187 0'.      09280009
096300         03  FILLER  PIC X(19)  VALUE 'RUC  9044 156 187 0'.      09290009
096400         03  FILLER  PIC X(19)  VALUE 'RUL  9052 257 187 0'.      09300009
096500         03  FILLER  PIC X(19)  VALUE 'RUX  9053 267 187 0'.      09310009
096600         03  FILLER  PIC X(19)  VALUE 'RVA  9039 110 128 0'.      09320009
096700         03  FILLER  PIC X(19)  VALUE 'RVB  9040 111 128 0'.      09330009
096800         03  FILLER  PIC X(19)  VALUE 'RVC  9041 151 128 0'.      09340009
096900         03  FILLER  PIC X(19)  VALUE 'RVL  9050 219 128 0'.      09350009
097000         03  FILLER  PIC X(19)  VALUE 'RVX  9051 261 128 0'.      09360009
097100     02  RUG67-2013-DATA2 REDEFINES RUG67-2013-DATA1 OCCURS 67    09370009
097200             ASCENDING KEY IS RUG67-2013-CODE                     09380009
097300             INDEXED BY RUG67-2013-01.                            09390009
097400         03  RUG67-2013-CODE     PIC X(03).                       09400009
097500         03  RUG67-2013-REGS        OCCURS 1.                     09410009
097600             04  FILLER        PIC XX.                            09420009
097700             04  REV67-2013-CODE      PIC XXXX.                   09430009
097800             04  FILLER        PIC X.                             09440009
097900             04  RUG67-2013-NURSING PIC 9V99.                     09450009
098000             04  FILLER        PIC X.                             09460009
098100             04  RUG67-2013-THERAPY PIC 9V99.                     09470009
098200             04  FILLER        PIC X.                             09480009
098300             04  RUG67-2013-FACTOR PIC 9.                         09490009
098400                                                                  09500009
098500                                                                  09510009
098600                                                                  09520009
098700*********************>>  2013  <<**********************           09530009
098800*********************>>  2014  <<**********************           09540009
098900                                                                  09550009
099000                                                                  09560009
099100***************************************************************   09570009
099200*  LAYUP TABLE AREA FOR RUG 67 CODES FOR FY2014               *   09580009
099300*  EFFECTIVE OCT  1, 2013                                     *   09590009
099400*  FORMAT FOR RUG TABLE 67                                    *   09600009
099500*    N = NURSING   T = THERAPY  F = THERAPY COMPONENT FACTOR  *   09610009
099600***************************************************************   09620009
099700 01  RUG67-2014-TABLE.                                            09630009
099800     02  RUG67-2014-DATA1.                                        09640009
099900*                                      RUG  REV                   09650009
100000*                                      CODE CODE N - T - F        09660009
100100         03  FILLER  PIC X(19)  VALUE 'AAA  9000 054 000 1'.      09670009
100200         03  FILLER  PIC X(19)  VALUE 'BA1  9011 064 000 1'.      09680009
100300         03  FILLER  PIC X(19)  VALUE 'BA2  9012 070 000 1'.      09690009
100400         03  FILLER  PIC X(19)  VALUE 'BB1  9013 090 000 1'.      09700009
100500         03  FILLER  PIC X(19)  VALUE 'BB2  9014 097 000 1'.      09710009
100600         03  FILLER  PIC X(19)  VALUE 'CA1  9019 078 000 1'.      09720009
100700         03  FILLER  PIC X(19)  VALUE 'CA2  9020 088 000 1'.      09730009
100800         03  FILLER  PIC X(19)  VALUE 'CB1  9021 102 000 1'.      09740009
100900         03  FILLER  PIC X(19)  VALUE 'CB2  9022 115 000 1'.      09750009
101000         03  FILLER  PIC X(19)  VALUE 'CC1  9023 115 000 1'.      09760009
101100         03  FILLER  PIC X(19)  VALUE 'CC2  9024 129 000 1'.      09770009
101200         03  FILLER  PIC X(19)  VALUE 'CD1  9024 138 000 1'.      09780009
101300         03  FILLER  PIC X(19)  VALUE 'CD2  9024 156 000 1'.      09790009
101400         03  FILLER  PIC X(19)  VALUE 'CE1  9024 150 000 1'.      09800009
101500         03  FILLER  PIC X(19)  VALUE 'CE2  9028 168 000 1'.      09810009
101600         03  FILLER  PIC X(19)  VALUE 'ES1  9028 232 000 1'.      09820009
101700         03  FILLER  PIC X(19)  VALUE 'ES2  9029 267 000 1'.      09830009
101800         03  FILLER  PIC X(19)  VALUE 'ES3  9030 358 000 1'.      09840009
101900         03  FILLER  PIC X(19)  VALUE 'HB1  9015 146 000 1'.      09850009
102000         03  FILLER  PIC X(19)  VALUE 'HB2  9016 186 000 1'.      09860009
102100         03  FILLER  PIC X(19)  VALUE 'HC1  9017 148 000 1'.      09870009
102200         03  FILLER  PIC X(19)  VALUE 'HC2  9018 189 000 1'.      09880009
102300         03  FILLER  PIC X(19)  VALUE 'HD1  9018 160 000 1'.      09890009
102400         03  FILLER  PIC X(19)  VALUE 'HD2  9018 204 000 1'.      09900009
102500         03  FILLER  PIC X(19)  VALUE 'HE1  9018 174 000 1'.      09910009
102600         03  FILLER  PIC X(19)  VALUE 'HE2  9018 222 000 1'.      09920009
102700         03  FILLER  PIC X(19)  VALUE 'LB1  9018 114 000 1'.      09930009
102800         03  FILLER  PIC X(19)  VALUE 'LB2  9018 145 000 1'.      09940009
102900         03  FILLER  PIC X(19)  VALUE 'LC1  9018 122 000 1'.      09950009
103000         03  FILLER  PIC X(19)  VALUE 'LC2  9018 156 000 1'.      09960009
103100         03  FILLER  PIC X(19)  VALUE 'LD1  9018 146 000 1'.      09970009
103200         03  FILLER  PIC X(19)  VALUE 'LD2  9018 186 000 1'.      09980009
103300         03  FILLER  PIC X(19)  VALUE 'LE1  9018 154 000 1'.      09990009
103400         03  FILLER  PIC X(19)  VALUE 'LE2  9018 196 000 1'.      10000009
103500         03  FILLER  PIC X(19)  VALUE 'PA1  9001 054 000 1'.      10010009
103600         03  FILLER  PIC X(19)  VALUE 'PA2  9002 059 000 1'.      10020009
103700         03  FILLER  PIC X(19)  VALUE 'PB1  9003 078 000 1'.      10030009
103800         03  FILLER  PIC X(19)  VALUE 'PB2  9004 084 000 1'.      10040009
103900         03  FILLER  PIC X(19)  VALUE 'PC1  9005 102 000 1'.      10050009
104000         03  FILLER  PIC X(19)  VALUE 'PC2  9006 110 000 1'.      10060009
104100         03  FILLER  PIC X(19)  VALUE 'PD1  9007 128 000 1'.      10070009
104200         03  FILLER  PIC X(19)  VALUE 'PD2  9008 138 000 1'.      10080009
104300         03  FILLER  PIC X(19)  VALUE 'PE1  9009 140 000 1'.      10090009
104400         03  FILLER  PIC X(19)  VALUE 'PE2  9010 150 000 1'.      10100009
104500         03  FILLER  PIC X(19)  VALUE 'RHA  9036 091 085 0'.      10110009
104600         03  FILLER  PIC X(19)  VALUE 'RHB  9037 119 085 0'.      10120009
104700         03  FILLER  PIC X(19)  VALUE 'RHC  9038 145 085 0'.      10130009
104800         03  FILLER  PIC X(19)  VALUE 'RHL  9048 215 085 0'.      10140009
104900         03  FILLER  PIC X(19)  VALUE 'RHX  9049 255 085 0'.      10150009
105000         03  FILLER  PIC X(19)  VALUE 'RLA  9031 071 028 0'.      10160009
105100         03  FILLER  PIC X(19)  VALUE 'RLB  9032 150 028 0'.      10170009
105200         03  FILLER  PIC X(19)  VALUE 'RLX  9045 226 028 0'.      10180009
105300         03  FILLER  PIC X(19)  VALUE 'RMA  9033 084 055 0'.      10190009
105400         03  FILLER  PIC X(19)  VALUE 'RMB  9034 122 055 0'.      10200009
105500         03  FILLER  PIC X(19)  VALUE 'RMC  9035 136 055 0'.      10210009
105600         03  FILLER  PIC X(19)  VALUE 'RML  9046 219 055 0'.      10220009
105700         03  FILLER  PIC X(19)  VALUE 'RMX  9047 247 055 0'.      10230009
105800         03  FILLER  PIC X(19)  VALUE 'RUA  9042 099 187 0'.      10240009
105900         03  FILLER  PIC X(19)  VALUE 'RUB  9043 156 187 0'.      10250009
106000         03  FILLER  PIC X(19)  VALUE 'RUC  9044 156 187 0'.      10260009
106100         03  FILLER  PIC X(19)  VALUE 'RUL  9052 257 187 0'.      10270009
106200         03  FILLER  PIC X(19)  VALUE 'RUX  9053 267 187 0'.      10280009
106300         03  FILLER  PIC X(19)  VALUE 'RVA  9039 110 128 0'.      10290009
106400         03  FILLER  PIC X(19)  VALUE 'RVB  9040 111 128 0'.      10300009
106500         03  FILLER  PIC X(19)  VALUE 'RVC  9041 151 128 0'.      10310009
106600         03  FILLER  PIC X(19)  VALUE 'RVL  9050 219 128 0'.      10320009
106700         03  FILLER  PIC X(19)  VALUE 'RVX  9051 261 128 0'.      10330009
106800     02  RUG67-2014-DATA2 REDEFINES RUG67-2014-DATA1 OCCURS 67    10340009
106900             ASCENDING KEY IS RUG67-2014-CODE                     10350009
107000             INDEXED BY RUG67-2014-01.                            10360009
107100         03  RUG67-2014-CODE     PIC X(03).                       10370009
107200         03  RUG67-2014-REGS        OCCURS 1.                     10380009
107300             04  FILLER               PIC XX.                     10390009
107400             04  REV67-2014-CODE      PIC XXXX.                   10400009
107500             04  FILLER               PIC X.                      10410009
107600             04  RUG67-2014-NURSING   PIC 9V99.                   10420009
107700             04  FILLER               PIC X.                      10430009
107800             04  RUG67-2014-THERAPY   PIC 9V99.                   10440009
107900             04  FILLER               PIC X.                      10450009
108000             04  RUG67-2014-FACTOR    PIC 9.                      10460009
108100                                                                  10470009
108200                                                                  10480009
108300                                                                  10490009
108400*********************>>  2014  <<**********************           10500009
108500*********************>>  2015  <<**********************           10510009
108600                                                                  10520009
108700                                                                  10530009
108800***************************************************************   10540009
108900*  LAYUP TABLE AREA FOR RUG 67 CODES FOR FY2015               *   10550009
109000*  EFFECTIVE OCT  1, 2014                                     *   10560009
109100*  FORMAT FOR RUG TABLE 67                                    *   10570009
109200*    N = NURSING   T = THERAPY  F = THERAPY COMPONENT FACTOR  *   10580009
109300***************************************************************   10590009
109400 01  RUG67-2015-TABLE.                                            10600009
109500     02  RUG67-2015-DATA1.                                        10610009
109600*                                      RUG  REV                   10620009
109700*                                      CODE CODE N - T - F        10630009
109800         03  FILLER  PIC X(19)  VALUE 'AAA  9000 054 000 1'.      10640009
109900         03  FILLER  PIC X(19)  VALUE 'BA1  9011 064 000 1'.      10650009
110000         03  FILLER  PIC X(19)  VALUE 'BA2  9012 070 000 1'.      10660009
110100         03  FILLER  PIC X(19)  VALUE 'BB1  9013 090 000 1'.      10670009
110200         03  FILLER  PIC X(19)  VALUE 'BB2  9014 097 000 1'.      10680009
110300         03  FILLER  PIC X(19)  VALUE 'CA1  9019 078 000 1'.      10690009
110400         03  FILLER  PIC X(19)  VALUE 'CA2  9020 088 000 1'.      10700009
110500         03  FILLER  PIC X(19)  VALUE 'CB1  9021 102 000 1'.      10710009
110600         03  FILLER  PIC X(19)  VALUE 'CB2  9022 115 000 1'.      10720009
110700         03  FILLER  PIC X(19)  VALUE 'CC1  9023 115 000 1'.      10730009
110800         03  FILLER  PIC X(19)  VALUE 'CC2  9024 129 000 1'.      10740009
110900         03  FILLER  PIC X(19)  VALUE 'CD1  9024 138 000 1'.      10750009
111000         03  FILLER  PIC X(19)  VALUE 'CD2  9024 156 000 1'.      10760009
111100         03  FILLER  PIC X(19)  VALUE 'CE1  9024 150 000 1'.      10770009
111200         03  FILLER  PIC X(19)  VALUE 'CE2  9028 168 000 1'.      10780009
111300         03  FILLER  PIC X(19)  VALUE 'ES1  9028 232 000 1'.      10790009
111400         03  FILLER  PIC X(19)  VALUE 'ES2  9029 267 000 1'.      10800009
111500         03  FILLER  PIC X(19)  VALUE 'ES3  9030 358 000 1'.      10810009
111600         03  FILLER  PIC X(19)  VALUE 'HB1  9015 146 000 1'.      10820009
111700         03  FILLER  PIC X(19)  VALUE 'HB2  9016 186 000 1'.      10830009
111800         03  FILLER  PIC X(19)  VALUE 'HC1  9017 148 000 1'.      10840009
111900         03  FILLER  PIC X(19)  VALUE 'HC2  9018 189 000 1'.      10850009
112000         03  FILLER  PIC X(19)  VALUE 'HD1  9018 160 000 1'.      10860009
112100         03  FILLER  PIC X(19)  VALUE 'HD2  9018 204 000 1'.      10870009
112200         03  FILLER  PIC X(19)  VALUE 'HE1  9018 174 000 1'.      10880009
112300         03  FILLER  PIC X(19)  VALUE 'HE2  9018 222 000 1'.      10890009
112400         03  FILLER  PIC X(19)  VALUE 'LB1  9018 114 000 1'.      10900009
112500         03  FILLER  PIC X(19)  VALUE 'LB2  9018 145 000 1'.      10910009
112600         03  FILLER  PIC X(19)  VALUE 'LC1  9018 122 000 1'.      10920009
112700         03  FILLER  PIC X(19)  VALUE 'LC2  9018 156 000 1'.      10930009
112800         03  FILLER  PIC X(19)  VALUE 'LD1  9018 146 000 1'.      10940009
112900         03  FILLER  PIC X(19)  VALUE 'LD2  9018 186 000 1'.      10950009
113000         03  FILLER  PIC X(19)  VALUE 'LE1  9018 154 000 1'.      10960009
113100         03  FILLER  PIC X(19)  VALUE 'LE2  9018 196 000 1'.      10970009
113200         03  FILLER  PIC X(19)  VALUE 'PA1  9001 054 000 1'.      10980009
113300         03  FILLER  PIC X(19)  VALUE 'PA2  9002 059 000 1'.      10990009
113400         03  FILLER  PIC X(19)  VALUE 'PB1  9003 078 000 1'.      11000009
113500         03  FILLER  PIC X(19)  VALUE 'PB2  9004 084 000 1'.      11010009
113600         03  FILLER  PIC X(19)  VALUE 'PC1  9005 102 000 1'.      11020009
113700         03  FILLER  PIC X(19)  VALUE 'PC2  9006 110 000 1'.      11030009
113800         03  FILLER  PIC X(19)  VALUE 'PD1  9007 128 000 1'.      11040009
113900         03  FILLER  PIC X(19)  VALUE 'PD2  9008 138 000 1'.      11050009
114000         03  FILLER  PIC X(19)  VALUE 'PE1  9009 140 000 1'.      11060009
114100         03  FILLER  PIC X(19)  VALUE 'PE2  9010 150 000 1'.      11070009
114200         03  FILLER  PIC X(19)  VALUE 'RHA  9036 091 085 0'.      11080009
114300         03  FILLER  PIC X(19)  VALUE 'RHB  9037 119 085 0'.      11090009
114400         03  FILLER  PIC X(19)  VALUE 'RHC  9038 145 085 0'.      11100009
114500         03  FILLER  PIC X(19)  VALUE 'RHL  9048 215 085 0'.      11110009
114600         03  FILLER  PIC X(19)  VALUE 'RHX  9049 255 085 0'.      11120009
114700         03  FILLER  PIC X(19)  VALUE 'RLA  9031 071 028 0'.      11130009
114800         03  FILLER  PIC X(19)  VALUE 'RLB  9032 150 028 0'.      11140009
114900         03  FILLER  PIC X(19)  VALUE 'RLX  9045 226 028 0'.      11150009
115000         03  FILLER  PIC X(19)  VALUE 'RMA  9033 084 055 0'.      11160009
115100         03  FILLER  PIC X(19)  VALUE 'RMB  9034 122 055 0'.      11170009
115200         03  FILLER  PIC X(19)  VALUE 'RMC  9035 136 055 0'.      11180009
115300         03  FILLER  PIC X(19)  VALUE 'RML  9046 219 055 0'.      11190009
115400         03  FILLER  PIC X(19)  VALUE 'RMX  9047 247 055 0'.      11200009
115500         03  FILLER  PIC X(19)  VALUE 'RUA  9042 099 187 0'.      11210009
115600         03  FILLER  PIC X(19)  VALUE 'RUB  9043 156 187 0'.      11220009
115700         03  FILLER  PIC X(19)  VALUE 'RUC  9044 156 187 0'.      11230009
115800         03  FILLER  PIC X(19)  VALUE 'RUL  9052 257 187 0'.      11240009
115900         03  FILLER  PIC X(19)  VALUE 'RUX  9053 267 187 0'.      11250009
116000         03  FILLER  PIC X(19)  VALUE 'RVA  9039 110 128 0'.      11260009
116100         03  FILLER  PIC X(19)  VALUE 'RVB  9040 111 128 0'.      11270009
116200         03  FILLER  PIC X(19)  VALUE 'RVC  9041 151 128 0'.      11280009
116300         03  FILLER  PIC X(19)  VALUE 'RVL  9050 219 128 0'.      11290009
116400         03  FILLER  PIC X(19)  VALUE 'RVX  9051 261 128 0'.      11300009
116500     02  RUG67-2015-DATA2 REDEFINES RUG67-2015-DATA1 OCCURS 67    11310009
116600             ASCENDING KEY IS RUG67-2015-CODE                     11320009
116700             INDEXED BY RUG67-2015-01.                            11330009
116800         03  RUG67-2015-CODE     PIC X(03).                       11340009
116900         03  RUG67-2015-REGS        OCCURS 1.                     11350009
117000             04  FILLER               PIC XX.                     11360009
117100             04  REV67-2015-CODE      PIC XXXX.                   11370009
117200             04  FILLER               PIC X.                      11380009
117300             04  RUG67-2015-NURSING   PIC 9V99.                   11390009
117400             04  FILLER               PIC X.                      11400009
117500             04  RUG67-2015-THERAPY   PIC 9V99.                   11410009
117600             04  FILLER               PIC X.                      11420009
117700             04  RUG67-2015-FACTOR    PIC 9.                      11430009
117800                                                                  11440009
117900                                                                  11450009
118000                                                                  11460009
118100*********************>>  2015  <<**********************           11470009
118200*********************>>  2016  <<**********************           11480009
118300                                                                  11490009
118400                                                                  11500009
118500***************************************************************   11510009
118600*  LAYUP TABLE AREA FOR RUG 67 CODES FOR FY2016               *   11520009
118700*  EFFECTIVE OCT  1, 2015                                     *   11530009
118800*  FORMAT FOR RUG TABLE 67                                    *   11540009
118900*    N = NURSING   T = THERAPY  F = THERAPY COMPONENT FACTOR  *   11550009
119000***************************************************************   11560009
119100 01  RUG67-2016-TABLE.                                            11570009
119200     02  RUG67-2016-DATA1.                                        11580009
119300*                                      RUG  REV                   11590009
119400*                                      CODE CODE N - T - F        11600009
119500         03  FILLER  PIC X(19)  VALUE 'AAA  9000 054 000 1'.      11610009
119600         03  FILLER  PIC X(19)  VALUE 'BA1  9011 064 000 1'.      11620009
119700         03  FILLER  PIC X(19)  VALUE 'BA2  9012 070 000 1'.      11630009
119800         03  FILLER  PIC X(19)  VALUE 'BB1  9013 090 000 1'.      11640009
119900         03  FILLER  PIC X(19)  VALUE 'BB2  9014 097 000 1'.      11650009
120000         03  FILLER  PIC X(19)  VALUE 'CA1  9019 078 000 1'.      11660009
120100         03  FILLER  PIC X(19)  VALUE 'CA2  9020 088 000 1'.      11661009
120200         03  FILLER  PIC X(19)  VALUE 'CB1  9021 102 000 1'.      11662009
120300         03  FILLER  PIC X(19)  VALUE 'CB2  9022 115 000 1'.      11663009
120400         03  FILLER  PIC X(19)  VALUE 'CC1  9023 115 000 1'.      11664009
120500         03  FILLER  PIC X(19)  VALUE 'CC2  9024 129 000 1'.      11665009
120600         03  FILLER  PIC X(19)  VALUE 'CD1  9024 138 000 1'.      11666009
120700         03  FILLER  PIC X(19)  VALUE 'CD2  9024 156 000 1'.      11667009
120800         03  FILLER  PIC X(19)  VALUE 'CE1  9024 150 000 1'.      11668009
120900         03  FILLER  PIC X(19)  VALUE 'CE2  9028 168 000 1'.      11669009
121000         03  FILLER  PIC X(19)  VALUE 'ES1  9028 232 000 1'.      11670009
121100         03  FILLER  PIC X(19)  VALUE 'ES2  9029 267 000 1'.      11670109
121200         03  FILLER  PIC X(19)  VALUE 'ES3  9030 358 000 1'.      11670209
121300         03  FILLER  PIC X(19)  VALUE 'HB1  9015 146 000 1'.      11670309
121400         03  FILLER  PIC X(19)  VALUE 'HB2  9016 186 000 1'.      11670409
121500         03  FILLER  PIC X(19)  VALUE 'HC1  9017 148 000 1'.      11670509
121600         03  FILLER  PIC X(19)  VALUE 'HC2  9018 189 000 1'.      11670609
121700         03  FILLER  PIC X(19)  VALUE 'HD1  9018 160 000 1'.      11670709
121800         03  FILLER  PIC X(19)  VALUE 'HD2  9018 204 000 1'.      11670809
121900         03  FILLER  PIC X(19)  VALUE 'HE1  9018 174 000 1'.      11670909
122000         03  FILLER  PIC X(19)  VALUE 'HE2  9018 222 000 1'.      11671009
122100         03  FILLER  PIC X(19)  VALUE 'LB1  9018 114 000 1'.      11671109
122200         03  FILLER  PIC X(19)  VALUE 'LB2  9018 145 000 1'.      11671209
122300         03  FILLER  PIC X(19)  VALUE 'LC1  9018 122 000 1'.      11671309
122400         03  FILLER  PIC X(19)  VALUE 'LC2  9018 156 000 1'.      11671409
122500         03  FILLER  PIC X(19)  VALUE 'LD1  9018 146 000 1'.      11671509
122600         03  FILLER  PIC X(19)  VALUE 'LD2  9018 186 000 1'.      11671609
122700         03  FILLER  PIC X(19)  VALUE 'LE1  9018 154 000 1'.      11671709
122800         03  FILLER  PIC X(19)  VALUE 'LE2  9018 196 000 1'.      11671809
122900         03  FILLER  PIC X(19)  VALUE 'PA1  9001 054 000 1'.      11671909
123000         03  FILLER  PIC X(19)  VALUE 'PA2  9002 059 000 1'.      11672009
123100         03  FILLER  PIC X(19)  VALUE 'PB1  9003 078 000 1'.      11672109
123200         03  FILLER  PIC X(19)  VALUE 'PB2  9004 084 000 1'.      11672209
123300         03  FILLER  PIC X(19)  VALUE 'PC1  9005 102 000 1'.      11672309
123400         03  FILLER  PIC X(19)  VALUE 'PC2  9006 110 000 1'.      11672409
123500         03  FILLER  PIC X(19)  VALUE 'PD1  9007 128 000 1'.      11672509
123600         03  FILLER  PIC X(19)  VALUE 'PD2  9008 138 000 1'.      11672609
123700         03  FILLER  PIC X(19)  VALUE 'PE1  9009 140 000 1'.      11672709
123800         03  FILLER  PIC X(19)  VALUE 'PE2  9010 150 000 1'.      11672809
123900         03  FILLER  PIC X(19)  VALUE 'RHA  9036 091 085 0'.      11672909
124000         03  FILLER  PIC X(19)  VALUE 'RHB  9037 119 085 0'.      11673009
124100         03  FILLER  PIC X(19)  VALUE 'RHC  9038 145 085 0'.      11673109
124200         03  FILLER  PIC X(19)  VALUE 'RHL  9048 215 085 0'.      11673209
124300         03  FILLER  PIC X(19)  VALUE 'RHX  9049 255 085 0'.      11673309
124400         03  FILLER  PIC X(19)  VALUE 'RLA  9031 071 028 0'.      11673409
124500         03  FILLER  PIC X(19)  VALUE 'RLB  9032 150 028 0'.      11673509
124600         03  FILLER  PIC X(19)  VALUE 'RLX  9045 226 028 0'.      11673609
124700         03  FILLER  PIC X(19)  VALUE 'RMA  9033 084 055 0'.      11673709
124800         03  FILLER  PIC X(19)  VALUE 'RMB  9034 122 055 0'.      11673809
124900         03  FILLER  PIC X(19)  VALUE 'RMC  9035 136 055 0'.      11673909
125000         03  FILLER  PIC X(19)  VALUE 'RML  9046 219 055 0'.      11674009
125100         03  FILLER  PIC X(19)  VALUE 'RMX  9047 247 055 0'.      11674109
125200         03  FILLER  PIC X(19)  VALUE 'RUA  9042 099 187 0'.      11674209
125300         03  FILLER  PIC X(19)  VALUE 'RUB  9043 156 187 0'.      11674309
125400         03  FILLER  PIC X(19)  VALUE 'RUC  9044 156 187 0'.      11674409
125500         03  FILLER  PIC X(19)  VALUE 'RUL  9052 257 187 0'.      11674509
125600         03  FILLER  PIC X(19)  VALUE 'RUX  9053 267 187 0'.      11674609
125700         03  FILLER  PIC X(19)  VALUE 'RVA  9039 110 128 0'.      11674709
125800         03  FILLER  PIC X(19)  VALUE 'RVB  9040 111 128 0'.      11674809
125900         03  FILLER  PIC X(19)  VALUE 'RVC  9041 151 128 0'.      11674909
126000         03  FILLER  PIC X(19)  VALUE 'RVL  9050 219 128 0'.      11675009
126100         03  FILLER  PIC X(19)  VALUE 'RVX  9051 261 128 0'.      11675109
126200     02  RUG67-2016-DATA2 REDEFINES RUG67-2016-DATA1 OCCURS 67    11675209
126300             ASCENDING KEY IS RUG67-2016-CODE                     11675309
126400             INDEXED BY RUG67-2016-01.                            11675409
126500         03  RUG67-2016-CODE     PIC X(03).                       11675509
126600         03  RUG67-2016-REGS        OCCURS 1.                     11675609
126700             04  FILLER               PIC XX.                     11675709
126800             04  REV67-2016-CODE      PIC XXXX.                   11675809
126900             04  FILLER               PIC X.                      11675909
127000             04  RUG67-2016-NURSING   PIC 9V99.                   11676009
127100             04  FILLER               PIC X.                      11676109
127200             04  RUG67-2016-THERAPY   PIC 9V99.                   11676209
127300             04  FILLER               PIC X.                      11676309
127400             04  RUG67-2016-FACTOR    PIC 9.                      11676409
127500                                                                  11676509
127600                                                                  11676609
127700                                                                  11676709
127800*********************>>  2016  <<**********************           11676809
118200*********************>>  2017  <<**********************           11676909
118300                                                                  11677009
118400                                                                  11677109
118500***************************************************************   11677209
118600*  LAYUP TABLE AREA FOR RUG 67 CODES FOR FY2017               *   11677309
118700*  EFFECTIVE OCT  1, 2016                                     *   11677409
118800*  FORMAT FOR RUG TABLE 67                                    *   11677509
118900*    N = NURSING   T = THERAPY  F = THERAPY COMPONENT FACTOR  *   11677609
119000***************************************************************   11677709
119100 01  RUG67-2017-TABLE.                                            11677809
119200     02  RUG67-2017-DATA1.                                        11677909
119300*                                      RUG  REV                   11678009
119400*                                      CODE CODE N - T - F        11678109
119500         03  FILLER  PIC X(19)  VALUE 'AAA  9000 054 000 1'.      11678209
119600         03  FILLER  PIC X(19)  VALUE 'BA1  9011 064 000 1'.      11678309
119700         03  FILLER  PIC X(19)  VALUE 'BA2  9012 070 000 1'.      11678409
119800         03  FILLER  PIC X(19)  VALUE 'BB1  9013 090 000 1'.      11678509
119900         03  FILLER  PIC X(19)  VALUE 'BB2  9014 097 000 1'.      11678609
120000         03  FILLER  PIC X(19)  VALUE 'CA1  9019 078 000 1'.      11678709
120100         03  FILLER  PIC X(19)  VALUE 'CA2  9020 088 000 1'.      11678809
120200         03  FILLER  PIC X(19)  VALUE 'CB1  9021 102 000 1'.      11678909
120300         03  FILLER  PIC X(19)  VALUE 'CB2  9022 115 000 1'.      11679009
120400         03  FILLER  PIC X(19)  VALUE 'CC1  9023 115 000 1'.      11679109
120500         03  FILLER  PIC X(19)  VALUE 'CC2  9024 129 000 1'.      11679209
120600         03  FILLER  PIC X(19)  VALUE 'CD1  9024 138 000 1'.      11679309
120700         03  FILLER  PIC X(19)  VALUE 'CD2  9024 156 000 1'.      11679409
120800         03  FILLER  PIC X(19)  VALUE 'CE1  9024 150 000 1'.      11679509
120900         03  FILLER  PIC X(19)  VALUE 'CE2  9028 168 000 1'.      11679609
121000         03  FILLER  PIC X(19)  VALUE 'ES1  9028 232 000 1'.      11679709
121100         03  FILLER  PIC X(19)  VALUE 'ES2  9029 267 000 1'.      11679809
121200         03  FILLER  PIC X(19)  VALUE 'ES3  9030 358 000 1'.      11679909
121300         03  FILLER  PIC X(19)  VALUE 'HB1  9015 146 000 1'.      11680009
121400         03  FILLER  PIC X(19)  VALUE 'HB2  9016 186 000 1'.      11680109
121500         03  FILLER  PIC X(19)  VALUE 'HC1  9017 148 000 1'.      11680209
121600         03  FILLER  PIC X(19)  VALUE 'HC2  9018 189 000 1'.      11680309
121700         03  FILLER  PIC X(19)  VALUE 'HD1  9018 160 000 1'.      11680409
121800         03  FILLER  PIC X(19)  VALUE 'HD2  9018 204 000 1'.      11680509
121900         03  FILLER  PIC X(19)  VALUE 'HE1  9018 174 000 1'.      11680609
122000         03  FILLER  PIC X(19)  VALUE 'HE2  9018 222 000 1'.      11680709
122100         03  FILLER  PIC X(19)  VALUE 'LB1  9018 114 000 1'.      11680809
122200         03  FILLER  PIC X(19)  VALUE 'LB2  9018 145 000 1'.      11680909
122300         03  FILLER  PIC X(19)  VALUE 'LC1  9018 122 000 1'.      11681009
122400         03  FILLER  PIC X(19)  VALUE 'LC2  9018 156 000 1'.      11681109
122500         03  FILLER  PIC X(19)  VALUE 'LD1  9018 146 000 1'.      11681209
122600         03  FILLER  PIC X(19)  VALUE 'LD2  9018 186 000 1'.      11681309
122700         03  FILLER  PIC X(19)  VALUE 'LE1  9018 154 000 1'.      11681409
122800         03  FILLER  PIC X(19)  VALUE 'LE2  9018 196 000 1'.      11681509
122900         03  FILLER  PIC X(19)  VALUE 'PA1  9001 054 000 1'.      11681609
123000         03  FILLER  PIC X(19)  VALUE 'PA2  9002 059 000 1'.      11681709
123100         03  FILLER  PIC X(19)  VALUE 'PB1  9003 078 000 1'.      11681809
123200         03  FILLER  PIC X(19)  VALUE 'PB2  9004 084 000 1'.      11681909
123300         03  FILLER  PIC X(19)  VALUE 'PC1  9005 102 000 1'.      11682009
123400         03  FILLER  PIC X(19)  VALUE 'PC2  9006 110 000 1'.      11682109
123500         03  FILLER  PIC X(19)  VALUE 'PD1  9007 128 000 1'.      11682209
123600         03  FILLER  PIC X(19)  VALUE 'PD2  9008 138 000 1'.      11682309
123700         03  FILLER  PIC X(19)  VALUE 'PE1  9009 140 000 1'.      11682409
123800         03  FILLER  PIC X(19)  VALUE 'PE2  9010 150 000 1'.      11682509
123900         03  FILLER  PIC X(19)  VALUE 'RHA  9036 091 085 0'.      11682609
124000         03  FILLER  PIC X(19)  VALUE 'RHB  9037 119 085 0'.      11682709
124100         03  FILLER  PIC X(19)  VALUE 'RHC  9038 145 085 0'.      11682809
124200         03  FILLER  PIC X(19)  VALUE 'RHL  9048 215 085 0'.      11682909
124300         03  FILLER  PIC X(19)  VALUE 'RHX  9049 255 085 0'.      11683009
124400         03  FILLER  PIC X(19)  VALUE 'RLA  9031 071 028 0'.      11683109
124500         03  FILLER  PIC X(19)  VALUE 'RLB  9032 150 028 0'.      11683209
124600         03  FILLER  PIC X(19)  VALUE 'RLX  9045 226 028 0'.      11683309
124700         03  FILLER  PIC X(19)  VALUE 'RMA  9033 084 055 0'.      11683409
124800         03  FILLER  PIC X(19)  VALUE 'RMB  9034 122 055 0'.      11683509
124900         03  FILLER  PIC X(19)  VALUE 'RMC  9035 136 055 0'.      11683609
125000         03  FILLER  PIC X(19)  VALUE 'RML  9046 219 055 0'.      11683709
125100         03  FILLER  PIC X(19)  VALUE 'RMX  9047 247 055 0'.      11683809
125200         03  FILLER  PIC X(19)  VALUE 'RUA  9042 099 187 0'.      11683909
125300         03  FILLER  PIC X(19)  VALUE 'RUB  9043 156 187 0'.      11684009
125400         03  FILLER  PIC X(19)  VALUE 'RUC  9044 156 187 0'.      11684109
125500         03  FILLER  PIC X(19)  VALUE 'RUL  9052 257 187 0'.      11684209
125600         03  FILLER  PIC X(19)  VALUE 'RUX  9053 267 187 0'.      11684309
125700         03  FILLER  PIC X(19)  VALUE 'RVA  9039 110 128 0'.      11684409
125800         03  FILLER  PIC X(19)  VALUE 'RVB  9040 111 128 0'.      11684509
125900         03  FILLER  PIC X(19)  VALUE 'RVC  9041 151 128 0'.      11684609
126000         03  FILLER  PIC X(19)  VALUE 'RVL  9050 219 128 0'.      11684709
126100         03  FILLER  PIC X(19)  VALUE 'RVX  9051 261 128 0'.      11684809
126200     02  RUG67-2017-DATA2 REDEFINES RUG67-2017-DATA1 OCCURS 67    11684909
126300             ASCENDING KEY IS RUG67-2017-CODE                     11685009
126400             INDEXED BY RUG67-2017-01.                            11685109
126500         03  RUG67-2017-CODE     PIC X(03).                       11685209
126600         03  RUG67-2017-REGS        OCCURS 1.                     11685309
126700             04  FILLER               PIC XX.                     11685409
126800             04  REV67-2017-CODE      PIC XXXX.                   11685509
126900             04  FILLER               PIC X.                      11685609
127000             04  RUG67-2017-NURSING   PIC 9V99.                   11685709
127100             04  FILLER               PIC X.                      11685809
127200             04  RUG67-2017-THERAPY   PIC 9V99.                   11685909
127300             04  FILLER               PIC X.                      11686009
127400             04  RUG67-2017-FACTOR    PIC 9.                      11686109
127500                                                                  11686209
127800*********************>>  2017  <<**********************           11686313
127600                                                                  11686409
127700                                                                  11686509
110000*********************>>  2018  <<**********************           11686712
110000*********************>>  2018  <<**********************           11686813
000000****>>  MAJOR TABLE FORMAT CHANGES FOR 2018     <<******          11686913
000000****>>       ADD QRP PENALTY LOGIC              <<******          11687013
000000****>>  NEW RUG COMPONENT TABLE WITH 4 REGIONS  <<******          11687113
118200*********************>>  2018  <<**********************           11687213
118200*********************>>  2018  <<**********************           11687313
031000*                                                                 11687413
118300                                                                  11687513
031000**************YEARCHANGE 2018.0 *******************************   11687613
017400***************************************************************   11687713
017500*    RATE COMPONENT TABLE AREA FOR REGIONS - QRP              *   11687813
019200*         STARTING IN 2018 & ALL FUTURE YEARS                 *   11687913
019200*  FORMAT FOR RATE TABLE 2018 FOR OCT 1, 2017                 *   11688013
0R9300*  REGION = ( 1 = RURAL  RATES )                              *   11688113
0R9300*           ( 2 = URBAN  RATES )                              *   11688213
R19300*           ( 3 = RURAL-QRP-FAIL  RATES )                     *   11688313
R19300*           ( 4 = URBAN-QRP-FAIL  RATES )                     *   11688413
019400***************************************************************   11688513
019500 01  REGION-TABLE-Q.                                              11688613
019600     02  REGION-DATA-Q.                                           11688713
030400**************YEARCHANGE 2018.0 *******************************   11688813
030500*  RATE COMPONENT TABLE FOR FY2018 EFFECTIVE OCT 1, 2017          11688913
030600*  20171001/               REGION/ INP / GEN SER / THER / REHAB   11689013
030700     05  FILLER    PIC X(08) VALUE '20171001'.                    11689113
030800     05  FILLER    PIC X(25) VALUE '1 16929 09211 01878 15392'.   11689213
030900     05  FILLER    PIC X(25) VALUE '2 17721 09044 01758 13348'.   11689313
030800     05  FILLER    PIC X(25) VALUE '3 16594 09029 01841 15087'.   11689413
030900     05  FILLER    PIC X(25) VALUE '4 17370 08865 01723 13084'.   11689513
031000**************YEARCHANGE 2018.0 *******************************   11689613
031100     02  REGION-DATA-Q2         REDEFINES REGION-DATA-Q.          11689713
031200         04  REG-PERIOD-Q          OCCURS 1.                      11689813
031300**************YEARCHANGE 2018.0 *******************************   11689913
031400             06  REG-EFF-DATE-Q           PIC X(08).              11690013
031500             06  REGS-Q                OCCURS 4.                  11690113
031600                 08  REG-DATA-Q        OCCURS 1.                  11690213
031700                     10  REGION-Q         PIC X.                  11690313
031800                     10  FILLER           PIC X.                  11690413
031900                     10  R-IP-RATE-Q      PIC 999V99.             11690513
032000                     10  FILLER           PIC X.                  11690613
032100                     10  R-GS-RATE-Q      PIC 999V99.             11690713
032200                     10  FILLER           PIC X.                  11690813
032300                     10  R-TH-RATE-Q      PIC 999V99.             11690913
032400                     10  FILLER           PIC X.                  11691013
032500                     10  R-REHAB-RATE-Q   PIC 999V99.             11691113
032600                                                                  11691213
030400**************YEARCHANGE 2018.0 *******************************   11691313
030400**************YEARCHANGE 2018.0 *******************************   11691413
032700                                                                  11691613
118400                                                                  11691711
030400**************YEARCHANGE 2018.0 *******************************   11691813
118500***************************************************************   11691911
118600*     RATE COMPONENT TABLE AREA OF RUG 67 CODES FOR FY2018    *   11692013
118700*     EFFECTIVE OCT  1, 2017                                  *   11692113
118800*     FORMAT FOR RUG TABLE 67                                 *   11692213
118900*     N = NURSING                                             *   11692313
118900*     T = THERAPY                                             *   11692413
118900*     F = THERAPY COMPONENT FACTOR                            *   11692513
119000***************************************************************   11692613
119100 01  RUG67-2018-TABLE-Q.                                          11692713
119200     02  RUG67-2018-DATA1-Q.                                      11692813
119300*                                      RUG  REV                   11692913
119400*                                      CODE CODE N - T - F        11693013
119500         03  FILLER  PIC X(19)  VALUE 'AAA  9000 054 000 1'.      11693113
119600         03  FILLER  PIC X(19)  VALUE 'BA1  9011 064 000 1'.      11693213
119700         03  FILLER  PIC X(19)  VALUE 'BA2  9012 070 000 1'.      11693313
119800         03  FILLER  PIC X(19)  VALUE 'BB1  9013 090 000 1'.      11693413
119900         03  FILLER  PIC X(19)  VALUE 'BB2  9014 097 000 1'.      11693513
120000         03  FILLER  PIC X(19)  VALUE 'CA1  9019 078 000 1'.      11693613
120100         03  FILLER  PIC X(19)  VALUE 'CA2  9020 088 000 1'.      11693713
120200         03  FILLER  PIC X(19)  VALUE 'CB1  9021 102 000 1'.      11693813
120300         03  FILLER  PIC X(19)  VALUE 'CB2  9022 115 000 1'.      11693913
120400         03  FILLER  PIC X(19)  VALUE 'CC1  9023 115 000 1'.      11694013
120500         03  FILLER  PIC X(19)  VALUE 'CC2  9024 129 000 1'.      11694113
120600         03  FILLER  PIC X(19)  VALUE 'CD1  9024 138 000 1'.      11694213
120700         03  FILLER  PIC X(19)  VALUE 'CD2  9024 156 000 1'.      11694313
120800         03  FILLER  PIC X(19)  VALUE 'CE1  9024 150 000 1'.      11694413
120900         03  FILLER  PIC X(19)  VALUE 'CE2  9028 168 000 1'.      11694513
121000         03  FILLER  PIC X(19)  VALUE 'ES1  9028 232 000 1'.      11694613
121100         03  FILLER  PIC X(19)  VALUE 'ES2  9029 267 000 1'.      11694713
121200         03  FILLER  PIC X(19)  VALUE 'ES3  9030 358 000 1'.      11694813
121300         03  FILLER  PIC X(19)  VALUE 'HB1  9015 146 000 1'.      11694913
121400         03  FILLER  PIC X(19)  VALUE 'HB2  9016 186 000 1'.      11695013
121500         03  FILLER  PIC X(19)  VALUE 'HC1  9017 148 000 1'.      11695113
121600         03  FILLER  PIC X(19)  VALUE 'HC2  9018 189 000 1'.      11695213
121700         03  FILLER  PIC X(19)  VALUE 'HD1  9018 160 000 1'.      11695313
121800         03  FILLER  PIC X(19)  VALUE 'HD2  9018 204 000 1'.      11695413
121900         03  FILLER  PIC X(19)  VALUE 'HE1  9018 174 000 1'.      11695513
122000         03  FILLER  PIC X(19)  VALUE 'HE2  9018 222 000 1'.      11695613
122100         03  FILLER  PIC X(19)  VALUE 'LB1  9018 114 000 1'.      11695713
122200         03  FILLER  PIC X(19)  VALUE 'LB2  9018 145 000 1'.      11695813
122300         03  FILLER  PIC X(19)  VALUE 'LC1  9018 122 000 1'.      11695913
122400         03  FILLER  PIC X(19)  VALUE 'LC2  9018 156 000 1'.      11696013
122500         03  FILLER  PIC X(19)  VALUE 'LD1  9018 146 000 1'.      11696113
122600         03  FILLER  PIC X(19)  VALUE 'LD2  9018 186 000 1'.      11696213
122700         03  FILLER  PIC X(19)  VALUE 'LE1  9018 154 000 1'.      11696313
122800         03  FILLER  PIC X(19)  VALUE 'LE2  9018 196 000 1'.      11696413
122900         03  FILLER  PIC X(19)  VALUE 'PA1  9001 054 000 1'.      11696513
123000         03  FILLER  PIC X(19)  VALUE 'PA2  9002 059 000 1'.      11696613
123100         03  FILLER  PIC X(19)  VALUE 'PB1  9003 078 000 1'.      11696713
123200         03  FILLER  PIC X(19)  VALUE 'PB2  9004 084 000 1'.      11696813
123300         03  FILLER  PIC X(19)  VALUE 'PC1  9005 102 000 1'.      11696913
123400         03  FILLER  PIC X(19)  VALUE 'PC2  9006 110 000 1'.      11697013
123500         03  FILLER  PIC X(19)  VALUE 'PD1  9007 128 000 1'.      11697113
123600         03  FILLER  PIC X(19)  VALUE 'PD2  9008 138 000 1'.      11697213
123700         03  FILLER  PIC X(19)  VALUE 'PE1  9009 140 000 1'.      11697313
123800         03  FILLER  PIC X(19)  VALUE 'PE2  9010 150 000 1'.      11697413
123900         03  FILLER  PIC X(19)  VALUE 'RHA  9036 091 085 0'.      11697513
124000         03  FILLER  PIC X(19)  VALUE 'RHB  9037 119 085 0'.      11697613
124100         03  FILLER  PIC X(19)  VALUE 'RHC  9038 145 085 0'.      11697713
124200         03  FILLER  PIC X(19)  VALUE 'RHL  9048 215 085 0'.      11697813
124300         03  FILLER  PIC X(19)  VALUE 'RHX  9049 255 085 0'.      11697913
124400         03  FILLER  PIC X(19)  VALUE 'RLA  9031 071 028 0'.      11698013
124500         03  FILLER  PIC X(19)  VALUE 'RLB  9032 150 028 0'.      11698113
124600         03  FILLER  PIC X(19)  VALUE 'RLX  9045 226 028 0'.      11698213
124700         03  FILLER  PIC X(19)  VALUE 'RMA  9033 084 055 0'.      11698313
124800         03  FILLER  PIC X(19)  VALUE 'RMB  9034 122 055 0'.      11698413
124900         03  FILLER  PIC X(19)  VALUE 'RMC  9035 136 055 0'.      11698513
125000         03  FILLER  PIC X(19)  VALUE 'RML  9046 219 055 0'.      11698613
125100         03  FILLER  PIC X(19)  VALUE 'RMX  9047 247 055 0'.      11698713
125200         03  FILLER  PIC X(19)  VALUE 'RUA  9042 099 187 0'.      11698813
125300         03  FILLER  PIC X(19)  VALUE 'RUB  9043 156 187 0'.      11698913
125400         03  FILLER  PIC X(19)  VALUE 'RUC  9044 156 187 0'.      11699013
125500         03  FILLER  PIC X(19)  VALUE 'RUL  9052 257 187 0'.      11699113
125600         03  FILLER  PIC X(19)  VALUE 'RUX  9053 267 187 0'.      11699213
125700         03  FILLER  PIC X(19)  VALUE 'RVA  9039 110 128 0'.      11699313
125800         03  FILLER  PIC X(19)  VALUE 'RVB  9040 111 128 0'.      11699413
125900         03  FILLER  PIC X(19)  VALUE 'RVC  9041 151 128 0'.      11699513
126000         03  FILLER  PIC X(19)  VALUE 'RVL  9050 219 128 0'.      11699613
126100         03  FILLER  PIC X(19)  VALUE 'RVX  9051 261 128 0'.      11699713
127500                                                                  11699813
126200     02  RUG67-2018-DATA2-Q                                       11699913
126200             REDEFINES RUG67-2018-DATA1-Q                         11700013
126200                OCCURS 67                                         11700113
126300                   ASCENDING KEY IS RUG67-2018-CODE-Q             11700213
126400                      INDEXED BY RUG67-2018-01-Q.                 11700313
127700                                                                  11700413
126500         03  RUG67-2018-CODE-Q        PIC X(03).                  11700513
126600         03  RUG67-2018-REGS-Q        OCCURS 1.                   11700613
030400**************YEARCHANGE 2018.0 *************************         11700713
126700             04  FILLER               PIC XX.                     11700813
126800             04  REV67-2018-CODE-Q    PIC XXXX.                   11700913
126900             04  FILLER               PIC X.                      11701013
127000             04  RUG67-2018-NURSING-Q PIC 9V99.                   11701113
127100             04  FILLER               PIC X.                      11701213
127200             04  RUG67-2018-THERAPY-Q PIC 9V99.                   11701313
127300             04  FILLER               PIC X.                      11701413
127400             04  RUG67-2018-FACTOR-Q  PIC 9.                      11701513
127600                                                                  11701613
127800*-------------------------------------------------------*         11701713
127800*****>>  END OF RATE COMPONENT TABLE FOR FY2018  <<******         11701913
127800*-------------------------------------------------------*         11702013
127600                                                                  11702113
127800*-------------------------------------------------------*         11702213
127800*------------>>  END OF WORKING STORGE  <<--------------*         11702313
127800*-----------------------------------------  ------------*         11702413
127700                                                                  11702513
127900 LINKAGE SECTION.                                                 11702613
128000***************************************************************   11702713
128100*                 * * * * * * * * *                           *   11702813
128200***************************************************************   11702913
128300***************************************************************   11703013
128400*    THIS DATA IS CALCULATED BY THIS SNFPR  SUBROUTINE        *   11703113
128500*    AND PASSED BACK TO THE CALLING PROGRAM                   *   11703213
128600*            RETURN CODE VALUES (SNF-RTC)                     *   11703313
128700*                                                             *   11703413
128800*            SNF-RTC                                          *   11703513
128900*              00 = RUG III GROUP RATE RETURNED               *   11703613
129000*                                                             *   11703713
129100*            SNF-RTC   NO RATE RETURNED                       *   11703813
129200*                                                             *   11703913
129300*              20 = INVALID RUG CODE                          *   11704013
129400*                                                             *   11704113
129500*              30 = INVALID MSA OR CBSA OR WAGE INDEX         *   11704213
129600*                                                             *   11704313
129700*              40 = THRU DATE < JULY 1 1998 OR INVALID        *   11704413
129800*                                                             *   11705013
129900*              50 = INVALID FEDERAL BLEND FOR THAT YEAR       *   11710009
130000*                                                             *   11720009
130100*              60 = INVALID FEDERAL BLEND                     *   11730009
130200*                                                             *   11740009
130300*              61 = FEDERAL BLEND = 0 AND                     *   11750009
130400*                   SNF THRU DATE < JAN 1, 2000               *   11760009
130500*                                                             *   11770009
130600***************************************************************   11780009
130700*     IP-RATE, GS-RATE, MDS-RATE, THERAPY, REHAB              *   11790009
130800***************************************************************   11800009
130900 01  SNF-DATA.                                                    11810009
131000     10  SNF-MSA               PIC XXXX.                          11820009
131100     10  SNF-CBSA              PIC XXXXX.                         11830009
131200     10  SNF-SPEC-WI-IND       PIC X.                             11840009
131300     10  SNF-SPEC-WI           PIC 9(02)V9(04).                   11850009
131400     10  SNF-RUG-CODE.                                            11860009
131500         15  SNF-RUG           PIC XXX.                           11870009
131600         15  FILLER            PIC XX.                            11880009
131700                                                                  11890009
131800     10  SNF-FROM-DATE.                                           11900009
131900         15  SNF-FROM-CC        PIC XX.                           11910009
132000         15  SNF-FROM-YY        PIC XX.                           11920009
132100         15  SNF-FROM-MM        PIC XX.                           11930009
132200         15  SNF-FROM-DD        PIC XX.                           11940009
132300                                                                  11950009
132400     10  SNF-THRU-DATE.                                           11960009
132500         15  SNF-THRU-CC       PIC XX.                            11970009
132600         15  SNF-THRU-YY       PIC XX.                            11980009
132700         15  SNF-THRU-MM       PIC XX.                            11990009
132800         15  SNF-THRU-DD       PIC XX.                            12000009
132900                                                                  12010009
133000     10  SNF-FED-BLEND         PIC X.                             12020009
133100         88  SNF-ALL-FACILITY      VALUE '0'.                     12030009
133200         88  SNF-FED-BLEND-2575PER VALUE '1'.                     12040009
133300         88  SNF-FED-BLEND-5050PER VALUE '2'.                     12050009
133400         88  SNF-FED-BLEND-7525PER VALUE '3'.                     12060009
133500         88  SNF-FED-BLEND-100PER  VALUE '4'.                     12070009
133600     10  SNF-FACILITY-RATE     PIC 9(05)V99.                      12080009
133700     10  SNF-DIAGNOSIS-CODES.                                     12090009
133800         15  SNF-PRIN-DIAG-CODE    PIC X(07).                     12100009
133900         15  SNF-OTHER-DIAG-CODE2  PIC X(07).                     12110009
134000         15  SNF-OTHER-DIAG-CODE3  PIC X(07).                     12120009
134100         15  SNF-OTHER-DIAG-CODE4  PIC X(07).                     12130009
134200         15  SNF-OTHER-DIAG-CODE5  PIC X(07).                     12140009
134300         15  SNF-OTHER-DIAG-CODE6  PIC X(07).                     12150009
134400         15  SNF-OTHER-DIAG-CODE7  PIC X(07).                     12160009
134500         15  SNF-OTHER-DIAG-CODE8  PIC X(07).                     12170009
134600         15  SNF-OTHER-DIAG-CODE9  PIC X(07).                     12180009
134700         15  SNF-OTHER-DIAG-CODE10 PIC X(07).                     12190009
134800         15  SNF-OTHER-DIAG-CODE11 PIC X(07).                     12200009
134900         15  SNF-OTHER-DIAG-CODE12 PIC X(07).                     12210009
135000         15  SNF-OTHER-DIAG-CODE13 PIC X(07).                     12220009
135100         15  SNF-OTHER-DIAG-CODE14 PIC X(07).                     12230009
135200         15  SNF-OTHER-DIAG-CODE15 PIC X(07).                     12240009
135300         15  SNF-OTHER-DIAG-CODE16 PIC X(07).                     12250009
135400         15  SNF-OTHER-DIAG-CODE17 PIC X(07).                     12260009
135500         15  SNF-OTHER-DIAG-CODE18 PIC X(07).                     12270009
135600         15  SNF-OTHER-DIAG-CODE19 PIC X(07).                     12280009
135700         15  SNF-OTHER-DIAG-CODE20 PIC X(07).                     12290009
135800         15  SNF-OTHER-DIAG-CODE21 PIC X(07).                     12300009
135900         15  SNF-OTHER-DIAG-CODE22 PIC X(07).                     12310009
136000         15  SNF-OTHER-DIAG-CODE23 PIC X(07).                     12320009
136100         15  SNF-OTHER-DIAG-CODE24 PIC X(07).                     12330009
136200         15  SNF-OTHER-DIAG-CODE25 PIC X(07).                     12340009
136300     10  SNF-RATE-RTC.                                            12350009
136400         15  SNF-PAYMENT-RATE      PIC 9(06)V99.                  12360009
136500         15  SNF-RTC               PIC XX.                        12370009
136600     10  FILLER                    PIC X(24).                     12380009
136700                                                                  12390009
136800 01  HOLD-VARIABLES.                                              12400009
136900     02  HOLD-VAR-DATA.                                           12410009
137000         05  FACTOR                         PIC 9.                12420009
137100         05  NUR-INDEX                      PIC 9V99.             12430009
137200         05  THR-INDEX                      PIC 9V99.             12440009
137300         05  AREA-WAGE-INDEX                PIC 9(01)V9(04).      12450009
137400         05  IP-RATE                        PIC 9(03)V9(02).      12460009
137500         05  GS-RATE                        PIC 9(02)V9(02).      12470009
137600         05  TH-RATE                        PIC 9(02)V9(02).      12480009
137700         05  REHAB-RATE                     PIC 9(03)V9(02).      12490009
137800         05  NURSING-COMPONENT              PIC 999V99.           12500009
137900         05  THERAPY-COMPONENT              PIC 999V99.           12510009
138000         05  NCM-THR-COMPONENT              PIC 999V99.           12520009
138100         05  NCM-COMPONENT                  PIC 999V99.           12530009
138200         05  PAYMENT-RATE-ADJ               PIC 9(06)V99.         12540009
138300         05  FED-PAYMENT-PORTION            PIC 9(06)V99.         12550009
138400     02  SNFPR-VERSION                      PIC X(09).            12560009
138500                                                                  12570009
138600 01  MSA-WAGE-INDEX-RECORD.                                       12580009
138700     02  HOLD-MSA-WIR-DATA.                                       12590009
138800         05  MSA-WIR-MSA             PIC X(04).                   12600009
138900         05  MSA-WIR-EFFDATE         PIC X(08).                   12610009
139000         05  MSA-WIR-AREA-WAGEIND    PIC 9(02)V9(04).             12620009
139100                                                                  12630009
139200 01  CBSA-WAGE-INDEX-RECORD.                                      12640009
139300     02  HOLD-CBSA-WIR-DATA.                                      12650009
139400         05  CBSA-WIR-CBSA            PIC X(05).                  12660009
139500         05  CBSA-WIR-EFFDATE         PIC X(08).                  12670009
139600         05  CBSA-WIR-AREA-WAGEIND    PIC 9(02)V9(04).            12680009
139700                                                                  12690009
139800 PROCEDURE DIVISION            USING SNF-DATA                     12700009
139900                                     HOLD-VARIABLES               12710009
140000                                     CBSA-WAGE-INDEX-RECORD       12720009
140100                                     MSA-WAGE-INDEX-RECORD.       12730009
140200                                                                  12740009
140300***************************************************************   12750009
140400*    PROCESSING:                                              *   12760009
140500*        -  WILL PROCESS ALL NATIONAL SNF FOR 1998 THRU 2009  *   12770009
140600*                STARTING JULY 1, 1998                        *   12780009
140700***************************************************************   12790009
140800                                                                  12800009
140900     PERFORM 0200-MAINLINE-CONTROL.                               12810009
141000                                                                  12820009
141100     MOVE HOLD-SNF-DATA        TO SNF-DATA.                       12830009
141200                                                                  12840009
141300     GOBACK.                                                      12850009
141400                                                                  12860009
141500 0200-MAINLINE-CONTROL.                                           12870009
141600                                                                  12880009
141700     MOVE SNF-DATA             TO HOLD-SNF-DATA.                  12890009
141800                                                                  12900009
141900     MOVE ALL '0'              TO HLD-RATE-RTC                    12910009
142000                                  HOLD-VAR-DATA                   12920009
142100                                  WK-PAYMENT-RATE                 12930009
142200                                  WK-FACILITY-RATE.               12940009
142300                                                                  12950009
142400     MOVE CAL-VERSION          TO SNFPR-VERSION.                  12960009
142500                                                                  12970009
142600     IF  HLD-RTC = 00                                             12980009
142700         PERFORM 400-CALC-THE-SNF                                 12990009
142800            THRU 400-EXIT.                                        13000009
142900                                                                  13010009
143000 400-CALC-THE-SNF.                                                13020009
143100                                                                  13030009
143200     MOVE HLD-FROM-DATE        TO HLD-PRICE-FROM-DATE             13040009
143300                                                                  13050009
143400     MOVE HLD-THRU-DATE        TO HLD-PRICE-THRU-DATE             13060009
143500                                                                  13070009
143600     IF HLD-PRICE-THRU-MMDD = '1001' AND                          13080009
143700        HLD-PRICE-FROM-DATE < HLD-PRICE-THRU-DATE                 13090009
143800        MOVE '0930'            TO HLD-PRICE-THRU-MMDD.            13100009
143900                                                                  13110009
144000     IF HLD-THRU-DATE < 19980701                                  13120009
144100         MOVE '40'             TO HLD-RTC.                        13130009
144200                                                                  13140009
144300     IF HLD-RTC NOT = 00                                          13150009
144400            GO TO 400-EXIT.                                       13160009
144500                                                                  13170009
144600**************YEARCHANGE 2018.0 *******************************   13180009
144700     IF HLD-PRICE-THRU-DATE > 20170930                            13190009
144800        MOVE CBSA-WIR-AREA-WAGEIND                                13200009
144900                               TO AREA-WAGE-INDEX                 13210009
145000        PERFORM 2018-67-PAYMENT-RATE-CALC                         13220009
145100           THRU 2018-67-EXIT                                      13230009
145200        GO TO 400-EXIT.                                           13240009
145300**************YEARCHANGE 2018.0 *******************************   13250009
144600**************YEARCHANGE 2017.0 *******************************   13260009
144700     IF HLD-PRICE-THRU-DATE > 20160930                            13270009
144800        MOVE CBSA-WIR-AREA-WAGEIND                                13280009
144900                               TO AREA-WAGE-INDEX                 13290009
145000        PERFORM 2017-67-PAYMENT-RATE-CALC                         13300009
145100           THRU 2017-67-EXIT                                      13310009
145200        GO TO 400-EXIT.                                           13320009
145300**************YEARCHANGE 2017.0 *******************************   13321009
144600**************YEARCHANGE 2016.0 *******************************   13322009
144700     IF HLD-PRICE-THRU-DATE > 20150930                            13323009
144800        MOVE CBSA-WIR-AREA-WAGEIND                                13324009
144900                               TO AREA-WAGE-INDEX                 13325009
145000        PERFORM 2016-67-PAYMENT-RATE-CALC                         13326009
145100           THRU 2016-67-EXIT                                      13327009
145200        GO TO 400-EXIT.                                           13328009
145300**************YEARCHANGE 2016.0 *******************************   13329009
145400**************YEARCHANGE 2015.0 *******************************   13330009
145500     IF HLD-PRICE-THRU-DATE > 20140930                            13340009
145600        MOVE CBSA-WIR-AREA-WAGEIND                                13350009
145700                               TO AREA-WAGE-INDEX                 13360009
145800        PERFORM 2015-67-PAYMENT-RATE-CALC                         13370009
145900           THRU 2015-67-EXIT                                      13380009
146000        GO TO 400-EXIT.                                           13390009
146100**************YEARCHANGE 2015.0 *******************************   13400009
146200**************YEARCHANGE 2014.0 *******************************   13410009
146300     IF HLD-PRICE-THRU-DATE > 20130930                            13411009
146400        MOVE CBSA-WIR-AREA-WAGEIND                                13412009
146500                               TO AREA-WAGE-INDEX                 13413009
146600        PERFORM 2014-67-PAYMENT-RATE-CALC                         13414009
146700           THRU 2014-67-EXIT                                      13415009
146800        GO TO 400-EXIT.                                           13416009
146900**************YEARCHANGE 2014.0 *******************************   13417009
147000**************YEARCHANGE 2013.0 *******************************   13418009
147100     IF HLD-PRICE-THRU-DATE > 20120930                            13419009
147200        MOVE CBSA-WIR-AREA-WAGEIND                                13420009
147300                               TO AREA-WAGE-INDEX                 13430009
147400        PERFORM 2013-67-PAYMENT-RATE-CALC                         13440009
147500           THRU 2013-67-EXIT                                      13450009
147600        GO TO 400-EXIT.                                           13460009
147700**************YEARCHANGE 2013.0 *******************************   13470009
147800**************YEARCHANGE 2012.0 *******************************   13480009
147900     IF HLD-PRICE-THRU-DATE > 20110930                            13490009
148000        MOVE CBSA-WIR-AREA-WAGEIND                                13500009
148100                               TO AREA-WAGE-INDEX                 13510009
148200        PERFORM 2012-67-PAYMENT-RATE-CALC                         13520009
148300           THRU 2012-67-EXIT                                      13530009
148400        GO TO 400-EXIT.                                           13540009
148500**************YEARCHANGE 2012.0 *******************************   13550009
148600**************YEARCHANGE 2011.0 *******************************   13560009
148700     IF HLD-PRICE-THRU-DATE > 20100930                            13570009
148800        MOVE CBSA-WIR-AREA-WAGEIND                                13580009
148900                               TO AREA-WAGE-INDEX                 13590009
149000        PERFORM 2011-67-PAYMENT-RATE-CALC                         13600009
149100           THRU 2011-67-EXIT                                      13610009
149200        GO TO 400-EXIT.                                           13620009
149300**************YEARCHANGE 2011.0 *******************************   13630009
149400**************YEARCHANGE 2010.0 *******************************   13640009
149500     IF HLD-PRICE-THRU-DATE > 20090930                            13650009
149600        MOVE CBSA-WIR-AREA-WAGEIND                                13660009
149700                               TO AREA-WAGE-INDEX                 13670009
149800        PERFORM 2010-53-PAYMENT-RATE-CALC                         13680009
149900           THRU 2010-53-EXIT                                      13690009
150000        GO TO 400-EXIT.                                           13700009
150100**************YEARCHANGE 2010.0 *******************************   13710009
150200**************YEARCHANGE 2009.0 *******************************   13720009
150300     IF HLD-PRICE-THRU-DATE > 20080930                            13730009
150400        MOVE CBSA-WIR-AREA-WAGEIND                                13740009
150500                               TO AREA-WAGE-INDEX                 13750009
150600        PERFORM 2009-53-PAYMENT-RATE-CALC                         13760009
150700           THRU 2009-53-EXIT                                      13770009
150800        GO TO 400-EXIT.                                           13780009
150900**************YEARCHANGE 2009.0 *******************************   13790009
151000**************YEARCHANGE 2008.0 *******************************   13800009
151100     IF HLD-PRICE-THRU-DATE > 20070930                            13810009
151200        MOVE CBSA-WIR-AREA-WAGEIND                                13820009
151300                               TO AREA-WAGE-INDEX                 13830009
151400        PERFORM 2008-53-PAYMENT-RATE-CALC                         13840009
151500           THRU 2008-53-EXIT                                      13850009
151600        GO TO 400-EXIT.                                           13860009
151700**************YEARCHANGE 2008.0 *******************************   13870009
151800**************YEARCHANGE 2007.0 *******************************   13880009
151900     IF HLD-PRICE-THRU-DATE > 20060930                            13890009
152000        MOVE CBSA-WIR-AREA-WAGEIND                                13900009
152100                               TO AREA-WAGE-INDEX                 13910009
152200        PERFORM 2007-53-PAYMENT-RATE-CALC THRU 2007-53-EXIT       13920009
152300        GO TO 400-EXIT.                                           13930009
152400**************YEARCHANGE 2007.0 *******************************   13940009
152500**************YEARCHANGE 2006.1 *******************************   13950009
152600     IF HLD-PRICE-THRU-DATE > 20051231                            13960009
152700        MOVE CBSA-WIR-AREA-WAGEIND                                13970009
152800                               TO AREA-WAGE-INDEX                 13980009
152900        PERFORM 2006-53-PAYMENT-RATE-CALC                         13990009
153000           THRU 2006-53-EXIT                                      14000009
153100        GO TO 400-EXIT.                                           14010009
153200**************YEARCHANGE 2006.1 *******************************   14020009
153300**************YEARCHANGE 2006.0 *******************************   14030009
153400     IF HLD-PRICE-THRU-DATE > 20050930 AND                        14040009
153500        HLD-PRICE-THRU-DATE < 20060101                            14050009
153600        MOVE CBSA-WIR-AREA-WAGEIND                                14060009
153700                               TO AREA-WAGE-INDEX                 14070009
153800        PERFORM 2006-44-PAYMENT-RATE-CALC                         14080009
153900           THRU 2006-44-EXIT                                      14090009
154000        GO TO 400-EXIT.                                           14100009
154100**************YEARCHANGE 2006.0 *******************************   14110009
154200                                                                  14120009
154300     MOVE MSA-WIR-AREA-WAGEIND TO AREA-WAGE-INDEX.                14130009
154400                                                                  14140009
154500     IF HLD-PRICE-THRU-DATE > 20040930                            14150009
154600        PERFORM 2005-PAYMENT-RATE-CALC                            14160009
154700           THRU 2005-EXIT                                         14170009
154800        GO TO 400-EXIT.                                           14180009
154900                                                                  14190009
155000     IF HLD-PRICE-THRU-DATE > 20030930                            14200009
155100        PERFORM 2004-PAYMENT-RATE-CALC                            14210009
155200           THRU 2004-EXIT                                         14220009
155300                                                                  14230009
155400        GO TO 400-EXIT.                                           14240009
155500                                                                  14250009
155600     IF HLD-PRICE-THRU-DATE > 20020930                            14260009
155700        PERFORM 2003-PAYMENT-RATE-CALC                            14270009
155800           THRU 2003-EXIT                                         14280009
155900        GO TO 400-EXIT.                                           14290009
156000                                                                  14300009
156100     IF HLD-PRICE-THRU-DATE > 20010930                            14310009
156200        PERFORM 2002-PAYMENT-RATE-CALC                            14320009
156300           THRU 2002-EXIT                                         14330009
156400        GO TO 400-EXIT.                                           14340009
156500                                                                  14350009
156600     IF HLD-PRICE-THRU-DATE > 20010331                            14360009
156700        PERFORM 2001A-PAYMENT-RATE-CALC                           14370009
156800           THRU 2001A-EXIT                                        14380009
156900        GO TO 400-EXIT.                                           14390009
157000                                                                  14400009
157100     IF HLD-PRICE-THRU-DATE > 20000930                            14410009
157200        PERFORM 2001-PAYMENT-RATE-CALC                            14420009
157300           THRU 2001-EXIT                                         14430009
157400        GO TO 400-EXIT.                                           14440009
157500                                                                  14450009
157600     IF HLD-PRICE-THRU-DATE > 19990930                            14460009
157700        PERFORM 2000-PAYMENT-RATE-CALC                            14470009
157800           THRU 2000-EXIT                                         14480009
157900        GO TO 400-EXIT.                                           14490009
158000                                                                  14500009
158100     IF HLD-PRICE-THRU-DATE > 19980630                            14510009
158200        PERFORM 1999-PAYMENT-RATE-CALC                            14520009
158300           THRU 1999-EXIT                                         14530009
158400        GO TO 400-EXIT.                                           14540009
158500                                                                  14550009
158600                                                                  14560009
158700 400-EXIT.                                                        14570009
158800     EXIT.                                                        14580009
158900                                                                  14590009
159000 500-GET-RATES.                                                   14600009
159700                                                                  14601013
127800*-------------------------------------------------------*         14601114
127800*---------->> RATE SEARCH FOR FY2018 & FUTURE <<--------*         14601214
027800*--------->> NOW 4 REGIONS DUE TO QRP PENALTY <<--------*         14601315
127800*-------------------------------------------------------*         14601414
159100                                                                  14601515
144700     IF HLD-PRICE-FROM-DATE > 20170930                            14602019
159100                                                                  14610014
150000        PERFORM 650-WHICH-RATES-NOW-FUTURE                        14611015
150000                VARYING R1                                        14611113
159300                    FROM 1 BY 1                                   14612013
159400                       UNTIL R1 > 1                               14613013
159100                                                                  14613120
159500     ELSE                                                         14614013
127800*-------------------------------------------------------*         14615014
127800*------->>  RATE SEARCH FOR FY1998 THRU FY2017  <<------*         14616014
027800*--------->>       ONLY 2 REGIONS             <<--------*         14617014
027800*-------------------------------------------------------*         14618014
159200         PERFORM 600-WHICH-RATES                                  14620013
159200                 VARYING R1                                       14621013
159200                     FROM 1 BY 1                                  14622013
159400                        UNTIL R1 > 20                             14640013
159500     END-IF.                                                      14651013
159700                                                                  14652013
158900                                                                  14653013
159600 500-EXIT.    EXIT.                                               14660009
159100                                                                  14673012
159700                                                                  14679012
159800 600-WHICH-RATES.                                                 14680009
159900                                                                  14690009
160000     IF HLD-PRICE-THRU-DATE NOT < REG-EFF-DATE (R1)               14700009
159900                                                                  14701015
160100       MOVE R-IP-RATE (R1, R2, R3)                                14710009
160200                               TO IP-RATE                         14720009
160300       MOVE R-GS-RATE (R1, R2, R3)                                14730009
160400                               TO GS-RATE,                        14740009
160500                                  NCM-COMPONENT                   14750009
160600       MOVE R-TH-RATE (R1, R2, R3)                                14760009
160700                               TO TH-RATE,                        14770009
160800                                  NCM-THR-COMPONENT               14780009
160900       MOVE R-REHAB-RATE (R1, R2, R3)                             14790009
161000                               TO REHAB-RATE                      14800014
370500     END-IF.                                                      14801014
161100                                                                  14802020
           DISPLAY ' '.                                                 14803020
161100     DISPLAY 'FROM 600-WHICH-RATES'                               14810020
161100                                                                  14810120
161100     DISPLAY 'IP-RATE           = ' IP-RATE.                      14810420
161100     DISPLAY 'REHAB-RATE        = ' REHAB-RATE.                   14810520
161100     DISPLAY 'GS-RATE           = ' GS-RATE.                      14810620
161100     DISPLAY 'NCM-COMPONENT     = ' NCM-COMPONENT.                14810720
161100     DISPLAY 'TH-RATE           = ' TH-RATE.                      14810820
161100     DISPLAY 'NCM-THR-COMPONENT = ' NCM-THR-COMPONENT.            14810920
           DISPLAY ' '.                                                 14811020
159700                                                                  14811113
159800 650-WHICH-RATES-NOW-FUTURE.                                      14812016
159900                                                                  14813013
160000     IF HLD-PRICE-THRU-DATE NOT < REG-EFF-DATE (R1)               14814013
160100       MOVE R-IP-RATE-Q (R1, R2, R3)                              14815013
160200                               TO IP-RATE                         14816014
160300       MOVE R-GS-RATE-Q (R1, R2, R3)                              14817015
160400                               TO GS-RATE                         14818014
160500                                  NCM-COMPONENT                   14819014
160600       MOVE R-TH-RATE-Q (R1, R2, R3)                              14819113
160700                               TO TH-RATE                         14819214
160800                                  NCM-THR-COMPONENT               14819314
160900       MOVE R-REHAB-RATE-Q (R1, R2, R3)                           14819413
161000                               TO REHAB-RATE                      14819514
370500     END-IF.                                                      14819614
159700                                                                  14819720
           DISPLAY ' '.                                                 14819820
161100     DISPLAY 'FROM 650-WHICH-RATES-NOW-FUTURE'                    14819920
161100     DISPLAY 'IP-RATE          = ' IP-RATE.                       14820020
161100     DISPLAY 'REHAB-RATE       = ' REHAB-RATE.                    14820220
161100     DISPLAY 'GS-RATE          = ' GS-RATE.                       14820320
161100     DISPLAY 'NCM-COMPONENT    = ' NCM-COMPONENT.                 14820420
161100     DISPLAY 'TH-RATE           = ' TH-RATE.                      14820520
161100     DISPLAY 'NCM-THR-COMPONENT = ' NCM-THR-COMPONENT.            14820620
           DISPLAY ' '.                                                 14820820
159700                                                                  14820920
161100                                                                  14821020
161200 800-SEARCH-4-RUG.                                                14822009
161300     SET RUG01                 TO 1.                              14830009
161400     SEARCH RUG-DATA2 VARYING RUG01                               14840009
161500       AT END                                                     14850009
161600           MOVE '20'           TO HLD-RTC                         14860009
161700           GO TO 800-SEARCH-EXIT                                  14870009
161800       WHEN RUG-CODE (RUG01) = HLD-RUG                            14880009
161900                                                                  14890009
162000           MOVE RUG-NURSING (RUG01, R3)                           14900009
162100                               TO NUR-INDEX                       14910009
162200           MOVE RUG-THERAPY (RUG01, R3)                           14920009
162300                               TO THR-INDEX                       14930009
162400           MOVE RUG-FACTOR  (RUG01, R3)                           14940009
162500                               TO FACTOR.                         14950009
162600                                                                  14960009
162700 800-SEARCH-EXIT.   EXIT.                                         14970009
162800                                                                  14980009
162900 900-SEARCH-4-RUG53.                                              14990009
163000     SET RUG53-01              TO 1.                              15000009
163100     SEARCH RUG53-DATA2 VARYING RUG53-01                          15010009
163200       AT END                                                     15020009
163300           MOVE '20'           TO HLD-RTC                         15030009
163400           GO TO 900-SEARCH-EXIT                                  15040009
163500                                                                  15050009
163600       WHEN RUG53-CODE (RUG53-01) = HLD-RUG                       15060009
163700           MOVE RUG53-NURSING (RUG53-01, R3)                      15070009
163800                               TO NUR-INDEX                       15080009
163900           MOVE RUG53-THERAPY (RUG53-01, R3)                      15090009
164000                               TO THR-INDEX                       15100009
164100           MOVE RUG53-FACTOR  (RUG53-01, R3)                      15110009
164200                               TO FACTOR.                         15120009
164300                                                                  15130009
164400 900-SEARCH-EXIT.   EXIT.                                         15140009
164500                                                                  15150009
164600                                                                  15160009
164700 910-SEARCH-4-RUG53-2010.                                         15170009
164800                                                                  15180009
164900     SET RUG53-2010-01         TO 1.                              15190009
165000                                                                  15200009
165100     SEARCH RUG53-2010-DATA2   VARYING RUG53-2010-01              15210009
165200       AT END                                                     15220009
165300           MOVE '20'           TO HLD-RTC                         15230009
165400           GO TO 910-SEARCH-EXIT                                  15240009
165500                                                                  15250009
165600       WHEN RUG53-2010-CODE (RUG53-2010-01) = HLD-RUG             15260009
165700           MOVE RUG53-2010-NURSING (RUG53-2010-01, R3)            15270009
165800                               TO NUR-INDEX                       15280009
165900           MOVE RUG53-2010-THERAPY (RUG53-2010-01, R3)            15290009
166000                               TO THR-INDEX                       15300009
166100           MOVE RUG53-2010-FACTOR (RUG53-2010-01, R3)             15310009
166200                               TO FACTOR.                         15320009
166300                                                                  15330009
166400 910-SEARCH-EXIT.   EXIT.                                         15340009
166500                                                                  15350009
166600 911-SEARCH-4-RUG67-2011.                                         15360009
166700                                                                  15370009
166800     SET RUG67-2011-01         TO 1.                              15380009
166900     SEARCH RUG67-2011-DATA2   VARYING RUG67-2011-01              15390009
167000       AT END                                                     15400009
167100           MOVE '20'           TO HLD-RTC                         15410009
167200           GO TO 911-SEARCH-EXIT                                  15420009
167300                                                                  15430009
167400       WHEN RUG67-2011-CODE (RUG67-2011-01) = HLD-RUG             15440009
167500           MOVE RUG67-2011-NURSING (RUG67-2011-01, R3)            15450009
167600                               TO NUR-INDEX                       15460009
167700           MOVE RUG67-2011-THERAPY (RUG67-2011-01, R3)            15470009
167800                               TO THR-INDEX                       15480009
167900           MOVE RUG67-2011-FACTOR (RUG67-2011-01, R3)             15490009
168000                               TO FACTOR.                         15500009
168100                                                                  15510009
168200 911-SEARCH-EXIT.   EXIT.                                         15520009
168300                                                                  15530009
168400                                                                  15540009
168500 912-SEARCH-4-RUG67-2012.                                         15550009
168600     SET RUG67-2012-01         TO 1.                              15560009
168700     SEARCH RUG67-2012-DATA2 VARYING RUG67-2012-01                15570009
168800       AT END                                                     15580009
168900           MOVE '20'           TO HLD-RTC                         15590009
169000           GO TO 912-SEARCH-EXIT                                  15600009
169100       WHEN RUG67-2012-CODE (RUG67-2012-01) = HLD-RUG             15610009
169200           MOVE RUG67-2012-NURSING (RUG67-2012-01, R3)            15620009
169300                               TO NUR-INDEX                       15630009
169400           MOVE RUG67-2012-THERAPY (RUG67-2012-01, R3)            15640009
169500                               TO THR-INDEX                       15650009
169600           MOVE RUG67-2012-FACTOR (RUG67-2012-01, R3)             15660009
169700                               TO FACTOR.                         15670009
169800                                                                  15680009
169900 912-SEARCH-EXIT.   EXIT.                                         15690009
170000                                                                  15700009
170100                                                                  15710009
170200 913-SEARCH-4-RUG67-2013.                                         15720009
170300     SET RUG67-2013-01         TO 1.                              15730009
170400                                                                  15740009
170500     SEARCH  RUG67-2013-DATA2                                     15750009
170600       VARYING RUG67-2013-01                                      15760009
170700       AT END                                                     15770009
170800           MOVE '20'           TO HLD-RTC                         15780009
170900           GO TO 913-SEARCH-EXIT                                  15790009
171000                                                                  15800009
171100       WHEN RUG67-2013-CODE (RUG67-2013-01) = HLD-RUG             15810009
171200                                                                  15820009
171300           MOVE RUG67-2013-NURSING (RUG67-2013-01, R3)            15830009
171400                               TO NUR-INDEX                       15840009
171500           MOVE RUG67-2013-THERAPY (RUG67-2013-01, R3)            15850009
171600                               TO THR-INDEX                       15860009
171700           MOVE RUG67-2013-FACTOR (RUG67-2013-01, R3)             15870009
171800                               TO FACTOR.                         15880009
171900                                                                  15890009
172000 913-SEARCH-EXIT.   EXIT.                                         15900009
172100                                                                  15910009
172200                                                                  15920009
172300 914-SEARCH-4-RUG67-2014.                                         15930009
172400     SET RUG67-2014-01         TO 1.                              15940009
172500                                                                  15950009
172600     SEARCH  RUG67-2014-DATA2                                     15960009
172700       VARYING RUG67-2014-01                                      15970009
172800       AT END                                                     15980009
172900           MOVE '20'           TO HLD-RTC                         15990009
173000           GO TO 914-SEARCH-EXIT                                  16000009
173100                                                                  16010009
173200       WHEN RUG67-2014-CODE (RUG67-2014-01) = HLD-RUG             16020009
173300                                                                  16030009
173400           MOVE RUG67-2014-NURSING (RUG67-2014-01, R3)            16040009
173500                               TO NUR-INDEX                       16050009
173600           MOVE RUG67-2014-THERAPY (RUG67-2014-01, R3)            16060009
173700                               TO THR-INDEX                       16070009
173800           MOVE RUG67-2014-FACTOR (RUG67-2014-01, R3)             16080009
173900                               TO FACTOR.                         16090009
174000                                                                  16100009
174100 914-SEARCH-EXIT.   EXIT.                                         16110009
174200                                                                  16120009
174300                                                                  16130009
174400                                                                  16140009
174500 915-SEARCH-4-RUG67-2015.                                         16150009
174600     SET RUG67-2015-01         TO 1.                              16160009
174700                                                                  16170009
174800     SEARCH  RUG67-2015-DATA2                                     16180009
174900       VARYING RUG67-2015-01                                      16190009
175000       AT END                                                     16200009
175100           MOVE '20'           TO HLD-RTC                         16210009
175200           GO TO 915-SEARCH-EXIT                                  16220009
175300                                                                  16230009
175400       WHEN RUG67-2015-CODE (RUG67-2015-01) = HLD-RUG             16240009
175500                                                                  16250009
175600           MOVE RUG67-2015-NURSING (RUG67-2015-01, R3)            16260009
175700                               TO NUR-INDEX                       16270009
175800           MOVE RUG67-2015-THERAPY (RUG67-2015-01, R3)            16280009
175900                               TO THR-INDEX                       16290009
176000           MOVE RUG67-2015-FACTOR (RUG67-2015-01, R3)             16300009
176100                               TO FACTOR.                         16310009
176200                                                                  16320009
176300 915-SEARCH-EXIT.   EXIT.                                         16330009
176400                                                                  16340009
176500                                                                  16350009
176600                                                                  16360009
176700 916-SEARCH-4-RUG67-2016.                                         16370009
176800     SET RUG67-2016-01         TO 1.                              16380009
176900                                                                  16390009
177000     SEARCH  RUG67-2016-DATA2                                     16400009
177100       VARYING RUG67-2016-01                                      16410009
177200       AT END                                                     16420009
177300           MOVE '20'           TO HLD-RTC                         16430009
177400           GO TO 916-SEARCH-EXIT                                  16440009
177500                                                                  16441009
177600       WHEN RUG67-2016-CODE (RUG67-2016-01) = HLD-RUG             16442009
177700                                                                  16443009
177800           MOVE RUG67-2016-NURSING (RUG67-2016-01, R3)            16444009
177900                               TO NUR-INDEX                       16445009
178000           MOVE RUG67-2016-THERAPY (RUG67-2016-01, R3)            16446009
178100                               TO THR-INDEX                       16447009
178200           MOVE RUG67-2016-FACTOR (RUG67-2016-01, R3)             16448009
178300                               TO FACTOR.                         16449009
178400                                                                  16449109
178500 916-SEARCH-EXIT.   EXIT.                                         16449209
178600                                                                  16449309
176600                                                                  16449409
176700 917-SEARCH-4-RUG67-2017.                                         16449509
176800     SET RUG67-2017-01         TO 1.                              16449609
176900                                                                  16449709
177000     SEARCH  RUG67-2017-DATA2                                     16449809
177100       VARYING RUG67-2017-01                                      16449909
177200       AT END                                                     16450009
177300           MOVE '20'           TO HLD-RTC                         16450109
177400           GO TO 917-SEARCH-EXIT                                  16450209
177500                                                                  16450309
177600       WHEN RUG67-2017-CODE (RUG67-2017-01) = HLD-RUG             16450409
177700                                                                  16450509
177800           MOVE RUG67-2017-NURSING (RUG67-2017-01, R3)            16450609
177900                               TO NUR-INDEX                       16450709
178000           MOVE RUG67-2017-THERAPY (RUG67-2017-01, R3)            16450809
178100                               TO THR-INDEX                       16450909
178200           MOVE RUG67-2017-FACTOR (RUG67-2017-01, R3)             16451009
178300                               TO FACTOR.                         16451109
178400                                                                  16451209
178500 917-SEARCH-EXIT.   EXIT.                                         16451309
178600                                                                  16451409
176600                                                                  16451509
176700 918-SEARCH-4-RUG67-2018.                                         16451609
176800     SET RUG67-2018-01-Q       TO 1.                              16451713
176900                                                                  16451809
177000     SEARCH  RUG67-2018-DATA2-Q                                   16451913
177100       VARYING RUG67-2018-01-Q                                    16452013
177200           AT END                                                 16452113
177300              MOVE '20'        TO HLD-RTC                         16452213
177400       GO TO 918-SEARCH-EXIT                                      16452313
177500                                                                  16452409
177600       WHEN RUG67-2018-CODE-Q (RUG67-2018-01-Q) = HLD-RUG         16452513
177700                                                                  16452609
177800            MOVE RUG67-2018-NURSING-Q (RUG67-2018-01-Q, R3)       16452713
177900                               TO NUR-INDEX                       16452809
178000            MOVE RUG67-2018-THERAPY-Q (RUG67-2018-01-Q, R3)       16452913
178100                               TO THR-INDEX                       16453009
178200            MOVE RUG67-2018-FACTOR-Q (RUG67-2018-01-Q, R3)        16453113
178300                               TO FACTOR.                         16453209
179100                                                                  16453319
179100           DISPLAY ' '.                                           16453420
178400           DISPLAY ' HLD-RUG   = ' HLD-RUG.                       16453520
178400           DISPLAY ' FACTOR    = ' FACTOR.                        16453620
178400           DISPLAY ' THR-INDEX = ' THR-INDEX.                     16453720
178400           DISPLAY ' NUR-INDEX = ' NUR-INDEX.                     16453820
179100           DISPLAY ' '.                                           16453920
179100                                                                  16454019
178500 918-SEARCH-EXIT.   EXIT.                                         16454119
178600                                                                  16454219
178700 1999-PAYMENT-RATE-CALC.                                          16454319
178800***************************************************************   16454419
178900*     PAYMENT RATE CALCULATION PROCCESS                           16454519
179000***************************************************************   16454619
179100                                                                  16454719
179200     MOVE 1                    TO R3.                             16454819
179300                                                                  16454919
179400     IF HLD-MSA-RURAL-CHECK                                       16455019
179500        MOVE 1                 TO R2                              16455119
179600     ELSE                                                         16455219
179700        MOVE 2                 TO R2.                             16455319
179800                                                                  16455419
179900     PERFORM 800-SEARCH-4-RUG                                     16455519
180000        THRU 800-SEARCH-EXIT.                                     16455619
180100                                                                  16455719
180200     IF HLD-RTC NOT = 00                                          16456009
180300        GO TO 1999-EXIT.                                          16457009
180400                                                                  16458009
180500     PERFORM 500-GET-RATES.                                       16459009
180600                                                                  16460009
180700     IF SNF-FED-BLEND = 1 OR 2 OR 3 OR 4                          16470009
180800        NEXT SENTENCE                                             16480009
180900     ELSE                                                         16490009
181000        MOVE '60'              TO HLD-RTC                         16500009
181100        MOVE ALL '0'           TO HOLD-VAR-DATA                   16510009
181200        GO TO 1999-EXIT.                                          16520009
181300                                                                  16530009
181400        COMPUTE NURSING-COMPONENT ROUNDED =                       16540009
181500                   (NUR-INDEX * IP-RATE).                         16550009
181600                                                                  16560009
181700        COMPUTE THERAPY-COMPONENT ROUNDED =                       16570009
181800                   (THR-INDEX * REHAB-RATE).                      16580009
181900                                                                  16590009
182000        COMPUTE NCM-THR-COMPONENT ROUNDED =                       16600009
182100                   (FACTOR * NCM-THR-COMPONENT).                  16610009
182200                                                                  16620009
182300        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       16630009
182400                   NURSING-COMPONENT +                            16640009
182500                   THERAPY-COMPONENT +                            16650009
182600                   NCM-THR-COMPONENT +                            16660009
182700                   NCM-COMPONENT.                                 16670009
182800                                                                  16680009
182900        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        16690009
183000             (HLD-PAYMENT-RATE * PERCENT-1999-LABOR) *            16700009
183100               AREA-WAGE-INDEX.                                   16710009
183200                                                                  16720009
183300        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        16730009
183400               (HLD-PAYMENT-RATE * PERCENT-1999-NLABOR) +         16740009
183500                    PAYMENT-RATE-ADJ.                             16750009
183600                                                                  16760009
183700     IF SNF-FED-BLEND = 1                                         16770009
183800        COMPUTE WK-PAYMENT-RATE ROUNDED =                         16780009
183900           (HLD-PAYMENT-RATE * .25)                               16790009
184000        COMPUTE WK-FACILITY-RATE ROUNDED =                        16800009
184100           (HLD-FACILITY-RATE * .75)                              16810009
184200        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              16820009
184300        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        16830009
184400           (WK-PAYMENT-RATE + WK-FACILITY-RATE).                  16840009
184500                                                                  16850009
184600     IF SNF-FED-BLEND = 2                                         16860009
184700        COMPUTE WK-PAYMENT-RATE ROUNDED =                         16870009
184800           (HLD-PAYMENT-RATE * .50)                               16880009
184900        COMPUTE WK-FACILITY-RATE ROUNDED =                        16890009
185000           (HLD-FACILITY-RATE * .50)                              16900009
185100        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              16910009
185200        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        16920009
185300           (WK-PAYMENT-RATE + WK-FACILITY-RATE).                  16930009
185400                                                                  16940009
185500     IF SNF-FED-BLEND = 3                                         16950009
185600        COMPUTE WK-PAYMENT-RATE ROUNDED =                         16960009
185700           (HLD-PAYMENT-RATE * .75)                               16970009
185800        COMPUTE WK-FACILITY-RATE ROUNDED =                        16980009
185900           (HLD-FACILITY-RATE * .25)                              16990009
186000        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              17000009
186100        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        17010009
186200           (WK-PAYMENT-RATE + WK-FACILITY-RATE).                  17020009
186300                                                                  17030009
186400     IF SNF-FED-BLEND = 4                                         17040009
186500        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              17050009
186600        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        17060009
186700                HLD-PAYMENT-RATE * 1.00.                          17070009
186800                                                                  17080009
186900 1999-EXIT.   EXIT.                                               17090009
187000                                                                  17100009
187100 2000-PAYMENT-RATE-CALC.                                          17110009
187200***************************************************************   17120009
187300*     PAYMENT RATE CALCULATION PROCCESS                           17130009
187400***************************************************************   17140009
187500                                                                  17150009
187600     MOVE 1                    TO R3.                             17160009
187700                                                                  17170009
187800     IF HLD-MSA-RURAL-CHECK                                       17180009
187900        MOVE 1                 TO R2                              17190009
188000     ELSE                                                         17200009
188100        MOVE 2                 TO R2.                             17210009
188200                                                                  17220009
188300     PERFORM 800-SEARCH-4-RUG    THRU 800-SEARCH-EXIT.            17230009
188400                                                                  17240009
188500     IF HLD-RTC NOT = 00 GO TO 2000-EXIT.                         17250009
188600                                                                  17260009
188700     PERFORM 500-GET-RATES.                                       17270009
188800                                                                  17280009
188900     IF (HLD-THRU-DATE < 20000101 AND                             17290009
189000         SNF-FED-BLEND = 0)                                       17300009
189100        MOVE '61' TO HLD-RTC                                      17310009
189200        MOVE ALL '0' TO HOLD-VAR-DATA                             17320009
189300        GO TO 2000-EXIT.                                          17330009
189400                                                                  17340009
189500     IF SNF-FED-BLEND = 0 OR 1 OR 2 OR 3 OR 4                     17350009
189600        NEXT SENTENCE                                             17360009
189700     ELSE                                                         17370009
189800        MOVE '60' TO HLD-RTC                                      17380009
189900        MOVE ALL '0' TO HOLD-VAR-DATA                             17390009
190000        GO TO 2000-EXIT.                                          17400009
190100                                                                  17410009
190200        COMPUTE NURSING-COMPONENT ROUNDED =                       17420009
190300                   (NUR-INDEX * IP-RATE).                         17430009
190400                                                                  17440009
190500        COMPUTE THERAPY-COMPONENT ROUNDED =                       17450009
190600                   (THR-INDEX * REHAB-RATE).                      17460009
190700                                                                  17470009
190800        COMPUTE NCM-THR-COMPONENT ROUNDED =                       17480009
190900                   (FACTOR * NCM-THR-COMPONENT).                  17490009
191000                                                                  17500009
191100        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       17510009
191200                   NURSING-COMPONENT +                            17520009
191300                   THERAPY-COMPONENT +                            17530009
191400                   NCM-THR-COMPONENT +                            17540009
191500                   NCM-COMPONENT.                                 17550009
191600                                                                  17560009
191700        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        17570009
191800             (HLD-PAYMENT-RATE * PERCENT-2000-LABOR) *            17580009
191900               AREA-WAGE-INDEX.                                   17590009
192000                                                                  17600009
192100        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        17610009
192200               (HLD-PAYMENT-RATE * PERCENT-2000-NLABOR) +         17620009
192300                    PAYMENT-RATE-ADJ.                             17630009
192400                                                                  17640009
192500     IF  (HLD-THRU-DATE > 20000331 AND                            17650009
192600         (HLD-RUG = 'SE3' OR 'SE2' OR 'SE1' OR 'SSC' OR           17660009
192700                    'SSB' OR 'SSA' OR 'CC2' OR 'CC1' OR           17670009
192800                    'CB2' OR 'CB1' OR 'CA2' OR 'CA1' OR           17680009
192900                    'RHC' OR 'RMC' OR 'RMB'))                     17690009
193000        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        17700009
193100                HLD-PAYMENT-RATE * 1.2.                           17710009
193200                                                                  17720009
193300     IF (HLD-THRU-DATE > 19991231 AND                             17730009
193400         SNF-FED-BLEND = 0)                                       17740009
193500        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        17750009
193600                HLD-FACILITY-RATE * 1.00.                         17760009
193700                                                                  17770009
193800     IF SNF-FED-BLEND = 1                                         17780009
193900        COMPUTE WK-PAYMENT-RATE ROUNDED =                         17790009
194000           (HLD-PAYMENT-RATE * .25)                               17800009
194100        COMPUTE WK-FACILITY-RATE ROUNDED =                        17810009
194200           (HLD-FACILITY-RATE * .75)                              17820009
194300        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              17830009
194400        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        17840009
194500           (WK-PAYMENT-RATE + WK-FACILITY-RATE).                  17850009
194600                                                                  17860009
194700     IF SNF-FED-BLEND = 2                                         17870009
194800        COMPUTE WK-PAYMENT-RATE ROUNDED =                         17880009
194900           (HLD-PAYMENT-RATE * .50)                               17890009
195000        COMPUTE WK-FACILITY-RATE ROUNDED =                        17900009
195100           (HLD-FACILITY-RATE * .50)                              17910009
195200        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              17920009
195300        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        17930009
195400           (WK-PAYMENT-RATE + WK-FACILITY-RATE).                  17940009
195500                                                                  17950009
195600     IF SNF-FED-BLEND = 3                                         17960009
195700        COMPUTE WK-PAYMENT-RATE ROUNDED =                         17970009
195800           (HLD-PAYMENT-RATE * .75)                               17980009
195900        COMPUTE WK-FACILITY-RATE ROUNDED =                        17990009
196000           (HLD-FACILITY-RATE * .25)                              18000009
196100        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              18010009
196200        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        18020009
196300           (WK-PAYMENT-RATE + WK-FACILITY-RATE).                  18030009
196400                                                                  18040009
196500     IF SNF-FED-BLEND = 4                                         18050009
196600        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              18060009
196700        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        18070009
196800                HLD-PAYMENT-RATE * 1.00.                          18080009
196900                                                                  18090009
197000 2000-EXIT.   EXIT.                                               18100009
197100 2001-PAYMENT-RATE-CALC.                                          18110009
197200***************************************************************   18120009
197300*     PAYMENT RATE CALCULATION PROCCESS                           18130009
197400***************************************************************   18140009
197500                                                                  18150009
197600     MOVE 1                    TO R3.                             18160009
197700                                                                  18170009
197800     IF HLD-MSA-RURAL-CHECK                                       18180009
197900        MOVE 1                 TO R2                              18190009
198000     ELSE                                                         18200009
198100        MOVE 2                 TO R2.                             18210009
198200                                                                  18220009
198300     PERFORM 800-SEARCH-4-RUG                                     18230009
198400        THRU 800-SEARCH-EXIT.                                     18240009
198500                                                                  18250009
198600     IF HLD-RTC NOT = 00                                          18260009
198700        GO TO 2001-EXIT.                                          18270009
198800                                                                  18280009
198900     PERFORM 500-GET-RATES.                                       18290009
199000                                                                  18300009
199100     IF (HLD-THRU-DATE < 20000101 AND                             18310009
199200         SNF-FED-BLEND = 0)                                       18320009
199300        MOVE '61'              TO HLD-RTC                         18330009
199400        MOVE ALL '0'           TO HOLD-VAR-DATA                   18340009
199500        GO TO 2001-EXIT.                                          18350009
199600                                                                  18360009
199700     IF SNF-FED-BLEND = 0 OR 1 OR 2 OR 3 OR 4                     18370009
199800        NEXT SENTENCE                                             18380009
199900     ELSE                                                         18390009
200000        MOVE '60'              TO HLD-RTC                         18400009
200100        MOVE ALL '0'           TO HOLD-VAR-DATA                   18410009
200200        GO TO 2001-EXIT.                                          18420009
200300                                                                  18430009
200400        COMPUTE NURSING-COMPONENT ROUNDED =                       18440009
200500                   (NUR-INDEX * IP-RATE).                         18450009
200600                                                                  18460009
200700        COMPUTE THERAPY-COMPONENT ROUNDED =                       18470009
200800                   (THR-INDEX * REHAB-RATE).                      18480009
200900                                                                  18490009
201000        COMPUTE NCM-THR-COMPONENT ROUNDED =                       18500009
201100                   (FACTOR * NCM-THR-COMPONENT).                  18510009
201200                                                                  18520009
201300        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       18530009
201400                   NURSING-COMPONENT +                            18540009
201500                   THERAPY-COMPONENT +                            18550009
201600                   NCM-THR-COMPONENT +                            18560009
201700                   NCM-COMPONENT.                                 18570009
201800                                                                  18580009
201900        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        18590009
202000             (HLD-PAYMENT-RATE * PERCENT-2001-LABOR) *            18600009
202100               AREA-WAGE-INDEX.                                   18610009
202200                                                                  18620009
202300        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        18630009
202400               (HLD-PAYMENT-RATE * PERCENT-2001-NLABOR) +         18640009
202500                    PAYMENT-RATE-ADJ.                             18650009
202600                                                                  18660009
202700     IF  (HLD-RUG = 'SE3' OR 'SE2' OR 'SE1' OR 'SSC' OR           18670009
202800                    'SSB' OR 'SSA' OR 'CC2' OR 'CC1' OR           18680009
202900                    'CB2' OR 'CB1' OR 'CA2' OR 'CA1' OR           18690009
203000                    'RHC' OR 'RMC' OR 'RMB')                      18700009
203100        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        18710009
203200                HLD-PAYMENT-RATE * 1.24                           18720009
203300     ELSE                                                         18730009
203400        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        18740009
203500                HLD-PAYMENT-RATE * 1.04.                          18750009
203600                                                                  18760009
203700     IF  SNF-FED-BLEND = 0                                        18770009
203800        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        18780009
203900                HLD-FACILITY-RATE * 1.00.                         18790009
204000                                                                  18800009
204100     IF SNF-FED-BLEND = 1                                         18810009
204200        COMPUTE WK-PAYMENT-RATE ROUNDED =                         18820009
204300           (HLD-PAYMENT-RATE * .25)                               18830009
204400        COMPUTE WK-FACILITY-RATE ROUNDED =                        18840009
204500           (HLD-FACILITY-RATE * .75)                              18850009
204600        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              18860009
204700        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        18870009
204800           (WK-PAYMENT-RATE + WK-FACILITY-RATE).                  18880009
204900                                                                  18890009
205000     IF SNF-FED-BLEND = 2                                         18900009
205100        COMPUTE WK-PAYMENT-RATE ROUNDED =                         18910009
205200           (HLD-PAYMENT-RATE * .50)                               18920009
205300        COMPUTE WK-FACILITY-RATE ROUNDED =                        18930009
205400           (HLD-FACILITY-RATE * .50)                              18940009
205500        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              18950009
205600        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        18960009
205700           (WK-PAYMENT-RATE + WK-FACILITY-RATE).                  18970009
205800                                                                  18980009
205900     IF SNF-FED-BLEND = 3                                         18990009
206000        COMPUTE WK-PAYMENT-RATE ROUNDED =                         19000009
206100           (HLD-PAYMENT-RATE * .75)                               19010009
206200        COMPUTE WK-FACILITY-RATE ROUNDED =                        19020009
206300           (HLD-FACILITY-RATE * .25)                              19030009
206400        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              19040009
206500        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        19050009
206600           (WK-PAYMENT-RATE + WK-FACILITY-RATE).                  19060009
206700                                                                  19070009
206800     IF SNF-FED-BLEND = 4                                         19080009
206900        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              19090009
207000        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        19100009
207100                HLD-PAYMENT-RATE * 1.00.                          19110009
207200                                                                  19120009
207300                                                                  19130009
207400 2001-EXIT.   EXIT.                                               19140009
207500                                                                  19150009
207600 2001A-PAYMENT-RATE-CALC.                                         19160009
207700***************************************************************   19170009
207800*     PAYMENT RATE CALCULATION PROCCESS EFFECTIVE APR.1, 2001     19180009
207900***************************************************************   19190009
208000                                                                  19200009
208100     MOVE 1                    TO R3.                             19210009
208200                                                                  19220009
208300     IF HLD-MSA-RURAL-CHECK                                       19230009
208400        MOVE 1                 TO R2                              19240009
208500     ELSE                                                         19250009
208600        MOVE 2                 TO R2.                             19260009
208700                                                                  19270009
208800     PERFORM 800-SEARCH-4-RUG                                     19280009
208900        THRU 800-SEARCH-EXIT.                                     19290009
209000                                                                  19300009
209100     IF HLD-RTC NOT = 00                                          19310009
209200        GO TO 2001A-EXIT.                                         19320009
209300                                                                  19330009
209400     PERFORM 500-GET-RATES.                                       19340009
209500                                                                  19350009
209600     IF (HLD-THRU-DATE < 20000101 AND                             19360009
209700         SNF-FED-BLEND = 0)                                       19370009
209800        MOVE '61'              TO HLD-RTC                         19380009
209900        MOVE ALL '0'           TO HOLD-VAR-DATA                   19390009
210000        GO TO 2001A-EXIT.                                         19400009
210100                                                                  19410009
210200     IF SNF-FED-BLEND = 0 OR 1 OR 2 OR 3 OR 4                     19420009
210300        NEXT SENTENCE                                             19430009
210400     ELSE                                                         19440009
210500        MOVE '60'              TO HLD-RTC                         19450009
210600        MOVE ALL '0'           TO HOLD-VAR-DATA                   19460009
210700        GO TO 2001A-EXIT.                                         19470009
210800                                                                  19480009
210900        COMPUTE NURSING-COMPONENT ROUNDED =                       19490009
211000                   (NUR-INDEX * IP-RATE).                         19500009
211100                                                                  19510009
211200        COMPUTE THERAPY-COMPONENT ROUNDED =                       19520009
211300                   (THR-INDEX * REHAB-RATE).                      19530009
211400                                                                  19540009
211500        COMPUTE NCM-THR-COMPONENT ROUNDED =                       19550009
211600                   (FACTOR * NCM-THR-COMPONENT).                  19560009
211700                                                                  19570009
211800        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       19580009
211900                   NURSING-COMPONENT +                            19590009
212000                   THERAPY-COMPONENT +                            19600009
212100                   NCM-THR-COMPONENT +                            19610009
212200                   NCM-COMPONENT.                                 19620009
212300                                                                  19630009
212400        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        19640009
212500             (HLD-PAYMENT-RATE * PERCENT-2001-LABOR) *            19650009
212600               AREA-WAGE-INDEX.                                   19660009
212700                                                                  19670009
212800        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        19680009
212900               (HLD-PAYMENT-RATE * PERCENT-2001-NLABOR) +         19690009
213000                    PAYMENT-RATE-ADJ.                             19700009
213100                                                                  19710009
213200     IF  (HLD-RUG = 'IB2' OR 'IB1' OR 'IA2' OR 'IA1' OR           19720009
213300                    'BB2' OR 'BB1' OR 'BA2' OR 'BA1' OR           19730009
213400                    'PE2' OR 'PE1' OR 'PD2' OR 'PD1' OR           19740009
213500                    'PC2' OR 'PC1' OR 'PB2' OR 'PB1' OR           19750009
213600                    'PA2' OR 'PA1' OR 'AAA')                      19760009
213700        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        19770009
213800                HLD-PAYMENT-RATE * 1.04.                          19780009
213900                                                                  19790009
214000     IF  (HLD-RUG = 'RUC' OR 'RUB' OR 'RUA' OR 'RVC' OR           19800009
214100                    'RVB' OR 'RVA' OR 'RHC' OR 'RHB' OR           19810009
214200                    'RHA' OR 'RMC' OR 'RMB' OR 'RMA' OR           19820009
214300                    'RLB' OR 'RLA')                               19830009
214400        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        19840009
214500                HLD-PAYMENT-RATE * 1.107.                         19850009
214600                                                                  19860009
214700     IF  (HLD-RUG = 'SE3' OR 'SE2' OR 'SE1' OR 'SSC' OR           19870009
214800                    'SSB' OR 'SSA' OR 'CC2' OR 'CC1' OR           19880009
214900                    'CB2' OR 'CB1' OR 'CA2' OR 'CA1')             19890009
215000        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        19900009
215100                HLD-PAYMENT-RATE * 1.24.                          19910009
215200                                                                  19920009
215300     IF  SNF-FED-BLEND = 0                                        19930009
215400        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        19940009
215500                HLD-FACILITY-RATE * 1.00.                         19950009
215600                                                                  19960009
215700     IF SNF-FED-BLEND = 1                                         19970009
215800        COMPUTE WK-PAYMENT-RATE ROUNDED =                         19980009
215900           (HLD-PAYMENT-RATE * .25)                               19990009
216000        COMPUTE WK-FACILITY-RATE ROUNDED =                        20000009
216100           (HLD-FACILITY-RATE * .75)                              20010009
216200        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              20020009
216300        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        20030009
216400           (WK-PAYMENT-RATE + WK-FACILITY-RATE).                  20040009
216500                                                                  20050009
216600     IF SNF-FED-BLEND = 2                                         20060009
216700        COMPUTE WK-PAYMENT-RATE ROUNDED =                         20070009
216800           (HLD-PAYMENT-RATE * .50)                               20080009
216900        COMPUTE WK-FACILITY-RATE ROUNDED =                        20090009
217000           (HLD-FACILITY-RATE * .50)                              20100009
217100        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              20110009
217200        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        20120009
217300           (WK-PAYMENT-RATE + WK-FACILITY-RATE).                  20130009
217400                                                                  20140009
217500     IF SNF-FED-BLEND = 3                                         20150009
217600        COMPUTE WK-PAYMENT-RATE ROUNDED =                         20160009
217700           (HLD-PAYMENT-RATE * .75)                               20170009
217800        COMPUTE WK-FACILITY-RATE ROUNDED =                        20180009
217900           (HLD-FACILITY-RATE * .25)                              20190009
218000        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              20200009
218100        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        20210009
218200           (WK-PAYMENT-RATE + WK-FACILITY-RATE).                  20220009
218300                                                                  20230009
218400     IF SNF-FED-BLEND = 4                                         20240009
218500        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              20250009
218600        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        20260009
218700                HLD-PAYMENT-RATE * 1.00.                          20270009
218800                                                                  20280009
218900                                                                  20290009
219000 2001A-EXIT.   EXIT.                                              20300009
219100                                                                  20310009
219200 2002-PAYMENT-RATE-CALC.                                          20320009
219300***************************************************************   20330009
219400*     PAYMENT RATE CALCULATION PROCCESS EFFECTIVE OCT.1, 2001     20340009
219500***************************************************************   20350009
219600                                                                  20360009
219700     MOVE 1                    TO R3.                             20370009
219800                                                                  20380009
219900     IF HLD-MSA-RURAL-CHECK                                       20390009
220000        MOVE 1                 TO R2                              20400009
220100     ELSE                                                         20410009
220200        MOVE 2                 TO R2.                             20420009
220300                                                                  20430009
220400     PERFORM 800-SEARCH-4-RUG                                     20440009
220500        THRU 800-SEARCH-EXIT.                                     20450009
220600                                                                  20460009
220700     IF HLD-RTC NOT = 00                                          20470009
220800        GO TO 2002-EXIT.                                          20480009
220900                                                                  20490009
221000     PERFORM 500-GET-RATES.                                       20500009
221100                                                                  20510009
221200     IF (HLD-THRU-DATE < 20000101 AND                             20520009
221300         SNF-FED-BLEND = 0)                                       20530009
221400        MOVE '61'              TO HLD-RTC                         20540009
221500        MOVE ALL '0'           TO HOLD-VAR-DATA                   20550009
221600        GO TO 2002-EXIT.                                          20560009
221700                                                                  20570009
221800     IF SNF-FED-BLEND = 0 OR 1 OR 2 OR 3 OR 4                     20580009
221900        NEXT SENTENCE                                             20590009
222000     ELSE                                                         20600009
222100        MOVE '60'              TO HLD-RTC                         20610009
222200        MOVE ALL '0'           TO HOLD-VAR-DATA                   20620009
222300        GO TO 2002-EXIT.                                          20630009
222400                                                                  20640009
222500        COMPUTE NURSING-COMPONENT ROUNDED =                       20650009
222600                   (NUR-INDEX * IP-RATE).                         20660009
222700                                                                  20670009
222800        COMPUTE THERAPY-COMPONENT ROUNDED =                       20680009
222900                   (THR-INDEX * REHAB-RATE).                      20690009
223000                                                                  20700009
223100        COMPUTE NCM-THR-COMPONENT ROUNDED =                       20710009
223200                   (FACTOR * NCM-THR-COMPONENT).                  20720009
223300                                                                  20730009
223400        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       20740009
223500                   NURSING-COMPONENT +                            20750009
223600                   THERAPY-COMPONENT +                            20760009
223700                   NCM-THR-COMPONENT +                            20770009
223800                   NCM-COMPONENT.                                 20780009
223900                                                                  20790009
224000        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        20800009
224100             (HLD-PAYMENT-RATE * PERCENT-2002-LABOR) *            20810009
224200               AREA-WAGE-INDEX.                                   20820009
224300                                                                  20830009
224400        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        20840009
224500               (HLD-PAYMENT-RATE * PERCENT-2002-NLABOR) +         20850009
224600                    PAYMENT-RATE-ADJ.                             20860009
224700                                                                  20870009
224800     IF  (HLD-RUG = 'IB2' OR 'IB1' OR 'IA2' OR 'IA1' OR           20880009
224900                    'BB2' OR 'BB1' OR 'BA2' OR 'BA1' OR           20890009
225000                    'PE2' OR 'PE1' OR 'PD2' OR 'PD1' OR           20900009
225100                    'PC2' OR 'PC1' OR 'PB2' OR 'PB1' OR           20910009
225200                    'PA2' OR 'PA1' OR 'AAA')                      20920009
225300        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        20930009
225400                HLD-PAYMENT-RATE * 1.04.                          20940009
225500                                                                  20950009
225600     IF  (HLD-RUG = 'RUC' OR 'RUB' OR 'RUA' OR 'RVC' OR           20960009
225700                    'RVB' OR 'RVA' OR 'RHC' OR 'RHB' OR           20970009
225800                    'RHA' OR 'RMC' OR 'RMB' OR 'RMA' OR           20980009
225900                    'RLB' OR 'RLA')                               20990009
226000        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        21000009
226100                HLD-PAYMENT-RATE * 1.107.                         21010009
226200                                                                  21020009
226300     IF  (HLD-RUG = 'SE3' OR 'SE2' OR 'SE1' OR 'SSC' OR           21030009
226400                    'SSB' OR 'SSA' OR 'CC2' OR 'CC1' OR           21040009
226500                    'CB2' OR 'CB1' OR 'CA2' OR 'CA1')             21050009
226600        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        21060009
226700                HLD-PAYMENT-RATE * 1.24.                          21070009
226800                                                                  21080009
226900     IF  SNF-FED-BLEND = 0                                        21090009
227000        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        21100009
227100                HLD-FACILITY-RATE * 1.00.                         21110009
227200                                                                  21120009
227300     IF SNF-FED-BLEND = 1                                         21130009
227400        COMPUTE WK-PAYMENT-RATE ROUNDED =                         21140009
227500           (HLD-PAYMENT-RATE * .25)                               21150009
227600        COMPUTE WK-FACILITY-RATE ROUNDED =                        21160009
227700           (HLD-FACILITY-RATE * .75)                              21170009
227800        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              21180009
227900        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        21190009
228000           (WK-PAYMENT-RATE + WK-FACILITY-RATE).                  21200009
228100                                                                  21210009
228200     IF SNF-FED-BLEND = 2                                         21220009
228300        COMPUTE WK-PAYMENT-RATE ROUNDED =                         21230009
228400           (HLD-PAYMENT-RATE * .50)                               21240009
228500        COMPUTE WK-FACILITY-RATE ROUNDED =                        21250009
228600           (HLD-FACILITY-RATE * .50)                              21260009
228700        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              21270009
228800        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        21280009
228900           (WK-PAYMENT-RATE + WK-FACILITY-RATE).                  21290009
229000                                                                  21300009
229100     IF SNF-FED-BLEND = 3                                         21310009
229200        COMPUTE WK-PAYMENT-RATE ROUNDED =                         21320009
229300           (HLD-PAYMENT-RATE * .75)                               21330009
229400        COMPUTE WK-FACILITY-RATE ROUNDED =                        21340009
229500           (HLD-FACILITY-RATE * .25)                              21350009
229600        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              21360009
229700        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        21370009
229800           (WK-PAYMENT-RATE + WK-FACILITY-RATE).                  21380009
229900                                                                  21390009
230000     IF SNF-FED-BLEND = 4                                         21400009
230100        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              21410009
230200        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        21420009
230300                HLD-PAYMENT-RATE * 1.00.                          21430009
230400                                                                  21440009
230500                                                                  21450009
230600 2002-EXIT.   EXIT.                                               21460009
230700                                                                  21470009
230800 2003-PAYMENT-RATE-CALC.                                          21480009
230900***************************************************************   21490009
231000*     PAYMENT RATE CALCULATION PROCCESS EFFECTIVE OCT.1, 2002     21500009
231100***************************************************************   21510009
231200                                                                  21520009
231300     MOVE 1                    TO R3.                             21530009
231400                                                                  21540009
231500     IF HLD-MSA-RURAL-CHECK                                       21550009
231600        MOVE 1                 TO R2                              21560009
231700     ELSE                                                         21570009
231800        MOVE 2                 TO R2.                             21580009
231900                                                                  21590009
232000     PERFORM 800-SEARCH-4-RUG                                     21600009
232100        THRU 800-SEARCH-EXIT.                                     21610009
232200                                                                  21620009
232300     IF HLD-RTC NOT = 00                                          21630009
232400        GO TO 2003-EXIT.                                          21640009
232500                                                                  21650009
232600     PERFORM 500-GET-RATES.                                       21660009
232700                                                                  21670009
232800     IF (HLD-THRU-DATE < 20000101 AND                             21680009
232900         SNF-FED-BLEND = 0)                                       21690009
233000        MOVE '61'              TO HLD-RTC                         21700009
233100        MOVE ALL '0'           TO HOLD-VAR-DATA                   21710009
233200        GO TO 2003-EXIT.                                          21720009
233300                                                                  21730009
233400     IF SNF-FED-BLEND = 0 OR 4                                    21740009
233500        NEXT SENTENCE                                             21750009
233600     ELSE                                                         21760009
233700        MOVE '60'              TO HLD-RTC                         21770009
233800        MOVE ALL '0'           TO HOLD-VAR-DATA                   21780009
233900        GO TO 2003-EXIT.                                          21790009
234000                                                                  21800009
234100        COMPUTE NURSING-COMPONENT ROUNDED =                       21810009
234200                   (NUR-INDEX * IP-RATE).                         21820009
234300                                                                  21830009
234400        COMPUTE THERAPY-COMPONENT ROUNDED =                       21840009
234500                   (THR-INDEX * REHAB-RATE).                      21850009
234600                                                                  21860009
234700        COMPUTE NCM-THR-COMPONENT ROUNDED =                       21870009
234800                   (FACTOR * NCM-THR-COMPONENT).                  21880009
234900                                                                  21890009
235000        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       21900009
235100                   NURSING-COMPONENT +                            21910009
235200                   THERAPY-COMPONENT +                            21920009
235300                   NCM-THR-COMPONENT +                            21930009
235400                   NCM-COMPONENT.                                 21940009
235500                                                                  21950009
235600        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        21960009
235700             (HLD-PAYMENT-RATE * PERCENT-2003-LABOR) *            21970009
235800               AREA-WAGE-INDEX.                                   21980009
235900                                                                  21990009
236000        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        22000009
236100               (HLD-PAYMENT-RATE * PERCENT-2003-NLABOR) +         22010009
236200                    PAYMENT-RATE-ADJ.                             22020009
236300                                                                  22030009
236400     IF  (HLD-RUG = 'IB2' OR 'IB1' OR 'IA2' OR 'IA1' OR           22040009
236500                    'BB2' OR 'BB1' OR 'BA2' OR 'BA1' OR           22050009
236600                    'PE2' OR 'PE1' OR 'PD2' OR 'PD1' OR           22060009
236700                    'PC2' OR 'PC1' OR 'PB2' OR 'PB1' OR           22070009
236800                    'PA2' OR 'PA1' OR 'AAA')                      22080009
236900        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        22090009
237000                HLD-PAYMENT-RATE * 1.00.                          22100009
237100                                                                  22110009
237200     IF  (HLD-RUG = 'RUC' OR 'RUB' OR 'RUA' OR 'RVC' OR           22120009
237300                    'RVB' OR 'RVA' OR 'RHC' OR 'RHB' OR           22130009
237400                    'RHA' OR 'RMC' OR 'RMB' OR 'RMA' OR           22140009
237500                    'RLB' OR 'RLA')                               22150009
237600        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        22160009
237700                HLD-PAYMENT-RATE * 1.067.                         22170009
237800                                                                  22180009
237900     IF  (HLD-RUG = 'SE3' OR 'SE2' OR 'SE1' OR 'SSC' OR           22190009
238000                    'SSB' OR 'SSA' OR 'CC2' OR 'CC1' OR           22200009
238100                    'CB2' OR 'CB1' OR 'CA2' OR 'CA1')             22210009
238200        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        22220009
238300                HLD-PAYMENT-RATE * 1.20.                          22230009
238400                                                                  22240009
238500     IF  SNF-FED-BLEND = 0                                        22250009
238600        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        22260009
238700                HLD-FACILITY-RATE * 1.00.                         22270009
238800                                                                  22280009
238900                                                                  22290009
239000     IF SNF-FED-BLEND = 4                                         22300009
239100        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              22310009
239200        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        22320009
239300                HLD-PAYMENT-RATE * 1.00.                          22330009
239400                                                                  22340009
239500                                                                  22350009
239600 2003-EXIT.   EXIT.                                               22360009
239700 2004-PAYMENT-RATE-CALC.                                          22370009
239800***************************************************************   22380009
239900*     PAYMENT RATE CALCULATION PROCCESS EFFECTIVE OCT.1, 2003     22390009
240000***************************************************************   22400009
240100                                                                  22410009
240200     MOVE 1                    TO R3.                             22420009
240300                                                                  22430009
240400     IF HLD-MSA-RURAL-CHECK                                       22440009
240500        MOVE 1                 TO R2                              22450009
240600     ELSE                                                         22460009
240700        MOVE 2                 TO R2.                             22470009
240800                                                                  22480009
240900     PERFORM 800-SEARCH-4-RUG                                     22490009
241000        THRU 800-SEARCH-EXIT.                                     22500009
241100                                                                  22510009
241200     IF HLD-RTC NOT = 00                                          22520009
241300        GO TO 2004-EXIT.                                          22530009
241400                                                                  22540009
241500     PERFORM 500-GET-RATES.                                       22550009
241600                                                                  22560009
241700     IF (HLD-THRU-DATE < 20000101 AND                             22570009
241800         SNF-FED-BLEND = 0)                                       22580009
241900        MOVE '61'              TO HLD-RTC                         22590009
242000        MOVE ALL '0'           TO HOLD-VAR-DATA                   22600009
242100        GO TO 2004-EXIT.                                          22610009
242200                                                                  22620009
242300     IF SNF-FED-BLEND = 0 OR 4                                    22630009
242400        NEXT SENTENCE                                             22640009
242500     ELSE                                                         22650009
242600        MOVE '60'              TO HLD-RTC                         22660009
242700        MOVE ALL '0'           TO HOLD-VAR-DATA                   22670009
242800        GO TO 2004-EXIT.                                          22680009
242900                                                                  22690009
243000        COMPUTE NURSING-COMPONENT ROUNDED =                       22700009
243100                   (NUR-INDEX * IP-RATE).                         22710009
243200                                                                  22720009
243300        COMPUTE THERAPY-COMPONENT ROUNDED =                       22730009
243400                   (THR-INDEX * REHAB-RATE).                      22740009
243500                                                                  22750009
243600        COMPUTE NCM-THR-COMPONENT ROUNDED =                       22760009
243700                   (FACTOR * NCM-THR-COMPONENT).                  22770009
243800                                                                  22780009
243900        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       22790009
244000                   NURSING-COMPONENT +                            22800009
244100                   THERAPY-COMPONENT +                            22810009
244200                   NCM-THR-COMPONENT +                            22820009
244300                   NCM-COMPONENT.                                 22830009
244400                                                                  22840009
244500        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        22850009
244600             (HLD-PAYMENT-RATE * PERCENT-2004-LABOR) *            22860009
244700               AREA-WAGE-INDEX.                                   22870009
244800                                                                  22880009
244900        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        22890009
245000               (HLD-PAYMENT-RATE * PERCENT-2004-NLABOR) +         22900009
245100                    PAYMENT-RATE-ADJ.                             22910009
245200                                                                  22920009
245300     IF  (HLD-RUG = 'IB2' OR 'IB1' OR 'IA2' OR 'IA1' OR           22930009
245400                    'BB2' OR 'BB1' OR 'BA2' OR 'BA1' OR           22940009
245500                    'PE2' OR 'PE1' OR 'PD2' OR 'PD1' OR           22950009
245600                    'PC2' OR 'PC1' OR 'PB2' OR 'PB1' OR           22960009
245700                    'PA2' OR 'PA1' OR 'AAA')                      22970009
245800        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        22980009
245900                HLD-PAYMENT-RATE * 1.00.                          22990009
246000                                                                  23000009
246100     IF  (HLD-RUG = 'RUC' OR 'RUB' OR 'RUA' OR 'RVC' OR           23010009
246200                    'RVB' OR 'RVA' OR 'RHC' OR 'RHB' OR           23020009
246300                    'RHA' OR 'RMC' OR 'RMB' OR 'RMA' OR           23030009
246400                    'RLB' OR 'RLA')                               23040009
246500        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        23050009
246600                HLD-PAYMENT-RATE * 1.067.                         23060009
246700                                                                  23070009
246800     IF  (HLD-RUG = 'SE3' OR 'SE2' OR 'SE1' OR 'SSC' OR           23080009
246900                    'SSB' OR 'SSA' OR 'CC2' OR 'CC1' OR           23090009
247000                    'CB2' OR 'CB1' OR 'CA2' OR 'CA1')             23100009
247100        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        23110009
247200                HLD-PAYMENT-RATE * 1.20.                          23120009
247300                                                                  23130009
247400     IF  SNF-FED-BLEND = 0                                        23140009
247500        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        23150009
247600                HLD-FACILITY-RATE * 1.00.                         23160009
247700                                                                  23170009
247800                                                                  23180009
247900     IF SNF-FED-BLEND = 4                                         23190009
248000        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              23200009
248100        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        23210009
248200                HLD-PAYMENT-RATE * 1.00.                          23220009
248300                                                                  23230009
248400                                                                  23240009
248500 2004-EXIT.   EXIT.                                               23250009
248600                                                                  23260009
248700 2005-PAYMENT-RATE-CALC.                                          23270009
248800***************************************************************   23280009
248900*     PAYMENT RATE CALCULATION PROCCESS EFFECTIVE OCT.1, 2004     23290009
249000***************************************************************   23300009
249100                                                                  23310009
249200     MOVE 1                    TO R3.                             23320009
249300                                                                  23330009
249400     IF HLD-MSA-RURAL-CHECK                                       23340009
249500        MOVE 1                 TO R2                              23350009
249600     ELSE                                                         23360009
249700        MOVE 2                 TO R2.                             23370009
249800                                                                  23380009
249900     PERFORM 800-SEARCH-4-RUG                                     23390009
250000        THRU 800-SEARCH-EXIT.                                     23400009
250100                                                                  23410009
250200     IF HLD-RTC NOT = 00                                          23420009
250300        GO TO 2005-EXIT.                                          23430009
250400                                                                  23440009
250500     PERFORM 500-GET-RATES.                                       23450009
250600                                                                  23460009
250700     IF (HLD-THRU-DATE < 20000101 AND                             23470009
250800         SNF-FED-BLEND = 0)                                       23480009
250900        MOVE '61'              TO HLD-RTC                         23490009
251000        MOVE ALL '0'           TO HOLD-VAR-DATA                   23500009
251100        GO TO 2005-EXIT.                                          23510009
251200                                                                  23520009
251300     IF SNF-FED-BLEND = 0 OR 4                                    23530009
251400        NEXT SENTENCE                                             23540009
251500     ELSE                                                         23550009
251600        MOVE '60'              TO HLD-RTC                         23560009
251700        MOVE ALL '0'           TO HOLD-VAR-DATA                   23570009
251800        GO TO 2005-EXIT.                                          23580009
251900                                                                  23590009
252000        COMPUTE NURSING-COMPONENT ROUNDED =                       23600009
252100                   (NUR-INDEX * IP-RATE).                         23610009
252200                                                                  23620009
252300        COMPUTE THERAPY-COMPONENT ROUNDED =                       23630009
252400                   (THR-INDEX * REHAB-RATE).                      23640009
252500                                                                  23650009
252600        COMPUTE NCM-THR-COMPONENT ROUNDED =                       23660009
252700                   (FACTOR * NCM-THR-COMPONENT).                  23670009
252800                                                                  23680009
252900        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       23690009
253000                   NURSING-COMPONENT +                            23700009
253100                   THERAPY-COMPONENT +                            23710009
253200                   NCM-THR-COMPONENT +                            23720009
253300                   NCM-COMPONENT.                                 23730009
253400                                                                  23740009
253500        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        23750009
253600             (HLD-PAYMENT-RATE * PERCENT-2005-LABOR) *            23760009
253700               AREA-WAGE-INDEX.                                   23770009
253800                                                                  23780009
253900        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        23790009
254000               (HLD-PAYMENT-RATE * PERCENT-2005-NLABOR) +         23800009
254100                    PAYMENT-RATE-ADJ.                             23810009
254200                                                                  23820009
254300     IF '042   ' = SNF-PRIN-DIAG-CODE   OR                        23830009
254400                   SNF-OTHER-DIAG-CODE2 OR                        23840009
254500                   SNF-OTHER-DIAG-CODE3 OR                        23850009
254600                   SNF-OTHER-DIAG-CODE4 OR                        23860009
254700                   SNF-OTHER-DIAG-CODE5 OR                        23870009
254800                   SNF-OTHER-DIAG-CODE6 OR                        23880009
254900                   SNF-OTHER-DIAG-CODE7 OR                        23890009
255000                   SNF-OTHER-DIAG-CODE8 OR                        23900009
255100                   SNF-OTHER-DIAG-CODE9 OR                        23910009
255200                   SNF-OTHER-DIAG-CODE10 OR                       23920009
255300                   SNF-OTHER-DIAG-CODE11 OR                       23930009
255400                   SNF-OTHER-DIAG-CODE12 OR                       23940009
255500                   SNF-OTHER-DIAG-CODE13 OR                       23950009
255600                   SNF-OTHER-DIAG-CODE14 OR                       23960009
255700                   SNF-OTHER-DIAG-CODE15 OR                       23970009
255800                   SNF-OTHER-DIAG-CODE16 OR                       23980009
255900                   SNF-OTHER-DIAG-CODE17 OR                       23990009
256000                   SNF-OTHER-DIAG-CODE18 OR                       24000009
256100                   SNF-OTHER-DIAG-CODE19 OR                       24010009
256200                   SNF-OTHER-DIAG-CODE20 OR                       24020009
256300                   SNF-OTHER-DIAG-CODE21 OR                       24030009
256400                   SNF-OTHER-DIAG-CODE22 OR                       24040009
256500                   SNF-OTHER-DIAG-CODE23 OR                       24050009
256600                   SNF-OTHER-DIAG-CODE24 OR                       24060009
256700                   SNF-OTHER-DIAG-CODE25                          24070009
256800         COMPUTE HLD-PAYMENT-RATE ROUNDED =                       24080009
256900                 HLD-PAYMENT-RATE * 2.28                          24090009
257000         GO TO 2005-CONTINUE.                                     24100009
257100                                                                  24110009
257200     IF  (HLD-RUG = 'IB2' OR 'IB1' OR 'IA2' OR 'IA1' OR           24120009
257300                    'BB2' OR 'BB1' OR 'BA2' OR 'BA1' OR           24130009
257400                    'PE2' OR 'PE1' OR 'PD2' OR 'PD1' OR           24140009
257500                    'PC2' OR 'PC1' OR 'PB2' OR 'PB1' OR           24150009
257600                    'PA2' OR 'PA1' OR 'AAA')                      24160009
257700        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        24170009
257800                HLD-PAYMENT-RATE * 1.00.                          24180009
257900                                                                  24190009
258000     IF  (HLD-RUG = 'RUC' OR 'RUB' OR 'RUA' OR 'RVC' OR           24200009
258100                    'RVB' OR 'RVA' OR 'RHC' OR 'RHB' OR           24210009
258200                    'RHA' OR 'RMC' OR 'RMB' OR 'RMA' OR           24220009
258300                    'RLB' OR 'RLA')                               24230009
258400        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        24240009
258500                HLD-PAYMENT-RATE * 1.067.                         24250009
258600                                                                  24260009
258700     IF  (HLD-RUG = 'SE3' OR 'SE2' OR 'SE1' OR 'SSC' OR           24270009
258800                    'SSB' OR 'SSA' OR 'CC2' OR 'CC1' OR           24280009
258900                    'CB2' OR 'CB1' OR 'CA2' OR 'CA1')             24290009
259000        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        24300009
259100                HLD-PAYMENT-RATE * 1.20.                          24310009
259200                                                                  24320009
259300 2005-CONTINUE.                                                   24330009
259400                                                                  24340009
259500     IF  SNF-FED-BLEND = 0                                        24350009
259600        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        24360009
259700                HLD-FACILITY-RATE * 1.00.                         24370009
259800                                                                  24380009
259900     IF SNF-FED-BLEND = 4                                         24390009
260000        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              24400009
260100        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        24410009
260200                HLD-PAYMENT-RATE * 1.00.                          24420009
260300                                                                  24430009
260400 2005-EXIT.   EXIT.                                               24440009
260500                                                                  24450009
260600 2006-44-PAYMENT-RATE-CALC.                                       24460009
260700***************************************************************   24470009
260800*     PAYMENT RATE CALCULATION PROCCESS                           24480009
260900*      EFFECTIVE OCT.1, 2005 TIL JAN.1, 2006                      24490009
261000***************************************************************   24500009
261100                                                                  24510009
261200     IF HLD-CBSA = '     '                                        24520009
261300        MOVE '30'              TO HLD-RTC                         24530009
261400        GO TO 2006-44-EXIT.                                       24540009
261500                                                                  24550009
261600     MOVE 1                    TO R3.                             24560009
261700                                                                  24570009
261800     IF HLD-CBSA-RURAL-CHECK                                      24580009
261900        MOVE 1                 TO R2                              24590009
262000     ELSE                                                         24600009
262100        MOVE 2                 TO R2.                             24610009
262200                                                                  24620009
262300     PERFORM 800-SEARCH-4-RUG                                     24630009
262400        THRU 800-SEARCH-EXIT.                                     24640009
262500                                                                  24650009
262600     IF HLD-RTC NOT = 00                                          24660009
262700        GO TO 2006-44-EXIT.                                       24670009
262800                                                                  24680009
262900     PERFORM 500-GET-RATES.                                       24690009
263000                                                                  24700009
263100     IF SNF-FED-BLEND = 0 OR 4                                    24710009
263200        NEXT SENTENCE                                             24720009
263300     ELSE                                                         24730009
263400        MOVE '60'              TO HLD-RTC                         24740009
263500        MOVE ALL '0'           TO HOLD-VAR-DATA                   24750009
263600        GO TO 2006-44-EXIT.                                       24760009
263700                                                                  24770009
263800        COMPUTE NURSING-COMPONENT ROUNDED =                       24780009
263900                   (NUR-INDEX * IP-RATE).                         24790009
264000                                                                  24800009
264100        COMPUTE THERAPY-COMPONENT ROUNDED =                       24810009
264200                   (THR-INDEX * REHAB-RATE).                      24820009
264300                                                                  24830009
264400        COMPUTE NCM-THR-COMPONENT ROUNDED =                       24840009
264500                   (FACTOR * NCM-THR-COMPONENT).                  24850009
264600                                                                  24860009
264700        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       24870009
264800                   NURSING-COMPONENT +                            24880009
264900                   THERAPY-COMPONENT +                            24890009
265000                   NCM-THR-COMPONENT +                            24900009
265100                   NCM-COMPONENT.                                 24910009
265200                                                                  24920009
265300        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        24930009
265400             (HLD-PAYMENT-RATE * PERCENT-2006-LABOR) *            24940009
265500               AREA-WAGE-INDEX.                                   24950009
265600                                                                  24960009
265700        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        24970009
265800               (HLD-PAYMENT-RATE * PERCENT-2006-NLABOR) +         24980009
265900                    PAYMENT-RATE-ADJ.                             24990009
266000                                                                  25000009
266100     IF '042   ' = SNF-PRIN-DIAG-CODE    OR                       25010009
266200                   SNF-OTHER-DIAG-CODE2  OR                       25020009
266300                   SNF-OTHER-DIAG-CODE3  OR                       25030009
266400                   SNF-OTHER-DIAG-CODE4  OR                       25040009
266500                   SNF-OTHER-DIAG-CODE5  OR                       25050009
266600                   SNF-OTHER-DIAG-CODE6  OR                       25060009
266700                   SNF-OTHER-DIAG-CODE7  OR                       25070009
266800                   SNF-OTHER-DIAG-CODE8  OR                       25080009
266900                   SNF-OTHER-DIAG-CODE9  OR                       25090009
267000                   SNF-OTHER-DIAG-CODE10 OR                       25100009
267100                   SNF-OTHER-DIAG-CODE11 OR                       25110009
267200                   SNF-OTHER-DIAG-CODE12 OR                       25120009
267300                   SNF-OTHER-DIAG-CODE13 OR                       25130009
267400                   SNF-OTHER-DIAG-CODE14 OR                       25140009
267500                   SNF-OTHER-DIAG-CODE15 OR                       25150009
267600                   SNF-OTHER-DIAG-CODE16 OR                       25160009
267700                   SNF-OTHER-DIAG-CODE17 OR                       25170009
267800                   SNF-OTHER-DIAG-CODE18 OR                       25180009
267900                   SNF-OTHER-DIAG-CODE19 OR                       25190009
268000                   SNF-OTHER-DIAG-CODE20 OR                       25200009
268100                   SNF-OTHER-DIAG-CODE21 OR                       25210009
268200                   SNF-OTHER-DIAG-CODE22 OR                       25220009
268300                   SNF-OTHER-DIAG-CODE23 OR                       25230009
268400                   SNF-OTHER-DIAG-CODE24 OR                       25240009
268500                   SNF-OTHER-DIAG-CODE25                          25250009
268600         COMPUTE HLD-PAYMENT-RATE ROUNDED =                       25260009
268700                 HLD-PAYMENT-RATE * 2.28                          25270009
268800         GO TO 2006-CONTINUE.                                     25280009
268900                                                                  25290009
269000     IF  (HLD-RUG = 'IB2' OR 'IB1' OR 'IA2' OR 'IA1' OR           25300009
269100                    'BB2' OR 'BB1' OR 'BA2' OR 'BA1' OR           25310009
269200                    'PE2' OR 'PE1' OR 'PD2' OR 'PD1' OR           25320009
269300                    'PC2' OR 'PC1' OR 'PB2' OR 'PB1' OR           25330009
269400                    'PA2' OR 'PA1' OR 'AAA')                      25340009
269500        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        25350009
269600                HLD-PAYMENT-RATE * 1.00.                          25360009
269700                                                                  25370009
269800     IF  (HLD-RUG = 'RUC' OR 'RUB' OR 'RUA' OR 'RVC' OR           25380009
269900                    'RVB' OR 'RVA' OR 'RHC' OR 'RHB' OR           25390009
270000                    'RHA' OR 'RMC' OR 'RMB' OR 'RMA' OR           25400009
270100                    'RLB' OR 'RLA')                               25410009
270200        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        25420009
270300                HLD-PAYMENT-RATE * 1.067.                         25430009
270400                                                                  25440009
270500     IF  (HLD-RUG = 'SE3' OR 'SE2' OR 'SE1' OR 'SSC' OR           25450009
270600                    'SSB' OR 'SSA' OR 'CC2' OR 'CC1' OR           25460009
270700                    'CB2' OR 'CB1' OR 'CA2' OR 'CA1')             25470009
270800        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        25480009
270900                HLD-PAYMENT-RATE * 1.20.                          25490009
271000                                                                  25500009
271100 2006-CONTINUE.                                                   25510009
271200                                                                  25520009
271300     IF  SNF-FED-BLEND = 0                                        25530009
271400        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        25540009
271500                HLD-FACILITY-RATE * 1.00.                         25550009
271600                                                                  25560009
271700     IF SNF-FED-BLEND = 4                                         25570009
271800        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              25580009
271900        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        25590009
272000                HLD-PAYMENT-RATE * 1.00.                          25600009
272100                                                                  25610009
272200                                                                  25620009
272300 2006-44-EXIT.   EXIT.                                            25630009
272400                                                                  25640009
272500 2006-53-PAYMENT-RATE-CALC.                                       25650009
272600***************************************************************   25660009
272700*     PAYMENT RATE CALCULATION PROCCESS EFFECTIVE JAN.1, 2006     25670009
272800***************************************************************   25680009
272900                                                                  25690009
273000     IF HLD-CBSA = '     '                                        25700009
273100        MOVE '30'              TO HLD-RTC                         25710009
273200        GO TO 2006-53-EXIT.                                       25720009
273300                                                                  25730009
273400     MOVE 1                    TO R3.                             25740009
273500                                                                  25750009
273600     IF HLD-CBSA-RURAL-CHECK                                      25760009
273700        MOVE 1                 TO R2                              25770009
273800     ELSE                                                         25780009
273900        MOVE 2                 TO R2.                             25790009
274000                                                                  25800009
274100     PERFORM 900-SEARCH-4-RUG53                                   25810009
274200        THRU 900-SEARCH-EXIT.                                     25820009
274300                                                                  25830009
274400     IF HLD-RTC NOT = 00                                          25840009
274500        GO TO 2006-53-EXIT.                                       25850009
274600                                                                  25860009
274700     PERFORM 500-GET-RATES.                                       25870009
274800                                                                  25880009
274900     IF SNF-FED-BLEND = 0 OR 4                                    25890009
275000        NEXT SENTENCE                                             25900009
275100     ELSE                                                         25910009
275200        MOVE '60'              TO HLD-RTC                         25920009
275300        MOVE ALL '0'           TO HOLD-VAR-DATA                   25930009
275400        GO TO 2006-53-EXIT.                                       25940009
275500                                                                  25950009
275600        COMPUTE NURSING-COMPONENT ROUNDED =                       25960009
275700                   (NUR-INDEX * IP-RATE).                         25970009
275800                                                                  25980009
275900        COMPUTE THERAPY-COMPONENT ROUNDED =                       25990009
276000                   (THR-INDEX * REHAB-RATE).                      26000009
276100                                                                  26010009
276200        COMPUTE NCM-THR-COMPONENT ROUNDED =                       26020009
276300                   (FACTOR * NCM-THR-COMPONENT).                  26030009
276400                                                                  26040009
276500        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       26050009
276600                   NURSING-COMPONENT +                            26060009
276700                   THERAPY-COMPONENT +                            26070009
276800                   NCM-THR-COMPONENT +                            26080009
276900                   NCM-COMPONENT.                                 26090009
277000                                                                  26100009
277100        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        26110009
277200             (HLD-PAYMENT-RATE * PERCENT-2006-LABOR) *            26120009
277300               AREA-WAGE-INDEX.                                   26130009
277400                                                                  26140009
277500        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        26150009
277600               (HLD-PAYMENT-RATE * PERCENT-2006-NLABOR) +         26160009
277700                    PAYMENT-RATE-ADJ.                             26170009
277800                                                                  26180009
277900     IF '042   ' = SNF-PRIN-DIAG-CODE    OR                       26190009
278000                   SNF-OTHER-DIAG-CODE2  OR                       26200009
278100                   SNF-OTHER-DIAG-CODE3  OR                       26210009
278200                   SNF-OTHER-DIAG-CODE4  OR                       26220009
278300                   SNF-OTHER-DIAG-CODE5  OR                       26230009
278400                   SNF-OTHER-DIAG-CODE6  OR                       26240009
278500                   SNF-OTHER-DIAG-CODE7  OR                       26250009
278600                   SNF-OTHER-DIAG-CODE8  OR                       26260009
278700                   SNF-OTHER-DIAG-CODE9  OR                       26270009
278800                   SNF-OTHER-DIAG-CODE10 OR                       26280009
278900                   SNF-OTHER-DIAG-CODE11 OR                       26290009
279000                   SNF-OTHER-DIAG-CODE12 OR                       26300009
279100                   SNF-OTHER-DIAG-CODE13 OR                       26310009
279200                   SNF-OTHER-DIAG-CODE14 OR                       26320009
279300                   SNF-OTHER-DIAG-CODE15 OR                       26330009
279400                   SNF-OTHER-DIAG-CODE16 OR                       26340009
279500                   SNF-OTHER-DIAG-CODE17 OR                       26350009
279600                   SNF-OTHER-DIAG-CODE18 OR                       26360009
279700                   SNF-OTHER-DIAG-CODE19 OR                       26370009
279800                   SNF-OTHER-DIAG-CODE20 OR                       26380009
279900                   SNF-OTHER-DIAG-CODE21 OR                       26390009
280000                   SNF-OTHER-DIAG-CODE22 OR                       26400009
280100                   SNF-OTHER-DIAG-CODE23 OR                       26410009
280200                   SNF-OTHER-DIAG-CODE24 OR                       26420009
280300                   SNF-OTHER-DIAG-CODE25                          26430009
280400         COMPUTE HLD-PAYMENT-RATE ROUNDED =                       26440009
280500                 HLD-PAYMENT-RATE * 2.28                          26450009
280600         GO TO 2006-53-CONTINUE.                                  26460009
280700                                                                  26470009
280800 2006-53-CONTINUE.                                                26480009
280900                                                                  26490009
281000     IF  SNF-FED-BLEND = 0                                        26500009
281100        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        26510009
281200                HLD-FACILITY-RATE * 1.00.                         26520009
281300                                                                  26530009
281400     IF SNF-FED-BLEND = 4                                         26540009
281500        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              26550009
281600        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        26560009
281700                HLD-PAYMENT-RATE * 1.00.                          26570009
281800                                                                  26580009
281900 2006-53-EXIT.   EXIT.                                            26590009
282000                                                                  26600009
282100 2007-53-PAYMENT-RATE-CALC.                                       26610009
282200***************************************************************   26620009
282300*     PAYMENT RATE CALCULATION PROCCESS EFFECTIVE OCT.1, 2007     26630009
282400***************************************************************   26640009
282500                                                                  26650009
282600     IF HLD-CBSA = '     '                                        26660009
282700        MOVE '30' TO HLD-RTC                                      26670009
282800        GO TO 2007-53-EXIT.                                       26680009
282900                                                                  26690009
283000     MOVE 1 TO R3.                                                26700009
283100                                                                  26710009
283200     IF HLD-CBSA-RURAL-CHECK                                      26720009
283300        MOVE 1 TO R2                                              26730009
283400     ELSE                                                         26740009
283500        MOVE 2 TO R2.                                             26750009
283600                                                                  26760009
283700     PERFORM 900-SEARCH-4-RUG53  THRU 900-SEARCH-EXIT.            26770009
283800                                                                  26780009
283900     IF HLD-RTC NOT = 00 GO TO 2007-53-EXIT.                      26790009
284000                                                                  26800009
284100     PERFORM 500-GET-RATES.                                       26810009
284200                                                                  26820009
284300     IF SNF-FED-BLEND = 0 OR 4                                    26830009
284400        NEXT SENTENCE                                             26840009
284500     ELSE                                                         26850009
284600        MOVE '60' TO HLD-RTC                                      26860009
284700        MOVE ALL '0' TO HOLD-VAR-DATA                             26870009
284800        GO TO 2007-53-EXIT.                                       26880009
284900                                                                  26890009
285000        COMPUTE NURSING-COMPONENT ROUNDED =                       26900009
285100                   (NUR-INDEX * IP-RATE).                         26910009
285200                                                                  26920009
285300        COMPUTE THERAPY-COMPONENT ROUNDED =                       26930009
285400                   (THR-INDEX * REHAB-RATE).                      26940009
285500                                                                  26950009
285600        COMPUTE NCM-THR-COMPONENT ROUNDED =                       26960009
285700                   (FACTOR * NCM-THR-COMPONENT).                  26970009
285800                                                                  26980009
285900        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       26990009
286000                   NURSING-COMPONENT +                            27000009
286100                   THERAPY-COMPONENT +                            27010009
286200                   NCM-THR-COMPONENT +                            27020009
286300                   NCM-COMPONENT.                                 27030009
286400                                                                  27040009
286500        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        27050009
286600             (HLD-PAYMENT-RATE * PERCENT-2007-LABOR) *            27060009
286700               AREA-WAGE-INDEX.                                   27070009
286800                                                                  27080009
286900        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        27090009
287000               (HLD-PAYMENT-RATE * PERCENT-2007-NLABOR) +         27100009
287100                    PAYMENT-RATE-ADJ.                             27110009
287200                                                                  27120009
287300     IF '042   ' = SNF-PRIN-DIAG-CODE    OR                       27130009
287400                   SNF-OTHER-DIAG-CODE2  OR                       27140009
287500                   SNF-OTHER-DIAG-CODE3  OR                       27150009
287600                   SNF-OTHER-DIAG-CODE4  OR                       27160009
287700                   SNF-OTHER-DIAG-CODE5  OR                       27170009
287800                   SNF-OTHER-DIAG-CODE6  OR                       27180009
287900                   SNF-OTHER-DIAG-CODE7  OR                       27190009
288000                   SNF-OTHER-DIAG-CODE8  OR                       27200009
288100                   SNF-OTHER-DIAG-CODE9  OR                       27210009
288200                   SNF-OTHER-DIAG-CODE10 OR                       27220009
288300                   SNF-OTHER-DIAG-CODE11 OR                       27230009
288400                   SNF-OTHER-DIAG-CODE12 OR                       27240009
288500                   SNF-OTHER-DIAG-CODE13 OR                       27250009
288600                   SNF-OTHER-DIAG-CODE14 OR                       27260009
288700                   SNF-OTHER-DIAG-CODE15 OR                       27270009
288800                   SNF-OTHER-DIAG-CODE16 OR                       27280009
288900                   SNF-OTHER-DIAG-CODE17 OR                       27290009
289000                   SNF-OTHER-DIAG-CODE18 OR                       27300009
289100                   SNF-OTHER-DIAG-CODE19 OR                       27310009
289200                   SNF-OTHER-DIAG-CODE20 OR                       27320009
289300                   SNF-OTHER-DIAG-CODE21 OR                       27330009
289400                   SNF-OTHER-DIAG-CODE22 OR                       27340009
289500                   SNF-OTHER-DIAG-CODE23 OR                       27350009
289600                   SNF-OTHER-DIAG-CODE24 OR                       27360009
289700                   SNF-OTHER-DIAG-CODE25                          27370009
289800         COMPUTE HLD-PAYMENT-RATE ROUNDED =                       27380009
289900                 HLD-PAYMENT-RATE * 2.28                          27390009
290000         GO TO 2007-53-CONTINUE.                                  27400009
290100                                                                  27410009
290200 2007-53-CONTINUE.                                                27420009
290300                                                                  27430009
290400     IF  SNF-FED-BLEND = 0                                        27440009
290500        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        27450009
290600                HLD-FACILITY-RATE * 1.00.                         27460009
290700                                                                  27470009
290800     IF SNF-FED-BLEND = 4                                         27480009
290900        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              27490009
291000        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        27500009
291100                HLD-PAYMENT-RATE * 1.00.                          27510009
291200                                                                  27520009
291300 2007-53-EXIT. EXIT.                                              27530009
291400                                                                  27540009
291500 2008-53-PAYMENT-RATE-CALC.                                       27550009
291600***************************************************************   27560009
291700*     PAYMENT RATE CALCULATION PROCCESS EFFECTIVE OCT.1, 2007     27570009
291800***************************************************************   27580009
291900                                                                  27590009
292000     IF HLD-CBSA = '     '                                        27600009
292100        MOVE '30' TO HLD-RTC                                      27610009
292200        GO TO 2008-53-EXIT.                                       27620009
292300                                                                  27630009
292400     MOVE 1 TO R3.                                                27640009
292500                                                                  27650009
292600     IF HLD-CBSA-RURAL-CHECK                                      27660009
292700        MOVE 1 TO R2                                              27670009
292800     ELSE                                                         27680009
292900        MOVE 2 TO R2.                                             27690009
293000                                                                  27700009
293100     PERFORM 900-SEARCH-4-RUG53  THRU 900-SEARCH-EXIT.            27710009
293200                                                                  27720009
293300     IF HLD-RTC NOT = 00 GO TO 2008-53-EXIT.                      27730009
293400                                                                  27740009
293500     PERFORM 500-GET-RATES.                                       27750009
293600                                                                  27760009
293700     IF SNF-FED-BLEND = 0 OR 4                                    27770009
293800        NEXT SENTENCE                                             27780009
293900     ELSE                                                         27790009
294000        MOVE '60' TO HLD-RTC                                      27800009
294100        MOVE ALL '0' TO HOLD-VAR-DATA                             27810009
294200        GO TO 2008-53-EXIT.                                       27820009
294300                                                                  27830009
294400        COMPUTE NURSING-COMPONENT ROUNDED =                       27840009
294500                   (NUR-INDEX * IP-RATE).                         27850009
294600                                                                  27860009
294700        COMPUTE THERAPY-COMPONENT ROUNDED =                       27870009
294800                   (THR-INDEX * REHAB-RATE).                      27880009
294900                                                                  27890009
295000        COMPUTE NCM-THR-COMPONENT ROUNDED =                       27900009
295100                   (FACTOR * NCM-THR-COMPONENT).                  27910009
295200                                                                  27920009
295300        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       27930009
295400                   NURSING-COMPONENT +                            27940009
295500                   THERAPY-COMPONENT +                            27950009
295600                   NCM-THR-COMPONENT +                            27960009
295700                   NCM-COMPONENT.                                 27970009
295800                                                                  27980009
295900        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        27990009
296000             (HLD-PAYMENT-RATE * PERCENT-2008-LABOR) *            28000009
296100               AREA-WAGE-INDEX.                                   28010009
296200                                                                  28020009
296300        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        28030009
296400               (HLD-PAYMENT-RATE * PERCENT-2008-NLABOR) +         28040009
296500                    PAYMENT-RATE-ADJ.                             28050009
296600                                                                  28060009
296700     IF '042   ' = SNF-PRIN-DIAG-CODE    OR                       28070009
296800                   SNF-OTHER-DIAG-CODE2  OR                       28080009
296900                   SNF-OTHER-DIAG-CODE3  OR                       28090009
297000                   SNF-OTHER-DIAG-CODE4  OR                       28100009
297100                   SNF-OTHER-DIAG-CODE5  OR                       28110009
297200                   SNF-OTHER-DIAG-CODE6  OR                       28120009
297300                   SNF-OTHER-DIAG-CODE7  OR                       28130009
297400                   SNF-OTHER-DIAG-CODE8  OR                       28140009
297500                   SNF-OTHER-DIAG-CODE9  OR                       28150009
297600                   SNF-OTHER-DIAG-CODE10 OR                       28160009
297700                   SNF-OTHER-DIAG-CODE11 OR                       28170009
297800                   SNF-OTHER-DIAG-CODE12 OR                       28180009
297900                   SNF-OTHER-DIAG-CODE13 OR                       28190009
298000                   SNF-OTHER-DIAG-CODE14 OR                       28200009
298100                   SNF-OTHER-DIAG-CODE15 OR                       28210009
298200                   SNF-OTHER-DIAG-CODE16 OR                       28220009
298300                   SNF-OTHER-DIAG-CODE17 OR                       28230009
298400                   SNF-OTHER-DIAG-CODE18 OR                       28240009
298500                   SNF-OTHER-DIAG-CODE19 OR                       28250009
298600                   SNF-OTHER-DIAG-CODE20 OR                       28260009
298700                   SNF-OTHER-DIAG-CODE21 OR                       28270009
298800                   SNF-OTHER-DIAG-CODE22 OR                       28280009
298900                   SNF-OTHER-DIAG-CODE23 OR                       28290009
299000                   SNF-OTHER-DIAG-CODE24 OR                       28300009
299100                   SNF-OTHER-DIAG-CODE25                          28310009
299200         COMPUTE HLD-PAYMENT-RATE ROUNDED =                       28320009
299300                 HLD-PAYMENT-RATE * 2.28                          28330009
299400         GO TO 2008-53-CONTINUE.                                  28340009
299500                                                                  28350009
299600 2008-53-CONTINUE.                                                28360009
299700                                                                  28370009
299800     IF  SNF-FED-BLEND = 0                                        28380009
299900        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        28390009
300000                HLD-FACILITY-RATE * 1.00.                         28400009
300100                                                                  28410009
300200     IF SNF-FED-BLEND = 4                                         28420009
300300        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              28430009
300400        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        28440009
300500                HLD-PAYMENT-RATE * 1.00.                          28450009
300600                                                                  28460009
300700 2008-53-EXIT. EXIT.                                              28470009
300800                                                                  28480009
300900 2009-53-PAYMENT-RATE-CALC.                                       28490009
301000***************************************************************   28500009
301100*     PAYMENT RATE CALCULATION PROCCESS EFFECTIVE OCT.1, 2009     28510009
301200***************************************************************   28520009
301300                                                                  28530009
301400     IF HLD-CBSA = '     '                                        28540009
301500        MOVE '30' TO HLD-RTC                                      28550009
301600        GO TO 2009-53-EXIT.                                       28560009
301700                                                                  28570009
301800     MOVE 1 TO R3.                                                28580009
301900                                                                  28590009
302000     IF HLD-CBSA-RURAL-CHECK                                      28600009
302100        MOVE 1 TO R2                                              28610009
302200     ELSE                                                         28620009
302300        MOVE 2 TO R2.                                             28630009
302400                                                                  28640009
302500     PERFORM 900-SEARCH-4-RUG53  THRU 900-SEARCH-EXIT.            28650009
302600                                                                  28660009
302700     IF HLD-RTC NOT = 00 GO TO 2009-53-EXIT.                      28670009
302800                                                                  28680009
302900     PERFORM 500-GET-RATES.                                       28690009
303000                                                                  28700009
303100     IF SNF-FED-BLEND = 0 OR 4                                    28710009
303200        NEXT SENTENCE                                             28720009
303300     ELSE                                                         28730009
303400        MOVE '60' TO HLD-RTC                                      28740009
303500        MOVE ALL '0' TO HOLD-VAR-DATA                             28750009
303600        GO TO 2009-53-EXIT.                                       28760009
303700                                                                  28770009
303800        COMPUTE NURSING-COMPONENT ROUNDED =                       28780009
303900                   (NUR-INDEX * IP-RATE).                         28790009
304000                                                                  28800009
304100        COMPUTE THERAPY-COMPONENT ROUNDED =                       28810009
304200                   (THR-INDEX * REHAB-RATE).                      28820009
304300                                                                  28830009
304400        COMPUTE NCM-THR-COMPONENT ROUNDED =                       28840009
304500                   (FACTOR * NCM-THR-COMPONENT).                  28850009
304600                                                                  28860009
304700        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       28870009
304800                   NURSING-COMPONENT +                            28880009
304900                   THERAPY-COMPONENT +                            28890009
305000                   NCM-THR-COMPONENT +                            28900009
305100                   NCM-COMPONENT.                                 28910009
305200                                                                  28920009
305300        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        28930009
305400             (HLD-PAYMENT-RATE * PERCENT-2009-LABOR) *            28940009
305500               AREA-WAGE-INDEX.                                   28950009
305600                                                                  28960009
305700        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        28970009
305800               (HLD-PAYMENT-RATE * PERCENT-2009-NLABOR) +         28980009
305900                    PAYMENT-RATE-ADJ.                             28990009
306000                                                                  29000009
306100     IF '042   ' = SNF-PRIN-DIAG-CODE   OR                        29010009
306200                   SNF-OTHER-DIAG-CODE2 OR                        29020009
306300                   SNF-OTHER-DIAG-CODE3 OR                        29030009
306400                   SNF-OTHER-DIAG-CODE4 OR                        29040009
306500                   SNF-OTHER-DIAG-CODE5 OR                        29050009
306600                   SNF-OTHER-DIAG-CODE6 OR                        29060009
306700                   SNF-OTHER-DIAG-CODE7 OR                        29070009
306800                   SNF-OTHER-DIAG-CODE8 OR                        29080009
306900                   SNF-OTHER-DIAG-CODE9  OR                       29090009
307000                   SNF-OTHER-DIAG-CODE10 OR                       29100009
307100                   SNF-OTHER-DIAG-CODE11 OR                       29110009
307200                   SNF-OTHER-DIAG-CODE12 OR                       29120009
307300                   SNF-OTHER-DIAG-CODE13 OR                       29130009
307400                   SNF-OTHER-DIAG-CODE14 OR                       29140009
307500                   SNF-OTHER-DIAG-CODE15 OR                       29150009
307600                   SNF-OTHER-DIAG-CODE16 OR                       29160009
307700                   SNF-OTHER-DIAG-CODE17 OR                       29170009
307800                   SNF-OTHER-DIAG-CODE18 OR                       29180009
307900                   SNF-OTHER-DIAG-CODE19 OR                       29190009
308000                   SNF-OTHER-DIAG-CODE20 OR                       29200009
308100                   SNF-OTHER-DIAG-CODE21 OR                       29210009
308200                   SNF-OTHER-DIAG-CODE22 OR                       29220009
308300                   SNF-OTHER-DIAG-CODE23 OR                       29230009
308400                   SNF-OTHER-DIAG-CODE24 OR                       29240009
308500                   SNF-OTHER-DIAG-CODE25                          29250009
308600         COMPUTE HLD-PAYMENT-RATE ROUNDED =                       29260009
308700                 HLD-PAYMENT-RATE * 2.28                          29270009
308800         GO TO 2009-53-CONTINUE.                                  29280009
308900                                                                  29290009
309000 2009-53-CONTINUE.                                                29300009
309100                                                                  29310009
309200     IF  SNF-FED-BLEND = 0                                        29320009
309300        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        29330009
309400                HLD-FACILITY-RATE * 1.00.                         29340009
309500                                                                  29350009
309600     IF SNF-FED-BLEND = 4                                         29360009
309700        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              29370009
309800        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        29380009
309900                HLD-PAYMENT-RATE * 1.00.                          29390009
310000                                                                  29400009
310100 2009-53-EXIT. EXIT.                                              29410009
310200                                                                  29420009
310300 2010-53-PAYMENT-RATE-CALC.                                       29430009
310400***************************************************************   29440009
310500*     PAYMENT RATE CALCULATION PROCCESS EFFECTIVE OCT.1, 2009     29450009
310600***************************************************************   29460009
310700                                                                  29470009
310800     IF HLD-CBSA = '     '                                        29480009
310900        MOVE '30' TO HLD-RTC                                      29490009
311000        GO TO 2010-53-EXIT.                                       29500009
311100                                                                  29510009
311200     MOVE 1 TO R3.                                                29520009
311300                                                                  29530009
311400     IF HLD-CBSA-RURAL-CHECK                                      29540009
311500        MOVE 1 TO R2                                              29550009
311600     ELSE                                                         29560009
311700        MOVE 2 TO R2.                                             29570009
311800                                                                  29580009
311900     PERFORM 910-SEARCH-4-RUG53-2010  THRU 910-SEARCH-EXIT.       29590009
312000                                                                  29600009
312100     IF HLD-RTC NOT = 00 GO TO 2010-53-EXIT.                      29610009
312200                                                                  29620009
312300     PERFORM 500-GET-RATES.                                       29630009
312400                                                                  29640009
312500     IF SNF-FED-BLEND = 0 OR 4                                    29650009
312600        NEXT SENTENCE                                             29660009
312700     ELSE                                                         29670009
312800        MOVE '60' TO HLD-RTC                                      29680009
312900        MOVE ALL '0' TO HOLD-VAR-DATA                             29690009
313000        GO TO 2010-53-EXIT.                                       29700009
313100                                                                  29710009
313200        COMPUTE NURSING-COMPONENT ROUNDED =                       29720009
313300                   (NUR-INDEX * IP-RATE).                         29730009
313400                                                                  29740009
313500        COMPUTE THERAPY-COMPONENT ROUNDED =                       29750009
313600                   (THR-INDEX * REHAB-RATE).                      29760009
313700                                                                  29770009
313800        COMPUTE NCM-THR-COMPONENT ROUNDED =                       29780009
313900                   (FACTOR * NCM-THR-COMPONENT).                  29790009
314000                                                                  29800009
314100        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       29810009
314200                   NURSING-COMPONENT +                            29820009
314300                   THERAPY-COMPONENT +                            29830009
314400                   NCM-THR-COMPONENT +                            29840009
314500                   NCM-COMPONENT.                                 29850009
314600                                                                  29860009
314700        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        29870009
314800             (HLD-PAYMENT-RATE * PERCENT-2010-LABOR) *            29880009
314900               AREA-WAGE-INDEX.                                   29890009
315000                                                                  29900009
315100        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        29910009
315200               (HLD-PAYMENT-RATE * PERCENT-2010-NLABOR) +         29920009
315300                    PAYMENT-RATE-ADJ.                             29930009
315400                                                                  29940009
315500     IF '042   ' = SNF-PRIN-DIAG-CODE   OR                        29950009
315600                   SNF-OTHER-DIAG-CODE2 OR                        29960009
315700                   SNF-OTHER-DIAG-CODE3 OR                        29970009
315800                   SNF-OTHER-DIAG-CODE4 OR                        29980009
315900                   SNF-OTHER-DIAG-CODE5 OR                        29990009
316000                   SNF-OTHER-DIAG-CODE6 OR                        30000009
316100                   SNF-OTHER-DIAG-CODE7 OR                        30010009
316200                   SNF-OTHER-DIAG-CODE8 OR                        30020009
316300                   SNF-OTHER-DIAG-CODE9  OR                       30030009
316400                   SNF-OTHER-DIAG-CODE10 OR                       30040009
316500                   SNF-OTHER-DIAG-CODE11 OR                       30050009
316600                   SNF-OTHER-DIAG-CODE12 OR                       30060009
316700                   SNF-OTHER-DIAG-CODE13 OR                       30070009
316800                   SNF-OTHER-DIAG-CODE14 OR                       30080009
316900                   SNF-OTHER-DIAG-CODE15 OR                       30090009
317000                   SNF-OTHER-DIAG-CODE16 OR                       30100009
317100                   SNF-OTHER-DIAG-CODE17 OR                       30110009
317200                   SNF-OTHER-DIAG-CODE18 OR                       30120009
317300                   SNF-OTHER-DIAG-CODE19 OR                       30130009
317400                   SNF-OTHER-DIAG-CODE20 OR                       30140009
317500                   SNF-OTHER-DIAG-CODE21 OR                       30150009
317600                   SNF-OTHER-DIAG-CODE22 OR                       30160009
317700                   SNF-OTHER-DIAG-CODE23 OR                       30170009
317800                   SNF-OTHER-DIAG-CODE24 OR                       30180009
317900                   SNF-OTHER-DIAG-CODE25                          30190009
318000         COMPUTE HLD-PAYMENT-RATE ROUNDED =                       30200009
318100                 HLD-PAYMENT-RATE * 2.28                          30210009
318200         GO TO 2010-53-CONTINUE.                                  30220009
318300                                                                  30230009
318400 2010-53-CONTINUE.                                                30240009
318500                                                                  30250009
318600     IF  SNF-FED-BLEND = 0                                        30260009
318700        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        30270009
318800                HLD-FACILITY-RATE * 1.00.                         30280009
318900                                                                  30290009
319000     IF SNF-FED-BLEND = 4                                         30300009
319100        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              30310009
319200        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        30320009
319300                HLD-PAYMENT-RATE * 1.00.                          30330009
319400                                                                  30340009
319500 2010-53-EXIT. EXIT.                                              30350009
319600                                                                  30360009
319700 2011-67-PAYMENT-RATE-CALC.                                       30370009
319800***************************************************************   30380009
319900*     PAYMENT RATE CALCULATION PROCCESS EFFECTIVE OCT.1, 2009     30390009
320000***************************************************************   30400009
320100                                                                  30410009
320200     IF HLD-CBSA = '     '                                        30420009
320300        MOVE '30' TO HLD-RTC                                      30430009
320400        GO TO 2011-67-EXIT.                                       30440009
320500                                                                  30450009
320600     MOVE 1 TO R3.                                                30460009
320700                                                                  30470009
320800     IF HLD-CBSA-RURAL-CHECK                                      30480009
320900        MOVE 1 TO R2                                              30490009
321000     ELSE                                                         30500009
321100        MOVE 2 TO R2.                                             30510009
321200                                                                  30520009
321300     PERFORM 911-SEARCH-4-RUG67-2011  THRU 911-SEARCH-EXIT.       30530009
321400                                                                  30540009
321500     IF HLD-RTC NOT = 00 GO TO 2011-67-EXIT.                      30550009
321600                                                                  30560009
321700     PERFORM 500-GET-RATES.                                       30570009
321800                                                                  30580009
321900     IF SNF-FED-BLEND = 0 OR 4                                    30590009
322000        NEXT SENTENCE                                             30600009
322100     ELSE                                                         30610009
322200        MOVE '60' TO HLD-RTC                                      30620009
322300        MOVE ALL '0' TO HOLD-VAR-DATA                             30630009
322400        GO TO 2011-67-EXIT.                                       30640009
322500                                                                  30650009
322600        COMPUTE NURSING-COMPONENT ROUNDED =                       30660009
322700                   (NUR-INDEX * IP-RATE).                         30670009
322800                                                                  30680009
322900        COMPUTE THERAPY-COMPONENT ROUNDED =                       30690009
323000                   (THR-INDEX * REHAB-RATE).                      30700009
323100                                                                  30710009
323200        COMPUTE NCM-THR-COMPONENT ROUNDED =                       30720009
323300                   (FACTOR * NCM-THR-COMPONENT).                  30730009
323400                                                                  30740009
323500        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       30750009
323600                   NURSING-COMPONENT +                            30760009
323700                   THERAPY-COMPONENT +                            30770009
323800                   NCM-THR-COMPONENT +                            30780009
323900                   NCM-COMPONENT.                                 30790009
324000                                                                  30800009
324100        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        30810009
324200             (HLD-PAYMENT-RATE * PERCENT-2011-LABOR) *            30820009
324300               AREA-WAGE-INDEX.                                   30830009
324400                                                                  30840009
324500        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        30850009
324600               (HLD-PAYMENT-RATE * PERCENT-2011-NLABOR) +         30860009
324700                    PAYMENT-RATE-ADJ.                             30870009
324800                                                                  30880009
324900     IF '042   ' = SNF-PRIN-DIAG-CODE   OR                        30890009
325000                   SNF-OTHER-DIAG-CODE2 OR                        30900009
325100                   SNF-OTHER-DIAG-CODE3 OR                        30910009
325200                   SNF-OTHER-DIAG-CODE4 OR                        30920009
325300                   SNF-OTHER-DIAG-CODE5 OR                        30930009
325400                   SNF-OTHER-DIAG-CODE6 OR                        30940009
325500                   SNF-OTHER-DIAG-CODE7 OR                        30950009
325600                   SNF-OTHER-DIAG-CODE8 OR                        30960009
325700                   SNF-OTHER-DIAG-CODE9  OR                       30970009
325800                   SNF-OTHER-DIAG-CODE10 OR                       30980009
325900                   SNF-OTHER-DIAG-CODE11 OR                       30990009
326000                   SNF-OTHER-DIAG-CODE12 OR                       31000009
326100                   SNF-OTHER-DIAG-CODE13 OR                       31010009
326200                   SNF-OTHER-DIAG-CODE14 OR                       31020009
326300                   SNF-OTHER-DIAG-CODE15 OR                       31030009
326400                   SNF-OTHER-DIAG-CODE16 OR                       31040009
326500                   SNF-OTHER-DIAG-CODE17 OR                       31050009
326600                   SNF-OTHER-DIAG-CODE18 OR                       31060009
326700                   SNF-OTHER-DIAG-CODE19 OR                       31070009
326800                   SNF-OTHER-DIAG-CODE20 OR                       31080009
326900                   SNF-OTHER-DIAG-CODE21 OR                       31090009
327000                   SNF-OTHER-DIAG-CODE22 OR                       31100009
327100                   SNF-OTHER-DIAG-CODE23 OR                       31110009
327200                   SNF-OTHER-DIAG-CODE24 OR                       31120009
327300                   SNF-OTHER-DIAG-CODE25                          31130009
327400         COMPUTE HLD-PAYMENT-RATE ROUNDED =                       31140009
327500                 HLD-PAYMENT-RATE * 2.28                          31150009
327600         GO TO 2011-67-CONTINUE.                                  31160009
327700                                                                  31170009
327800 2011-67-CONTINUE.                                                31180009
327900                                                                  31190009
328000     IF  SNF-FED-BLEND = 0                                        31200009
328100        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        31210009
328200                HLD-FACILITY-RATE * 1.00.                         31220009
328300                                                                  31230009
328400     IF SNF-FED-BLEND = 4                                         31240009
328500        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              31250009
328600        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        31260009
328700                HLD-PAYMENT-RATE * 1.00.                          31270009
328800                                                                  31280009
328900 2011-67-EXIT. EXIT.                                              31290009
329000                                                                  31300009
329100 2012-67-PAYMENT-RATE-CALC.                                       31310009
329200***************************************************************   31320009
329300*     PAYMENT RATE CALCULATION PROCCESS EFFECTIVE OCT.1, 2009     31330009
329400***************************************************************   31340009
329500                                                                  31350009
329600     IF HLD-CBSA = '     '                                        31360009
329700        MOVE '30'              TO HLD-RTC                         31370009
329800        GO TO 2012-67-EXIT.                                       31380009
329900                                                                  31390009
330000     MOVE 1 TO R3.                                                31400009
330100                                                                  31410009
330200     IF HLD-CBSA-RURAL-CHECK                                      31420009
330300        MOVE 1 TO R2                                              31430009
330400     ELSE                                                         31440009
330500        MOVE 2 TO R2.                                             31450009
330600                                                                  31460009
330700     PERFORM 912-SEARCH-4-RUG67-2012                              31470009
330800        THRU 912-SEARCH-EXIT.                                     31480009
330900                                                                  31490009
331000     IF HLD-RTC NOT = 00 GO TO 2012-67-EXIT.                      31500009
331100                                                                  31510009
331200     PERFORM 500-GET-RATES.                                       31520009
331300                                                                  31530009
331400     IF SNF-FED-BLEND = 0 OR 4                                    31540009
331500        NEXT SENTENCE                                             31550009
331600     ELSE                                                         31560009
331700        MOVE '60'              TO HLD-RTC                         31570009
331800        MOVE ALL '0'           TO HOLD-VAR-DATA                   31580009
331900        GO TO 2012-67-EXIT.                                       31590009
332000                                                                  31600009
332100        COMPUTE NURSING-COMPONENT ROUNDED =                       31610009
332200                   (NUR-INDEX * IP-RATE).                         31620009
332300                                                                  31630009
332400        COMPUTE THERAPY-COMPONENT ROUNDED =                       31640009
332500                   (THR-INDEX * REHAB-RATE).                      31650009
332600                                                                  31660009
332700        COMPUTE NCM-THR-COMPONENT ROUNDED =                       31670009
332800                   (FACTOR * NCM-THR-COMPONENT).                  31680009
332900                                                                  31690009
333000        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       31700009
333100                   NURSING-COMPONENT +                            31710009
333200                   THERAPY-COMPONENT +                            31720009
333300                   NCM-THR-COMPONENT +                            31730009
333400                   NCM-COMPONENT.                                 31740009
333500                                                                  31750009
333600        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        31760009
333700             (HLD-PAYMENT-RATE * PERCENT-2012-LABOR) *            31770009
333800               AREA-WAGE-INDEX.                                   31780009
333900                                                                  31790009
334000        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        31800009
334100               (HLD-PAYMENT-RATE * PERCENT-2012-NLABOR) +         31810009
334200                    PAYMENT-RATE-ADJ.                             31820009
334300                                                                  31830009
334400     IF '042   ' = SNF-PRIN-DIAG-CODE   OR                        31840009
334500                   SNF-OTHER-DIAG-CODE2 OR                        31850009
334600                   SNF-OTHER-DIAG-CODE3 OR                        31860009
334700                   SNF-OTHER-DIAG-CODE4 OR                        31870009
334800                   SNF-OTHER-DIAG-CODE5 OR                        31880009
334900                   SNF-OTHER-DIAG-CODE6 OR                        31890009
335000                   SNF-OTHER-DIAG-CODE7 OR                        31900009
335100                   SNF-OTHER-DIAG-CODE8 OR                        31910009
335200                   SNF-OTHER-DIAG-CODE9  OR                       31920009
335300                   SNF-OTHER-DIAG-CODE10 OR                       31930009
335400                   SNF-OTHER-DIAG-CODE11 OR                       31940009
335500                   SNF-OTHER-DIAG-CODE12 OR                       31950009
335600                   SNF-OTHER-DIAG-CODE13 OR                       31960009
335700                   SNF-OTHER-DIAG-CODE14 OR                       31970009
335800                   SNF-OTHER-DIAG-CODE15 OR                       31980009
335900                   SNF-OTHER-DIAG-CODE16 OR                       31990009
336000                   SNF-OTHER-DIAG-CODE17 OR                       32000009
336100                   SNF-OTHER-DIAG-CODE18 OR                       32010009
336200                   SNF-OTHER-DIAG-CODE19 OR                       32020009
336300                   SNF-OTHER-DIAG-CODE20 OR                       32030009
336400                   SNF-OTHER-DIAG-CODE21 OR                       32040009
336500                   SNF-OTHER-DIAG-CODE22 OR                       32050009
336600                   SNF-OTHER-DIAG-CODE23 OR                       32060009
336700                   SNF-OTHER-DIAG-CODE24 OR                       32070009
336800                   SNF-OTHER-DIAG-CODE25                          32080009
336900         COMPUTE HLD-PAYMENT-RATE ROUNDED =                       32090009
337000                 HLD-PAYMENT-RATE * 2.28                          32100009
337100         GO TO 2012-67-CONTINUE.                                  32110009
337200                                                                  32120009
337300 2012-67-CONTINUE.                                                32130009
337400                                                                  32140009
337500     IF  SNF-FED-BLEND = 0                                        32150009
337600        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        32160009
337700                HLD-FACILITY-RATE * 1.00.                         32170009
337800                                                                  32180009
337900     IF SNF-FED-BLEND = 4                                         32190009
338000        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              32200009
338100        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        32210009
338200                HLD-PAYMENT-RATE * 1.00.                          32220009
338300                                                                  32230009
338400 2012-67-EXIT. EXIT.                                              32240009
338500                                                                  32250009
338600                                                                  32260009
338700 2013-67-PAYMENT-RATE-CALC.                                       32270009
338800***************************************************************   32280009
338900*     PAYMENT RATE CALCULATION PROCCESS EFFECTIVE OCT.1, 2012     32290009
339000***************************************************************   32300009
339100                                                                  32310009
339200     IF HLD-CBSA = '     '                                        32320009
339300        MOVE '30'              TO HLD-RTC                         32330009
339400        GO TO 2013-67-EXIT.                                       32340009
339500                                                                  32350009
339600     MOVE 1                    TO R3.                             32360009
339700                                                                  32370009
339800     IF HLD-CBSA-RURAL-CHECK                                      32380009
339900        MOVE 1                 TO R2                              32390009
340000     ELSE                                                         32400009
340100        MOVE 2                 TO R2.                             32410009
340200                                                                  32420009
340300     PERFORM 913-SEARCH-4-RUG67-2013                              32430009
340400        THRU 913-SEARCH-EXIT.                                     32440009
340500                                                                  32450009
340600     IF HLD-RTC NOT = 00                                          32460009
340700        GO TO 2013-67-EXIT.                                       32470009
340800                                                                  32480009
340900     PERFORM 500-GET-RATES.                                       32490009
341000                                                                  32500009
341100     IF SNF-FED-BLEND = 0 OR 4                                    32510009
341200        NEXT SENTENCE                                             32520009
341300     ELSE                                                         32530009
341400        MOVE '60'              TO HLD-RTC                         32540009
341500        MOVE ALL '0'           TO HOLD-VAR-DATA                   32550009
341600        GO TO 2013-67-EXIT.                                       32560009
341700                                                                  32570009
341800        COMPUTE NURSING-COMPONENT ROUNDED =                       32580009
341900                   (NUR-INDEX * IP-RATE).                         32590009
342000                                                                  32600009
342100        COMPUTE THERAPY-COMPONENT ROUNDED =                       32610009
342200                   (THR-INDEX * REHAB-RATE).                      32620009
342300                                                                  32630009
342400        COMPUTE NCM-THR-COMPONENT ROUNDED =                       32640009
342500                   (FACTOR * NCM-THR-COMPONENT).                  32650009
342600                                                                  32660009
342700        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       32670009
342800                   NURSING-COMPONENT +                            32680009
342900                   THERAPY-COMPONENT +                            32690009
343000                   NCM-THR-COMPONENT +                            32700009
343100                   NCM-COMPONENT.                                 32710009
343200                                                                  32720009
343300        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        32730009
343400             (HLD-PAYMENT-RATE * PERCENT-2013-LABOR) *            32740009
343500               AREA-WAGE-INDEX.                                   32750009
343600                                                                  32760009
343700        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        32770009
343800               (HLD-PAYMENT-RATE * PERCENT-2013-NLABOR) +         32780009
343900                    PAYMENT-RATE-ADJ.                             32790009
344000                                                                  32800009
344100     IF '042   ' = SNF-PRIN-DIAG-CODE   OR                        32810009
344200                   SNF-OTHER-DIAG-CODE2 OR                        32820009
344300                   SNF-OTHER-DIAG-CODE3 OR                        32830009
344400                   SNF-OTHER-DIAG-CODE4 OR                        32840009
344500                   SNF-OTHER-DIAG-CODE5 OR                        32850009
344600                   SNF-OTHER-DIAG-CODE6 OR                        32860009
344700                   SNF-OTHER-DIAG-CODE7 OR                        32870009
344800                   SNF-OTHER-DIAG-CODE8 OR                        32880009
344900                   SNF-OTHER-DIAG-CODE9  OR                       32890009
345000                   SNF-OTHER-DIAG-CODE10 OR                       32900009
345100                   SNF-OTHER-DIAG-CODE11 OR                       32910009
345200                   SNF-OTHER-DIAG-CODE12 OR                       32920009
345300                   SNF-OTHER-DIAG-CODE13 OR                       32930009
345400                   SNF-OTHER-DIAG-CODE14 OR                       32940009
345500                   SNF-OTHER-DIAG-CODE15 OR                       32950009
345600                   SNF-OTHER-DIAG-CODE16 OR                       32960009
345700                   SNF-OTHER-DIAG-CODE17 OR                       32970009
345800                   SNF-OTHER-DIAG-CODE18 OR                       32980009
345900                   SNF-OTHER-DIAG-CODE19 OR                       32990009
346000                   SNF-OTHER-DIAG-CODE20 OR                       33000009
346100                   SNF-OTHER-DIAG-CODE21 OR                       33010009
346200                   SNF-OTHER-DIAG-CODE22 OR                       33020009
346300                   SNF-OTHER-DIAG-CODE23 OR                       33030009
346400                   SNF-OTHER-DIAG-CODE24 OR                       33040009
346500                   SNF-OTHER-DIAG-CODE25                          33050009
346600         COMPUTE HLD-PAYMENT-RATE ROUNDED =                       33060009
346700                 HLD-PAYMENT-RATE * 2.28                          33070009
346800         GO TO 2013-67-CONTINUE.                                  33080009
346900                                                                  33090009
347000 2013-67-CONTINUE.                                                33100009
347100                                                                  33110009
347200     IF SNF-FED-BLEND = 0                                         33120009
347300        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        33130009
347400                HLD-FACILITY-RATE * 1.00.                         33140009
347500                                                                  33150009
347600     IF SNF-FED-BLEND = 4                                         33160009
347700        MOVE HLD-PAYMENT-RATE  TO FED-PAYMENT-PORTION             33170009
347800        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        33180009
347900                HLD-PAYMENT-RATE * 1.00.                          33190009
348000                                                                  33200009
348100 2013-67-EXIT.                                                    33210009
348200     EXIT.                                                        33220009
348300                                                                  33230009
348400                                                                  33240009
348500 2014-67-PAYMENT-RATE-CALC.                                       33250009
348600***************************************************************   33260009
348700*     PAYMENT RATE CALCULATION PROCCESS EFFECTIVE OCT.1, 2013     33270009
348800***************************************************************   33280009
348900                                                                  33290009
349000     IF HLD-CBSA = '     '                                        33300009
349100        MOVE '30'              TO HLD-RTC                         33310009
349200        GO TO 2014-67-EXIT.                                       33320009
349300                                                                  33330009
349400     MOVE 1                    TO R3.                             33340009
349500                                                                  33350009
349600     IF HLD-CBSA-RURAL-CHECK                                      33360009
349700        MOVE 1                 TO R2                              33370009
349800     ELSE                                                         33380009
349900        MOVE 2                 TO R2.                             33390009
350000                                                                  33400009
350100     PERFORM 914-SEARCH-4-RUG67-2014                              33410009
350200        THRU 914-SEARCH-EXIT.                                     33420009
350300                                                                  33430009
350400     IF HLD-RTC NOT = 00                                          33440009
350500        GO TO 2014-67-EXIT.                                       33450009
350600                                                                  33460009
350700     PERFORM 500-GET-RATES.                                       33470009
350800                                                                  33480009
350900     IF SNF-FED-BLEND = 0 OR 4                                    33490009
351000        NEXT SENTENCE                                             33500009
351100     ELSE                                                         33510009
351200        MOVE '60'              TO HLD-RTC                         33520009
351300        MOVE ALL '0'           TO HOLD-VAR-DATA                   33530009
351400        GO TO 2014-67-EXIT.                                       33540009
351500                                                                  33550009
351600        COMPUTE NURSING-COMPONENT ROUNDED =                       33560009
351700                   (NUR-INDEX * IP-RATE).                         33570009
351800                                                                  33580009
351900        COMPUTE THERAPY-COMPONENT ROUNDED =                       33590009
352000                   (THR-INDEX * REHAB-RATE).                      33600009
352100                                                                  33610009
352200        COMPUTE NCM-THR-COMPONENT ROUNDED =                       33620009
352300                   (FACTOR * NCM-THR-COMPONENT).                  33630009
352400                                                                  33640009
352500        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       33650009
352600                   NURSING-COMPONENT +                            33660009
352700                   THERAPY-COMPONENT +                            33670009
352800                   NCM-THR-COMPONENT +                            33680009
352900                   NCM-COMPONENT.                                 33690009
353000                                                                  33700009
353100        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        33710009
353200             (HLD-PAYMENT-RATE * PERCENT-2014-LABOR) *            33720009
353300               AREA-WAGE-INDEX.                                   33730009
353400                                                                  33740009
353500        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        33750009
353600               (HLD-PAYMENT-RATE * PERCENT-2014-NLABOR) +         33760009
353700                    PAYMENT-RATE-ADJ.                             33770009
353800                                                                  33780009
353900     IF '042   ' = SNF-PRIN-DIAG-CODE   OR                        33790009
354000                   SNF-OTHER-DIAG-CODE2 OR                        33800009
354100                   SNF-OTHER-DIAG-CODE3 OR                        33810009
354200                   SNF-OTHER-DIAG-CODE4 OR                        33820009
354300                   SNF-OTHER-DIAG-CODE5 OR                        33830009
354400                   SNF-OTHER-DIAG-CODE6 OR                        33840009
354500                   SNF-OTHER-DIAG-CODE7 OR                        33850009
354600                   SNF-OTHER-DIAG-CODE8 OR                        33860009
354700                   SNF-OTHER-DIAG-CODE9  OR                       33870009
354800                   SNF-OTHER-DIAG-CODE10 OR                       33880009
354900                   SNF-OTHER-DIAG-CODE11 OR                       33890009
355000                   SNF-OTHER-DIAG-CODE12 OR                       33900009
355100                   SNF-OTHER-DIAG-CODE13 OR                       33910009
355200                   SNF-OTHER-DIAG-CODE14 OR                       33920009
355300                   SNF-OTHER-DIAG-CODE15 OR                       33930009
355400                   SNF-OTHER-DIAG-CODE16 OR                       33940009
355500                   SNF-OTHER-DIAG-CODE17 OR                       33950009
355600                   SNF-OTHER-DIAG-CODE18 OR                       33960009
355700                   SNF-OTHER-DIAG-CODE19 OR                       33970009
355800                   SNF-OTHER-DIAG-CODE20 OR                       33980009
355900                   SNF-OTHER-DIAG-CODE21 OR                       33990009
356000                   SNF-OTHER-DIAG-CODE22 OR                       34000009
356100                   SNF-OTHER-DIAG-CODE23 OR                       34010009
356200                   SNF-OTHER-DIAG-CODE24 OR                       34020009
356300                   SNF-OTHER-DIAG-CODE25                          34030009
356400         COMPUTE HLD-PAYMENT-RATE ROUNDED =                       34040009
356500                 HLD-PAYMENT-RATE * 2.28                          34050009
356600         GO TO 2014-67-CONTINUE.                                  34060009
356700                                                                  34070009
356800 2014-67-CONTINUE.                                                34080009
356900                                                                  34090009
357000     IF SNF-FED-BLEND = 0                                         34100009
357100        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        34110009
357200                HLD-FACILITY-RATE * 1.00.                         34120009
357300                                                                  34130009
357400     IF SNF-FED-BLEND = 4                                         34140009
357500        MOVE HLD-PAYMENT-RATE  TO FED-PAYMENT-PORTION             34150009
357600        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        34160009
357700                HLD-PAYMENT-RATE * 1.00.                          34170009
357800                                                                  34180009
357900 2014-67-EXIT.                                                    34190009
358000     EXIT.                                                        34200009
358100                                                                  34210009
358200                                                                  34220009
358300 2015-67-PAYMENT-RATE-CALC.                                       34230009
358400***************************************************************   34240009
358500*     PAYMENT RATE CALCULATION PROCCESS EFFECTIVE OCT.1, 2014     34250009
358600***************************************************************   34260009
358700                                                                  34270009
358800     IF HLD-CBSA = '     '                                        34280009
358900        MOVE '30'              TO HLD-RTC                         34290009
359000        GO TO 2015-67-EXIT.                                       34300009
359100                                                                  34310009
359200     MOVE 1                    TO R3.                             34320009
359300                                                                  34330009
359400     IF HLD-CBSA-RURAL-CHECK                                      34340009
359500        MOVE 1                 TO R2                              34350009
359600     ELSE                                                         34360009
359700        MOVE 2                 TO R2.                             34370009
359800                                                                  34380009
359900     PERFORM 915-SEARCH-4-RUG67-2015                              34390009
360000        THRU 915-SEARCH-EXIT.                                     34400009
360100                                                                  34410009
360200     IF HLD-RTC NOT = 00                                          34420009
360300        GO TO 2015-67-EXIT.                                       34430009
360400                                                                  34440009
360500     PERFORM 500-GET-RATES.                                       34450009
360600                                                                  34460009
360700     IF SNF-FED-BLEND = 0 OR 4                                    34470009
360800        NEXT SENTENCE                                             34480009
360900     ELSE                                                         34490009
361000        MOVE '60'              TO HLD-RTC                         34500009
361100        MOVE ALL '0'           TO HOLD-VAR-DATA                   34510009
361200        GO TO 2015-67-EXIT.                                       34520009
361300                                                                  34530009
361400                                                                  34540009
361500                                                                  34550009
361600                                                                  34560009
361700        COMPUTE NURSING-COMPONENT ROUNDED =                       34570009
361800                   (NUR-INDEX * IP-RATE).                         34580009
361900                                                                  34590009
362000                                                                  34600009
362100        COMPUTE THERAPY-COMPONENT ROUNDED =                       34610009
362200                   (THR-INDEX * REHAB-RATE).                      34620009
362300                                                                  34630009
362400        COMPUTE NCM-THR-COMPONENT ROUNDED =                       34640009
362500                   (FACTOR * NCM-THR-COMPONENT).                  34650009
362600                                                                  34660009
362700                                                                  34670009
362800        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       34680009
362900                   NURSING-COMPONENT +                            34690009
363000                   THERAPY-COMPONENT +                            34700009
363100                   NCM-THR-COMPONENT +                            34710009
363200                   NCM-COMPONENT.                                 34720009
363300                                                                  34730009
363400                                                                  34740009
363500        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        34750009
363600             (HLD-PAYMENT-RATE * PERCENT-2015-LABOR) *            34760009
363700               AREA-WAGE-INDEX.                                   34770009
363800                                                                  34780009
363900                                                                  34790009
364000                                                                  34800009
364100        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        34810009
364200               (HLD-PAYMENT-RATE * PERCENT-2015-NLABOR) +         34820009
364300                    PAYMENT-RATE-ADJ.                             34830009
364400                                                                  34840009
364500                                                                  34850009
364600     IF '042   ' = SNF-PRIN-DIAG-CODE   OR                        34860009
364700                   SNF-OTHER-DIAG-CODE2 OR                        34870009
364800                   SNF-OTHER-DIAG-CODE3 OR                        34880009
364900                   SNF-OTHER-DIAG-CODE4 OR                        34890009
365000                   SNF-OTHER-DIAG-CODE5 OR                        34900009
365100                   SNF-OTHER-DIAG-CODE6 OR                        34910009
365200                   SNF-OTHER-DIAG-CODE7 OR                        34920009
365300                   SNF-OTHER-DIAG-CODE8 OR                        34930009
365400                   SNF-OTHER-DIAG-CODE9  OR                       34940009
365500                   SNF-OTHER-DIAG-CODE10 OR                       34950009
365600                   SNF-OTHER-DIAG-CODE11 OR                       34960009
365700                   SNF-OTHER-DIAG-CODE12 OR                       34970009
365800                   SNF-OTHER-DIAG-CODE13 OR                       34980009
365900                   SNF-OTHER-DIAG-CODE14 OR                       34990009
366000                   SNF-OTHER-DIAG-CODE15 OR                       35000009
366100                   SNF-OTHER-DIAG-CODE16 OR                       35010009
366200                   SNF-OTHER-DIAG-CODE17 OR                       35020009
366300                   SNF-OTHER-DIAG-CODE18 OR                       35030009
366400                   SNF-OTHER-DIAG-CODE19 OR                       35040009
366500                   SNF-OTHER-DIAG-CODE20 OR                       35050009
366600                   SNF-OTHER-DIAG-CODE21 OR                       35060009
366700                   SNF-OTHER-DIAG-CODE22 OR                       35070009
366800                   SNF-OTHER-DIAG-CODE23 OR                       35080009
366900                   SNF-OTHER-DIAG-CODE24 OR                       35090009
367000                   SNF-OTHER-DIAG-CODE25                          35100009
367100                                                                  35110009
367200         COMPUTE HLD-PAYMENT-RATE ROUNDED =                       35120009
367300                 HLD-PAYMENT-RATE * 2.28                          35130009
367400         GO TO 2015-67-CONTINUE.                                  35140009
367500                                                                  35150009
367600 2015-67-CONTINUE.                                                35160009
367700                                                                  35170009
367800     IF SNF-FED-BLEND = 0                                         35180009
367900        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        35190009
368000                HLD-FACILITY-RATE * 1.00.                         35200009
368100                                                                  35210009
368200     IF SNF-FED-BLEND = 4                                         35220009
368300        MOVE HLD-PAYMENT-RATE  TO FED-PAYMENT-PORTION             35230009
368400        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        35240009
368500                HLD-PAYMENT-RATE * 1.00.                          35250009
368600                                                                  35260009
368700 2015-67-EXIT.                                                    35270009
368800     EXIT.                                                        35280009
368900                                                                  35290009
369000                                                                  35300009
369100 2016-67-PAYMENT-RATE-CALC.                                       35310009
369200***************************************************************   35320009
369300*     PAYMENT RATE CALCULATION PROCCESS EFFECTIVE OCT.1, 2015     35330009
369400***************************************************************   35340009
369500                                                                  35350009
369600     IF HLD-CBSA = '     '                                        35360009
369700        MOVE '30'              TO HLD-RTC                         35370009
369800        GO TO 2016-67-EXIT.                                       35380009
369900                                                                  35390009
370000     MOVE 1                    TO R3.                             35400009
370100                                                                  35410009
370200     IF HLD-CBSA-RURAL-CHECK                                      35420009
370300        MOVE 1                 TO R2                              35430009
370400     ELSE                                                         35440009
370500        MOVE 2                 TO R2.                             35450009
370600                                                                  35460009
370700     PERFORM 916-SEARCH-4-RUG67-2016                              35470009
370800        THRU 916-SEARCH-EXIT.                                     35471009
370900                                                                  35472009
371000     IF HLD-RTC NOT = 00                                          35473009
371100        GO TO 2016-67-EXIT.                                       35474009
371200                                                                  35475009
371300     PERFORM 500-GET-RATES.                                       35476009
371400                                                                  35477009
371500     IF SNF-FED-BLEND = 0 OR 4                                    35478009
371600        NEXT SENTENCE                                             35479009
371700     ELSE                                                         35480009
371800        MOVE '60'              TO HLD-RTC                         35481009
371900        MOVE ALL '0'           TO HOLD-VAR-DATA                   35482009
372000        GO TO 2016-67-EXIT.                                       35483009
372100                                                                  35484009
372200                                                                  35485009
372300                                                                  35486009
372400                                                                  35487009
372500        COMPUTE NURSING-COMPONENT ROUNDED =                       35488009
372600                   (NUR-INDEX * IP-RATE).                         35489009
372700                                                                  35489109
372800                                                                  35489209
372900        COMPUTE THERAPY-COMPONENT ROUNDED =                       35489309
373000                   (THR-INDEX * REHAB-RATE).                      35489409
373100                                                                  35489509
373200        COMPUTE NCM-THR-COMPONENT ROUNDED =                       35489609
373300                   (FACTOR * NCM-THR-COMPONENT).                  35489709
373400                                                                  35489809
373500                                                                  35489909
373600        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       35490009
373700                   NURSING-COMPONENT +                            35491009
373800                   THERAPY-COMPONENT +                            35492009
373900                   NCM-THR-COMPONENT +                            35493009
374000                   NCM-COMPONENT.                                 35494009
374100                                                                  35495009
374200                                                                  35496009
374300        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        35497009
374400             (HLD-PAYMENT-RATE * PERCENT-2016-LABOR) *            35498009
374500               AREA-WAGE-INDEX.                                   35499009
374600                                                                  35499109
374700                                                                  35499209
374800                                                                  35499309
374900        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        35499409
375000               (HLD-PAYMENT-RATE * PERCENT-2016-NLABOR) +         35499509
375100                    PAYMENT-RATE-ADJ.                             35499609
375200                                                                  35499709
375300                                                                  35499809
375400     IF 'B20   ' = SNF-PRIN-DIAG-CODE   OR                        35499909
375500                   SNF-OTHER-DIAG-CODE2 OR                        35500009
375600                   SNF-OTHER-DIAG-CODE3 OR                        35501009
375700                   SNF-OTHER-DIAG-CODE4 OR                        35502009
375800                   SNF-OTHER-DIAG-CODE5 OR                        35503009
375900                   SNF-OTHER-DIAG-CODE6 OR                        35504009
376000                   SNF-OTHER-DIAG-CODE7 OR                        35505009
376100                   SNF-OTHER-DIAG-CODE8 OR                        35506009
376200                   SNF-OTHER-DIAG-CODE9  OR                       35507009
376300                   SNF-OTHER-DIAG-CODE10 OR                       35508009
376400                   SNF-OTHER-DIAG-CODE11 OR                       35509009
376500                   SNF-OTHER-DIAG-CODE12 OR                       35509109
376600                   SNF-OTHER-DIAG-CODE13 OR                       35509209
376700                   SNF-OTHER-DIAG-CODE14 OR                       35509309
376800                   SNF-OTHER-DIAG-CODE15 OR                       35509409
376900                   SNF-OTHER-DIAG-CODE16 OR                       35509509
377000                   SNF-OTHER-DIAG-CODE17 OR                       35509609
377100                   SNF-OTHER-DIAG-CODE18 OR                       35509709
377200                   SNF-OTHER-DIAG-CODE19 OR                       35509809
377300                   SNF-OTHER-DIAG-CODE20 OR                       35509909
377400                   SNF-OTHER-DIAG-CODE21 OR                       35510009
377500                   SNF-OTHER-DIAG-CODE22 OR                       35511009
377600                   SNF-OTHER-DIAG-CODE23 OR                       35512009
377700                   SNF-OTHER-DIAG-CODE24 OR                       35513009
377800                   SNF-OTHER-DIAG-CODE25                          35514009
377900                                                                  35515009
378000         COMPUTE HLD-PAYMENT-RATE ROUNDED =                       35516009
378100                 HLD-PAYMENT-RATE * 2.28                          35517009
378200         GO TO 2016-67-CONTINUE.                                  35518009
378300                                                                  35519009
378400 2016-67-CONTINUE.                                                35519109
378500                                                                  35519209
378600     IF SNF-FED-BLEND = 0                                         35519309
378700        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        35519409
378800                HLD-FACILITY-RATE * 1.00.                         35519509
378900                                                                  35519609
379000     IF SNF-FED-BLEND = 4                                         35519709
379100        MOVE HLD-PAYMENT-RATE  TO FED-PAYMENT-PORTION             35519809
379200        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        35519909
379300                HLD-PAYMENT-RATE * 1.00.                          35520009
379400                                                                  35521009
379500 2016-67-EXIT.                                                    35522009
379600     EXIT.                                                        35523009
                                                                        35524009
369100 2017-67-PAYMENT-RATE-CALC.                                       35525009
369200***************************************************************   35526009
369300*     PAYMENT RATE CALCULATION PROCCESS EFFECTIVE OCT.1, 2016     35527009
369400***************************************************************   35528009
369500                                                                  35529009
369600     IF HLD-CBSA = '     '                                        35529109
369700        MOVE '30'              TO HLD-RTC                         35529209
369800        GO TO 2017-67-EXIT.                                       35529309
369900                                                                  35529409
370000     MOVE 1                    TO R3.                             35529509
370100                                                                  35529609
370200     IF HLD-CBSA-RURAL-CHECK                                      35529709
370300        MOVE 1                 TO R2                              35529809
370400     ELSE                                                         35529909
370500        MOVE 2                 TO R2.                             35530009
370600                                                                  35530109
370700     PERFORM 917-SEARCH-4-RUG67-2017                              35530209
370800        THRU 917-SEARCH-EXIT.                                     35530309
370900                                                                  35530409
371000     IF HLD-RTC NOT = 00                                          35530509
371100        GO TO 2017-67-EXIT.                                       35530609
371200                                                                  35530709
371300     PERFORM 500-GET-RATES.                                       35530809
371400                                                                  35530909
371500     IF SNF-FED-BLEND = 0 OR 4                                    35531009
371600        NEXT SENTENCE                                             35531109
371700     ELSE                                                         35531209
371800        MOVE '60'              TO HLD-RTC                         35531309
371900        MOVE ALL '0'           TO HOLD-VAR-DATA                   35531409
372000        GO TO 2017-67-EXIT.                                       35531509
372100                                                                  35531609
372200                                                                  35531709
372300                                                                  35531809
372400                                                                  35531909
372500        COMPUTE NURSING-COMPONENT ROUNDED =                       35532009
372600                   (NUR-INDEX * IP-RATE).                         35532109
372700                                                                  35532209
372800                                                                  35532309
372900        COMPUTE THERAPY-COMPONENT ROUNDED =                       35532409
373000                   (THR-INDEX * REHAB-RATE).                      35532509
373100                                                                  35532609
373200        COMPUTE NCM-THR-COMPONENT ROUNDED =                       35532709
373300                   (FACTOR * NCM-THR-COMPONENT).                  35532809
373400                                                                  35532909
373500                                                                  35533009
373600        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       35533109
373700                   NURSING-COMPONENT +                            35533209
373800                   THERAPY-COMPONENT +                            35533309
373900                   NCM-THR-COMPONENT +                            35533409
374000                   NCM-COMPONENT.                                 35533509
374100                                                                  35533609
374200                                                                  35533709
374300        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        35533809
374400             (HLD-PAYMENT-RATE * PERCENT-2017-LABOR) *            35533909
374500               AREA-WAGE-INDEX.                                   35534009
374600                                                                  35534109
374700                                                                  35534209
374800                                                                  35534309
374900        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        35534409
375000               (HLD-PAYMENT-RATE * PERCENT-2017-NLABOR) +         35534509
375100                    PAYMENT-RATE-ADJ.                             35534609
375200                                                                  35534709
375300                                                                  35534809
375400     IF 'B20   ' = SNF-PRIN-DIAG-CODE   OR                        35534909
375500                   SNF-OTHER-DIAG-CODE2 OR                        35535009
375600                   SNF-OTHER-DIAG-CODE3 OR                        35535109
375700                   SNF-OTHER-DIAG-CODE4 OR                        35535209
375800                   SNF-OTHER-DIAG-CODE5 OR                        35535309
375900                   SNF-OTHER-DIAG-CODE6 OR                        35535409
376000                   SNF-OTHER-DIAG-CODE7 OR                        35535509
376100                   SNF-OTHER-DIAG-CODE8 OR                        35535609
376200                   SNF-OTHER-DIAG-CODE9  OR                       35535709
376300                   SNF-OTHER-DIAG-CODE10 OR                       35535809
376400                   SNF-OTHER-DIAG-CODE11 OR                       35535909
376500                   SNF-OTHER-DIAG-CODE12 OR                       35536009
376600                   SNF-OTHER-DIAG-CODE13 OR                       35536109
376700                   SNF-OTHER-DIAG-CODE14 OR                       35536209
376800                   SNF-OTHER-DIAG-CODE15 OR                       35536309
376900                   SNF-OTHER-DIAG-CODE16 OR                       35536409
377000                   SNF-OTHER-DIAG-CODE17 OR                       35536509
377100                   SNF-OTHER-DIAG-CODE18 OR                       35536609
377200                   SNF-OTHER-DIAG-CODE19 OR                       35536709
377300                   SNF-OTHER-DIAG-CODE20 OR                       35536809
377400                   SNF-OTHER-DIAG-CODE21 OR                       35536909
377500                   SNF-OTHER-DIAG-CODE22 OR                       35537009
377600                   SNF-OTHER-DIAG-CODE23 OR                       35537109
377700                   SNF-OTHER-DIAG-CODE24 OR                       35537209
377800                   SNF-OTHER-DIAG-CODE25                          35537309
377900                                                                  35537409
378000         COMPUTE HLD-PAYMENT-RATE ROUNDED =                       35537509
378100                 HLD-PAYMENT-RATE * 2.28                          35537609
378200         GO TO 2017-67-CONTINUE.                                  35537709
378300                                                                  35537809
378400 2017-67-CONTINUE.                                                35537909
378500                                                                  35538009
378600     IF SNF-FED-BLEND = 0                                         35538109
378700        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        35538209
378800                HLD-FACILITY-RATE * 1.00.                         35538309
378900                                                                  35538409
379000     IF SNF-FED-BLEND = 4                                         35538509
379100        MOVE HLD-PAYMENT-RATE  TO FED-PAYMENT-PORTION             35538609
379200        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        35538709
379300                HLD-PAYMENT-RATE * 1.00.                          35538809
379400                                                                  35538909
379500 2017-67-EXIT.                                                    35539009
379600     EXIT.                                                        35539109
379700                                                                  35539209
369100 2018-67-PAYMENT-RATE-CALC.                                       35539309
369200***************************************************************   35539409
369300*     PAYMENT RATE CALCULATION PROCCESS EFFECTIVE OCT.1, 2017     35539509
369400***************************************************************   35539609
369500                                                                  35539709
369600     IF HLD-CBSA = '     '                                        35539809
369700        MOVE '30'              TO HLD-RTC                         35539909
369800        GO TO 2018-67-EXIT.                                       35540009
369900                                                                  35541009
370000     MOVE 1                    TO R3.                             35542009
370100                                                                  35543009
370200     IF HLD-CBSA-RURAL-CHECK                                      35544009
370200        IF HLD-FED-BLEND-QRP-FAIL                                 35545213
370300             MOVE 3                 TO R2                         35545313
370500         ELSE                                                     35545413
370300             MOVE 1                 TO R2                         35545513
370500         END-IF                                                   35545613
370400     ELSE                                                         35546009
371500         IF HLD-FED-BLEND-QRP-FAIL                                35547113
370200             MOVE 4                 TO R2                         35547213
370500         ELSE                                                     35547313
370300             MOVE 2                 TO R2                         35547413
370500         END-IF                                                   35547513
370500     END-IF.                                                      35547613
370900                                                                  35547718
370700     DISPLAY 'SNF-FED-BLEND = ' SNF-FED-BLEND.                    35548218
370600                                                                  35548418
370700     DISPLAY 'R2 = '  R2.                                         35548518
370900                                                                  35548618
370700     PERFORM 918-SEARCH-4-RUG67-2018                              35549018
370800        THRU 918-SEARCH-EXIT.                                     35549109
370900                                                                  35549209
371000     IF HLD-RTC NOT = 00                                          35549309
371100        GO TO 2018-67-EXIT.                                       35549409
371200                                                                  35549509
371300     PERFORM 500-GET-RATES.                                       35549609
371400                                                                  35549709
371500     IF SNF-FED-BLEND =  0 OR 1 OR 4                              35549812
371600        NEXT SENTENCE                                             35549909
371700     ELSE                                                         35550009
371800        MOVE '60'              TO HLD-RTC                         35551009
371900        MOVE ALL '0'           TO HOLD-VAR-DATA                   35552009
372000        GO TO 2018-67-EXIT.                                       35553009
372400                                                                  35554009
372500     COMPUTE NURSING-COMPONENT ROUNDED =                          35555009
372600                   (NUR-INDEX * IP-RATE).                         35556009
372700                                                                  35557009
372800                                                                  35558009
372900     COMPUTE THERAPY-COMPONENT ROUNDED =                          35559009
373000                   (THR-INDEX * REHAB-RATE).                      35559109
373100                                                                  35559209
373200     COMPUTE NCM-THR-COMPONENT ROUNDED =                          35559309
373300                   (FACTOR * NCM-THR-COMPONENT).                  35559409
373400                                                                  35559509
373500                                                                  35559609
373600     COMPUTE HLD-PAYMENT-RATE  ROUNDED =                          35559709
373700                   NURSING-COMPONENT +                            35559809
373800                   THERAPY-COMPONENT +                            35559909
373900                   NCM-THR-COMPONENT +                            35560009
374000                   NCM-COMPONENT.                                 35561009
374100                                                                  35562009
374200                                                                  35563009
374300     COMPUTE PAYMENT-RATE-ADJ ROUNDED =                           35564009
374400             (HLD-PAYMENT-RATE * PERCENT-2018-LABOR) *            35565009
374500               AREA-WAGE-INDEX.                                   35566009
374600                                                                  35567009
374700                                                                  35568009
374800                                                                  35569009
374900     COMPUTE HLD-PAYMENT-RATE ROUNDED =                           35569109
375000               (HLD-PAYMENT-RATE * PERCENT-2018-NLABOR) +         35569209
375100                    PAYMENT-RATE-ADJ.                             35569309
375300                                                                  35569409
375300*------------------------------------------------------           35569509
375300*   APPLY AIDS ADD-ON IF INDICATED BY PRIN DX CODE    *           35569609
375300*------------------------------------------------------           35569709
375300                                                                  35569809
375400     IF 'B20   ' = SNF-PRIN-DIAG-CODE   OR                        35569909
375500                   SNF-OTHER-DIAG-CODE2 OR                        35570009
375600                   SNF-OTHER-DIAG-CODE3 OR                        35571009
375700                   SNF-OTHER-DIAG-CODE4 OR                        35572009
375800                   SNF-OTHER-DIAG-CODE5 OR                        35573009
375900                   SNF-OTHER-DIAG-CODE6 OR                        35574009
376000                   SNF-OTHER-DIAG-CODE7 OR                        35575009
376100                   SNF-OTHER-DIAG-CODE8 OR                        35576009
376200                   SNF-OTHER-DIAG-CODE9  OR                       35577009
376300                   SNF-OTHER-DIAG-CODE10 OR                       35578009
376400                   SNF-OTHER-DIAG-CODE11 OR                       35579009
376500                   SNF-OTHER-DIAG-CODE12 OR                       35579109
376600                   SNF-OTHER-DIAG-CODE13 OR                       35579209
376700                   SNF-OTHER-DIAG-CODE14 OR                       35579309
376800                   SNF-OTHER-DIAG-CODE15 OR                       35579409
376900                   SNF-OTHER-DIAG-CODE16 OR                       35579509
377000                   SNF-OTHER-DIAG-CODE17 OR                       35579609
377100                   SNF-OTHER-DIAG-CODE18 OR                       35579709
377200                   SNF-OTHER-DIAG-CODE19 OR                       35579809
377300                   SNF-OTHER-DIAG-CODE20 OR                       35579909
377400                   SNF-OTHER-DIAG-CODE21 OR                       35580009
377500                   SNF-OTHER-DIAG-CODE22 OR                       35581009
377600                   SNF-OTHER-DIAG-CODE23 OR                       35582009
377700                   SNF-OTHER-DIAG-CODE24 OR                       35583009
377800                   SNF-OTHER-DIAG-CODE25                          35584009
377900                                                                  35585009
378000         COMPUTE HLD-PAYMENT-RATE ROUNDED =                       35586009
378100                 HLD-PAYMENT-RATE * AIDS-ADD-ON-MULTIPLIER.       35587009
378200         GO TO 2018-67-CONTINUE.                                  35588009
378300                                                                  35589009
378400 2018-67-CONTINUE.                                                35589109
378500                                                                  35589209
378600     IF SNF-FED-BLEND = 0                                         35589314
378700        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        35589414
378800                HLD-FACILITY-RATE * 1.00.                         35589514
378900                                                                  35589614
379000     IF SNF-FED-BLEND = 4                                         35589714
379100        MOVE HLD-PAYMENT-RATE  TO FED-PAYMENT-PORTION             35589814
379200        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        35589914
379300                HLD-PAYMENT-RATE * 1.00.                          35590014
378900*                                                                 35590112
379400                                                                  35590209
379500 2018-67-EXIT.                                                    35591009
379600     EXIT.                                                        35592009
379700                                                                  35593009
379800******        L A S T   S O U R C E   S T A T E M E N T   *****   35594009
