000100 IDENTIFICATION DIVISION.                                         00010005
000200 PROGRAM-ID.      SNFPR170.                                       00020005
000300*AUTHOR.                 CMS.                                     00030005
000400*                                                                 00040005
000500*                                                                 00050005
000600*REMARKS. (CENTERS FOR MEDICARE AND MEDICAID SERVICES)            00060005
000700***         - CICS VERSION RELEASED FOR JULY 1 2006               00070005
000800***         - NATIONAL SNF PRICER FOR ALL YEARS                   00080005
000900***         - NATIONAL SNF PRICER EFFECTIVE JULY 1, 1998          00090005
001000***         - SNF PRICER REFERS TO A PROGRAM WHICH WILL           00100005
001100***           CALCULATE THE DAILY MEDICARE RATE UPON WHICH THE    00110005
001200***           MEDICARE SNF PPS PAYMENT IS MADE. PRICER USES THE   00120005
001300***           FACILITY'S PSF RATE, MSA AND BLEND INDICATOR WITH   00130005
001400***           THE 'STATEMENT COVERS THROUGH DATE' ON THE CLAIM AND00140005
001500***           HCPPS RATE CODE TO CALCULATE THE HCPPS RATES.       00150005
001600***************************************************************   00160005
001700******************************************************************00161005
001800*     SNFPR16A   EFFECTIVE OCT 1, 2015                            00162005
001900*                KEEP CBSA FILE FOR FY2016                        00163005
002000*                ICD10 TESTING SNF CALC MODULE  - SNFPR160        00164005
002100******************************************************************00165005
001700******************************************************************00166005
001800*     SNFPR160   EFFECTIVE OCT 1, 2015                            00167005
001900*                KEEP CBSA FILE FOR FY2016                        00168005
002000*                ICD10 TESTING SNF CALC MODULE  - SNFPR160        00169005
002100******************************************************************00169105
001700******************************************************************00169205
001800*     SNFPR170   EFFECTIVE OCT 1, 2016                            00169305
001900*                KEEP CBSA FILE FOR FY2017                        00169405
002000*                SNF CALC MODULE  - SNFPR170                      00169505
002100******************************************************************00169605
002200***************************************************************   00169705
002300 DATE-COMPILED.                                                   00169805
002400 ENVIRONMENT DIVISION.                                            00169905
002500 CONFIGURATION SECTION.                                           00170005
002600 SOURCE-COMPUTER.            IBM-370.                             00180005
002700 OBJECT-COMPUTER.            IBM-370.                             00190005
002800 INPUT-OUTPUT  SECTION.                                           00200005
002900 FILE-CONTROL.                                                    00210005
003000                                                                  00220005
003100 DATA DIVISION.                                                   00230005
003200 FILE SECTION.                                                    00240005
003300                                                                  00250005
003400 WORKING-STORAGE SECTION.                                         00260005
003500 01  W-STORAGE-REF                  PIC X(46)  VALUE              00270005
003600     'SNFPR170    - W O R K I N G   S T O R A G E'.               00280005
003700 01  CAL-VERSION                    PIC X(09)  VALUE 'SNFPR17.0'. 00290005
003800 01  R1                             PIC S9(04) COMP SYNC.         00300005
003900 01  R2                             PIC S9(04) COMP SYNC.         00310005
004000 01  R3                             PIC S9(04) COMP SYNC.         00320005
004100 01  LABOR-NLABOR-PERCENT.                                        00330005
004200     05 PERCENT-1999-LABOR     PIC 9V99999 VALUE 0.75888.         00340005
004300     05 PERCENT-1999-NLABOR    PIC 9V99999 VALUE 0.24112.         00350005
004400     05 PERCENT-2000-LABOR     PIC 9V99999 VALUE 0.77545.         00360005
004500     05 PERCENT-2000-NLABOR    PIC 9V99999 VALUE 0.22455.         00370005
004600     05 PERCENT-2001-LABOR     PIC 9V99999 VALUE 0.77870.         00380005
004700     05 PERCENT-2001-NLABOR    PIC 9V99999 VALUE 0.22130.         00390005
004800     05 PERCENT-2002-LABOR     PIC 9V99999 VALUE 0.75379.         00400005
004900     05 PERCENT-2002-NLABOR    PIC 9V99999 VALUE 0.24621.         00410005
005000     05 PERCENT-2003-LABOR     PIC 9V99999 VALUE 0.76128.         00420005
005100     05 PERCENT-2003-NLABOR    PIC 9V99999 VALUE 0.23872.         00430005
005200     05 PERCENT-2004-LABOR     PIC 9V99999 VALUE 0.76372.         00440005
005300     05 PERCENT-2004-NLABOR    PIC 9V99999 VALUE 0.23628.         00450005
005400     05 PERCENT-2005-LABOR     PIC 9V99999 VALUE 0.76222.         00460005
005500     05 PERCENT-2005-NLABOR    PIC 9V99999 VALUE 0.23778.         00470005
005600     05 PERCENT-2006-LABOR     PIC 9V99999 VALUE 0.75922.         00480005
005700     05 PERCENT-2006-NLABOR    PIC 9V99999 VALUE 0.24078.         00490005
005800     05 PERCENT-2007-LABOR     PIC 9V99999 VALUE 0.75839.         00500005
005900     05 PERCENT-2007-NLABOR    PIC 9V99999 VALUE 0.24161.         00510005
006000     05 PERCENT-2008-LABOR     PIC 9V99999 VALUE 0.70249.         00520005
006100     05 PERCENT-2008-NLABOR    PIC 9V99999 VALUE 0.29751.         00530005
006200**************YEARCHANGE 2009.0 *******************************   00540005
006300     05 PERCENT-2009-LABOR     PIC 9V99999 VALUE 0.69783.         00550005
006400     05 PERCENT-2009-NLABOR    PIC 9V99999 VALUE 0.30217.         00560005
006500**************YEARCHANGE 2009.0 *******************************   00570005
006600**************YEARCHANGE 7010.0 *******************************   00580005
006700     05 PERCENT-2010-LABOR     PIC 9V99999 VALUE 0.69840.         00590005
006800     05 PERCENT-2010-NLABOR    PIC 9V99999 VALUE 0.30160.         00600005
006900**************YEARCHANGE 2010.0 *******************************   00610005
007000**************YEARCHANGE 2011.2 *******************************   00620005
007100     05 PERCENT-2011-LABOR     PIC 9V99999 VALUE 0.69311.         00630005
007200     05 PERCENT-2011-NLABOR    PIC 9V99999 VALUE 0.30689.         00640005
007300**************YEARCHANGE 2011.2 *******************************   00650005
007400**************YEARCHANGE 2012.0 *******************************   00660005
007500     05 PERCENT-2012-LABOR     PIC 9V99999 VALUE 0.68693.         00670005
007600     05 PERCENT-2012-NLABOR    PIC 9V99999 VALUE 0.31307.         00680005
007700**************YEARCHANGE 2012.0 *******************************   00690005
007800**************YEARCHANGE 2013.0 *******************************   00700005
007900     05 PERCENT-2013-LABOR     PIC 9V99999 VALUE 0.68383.         00710005
008000     05 PERCENT-2013-NLABOR    PIC 9V99999 VALUE 0.31617.         00720005
008100**************YEARCHANGE 2013.0 *******************************   00730005
008200**************YEARCHANGE 2014.0 *******************************   00740005
008300     05 PERCENT-2014-LABOR     PIC 9V99999 VALUE 0.69545.         00750005
008400     05 PERCENT-2014-NLABOR    PIC 9V99999 VALUE 0.30455.         00760005
008500**************YEARCHANGE 2014.0 *******************************   00770005
008600**************YEARCHANGE 2015.0 *******************************   00780005
008700     05 PERCENT-2015-LABOR     PIC 9V99999 VALUE 0.69180.         00790005
008800     05 PERCENT-2015-NLABOR    PIC 9V99999 VALUE 0.30820.         00800005
008900**************YEARCHANGE 2015.0 *******************************   00810005
009000**************YEARCHANGE 2016.0 *******************************   00820005
009100     05 PERCENT-2016-LABOR     PIC 9V99999 VALUE 0.69100.         00830005
009200     05 PERCENT-2016-NLABOR    PIC 9V99999 VALUE 0.30900.         00840005
009300**************YEARCHANGE 2016.0 *******************************   00850005
009000**************YEARCHANGE 2017.0 *******************************   00851005
009100     05 PERCENT-2017-LABOR     PIC 9V99999 VALUE 0.68800.         00852005
009200     05 PERCENT-2017-NLABOR    PIC 9V99999 VALUE 0.31200.         00853005
009300**************YEARCHANGE 2017.0 *******************************   00854005
009400                                                                  00855005
009500 01  WK-PAYMENT-RATE           PIC 9(06)V99 VALUE 0.              00856005
009600 01  WK-FACILITY-RATE          PIC 9(06)V99 VALUE 0.              00857005
009700                                                                  00858005
009800 01  HLD-PRICE-FROM-DATE.                                         00859005
009900     10  HLD-PRICE-FROM-CC     PIC XX.                            00860005
010000     10  HLD-PRICE-FROM-YY     PIC XX.                            00870005
010100     10  HLD-PRICE-FROM-MMDD   PIC XXXX.                          00880005
010200                                                                  00890005
010300 01  HLD-PRICE-THRU-DATE.                                         00900005
010400     10  HLD-PRICE-THRU-CC     PIC XX.                            00910005
010500     10  HLD-PRICE-THRU-YY     PIC XX.                            00920005
010600     10  HLD-PRICE-THRU-MMDD   PIC XXXX.                          00930005
010700                                                                  00940005
010800 01  HOLD-SNF-DATA.                                               00950005
010900     10  HLD-MSA.                                                 00960005
011000         15  HLD-MSA-1ST       PIC XX.                            00970005
011100             88  HLD-MSA-RURAL-CHECK VALUE '  '.                  00980005
011200         15  HLD-MSA-2ND       PIC XX.                            00990005
011300     10  HLD-CBSA.                                                01000005
011400         15  HLD-CBSA-1ST      PIC XXX.                           01010005
011500             88  HLD-CBSA-RURAL-CHECK     VALUE '   ' '999'.      01020005
011600         15  HLD-CBSA-2ND      PIC XX.                            01030005
011700     10  HLD-SPEC-WI-IND       PIC X.                             01040005
011800     10  HLD-SPEC-WI           PIC 9(02)V9(04).                   01050005
011900     10  HLD-RUG-CODE.                                            01060005
012000         15  HLD-RUG           PIC XXX.                           01070005
012100         15  HLD2-RUG REDEFINES HLD-RUG.                          01080005
012200             20  HLD-RUG-POS12 PIC XX.                            01090005
012300             20  HLD-RUG-POS3  PIC 9.                             01100005
012400         15  FILLER            PIC XX.                            01110005
012500     10  HLD-FROM-DATE.                                           01120005
012600         15  HLD-FROM-CC       PIC XX.                            01130005
012700         15  HLD-FROM-YY       PIC XX.                            01140005
012800         15  HLD-FROM-MMDD     PIC XXXX.                          01150005
012900     10  HLD-THRU-DATE.                                           01160005
013000         15  HLD-THRU-CC       PIC XX.                            01170005
013100         15  HLD-THRU-YY       PIC XX.                            01180005
013200         15  HLD-THRU-MMDD     PIC XXXX.                          01190005
013300     10  HLD-FED-BLEND         PIC X.                             01200005
013400         88  HLD-ALL-FACILITY      VALUE '0'.                     01210005
013500         88  HLD-FED-BLEND-2575PER VALUE '1'.                     01220005
013600         88  HLD-FED-BLEND-5050PER VALUE '2'.                     01230005
013700         88  HLD-FED-BLEND-7525PER VALUE '3'.                     01240005
013800         88  HLD-FED-BLEND-100PER  VALUE '4'.                     01250005
013900                                                                  01260005
014000     10  HLD-FACILITY-RATE     PIC 99999V99.                      01270005
014100                                                                  01280005
014200     10  HLD-DIAGNOSIS-CODES.                                     01290005
014300         15  HLD-PRIN-DIAG-CODE     PIC X(07).                    01300005
014400         15  HLD-OTHER-DIAG-CODE2   PIC X(07).                    01310005
014500         15  HLD-OTHER-DIAG-CODE3   PIC X(07).                    01320005
014600         15  HLD-OTHER-DIAG-CODE4   PIC X(07).                    01330005
014700         15  HLD-OTHER-DIAG-CODE5   PIC X(07).                    01340005
014800         15  HLD-OTHER-DIAG-CODE6   PIC X(07).                    01350005
014900         15  HLD-OTHER-DIAG-CODE7   PIC X(07).                    01360005
015000         15  HLD-OTHER-DIAG-CODE8   PIC X(07).                    01370005
015100         15  HLD-OTHER-DIAG-CODE9   PIC X(07).                    01380005
015200         15  HLD-OTHER-DIAG-CODE10  PIC X(07).                    01390005
015300         15  HLD-OTHER-DIAG-CODE11  PIC X(07).                    01400005
015400         15  HLD-OTHER-DIAG-CODE12  PIC X(07).                    01410005
015500         15  HLD-OTHER-DIAG-CODE13  PIC X(07).                    01420005
015600         15  HLD-OTHER-DIAG-CODE14  PIC X(07).                    01430005
015700         15  HLD-OTHER-DIAG-CODE15  PIC X(07).                    01440005
015800         15  HLD-OTHER-DIAG-CODE16  PIC X(07).                    01450005
015900         15  HLD-OTHER-DIAG-CODE17  PIC X(07).                    01460005
016000         15  HLD-OTHER-DIAG-CODE18  PIC X(07).                    01470005
016100         15  HLD-OTHER-DIAG-CODE19  PIC X(07).                    01480005
016200         15  HLD-OTHER-DIAG-CODE20  PIC X(07).                    01490005
016300         15  HLD-OTHER-DIAG-CODE21  PIC X(07).                    01500005
016400         15  HLD-OTHER-DIAG-CODE22  PIC X(07).                    01510005
016500         15  HLD-OTHER-DIAG-CODE23  PIC X(07).                    01520005
016600         15  HLD-OTHER-DIAG-CODE24  PIC X(07).                    01530005
016700         15  HLD-OTHER-DIAG-CODE25                                01540005
016800                               PIC X(07).                         01550005
016900     10  HLD-RATE-RTC.                                            01560005
017000         15  HLD-PAYMENT-RATE  PIC 9(06)V99.                      01570005
017100         15  HLD-RTC           PIC XX.                            01580005
017200     10  HLD-FILLER                PIC X(24).                     01590005
017300                                                                  01600005
017400***************************************************************   01610005
017500*    LAYUP TABLE AREA FOR REGIONS                             *   01620005
017600*  FORMAT FOR RATE TABLE 1998 AND 1999 FOR JULY 1 1998        *   01630005
017700*  FORMAT FOR RATE TABLE 2000 FOR OCT 1, 1999                 *   01640005
017800*  FORMAT FOR RATE TABLE 2001 FOR OCT 1, 2000                 *   01650005
017900*  FORMAT FOR RATE TABLE 2001 FOR APR 1, 2001                 *   01660005
018000*  FORMAT FOR RATE TABLE 2002 FOR OCT 1, 2001                 *   01670005
018100*  FORMAT FOR RATE TABLE 2003 FOR OCT 1, 2002                 *   01680005
018200*  FORMAT FOR RATE TABLE 2004 FOR OCT 1, 2003                 *   01690005
018300*  FORMAT FOR RATE TABLE 2005 FOR OCT 1, 2004                 *   01700005
018400*  FORMAT FOR RATE TABLE 2006 FOR OCT 1, 2005                 *   01710005
018500*  FORMAT FOR RATE TABLE 2007 FOR OCT 1, 2006                 *   01720005
018600*  FORMAT FOR RATE TABLE 2008 FOR OCT 1, 2007                 *   01730005
018700*  FORMAT FOR RATE TABLE 2009 FOR OCT 1, 2008                 *   01740005
018800*  FORMAT FOR RATE TABLE 2010 FOR OCT 1, 2009                 *   01750005
018900*  FORMAT FOR RATE TABLE 2011 FOR OCT 1, 2010                 *   01760005
019000*  FORMAT FOR RATE TABLE 2012 FOR OCT 1, 2011                 *   01770005
019100*  FORMAT FOR RATE TABLE 2013 FOR OCT 1, 2012                 *   01780005
019200*  FORMAT FOR RATE TABLE 2014 FOR OCT 1, 2013                 *   01790005
019200*  FORMAT FOR RATE TABLE 2015 FOR OCT 1, 2014                 *   01800005
019200*  FORMAT FOR RATE TABLE 2016 FOR OCT 1, 2015                 *   01810005
019300*  REGION = ( 1 = RURAL  2 = URBAN ) RATES                    *   01820005
019400***************************************************************   01830005
019500 01  REGION-TABLE.                                                01840005
019600     02  REGION-DATA.                                             01850005
019700*  TABLE RATE FOR FY1998 AND 1999                                 01860005
019800*  19980701/               REGION/ INP / GEN SER / THER / REHAB   01870005
019900     05  FILLER    PIC X(08) VALUE '19980701'.                    01880005
020000     05  FILLER    PIC X(25) VALUE '1 10488 05695 01166 09551'.   01890005
020100     05  FILLER    PIC X(25) VALUE '2 10948 05588 01091 08267'.   01900005
020200*  TABLE RATE FOR FY2000                                          01910005
020300*  19991001/               REGION/ INP / GEN SER / THER / REHAB   01920005
020400     05  FILLER    PIC X(08) VALUE '19991001'.                    01930005
020500     05  FILLER    PIC X(25) VALUE '1 10712 05825 01188 09733'.   01940005
020600     05  FILLER    PIC X(25) VALUE '2 11189 05720 01112 08425'.   01950005
020700*  TABLE RATE FOR FY2001                                          01960005
020800*  20001001/               REGION/ INP / GEN SER / THER / REHAB   01970005
020900     05  FILLER    PIC X(08) VALUE '20001001'.                    01980005
021000     05  FILLER    PIC X(25) VALUE '1 10929 05945 01213 09934'.   01990005
021100     05  FILLER    PIC X(25) VALUE '2 11438 05838 01135 08616'.   02000005
021200*  TABLE RATE FOR FY2001 EFFECTIVE APR 1, 2001                    02010005
021300*  20010401/               REGION/ INP / GEN SER / THER / REHAB   02020005
021400     05  FILLER    PIC X(08) VALUE '20010401'.                    02030005
021500     05  FILLER    PIC X(25) VALUE '1 12999 06062 01236 10129'.   02040005
021600     05  FILLER    PIC X(25) VALUE '2 13605 05953 01157 08784'.   02050005
021700*  TABLE RATE FOR FY2002 EFFECTIVE OCT 1, 2001                    02060005
021800*  20011001/               REGION/ INP / GEN SER / THER / REHAB   02070005
021900     05  FILLER    PIC X(08) VALUE '20011001'.                    02080005
022000     05  FILLER    PIC X(25) VALUE '1 13213 06162 01256 10296'.   02090005
022100     05  FILLER    PIC X(25) VALUE '2 13829 06050 01176 08929'.   02100005
022200*  TABLE RATE FOR FY2003 EFFECTIVE OCT 1, 2002                    02110005
022300*  20021001/               REGION/ INP / GEN SER / THER / REHAB   02120005
022400     05  FILLER    PIC X(08) VALUE '20021001'.                    02130005
022500     05  FILLER    PIC X(25) VALUE '1 11617 06320 01288 10561'.   02140005
022600     05  FILLER    PIC X(25) VALUE '2 12159 06205 01206 09158'.   02150005
024300**************YEARCHANGE 2004.0 *******************************   02160005
022700*  TABLE RATE FOR FY2004 EFFECTIVE OCT 1, 2003                    02170005
022800*  20031001/               REGION/ INP / GEN SER / THER / REHAB   02180005
022900     05  FILLER    PIC X(08) VALUE '20031001'.                    02190005
023000     05  FILLER    PIC X(25) VALUE '1 12374 06733 01372 11250'.   02200005
023100     05  FILLER    PIC X(25) VALUE '2 12952 06610 01285 09756'.   02210005
024300**************YEARCHANGE 2005.0 *******************************   02220005
023200*  TABLE RATE FOR FY2005 EFFECTIVE OCT 1, 2004                    02230005
023300*  20041001/               REGION/ INP / GEN SER / THER / REHAB   02240005
023400     05  FILLER    PIC X(08) VALUE '20041001'.                    02250005
023500     05  FILLER    PIC X(25) VALUE '1 12734 06929 01412 11578'.   02260005
023600     05  FILLER    PIC X(25) VALUE '2 13329 06803 01322 10040'.   02270005
023700**************YEARCHANGE 2006.0 *******************************   02280005
023800*  TABLE RATE FOR FY2006 EFFECTIVE OCT 1, 2005                    02290005
023900*  20051001/               REGION/ INP / GEN SER / THER / REHAB   02300005
024000     05  FILLER    PIC X(08) VALUE '20051001'.                    02310005
024100     05  FILLER    PIC X(25) VALUE '1 13145 07152 01458 11951'.   02320005
024200     05  FILLER    PIC X(25) VALUE '2 13759 07022 01365 10364'.   02330005
024300**************YEARCHANGE 2007.0 *******************************   02340005
024400*  TABLE RATE FOR FY2007 EFFECTIVE OCT 1, 2006                    02350005
024500*  20061001/               REGION/ INP / GEN SER / THER / REHAB   02360005
024600     05  FILLER    PIC X(08) VALUE '20061001'.                    02370005
024700     05  FILLER    PIC X(25) VALUE '1 13570 07383 01505 12337'.   02380005
024800     05  FILLER    PIC X(25) VALUE '2 14204 07249 01409 10699'.   02390005
024900**************YEARCHANGE 2008.0 *******************************   02400005
025000*  TABLE RATE FOR FY2008 EFFECTIVE OCT 2, 2007                    02410005
025100*  20071001/               REGION/ INP / GEN SER / THER / REHAB   02420005
025200     05  FILLER    PIC X(08) VALUE '20071001'.                    02430005
025300     05  FILLER    PIC X(25) VALUE '1 14008 07621 01554 12735'.   02440005
025400     05  FILLER    PIC X(25) VALUE '2 14662 07483 01454 11044'.   02450005
025500**************YEARCHANGE 2009.0 *******************************   02460005
025600*  TABLE RATE FOR FY2009 EFFECTIVE OCT 1, 2008                    02470005
025700*  20081001/               REGION/ INP / GEN SER / THER / REHAB   02480005
025800     05  FILLER    PIC X(08) VALUE '20081001'.                    02490005
025900     05  FILLER    PIC X(25) VALUE '1 14497 07887 01608 13180'.   02500005
026000     05  FILLER    PIC X(25) VALUE '2 15174 07744 01505 11430'.   02510005
026100**************YEARCHANGE 2009.0 *******************************   02520005
026200**************YEARCHANGE 2010.0 *******************************   02530005
026300*  TABLE RATE FOR FY2009 EFFECTIVE OCT 2, 2009                    02540005
026400*  20091001/               REGION/ INP / GEN SER / THER / REHAB   02550005
026500     05  FILLER    PIC X(08) VALUE '20091001'.                    02560005
026600     05  FILLER    PIC X(25) VALUE '1 14831 08069 01645 13483'.   02570005
026700     05  FILLER    PIC X(25) VALUE '2 15523 07922 01540 11693'.   02580005
026800**************YEARCHANGE 2010.0 *******************************   02590005
026900**************YEARCHANGE 2011.0 *******************************   02600005
027000*  TABLE RATE FOR FY2009 EFFECTIVE OCT 2, 2009                    02610005
027100*  20091001/               REGION/ INP / GEN SER / THER / REHAB   02620005
027200     05  FILLER    PIC X(08) VALUE '20101001'.                    02630005
027300     05  FILLER    PIC X(25) VALUE '1 15079 08204 01672 13708'.   02640005
027400     05  FILLER    PIC X(25) VALUE '2 15782 08054 01566 11888'.   02650005
027500**************YEARCHANGE 2011.0 *******************************   02660005
027600**************YEARCHANGE 2012.0 *******************************   02670005
027700*  TABLE RATE FOR FY2012 EFFECTIVE OCT 1, 2011                    02680005
027800*  20111001/               REGION/ INP / GEN SER / THER / REHAB   02690005
027900     05  FILLER    PIC X(08) VALUE '20111001'.                    02700005
028000     05  FILLER    PIC X(25) VALUE '1 15346 08349 01702 13951'.   02710005
028100     05  FILLER    PIC X(25) VALUE '2 16062 08197 01594 12099'.   02720005
028200**************YEARCHANGE 2012.0 *******************************   02730005
028300**************YEARCHANGE 2013.0 *******************************   02740005
028400*  TABLE RATE FOR FY2013 EFFECTIVE OCT 1, 2012                    02750005
028500*  20121001/               REGION/ INP / GEN SER / THER / REHAB   02760005
028600     05  FILLER    PIC X(08) VALUE '20121001'.                    02770005
028700     05  FILLER    PIC X(25) VALUE '1 15628 08503 01733 14208'.   02780005
028800     05  FILLER    PIC X(25) VALUE '2 16358 08348 01623 12322'.   02790005
028900**************YEARCHANGE 2013.0 *******************************   02800005
029000**************YEARCHANGE 2014.0 *******************************   02810005
029100*  TABLE RATE FOR FY2014 EFFECTIVE OCT 1, 2013                    02820005
029200*  20131001/               REGION/ INP / GEN SER / THER / REHAB   02830005
029300     05  FILLER    PIC X(08) VALUE '20131001'.                    02840005
029400     05  FILLER    PIC X(25) VALUE '1 15841 08619 01757 14401'.   02850005
029500     05  FILLER    PIC X(25) VALUE '2 16581 08462 01645 12490'.   02860005
029600**************YEARCHANGE 2014.0 *******************************   02870005
029700**************YEARCHANGE 2015.0 *******************************   02880005
029800*  TABLE RATE FOR FY2015 EFFECTIVE OCT 1, 2014                    02890005
029900*  20141001/               REGION/ INP / GEN SER / THER / REHAB   02900005
030000     05  FILLER    PIC X(08) VALUE '20141001'.                    02910005
030100     05  FILLER    PIC X(25) VALUE '1 16172 08799 01794 14702'.   02920005
030200     05  FILLER    PIC X(25) VALUE '2 16928 08639 01679 12751'.   02930005
030300**************YEARCHANGE 2015.0 *******************************   02940005
030400**************YEARCHANGE 2016.0 *******************************   02950005
030500*  TABLE RATE FOR FY2016 EFFECTIVE OCT 1, 2015                    02951005
030600*  20151001/               REGION/ INP / GEN SER / THER / REHAB   02952005
030700     05  FILLER    PIC X(08) VALUE '20151001'.                    02953005
030800     05  FILLER    PIC X(25) VALUE '1 16353 08897 01814 14867'.   02954005
030900     05  FILLER    PIC X(25) VALUE '2 17117 08736 01698 12894'.   02955005
031000**************YEARCHANGE 2016.0 *******************************   02956005
030400**************YEARCHANGE 2017.0 *******************************   02957005
030500*  TABLE RATE FOR FY2016 EFFECTIVE OCT 1, 2016                    02958005
030600*  20161001/               REGION/ INP / GEN SER / THER / REHAB   02959005
030700     05  FILLER    PIC X(08) VALUE '20161001'.                    02959105
030800     05  FILLER    PIC X(25) VALUE '1 16745 09111 01858 15224'.   02959205
030900     05  FILLER    PIC X(25) VALUE '2 17528 08946 01739 13203'.   02959305
031000**************YEARCHANGE 2017.0 *******************************   02959405
031100     02  REGION-DATA2 REDEFINES REGION-DATA.                      02959505
031200         04  REG-PERIOD        OCCURS 20.                         02959605
031300**************YEARCHANGE 2017.0 *******************************   02959705
031400             06  REG-EFF-DATE  PIC X(08).                         02959805
031500             06  REGS          OCCURS 2.                          02959905
031600                 08  REG-DATA  OCCURS 1.                          02960005
031700                     10  REGION        PIC X.                     02970005
031800                     10  FILLER        PIC X.                     02980005
031900                     10  R-IP-RATE     PIC 999V99.                02990005
032000                     10  FILLER        PIC X.                     03000005
032100                     10  R-GS-RATE     PIC 999V99.                03010005
032200                     10  FILLER        PIC X.                     03020005
032300                     10  R-TH-RATE     PIC 999V99.                03030005
032400                     10  FILLER        PIC X.                     03040005
032500                     10  R-REHAB-RATE  PIC 999V99.                03050005
032600                                                                  03060005
032700                                                                  03070005
032800                                                                  03080005
032900***************************************************************   03090005
033000*  LAYUP TABLE AREA FOR RUG  44 CODES                         *   03100005
033100*  EFFECTIVE JULY 1, 1998  TIL JANUARY 1, 2006                *   03110005
033200*  FORMAT FOR RUG TABLE 44                                    *   03120005
033300*    N = NURSING   T = THERAPY  F = THERAPY COMPONENT FACTOR  *   03130005
033400***************************************************************   03140005
033500 01  RUG-TABLE.                                                   03150005
033600     02  RUG-DATA1.                                               03160005
033700*                               RUG  REV                          03170005
033800*                               CODE CODE N - T - F               03180005
033900         03  FILLER  PIC X(19)                                    03190005
034000                         VALUE 'AAA  9000 046 000 1'.             03200005
034100         03  FILLER  PIC X(19)                                    03210005
034200                         VALUE 'PA1  9001 046 000 1'.             03220005
034300         03  FILLER  PIC X(19)                                    03230005
034400                         VALUE 'PA2  9002 049 000 1'.             03240005
034500         03  FILLER  PIC X(19)                                    03250005
034600                         VALUE 'PB1  9003 050 000 1'.             03260005
034700         03  FILLER  PIC X(19)                                    03270005
034800                         VALUE 'PB2  9004 051 000 1'.             03280005
034900         03  FILLER  PIC X(19)                                    03290005
035000                         VALUE 'PC1  9005 064 000 1'.             03300005
035100         03  FILLER  PIC X(19)                                    03310005
035200                         VALUE 'PC2  9006 065 000 1'.             03320005
035300         03  FILLER  PIC X(19)                                    03330005
035400                         VALUE 'PD1  9007 070 000 1'.             03340005
035500         03  FILLER  PIC X(19)                                    03350005
035600                         VALUE 'PD2  9008 072 000 1'.             03360005
035700         03  FILLER  PIC X(19)                                    03370005
035800                         VALUE 'PE1  9009 077 000 1'.             03380005
035900         03  FILLER  PIC X(19)                                    03390005
036000                         VALUE 'PE2  9010 079 000 1'.             03400005
036100         03  FILLER  PIC X(19)                                    03410005
036200                         VALUE 'BA1  9011 048 000 1'.             03420005
036300         03  FILLER  PIC X(19)                                    03430005
036400                         VALUE 'BA2  9012 056 000 1'.             03440005
036500         03  FILLER  PIC X(19)                                    03450005
036600                         VALUE 'BB1  9013 065 000 1'.             03460005
036700         03  FILLER  PIC X(19)                                    03470005
036800                         VALUE 'BB2  9014 068 000 1'.             03480005
036900         03  FILLER  PIC X(19)                                    03490005
037000                         VALUE 'IA1  9015 053 000 1'.             03500005
037100         03  FILLER  PIC X(19)                                    03510005
037200                         VALUE 'IA2  9016 057 000 1'.             03520005
037300         03  FILLER  PIC X(19)                                    03530005
037400                         VALUE 'IB1  9017 067 000 1'.             03540005
037500         03  FILLER  PIC X(19)                                    03550005
037600                         VALUE 'IB2  9018 069 000 1'.             03560005
037700         03  FILLER  PIC X(19)                                    03570005
037800                         VALUE 'CA1  9019 075 000 1'.             03580005
037900         03  FILLER  PIC X(19)                                    03590005
038000                         VALUE 'CA2  9020 083 000 1'.             03600005
038100         03  FILLER  PIC X(19)                                    03610005
038200                         VALUE 'CB1  9021 084 000 1'.             03620005
038300         03  FILLER  PIC X(19)                                    03630005
038400                         VALUE 'CB2  9022 091 000 1'.             03640005
038500         03  FILLER  PIC X(19)                                    03650005
038600                         VALUE 'CC1  9023 099 000 1'.             03660005
038700         03  FILLER  PIC X(19)                                    03670005
038800                         VALUE 'CC2  9024 112 000 1'.             03680005
038900         03  FILLER  PIC X(19)                                    03690005
039000                         VALUE 'SSA  9025 101 000 1'.             03700005
039100         03  FILLER  PIC X(19)                                    03710005
039200                         VALUE 'SSB  9026 105 000 1'.             03720005
039300         03  FILLER  PIC X(19)                                    03730005
039400                         VALUE 'SSC  9027 113 000 1'.             03740005
039500         03  FILLER  PIC X(19)                                    03750005
039600                         VALUE 'SE1  9028 117 000 1'.             03760005
039700         03  FILLER  PIC X(19)                                    03770005
039800                         VALUE 'SE2  9029 139 000 1'.             03780005
039900         03  FILLER  PIC X(19)                                    03790005
040000                         VALUE 'SE3  9030 170 000 1'.             03800005
040100         03  FILLER  PIC X(19)                                    03810005
040200                         VALUE 'RLA  9031 080 043 0'.             03820005
040300         03  FILLER  PIC X(19)                                    03830005
040400                         VALUE 'RLB  9032 111 043 0'.             03840005
040500         03  FILLER  PIC X(19)                                    03850005
040600                         VALUE 'RMA  9033 096 077 0'.             03860005
040700         03  FILLER  PIC X(19)                                    03870005
040800                         VALUE 'RMB  9034 109 077 0'.             03880005
040900         03  FILLER  PIC X(19)                                    03890005
041000                         VALUE 'RMC  9035 135 077 0'.             03900005
041100         03  FILLER  PIC X(19)                                    03910005
041200                         VALUE 'RHA  9036 087 094 0'.             03920005
041300         03  FILLER  PIC X(19)                                    03930005
041400                         VALUE 'RHB  9037 106 094 0'.             03940005
041500         03  FILLER  PIC X(19)                                    03950005
041600                         VALUE 'RHC  9038 126 094 0'.             03960005
041700         03  FILLER  PIC X(19)                                    03970005
041800                         VALUE 'RVA  9039 081 141 0'.             03980005
041900         03  FILLER  PIC X(19)                                    03990005
042000                         VALUE 'RVB  9040 104 141 0'.             04000005
042100         03  FILLER  PIC X(19)                                    04010005
042200                         VALUE 'RVC  9041 113 141 0'.             04020005
042300         03  FILLER  PIC X(19)                                    04030005
042400                         VALUE 'RUA  9042 078 225 0'.             04040005
042500         03  FILLER  PIC X(19)                                    04050005
042600                         VALUE 'RUB  9043 095 225 0'.             04060005
042700         03  FILLER  PIC X(19)                                    04070005
042800                         VALUE 'RUC  9044 130 225 0'.             04080005
042900     02  RUG-DATA2 REDEFINES RUG-DATA1 OCCURS 45                  04090005
043000             ASCENDING KEY IS RUG-CODE                            04100005
043100             INDEXED BY RUG01.                                    04110005
043200         03  RUG-CODE          PIC X(03).                         04120005
043300         03  RUG-REGS             OCCURS 1.                       04130005
043400             04  FILLER        PIC XX.                            04140005
043500             04  REV-CODE      PIC XXXX.                          04150005
043600             04  FILLER        PIC X.                             04160005
043700             04  RUG-NURSING   PIC 9V99.                          04170005
043800             04  FILLER        PIC X.                             04180005
043900             04  RUG-THERAPY   PIC 9V99.                          04190005
044000             04  FILLER        PIC X.                             04200005
044100             04  RUG-FACTOR    PIC 9.                             04210005
044200                                                                  04220005
044300                                                                  04230005
044400***************************************************************   04240005
044500*  LAYUP TABLE AREA FOR RUG 53 CODES                          *   04250005
044600*  EFFECTIVE JAN  1, 2006                                     *   04260005
044700*  FORMAT FOR RUG TABLE 53                                    *   04270005
044800*    N = NURSING   T = THERAPY  F = THERAPY COMPONENT FACTOR  *   04280005
044900***************************************************************   04290005
045000 01  RUG53-TABLE.                                                 04300005
045100     02  RUG53-DATA1.                                             04310005
045200*                               RUG  REV                          04320005
045300*                               CODE CODE N - T - F               04330005
045400         03  FILLER  PIC X(19)                                    04340005
045500                         VALUE 'AAA  9000 050 000 1'.             04350005
045600         03  FILLER  PIC X(19)                                    04360005
045700                         VALUE 'PA1  9001 050 000 1'.             04370005
045800         03  FILLER  PIC X(19)                                    04380005
045900                         VALUE 'PA2  9002 053 000 1'.             04390005
046000         03  FILLER  PIC X(19)                                    04400005
046100                         VALUE 'PB1  9003 054 000 1'.             04410005
046200         03  FILLER  PIC X(19)                                    04420005
046300                         VALUE 'PB2  9004 055 000 1'.             04430005
046400         03  FILLER  PIC X(19)                                    04440005
046500                         VALUE 'PC1  9005 069 000 1'.             04450005
046600         03  FILLER  PIC X(19)                                    04460005
046700                         VALUE 'PC2  9006 071 000 1'.             04470005
046800         03  FILLER  PIC X(19)                                    04480005
046900                         VALUE 'PD1  9007 076 000 1'.             04490005
047000         03  FILLER  PIC X(19)                                    04500005
047100                         VALUE 'PD2  9008 078 000 1'.             04510005
047200         03  FILLER  PIC X(19)                                    04520005
047300                         VALUE 'PE1  9009 082 000 1'.             04530005
047400         03  FILLER  PIC X(19)                                    04540005
047500                         VALUE 'PE2  9010 085 000 1'.             04550005
047600         03  FILLER  PIC X(19)                                    04560005
047700                         VALUE 'BA1  9011 052 000 1'.             04570005
047800         03  FILLER  PIC X(19)                                    04580005
047900                         VALUE 'BA2  9012 060 000 1'.             04590005
048000         03  FILLER  PIC X(19)                                    04600005
048100                         VALUE 'BB1  9013 069 000 1'.             04610005
048200         03  FILLER  PIC X(19)                                    04620005
048300                         VALUE 'BB2  9014 073 000 1'.             04630005
048400         03  FILLER  PIC X(19)                                    04640005
048500                         VALUE 'IA1  9015 056 000 1'.             04650005
048600         03  FILLER  PIC X(19)                                    04660005
048700                         VALUE 'IA2  9016 061 000 1'.             04670005
048800         03  FILLER  PIC X(19)                                    04680005
048900                         VALUE 'IB1  9017 072 000 1'.             04690005
049000         03  FILLER  PIC X(19)                                    04700005
049100                         VALUE 'IB2  9018 074 000 1'.             04710005
049200         03  FILLER  PIC X(19)                                    04720005
049300                         VALUE 'CA1  9019 080 000 1'.             04730005
049400         03  FILLER  PIC X(19)                                    04740005
049500                         VALUE 'CA2  9020 090 000 1'.             04750005
049600         03  FILLER  PIC X(19)                                    04760005
049700                         VALUE 'CB1  9021 091 000 1'.             04770005
049800         03  FILLER  PIC X(19)                                    04780005
049900                         VALUE 'CB2  9022 098 000 1'.             04790005
050000         03  FILLER  PIC X(19)                                    04800005
050100                         VALUE 'CC1  9023 106 000 1'.             04810005
050200         03  FILLER  PIC X(19)                                    04820005
050300                         VALUE 'CC2  9024 122 000 1'.             04830005
050400         03  FILLER  PIC X(19)                                    04840005
050500                         VALUE 'SSA  9025 110 000 1'.             04850005
050600         03  FILLER  PIC X(19)                                    04860005
050700                         VALUE 'SSB  9026 113 000 1'.             04870005
050800         03  FILLER  PIC X(19)                                    04880005
050900                         VALUE 'SSC  9027 123 000 1'.             04890005
051000         03  FILLER  PIC X(19)                                    04900005
051100                         VALUE 'SE1  9028 126 000 1'.             04910005
051200         03  FILLER  PIC X(19)                                    04920005
051300                         VALUE 'SE2  9029 149 000 1'.             04930005
051400         03  FILLER  PIC X(19)                                    04940005
051500                         VALUE 'SE3  9030 186 000 1'.             04950005
051600         03  FILLER  PIC X(19)                                    04960005
051700                         VALUE 'RLA  9031 085 043 0'.             04970005
051800         03  FILLER  PIC X(19)                                    04980005
051900                         VALUE 'RLB  9032 114 043 0'.             04990005
052000         03  FILLER  PIC X(19)                                    05000005
052100                         VALUE 'RMA  9033 104 077 0'.             05010005
052200         03  FILLER  PIC X(19)                                    05020005
052300                         VALUE 'RMB  9034 109 077 0'.             05030005
052400         03  FILLER  PIC X(19)                                    05040005
052500                         VALUE 'RMC  9035 115 077 0'.             05050005
052600         03  FILLER  PIC X(19)                                    05060005
052700                         VALUE 'RHA  9036 094 094 0'.             05070005
052800         03  FILLER  PIC X(19)                                    05080005
052900                         VALUE 'RHB  9037 111 094 0'.             05090005
053000         03  FILLER  PIC X(19)                                    05100005
053100                         VALUE 'RHC  9038 122 094 0'.             05110005
053200         03  FILLER  PIC X(19)                                    05120005
053300                         VALUE 'RVA  9039 082 141 0'.             05130005
053400         03  FILLER  PIC X(19)                                    05140005
053500                         VALUE 'RVB  9040 109 141 0'.             05150005
053600         03  FILLER  PIC X(19)                                    05160005
053700                         VALUE 'RVC  9041 123 141 0'.             05170005
053800         03  FILLER  PIC X(19)                                    05180005
053900                         VALUE 'RUA  9042 084 225 0'.             05190005
054000         03  FILLER  PIC X(19)                                    05200005
054100                         VALUE 'RUB  9043 099 225 0'.             05210005
054200         03  FILLER  PIC X(19)                                    05220005
054300                         VALUE 'RUC  9044 128 225 0'.             05230005
054400         03  FILLER  PIC X(19)                                    05240005
054500                         VALUE 'RLX  9045 131 043 0'.             05250005
054600         03  FILLER  PIC X(19)                                    05260005
054700                         VALUE 'RML  9046 168 077 0'.             05270005
054800         03  FILLER  PIC X(19)                                    05280005
054900                         VALUE 'RMX  9047 193 077 0'.             05290005
055000         03  FILLER  PIC X(19)                                    05300005
055100                         VALUE 'RHL  9048 137 094 0'.             05310005
055200         03  FILLER  PIC X(19)                                    05320005
055300                         VALUE 'RHX  9049 142 094 0'.             05330005
055400         03  FILLER  PIC X(19)                                    05340005
055500                         VALUE 'RVL  9050 133 141 0'.             05350005
055600         03  FILLER  PIC X(19)                                    05360005
055700                         VALUE 'RVX  9051 154 141 0'.             05370005
055800         03  FILLER  PIC X(19)                                    05380005
055900                         VALUE 'RUL  9052 140 225 0'.             05390005
056000         03  FILLER  PIC X(19)                                    05400005
056100                         VALUE 'RUX  9053 190 225 0'.             05410005
056200     02  RUG53-DATA2 REDEFINES RUG53-DATA1 OCCURS 54              05420005
056300             ASCENDING KEY IS RUG53-CODE                          05430005
056400             INDEXED BY RUG53-01.                                 05440005
056500         03  RUG53-CODE          PIC X(03).                       05450005
056600         03  RUG53-REGS             OCCURS 1.                     05460005
056700             04  FILLER        PIC XX.                            05470005
056800             04  REV53-CODE      PIC XXXX.                        05480005
056900             04  FILLER        PIC X.                             05490005
057000             04  RUG53-NURSING   PIC 9V99.                        05500005
057100             04  FILLER        PIC X.                             05510005
057200             04  RUG53-THERAPY   PIC 9V99.                        05520005
057300             04  FILLER        PIC X.                             05530005
057400             04  RUG53-FACTOR    PIC 9.                           05540005
057500                                                                  05550005
057600                                                                  05560005
057700***************************************************************   05570005
057800*  LAYUP TABLE AREA FOR RUG 53 CODES FOR FY2010               *   05580005
057900*  EFFECTIVE OCT  1, 2009                                     *   05590005
058000*  FORMAT FOR RUG TABLE 53                                    *   05600005
058100*    N = NURSING   T = THERAPY  F = THERAPY COMPONENT FACTOR  *   05610005
058200***************************************************************   05620005
058300 01  RUG53-2010-TABLE.                                            05630005
058400     02  RUG53-2010-DATA1.                                        05640005
058500*                               RUG  REV                          05650005
058600*                               CODE CODE N - T - F               05660005
058700         03  FILLER  PIC X(19)                                    05670005
058800                         VALUE 'AAA  9000 046 000 1'.             05680005
058900         03  FILLER  PIC X(19)                                    05690005
059000                         VALUE 'PA1  9001 046 000 1'.             05700005
059100         03  FILLER  PIC X(19)                                    05710005
059200                         VALUE 'PA2  9002 049 000 1'.             05720005
059300         03  FILLER  PIC X(19)                                    05730005
059400                         VALUE 'PB1  9003 050 000 1'.             05740005
059500         03  FILLER  PIC X(19)                                    05750005
059600                         VALUE 'PB2  9004 052 000 1'.             05760005
059700         03  FILLER  PIC X(19)                                    05770005
059800                         VALUE 'PC1  9005 065 000 1'.             05780005
059900         03  FILLER  PIC X(19)                                    05790005
060000                         VALUE 'PC2  9006 066 000 1'.             05800005
060100         03  FILLER  PIC X(19)                                    05810005
060200                         VALUE 'PD1  9007 070 000 1'.             05820005
060300         03  FILLER  PIC X(19)                                    05830005
060400                         VALUE 'PD2  9008 072 000 1'.             05840005
060500         03  FILLER  PIC X(19)                                    05850005
060600                         VALUE 'PE1  9009 077 000 1'.             05860005
060700         03  FILLER  PIC X(19)                                    05870005
060800                         VALUE 'PE2  9010 079 000 1'.             05880005
060900         03  FILLER  PIC X(19)                                    05890005
061000                         VALUE 'BA1  9011 048 000 1'.             05900005
061100         03  FILLER  PIC X(19)                                    05910005
061200                         VALUE 'BA2  9012 056 000 1'.             05920005
061300         03  FILLER  PIC X(19)                                    05930005
061400                         VALUE 'BB1  9013 065 000 1'.             05940005
061500         03  FILLER  PIC X(19)                                    05950005
061600                         VALUE 'BB2  9014 068 000 1'.             05960005
061700         03  FILLER  PIC X(19)                                    05970005
061800                         VALUE 'IA1  9015 053 000 1'.             05980005
061900         03  FILLER  PIC X(19)                                    05990005
062000                         VALUE 'IA2  9016 057 000 1'.             06000005
062100         03  FILLER  PIC X(19)                                    06010005
062200                         VALUE 'IB1  9017 067 000 1'.             06020005
062300         03  FILLER  PIC X(19)                                    06030005
062400                         VALUE 'IB2  9018 069 000 1'.             06040005
062500         03  FILLER  PIC X(19)                                    06050005
062600                         VALUE 'CA1  9019 075 000 1'.             06060005
062700         03  FILLER  PIC X(19)                                    06070005
062800                         VALUE 'CA2  9020 083 000 1'.             06080005
062900         03  FILLER  PIC X(19)                                    06090005
063000                         VALUE 'CB1  9021 084 000 1'.             06100005
063100         03  FILLER  PIC X(19)                                    06110005
063200                         VALUE 'CB2  9022 091 000 1'.             06120005
063300         03  FILLER  PIC X(19)                                    06130005
063400                         VALUE 'CC1  9023 099 000 1'.             06140005
063500         03  FILLER  PIC X(19)                                    06150005
063600                         VALUE 'CC2  9024 113 000 1'.             06160005
063700         03  FILLER  PIC X(19)                                    06170005
063800                         VALUE 'SSA  9025 102 000 1'.             06180005
063900         03  FILLER  PIC X(19)                                    06190005
064000                         VALUE 'SSB  9026 105 000 1'.             06200005
064100         03  FILLER  PIC X(19)                                    06210005
064200                         VALUE 'SSC  9027 114 000 1'.             06220005
064300         03  FILLER  PIC X(19)                                    06230005
064400                         VALUE 'SE1  9028 117 000 1'.             06240005
064500         03  FILLER  PIC X(19)                                    06250005
064600                         VALUE 'SE2  9029 138 000 1'.             06260005
064700         03  FILLER  PIC X(19)                                    06270005
064800                         VALUE 'SE3  9030 172 000 1'.             06280005
064900         03  FILLER  PIC X(19)                                    06290005
065000                         VALUE 'RLA  9031 079 043 0'.             06300005
065100         03  FILLER  PIC X(19)                                    06310005
065200                         VALUE 'RLB  9032 106 043 0'.             06320005
065300         03  FILLER  PIC X(19)                                    06330005
065400                         VALUE 'RMA  9033 097 077 0'.             06340005
065500         03  FILLER  PIC X(19)                                    06350005
065600                         VALUE 'RMB  9034 101 077 0'.             06360005
065700         03  FILLER  PIC X(19)                                    06370005
065800                         VALUE 'RMC  9035 107 077 0'.             06380005
065900         03  FILLER  PIC X(19)                                    06390005
066000                         VALUE 'RHA  9036 088 094 0'.             06400005
066100         03  FILLER  PIC X(19)                                    06410005
066200                         VALUE 'RHB  9037 103 094 0'.             06420005
066300         03  FILLER  PIC X(19)                                    06430005
066400                         VALUE 'RHC  9038 113 094 0'.             06440005
066500         03  FILLER  PIC X(19)                                    06450005
066600                         VALUE 'RVA  9039 077 141 0'.             06460005
066700         03  FILLER  PIC X(19)                                    06470005
066800                         VALUE 'RVB  9040 101 141 0'.             06480005
066900         03  FILLER  PIC X(19)                                    06490005
067000                         VALUE 'RVC  9041 114 141 0'.             06500005
067100         03  FILLER  PIC X(19)                                    06510005
067200                         VALUE 'RUA  9042 078 225 0'.             06520005
067300         03  FILLER  PIC X(19)                                    06530005
067400                         VALUE 'RUB  9043 092 225 0'.             06540005
067500         03  FILLER  PIC X(19)                                    06550005
067600                         VALUE 'RUC  9044 120 225 0'.             06560005
067700         03  FILLER  PIC X(19)                                    06570005
067800                         VALUE 'RLX  9045 122 043 0'.             06580005
067900         03  FILLER  PIC X(19)                                    06590005
068000                         VALUE 'RML  9046 157 077 0'.             06600005
068100         03  FILLER  PIC X(19)                                    06610005
068200                         VALUE 'RMX  9047 180 077 0'.             06620005
068300         03  FILLER  PIC X(19)                                    06630005
068400                         VALUE 'RHL  9048 127 094 0'.             06640005
068500         03  FILLER  PIC X(19)                                    06650005
068600                         VALUE 'RHX  9049 133 094 0'.             06660005
068700         03  FILLER  PIC X(19)                                    06670005
068800                         VALUE 'RVL  9050 124 141 0'.             06680005
068900         03  FILLER  PIC X(19)                                    06690005
069000                         VALUE 'RVX  9051 144 141 0'.             06700005
069100         03  FILLER  PIC X(19)                                    06710005
069200                         VALUE 'RUL  9052 131 225 0'.             06720005
069300         03  FILLER  PIC X(19)                                    06730005
069400                         VALUE 'RUX  9053 177 225 0'.             06740005
069500     02  RUG53-2010-DATA2 REDEFINES RUG53-2010-DATA1 OCCURS 54    06750005
069600             ASCENDING KEY IS RUG53-2010-CODE                     06760005
069700             INDEXED BY RUG53-2010-01.                            06770005
069800         03  RUG53-2010-CODE     PIC X(03).                       06780005
069900         03  RUG53-2010-REGS        OCCURS 1.                     06790005
070000             04  FILLER        PIC XX.                            06800005
070100             04  REV53-2010-CODE      PIC XXXX.                   06810005
070200             04  FILLER        PIC X.                             06820005
070300             04  RUG53-2010-NURSING PIC 9V99.                     06830005
070400             04  FILLER        PIC X.                             06840005
070500             04  RUG53-2010-THERAPY PIC 9V99.                     06850005
070600             04  FILLER        PIC X.                             06860005
070700             04  RUG53-2010-FACTOR PIC 9.                         06870005
070800                                                                  06880005
070900***************************************************************   06890005
071000*  LAYUP TABLE AREA FOR RUG 53 CODES FOR FY2011               *   06900005
071100*  EFFECTIVE OCT  2, 2010                                     *   06910005
071200*  FORMAT FOR RUG TABLE 53                                    *   06920005
071300*    N = NURSING   T = THERAPY  F = THERAPY COMPONENT FACTOR  *   06930005
071400***************************************************************   06940005
071500 01  RUG67-2011-TABLE.                                            06950005
071600     02  RUG67-2011-DATA1.                                        06960005
071700*                                      RUG  REV                   06970005
071800*                                      CODE CODE N - T - F        06980005
071900         03  FILLER  PIC X(19)  VALUE 'AAA  9000 054 000 1'.      06990005
072000         03  FILLER  PIC X(19)  VALUE 'BA1  9011 064 000 1'.      07000005
072100         03  FILLER  PIC X(19)  VALUE 'BA2  9012 070 000 1'.      07010005
072200         03  FILLER  PIC X(19)  VALUE 'BB1  9013 090 000 1'.      07020005
072300         03  FILLER  PIC X(19)  VALUE 'BB2  9014 097 000 1'.      07030005
072400         03  FILLER  PIC X(19)  VALUE 'CA1  9019 078 000 1'.      07040005
072500         03  FILLER  PIC X(19)  VALUE 'CA2  9020 088 000 1'.      07050005
072600         03  FILLER  PIC X(19)  VALUE 'CB1  9021 102 000 1'.      07060005
072700         03  FILLER  PIC X(19)  VALUE 'CB2  9022 115 000 1'.      07070005
072800         03  FILLER  PIC X(19)  VALUE 'CC1  9023 115 000 1'.      07080005
072900         03  FILLER  PIC X(19)  VALUE 'CC2  9024 129 000 1'.      07090005
073000         03  FILLER  PIC X(19)  VALUE 'CD1  9024 138 000 1'.      07100005
073100         03  FILLER  PIC X(19)  VALUE 'CD2  9024 156 000 1'.      07110005
073200         03  FILLER  PIC X(19)  VALUE 'CE1  9024 150 000 1'.      07120005
073300         03  FILLER  PIC X(19)  VALUE 'CE2  9028 168 000 1'.      07130005
073400         03  FILLER  PIC X(19)  VALUE 'ES1  9028 232 000 1'.      07140005
073500         03  FILLER  PIC X(19)  VALUE 'ES2  9029 267 000 1'.      07150005
073600         03  FILLER  PIC X(19)  VALUE 'ES3  9030 358 000 1'.      07160005
073700         03  FILLER  PIC X(19)  VALUE 'HB1  9015 146 000 1'.      07170005
073800         03  FILLER  PIC X(19)  VALUE 'HB2  9016 186 000 1'.      07180005
073900         03  FILLER  PIC X(19)  VALUE 'HC1  9017 148 000 1'.      07190005
074000         03  FILLER  PIC X(19)  VALUE 'HC2  9018 189 000 1'.      07200005
074100         03  FILLER  PIC X(19)  VALUE 'HD1  9018 160 000 1'.      07210005
074200         03  FILLER  PIC X(19)  VALUE 'HD2  9018 204 000 1'.      07220005
074300         03  FILLER  PIC X(19)  VALUE 'HE1  9018 174 000 1'.      07230005
074400         03  FILLER  PIC X(19)  VALUE 'HE2  9018 222 000 1'.      07240005
074500         03  FILLER  PIC X(19)  VALUE 'LB1  9018 114 000 1'.      07250005
074600         03  FILLER  PIC X(19)  VALUE 'LB2  9018 145 000 1'.      07260005
074700         03  FILLER  PIC X(19)  VALUE 'LC1  9018 122 000 1'.      07270005
074800         03  FILLER  PIC X(19)  VALUE 'LC2  9018 156 000 1'.      07280005
074900         03  FILLER  PIC X(19)  VALUE 'LD1  9018 146 000 1'.      07290005
075000         03  FILLER  PIC X(19)  VALUE 'LD2  9018 186 000 1'.      07300005
075100         03  FILLER  PIC X(19)  VALUE 'LE1  9018 154 000 1'.      07310005
075200         03  FILLER  PIC X(19)  VALUE 'LE2  9018 196 000 1'.      07320005
075300         03  FILLER  PIC X(19)  VALUE 'PA1  9001 054 000 1'.      07330005
075400         03  FILLER  PIC X(19)  VALUE 'PA2  9002 059 000 1'.      07340005
075500         03  FILLER  PIC X(19)  VALUE 'PB1  9003 078 000 1'.      07350005
075600         03  FILLER  PIC X(19)  VALUE 'PB2  9004 084 000 1'.      07360005
075700         03  FILLER  PIC X(19)  VALUE 'PC1  9005 102 000 1'.      07370005
075800         03  FILLER  PIC X(19)  VALUE 'PC2  9006 110 000 1'.      07380005
075900         03  FILLER  PIC X(19)  VALUE 'PD1  9007 128 000 1'.      07390005
076000         03  FILLER  PIC X(19)  VALUE 'PD2  9008 138 000 1'.      07400005
076100         03  FILLER  PIC X(19)  VALUE 'PE1  9009 140 000 1'.      07410005
076200         03  FILLER  PIC X(19)  VALUE 'PE2  9010 150 000 1'.      07420005
076300         03  FILLER  PIC X(19)  VALUE 'RHA  9036 123 085 0'.      07430005
076400         03  FILLER  PIC X(19)  VALUE 'RHB  9037 160 085 0'.      07440005
076500         03  FILLER  PIC X(19)  VALUE 'RHC  9038 194 085 0'.      07450005
076600         03  FILLER  PIC X(19)  VALUE 'RHL  9048 289 085 0'.      07460005
076700         03  FILLER  PIC X(19)  VALUE 'RHX  9049 343 085 0'.      07470005
076800         03  FILLER  PIC X(19)  VALUE 'RLA  9031 095 028 0'.      07480005
076900         03  FILLER  PIC X(19)  VALUE 'RLB  9032 201 028 0'.      07490005
077000         03  FILLER  PIC X(19)  VALUE 'RLX  9045 304 028 0'.      07500005
077100         03  FILLER  PIC X(19)  VALUE 'RMA  9033 113 055 0'.      07510005
077200         03  FILLER  PIC X(19)  VALUE 'RMB  9034 163 055 0'.      07520005
077300         03  FILLER  PIC X(19)  VALUE 'RMC  9035 183 055 0'.      07530005
077400         03  FILLER  PIC X(19)  VALUE 'RML  9046 295 055 0'.      07540005
077500         03  FILLER  PIC X(19)  VALUE 'RMX  9047 331 055 0'.      07550005
077600         03  FILLER  PIC X(19)  VALUE 'RUA  9042 133 187 0'.      07560005
077700         03  FILLER  PIC X(19)  VALUE 'RUB  9043 210 187 0'.      07570005
077800         03  FILLER  PIC X(19)  VALUE 'RUC  9044 210 187 0'.      07580005
077900         03  FILLER  PIC X(19)  VALUE 'RUL  9052 345 187 0'.      07590005
078000         03  FILLER  PIC X(19)  VALUE 'RUX  9053 359 187 0'.      07600005
078100         03  FILLER  PIC X(19)  VALUE 'RVA  9039 148 128 0'.      07610005
078200         03  FILLER  PIC X(19)  VALUE 'RVB  9040 149 128 0'.      07620005
078300         03  FILLER  PIC X(19)  VALUE 'RVC  9041 202 128 0'.      07630005
078400         03  FILLER  PIC X(19)  VALUE 'RVL  9050 295 128 0'.      07640005
078500         03  FILLER  PIC X(19)  VALUE 'RVX  9051 351 128 0'.      07650005
078600     02  RUG67-2011-DATA2 REDEFINES RUG67-2011-DATA1 OCCURS 67    07660005
078700             ASCENDING KEY IS RUG67-2011-CODE                     07670005
078800             INDEXED BY RUG67-2011-01.                            07680005
078900         03  RUG67-2011-CODE     PIC X(03).                       07690005
079000         03  RUG67-2011-REGS        OCCURS 1.                     07700005
079100             04  FILLER        PIC XX.                            07710005
079200             04  REV67-2011-CODE      PIC XXXX.                   07720005
079300             04  FILLER        PIC X.                             07730005
079400             04  RUG67-2011-NURSING PIC 9V99.                     07740005
079500             04  FILLER        PIC X.                             07750005
079600             04  RUG67-2011-THERAPY PIC 9V99.                     07760005
079700             04  FILLER        PIC X.                             07770005
079800             04  RUG67-2011-FACTOR PIC 9.                         07780005
079900                                                                  07790005
080000***************************************************************   07800005
080100*  LAYUP TABLE AREA FOR RUG 67 CODES FOR FY2012               *   07810005
080200*  EFFECTIVE OCT  1, 2011                                     *   07820005
080300*  FORMAT FOR RUG TABLE 67                                    *   07830005
080400*    N = NURSING   T = THERAPY  F = THERAPY COMPONENT FACTOR  *   07840005
080500***************************************************************   07850005
080600 01  RUG67-2012-TABLE.                                            07860005
080700     02  RUG67-2012-DATA1.                                        07870005
080800*                                      RUG  REV                   07880005
080900*                                      CODE CODE N - T - F        07890005
081000         03  FILLER  PIC X(19)  VALUE 'AAA  9000 054 000 1'.      07900005
081100         03  FILLER  PIC X(19)  VALUE 'BA1  9011 064 000 1'.      07910005
081200         03  FILLER  PIC X(19)  VALUE 'BA2  9012 070 000 1'.      07920005
081300         03  FILLER  PIC X(19)  VALUE 'BB1  9013 090 000 1'.      07930005
081400         03  FILLER  PIC X(19)  VALUE 'BB2  9014 097 000 1'.      07940005
081500         03  FILLER  PIC X(19)  VALUE 'CA1  9019 078 000 1'.      07950005
081600         03  FILLER  PIC X(19)  VALUE 'CA2  9020 088 000 1'.      07960005
081700         03  FILLER  PIC X(19)  VALUE 'CB1  9021 102 000 1'.      07970005
081800         03  FILLER  PIC X(19)  VALUE 'CB2  9022 115 000 1'.      07980005
081900         03  FILLER  PIC X(19)  VALUE 'CC1  9023 115 000 1'.      07990005
082000         03  FILLER  PIC X(19)  VALUE 'CC2  9024 129 000 1'.      08000005
082100         03  FILLER  PIC X(19)  VALUE 'CD1  9024 138 000 1'.      08010005
082200         03  FILLER  PIC X(19)  VALUE 'CD2  9024 156 000 1'.      08020005
082300         03  FILLER  PIC X(19)  VALUE 'CE1  9024 150 000 1'.      08030005
082400         03  FILLER  PIC X(19)  VALUE 'CE2  9028 168 000 1'.      08040005
082500         03  FILLER  PIC X(19)  VALUE 'ES1  9028 232 000 1'.      08050005
082600         03  FILLER  PIC X(19)  VALUE 'ES2  9029 267 000 1'.      08060005
082700         03  FILLER  PIC X(19)  VALUE 'ES3  9030 358 000 1'.      08070005
082800         03  FILLER  PIC X(19)  VALUE 'HB1  9015 146 000 1'.      08080005
082900         03  FILLER  PIC X(19)  VALUE 'HB2  9016 186 000 1'.      08090005
083000         03  FILLER  PIC X(19)  VALUE 'HC1  9017 148 000 1'.      08100005
083100         03  FILLER  PIC X(19)  VALUE 'HC2  9018 189 000 1'.      08110005
083200         03  FILLER  PIC X(19)  VALUE 'HD1  9018 160 000 1'.      08120005
083300         03  FILLER  PIC X(19)  VALUE 'HD2  9018 204 000 1'.      08130005
083400         03  FILLER  PIC X(19)  VALUE 'HE1  9018 174 000 1'.      08140005
083500         03  FILLER  PIC X(19)  VALUE 'HE2  9018 222 000 1'.      08150005
083600         03  FILLER  PIC X(19)  VALUE 'LB1  9018 114 000 1'.      08160005
083700         03  FILLER  PIC X(19)  VALUE 'LB2  9018 145 000 1'.      08170005
083800         03  FILLER  PIC X(19)  VALUE 'LC1  9018 122 000 1'.      08180005
083900         03  FILLER  PIC X(19)  VALUE 'LC2  9018 156 000 1'.      08190005
084000         03  FILLER  PIC X(19)  VALUE 'LD1  9018 146 000 1'.      08200005
084100         03  FILLER  PIC X(19)  VALUE 'LD2  9018 186 000 1'.      08210005
084200         03  FILLER  PIC X(19)  VALUE 'LE1  9018 154 000 1'.      08220005
084300         03  FILLER  PIC X(19)  VALUE 'LE2  9018 196 000 1'.      08230005
084400         03  FILLER  PIC X(19)  VALUE 'PA1  9001 054 000 1'.      08240005
084500         03  FILLER  PIC X(19)  VALUE 'PA2  9002 059 000 1'.      08250005
084600         03  FILLER  PIC X(19)  VALUE 'PB1  9003 078 000 1'.      08260005
084700         03  FILLER  PIC X(19)  VALUE 'PB2  9004 084 000 1'.      08270005
084800         03  FILLER  PIC X(19)  VALUE 'PC1  9005 102 000 1'.      08280005
084900         03  FILLER  PIC X(19)  VALUE 'PC2  9006 110 000 1'.      08290005
085000         03  FILLER  PIC X(19)  VALUE 'PD1  9007 128 000 1'.      08300005
085100         03  FILLER  PIC X(19)  VALUE 'PD2  9008 138 000 1'.      08310005
085200         03  FILLER  PIC X(19)  VALUE 'PE1  9009 140 000 1'.      08320005
085300         03  FILLER  PIC X(19)  VALUE 'PE2  9010 150 000 1'.      08330005
085400         03  FILLER  PIC X(19)  VALUE 'RHA  9036 091 085 0'.      08340005
085500         03  FILLER  PIC X(19)  VALUE 'RHB  9037 119 085 0'.      08350005
085600         03  FILLER  PIC X(19)  VALUE 'RHC  9038 145 085 0'.      08360005
085700         03  FILLER  PIC X(19)  VALUE 'RHL  9048 215 085 0'.      08370005
085800         03  FILLER  PIC X(19)  VALUE 'RHX  9049 255 085 0'.      08380005
085900         03  FILLER  PIC X(19)  VALUE 'RLA  9031 071 028 0'.      08390005
086000         03  FILLER  PIC X(19)  VALUE 'RLB  9032 150 028 0'.      08400005
086100         03  FILLER  PIC X(19)  VALUE 'RLX  9045 226 028 0'.      08410005
086200         03  FILLER  PIC X(19)  VALUE 'RMA  9033 084 055 0'.      08420005
086300         03  FILLER  PIC X(19)  VALUE 'RMB  9034 122 055 0'.      08430005
086400         03  FILLER  PIC X(19)  VALUE 'RMC  9035 136 055 0'.      08440005
086500         03  FILLER  PIC X(19)  VALUE 'RML  9046 219 055 0'.      08450005
086600         03  FILLER  PIC X(19)  VALUE 'RMX  9047 247 055 0'.      08460005
086700         03  FILLER  PIC X(19)  VALUE 'RUA  9042 099 187 0'.      08470005
086800         03  FILLER  PIC X(19)  VALUE 'RUB  9043 156 187 0'.      08480005
086900         03  FILLER  PIC X(19)  VALUE 'RUC  9044 156 187 0'.      08490005
087000         03  FILLER  PIC X(19)  VALUE 'RUL  9052 257 187 0'.      08500005
087100         03  FILLER  PIC X(19)  VALUE 'RUX  9053 267 187 0'.      08510005
087200         03  FILLER  PIC X(19)  VALUE 'RVA  9039 110 128 0'.      08520005
087300         03  FILLER  PIC X(19)  VALUE 'RVB  9040 111 128 0'.      08530005
087400         03  FILLER  PIC X(19)  VALUE 'RVC  9041 151 128 0'.      08540005
087500         03  FILLER  PIC X(19)  VALUE 'RVL  9050 219 128 0'.      08550005
087600         03  FILLER  PIC X(19)  VALUE 'RVX  9051 261 128 0'.      08560005
087700     02  RUG67-2012-DATA2 REDEFINES RUG67-2012-DATA1 OCCURS 67    08570005
087800             ASCENDING KEY IS RUG67-2012-CODE                     08580005
087900             INDEXED BY RUG67-2012-01.                            08590005
088000         03  RUG67-2012-CODE     PIC X(03).                       08600005
088100         03  RUG67-2012-REGS        OCCURS 1.                     08610005
088200             04  FILLER        PIC XX.                            08620005
088300             04  REV67-2012-CODE      PIC XXXX.                   08630005
088400             04  FILLER        PIC X.                             08640005
088500             04  RUG67-2012-NURSING PIC 9V99.                     08650005
088600             04  FILLER        PIC X.                             08660005
088700             04  RUG67-2012-THERAPY PIC 9V99.                     08670005
088800             04  FILLER        PIC X.                             08680005
088900             04  RUG67-2012-FACTOR PIC 9.                         08690005
089000                                                                  08700005
089100*********************>>  2013  <<**********************           08710005
089200                                                                  08720005
089300                                                                  08730005
089400***************************************************************   08740005
089500*  LAYUP TABLE AREA FOR RUG 67 CODES FOR FY2013               *   08750005
089600*  EFFECTIVE OCT  1, 2012                                     *   08760005
089700*  FORMAT FOR RUG TABLE 67                                    *   08770005
089800*    N = NURSING   T = THERAPY  F = THERAPY COMPONENT FACTOR  *   08780005
089900***************************************************************   08790005
090000 01  RUG67-2013-TABLE.                                            08800005
090100     02  RUG67-2013-DATA1.                                        08810005
090200*                                      RUG  REV                   08820005
090300*                                      CODE CODE N - T - F        08830005
090400         03  FILLER  PIC X(19)  VALUE 'AAA  9000 054 000 1'.      08840005
090500         03  FILLER  PIC X(19)  VALUE 'BA1  9011 064 000 1'.      08850005
090600         03  FILLER  PIC X(19)  VALUE 'BA2  9012 070 000 1'.      08860005
090700         03  FILLER  PIC X(19)  VALUE 'BB1  9013 090 000 1'.      08870005
090800         03  FILLER  PIC X(19)  VALUE 'BB2  9014 097 000 1'.      08880005
090900         03  FILLER  PIC X(19)  VALUE 'CA1  9019 078 000 1'.      08890005
091000         03  FILLER  PIC X(19)  VALUE 'CA2  9020 088 000 1'.      08900005
091100         03  FILLER  PIC X(19)  VALUE 'CB1  9021 102 000 1'.      08910005
091200         03  FILLER  PIC X(19)  VALUE 'CB2  9022 115 000 1'.      08920005
091300         03  FILLER  PIC X(19)  VALUE 'CC1  9023 115 000 1'.      08930005
091400         03  FILLER  PIC X(19)  VALUE 'CC2  9024 129 000 1'.      08940005
091500         03  FILLER  PIC X(19)  VALUE 'CD1  9024 138 000 1'.      08950005
091600         03  FILLER  PIC X(19)  VALUE 'CD2  9024 156 000 1'.      08960005
091700         03  FILLER  PIC X(19)  VALUE 'CE1  9024 150 000 1'.      08970005
091800         03  FILLER  PIC X(19)  VALUE 'CE2  9028 168 000 1'.      08980005
091900         03  FILLER  PIC X(19)  VALUE 'ES1  9028 232 000 1'.      08990005
092000         03  FILLER  PIC X(19)  VALUE 'ES2  9029 267 000 1'.      09000005
092100         03  FILLER  PIC X(19)  VALUE 'ES3  9030 358 000 1'.      09010005
092200         03  FILLER  PIC X(19)  VALUE 'HB1  9015 146 000 1'.      09020005
092300         03  FILLER  PIC X(19)  VALUE 'HB2  9016 186 000 1'.      09030005
092400         03  FILLER  PIC X(19)  VALUE 'HC1  9017 148 000 1'.      09040005
092500         03  FILLER  PIC X(19)  VALUE 'HC2  9018 189 000 1'.      09050005
092600         03  FILLER  PIC X(19)  VALUE 'HD1  9018 160 000 1'.      09060005
092700         03  FILLER  PIC X(19)  VALUE 'HD2  9018 204 000 1'.      09070005
092800         03  FILLER  PIC X(19)  VALUE 'HE1  9018 174 000 1'.      09080005
092900         03  FILLER  PIC X(19)  VALUE 'HE2  9018 222 000 1'.      09090005
093000         03  FILLER  PIC X(19)  VALUE 'LB1  9018 114 000 1'.      09100005
093100         03  FILLER  PIC X(19)  VALUE 'LB2  9018 145 000 1'.      09110005
093200         03  FILLER  PIC X(19)  VALUE 'LC1  9018 122 000 1'.      09120005
093300         03  FILLER  PIC X(19)  VALUE 'LC2  9018 156 000 1'.      09130005
093400         03  FILLER  PIC X(19)  VALUE 'LD1  9018 146 000 1'.      09140005
093500         03  FILLER  PIC X(19)  VALUE 'LD2  9018 186 000 1'.      09150005
093600         03  FILLER  PIC X(19)  VALUE 'LE1  9018 154 000 1'.      09160005
093700         03  FILLER  PIC X(19)  VALUE 'LE2  9018 196 000 1'.      09170005
093800         03  FILLER  PIC X(19)  VALUE 'PA1  9001 054 000 1'.      09180005
093900         03  FILLER  PIC X(19)  VALUE 'PA2  9002 059 000 1'.      09190005
094000         03  FILLER  PIC X(19)  VALUE 'PB1  9003 078 000 1'.      09200005
094100         03  FILLER  PIC X(19)  VALUE 'PB2  9004 084 000 1'.      09210005
094200         03  FILLER  PIC X(19)  VALUE 'PC1  9005 102 000 1'.      09220005
094300         03  FILLER  PIC X(19)  VALUE 'PC2  9006 110 000 1'.      09230005
094400         03  FILLER  PIC X(19)  VALUE 'PD1  9007 128 000 1'.      09240005
094500         03  FILLER  PIC X(19)  VALUE 'PD2  9008 138 000 1'.      09250005
094600         03  FILLER  PIC X(19)  VALUE 'PE1  9009 140 000 1'.      09260005
094700         03  FILLER  PIC X(19)  VALUE 'PE2  9010 150 000 1'.      09270005
094800         03  FILLER  PIC X(19)  VALUE 'RHA  9036 091 085 0'.      09280005
094900         03  FILLER  PIC X(19)  VALUE 'RHB  9037 119 085 0'.      09290005
095000         03  FILLER  PIC X(19)  VALUE 'RHC  9038 145 085 0'.      09300005
095100         03  FILLER  PIC X(19)  VALUE 'RHL  9048 215 085 0'.      09310005
095200         03  FILLER  PIC X(19)  VALUE 'RHX  9049 255 085 0'.      09320005
095300         03  FILLER  PIC X(19)  VALUE 'RLA  9031 071 028 0'.      09330005
095400         03  FILLER  PIC X(19)  VALUE 'RLB  9032 150 028 0'.      09340005
095500         03  FILLER  PIC X(19)  VALUE 'RLX  9045 226 028 0'.      09350005
095600         03  FILLER  PIC X(19)  VALUE 'RMA  9033 084 055 0'.      09360005
095700         03  FILLER  PIC X(19)  VALUE 'RMB  9034 122 055 0'.      09370005
095800         03  FILLER  PIC X(19)  VALUE 'RMC  9035 136 055 0'.      09380005
095900         03  FILLER  PIC X(19)  VALUE 'RML  9046 219 055 0'.      09390005
096000         03  FILLER  PIC X(19)  VALUE 'RMX  9047 247 055 0'.      09400005
096100         03  FILLER  PIC X(19)  VALUE 'RUA  9042 099 187 0'.      09410005
096200         03  FILLER  PIC X(19)  VALUE 'RUB  9043 156 187 0'.      09420005
096300         03  FILLER  PIC X(19)  VALUE 'RUC  9044 156 187 0'.      09430005
096400         03  FILLER  PIC X(19)  VALUE 'RUL  9052 257 187 0'.      09440005
096500         03  FILLER  PIC X(19)  VALUE 'RUX  9053 267 187 0'.      09450005
096600         03  FILLER  PIC X(19)  VALUE 'RVA  9039 110 128 0'.      09460005
096700         03  FILLER  PIC X(19)  VALUE 'RVB  9040 111 128 0'.      09470005
096800         03  FILLER  PIC X(19)  VALUE 'RVC  9041 151 128 0'.      09480005
096900         03  FILLER  PIC X(19)  VALUE 'RVL  9050 219 128 0'.      09490005
097000         03  FILLER  PIC X(19)  VALUE 'RVX  9051 261 128 0'.      09500005
097100     02  RUG67-2013-DATA2 REDEFINES RUG67-2013-DATA1 OCCURS 67    09510005
097200             ASCENDING KEY IS RUG67-2013-CODE                     09520005
097300             INDEXED BY RUG67-2013-01.                            09530005
097400         03  RUG67-2013-CODE     PIC X(03).                       09540005
097500         03  RUG67-2013-REGS        OCCURS 1.                     09550005
097600             04  FILLER        PIC XX.                            09560005
097700             04  REV67-2013-CODE      PIC XXXX.                   09570005
097800             04  FILLER        PIC X.                             09580005
097900             04  RUG67-2013-NURSING PIC 9V99.                     09590005
098000             04  FILLER        PIC X.                             09600005
098100             04  RUG67-2013-THERAPY PIC 9V99.                     09610005
098200             04  FILLER        PIC X.                             09620005
098300             04  RUG67-2013-FACTOR PIC 9.                         09630005
098400                                                                  09640005
098500                                                                  09650005
098600                                                                  09660005
098700*********************>>  2013  <<**********************           09670005
098800*********************>>  2014  <<**********************           09680005
098900                                                                  09690005
099000                                                                  09700005
099100***************************************************************   09710005
099200*  LAYUP TABLE AREA FOR RUG 67 CODES FOR FY2014               *   09720005
099300*  EFFECTIVE OCT  1, 2013                                     *   09730005
099400*  FORMAT FOR RUG TABLE 67                                    *   09740005
099500*    N = NURSING   T = THERAPY  F = THERAPY COMPONENT FACTOR  *   09750005
099600***************************************************************   09760005
099700 01  RUG67-2014-TABLE.                                            09770005
099800     02  RUG67-2014-DATA1.                                        09780005
099900*                                      RUG  REV                   09790005
100000*                                      CODE CODE N - T - F        09800005
100100         03  FILLER  PIC X(19)  VALUE 'AAA  9000 054 000 1'.      09810005
100200         03  FILLER  PIC X(19)  VALUE 'BA1  9011 064 000 1'.      09820005
100300         03  FILLER  PIC X(19)  VALUE 'BA2  9012 070 000 1'.      09830005
100400         03  FILLER  PIC X(19)  VALUE 'BB1  9013 090 000 1'.      09840005
100500         03  FILLER  PIC X(19)  VALUE 'BB2  9014 097 000 1'.      09850005
100600         03  FILLER  PIC X(19)  VALUE 'CA1  9019 078 000 1'.      09860005
100700         03  FILLER  PIC X(19)  VALUE 'CA2  9020 088 000 1'.      09870005
100800         03  FILLER  PIC X(19)  VALUE 'CB1  9021 102 000 1'.      09880005
100900         03  FILLER  PIC X(19)  VALUE 'CB2  9022 115 000 1'.      09890005
101000         03  FILLER  PIC X(19)  VALUE 'CC1  9023 115 000 1'.      09900005
101100         03  FILLER  PIC X(19)  VALUE 'CC2  9024 129 000 1'.      09910005
101200         03  FILLER  PIC X(19)  VALUE 'CD1  9024 138 000 1'.      09920005
101300         03  FILLER  PIC X(19)  VALUE 'CD2  9024 156 000 1'.      09930005
101400         03  FILLER  PIC X(19)  VALUE 'CE1  9024 150 000 1'.      09940005
101500         03  FILLER  PIC X(19)  VALUE 'CE2  9028 168 000 1'.      09950005
101600         03  FILLER  PIC X(19)  VALUE 'ES1  9028 232 000 1'.      09960005
101700         03  FILLER  PIC X(19)  VALUE 'ES2  9029 267 000 1'.      09970005
101800         03  FILLER  PIC X(19)  VALUE 'ES3  9030 358 000 1'.      09980005
101900         03  FILLER  PIC X(19)  VALUE 'HB1  9015 146 000 1'.      09990005
102000         03  FILLER  PIC X(19)  VALUE 'HB2  9016 186 000 1'.      10000005
102100         03  FILLER  PIC X(19)  VALUE 'HC1  9017 148 000 1'.      10010005
102200         03  FILLER  PIC X(19)  VALUE 'HC2  9018 189 000 1'.      10020005
102300         03  FILLER  PIC X(19)  VALUE 'HD1  9018 160 000 1'.      10030005
102400         03  FILLER  PIC X(19)  VALUE 'HD2  9018 204 000 1'.      10040005
102500         03  FILLER  PIC X(19)  VALUE 'HE1  9018 174 000 1'.      10050005
102600         03  FILLER  PIC X(19)  VALUE 'HE2  9018 222 000 1'.      10060005
102700         03  FILLER  PIC X(19)  VALUE 'LB1  9018 114 000 1'.      10070005
102800         03  FILLER  PIC X(19)  VALUE 'LB2  9018 145 000 1'.      10080005
102900         03  FILLER  PIC X(19)  VALUE 'LC1  9018 122 000 1'.      10090005
103000         03  FILLER  PIC X(19)  VALUE 'LC2  9018 156 000 1'.      10100005
103100         03  FILLER  PIC X(19)  VALUE 'LD1  9018 146 000 1'.      10110005
103200         03  FILLER  PIC X(19)  VALUE 'LD2  9018 186 000 1'.      10120005
103300         03  FILLER  PIC X(19)  VALUE 'LE1  9018 154 000 1'.      10130005
103400         03  FILLER  PIC X(19)  VALUE 'LE2  9018 196 000 1'.      10140005
103500         03  FILLER  PIC X(19)  VALUE 'PA1  9001 054 000 1'.      10150005
103600         03  FILLER  PIC X(19)  VALUE 'PA2  9002 059 000 1'.      10160005
103700         03  FILLER  PIC X(19)  VALUE 'PB1  9003 078 000 1'.      10170005
103800         03  FILLER  PIC X(19)  VALUE 'PB2  9004 084 000 1'.      10180005
103900         03  FILLER  PIC X(19)  VALUE 'PC1  9005 102 000 1'.      10190005
104000         03  FILLER  PIC X(19)  VALUE 'PC2  9006 110 000 1'.      10200005
104100         03  FILLER  PIC X(19)  VALUE 'PD1  9007 128 000 1'.      10210005
104200         03  FILLER  PIC X(19)  VALUE 'PD2  9008 138 000 1'.      10220005
104300         03  FILLER  PIC X(19)  VALUE 'PE1  9009 140 000 1'.      10230005
104400         03  FILLER  PIC X(19)  VALUE 'PE2  9010 150 000 1'.      10240005
104500         03  FILLER  PIC X(19)  VALUE 'RHA  9036 091 085 0'.      10250005
104600         03  FILLER  PIC X(19)  VALUE 'RHB  9037 119 085 0'.      10260005
104700         03  FILLER  PIC X(19)  VALUE 'RHC  9038 145 085 0'.      10270005
104800         03  FILLER  PIC X(19)  VALUE 'RHL  9048 215 085 0'.      10280005
104900         03  FILLER  PIC X(19)  VALUE 'RHX  9049 255 085 0'.      10290005
105000         03  FILLER  PIC X(19)  VALUE 'RLA  9031 071 028 0'.      10300005
105100         03  FILLER  PIC X(19)  VALUE 'RLB  9032 150 028 0'.      10310005
105200         03  FILLER  PIC X(19)  VALUE 'RLX  9045 226 028 0'.      10320005
105300         03  FILLER  PIC X(19)  VALUE 'RMA  9033 084 055 0'.      10330005
105400         03  FILLER  PIC X(19)  VALUE 'RMB  9034 122 055 0'.      10340005
105500         03  FILLER  PIC X(19)  VALUE 'RMC  9035 136 055 0'.      10350005
105600         03  FILLER  PIC X(19)  VALUE 'RML  9046 219 055 0'.      10360005
105700         03  FILLER  PIC X(19)  VALUE 'RMX  9047 247 055 0'.      10370005
105800         03  FILLER  PIC X(19)  VALUE 'RUA  9042 099 187 0'.      10380005
105900         03  FILLER  PIC X(19)  VALUE 'RUB  9043 156 187 0'.      10390005
106000         03  FILLER  PIC X(19)  VALUE 'RUC  9044 156 187 0'.      10400005
106100         03  FILLER  PIC X(19)  VALUE 'RUL  9052 257 187 0'.      10410005
106200         03  FILLER  PIC X(19)  VALUE 'RUX  9053 267 187 0'.      10420005
106300         03  FILLER  PIC X(19)  VALUE 'RVA  9039 110 128 0'.      10430005
106400         03  FILLER  PIC X(19)  VALUE 'RVB  9040 111 128 0'.      10440005
106500         03  FILLER  PIC X(19)  VALUE 'RVC  9041 151 128 0'.      10450005
106600         03  FILLER  PIC X(19)  VALUE 'RVL  9050 219 128 0'.      10460005
106700         03  FILLER  PIC X(19)  VALUE 'RVX  9051 261 128 0'.      10470005
106800     02  RUG67-2014-DATA2 REDEFINES RUG67-2014-DATA1 OCCURS 67    10480005
106900             ASCENDING KEY IS RUG67-2014-CODE                     10490005
107000             INDEXED BY RUG67-2014-01.                            10500005
107100         03  RUG67-2014-CODE     PIC X(03).                       10510005
107200         03  RUG67-2014-REGS        OCCURS 1.                     10520005
107300             04  FILLER               PIC XX.                     10530005
107400             04  REV67-2014-CODE      PIC XXXX.                   10540005
107500             04  FILLER               PIC X.                      10550005
107600             04  RUG67-2014-NURSING   PIC 9V99.                   10560005
107700             04  FILLER               PIC X.                      10570005
107800             04  RUG67-2014-THERAPY   PIC 9V99.                   10580005
107900             04  FILLER               PIC X.                      10590005
108000             04  RUG67-2014-FACTOR    PIC 9.                      10600005
108100                                                                  10610005
108200                                                                  10620005
108300                                                                  10630005
108400*********************>>  2014  <<**********************           10640005
108500*********************>>  2015  <<**********************           10650005
108600                                                                  10660005
108700                                                                  10670005
108800***************************************************************   10680005
108900*  LAYUP TABLE AREA FOR RUG 67 CODES FOR FY2015               *   10690005
109000*  EFFECTIVE OCT  1, 2014                                     *   10700005
109100*  FORMAT FOR RUG TABLE 67                                    *   10710005
109200*    N = NURSING   T = THERAPY  F = THERAPY COMPONENT FACTOR  *   10720005
109300***************************************************************   10730005
109400 01  RUG67-2015-TABLE.                                            10740005
109500     02  RUG67-2015-DATA1.                                        10750005
109600*                                      RUG  REV                   10760005
109700*                                      CODE CODE N - T - F        10770005
109800         03  FILLER  PIC X(19)  VALUE 'AAA  9000 054 000 1'.      10780005
109900         03  FILLER  PIC X(19)  VALUE 'BA1  9011 064 000 1'.      10790005
110000         03  FILLER  PIC X(19)  VALUE 'BA2  9012 070 000 1'.      10800005
110100         03  FILLER  PIC X(19)  VALUE 'BB1  9013 090 000 1'.      10810005
110200         03  FILLER  PIC X(19)  VALUE 'BB2  9014 097 000 1'.      10820005
110300         03  FILLER  PIC X(19)  VALUE 'CA1  9019 078 000 1'.      10830005
110400         03  FILLER  PIC X(19)  VALUE 'CA2  9020 088 000 1'.      10840005
110500         03  FILLER  PIC X(19)  VALUE 'CB1  9021 102 000 1'.      10850005
110600         03  FILLER  PIC X(19)  VALUE 'CB2  9022 115 000 1'.      10860005
110700         03  FILLER  PIC X(19)  VALUE 'CC1  9023 115 000 1'.      10870005
110800         03  FILLER  PIC X(19)  VALUE 'CC2  9024 129 000 1'.      10880005
110900         03  FILLER  PIC X(19)  VALUE 'CD1  9024 138 000 1'.      10890005
111000         03  FILLER  PIC X(19)  VALUE 'CD2  9024 156 000 1'.      10900005
111100         03  FILLER  PIC X(19)  VALUE 'CE1  9024 150 000 1'.      10910005
111200         03  FILLER  PIC X(19)  VALUE 'CE2  9028 168 000 1'.      10920005
111300         03  FILLER  PIC X(19)  VALUE 'ES1  9028 232 000 1'.      10930005
111400         03  FILLER  PIC X(19)  VALUE 'ES2  9029 267 000 1'.      10940005
111500         03  FILLER  PIC X(19)  VALUE 'ES3  9030 358 000 1'.      10950005
111600         03  FILLER  PIC X(19)  VALUE 'HB1  9015 146 000 1'.      10960005
111700         03  FILLER  PIC X(19)  VALUE 'HB2  9016 186 000 1'.      10970005
111800         03  FILLER  PIC X(19)  VALUE 'HC1  9017 148 000 1'.      10980005
111900         03  FILLER  PIC X(19)  VALUE 'HC2  9018 189 000 1'.      10990005
112000         03  FILLER  PIC X(19)  VALUE 'HD1  9018 160 000 1'.      11000005
112100         03  FILLER  PIC X(19)  VALUE 'HD2  9018 204 000 1'.      11010005
112200         03  FILLER  PIC X(19)  VALUE 'HE1  9018 174 000 1'.      11020005
112300         03  FILLER  PIC X(19)  VALUE 'HE2  9018 222 000 1'.      11030005
112400         03  FILLER  PIC X(19)  VALUE 'LB1  9018 114 000 1'.      11040005
112500         03  FILLER  PIC X(19)  VALUE 'LB2  9018 145 000 1'.      11050005
112600         03  FILLER  PIC X(19)  VALUE 'LC1  9018 122 000 1'.      11060005
112700         03  FILLER  PIC X(19)  VALUE 'LC2  9018 156 000 1'.      11070005
112800         03  FILLER  PIC X(19)  VALUE 'LD1  9018 146 000 1'.      11080005
112900         03  FILLER  PIC X(19)  VALUE 'LD2  9018 186 000 1'.      11090005
113000         03  FILLER  PIC X(19)  VALUE 'LE1  9018 154 000 1'.      11100005
113100         03  FILLER  PIC X(19)  VALUE 'LE2  9018 196 000 1'.      11110005
113200         03  FILLER  PIC X(19)  VALUE 'PA1  9001 054 000 1'.      11120005
113300         03  FILLER  PIC X(19)  VALUE 'PA2  9002 059 000 1'.      11130005
113400         03  FILLER  PIC X(19)  VALUE 'PB1  9003 078 000 1'.      11140005
113500         03  FILLER  PIC X(19)  VALUE 'PB2  9004 084 000 1'.      11150005
113600         03  FILLER  PIC X(19)  VALUE 'PC1  9005 102 000 1'.      11160005
113700         03  FILLER  PIC X(19)  VALUE 'PC2  9006 110 000 1'.      11170005
113800         03  FILLER  PIC X(19)  VALUE 'PD1  9007 128 000 1'.      11180005
113900         03  FILLER  PIC X(19)  VALUE 'PD2  9008 138 000 1'.      11190005
114000         03  FILLER  PIC X(19)  VALUE 'PE1  9009 140 000 1'.      11200005
114100         03  FILLER  PIC X(19)  VALUE 'PE2  9010 150 000 1'.      11210005
114200         03  FILLER  PIC X(19)  VALUE 'RHA  9036 091 085 0'.      11220005
114300         03  FILLER  PIC X(19)  VALUE 'RHB  9037 119 085 0'.      11230005
114400         03  FILLER  PIC X(19)  VALUE 'RHC  9038 145 085 0'.      11240005
114500         03  FILLER  PIC X(19)  VALUE 'RHL  9048 215 085 0'.      11250005
114600         03  FILLER  PIC X(19)  VALUE 'RHX  9049 255 085 0'.      11260005
114700         03  FILLER  PIC X(19)  VALUE 'RLA  9031 071 028 0'.      11270005
114800         03  FILLER  PIC X(19)  VALUE 'RLB  9032 150 028 0'.      11280005
114900         03  FILLER  PIC X(19)  VALUE 'RLX  9045 226 028 0'.      11290005
115000         03  FILLER  PIC X(19)  VALUE 'RMA  9033 084 055 0'.      11300005
115100         03  FILLER  PIC X(19)  VALUE 'RMB  9034 122 055 0'.      11310005
115200         03  FILLER  PIC X(19)  VALUE 'RMC  9035 136 055 0'.      11320005
115300         03  FILLER  PIC X(19)  VALUE 'RML  9046 219 055 0'.      11330005
115400         03  FILLER  PIC X(19)  VALUE 'RMX  9047 247 055 0'.      11340005
115500         03  FILLER  PIC X(19)  VALUE 'RUA  9042 099 187 0'.      11350005
115600         03  FILLER  PIC X(19)  VALUE 'RUB  9043 156 187 0'.      11360005
115700         03  FILLER  PIC X(19)  VALUE 'RUC  9044 156 187 0'.      11370005
115800         03  FILLER  PIC X(19)  VALUE 'RUL  9052 257 187 0'.      11380005
115900         03  FILLER  PIC X(19)  VALUE 'RUX  9053 267 187 0'.      11390005
116000         03  FILLER  PIC X(19)  VALUE 'RVA  9039 110 128 0'.      11400005
116100         03  FILLER  PIC X(19)  VALUE 'RVB  9040 111 128 0'.      11410005
116200         03  FILLER  PIC X(19)  VALUE 'RVC  9041 151 128 0'.      11420005
116300         03  FILLER  PIC X(19)  VALUE 'RVL  9050 219 128 0'.      11430005
116400         03  FILLER  PIC X(19)  VALUE 'RVX  9051 261 128 0'.      11440005
116500     02  RUG67-2015-DATA2 REDEFINES RUG67-2015-DATA1 OCCURS 67    11450005
116600             ASCENDING KEY IS RUG67-2015-CODE                     11460005
116700             INDEXED BY RUG67-2015-01.                            11470005
116800         03  RUG67-2015-CODE     PIC X(03).                       11480005
116900         03  RUG67-2015-REGS        OCCURS 1.                     11490005
117000             04  FILLER               PIC XX.                     11500005
117100             04  REV67-2015-CODE      PIC XXXX.                   11510005
117200             04  FILLER               PIC X.                      11520005
117300             04  RUG67-2015-NURSING   PIC 9V99.                   11530005
117400             04  FILLER               PIC X.                      11540005
117500             04  RUG67-2015-THERAPY   PIC 9V99.                   11550005
117600             04  FILLER               PIC X.                      11560005
117700             04  RUG67-2015-FACTOR    PIC 9.                      11570005
117800                                                                  11580005
117900                                                                  11590005
118000                                                                  11600005
118100*********************>>  2015  <<**********************           11610005
118200*********************>>  2016  <<**********************           11620005
118300                                                                  11630005
118400                                                                  11640005
118500***************************************************************   11650005
118600*  LAYUP TABLE AREA FOR RUG 67 CODES FOR FY2016               *   11660005
118700*  EFFECTIVE OCT  1, 2015                                     *   11661005
118800*  FORMAT FOR RUG TABLE 67                                    *   11662005
118900*    N = NURSING   T = THERAPY  F = THERAPY COMPONENT FACTOR  *   11663005
119000***************************************************************   11664005
119100 01  RUG67-2016-TABLE.                                            11665005
119200     02  RUG67-2016-DATA1.                                        11666005
119300*                                      RUG  REV                   11667005
119400*                                      CODE CODE N - T - F        11668005
119500         03  FILLER  PIC X(19)  VALUE 'AAA  9000 054 000 1'.      11669005
119600         03  FILLER  PIC X(19)  VALUE 'BA1  9011 064 000 1'.      11669105
119700         03  FILLER  PIC X(19)  VALUE 'BA2  9012 070 000 1'.      11669205
119800         03  FILLER  PIC X(19)  VALUE 'BB1  9013 090 000 1'.      11669305
119900         03  FILLER  PIC X(19)  VALUE 'BB2  9014 097 000 1'.      11669405
120000         03  FILLER  PIC X(19)  VALUE 'CA1  9019 078 000 1'.      11669505
120100         03  FILLER  PIC X(19)  VALUE 'CA2  9020 088 000 1'.      11669605
120200         03  FILLER  PIC X(19)  VALUE 'CB1  9021 102 000 1'.      11669705
120300         03  FILLER  PIC X(19)  VALUE 'CB2  9022 115 000 1'.      11669805
120400         03  FILLER  PIC X(19)  VALUE 'CC1  9023 115 000 1'.      11669905
120500         03  FILLER  PIC X(19)  VALUE 'CC2  9024 129 000 1'.      11670005
120600         03  FILLER  PIC X(19)  VALUE 'CD1  9024 138 000 1'.      11670105
120700         03  FILLER  PIC X(19)  VALUE 'CD2  9024 156 000 1'.      11670205
120800         03  FILLER  PIC X(19)  VALUE 'CE1  9024 150 000 1'.      11670305
120900         03  FILLER  PIC X(19)  VALUE 'CE2  9028 168 000 1'.      11670405
121000         03  FILLER  PIC X(19)  VALUE 'ES1  9028 232 000 1'.      11670505
121100         03  FILLER  PIC X(19)  VALUE 'ES2  9029 267 000 1'.      11670605
121200         03  FILLER  PIC X(19)  VALUE 'ES3  9030 358 000 1'.      11670705
121300         03  FILLER  PIC X(19)  VALUE 'HB1  9015 146 000 1'.      11670805
121400         03  FILLER  PIC X(19)  VALUE 'HB2  9016 186 000 1'.      11670905
121500         03  FILLER  PIC X(19)  VALUE 'HC1  9017 148 000 1'.      11671005
121600         03  FILLER  PIC X(19)  VALUE 'HC2  9018 189 000 1'.      11671105
121700         03  FILLER  PIC X(19)  VALUE 'HD1  9018 160 000 1'.      11671205
121800         03  FILLER  PIC X(19)  VALUE 'HD2  9018 204 000 1'.      11671305
121900         03  FILLER  PIC X(19)  VALUE 'HE1  9018 174 000 1'.      11671405
122000         03  FILLER  PIC X(19)  VALUE 'HE2  9018 222 000 1'.      11671505
122100         03  FILLER  PIC X(19)  VALUE 'LB1  9018 114 000 1'.      11671605
122200         03  FILLER  PIC X(19)  VALUE 'LB2  9018 145 000 1'.      11671705
122300         03  FILLER  PIC X(19)  VALUE 'LC1  9018 122 000 1'.      11671805
122400         03  FILLER  PIC X(19)  VALUE 'LC2  9018 156 000 1'.      11671905
122500         03  FILLER  PIC X(19)  VALUE 'LD1  9018 146 000 1'.      11672005
122600         03  FILLER  PIC X(19)  VALUE 'LD2  9018 186 000 1'.      11672105
122700         03  FILLER  PIC X(19)  VALUE 'LE1  9018 154 000 1'.      11672205
122800         03  FILLER  PIC X(19)  VALUE 'LE2  9018 196 000 1'.      11672305
122900         03  FILLER  PIC X(19)  VALUE 'PA1  9001 054 000 1'.      11672405
123000         03  FILLER  PIC X(19)  VALUE 'PA2  9002 059 000 1'.      11672505
123100         03  FILLER  PIC X(19)  VALUE 'PB1  9003 078 000 1'.      11672605
123200         03  FILLER  PIC X(19)  VALUE 'PB2  9004 084 000 1'.      11672705
123300         03  FILLER  PIC X(19)  VALUE 'PC1  9005 102 000 1'.      11672805
123400         03  FILLER  PIC X(19)  VALUE 'PC2  9006 110 000 1'.      11672905
123500         03  FILLER  PIC X(19)  VALUE 'PD1  9007 128 000 1'.      11673005
123600         03  FILLER  PIC X(19)  VALUE 'PD2  9008 138 000 1'.      11673105
123700         03  FILLER  PIC X(19)  VALUE 'PE1  9009 140 000 1'.      11673205
123800         03  FILLER  PIC X(19)  VALUE 'PE2  9010 150 000 1'.      11673305
123900         03  FILLER  PIC X(19)  VALUE 'RHA  9036 091 085 0'.      11673405
124000         03  FILLER  PIC X(19)  VALUE 'RHB  9037 119 085 0'.      11673505
124100         03  FILLER  PIC X(19)  VALUE 'RHC  9038 145 085 0'.      11673605
124200         03  FILLER  PIC X(19)  VALUE 'RHL  9048 215 085 0'.      11673705
124300         03  FILLER  PIC X(19)  VALUE 'RHX  9049 255 085 0'.      11673805
124400         03  FILLER  PIC X(19)  VALUE 'RLA  9031 071 028 0'.      11673905
124500         03  FILLER  PIC X(19)  VALUE 'RLB  9032 150 028 0'.      11674005
124600         03  FILLER  PIC X(19)  VALUE 'RLX  9045 226 028 0'.      11674105
124700         03  FILLER  PIC X(19)  VALUE 'RMA  9033 084 055 0'.      11674205
124800         03  FILLER  PIC X(19)  VALUE 'RMB  9034 122 055 0'.      11674305
124900         03  FILLER  PIC X(19)  VALUE 'RMC  9035 136 055 0'.      11674405
125000         03  FILLER  PIC X(19)  VALUE 'RML  9046 219 055 0'.      11674505
125100         03  FILLER  PIC X(19)  VALUE 'RMX  9047 247 055 0'.      11674605
125200         03  FILLER  PIC X(19)  VALUE 'RUA  9042 099 187 0'.      11674705
125300         03  FILLER  PIC X(19)  VALUE 'RUB  9043 156 187 0'.      11674805
125400         03  FILLER  PIC X(19)  VALUE 'RUC  9044 156 187 0'.      11674905
125500         03  FILLER  PIC X(19)  VALUE 'RUL  9052 257 187 0'.      11675005
125600         03  FILLER  PIC X(19)  VALUE 'RUX  9053 267 187 0'.      11675105
125700         03  FILLER  PIC X(19)  VALUE 'RVA  9039 110 128 0'.      11675205
125800         03  FILLER  PIC X(19)  VALUE 'RVB  9040 111 128 0'.      11675305
125900         03  FILLER  PIC X(19)  VALUE 'RVC  9041 151 128 0'.      11675405
126000         03  FILLER  PIC X(19)  VALUE 'RVL  9050 219 128 0'.      11675505
126100         03  FILLER  PIC X(19)  VALUE 'RVX  9051 261 128 0'.      11675605
126200     02  RUG67-2016-DATA2 REDEFINES RUG67-2016-DATA1 OCCURS 67    11675705
126300             ASCENDING KEY IS RUG67-2016-CODE                     11675805
126400             INDEXED BY RUG67-2016-01.                            11675905
126500         03  RUG67-2016-CODE     PIC X(03).                       11676005
126600         03  RUG67-2016-REGS        OCCURS 1.                     11676105
126700             04  FILLER               PIC XX.                     11676205
126800             04  REV67-2016-CODE      PIC XXXX.                   11676305
126900             04  FILLER               PIC X.                      11676405
127000             04  RUG67-2016-NURSING   PIC 9V99.                   11676505
127100             04  FILLER               PIC X.                      11676605
127200             04  RUG67-2016-THERAPY   PIC 9V99.                   11676705
127300             04  FILLER               PIC X.                      11676805
127400             04  RUG67-2016-FACTOR    PIC 9.                      11676905
127500                                                                  11677005
127600                                                                  11677105
127700                                                                  11677205
127800*********************>>  2016  <<**********************           11677305
118200*********************>>  2017  <<**********************           11677405
118300                                                                  11677505
118400                                                                  11677605
118500***************************************************************   11677705
118600*  LAYUP TABLE AREA FOR RUG 67 CODES FOR FY2017               *   11677805
118700*  EFFECTIVE OCT  1, 2016                                     *   11677905
118800*  FORMAT FOR RUG TABLE 67                                    *   11678005
118900*    N = NURSING   T = THERAPY  F = THERAPY COMPONENT FACTOR  *   11678105
119000***************************************************************   11678205
119100 01  RUG67-2017-TABLE.                                            11678305
119200     02  RUG67-2017-DATA1.                                        11678405
119300*                                      RUG  REV                   11678505
119400*                                      CODE CODE N - T - F        11678605
119500         03  FILLER  PIC X(19)  VALUE 'AAA  9000 054 000 1'.      11678705
119600         03  FILLER  PIC X(19)  VALUE 'BA1  9011 064 000 1'.      11678805
119700         03  FILLER  PIC X(19)  VALUE 'BA2  9012 070 000 1'.      11678905
119800         03  FILLER  PIC X(19)  VALUE 'BB1  9013 090 000 1'.      11679005
119900         03  FILLER  PIC X(19)  VALUE 'BB2  9014 097 000 1'.      11679105
120000         03  FILLER  PIC X(19)  VALUE 'CA1  9019 078 000 1'.      11679205
120100         03  FILLER  PIC X(19)  VALUE 'CA2  9020 088 000 1'.      11679305
120200         03  FILLER  PIC X(19)  VALUE 'CB1  9021 102 000 1'.      11679405
120300         03  FILLER  PIC X(19)  VALUE 'CB2  9022 115 000 1'.      11679505
120400         03  FILLER  PIC X(19)  VALUE 'CC1  9023 115 000 1'.      11679605
120500         03  FILLER  PIC X(19)  VALUE 'CC2  9024 129 000 1'.      11679705
120600         03  FILLER  PIC X(19)  VALUE 'CD1  9024 138 000 1'.      11679805
120700         03  FILLER  PIC X(19)  VALUE 'CD2  9024 156 000 1'.      11679905
120800         03  FILLER  PIC X(19)  VALUE 'CE1  9024 150 000 1'.      11680005
120900         03  FILLER  PIC X(19)  VALUE 'CE2  9028 168 000 1'.      11680105
121000         03  FILLER  PIC X(19)  VALUE 'ES1  9028 232 000 1'.      11680205
121100         03  FILLER  PIC X(19)  VALUE 'ES2  9029 267 000 1'.      11680305
121200         03  FILLER  PIC X(19)  VALUE 'ES3  9030 358 000 1'.      11680405
121300         03  FILLER  PIC X(19)  VALUE 'HB1  9015 146 000 1'.      11680505
121400         03  FILLER  PIC X(19)  VALUE 'HB2  9016 186 000 1'.      11680605
121500         03  FILLER  PIC X(19)  VALUE 'HC1  9017 148 000 1'.      11680705
121600         03  FILLER  PIC X(19)  VALUE 'HC2  9018 189 000 1'.      11680805
121700         03  FILLER  PIC X(19)  VALUE 'HD1  9018 160 000 1'.      11680905
121800         03  FILLER  PIC X(19)  VALUE 'HD2  9018 204 000 1'.      11681005
121900         03  FILLER  PIC X(19)  VALUE 'HE1  9018 174 000 1'.      11681105
122000         03  FILLER  PIC X(19)  VALUE 'HE2  9018 222 000 1'.      11681205
122100         03  FILLER  PIC X(19)  VALUE 'LB1  9018 114 000 1'.      11681305
122200         03  FILLER  PIC X(19)  VALUE 'LB2  9018 145 000 1'.      11681405
122300         03  FILLER  PIC X(19)  VALUE 'LC1  9018 122 000 1'.      11681505
122400         03  FILLER  PIC X(19)  VALUE 'LC2  9018 156 000 1'.      11681605
122500         03  FILLER  PIC X(19)  VALUE 'LD1  9018 146 000 1'.      11681705
122600         03  FILLER  PIC X(19)  VALUE 'LD2  9018 186 000 1'.      11681805
122700         03  FILLER  PIC X(19)  VALUE 'LE1  9018 154 000 1'.      11681905
122800         03  FILLER  PIC X(19)  VALUE 'LE2  9018 196 000 1'.      11682005
122900         03  FILLER  PIC X(19)  VALUE 'PA1  9001 054 000 1'.      11682105
123000         03  FILLER  PIC X(19)  VALUE 'PA2  9002 059 000 1'.      11682205
123100         03  FILLER  PIC X(19)  VALUE 'PB1  9003 078 000 1'.      11682305
123200         03  FILLER  PIC X(19)  VALUE 'PB2  9004 084 000 1'.      11682405
123300         03  FILLER  PIC X(19)  VALUE 'PC1  9005 102 000 1'.      11682505
123400         03  FILLER  PIC X(19)  VALUE 'PC2  9006 110 000 1'.      11682605
123500         03  FILLER  PIC X(19)  VALUE 'PD1  9007 128 000 1'.      11682705
123600         03  FILLER  PIC X(19)  VALUE 'PD2  9008 138 000 1'.      11682805
123700         03  FILLER  PIC X(19)  VALUE 'PE1  9009 140 000 1'.      11682905
123800         03  FILLER  PIC X(19)  VALUE 'PE2  9010 150 000 1'.      11683005
123900         03  FILLER  PIC X(19)  VALUE 'RHA  9036 091 085 0'.      11683105
124000         03  FILLER  PIC X(19)  VALUE 'RHB  9037 119 085 0'.      11683205
124100         03  FILLER  PIC X(19)  VALUE 'RHC  9038 145 085 0'.      11683305
124200         03  FILLER  PIC X(19)  VALUE 'RHL  9048 215 085 0'.      11683405
124300         03  FILLER  PIC X(19)  VALUE 'RHX  9049 255 085 0'.      11683505
124400         03  FILLER  PIC X(19)  VALUE 'RLA  9031 071 028 0'.      11683605
124500         03  FILLER  PIC X(19)  VALUE 'RLB  9032 150 028 0'.      11683705
124600         03  FILLER  PIC X(19)  VALUE 'RLX  9045 226 028 0'.      11683805
124700         03  FILLER  PIC X(19)  VALUE 'RMA  9033 084 055 0'.      11683905
124800         03  FILLER  PIC X(19)  VALUE 'RMB  9034 122 055 0'.      11684005
124900         03  FILLER  PIC X(19)  VALUE 'RMC  9035 136 055 0'.      11684105
125000         03  FILLER  PIC X(19)  VALUE 'RML  9046 219 055 0'.      11684205
125100         03  FILLER  PIC X(19)  VALUE 'RMX  9047 247 055 0'.      11684305
125200         03  FILLER  PIC X(19)  VALUE 'RUA  9042 099 187 0'.      11684405
125300         03  FILLER  PIC X(19)  VALUE 'RUB  9043 156 187 0'.      11684505
125400         03  FILLER  PIC X(19)  VALUE 'RUC  9044 156 187 0'.      11684605
125500         03  FILLER  PIC X(19)  VALUE 'RUL  9052 257 187 0'.      11684705
125600         03  FILLER  PIC X(19)  VALUE 'RUX  9053 267 187 0'.      11684805
125700         03  FILLER  PIC X(19)  VALUE 'RVA  9039 110 128 0'.      11684905
125800         03  FILLER  PIC X(19)  VALUE 'RVB  9040 111 128 0'.      11685005
125900         03  FILLER  PIC X(19)  VALUE 'RVC  9041 151 128 0'.      11685105
126000         03  FILLER  PIC X(19)  VALUE 'RVL  9050 219 128 0'.      11685205
126100         03  FILLER  PIC X(19)  VALUE 'RVX  9051 261 128 0'.      11685305
126200     02  RUG67-2017-DATA2 REDEFINES RUG67-2017-DATA1 OCCURS 67    11685405
126300             ASCENDING KEY IS RUG67-2017-CODE                     11685505
126400             INDEXED BY RUG67-2017-01.                            11685605
126500         03  RUG67-2017-CODE     PIC X(03).                       11685705
126600         03  RUG67-2017-REGS        OCCURS 1.                     11685805
126700             04  FILLER               PIC XX.                     11685905
126800             04  REV67-2017-CODE      PIC XXXX.                   11686005
126900             04  FILLER               PIC X.                      11686105
127000             04  RUG67-2017-NURSING   PIC 9V99.                   11686205
127100             04  FILLER               PIC X.                      11686305
127200             04  RUG67-2017-THERAPY   PIC 9V99.                   11686405
127300             04  FILLER               PIC X.                      11686505
127400             04  RUG67-2017-FACTOR    PIC 9.                      11686605
127500                                                                  11686705
127600                                                                  11686805
127700                                                                  11686905
127800*********************>>  2017  <<**********************           11687005
127900 LINKAGE SECTION.                                                 11687105
128000***************************************************************   11687205
128100*                 * * * * * * * * *                           *   11687305
128200***************************************************************   11687405
128300***************************************************************   11687505
128400*    THIS DATA IS CALCULATED BY THIS SNFPR  SUBROUTINE        *   11687605
128500*    AND PASSED BACK TO THE CALLING PROGRAM                   *   11687705
128600*            RETURN CODE VALUES (SNF-RTC)                     *   11687805
128700*                                                             *   11687905
128800*            SNF-RTC                                          *   11688005
128900*              00 = RUG III GROUP RATE RETURNED               *   11689005
129000*                                                             *   11690005
129100*            SNF-RTC   NO RATE RETURNED                       *   11700005
129200*                                                             *   11710005
129300*              20 = INVALID RUG CODE                          *   11720005
129400*                                                             *   11730005
129500*              30 = INVALID MSA OR CBSA OR WAGE INDEX         *   11740005
129600*                                                             *   11750005
129700*              40 = THRU DATE < JULY 1 1998 OR INVALID        *   11760005
129800*                                                             *   11770005
129900*              50 = INVALID FEDERAL BLEND FOR THAT YEAR       *   11780005
130000*                                                             *   11790005
130100*              60 = INVALID FEDERAL BLEND                     *   11800005
130200*                                                             *   11810005
130300*              61 = FEDERAL BLEND = 0 AND                     *   11820005
130400*                   SNF THRU DATE < JAN 1, 2000               *   11830005
130500*                                                             *   11840005
130600***************************************************************   11850005
130700*     IP-RATE, GS-RATE, MDS-RATE, THERAPY, REHAB              *   11860005
130800***************************************************************   11870005
130900 01  SNF-DATA.                                                    11880005
131000     10  SNF-MSA               PIC XXXX.                          11890005
131100     10  SNF-CBSA              PIC XXXXX.                         11900005
131200     10  SNF-SPEC-WI-IND       PIC X.                             11910005
131300     10  SNF-SPEC-WI           PIC 9(02)V9(04).                   11920005
131400     10  SNF-RUG-CODE.                                            11930005
131500         15  SNF-RUG           PIC XXX.                           11940005
131600         15  FILLER            PIC XX.                            11950005
131700                                                                  11960005
131800     10  SNF-FROM-DATE.                                           11970005
131900         15  SNF-FROM-CC        PIC XX.                           11980005
132000         15  SNF-FROM-YY        PIC XX.                           11990005
132100         15  SNF-FROM-MM        PIC XX.                           12000005
132200         15  SNF-FROM-DD        PIC XX.                           12010005
132300                                                                  12020005
132400     10  SNF-THRU-DATE.                                           12030005
132500         15  SNF-THRU-CC       PIC XX.                            12040005
132600         15  SNF-THRU-YY       PIC XX.                            12050005
132700         15  SNF-THRU-MM       PIC XX.                            12060005
132800         15  SNF-THRU-DD       PIC XX.                            12070005
132900                                                                  12080005
133000     10  SNF-FED-BLEND         PIC X.                             12090005
133100         88  SNF-ALL-FACILITY      VALUE '0'.                     12100005
133200         88  SNF-FED-BLEND-2575PER VALUE '1'.                     12110005
133300         88  SNF-FED-BLEND-5050PER VALUE '2'.                     12120005
133400         88  SNF-FED-BLEND-7525PER VALUE '3'.                     12130005
133500         88  SNF-FED-BLEND-100PER  VALUE '4'.                     12140005
133600     10  SNF-FACILITY-RATE     PIC 9(05)V99.                      12150005
133700     10  SNF-DIAGNOSIS-CODES.                                     12160005
133800         15  SNF-PRIN-DIAG-CODE    PIC X(07).                     12170005
133900         15  SNF-OTHER-DIAG-CODE2  PIC X(07).                     12180005
134000         15  SNF-OTHER-DIAG-CODE3  PIC X(07).                     12190005
134100         15  SNF-OTHER-DIAG-CODE4  PIC X(07).                     12200005
134200         15  SNF-OTHER-DIAG-CODE5  PIC X(07).                     12210005
134300         15  SNF-OTHER-DIAG-CODE6  PIC X(07).                     12220005
134400         15  SNF-OTHER-DIAG-CODE7  PIC X(07).                     12230005
134500         15  SNF-OTHER-DIAG-CODE8  PIC X(07).                     12240005
134600         15  SNF-OTHER-DIAG-CODE9  PIC X(07).                     12250005
134700         15  SNF-OTHER-DIAG-CODE10 PIC X(07).                     12260005
134800         15  SNF-OTHER-DIAG-CODE11 PIC X(07).                     12270005
134900         15  SNF-OTHER-DIAG-CODE12 PIC X(07).                     12280005
135000         15  SNF-OTHER-DIAG-CODE13 PIC X(07).                     12290005
135100         15  SNF-OTHER-DIAG-CODE14 PIC X(07).                     12300005
135200         15  SNF-OTHER-DIAG-CODE15 PIC X(07).                     12310005
135300         15  SNF-OTHER-DIAG-CODE16 PIC X(07).                     12320005
135400         15  SNF-OTHER-DIAG-CODE17 PIC X(07).                     12330005
135500         15  SNF-OTHER-DIAG-CODE18 PIC X(07).                     12340005
135600         15  SNF-OTHER-DIAG-CODE19 PIC X(07).                     12350005
135700         15  SNF-OTHER-DIAG-CODE20 PIC X(07).                     12360005
135800         15  SNF-OTHER-DIAG-CODE21 PIC X(07).                     12370005
135900         15  SNF-OTHER-DIAG-CODE22 PIC X(07).                     12380005
136000         15  SNF-OTHER-DIAG-CODE23 PIC X(07).                     12390005
136100         15  SNF-OTHER-DIAG-CODE24 PIC X(07).                     12400005
136200         15  SNF-OTHER-DIAG-CODE25 PIC X(07).                     12410005
136300     10  SNF-RATE-RTC.                                            12420005
136400         15  SNF-PAYMENT-RATE      PIC 9(06)V99.                  12430005
136500         15  SNF-RTC               PIC XX.                        12440005
136600     10  FILLER                    PIC X(24).                     12450005
136700                                                                  12460005
136800 01  HOLD-VARIABLES.                                              12470005
136900     02  HOLD-VAR-DATA.                                           12480005
137000         05  FACTOR                         PIC 9.                12490005
137100         05  NUR-INDEX                      PIC 9V99.             12500005
137200         05  THR-INDEX                      PIC 9V99.             12510005
137300         05  AREA-WAGE-INDEX                PIC 9(01)V9(04).      12520005
137400         05  IP-RATE                        PIC 9(03)V9(02).      12530005
137500         05  GS-RATE                        PIC 9(02)V9(02).      12540005
137600         05  TH-RATE                        PIC 9(02)V9(02).      12550005
137700         05  REHAB-RATE                     PIC 9(03)V9(02).      12560005
137800         05  NURSING-COMPONENT              PIC 999V99.           12570005
137900         05  THERAPY-COMPONENT              PIC 999V99.           12580005
138000         05  NCM-THR-COMPONENT              PIC 999V99.           12590005
138100         05  NCM-COMPONENT                  PIC 999V99.           12600005
138200         05  PAYMENT-RATE-ADJ               PIC 9(06)V99.         12610005
138300         05  FED-PAYMENT-PORTION            PIC 9(06)V99.         12620005
138400     02  SNFPR-VERSION                      PIC X(09).            12630005
138500                                                                  12640005
138600 01  MSA-WAGE-INDEX-RECORD.                                       12650005
138700     02  HOLD-MSA-WIR-DATA.                                       12660005
138800         05  MSA-WIR-MSA             PIC X(04).                   12670005
138900         05  MSA-WIR-EFFDATE         PIC X(08).                   12680005
139000         05  MSA-WIR-AREA-WAGEIND    PIC 9(02)V9(04).             12690005
139100                                                                  12700005
139200 01  CBSA-WAGE-INDEX-RECORD.                                      12710005
139300     02  HOLD-CBSA-WIR-DATA.                                      12720005
139400         05  CBSA-WIR-CBSA            PIC X(05).                  12730005
139500         05  CBSA-WIR-EFFDATE         PIC X(08).                  12740005
139600         05  CBSA-WIR-AREA-WAGEIND    PIC 9(02)V9(04).            12750005
139700                                                                  12760005
139800 PROCEDURE DIVISION            USING SNF-DATA                     12770005
139900                                     HOLD-VARIABLES               12780005
140000                                     CBSA-WAGE-INDEX-RECORD       12790005
140100                                     MSA-WAGE-INDEX-RECORD.       12800005
140200                                                                  12810005
140300***************************************************************   12820005
140400*    PROCESSING:                                              *   12830005
140500*        -  WILL PROCESS ALL NATIONAL SNF FOR 1998 THRU 2009  *   12840005
140600*                STARTING JULY 1, 1998                        *   12850005
140700***************************************************************   12860005
140800                                                                  12870005
140900     PERFORM 0200-MAINLINE-CONTROL.                               12880005
141000                                                                  12890005
141100     MOVE HOLD-SNF-DATA        TO SNF-DATA.                       12900005
141200                                                                  12910005
141300     GOBACK.                                                      12920005
141400                                                                  12930005
141500 0200-MAINLINE-CONTROL.                                           12940005
141600                                                                  12950005
141700     MOVE SNF-DATA             TO HOLD-SNF-DATA.                  12960005
141800                                                                  12970005
141900     MOVE ALL '0'              TO HLD-RATE-RTC                    12980005
142000                                  HOLD-VAR-DATA                   12990005
142100                                  WK-PAYMENT-RATE                 13000005
142200                                  WK-FACILITY-RATE.               13010005
142300                                                                  13020005
142400     MOVE CAL-VERSION          TO SNFPR-VERSION.                  13030005
142500                                                                  13040005
142600     IF  HLD-RTC = 00                                             13050005
142700         PERFORM 400-CALC-THE-SNF                                 13060005
142800            THRU 400-EXIT.                                        13070005
142900                                                                  13080005
143000 400-CALC-THE-SNF.                                                13090005
143100                                                                  13100005
143200     MOVE HLD-FROM-DATE        TO HLD-PRICE-FROM-DATE             13110005
143300                                                                  13120005
143400     MOVE HLD-THRU-DATE        TO HLD-PRICE-THRU-DATE             13130005
143500                                                                  13140005
143600     IF HLD-PRICE-THRU-MMDD = '1001' AND                          13150005
143700        HLD-PRICE-FROM-DATE < HLD-PRICE-THRU-DATE                 13160005
143800        MOVE '0930'            TO HLD-PRICE-THRU-MMDD.            13170005
143900                                                                  13180005
144000     IF HLD-THRU-DATE < 19980701                                  13190005
144100         MOVE '40'             TO HLD-RTC.                        13200005
144200                                                                  13210005
144300     IF HLD-RTC NOT = 00                                          13220005
144400            GO TO 400-EXIT.                                       13230005
144500                                                                  13240005
144600**************YEARCHANGE 2017.0 *******************************   13250005
144700     IF HLD-PRICE-THRU-DATE > 20160930                            13260005
144800        MOVE CBSA-WIR-AREA-WAGEIND                                13270005
144900                               TO AREA-WAGE-INDEX                 13280005
145000        PERFORM 2017-67-PAYMENT-RATE-CALC                         13290005
145100           THRU 2017-67-EXIT                                      13300005
145200        GO TO 400-EXIT.                                           13310005
145300**************YEARCHANGE 2017.0 *******************************   13320005
144600**************YEARCHANGE 2016.0 *******************************   13330005
144700     IF HLD-PRICE-THRU-DATE > 20150930                            13340005
144800        MOVE CBSA-WIR-AREA-WAGEIND                                13350005
144900                               TO AREA-WAGE-INDEX                 13360005
145000        PERFORM 2016-67-PAYMENT-RATE-CALC                         13370005
145100           THRU 2016-67-EXIT                                      13380005
145200        GO TO 400-EXIT.                                           13390005
145300**************YEARCHANGE 2016.0 *******************************   13400005
145400**************YEARCHANGE 2015.0 *******************************   13410005
145500     IF HLD-PRICE-THRU-DATE > 20140930                            13411005
145600        MOVE CBSA-WIR-AREA-WAGEIND                                13412005
145700                               TO AREA-WAGE-INDEX                 13413005
145800        PERFORM 2015-67-PAYMENT-RATE-CALC                         13414005
145900           THRU 2015-67-EXIT                                      13415005
146000        GO TO 400-EXIT.                                           13416005
146100**************YEARCHANGE 2015.0 *******************************   13417005
146200**************YEARCHANGE 2014.0 *******************************   13418005
146300     IF HLD-PRICE-THRU-DATE > 20130930                            13419005
146400        MOVE CBSA-WIR-AREA-WAGEIND                                13420005
146500                               TO AREA-WAGE-INDEX                 13430005
146600        PERFORM 2014-67-PAYMENT-RATE-CALC                         13440005
146700           THRU 2014-67-EXIT                                      13450005
146800        GO TO 400-EXIT.                                           13460005
146900**************YEARCHANGE 2014.0 *******************************   13470005
147000**************YEARCHANGE 2013.0 *******************************   13480005
147100     IF HLD-PRICE-THRU-DATE > 20120930                            13490005
147200        MOVE CBSA-WIR-AREA-WAGEIND                                13500005
147300                               TO AREA-WAGE-INDEX                 13510005
147400        PERFORM 2013-67-PAYMENT-RATE-CALC                         13520005
147500           THRU 2013-67-EXIT                                      13530005
147600        GO TO 400-EXIT.                                           13540005
147700**************YEARCHANGE 2013.0 *******************************   13550005
147800**************YEARCHANGE 2012.0 *******************************   13560005
147900     IF HLD-PRICE-THRU-DATE > 20110930                            13570005
148000        MOVE CBSA-WIR-AREA-WAGEIND                                13580005
148100                               TO AREA-WAGE-INDEX                 13590005
148200        PERFORM 2012-67-PAYMENT-RATE-CALC                         13600005
148300           THRU 2012-67-EXIT                                      13610005
148400        GO TO 400-EXIT.                                           13620005
148500**************YEARCHANGE 2012.0 *******************************   13630005
148600**************YEARCHANGE 2011.0 *******************************   13640005
148700     IF HLD-PRICE-THRU-DATE > 20100930                            13650005
148800        MOVE CBSA-WIR-AREA-WAGEIND                                13660005
148900                               TO AREA-WAGE-INDEX                 13670005
149000        PERFORM 2011-67-PAYMENT-RATE-CALC                         13680005
149100           THRU 2011-67-EXIT                                      13690005
149200        GO TO 400-EXIT.                                           13700005
149300**************YEARCHANGE 2011.0 *******************************   13710005
149400**************YEARCHANGE 2010.0 *******************************   13720005
149500     IF HLD-PRICE-THRU-DATE > 20090930                            13730005
149600        MOVE CBSA-WIR-AREA-WAGEIND                                13740005
149700                               TO AREA-WAGE-INDEX                 13750005
149800        PERFORM 2010-53-PAYMENT-RATE-CALC                         13760005
149900           THRU 2010-53-EXIT                                      13770005
150000        GO TO 400-EXIT.                                           13780005
150100**************YEARCHANGE 2010.0 *******************************   13790005
150200**************YEARCHANGE 2009.0 *******************************   13800005
150300     IF HLD-PRICE-THRU-DATE > 20080930                            13810005
150400        MOVE CBSA-WIR-AREA-WAGEIND                                13820005
150500                               TO AREA-WAGE-INDEX                 13830005
150600        PERFORM 2009-53-PAYMENT-RATE-CALC                         13840005
150700           THRU 2009-53-EXIT                                      13850005
150800        GO TO 400-EXIT.                                           13860005
150900**************YEARCHANGE 2009.0 *******************************   13870005
151000**************YEARCHANGE 2008.0 *******************************   13880005
151100     IF HLD-PRICE-THRU-DATE > 20070930                            13890005
151200        MOVE CBSA-WIR-AREA-WAGEIND                                13900005
151300                               TO AREA-WAGE-INDEX                 13910005
151400        PERFORM 2008-53-PAYMENT-RATE-CALC                         13920005
151500           THRU 2008-53-EXIT                                      13930005
151600        GO TO 400-EXIT.                                           13940005
151700**************YEARCHANGE 2008.0 *******************************   13950005
151800**************YEARCHANGE 2007.0 *******************************   13960005
151900     IF HLD-PRICE-THRU-DATE > 20060930                            13970005
152000        MOVE CBSA-WIR-AREA-WAGEIND                                13980005
152100                               TO AREA-WAGE-INDEX                 13990005
152200        PERFORM 2007-53-PAYMENT-RATE-CALC THRU 2007-53-EXIT       14000005
152300        GO TO 400-EXIT.                                           14010005
152400**************YEARCHANGE 2007.0 *******************************   14020005
152500**************YEARCHANGE 2006.1 *******************************   14030005
152600     IF HLD-PRICE-THRU-DATE > 20051231                            14040005
152700        MOVE CBSA-WIR-AREA-WAGEIND                                14050005
152800                               TO AREA-WAGE-INDEX                 14060005
152900        PERFORM 2006-53-PAYMENT-RATE-CALC                         14070005
153000           THRU 2006-53-EXIT                                      14080005
153100        GO TO 400-EXIT.                                           14090005
153200**************YEARCHANGE 2006.1 *******************************   14100005
153300**************YEARCHANGE 2006.0 *******************************   14110005
153400     IF HLD-PRICE-THRU-DATE > 20050930 AND                        14120005
153500        HLD-PRICE-THRU-DATE < 20060101                            14130005
153600        MOVE CBSA-WIR-AREA-WAGEIND                                14140005
153700                               TO AREA-WAGE-INDEX                 14150005
153800        PERFORM 2006-44-PAYMENT-RATE-CALC                         14160005
153900           THRU 2006-44-EXIT                                      14170005
154000        GO TO 400-EXIT.                                           14180005
154100**************YEARCHANGE 2006.0 *******************************   14190005
154200                                                                  14200005
154300     MOVE MSA-WIR-AREA-WAGEIND TO AREA-WAGE-INDEX.                14210005
154400                                                                  14220005
154500     IF HLD-PRICE-THRU-DATE > 20040930                            14230005
154600        PERFORM 2005-PAYMENT-RATE-CALC                            14240005
154700           THRU 2005-EXIT                                         14250005
154800        GO TO 400-EXIT.                                           14260005
154900                                                                  14270005
155000     IF HLD-PRICE-THRU-DATE > 20030930                            14280005
155100        PERFORM 2004-PAYMENT-RATE-CALC                            14290005
155200           THRU 2004-EXIT                                         14300005
155300                                                                  14310005
155400        GO TO 400-EXIT.                                           14320005
155500                                                                  14330005
155600     IF HLD-PRICE-THRU-DATE > 20020930                            14340005
155700        PERFORM 2003-PAYMENT-RATE-CALC                            14350005
155800           THRU 2003-EXIT                                         14360005
155900        GO TO 400-EXIT.                                           14370005
156000                                                                  14380005
156100     IF HLD-PRICE-THRU-DATE > 20010930                            14390005
156200        PERFORM 2002-PAYMENT-RATE-CALC                            14400005
156300           THRU 2002-EXIT                                         14410005
156400        GO TO 400-EXIT.                                           14420005
156500                                                                  14430005
156600     IF HLD-PRICE-THRU-DATE > 20010331                            14440005
156700        PERFORM 2001A-PAYMENT-RATE-CALC                           14450005
156800           THRU 2001A-EXIT                                        14460005
156900        GO TO 400-EXIT.                                           14470005
157000                                                                  14480005
157100     IF HLD-PRICE-THRU-DATE > 20000930                            14490005
157200        PERFORM 2001-PAYMENT-RATE-CALC                            14500005
157300           THRU 2001-EXIT                                         14510005
157400        GO TO 400-EXIT.                                           14520005
157500                                                                  14530005
157600     IF HLD-PRICE-THRU-DATE > 19990930                            14540005
157700        PERFORM 2000-PAYMENT-RATE-CALC                            14550005
157800           THRU 2000-EXIT                                         14560005
157900        GO TO 400-EXIT.                                           14570005
158000                                                                  14580005
158100     IF HLD-PRICE-THRU-DATE > 19980630                            14590005
158200        PERFORM 1999-PAYMENT-RATE-CALC                            14600005
158300           THRU 1999-EXIT                                         14610005
158400        GO TO 400-EXIT.                                           14620005
158500                                                                  14630005
158600                                                                  14640005
158700 400-EXIT.                                                        14650005
158800     EXIT.                                                        14660005
158900                                                                  14670005
159000 500-GET-RATES.                                                   14680005
159100                                                                  14690005
159200     PERFORM 600-WHICH-RATES VARYING R1 FROM 1 BY 1               14700005
159300**************YEARCHANGE 2017.0 ***R1 OCCURS > 20***************14710005
159400                   UNTIL R1 > 20.                                 14720005
159500**************YEARCHANGE 2017.0 *******************************   14730005
159600 500-EXIT.    EXIT.                                               14740005
159700                                                                  14750005
159800 600-WHICH-RATES.                                                 14760005
159900                                                                  14770005
160000     IF HLD-PRICE-THRU-DATE NOT < REG-EFF-DATE (R1)               14780005
160100       MOVE R-IP-RATE (R1, R2, R3)                                14790005
160200                               TO IP-RATE                         14800005
160300       MOVE R-GS-RATE (R1, R2, R3)                                14810005
160400                               TO GS-RATE,                        14820005
160500                                  NCM-COMPONENT                   14830005
160600       MOVE R-TH-RATE (R1, R2, R3)                                14840005
160700                               TO TH-RATE,                        14850005
160800                                  NCM-THR-COMPONENT               14860005
160900       MOVE R-REHAB-RATE (R1, R2, R3)                             14870005
161000                               TO REHAB-RATE.                     14880005
161100                                                                  14890005
161200 800-SEARCH-4-RUG.                                                14900005
161300     SET RUG01                 TO 1.                              14910005
161400     SEARCH RUG-DATA2 VARYING RUG01                               14920005
161500       AT END                                                     14930005
161600           MOVE '20'           TO HLD-RTC                         14940005
161700           GO TO 800-SEARCH-EXIT                                  14950005
161800       WHEN RUG-CODE (RUG01) = HLD-RUG                            14960005
161900                                                                  14970005
162000           MOVE RUG-NURSING (RUG01, R3)                           14980005
162100                               TO NUR-INDEX                       14990005
162200           MOVE RUG-THERAPY (RUG01, R3)                           15000005
162300                               TO THR-INDEX                       15010005
162400           MOVE RUG-FACTOR  (RUG01, R3)                           15020005
162500                               TO FACTOR.                         15030005
162600                                                                  15040005
162700 800-SEARCH-EXIT.   EXIT.                                         15050005
162800                                                                  15060005
162900 900-SEARCH-4-RUG53.                                              15070005
163000     SET RUG53-01              TO 1.                              15080005
163100     SEARCH RUG53-DATA2 VARYING RUG53-01                          15090005
163200       AT END                                                     15100005
163300           MOVE '20'           TO HLD-RTC                         15110005
163400           GO TO 900-SEARCH-EXIT                                  15120005
163500                                                                  15130005
163600       WHEN RUG53-CODE (RUG53-01) = HLD-RUG                       15140005
163700           MOVE RUG53-NURSING (RUG53-01, R3)                      15150005
163800                               TO NUR-INDEX                       15160005
163900           MOVE RUG53-THERAPY (RUG53-01, R3)                      15170005
164000                               TO THR-INDEX                       15180005
164100           MOVE RUG53-FACTOR  (RUG53-01, R3)                      15190005
164200                               TO FACTOR.                         15200005
164300                                                                  15210005
164400 900-SEARCH-EXIT.   EXIT.                                         15220005
164500                                                                  15230005
164600                                                                  15240005
164700 910-SEARCH-4-RUG53-2010.                                         15250005
164800                                                                  15260005
164900     SET RUG53-2010-01         TO 1.                              15270005
165000                                                                  15280005
165100     SEARCH RUG53-2010-DATA2   VARYING RUG53-2010-01              15290005
165200       AT END                                                     15300005
165300           MOVE '20'           TO HLD-RTC                         15310005
165400           GO TO 910-SEARCH-EXIT                                  15320005
165500                                                                  15330005
165600       WHEN RUG53-2010-CODE (RUG53-2010-01) = HLD-RUG             15340005
165700           MOVE RUG53-2010-NURSING (RUG53-2010-01, R3)            15350005
165800                               TO NUR-INDEX                       15360005
165900           MOVE RUG53-2010-THERAPY (RUG53-2010-01, R3)            15370005
166000                               TO THR-INDEX                       15380005
166100           MOVE RUG53-2010-FACTOR (RUG53-2010-01, R3)             15390005
166200                               TO FACTOR.                         15400005
166300                                                                  15410005
166400 910-SEARCH-EXIT.   EXIT.                                         15420005
166500                                                                  15430005
166600 911-SEARCH-4-RUG67-2011.                                         15440005
166700                                                                  15450005
166800     SET RUG67-2011-01         TO 1.                              15460005
166900     SEARCH RUG67-2011-DATA2   VARYING RUG67-2011-01              15470005
167000       AT END                                                     15480005
167100           MOVE '20'           TO HLD-RTC                         15490005
167200           GO TO 911-SEARCH-EXIT                                  15500005
167300                                                                  15510005
167400       WHEN RUG67-2011-CODE (RUG67-2011-01) = HLD-RUG             15520005
167500           MOVE RUG67-2011-NURSING (RUG67-2011-01, R3)            15530005
167600                               TO NUR-INDEX                       15540005
167700           MOVE RUG67-2011-THERAPY (RUG67-2011-01, R3)            15550005
167800                               TO THR-INDEX                       15560005
167900           MOVE RUG67-2011-FACTOR (RUG67-2011-01, R3)             15570005
168000                               TO FACTOR.                         15580005
168100                                                                  15590005
168200 911-SEARCH-EXIT.   EXIT.                                         15600005
168300                                                                  15610005
168400                                                                  15620005
168500 912-SEARCH-4-RUG67-2012.                                         15630005
168600     SET RUG67-2012-01         TO 1.                              15640005
168700     SEARCH RUG67-2012-DATA2 VARYING RUG67-2012-01                15650005
168800       AT END                                                     15660005
168900           MOVE '20'           TO HLD-RTC                         15670005
169000           GO TO 912-SEARCH-EXIT                                  15680005
169100       WHEN RUG67-2012-CODE (RUG67-2012-01) = HLD-RUG             15690005
169200           MOVE RUG67-2012-NURSING (RUG67-2012-01, R3)            15700005
169300                               TO NUR-INDEX                       15710005
169400           MOVE RUG67-2012-THERAPY (RUG67-2012-01, R3)            15720005
169500                               TO THR-INDEX                       15730005
169600           MOVE RUG67-2012-FACTOR (RUG67-2012-01, R3)             15740005
169700                               TO FACTOR.                         15750005
169800                                                                  15760005
169900 912-SEARCH-EXIT.   EXIT.                                         15770005
170000                                                                  15780005
170100                                                                  15790005
170200 913-SEARCH-4-RUG67-2013.                                         15800005
170300     SET RUG67-2013-01         TO 1.                              15810005
170400                                                                  15820005
170500     SEARCH  RUG67-2013-DATA2                                     15830005
170600       VARYING RUG67-2013-01                                      15840005
170700       AT END                                                     15850005
170800           MOVE '20'           TO HLD-RTC                         15860005
170900           GO TO 913-SEARCH-EXIT                                  15870005
171000                                                                  15880005
171100       WHEN RUG67-2013-CODE (RUG67-2013-01) = HLD-RUG             15890005
171200                                                                  15900005
171300           MOVE RUG67-2013-NURSING (RUG67-2013-01, R3)            15910005
171400                               TO NUR-INDEX                       15920005
171500           MOVE RUG67-2013-THERAPY (RUG67-2013-01, R3)            15930005
171600                               TO THR-INDEX                       15940005
171700           MOVE RUG67-2013-FACTOR (RUG67-2013-01, R3)             15950005
171800                               TO FACTOR.                         15960005
171900                                                                  15970005
172000 913-SEARCH-EXIT.   EXIT.                                         15980005
172100                                                                  15990005
172200                                                                  16000005
172300 914-SEARCH-4-RUG67-2014.                                         16010005
172400     SET RUG67-2014-01         TO 1.                              16020005
172500                                                                  16030005
172600     SEARCH  RUG67-2014-DATA2                                     16040005
172700       VARYING RUG67-2014-01                                      16050005
172800       AT END                                                     16060005
172900           MOVE '20'           TO HLD-RTC                         16070005
173000           GO TO 914-SEARCH-EXIT                                  16080005
173100                                                                  16090005
173200       WHEN RUG67-2014-CODE (RUG67-2014-01) = HLD-RUG             16100005
173300                                                                  16110005
173400           MOVE RUG67-2014-NURSING (RUG67-2014-01, R3)            16120005
173500                               TO NUR-INDEX                       16130005
173600           MOVE RUG67-2014-THERAPY (RUG67-2014-01, R3)            16140005
173700                               TO THR-INDEX                       16150005
173800           MOVE RUG67-2014-FACTOR (RUG67-2014-01, R3)             16160005
173900                               TO FACTOR.                         16170005
174000                                                                  16180005
174100 914-SEARCH-EXIT.   EXIT.                                         16190005
174200                                                                  16200005
174300                                                                  16210005
174400                                                                  16220005
174500 915-SEARCH-4-RUG67-2015.                                         16230005
174600     SET RUG67-2015-01         TO 1.                              16240005
174700                                                                  16250005
174800     SEARCH  RUG67-2015-DATA2                                     16260005
174900       VARYING RUG67-2015-01                                      16270005
175000       AT END                                                     16280005
175100           MOVE '20'           TO HLD-RTC                         16290005
175200           GO TO 915-SEARCH-EXIT                                  16300005
175300                                                                  16310005
175400       WHEN RUG67-2015-CODE (RUG67-2015-01) = HLD-RUG             16320005
175500                                                                  16330005
175600           MOVE RUG67-2015-NURSING (RUG67-2015-01, R3)            16340005
175700                               TO NUR-INDEX                       16350005
175800           MOVE RUG67-2015-THERAPY (RUG67-2015-01, R3)            16360005
175900                               TO THR-INDEX                       16370005
176000           MOVE RUG67-2015-FACTOR (RUG67-2015-01, R3)             16380005
176100                               TO FACTOR.                         16390005
176200                                                                  16400005
176300 915-SEARCH-EXIT.   EXIT.                                         16410005
176400                                                                  16420005
176500                                                                  16430005
176600                                                                  16440005
176700 916-SEARCH-4-RUG67-2016.                                         16441005
176800     SET RUG67-2016-01         TO 1.                              16442005
176900                                                                  16443005
177000     SEARCH  RUG67-2016-DATA2                                     16444005
177100       VARYING RUG67-2016-01                                      16445005
177200       AT END                                                     16446005
177300           MOVE '20'           TO HLD-RTC                         16447005
177400           GO TO 916-SEARCH-EXIT                                  16448005
177500                                                                  16449005
177600       WHEN RUG67-2016-CODE (RUG67-2016-01) = HLD-RUG             16449105
177700                                                                  16449205
177800           MOVE RUG67-2016-NURSING (RUG67-2016-01, R3)            16449305
177900                               TO NUR-INDEX                       16449405
178000           MOVE RUG67-2016-THERAPY (RUG67-2016-01, R3)            16449505
178100                               TO THR-INDEX                       16449605
178200           MOVE RUG67-2016-FACTOR (RUG67-2016-01, R3)             16449705
178300                               TO FACTOR.                         16449805
178400                                                                  16449905
178500 916-SEARCH-EXIT.   EXIT.                                         16450005
178600                                                                  16450105
176600                                                                  16450205
176700 917-SEARCH-4-RUG67-2017.                                         16450305
176800     SET RUG67-2017-01         TO 1.                              16450405
176900                                                                  16450505
177000     SEARCH  RUG67-2017-DATA2                                     16450605
177100       VARYING RUG67-2017-01                                      16450705
177200       AT END                                                     16450805
177300           MOVE '20'           TO HLD-RTC                         16450905
177400           GO TO 916-SEARCH-EXIT                                  16451005
177500                                                                  16451105
177600       WHEN RUG67-2017-CODE (RUG67-2017-01) = HLD-RUG             16451205
177700                                                                  16451305
177800           MOVE RUG67-2017-NURSING (RUG67-2017-01, R3)            16451405
177900                               TO NUR-INDEX                       16451505
178000           MOVE RUG67-2017-THERAPY (RUG67-2017-01, R3)            16451605
178100                               TO THR-INDEX                       16451705
178200           MOVE RUG67-2017-FACTOR (RUG67-2017-01, R3)             16451805
178300                               TO FACTOR.                         16451905
178400                                                                  16452005
178500 917-SEARCH-EXIT.   EXIT.                                         16452105
178600                                                                  16452205
178700 1999-PAYMENT-RATE-CALC.                                          16452305
178800***************************************************************   16452405
178900*     PAYMENT RATE CALCULATION PROCCESS                           16452505
179000***************************************************************   16452605
179100                                                                  16452705
179200     MOVE 1                    TO R3.                             16452805
179300                                                                  16452905
179400     IF HLD-MSA-RURAL-CHECK                                       16453005
179500        MOVE 1                 TO R2                              16454005
179600     ELSE                                                         16455005
179700        MOVE 2                 TO R2.                             16456005
179800                                                                  16457005
179900     PERFORM 800-SEARCH-4-RUG                                     16458005
180000        THRU 800-SEARCH-EXIT.                                     16459005
180100                                                                  16460005
180200     IF HLD-RTC NOT = 00                                          16470005
180300        GO TO 1999-EXIT.                                          16480005
180400                                                                  16490005
180500     PERFORM 500-GET-RATES.                                       16500005
180600                                                                  16510005
180700     IF SNF-FED-BLEND = 1 OR 2 OR 3 OR 4                          16520005
180800        NEXT SENTENCE                                             16530005
180900     ELSE                                                         16540005
181000        MOVE '60'              TO HLD-RTC                         16550005
181100        MOVE ALL '0'           TO HOLD-VAR-DATA                   16560005
181200        GO TO 1999-EXIT.                                          16570005
181300                                                                  16580005
181400        COMPUTE NURSING-COMPONENT ROUNDED =                       16590005
181500                   (NUR-INDEX * IP-RATE).                         16600005
181600                                                                  16610005
181700        COMPUTE THERAPY-COMPONENT ROUNDED =                       16620005
181800                   (THR-INDEX * REHAB-RATE).                      16630005
181900                                                                  16640005
182000        COMPUTE NCM-THR-COMPONENT ROUNDED =                       16650005
182100                   (FACTOR * NCM-THR-COMPONENT).                  16660005
182200                                                                  16670005
182300        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       16680005
182400                   NURSING-COMPONENT +                            16690005
182500                   THERAPY-COMPONENT +                            16700005
182600                   NCM-THR-COMPONENT +                            16710005
182700                   NCM-COMPONENT.                                 16720005
182800                                                                  16730005
182900        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        16740005
183000             (HLD-PAYMENT-RATE * PERCENT-1999-LABOR) *            16750005
183100               AREA-WAGE-INDEX.                                   16760005
183200                                                                  16770005
183300        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        16780005
183400               (HLD-PAYMENT-RATE * PERCENT-1999-NLABOR) +         16790005
183500                    PAYMENT-RATE-ADJ.                             16800005
183600                                                                  16810005
183700     IF SNF-FED-BLEND = 1                                         16820005
183800        COMPUTE WK-PAYMENT-RATE ROUNDED =                         16830005
183900           (HLD-PAYMENT-RATE * .25)                               16840005
184000        COMPUTE WK-FACILITY-RATE ROUNDED =                        16850005
184100           (HLD-FACILITY-RATE * .75)                              16860005
184200        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              16870005
184300        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        16880005
184400           (WK-PAYMENT-RATE + WK-FACILITY-RATE).                  16890005
184500                                                                  16900005
184600     IF SNF-FED-BLEND = 2                                         16910005
184700        COMPUTE WK-PAYMENT-RATE ROUNDED =                         16920005
184800           (HLD-PAYMENT-RATE * .50)                               16930005
184900        COMPUTE WK-FACILITY-RATE ROUNDED =                        16940005
185000           (HLD-FACILITY-RATE * .50)                              16950005
185100        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              16960005
185200        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        16970005
185300           (WK-PAYMENT-RATE + WK-FACILITY-RATE).                  16980005
185400                                                                  16990005
185500     IF SNF-FED-BLEND = 3                                         17000005
185600        COMPUTE WK-PAYMENT-RATE ROUNDED =                         17010005
185700           (HLD-PAYMENT-RATE * .75)                               17020005
185800        COMPUTE WK-FACILITY-RATE ROUNDED =                        17030005
185900           (HLD-FACILITY-RATE * .25)                              17040005
186000        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              17050005
186100        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        17060005
186200           (WK-PAYMENT-RATE + WK-FACILITY-RATE).                  17070005
186300                                                                  17080005
186400     IF SNF-FED-BLEND = 4                                         17090005
186500        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              17100005
186600        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        17110005
186700                HLD-PAYMENT-RATE * 1.00.                          17120005
186800                                                                  17130005
186900 1999-EXIT.   EXIT.                                               17140005
187000                                                                  17150005
187100 2000-PAYMENT-RATE-CALC.                                          17160005
187200***************************************************************   17170005
187300*     PAYMENT RATE CALCULATION PROCCESS                           17180005
187400***************************************************************   17190005
187500                                                                  17200005
187600     MOVE 1                    TO R3.                             17210005
187700                                                                  17220005
187800     IF HLD-MSA-RURAL-CHECK                                       17230005
187900        MOVE 1                 TO R2                              17240005
188000     ELSE                                                         17250005
188100        MOVE 2                 TO R2.                             17260005
188200                                                                  17270005
188300     PERFORM 800-SEARCH-4-RUG    THRU 800-SEARCH-EXIT.            17280005
188400                                                                  17290005
188500     IF HLD-RTC NOT = 00 GO TO 2000-EXIT.                         17300005
188600                                                                  17310005
188700     PERFORM 500-GET-RATES.                                       17320005
188800                                                                  17330005
188900     IF (HLD-THRU-DATE < 20000101 AND                             17340005
189000         SNF-FED-BLEND = 0)                                       17350005
189100        MOVE '61' TO HLD-RTC                                      17360005
189200        MOVE ALL '0' TO HOLD-VAR-DATA                             17370005
189300        GO TO 2000-EXIT.                                          17380005
189400                                                                  17390005
189500     IF SNF-FED-BLEND = 0 OR 1 OR 2 OR 3 OR 4                     17400005
189600        NEXT SENTENCE                                             17410005
189700     ELSE                                                         17420005
189800        MOVE '60' TO HLD-RTC                                      17430005
189900        MOVE ALL '0' TO HOLD-VAR-DATA                             17440005
190000        GO TO 2000-EXIT.                                          17450005
190100                                                                  17460005
190200        COMPUTE NURSING-COMPONENT ROUNDED =                       17470005
190300                   (NUR-INDEX * IP-RATE).                         17480005
190400                                                                  17490005
190500        COMPUTE THERAPY-COMPONENT ROUNDED =                       17500005
190600                   (THR-INDEX * REHAB-RATE).                      17510005
190700                                                                  17520005
190800        COMPUTE NCM-THR-COMPONENT ROUNDED =                       17530005
190900                   (FACTOR * NCM-THR-COMPONENT).                  17540005
191000                                                                  17550005
191100        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       17560005
191200                   NURSING-COMPONENT +                            17570005
191300                   THERAPY-COMPONENT +                            17580005
191400                   NCM-THR-COMPONENT +                            17590005
191500                   NCM-COMPONENT.                                 17600005
191600                                                                  17610005
191700        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        17620005
191800             (HLD-PAYMENT-RATE * PERCENT-2000-LABOR) *            17630005
191900               AREA-WAGE-INDEX.                                   17640005
192000                                                                  17650005
192100        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        17660005
192200               (HLD-PAYMENT-RATE * PERCENT-2000-NLABOR) +         17670005
192300                    PAYMENT-RATE-ADJ.                             17680005
192400                                                                  17690005
192500     IF  (HLD-THRU-DATE > 20000331 AND                            17700005
192600         (HLD-RUG = 'SE3' OR 'SE2' OR 'SE1' OR 'SSC' OR           17710005
192700                    'SSB' OR 'SSA' OR 'CC2' OR 'CC1' OR           17720005
192800                    'CB2' OR 'CB1' OR 'CA2' OR 'CA1' OR           17730005
192900                    'RHC' OR 'RMC' OR 'RMB'))                     17740005
193000        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        17750005
193100                HLD-PAYMENT-RATE * 1.2.                           17760005
193200                                                                  17770005
193300     IF (HLD-THRU-DATE > 19991231 AND                             17780005
193400         SNF-FED-BLEND = 0)                                       17790005
193500        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        17800005
193600                HLD-FACILITY-RATE * 1.00.                         17810005
193700                                                                  17820005
193800     IF SNF-FED-BLEND = 1                                         17830005
193900        COMPUTE WK-PAYMENT-RATE ROUNDED =                         17840005
194000           (HLD-PAYMENT-RATE * .25)                               17850005
194100        COMPUTE WK-FACILITY-RATE ROUNDED =                        17860005
194200           (HLD-FACILITY-RATE * .75)                              17870005
194300        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              17880005
194400        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        17890005
194500           (WK-PAYMENT-RATE + WK-FACILITY-RATE).                  17900005
194600                                                                  17910005
194700     IF SNF-FED-BLEND = 2                                         17920005
194800        COMPUTE WK-PAYMENT-RATE ROUNDED =                         17930005
194900           (HLD-PAYMENT-RATE * .50)                               17940005
195000        COMPUTE WK-FACILITY-RATE ROUNDED =                        17950005
195100           (HLD-FACILITY-RATE * .50)                              17960005
195200        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              17970005
195300        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        17980005
195400           (WK-PAYMENT-RATE + WK-FACILITY-RATE).                  17990005
195500                                                                  18000005
195600     IF SNF-FED-BLEND = 3                                         18010005
195700        COMPUTE WK-PAYMENT-RATE ROUNDED =                         18020005
195800           (HLD-PAYMENT-RATE * .75)                               18030005
195900        COMPUTE WK-FACILITY-RATE ROUNDED =                        18040005
196000           (HLD-FACILITY-RATE * .25)                              18050005
196100        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              18060005
196200        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        18070005
196300           (WK-PAYMENT-RATE + WK-FACILITY-RATE).                  18080005
196400                                                                  18090005
196500     IF SNF-FED-BLEND = 4                                         18100005
196600        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              18110005
196700        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        18120005
196800                HLD-PAYMENT-RATE * 1.00.                          18130005
196900                                                                  18140005
197000 2000-EXIT.   EXIT.                                               18150005
197100 2001-PAYMENT-RATE-CALC.                                          18160005
197200***************************************************************   18170005
197300*     PAYMENT RATE CALCULATION PROCCESS                           18180005
197400***************************************************************   18190005
197500                                                                  18200005
197600     MOVE 1                    TO R3.                             18210005
197700                                                                  18220005
197800     IF HLD-MSA-RURAL-CHECK                                       18230005
197900        MOVE 1                 TO R2                              18240005
198000     ELSE                                                         18250005
198100        MOVE 2                 TO R2.                             18260005
198200                                                                  18270005
198300     PERFORM 800-SEARCH-4-RUG                                     18280005
198400        THRU 800-SEARCH-EXIT.                                     18290005
198500                                                                  18300005
198600     IF HLD-RTC NOT = 00                                          18310005
198700        GO TO 2001-EXIT.                                          18320005
198800                                                                  18330005
198900     PERFORM 500-GET-RATES.                                       18340005
199000                                                                  18350005
199100     IF (HLD-THRU-DATE < 20000101 AND                             18360005
199200         SNF-FED-BLEND = 0)                                       18370005
199300        MOVE '61'              TO HLD-RTC                         18380005
199400        MOVE ALL '0'           TO HOLD-VAR-DATA                   18390005
199500        GO TO 2001-EXIT.                                          18400005
199600                                                                  18410005
199700     IF SNF-FED-BLEND = 0 OR 1 OR 2 OR 3 OR 4                     18420005
199800        NEXT SENTENCE                                             18430005
199900     ELSE                                                         18440005
200000        MOVE '60'              TO HLD-RTC                         18450005
200100        MOVE ALL '0'           TO HOLD-VAR-DATA                   18460005
200200        GO TO 2001-EXIT.                                          18470005
200300                                                                  18480005
200400        COMPUTE NURSING-COMPONENT ROUNDED =                       18490005
200500                   (NUR-INDEX * IP-RATE).                         18500005
200600                                                                  18510005
200700        COMPUTE THERAPY-COMPONENT ROUNDED =                       18520005
200800                   (THR-INDEX * REHAB-RATE).                      18530005
200900                                                                  18540005
201000        COMPUTE NCM-THR-COMPONENT ROUNDED =                       18550005
201100                   (FACTOR * NCM-THR-COMPONENT).                  18560005
201200                                                                  18570005
201300        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       18580005
201400                   NURSING-COMPONENT +                            18590005
201500                   THERAPY-COMPONENT +                            18600005
201600                   NCM-THR-COMPONENT +                            18610005
201700                   NCM-COMPONENT.                                 18620005
201800                                                                  18630005
201900        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        18640005
202000             (HLD-PAYMENT-RATE * PERCENT-2001-LABOR) *            18650005
202100               AREA-WAGE-INDEX.                                   18660005
202200                                                                  18670005
202300        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        18680005
202400               (HLD-PAYMENT-RATE * PERCENT-2001-NLABOR) +         18690005
202500                    PAYMENT-RATE-ADJ.                             18700005
202600                                                                  18710005
202700     IF  (HLD-RUG = 'SE3' OR 'SE2' OR 'SE1' OR 'SSC' OR           18720005
202800                    'SSB' OR 'SSA' OR 'CC2' OR 'CC1' OR           18730005
202900                    'CB2' OR 'CB1' OR 'CA2' OR 'CA1' OR           18740005
203000                    'RHC' OR 'RMC' OR 'RMB')                      18750005
203100        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        18760005
203200                HLD-PAYMENT-RATE * 1.24                           18770005
203300     ELSE                                                         18780005
203400        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        18790005
203500                HLD-PAYMENT-RATE * 1.04.                          18800005
203600                                                                  18810005
203700     IF  SNF-FED-BLEND = 0                                        18820005
203800        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        18830005
203900                HLD-FACILITY-RATE * 1.00.                         18840005
204000                                                                  18850005
204100     IF SNF-FED-BLEND = 1                                         18860005
204200        COMPUTE WK-PAYMENT-RATE ROUNDED =                         18870005
204300           (HLD-PAYMENT-RATE * .25)                               18880005
204400        COMPUTE WK-FACILITY-RATE ROUNDED =                        18890005
204500           (HLD-FACILITY-RATE * .75)                              18900005
204600        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              18910005
204700        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        18920005
204800           (WK-PAYMENT-RATE + WK-FACILITY-RATE).                  18930005
204900                                                                  18940005
205000     IF SNF-FED-BLEND = 2                                         18950005
205100        COMPUTE WK-PAYMENT-RATE ROUNDED =                         18960005
205200           (HLD-PAYMENT-RATE * .50)                               18970005
205300        COMPUTE WK-FACILITY-RATE ROUNDED =                        18980005
205400           (HLD-FACILITY-RATE * .50)                              18990005
205500        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              19000005
205600        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        19010005
205700           (WK-PAYMENT-RATE + WK-FACILITY-RATE).                  19020005
205800                                                                  19030005
205900     IF SNF-FED-BLEND = 3                                         19040005
206000        COMPUTE WK-PAYMENT-RATE ROUNDED =                         19050005
206100           (HLD-PAYMENT-RATE * .75)                               19060005
206200        COMPUTE WK-FACILITY-RATE ROUNDED =                        19070005
206300           (HLD-FACILITY-RATE * .25)                              19080005
206400        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              19090005
206500        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        19100005
206600           (WK-PAYMENT-RATE + WK-FACILITY-RATE).                  19110005
206700                                                                  19120005
206800     IF SNF-FED-BLEND = 4                                         19130005
206900        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              19140005
207000        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        19150005
207100                HLD-PAYMENT-RATE * 1.00.                          19160005
207200                                                                  19170005
207300                                                                  19180005
207400 2001-EXIT.   EXIT.                                               19190005
207500                                                                  19200005
207600 2001A-PAYMENT-RATE-CALC.                                         19210005
207700***************************************************************   19220005
207800*     PAYMENT RATE CALCULATION PROCCESS EFFECTIVE APR.1, 2001     19230005
207900***************************************************************   19240005
208000                                                                  19250005
208100     MOVE 1                    TO R3.                             19260005
208200                                                                  19270005
208300     IF HLD-MSA-RURAL-CHECK                                       19280005
208400        MOVE 1                 TO R2                              19290005
208500     ELSE                                                         19300005
208600        MOVE 2                 TO R2.                             19310005
208700                                                                  19320005
208800     PERFORM 800-SEARCH-4-RUG                                     19330005
208900        THRU 800-SEARCH-EXIT.                                     19340005
209000                                                                  19350005
209100     IF HLD-RTC NOT = 00                                          19360005
209200        GO TO 2001A-EXIT.                                         19370005
209300                                                                  19380005
209400     PERFORM 500-GET-RATES.                                       19390005
209500                                                                  19400005
209600     IF (HLD-THRU-DATE < 20000101 AND                             19410005
209700         SNF-FED-BLEND = 0)                                       19420005
209800        MOVE '61'              TO HLD-RTC                         19430005
209900        MOVE ALL '0'           TO HOLD-VAR-DATA                   19440005
210000        GO TO 2001A-EXIT.                                         19450005
210100                                                                  19460005
210200     IF SNF-FED-BLEND = 0 OR 1 OR 2 OR 3 OR 4                     19470005
210300        NEXT SENTENCE                                             19480005
210400     ELSE                                                         19490005
210500        MOVE '60'              TO HLD-RTC                         19500005
210600        MOVE ALL '0'           TO HOLD-VAR-DATA                   19510005
210700        GO TO 2001A-EXIT.                                         19520005
210800                                                                  19530005
210900        COMPUTE NURSING-COMPONENT ROUNDED =                       19540005
211000                   (NUR-INDEX * IP-RATE).                         19550005
211100                                                                  19560005
211200        COMPUTE THERAPY-COMPONENT ROUNDED =                       19570005
211300                   (THR-INDEX * REHAB-RATE).                      19580005
211400                                                                  19590005
211500        COMPUTE NCM-THR-COMPONENT ROUNDED =                       19600005
211600                   (FACTOR * NCM-THR-COMPONENT).                  19610005
211700                                                                  19620005
211800        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       19630005
211900                   NURSING-COMPONENT +                            19640005
212000                   THERAPY-COMPONENT +                            19650005
212100                   NCM-THR-COMPONENT +                            19660005
212200                   NCM-COMPONENT.                                 19670005
212300                                                                  19680005
212400        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        19690005
212500             (HLD-PAYMENT-RATE * PERCENT-2001-LABOR) *            19700005
212600               AREA-WAGE-INDEX.                                   19710005
212700                                                                  19720005
212800        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        19730005
212900               (HLD-PAYMENT-RATE * PERCENT-2001-NLABOR) +         19740005
213000                    PAYMENT-RATE-ADJ.                             19750005
213100                                                                  19760005
213200     IF  (HLD-RUG = 'IB2' OR 'IB1' OR 'IA2' OR 'IA1' OR           19770005
213300                    'BB2' OR 'BB1' OR 'BA2' OR 'BA1' OR           19780005
213400                    'PE2' OR 'PE1' OR 'PD2' OR 'PD1' OR           19790005
213500                    'PC2' OR 'PC1' OR 'PB2' OR 'PB1' OR           19800005
213600                    'PA2' OR 'PA1' OR 'AAA')                      19810005
213700        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        19820005
213800                HLD-PAYMENT-RATE * 1.04.                          19830005
213900                                                                  19840005
214000     IF  (HLD-RUG = 'RUC' OR 'RUB' OR 'RUA' OR 'RVC' OR           19850005
214100                    'RVB' OR 'RVA' OR 'RHC' OR 'RHB' OR           19860005
214200                    'RHA' OR 'RMC' OR 'RMB' OR 'RMA' OR           19870005
214300                    'RLB' OR 'RLA')                               19880005
214400        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        19890005
214500                HLD-PAYMENT-RATE * 1.107.                         19900005
214600                                                                  19910005
214700     IF  (HLD-RUG = 'SE3' OR 'SE2' OR 'SE1' OR 'SSC' OR           19920005
214800                    'SSB' OR 'SSA' OR 'CC2' OR 'CC1' OR           19930005
214900                    'CB2' OR 'CB1' OR 'CA2' OR 'CA1')             19940005
215000        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        19950005
215100                HLD-PAYMENT-RATE * 1.24.                          19960005
215200                                                                  19970005
215300     IF  SNF-FED-BLEND = 0                                        19980005
215400        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        19990005
215500                HLD-FACILITY-RATE * 1.00.                         20000005
215600                                                                  20010005
215700     IF SNF-FED-BLEND = 1                                         20020005
215800        COMPUTE WK-PAYMENT-RATE ROUNDED =                         20030005
215900           (HLD-PAYMENT-RATE * .25)                               20040005
216000        COMPUTE WK-FACILITY-RATE ROUNDED =                        20050005
216100           (HLD-FACILITY-RATE * .75)                              20060005
216200        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              20070005
216300        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        20080005
216400           (WK-PAYMENT-RATE + WK-FACILITY-RATE).                  20090005
216500                                                                  20100005
216600     IF SNF-FED-BLEND = 2                                         20110005
216700        COMPUTE WK-PAYMENT-RATE ROUNDED =                         20120005
216800           (HLD-PAYMENT-RATE * .50)                               20130005
216900        COMPUTE WK-FACILITY-RATE ROUNDED =                        20140005
217000           (HLD-FACILITY-RATE * .50)                              20150005
217100        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              20160005
217200        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        20170005
217300           (WK-PAYMENT-RATE + WK-FACILITY-RATE).                  20180005
217400                                                                  20190005
217500     IF SNF-FED-BLEND = 3                                         20200005
217600        COMPUTE WK-PAYMENT-RATE ROUNDED =                         20210005
217700           (HLD-PAYMENT-RATE * .75)                               20220005
217800        COMPUTE WK-FACILITY-RATE ROUNDED =                        20230005
217900           (HLD-FACILITY-RATE * .25)                              20240005
218000        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              20250005
218100        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        20260005
218200           (WK-PAYMENT-RATE + WK-FACILITY-RATE).                  20270005
218300                                                                  20280005
218400     IF SNF-FED-BLEND = 4                                         20290005
218500        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              20300005
218600        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        20310005
218700                HLD-PAYMENT-RATE * 1.00.                          20320005
218800                                                                  20330005
218900                                                                  20340005
219000 2001A-EXIT.   EXIT.                                              20350005
219100                                                                  20360005
219200 2002-PAYMENT-RATE-CALC.                                          20370005
219300***************************************************************   20380005
219400*     PAYMENT RATE CALCULATION PROCCESS EFFECTIVE OCT.1, 2001     20390005
219500***************************************************************   20400005
219600                                                                  20410005
219700     MOVE 1                    TO R3.                             20420005
219800                                                                  20430005
219900     IF HLD-MSA-RURAL-CHECK                                       20440005
220000        MOVE 1                 TO R2                              20450005
220100     ELSE                                                         20460005
220200        MOVE 2                 TO R2.                             20470005
220300                                                                  20480005
220400     PERFORM 800-SEARCH-4-RUG                                     20490005
220500        THRU 800-SEARCH-EXIT.                                     20500005
220600                                                                  20510005
220700     IF HLD-RTC NOT = 00                                          20520005
220800        GO TO 2002-EXIT.                                          20530005
220900                                                                  20540005
221000     PERFORM 500-GET-RATES.                                       20550005
221100                                                                  20560005
221200     IF (HLD-THRU-DATE < 20000101 AND                             20570005
221300         SNF-FED-BLEND = 0)                                       20580005
221400        MOVE '61'              TO HLD-RTC                         20590005
221500        MOVE ALL '0'           TO HOLD-VAR-DATA                   20600005
221600        GO TO 2002-EXIT.                                          20610005
221700                                                                  20620005
221800     IF SNF-FED-BLEND = 0 OR 1 OR 2 OR 3 OR 4                     20630005
221900        NEXT SENTENCE                                             20640005
222000     ELSE                                                         20650005
222100        MOVE '60'              TO HLD-RTC                         20660005
222200        MOVE ALL '0'           TO HOLD-VAR-DATA                   20670005
222300        GO TO 2002-EXIT.                                          20680005
222400                                                                  20690005
222500        COMPUTE NURSING-COMPONENT ROUNDED =                       20700005
222600                   (NUR-INDEX * IP-RATE).                         20710005
222700                                                                  20720005
222800        COMPUTE THERAPY-COMPONENT ROUNDED =                       20730005
222900                   (THR-INDEX * REHAB-RATE).                      20740005
223000                                                                  20750005
223100        COMPUTE NCM-THR-COMPONENT ROUNDED =                       20760005
223200                   (FACTOR * NCM-THR-COMPONENT).                  20770005
223300                                                                  20780005
223400        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       20790005
223500                   NURSING-COMPONENT +                            20800005
223600                   THERAPY-COMPONENT +                            20810005
223700                   NCM-THR-COMPONENT +                            20820005
223800                   NCM-COMPONENT.                                 20830005
223900                                                                  20840005
224000        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        20850005
224100             (HLD-PAYMENT-RATE * PERCENT-2002-LABOR) *            20860005
224200               AREA-WAGE-INDEX.                                   20870005
224300                                                                  20880005
224400        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        20890005
224500               (HLD-PAYMENT-RATE * PERCENT-2002-NLABOR) +         20900005
224600                    PAYMENT-RATE-ADJ.                             20910005
224700                                                                  20920005
224800     IF  (HLD-RUG = 'IB2' OR 'IB1' OR 'IA2' OR 'IA1' OR           20930005
224900                    'BB2' OR 'BB1' OR 'BA2' OR 'BA1' OR           20940005
225000                    'PE2' OR 'PE1' OR 'PD2' OR 'PD1' OR           20950005
225100                    'PC2' OR 'PC1' OR 'PB2' OR 'PB1' OR           20960005
225200                    'PA2' OR 'PA1' OR 'AAA')                      20970005
225300        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        20980005
225400                HLD-PAYMENT-RATE * 1.04.                          20990005
225500                                                                  21000005
225600     IF  (HLD-RUG = 'RUC' OR 'RUB' OR 'RUA' OR 'RVC' OR           21010005
225700                    'RVB' OR 'RVA' OR 'RHC' OR 'RHB' OR           21020005
225800                    'RHA' OR 'RMC' OR 'RMB' OR 'RMA' OR           21030005
225900                    'RLB' OR 'RLA')                               21040005
226000        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        21050005
226100                HLD-PAYMENT-RATE * 1.107.                         21060005
226200                                                                  21070005
226300     IF  (HLD-RUG = 'SE3' OR 'SE2' OR 'SE1' OR 'SSC' OR           21080005
226400                    'SSB' OR 'SSA' OR 'CC2' OR 'CC1' OR           21090005
226500                    'CB2' OR 'CB1' OR 'CA2' OR 'CA1')             21100005
226600        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        21110005
226700                HLD-PAYMENT-RATE * 1.24.                          21120005
226800                                                                  21130005
226900     IF  SNF-FED-BLEND = 0                                        21140005
227000        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        21150005
227100                HLD-FACILITY-RATE * 1.00.                         21160005
227200                                                                  21170005
227300     IF SNF-FED-BLEND = 1                                         21180005
227400        COMPUTE WK-PAYMENT-RATE ROUNDED =                         21190005
227500           (HLD-PAYMENT-RATE * .25)                               21200005
227600        COMPUTE WK-FACILITY-RATE ROUNDED =                        21210005
227700           (HLD-FACILITY-RATE * .75)                              21220005
227800        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              21230005
227900        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        21240005
228000           (WK-PAYMENT-RATE + WK-FACILITY-RATE).                  21250005
228100                                                                  21260005
228200     IF SNF-FED-BLEND = 2                                         21270005
228300        COMPUTE WK-PAYMENT-RATE ROUNDED =                         21280005
228400           (HLD-PAYMENT-RATE * .50)                               21290005
228500        COMPUTE WK-FACILITY-RATE ROUNDED =                        21300005
228600           (HLD-FACILITY-RATE * .50)                              21310005
228700        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              21320005
228800        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        21330005
228900           (WK-PAYMENT-RATE + WK-FACILITY-RATE).                  21340005
229000                                                                  21350005
229100     IF SNF-FED-BLEND = 3                                         21360005
229200        COMPUTE WK-PAYMENT-RATE ROUNDED =                         21370005
229300           (HLD-PAYMENT-RATE * .75)                               21380005
229400        COMPUTE WK-FACILITY-RATE ROUNDED =                        21390005
229500           (HLD-FACILITY-RATE * .25)                              21400005
229600        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              21410005
229700        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        21420005
229800           (WK-PAYMENT-RATE + WK-FACILITY-RATE).                  21430005
229900                                                                  21440005
230000     IF SNF-FED-BLEND = 4                                         21450005
230100        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              21460005
230200        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        21470005
230300                HLD-PAYMENT-RATE * 1.00.                          21480005
230400                                                                  21490005
230500                                                                  21500005
230600 2002-EXIT.   EXIT.                                               21510005
230700                                                                  21520005
230800 2003-PAYMENT-RATE-CALC.                                          21530005
230900***************************************************************   21540005
231000*     PAYMENT RATE CALCULATION PROCCESS EFFECTIVE OCT.1, 2002     21550005
231100***************************************************************   21560005
231200                                                                  21570005
231300     MOVE 1                    TO R3.                             21580005
231400                                                                  21590005
231500     IF HLD-MSA-RURAL-CHECK                                       21600005
231600        MOVE 1                 TO R2                              21610005
231700     ELSE                                                         21620005
231800        MOVE 2                 TO R2.                             21630005
231900                                                                  21640005
232000     PERFORM 800-SEARCH-4-RUG                                     21650005
232100        THRU 800-SEARCH-EXIT.                                     21660005
232200                                                                  21670005
232300     IF HLD-RTC NOT = 00                                          21680005
232400        GO TO 2003-EXIT.                                          21690005
232500                                                                  21700005
232600     PERFORM 500-GET-RATES.                                       21710005
232700                                                                  21720005
232800     IF (HLD-THRU-DATE < 20000101 AND                             21730005
232900         SNF-FED-BLEND = 0)                                       21740005
233000        MOVE '61'              TO HLD-RTC                         21750005
233100        MOVE ALL '0'           TO HOLD-VAR-DATA                   21760005
233200        GO TO 2003-EXIT.                                          21770005
233300                                                                  21780005
233400     IF SNF-FED-BLEND = 0 OR 4                                    21790005
233500        NEXT SENTENCE                                             21800005
233600     ELSE                                                         21810005
233700        MOVE '60'              TO HLD-RTC                         21820005
233800        MOVE ALL '0'           TO HOLD-VAR-DATA                   21830005
233900        GO TO 2003-EXIT.                                          21840005
234000                                                                  21850005
234100        COMPUTE NURSING-COMPONENT ROUNDED =                       21860005
234200                   (NUR-INDEX * IP-RATE).                         21870005
234300                                                                  21880005
234400        COMPUTE THERAPY-COMPONENT ROUNDED =                       21890005
234500                   (THR-INDEX * REHAB-RATE).                      21900005
234600                                                                  21910005
234700        COMPUTE NCM-THR-COMPONENT ROUNDED =                       21920005
234800                   (FACTOR * NCM-THR-COMPONENT).                  21930005
234900                                                                  21940005
235000        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       21950005
235100                   NURSING-COMPONENT +                            21960005
235200                   THERAPY-COMPONENT +                            21970005
235300                   NCM-THR-COMPONENT +                            21980005
235400                   NCM-COMPONENT.                                 21990005
235500                                                                  22000005
235600        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        22010005
235700             (HLD-PAYMENT-RATE * PERCENT-2003-LABOR) *            22020005
235800               AREA-WAGE-INDEX.                                   22030005
235900                                                                  22040005
236000        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        22050005
236100               (HLD-PAYMENT-RATE * PERCENT-2003-NLABOR) +         22060005
236200                    PAYMENT-RATE-ADJ.                             22070005
236300                                                                  22080005
236400     IF  (HLD-RUG = 'IB2' OR 'IB1' OR 'IA2' OR 'IA1' OR           22090005
236500                    'BB2' OR 'BB1' OR 'BA2' OR 'BA1' OR           22100005
236600                    'PE2' OR 'PE1' OR 'PD2' OR 'PD1' OR           22110005
236700                    'PC2' OR 'PC1' OR 'PB2' OR 'PB1' OR           22120005
236800                    'PA2' OR 'PA1' OR 'AAA')                      22130005
236900        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        22140005
237000                HLD-PAYMENT-RATE * 1.00.                          22150005
237100                                                                  22160005
237200     IF  (HLD-RUG = 'RUC' OR 'RUB' OR 'RUA' OR 'RVC' OR           22170005
237300                    'RVB' OR 'RVA' OR 'RHC' OR 'RHB' OR           22180005
237400                    'RHA' OR 'RMC' OR 'RMB' OR 'RMA' OR           22190005
237500                    'RLB' OR 'RLA')                               22200005
237600        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        22210005
237700                HLD-PAYMENT-RATE * 1.067.                         22220005
237800                                                                  22230005
237900     IF  (HLD-RUG = 'SE3' OR 'SE2' OR 'SE1' OR 'SSC' OR           22240005
238000                    'SSB' OR 'SSA' OR 'CC2' OR 'CC1' OR           22250005
238100                    'CB2' OR 'CB1' OR 'CA2' OR 'CA1')             22260005
238200        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        22270005
238300                HLD-PAYMENT-RATE * 1.20.                          22280005
238400                                                                  22290005
238500     IF  SNF-FED-BLEND = 0                                        22300005
238600        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        22310005
238700                HLD-FACILITY-RATE * 1.00.                         22320005
238800                                                                  22330005
238900                                                                  22340005
239000     IF SNF-FED-BLEND = 4                                         22350005
239100        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              22360005
239200        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        22370005
239300                HLD-PAYMENT-RATE * 1.00.                          22380005
239400                                                                  22390005
239500                                                                  22400005
239600 2003-EXIT.   EXIT.                                               22410005
239700 2004-PAYMENT-RATE-CALC.                                          22420005
239800***************************************************************   22430005
239900*     PAYMENT RATE CALCULATION PROCCESS EFFECTIVE OCT.1, 2003     22440005
240000***************************************************************   22450005
240100                                                                  22460005
240200     MOVE 1                    TO R3.                             22470005
240300                                                                  22480005
240400     IF HLD-MSA-RURAL-CHECK                                       22490005
240500        MOVE 1                 TO R2                              22500005
240600     ELSE                                                         22510005
240700        MOVE 2                 TO R2.                             22520005
240800                                                                  22530005
240900     PERFORM 800-SEARCH-4-RUG                                     22540005
241000        THRU 800-SEARCH-EXIT.                                     22550005
241100                                                                  22560005
241200     IF HLD-RTC NOT = 00                                          22570005
241300        GO TO 2004-EXIT.                                          22580005
241400                                                                  22590005
241500     PERFORM 500-GET-RATES.                                       22600005
241600                                                                  22610005
241700     IF (HLD-THRU-DATE < 20000101 AND                             22620005
241800         SNF-FED-BLEND = 0)                                       22630005
241900        MOVE '61'              TO HLD-RTC                         22640005
242000        MOVE ALL '0'           TO HOLD-VAR-DATA                   22650005
242100        GO TO 2004-EXIT.                                          22660005
242200                                                                  22670005
242300     IF SNF-FED-BLEND = 0 OR 4                                    22680005
242400        NEXT SENTENCE                                             22690005
242500     ELSE                                                         22700005
242600        MOVE '60'              TO HLD-RTC                         22710005
242700        MOVE ALL '0'           TO HOLD-VAR-DATA                   22720005
242800        GO TO 2004-EXIT.                                          22730005
242900                                                                  22740005
243000        COMPUTE NURSING-COMPONENT ROUNDED =                       22750005
243100                   (NUR-INDEX * IP-RATE).                         22760005
243200                                                                  22770005
243300        COMPUTE THERAPY-COMPONENT ROUNDED =                       22780005
243400                   (THR-INDEX * REHAB-RATE).                      22790005
243500                                                                  22800005
243600        COMPUTE NCM-THR-COMPONENT ROUNDED =                       22810005
243700                   (FACTOR * NCM-THR-COMPONENT).                  22820005
243800                                                                  22830005
243900        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       22840005
244000                   NURSING-COMPONENT +                            22850005
244100                   THERAPY-COMPONENT +                            22860005
244200                   NCM-THR-COMPONENT +                            22870005
244300                   NCM-COMPONENT.                                 22880005
244400                                                                  22890005
244500        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        22900005
244600             (HLD-PAYMENT-RATE * PERCENT-2004-LABOR) *            22910005
244700               AREA-WAGE-INDEX.                                   22920005
244800                                                                  22930005
244900        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        22940005
245000               (HLD-PAYMENT-RATE * PERCENT-2004-NLABOR) +         22950005
245100                    PAYMENT-RATE-ADJ.                             22960005
245200                                                                  22970005
245300     IF  (HLD-RUG = 'IB2' OR 'IB1' OR 'IA2' OR 'IA1' OR           22980005
245400                    'BB2' OR 'BB1' OR 'BA2' OR 'BA1' OR           22990005
245500                    'PE2' OR 'PE1' OR 'PD2' OR 'PD1' OR           23000005
245600                    'PC2' OR 'PC1' OR 'PB2' OR 'PB1' OR           23010005
245700                    'PA2' OR 'PA1' OR 'AAA')                      23020005
245800        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        23030005
245900                HLD-PAYMENT-RATE * 1.00.                          23040005
246000                                                                  23050005
246100     IF  (HLD-RUG = 'RUC' OR 'RUB' OR 'RUA' OR 'RVC' OR           23060005
246200                    'RVB' OR 'RVA' OR 'RHC' OR 'RHB' OR           23070005
246300                    'RHA' OR 'RMC' OR 'RMB' OR 'RMA' OR           23080005
246400                    'RLB' OR 'RLA')                               23090005
246500        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        23100005
246600                HLD-PAYMENT-RATE * 1.067.                         23110005
246700                                                                  23120005
246800     IF  (HLD-RUG = 'SE3' OR 'SE2' OR 'SE1' OR 'SSC' OR           23130005
246900                    'SSB' OR 'SSA' OR 'CC2' OR 'CC1' OR           23140005
247000                    'CB2' OR 'CB1' OR 'CA2' OR 'CA1')             23150005
247100        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        23160005
247200                HLD-PAYMENT-RATE * 1.20.                          23170005
247300                                                                  23180005
247400     IF  SNF-FED-BLEND = 0                                        23190005
247500        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        23200005
247600                HLD-FACILITY-RATE * 1.00.                         23210005
247700                                                                  23220005
247800                                                                  23230005
247900     IF SNF-FED-BLEND = 4                                         23240005
248000        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              23250005
248100        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        23260005
248200                HLD-PAYMENT-RATE * 1.00.                          23270005
248300                                                                  23280005
248400                                                                  23290005
248500 2004-EXIT.   EXIT.                                               23300005
248600                                                                  23310005
248700 2005-PAYMENT-RATE-CALC.                                          23320005
248800***************************************************************   23330005
248900*     PAYMENT RATE CALCULATION PROCCESS EFFECTIVE OCT.1, 2004     23340005
249000***************************************************************   23350005
249100                                                                  23360005
249200     MOVE 1                    TO R3.                             23370005
249300                                                                  23380005
249400     IF HLD-MSA-RURAL-CHECK                                       23390005
249500        MOVE 1                 TO R2                              23400005
249600     ELSE                                                         23410005
249700        MOVE 2                 TO R2.                             23420005
249800                                                                  23430005
249900     PERFORM 800-SEARCH-4-RUG                                     23440005
250000        THRU 800-SEARCH-EXIT.                                     23450005
250100                                                                  23460005
250200     IF HLD-RTC NOT = 00                                          23470005
250300        GO TO 2005-EXIT.                                          23480005
250400                                                                  23490005
250500     PERFORM 500-GET-RATES.                                       23500005
250600                                                                  23510005
250700     IF (HLD-THRU-DATE < 20000101 AND                             23520005
250800         SNF-FED-BLEND = 0)                                       23530005
250900        MOVE '61'              TO HLD-RTC                         23540005
251000        MOVE ALL '0'           TO HOLD-VAR-DATA                   23550005
251100        GO TO 2005-EXIT.                                          23560005
251200                                                                  23570005
251300     IF SNF-FED-BLEND = 0 OR 4                                    23580005
251400        NEXT SENTENCE                                             23590005
251500     ELSE                                                         23600005
251600        MOVE '60'              TO HLD-RTC                         23610005
251700        MOVE ALL '0'           TO HOLD-VAR-DATA                   23620005
251800        GO TO 2005-EXIT.                                          23630005
251900                                                                  23640005
252000        COMPUTE NURSING-COMPONENT ROUNDED =                       23650005
252100                   (NUR-INDEX * IP-RATE).                         23660005
252200                                                                  23670005
252300        COMPUTE THERAPY-COMPONENT ROUNDED =                       23680005
252400                   (THR-INDEX * REHAB-RATE).                      23690005
252500                                                                  23700005
252600        COMPUTE NCM-THR-COMPONENT ROUNDED =                       23710005
252700                   (FACTOR * NCM-THR-COMPONENT).                  23720005
252800                                                                  23730005
252900        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       23740005
253000                   NURSING-COMPONENT +                            23750005
253100                   THERAPY-COMPONENT +                            23760005
253200                   NCM-THR-COMPONENT +                            23770005
253300                   NCM-COMPONENT.                                 23780005
253400                                                                  23790005
253500        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        23800005
253600             (HLD-PAYMENT-RATE * PERCENT-2005-LABOR) *            23810005
253700               AREA-WAGE-INDEX.                                   23820005
253800                                                                  23830005
253900        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        23840005
254000               (HLD-PAYMENT-RATE * PERCENT-2005-NLABOR) +         23850005
254100                    PAYMENT-RATE-ADJ.                             23860005
254200                                                                  23870005
254300     IF '042   ' = SNF-PRIN-DIAG-CODE   OR                        23880005
254400                   SNF-OTHER-DIAG-CODE2 OR                        23890005
254500                   SNF-OTHER-DIAG-CODE3 OR                        23900005
254600                   SNF-OTHER-DIAG-CODE4 OR                        23910005
254700                   SNF-OTHER-DIAG-CODE5 OR                        23920005
254800                   SNF-OTHER-DIAG-CODE6 OR                        23930005
254900                   SNF-OTHER-DIAG-CODE7 OR                        23940005
255000                   SNF-OTHER-DIAG-CODE8 OR                        23950005
255100                   SNF-OTHER-DIAG-CODE9 OR                        23960005
255200                   SNF-OTHER-DIAG-CODE10 OR                       23970005
255300                   SNF-OTHER-DIAG-CODE11 OR                       23980005
255400                   SNF-OTHER-DIAG-CODE12 OR                       23990005
255500                   SNF-OTHER-DIAG-CODE13 OR                       24000005
255600                   SNF-OTHER-DIAG-CODE14 OR                       24010005
255700                   SNF-OTHER-DIAG-CODE15 OR                       24020005
255800                   SNF-OTHER-DIAG-CODE16 OR                       24030005
255900                   SNF-OTHER-DIAG-CODE17 OR                       24040005
256000                   SNF-OTHER-DIAG-CODE18 OR                       24050005
256100                   SNF-OTHER-DIAG-CODE19 OR                       24060005
256200                   SNF-OTHER-DIAG-CODE20 OR                       24070005
256300                   SNF-OTHER-DIAG-CODE21 OR                       24080005
256400                   SNF-OTHER-DIAG-CODE22 OR                       24090005
256500                   SNF-OTHER-DIAG-CODE23 OR                       24100005
256600                   SNF-OTHER-DIAG-CODE24 OR                       24110005
256700                   SNF-OTHER-DIAG-CODE25                          24120005
256800         COMPUTE HLD-PAYMENT-RATE ROUNDED =                       24130005
256900                 HLD-PAYMENT-RATE * 2.28                          24140005
257000         GO TO 2005-CONTINUE.                                     24150005
257100                                                                  24160005
257200     IF  (HLD-RUG = 'IB2' OR 'IB1' OR 'IA2' OR 'IA1' OR           24170005
257300                    'BB2' OR 'BB1' OR 'BA2' OR 'BA1' OR           24180005
257400                    'PE2' OR 'PE1' OR 'PD2' OR 'PD1' OR           24190005
257500                    'PC2' OR 'PC1' OR 'PB2' OR 'PB1' OR           24200005
257600                    'PA2' OR 'PA1' OR 'AAA')                      24210005
257700        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        24220005
257800                HLD-PAYMENT-RATE * 1.00.                          24230005
257900                                                                  24240005
258000     IF  (HLD-RUG = 'RUC' OR 'RUB' OR 'RUA' OR 'RVC' OR           24250005
258100                    'RVB' OR 'RVA' OR 'RHC' OR 'RHB' OR           24260005
258200                    'RHA' OR 'RMC' OR 'RMB' OR 'RMA' OR           24270005
258300                    'RLB' OR 'RLA')                               24280005
258400        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        24290005
258500                HLD-PAYMENT-RATE * 1.067.                         24300005
258600                                                                  24310005
258700     IF  (HLD-RUG = 'SE3' OR 'SE2' OR 'SE1' OR 'SSC' OR           24320005
258800                    'SSB' OR 'SSA' OR 'CC2' OR 'CC1' OR           24330005
258900                    'CB2' OR 'CB1' OR 'CA2' OR 'CA1')             24340005
259000        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        24350005
259100                HLD-PAYMENT-RATE * 1.20.                          24360005
259200                                                                  24370005
259300 2005-CONTINUE.                                                   24380005
259400                                                                  24390005
259500     IF  SNF-FED-BLEND = 0                                        24400005
259600        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        24410005
259700                HLD-FACILITY-RATE * 1.00.                         24420005
259800                                                                  24430005
259900     IF SNF-FED-BLEND = 4                                         24440005
260000        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              24450005
260100        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        24460005
260200                HLD-PAYMENT-RATE * 1.00.                          24470005
260300                                                                  24480005
260400 2005-EXIT.   EXIT.                                               24490005
260500                                                                  24500005
260600 2006-44-PAYMENT-RATE-CALC.                                       24510005
260700***************************************************************   24520005
260800*     PAYMENT RATE CALCULATION PROCCESS                           24530005
260900*      EFFECTIVE OCT.1, 2005 TIL JAN.1, 2006                      24540005
261000***************************************************************   24550005
261100                                                                  24560005
261200     IF HLD-CBSA = '     '                                        24570005
261300        MOVE '30'              TO HLD-RTC                         24580005
261400        GO TO 2006-44-EXIT.                                       24590005
261500                                                                  24600005
261600     MOVE 1                    TO R3.                             24610005
261700                                                                  24620005
261800     IF HLD-CBSA-RURAL-CHECK                                      24630005
261900        MOVE 1                 TO R2                              24640005
262000     ELSE                                                         24650005
262100        MOVE 2                 TO R2.                             24660005
262200                                                                  24670005
262300     PERFORM 800-SEARCH-4-RUG                                     24680005
262400        THRU 800-SEARCH-EXIT.                                     24690005
262500                                                                  24700005
262600     IF HLD-RTC NOT = 00                                          24710005
262700        GO TO 2006-44-EXIT.                                       24720005
262800                                                                  24730005
262900     PERFORM 500-GET-RATES.                                       24740005
263000                                                                  24750005
263100     IF SNF-FED-BLEND = 0 OR 4                                    24760005
263200        NEXT SENTENCE                                             24770005
263300     ELSE                                                         24780005
263400        MOVE '60'              TO HLD-RTC                         24790005
263500        MOVE ALL '0'           TO HOLD-VAR-DATA                   24800005
263600        GO TO 2006-44-EXIT.                                       24810005
263700                                                                  24820005
263800        COMPUTE NURSING-COMPONENT ROUNDED =                       24830005
263900                   (NUR-INDEX * IP-RATE).                         24840005
264000                                                                  24850005
264100        COMPUTE THERAPY-COMPONENT ROUNDED =                       24860005
264200                   (THR-INDEX * REHAB-RATE).                      24870005
264300                                                                  24880005
264400        COMPUTE NCM-THR-COMPONENT ROUNDED =                       24890005
264500                   (FACTOR * NCM-THR-COMPONENT).                  24900005
264600                                                                  24910005
264700        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       24920005
264800                   NURSING-COMPONENT +                            24930005
264900                   THERAPY-COMPONENT +                            24940005
265000                   NCM-THR-COMPONENT +                            24950005
265100                   NCM-COMPONENT.                                 24960005
265200                                                                  24970005
265300        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        24980005
265400             (HLD-PAYMENT-RATE * PERCENT-2006-LABOR) *            24990005
265500               AREA-WAGE-INDEX.                                   25000005
265600                                                                  25010005
265700        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        25020005
265800               (HLD-PAYMENT-RATE * PERCENT-2006-NLABOR) +         25030005
265900                    PAYMENT-RATE-ADJ.                             25040005
266000                                                                  25050005
266100     IF '042   ' = SNF-PRIN-DIAG-CODE    OR                       25060005
266200                   SNF-OTHER-DIAG-CODE2  OR                       25070005
266300                   SNF-OTHER-DIAG-CODE3  OR                       25080005
266400                   SNF-OTHER-DIAG-CODE4  OR                       25090005
266500                   SNF-OTHER-DIAG-CODE5  OR                       25100005
266600                   SNF-OTHER-DIAG-CODE6  OR                       25110005
266700                   SNF-OTHER-DIAG-CODE7  OR                       25120005
266800                   SNF-OTHER-DIAG-CODE8  OR                       25130005
266900                   SNF-OTHER-DIAG-CODE9  OR                       25140005
267000                   SNF-OTHER-DIAG-CODE10 OR                       25150005
267100                   SNF-OTHER-DIAG-CODE11 OR                       25160005
267200                   SNF-OTHER-DIAG-CODE12 OR                       25170005
267300                   SNF-OTHER-DIAG-CODE13 OR                       25180005
267400                   SNF-OTHER-DIAG-CODE14 OR                       25190005
267500                   SNF-OTHER-DIAG-CODE15 OR                       25200005
267600                   SNF-OTHER-DIAG-CODE16 OR                       25210005
267700                   SNF-OTHER-DIAG-CODE17 OR                       25220005
267800                   SNF-OTHER-DIAG-CODE18 OR                       25230005
267900                   SNF-OTHER-DIAG-CODE19 OR                       25240005
268000                   SNF-OTHER-DIAG-CODE20 OR                       25250005
268100                   SNF-OTHER-DIAG-CODE21 OR                       25260005
268200                   SNF-OTHER-DIAG-CODE22 OR                       25270005
268300                   SNF-OTHER-DIAG-CODE23 OR                       25280005
268400                   SNF-OTHER-DIAG-CODE24 OR                       25290005
268500                   SNF-OTHER-DIAG-CODE25                          25300005
268600         COMPUTE HLD-PAYMENT-RATE ROUNDED =                       25310005
268700                 HLD-PAYMENT-RATE * 2.28                          25320005
268800         GO TO 2006-CONTINUE.                                     25330005
268900                                                                  25340005
269000     IF  (HLD-RUG = 'IB2' OR 'IB1' OR 'IA2' OR 'IA1' OR           25350005
269100                    'BB2' OR 'BB1' OR 'BA2' OR 'BA1' OR           25360005
269200                    'PE2' OR 'PE1' OR 'PD2' OR 'PD1' OR           25370005
269300                    'PC2' OR 'PC1' OR 'PB2' OR 'PB1' OR           25380005
269400                    'PA2' OR 'PA1' OR 'AAA')                      25390005
269500        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        25400005
269600                HLD-PAYMENT-RATE * 1.00.                          25410005
269700                                                                  25420005
269800     IF  (HLD-RUG = 'RUC' OR 'RUB' OR 'RUA' OR 'RVC' OR           25430005
269900                    'RVB' OR 'RVA' OR 'RHC' OR 'RHB' OR           25440005
270000                    'RHA' OR 'RMC' OR 'RMB' OR 'RMA' OR           25450005
270100                    'RLB' OR 'RLA')                               25460005
270200        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        25470005
270300                HLD-PAYMENT-RATE * 1.067.                         25480005
270400                                                                  25490005
270500     IF  (HLD-RUG = 'SE3' OR 'SE2' OR 'SE1' OR 'SSC' OR           25500005
270600                    'SSB' OR 'SSA' OR 'CC2' OR 'CC1' OR           25510005
270700                    'CB2' OR 'CB1' OR 'CA2' OR 'CA1')             25520005
270800        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        25530005
270900                HLD-PAYMENT-RATE * 1.20.                          25540005
271000                                                                  25550005
271100 2006-CONTINUE.                                                   25560005
271200                                                                  25570005
271300     IF  SNF-FED-BLEND = 0                                        25580005
271400        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        25590005
271500                HLD-FACILITY-RATE * 1.00.                         25600005
271600                                                                  25610005
271700     IF SNF-FED-BLEND = 4                                         25620005
271800        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              25630005
271900        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        25640005
272000                HLD-PAYMENT-RATE * 1.00.                          25650005
272100                                                                  25660005
272200                                                                  25670005
272300 2006-44-EXIT.   EXIT.                                            25680005
272400                                                                  25690005
272500 2006-53-PAYMENT-RATE-CALC.                                       25700005
272600***************************************************************   25710005
272700*     PAYMENT RATE CALCULATION PROCCESS EFFECTIVE JAN.1, 2006     25720005
272800***************************************************************   25730005
272900                                                                  25740005
273000     IF HLD-CBSA = '     '                                        25750005
273100        MOVE '30'              TO HLD-RTC                         25760005
273200        GO TO 2006-53-EXIT.                                       25770005
273300                                                                  25780005
273400     MOVE 1                    TO R3.                             25790005
273500                                                                  25800005
273600     IF HLD-CBSA-RURAL-CHECK                                      25810005
273700        MOVE 1                 TO R2                              25820005
273800     ELSE                                                         25830005
273900        MOVE 2                 TO R2.                             25840005
274000                                                                  25850005
274100     PERFORM 900-SEARCH-4-RUG53                                   25860005
274200        THRU 900-SEARCH-EXIT.                                     25870005
274300                                                                  25880005
274400     IF HLD-RTC NOT = 00                                          25890005
274500        GO TO 2006-53-EXIT.                                       25900005
274600                                                                  25910005
274700     PERFORM 500-GET-RATES.                                       25920005
274800                                                                  25930005
274900     IF SNF-FED-BLEND = 0 OR 4                                    25940005
275000        NEXT SENTENCE                                             25950005
275100     ELSE                                                         25960005
275200        MOVE '60'              TO HLD-RTC                         25970005
275300        MOVE ALL '0'           TO HOLD-VAR-DATA                   25980005
275400        GO TO 2006-53-EXIT.                                       25990005
275500                                                                  26000005
275600        COMPUTE NURSING-COMPONENT ROUNDED =                       26010005
275700                   (NUR-INDEX * IP-RATE).                         26020005
275800                                                                  26030005
275900        COMPUTE THERAPY-COMPONENT ROUNDED =                       26040005
276000                   (THR-INDEX * REHAB-RATE).                      26050005
276100                                                                  26060005
276200        COMPUTE NCM-THR-COMPONENT ROUNDED =                       26070005
276300                   (FACTOR * NCM-THR-COMPONENT).                  26080005
276400                                                                  26090005
276500        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       26100005
276600                   NURSING-COMPONENT +                            26110005
276700                   THERAPY-COMPONENT +                            26120005
276800                   NCM-THR-COMPONENT +                            26130005
276900                   NCM-COMPONENT.                                 26140005
277000                                                                  26150005
277100        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        26160005
277200             (HLD-PAYMENT-RATE * PERCENT-2006-LABOR) *            26170005
277300               AREA-WAGE-INDEX.                                   26180005
277400                                                                  26190005
277500        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        26200005
277600               (HLD-PAYMENT-RATE * PERCENT-2006-NLABOR) +         26210005
277700                    PAYMENT-RATE-ADJ.                             26220005
277800                                                                  26230005
277900     IF '042   ' = SNF-PRIN-DIAG-CODE    OR                       26240005
278000                   SNF-OTHER-DIAG-CODE2  OR                       26250005
278100                   SNF-OTHER-DIAG-CODE3  OR                       26260005
278200                   SNF-OTHER-DIAG-CODE4  OR                       26270005
278300                   SNF-OTHER-DIAG-CODE5  OR                       26280005
278400                   SNF-OTHER-DIAG-CODE6  OR                       26290005
278500                   SNF-OTHER-DIAG-CODE7  OR                       26300005
278600                   SNF-OTHER-DIAG-CODE8  OR                       26310005
278700                   SNF-OTHER-DIAG-CODE9  OR                       26320005
278800                   SNF-OTHER-DIAG-CODE10 OR                       26330005
278900                   SNF-OTHER-DIAG-CODE11 OR                       26340005
279000                   SNF-OTHER-DIAG-CODE12 OR                       26350005
279100                   SNF-OTHER-DIAG-CODE13 OR                       26360005
279200                   SNF-OTHER-DIAG-CODE14 OR                       26370005
279300                   SNF-OTHER-DIAG-CODE15 OR                       26380005
279400                   SNF-OTHER-DIAG-CODE16 OR                       26390005
279500                   SNF-OTHER-DIAG-CODE17 OR                       26400005
279600                   SNF-OTHER-DIAG-CODE18 OR                       26410005
279700                   SNF-OTHER-DIAG-CODE19 OR                       26420005
279800                   SNF-OTHER-DIAG-CODE20 OR                       26430005
279900                   SNF-OTHER-DIAG-CODE21 OR                       26440005
280000                   SNF-OTHER-DIAG-CODE22 OR                       26450005
280100                   SNF-OTHER-DIAG-CODE23 OR                       26460005
280200                   SNF-OTHER-DIAG-CODE24 OR                       26470005
280300                   SNF-OTHER-DIAG-CODE25                          26480005
280400         COMPUTE HLD-PAYMENT-RATE ROUNDED =                       26490005
280500                 HLD-PAYMENT-RATE * 2.28                          26500005
280600         GO TO 2006-53-CONTINUE.                                  26510005
280700                                                                  26520005
280800 2006-53-CONTINUE.                                                26530005
280900                                                                  26540005
281000     IF  SNF-FED-BLEND = 0                                        26550005
281100        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        26560005
281200                HLD-FACILITY-RATE * 1.00.                         26570005
281300                                                                  26580005
281400     IF SNF-FED-BLEND = 4                                         26590005
281500        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              26600005
281600        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        26610005
281700                HLD-PAYMENT-RATE * 1.00.                          26620005
281800                                                                  26630005
281900 2006-53-EXIT.   EXIT.                                            26640005
282000                                                                  26650005
282100 2007-53-PAYMENT-RATE-CALC.                                       26660005
282200***************************************************************   26670005
282300*     PAYMENT RATE CALCULATION PROCCESS EFFECTIVE OCT.1, 2007     26680005
282400***************************************************************   26690005
282500                                                                  26700005
282600     IF HLD-CBSA = '     '                                        26710005
282700        MOVE '30' TO HLD-RTC                                      26720005
282800        GO TO 2007-53-EXIT.                                       26730005
282900                                                                  26740005
283000     MOVE 1 TO R3.                                                26750005
283100                                                                  26760005
283200     IF HLD-CBSA-RURAL-CHECK                                      26770005
283300        MOVE 1 TO R2                                              26780005
283400     ELSE                                                         26790005
283500        MOVE 2 TO R2.                                             26800005
283600                                                                  26810005
283700     PERFORM 900-SEARCH-4-RUG53  THRU 900-SEARCH-EXIT.            26820005
283800                                                                  26830005
283900     IF HLD-RTC NOT = 00 GO TO 2007-53-EXIT.                      26840005
284000                                                                  26850005
284100     PERFORM 500-GET-RATES.                                       26860005
284200                                                                  26870005
284300     IF SNF-FED-BLEND = 0 OR 4                                    26880005
284400        NEXT SENTENCE                                             26890005
284500     ELSE                                                         26900005
284600        MOVE '60' TO HLD-RTC                                      26910005
284700        MOVE ALL '0' TO HOLD-VAR-DATA                             26920005
284800        GO TO 2007-53-EXIT.                                       26930005
284900                                                                  26940005
285000        COMPUTE NURSING-COMPONENT ROUNDED =                       26950005
285100                   (NUR-INDEX * IP-RATE).                         26960005
285200                                                                  26970005
285300        COMPUTE THERAPY-COMPONENT ROUNDED =                       26980005
285400                   (THR-INDEX * REHAB-RATE).                      26990005
285500                                                                  27000005
285600        COMPUTE NCM-THR-COMPONENT ROUNDED =                       27010005
285700                   (FACTOR * NCM-THR-COMPONENT).                  27020005
285800                                                                  27030005
285900        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       27040005
286000                   NURSING-COMPONENT +                            27050005
286100                   THERAPY-COMPONENT +                            27060005
286200                   NCM-THR-COMPONENT +                            27070005
286300                   NCM-COMPONENT.                                 27080005
286400                                                                  27090005
286500        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        27100005
286600             (HLD-PAYMENT-RATE * PERCENT-2007-LABOR) *            27110005
286700               AREA-WAGE-INDEX.                                   27120005
286800                                                                  27130005
286900        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        27140005
287000               (HLD-PAYMENT-RATE * PERCENT-2007-NLABOR) +         27150005
287100                    PAYMENT-RATE-ADJ.                             27160005
287200                                                                  27170005
287300     IF '042   ' = SNF-PRIN-DIAG-CODE    OR                       27180005
287400                   SNF-OTHER-DIAG-CODE2  OR                       27190005
287500                   SNF-OTHER-DIAG-CODE3  OR                       27200005
287600                   SNF-OTHER-DIAG-CODE4  OR                       27210005
287700                   SNF-OTHER-DIAG-CODE5  OR                       27220005
287800                   SNF-OTHER-DIAG-CODE6  OR                       27230005
287900                   SNF-OTHER-DIAG-CODE7  OR                       27240005
288000                   SNF-OTHER-DIAG-CODE8  OR                       27250005
288100                   SNF-OTHER-DIAG-CODE9  OR                       27260005
288200                   SNF-OTHER-DIAG-CODE10 OR                       27270005
288300                   SNF-OTHER-DIAG-CODE11 OR                       27280005
288400                   SNF-OTHER-DIAG-CODE12 OR                       27290005
288500                   SNF-OTHER-DIAG-CODE13 OR                       27300005
288600                   SNF-OTHER-DIAG-CODE14 OR                       27310005
288700                   SNF-OTHER-DIAG-CODE15 OR                       27320005
288800                   SNF-OTHER-DIAG-CODE16 OR                       27330005
288900                   SNF-OTHER-DIAG-CODE17 OR                       27340005
289000                   SNF-OTHER-DIAG-CODE18 OR                       27350005
289100                   SNF-OTHER-DIAG-CODE19 OR                       27360005
289200                   SNF-OTHER-DIAG-CODE20 OR                       27370005
289300                   SNF-OTHER-DIAG-CODE21 OR                       27380005
289400                   SNF-OTHER-DIAG-CODE22 OR                       27390005
289500                   SNF-OTHER-DIAG-CODE23 OR                       27400005
289600                   SNF-OTHER-DIAG-CODE24 OR                       27410005
289700                   SNF-OTHER-DIAG-CODE25                          27420005
289800         COMPUTE HLD-PAYMENT-RATE ROUNDED =                       27430005
289900                 HLD-PAYMENT-RATE * 2.28                          27440005
290000         GO TO 2007-53-CONTINUE.                                  27450005
290100                                                                  27460005
290200 2007-53-CONTINUE.                                                27470005
290300                                                                  27480005
290400     IF  SNF-FED-BLEND = 0                                        27490005
290500        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        27500005
290600                HLD-FACILITY-RATE * 1.00.                         27510005
290700                                                                  27520005
290800     IF SNF-FED-BLEND = 4                                         27530005
290900        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              27540005
291000        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        27550005
291100                HLD-PAYMENT-RATE * 1.00.                          27560005
291200                                                                  27570005
291300 2007-53-EXIT. EXIT.                                              27580005
291400                                                                  27590005
291500 2008-53-PAYMENT-RATE-CALC.                                       27600005
291600***************************************************************   27610005
291700*     PAYMENT RATE CALCULATION PROCCESS EFFECTIVE OCT.1, 2007     27620005
291800***************************************************************   27630005
291900                                                                  27640005
292000     IF HLD-CBSA = '     '                                        27650005
292100        MOVE '30' TO HLD-RTC                                      27660005
292200        GO TO 2008-53-EXIT.                                       27670005
292300                                                                  27680005
292400     MOVE 1 TO R3.                                                27690005
292500                                                                  27700005
292600     IF HLD-CBSA-RURAL-CHECK                                      27710005
292700        MOVE 1 TO R2                                              27720005
292800     ELSE                                                         27730005
292900        MOVE 2 TO R2.                                             27740005
293000                                                                  27750005
293100     PERFORM 900-SEARCH-4-RUG53  THRU 900-SEARCH-EXIT.            27760005
293200                                                                  27770005
293300     IF HLD-RTC NOT = 00 GO TO 2008-53-EXIT.                      27780005
293400                                                                  27790005
293500     PERFORM 500-GET-RATES.                                       27800005
293600                                                                  27810005
293700     IF SNF-FED-BLEND = 0 OR 4                                    27820005
293800        NEXT SENTENCE                                             27830005
293900     ELSE                                                         27840005
294000        MOVE '60' TO HLD-RTC                                      27850005
294100        MOVE ALL '0' TO HOLD-VAR-DATA                             27860005
294200        GO TO 2008-53-EXIT.                                       27870005
294300                                                                  27880005
294400        COMPUTE NURSING-COMPONENT ROUNDED =                       27890005
294500                   (NUR-INDEX * IP-RATE).                         27900005
294600                                                                  27910005
294700        COMPUTE THERAPY-COMPONENT ROUNDED =                       27920005
294800                   (THR-INDEX * REHAB-RATE).                      27930005
294900                                                                  27940005
295000        COMPUTE NCM-THR-COMPONENT ROUNDED =                       27950005
295100                   (FACTOR * NCM-THR-COMPONENT).                  27960005
295200                                                                  27970005
295300        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       27980005
295400                   NURSING-COMPONENT +                            27990005
295500                   THERAPY-COMPONENT +                            28000005
295600                   NCM-THR-COMPONENT +                            28010005
295700                   NCM-COMPONENT.                                 28020005
295800                                                                  28030005
295900        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        28040005
296000             (HLD-PAYMENT-RATE * PERCENT-2008-LABOR) *            28050005
296100               AREA-WAGE-INDEX.                                   28060005
296200                                                                  28070005
296300        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        28080005
296400               (HLD-PAYMENT-RATE * PERCENT-2008-NLABOR) +         28090005
296500                    PAYMENT-RATE-ADJ.                             28100005
296600                                                                  28110005
296700     IF '042   ' = SNF-PRIN-DIAG-CODE    OR                       28120005
296800                   SNF-OTHER-DIAG-CODE2  OR                       28130005
296900                   SNF-OTHER-DIAG-CODE3  OR                       28140005
297000                   SNF-OTHER-DIAG-CODE4  OR                       28150005
297100                   SNF-OTHER-DIAG-CODE5  OR                       28160005
297200                   SNF-OTHER-DIAG-CODE6  OR                       28170005
297300                   SNF-OTHER-DIAG-CODE7  OR                       28180005
297400                   SNF-OTHER-DIAG-CODE8  OR                       28190005
297500                   SNF-OTHER-DIAG-CODE9  OR                       28200005
297600                   SNF-OTHER-DIAG-CODE10 OR                       28210005
297700                   SNF-OTHER-DIAG-CODE11 OR                       28220005
297800                   SNF-OTHER-DIAG-CODE12 OR                       28230005
297900                   SNF-OTHER-DIAG-CODE13 OR                       28240005
298000                   SNF-OTHER-DIAG-CODE14 OR                       28250005
298100                   SNF-OTHER-DIAG-CODE15 OR                       28260005
298200                   SNF-OTHER-DIAG-CODE16 OR                       28270005
298300                   SNF-OTHER-DIAG-CODE17 OR                       28280005
298400                   SNF-OTHER-DIAG-CODE18 OR                       28290005
298500                   SNF-OTHER-DIAG-CODE19 OR                       28300005
298600                   SNF-OTHER-DIAG-CODE20 OR                       28310005
298700                   SNF-OTHER-DIAG-CODE21 OR                       28320005
298800                   SNF-OTHER-DIAG-CODE22 OR                       28330005
298900                   SNF-OTHER-DIAG-CODE23 OR                       28340005
299000                   SNF-OTHER-DIAG-CODE24 OR                       28350005
299100                   SNF-OTHER-DIAG-CODE25                          28360005
299200         COMPUTE HLD-PAYMENT-RATE ROUNDED =                       28370005
299300                 HLD-PAYMENT-RATE * 2.28                          28380005
299400         GO TO 2008-53-CONTINUE.                                  28390005
299500                                                                  28400005
299600 2008-53-CONTINUE.                                                28410005
299700                                                                  28420005
299800     IF  SNF-FED-BLEND = 0                                        28430005
299900        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        28440005
300000                HLD-FACILITY-RATE * 1.00.                         28450005
300100                                                                  28460005
300200     IF SNF-FED-BLEND = 4                                         28470005
300300        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              28480005
300400        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        28490005
300500                HLD-PAYMENT-RATE * 1.00.                          28500005
300600                                                                  28510005
300700 2008-53-EXIT. EXIT.                                              28520005
300800                                                                  28530005
300900 2009-53-PAYMENT-RATE-CALC.                                       28540005
301000***************************************************************   28550005
301100*     PAYMENT RATE CALCULATION PROCCESS EFFECTIVE OCT.1, 2009     28560005
301200***************************************************************   28570005
301300                                                                  28580005
301400     IF HLD-CBSA = '     '                                        28590005
301500        MOVE '30' TO HLD-RTC                                      28600005
301600        GO TO 2009-53-EXIT.                                       28610005
301700                                                                  28620005
301800     MOVE 1 TO R3.                                                28630005
301900                                                                  28640005
302000     IF HLD-CBSA-RURAL-CHECK                                      28650005
302100        MOVE 1 TO R2                                              28660005
302200     ELSE                                                         28670005
302300        MOVE 2 TO R2.                                             28680005
302400                                                                  28690005
302500     PERFORM 900-SEARCH-4-RUG53  THRU 900-SEARCH-EXIT.            28700005
302600                                                                  28710005
302700     IF HLD-RTC NOT = 00 GO TO 2009-53-EXIT.                      28720005
302800                                                                  28730005
302900     PERFORM 500-GET-RATES.                                       28740005
303000                                                                  28750005
303100     IF SNF-FED-BLEND = 0 OR 4                                    28760005
303200        NEXT SENTENCE                                             28770005
303300     ELSE                                                         28780005
303400        MOVE '60' TO HLD-RTC                                      28790005
303500        MOVE ALL '0' TO HOLD-VAR-DATA                             28800005
303600        GO TO 2009-53-EXIT.                                       28810005
303700                                                                  28820005
303800        COMPUTE NURSING-COMPONENT ROUNDED =                       28830005
303900                   (NUR-INDEX * IP-RATE).                         28840005
304000                                                                  28850005
304100        COMPUTE THERAPY-COMPONENT ROUNDED =                       28860005
304200                   (THR-INDEX * REHAB-RATE).                      28870005
304300                                                                  28880005
304400        COMPUTE NCM-THR-COMPONENT ROUNDED =                       28890005
304500                   (FACTOR * NCM-THR-COMPONENT).                  28900005
304600                                                                  28910005
304700        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       28920005
304800                   NURSING-COMPONENT +                            28930005
304900                   THERAPY-COMPONENT +                            28940005
305000                   NCM-THR-COMPONENT +                            28950005
305100                   NCM-COMPONENT.                                 28960005
305200                                                                  28970005
305300        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        28980005
305400             (HLD-PAYMENT-RATE * PERCENT-2009-LABOR) *            28990005
305500               AREA-WAGE-INDEX.                                   29000005
305600                                                                  29010005
305700        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        29020005
305800               (HLD-PAYMENT-RATE * PERCENT-2009-NLABOR) +         29030005
305900                    PAYMENT-RATE-ADJ.                             29040005
306000                                                                  29050005
306100     IF '042   ' = SNF-PRIN-DIAG-CODE   OR                        29060005
306200                   SNF-OTHER-DIAG-CODE2 OR                        29070005
306300                   SNF-OTHER-DIAG-CODE3 OR                        29080005
306400                   SNF-OTHER-DIAG-CODE4 OR                        29090005
306500                   SNF-OTHER-DIAG-CODE5 OR                        29100005
306600                   SNF-OTHER-DIAG-CODE6 OR                        29110005
306700                   SNF-OTHER-DIAG-CODE7 OR                        29120005
306800                   SNF-OTHER-DIAG-CODE8 OR                        29130005
306900                   SNF-OTHER-DIAG-CODE9  OR                       29140005
307000                   SNF-OTHER-DIAG-CODE10 OR                       29150005
307100                   SNF-OTHER-DIAG-CODE11 OR                       29160005
307200                   SNF-OTHER-DIAG-CODE12 OR                       29170005
307300                   SNF-OTHER-DIAG-CODE13 OR                       29180005
307400                   SNF-OTHER-DIAG-CODE14 OR                       29190005
307500                   SNF-OTHER-DIAG-CODE15 OR                       29200005
307600                   SNF-OTHER-DIAG-CODE16 OR                       29210005
307700                   SNF-OTHER-DIAG-CODE17 OR                       29220005
307800                   SNF-OTHER-DIAG-CODE18 OR                       29230005
307900                   SNF-OTHER-DIAG-CODE19 OR                       29240005
308000                   SNF-OTHER-DIAG-CODE20 OR                       29250005
308100                   SNF-OTHER-DIAG-CODE21 OR                       29260005
308200                   SNF-OTHER-DIAG-CODE22 OR                       29270005
308300                   SNF-OTHER-DIAG-CODE23 OR                       29280005
308400                   SNF-OTHER-DIAG-CODE24 OR                       29290005
308500                   SNF-OTHER-DIAG-CODE25                          29300005
308600         COMPUTE HLD-PAYMENT-RATE ROUNDED =                       29310005
308700                 HLD-PAYMENT-RATE * 2.28                          29320005
308800         GO TO 2009-53-CONTINUE.                                  29330005
308900                                                                  29340005
309000 2009-53-CONTINUE.                                                29350005
309100                                                                  29360005
309200     IF  SNF-FED-BLEND = 0                                        29370005
309300        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        29380005
309400                HLD-FACILITY-RATE * 1.00.                         29390005
309500                                                                  29400005
309600     IF SNF-FED-BLEND = 4                                         29410005
309700        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              29420005
309800        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        29430005
309900                HLD-PAYMENT-RATE * 1.00.                          29440005
310000                                                                  29450005
310100 2009-53-EXIT. EXIT.                                              29460005
310200                                                                  29470005
310300 2010-53-PAYMENT-RATE-CALC.                                       29480005
310400***************************************************************   29490005
310500*     PAYMENT RATE CALCULATION PROCCESS EFFECTIVE OCT.1, 2009     29500005
310600***************************************************************   29510005
310700                                                                  29520005
310800     IF HLD-CBSA = '     '                                        29530005
310900        MOVE '30' TO HLD-RTC                                      29540005
311000        GO TO 2010-53-EXIT.                                       29550005
311100                                                                  29560005
311200     MOVE 1 TO R3.                                                29570005
311300                                                                  29580005
311400     IF HLD-CBSA-RURAL-CHECK                                      29590005
311500        MOVE 1 TO R2                                              29600005
311600     ELSE                                                         29610005
311700        MOVE 2 TO R2.                                             29620005
311800                                                                  29630005
311900     PERFORM 910-SEARCH-4-RUG53-2010  THRU 910-SEARCH-EXIT.       29640005
312000                                                                  29650005
312100     IF HLD-RTC NOT = 00 GO TO 2010-53-EXIT.                      29660005
312200                                                                  29670005
312300     PERFORM 500-GET-RATES.                                       29680005
312400                                                                  29690005
312500     IF SNF-FED-BLEND = 0 OR 4                                    29700005
312600        NEXT SENTENCE                                             29710005
312700     ELSE                                                         29720005
312800        MOVE '60' TO HLD-RTC                                      29730005
312900        MOVE ALL '0' TO HOLD-VAR-DATA                             29740005
313000        GO TO 2010-53-EXIT.                                       29750005
313100                                                                  29760005
313200        COMPUTE NURSING-COMPONENT ROUNDED =                       29770005
313300                   (NUR-INDEX * IP-RATE).                         29780005
313400                                                                  29790005
313500        COMPUTE THERAPY-COMPONENT ROUNDED =                       29800005
313600                   (THR-INDEX * REHAB-RATE).                      29810005
313700                                                                  29820005
313800        COMPUTE NCM-THR-COMPONENT ROUNDED =                       29830005
313900                   (FACTOR * NCM-THR-COMPONENT).                  29840005
314000                                                                  29850005
314100        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       29860005
314200                   NURSING-COMPONENT +                            29870005
314300                   THERAPY-COMPONENT +                            29880005
314400                   NCM-THR-COMPONENT +                            29890005
314500                   NCM-COMPONENT.                                 29900005
314600                                                                  29910005
314700        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        29920005
314800             (HLD-PAYMENT-RATE * PERCENT-2010-LABOR) *            29930005
314900               AREA-WAGE-INDEX.                                   29940005
315000                                                                  29950005
315100        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        29960005
315200               (HLD-PAYMENT-RATE * PERCENT-2010-NLABOR) +         29970005
315300                    PAYMENT-RATE-ADJ.                             29980005
315400                                                                  29990005
315500     IF '042   ' = SNF-PRIN-DIAG-CODE   OR                        30000005
315600                   SNF-OTHER-DIAG-CODE2 OR                        30010005
315700                   SNF-OTHER-DIAG-CODE3 OR                        30020005
315800                   SNF-OTHER-DIAG-CODE4 OR                        30030005
315900                   SNF-OTHER-DIAG-CODE5 OR                        30040005
316000                   SNF-OTHER-DIAG-CODE6 OR                        30050005
316100                   SNF-OTHER-DIAG-CODE7 OR                        30060005
316200                   SNF-OTHER-DIAG-CODE8 OR                        30070005
316300                   SNF-OTHER-DIAG-CODE9  OR                       30080005
316400                   SNF-OTHER-DIAG-CODE10 OR                       30090005
316500                   SNF-OTHER-DIAG-CODE11 OR                       30100005
316600                   SNF-OTHER-DIAG-CODE12 OR                       30110005
316700                   SNF-OTHER-DIAG-CODE13 OR                       30120005
316800                   SNF-OTHER-DIAG-CODE14 OR                       30130005
316900                   SNF-OTHER-DIAG-CODE15 OR                       30140005
317000                   SNF-OTHER-DIAG-CODE16 OR                       30150005
317100                   SNF-OTHER-DIAG-CODE17 OR                       30160005
317200                   SNF-OTHER-DIAG-CODE18 OR                       30170005
317300                   SNF-OTHER-DIAG-CODE19 OR                       30180005
317400                   SNF-OTHER-DIAG-CODE20 OR                       30190005
317500                   SNF-OTHER-DIAG-CODE21 OR                       30200005
317600                   SNF-OTHER-DIAG-CODE22 OR                       30210005
317700                   SNF-OTHER-DIAG-CODE23 OR                       30220005
317800                   SNF-OTHER-DIAG-CODE24 OR                       30230005
317900                   SNF-OTHER-DIAG-CODE25                          30240005
318000         COMPUTE HLD-PAYMENT-RATE ROUNDED =                       30250005
318100                 HLD-PAYMENT-RATE * 2.28                          30260005
318200         GO TO 2010-53-CONTINUE.                                  30270005
318300                                                                  30280005
318400 2010-53-CONTINUE.                                                30290005
318500                                                                  30300005
318600     IF  SNF-FED-BLEND = 0                                        30310005
318700        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        30320005
318800                HLD-FACILITY-RATE * 1.00.                         30330005
318900                                                                  30340005
319000     IF SNF-FED-BLEND = 4                                         30350005
319100        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              30360005
319200        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        30370005
319300                HLD-PAYMENT-RATE * 1.00.                          30380005
319400                                                                  30390005
319500 2010-53-EXIT. EXIT.                                              30400005
319600                                                                  30410005
319700 2011-67-PAYMENT-RATE-CALC.                                       30420005
319800***************************************************************   30430005
319900*     PAYMENT RATE CALCULATION PROCCESS EFFECTIVE OCT.1, 2009     30440005
320000***************************************************************   30450005
320100                                                                  30460005
320200     IF HLD-CBSA = '     '                                        30470005
320300        MOVE '30' TO HLD-RTC                                      30480005
320400        GO TO 2011-67-EXIT.                                       30490005
320500                                                                  30500005
320600     MOVE 1 TO R3.                                                30510005
320700                                                                  30520005
320800     IF HLD-CBSA-RURAL-CHECK                                      30530005
320900        MOVE 1 TO R2                                              30540005
321000     ELSE                                                         30550005
321100        MOVE 2 TO R2.                                             30560005
321200                                                                  30570005
321300     PERFORM 911-SEARCH-4-RUG67-2011  THRU 911-SEARCH-EXIT.       30580005
321400                                                                  30590005
321500     IF HLD-RTC NOT = 00 GO TO 2011-67-EXIT.                      30600005
321600                                                                  30610005
321700     PERFORM 500-GET-RATES.                                       30620005
321800                                                                  30630005
321900     IF SNF-FED-BLEND = 0 OR 4                                    30640005
322000        NEXT SENTENCE                                             30650005
322100     ELSE                                                         30660005
322200        MOVE '60' TO HLD-RTC                                      30670005
322300        MOVE ALL '0' TO HOLD-VAR-DATA                             30680005
322400        GO TO 2011-67-EXIT.                                       30690005
322500                                                                  30700005
322600        COMPUTE NURSING-COMPONENT ROUNDED =                       30710005
322700                   (NUR-INDEX * IP-RATE).                         30720005
322800                                                                  30730005
322900        COMPUTE THERAPY-COMPONENT ROUNDED =                       30740005
323000                   (THR-INDEX * REHAB-RATE).                      30750005
323100                                                                  30760005
323200        COMPUTE NCM-THR-COMPONENT ROUNDED =                       30770005
323300                   (FACTOR * NCM-THR-COMPONENT).                  30780005
323400                                                                  30790005
323500        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       30800005
323600                   NURSING-COMPONENT +                            30810005
323700                   THERAPY-COMPONENT +                            30820005
323800                   NCM-THR-COMPONENT +                            30830005
323900                   NCM-COMPONENT.                                 30840005
324000                                                                  30850005
324100        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        30860005
324200             (HLD-PAYMENT-RATE * PERCENT-2011-LABOR) *            30870005
324300               AREA-WAGE-INDEX.                                   30880005
324400                                                                  30890005
324500        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        30900005
324600               (HLD-PAYMENT-RATE * PERCENT-2011-NLABOR) +         30910005
324700                    PAYMENT-RATE-ADJ.                             30920005
324800                                                                  30930005
324900     IF '042   ' = SNF-PRIN-DIAG-CODE   OR                        30940005
325000                   SNF-OTHER-DIAG-CODE2 OR                        30950005
325100                   SNF-OTHER-DIAG-CODE3 OR                        30960005
325200                   SNF-OTHER-DIAG-CODE4 OR                        30970005
325300                   SNF-OTHER-DIAG-CODE5 OR                        30980005
325400                   SNF-OTHER-DIAG-CODE6 OR                        30990005
325500                   SNF-OTHER-DIAG-CODE7 OR                        31000005
325600                   SNF-OTHER-DIAG-CODE8 OR                        31010005
325700                   SNF-OTHER-DIAG-CODE9  OR                       31020005
325800                   SNF-OTHER-DIAG-CODE10 OR                       31030005
325900                   SNF-OTHER-DIAG-CODE11 OR                       31040005
326000                   SNF-OTHER-DIAG-CODE12 OR                       31050005
326100                   SNF-OTHER-DIAG-CODE13 OR                       31060005
326200                   SNF-OTHER-DIAG-CODE14 OR                       31070005
326300                   SNF-OTHER-DIAG-CODE15 OR                       31080005
326400                   SNF-OTHER-DIAG-CODE16 OR                       31090005
326500                   SNF-OTHER-DIAG-CODE17 OR                       31100005
326600                   SNF-OTHER-DIAG-CODE18 OR                       31110005
326700                   SNF-OTHER-DIAG-CODE19 OR                       31120005
326800                   SNF-OTHER-DIAG-CODE20 OR                       31130005
326900                   SNF-OTHER-DIAG-CODE21 OR                       31140005
327000                   SNF-OTHER-DIAG-CODE22 OR                       31150005
327100                   SNF-OTHER-DIAG-CODE23 OR                       31160005
327200                   SNF-OTHER-DIAG-CODE24 OR                       31170005
327300                   SNF-OTHER-DIAG-CODE25                          31180005
327400         COMPUTE HLD-PAYMENT-RATE ROUNDED =                       31190005
327500                 HLD-PAYMENT-RATE * 2.28                          31200005
327600         GO TO 2011-67-CONTINUE.                                  31210005
327700                                                                  31220005
327800 2011-67-CONTINUE.                                                31230005
327900                                                                  31240005
328000     IF  SNF-FED-BLEND = 0                                        31250005
328100        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        31260005
328200                HLD-FACILITY-RATE * 1.00.                         31270005
328300                                                                  31280005
328400     IF SNF-FED-BLEND = 4                                         31290005
328500        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              31300005
328600        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        31310005
328700                HLD-PAYMENT-RATE * 1.00.                          31320005
328800                                                                  31330005
328900 2011-67-EXIT. EXIT.                                              31340005
329000                                                                  31350005
329100 2012-67-PAYMENT-RATE-CALC.                                       31360005
329200***************************************************************   31370005
329300*     PAYMENT RATE CALCULATION PROCCESS EFFECTIVE OCT.1, 2009     31380005
329400***************************************************************   31390005
329500                                                                  31400005
329600     IF HLD-CBSA = '     '                                        31410005
329700        MOVE '30'              TO HLD-RTC                         31420005
329800        GO TO 2012-67-EXIT.                                       31430005
329900                                                                  31440005
330000     MOVE 1 TO R3.                                                31450005
330100                                                                  31460005
330200     IF HLD-CBSA-RURAL-CHECK                                      31470005
330300        MOVE 1 TO R2                                              31480005
330400     ELSE                                                         31490005
330500        MOVE 2 TO R2.                                             31500005
330600                                                                  31510005
330700     PERFORM 912-SEARCH-4-RUG67-2012                              31520005
330800        THRU 912-SEARCH-EXIT.                                     31530005
330900                                                                  31540005
331000     IF HLD-RTC NOT = 00 GO TO 2012-67-EXIT.                      31550005
331100                                                                  31560005
331200     PERFORM 500-GET-RATES.                                       31570005
331300                                                                  31580005
331400     IF SNF-FED-BLEND = 0 OR 4                                    31590005
331500        NEXT SENTENCE                                             31600005
331600     ELSE                                                         31610005
331700        MOVE '60'              TO HLD-RTC                         31620005
331800        MOVE ALL '0'           TO HOLD-VAR-DATA                   31630005
331900        GO TO 2012-67-EXIT.                                       31640005
332000                                                                  31650005
332100        COMPUTE NURSING-COMPONENT ROUNDED =                       31660005
332200                   (NUR-INDEX * IP-RATE).                         31670005
332300                                                                  31680005
332400        COMPUTE THERAPY-COMPONENT ROUNDED =                       31690005
332500                   (THR-INDEX * REHAB-RATE).                      31700005
332600                                                                  31710005
332700        COMPUTE NCM-THR-COMPONENT ROUNDED =                       31720005
332800                   (FACTOR * NCM-THR-COMPONENT).                  31730005
332900                                                                  31740005
333000        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       31750005
333100                   NURSING-COMPONENT +                            31760005
333200                   THERAPY-COMPONENT +                            31770005
333300                   NCM-THR-COMPONENT +                            31780005
333400                   NCM-COMPONENT.                                 31790005
333500                                                                  31800005
333600        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        31810005
333700             (HLD-PAYMENT-RATE * PERCENT-2012-LABOR) *            31820005
333800               AREA-WAGE-INDEX.                                   31830005
333900                                                                  31840005
334000        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        31850005
334100               (HLD-PAYMENT-RATE * PERCENT-2012-NLABOR) +         31860005
334200                    PAYMENT-RATE-ADJ.                             31870005
334300                                                                  31880005
334400     IF '042   ' = SNF-PRIN-DIAG-CODE   OR                        31890005
334500                   SNF-OTHER-DIAG-CODE2 OR                        31900005
334600                   SNF-OTHER-DIAG-CODE3 OR                        31910005
334700                   SNF-OTHER-DIAG-CODE4 OR                        31920005
334800                   SNF-OTHER-DIAG-CODE5 OR                        31930005
334900                   SNF-OTHER-DIAG-CODE6 OR                        31940005
335000                   SNF-OTHER-DIAG-CODE7 OR                        31950005
335100                   SNF-OTHER-DIAG-CODE8 OR                        31960005
335200                   SNF-OTHER-DIAG-CODE9  OR                       31970005
335300                   SNF-OTHER-DIAG-CODE10 OR                       31980005
335400                   SNF-OTHER-DIAG-CODE11 OR                       31990005
335500                   SNF-OTHER-DIAG-CODE12 OR                       32000005
335600                   SNF-OTHER-DIAG-CODE13 OR                       32010005
335700                   SNF-OTHER-DIAG-CODE14 OR                       32020005
335800                   SNF-OTHER-DIAG-CODE15 OR                       32030005
335900                   SNF-OTHER-DIAG-CODE16 OR                       32040005
336000                   SNF-OTHER-DIAG-CODE17 OR                       32050005
336100                   SNF-OTHER-DIAG-CODE18 OR                       32060005
336200                   SNF-OTHER-DIAG-CODE19 OR                       32070005
336300                   SNF-OTHER-DIAG-CODE20 OR                       32080005
336400                   SNF-OTHER-DIAG-CODE21 OR                       32090005
336500                   SNF-OTHER-DIAG-CODE22 OR                       32100005
336600                   SNF-OTHER-DIAG-CODE23 OR                       32110005
336700                   SNF-OTHER-DIAG-CODE24 OR                       32120005
336800                   SNF-OTHER-DIAG-CODE25                          32130005
336900         COMPUTE HLD-PAYMENT-RATE ROUNDED =                       32140005
337000                 HLD-PAYMENT-RATE * 2.28                          32150005
337100         GO TO 2012-67-CONTINUE.                                  32160005
337200                                                                  32170005
337300 2012-67-CONTINUE.                                                32180005
337400                                                                  32190005
337500     IF  SNF-FED-BLEND = 0                                        32200005
337600        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        32210005
337700                HLD-FACILITY-RATE * 1.00.                         32220005
337800                                                                  32230005
337900     IF SNF-FED-BLEND = 4                                         32240005
338000        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              32250005
338100        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        32260005
338200                HLD-PAYMENT-RATE * 1.00.                          32270005
338300                                                                  32280005
338400 2012-67-EXIT. EXIT.                                              32290005
338500                                                                  32300005
338600                                                                  32310005
338700 2013-67-PAYMENT-RATE-CALC.                                       32320005
338800***************************************************************   32330005
338900*     PAYMENT RATE CALCULATION PROCCESS EFFECTIVE OCT.1, 2012     32340005
339000***************************************************************   32350005
339100                                                                  32360005
339200     IF HLD-CBSA = '     '                                        32370005
339300        MOVE '30'              TO HLD-RTC                         32380005
339400        GO TO 2013-67-EXIT.                                       32390005
339500                                                                  32400005
339600     MOVE 1                    TO R3.                             32410005
339700                                                                  32420005
339800     IF HLD-CBSA-RURAL-CHECK                                      32430005
339900        MOVE 1                 TO R2                              32440005
340000     ELSE                                                         32450005
340100        MOVE 2                 TO R2.                             32460005
340200                                                                  32470005
340300     PERFORM 913-SEARCH-4-RUG67-2013                              32480005
340400        THRU 913-SEARCH-EXIT.                                     32490005
340500                                                                  32500005
340600     IF HLD-RTC NOT = 00                                          32510005
340700        GO TO 2013-67-EXIT.                                       32520005
340800                                                                  32530005
340900     PERFORM 500-GET-RATES.                                       32540005
341000                                                                  32550005
341100     IF SNF-FED-BLEND = 0 OR 4                                    32560005
341200        NEXT SENTENCE                                             32570005
341300     ELSE                                                         32580005
341400        MOVE '60'              TO HLD-RTC                         32590005
341500        MOVE ALL '0'           TO HOLD-VAR-DATA                   32600005
341600        GO TO 2013-67-EXIT.                                       32610005
341700                                                                  32620005
341800        COMPUTE NURSING-COMPONENT ROUNDED =                       32630005
341900                   (NUR-INDEX * IP-RATE).                         32640005
342000                                                                  32650005
342100        COMPUTE THERAPY-COMPONENT ROUNDED =                       32660005
342200                   (THR-INDEX * REHAB-RATE).                      32670005
342300                                                                  32680005
342400        COMPUTE NCM-THR-COMPONENT ROUNDED =                       32690005
342500                   (FACTOR * NCM-THR-COMPONENT).                  32700005
342600                                                                  32710005
342700        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       32720005
342800                   NURSING-COMPONENT +                            32730005
342900                   THERAPY-COMPONENT +                            32740005
343000                   NCM-THR-COMPONENT +                            32750005
343100                   NCM-COMPONENT.                                 32760005
343200                                                                  32770005
343300        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        32780005
343400             (HLD-PAYMENT-RATE * PERCENT-2013-LABOR) *            32790005
343500               AREA-WAGE-INDEX.                                   32800005
343600                                                                  32810005
343700        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        32820005
343800               (HLD-PAYMENT-RATE * PERCENT-2013-NLABOR) +         32830005
343900                    PAYMENT-RATE-ADJ.                             32840005
344000                                                                  32850005
344100     IF '042   ' = SNF-PRIN-DIAG-CODE   OR                        32860005
344200                   SNF-OTHER-DIAG-CODE2 OR                        32870005
344300                   SNF-OTHER-DIAG-CODE3 OR                        32880005
344400                   SNF-OTHER-DIAG-CODE4 OR                        32890005
344500                   SNF-OTHER-DIAG-CODE5 OR                        32900005
344600                   SNF-OTHER-DIAG-CODE6 OR                        32910005
344700                   SNF-OTHER-DIAG-CODE7 OR                        32920005
344800                   SNF-OTHER-DIAG-CODE8 OR                        32930005
344900                   SNF-OTHER-DIAG-CODE9  OR                       32940005
345000                   SNF-OTHER-DIAG-CODE10 OR                       32950005
345100                   SNF-OTHER-DIAG-CODE11 OR                       32960005
345200                   SNF-OTHER-DIAG-CODE12 OR                       32970005
345300                   SNF-OTHER-DIAG-CODE13 OR                       32980005
345400                   SNF-OTHER-DIAG-CODE14 OR                       32990005
345500                   SNF-OTHER-DIAG-CODE15 OR                       33000005
345600                   SNF-OTHER-DIAG-CODE16 OR                       33010005
345700                   SNF-OTHER-DIAG-CODE17 OR                       33020005
345800                   SNF-OTHER-DIAG-CODE18 OR                       33030005
345900                   SNF-OTHER-DIAG-CODE19 OR                       33040005
346000                   SNF-OTHER-DIAG-CODE20 OR                       33050005
346100                   SNF-OTHER-DIAG-CODE21 OR                       33060005
346200                   SNF-OTHER-DIAG-CODE22 OR                       33070005
346300                   SNF-OTHER-DIAG-CODE23 OR                       33080005
346400                   SNF-OTHER-DIAG-CODE24 OR                       33090005
346500                   SNF-OTHER-DIAG-CODE25                          33100005
346600         COMPUTE HLD-PAYMENT-RATE ROUNDED =                       33110005
346700                 HLD-PAYMENT-RATE * 2.28                          33120005
346800         GO TO 2013-67-CONTINUE.                                  33130005
346900                                                                  33140005
347000 2013-67-CONTINUE.                                                33150005
347100                                                                  33160005
347200     IF SNF-FED-BLEND = 0                                         33170005
347300        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        33180005
347400                HLD-FACILITY-RATE * 1.00.                         33190005
347500                                                                  33200005
347600     IF SNF-FED-BLEND = 4                                         33210005
347700        MOVE HLD-PAYMENT-RATE  TO FED-PAYMENT-PORTION             33220005
347800        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        33230005
347900                HLD-PAYMENT-RATE * 1.00.                          33240005
348000                                                                  33250005
348100 2013-67-EXIT.                                                    33260005
348200     EXIT.                                                        33270005
348300                                                                  33280005
348400                                                                  33290005
348500 2014-67-PAYMENT-RATE-CALC.                                       33300005
348600***************************************************************   33310005
348700*     PAYMENT RATE CALCULATION PROCCESS EFFECTIVE OCT.1, 2013     33320005
348800***************************************************************   33330005
348900                                                                  33340005
349000     IF HLD-CBSA = '     '                                        33350005
349100        MOVE '30'              TO HLD-RTC                         33360005
349200        GO TO 2014-67-EXIT.                                       33370005
349300                                                                  33380005
349400     MOVE 1                    TO R3.                             33390005
349500                                                                  33400005
349600     IF HLD-CBSA-RURAL-CHECK                                      33410005
349700        MOVE 1                 TO R2                              33420005
349800     ELSE                                                         33430005
349900        MOVE 2                 TO R2.                             33440005
350000                                                                  33450005
350100     PERFORM 914-SEARCH-4-RUG67-2014                              33460005
350200        THRU 914-SEARCH-EXIT.                                     33470005
350300                                                                  33480005
350400     IF HLD-RTC NOT = 00                                          33490005
350500        GO TO 2014-67-EXIT.                                       33500005
350600                                                                  33510005
350700     PERFORM 500-GET-RATES.                                       33520005
350800                                                                  33530005
350900     IF SNF-FED-BLEND = 0 OR 4                                    33540005
351000        NEXT SENTENCE                                             33550005
351100     ELSE                                                         33560005
351200        MOVE '60'              TO HLD-RTC                         33570005
351300        MOVE ALL '0'           TO HOLD-VAR-DATA                   33580005
351400        GO TO 2014-67-EXIT.                                       33590005
351500                                                                  33600005
351600        COMPUTE NURSING-COMPONENT ROUNDED =                       33610005
351700                   (NUR-INDEX * IP-RATE).                         33620005
351800                                                                  33630005
351900        COMPUTE THERAPY-COMPONENT ROUNDED =                       33640005
352000                   (THR-INDEX * REHAB-RATE).                      33650005
352100                                                                  33660005
352200        COMPUTE NCM-THR-COMPONENT ROUNDED =                       33670005
352300                   (FACTOR * NCM-THR-COMPONENT).                  33680005
352400                                                                  33690005
352500        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       33700005
352600                   NURSING-COMPONENT +                            33710005
352700                   THERAPY-COMPONENT +                            33720005
352800                   NCM-THR-COMPONENT +                            33730005
352900                   NCM-COMPONENT.                                 33740005
353000                                                                  33750005
353100        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        33760005
353200             (HLD-PAYMENT-RATE * PERCENT-2014-LABOR) *            33770005
353300               AREA-WAGE-INDEX.                                   33780005
353400                                                                  33790005
353500        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        33800005
353600               (HLD-PAYMENT-RATE * PERCENT-2014-NLABOR) +         33810005
353700                    PAYMENT-RATE-ADJ.                             33820005
353800                                                                  33830005
353900     IF '042   ' = SNF-PRIN-DIAG-CODE   OR                        33840005
354000                   SNF-OTHER-DIAG-CODE2 OR                        33850005
354100                   SNF-OTHER-DIAG-CODE3 OR                        33860005
354200                   SNF-OTHER-DIAG-CODE4 OR                        33870005
354300                   SNF-OTHER-DIAG-CODE5 OR                        33880005
354400                   SNF-OTHER-DIAG-CODE6 OR                        33890005
354500                   SNF-OTHER-DIAG-CODE7 OR                        33900005
354600                   SNF-OTHER-DIAG-CODE8 OR                        33910005
354700                   SNF-OTHER-DIAG-CODE9  OR                       33920005
354800                   SNF-OTHER-DIAG-CODE10 OR                       33930005
354900                   SNF-OTHER-DIAG-CODE11 OR                       33940005
355000                   SNF-OTHER-DIAG-CODE12 OR                       33950005
355100                   SNF-OTHER-DIAG-CODE13 OR                       33960005
355200                   SNF-OTHER-DIAG-CODE14 OR                       33970005
355300                   SNF-OTHER-DIAG-CODE15 OR                       33980005
355400                   SNF-OTHER-DIAG-CODE16 OR                       33990005
355500                   SNF-OTHER-DIAG-CODE17 OR                       34000005
355600                   SNF-OTHER-DIAG-CODE18 OR                       34010005
355700                   SNF-OTHER-DIAG-CODE19 OR                       34020005
355800                   SNF-OTHER-DIAG-CODE20 OR                       34030005
355900                   SNF-OTHER-DIAG-CODE21 OR                       34040005
356000                   SNF-OTHER-DIAG-CODE22 OR                       34050005
356100                   SNF-OTHER-DIAG-CODE23 OR                       34060005
356200                   SNF-OTHER-DIAG-CODE24 OR                       34070005
356300                   SNF-OTHER-DIAG-CODE25                          34080005
356400         COMPUTE HLD-PAYMENT-RATE ROUNDED =                       34090005
356500                 HLD-PAYMENT-RATE * 2.28                          34100005
356600         GO TO 2014-67-CONTINUE.                                  34110005
356700                                                                  34120005
356800 2014-67-CONTINUE.                                                34130005
356900                                                                  34140005
357000     IF SNF-FED-BLEND = 0                                         34150005
357100        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        34160005
357200                HLD-FACILITY-RATE * 1.00.                         34170005
357300                                                                  34180005
357400     IF SNF-FED-BLEND = 4                                         34190005
357500        MOVE HLD-PAYMENT-RATE  TO FED-PAYMENT-PORTION             34200005
357600        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        34210005
357700                HLD-PAYMENT-RATE * 1.00.                          34220005
357800                                                                  34230005
357900 2014-67-EXIT.                                                    34240005
358000     EXIT.                                                        34250005
358100                                                                  34260005
358200                                                                  34270005
358300 2015-67-PAYMENT-RATE-CALC.                                       34280005
358400***************************************************************   34290005
358500*     PAYMENT RATE CALCULATION PROCCESS EFFECTIVE OCT.1, 2014     34300005
358600***************************************************************   34310005
358700                                                                  34320005
358800     IF HLD-CBSA = '     '                                        34330005
358900        MOVE '30'              TO HLD-RTC                         34340005
359000        GO TO 2015-67-EXIT.                                       34350005
359100                                                                  34360005
359200     MOVE 1                    TO R3.                             34370005
359300                                                                  34380005
359400     IF HLD-CBSA-RURAL-CHECK                                      34390005
359500        MOVE 1                 TO R2                              34400005
359600     ELSE                                                         34410005
359700        MOVE 2                 TO R2.                             34420005
359800                                                                  34430005
359900     PERFORM 915-SEARCH-4-RUG67-2015                              34440005
360000        THRU 915-SEARCH-EXIT.                                     34450005
360100                                                                  34460005
360200     IF HLD-RTC NOT = 00                                          34470005
360300        GO TO 2015-67-EXIT.                                       34480005
360400                                                                  34490005
360500     PERFORM 500-GET-RATES.                                       34500005
360600                                                                  34510005
360700     IF SNF-FED-BLEND = 0 OR 4                                    34520005
360800        NEXT SENTENCE                                             34530005
360900     ELSE                                                         34540005
361000        MOVE '60'              TO HLD-RTC                         34550005
361100        MOVE ALL '0'           TO HOLD-VAR-DATA                   34560005
361200        GO TO 2015-67-EXIT.                                       34570005
361300                                                                  34580005
361400                                                                  34590005
361500                                                                  34600005
361600                                                                  34610005
361700        COMPUTE NURSING-COMPONENT ROUNDED =                       34620005
361800                   (NUR-INDEX * IP-RATE).                         34630005
361900                                                                  34640005
362000                                                                  34650005
362100        COMPUTE THERAPY-COMPONENT ROUNDED =                       34660005
362200                   (THR-INDEX * REHAB-RATE).                      34670005
362300                                                                  34680005
362400        COMPUTE NCM-THR-COMPONENT ROUNDED =                       34690005
362500                   (FACTOR * NCM-THR-COMPONENT).                  34700005
362600                                                                  34710005
362700                                                                  34720005
362800        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       34730005
362900                   NURSING-COMPONENT +                            34740005
363000                   THERAPY-COMPONENT +                            34750005
363100                   NCM-THR-COMPONENT +                            34760005
363200                   NCM-COMPONENT.                                 34770005
363300                                                                  34780005
363400                                                                  34790005
363500        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        34800005
363600             (HLD-PAYMENT-RATE * PERCENT-2015-LABOR) *            34810005
363700               AREA-WAGE-INDEX.                                   34820005
363800                                                                  34830005
363900                                                                  34840005
364000                                                                  34850005
364100        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        34860005
364200               (HLD-PAYMENT-RATE * PERCENT-2015-NLABOR) +         34870005
364300                    PAYMENT-RATE-ADJ.                             34880005
364400                                                                  34890005
364500                                                                  34900005
364600     IF '042   ' = SNF-PRIN-DIAG-CODE   OR                        34910005
364700                   SNF-OTHER-DIAG-CODE2 OR                        34920005
364800                   SNF-OTHER-DIAG-CODE3 OR                        34930005
364900                   SNF-OTHER-DIAG-CODE4 OR                        34940005
365000                   SNF-OTHER-DIAG-CODE5 OR                        34950005
365100                   SNF-OTHER-DIAG-CODE6 OR                        34960005
365200                   SNF-OTHER-DIAG-CODE7 OR                        34970005
365300                   SNF-OTHER-DIAG-CODE8 OR                        34980005
365400                   SNF-OTHER-DIAG-CODE9  OR                       34990005
365500                   SNF-OTHER-DIAG-CODE10 OR                       35000005
365600                   SNF-OTHER-DIAG-CODE11 OR                       35010005
365700                   SNF-OTHER-DIAG-CODE12 OR                       35020005
365800                   SNF-OTHER-DIAG-CODE13 OR                       35030005
365900                   SNF-OTHER-DIAG-CODE14 OR                       35040005
366000                   SNF-OTHER-DIAG-CODE15 OR                       35050005
366100                   SNF-OTHER-DIAG-CODE16 OR                       35060005
366200                   SNF-OTHER-DIAG-CODE17 OR                       35070005
366300                   SNF-OTHER-DIAG-CODE18 OR                       35080005
366400                   SNF-OTHER-DIAG-CODE19 OR                       35090005
366500                   SNF-OTHER-DIAG-CODE20 OR                       35100005
366600                   SNF-OTHER-DIAG-CODE21 OR                       35110005
366700                   SNF-OTHER-DIAG-CODE22 OR                       35120005
366800                   SNF-OTHER-DIAG-CODE23 OR                       35130005
366900                   SNF-OTHER-DIAG-CODE24 OR                       35140005
367000                   SNF-OTHER-DIAG-CODE25                          35150005
367100                                                                  35160005
367200         COMPUTE HLD-PAYMENT-RATE ROUNDED =                       35170005
367300                 HLD-PAYMENT-RATE * 2.28                          35180005
367400         GO TO 2015-67-CONTINUE.                                  35190005
367500                                                                  35200005
367600 2015-67-CONTINUE.                                                35210005
367700                                                                  35220005
367800     IF SNF-FED-BLEND = 0                                         35230005
367900        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        35240005
368000                HLD-FACILITY-RATE * 1.00.                         35250005
368100                                                                  35260005
368200     IF SNF-FED-BLEND = 4                                         35270005
368300        MOVE HLD-PAYMENT-RATE  TO FED-PAYMENT-PORTION             35280005
368400        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        35290005
368500                HLD-PAYMENT-RATE * 1.00.                          35300005
368600                                                                  35310005
368700 2015-67-EXIT.                                                    35320005
368800     EXIT.                                                        35330005
368900                                                                  35340005
369000                                                                  35350005
369100 2016-67-PAYMENT-RATE-CALC.                                       35360005
369200***************************************************************   35370005
369300*     PAYMENT RATE CALCULATION PROCCESS EFFECTIVE OCT.1, 2015     35380005
369400***************************************************************   35390005
369500                                                                  35400005
369600     IF HLD-CBSA = '     '                                        35410005
369700        MOVE '30'              TO HLD-RTC                         35420005
369800        GO TO 2016-67-EXIT.                                       35430005
369900                                                                  35440005
370000     MOVE 1                    TO R3.                             35450005
370100                                                                  35460005
370200     IF HLD-CBSA-RURAL-CHECK                                      35470005
370300        MOVE 1                 TO R2                              35471005
370400     ELSE                                                         35472005
370500        MOVE 2                 TO R2.                             35473005
370600                                                                  35474005
370700     PERFORM 916-SEARCH-4-RUG67-2016                              35475005
370800        THRU 916-SEARCH-EXIT.                                     35476005
370900                                                                  35477005
371000     IF HLD-RTC NOT = 00                                          35478005
371100        GO TO 2016-67-EXIT.                                       35479005
371200                                                                  35480005
371300     PERFORM 500-GET-RATES.                                       35481005
371400                                                                  35482005
371500     IF SNF-FED-BLEND = 0 OR 4                                    35483005
371600        NEXT SENTENCE                                             35484005
371700     ELSE                                                         35485005
371800        MOVE '60'              TO HLD-RTC                         35486005
371900        MOVE ALL '0'           TO HOLD-VAR-DATA                   35487005
372000        GO TO 2016-67-EXIT.                                       35488005
372100                                                                  35489005
372200                                                                  35489105
372300                                                                  35489205
372400                                                                  35489305
372500        COMPUTE NURSING-COMPONENT ROUNDED =                       35489405
372600                   (NUR-INDEX * IP-RATE).                         35489505
372700                                                                  35489605
372800                                                                  35489705
372900        COMPUTE THERAPY-COMPONENT ROUNDED =                       35489805
373000                   (THR-INDEX * REHAB-RATE).                      35489905
373100                                                                  35490005
373200        COMPUTE NCM-THR-COMPONENT ROUNDED =                       35491005
373300                   (FACTOR * NCM-THR-COMPONENT).                  35492005
373400                                                                  35493005
373500                                                                  35494005
373600        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       35495005
373700                   NURSING-COMPONENT +                            35496005
373800                   THERAPY-COMPONENT +                            35497005
373900                   NCM-THR-COMPONENT +                            35498005
374000                   NCM-COMPONENT.                                 35499005
374100                                                                  35499105
374200                                                                  35499205
374300        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        35499305
374400             (HLD-PAYMENT-RATE * PERCENT-2016-LABOR) *            35499405
374500               AREA-WAGE-INDEX.                                   35499505
374600                                                                  35499605
374700                                                                  35499705
374800                                                                  35499805
374900        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        35499905
375000               (HLD-PAYMENT-RATE * PERCENT-2016-NLABOR) +         35500005
375100                    PAYMENT-RATE-ADJ.                             35501005
375200                                                                  35502005
375300                                                                  35503005
375400     IF 'B20   ' = SNF-PRIN-DIAG-CODE   OR                        35504005
375500                   SNF-OTHER-DIAG-CODE2 OR                        35505005
375600                   SNF-OTHER-DIAG-CODE3 OR                        35506005
375700                   SNF-OTHER-DIAG-CODE4 OR                        35507005
375800                   SNF-OTHER-DIAG-CODE5 OR                        35508005
375900                   SNF-OTHER-DIAG-CODE6 OR                        35509005
376000                   SNF-OTHER-DIAG-CODE7 OR                        35509105
376100                   SNF-OTHER-DIAG-CODE8 OR                        35509205
376200                   SNF-OTHER-DIAG-CODE9  OR                       35509305
376300                   SNF-OTHER-DIAG-CODE10 OR                       35509405
376400                   SNF-OTHER-DIAG-CODE11 OR                       35509505
376500                   SNF-OTHER-DIAG-CODE12 OR                       35509605
376600                   SNF-OTHER-DIAG-CODE13 OR                       35509705
376700                   SNF-OTHER-DIAG-CODE14 OR                       35509805
376800                   SNF-OTHER-DIAG-CODE15 OR                       35509905
376900                   SNF-OTHER-DIAG-CODE16 OR                       35510005
377000                   SNF-OTHER-DIAG-CODE17 OR                       35511005
377100                   SNF-OTHER-DIAG-CODE18 OR                       35512005
377200                   SNF-OTHER-DIAG-CODE19 OR                       35513005
377300                   SNF-OTHER-DIAG-CODE20 OR                       35514005
377400                   SNF-OTHER-DIAG-CODE21 OR                       35515005
377500                   SNF-OTHER-DIAG-CODE22 OR                       35516005
377600                   SNF-OTHER-DIAG-CODE23 OR                       35517005
377700                   SNF-OTHER-DIAG-CODE24 OR                       35518005
377800                   SNF-OTHER-DIAG-CODE25                          35519005
377900                                                                  35519105
378000         COMPUTE HLD-PAYMENT-RATE ROUNDED =                       35519205
378100                 HLD-PAYMENT-RATE * 2.28                          35519305
378200         GO TO 2016-67-CONTINUE.                                  35519405
378300                                                                  35519505
378400 2016-67-CONTINUE.                                                35519605
378500                                                                  35519705
378600     IF SNF-FED-BLEND = 0                                         35519805
378700        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        35519905
378800                HLD-FACILITY-RATE * 1.00.                         35520005
378900                                                                  35521005
379000     IF SNF-FED-BLEND = 4                                         35522005
379100        MOVE HLD-PAYMENT-RATE  TO FED-PAYMENT-PORTION             35523005
379200        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        35524005
379300                HLD-PAYMENT-RATE * 1.00.                          35525005
379400                                                                  35526005
379500 2016-67-EXIT.                                                    35527005
379600     EXIT.                                                        35528005
                                                                        35529005
