000100 IDENTIFICATION DIVISION.                                         00010000
000200 PROGRAM-ID.      SNFPR160.                                       00020001
000300*AUTHOR.                 CMS.                                     00030000
000400*                                                                 00040000
000500*                                                                 00050000
000600*REMARKS. (CENTERS FOR MEDICARE AND MEDICAID SERVICES)            00060000
000700***         - CICS VERSION RELEASED FOR JULY 1 2006               00070000
000800***         - NATIONAL SNF PRICER FOR ALL YEARS                   00080000
000900***         - NATIONAL SNF PRICER EFFECTIVE JULY 1, 1998          00090000
001000***         - SNF PRICER REFERS TO A PROGRAM WHICH WILL           00100000
001100***           CALCULATE THE DAILY MEDICARE RATE UPON WHICH THE    00110000
001200***           MEDICARE SNF PPS PAYMENT IS MADE. PRICER USES THE   00120000
001300***           FACILITY'S PSF RATE, MSA AND BLEND INDICATOR WITH   00130000
001400***           THE 'STATEMENT COVERS THROUGH DATE' ON THE CLAIM AND00140000
001500***           HCPPS RATE CODE TO CALCULATE THE HCPPS RATES.       00150000
001600***************************************************************   00160000
001700******************************************************************00161000
001800*     SNFPR16A   EFFECTIVE OCT 1, 2015                            00162000
001900*                KEEP CBSA FILE FOR FY2016                        00163000
002000*                ICD10 TESTING SNF CALC MODULE  - SNFPR160        00164001
002100******************************************************************00165000
001700******************************************************************00166001
001800*     SNFPR160   EFFECTIVE OCT 1, 2015                            00167001
001900*                KEEP CBSA FILE FOR FY2016                        00168001
002000*                ICD10 TESTING SNF CALC MODULE  - SNFPR160        00169001
002100******************************************************************00169101
002200***************************************************************   00170000
002300 DATE-COMPILED.                                                   00180000
002400 ENVIRONMENT DIVISION.                                            00190000
002500 CONFIGURATION SECTION.                                           00200000
002600 SOURCE-COMPUTER.            IBM-370.                             00210000
002700 OBJECT-COMPUTER.            IBM-370.                             00220000
002800 INPUT-OUTPUT  SECTION.                                           00230000
002900 FILE-CONTROL.                                                    00240000
003000                                                                  00250000
003100 DATA DIVISION.                                                   00260000
003200 FILE SECTION.                                                    00270000
003300                                                                  00280000
003400 WORKING-STORAGE SECTION.                                         00290000
003500 01  W-STORAGE-REF                  PIC X(46)  VALUE              00300000
003600     'SNFPR160    - W O R K I N G   S T O R A G E'.               00310001
003700 01  CAL-VERSION                    PIC X(09)  VALUE 'SNFPR16.0'. 00320001
003800 01  R1                             PIC S9(04) COMP SYNC.         00330000
003900 01  R2                             PIC S9(04) COMP SYNC.         00340000
004000 01  R3                             PIC S9(04) COMP SYNC.         00350000
004100 01  LABOR-NLABOR-PERCENT.                                        00360000
004200     05 PERCENT-1999-LABOR     PIC 9V99999 VALUE 0.75888.         00370000
004300     05 PERCENT-1999-NLABOR    PIC 9V99999 VALUE 0.24112.         00380000
004400     05 PERCENT-2000-LABOR     PIC 9V99999 VALUE 0.77545.         00390000
004500     05 PERCENT-2000-NLABOR    PIC 9V99999 VALUE 0.22455.         00400000
004600     05 PERCENT-2001-LABOR     PIC 9V99999 VALUE 0.77870.         00410000
004700     05 PERCENT-2001-NLABOR    PIC 9V99999 VALUE 0.22130.         00420000
004800     05 PERCENT-2002-LABOR     PIC 9V99999 VALUE 0.75379.         00430000
004900     05 PERCENT-2002-NLABOR    PIC 9V99999 VALUE 0.24621.         00440000
005000     05 PERCENT-2003-LABOR     PIC 9V99999 VALUE 0.76128.         00450000
005100     05 PERCENT-2003-NLABOR    PIC 9V99999 VALUE 0.23872.         00460000
005200     05 PERCENT-2004-LABOR     PIC 9V99999 VALUE 0.76372.         00470000
005300     05 PERCENT-2004-NLABOR    PIC 9V99999 VALUE 0.23628.         00480000
005400     05 PERCENT-2005-LABOR     PIC 9V99999 VALUE 0.76222.         00490000
005500     05 PERCENT-2005-NLABOR    PIC 9V99999 VALUE 0.23778.         00500000
005600     05 PERCENT-2006-LABOR     PIC 9V99999 VALUE 0.75922.         00510000
005700     05 PERCENT-2006-NLABOR    PIC 9V99999 VALUE 0.24078.         00520000
005800     05 PERCENT-2007-LABOR     PIC 9V99999 VALUE 0.75839.         00530000
005900     05 PERCENT-2007-NLABOR    PIC 9V99999 VALUE 0.24161.         00540000
006000     05 PERCENT-2008-LABOR     PIC 9V99999 VALUE 0.70249.         00550000
006100     05 PERCENT-2008-NLABOR    PIC 9V99999 VALUE 0.29751.         00560000
006200**************YEARCHANGE 2009.0 *******************************   00570000
006300     05 PERCENT-2009-LABOR     PIC 9V99999 VALUE 0.69783.         00580000
006400     05 PERCENT-2009-NLABOR    PIC 9V99999 VALUE 0.30217.         00590000
006500**************YEARCHANGE 2009.0 *******************************   00600000
006600**************YEARCHANGE 7010.0 *******************************   00610000
006700     05 PERCENT-2010-LABOR     PIC 9V99999 VALUE 0.69840.         00620000
006800     05 PERCENT-2010-NLABOR    PIC 9V99999 VALUE 0.30160.         00630000
006900**************YEARCHANGE 2010.0 *******************************   00640000
007000**************YEARCHANGE 2011.2 *******************************   00650000
007100     05 PERCENT-2011-LABOR     PIC 9V99999 VALUE 0.69311.         00660000
007200     05 PERCENT-2011-NLABOR    PIC 9V99999 VALUE 0.30689.         00670000
007300**************YEARCHANGE 2011.2 *******************************   00680000
007400**************YEARCHANGE 2012.0 *******************************   00690000
007500     05 PERCENT-2012-LABOR     PIC 9V99999 VALUE 0.68693.         00700000
007600     05 PERCENT-2012-NLABOR    PIC 9V99999 VALUE 0.31307.         00710000
007700**************YEARCHANGE 2012.0 *******************************   00720000
007800**************YEARCHANGE 2013.0 *******************************   00730000
007900     05 PERCENT-2013-LABOR     PIC 9V99999 VALUE 0.68383.         00740000
008000     05 PERCENT-2013-NLABOR    PIC 9V99999 VALUE 0.31617.         00750000
008100**************YEARCHANGE 2013.0 *******************************   00760000
008200**************YEARCHANGE 2014.0 *******************************   00770000
008300     05 PERCENT-2014-LABOR     PIC 9V99999 VALUE 0.69545.         00780000
008400     05 PERCENT-2014-NLABOR    PIC 9V99999 VALUE 0.30455.         00790000
008500**************YEARCHANGE 2014.0 *******************************   00800000
008600**************YEARCHANGE 2015.0 *******************************   00810000
008700     05 PERCENT-2015-LABOR     PIC 9V99999 VALUE 0.69180.         00820000
008800     05 PERCENT-2015-NLABOR    PIC 9V99999 VALUE 0.30820.         00840000
008900**************YEARCHANGE 2015.0 *******************************   00850000
009000**************YEARCHANGE 2016.0 *******************************   00856001
009100     05 PERCENT-2016-LABOR     PIC 9V99999 VALUE 0.69100.         00857001
009200     05 PERCENT-2016-NLABOR    PIC 9V99999 VALUE 0.30900.         00858001
009300**************YEARCHANGE 2016.0 *******************************   00859001
009400                                                                  00860000
009500 01  WK-PAYMENT-RATE           PIC 9(06)V99 VALUE 0.              00870000
009600 01  WK-FACILITY-RATE          PIC 9(06)V99 VALUE 0.              00880000
009700                                                                  00890000
009800 01  HLD-PRICE-FROM-DATE.                                         00900000
009900     10  HLD-PRICE-FROM-CC     PIC XX.                            00910000
010000     10  HLD-PRICE-FROM-YY     PIC XX.                            00920000
010100     10  HLD-PRICE-FROM-MMDD   PIC XXXX.                          00930000
010200                                                                  00940000
010300 01  HLD-PRICE-THRU-DATE.                                         00950000
010400     10  HLD-PRICE-THRU-CC     PIC XX.                            00960000
010500     10  HLD-PRICE-THRU-YY     PIC XX.                            00970000
010600     10  HLD-PRICE-THRU-MMDD   PIC XXXX.                          00980000
010700                                                                  00990000
010800 01  HOLD-SNF-DATA.                                               01000000
010900     10  HLD-MSA.                                                 01010000
011000         15  HLD-MSA-1ST       PIC XX.                            01020000
011100             88  HLD-MSA-RURAL-CHECK VALUE '  '.                  01030000
011200         15  HLD-MSA-2ND       PIC XX.                            01040000
011300     10  HLD-CBSA.                                                01050000
011400         15  HLD-CBSA-1ST      PIC XXX.                           01060000
011500             88  HLD-CBSA-RURAL-CHECK     VALUE '   ' '999'.      01070000
011600         15  HLD-CBSA-2ND      PIC XX.                            01080000
011700     10  HLD-SPEC-WI-IND       PIC X.                             01090000
011800     10  HLD-SPEC-WI           PIC 9(02)V9(04).                   01100000
011900     10  HLD-RUG-CODE.                                            01110000
012000         15  HLD-RUG           PIC XXX.                           01120000
012100         15  HLD2-RUG REDEFINES HLD-RUG.                          01130000
012200             20  HLD-RUG-POS12 PIC XX.                            01140000
012300             20  HLD-RUG-POS3  PIC 9.                             01150000
012400         15  FILLER            PIC XX.                            01160000
012500     10  HLD-FROM-DATE.                                           01170000
012600         15  HLD-FROM-CC       PIC XX.                            01180000
012700         15  HLD-FROM-YY       PIC XX.                            01190000
012800         15  HLD-FROM-MMDD     PIC XXXX.                          01200000
012900     10  HLD-THRU-DATE.                                           01210000
013000         15  HLD-THRU-CC       PIC XX.                            01220000
013100         15  HLD-THRU-YY       PIC XX.                            01230000
013200         15  HLD-THRU-MMDD     PIC XXXX.                          01240000
013300     10  HLD-FED-BLEND         PIC X.                             01250000
013400         88  HLD-ALL-FACILITY      VALUE '0'.                     01260000
013500         88  HLD-FED-BLEND-2575PER VALUE '1'.                     01270000
013600         88  HLD-FED-BLEND-5050PER VALUE '2'.                     01280000
013700         88  HLD-FED-BLEND-7525PER VALUE '3'.                     01290000
013800         88  HLD-FED-BLEND-100PER  VALUE '4'.                     01300000
013900                                                                  01310000
014000     10  HLD-FACILITY-RATE     PIC 99999V99.                      01320000
014100                                                                  01330000
014200     10  HLD-DIAGNOSIS-CODES.                                     01340000
014300         15  HLD-PRIN-DIAG-CODE     PIC X(07).                    01350000
014400         15  HLD-OTHER-DIAG-CODE2   PIC X(07).                    01360000
014500         15  HLD-OTHER-DIAG-CODE3   PIC X(07).                    01370000
014600         15  HLD-OTHER-DIAG-CODE4   PIC X(07).                    01380000
014700         15  HLD-OTHER-DIAG-CODE5   PIC X(07).                    01390000
014800         15  HLD-OTHER-DIAG-CODE6   PIC X(07).                    01400000
014900         15  HLD-OTHER-DIAG-CODE7   PIC X(07).                    01410000
015000         15  HLD-OTHER-DIAG-CODE8   PIC X(07).                    01420000
015100         15  HLD-OTHER-DIAG-CODE9   PIC X(07).                    01430000
015200         15  HLD-OTHER-DIAG-CODE10  PIC X(07).                    01440000
015300         15  HLD-OTHER-DIAG-CODE11  PIC X(07).                    01450000
015400         15  HLD-OTHER-DIAG-CODE12  PIC X(07).                    01460000
015500         15  HLD-OTHER-DIAG-CODE13  PIC X(07).                    01470000
015600         15  HLD-OTHER-DIAG-CODE14  PIC X(07).                    01480000
015700         15  HLD-OTHER-DIAG-CODE15  PIC X(07).                    01490000
015800         15  HLD-OTHER-DIAG-CODE16  PIC X(07).                    01500000
015900         15  HLD-OTHER-DIAG-CODE17  PIC X(07).                    01510000
016000         15  HLD-OTHER-DIAG-CODE18  PIC X(07).                    01520000
016100         15  HLD-OTHER-DIAG-CODE19  PIC X(07).                    01530000
016200         15  HLD-OTHER-DIAG-CODE20  PIC X(07).                    01540000
016300         15  HLD-OTHER-DIAG-CODE21  PIC X(07).                    01550000
016400         15  HLD-OTHER-DIAG-CODE22  PIC X(07).                    01560000
016500         15  HLD-OTHER-DIAG-CODE23  PIC X(07).                    01570000
016600         15  HLD-OTHER-DIAG-CODE24  PIC X(07).                    01580000
016700         15  HLD-OTHER-DIAG-CODE25                                01590000
016800                               PIC X(07).                         01600000
016900     10  HLD-RATE-RTC.                                            01610000
017000         15  HLD-PAYMENT-RATE  PIC 9(06)V99.                      01620000
017100         15  HLD-RTC           PIC XX.                            01630000
017200     10  HLD-FILLER                PIC X(24).                     01640000
017300                                                                  01650000
017400***************************************************************   01660000
017500*    LAYUP TABLE AREA FOR REGIONS                             *   01670000
017600*  FORMAT FOR RATE TABLE 1998 AND 1999 FOR JULY 1 1998        *   01680000
017700*  FORMAT FOR RATE TABLE 2000 FOR OCT 1, 1999                 *   01690000
017800*  FORMAT FOR RATE TABLE 2001 FOR OCT 1, 2000                 *   01700000
017900*  FORMAT FOR RATE TABLE 2001 FOR APR 1, 2001                 *   01710000
018000*  FORMAT FOR RATE TABLE 2002 FOR OCT 1, 2001                 *   01720000
018100*  FORMAT FOR RATE TABLE 2003 FOR OCT 1, 2002                 *   01730000
018200*  FORMAT FOR RATE TABLE 2004 FOR OCT 1, 2003                 *   01740000
018300*  FORMAT FOR RATE TABLE 2005 FOR OCT 1, 2004                 *   01750000
018400*  FORMAT FOR RATE TABLE 2006 FOR OCT 1, 2005                 *   01760000
018500*  FORMAT FOR RATE TABLE 2007 FOR OCT 1, 2006                 *   01770000
018600*  FORMAT FOR RATE TABLE 2008 FOR OCT 1, 2007                 *   01780000
018700*  FORMAT FOR RATE TABLE 2009 FOR OCT 1, 2008                 *   01790000
018800*  FORMAT FOR RATE TABLE 2010 FOR OCT 1, 2009                 *   01800000
018900*  FORMAT FOR RATE TABLE 2011 FOR OCT 1, 2010                 *   01810000
019000*  FORMAT FOR RATE TABLE 2012 FOR OCT 1, 2011                 *   01820000
019100*  FORMAT FOR RATE TABLE 2013 FOR OCT 1, 2012                 *   01830000
019200*  FORMAT FOR RATE TABLE 2014 FOR OCT 1, 2013                 *   01840000
019200*  FORMAT FOR RATE TABLE 2015 FOR OCT 1, 2014                 *   01841001
019200*  FORMAT FOR RATE TABLE 2016 FOR OCT 1, 2015                 *   01842001
019300*  REGION = ( 1 = RURAL  2 = URBAN ) RATES                    *   01850000
019400***************************************************************   01860000
019500 01  REGION-TABLE.                                                01870000
019600     02  REGION-DATA.                                             01880000
019700*  TABLE RATE FOR FY1998 AND 1999                                 01890000
019800*  19980701/               REGION/ INP / GEN SER / THER / REHAB   01900000
019900     05  FILLER    PIC X(08) VALUE '19980701'.                    01910000
020000     05  FILLER    PIC X(25) VALUE '1 10488 05695 01166 09551'.   01920000
020100     05  FILLER    PIC X(25) VALUE '2 10948 05588 01091 08267'.   01930000
020200*  TABLE RATE FOR FY2000                                          01940000
020300*  19991001/               REGION/ INP / GEN SER / THER / REHAB   01950000
020400     05  FILLER    PIC X(08) VALUE '19991001'.                    01960000
020500     05  FILLER    PIC X(25) VALUE '1 10712 05825 01188 09733'.   01970000
020600     05  FILLER    PIC X(25) VALUE '2 11189 05720 01112 08425'.   01980000
020700*  TABLE RATE FOR FY2001                                          01990000
020800*  20001001/               REGION/ INP / GEN SER / THER / REHAB   02000000
020900     05  FILLER    PIC X(08) VALUE '20001001'.                    02010000
021000     05  FILLER    PIC X(25) VALUE '1 10929 05945 01213 09934'.   02020000
021100     05  FILLER    PIC X(25) VALUE '2 11438 05838 01135 08616'.   02030000
021200*  TABLE RATE FOR FY2001 EFFECTIVE APR 1, 2001                    02040000
021300*  20010401/               REGION/ INP / GEN SER / THER / REHAB   02050000
021400     05  FILLER    PIC X(08) VALUE '20010401'.                    02060000
021500     05  FILLER    PIC X(25) VALUE '1 12999 06062 01236 10129'.   02070000
021600     05  FILLER    PIC X(25) VALUE '2 13605 05953 01157 08784'.   02080000
021700*  TABLE RATE FOR FY2002 EFFECTIVE OCT 1, 2001                    02090000
021800*  20011001/               REGION/ INP / GEN SER / THER / REHAB   02100000
021900     05  FILLER    PIC X(08) VALUE '20011001'.                    02110000
022000     05  FILLER    PIC X(25) VALUE '1 13213 06162 01256 10296'.   02120000
022100     05  FILLER    PIC X(25) VALUE '2 13829 06050 01176 08929'.   02130000
022200*  TABLE RATE FOR FY2003 EFFECTIVE OCT 1, 2002                    02140000
022300*  20021001/               REGION/ INP / GEN SER / THER / REHAB   02150000
022400     05  FILLER    PIC X(08) VALUE '20021001'.                    02160000
022500     05  FILLER    PIC X(25) VALUE '1 11617 06320 01288 10561'.   02170000
022600     05  FILLER    PIC X(25) VALUE '2 12159 06205 01206 09158'.   02180000
024300**************YEARCHANGE 2004.0 *******************************   02181001
022700*  TABLE RATE FOR FY2004 EFFECTIVE OCT 1, 2003                    02190000
022800*  20031001/               REGION/ INP / GEN SER / THER / REHAB   02200000
022900     05  FILLER    PIC X(08) VALUE '20031001'.                    02210000
023000     05  FILLER    PIC X(25) VALUE '1 12374 06733 01372 11250'.   02220000
023100     05  FILLER    PIC X(25) VALUE '2 12952 06610 01285 09756'.   02230000
024300**************YEARCHANGE 2005.0 *******************************   02231001
023200*  TABLE RATE FOR FY2005 EFFECTIVE OCT 1, 2004                    02240000
023300*  20041001/               REGION/ INP / GEN SER / THER / REHAB   02250000
023400     05  FILLER    PIC X(08) VALUE '20041001'.                    02260000
023500     05  FILLER    PIC X(25) VALUE '1 12734 06929 01412 11578'.   02270000
023600     05  FILLER    PIC X(25) VALUE '2 13329 06803 01322 10040'.   02280000
023700**************YEARCHANGE 2006.0 *******************************   02290000
023800*  TABLE RATE FOR FY2006 EFFECTIVE OCT 1, 2005                    02300000
023900*  20051001/               REGION/ INP / GEN SER / THER / REHAB   02310000
024000     05  FILLER    PIC X(08) VALUE '20051001'.                    02320000
024100     05  FILLER    PIC X(25) VALUE '1 13145 07152 01458 11951'.   02330000
024200     05  FILLER    PIC X(25) VALUE '2 13759 07022 01365 10364'.   02340000
024300**************YEARCHANGE 2007.0 *******************************   02350000
024400*  TABLE RATE FOR FY2007 EFFECTIVE OCT 1, 2006                    02360000
024500*  20061001/               REGION/ INP / GEN SER / THER / REHAB   02370000
024600     05  FILLER    PIC X(08) VALUE '20061001'.                    02380000
024700     05  FILLER    PIC X(25) VALUE '1 13570 07383 01505 12337'.   02390000
024800     05  FILLER    PIC X(25) VALUE '2 14204 07249 01409 10699'.   02400000
024900**************YEARCHANGE 2008.0 *******************************   02410000
025000*  TABLE RATE FOR FY2008 EFFECTIVE OCT 2, 2007                    02420000
025100*  20071001/               REGION/ INP / GEN SER / THER / REHAB   02430000
025200     05  FILLER    PIC X(08) VALUE '20071001'.                    02440000
025300     05  FILLER    PIC X(25) VALUE '1 14008 07621 01554 12735'.   02450000
025400     05  FILLER    PIC X(25) VALUE '2 14662 07483 01454 11044'.   02460000
025500**************YEARCHANGE 2009.0 *******************************   02470000
025600*  TABLE RATE FOR FY2009 EFFECTIVE OCT 1, 2008                    02480000
025700*  20081001/               REGION/ INP / GEN SER / THER / REHAB   02490000
025800     05  FILLER    PIC X(08) VALUE '20081001'.                    02500000
025900     05  FILLER    PIC X(25) VALUE '1 14497 07887 01608 13180'.   02510000
026000     05  FILLER    PIC X(25) VALUE '2 15174 07744 01505 11430'.   02520000
026100**************YEARCHANGE 2009.0 *******************************   02530000
026200**************YEARCHANGE 2010.0 *******************************   02540000
026300*  TABLE RATE FOR FY2009 EFFECTIVE OCT 2, 2009                    02550000
026400*  20091001/               REGION/ INP / GEN SER / THER / REHAB   02560000
026500     05  FILLER    PIC X(08) VALUE '20091001'.                    02570000
026600     05  FILLER    PIC X(25) VALUE '1 14831 08069 01645 13483'.   02580000
026700     05  FILLER    PIC X(25) VALUE '2 15523 07922 01540 11693'.   02590000
026800**************YEARCHANGE 2010.0 *******************************   02600000
026900**************YEARCHANGE 2011.0 *******************************   02610000
027000*  TABLE RATE FOR FY2009 EFFECTIVE OCT 2, 2009                    02620000
027100*  20091001/               REGION/ INP / GEN SER / THER / REHAB   02630000
027200     05  FILLER    PIC X(08) VALUE '20101001'.                    02640000
027300     05  FILLER    PIC X(25) VALUE '1 15079 08204 01672 13708'.   02650000
027400     05  FILLER    PIC X(25) VALUE '2 15782 08054 01566 11888'.   02660000
027500**************YEARCHANGE 2011.0 *******************************   02670000
027600**************YEARCHANGE 2012.0 *******************************   02680000
027700*  TABLE RATE FOR FY2012 EFFECTIVE OCT 1, 2011                    02690000
027800*  20111001/               REGION/ INP / GEN SER / THER / REHAB   02700000
027900     05  FILLER    PIC X(08) VALUE '20111001'.                    02710000
028000     05  FILLER    PIC X(25) VALUE '1 15346 08349 01702 13951'.   02720000
028100     05  FILLER    PIC X(25) VALUE '2 16062 08197 01594 12099'.   02730000
028200**************YEARCHANGE 2012.0 *******************************   02740000
028300**************YEARCHANGE 2013.0 *******************************   02750000
028400*  TABLE RATE FOR FY2013 EFFECTIVE OCT 1, 2012                    02760000
028500*  20121001/               REGION/ INP / GEN SER / THER / REHAB   02770000
028600     05  FILLER    PIC X(08) VALUE '20121001'.                    02780000
028700     05  FILLER    PIC X(25) VALUE '1 15628 08503 01733 14208'.   02790000
028800     05  FILLER    PIC X(25) VALUE '2 16358 08348 01623 12322'.   02800000
028900**************YEARCHANGE 2013.0 *******************************   02810000
029000**************YEARCHANGE 2014.0 *******************************   02820000
029100*  TABLE RATE FOR FY2014 EFFECTIVE OCT 1, 2013                    02830000
029200*  20131001/               REGION/ INP / GEN SER / THER / REHAB   02840000
029300     05  FILLER    PIC X(08) VALUE '20131001'.                    02850000
029400     05  FILLER    PIC X(25) VALUE '1 15841 08619 01757 14401'.   02860000
029500     05  FILLER    PIC X(25) VALUE '2 16581 08462 01645 12490'.   02870000
029600**************YEARCHANGE 2014.0 *******************************   02880000
029700**************YEARCHANGE 2015.0 *******************************   02890000
029800*  TABLE RATE FOR FY2015 EFFECTIVE OCT 1, 2014                    02900000
029900*  20141001/               REGION/ INP / GEN SER / THER / REHAB   02910000
030000     05  FILLER    PIC X(08) VALUE '20141001'.                    02920000
030100     05  FILLER    PIC X(25) VALUE '1 16172 08799 01794 14702'.   02930000
030200     05  FILLER    PIC X(25) VALUE '2 16928 08639 01679 12751'.   02940000
030300**************YEARCHANGE 2015.0 *******************************   02950000
030400**************YEARCHANGE 2016.0 *******************************   02951001
030500*  TABLE RATE FOR FY2016 EFFECTIVE OCT 1, 2015                    02952000
030600*  20151001/               REGION/ INP / GEN SER / THER / REHAB   02953000
030700     05  FILLER    PIC X(08) VALUE '20151001'.                    02954000
030800     05  FILLER    PIC X(25) VALUE '1 16353 08897 01814 14867'.   02955001
030900     05  FILLER    PIC X(25) VALUE '2 17117 08736 01698 12894'.   02956001
031000**************YEARCHANGE 2016.0 *******************************   02957001
031100     02  REGION-DATA2 REDEFINES REGION-DATA.                      02960000
031200         04  REG-PERIOD        OCCURS 19.                         02970000
031300**************YEARCHANGE 2016.0 *******************************   02980001
031400             06  REG-EFF-DATE  PIC X(08).                         02990000
031500             06  REGS          OCCURS 2.                          03000000
031600                 08  REG-DATA  OCCURS 1.                          03010000
031700                     10  REGION        PIC X.                     03020000
031800                     10  FILLER        PIC X.                     03030000
031900                     10  R-IP-RATE     PIC 999V99.                03040000
032000                     10  FILLER        PIC X.                     03050000
032100                     10  R-GS-RATE     PIC 999V99.                03060000
032200                     10  FILLER        PIC X.                     03070000
032300                     10  R-TH-RATE     PIC 999V99.                03080000
032400                     10  FILLER        PIC X.                     03090000
032500                     10  R-REHAB-RATE  PIC 999V99.                03100000
032600                                                                  03110000
032700                                                                  03120000
032800                                                                  03130000
032900***************************************************************   03140000
033000*  LAYUP TABLE AREA FOR RUG  44 CODES                         *   03150000
033100*  EFFECTIVE JULY 1, 1998  TIL JANUARY 1, 2006                *   03160000
033200*  FORMAT FOR RUG TABLE 44                                    *   03170000
033300*    N = NURSING   T = THERAPY  F = THERAPY COMPONENT FACTOR  *   03180000
033400***************************************************************   03190000
033500 01  RUG-TABLE.                                                   03200000
033600     02  RUG-DATA1.                                               03210000
033700*                               RUG  REV                          03220000
033800*                               CODE CODE N - T - F               03230000
033900         03  FILLER  PIC X(19)                                    03240000
034000                         VALUE 'AAA  9000 046 000 1'.             03250000
034100         03  FILLER  PIC X(19)                                    03260000
034200                         VALUE 'PA1  9001 046 000 1'.             03270000
034300         03  FILLER  PIC X(19)                                    03280000
034400                         VALUE 'PA2  9002 049 000 1'.             03290000
034500         03  FILLER  PIC X(19)                                    03300000
034600                         VALUE 'PB1  9003 050 000 1'.             03310000
034700         03  FILLER  PIC X(19)                                    03320000
034800                         VALUE 'PB2  9004 051 000 1'.             03330000
034900         03  FILLER  PIC X(19)                                    03340000
035000                         VALUE 'PC1  9005 064 000 1'.             03350000
035100         03  FILLER  PIC X(19)                                    03360000
035200                         VALUE 'PC2  9006 065 000 1'.             03370000
035300         03  FILLER  PIC X(19)                                    03380000
035400                         VALUE 'PD1  9007 070 000 1'.             03390000
035500         03  FILLER  PIC X(19)                                    03400000
035600                         VALUE 'PD2  9008 072 000 1'.             03410000
035700         03  FILLER  PIC X(19)                                    03420000
035800                         VALUE 'PE1  9009 077 000 1'.             03430000
035900         03  FILLER  PIC X(19)                                    03440000
036000                         VALUE 'PE2  9010 079 000 1'.             03450000
036100         03  FILLER  PIC X(19)                                    03460000
036200                         VALUE 'BA1  9011 048 000 1'.             03470000
036300         03  FILLER  PIC X(19)                                    03480000
036400                         VALUE 'BA2  9012 056 000 1'.             03490000
036500         03  FILLER  PIC X(19)                                    03500000
036600                         VALUE 'BB1  9013 065 000 1'.             03510000
036700         03  FILLER  PIC X(19)                                    03520000
036800                         VALUE 'BB2  9014 068 000 1'.             03530000
036900         03  FILLER  PIC X(19)                                    03540000
037000                         VALUE 'IA1  9015 053 000 1'.             03550000
037100         03  FILLER  PIC X(19)                                    03560000
037200                         VALUE 'IA2  9016 057 000 1'.             03570000
037300         03  FILLER  PIC X(19)                                    03580000
037400                         VALUE 'IB1  9017 067 000 1'.             03590000
037500         03  FILLER  PIC X(19)                                    03600000
037600                         VALUE 'IB2  9018 069 000 1'.             03610000
037700         03  FILLER  PIC X(19)                                    03620000
037800                         VALUE 'CA1  9019 075 000 1'.             03630000
037900         03  FILLER  PIC X(19)                                    03640000
038000                         VALUE 'CA2  9020 083 000 1'.             03650000
038100         03  FILLER  PIC X(19)                                    03660000
038200                         VALUE 'CB1  9021 084 000 1'.             03670000
038300         03  FILLER  PIC X(19)                                    03680000
038400                         VALUE 'CB2  9022 091 000 1'.             03690000
038500         03  FILLER  PIC X(19)                                    03700000
038600                         VALUE 'CC1  9023 099 000 1'.             03710000
038700         03  FILLER  PIC X(19)                                    03720000
038800                         VALUE 'CC2  9024 112 000 1'.             03730000
038900         03  FILLER  PIC X(19)                                    03740000
039000                         VALUE 'SSA  9025 101 000 1'.             03750000
039100         03  FILLER  PIC X(19)                                    03760000
039200                         VALUE 'SSB  9026 105 000 1'.             03770000
039300         03  FILLER  PIC X(19)                                    03780000
039400                         VALUE 'SSC  9027 113 000 1'.             03790000
039500         03  FILLER  PIC X(19)                                    03800000
039600                         VALUE 'SE1  9028 117 000 1'.             03810000
039700         03  FILLER  PIC X(19)                                    03820000
039800                         VALUE 'SE2  9029 139 000 1'.             03830000
039900         03  FILLER  PIC X(19)                                    03840000
040000                         VALUE 'SE3  9030 170 000 1'.             03850000
040100         03  FILLER  PIC X(19)                                    03860000
040200                         VALUE 'RLA  9031 080 043 0'.             03870000
040300         03  FILLER  PIC X(19)                                    03880000
040400                         VALUE 'RLB  9032 111 043 0'.             03890000
040500         03  FILLER  PIC X(19)                                    03900000
040600                         VALUE 'RMA  9033 096 077 0'.             03910000
040700         03  FILLER  PIC X(19)                                    03920000
040800                         VALUE 'RMB  9034 109 077 0'.             03930000
040900         03  FILLER  PIC X(19)                                    03940000
041000                         VALUE 'RMC  9035 135 077 0'.             03950000
041100         03  FILLER  PIC X(19)                                    03960000
041200                         VALUE 'RHA  9036 087 094 0'.             03970000
041300         03  FILLER  PIC X(19)                                    03980000
041400                         VALUE 'RHB  9037 106 094 0'.             03990000
041500         03  FILLER  PIC X(19)                                    04000000
041600                         VALUE 'RHC  9038 126 094 0'.             04010000
041700         03  FILLER  PIC X(19)                                    04020000
041800                         VALUE 'RVA  9039 081 141 0'.             04030000
041900         03  FILLER  PIC X(19)                                    04040000
042000                         VALUE 'RVB  9040 104 141 0'.             04050000
042100         03  FILLER  PIC X(19)                                    04060000
042200                         VALUE 'RVC  9041 113 141 0'.             04070000
042300         03  FILLER  PIC X(19)                                    04080000
042400                         VALUE 'RUA  9042 078 225 0'.             04090000
042500         03  FILLER  PIC X(19)                                    04100000
042600                         VALUE 'RUB  9043 095 225 0'.             04110000
042700         03  FILLER  PIC X(19)                                    04120000
042800                         VALUE 'RUC  9044 130 225 0'.             04130000
042900     02  RUG-DATA2 REDEFINES RUG-DATA1 OCCURS 45                  04140000
043000             ASCENDING KEY IS RUG-CODE                            04150000
043100             INDEXED BY RUG01.                                    04160000
043200         03  RUG-CODE          PIC X(03).                         04170000
043300         03  RUG-REGS             OCCURS 1.                       04180000
043400             04  FILLER        PIC XX.                            04190000
043500             04  REV-CODE      PIC XXXX.                          04200000
043600             04  FILLER        PIC X.                             04210000
043700             04  RUG-NURSING   PIC 9V99.                          04220000
043800             04  FILLER        PIC X.                             04230000
043900             04  RUG-THERAPY   PIC 9V99.                          04240000
044000             04  FILLER        PIC X.                             04250000
044100             04  RUG-FACTOR    PIC 9.                             04260000
044200                                                                  04270000
044300                                                                  04280000
044400***************************************************************   04290000
044500*  LAYUP TABLE AREA FOR RUG 53 CODES                          *   04300000
044600*  EFFECTIVE JAN  1, 2006                                     *   04310000
044700*  FORMAT FOR RUG TABLE 53                                    *   04320000
044800*    N = NURSING   T = THERAPY  F = THERAPY COMPONENT FACTOR  *   04330000
044900***************************************************************   04340000
045000 01  RUG53-TABLE.                                                 04350000
045100     02  RUG53-DATA1.                                             04360000
045200*                               RUG  REV                          04370000
045300*                               CODE CODE N - T - F               04380000
045400         03  FILLER  PIC X(19)                                    04390000
045500                         VALUE 'AAA  9000 050 000 1'.             04400000
045600         03  FILLER  PIC X(19)                                    04410000
045700                         VALUE 'PA1  9001 050 000 1'.             04420000
045800         03  FILLER  PIC X(19)                                    04430000
045900                         VALUE 'PA2  9002 053 000 1'.             04440000
046000         03  FILLER  PIC X(19)                                    04450000
046100                         VALUE 'PB1  9003 054 000 1'.             04460000
046200         03  FILLER  PIC X(19)                                    04470000
046300                         VALUE 'PB2  9004 055 000 1'.             04480000
046400         03  FILLER  PIC X(19)                                    04490000
046500                         VALUE 'PC1  9005 069 000 1'.             04500000
046600         03  FILLER  PIC X(19)                                    04510000
046700                         VALUE 'PC2  9006 071 000 1'.             04520000
046800         03  FILLER  PIC X(19)                                    04530000
046900                         VALUE 'PD1  9007 076 000 1'.             04540000
047000         03  FILLER  PIC X(19)                                    04550000
047100                         VALUE 'PD2  9008 078 000 1'.             04560000
047200         03  FILLER  PIC X(19)                                    04570000
047300                         VALUE 'PE1  9009 082 000 1'.             04580000
047400         03  FILLER  PIC X(19)                                    04590000
047500                         VALUE 'PE2  9010 085 000 1'.             04600000
047600         03  FILLER  PIC X(19)                                    04610000
047700                         VALUE 'BA1  9011 052 000 1'.             04620000
047800         03  FILLER  PIC X(19)                                    04630000
047900                         VALUE 'BA2  9012 060 000 1'.             04640000
048000         03  FILLER  PIC X(19)                                    04650000
048100                         VALUE 'BB1  9013 069 000 1'.             04660000
048200         03  FILLER  PIC X(19)                                    04670000
048300                         VALUE 'BB2  9014 073 000 1'.             04680000
048400         03  FILLER  PIC X(19)                                    04690000
048500                         VALUE 'IA1  9015 056 000 1'.             04700000
048600         03  FILLER  PIC X(19)                                    04710000
048700                         VALUE 'IA2  9016 061 000 1'.             04720000
048800         03  FILLER  PIC X(19)                                    04730000
048900                         VALUE 'IB1  9017 072 000 1'.             04740000
049000         03  FILLER  PIC X(19)                                    04750000
049100                         VALUE 'IB2  9018 074 000 1'.             04760000
049200         03  FILLER  PIC X(19)                                    04770000
049300                         VALUE 'CA1  9019 080 000 1'.             04780000
049400         03  FILLER  PIC X(19)                                    04790000
049500                         VALUE 'CA2  9020 090 000 1'.             04800000
049600         03  FILLER  PIC X(19)                                    04810000
049700                         VALUE 'CB1  9021 091 000 1'.             04820000
049800         03  FILLER  PIC X(19)                                    04830000
049900                         VALUE 'CB2  9022 098 000 1'.             04840000
050000         03  FILLER  PIC X(19)                                    04850000
050100                         VALUE 'CC1  9023 106 000 1'.             04860000
050200         03  FILLER  PIC X(19)                                    04870000
050300                         VALUE 'CC2  9024 122 000 1'.             04880000
050400         03  FILLER  PIC X(19)                                    04890000
050500                         VALUE 'SSA  9025 110 000 1'.             04900000
050600         03  FILLER  PIC X(19)                                    04910000
050700                         VALUE 'SSB  9026 113 000 1'.             04920000
050800         03  FILLER  PIC X(19)                                    04930000
050900                         VALUE 'SSC  9027 123 000 1'.             04940000
051000         03  FILLER  PIC X(19)                                    04950000
051100                         VALUE 'SE1  9028 126 000 1'.             04960000
051200         03  FILLER  PIC X(19)                                    04970000
051300                         VALUE 'SE2  9029 149 000 1'.             04980000
051400         03  FILLER  PIC X(19)                                    04990000
051500                         VALUE 'SE3  9030 186 000 1'.             05000000
051600         03  FILLER  PIC X(19)                                    05010000
051700                         VALUE 'RLA  9031 085 043 0'.             05020000
051800         03  FILLER  PIC X(19)                                    05030000
051900                         VALUE 'RLB  9032 114 043 0'.             05040000
052000         03  FILLER  PIC X(19)                                    05050000
052100                         VALUE 'RMA  9033 104 077 0'.             05060000
052200         03  FILLER  PIC X(19)                                    05070000
052300                         VALUE 'RMB  9034 109 077 0'.             05080000
052400         03  FILLER  PIC X(19)                                    05090000
052500                         VALUE 'RMC  9035 115 077 0'.             05100000
052600         03  FILLER  PIC X(19)                                    05110000
052700                         VALUE 'RHA  9036 094 094 0'.             05120000
052800         03  FILLER  PIC X(19)                                    05130000
052900                         VALUE 'RHB  9037 111 094 0'.             05140000
053000         03  FILLER  PIC X(19)                                    05150000
053100                         VALUE 'RHC  9038 122 094 0'.             05160000
053200         03  FILLER  PIC X(19)                                    05170000
053300                         VALUE 'RVA  9039 082 141 0'.             05180000
053400         03  FILLER  PIC X(19)                                    05190000
053500                         VALUE 'RVB  9040 109 141 0'.             05200000
053600         03  FILLER  PIC X(19)                                    05210000
053700                         VALUE 'RVC  9041 123 141 0'.             05220000
053800         03  FILLER  PIC X(19)                                    05230000
053900                         VALUE 'RUA  9042 084 225 0'.             05240000
054000         03  FILLER  PIC X(19)                                    05250000
054100                         VALUE 'RUB  9043 099 225 0'.             05260000
054200         03  FILLER  PIC X(19)                                    05270000
054300                         VALUE 'RUC  9044 128 225 0'.             05280000
054400         03  FILLER  PIC X(19)                                    05290000
054500                         VALUE 'RLX  9045 131 043 0'.             05300000
054600         03  FILLER  PIC X(19)                                    05310000
054700                         VALUE 'RML  9046 168 077 0'.             05320000
054800         03  FILLER  PIC X(19)                                    05330000
054900                         VALUE 'RMX  9047 193 077 0'.             05340000
055000         03  FILLER  PIC X(19)                                    05350000
055100                         VALUE 'RHL  9048 137 094 0'.             05360000
055200         03  FILLER  PIC X(19)                                    05370000
055300                         VALUE 'RHX  9049 142 094 0'.             05380000
055400         03  FILLER  PIC X(19)                                    05390000
055500                         VALUE 'RVL  9050 133 141 0'.             05400000
055600         03  FILLER  PIC X(19)                                    05410000
055700                         VALUE 'RVX  9051 154 141 0'.             05420000
055800         03  FILLER  PIC X(19)                                    05430000
055900                         VALUE 'RUL  9052 140 225 0'.             05440000
056000         03  FILLER  PIC X(19)                                    05450000
056100                         VALUE 'RUX  9053 190 225 0'.             05460000
056200     02  RUG53-DATA2 REDEFINES RUG53-DATA1 OCCURS 54              05470000
056300             ASCENDING KEY IS RUG53-CODE                          05480000
056400             INDEXED BY RUG53-01.                                 05490000
056500         03  RUG53-CODE          PIC X(03).                       05500000
056600         03  RUG53-REGS             OCCURS 1.                     05510000
056700             04  FILLER        PIC XX.                            05520000
056800             04  REV53-CODE      PIC XXXX.                        05530000
056900             04  FILLER        PIC X.                             05540000
057000             04  RUG53-NURSING   PIC 9V99.                        05550000
057100             04  FILLER        PIC X.                             05560000
057200             04  RUG53-THERAPY   PIC 9V99.                        05570000
057300             04  FILLER        PIC X.                             05580000
057400             04  RUG53-FACTOR    PIC 9.                           05590000
057500                                                                  05600000
057600                                                                  05610000
057700***************************************************************   05620000
057800*  LAYUP TABLE AREA FOR RUG 53 CODES FOR FY2010               *   05630000
057900*  EFFECTIVE OCT  1, 2009                                     *   05640000
058000*  FORMAT FOR RUG TABLE 53                                    *   05650000
058100*    N = NURSING   T = THERAPY  F = THERAPY COMPONENT FACTOR  *   05660000
058200***************************************************************   05670000
058300 01  RUG53-2010-TABLE.                                            05680000
058400     02  RUG53-2010-DATA1.                                        05690000
058500*                               RUG  REV                          05700000
058600*                               CODE CODE N - T - F               05710000
058700         03  FILLER  PIC X(19)                                    05720000
058800                         VALUE 'AAA  9000 046 000 1'.             05730000
058900         03  FILLER  PIC X(19)                                    05740000
059000                         VALUE 'PA1  9001 046 000 1'.             05750000
059100         03  FILLER  PIC X(19)                                    05760000
059200                         VALUE 'PA2  9002 049 000 1'.             05770000
059300         03  FILLER  PIC X(19)                                    05780000
059400                         VALUE 'PB1  9003 050 000 1'.             05790000
059500         03  FILLER  PIC X(19)                                    05800000
059600                         VALUE 'PB2  9004 052 000 1'.             05810000
059700         03  FILLER  PIC X(19)                                    05820000
059800                         VALUE 'PC1  9005 065 000 1'.             05830000
059900         03  FILLER  PIC X(19)                                    05840000
060000                         VALUE 'PC2  9006 066 000 1'.             05850000
060100         03  FILLER  PIC X(19)                                    05860000
060200                         VALUE 'PD1  9007 070 000 1'.             05870000
060300         03  FILLER  PIC X(19)                                    05880000
060400                         VALUE 'PD2  9008 072 000 1'.             05890000
060500         03  FILLER  PIC X(19)                                    05900000
060600                         VALUE 'PE1  9009 077 000 1'.             05910000
060700         03  FILLER  PIC X(19)                                    05920000
060800                         VALUE 'PE2  9010 079 000 1'.             05930000
060900         03  FILLER  PIC X(19)                                    05940000
061000                         VALUE 'BA1  9011 048 000 1'.             05950000
061100         03  FILLER  PIC X(19)                                    05960000
061200                         VALUE 'BA2  9012 056 000 1'.             05970000
061300         03  FILLER  PIC X(19)                                    05980000
061400                         VALUE 'BB1  9013 065 000 1'.             05990000
061500         03  FILLER  PIC X(19)                                    06000000
061600                         VALUE 'BB2  9014 068 000 1'.             06010000
061700         03  FILLER  PIC X(19)                                    06020000
061800                         VALUE 'IA1  9015 053 000 1'.             06030000
061900         03  FILLER  PIC X(19)                                    06040000
062000                         VALUE 'IA2  9016 057 000 1'.             06050000
062100         03  FILLER  PIC X(19)                                    06060000
062200                         VALUE 'IB1  9017 067 000 1'.             06070000
062300         03  FILLER  PIC X(19)                                    06080000
062400                         VALUE 'IB2  9018 069 000 1'.             06090000
062500         03  FILLER  PIC X(19)                                    06100000
062600                         VALUE 'CA1  9019 075 000 1'.             06110000
062700         03  FILLER  PIC X(19)                                    06120000
062800                         VALUE 'CA2  9020 083 000 1'.             06130000
062900         03  FILLER  PIC X(19)                                    06140000
063000                         VALUE 'CB1  9021 084 000 1'.             06150000
063100         03  FILLER  PIC X(19)                                    06160000
063200                         VALUE 'CB2  9022 091 000 1'.             06170000
063300         03  FILLER  PIC X(19)                                    06180000
063400                         VALUE 'CC1  9023 099 000 1'.             06190000
063500         03  FILLER  PIC X(19)                                    06200000
063600                         VALUE 'CC2  9024 113 000 1'.             06210000
063700         03  FILLER  PIC X(19)                                    06220000
063800                         VALUE 'SSA  9025 102 000 1'.             06230000
063900         03  FILLER  PIC X(19)                                    06240000
064000                         VALUE 'SSB  9026 105 000 1'.             06250000
064100         03  FILLER  PIC X(19)                                    06260000
064200                         VALUE 'SSC  9027 114 000 1'.             06270000
064300         03  FILLER  PIC X(19)                                    06280000
064400                         VALUE 'SE1  9028 117 000 1'.             06290000
064500         03  FILLER  PIC X(19)                                    06300000
064600                         VALUE 'SE2  9029 138 000 1'.             06310000
064700         03  FILLER  PIC X(19)                                    06320000
064800                         VALUE 'SE3  9030 172 000 1'.             06330000
064900         03  FILLER  PIC X(19)                                    06340000
065000                         VALUE 'RLA  9031 079 043 0'.             06350000
065100         03  FILLER  PIC X(19)                                    06360000
065200                         VALUE 'RLB  9032 106 043 0'.             06370000
065300         03  FILLER  PIC X(19)                                    06380000
065400                         VALUE 'RMA  9033 097 077 0'.             06390000
065500         03  FILLER  PIC X(19)                                    06400000
065600                         VALUE 'RMB  9034 101 077 0'.             06410000
065700         03  FILLER  PIC X(19)                                    06420000
065800                         VALUE 'RMC  9035 107 077 0'.             06430000
065900         03  FILLER  PIC X(19)                                    06440000
066000                         VALUE 'RHA  9036 088 094 0'.             06450000
066100         03  FILLER  PIC X(19)                                    06460000
066200                         VALUE 'RHB  9037 103 094 0'.             06470000
066300         03  FILLER  PIC X(19)                                    06480000
066400                         VALUE 'RHC  9038 113 094 0'.             06490000
066500         03  FILLER  PIC X(19)                                    06500000
066600                         VALUE 'RVA  9039 077 141 0'.             06510000
066700         03  FILLER  PIC X(19)                                    06520000
066800                         VALUE 'RVB  9040 101 141 0'.             06530000
066900         03  FILLER  PIC X(19)                                    06540000
067000                         VALUE 'RVC  9041 114 141 0'.             06550000
067100         03  FILLER  PIC X(19)                                    06560000
067200                         VALUE 'RUA  9042 078 225 0'.             06570000
067300         03  FILLER  PIC X(19)                                    06580000
067400                         VALUE 'RUB  9043 092 225 0'.             06590000
067500         03  FILLER  PIC X(19)                                    06600000
067600                         VALUE 'RUC  9044 120 225 0'.             06610000
067700         03  FILLER  PIC X(19)                                    06620000
067800                         VALUE 'RLX  9045 122 043 0'.             06630000
067900         03  FILLER  PIC X(19)                                    06640000
068000                         VALUE 'RML  9046 157 077 0'.             06650000
068100         03  FILLER  PIC X(19)                                    06660000
068200                         VALUE 'RMX  9047 180 077 0'.             06670000
068300         03  FILLER  PIC X(19)                                    06680000
068400                         VALUE 'RHL  9048 127 094 0'.             06690000
068500         03  FILLER  PIC X(19)                                    06700000
068600                         VALUE 'RHX  9049 133 094 0'.             06710000
068700         03  FILLER  PIC X(19)                                    06720000
068800                         VALUE 'RVL  9050 124 141 0'.             06730000
068900         03  FILLER  PIC X(19)                                    06740000
069000                         VALUE 'RVX  9051 144 141 0'.             06750000
069100         03  FILLER  PIC X(19)                                    06760000
069200                         VALUE 'RUL  9052 131 225 0'.             06770000
069300         03  FILLER  PIC X(19)                                    06780000
069400                         VALUE 'RUX  9053 177 225 0'.             06790000
069500     02  RUG53-2010-DATA2 REDEFINES RUG53-2010-DATA1 OCCURS 54    06800000
069600             ASCENDING KEY IS RUG53-2010-CODE                     06810000
069700             INDEXED BY RUG53-2010-01.                            06820000
069800         03  RUG53-2010-CODE     PIC X(03).                       06830000
069900         03  RUG53-2010-REGS        OCCURS 1.                     06840000
070000             04  FILLER        PIC XX.                            06850000
070100             04  REV53-2010-CODE      PIC XXXX.                   06860000
070200             04  FILLER        PIC X.                             06870000
070300             04  RUG53-2010-NURSING PIC 9V99.                     06880000
070400             04  FILLER        PIC X.                             06890000
070500             04  RUG53-2010-THERAPY PIC 9V99.                     06900000
070600             04  FILLER        PIC X.                             06910000
070700             04  RUG53-2010-FACTOR PIC 9.                         06920000
070800                                                                  06930000
070900***************************************************************   06940000
071000*  LAYUP TABLE AREA FOR RUG 53 CODES FOR FY2011               *   06950000
071100*  EFFECTIVE OCT  2, 2010                                     *   06960000
071200*  FORMAT FOR RUG TABLE 53                                    *   06970000
071300*    N = NURSING   T = THERAPY  F = THERAPY COMPONENT FACTOR  *   06980000
071400***************************************************************   06990000
071500 01  RUG67-2011-TABLE.                                            07000000
071600     02  RUG67-2011-DATA1.                                        07010000
071700*                                      RUG  REV                   07020000
071800*                                      CODE CODE N - T - F        07030000
071900         03  FILLER  PIC X(19)  VALUE 'AAA  9000 054 000 1'.      07040000
072000         03  FILLER  PIC X(19)  VALUE 'BA1  9011 064 000 1'.      07050000
072100         03  FILLER  PIC X(19)  VALUE 'BA2  9012 070 000 1'.      07060000
072200         03  FILLER  PIC X(19)  VALUE 'BB1  9013 090 000 1'.      07070000
072300         03  FILLER  PIC X(19)  VALUE 'BB2  9014 097 000 1'.      07080000
072400         03  FILLER  PIC X(19)  VALUE 'CA1  9019 078 000 1'.      07090000
072500         03  FILLER  PIC X(19)  VALUE 'CA2  9020 088 000 1'.      07100000
072600         03  FILLER  PIC X(19)  VALUE 'CB1  9021 102 000 1'.      07110000
072700         03  FILLER  PIC X(19)  VALUE 'CB2  9022 115 000 1'.      07120000
072800         03  FILLER  PIC X(19)  VALUE 'CC1  9023 115 000 1'.      07130000
072900         03  FILLER  PIC X(19)  VALUE 'CC2  9024 129 000 1'.      07140000
073000         03  FILLER  PIC X(19)  VALUE 'CD1  9024 138 000 1'.      07150000
073100         03  FILLER  PIC X(19)  VALUE 'CD2  9024 156 000 1'.      07160000
073200         03  FILLER  PIC X(19)  VALUE 'CE1  9024 150 000 1'.      07170000
073300         03  FILLER  PIC X(19)  VALUE 'CE2  9028 168 000 1'.      07180000
073400         03  FILLER  PIC X(19)  VALUE 'ES1  9028 232 000 1'.      07190000
073500         03  FILLER  PIC X(19)  VALUE 'ES2  9029 267 000 1'.      07200000
073600         03  FILLER  PIC X(19)  VALUE 'ES3  9030 358 000 1'.      07210000
073700         03  FILLER  PIC X(19)  VALUE 'HB1  9015 146 000 1'.      07220000
073800         03  FILLER  PIC X(19)  VALUE 'HB2  9016 186 000 1'.      07230000
073900         03  FILLER  PIC X(19)  VALUE 'HC1  9017 148 000 1'.      07240000
074000         03  FILLER  PIC X(19)  VALUE 'HC2  9018 189 000 1'.      07250000
074100         03  FILLER  PIC X(19)  VALUE 'HD1  9018 160 000 1'.      07260000
074200         03  FILLER  PIC X(19)  VALUE 'HD2  9018 204 000 1'.      07270000
074300         03  FILLER  PIC X(19)  VALUE 'HE1  9018 174 000 1'.      07280000
074400         03  FILLER  PIC X(19)  VALUE 'HE2  9018 222 000 1'.      07290000
074500         03  FILLER  PIC X(19)  VALUE 'LB1  9018 114 000 1'.      07300000
074600         03  FILLER  PIC X(19)  VALUE 'LB2  9018 145 000 1'.      07310000
074700         03  FILLER  PIC X(19)  VALUE 'LC1  9018 122 000 1'.      07320000
074800         03  FILLER  PIC X(19)  VALUE 'LC2  9018 156 000 1'.      07330000
074900         03  FILLER  PIC X(19)  VALUE 'LD1  9018 146 000 1'.      07340000
075000         03  FILLER  PIC X(19)  VALUE 'LD2  9018 186 000 1'.      07350000
075100         03  FILLER  PIC X(19)  VALUE 'LE1  9018 154 000 1'.      07360000
075200         03  FILLER  PIC X(19)  VALUE 'LE2  9018 196 000 1'.      07370000
075300         03  FILLER  PIC X(19)  VALUE 'PA1  9001 054 000 1'.      07380000
075400         03  FILLER  PIC X(19)  VALUE 'PA2  9002 059 000 1'.      07390000
075500         03  FILLER  PIC X(19)  VALUE 'PB1  9003 078 000 1'.      07400000
075600         03  FILLER  PIC X(19)  VALUE 'PB2  9004 084 000 1'.      07410000
075700         03  FILLER  PIC X(19)  VALUE 'PC1  9005 102 000 1'.      07420000
075800         03  FILLER  PIC X(19)  VALUE 'PC2  9006 110 000 1'.      07430000
075900         03  FILLER  PIC X(19)  VALUE 'PD1  9007 128 000 1'.      07440000
076000         03  FILLER  PIC X(19)  VALUE 'PD2  9008 138 000 1'.      07450000
076100         03  FILLER  PIC X(19)  VALUE 'PE1  9009 140 000 1'.      07460000
076200         03  FILLER  PIC X(19)  VALUE 'PE2  9010 150 000 1'.      07470000
076300         03  FILLER  PIC X(19)  VALUE 'RHA  9036 123 085 0'.      07480000
076400         03  FILLER  PIC X(19)  VALUE 'RHB  9037 160 085 0'.      07490000
076500         03  FILLER  PIC X(19)  VALUE 'RHC  9038 194 085 0'.      07500000
076600         03  FILLER  PIC X(19)  VALUE 'RHL  9048 289 085 0'.      07510000
076700         03  FILLER  PIC X(19)  VALUE 'RHX  9049 343 085 0'.      07520000
076800         03  FILLER  PIC X(19)  VALUE 'RLA  9031 095 028 0'.      07530000
076900         03  FILLER  PIC X(19)  VALUE 'RLB  9032 201 028 0'.      07540000
077000         03  FILLER  PIC X(19)  VALUE 'RLX  9045 304 028 0'.      07550000
077100         03  FILLER  PIC X(19)  VALUE 'RMA  9033 113 055 0'.      07560000
077200         03  FILLER  PIC X(19)  VALUE 'RMB  9034 163 055 0'.      07570000
077300         03  FILLER  PIC X(19)  VALUE 'RMC  9035 183 055 0'.      07580000
077400         03  FILLER  PIC X(19)  VALUE 'RML  9046 295 055 0'.      07590000
077500         03  FILLER  PIC X(19)  VALUE 'RMX  9047 331 055 0'.      07600000
077600         03  FILLER  PIC X(19)  VALUE 'RUA  9042 133 187 0'.      07610000
077700         03  FILLER  PIC X(19)  VALUE 'RUB  9043 210 187 0'.      07620000
077800         03  FILLER  PIC X(19)  VALUE 'RUC  9044 210 187 0'.      07630000
077900         03  FILLER  PIC X(19)  VALUE 'RUL  9052 345 187 0'.      07640000
078000         03  FILLER  PIC X(19)  VALUE 'RUX  9053 359 187 0'.      07650000
078100         03  FILLER  PIC X(19)  VALUE 'RVA  9039 148 128 0'.      07660000
078200         03  FILLER  PIC X(19)  VALUE 'RVB  9040 149 128 0'.      07670000
078300         03  FILLER  PIC X(19)  VALUE 'RVC  9041 202 128 0'.      07680000
078400         03  FILLER  PIC X(19)  VALUE 'RVL  9050 295 128 0'.      07690000
078500         03  FILLER  PIC X(19)  VALUE 'RVX  9051 351 128 0'.      07700000
078600     02  RUG67-2011-DATA2 REDEFINES RUG67-2011-DATA1 OCCURS 67    07710000
078700             ASCENDING KEY IS RUG67-2011-CODE                     07720000
078800             INDEXED BY RUG67-2011-01.                            07730000
078900         03  RUG67-2011-CODE     PIC X(03).                       07740000
079000         03  RUG67-2011-REGS        OCCURS 1.                     07750000
079100             04  FILLER        PIC XX.                            07760000
079200             04  REV67-2011-CODE      PIC XXXX.                   07770000
079300             04  FILLER        PIC X.                             07780000
079400             04  RUG67-2011-NURSING PIC 9V99.                     07790000
079500             04  FILLER        PIC X.                             07800000
079600             04  RUG67-2011-THERAPY PIC 9V99.                     07810000
079700             04  FILLER        PIC X.                             07820000
079800             04  RUG67-2011-FACTOR PIC 9.                         07830000
079900                                                                  07840000
080000***************************************************************   07850000
080100*  LAYUP TABLE AREA FOR RUG 67 CODES FOR FY2012               *   07860000
080200*  EFFECTIVE OCT  1, 2011                                     *   07870000
080300*  FORMAT FOR RUG TABLE 67                                    *   07880000
080400*    N = NURSING   T = THERAPY  F = THERAPY COMPONENT FACTOR  *   07890000
080500***************************************************************   07900000
080600 01  RUG67-2012-TABLE.                                            07910000
080700     02  RUG67-2012-DATA1.                                        07920000
080800*                                      RUG  REV                   07930000
080900*                                      CODE CODE N - T - F        07940000
081000         03  FILLER  PIC X(19)  VALUE 'AAA  9000 054 000 1'.      07950000
081100         03  FILLER  PIC X(19)  VALUE 'BA1  9011 064 000 1'.      07960000
081200         03  FILLER  PIC X(19)  VALUE 'BA2  9012 070 000 1'.      07970000
081300         03  FILLER  PIC X(19)  VALUE 'BB1  9013 090 000 1'.      07980000
081400         03  FILLER  PIC X(19)  VALUE 'BB2  9014 097 000 1'.      07990000
081500         03  FILLER  PIC X(19)  VALUE 'CA1  9019 078 000 1'.      08000000
081600         03  FILLER  PIC X(19)  VALUE 'CA2  9020 088 000 1'.      08010000
081700         03  FILLER  PIC X(19)  VALUE 'CB1  9021 102 000 1'.      08020000
081800         03  FILLER  PIC X(19)  VALUE 'CB2  9022 115 000 1'.      08030000
081900         03  FILLER  PIC X(19)  VALUE 'CC1  9023 115 000 1'.      08040000
082000         03  FILLER  PIC X(19)  VALUE 'CC2  9024 129 000 1'.      08050000
082100         03  FILLER  PIC X(19)  VALUE 'CD1  9024 138 000 1'.      08060000
082200         03  FILLER  PIC X(19)  VALUE 'CD2  9024 156 000 1'.      08070000
082300         03  FILLER  PIC X(19)  VALUE 'CE1  9024 150 000 1'.      08080000
082400         03  FILLER  PIC X(19)  VALUE 'CE2  9028 168 000 1'.      08090000
082500         03  FILLER  PIC X(19)  VALUE 'ES1  9028 232 000 1'.      08100000
082600         03  FILLER  PIC X(19)  VALUE 'ES2  9029 267 000 1'.      08110000
082700         03  FILLER  PIC X(19)  VALUE 'ES3  9030 358 000 1'.      08120000
082800         03  FILLER  PIC X(19)  VALUE 'HB1  9015 146 000 1'.      08130000
082900         03  FILLER  PIC X(19)  VALUE 'HB2  9016 186 000 1'.      08140000
083000         03  FILLER  PIC X(19)  VALUE 'HC1  9017 148 000 1'.      08150000
083100         03  FILLER  PIC X(19)  VALUE 'HC2  9018 189 000 1'.      08160000
083200         03  FILLER  PIC X(19)  VALUE 'HD1  9018 160 000 1'.      08170000
083300         03  FILLER  PIC X(19)  VALUE 'HD2  9018 204 000 1'.      08180000
083400         03  FILLER  PIC X(19)  VALUE 'HE1  9018 174 000 1'.      08190000
083500         03  FILLER  PIC X(19)  VALUE 'HE2  9018 222 000 1'.      08200000
083600         03  FILLER  PIC X(19)  VALUE 'LB1  9018 114 000 1'.      08210000
083700         03  FILLER  PIC X(19)  VALUE 'LB2  9018 145 000 1'.      08220000
083800         03  FILLER  PIC X(19)  VALUE 'LC1  9018 122 000 1'.      08230000
083900         03  FILLER  PIC X(19)  VALUE 'LC2  9018 156 000 1'.      08240000
084000         03  FILLER  PIC X(19)  VALUE 'LD1  9018 146 000 1'.      08250000
084100         03  FILLER  PIC X(19)  VALUE 'LD2  9018 186 000 1'.      08260000
084200         03  FILLER  PIC X(19)  VALUE 'LE1  9018 154 000 1'.      08270000
084300         03  FILLER  PIC X(19)  VALUE 'LE2  9018 196 000 1'.      08280000
084400         03  FILLER  PIC X(19)  VALUE 'PA1  9001 054 000 1'.      08290000
084500         03  FILLER  PIC X(19)  VALUE 'PA2  9002 059 000 1'.      08300000
084600         03  FILLER  PIC X(19)  VALUE 'PB1  9003 078 000 1'.      08310000
084700         03  FILLER  PIC X(19)  VALUE 'PB2  9004 084 000 1'.      08320000
084800         03  FILLER  PIC X(19)  VALUE 'PC1  9005 102 000 1'.      08330000
084900         03  FILLER  PIC X(19)  VALUE 'PC2  9006 110 000 1'.      08340000
085000         03  FILLER  PIC X(19)  VALUE 'PD1  9007 128 000 1'.      08350000
085100         03  FILLER  PIC X(19)  VALUE 'PD2  9008 138 000 1'.      08360000
085200         03  FILLER  PIC X(19)  VALUE 'PE1  9009 140 000 1'.      08370000
085300         03  FILLER  PIC X(19)  VALUE 'PE2  9010 150 000 1'.      08380000
085400         03  FILLER  PIC X(19)  VALUE 'RHA  9036 091 085 0'.      08390000
085500         03  FILLER  PIC X(19)  VALUE 'RHB  9037 119 085 0'.      08400000
085600         03  FILLER  PIC X(19)  VALUE 'RHC  9038 145 085 0'.      08410000
085700         03  FILLER  PIC X(19)  VALUE 'RHL  9048 215 085 0'.      08420000
085800         03  FILLER  PIC X(19)  VALUE 'RHX  9049 255 085 0'.      08430000
085900         03  FILLER  PIC X(19)  VALUE 'RLA  9031 071 028 0'.      08440000
086000         03  FILLER  PIC X(19)  VALUE 'RLB  9032 150 028 0'.      08450000
086100         03  FILLER  PIC X(19)  VALUE 'RLX  9045 226 028 0'.      08460000
086200         03  FILLER  PIC X(19)  VALUE 'RMA  9033 084 055 0'.      08470000
086300         03  FILLER  PIC X(19)  VALUE 'RMB  9034 122 055 0'.      08480000
086400         03  FILLER  PIC X(19)  VALUE 'RMC  9035 136 055 0'.      08490000
086500         03  FILLER  PIC X(19)  VALUE 'RML  9046 219 055 0'.      08500000
086600         03  FILLER  PIC X(19)  VALUE 'RMX  9047 247 055 0'.      08510000
086700         03  FILLER  PIC X(19)  VALUE 'RUA  9042 099 187 0'.      08520000
086800         03  FILLER  PIC X(19)  VALUE 'RUB  9043 156 187 0'.      08530000
086900         03  FILLER  PIC X(19)  VALUE 'RUC  9044 156 187 0'.      08540000
087000         03  FILLER  PIC X(19)  VALUE 'RUL  9052 257 187 0'.      08550000
087100         03  FILLER  PIC X(19)  VALUE 'RUX  9053 267 187 0'.      08560000
087200         03  FILLER  PIC X(19)  VALUE 'RVA  9039 110 128 0'.      08570000
087300         03  FILLER  PIC X(19)  VALUE 'RVB  9040 111 128 0'.      08580000
087400         03  FILLER  PIC X(19)  VALUE 'RVC  9041 151 128 0'.      08590000
087500         03  FILLER  PIC X(19)  VALUE 'RVL  9050 219 128 0'.      08600000
087600         03  FILLER  PIC X(19)  VALUE 'RVX  9051 261 128 0'.      08610000
087700     02  RUG67-2012-DATA2 REDEFINES RUG67-2012-DATA1 OCCURS 67    08620000
087800             ASCENDING KEY IS RUG67-2012-CODE                     08630000
087900             INDEXED BY RUG67-2012-01.                            08640000
088000         03  RUG67-2012-CODE     PIC X(03).                       08650000
088100         03  RUG67-2012-REGS        OCCURS 1.                     08660000
088200             04  FILLER        PIC XX.                            08670000
088300             04  REV67-2012-CODE      PIC XXXX.                   08680000
088400             04  FILLER        PIC X.                             08690000
088500             04  RUG67-2012-NURSING PIC 9V99.                     08700000
088600             04  FILLER        PIC X.                             08710000
088700             04  RUG67-2012-THERAPY PIC 9V99.                     08720000
088800             04  FILLER        PIC X.                             08730000
088900             04  RUG67-2012-FACTOR PIC 9.                         08740000
089000                                                                  08750000
089100*********************>>  2013  <<**********************           08760000
089200                                                                  08770000
089300                                                                  08780000
089400***************************************************************   08790000
089500*  LAYUP TABLE AREA FOR RUG 67 CODES FOR FY2013               *   08800000
089600*  EFFECTIVE OCT  1, 2012                                     *   08810000
089700*  FORMAT FOR RUG TABLE 67                                    *   08820000
089800*    N = NURSING   T = THERAPY  F = THERAPY COMPONENT FACTOR  *   08830000
089900***************************************************************   08840000
090000 01  RUG67-2013-TABLE.                                            08850000
090100     02  RUG67-2013-DATA1.                                        08860000
090200*                                      RUG  REV                   08870000
090300*                                      CODE CODE N - T - F        08880000
090400         03  FILLER  PIC X(19)  VALUE 'AAA  9000 054 000 1'.      08890000
090500         03  FILLER  PIC X(19)  VALUE 'BA1  9011 064 000 1'.      08900000
090600         03  FILLER  PIC X(19)  VALUE 'BA2  9012 070 000 1'.      08910000
090700         03  FILLER  PIC X(19)  VALUE 'BB1  9013 090 000 1'.      08920000
090800         03  FILLER  PIC X(19)  VALUE 'BB2  9014 097 000 1'.      08930000
090900         03  FILLER  PIC X(19)  VALUE 'CA1  9019 078 000 1'.      08940000
091000         03  FILLER  PIC X(19)  VALUE 'CA2  9020 088 000 1'.      08950000
091100         03  FILLER  PIC X(19)  VALUE 'CB1  9021 102 000 1'.      08960000
091200         03  FILLER  PIC X(19)  VALUE 'CB2  9022 115 000 1'.      08970000
091300         03  FILLER  PIC X(19)  VALUE 'CC1  9023 115 000 1'.      08980000
091400         03  FILLER  PIC X(19)  VALUE 'CC2  9024 129 000 1'.      08990000
091500         03  FILLER  PIC X(19)  VALUE 'CD1  9024 138 000 1'.      09000000
091600         03  FILLER  PIC X(19)  VALUE 'CD2  9024 156 000 1'.      09010000
091700         03  FILLER  PIC X(19)  VALUE 'CE1  9024 150 000 1'.      09020000
091800         03  FILLER  PIC X(19)  VALUE 'CE2  9028 168 000 1'.      09030000
091900         03  FILLER  PIC X(19)  VALUE 'ES1  9028 232 000 1'.      09040000
092000         03  FILLER  PIC X(19)  VALUE 'ES2  9029 267 000 1'.      09050000
092100         03  FILLER  PIC X(19)  VALUE 'ES3  9030 358 000 1'.      09060000
092200         03  FILLER  PIC X(19)  VALUE 'HB1  9015 146 000 1'.      09070000
092300         03  FILLER  PIC X(19)  VALUE 'HB2  9016 186 000 1'.      09080000
092400         03  FILLER  PIC X(19)  VALUE 'HC1  9017 148 000 1'.      09090000
092500         03  FILLER  PIC X(19)  VALUE 'HC2  9018 189 000 1'.      09100000
092600         03  FILLER  PIC X(19)  VALUE 'HD1  9018 160 000 1'.      09110000
092700         03  FILLER  PIC X(19)  VALUE 'HD2  9018 204 000 1'.      09120000
092800         03  FILLER  PIC X(19)  VALUE 'HE1  9018 174 000 1'.      09130000
092900         03  FILLER  PIC X(19)  VALUE 'HE2  9018 222 000 1'.      09140000
093000         03  FILLER  PIC X(19)  VALUE 'LB1  9018 114 000 1'.      09150000
093100         03  FILLER  PIC X(19)  VALUE 'LB2  9018 145 000 1'.      09160000
093200         03  FILLER  PIC X(19)  VALUE 'LC1  9018 122 000 1'.      09170000
093300         03  FILLER  PIC X(19)  VALUE 'LC2  9018 156 000 1'.      09180000
093400         03  FILLER  PIC X(19)  VALUE 'LD1  9018 146 000 1'.      09190000
093500         03  FILLER  PIC X(19)  VALUE 'LD2  9018 186 000 1'.      09200000
093600         03  FILLER  PIC X(19)  VALUE 'LE1  9018 154 000 1'.      09210000
093700         03  FILLER  PIC X(19)  VALUE 'LE2  9018 196 000 1'.      09220000
093800         03  FILLER  PIC X(19)  VALUE 'PA1  9001 054 000 1'.      09230000
093900         03  FILLER  PIC X(19)  VALUE 'PA2  9002 059 000 1'.      09240000
094000         03  FILLER  PIC X(19)  VALUE 'PB1  9003 078 000 1'.      09250000
094100         03  FILLER  PIC X(19)  VALUE 'PB2  9004 084 000 1'.      09260000
094200         03  FILLER  PIC X(19)  VALUE 'PC1  9005 102 000 1'.      09270000
094300         03  FILLER  PIC X(19)  VALUE 'PC2  9006 110 000 1'.      09280000
094400         03  FILLER  PIC X(19)  VALUE 'PD1  9007 128 000 1'.      09290000
094500         03  FILLER  PIC X(19)  VALUE 'PD2  9008 138 000 1'.      09300000
094600         03  FILLER  PIC X(19)  VALUE 'PE1  9009 140 000 1'.      09310000
094700         03  FILLER  PIC X(19)  VALUE 'PE2  9010 150 000 1'.      09320000
094800         03  FILLER  PIC X(19)  VALUE 'RHA  9036 091 085 0'.      09330000
094900         03  FILLER  PIC X(19)  VALUE 'RHB  9037 119 085 0'.      09340000
095000         03  FILLER  PIC X(19)  VALUE 'RHC  9038 145 085 0'.      09350000
095100         03  FILLER  PIC X(19)  VALUE 'RHL  9048 215 085 0'.      09360000
095200         03  FILLER  PIC X(19)  VALUE 'RHX  9049 255 085 0'.      09370000
095300         03  FILLER  PIC X(19)  VALUE 'RLA  9031 071 028 0'.      09380000
095400         03  FILLER  PIC X(19)  VALUE 'RLB  9032 150 028 0'.      09390000
095500         03  FILLER  PIC X(19)  VALUE 'RLX  9045 226 028 0'.      09400000
095600         03  FILLER  PIC X(19)  VALUE 'RMA  9033 084 055 0'.      09410000
095700         03  FILLER  PIC X(19)  VALUE 'RMB  9034 122 055 0'.      09420000
095800         03  FILLER  PIC X(19)  VALUE 'RMC  9035 136 055 0'.      09430000
095900         03  FILLER  PIC X(19)  VALUE 'RML  9046 219 055 0'.      09440000
096000         03  FILLER  PIC X(19)  VALUE 'RMX  9047 247 055 0'.      09450000
096100         03  FILLER  PIC X(19)  VALUE 'RUA  9042 099 187 0'.      09460000
096200         03  FILLER  PIC X(19)  VALUE 'RUB  9043 156 187 0'.      09470000
096300         03  FILLER  PIC X(19)  VALUE 'RUC  9044 156 187 0'.      09480000
096400         03  FILLER  PIC X(19)  VALUE 'RUL  9052 257 187 0'.      09490000
096500         03  FILLER  PIC X(19)  VALUE 'RUX  9053 267 187 0'.      09500000
096600         03  FILLER  PIC X(19)  VALUE 'RVA  9039 110 128 0'.      09510000
096700         03  FILLER  PIC X(19)  VALUE 'RVB  9040 111 128 0'.      09520000
096800         03  FILLER  PIC X(19)  VALUE 'RVC  9041 151 128 0'.      09530000
096900         03  FILLER  PIC X(19)  VALUE 'RVL  9050 219 128 0'.      09540000
097000         03  FILLER  PIC X(19)  VALUE 'RVX  9051 261 128 0'.      09550000
097100     02  RUG67-2013-DATA2 REDEFINES RUG67-2013-DATA1 OCCURS 67    09560000
097200             ASCENDING KEY IS RUG67-2013-CODE                     09570000
097300             INDEXED BY RUG67-2013-01.                            09580000
097400         03  RUG67-2013-CODE     PIC X(03).                       09590000
097500         03  RUG67-2013-REGS        OCCURS 1.                     09600000
097600             04  FILLER        PIC XX.                            09610000
097700             04  REV67-2013-CODE      PIC XXXX.                   09620000
097800             04  FILLER        PIC X.                             09630000
097900             04  RUG67-2013-NURSING PIC 9V99.                     09640000
098000             04  FILLER        PIC X.                             09650000
098100             04  RUG67-2013-THERAPY PIC 9V99.                     09660000
098200             04  FILLER        PIC X.                             09670000
098300             04  RUG67-2013-FACTOR PIC 9.                         09680000
098400                                                                  09690000
098500                                                                  09700000
098600                                                                  09710000
098700*********************>>  2013  <<**********************           09720000
098800*********************>>  2014  <<**********************           09730000
098900                                                                  09740000
099000                                                                  09750000
099100***************************************************************   09760000
099200*  LAYUP TABLE AREA FOR RUG 67 CODES FOR FY2014               *   09770000
099300*  EFFECTIVE OCT  1, 2013                                     *   09780000
099400*  FORMAT FOR RUG TABLE 67                                    *   09790000
099500*    N = NURSING   T = THERAPY  F = THERAPY COMPONENT FACTOR  *   09800000
099600***************************************************************   09810000
099700 01  RUG67-2014-TABLE.                                            09820000
099800     02  RUG67-2014-DATA1.                                        09830000
099900*                                      RUG  REV                   09840000
100000*                                      CODE CODE N - T - F        09850000
100100         03  FILLER  PIC X(19)  VALUE 'AAA  9000 054 000 1'.      09860000
100200         03  FILLER  PIC X(19)  VALUE 'BA1  9011 064 000 1'.      09870000
100300         03  FILLER  PIC X(19)  VALUE 'BA2  9012 070 000 1'.      09880000
100400         03  FILLER  PIC X(19)  VALUE 'BB1  9013 090 000 1'.      09890000
100500         03  FILLER  PIC X(19)  VALUE 'BB2  9014 097 000 1'.      09900000
100600         03  FILLER  PIC X(19)  VALUE 'CA1  9019 078 000 1'.      09910000
100700         03  FILLER  PIC X(19)  VALUE 'CA2  9020 088 000 1'.      09920000
100800         03  FILLER  PIC X(19)  VALUE 'CB1  9021 102 000 1'.      09930000
100900         03  FILLER  PIC X(19)  VALUE 'CB2  9022 115 000 1'.      09940000
101000         03  FILLER  PIC X(19)  VALUE 'CC1  9023 115 000 1'.      09950000
101100         03  FILLER  PIC X(19)  VALUE 'CC2  9024 129 000 1'.      09960000
101200         03  FILLER  PIC X(19)  VALUE 'CD1  9024 138 000 1'.      09970000
101300         03  FILLER  PIC X(19)  VALUE 'CD2  9024 156 000 1'.      09980000
101400         03  FILLER  PIC X(19)  VALUE 'CE1  9024 150 000 1'.      09990000
101500         03  FILLER  PIC X(19)  VALUE 'CE2  9028 168 000 1'.      10000000
101600         03  FILLER  PIC X(19)  VALUE 'ES1  9028 232 000 1'.      10010000
101700         03  FILLER  PIC X(19)  VALUE 'ES2  9029 267 000 1'.      10020000
101800         03  FILLER  PIC X(19)  VALUE 'ES3  9030 358 000 1'.      10030000
101900         03  FILLER  PIC X(19)  VALUE 'HB1  9015 146 000 1'.      10040000
102000         03  FILLER  PIC X(19)  VALUE 'HB2  9016 186 000 1'.      10050000
102100         03  FILLER  PIC X(19)  VALUE 'HC1  9017 148 000 1'.      10060000
102200         03  FILLER  PIC X(19)  VALUE 'HC2  9018 189 000 1'.      10070000
102300         03  FILLER  PIC X(19)  VALUE 'HD1  9018 160 000 1'.      10080000
102400         03  FILLER  PIC X(19)  VALUE 'HD2  9018 204 000 1'.      10090000
102500         03  FILLER  PIC X(19)  VALUE 'HE1  9018 174 000 1'.      10100000
102600         03  FILLER  PIC X(19)  VALUE 'HE2  9018 222 000 1'.      10110000
102700         03  FILLER  PIC X(19)  VALUE 'LB1  9018 114 000 1'.      10120000
102800         03  FILLER  PIC X(19)  VALUE 'LB2  9018 145 000 1'.      10130000
102900         03  FILLER  PIC X(19)  VALUE 'LC1  9018 122 000 1'.      10140000
103000         03  FILLER  PIC X(19)  VALUE 'LC2  9018 156 000 1'.      10150000
103100         03  FILLER  PIC X(19)  VALUE 'LD1  9018 146 000 1'.      10160000
103200         03  FILLER  PIC X(19)  VALUE 'LD2  9018 186 000 1'.      10170000
103300         03  FILLER  PIC X(19)  VALUE 'LE1  9018 154 000 1'.      10180000
103400         03  FILLER  PIC X(19)  VALUE 'LE2  9018 196 000 1'.      10190000
103500         03  FILLER  PIC X(19)  VALUE 'PA1  9001 054 000 1'.      10200000
103600         03  FILLER  PIC X(19)  VALUE 'PA2  9002 059 000 1'.      10210000
103700         03  FILLER  PIC X(19)  VALUE 'PB1  9003 078 000 1'.      10220000
103800         03  FILLER  PIC X(19)  VALUE 'PB2  9004 084 000 1'.      10230000
103900         03  FILLER  PIC X(19)  VALUE 'PC1  9005 102 000 1'.      10240000
104000         03  FILLER  PIC X(19)  VALUE 'PC2  9006 110 000 1'.      10250000
104100         03  FILLER  PIC X(19)  VALUE 'PD1  9007 128 000 1'.      10260000
104200         03  FILLER  PIC X(19)  VALUE 'PD2  9008 138 000 1'.      10270000
104300         03  FILLER  PIC X(19)  VALUE 'PE1  9009 140 000 1'.      10280000
104400         03  FILLER  PIC X(19)  VALUE 'PE2  9010 150 000 1'.      10290000
104500         03  FILLER  PIC X(19)  VALUE 'RHA  9036 091 085 0'.      10300000
104600         03  FILLER  PIC X(19)  VALUE 'RHB  9037 119 085 0'.      10310000
104700         03  FILLER  PIC X(19)  VALUE 'RHC  9038 145 085 0'.      10320000
104800         03  FILLER  PIC X(19)  VALUE 'RHL  9048 215 085 0'.      10330000
104900         03  FILLER  PIC X(19)  VALUE 'RHX  9049 255 085 0'.      10340000
105000         03  FILLER  PIC X(19)  VALUE 'RLA  9031 071 028 0'.      10350000
105100         03  FILLER  PIC X(19)  VALUE 'RLB  9032 150 028 0'.      10360000
105200         03  FILLER  PIC X(19)  VALUE 'RLX  9045 226 028 0'.      10370000
105300         03  FILLER  PIC X(19)  VALUE 'RMA  9033 084 055 0'.      10380000
105400         03  FILLER  PIC X(19)  VALUE 'RMB  9034 122 055 0'.      10390000
105500         03  FILLER  PIC X(19)  VALUE 'RMC  9035 136 055 0'.      10400000
105600         03  FILLER  PIC X(19)  VALUE 'RML  9046 219 055 0'.      10410000
105700         03  FILLER  PIC X(19)  VALUE 'RMX  9047 247 055 0'.      10420000
105800         03  FILLER  PIC X(19)  VALUE 'RUA  9042 099 187 0'.      10430000
105900         03  FILLER  PIC X(19)  VALUE 'RUB  9043 156 187 0'.      10440000
106000         03  FILLER  PIC X(19)  VALUE 'RUC  9044 156 187 0'.      10450000
106100         03  FILLER  PIC X(19)  VALUE 'RUL  9052 257 187 0'.      10460000
106200         03  FILLER  PIC X(19)  VALUE 'RUX  9053 267 187 0'.      10470000
106300         03  FILLER  PIC X(19)  VALUE 'RVA  9039 110 128 0'.      10480000
106400         03  FILLER  PIC X(19)  VALUE 'RVB  9040 111 128 0'.      10490000
106500         03  FILLER  PIC X(19)  VALUE 'RVC  9041 151 128 0'.      10500000
106600         03  FILLER  PIC X(19)  VALUE 'RVL  9050 219 128 0'.      10510000
106700         03  FILLER  PIC X(19)  VALUE 'RVX  9051 261 128 0'.      10520000
106800     02  RUG67-2014-DATA2 REDEFINES RUG67-2014-DATA1 OCCURS 67    10530000
106900             ASCENDING KEY IS RUG67-2014-CODE                     10540000
107000             INDEXED BY RUG67-2014-01.                            10550000
107100         03  RUG67-2014-CODE     PIC X(03).                       10560000
107200         03  RUG67-2014-REGS        OCCURS 1.                     10570000
107300             04  FILLER               PIC XX.                     10580000
107400             04  REV67-2014-CODE      PIC XXXX.                   10590000
107500             04  FILLER               PIC X.                      10600000
107600             04  RUG67-2014-NURSING   PIC 9V99.                   10610000
107700             04  FILLER               PIC X.                      10620000
107800             04  RUG67-2014-THERAPY   PIC 9V99.                   10630000
107900             04  FILLER               PIC X.                      10640000
108000             04  RUG67-2014-FACTOR    PIC 9.                      10650000
108100                                                                  10660000
108200                                                                  10670000
108300                                                                  10680000
108400*********************>>  2014  <<**********************           10690000
108500*********************>>  2015  <<**********************           10700000
108600                                                                  10710000
108700                                                                  10720000
108800***************************************************************   10730000
108900*  LAYUP TABLE AREA FOR RUG 67 CODES FOR FY2015               *   10740000
109000*  EFFECTIVE OCT  1, 2014                                     *   10750000
109100*  FORMAT FOR RUG TABLE 67                                    *   10760000
109200*    N = NURSING   T = THERAPY  F = THERAPY COMPONENT FACTOR  *   10770000
109300***************************************************************   10780000
109400 01  RUG67-2015-TABLE.                                            10790000
109500     02  RUG67-2015-DATA1.                                        10800000
109600*                                      RUG  REV                   10810000
109700*                                      CODE CODE N - T - F        10820000
109800         03  FILLER  PIC X(19)  VALUE 'AAA  9000 054 000 1'.      10830000
109900         03  FILLER  PIC X(19)  VALUE 'BA1  9011 064 000 1'.      10840000
110000         03  FILLER  PIC X(19)  VALUE 'BA2  9012 070 000 1'.      10850000
110100         03  FILLER  PIC X(19)  VALUE 'BB1  9013 090 000 1'.      10860000
110200         03  FILLER  PIC X(19)  VALUE 'BB2  9014 097 000 1'.      10870000
110300         03  FILLER  PIC X(19)  VALUE 'CA1  9019 078 000 1'.      10880000
110400         03  FILLER  PIC X(19)  VALUE 'CA2  9020 088 000 1'.      10890000
110500         03  FILLER  PIC X(19)  VALUE 'CB1  9021 102 000 1'.      10900000
110600         03  FILLER  PIC X(19)  VALUE 'CB2  9022 115 000 1'.      10910000
110700         03  FILLER  PIC X(19)  VALUE 'CC1  9023 115 000 1'.      10920000
110800         03  FILLER  PIC X(19)  VALUE 'CC2  9024 129 000 1'.      10930000
110900         03  FILLER  PIC X(19)  VALUE 'CD1  9024 138 000 1'.      10940000
111000         03  FILLER  PIC X(19)  VALUE 'CD2  9024 156 000 1'.      10950000
111100         03  FILLER  PIC X(19)  VALUE 'CE1  9024 150 000 1'.      10960000
111200         03  FILLER  PIC X(19)  VALUE 'CE2  9028 168 000 1'.      10970000
111300         03  FILLER  PIC X(19)  VALUE 'ES1  9028 232 000 1'.      10980000
111400         03  FILLER  PIC X(19)  VALUE 'ES2  9029 267 000 1'.      10990000
111500         03  FILLER  PIC X(19)  VALUE 'ES3  9030 358 000 1'.      11000000
111600         03  FILLER  PIC X(19)  VALUE 'HB1  9015 146 000 1'.      11010000
111700         03  FILLER  PIC X(19)  VALUE 'HB2  9016 186 000 1'.      11020000
111800         03  FILLER  PIC X(19)  VALUE 'HC1  9017 148 000 1'.      11030000
111900         03  FILLER  PIC X(19)  VALUE 'HC2  9018 189 000 1'.      11040000
112000         03  FILLER  PIC X(19)  VALUE 'HD1  9018 160 000 1'.      11050000
112100         03  FILLER  PIC X(19)  VALUE 'HD2  9018 204 000 1'.      11060000
112200         03  FILLER  PIC X(19)  VALUE 'HE1  9018 174 000 1'.      11070000
112300         03  FILLER  PIC X(19)  VALUE 'HE2  9018 222 000 1'.      11080000
112400         03  FILLER  PIC X(19)  VALUE 'LB1  9018 114 000 1'.      11090000
112500         03  FILLER  PIC X(19)  VALUE 'LB2  9018 145 000 1'.      11100000
112600         03  FILLER  PIC X(19)  VALUE 'LC1  9018 122 000 1'.      11110000
112700         03  FILLER  PIC X(19)  VALUE 'LC2  9018 156 000 1'.      11120000
112800         03  FILLER  PIC X(19)  VALUE 'LD1  9018 146 000 1'.      11130000
112900         03  FILLER  PIC X(19)  VALUE 'LD2  9018 186 000 1'.      11140000
113000         03  FILLER  PIC X(19)  VALUE 'LE1  9018 154 000 1'.      11150000
113100         03  FILLER  PIC X(19)  VALUE 'LE2  9018 196 000 1'.      11160000
113200         03  FILLER  PIC X(19)  VALUE 'PA1  9001 054 000 1'.      11170000
113300         03  FILLER  PIC X(19)  VALUE 'PA2  9002 059 000 1'.      11180000
113400         03  FILLER  PIC X(19)  VALUE 'PB1  9003 078 000 1'.      11190000
113500         03  FILLER  PIC X(19)  VALUE 'PB2  9004 084 000 1'.      11200000
113600         03  FILLER  PIC X(19)  VALUE 'PC1  9005 102 000 1'.      11210000
113700         03  FILLER  PIC X(19)  VALUE 'PC2  9006 110 000 1'.      11220000
113800         03  FILLER  PIC X(19)  VALUE 'PD1  9007 128 000 1'.      11230000
113900         03  FILLER  PIC X(19)  VALUE 'PD2  9008 138 000 1'.      11240000
114000         03  FILLER  PIC X(19)  VALUE 'PE1  9009 140 000 1'.      11250000
114100         03  FILLER  PIC X(19)  VALUE 'PE2  9010 150 000 1'.      11260000
114200         03  FILLER  PIC X(19)  VALUE 'RHA  9036 091 085 0'.      11270000
114300         03  FILLER  PIC X(19)  VALUE 'RHB  9037 119 085 0'.      11280000
114400         03  FILLER  PIC X(19)  VALUE 'RHC  9038 145 085 0'.      11290000
114500         03  FILLER  PIC X(19)  VALUE 'RHL  9048 215 085 0'.      11300000
114600         03  FILLER  PIC X(19)  VALUE 'RHX  9049 255 085 0'.      11310000
114700         03  FILLER  PIC X(19)  VALUE 'RLA  9031 071 028 0'.      11320000
114800         03  FILLER  PIC X(19)  VALUE 'RLB  9032 150 028 0'.      11330000
114900         03  FILLER  PIC X(19)  VALUE 'RLX  9045 226 028 0'.      11340000
115000         03  FILLER  PIC X(19)  VALUE 'RMA  9033 084 055 0'.      11350000
115100         03  FILLER  PIC X(19)  VALUE 'RMB  9034 122 055 0'.      11360000
115200         03  FILLER  PIC X(19)  VALUE 'RMC  9035 136 055 0'.      11370000
115300         03  FILLER  PIC X(19)  VALUE 'RML  9046 219 055 0'.      11380000
115400         03  FILLER  PIC X(19)  VALUE 'RMX  9047 247 055 0'.      11390000
115500         03  FILLER  PIC X(19)  VALUE 'RUA  9042 099 187 0'.      11400000
115600         03  FILLER  PIC X(19)  VALUE 'RUB  9043 156 187 0'.      11410000
115700         03  FILLER  PIC X(19)  VALUE 'RUC  9044 156 187 0'.      11420000
115800         03  FILLER  PIC X(19)  VALUE 'RUL  9052 257 187 0'.      11430000
115900         03  FILLER  PIC X(19)  VALUE 'RUX  9053 267 187 0'.      11440000
116000         03  FILLER  PIC X(19)  VALUE 'RVA  9039 110 128 0'.      11450000
116100         03  FILLER  PIC X(19)  VALUE 'RVB  9040 111 128 0'.      11460000
116200         03  FILLER  PIC X(19)  VALUE 'RVC  9041 151 128 0'.      11470000
116300         03  FILLER  PIC X(19)  VALUE 'RVL  9050 219 128 0'.      11480000
116400         03  FILLER  PIC X(19)  VALUE 'RVX  9051 261 128 0'.      11490000
116500     02  RUG67-2015-DATA2 REDEFINES RUG67-2015-DATA1 OCCURS 67    11500000
116600             ASCENDING KEY IS RUG67-2015-CODE                     11510000
116700             INDEXED BY RUG67-2015-01.                            11520000
116800         03  RUG67-2015-CODE     PIC X(03).                       11530000
116900         03  RUG67-2015-REGS        OCCURS 1.                     11540000
117000             04  FILLER               PIC XX.                     11550000
117100             04  REV67-2015-CODE      PIC XXXX.                   11560000
117200             04  FILLER               PIC X.                      11570000
117300             04  RUG67-2015-NURSING   PIC 9V99.                   11580000
117400             04  FILLER               PIC X.                      11590000
117500             04  RUG67-2015-THERAPY   PIC 9V99.                   11600000
117600             04  FILLER               PIC X.                      11610000
117700             04  RUG67-2015-FACTOR    PIC 9.                      11620000
117800                                                                  11630000
117900                                                                  11640000
118000                                                                  11650000
118100*********************>>  2015  <<**********************           11660000
118200*********************>>  2016  <<**********************           11661000
118300                                                                  11662000
118400                                                                  11663000
118500***************************************************************   11664000
118600*  LAYUP TABLE AREA FOR RUG 67 CODES FOR FY2016               *   11665000
118700*  EFFECTIVE OCT  1, 2015                                     *   11666001
118800*  FORMAT FOR RUG TABLE 67                                    *   11667000
118900*    N = NURSING   T = THERAPY  F = THERAPY COMPONENT FACTOR  *   11668000
119000***************************************************************   11669000
119100 01  RUG67-2016-TABLE.                                            11669100
119200     02  RUG67-2016-DATA1.                                        11669200
119300*                                      RUG  REV                   11669300
119400*                                      CODE CODE N - T - F        11669400
119500         03  FILLER  PIC X(19)  VALUE 'AAA  9000 054 000 1'.      11669500
119600         03  FILLER  PIC X(19)  VALUE 'BA1  9011 064 000 1'.      11669600
119700         03  FILLER  PIC X(19)  VALUE 'BA2  9012 070 000 1'.      11669700
119800         03  FILLER  PIC X(19)  VALUE 'BB1  9013 090 000 1'.      11669800
119900         03  FILLER  PIC X(19)  VALUE 'BB2  9014 097 000 1'.      11669900
120000         03  FILLER  PIC X(19)  VALUE 'CA1  9019 078 000 1'.      11670000
120100         03  FILLER  PIC X(19)  VALUE 'CA2  9020 088 000 1'.      11670100
120200         03  FILLER  PIC X(19)  VALUE 'CB1  9021 102 000 1'.      11670200
120300         03  FILLER  PIC X(19)  VALUE 'CB2  9022 115 000 1'.      11670300
120400         03  FILLER  PIC X(19)  VALUE 'CC1  9023 115 000 1'.      11670400
120500         03  FILLER  PIC X(19)  VALUE 'CC2  9024 129 000 1'.      11670500
120600         03  FILLER  PIC X(19)  VALUE 'CD1  9024 138 000 1'.      11670600
120700         03  FILLER  PIC X(19)  VALUE 'CD2  9024 156 000 1'.      11670700
120800         03  FILLER  PIC X(19)  VALUE 'CE1  9024 150 000 1'.      11670800
120900         03  FILLER  PIC X(19)  VALUE 'CE2  9028 168 000 1'.      11670900
121000         03  FILLER  PIC X(19)  VALUE 'ES1  9028 232 000 1'.      11671000
121100         03  FILLER  PIC X(19)  VALUE 'ES2  9029 267 000 1'.      11671100
121200         03  FILLER  PIC X(19)  VALUE 'ES3  9030 358 000 1'.      11671200
121300         03  FILLER  PIC X(19)  VALUE 'HB1  9015 146 000 1'.      11671300
121400         03  FILLER  PIC X(19)  VALUE 'HB2  9016 186 000 1'.      11671400
121500         03  FILLER  PIC X(19)  VALUE 'HC1  9017 148 000 1'.      11671500
121600         03  FILLER  PIC X(19)  VALUE 'HC2  9018 189 000 1'.      11671600
121700         03  FILLER  PIC X(19)  VALUE 'HD1  9018 160 000 1'.      11671700
121800         03  FILLER  PIC X(19)  VALUE 'HD2  9018 204 000 1'.      11671800
121900         03  FILLER  PIC X(19)  VALUE 'HE1  9018 174 000 1'.      11671900
122000         03  FILLER  PIC X(19)  VALUE 'HE2  9018 222 000 1'.      11672000
122100         03  FILLER  PIC X(19)  VALUE 'LB1  9018 114 000 1'.      11672100
122200         03  FILLER  PIC X(19)  VALUE 'LB2  9018 145 000 1'.      11672200
122300         03  FILLER  PIC X(19)  VALUE 'LC1  9018 122 000 1'.      11672300
122400         03  FILLER  PIC X(19)  VALUE 'LC2  9018 156 000 1'.      11672400
122500         03  FILLER  PIC X(19)  VALUE 'LD1  9018 146 000 1'.      11672500
122600         03  FILLER  PIC X(19)  VALUE 'LD2  9018 186 000 1'.      11672600
122700         03  FILLER  PIC X(19)  VALUE 'LE1  9018 154 000 1'.      11672700
122800         03  FILLER  PIC X(19)  VALUE 'LE2  9018 196 000 1'.      11672800
122900         03  FILLER  PIC X(19)  VALUE 'PA1  9001 054 000 1'.      11672900
123000         03  FILLER  PIC X(19)  VALUE 'PA2  9002 059 000 1'.      11673000
123100         03  FILLER  PIC X(19)  VALUE 'PB1  9003 078 000 1'.      11673100
123200         03  FILLER  PIC X(19)  VALUE 'PB2  9004 084 000 1'.      11673200
123300         03  FILLER  PIC X(19)  VALUE 'PC1  9005 102 000 1'.      11673300
123400         03  FILLER  PIC X(19)  VALUE 'PC2  9006 110 000 1'.      11673400
123500         03  FILLER  PIC X(19)  VALUE 'PD1  9007 128 000 1'.      11673500
123600         03  FILLER  PIC X(19)  VALUE 'PD2  9008 138 000 1'.      11673600
123700         03  FILLER  PIC X(19)  VALUE 'PE1  9009 140 000 1'.      11673700
123800         03  FILLER  PIC X(19)  VALUE 'PE2  9010 150 000 1'.      11673800
123900         03  FILLER  PIC X(19)  VALUE 'RHA  9036 091 085 0'.      11673900
124000         03  FILLER  PIC X(19)  VALUE 'RHB  9037 119 085 0'.      11674000
124100         03  FILLER  PIC X(19)  VALUE 'RHC  9038 145 085 0'.      11674100
124200         03  FILLER  PIC X(19)  VALUE 'RHL  9048 215 085 0'.      11674200
124300         03  FILLER  PIC X(19)  VALUE 'RHX  9049 255 085 0'.      11674300
124400         03  FILLER  PIC X(19)  VALUE 'RLA  9031 071 028 0'.      11674400
124500         03  FILLER  PIC X(19)  VALUE 'RLB  9032 150 028 0'.      11674500
124600         03  FILLER  PIC X(19)  VALUE 'RLX  9045 226 028 0'.      11674600
124700         03  FILLER  PIC X(19)  VALUE 'RMA  9033 084 055 0'.      11674700
124800         03  FILLER  PIC X(19)  VALUE 'RMB  9034 122 055 0'.      11674800
124900         03  FILLER  PIC X(19)  VALUE 'RMC  9035 136 055 0'.      11674900
125000         03  FILLER  PIC X(19)  VALUE 'RML  9046 219 055 0'.      11675000
125100         03  FILLER  PIC X(19)  VALUE 'RMX  9047 247 055 0'.      11675100
125200         03  FILLER  PIC X(19)  VALUE 'RUA  9042 099 187 0'.      11675200
125300         03  FILLER  PIC X(19)  VALUE 'RUB  9043 156 187 0'.      11675300
125400         03  FILLER  PIC X(19)  VALUE 'RUC  9044 156 187 0'.      11675400
125500         03  FILLER  PIC X(19)  VALUE 'RUL  9052 257 187 0'.      11675500
125600         03  FILLER  PIC X(19)  VALUE 'RUX  9053 267 187 0'.      11675600
125700         03  FILLER  PIC X(19)  VALUE 'RVA  9039 110 128 0'.      11675700
125800         03  FILLER  PIC X(19)  VALUE 'RVB  9040 111 128 0'.      11675800
125900         03  FILLER  PIC X(19)  VALUE 'RVC  9041 151 128 0'.      11675900
126000         03  FILLER  PIC X(19)  VALUE 'RVL  9050 219 128 0'.      11676000
126100         03  FILLER  PIC X(19)  VALUE 'RVX  9051 261 128 0'.      11676100
126200     02  RUG67-2016-DATA2 REDEFINES RUG67-2016-DATA1 OCCURS 67    11676200
126300             ASCENDING KEY IS RUG67-2016-CODE                     11676300
126400             INDEXED BY RUG67-2016-01.                            11676400
126500         03  RUG67-2016-CODE     PIC X(03).                       11676500
126600         03  RUG67-2016-REGS        OCCURS 1.                     11676600
126700             04  FILLER               PIC XX.                     11676700
126800             04  REV67-2016-CODE      PIC XXXX.                   11676800
126900             04  FILLER               PIC X.                      11676900
127000             04  RUG67-2016-NURSING   PIC 9V99.                   11677000
127100             04  FILLER               PIC X.                      11677100
127200             04  RUG67-2016-THERAPY   PIC 9V99.                   11677200
127300             04  FILLER               PIC X.                      11677300
127400             04  RUG67-2016-FACTOR    PIC 9.                      11677400
127500                                                                  11677500
127600                                                                  11677600
127700                                                                  11677700
127800*********************>>  2016  <<**********************           11677800
127900 LINKAGE SECTION.                                                 11678000
128000***************************************************************   11680000
128100*                 * * * * * * * * *                           *   11690000
128200***************************************************************   11700000
128300***************************************************************   11710000
128400*    THIS DATA IS CALCULATED BY THIS SNFPR  SUBROUTINE        *   11720000
128500*    AND PASSED BACK TO THE CALLING PROGRAM                   *   11730000
128600*            RETURN CODE VALUES (SNF-RTC)                     *   11740000
128700*                                                             *   11750000
128800*            SNF-RTC                                          *   11760000
128900*              00 = RUG III GROUP RATE RETURNED               *   11770000
129000*                                                             *   11780000
129100*            SNF-RTC   NO RATE RETURNED                       *   11790000
129200*                                                             *   11800000
129300*              20 = INVALID RUG CODE                          *   11810000
129400*                                                             *   11820000
129500*              30 = INVALID MSA OR CBSA OR WAGE INDEX         *   11830000
129600*                                                             *   11840000
129700*              40 = THRU DATE < JULY 1 1998 OR INVALID        *   11850000
129800*                                                             *   11860000
129900*              50 = INVALID FEDERAL BLEND FOR THAT YEAR       *   11870000
130000*                                                             *   11880000
130100*              60 = INVALID FEDERAL BLEND                     *   11890000
130200*                                                             *   11900000
130300*              61 = FEDERAL BLEND = 0 AND                     *   11910000
130400*                   SNF THRU DATE < JAN 1, 2000               *   11920000
130500*                                                             *   11930000
130600***************************************************************   11940000
130700*     IP-RATE, GS-RATE, MDS-RATE, THERAPY, REHAB              *   11950000
130800***************************************************************   11960000
130900 01  SNF-DATA.                                                    11970000
131000     10  SNF-MSA               PIC XXXX.                          11980000
131100     10  SNF-CBSA              PIC XXXXX.                         11990000
131200     10  SNF-SPEC-WI-IND       PIC X.                             12000000
131300     10  SNF-SPEC-WI           PIC 9(02)V9(04).                   12010000
131400     10  SNF-RUG-CODE.                                            12020000
131500         15  SNF-RUG           PIC XXX.                           12030000
131600         15  FILLER            PIC XX.                            12040000
131700                                                                  12050000
131800     10  SNF-FROM-DATE.                                           12060000
131900         15  SNF-FROM-CC        PIC XX.                           12070000
132000         15  SNF-FROM-YY        PIC XX.                           12080000
132100         15  SNF-FROM-MM        PIC XX.                           12090000
132200         15  SNF-FROM-DD        PIC XX.                           12100000
132300                                                                  12110000
132400     10  SNF-THRU-DATE.                                           12120000
132500         15  SNF-THRU-CC       PIC XX.                            12130000
132600         15  SNF-THRU-YY       PIC XX.                            12140000
132700         15  SNF-THRU-MM       PIC XX.                            12150000
132800         15  SNF-THRU-DD       PIC XX.                            12160000
132900                                                                  12170000
133000     10  SNF-FED-BLEND         PIC X.                             12180000
133100         88  SNF-ALL-FACILITY      VALUE '0'.                     12190000
133200         88  SNF-FED-BLEND-2575PER VALUE '1'.                     12200000
133300         88  SNF-FED-BLEND-5050PER VALUE '2'.                     12210000
133400         88  SNF-FED-BLEND-7525PER VALUE '3'.                     12220000
133500         88  SNF-FED-BLEND-100PER  VALUE '4'.                     12230000
133600     10  SNF-FACILITY-RATE     PIC 9(05)V99.                      12240000
133700     10  SNF-DIAGNOSIS-CODES.                                     12250000
133800         15  SNF-PRIN-DIAG-CODE    PIC X(07).                     12260000
133900         15  SNF-OTHER-DIAG-CODE2  PIC X(07).                     12270000
134000         15  SNF-OTHER-DIAG-CODE3  PIC X(07).                     12280000
134100         15  SNF-OTHER-DIAG-CODE4  PIC X(07).                     12290000
134200         15  SNF-OTHER-DIAG-CODE5  PIC X(07).                     12300000
134300         15  SNF-OTHER-DIAG-CODE6  PIC X(07).                     12310000
134400         15  SNF-OTHER-DIAG-CODE7  PIC X(07).                     12320000
134500         15  SNF-OTHER-DIAG-CODE8  PIC X(07).                     12330000
134600         15  SNF-OTHER-DIAG-CODE9  PIC X(07).                     12340000
134700         15  SNF-OTHER-DIAG-CODE10 PIC X(07).                     12350000
134800         15  SNF-OTHER-DIAG-CODE11 PIC X(07).                     12360000
134900         15  SNF-OTHER-DIAG-CODE12 PIC X(07).                     12370000
135000         15  SNF-OTHER-DIAG-CODE13 PIC X(07).                     12380000
135100         15  SNF-OTHER-DIAG-CODE14 PIC X(07).                     12390000
135200         15  SNF-OTHER-DIAG-CODE15 PIC X(07).                     12400000
135300         15  SNF-OTHER-DIAG-CODE16 PIC X(07).                     12410000
135400         15  SNF-OTHER-DIAG-CODE17 PIC X(07).                     12420000
135500         15  SNF-OTHER-DIAG-CODE18 PIC X(07).                     12430000
135600         15  SNF-OTHER-DIAG-CODE19 PIC X(07).                     12440000
135700         15  SNF-OTHER-DIAG-CODE20 PIC X(07).                     12450000
135800         15  SNF-OTHER-DIAG-CODE21 PIC X(07).                     12460000
135900         15  SNF-OTHER-DIAG-CODE22 PIC X(07).                     12470000
136000         15  SNF-OTHER-DIAG-CODE23 PIC X(07).                     12480000
136100         15  SNF-OTHER-DIAG-CODE24 PIC X(07).                     12490000
136200         15  SNF-OTHER-DIAG-CODE25 PIC X(07).                     12500000
136300     10  SNF-RATE-RTC.                                            12510000
136400         15  SNF-PAYMENT-RATE      PIC 9(06)V99.                  12520000
136500         15  SNF-RTC               PIC XX.                        12530000
136600     10  FILLER                    PIC X(24).                     12540000
136700                                                                  12550000
136800 01  HOLD-VARIABLES.                                              12560000
136900     02  HOLD-VAR-DATA.                                           12570000
137000         05  FACTOR                         PIC 9.                12580000
137100         05  NUR-INDEX                      PIC 9V99.             12590000
137200         05  THR-INDEX                      PIC 9V99.             12600000
137300         05  AREA-WAGE-INDEX                PIC 9(01)V9(04).      12610000
137400         05  IP-RATE                        PIC 9(03)V9(02).      12620000
137500         05  GS-RATE                        PIC 9(02)V9(02).      12630000
137600         05  TH-RATE                        PIC 9(02)V9(02).      12640000
137700         05  REHAB-RATE                     PIC 9(03)V9(02).      12650000
137800         05  NURSING-COMPONENT              PIC 999V99.           12660000
137900         05  THERAPY-COMPONENT              PIC 999V99.           12670000
138000         05  NCM-THR-COMPONENT              PIC 999V99.           12680000
138100         05  NCM-COMPONENT                  PIC 999V99.           12690000
138200         05  PAYMENT-RATE-ADJ               PIC 9(06)V99.         12700000
138300         05  FED-PAYMENT-PORTION            PIC 9(06)V99.         12710000
138400     02  SNFPR-VERSION                      PIC X(09).            12720000
138500                                                                  12730000
138600 01  MSA-WAGE-INDEX-RECORD.                                       12740000
138700     02  HOLD-MSA-WIR-DATA.                                       12750000
138800         05  MSA-WIR-MSA             PIC X(04).                   12760000
138900         05  MSA-WIR-EFFDATE         PIC X(08).                   12770000
139000         05  MSA-WIR-AREA-WAGEIND    PIC 9(02)V9(04).             12780000
139100                                                                  12790000
139200 01  CBSA-WAGE-INDEX-RECORD.                                      12800000
139300     02  HOLD-CBSA-WIR-DATA.                                      12810000
139400         05  CBSA-WIR-CBSA            PIC X(05).                  12820000
139500         05  CBSA-WIR-EFFDATE         PIC X(08).                  12830000
139600         05  CBSA-WIR-AREA-WAGEIND    PIC 9(02)V9(04).            12840000
139700                                                                  12850000
139800 PROCEDURE DIVISION            USING SNF-DATA                     12860000
139900                                     HOLD-VARIABLES               12870000
140000                                     CBSA-WAGE-INDEX-RECORD       12880000
140100                                     MSA-WAGE-INDEX-RECORD.       12890000
140200                                                                  12900000
140300***************************************************************   12910000
140400*    PROCESSING:                                              *   12920000
140500*        -  WILL PROCESS ALL NATIONAL SNF FOR 1998 THRU 2009  *   12930000
140600*                STARTING JULY 1, 1998                        *   12940000
140700***************************************************************   12950000
140800                                                                  12960000
140900     PERFORM 0200-MAINLINE-CONTROL.                               12970000
141000                                                                  12980000
141100     MOVE HOLD-SNF-DATA        TO SNF-DATA.                       12990000
141200                                                                  13000000
141300     GOBACK.                                                      13010000
141400                                                                  13020000
141500 0200-MAINLINE-CONTROL.                                           13030000
141600                                                                  13040000
141700     MOVE SNF-DATA             TO HOLD-SNF-DATA.                  13050000
141800                                                                  13060000
141900     MOVE ALL '0'              TO HLD-RATE-RTC                    13070000
142000                                  HOLD-VAR-DATA                   13080000
142100                                  WK-PAYMENT-RATE                 13090000
142200                                  WK-FACILITY-RATE.               13100000
142300                                                                  13110000
142400     MOVE CAL-VERSION          TO SNFPR-VERSION.                  13120000
142500                                                                  13130000
142600     IF  HLD-RTC = 00                                             13140000
142700         PERFORM 400-CALC-THE-SNF                                 13150000
142800            THRU 400-EXIT.                                        13160000
142900                                                                  13170000
143000 400-CALC-THE-SNF.                                                13180000
143100                                                                  13190000
143200     MOVE HLD-FROM-DATE        TO HLD-PRICE-FROM-DATE             13200000
143300                                                                  13210000
143400     MOVE HLD-THRU-DATE        TO HLD-PRICE-THRU-DATE             13220000
143500                                                                  13230000
143600     IF HLD-PRICE-THRU-MMDD = '1001' AND                          13240000
143700        HLD-PRICE-FROM-DATE < HLD-PRICE-THRU-DATE                 13250000
143800        MOVE '0930'            TO HLD-PRICE-THRU-MMDD.            13260000
143900                                                                  13270000
144000     IF HLD-THRU-DATE < 19980701                                  13280000
144100         MOVE '40'             TO HLD-RTC.                        13290000
144200                                                                  13300000
144300     IF HLD-RTC NOT = 00                                          13310000
144400            GO TO 400-EXIT.                                       13320000
144500                                                                  13330000
144600**************YEARCHANGE 2016.0 *******************************   13340001
144700     IF HLD-PRICE-THRU-DATE > 20150930                            13350000
144800        MOVE CBSA-WIR-AREA-WAGEIND                                13360000
144900                               TO AREA-WAGE-INDEX                 13370000
145000        PERFORM 2016-67-PAYMENT-RATE-CALC                         13380000
145100           THRU 2016-67-EXIT                                      13390000
145200        GO TO 400-EXIT.                                           13400000
145300**************YEARCHANGE 2016.0 *******************************   13410001
145400**************YEARCHANGE 2015.0 *******************************   13411000
145500     IF HLD-PRICE-THRU-DATE > 20140930                            13412000
145600        MOVE CBSA-WIR-AREA-WAGEIND                                13413000
145700                               TO AREA-WAGE-INDEX                 13414000
145800        PERFORM 2015-67-PAYMENT-RATE-CALC                         13415000
145900           THRU 2015-67-EXIT                                      13416000
146000        GO TO 400-EXIT.                                           13417000
146100**************YEARCHANGE 2015.0 *******************************   13418000
146200**************YEARCHANGE 2014.0 *******************************   13420000
146300     IF HLD-PRICE-THRU-DATE > 20130930                            13430000
146400        MOVE CBSA-WIR-AREA-WAGEIND                                13440000
146500                               TO AREA-WAGE-INDEX                 13450000
146600        PERFORM 2014-67-PAYMENT-RATE-CALC                         13460000
146700           THRU 2014-67-EXIT                                      13470000
146800        GO TO 400-EXIT.                                           13480000
146900**************YEARCHANGE 2014.0 *******************************   13490000
147000**************YEARCHANGE 2013.0 *******************************   13500000
147100     IF HLD-PRICE-THRU-DATE > 20120930                            13510000
147200        MOVE CBSA-WIR-AREA-WAGEIND                                13520000
147300                               TO AREA-WAGE-INDEX                 13530000
147400        PERFORM 2013-67-PAYMENT-RATE-CALC                         13540000
147500           THRU 2013-67-EXIT                                      13550000
147600        GO TO 400-EXIT.                                           13560000
147700**************YEARCHANGE 2013.0 *******************************   13570000
147800**************YEARCHANGE 2012.0 *******************************   13580000
147900     IF HLD-PRICE-THRU-DATE > 20110930                            13590000
148000        MOVE CBSA-WIR-AREA-WAGEIND                                13600000
148100                               TO AREA-WAGE-INDEX                 13610000
148200        PERFORM 2012-67-PAYMENT-RATE-CALC                         13620000
148300           THRU 2012-67-EXIT                                      13630000
148400        GO TO 400-EXIT.                                           13640000
148500**************YEARCHANGE 2012.0 *******************************   13650000
148600**************YEARCHANGE 2011.0 *******************************   13660000
148700     IF HLD-PRICE-THRU-DATE > 20100930                            13670000
148800        MOVE CBSA-WIR-AREA-WAGEIND                                13680000
148900                               TO AREA-WAGE-INDEX                 13690000
149000        PERFORM 2011-67-PAYMENT-RATE-CALC                         13700000
149100           THRU 2011-67-EXIT                                      13710000
149200        GO TO 400-EXIT.                                           13720000
149300**************YEARCHANGE 2011.0 *******************************   13730000
149400**************YEARCHANGE 2010.0 *******************************   13740000
149500     IF HLD-PRICE-THRU-DATE > 20090930                            13750000
149600        MOVE CBSA-WIR-AREA-WAGEIND                                13760000
149700                               TO AREA-WAGE-INDEX                 13770000
149800        PERFORM 2010-53-PAYMENT-RATE-CALC                         13780000
149900           THRU 2010-53-EXIT                                      13790000
150000        GO TO 400-EXIT.                                           13800000
150100**************YEARCHANGE 2010.0 *******************************   13810000
150200**************YEARCHANGE 2009.0 *******************************   13820000
150300     IF HLD-PRICE-THRU-DATE > 20080930                            13830000
150400        MOVE CBSA-WIR-AREA-WAGEIND                                13840000
150500                               TO AREA-WAGE-INDEX                 13850000
150600        PERFORM 2009-53-PAYMENT-RATE-CALC                         13860000
150700           THRU 2009-53-EXIT                                      13870000
150800        GO TO 400-EXIT.                                           13880000
150900**************YEARCHANGE 2009.0 *******************************   13890000
151000**************YEARCHANGE 2008.0 *******************************   13900000
151100     IF HLD-PRICE-THRU-DATE > 20070930                            13910000
151200        MOVE CBSA-WIR-AREA-WAGEIND                                13920000
151300                               TO AREA-WAGE-INDEX                 13930000
151400        PERFORM 2008-53-PAYMENT-RATE-CALC                         13940000
151500           THRU 2008-53-EXIT                                      13950000
151600        GO TO 400-EXIT.                                           13960000
151700**************YEARCHANGE 2008.0 *******************************   13970000
151800**************YEARCHANGE 2007.0 *******************************   13980000
151900     IF HLD-PRICE-THRU-DATE > 20060930                            13990000
152000        MOVE CBSA-WIR-AREA-WAGEIND                                14000000
152100                               TO AREA-WAGE-INDEX                 14010000
152200        PERFORM 2007-53-PAYMENT-RATE-CALC THRU 2007-53-EXIT       14020000
152300        GO TO 400-EXIT.                                           14030000
152400**************YEARCHANGE 2007.0 *******************************   14040000
152500**************YEARCHANGE 2006.1 *******************************   14050000
152600     IF HLD-PRICE-THRU-DATE > 20051231                            14060000
152700        MOVE CBSA-WIR-AREA-WAGEIND                                14070000
152800                               TO AREA-WAGE-INDEX                 14080000
152900        PERFORM 2006-53-PAYMENT-RATE-CALC                         14090000
153000           THRU 2006-53-EXIT                                      14100000
153100        GO TO 400-EXIT.                                           14110000
153200**************YEARCHANGE 2006.1 *******************************   14120000
153300**************YEARCHANGE 2006.0 *******************************   14130000
153400     IF HLD-PRICE-THRU-DATE > 20050930 AND                        14140000
153500        HLD-PRICE-THRU-DATE < 20060101                            14150000
153600        MOVE CBSA-WIR-AREA-WAGEIND                                14160000
153700                               TO AREA-WAGE-INDEX                 14170000
153800        PERFORM 2006-44-PAYMENT-RATE-CALC                         14180000
153900           THRU 2006-44-EXIT                                      14190000
154000        GO TO 400-EXIT.                                           14200000
154100**************YEARCHANGE 2006.0 *******************************   14210000
154200                                                                  14220000
154300     MOVE MSA-WIR-AREA-WAGEIND TO AREA-WAGE-INDEX.                14230000
154400                                                                  14240000
154500     IF HLD-PRICE-THRU-DATE > 20040930                            14250000
154600        PERFORM 2005-PAYMENT-RATE-CALC                            14260000
154700           THRU 2005-EXIT                                         14270000
154800        GO TO 400-EXIT.                                           14280000
154900                                                                  14290000
155000     IF HLD-PRICE-THRU-DATE > 20030930                            14300000
155100        PERFORM 2004-PAYMENT-RATE-CALC                            14310000
155200           THRU 2004-EXIT                                         14320000
155300                                                                  14330000
155400        GO TO 400-EXIT.                                           14340000
155500                                                                  14350000
155600     IF HLD-PRICE-THRU-DATE > 20020930                            14360000
155700        PERFORM 2003-PAYMENT-RATE-CALC                            14370000
155800           THRU 2003-EXIT                                         14380000
155900        GO TO 400-EXIT.                                           14390000
156000                                                                  14400000
156100     IF HLD-PRICE-THRU-DATE > 20010930                            14410000
156200        PERFORM 2002-PAYMENT-RATE-CALC                            14420000
156300           THRU 2002-EXIT                                         14430000
156400        GO TO 400-EXIT.                                           14440000
156500                                                                  14450000
156600     IF HLD-PRICE-THRU-DATE > 20010331                            14460000
156700        PERFORM 2001A-PAYMENT-RATE-CALC                           14470000
156800           THRU 2001A-EXIT                                        14480000
156900        GO TO 400-EXIT.                                           14490000
157000                                                                  14500000
157100     IF HLD-PRICE-THRU-DATE > 20000930                            14510000
157200        PERFORM 2001-PAYMENT-RATE-CALC                            14520000
157300           THRU 2001-EXIT                                         14530000
157400        GO TO 400-EXIT.                                           14540000
157500                                                                  14550000
157600     IF HLD-PRICE-THRU-DATE > 19990930                            14560000
157700        PERFORM 2000-PAYMENT-RATE-CALC                            14570000
157800           THRU 2000-EXIT                                         14580000
157900        GO TO 400-EXIT.                                           14590000
158000                                                                  14600000
158100     IF HLD-PRICE-THRU-DATE > 19980630                            14610000
158200        PERFORM 1999-PAYMENT-RATE-CALC                            14620000
158300           THRU 1999-EXIT                                         14630000
158400        GO TO 400-EXIT.                                           14640000
158500                                                                  14650000
158600                                                                  14660000
158700 400-EXIT.                                                        14670000
158800     EXIT.                                                        14680000
158900                                                                  14690000
159000 500-GET-RATES.                                                   14700000
159100                                                                  14710000
159200     PERFORM 600-WHICH-RATES VARYING R1 FROM 1 BY 1               14720000
159300**************YEARCHANGE 2016.0 ***[R1 OCCURS > 19]***************14730001
159400                   UNTIL R1 > 19.                                 14740000
159500**************YEARCHANGE 2016.0 *******************************   14750001
159600 500-EXIT.    EXIT.                                               14760000
159700                                                                  14770000
159800 600-WHICH-RATES.                                                 14780000
159900                                                                  14790000
160000     IF HLD-PRICE-THRU-DATE NOT < REG-EFF-DATE (R1)               14800000
160100       MOVE R-IP-RATE (R1, R2, R3)                                14810000
160200                               TO IP-RATE                         14820000
160300       MOVE R-GS-RATE (R1, R2, R3)                                14830000
160400                               TO GS-RATE,                        14840000
160500                                  NCM-COMPONENT                   14850000
160600       MOVE R-TH-RATE (R1, R2, R3)                                14860000
160700                               TO TH-RATE,                        14870000
160800                                  NCM-THR-COMPONENT               14880000
160900       MOVE R-REHAB-RATE (R1, R2, R3)                             14890000
161000                               TO REHAB-RATE.                     14900000
161100                                                                  14910000
161200 800-SEARCH-4-RUG.                                                14920000
161300     SET RUG01                 TO 1.                              14930000
161400     SEARCH RUG-DATA2 VARYING RUG01                               14940000
161500       AT END                                                     14950000
161600           MOVE '20'           TO HLD-RTC                         14960000
161700           GO TO 800-SEARCH-EXIT                                  14970000
161800       WHEN RUG-CODE (RUG01) = HLD-RUG                            14980000
161900                                                                  14990000
162000           MOVE RUG-NURSING (RUG01, R3)                           15000000
162100                               TO NUR-INDEX                       15010000
162200           MOVE RUG-THERAPY (RUG01, R3)                           15020000
162300                               TO THR-INDEX                       15030000
162400           MOVE RUG-FACTOR  (RUG01, R3)                           15040000
162500                               TO FACTOR.                         15050000
162600                                                                  15060000
162700 800-SEARCH-EXIT.   EXIT.                                         15070000
162800                                                                  15080000
162900 900-SEARCH-4-RUG53.                                              15090000
163000     SET RUG53-01              TO 1.                              15100000
163100     SEARCH RUG53-DATA2 VARYING RUG53-01                          15110000
163200       AT END                                                     15120000
163300           MOVE '20'           TO HLD-RTC                         15130000
163400           GO TO 900-SEARCH-EXIT                                  15140000
163500                                                                  15150000
163600       WHEN RUG53-CODE (RUG53-01) = HLD-RUG                       15160000
163700           MOVE RUG53-NURSING (RUG53-01, R3)                      15170000
163800                               TO NUR-INDEX                       15180000
163900           MOVE RUG53-THERAPY (RUG53-01, R3)                      15190000
164000                               TO THR-INDEX                       15200000
164100           MOVE RUG53-FACTOR  (RUG53-01, R3)                      15210000
164200                               TO FACTOR.                         15220000
164300                                                                  15230000
164400 900-SEARCH-EXIT.   EXIT.                                         15240000
164500                                                                  15250000
164600                                                                  15260000
164700 910-SEARCH-4-RUG53-2010.                                         15270000
164800                                                                  15280000
164900     SET RUG53-2010-01         TO 1.                              15290000
165000                                                                  15300000
165100     SEARCH RUG53-2010-DATA2   VARYING RUG53-2010-01              15310000
165200       AT END                                                     15320000
165300           MOVE '20'           TO HLD-RTC                         15330000
165400           GO TO 910-SEARCH-EXIT                                  15340000
165500                                                                  15350000
165600       WHEN RUG53-2010-CODE (RUG53-2010-01) = HLD-RUG             15360000
165700           MOVE RUG53-2010-NURSING (RUG53-2010-01, R3)            15370000
165800                               TO NUR-INDEX                       15380000
165900           MOVE RUG53-2010-THERAPY (RUG53-2010-01, R3)            15390000
166000                               TO THR-INDEX                       15400000
166100           MOVE RUG53-2010-FACTOR (RUG53-2010-01, R3)             15410000
166200                               TO FACTOR.                         15420000
166300                                                                  15430000
166400 910-SEARCH-EXIT.   EXIT.                                         15440000
166500                                                                  15450000
166600 911-SEARCH-4-RUG67-2011.                                         15460000
166700                                                                  15470000
166800     SET RUG67-2011-01         TO 1.                              15480000
166900     SEARCH RUG67-2011-DATA2   VARYING RUG67-2011-01              15490000
167000       AT END                                                     15500000
167100           MOVE '20'           TO HLD-RTC                         15510000
167200           GO TO 911-SEARCH-EXIT                                  15520000
167300                                                                  15530000
167400       WHEN RUG67-2011-CODE (RUG67-2011-01) = HLD-RUG             15540000
167500           MOVE RUG67-2011-NURSING (RUG67-2011-01, R3)            15550000
167600                               TO NUR-INDEX                       15560000
167700           MOVE RUG67-2011-THERAPY (RUG67-2011-01, R3)            15570000
167800                               TO THR-INDEX                       15580000
167900           MOVE RUG67-2011-FACTOR (RUG67-2011-01, R3)             15590000
168000                               TO FACTOR.                         15600000
168100                                                                  15610000
168200 911-SEARCH-EXIT.   EXIT.                                         15620000
168300                                                                  15630000
168400                                                                  15640000
168500 912-SEARCH-4-RUG67-2012.                                         15650000
168600     SET RUG67-2012-01         TO 1.                              15660000
168700     SEARCH RUG67-2012-DATA2 VARYING RUG67-2012-01                15670000
168800       AT END                                                     15680000
168900           MOVE '20'           TO HLD-RTC                         15690000
169000           GO TO 912-SEARCH-EXIT                                  15700000
169100       WHEN RUG67-2012-CODE (RUG67-2012-01) = HLD-RUG             15710000
169200           MOVE RUG67-2012-NURSING (RUG67-2012-01, R3)            15720000
169300                               TO NUR-INDEX                       15730000
169400           MOVE RUG67-2012-THERAPY (RUG67-2012-01, R3)            15740000
169500                               TO THR-INDEX                       15750000
169600           MOVE RUG67-2012-FACTOR (RUG67-2012-01, R3)             15760000
169700                               TO FACTOR.                         15770000
169800                                                                  15780000
169900 912-SEARCH-EXIT.   EXIT.                                         15790000
170000                                                                  15800000
170100                                                                  15810000
170200 913-SEARCH-4-RUG67-2013.                                         15820000
170300     SET RUG67-2013-01         TO 1.                              15830000
170400                                                                  15840000
170500     SEARCH  RUG67-2013-DATA2                                     15850000
170600       VARYING RUG67-2013-01                                      15860000
170700       AT END                                                     15870000
170800           MOVE '20'           TO HLD-RTC                         15880000
170900           GO TO 913-SEARCH-EXIT                                  15890000
171000                                                                  15900000
171100       WHEN RUG67-2013-CODE (RUG67-2013-01) = HLD-RUG             15910000
171200                                                                  15920000
171300           MOVE RUG67-2013-NURSING (RUG67-2013-01, R3)            15930000
171400                               TO NUR-INDEX                       15940000
171500           MOVE RUG67-2013-THERAPY (RUG67-2013-01, R3)            15950000
171600                               TO THR-INDEX                       15960000
171700           MOVE RUG67-2013-FACTOR (RUG67-2013-01, R3)             15970000
171800                               TO FACTOR.                         15980000
171900                                                                  15990000
172000 913-SEARCH-EXIT.   EXIT.                                         16000000
172100                                                                  16010000
172200                                                                  16020000
172300 914-SEARCH-4-RUG67-2014.                                         16030000
172400     SET RUG67-2014-01         TO 1.                              16040000
172500                                                                  16050000
172600     SEARCH  RUG67-2014-DATA2                                     16060000
172700       VARYING RUG67-2014-01                                      16070000
172800       AT END                                                     16080000
172900           MOVE '20'           TO HLD-RTC                         16090000
173000           GO TO 914-SEARCH-EXIT                                  16100000
173100                                                                  16110000
173200       WHEN RUG67-2014-CODE (RUG67-2014-01) = HLD-RUG             16120000
173300                                                                  16130000
173400           MOVE RUG67-2014-NURSING (RUG67-2014-01, R3)            16140000
173500                               TO NUR-INDEX                       16150000
173600           MOVE RUG67-2014-THERAPY (RUG67-2014-01, R3)            16160000
173700                               TO THR-INDEX                       16170000
173800           MOVE RUG67-2014-FACTOR (RUG67-2014-01, R3)             16180000
173900                               TO FACTOR.                         16190000
174000                                                                  16200000
174100 914-SEARCH-EXIT.   EXIT.                                         16210000
174200                                                                  16220000
174300                                                                  16230000
174400                                                                  16240000
174500 915-SEARCH-4-RUG67-2015.                                         16250000
174600     SET RUG67-2015-01         TO 1.                              16260000
174700                                                                  16270000
174800     SEARCH  RUG67-2015-DATA2                                     16280000
174900       VARYING RUG67-2015-01                                      16290000
175000       AT END                                                     16300000
175100           MOVE '20'           TO HLD-RTC                         16310000
175200           GO TO 915-SEARCH-EXIT                                  16320000
175300                                                                  16330000
175400       WHEN RUG67-2015-CODE (RUG67-2015-01) = HLD-RUG             16340000
175500                                                                  16350000
175600           MOVE RUG67-2015-NURSING (RUG67-2015-01, R3)            16360000
175700                               TO NUR-INDEX                       16370000
175800           MOVE RUG67-2015-THERAPY (RUG67-2015-01, R3)            16380000
175900                               TO THR-INDEX                       16390000
176000           MOVE RUG67-2015-FACTOR (RUG67-2015-01, R3)             16400000
176100                               TO FACTOR.                         16410000
176200                                                                  16420000
176300 915-SEARCH-EXIT.   EXIT.                                         16430000
176400                                                                  16440000
176500                                                                  16441000
176600                                                                  16442000
176700 916-SEARCH-4-RUG67-2016.                                         16443000
176800     SET RUG67-2016-01         TO 1.                              16444000
176900                                                                  16445000
177000     SEARCH  RUG67-2016-DATA2                                     16446000
177100       VARYING RUG67-2016-01                                      16447000
177200       AT END                                                     16448000
177300           MOVE '20'           TO HLD-RTC                         16449000
177400           GO TO 916-SEARCH-EXIT                                  16449100
177500                                                                  16449200
177600       WHEN RUG67-2016-CODE (RUG67-2016-01) = HLD-RUG             16449300
177700                                                                  16449400
177800           MOVE RUG67-2016-NURSING (RUG67-2016-01, R3)            16449500
177900                               TO NUR-INDEX                       16449600
178000           MOVE RUG67-2016-THERAPY (RUG67-2016-01, R3)            16449700
178100                               TO THR-INDEX                       16449800
178200           MOVE RUG67-2016-FACTOR (RUG67-2016-01, R3)             16449900
178300                               TO FACTOR.                         16450000
178400                                                                  16450100
178500 916-SEARCH-EXIT.   EXIT.                                         16450200
178600                                                                  16450300
178700 1999-PAYMENT-RATE-CALC.                                          16451000
178800***************************************************************   16460000
178900*     PAYMENT RATE CALCULATION PROCCESS                           16470000
179000***************************************************************   16480000
179100                                                                  16490000
179200     MOVE 1                    TO R3.                             16500000
179300                                                                  16510000
179400     IF HLD-MSA-RURAL-CHECK                                       16520000
179500        MOVE 1                 TO R2                              16530000
179600     ELSE                                                         16540000
179700        MOVE 2                 TO R2.                             16550000
179800                                                                  16560000
179900     PERFORM 800-SEARCH-4-RUG                                     16570000
180000        THRU 800-SEARCH-EXIT.                                     16580000
180100                                                                  16590000
180200     IF HLD-RTC NOT = 00                                          16600000
180300        GO TO 1999-EXIT.                                          16610000
180400                                                                  16620000
180500     PERFORM 500-GET-RATES.                                       16630000
180600                                                                  16640000
180700     IF SNF-FED-BLEND = 1 OR 2 OR 3 OR 4                          16650000
180800        NEXT SENTENCE                                             16660000
180900     ELSE                                                         16670000
181000        MOVE '60'              TO HLD-RTC                         16680000
181100        MOVE ALL '0'           TO HOLD-VAR-DATA                   16690000
181200        GO TO 1999-EXIT.                                          16700000
181300                                                                  16710000
181400        COMPUTE NURSING-COMPONENT ROUNDED =                       16720000
181500                   (NUR-INDEX * IP-RATE).                         16730000
181600                                                                  16740000
181700        COMPUTE THERAPY-COMPONENT ROUNDED =                       16750000
181800                   (THR-INDEX * REHAB-RATE).                      16760000
181900                                                                  16770000
182000        COMPUTE NCM-THR-COMPONENT ROUNDED =                       16780000
182100                   (FACTOR * NCM-THR-COMPONENT).                  16790000
182200                                                                  16800000
182300        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       16810000
182400                   NURSING-COMPONENT +                            16820000
182500                   THERAPY-COMPONENT +                            16830000
182600                   NCM-THR-COMPONENT +                            16840000
182700                   NCM-COMPONENT.                                 16850000
182800                                                                  16860000
182900        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        16870000
183000             (HLD-PAYMENT-RATE * PERCENT-1999-LABOR) *            16880000
183100               AREA-WAGE-INDEX.                                   16890000
183200                                                                  16900000
183300        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        16910000
183400               (HLD-PAYMENT-RATE * PERCENT-1999-NLABOR) +         16920000
183500                    PAYMENT-RATE-ADJ.                             16930000
183600                                                                  16940000
183700     IF SNF-FED-BLEND = 1                                         16950000
183800        COMPUTE WK-PAYMENT-RATE ROUNDED =                         16960000
183900           (HLD-PAYMENT-RATE * .25)                               16970000
184000        COMPUTE WK-FACILITY-RATE ROUNDED =                        16980000
184100           (HLD-FACILITY-RATE * .75)                              16990000
184200        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              17000000
184300        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        17010000
184400           (WK-PAYMENT-RATE + WK-FACILITY-RATE).                  17020000
184500                                                                  17030000
184600     IF SNF-FED-BLEND = 2                                         17040000
184700        COMPUTE WK-PAYMENT-RATE ROUNDED =                         17050000
184800           (HLD-PAYMENT-RATE * .50)                               17060000
184900        COMPUTE WK-FACILITY-RATE ROUNDED =                        17070000
185000           (HLD-FACILITY-RATE * .50)                              17080000
185100        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              17090000
185200        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        17100000
185300           (WK-PAYMENT-RATE + WK-FACILITY-RATE).                  17110000
185400                                                                  17120000
185500     IF SNF-FED-BLEND = 3                                         17130000
185600        COMPUTE WK-PAYMENT-RATE ROUNDED =                         17140000
185700           (HLD-PAYMENT-RATE * .75)                               17150000
185800        COMPUTE WK-FACILITY-RATE ROUNDED =                        17160000
185900           (HLD-FACILITY-RATE * .25)                              17170000
186000        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              17180000
186100        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        17190000
186200           (WK-PAYMENT-RATE + WK-FACILITY-RATE).                  17200000
186300                                                                  17210000
186400     IF SNF-FED-BLEND = 4                                         17220000
186500        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              17230000
186600        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        17240000
186700                HLD-PAYMENT-RATE * 1.00.                          17250000
186800                                                                  17260000
186900 1999-EXIT.   EXIT.                                               17270000
187000                                                                  17280000
187100 2000-PAYMENT-RATE-CALC.                                          17290000
187200***************************************************************   17300000
187300*     PAYMENT RATE CALCULATION PROCCESS                           17310000
187400***************************************************************   17320000
187500                                                                  17330000
187600     MOVE 1                    TO R3.                             17340000
187700                                                                  17350000
187800     IF HLD-MSA-RURAL-CHECK                                       17360000
187900        MOVE 1                 TO R2                              17370000
188000     ELSE                                                         17380000
188100        MOVE 2                 TO R2.                             17390000
188200                                                                  17400000
188300     PERFORM 800-SEARCH-4-RUG    THRU 800-SEARCH-EXIT.            17410000
188400                                                                  17420000
188500     IF HLD-RTC NOT = 00 GO TO 2000-EXIT.                         17430000
188600                                                                  17440000
188700     PERFORM 500-GET-RATES.                                       17450000
188800                                                                  17460000
188900     IF (HLD-THRU-DATE < 20000101 AND                             17470000
189000         SNF-FED-BLEND = 0)                                       17480000
189100        MOVE '61' TO HLD-RTC                                      17490000
189200        MOVE ALL '0' TO HOLD-VAR-DATA                             17500000
189300        GO TO 2000-EXIT.                                          17510000
189400                                                                  17520000
189500     IF SNF-FED-BLEND = 0 OR 1 OR 2 OR 3 OR 4                     17530000
189600        NEXT SENTENCE                                             17540000
189700     ELSE                                                         17550000
189800        MOVE '60' TO HLD-RTC                                      17560000
189900        MOVE ALL '0' TO HOLD-VAR-DATA                             17570000
190000        GO TO 2000-EXIT.                                          17580000
190100                                                                  17590000
190200        COMPUTE NURSING-COMPONENT ROUNDED =                       17600000
190300                   (NUR-INDEX * IP-RATE).                         17610000
190400                                                                  17620000
190500        COMPUTE THERAPY-COMPONENT ROUNDED =                       17630000
190600                   (THR-INDEX * REHAB-RATE).                      17640000
190700                                                                  17650000
190800        COMPUTE NCM-THR-COMPONENT ROUNDED =                       17660000
190900                   (FACTOR * NCM-THR-COMPONENT).                  17670000
191000                                                                  17680000
191100        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       17690000
191200                   NURSING-COMPONENT +                            17700000
191300                   THERAPY-COMPONENT +                            17710000
191400                   NCM-THR-COMPONENT +                            17720000
191500                   NCM-COMPONENT.                                 17730000
191600                                                                  17740000
191700        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        17750000
191800             (HLD-PAYMENT-RATE * PERCENT-2000-LABOR) *            17760000
191900               AREA-WAGE-INDEX.                                   17770000
192000                                                                  17780000
192100        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        17790000
192200               (HLD-PAYMENT-RATE * PERCENT-2000-NLABOR) +         17800000
192300                    PAYMENT-RATE-ADJ.                             17810000
192400                                                                  17820000
192500     IF  (HLD-THRU-DATE > 20000331 AND                            17830000
192600         (HLD-RUG = 'SE3' OR 'SE2' OR 'SE1' OR 'SSC' OR           17840000
192700                    'SSB' OR 'SSA' OR 'CC2' OR 'CC1' OR           17850000
192800                    'CB2' OR 'CB1' OR 'CA2' OR 'CA1' OR           17860000
192900                    'RHC' OR 'RMC' OR 'RMB'))                     17870000
193000        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        17880000
193100                HLD-PAYMENT-RATE * 1.2.                           17890000
193200                                                                  17900000
193300     IF (HLD-THRU-DATE > 19991231 AND                             17910000
193400         SNF-FED-BLEND = 0)                                       17920000
193500        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        17930000
193600                HLD-FACILITY-RATE * 1.00.                         17940000
193700                                                                  17950000
193800     IF SNF-FED-BLEND = 1                                         17960000
193900        COMPUTE WK-PAYMENT-RATE ROUNDED =                         17970000
194000           (HLD-PAYMENT-RATE * .25)                               17980000
194100        COMPUTE WK-FACILITY-RATE ROUNDED =                        17990000
194200           (HLD-FACILITY-RATE * .75)                              18000000
194300        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              18010000
194400        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        18020000
194500           (WK-PAYMENT-RATE + WK-FACILITY-RATE).                  18030000
194600                                                                  18040000
194700     IF SNF-FED-BLEND = 2                                         18050000
194800        COMPUTE WK-PAYMENT-RATE ROUNDED =                         18060000
194900           (HLD-PAYMENT-RATE * .50)                               18070000
195000        COMPUTE WK-FACILITY-RATE ROUNDED =                        18080000
195100           (HLD-FACILITY-RATE * .50)                              18090000
195200        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              18100000
195300        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        18110000
195400           (WK-PAYMENT-RATE + WK-FACILITY-RATE).                  18120000
195500                                                                  18130000
195600     IF SNF-FED-BLEND = 3                                         18140000
195700        COMPUTE WK-PAYMENT-RATE ROUNDED =                         18150000
195800           (HLD-PAYMENT-RATE * .75)                               18160000
195900        COMPUTE WK-FACILITY-RATE ROUNDED =                        18170000
196000           (HLD-FACILITY-RATE * .25)                              18180000
196100        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              18190000
196200        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        18200000
196300           (WK-PAYMENT-RATE + WK-FACILITY-RATE).                  18210000
196400                                                                  18220000
196500     IF SNF-FED-BLEND = 4                                         18230000
196600        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              18240000
196700        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        18250000
196800                HLD-PAYMENT-RATE * 1.00.                          18260000
196900                                                                  18270000
197000 2000-EXIT.   EXIT.                                               18280000
197100 2001-PAYMENT-RATE-CALC.                                          18290000
197200***************************************************************   18300000
197300*     PAYMENT RATE CALCULATION PROCCESS                           18310000
197400***************************************************************   18320000
197500                                                                  18330000
197600     MOVE 1                    TO R3.                             18340000
197700                                                                  18350000
197800     IF HLD-MSA-RURAL-CHECK                                       18360000
197900        MOVE 1                 TO R2                              18370000
198000     ELSE                                                         18380000
198100        MOVE 2                 TO R2.                             18390000
198200                                                                  18400000
198300     PERFORM 800-SEARCH-4-RUG                                     18410000
198400        THRU 800-SEARCH-EXIT.                                     18420000
198500                                                                  18430000
198600     IF HLD-RTC NOT = 00                                          18440000
198700        GO TO 2001-EXIT.                                          18450000
198800                                                                  18460000
198900     PERFORM 500-GET-RATES.                                       18470000
199000                                                                  18480000
199100     IF (HLD-THRU-DATE < 20000101 AND                             18490000
199200         SNF-FED-BLEND = 0)                                       18500000
199300        MOVE '61'              TO HLD-RTC                         18510000
199400        MOVE ALL '0'           TO HOLD-VAR-DATA                   18520000
199500        GO TO 2001-EXIT.                                          18530000
199600                                                                  18540000
199700     IF SNF-FED-BLEND = 0 OR 1 OR 2 OR 3 OR 4                     18550000
199800        NEXT SENTENCE                                             18560000
199900     ELSE                                                         18570000
200000        MOVE '60'              TO HLD-RTC                         18580000
200100        MOVE ALL '0'           TO HOLD-VAR-DATA                   18590000
200200        GO TO 2001-EXIT.                                          18600000
200300                                                                  18610000
200400        COMPUTE NURSING-COMPONENT ROUNDED =                       18620000
200500                   (NUR-INDEX * IP-RATE).                         18630000
200600                                                                  18640000
200700        COMPUTE THERAPY-COMPONENT ROUNDED =                       18650000
200800                   (THR-INDEX * REHAB-RATE).                      18660000
200900                                                                  18670000
201000        COMPUTE NCM-THR-COMPONENT ROUNDED =                       18680000
201100                   (FACTOR * NCM-THR-COMPONENT).                  18690000
201200                                                                  18700000
201300        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       18710000
201400                   NURSING-COMPONENT +                            18720000
201500                   THERAPY-COMPONENT +                            18730000
201600                   NCM-THR-COMPONENT +                            18740000
201700                   NCM-COMPONENT.                                 18750000
201800                                                                  18760000
201900        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        18770000
202000             (HLD-PAYMENT-RATE * PERCENT-2001-LABOR) *            18780000
202100               AREA-WAGE-INDEX.                                   18790000
202200                                                                  18800000
202300        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        18810000
202400               (HLD-PAYMENT-RATE * PERCENT-2001-NLABOR) +         18820000
202500                    PAYMENT-RATE-ADJ.                             18830000
202600                                                                  18840000
202700     IF  (HLD-RUG = 'SE3' OR 'SE2' OR 'SE1' OR 'SSC' OR           18850000
202800                    'SSB' OR 'SSA' OR 'CC2' OR 'CC1' OR           18860000
202900                    'CB2' OR 'CB1' OR 'CA2' OR 'CA1' OR           18870000
203000                    'RHC' OR 'RMC' OR 'RMB')                      18880000
203100        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        18890000
203200                HLD-PAYMENT-RATE * 1.24                           18900000
203300     ELSE                                                         18910000
203400        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        18920000
203500                HLD-PAYMENT-RATE * 1.04.                          18930000
203600                                                                  18940000
203700     IF  SNF-FED-BLEND = 0                                        18950000
203800        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        18960000
203900                HLD-FACILITY-RATE * 1.00.                         18970000
204000                                                                  18980000
204100     IF SNF-FED-BLEND = 1                                         18990000
204200        COMPUTE WK-PAYMENT-RATE ROUNDED =                         19000000
204300           (HLD-PAYMENT-RATE * .25)                               19010000
204400        COMPUTE WK-FACILITY-RATE ROUNDED =                        19020000
204500           (HLD-FACILITY-RATE * .75)                              19030000
204600        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              19040000
204700        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        19050000
204800           (WK-PAYMENT-RATE + WK-FACILITY-RATE).                  19060000
204900                                                                  19070000
205000     IF SNF-FED-BLEND = 2                                         19080000
205100        COMPUTE WK-PAYMENT-RATE ROUNDED =                         19090000
205200           (HLD-PAYMENT-RATE * .50)                               19100000
205300        COMPUTE WK-FACILITY-RATE ROUNDED =                        19110000
205400           (HLD-FACILITY-RATE * .50)                              19120000
205500        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              19130000
205600        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        19140000
205700           (WK-PAYMENT-RATE + WK-FACILITY-RATE).                  19150000
205800                                                                  19160000
205900     IF SNF-FED-BLEND = 3                                         19170000
206000        COMPUTE WK-PAYMENT-RATE ROUNDED =                         19180000
206100           (HLD-PAYMENT-RATE * .75)                               19190000
206200        COMPUTE WK-FACILITY-RATE ROUNDED =                        19200000
206300           (HLD-FACILITY-RATE * .25)                              19210000
206400        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              19220000
206500        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        19230000
206600           (WK-PAYMENT-RATE + WK-FACILITY-RATE).                  19240000
206700                                                                  19250000
206800     IF SNF-FED-BLEND = 4                                         19260000
206900        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              19270000
207000        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        19280000
207100                HLD-PAYMENT-RATE * 1.00.                          19290000
207200                                                                  19300000
207300                                                                  19310000
207400 2001-EXIT.   EXIT.                                               19320000
207500                                                                  19330000
207600 2001A-PAYMENT-RATE-CALC.                                         19340000
207700***************************************************************   19350000
207800*     PAYMENT RATE CALCULATION PROCCESS EFFECTIVE APR.1, 2001     19360000
207900***************************************************************   19370000
208000                                                                  19380000
208100     MOVE 1                    TO R3.                             19390000
208200                                                                  19400000
208300     IF HLD-MSA-RURAL-CHECK                                       19410000
208400        MOVE 1                 TO R2                              19420000
208500     ELSE                                                         19430000
208600        MOVE 2                 TO R2.                             19440000
208700                                                                  19450000
208800     PERFORM 800-SEARCH-4-RUG                                     19460000
208900        THRU 800-SEARCH-EXIT.                                     19470000
209000                                                                  19480000
209100     IF HLD-RTC NOT = 00                                          19490000
209200        GO TO 2001A-EXIT.                                         19500000
209300                                                                  19510000
209400     PERFORM 500-GET-RATES.                                       19520000
209500                                                                  19530000
209600     IF (HLD-THRU-DATE < 20000101 AND                             19540000
209700         SNF-FED-BLEND = 0)                                       19550000
209800        MOVE '61'              TO HLD-RTC                         19560000
209900        MOVE ALL '0'           TO HOLD-VAR-DATA                   19570000
210000        GO TO 2001A-EXIT.                                         19580000
210100                                                                  19590000
210200     IF SNF-FED-BLEND = 0 OR 1 OR 2 OR 3 OR 4                     19600000
210300        NEXT SENTENCE                                             19610000
210400     ELSE                                                         19620000
210500        MOVE '60'              TO HLD-RTC                         19630000
210600        MOVE ALL '0'           TO HOLD-VAR-DATA                   19640000
210700        GO TO 2001A-EXIT.                                         19650000
210800                                                                  19660000
210900        COMPUTE NURSING-COMPONENT ROUNDED =                       19670000
211000                   (NUR-INDEX * IP-RATE).                         19680000
211100                                                                  19690000
211200        COMPUTE THERAPY-COMPONENT ROUNDED =                       19700000
211300                   (THR-INDEX * REHAB-RATE).                      19710000
211400                                                                  19720000
211500        COMPUTE NCM-THR-COMPONENT ROUNDED =                       19730000
211600                   (FACTOR * NCM-THR-COMPONENT).                  19740000
211700                                                                  19750000
211800        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       19760000
211900                   NURSING-COMPONENT +                            19770000
212000                   THERAPY-COMPONENT +                            19780000
212100                   NCM-THR-COMPONENT +                            19790000
212200                   NCM-COMPONENT.                                 19800000
212300                                                                  19810000
212400        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        19820000
212500             (HLD-PAYMENT-RATE * PERCENT-2001-LABOR) *            19830000
212600               AREA-WAGE-INDEX.                                   19840000
212700                                                                  19850000
212800        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        19860000
212900               (HLD-PAYMENT-RATE * PERCENT-2001-NLABOR) +         19870000
213000                    PAYMENT-RATE-ADJ.                             19880000
213100                                                                  19890000
213200     IF  (HLD-RUG = 'IB2' OR 'IB1' OR 'IA2' OR 'IA1' OR           19900000
213300                    'BB2' OR 'BB1' OR 'BA2' OR 'BA1' OR           19910000
213400                    'PE2' OR 'PE1' OR 'PD2' OR 'PD1' OR           19920000
213500                    'PC2' OR 'PC1' OR 'PB2' OR 'PB1' OR           19930000
213600                    'PA2' OR 'PA1' OR 'AAA')                      19940000
213700        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        19950000
213800                HLD-PAYMENT-RATE * 1.04.                          19960000
213900                                                                  19970000
214000     IF  (HLD-RUG = 'RUC' OR 'RUB' OR 'RUA' OR 'RVC' OR           19980000
214100                    'RVB' OR 'RVA' OR 'RHC' OR 'RHB' OR           19990000
214200                    'RHA' OR 'RMC' OR 'RMB' OR 'RMA' OR           20000000
214300                    'RLB' OR 'RLA')                               20010000
214400        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        20020000
214500                HLD-PAYMENT-RATE * 1.107.                         20030000
214600                                                                  20040000
214700     IF  (HLD-RUG = 'SE3' OR 'SE2' OR 'SE1' OR 'SSC' OR           20050000
214800                    'SSB' OR 'SSA' OR 'CC2' OR 'CC1' OR           20060000
214900                    'CB2' OR 'CB1' OR 'CA2' OR 'CA1')             20070000
215000        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        20080000
215100                HLD-PAYMENT-RATE * 1.24.                          20090000
215200                                                                  20100000
215300     IF  SNF-FED-BLEND = 0                                        20110000
215400        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        20120000
215500                HLD-FACILITY-RATE * 1.00.                         20130000
215600                                                                  20140000
215700     IF SNF-FED-BLEND = 1                                         20150000
215800        COMPUTE WK-PAYMENT-RATE ROUNDED =                         20160000
215900           (HLD-PAYMENT-RATE * .25)                               20170000
216000        COMPUTE WK-FACILITY-RATE ROUNDED =                        20180000
216100           (HLD-FACILITY-RATE * .75)                              20190000
216200        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              20200000
216300        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        20210000
216400           (WK-PAYMENT-RATE + WK-FACILITY-RATE).                  20220000
216500                                                                  20230000
216600     IF SNF-FED-BLEND = 2                                         20240000
216700        COMPUTE WK-PAYMENT-RATE ROUNDED =                         20250000
216800           (HLD-PAYMENT-RATE * .50)                               20260000
216900        COMPUTE WK-FACILITY-RATE ROUNDED =                        20270000
217000           (HLD-FACILITY-RATE * .50)                              20280000
217100        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              20290000
217200        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        20300000
217300           (WK-PAYMENT-RATE + WK-FACILITY-RATE).                  20310000
217400                                                                  20320000
217500     IF SNF-FED-BLEND = 3                                         20330000
217600        COMPUTE WK-PAYMENT-RATE ROUNDED =                         20340000
217700           (HLD-PAYMENT-RATE * .75)                               20350000
217800        COMPUTE WK-FACILITY-RATE ROUNDED =                        20360000
217900           (HLD-FACILITY-RATE * .25)                              20370000
218000        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              20380000
218100        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        20390000
218200           (WK-PAYMENT-RATE + WK-FACILITY-RATE).                  20400000
218300                                                                  20410000
218400     IF SNF-FED-BLEND = 4                                         20420000
218500        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              20430000
218600        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        20440000
218700                HLD-PAYMENT-RATE * 1.00.                          20450000
218800                                                                  20460000
218900                                                                  20470000
219000 2001A-EXIT.   EXIT.                                              20480000
219100                                                                  20490000
219200 2002-PAYMENT-RATE-CALC.                                          20500000
219300***************************************************************   20510000
219400*     PAYMENT RATE CALCULATION PROCCESS EFFECTIVE OCT.1, 2001     20520000
219500***************************************************************   20530000
219600                                                                  20540000
219700     MOVE 1                    TO R3.                             20550000
219800                                                                  20560000
219900     IF HLD-MSA-RURAL-CHECK                                       20570000
220000        MOVE 1                 TO R2                              20580000
220100     ELSE                                                         20590000
220200        MOVE 2                 TO R2.                             20600000
220300                                                                  20610000
220400     PERFORM 800-SEARCH-4-RUG                                     20620000
220500        THRU 800-SEARCH-EXIT.                                     20630000
220600                                                                  20640000
220700     IF HLD-RTC NOT = 00                                          20650000
220800        GO TO 2002-EXIT.                                          20660000
220900                                                                  20670000
221000     PERFORM 500-GET-RATES.                                       20680000
221100                                                                  20690000
221200     IF (HLD-THRU-DATE < 20000101 AND                             20700000
221300         SNF-FED-BLEND = 0)                                       20710000
221400        MOVE '61'              TO HLD-RTC                         20720000
221500        MOVE ALL '0'           TO HOLD-VAR-DATA                   20730000
221600        GO TO 2002-EXIT.                                          20740000
221700                                                                  20750000
221800     IF SNF-FED-BLEND = 0 OR 1 OR 2 OR 3 OR 4                     20760000
221900        NEXT SENTENCE                                             20770000
222000     ELSE                                                         20780000
222100        MOVE '60'              TO HLD-RTC                         20790000
222200        MOVE ALL '0'           TO HOLD-VAR-DATA                   20800000
222300        GO TO 2002-EXIT.                                          20810000
222400                                                                  20820000
222500        COMPUTE NURSING-COMPONENT ROUNDED =                       20830000
222600                   (NUR-INDEX * IP-RATE).                         20840000
222700                                                                  20850000
222800        COMPUTE THERAPY-COMPONENT ROUNDED =                       20860000
222900                   (THR-INDEX * REHAB-RATE).                      20870000
223000                                                                  20880000
223100        COMPUTE NCM-THR-COMPONENT ROUNDED =                       20890000
223200                   (FACTOR * NCM-THR-COMPONENT).                  20900000
223300                                                                  20910000
223400        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       20920000
223500                   NURSING-COMPONENT +                            20930000
223600                   THERAPY-COMPONENT +                            20940000
223700                   NCM-THR-COMPONENT +                            20950000
223800                   NCM-COMPONENT.                                 20960000
223900                                                                  20970000
224000        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        20980000
224100             (HLD-PAYMENT-RATE * PERCENT-2002-LABOR) *            20990000
224200               AREA-WAGE-INDEX.                                   21000000
224300                                                                  21010000
224400        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        21020000
224500               (HLD-PAYMENT-RATE * PERCENT-2002-NLABOR) +         21030000
224600                    PAYMENT-RATE-ADJ.                             21040000
224700                                                                  21050000
224800     IF  (HLD-RUG = 'IB2' OR 'IB1' OR 'IA2' OR 'IA1' OR           21060000
224900                    'BB2' OR 'BB1' OR 'BA2' OR 'BA1' OR           21070000
225000                    'PE2' OR 'PE1' OR 'PD2' OR 'PD1' OR           21080000
225100                    'PC2' OR 'PC1' OR 'PB2' OR 'PB1' OR           21090000
225200                    'PA2' OR 'PA1' OR 'AAA')                      21100000
225300        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        21110000
225400                HLD-PAYMENT-RATE * 1.04.                          21120000
225500                                                                  21130000
225600     IF  (HLD-RUG = 'RUC' OR 'RUB' OR 'RUA' OR 'RVC' OR           21140000
225700                    'RVB' OR 'RVA' OR 'RHC' OR 'RHB' OR           21150000
225800                    'RHA' OR 'RMC' OR 'RMB' OR 'RMA' OR           21160000
225900                    'RLB' OR 'RLA')                               21170000
226000        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        21180000
226100                HLD-PAYMENT-RATE * 1.107.                         21190000
226200                                                                  21200000
226300     IF  (HLD-RUG = 'SE3' OR 'SE2' OR 'SE1' OR 'SSC' OR           21210000
226400                    'SSB' OR 'SSA' OR 'CC2' OR 'CC1' OR           21220000
226500                    'CB2' OR 'CB1' OR 'CA2' OR 'CA1')             21230000
226600        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        21240000
226700                HLD-PAYMENT-RATE * 1.24.                          21250000
226800                                                                  21260000
226900     IF  SNF-FED-BLEND = 0                                        21270000
227000        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        21280000
227100                HLD-FACILITY-RATE * 1.00.                         21290000
227200                                                                  21300000
227300     IF SNF-FED-BLEND = 1                                         21310000
227400        COMPUTE WK-PAYMENT-RATE ROUNDED =                         21320000
227500           (HLD-PAYMENT-RATE * .25)                               21330000
227600        COMPUTE WK-FACILITY-RATE ROUNDED =                        21340000
227700           (HLD-FACILITY-RATE * .75)                              21350000
227800        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              21360000
227900        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        21370000
228000           (WK-PAYMENT-RATE + WK-FACILITY-RATE).                  21380000
228100                                                                  21390000
228200     IF SNF-FED-BLEND = 2                                         21400000
228300        COMPUTE WK-PAYMENT-RATE ROUNDED =                         21410000
228400           (HLD-PAYMENT-RATE * .50)                               21420000
228500        COMPUTE WK-FACILITY-RATE ROUNDED =                        21430000
228600           (HLD-FACILITY-RATE * .50)                              21440000
228700        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              21450000
228800        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        21460000
228900           (WK-PAYMENT-RATE + WK-FACILITY-RATE).                  21470000
229000                                                                  21480000
229100     IF SNF-FED-BLEND = 3                                         21490000
229200        COMPUTE WK-PAYMENT-RATE ROUNDED =                         21500000
229300           (HLD-PAYMENT-RATE * .75)                               21510000
229400        COMPUTE WK-FACILITY-RATE ROUNDED =                        21520000
229500           (HLD-FACILITY-RATE * .25)                              21530000
229600        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              21540000
229700        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        21550000
229800           (WK-PAYMENT-RATE + WK-FACILITY-RATE).                  21560000
229900                                                                  21570000
230000     IF SNF-FED-BLEND = 4                                         21580000
230100        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              21590000
230200        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        21600000
230300                HLD-PAYMENT-RATE * 1.00.                          21610000
230400                                                                  21620000
230500                                                                  21630000
230600 2002-EXIT.   EXIT.                                               21640000
230700                                                                  21650000
230800 2003-PAYMENT-RATE-CALC.                                          21660000
230900***************************************************************   21670000
231000*     PAYMENT RATE CALCULATION PROCCESS EFFECTIVE OCT.1, 2002     21680000
231100***************************************************************   21690000
231200                                                                  21700000
231300     MOVE 1                    TO R3.                             21710000
231400                                                                  21720000
231500     IF HLD-MSA-RURAL-CHECK                                       21730000
231600        MOVE 1                 TO R2                              21740000
231700     ELSE                                                         21750000
231800        MOVE 2                 TO R2.                             21760000
231900                                                                  21770000
232000     PERFORM 800-SEARCH-4-RUG                                     21780000
232100        THRU 800-SEARCH-EXIT.                                     21790000
232200                                                                  21800000
232300     IF HLD-RTC NOT = 00                                          21810000
232400        GO TO 2003-EXIT.                                          21820000
232500                                                                  21830000
232600     PERFORM 500-GET-RATES.                                       21840000
232700                                                                  21850000
232800     IF (HLD-THRU-DATE < 20000101 AND                             21860000
232900         SNF-FED-BLEND = 0)                                       21870000
233000        MOVE '61'              TO HLD-RTC                         21880000
233100        MOVE ALL '0'           TO HOLD-VAR-DATA                   21890000
233200        GO TO 2003-EXIT.                                          21900000
233300                                                                  21910000
233400     IF SNF-FED-BLEND = 0 OR 4                                    21920000
233500        NEXT SENTENCE                                             21930000
233600     ELSE                                                         21940000
233700        MOVE '60'              TO HLD-RTC                         21950000
233800        MOVE ALL '0'           TO HOLD-VAR-DATA                   21960000
233900        GO TO 2003-EXIT.                                          21970000
234000                                                                  21980000
234100        COMPUTE NURSING-COMPONENT ROUNDED =                       21990000
234200                   (NUR-INDEX * IP-RATE).                         22000000
234300                                                                  22010000
234400        COMPUTE THERAPY-COMPONENT ROUNDED =                       22020000
234500                   (THR-INDEX * REHAB-RATE).                      22030000
234600                                                                  22040000
234700        COMPUTE NCM-THR-COMPONENT ROUNDED =                       22050000
234800                   (FACTOR * NCM-THR-COMPONENT).                  22060000
234900                                                                  22070000
235000        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       22080000
235100                   NURSING-COMPONENT +                            22090000
235200                   THERAPY-COMPONENT +                            22100000
235300                   NCM-THR-COMPONENT +                            22110000
235400                   NCM-COMPONENT.                                 22120000
235500                                                                  22130000
235600        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        22140000
235700             (HLD-PAYMENT-RATE * PERCENT-2003-LABOR) *            22150000
235800               AREA-WAGE-INDEX.                                   22160000
235900                                                                  22170000
236000        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        22180000
236100               (HLD-PAYMENT-RATE * PERCENT-2003-NLABOR) +         22190000
236200                    PAYMENT-RATE-ADJ.                             22200000
236300                                                                  22210000
236400     IF  (HLD-RUG = 'IB2' OR 'IB1' OR 'IA2' OR 'IA1' OR           22220000
236500                    'BB2' OR 'BB1' OR 'BA2' OR 'BA1' OR           22230000
236600                    'PE2' OR 'PE1' OR 'PD2' OR 'PD1' OR           22240000
236700                    'PC2' OR 'PC1' OR 'PB2' OR 'PB1' OR           22250000
236800                    'PA2' OR 'PA1' OR 'AAA')                      22260000
236900        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        22270000
237000                HLD-PAYMENT-RATE * 1.00.                          22280000
237100                                                                  22290000
237200     IF  (HLD-RUG = 'RUC' OR 'RUB' OR 'RUA' OR 'RVC' OR           22300000
237300                    'RVB' OR 'RVA' OR 'RHC' OR 'RHB' OR           22310000
237400                    'RHA' OR 'RMC' OR 'RMB' OR 'RMA' OR           22320000
237500                    'RLB' OR 'RLA')                               22330000
237600        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        22340000
237700                HLD-PAYMENT-RATE * 1.067.                         22350000
237800                                                                  22360000
237900     IF  (HLD-RUG = 'SE3' OR 'SE2' OR 'SE1' OR 'SSC' OR           22370000
238000                    'SSB' OR 'SSA' OR 'CC2' OR 'CC1' OR           22380000
238100                    'CB2' OR 'CB1' OR 'CA2' OR 'CA1')             22390000
238200        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        22400000
238300                HLD-PAYMENT-RATE * 1.20.                          22410000
238400                                                                  22420000
238500     IF  SNF-FED-BLEND = 0                                        22430000
238600        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        22440000
238700                HLD-FACILITY-RATE * 1.00.                         22450000
238800                                                                  22460000
238900                                                                  22470000
239000     IF SNF-FED-BLEND = 4                                         22480000
239100        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              22490000
239200        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        22500000
239300                HLD-PAYMENT-RATE * 1.00.                          22510000
239400                                                                  22520000
239500                                                                  22530000
239600 2003-EXIT.   EXIT.                                               22540000
239700 2004-PAYMENT-RATE-CALC.                                          22550000
239800***************************************************************   22560000
239900*     PAYMENT RATE CALCULATION PROCCESS EFFECTIVE OCT.1, 2003     22570000
240000***************************************************************   22580000
240100                                                                  22590000
240200     MOVE 1                    TO R3.                             22600000
240300                                                                  22610000
240400     IF HLD-MSA-RURAL-CHECK                                       22620000
240500        MOVE 1                 TO R2                              22630000
240600     ELSE                                                         22640000
240700        MOVE 2                 TO R2.                             22650000
240800                                                                  22660000
240900     PERFORM 800-SEARCH-4-RUG                                     22670000
241000        THRU 800-SEARCH-EXIT.                                     22680000
241100                                                                  22690000
241200     IF HLD-RTC NOT = 00                                          22700000
241300        GO TO 2004-EXIT.                                          22710000
241400                                                                  22720000
241500     PERFORM 500-GET-RATES.                                       22730000
241600                                                                  22740000
241700     IF (HLD-THRU-DATE < 20000101 AND                             22750000
241800         SNF-FED-BLEND = 0)                                       22760000
241900        MOVE '61'              TO HLD-RTC                         22770000
242000        MOVE ALL '0'           TO HOLD-VAR-DATA                   22780000
242100        GO TO 2004-EXIT.                                          22790000
242200                                                                  22800000
242300     IF SNF-FED-BLEND = 0 OR 4                                    22810000
242400        NEXT SENTENCE                                             22820000
242500     ELSE                                                         22830000
242600        MOVE '60'              TO HLD-RTC                         22840000
242700        MOVE ALL '0'           TO HOLD-VAR-DATA                   22850000
242800        GO TO 2004-EXIT.                                          22860000
242900                                                                  22870000
243000        COMPUTE NURSING-COMPONENT ROUNDED =                       22880000
243100                   (NUR-INDEX * IP-RATE).                         22890000
243200                                                                  22900000
243300        COMPUTE THERAPY-COMPONENT ROUNDED =                       22910000
243400                   (THR-INDEX * REHAB-RATE).                      22920000
243500                                                                  22930000
243600        COMPUTE NCM-THR-COMPONENT ROUNDED =                       22940000
243700                   (FACTOR * NCM-THR-COMPONENT).                  22950000
243800                                                                  22960000
243900        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       22970000
244000                   NURSING-COMPONENT +                            22980000
244100                   THERAPY-COMPONENT +                            22990000
244200                   NCM-THR-COMPONENT +                            23000000
244300                   NCM-COMPONENT.                                 23010000
244400                                                                  23020000
244500        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        23030000
244600             (HLD-PAYMENT-RATE * PERCENT-2004-LABOR) *            23040000
244700               AREA-WAGE-INDEX.                                   23050000
244800                                                                  23060000
244900        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        23070000
245000               (HLD-PAYMENT-RATE * PERCENT-2004-NLABOR) +         23080000
245100                    PAYMENT-RATE-ADJ.                             23090000
245200                                                                  23100000
245300     IF  (HLD-RUG = 'IB2' OR 'IB1' OR 'IA2' OR 'IA1' OR           23110000
245400                    'BB2' OR 'BB1' OR 'BA2' OR 'BA1' OR           23120000
245500                    'PE2' OR 'PE1' OR 'PD2' OR 'PD1' OR           23130000
245600                    'PC2' OR 'PC1' OR 'PB2' OR 'PB1' OR           23140000
245700                    'PA2' OR 'PA1' OR 'AAA')                      23150000
245800        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        23160000
245900                HLD-PAYMENT-RATE * 1.00.                          23170000
246000                                                                  23180000
246100     IF  (HLD-RUG = 'RUC' OR 'RUB' OR 'RUA' OR 'RVC' OR           23190000
246200                    'RVB' OR 'RVA' OR 'RHC' OR 'RHB' OR           23200000
246300                    'RHA' OR 'RMC' OR 'RMB' OR 'RMA' OR           23210000
246400                    'RLB' OR 'RLA')                               23220000
246500        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        23230000
246600                HLD-PAYMENT-RATE * 1.067.                         23240000
246700                                                                  23250000
246800     IF  (HLD-RUG = 'SE3' OR 'SE2' OR 'SE1' OR 'SSC' OR           23260000
246900                    'SSB' OR 'SSA' OR 'CC2' OR 'CC1' OR           23270000
247000                    'CB2' OR 'CB1' OR 'CA2' OR 'CA1')             23280000
247100        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        23290000
247200                HLD-PAYMENT-RATE * 1.20.                          23300000
247300                                                                  23310000
247400     IF  SNF-FED-BLEND = 0                                        23320000
247500        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        23330000
247600                HLD-FACILITY-RATE * 1.00.                         23340000
247700                                                                  23350000
247800                                                                  23360000
247900     IF SNF-FED-BLEND = 4                                         23370000
248000        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              23380000
248100        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        23390000
248200                HLD-PAYMENT-RATE * 1.00.                          23400000
248300                                                                  23410000
248400                                                                  23420000
248500 2004-EXIT.   EXIT.                                               23430000
248600                                                                  23440000
248700 2005-PAYMENT-RATE-CALC.                                          23450000
248800***************************************************************   23460000
248900*     PAYMENT RATE CALCULATION PROCCESS EFFECTIVE OCT.1, 2004     23470000
249000***************************************************************   23480000
249100                                                                  23490000
249200     MOVE 1                    TO R3.                             23500000
249300                                                                  23510000
249400     IF HLD-MSA-RURAL-CHECK                                       23520000
249500        MOVE 1                 TO R2                              23530000
249600     ELSE                                                         23540000
249700        MOVE 2                 TO R2.                             23550000
249800                                                                  23560000
249900     PERFORM 800-SEARCH-4-RUG                                     23570000
250000        THRU 800-SEARCH-EXIT.                                     23580000
250100                                                                  23590000
250200     IF HLD-RTC NOT = 00                                          23600000
250300        GO TO 2005-EXIT.                                          23610000
250400                                                                  23620000
250500     PERFORM 500-GET-RATES.                                       23630000
250600                                                                  23640000
250700     IF (HLD-THRU-DATE < 20000101 AND                             23650000
250800         SNF-FED-BLEND = 0)                                       23660000
250900        MOVE '61'              TO HLD-RTC                         23670000
251000        MOVE ALL '0'           TO HOLD-VAR-DATA                   23680000
251100        GO TO 2005-EXIT.                                          23690000
251200                                                                  23700000
251300     IF SNF-FED-BLEND = 0 OR 4                                    23710000
251400        NEXT SENTENCE                                             23720000
251500     ELSE                                                         23730000
251600        MOVE '60'              TO HLD-RTC                         23740000
251700        MOVE ALL '0'           TO HOLD-VAR-DATA                   23750000
251800        GO TO 2005-EXIT.                                          23760000
251900                                                                  23770000
252000        COMPUTE NURSING-COMPONENT ROUNDED =                       23780000
252100                   (NUR-INDEX * IP-RATE).                         23790000
252200                                                                  23800000
252300        COMPUTE THERAPY-COMPONENT ROUNDED =                       23810000
252400                   (THR-INDEX * REHAB-RATE).                      23820000
252500                                                                  23830000
252600        COMPUTE NCM-THR-COMPONENT ROUNDED =                       23840000
252700                   (FACTOR * NCM-THR-COMPONENT).                  23850000
252800                                                                  23860000
252900        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       23870000
253000                   NURSING-COMPONENT +                            23880000
253100                   THERAPY-COMPONENT +                            23890000
253200                   NCM-THR-COMPONENT +                            23900000
253300                   NCM-COMPONENT.                                 23910000
253400                                                                  23920000
253500        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        23930000
253600             (HLD-PAYMENT-RATE * PERCENT-2005-LABOR) *            23940000
253700               AREA-WAGE-INDEX.                                   23950000
253800                                                                  23960000
253900        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        23970000
254000               (HLD-PAYMENT-RATE * PERCENT-2005-NLABOR) +         23980000
254100                    PAYMENT-RATE-ADJ.                             23990000
254200                                                                  24000000
254300     IF '042   ' = SNF-PRIN-DIAG-CODE   OR                        24010000
254400                   SNF-OTHER-DIAG-CODE2 OR                        24020000
254500                   SNF-OTHER-DIAG-CODE3 OR                        24030000
254600                   SNF-OTHER-DIAG-CODE4 OR                        24040000
254700                   SNF-OTHER-DIAG-CODE5 OR                        24050000
254800                   SNF-OTHER-DIAG-CODE6 OR                        24060000
254900                   SNF-OTHER-DIAG-CODE7 OR                        24070000
255000                   SNF-OTHER-DIAG-CODE8 OR                        24080000
255100                   SNF-OTHER-DIAG-CODE9 OR                        24090000
255200                   SNF-OTHER-DIAG-CODE10 OR                       24100000
255300                   SNF-OTHER-DIAG-CODE11 OR                       24110000
255400                   SNF-OTHER-DIAG-CODE12 OR                       24120000
255500                   SNF-OTHER-DIAG-CODE13 OR                       24130000
255600                   SNF-OTHER-DIAG-CODE14 OR                       24140000
255700                   SNF-OTHER-DIAG-CODE15 OR                       24150000
255800                   SNF-OTHER-DIAG-CODE16 OR                       24160000
255900                   SNF-OTHER-DIAG-CODE17 OR                       24170000
256000                   SNF-OTHER-DIAG-CODE18 OR                       24180000
256100                   SNF-OTHER-DIAG-CODE19 OR                       24190000
256200                   SNF-OTHER-DIAG-CODE20 OR                       24200000
256300                   SNF-OTHER-DIAG-CODE21 OR                       24210000
256400                   SNF-OTHER-DIAG-CODE22 OR                       24220000
256500                   SNF-OTHER-DIAG-CODE23 OR                       24230000
256600                   SNF-OTHER-DIAG-CODE24 OR                       24240000
256700                   SNF-OTHER-DIAG-CODE25                          24250000
256800         COMPUTE HLD-PAYMENT-RATE ROUNDED =                       24260000
256900                 HLD-PAYMENT-RATE * 2.28                          24270000
257000         GO TO 2005-CONTINUE.                                     24280000
257100                                                                  24290000
257200     IF  (HLD-RUG = 'IB2' OR 'IB1' OR 'IA2' OR 'IA1' OR           24300000
257300                    'BB2' OR 'BB1' OR 'BA2' OR 'BA1' OR           24310000
257400                    'PE2' OR 'PE1' OR 'PD2' OR 'PD1' OR           24320000
257500                    'PC2' OR 'PC1' OR 'PB2' OR 'PB1' OR           24330000
257600                    'PA2' OR 'PA1' OR 'AAA')                      24340000
257700        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        24350000
257800                HLD-PAYMENT-RATE * 1.00.                          24360000
257900                                                                  24370000
258000     IF  (HLD-RUG = 'RUC' OR 'RUB' OR 'RUA' OR 'RVC' OR           24380000
258100                    'RVB' OR 'RVA' OR 'RHC' OR 'RHB' OR           24390000
258200                    'RHA' OR 'RMC' OR 'RMB' OR 'RMA' OR           24400000
258300                    'RLB' OR 'RLA')                               24410000
258400        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        24420000
258500                HLD-PAYMENT-RATE * 1.067.                         24430000
258600                                                                  24440000
258700     IF  (HLD-RUG = 'SE3' OR 'SE2' OR 'SE1' OR 'SSC' OR           24450000
258800                    'SSB' OR 'SSA' OR 'CC2' OR 'CC1' OR           24460000
258900                    'CB2' OR 'CB1' OR 'CA2' OR 'CA1')             24470000
259000        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        24480000
259100                HLD-PAYMENT-RATE * 1.20.                          24490000
259200                                                                  24500000
259300 2005-CONTINUE.                                                   24510000
259400                                                                  24520000
259500     IF  SNF-FED-BLEND = 0                                        24530000
259600        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        24540000
259700                HLD-FACILITY-RATE * 1.00.                         24550000
259800                                                                  24560000
259900     IF SNF-FED-BLEND = 4                                         24570000
260000        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              24580000
260100        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        24590000
260200                HLD-PAYMENT-RATE * 1.00.                          24600000
260300                                                                  24610000
260400 2005-EXIT.   EXIT.                                               24620000
260500                                                                  24630000
260600 2006-44-PAYMENT-RATE-CALC.                                       24640000
260700***************************************************************   24650000
260800*     PAYMENT RATE CALCULATION PROCCESS                           24660000
260900*      EFFECTIVE OCT.1, 2005 TIL JAN.1, 2006                      24670000
261000***************************************************************   24680000
261100                                                                  24690000
261200     IF HLD-CBSA = '     '                                        24700000
261300        MOVE '30'              TO HLD-RTC                         24710000
261400        GO TO 2006-44-EXIT.                                       24720000
261500                                                                  24730000
261600     MOVE 1                    TO R3.                             24740000
261700                                                                  24750000
261800     IF HLD-CBSA-RURAL-CHECK                                      24760000
261900        MOVE 1                 TO R2                              24770000
262000     ELSE                                                         24780000
262100        MOVE 2                 TO R2.                             24790000
262200                                                                  24800000
262300     PERFORM 800-SEARCH-4-RUG                                     24810000
262400        THRU 800-SEARCH-EXIT.                                     24820000
262500                                                                  24830000
262600     IF HLD-RTC NOT = 00                                          24840000
262700        GO TO 2006-44-EXIT.                                       24850000
262800                                                                  24860000
262900     PERFORM 500-GET-RATES.                                       24870000
263000                                                                  24880000
263100     IF SNF-FED-BLEND = 0 OR 4                                    24890000
263200        NEXT SENTENCE                                             24900000
263300     ELSE                                                         24910000
263400        MOVE '60'              TO HLD-RTC                         24920000
263500        MOVE ALL '0'           TO HOLD-VAR-DATA                   24930000
263600        GO TO 2006-44-EXIT.                                       24940000
263700                                                                  24950000
263800        COMPUTE NURSING-COMPONENT ROUNDED =                       24960000
263900                   (NUR-INDEX * IP-RATE).                         24970000
264000                                                                  24980000
264100        COMPUTE THERAPY-COMPONENT ROUNDED =                       24990000
264200                   (THR-INDEX * REHAB-RATE).                      25000000
264300                                                                  25010000
264400        COMPUTE NCM-THR-COMPONENT ROUNDED =                       25020000
264500                   (FACTOR * NCM-THR-COMPONENT).                  25030000
264600                                                                  25040000
264700        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       25050000
264800                   NURSING-COMPONENT +                            25060000
264900                   THERAPY-COMPONENT +                            25070000
265000                   NCM-THR-COMPONENT +                            25080000
265100                   NCM-COMPONENT.                                 25090000
265200                                                                  25100000
265300        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        25110000
265400             (HLD-PAYMENT-RATE * PERCENT-2006-LABOR) *            25120000
265500               AREA-WAGE-INDEX.                                   25130000
265600                                                                  25140000
265700        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        25150000
265800               (HLD-PAYMENT-RATE * PERCENT-2006-NLABOR) +         25160000
265900                    PAYMENT-RATE-ADJ.                             25170000
266000                                                                  25180000
266100     IF '042   ' = SNF-PRIN-DIAG-CODE    OR                       25190000
266200                   SNF-OTHER-DIAG-CODE2  OR                       25200000
266300                   SNF-OTHER-DIAG-CODE3  OR                       25210000
266400                   SNF-OTHER-DIAG-CODE4  OR                       25220000
266500                   SNF-OTHER-DIAG-CODE5  OR                       25230000
266600                   SNF-OTHER-DIAG-CODE6  OR                       25240000
266700                   SNF-OTHER-DIAG-CODE7  OR                       25250000
266800                   SNF-OTHER-DIAG-CODE8  OR                       25260000
266900                   SNF-OTHER-DIAG-CODE9  OR                       25270000
267000                   SNF-OTHER-DIAG-CODE10 OR                       25280000
267100                   SNF-OTHER-DIAG-CODE11 OR                       25290000
267200                   SNF-OTHER-DIAG-CODE12 OR                       25300000
267300                   SNF-OTHER-DIAG-CODE13 OR                       25310000
267400                   SNF-OTHER-DIAG-CODE14 OR                       25320000
267500                   SNF-OTHER-DIAG-CODE15 OR                       25330000
267600                   SNF-OTHER-DIAG-CODE16 OR                       25340000
267700                   SNF-OTHER-DIAG-CODE17 OR                       25350000
267800                   SNF-OTHER-DIAG-CODE18 OR                       25360000
267900                   SNF-OTHER-DIAG-CODE19 OR                       25370000
268000                   SNF-OTHER-DIAG-CODE20 OR                       25380000
268100                   SNF-OTHER-DIAG-CODE21 OR                       25390000
268200                   SNF-OTHER-DIAG-CODE22 OR                       25400000
268300                   SNF-OTHER-DIAG-CODE23 OR                       25410000
268400                   SNF-OTHER-DIAG-CODE24 OR                       25420000
268500                   SNF-OTHER-DIAG-CODE25                          25430000
268600         COMPUTE HLD-PAYMENT-RATE ROUNDED =                       25440000
268700                 HLD-PAYMENT-RATE * 2.28                          25450000
268800         GO TO 2006-CONTINUE.                                     25460000
268900                                                                  25470000
269000     IF  (HLD-RUG = 'IB2' OR 'IB1' OR 'IA2' OR 'IA1' OR           25480000
269100                    'BB2' OR 'BB1' OR 'BA2' OR 'BA1' OR           25490000
269200                    'PE2' OR 'PE1' OR 'PD2' OR 'PD1' OR           25500000
269300                    'PC2' OR 'PC1' OR 'PB2' OR 'PB1' OR           25510000
269400                    'PA2' OR 'PA1' OR 'AAA')                      25520000
269500        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        25530000
269600                HLD-PAYMENT-RATE * 1.00.                          25540000
269700                                                                  25550000
269800     IF  (HLD-RUG = 'RUC' OR 'RUB' OR 'RUA' OR 'RVC' OR           25560000
269900                    'RVB' OR 'RVA' OR 'RHC' OR 'RHB' OR           25570000
270000                    'RHA' OR 'RMC' OR 'RMB' OR 'RMA' OR           25580000
270100                    'RLB' OR 'RLA')                               25590000
270200        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        25600000
270300                HLD-PAYMENT-RATE * 1.067.                         25610000
270400                                                                  25620000
270500     IF  (HLD-RUG = 'SE3' OR 'SE2' OR 'SE1' OR 'SSC' OR           25630000
270600                    'SSB' OR 'SSA' OR 'CC2' OR 'CC1' OR           25640000
270700                    'CB2' OR 'CB1' OR 'CA2' OR 'CA1')             25650000
270800        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        25660000
270900                HLD-PAYMENT-RATE * 1.20.                          25670000
271000                                                                  25680000
271100 2006-CONTINUE.                                                   25690000
271200                                                                  25700000
271300     IF  SNF-FED-BLEND = 0                                        25710000
271400        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        25720000
271500                HLD-FACILITY-RATE * 1.00.                         25730000
271600                                                                  25740000
271700     IF SNF-FED-BLEND = 4                                         25750000
271800        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              25760000
271900        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        25770000
272000                HLD-PAYMENT-RATE * 1.00.                          25780000
272100                                                                  25790000
272200                                                                  25800000
272300 2006-44-EXIT.   EXIT.                                            25810000
272400                                                                  25820000
272500 2006-53-PAYMENT-RATE-CALC.                                       25830000
272600***************************************************************   25840000
272700*     PAYMENT RATE CALCULATION PROCCESS EFFECTIVE JAN.1, 2006     25850000
272800***************************************************************   25860000
272900                                                                  25870000
273000     IF HLD-CBSA = '     '                                        25880000
273100        MOVE '30'              TO HLD-RTC                         25890000
273200        GO TO 2006-53-EXIT.                                       25900000
273300                                                                  25910000
273400     MOVE 1                    TO R3.                             25920000
273500                                                                  25930000
273600     IF HLD-CBSA-RURAL-CHECK                                      25940000
273700        MOVE 1                 TO R2                              25950000
273800     ELSE                                                         25960000
273900        MOVE 2                 TO R2.                             25970000
274000                                                                  25980000
274100     PERFORM 900-SEARCH-4-RUG53                                   25990000
274200        THRU 900-SEARCH-EXIT.                                     26000000
274300                                                                  26010000
274400     IF HLD-RTC NOT = 00                                          26020000
274500        GO TO 2006-53-EXIT.                                       26030000
274600                                                                  26040000
274700     PERFORM 500-GET-RATES.                                       26050000
274800                                                                  26060000
274900     IF SNF-FED-BLEND = 0 OR 4                                    26070000
275000        NEXT SENTENCE                                             26080000
275100     ELSE                                                         26090000
275200        MOVE '60'              TO HLD-RTC                         26100000
275300        MOVE ALL '0'           TO HOLD-VAR-DATA                   26110000
275400        GO TO 2006-53-EXIT.                                       26120000
275500                                                                  26130000
275600        COMPUTE NURSING-COMPONENT ROUNDED =                       26140000
275700                   (NUR-INDEX * IP-RATE).                         26150000
275800                                                                  26160000
275900        COMPUTE THERAPY-COMPONENT ROUNDED =                       26170000
276000                   (THR-INDEX * REHAB-RATE).                      26180000
276100                                                                  26190000
276200        COMPUTE NCM-THR-COMPONENT ROUNDED =                       26200000
276300                   (FACTOR * NCM-THR-COMPONENT).                  26210000
276400                                                                  26220000
276500        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       26230000
276600                   NURSING-COMPONENT +                            26240000
276700                   THERAPY-COMPONENT +                            26250000
276800                   NCM-THR-COMPONENT +                            26260000
276900                   NCM-COMPONENT.                                 26270000
277000                                                                  26280000
277100        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        26290000
277200             (HLD-PAYMENT-RATE * PERCENT-2006-LABOR) *            26300000
277300               AREA-WAGE-INDEX.                                   26310000
277400                                                                  26320000
277500        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        26330000
277600               (HLD-PAYMENT-RATE * PERCENT-2006-NLABOR) +         26340000
277700                    PAYMENT-RATE-ADJ.                             26350000
277800                                                                  26360000
277900     IF '042   ' = SNF-PRIN-DIAG-CODE    OR                       26370000
278000                   SNF-OTHER-DIAG-CODE2  OR                       26380000
278100                   SNF-OTHER-DIAG-CODE3  OR                       26390000
278200                   SNF-OTHER-DIAG-CODE4  OR                       26400000
278300                   SNF-OTHER-DIAG-CODE5  OR                       26410000
278400                   SNF-OTHER-DIAG-CODE6  OR                       26420000
278500                   SNF-OTHER-DIAG-CODE7  OR                       26430000
278600                   SNF-OTHER-DIAG-CODE8  OR                       26440000
278700                   SNF-OTHER-DIAG-CODE9  OR                       26450000
278800                   SNF-OTHER-DIAG-CODE10 OR                       26460000
278900                   SNF-OTHER-DIAG-CODE11 OR                       26470000
279000                   SNF-OTHER-DIAG-CODE12 OR                       26480000
279100                   SNF-OTHER-DIAG-CODE13 OR                       26490000
279200                   SNF-OTHER-DIAG-CODE14 OR                       26500000
279300                   SNF-OTHER-DIAG-CODE15 OR                       26510000
279400                   SNF-OTHER-DIAG-CODE16 OR                       26520000
279500                   SNF-OTHER-DIAG-CODE17 OR                       26530000
279600                   SNF-OTHER-DIAG-CODE18 OR                       26540000
279700                   SNF-OTHER-DIAG-CODE19 OR                       26550000
279800                   SNF-OTHER-DIAG-CODE20 OR                       26560000
279900                   SNF-OTHER-DIAG-CODE21 OR                       26570000
280000                   SNF-OTHER-DIAG-CODE22 OR                       26580000
280100                   SNF-OTHER-DIAG-CODE23 OR                       26590000
280200                   SNF-OTHER-DIAG-CODE24 OR                       26600000
280300                   SNF-OTHER-DIAG-CODE25                          26610000
280400         COMPUTE HLD-PAYMENT-RATE ROUNDED =                       26620000
280500                 HLD-PAYMENT-RATE * 2.28                          26630000
280600         GO TO 2006-53-CONTINUE.                                  26640000
280700                                                                  26650000
280800 2006-53-CONTINUE.                                                26660000
280900                                                                  26670000
281000     IF  SNF-FED-BLEND = 0                                        26680000
281100        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        26690000
281200                HLD-FACILITY-RATE * 1.00.                         26700000
281300                                                                  26710000
281400     IF SNF-FED-BLEND = 4                                         26720000
281500        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              26730000
281600        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        26740000
281700                HLD-PAYMENT-RATE * 1.00.                          26750000
281800                                                                  26760000
281900 2006-53-EXIT.   EXIT.                                            26770000
282000                                                                  26780000
282100 2007-53-PAYMENT-RATE-CALC.                                       26790000
282200***************************************************************   26800000
282300*     PAYMENT RATE CALCULATION PROCCESS EFFECTIVE OCT.1, 2007     26810000
282400***************************************************************   26820000
282500                                                                  26830000
282600     IF HLD-CBSA = '     '                                        26840000
282700        MOVE '30' TO HLD-RTC                                      26850000
282800        GO TO 2007-53-EXIT.                                       26860000
282900                                                                  26870000
283000     MOVE 1 TO R3.                                                26880000
283100                                                                  26890000
283200     IF HLD-CBSA-RURAL-CHECK                                      26900000
283300        MOVE 1 TO R2                                              26910000
283400     ELSE                                                         26920000
283500        MOVE 2 TO R2.                                             26930000
283600                                                                  26940000
283700     PERFORM 900-SEARCH-4-RUG53  THRU 900-SEARCH-EXIT.            26950000
283800                                                                  26960000
283900     IF HLD-RTC NOT = 00 GO TO 2007-53-EXIT.                      26970000
284000                                                                  26980000
284100     PERFORM 500-GET-RATES.                                       26990000
284200                                                                  27000000
284300     IF SNF-FED-BLEND = 0 OR 4                                    27010000
284400        NEXT SENTENCE                                             27020000
284500     ELSE                                                         27030000
284600        MOVE '60' TO HLD-RTC                                      27040000
284700        MOVE ALL '0' TO HOLD-VAR-DATA                             27050000
284800        GO TO 2007-53-EXIT.                                       27060000
284900                                                                  27070000
285000        COMPUTE NURSING-COMPONENT ROUNDED =                       27080000
285100                   (NUR-INDEX * IP-RATE).                         27090000
285200                                                                  27100000
285300        COMPUTE THERAPY-COMPONENT ROUNDED =                       27110000
285400                   (THR-INDEX * REHAB-RATE).                      27120000
285500                                                                  27130000
285600        COMPUTE NCM-THR-COMPONENT ROUNDED =                       27140000
285700                   (FACTOR * NCM-THR-COMPONENT).                  27150000
285800                                                                  27160000
285900        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       27170000
286000                   NURSING-COMPONENT +                            27180000
286100                   THERAPY-COMPONENT +                            27190000
286200                   NCM-THR-COMPONENT +                            27200000
286300                   NCM-COMPONENT.                                 27210000
286400                                                                  27220000
286500        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        27230000
286600             (HLD-PAYMENT-RATE * PERCENT-2007-LABOR) *            27240000
286700               AREA-WAGE-INDEX.                                   27250000
286800                                                                  27260000
286900        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        27270000
287000               (HLD-PAYMENT-RATE * PERCENT-2007-NLABOR) +         27280000
287100                    PAYMENT-RATE-ADJ.                             27290000
287200                                                                  27300000
287300     IF '042   ' = SNF-PRIN-DIAG-CODE    OR                       27310000
287400                   SNF-OTHER-DIAG-CODE2  OR                       27320000
287500                   SNF-OTHER-DIAG-CODE3  OR                       27330000
287600                   SNF-OTHER-DIAG-CODE4  OR                       27340000
287700                   SNF-OTHER-DIAG-CODE5  OR                       27350000
287800                   SNF-OTHER-DIAG-CODE6  OR                       27360000
287900                   SNF-OTHER-DIAG-CODE7  OR                       27370000
288000                   SNF-OTHER-DIAG-CODE8  OR                       27380000
288100                   SNF-OTHER-DIAG-CODE9  OR                       27390000
288200                   SNF-OTHER-DIAG-CODE10 OR                       27400000
288300                   SNF-OTHER-DIAG-CODE11 OR                       27410000
288400                   SNF-OTHER-DIAG-CODE12 OR                       27420000
288500                   SNF-OTHER-DIAG-CODE13 OR                       27430000
288600                   SNF-OTHER-DIAG-CODE14 OR                       27440000
288700                   SNF-OTHER-DIAG-CODE15 OR                       27450000
288800                   SNF-OTHER-DIAG-CODE16 OR                       27460000
288900                   SNF-OTHER-DIAG-CODE17 OR                       27470000
289000                   SNF-OTHER-DIAG-CODE18 OR                       27480000
289100                   SNF-OTHER-DIAG-CODE19 OR                       27490000
289200                   SNF-OTHER-DIAG-CODE20 OR                       27500000
289300                   SNF-OTHER-DIAG-CODE21 OR                       27510000
289400                   SNF-OTHER-DIAG-CODE22 OR                       27520000
289500                   SNF-OTHER-DIAG-CODE23 OR                       27530000
289600                   SNF-OTHER-DIAG-CODE24 OR                       27540000
289700                   SNF-OTHER-DIAG-CODE25                          27550000
289800         COMPUTE HLD-PAYMENT-RATE ROUNDED =                       27560000
289900                 HLD-PAYMENT-RATE * 2.28                          27570000
290000         GO TO 2007-53-CONTINUE.                                  27580000
290100                                                                  27590000
290200 2007-53-CONTINUE.                                                27600000
290300                                                                  27610000
290400     IF  SNF-FED-BLEND = 0                                        27620000
290500        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        27630000
290600                HLD-FACILITY-RATE * 1.00.                         27640000
290700                                                                  27650000
290800     IF SNF-FED-BLEND = 4                                         27660000
290900        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              27670000
291000        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        27680000
291100                HLD-PAYMENT-RATE * 1.00.                          27690000
291200                                                                  27700000
291300 2007-53-EXIT. EXIT.                                              27710000
291400                                                                  27720000
291500 2008-53-PAYMENT-RATE-CALC.                                       27730000
291600***************************************************************   27740000
291700*     PAYMENT RATE CALCULATION PROCCESS EFFECTIVE OCT.1, 2007     27750000
291800***************************************************************   27760000
291900                                                                  27770000
292000     IF HLD-CBSA = '     '                                        27780000
292100        MOVE '30' TO HLD-RTC                                      27790000
292200        GO TO 2008-53-EXIT.                                       27800000
292300                                                                  27810000
292400     MOVE 1 TO R3.                                                27820000
292500                                                                  27830000
292600     IF HLD-CBSA-RURAL-CHECK                                      27840000
292700        MOVE 1 TO R2                                              27850000
292800     ELSE                                                         27860000
292900        MOVE 2 TO R2.                                             27870000
293000                                                                  27880000
293100     PERFORM 900-SEARCH-4-RUG53  THRU 900-SEARCH-EXIT.            27890000
293200                                                                  27900000
293300     IF HLD-RTC NOT = 00 GO TO 2008-53-EXIT.                      27910000
293400                                                                  27920000
293500     PERFORM 500-GET-RATES.                                       27930000
293600                                                                  27940000
293700     IF SNF-FED-BLEND = 0 OR 4                                    27950000
293800        NEXT SENTENCE                                             27960000
293900     ELSE                                                         27970000
294000        MOVE '60' TO HLD-RTC                                      27980000
294100        MOVE ALL '0' TO HOLD-VAR-DATA                             27990000
294200        GO TO 2008-53-EXIT.                                       28000000
294300                                                                  28010000
294400        COMPUTE NURSING-COMPONENT ROUNDED =                       28020000
294500                   (NUR-INDEX * IP-RATE).                         28030000
294600                                                                  28040000
294700        COMPUTE THERAPY-COMPONENT ROUNDED =                       28050000
294800                   (THR-INDEX * REHAB-RATE).                      28060000
294900                                                                  28070000
295000        COMPUTE NCM-THR-COMPONENT ROUNDED =                       28080000
295100                   (FACTOR * NCM-THR-COMPONENT).                  28090000
295200                                                                  28100000
295300        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       28110000
295400                   NURSING-COMPONENT +                            28120000
295500                   THERAPY-COMPONENT +                            28130000
295600                   NCM-THR-COMPONENT +                            28140000
295700                   NCM-COMPONENT.                                 28150000
295800                                                                  28160000
295900        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        28170000
296000             (HLD-PAYMENT-RATE * PERCENT-2008-LABOR) *            28180000
296100               AREA-WAGE-INDEX.                                   28190000
296200                                                                  28200000
296300        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        28210000
296400               (HLD-PAYMENT-RATE * PERCENT-2008-NLABOR) +         28220000
296500                    PAYMENT-RATE-ADJ.                             28230000
296600                                                                  28240000
296700     IF '042   ' = SNF-PRIN-DIAG-CODE    OR                       28250000
296800                   SNF-OTHER-DIAG-CODE2  OR                       28260000
296900                   SNF-OTHER-DIAG-CODE3  OR                       28270000
297000                   SNF-OTHER-DIAG-CODE4  OR                       28280000
297100                   SNF-OTHER-DIAG-CODE5  OR                       28290000
297200                   SNF-OTHER-DIAG-CODE6  OR                       28300000
297300                   SNF-OTHER-DIAG-CODE7  OR                       28310000
297400                   SNF-OTHER-DIAG-CODE8  OR                       28320000
297500                   SNF-OTHER-DIAG-CODE9  OR                       28330000
297600                   SNF-OTHER-DIAG-CODE10 OR                       28340000
297700                   SNF-OTHER-DIAG-CODE11 OR                       28350000
297800                   SNF-OTHER-DIAG-CODE12 OR                       28360000
297900                   SNF-OTHER-DIAG-CODE13 OR                       28370000
298000                   SNF-OTHER-DIAG-CODE14 OR                       28380000
298100                   SNF-OTHER-DIAG-CODE15 OR                       28390000
298200                   SNF-OTHER-DIAG-CODE16 OR                       28400000
298300                   SNF-OTHER-DIAG-CODE17 OR                       28410000
298400                   SNF-OTHER-DIAG-CODE18 OR                       28420000
298500                   SNF-OTHER-DIAG-CODE19 OR                       28430000
298600                   SNF-OTHER-DIAG-CODE20 OR                       28440000
298700                   SNF-OTHER-DIAG-CODE21 OR                       28450000
298800                   SNF-OTHER-DIAG-CODE22 OR                       28460000
298900                   SNF-OTHER-DIAG-CODE23 OR                       28470000
299000                   SNF-OTHER-DIAG-CODE24 OR                       28480000
299100                   SNF-OTHER-DIAG-CODE25                          28490000
299200         COMPUTE HLD-PAYMENT-RATE ROUNDED =                       28500000
299300                 HLD-PAYMENT-RATE * 2.28                          28510000
299400         GO TO 2008-53-CONTINUE.                                  28520000
299500                                                                  28530000
299600 2008-53-CONTINUE.                                                28540000
299700                                                                  28550000
299800     IF  SNF-FED-BLEND = 0                                        28560000
299900        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        28570000
300000                HLD-FACILITY-RATE * 1.00.                         28580000
300100                                                                  28590000
300200     IF SNF-FED-BLEND = 4                                         28600000
300300        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              28610000
300400        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        28620000
300500                HLD-PAYMENT-RATE * 1.00.                          28630000
300600                                                                  28640000
300700 2008-53-EXIT. EXIT.                                              28650000
300800                                                                  28660000
300900 2009-53-PAYMENT-RATE-CALC.                                       28670000
301000***************************************************************   28680000
301100*     PAYMENT RATE CALCULATION PROCCESS EFFECTIVE OCT.1, 2009     28690000
301200***************************************************************   28700000
301300                                                                  28710000
301400     IF HLD-CBSA = '     '                                        28720000
301500        MOVE '30' TO HLD-RTC                                      28730000
301600        GO TO 2009-53-EXIT.                                       28740000
301700                                                                  28750000
301800     MOVE 1 TO R3.                                                28760000
301900                                                                  28770000
302000     IF HLD-CBSA-RURAL-CHECK                                      28780000
302100        MOVE 1 TO R2                                              28790000
302200     ELSE                                                         28800000
302300        MOVE 2 TO R2.                                             28810000
302400                                                                  28820000
302500     PERFORM 900-SEARCH-4-RUG53  THRU 900-SEARCH-EXIT.            28830000
302600                                                                  28840000
302700     IF HLD-RTC NOT = 00 GO TO 2009-53-EXIT.                      28850000
302800                                                                  28860000
302900     PERFORM 500-GET-RATES.                                       28870000
303000                                                                  28880000
303100     IF SNF-FED-BLEND = 0 OR 4                                    28890000
303200        NEXT SENTENCE                                             28900000
303300     ELSE                                                         28910000
303400        MOVE '60' TO HLD-RTC                                      28920000
303500        MOVE ALL '0' TO HOLD-VAR-DATA                             28930000
303600        GO TO 2009-53-EXIT.                                       28940000
303700                                                                  28950000
303800        COMPUTE NURSING-COMPONENT ROUNDED =                       28960000
303900                   (NUR-INDEX * IP-RATE).                         28970000
304000                                                                  28980000
304100        COMPUTE THERAPY-COMPONENT ROUNDED =                       28990000
304200                   (THR-INDEX * REHAB-RATE).                      29000000
304300                                                                  29010000
304400        COMPUTE NCM-THR-COMPONENT ROUNDED =                       29020000
304500                   (FACTOR * NCM-THR-COMPONENT).                  29030000
304600                                                                  29040000
304700        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       29050000
304800                   NURSING-COMPONENT +                            29060000
304900                   THERAPY-COMPONENT +                            29070000
305000                   NCM-THR-COMPONENT +                            29080000
305100                   NCM-COMPONENT.                                 29090000
305200                                                                  29100000
305300        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        29110000
305400             (HLD-PAYMENT-RATE * PERCENT-2009-LABOR) *            29120000
305500               AREA-WAGE-INDEX.                                   29130000
305600                                                                  29140000
305700        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        29150000
305800               (HLD-PAYMENT-RATE * PERCENT-2009-NLABOR) +         29160000
305900                    PAYMENT-RATE-ADJ.                             29170000
306000                                                                  29180000
306100     IF '042   ' = SNF-PRIN-DIAG-CODE   OR                        29190000
306200                   SNF-OTHER-DIAG-CODE2 OR                        29200000
306300                   SNF-OTHER-DIAG-CODE3 OR                        29210000
306400                   SNF-OTHER-DIAG-CODE4 OR                        29220000
306500                   SNF-OTHER-DIAG-CODE5 OR                        29230000
306600                   SNF-OTHER-DIAG-CODE6 OR                        29240000
306700                   SNF-OTHER-DIAG-CODE7 OR                        29250000
306800                   SNF-OTHER-DIAG-CODE8 OR                        29260000
306900                   SNF-OTHER-DIAG-CODE9  OR                       29270000
307000                   SNF-OTHER-DIAG-CODE10 OR                       29280000
307100                   SNF-OTHER-DIAG-CODE11 OR                       29290000
307200                   SNF-OTHER-DIAG-CODE12 OR                       29300000
307300                   SNF-OTHER-DIAG-CODE13 OR                       29310000
307400                   SNF-OTHER-DIAG-CODE14 OR                       29320000
307500                   SNF-OTHER-DIAG-CODE15 OR                       29330000
307600                   SNF-OTHER-DIAG-CODE16 OR                       29340000
307700                   SNF-OTHER-DIAG-CODE17 OR                       29350000
307800                   SNF-OTHER-DIAG-CODE18 OR                       29360000
307900                   SNF-OTHER-DIAG-CODE19 OR                       29370000
308000                   SNF-OTHER-DIAG-CODE20 OR                       29380000
308100                   SNF-OTHER-DIAG-CODE21 OR                       29390000
308200                   SNF-OTHER-DIAG-CODE22 OR                       29400000
308300                   SNF-OTHER-DIAG-CODE23 OR                       29410000
308400                   SNF-OTHER-DIAG-CODE24 OR                       29420000
308500                   SNF-OTHER-DIAG-CODE25                          29430000
308600         COMPUTE HLD-PAYMENT-RATE ROUNDED =                       29440000
308700                 HLD-PAYMENT-RATE * 2.28                          29450000
308800         GO TO 2009-53-CONTINUE.                                  29460000
308900                                                                  29470000
309000 2009-53-CONTINUE.                                                29480000
309100                                                                  29490000
309200     IF  SNF-FED-BLEND = 0                                        29500000
309300        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        29510000
309400                HLD-FACILITY-RATE * 1.00.                         29520000
309500                                                                  29530000
309600     IF SNF-FED-BLEND = 4                                         29540000
309700        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              29550000
309800        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        29560000
309900                HLD-PAYMENT-RATE * 1.00.                          29570000
310000                                                                  29580000
310100 2009-53-EXIT. EXIT.                                              29590000
310200                                                                  29600000
310300 2010-53-PAYMENT-RATE-CALC.                                       29610000
310400***************************************************************   29620000
310500*     PAYMENT RATE CALCULATION PROCCESS EFFECTIVE OCT.1, 2009     29630000
310600***************************************************************   29640000
310700                                                                  29650000
310800     IF HLD-CBSA = '     '                                        29660000
310900        MOVE '30' TO HLD-RTC                                      29670000
311000        GO TO 2010-53-EXIT.                                       29680000
311100                                                                  29690000
311200     MOVE 1 TO R3.                                                29700000
311300                                                                  29710000
311400     IF HLD-CBSA-RURAL-CHECK                                      29720000
311500        MOVE 1 TO R2                                              29730000
311600     ELSE                                                         29740000
311700        MOVE 2 TO R2.                                             29750000
311800                                                                  29760000
311900     PERFORM 910-SEARCH-4-RUG53-2010  THRU 910-SEARCH-EXIT.       29770000
312000                                                                  29780000
312100     IF HLD-RTC NOT = 00 GO TO 2010-53-EXIT.                      29790000
312200                                                                  29800000
312300     PERFORM 500-GET-RATES.                                       29810000
312400                                                                  29820000
312500     IF SNF-FED-BLEND = 0 OR 4                                    29830000
312600        NEXT SENTENCE                                             29840000
312700     ELSE                                                         29850000
312800        MOVE '60' TO HLD-RTC                                      29860000
312900        MOVE ALL '0' TO HOLD-VAR-DATA                             29870000
313000        GO TO 2010-53-EXIT.                                       29880000
313100                                                                  29890000
313200        COMPUTE NURSING-COMPONENT ROUNDED =                       29900000
313300                   (NUR-INDEX * IP-RATE).                         29910000
313400                                                                  29920000
313500        COMPUTE THERAPY-COMPONENT ROUNDED =                       29930000
313600                   (THR-INDEX * REHAB-RATE).                      29940000
313700                                                                  29950000
313800        COMPUTE NCM-THR-COMPONENT ROUNDED =                       29960000
313900                   (FACTOR * NCM-THR-COMPONENT).                  29970000
314000                                                                  29980000
314100        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       29990000
314200                   NURSING-COMPONENT +                            30000000
314300                   THERAPY-COMPONENT +                            30010000
314400                   NCM-THR-COMPONENT +                            30020000
314500                   NCM-COMPONENT.                                 30030000
314600                                                                  30040000
314700        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        30050000
314800             (HLD-PAYMENT-RATE * PERCENT-2010-LABOR) *            30060000
314900               AREA-WAGE-INDEX.                                   30070000
315000                                                                  30080000
315100        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        30090000
315200               (HLD-PAYMENT-RATE * PERCENT-2010-NLABOR) +         30100000
315300                    PAYMENT-RATE-ADJ.                             30110000
315400                                                                  30120000
315500     IF '042   ' = SNF-PRIN-DIAG-CODE   OR                        30130000
315600                   SNF-OTHER-DIAG-CODE2 OR                        30140000
315700                   SNF-OTHER-DIAG-CODE3 OR                        30150000
315800                   SNF-OTHER-DIAG-CODE4 OR                        30160000
315900                   SNF-OTHER-DIAG-CODE5 OR                        30170000
316000                   SNF-OTHER-DIAG-CODE6 OR                        30180000
316100                   SNF-OTHER-DIAG-CODE7 OR                        30190000
316200                   SNF-OTHER-DIAG-CODE8 OR                        30200000
316300                   SNF-OTHER-DIAG-CODE9  OR                       30210000
316400                   SNF-OTHER-DIAG-CODE10 OR                       30220000
316500                   SNF-OTHER-DIAG-CODE11 OR                       30230000
316600                   SNF-OTHER-DIAG-CODE12 OR                       30240000
316700                   SNF-OTHER-DIAG-CODE13 OR                       30250000
316800                   SNF-OTHER-DIAG-CODE14 OR                       30260000
316900                   SNF-OTHER-DIAG-CODE15 OR                       30270000
317000                   SNF-OTHER-DIAG-CODE16 OR                       30280000
317100                   SNF-OTHER-DIAG-CODE17 OR                       30290000
317200                   SNF-OTHER-DIAG-CODE18 OR                       30300000
317300                   SNF-OTHER-DIAG-CODE19 OR                       30310000
317400                   SNF-OTHER-DIAG-CODE20 OR                       30320000
317500                   SNF-OTHER-DIAG-CODE21 OR                       30330000
317600                   SNF-OTHER-DIAG-CODE22 OR                       30340000
317700                   SNF-OTHER-DIAG-CODE23 OR                       30350000
317800                   SNF-OTHER-DIAG-CODE24 OR                       30360000
317900                   SNF-OTHER-DIAG-CODE25                          30370000
318000         COMPUTE HLD-PAYMENT-RATE ROUNDED =                       30380000
318100                 HLD-PAYMENT-RATE * 2.28                          30390000
318200         GO TO 2010-53-CONTINUE.                                  30400000
318300                                                                  30410000
318400 2010-53-CONTINUE.                                                30420000
318500                                                                  30430000
318600     IF  SNF-FED-BLEND = 0                                        30440000
318700        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        30450000
318800                HLD-FACILITY-RATE * 1.00.                         30460000
318900                                                                  30470000
319000     IF SNF-FED-BLEND = 4                                         30480000
319100        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              30490000
319200        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        30500000
319300                HLD-PAYMENT-RATE * 1.00.                          30510000
319400                                                                  30520000
319500 2010-53-EXIT. EXIT.                                              30530000
319600                                                                  30540000
319700 2011-67-PAYMENT-RATE-CALC.                                       30550000
319800***************************************************************   30560000
319900*     PAYMENT RATE CALCULATION PROCCESS EFFECTIVE OCT.1, 2009     30570000
320000***************************************************************   30580000
320100                                                                  30590000
320200     IF HLD-CBSA = '     '                                        30600000
320300        MOVE '30' TO HLD-RTC                                      30610000
320400        GO TO 2011-67-EXIT.                                       30620000
320500                                                                  30630000
320600     MOVE 1 TO R3.                                                30640000
320700                                                                  30650000
320800     IF HLD-CBSA-RURAL-CHECK                                      30660000
320900        MOVE 1 TO R2                                              30670000
321000     ELSE                                                         30680000
321100        MOVE 2 TO R2.                                             30690000
321200                                                                  30700000
321300     PERFORM 911-SEARCH-4-RUG67-2011  THRU 911-SEARCH-EXIT.       30710000
321400                                                                  30720000
321500     IF HLD-RTC NOT = 00 GO TO 2011-67-EXIT.                      30730000
321600                                                                  30740000
321700     PERFORM 500-GET-RATES.                                       30750000
321800                                                                  30760000
321900     IF SNF-FED-BLEND = 0 OR 4                                    30770000
322000        NEXT SENTENCE                                             30780000
322100     ELSE                                                         30790000
322200        MOVE '60' TO HLD-RTC                                      30800000
322300        MOVE ALL '0' TO HOLD-VAR-DATA                             30810000
322400        GO TO 2011-67-EXIT.                                       30820000
322500                                                                  30830000
322600        COMPUTE NURSING-COMPONENT ROUNDED =                       30840000
322700                   (NUR-INDEX * IP-RATE).                         30850000
322800                                                                  30860000
322900        COMPUTE THERAPY-COMPONENT ROUNDED =                       30870000
323000                   (THR-INDEX * REHAB-RATE).                      30880000
323100                                                                  30890000
323200        COMPUTE NCM-THR-COMPONENT ROUNDED =                       30900000
323300                   (FACTOR * NCM-THR-COMPONENT).                  30910000
323400                                                                  30920000
323500        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       30930000
323600                   NURSING-COMPONENT +                            30940000
323700                   THERAPY-COMPONENT +                            30950000
323800                   NCM-THR-COMPONENT +                            30960000
323900                   NCM-COMPONENT.                                 30970000
324000                                                                  30980000
324100        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        30990000
324200             (HLD-PAYMENT-RATE * PERCENT-2011-LABOR) *            31000000
324300               AREA-WAGE-INDEX.                                   31010000
324400                                                                  31020000
324500        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        31030000
324600               (HLD-PAYMENT-RATE * PERCENT-2011-NLABOR) +         31040000
324700                    PAYMENT-RATE-ADJ.                             31050000
324800                                                                  31060000
324900     IF '042   ' = SNF-PRIN-DIAG-CODE   OR                        31070000
325000                   SNF-OTHER-DIAG-CODE2 OR                        31080000
325100                   SNF-OTHER-DIAG-CODE3 OR                        31090000
325200                   SNF-OTHER-DIAG-CODE4 OR                        31100000
325300                   SNF-OTHER-DIAG-CODE5 OR                        31110000
325400                   SNF-OTHER-DIAG-CODE6 OR                        31120000
325500                   SNF-OTHER-DIAG-CODE7 OR                        31130000
325600                   SNF-OTHER-DIAG-CODE8 OR                        31140000
325700                   SNF-OTHER-DIAG-CODE9  OR                       31150000
325800                   SNF-OTHER-DIAG-CODE10 OR                       31160000
325900                   SNF-OTHER-DIAG-CODE11 OR                       31170000
326000                   SNF-OTHER-DIAG-CODE12 OR                       31180000
326100                   SNF-OTHER-DIAG-CODE13 OR                       31190000
326200                   SNF-OTHER-DIAG-CODE14 OR                       31200000
326300                   SNF-OTHER-DIAG-CODE15 OR                       31210000
326400                   SNF-OTHER-DIAG-CODE16 OR                       31220000
326500                   SNF-OTHER-DIAG-CODE17 OR                       31230000
326600                   SNF-OTHER-DIAG-CODE18 OR                       31240000
326700                   SNF-OTHER-DIAG-CODE19 OR                       31250000
326800                   SNF-OTHER-DIAG-CODE20 OR                       31260000
326900                   SNF-OTHER-DIAG-CODE21 OR                       31270000
327000                   SNF-OTHER-DIAG-CODE22 OR                       31280000
327100                   SNF-OTHER-DIAG-CODE23 OR                       31290000
327200                   SNF-OTHER-DIAG-CODE24 OR                       31300000
327300                   SNF-OTHER-DIAG-CODE25                          31310000
327400         COMPUTE HLD-PAYMENT-RATE ROUNDED =                       31320000
327500                 HLD-PAYMENT-RATE * 2.28                          31330000
327600         GO TO 2011-67-CONTINUE.                                  31340000
327700                                                                  31350000
327800 2011-67-CONTINUE.                                                31360000
327900                                                                  31370000
328000     IF  SNF-FED-BLEND = 0                                        31380000
328100        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        31390000
328200                HLD-FACILITY-RATE * 1.00.                         31400000
328300                                                                  31410000
328400     IF SNF-FED-BLEND = 4                                         31420000
328500        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              31430000
328600        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        31440000
328700                HLD-PAYMENT-RATE * 1.00.                          31450000
328800                                                                  31460000
328900 2011-67-EXIT. EXIT.                                              31470000
329000                                                                  31480000
329100 2012-67-PAYMENT-RATE-CALC.                                       31490000
329200***************************************************************   31500000
329300*     PAYMENT RATE CALCULATION PROCCESS EFFECTIVE OCT.1, 2009     31510000
329400***************************************************************   31520000
329500                                                                  31530000
329600     IF HLD-CBSA = '     '                                        31540000
329700        MOVE '30'              TO HLD-RTC                         31550000
329800        GO TO 2012-67-EXIT.                                       31560000
329900                                                                  31570000
330000     MOVE 1 TO R3.                                                31580000
330100                                                                  31590000
330200     IF HLD-CBSA-RURAL-CHECK                                      31600000
330300        MOVE 1 TO R2                                              31610000
330400     ELSE                                                         31620000
330500        MOVE 2 TO R2.                                             31630000
330600                                                                  31640000
330700     PERFORM 912-SEARCH-4-RUG67-2012                              31650000
330800        THRU 912-SEARCH-EXIT.                                     31660000
330900                                                                  31670000
331000     IF HLD-RTC NOT = 00 GO TO 2012-67-EXIT.                      31680000
331100                                                                  31690000
331200     PERFORM 500-GET-RATES.                                       31700000
331300                                                                  31710000
331400     IF SNF-FED-BLEND = 0 OR 4                                    31720000
331500        NEXT SENTENCE                                             31730000
331600     ELSE                                                         31740000
331700        MOVE '60'              TO HLD-RTC                         31750000
331800        MOVE ALL '0'           TO HOLD-VAR-DATA                   31760000
331900        GO TO 2012-67-EXIT.                                       31770000
332000                                                                  31780000
332100        COMPUTE NURSING-COMPONENT ROUNDED =                       31790000
332200                   (NUR-INDEX * IP-RATE).                         31800000
332300                                                                  31810000
332400        COMPUTE THERAPY-COMPONENT ROUNDED =                       31820000
332500                   (THR-INDEX * REHAB-RATE).                      31830000
332600                                                                  31840000
332700        COMPUTE NCM-THR-COMPONENT ROUNDED =                       31850000
332800                   (FACTOR * NCM-THR-COMPONENT).                  31860000
332900                                                                  31870000
333000        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       31880000
333100                   NURSING-COMPONENT +                            31890000
333200                   THERAPY-COMPONENT +                            31900000
333300                   NCM-THR-COMPONENT +                            31910000
333400                   NCM-COMPONENT.                                 31920000
333500                                                                  31930000
333600        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        31940000
333700             (HLD-PAYMENT-RATE * PERCENT-2012-LABOR) *            31950000
333800               AREA-WAGE-INDEX.                                   31960000
333900                                                                  31970000
334000        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        31980000
334100               (HLD-PAYMENT-RATE * PERCENT-2012-NLABOR) +         31990000
334200                    PAYMENT-RATE-ADJ.                             32000000
334300                                                                  32010000
334400     IF '042   ' = SNF-PRIN-DIAG-CODE   OR                        32020000
334500                   SNF-OTHER-DIAG-CODE2 OR                        32030000
334600                   SNF-OTHER-DIAG-CODE3 OR                        32040000
334700                   SNF-OTHER-DIAG-CODE4 OR                        32050000
334800                   SNF-OTHER-DIAG-CODE5 OR                        32060000
334900                   SNF-OTHER-DIAG-CODE6 OR                        32070000
335000                   SNF-OTHER-DIAG-CODE7 OR                        32080000
335100                   SNF-OTHER-DIAG-CODE8 OR                        32090000
335200                   SNF-OTHER-DIAG-CODE9  OR                       32100000
335300                   SNF-OTHER-DIAG-CODE10 OR                       32110000
335400                   SNF-OTHER-DIAG-CODE11 OR                       32120000
335500                   SNF-OTHER-DIAG-CODE12 OR                       32130000
335600                   SNF-OTHER-DIAG-CODE13 OR                       32140000
335700                   SNF-OTHER-DIAG-CODE14 OR                       32150000
335800                   SNF-OTHER-DIAG-CODE15 OR                       32160000
335900                   SNF-OTHER-DIAG-CODE16 OR                       32170000
336000                   SNF-OTHER-DIAG-CODE17 OR                       32180000
336100                   SNF-OTHER-DIAG-CODE18 OR                       32190000
336200                   SNF-OTHER-DIAG-CODE19 OR                       32200000
336300                   SNF-OTHER-DIAG-CODE20 OR                       32210000
336400                   SNF-OTHER-DIAG-CODE21 OR                       32220000
336500                   SNF-OTHER-DIAG-CODE22 OR                       32230000
336600                   SNF-OTHER-DIAG-CODE23 OR                       32240000
336700                   SNF-OTHER-DIAG-CODE24 OR                       32250000
336800                   SNF-OTHER-DIAG-CODE25                          32260000
336900         COMPUTE HLD-PAYMENT-RATE ROUNDED =                       32270000
337000                 HLD-PAYMENT-RATE * 2.28                          32280000
337100         GO TO 2012-67-CONTINUE.                                  32290000
337200                                                                  32300000
337300 2012-67-CONTINUE.                                                32310000
337400                                                                  32320000
337500     IF  SNF-FED-BLEND = 0                                        32330000
337600        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        32340000
337700                HLD-FACILITY-RATE * 1.00.                         32350000
337800                                                                  32360000
337900     IF SNF-FED-BLEND = 4                                         32370000
338000        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              32380000
338100        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        32390000
338200                HLD-PAYMENT-RATE * 1.00.                          32400000
338300                                                                  32410000
338400 2012-67-EXIT. EXIT.                                              32420000
338500                                                                  32430000
338600                                                                  32440000
338700 2013-67-PAYMENT-RATE-CALC.                                       32450000
338800***************************************************************   32460000
338900*     PAYMENT RATE CALCULATION PROCCESS EFFECTIVE OCT.1, 2012     32470000
339000***************************************************************   32480000
339100                                                                  32490000
339200     IF HLD-CBSA = '     '                                        32500000
339300        MOVE '30'              TO HLD-RTC                         32510000
339400        GO TO 2013-67-EXIT.                                       32520000
339500                                                                  32530000
339600     MOVE 1                    TO R3.                             32540000
339700                                                                  32550000
339800     IF HLD-CBSA-RURAL-CHECK                                      32560000
339900        MOVE 1                 TO R2                              32570000
340000     ELSE                                                         32580000
340100        MOVE 2                 TO R2.                             32590000
340200                                                                  32600000
340300     PERFORM 913-SEARCH-4-RUG67-2013                              32610000
340400        THRU 913-SEARCH-EXIT.                                     32620000
340500                                                                  32630000
340600     IF HLD-RTC NOT = 00                                          32640000
340700        GO TO 2013-67-EXIT.                                       32650000
340800                                                                  32660000
340900     PERFORM 500-GET-RATES.                                       32670000
341000                                                                  32680000
341100     IF SNF-FED-BLEND = 0 OR 4                                    32690000
341200        NEXT SENTENCE                                             32700000
341300     ELSE                                                         32710000
341400        MOVE '60'              TO HLD-RTC                         32720000
341500        MOVE ALL '0'           TO HOLD-VAR-DATA                   32730000
341600        GO TO 2013-67-EXIT.                                       32740000
341700                                                                  32750000
341800        COMPUTE NURSING-COMPONENT ROUNDED =                       32760000
341900                   (NUR-INDEX * IP-RATE).                         32770000
342000                                                                  32780000
342100        COMPUTE THERAPY-COMPONENT ROUNDED =                       32790000
342200                   (THR-INDEX * REHAB-RATE).                      32800000
342300                                                                  32810000
342400        COMPUTE NCM-THR-COMPONENT ROUNDED =                       32820000
342500                   (FACTOR * NCM-THR-COMPONENT).                  32830000
342600                                                                  32840000
342700        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       32850000
342800                   NURSING-COMPONENT +                            32860000
342900                   THERAPY-COMPONENT +                            32870000
343000                   NCM-THR-COMPONENT +                            32880000
343100                   NCM-COMPONENT.                                 32890000
343200                                                                  32900000
343300        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        32910000
343400             (HLD-PAYMENT-RATE * PERCENT-2013-LABOR) *            32920000
343500               AREA-WAGE-INDEX.                                   32930000
343600                                                                  32940000
343700        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        32950000
343800               (HLD-PAYMENT-RATE * PERCENT-2013-NLABOR) +         32960000
343900                    PAYMENT-RATE-ADJ.                             32970000
344000                                                                  32980000
344100     IF '042   ' = SNF-PRIN-DIAG-CODE   OR                        32990000
344200                   SNF-OTHER-DIAG-CODE2 OR                        33000000
344300                   SNF-OTHER-DIAG-CODE3 OR                        33010000
344400                   SNF-OTHER-DIAG-CODE4 OR                        33020000
344500                   SNF-OTHER-DIAG-CODE5 OR                        33030000
344600                   SNF-OTHER-DIAG-CODE6 OR                        33040000
344700                   SNF-OTHER-DIAG-CODE7 OR                        33050000
344800                   SNF-OTHER-DIAG-CODE8 OR                        33060000
344900                   SNF-OTHER-DIAG-CODE9  OR                       33070000
345000                   SNF-OTHER-DIAG-CODE10 OR                       33080000
345100                   SNF-OTHER-DIAG-CODE11 OR                       33090000
345200                   SNF-OTHER-DIAG-CODE12 OR                       33100000
345300                   SNF-OTHER-DIAG-CODE13 OR                       33110000
345400                   SNF-OTHER-DIAG-CODE14 OR                       33120000
345500                   SNF-OTHER-DIAG-CODE15 OR                       33130000
345600                   SNF-OTHER-DIAG-CODE16 OR                       33140000
345700                   SNF-OTHER-DIAG-CODE17 OR                       33150000
345800                   SNF-OTHER-DIAG-CODE18 OR                       33160000
345900                   SNF-OTHER-DIAG-CODE19 OR                       33170000
346000                   SNF-OTHER-DIAG-CODE20 OR                       33180000
346100                   SNF-OTHER-DIAG-CODE21 OR                       33190000
346200                   SNF-OTHER-DIAG-CODE22 OR                       33200000
346300                   SNF-OTHER-DIAG-CODE23 OR                       33210000
346400                   SNF-OTHER-DIAG-CODE24 OR                       33220000
346500                   SNF-OTHER-DIAG-CODE25                          33230000
346600         COMPUTE HLD-PAYMENT-RATE ROUNDED =                       33240000
346700                 HLD-PAYMENT-RATE * 2.28                          33250000
346800         GO TO 2013-67-CONTINUE.                                  33260000
346900                                                                  33270000
347000 2013-67-CONTINUE.                                                33280000
347100                                                                  33290000
347200     IF SNF-FED-BLEND = 0                                         33300000
347300        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        33310000
347400                HLD-FACILITY-RATE * 1.00.                         33320000
347500                                                                  33330000
347600     IF SNF-FED-BLEND = 4                                         33340000
347700        MOVE HLD-PAYMENT-RATE  TO FED-PAYMENT-PORTION             33350000
347800        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        33360000
347900                HLD-PAYMENT-RATE * 1.00.                          33370000
348000                                                                  33380000
348100 2013-67-EXIT.                                                    33390000
348200     EXIT.                                                        33400000
348300                                                                  33410000
348400                                                                  33420000
348500 2014-67-PAYMENT-RATE-CALC.                                       33430000
348600***************************************************************   33440000
348700*     PAYMENT RATE CALCULATION PROCCESS EFFECTIVE OCT.1, 2013     33450000
348800***************************************************************   33460000
348900                                                                  33470000
349000     IF HLD-CBSA = '     '                                        33480000
349100        MOVE '30'              TO HLD-RTC                         33490000
349200        GO TO 2014-67-EXIT.                                       33500000
349300                                                                  33510000
349400     MOVE 1                    TO R3.                             33520000
349500                                                                  33530000
349600     IF HLD-CBSA-RURAL-CHECK                                      33540000
349700        MOVE 1                 TO R2                              33550000
349800     ELSE                                                         33560000
349900        MOVE 2                 TO R2.                             33570000
350000                                                                  33580000
350100     PERFORM 914-SEARCH-4-RUG67-2014                              33590000
350200        THRU 914-SEARCH-EXIT.                                     33600000
350300                                                                  33610000
350400     IF HLD-RTC NOT = 00                                          33620000
350500        GO TO 2014-67-EXIT.                                       33630000
350600                                                                  33640000
350700     PERFORM 500-GET-RATES.                                       33650000
350800                                                                  33660000
350900     IF SNF-FED-BLEND = 0 OR 4                                    33670000
351000        NEXT SENTENCE                                             33680000
351100     ELSE                                                         33690000
351200        MOVE '60'              TO HLD-RTC                         33700000
351300        MOVE ALL '0'           TO HOLD-VAR-DATA                   33710000
351400        GO TO 2014-67-EXIT.                                       33720000
351500                                                                  33730000
351600        COMPUTE NURSING-COMPONENT ROUNDED =                       33740000
351700                   (NUR-INDEX * IP-RATE).                         33750000
351800                                                                  33760000
351900        COMPUTE THERAPY-COMPONENT ROUNDED =                       33770000
352000                   (THR-INDEX * REHAB-RATE).                      33780000
352100                                                                  33790000
352200        COMPUTE NCM-THR-COMPONENT ROUNDED =                       33800000
352300                   (FACTOR * NCM-THR-COMPONENT).                  33810000
352400                                                                  33820000
352500        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       33830000
352600                   NURSING-COMPONENT +                            33840000
352700                   THERAPY-COMPONENT +                            33850000
352800                   NCM-THR-COMPONENT +                            33860000
352900                   NCM-COMPONENT.                                 33870000
353000                                                                  33880000
353100        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        33890000
353200             (HLD-PAYMENT-RATE * PERCENT-2014-LABOR) *            33900000
353300               AREA-WAGE-INDEX.                                   33910000
353400                                                                  33920000
353500        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        33930000
353600               (HLD-PAYMENT-RATE * PERCENT-2014-NLABOR) +         33940000
353700                    PAYMENT-RATE-ADJ.                             33950000
353800                                                                  33960000
353900     IF '042   ' = SNF-PRIN-DIAG-CODE   OR                        33970000
354000                   SNF-OTHER-DIAG-CODE2 OR                        33980000
354100                   SNF-OTHER-DIAG-CODE3 OR                        33990000
354200                   SNF-OTHER-DIAG-CODE4 OR                        34000000
354300                   SNF-OTHER-DIAG-CODE5 OR                        34010000
354400                   SNF-OTHER-DIAG-CODE6 OR                        34020000
354500                   SNF-OTHER-DIAG-CODE7 OR                        34030000
354600                   SNF-OTHER-DIAG-CODE8 OR                        34040000
354700                   SNF-OTHER-DIAG-CODE9  OR                       34050000
354800                   SNF-OTHER-DIAG-CODE10 OR                       34060000
354900                   SNF-OTHER-DIAG-CODE11 OR                       34070000
355000                   SNF-OTHER-DIAG-CODE12 OR                       34080000
355100                   SNF-OTHER-DIAG-CODE13 OR                       34090000
355200                   SNF-OTHER-DIAG-CODE14 OR                       34100000
355300                   SNF-OTHER-DIAG-CODE15 OR                       34110000
355400                   SNF-OTHER-DIAG-CODE16 OR                       34120000
355500                   SNF-OTHER-DIAG-CODE17 OR                       34130000
355600                   SNF-OTHER-DIAG-CODE18 OR                       34140000
355700                   SNF-OTHER-DIAG-CODE19 OR                       34150000
355800                   SNF-OTHER-DIAG-CODE20 OR                       34160000
355900                   SNF-OTHER-DIAG-CODE21 OR                       34170000
356000                   SNF-OTHER-DIAG-CODE22 OR                       34180000
356100                   SNF-OTHER-DIAG-CODE23 OR                       34190000
356200                   SNF-OTHER-DIAG-CODE24 OR                       34200000
356300                   SNF-OTHER-DIAG-CODE25                          34210000
356400         COMPUTE HLD-PAYMENT-RATE ROUNDED =                       34220000
356500                 HLD-PAYMENT-RATE * 2.28                          34230000
356600         GO TO 2014-67-CONTINUE.                                  34240000
356700                                                                  34250000
356800 2014-67-CONTINUE.                                                34260000
356900                                                                  34270000
357000     IF SNF-FED-BLEND = 0                                         34280000
357100        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        34290000
357200                HLD-FACILITY-RATE * 1.00.                         34300000
357300                                                                  34310000
357400     IF SNF-FED-BLEND = 4                                         34320000
357500        MOVE HLD-PAYMENT-RATE  TO FED-PAYMENT-PORTION             34330000
357600        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        34340000
357700                HLD-PAYMENT-RATE * 1.00.                          34350000
357800                                                                  34360000
357900 2014-67-EXIT.                                                    34370000
358000     EXIT.                                                        34380000
358100                                                                  34390000
358200                                                                  34400000
358300 2015-67-PAYMENT-RATE-CALC.                                       34410000
358400***************************************************************   34420000
358500*     PAYMENT RATE CALCULATION PROCCESS EFFECTIVE OCT.1, 2014     34430000
358600***************************************************************   34440000
358700                                                                  34450000
358800     IF HLD-CBSA = '     '                                        34460000
358900        MOVE '30'              TO HLD-RTC                         34470000
359000        GO TO 2015-67-EXIT.                                       34480000
359100                                                                  34490000
359200     MOVE 1                    TO R3.                             34500000
359300                                                                  34510000
359400     IF HLD-CBSA-RURAL-CHECK                                      34520000
359500        MOVE 1                 TO R2                              34530000
359600     ELSE                                                         34540000
359700        MOVE 2                 TO R2.                             34550000
359800                                                                  34560000
359900     PERFORM 915-SEARCH-4-RUG67-2015                              34570000
360000        THRU 915-SEARCH-EXIT.                                     34580000
360100                                                                  34590000
360200     IF HLD-RTC NOT = 00                                          34600000
360300        GO TO 2015-67-EXIT.                                       34610000
360400                                                                  34620000
360500     PERFORM 500-GET-RATES.                                       34630000
360600                                                                  34640000
360700     IF SNF-FED-BLEND = 0 OR 4                                    34650000
360800        NEXT SENTENCE                                             34660000
360900     ELSE                                                         34670000
361000        MOVE '60'              TO HLD-RTC                         34680000
361100        MOVE ALL '0'           TO HOLD-VAR-DATA                   34690000
361200        GO TO 2015-67-EXIT.                                       34700000
361300                                                                  34710000
361400                                                                  34720000
361500                                                                  34730000
361600                                                                  34740000
361700        COMPUTE NURSING-COMPONENT ROUNDED =                       34750000
361800                   (NUR-INDEX * IP-RATE).                         34760000
361900                                                                  34770000
362000                                                                  34780000
362100        COMPUTE THERAPY-COMPONENT ROUNDED =                       34790000
362200                   (THR-INDEX * REHAB-RATE).                      34800000
362300                                                                  34810000
362400        COMPUTE NCM-THR-COMPONENT ROUNDED =                       34820000
362500                   (FACTOR * NCM-THR-COMPONENT).                  34830000
362600                                                                  34840000
362700                                                                  34850000
362800        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       34860000
362900                   NURSING-COMPONENT +                            34870000
363000                   THERAPY-COMPONENT +                            34880000
363100                   NCM-THR-COMPONENT +                            34890000
363200                   NCM-COMPONENT.                                 34900000
363300                                                                  34910000
363400                                                                  34920000
363500        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        34930000
363600             (HLD-PAYMENT-RATE * PERCENT-2015-LABOR) *            34940000
363700               AREA-WAGE-INDEX.                                   34950000
363800                                                                  34960000
363900                                                                  34970000
364000                                                                  34980000
364100        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        34990000
364200               (HLD-PAYMENT-RATE * PERCENT-2015-NLABOR) +         35000000
364300                    PAYMENT-RATE-ADJ.                             35010000
364400                                                                  35020000
364500                                                                  35030000
364600     IF '042   ' = SNF-PRIN-DIAG-CODE   OR                        35040000
364700                   SNF-OTHER-DIAG-CODE2 OR                        35050000
364800                   SNF-OTHER-DIAG-CODE3 OR                        35060000
364900                   SNF-OTHER-DIAG-CODE4 OR                        35070000
365000                   SNF-OTHER-DIAG-CODE5 OR                        35080000
365100                   SNF-OTHER-DIAG-CODE6 OR                        35090000
365200                   SNF-OTHER-DIAG-CODE7 OR                        35100000
365300                   SNF-OTHER-DIAG-CODE8 OR                        35110000
365400                   SNF-OTHER-DIAG-CODE9  OR                       35120000
365500                   SNF-OTHER-DIAG-CODE10 OR                       35130000
365600                   SNF-OTHER-DIAG-CODE11 OR                       35140000
365700                   SNF-OTHER-DIAG-CODE12 OR                       35150000
365800                   SNF-OTHER-DIAG-CODE13 OR                       35160000
365900                   SNF-OTHER-DIAG-CODE14 OR                       35170000
366000                   SNF-OTHER-DIAG-CODE15 OR                       35180000
366100                   SNF-OTHER-DIAG-CODE16 OR                       35190000
366200                   SNF-OTHER-DIAG-CODE17 OR                       35200000
366300                   SNF-OTHER-DIAG-CODE18 OR                       35210000
366400                   SNF-OTHER-DIAG-CODE19 OR                       35220000
366500                   SNF-OTHER-DIAG-CODE20 OR                       35230000
366600                   SNF-OTHER-DIAG-CODE21 OR                       35240000
366700                   SNF-OTHER-DIAG-CODE22 OR                       35250000
366800                   SNF-OTHER-DIAG-CODE23 OR                       35260000
366900                   SNF-OTHER-DIAG-CODE24 OR                       35270000
367000                   SNF-OTHER-DIAG-CODE25                          35280000
367100                                                                  35290000
367200         COMPUTE HLD-PAYMENT-RATE ROUNDED =                       35300000
367300                 HLD-PAYMENT-RATE * 2.28                          35310000
367400         GO TO 2015-67-CONTINUE.                                  35320000
367500                                                                  35330000
367600 2015-67-CONTINUE.                                                35340000
367700                                                                  35350000
367800     IF SNF-FED-BLEND = 0                                         35360000
367900        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        35370000
368000                HLD-FACILITY-RATE * 1.00.                         35380000
368100                                                                  35390000
368200     IF SNF-FED-BLEND = 4                                         35400000
368300        MOVE HLD-PAYMENT-RATE  TO FED-PAYMENT-PORTION             35410000
368400        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        35420000
368500                HLD-PAYMENT-RATE * 1.00.                          35430000
368600                                                                  35440000
368700 2015-67-EXIT.                                                    35450000
368800     EXIT.                                                        35460000
368900                                                                  35470000
369000                                                                  35471000
369100 2016-67-PAYMENT-RATE-CALC.                                       35472000
369200***************************************************************   35473000
369300*     PAYMENT RATE CALCULATION PROCCESS EFFECTIVE OCT.1, 2015     35474000
369400***************************************************************   35475000
369500                                                                  35476000
369600     IF HLD-CBSA = '     '                                        35477000
369700        MOVE '30'              TO HLD-RTC                         35478000
369800        GO TO 2016-67-EXIT.                                       35479000
369900                                                                  35479100
370000     MOVE 1                    TO R3.                             35479200
370100                                                                  35479300
370200     IF HLD-CBSA-RURAL-CHECK                                      35479400
370300        MOVE 1                 TO R2                              35479500
370400     ELSE                                                         35479600
370500        MOVE 2                 TO R2.                             35479700
370600                                                                  35479800
370700     PERFORM 916-SEARCH-4-RUG67-2016                              35479900
370800        THRU 916-SEARCH-EXIT.                                     35480000
370900                                                                  35481000
371000     IF HLD-RTC NOT = 00                                          35482000
371100        GO TO 2016-67-EXIT.                                       35483000
371200                                                                  35484000
371300     PERFORM 500-GET-RATES.                                       35485000
371400                                                                  35486000
371500     IF SNF-FED-BLEND = 0 OR 4                                    35487000
371600        NEXT SENTENCE                                             35488000
371700     ELSE                                                         35489000
371800        MOVE '60'              TO HLD-RTC                         35489100
371900        MOVE ALL '0'           TO HOLD-VAR-DATA                   35489200
372000        GO TO 2016-67-EXIT.                                       35489300
372100                                                                  35489400
372200                                                                  35489500
372300                                                                  35489600
372400                                                                  35489700
372500        COMPUTE NURSING-COMPONENT ROUNDED =                       35489800
372600                   (NUR-INDEX * IP-RATE).                         35489900
372700                                                                  35490000
372800                                                                  35491000
372900        COMPUTE THERAPY-COMPONENT ROUNDED =                       35492000
373000                   (THR-INDEX * REHAB-RATE).                      35493000
373100                                                                  35494000
373200        COMPUTE NCM-THR-COMPONENT ROUNDED =                       35495000
373300                   (FACTOR * NCM-THR-COMPONENT).                  35496000
373400                                                                  35497000
373500                                                                  35498000
373600        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       35499000
373700                   NURSING-COMPONENT +                            35499100
373800                   THERAPY-COMPONENT +                            35499200
373900                   NCM-THR-COMPONENT +                            35499300
374000                   NCM-COMPONENT.                                 35499400
374100                                                                  35499500
374200                                                                  35499600
374300        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        35499700
374400             (HLD-PAYMENT-RATE * PERCENT-2016-LABOR) *            35499800
374500               AREA-WAGE-INDEX.                                   35499900
374600                                                                  35500000
374700                                                                  35501000
374800                                                                  35502000
374900        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        35503000
375000               (HLD-PAYMENT-RATE * PERCENT-2016-NLABOR) +         35504000
375100                    PAYMENT-RATE-ADJ.                             35505000
375200                                                                  35506000
375300                                                                  35507000
375400     IF 'B20   ' = SNF-PRIN-DIAG-CODE   OR                        35508000
375500                   SNF-OTHER-DIAG-CODE2 OR                        35509000
375600                   SNF-OTHER-DIAG-CODE3 OR                        35509100
375700                   SNF-OTHER-DIAG-CODE4 OR                        35509200
375800                   SNF-OTHER-DIAG-CODE5 OR                        35509300
375900                   SNF-OTHER-DIAG-CODE6 OR                        35509400
376000                   SNF-OTHER-DIAG-CODE7 OR                        35509500
376100                   SNF-OTHER-DIAG-CODE8 OR                        35509600
376200                   SNF-OTHER-DIAG-CODE9  OR                       35509700
376300                   SNF-OTHER-DIAG-CODE10 OR                       35509800
376400                   SNF-OTHER-DIAG-CODE11 OR                       35509900
376500                   SNF-OTHER-DIAG-CODE12 OR                       35510000
376600                   SNF-OTHER-DIAG-CODE13 OR                       35511000
376700                   SNF-OTHER-DIAG-CODE14 OR                       35512000
376800                   SNF-OTHER-DIAG-CODE15 OR                       35513000
376900                   SNF-OTHER-DIAG-CODE16 OR                       35514000
377000                   SNF-OTHER-DIAG-CODE17 OR                       35515000
377100                   SNF-OTHER-DIAG-CODE18 OR                       35516000
377200                   SNF-OTHER-DIAG-CODE19 OR                       35517000
377300                   SNF-OTHER-DIAG-CODE20 OR                       35518000
377400                   SNF-OTHER-DIAG-CODE21 OR                       35519000
377500                   SNF-OTHER-DIAG-CODE22 OR                       35519100
377600                   SNF-OTHER-DIAG-CODE23 OR                       35519200
377700                   SNF-OTHER-DIAG-CODE24 OR                       35519300
377800                   SNF-OTHER-DIAG-CODE25                          35519400
377900                                                                  35519500
378000         COMPUTE HLD-PAYMENT-RATE ROUNDED =                       35519600
378100                 HLD-PAYMENT-RATE * 2.28                          35519700
378200         GO TO 2016-67-CONTINUE.                                  35519800
378300                                                                  35519900
378400 2016-67-CONTINUE.                                                35520000
378500                                                                  35521000
378600     IF SNF-FED-BLEND = 0                                         35522000
378700        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        35523000
378800                HLD-FACILITY-RATE * 1.00.                         35524000
378900                                                                  35525000
379000     IF SNF-FED-BLEND = 4                                         35526000
379100        MOVE HLD-PAYMENT-RATE  TO FED-PAYMENT-PORTION             35527000
379200        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        35528000
379300                HLD-PAYMENT-RATE * 1.00.                          35529000
379400                                                                  35529100
379500 2016-67-EXIT.                                                    35529200
379600     EXIT.                                                        35529300
379700                                                                  35529400
379800******        L A S T   S O U R C E   S T A T E M E N T   *****   35530000