369100 2017-67-PAYMENT-RATE-CALC.                                       35529105
369200***************************************************************   35529205
369300*     PAYMENT RATE CALCULATION PROCCESS EFFECTIVE OCT.1, 2015     35529305
369400***************************************************************   35529405
369500                                                                  35529505
369600     IF HLD-CBSA = '     '                                        35529605
369700        MOVE '30'              TO HLD-RTC                         35529705
369800        GO TO 2017-67-EXIT.                                       35529805
369900                                                                  35529905
370000     MOVE 1                    TO R3.                             35530005
370100                                                                  35530105
370200     IF HLD-CBSA-RURAL-CHECK                                      35530205
370300        MOVE 1                 TO R2                              35530305
370400     ELSE                                                         35530405
370500        MOVE 2                 TO R2.                             35530505
370600                                                                  35530605
370700     PERFORM 917-SEARCH-4-RUG67-2017                              35530705
370800        THRU 917-SEARCH-EXIT.                                     35530805
370900                                                                  35530905
371000     IF HLD-RTC NOT = 00                                          35531005
371100        GO TO 2017-67-EXIT.                                       35531105
371200                                                                  35531205
371300     PERFORM 500-GET-RATES.                                       35531305
371400                                                                  35531405
371500     IF SNF-FED-BLEND = 0 OR 4                                    35531505
371600        NEXT SENTENCE                                             35531605
371700     ELSE                                                         35531705
371800        MOVE '60'              TO HLD-RTC                         35531805
371900        MOVE ALL '0'           TO HOLD-VAR-DATA                   35531905
372000        GO TO 2017-67-EXIT.                                       35532005
372100                                                                  35532105
372200                                                                  35532205
372300                                                                  35532305
372400                                                                  35532405
372500        COMPUTE NURSING-COMPONENT ROUNDED =                       35532505
372600                   (NUR-INDEX * IP-RATE).                         35532605
372700                                                                  35532705
372800                                                                  35532805
372900        COMPUTE THERAPY-COMPONENT ROUNDED =                       35532905
373000                   (THR-INDEX * REHAB-RATE).                      35533005
373100                                                                  35533105
373200        COMPUTE NCM-THR-COMPONENT ROUNDED =                       35533205
373300                   (FACTOR * NCM-THR-COMPONENT).                  35533305
373400                                                                  35533405
373500                                                                  35533505
373600        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       35533605
373700                   NURSING-COMPONENT +                            35533705
373800                   THERAPY-COMPONENT +                            35533805
373900                   NCM-THR-COMPONENT +                            35533905
374000                   NCM-COMPONENT.                                 35534005
374100                                                                  35534105
374200                                                                  35534205
374300        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        35534305
374400             (HLD-PAYMENT-RATE * PERCENT-2017-LABOR) *            35534405
374500               AREA-WAGE-INDEX.                                   35534505
374600                                                                  35534605
374700                                                                  35534705
374800                                                                  35534805
374900        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        35534905
375000               (HLD-PAYMENT-RATE * PERCENT-2017-NLABOR) +         35535005
375100                    PAYMENT-RATE-ADJ.                             35535105
375200                                                                  35535205
375300                                                                  35535305
375400     IF 'B20   ' = SNF-PRIN-DIAG-CODE   OR                        35535405
375500                   SNF-OTHER-DIAG-CODE2 OR                        35535505
375600                   SNF-OTHER-DIAG-CODE3 OR                        35535605
375700                   SNF-OTHER-DIAG-CODE4 OR                        35535705
375800                   SNF-OTHER-DIAG-CODE5 OR                        35535805
375900                   SNF-OTHER-DIAG-CODE6 OR                        35535905
376000                   SNF-OTHER-DIAG-CODE7 OR                        35536005
376100                   SNF-OTHER-DIAG-CODE8 OR                        35536105
376200                   SNF-OTHER-DIAG-CODE9  OR                       35536205
376300                   SNF-OTHER-DIAG-CODE10 OR                       35536305
376400                   SNF-OTHER-DIAG-CODE11 OR                       35536405
376500                   SNF-OTHER-DIAG-CODE12 OR                       35536505
376600                   SNF-OTHER-DIAG-CODE13 OR                       35536605
376700                   SNF-OTHER-DIAG-CODE14 OR                       35536705
376800                   SNF-OTHER-DIAG-CODE15 OR                       35536805
376900                   SNF-OTHER-DIAG-CODE16 OR                       35536905
377000                   SNF-OTHER-DIAG-CODE17 OR                       35537005
377100                   SNF-OTHER-DIAG-CODE18 OR                       35537105
377200                   SNF-OTHER-DIAG-CODE19 OR                       35537205
377300                   SNF-OTHER-DIAG-CODE20 OR                       35537305
377400                   SNF-OTHER-DIAG-CODE21 OR                       35537405
377500                   SNF-OTHER-DIAG-CODE22 OR                       35537505
377600                   SNF-OTHER-DIAG-CODE23 OR                       35537605
377700                   SNF-OTHER-DIAG-CODE24 OR                       35537705
377800                   SNF-OTHER-DIAG-CODE25                          35537805
377900                                                                  35537905
378000         COMPUTE HLD-PAYMENT-RATE ROUNDED =                       35538005
378100                 HLD-PAYMENT-RATE * 2.28                          35538105
378200         GO TO 2017-67-CONTINUE.                                  35538205
378300                                                                  35538305
378400 2017-67-CONTINUE.                                                35538405
378500                                                                  35538505
378600     IF SNF-FED-BLEND = 0                                         35538605
378700        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        35538705
378800                HLD-FACILITY-RATE * 1.00.                         35538805
378900                                                                  35538905
379000     IF SNF-FED-BLEND = 4                                         35539005
379100        MOVE HLD-PAYMENT-RATE  TO FED-PAYMENT-PORTION             35539105
379200        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        35539205
379300                HLD-PAYMENT-RATE * 1.00.                          35539305
379400                                                                  35539405
379500 2017-67-EXIT.                                                    35539505
379600     EXIT.                                                        35539605
379700                                                                  35539705
379800******        L A S T   S O U R C E   S T A T E M E N T   *****   35539805
