000100 IDENTIFICATION DIVISION.                                         00010000
000200 PROGRAM-ID.      SNFPR150.                                       00020000
000300*AUTHOR.                 CMS.                                     00030000
000400*                                                                 00040003
000500*                                                                 00050004
000600*REMARKS. (CENTERS FOR MEDICARE AND MEDICAID SERVICES)            00060000
000700***         - CICS VERSION RELEASED FOR JULY 1 2006               00070000
000800***         - NATIONAL SNF PRICER FOR ALL YEARS                   00080000
000900***         - NATIONAL SNF PRICER EFFECTIVE JULY 1, 1998          00090000
001000***         - SNF PRICER REFERS TO A PROGRAM WHICH WILL           00100000
001100***           CALCULATE THE DAILY MEDICARE RATE UPON WHICH THE    00110000
001200***           MEDICARE SNF PPS PAYMENT IS MADE. PRICER USES THE   00120000
001300***           FACILITY'S PSF RATE, MSA AND BLEND INDICATOR WITH   00130000
001400***           THE 'STATEMENT COVERS THROUGH DATE' ON THE CLAIM AND00140000
001500***           HCPPS RATE CODE TO CALCULATE THE HCPPS RATES.       00150000
001600***************************************************************   00160000
001700***************************************************************   00170000
001800 DATE-COMPILED.                                                   00180000
001900 ENVIRONMENT DIVISION.                                            00190000
002000 CONFIGURATION SECTION.                                           00200000
002100 SOURCE-COMPUTER.            IBM-370.                             00210000
002200 OBJECT-COMPUTER.            IBM-370.                             00220000
002300 INPUT-OUTPUT  SECTION.                                           00230000
002400 FILE-CONTROL.                                                    00240000
002500                                                                  00250000
002600 DATA DIVISION.                                                   00260000
002700 FILE SECTION.                                                    00270000
002800                                                                  00280000
002900 WORKING-STORAGE SECTION.                                         00290000
003000 01  W-STORAGE-REF                  PIC X(46)  VALUE              00300000
003100     'SNFPR150    - W O R K I N G   S T O R A G E'.               00310000
003200 01  CAL-VERSION                    PIC X(09)  VALUE 'SNFPR15.0'. 00320000
003300 01  R1                             PIC S9(04) COMP SYNC.         00330000
003400 01  R2                             PIC S9(04) COMP SYNC.         00340000
003500 01  R3                             PIC S9(04) COMP SYNC.         00350000
003600 01  LABOR-NLABOR-PERCENT.                                        00360000
003700     05 PERCENT-1999-LABOR     PIC 9V99999 VALUE 0.75888.         00370000
003800     05 PERCENT-1999-NLABOR    PIC 9V99999 VALUE 0.24112.         00380000
003900     05 PERCENT-2000-LABOR     PIC 9V99999 VALUE 0.77545.         00390000
004000     05 PERCENT-2000-NLABOR    PIC 9V99999 VALUE 0.22455.         00400000
004100     05 PERCENT-2001-LABOR     PIC 9V99999 VALUE 0.77870.         00410000
004200     05 PERCENT-2001-NLABOR    PIC 9V99999 VALUE 0.22130.         00420000
004300     05 PERCENT-2002-LABOR     PIC 9V99999 VALUE 0.75379.         00430000
004400     05 PERCENT-2002-NLABOR    PIC 9V99999 VALUE 0.24621.         00440000
004500     05 PERCENT-2003-LABOR     PIC 9V99999 VALUE 0.76128.         00450000
004600     05 PERCENT-2003-NLABOR    PIC 9V99999 VALUE 0.23872.         00460000
004700     05 PERCENT-2004-LABOR     PIC 9V99999 VALUE 0.76372.         00470000
004800     05 PERCENT-2004-NLABOR    PIC 9V99999 VALUE 0.23628.         00480000
004900     05 PERCENT-2005-LABOR     PIC 9V99999 VALUE 0.76222.         00490000
005000     05 PERCENT-2005-NLABOR    PIC 9V99999 VALUE 0.23778.         00500000
005100     05 PERCENT-2006-LABOR     PIC 9V99999 VALUE 0.75922.         00510000
005200     05 PERCENT-2006-NLABOR    PIC 9V99999 VALUE 0.24078.         00520000
005300     05 PERCENT-2007-LABOR     PIC 9V99999 VALUE 0.75839.         00530000
005400     05 PERCENT-2007-NLABOR    PIC 9V99999 VALUE 0.24161.         00540000
005500     05 PERCENT-2008-LABOR     PIC 9V99999 VALUE 0.70249.         00550000
005600     05 PERCENT-2008-NLABOR    PIC 9V99999 VALUE 0.29751.         00560000
005700**************YEARCHANGE 2009.0 *******************************   00570003
005800     05 PERCENT-2009-LABOR     PIC 9V99999 VALUE 0.69783.         00580002
005900     05 PERCENT-2009-NLABOR    PIC 9V99999 VALUE 0.30217.         00590002
006000**************YEARCHANGE 2009.0 *******************************   00600003
006100**************YEARCHANGE 7010.0 *******************************   00610003
006200     05 PERCENT-2010-LABOR     PIC 9V99999 VALUE 0.69840.         00620002
006300     05 PERCENT-2010-NLABOR    PIC 9V99999 VALUE 0.30160.         00630002
006400**************YEARCHANGE 2010.0 *******************************   00640003
006500**************YEARCHANGE 2011.2 *******************************   00650003
006600     05 PERCENT-2011-LABOR     PIC 9V99999 VALUE 0.69311.         00660002
006700     05 PERCENT-2011-NLABOR    PIC 9V99999 VALUE 0.30689.         00670002
006800**************YEARCHANGE 2011.2 *******************************   00680003
006900**************YEARCHANGE 2012.0 *******************************   00690003
007000     05 PERCENT-2012-LABOR     PIC 9V99999 VALUE 0.68693.         00700002
007100     05 PERCENT-2012-NLABOR    PIC 9V99999 VALUE 0.31307.         00710002
007200**************YEARCHANGE 2012.0 *******************************   00720003
007300**************YEARCHANGE 2013.0 *******************************   00730003
007400     05 PERCENT-2013-LABOR     PIC 9V99999 VALUE 0.68383.         00740002
007500     05 PERCENT-2013-NLABOR    PIC 9V99999 VALUE 0.31617.         00750002
007600**************YEARCHANGE 2013.0 *******************************   00760003
007700**************YEARCHANGE 2014.0 *******************************   00770003
007800     05 PERCENT-2014-LABOR     PIC 9V99999 VALUE 0.69545.         00780002
007900     05 PERCENT-2014-NLABOR    PIC 9V99999 VALUE 0.30455.         00790002
008000**************YEARCHANGE 2014.0 *******************************   00800003
008100**************YEARCHANGE 2015.0 *******************************   00810003
008200     05 PERCENT-2015-LABOR     PIC 9V99999 VALUE 0.69180.         00820006
008300*    05 PERCENT-2015-NLABOR    PIC 9V99999 VALUE 0.31617.         00830012
008400     05 PERCENT-2015-NLABOR    PIC 9V99999 VALUE 0.30820.         00840012
008500**************YEARCHANGE 2015.0 *******************************   00850003
008600                                                                  00860001
008700 01  WK-PAYMENT-RATE           PIC 9(06)V99 VALUE 0.              00870001
008800 01  WK-FACILITY-RATE          PIC 9(06)V99 VALUE 0.              00880001
008900                                                                  00890001
009000 01  HLD-PRICE-FROM-DATE.                                         00900000
009100     10  HLD-PRICE-FROM-CC     PIC XX.                            00910000
009200     10  HLD-PRICE-FROM-YY     PIC XX.                            00920000
009300     10  HLD-PRICE-FROM-MMDD   PIC XXXX.                          00930000
009400                                                                  00940001
009500 01  HLD-PRICE-THRU-DATE.                                         00950000
009600     10  HLD-PRICE-THRU-CC     PIC XX.                            00960000
009700     10  HLD-PRICE-THRU-YY     PIC XX.                            00970000
009800     10  HLD-PRICE-THRU-MMDD   PIC XXXX.                          00980000
009900                                                                  00990001
010000 01  HOLD-SNF-DATA.                                               01000001
010100     10  HLD-MSA.                                                 01010001
010200         15  HLD-MSA-1ST       PIC XX.                            01020001
010300             88  HLD-MSA-RURAL-CHECK VALUE '  '.                  01030001
010400         15  HLD-MSA-2ND       PIC XX.                            01040000
010500     10  HLD-CBSA.                                                01050000
010600         15  HLD-CBSA-1ST      PIC XXX.                           01060000
010700             88  HLD-CBSA-RURAL-CHECK     VALUE '   ' '999'.      01070000
010800         15  HLD-CBSA-2ND      PIC XX.                            01080000
010900     10  HLD-SPEC-WI-IND       PIC X.                             01090000
011000     10  HLD-SPEC-WI           PIC 9(02)V9(04).                   01100000
011100     10  HLD-RUG-CODE.                                            01110000
011200         15  HLD-RUG           PIC XXX.                           01120000
011300         15  HLD2-RUG REDEFINES HLD-RUG.                          01130000
011400             20  HLD-RUG-POS12 PIC XX.                            01140000
011500             20  HLD-RUG-POS3  PIC 9.                             01150000
011600         15  FILLER            PIC XX.                            01160000
011700     10  HLD-FROM-DATE.                                           01170000
011800         15  HLD-FROM-CC       PIC XX.                            01180000
011900         15  HLD-FROM-YY       PIC XX.                            01190000
012000         15  HLD-FROM-MMDD     PIC XXXX.                          01200000
012100     10  HLD-THRU-DATE.                                           01210000
012200         15  HLD-THRU-CC       PIC XX.                            01220000
012300         15  HLD-THRU-YY       PIC XX.                            01230000
012400         15  HLD-THRU-MMDD     PIC XXXX.                          01240000
012500     10  HLD-FED-BLEND         PIC X.                             01250000
012600         88  HLD-ALL-FACILITY      VALUE '0'.                     01260000
012700         88  HLD-FED-BLEND-2575PER VALUE '1'.                     01270000
012800         88  HLD-FED-BLEND-5050PER VALUE '2'.                     01280000
012900         88  HLD-FED-BLEND-7525PER VALUE '3'.                     01290000
013000         88  HLD-FED-BLEND-100PER  VALUE '4'.                     01300000
013100                                                                  01310000
013200     10  HLD-FACILITY-RATE     PIC 99999V99.                      01320000
013300                                                                  01330000
013400     10  HLD-DIAGNOSIS-CODES.                                     01340000
013500         15  HLD-PRIN-DIAG-CODE     PIC X(07).                    01350000
013600         15  HLD-OTHER-DIAG-CODE2   PIC X(07).                    01360000
013700         15  HLD-OTHER-DIAG-CODE3   PIC X(07).                    01370000
013800         15  HLD-OTHER-DIAG-CODE4   PIC X(07).                    01380000
013900         15  HLD-OTHER-DIAG-CODE5   PIC X(07).                    01390000
014000         15  HLD-OTHER-DIAG-CODE6   PIC X(07).                    01400000
014100         15  HLD-OTHER-DIAG-CODE7   PIC X(07).                    01410000
014200         15  HLD-OTHER-DIAG-CODE8   PIC X(07).                    01420000
014300         15  HLD-OTHER-DIAG-CODE9   PIC X(07).                    01430000
014400         15  HLD-OTHER-DIAG-CODE10  PIC X(07).                    01440000
014500         15  HLD-OTHER-DIAG-CODE11  PIC X(07).                    01450000
014600         15  HLD-OTHER-DIAG-CODE12  PIC X(07).                    01460000
014700         15  HLD-OTHER-DIAG-CODE13  PIC X(07).                    01470000
014800         15  HLD-OTHER-DIAG-CODE14  PIC X(07).                    01480000
014900         15  HLD-OTHER-DIAG-CODE15  PIC X(07).                    01490000
015000         15  HLD-OTHER-DIAG-CODE16  PIC X(07).                    01500000
015100         15  HLD-OTHER-DIAG-CODE17  PIC X(07).                    01510000
015200         15  HLD-OTHER-DIAG-CODE18  PIC X(07).                    01520000
015300         15  HLD-OTHER-DIAG-CODE19  PIC X(07).                    01530000
015400         15  HLD-OTHER-DIAG-CODE20  PIC X(07).                    01540000
015500         15  HLD-OTHER-DIAG-CODE21  PIC X(07).                    01550000
015600         15  HLD-OTHER-DIAG-CODE22  PIC X(07).                    01560000
015700         15  HLD-OTHER-DIAG-CODE23  PIC X(07).                    01570000
015800         15  HLD-OTHER-DIAG-CODE24  PIC X(07).                    01580000
015900         15  HLD-OTHER-DIAG-CODE25                                01590000
016000                               PIC X(07).                         01600000
016100     10  HLD-RATE-RTC.                                            01610000
016200         15  HLD-PAYMENT-RATE  PIC 9(06)V99.                      01620000
016300         15  HLD-RTC           PIC XX.                            01630000
016400     10  HLD-FILLER                PIC X(24).                     01640007
016500                                                                  01650000
016600***************************************************************   01660000
016700*    LAYUP TABLE AREA FOR REGIONS                             *   01670000
016800*  FORMAT FOR RATE TABLE 1998 AND 1999 FOR JULY 1 1998        *   01680000
016900*  FORMAT FOR RATE TABLE 2000 FOR OCT 1, 1999                 *   01690000
017000*  FORMAT FOR RATE TABLE 2001 FOR OCT 1, 2000                 *   01700000
017100*  FORMAT FOR RATE TABLE 2001 FOR APR 1, 2001                 *   01710000
017200*  FORMAT FOR RATE TABLE 2002 FOR OCT 1, 2001                 *   01720000
017300*  FORMAT FOR RATE TABLE 2003 FOR OCT 1, 2002                 *   01730000
017400*  FORMAT FOR RATE TABLE 2004 FOR OCT 1, 2003                 *   01740000
017500*  FORMAT FOR RATE TABLE 2005 FOR OCT 1, 2004                 *   01750000
017600*  FORMAT FOR RATE TABLE 2006 FOR OCT 1, 2005                 *   01760000
017700*  FORMAT FOR RATE TABLE 2007 FOR OCT 1, 2006                 *   01770002
017800*  FORMAT FOR RATE TABLE 2008 FOR OCT 1, 2007                 *   01780002
017900*  FORMAT FOR RATE TABLE 2009 FOR OCT 1, 2008                 *   01790002
018000*  FORMAT FOR RATE TABLE 2010 FOR OCT 1, 2009                 *   01800002
018100*  FORMAT FOR RATE TABLE 2011 FOR OCT 1, 2010                 *   01810002
018200*  FORMAT FOR RATE TABLE 2012 FOR OCT 1, 2011                 *   01820002
018300*  FORMAT FOR RATE TABLE 2013 FOR OCT 1, 2012                 *   01830002
018400*  FORMAT FOR RATE TABLE 2014 FOR OCT 1, 2013                 *   01840002
018500*  REGION = ( 1 = RURAL  2 = URBAN ) RATES                    *   01850000
018600***************************************************************   01860000
018700 01  REGION-TABLE.                                                01870000
018800     02  REGION-DATA.                                             01880000
018900*  TABLE RATE FOR FY1998 AND 1999                                 01890000
019000*  19980701/               REGION/ INP / GEN SER / THER / REHAB   01900000
019100     05  FILLER    PIC X(08) VALUE '19980701'.                    01910000
019200     05  FILLER    PIC X(25) VALUE '1 10488 05695 01166 09551'.   01920000
019300     05  FILLER    PIC X(25) VALUE '2 10948 05588 01091 08267'.   01930000
019400*  TABLE RATE FOR FY2000                                          01940000
019500*  19991001/               REGION/ INP / GEN SER / THER / REHAB   01950000
019600     05  FILLER    PIC X(08) VALUE '19991001'.                    01960000
019700     05  FILLER    PIC X(25) VALUE '1 10712 05825 01188 09733'.   01970000
019800     05  FILLER    PIC X(25) VALUE '2 11189 05720 01112 08425'.   01980000
019900*  TABLE RATE FOR FY2001                                          01990000
020000*  20001001/               REGION/ INP / GEN SER / THER / REHAB   02000000
020100     05  FILLER    PIC X(08) VALUE '20001001'.                    02010000
020200     05  FILLER    PIC X(25) VALUE '1 10929 05945 01213 09934'.   02020000
020300     05  FILLER    PIC X(25) VALUE '2 11438 05838 01135 08616'.   02030000
020400*  TABLE RATE FOR FY2001 EFFECTIVE APR 1, 2001                    02040000
020500*  20010401/               REGION/ INP / GEN SER / THER / REHAB   02050000
020600     05  FILLER    PIC X(08) VALUE '20010401'.                    02060000
020700     05  FILLER    PIC X(25) VALUE '1 12999 06062 01236 10129'.   02070000
020800     05  FILLER    PIC X(25) VALUE '2 13605 05953 01157 08784'.   02080000
020900*  TABLE RATE FOR FY2002 EFFECTIVE OCT 1, 2001                    02090000
021000*  20011001/               REGION/ INP / GEN SER / THER / REHAB   02100000
021100     05  FILLER    PIC X(08) VALUE '20011001'.                    02110000
021200     05  FILLER    PIC X(25) VALUE '1 13213 06162 01256 10296'.   02120000
021300     05  FILLER    PIC X(25) VALUE '2 13829 06050 01176 08929'.   02130000
021400*  TABLE RATE FOR FY2003 EFFECTIVE OCT 1, 2002                    02140000
021500*  20021001/               REGION/ INP / GEN SER / THER / REHAB   02150000
021600     05  FILLER    PIC X(08) VALUE '20021001'.                    02160000
021700     05  FILLER    PIC X(25) VALUE '1 11617 06320 01288 10561'.   02170000
021800     05  FILLER    PIC X(25) VALUE '2 12159 06205 01206 09158'.   02180000
021900*  TABLE RATE FOR FY2004 EFFECTIVE OCT 1, 2003                    02190000
022000*  20031001/               REGION/ INP / GEN SER / THER / REHAB   02200000
022100     05  FILLER    PIC X(08) VALUE '20031001'.                    02210000
022200     05  FILLER    PIC X(25) VALUE '1 12374 06733 01372 11250'.   02220000
022300     05  FILLER    PIC X(25) VALUE '2 12952 06610 01285 09756'.   02230000
022400*  TABLE RATE FOR FY2005 EFFECTIVE OCT 1, 2004                    02240000
022500*  20041001/               REGION/ INP / GEN SER / THER / REHAB   02250000
022600     05  FILLER    PIC X(08) VALUE '20041001'.                    02260000
022700     05  FILLER    PIC X(25) VALUE '1 12734 06929 01412 11578'.   02270000
022800     05  FILLER    PIC X(25) VALUE '2 13329 06803 01322 10040'.   02280000
022900**************YEARCHANGE 2006.0 *******************************   02290003
023000*  TABLE RATE FOR FY2006 EFFECTIVE OCT 1, 2005                    02300000
023100*  20051001/               REGION/ INP / GEN SER / THER / REHAB   02310000
023200     05  FILLER    PIC X(08) VALUE '20051001'.                    02320000
023300     05  FILLER    PIC X(25) VALUE '1 13145 07152 01458 11951'.   02330000
023400     05  FILLER    PIC X(25) VALUE '2 13759 07022 01365 10364'.   02340000
023500**************YEARCHANGE 2007.0 *******************************   02350003
023600*  TABLE RATE FOR FY2007 EFFECTIVE OCT 1, 2006                    02360000
023700*  20061001/               REGION/ INP / GEN SER / THER / REHAB   02370000
023800     05  FILLER    PIC X(08) VALUE '20061001'.                    02380000
023900     05  FILLER    PIC X(25) VALUE '1 13570 07383 01505 12337'.   02390000
024000     05  FILLER    PIC X(25) VALUE '2 14204 07249 01409 10699'.   02400000
024100**************YEARCHANGE 2008.0 *******************************   02410003
024200*  TABLE RATE FOR FY2008 EFFECTIVE OCT 2, 2007                    02420001
024300*  20071001/               REGION/ INP / GEN SER / THER / REHAB   02430003
024400     05  FILLER    PIC X(08) VALUE '20071001'.                    02440000
024500     05  FILLER    PIC X(25) VALUE '1 14008 07621 01554 12735'.   02450000
024600     05  FILLER    PIC X(25) VALUE '2 14662 07483 01454 11044'.   02460000
024700**************YEARCHANGE 2009.0 *******************************   02470003
024800*  TABLE RATE FOR FY2009 EFFECTIVE OCT 1, 2008                    02480002
024900*  20081001/               REGION/ INP / GEN SER / THER / REHAB   02490003
025000     05  FILLER    PIC X(08) VALUE '20081001'.                    02500003
025100     05  FILLER    PIC X(25) VALUE '1 14497 07887 01608 13180'.   02510002
025200     05  FILLER    PIC X(25) VALUE '2 15174 07744 01505 11430'.   02520002
025300**************YEARCHANGE 2009.0 *******************************   02530003
025400**************YEARCHANGE 2010.0 *******************************   02540003
025500*  TABLE RATE FOR FY2009 EFFECTIVE OCT 2, 2009                    02550002
025600*  20091001/               REGION/ INP / GEN SER / THER / REHAB   02560003
025700     05  FILLER    PIC X(08) VALUE '20091001'.                    02570003
025800     05  FILLER    PIC X(25) VALUE '1 14831 08069 01645 13483'.   02580002
025900     05  FILLER    PIC X(25) VALUE '2 15523 07922 01540 11693'.   02590002
026000**************YEARCHANGE 2010.0 *******************************   02600003
026100**************YEARCHANGE 2011.0 *******************************   02610003
026200*  TABLE RATE FOR FY2009 EFFECTIVE OCT 2, 2009                    02620002
026300*  20091001/               REGION/ INP / GEN SER / THER / REHAB   02630003
026400     05  FILLER    PIC X(08) VALUE '20101001'.                    02640003
026500     05  FILLER    PIC X(25) VALUE '1 15079 08204 01672 13708'.   02650002
026600     05  FILLER    PIC X(25) VALUE '2 15782 08054 01566 11888'.   02660002
026700**************YEARCHANGE 2011.0 *******************************   02670003
026800**************YEARCHANGE 2012.0 *******************************   02680003
026900*  TABLE RATE FOR FY2012 EFFECTIVE OCT 1, 2011                    02690002
027000*  20111001/               REGION/ INP / GEN SER / THER / REHAB   02700003
027100     05  FILLER    PIC X(08) VALUE '20111001'.                    02710003
027200     05  FILLER    PIC X(25) VALUE '1 15346 08349 01702 13951'.   02720002
027300     05  FILLER    PIC X(25) VALUE '2 16062 08197 01594 12099'.   02730002
027400**************YEARCHANGE 2012.0 *******************************   02740003
027500**************YEARCHANGE 2013.0 *******************************   02750003
027600*  TABLE RATE FOR FY2013 EFFECTIVE OCT 1, 2012                    02760002
027700*  20121001/               REGION/ INP / GEN SER / THER / REHAB   02770003
027800     05  FILLER    PIC X(08) VALUE '20121001'.                    02780003
027900     05  FILLER    PIC X(25) VALUE '1 15628 08503 01733 14208'.   02790002
028000     05  FILLER    PIC X(25) VALUE '2 16358 08348 01623 12322'.   02800002
028100**************YEARCHANGE 2013.0 *******************************   02810003
028200**************YEARCHANGE 2014.0 *******************************   02820003
028300*  TABLE RATE FOR FY2014 EFFECTIVE OCT 1, 2013                    02830002
028400*  20131001/               REGION/ INP / GEN SER / THER / REHAB   02840003
028500     05  FILLER    PIC X(08) VALUE '20131001'.                    02850003
028600     05  FILLER    PIC X(25) VALUE '1 15841 08619 01757 14401'.   02860002
028700     05  FILLER    PIC X(25) VALUE '2 16581 08462 01645 12490'.   02870002
028800**************YEARCHANGE 2014.0 *******************************   02880003
028900**************YEARCHANGE 2015.0 *******************************   02890003
029000*  TABLE RATE FOR FY2015 EFFECTIVE OCT 1, 2014                    02900002
029100*  20141001/               REGION/ INP / GEN SER / THER / REHAB   02910003
029200     05  FILLER    PIC X(08) VALUE '20141001'.                    02920003
029300     05  FILLER    PIC X(25) VALUE '1 16172 08799 01794 14702'.   02930002
029400     05  FILLER    PIC X(25) VALUE '2 16928 08639 01679 12751'.   02940002
029500**************YEARCHANGE 2015.0 *******************************   02950003
029600     02  REGION-DATA2 REDEFINES REGION-DATA.                      02960000
029700         04  REG-PERIOD        OCCURS 18.                         02970003
029800**************YEARCHANGE 2015.0 *******************************   02980003
029900             06  REG-EFF-DATE  PIC X(08).                         02990000
030000             06  REGS          OCCURS 2.                          03000000
030100                 08  REG-DATA  OCCURS 1.                          03010000
030200                     10  REGION        PIC X.                     03020000
030300                     10  FILLER        PIC X.                     03030000
030400                     10  R-IP-RATE     PIC 999V99.                03040000
030500                     10  FILLER        PIC X.                     03050000
030600                     10  R-GS-RATE     PIC 999V99.                03060000
030700                     10  FILLER        PIC X.                     03070000
030800                     10  R-TH-RATE     PIC 999V99.                03080000
030900                     10  FILLER        PIC X.                     03090000
031000                     10  R-REHAB-RATE  PIC 999V99.                03100000
031100                                                                  03110001
031200                                                                  03120000
031300                                                                  03130000
031400***************************************************************   03140000
031500*  LAYUP TABLE AREA FOR RUG  44 CODES                         *   03150000
031600*  EFFECTIVE JULY 1, 1998  TIL JANUARY 1, 2006                *   03160000
031700*  FORMAT FOR RUG TABLE 44                                    *   03170000
031800*    N = NURSING   T = THERAPY  F = THERAPY COMPONENT FACTOR  *   03180000
031900***************************************************************   03190000
032000 01  RUG-TABLE.                                                   03200000
032100     02  RUG-DATA1.                                               03210000
032200*                               RUG  REV                          03220000
032300*                               CODE CODE N - T - F               03230000
032400         03  FILLER  PIC X(19)                                    03240000
032500                         VALUE 'AAA  9000 046 000 1'.             03250000
032600         03  FILLER  PIC X(19)                                    03260000
032700                         VALUE 'PA1  9001 046 000 1'.             03270000
032800         03  FILLER  PIC X(19)                                    03280000
032900                         VALUE 'PA2  9002 049 000 1'.             03290000
033000         03  FILLER  PIC X(19)                                    03300000
033100                         VALUE 'PB1  9003 050 000 1'.             03310000
033200         03  FILLER  PIC X(19)                                    03320000
033300                         VALUE 'PB2  9004 051 000 1'.             03330000
033400         03  FILLER  PIC X(19)                                    03340000
033500                         VALUE 'PC1  9005 064 000 1'.             03350000
033600         03  FILLER  PIC X(19)                                    03360000
033700                         VALUE 'PC2  9006 065 000 1'.             03370000
033800         03  FILLER  PIC X(19)                                    03380000
033900                         VALUE 'PD1  9007 070 000 1'.             03390000
034000         03  FILLER  PIC X(19)                                    03400000
034100                         VALUE 'PD2  9008 072 000 1'.             03410000
034200         03  FILLER  PIC X(19)                                    03420000
034300                         VALUE 'PE1  9009 077 000 1'.             03430000
034400         03  FILLER  PIC X(19)                                    03440000
034500                         VALUE 'PE2  9010 079 000 1'.             03450000
034600         03  FILLER  PIC X(19)                                    03460000
034700                         VALUE 'BA1  9011 048 000 1'.             03470000
034800         03  FILLER  PIC X(19)                                    03480000
034900                         VALUE 'BA2  9012 056 000 1'.             03490000
035000         03  FILLER  PIC X(19)                                    03500000
035100                         VALUE 'BB1  9013 065 000 1'.             03510000
035200         03  FILLER  PIC X(19)                                    03520000
035300                         VALUE 'BB2  9014 068 000 1'.             03530000
035400         03  FILLER  PIC X(19)                                    03540000
035500                         VALUE 'IA1  9015 053 000 1'.             03550000
035600         03  FILLER  PIC X(19)                                    03560000
035700                         VALUE 'IA2  9016 057 000 1'.             03570000
035800         03  FILLER  PIC X(19)                                    03580000
035900                         VALUE 'IB1  9017 067 000 1'.             03590000
036000         03  FILLER  PIC X(19)                                    03600000
036100                         VALUE 'IB2  9018 069 000 1'.             03610000
036200         03  FILLER  PIC X(19)                                    03620000
036300                         VALUE 'CA1  9019 075 000 1'.             03630000
036400         03  FILLER  PIC X(19)                                    03640000
036500                         VALUE 'CA2  9020 083 000 1'.             03650000
036600         03  FILLER  PIC X(19)                                    03660000
036700                         VALUE 'CB1  9021 084 000 1'.             03670000
036800         03  FILLER  PIC X(19)                                    03680000
036900                         VALUE 'CB2  9022 091 000 1'.             03690000
037000         03  FILLER  PIC X(19)                                    03700000
037100                         VALUE 'CC1  9023 099 000 1'.             03710000
037200         03  FILLER  PIC X(19)                                    03720000
037300                         VALUE 'CC2  9024 112 000 1'.             03730000
037400         03  FILLER  PIC X(19)                                    03740000
037500                         VALUE 'SSA  9025 101 000 1'.             03750000
037600         03  FILLER  PIC X(19)                                    03760000
037700                         VALUE 'SSB  9026 105 000 1'.             03770000
037800         03  FILLER  PIC X(19)                                    03780000
037900                         VALUE 'SSC  9027 113 000 1'.             03790000
038000         03  FILLER  PIC X(19)                                    03800000
038100                         VALUE 'SE1  9028 117 000 1'.             03810000
038200         03  FILLER  PIC X(19)                                    03820000
038300                         VALUE 'SE2  9029 139 000 1'.             03830000
038400         03  FILLER  PIC X(19)                                    03840000
038500                         VALUE 'SE3  9030 170 000 1'.             03850000
038600         03  FILLER  PIC X(19)                                    03860000
038700                         VALUE 'RLA  9031 080 043 0'.             03870000
038800         03  FILLER  PIC X(19)                                    03880000
038900                         VALUE 'RLB  9032 111 043 0'.             03890000
039000         03  FILLER  PIC X(19)                                    03900000
039100                         VALUE 'RMA  9033 096 077 0'.             03910000
039200         03  FILLER  PIC X(19)                                    03920000
039300                         VALUE 'RMB  9034 109 077 0'.             03930000
039400         03  FILLER  PIC X(19)                                    03940000
039500                         VALUE 'RMC  9035 135 077 0'.             03950000
039600         03  FILLER  PIC X(19)                                    03960000
039700                         VALUE 'RHA  9036 087 094 0'.             03970000
039800         03  FILLER  PIC X(19)                                    03980000
039900                         VALUE 'RHB  9037 106 094 0'.             03990000
040000         03  FILLER  PIC X(19)                                    04000000
040100                         VALUE 'RHC  9038 126 094 0'.             04010000
040200         03  FILLER  PIC X(19)                                    04020000
040300                         VALUE 'RVA  9039 081 141 0'.             04030000
040400         03  FILLER  PIC X(19)                                    04040000
040500                         VALUE 'RVB  9040 104 141 0'.             04050000
040600         03  FILLER  PIC X(19)                                    04060000
040700                         VALUE 'RVC  9041 113 141 0'.             04070000
040800         03  FILLER  PIC X(19)                                    04080000
040900                         VALUE 'RUA  9042 078 225 0'.             04090000
041000         03  FILLER  PIC X(19)                                    04100000
041100                         VALUE 'RUB  9043 095 225 0'.             04110000
041200         03  FILLER  PIC X(19)                                    04120000
041300                         VALUE 'RUC  9044 130 225 0'.             04130000
041400     02  RUG-DATA2 REDEFINES RUG-DATA1 OCCURS 45                  04140000
041500             ASCENDING KEY IS RUG-CODE                            04150000
041600             INDEXED BY RUG01.                                    04160000
041700         03  RUG-CODE          PIC X(03).                         04170000
041800         03  RUG-REGS             OCCURS 1.                       04180000
041900             04  FILLER        PIC XX.                            04190000
042000             04  REV-CODE      PIC XXXX.                          04200000
042100             04  FILLER        PIC X.                             04210000
042200             04  RUG-NURSING   PIC 9V99.                          04220000
042300             04  FILLER        PIC X.                             04230000
042400             04  RUG-THERAPY   PIC 9V99.                          04240000
042500             04  FILLER        PIC X.                             04250000
042600             04  RUG-FACTOR    PIC 9.                             04260000
042700                                                                  04270000
042800                                                                  04280000
042900***************************************************************   04290000
043000*  LAYUP TABLE AREA FOR RUG 53 CODES                          *   04300000
043100*  EFFECTIVE JAN  1, 2006                                     *   04310000
043200*  FORMAT FOR RUG TABLE 53                                    *   04320000
043300*    N = NURSING   T = THERAPY  F = THERAPY COMPONENT FACTOR  *   04330000
043400***************************************************************   04340000
043500 01  RUG53-TABLE.                                                 04350000
043600     02  RUG53-DATA1.                                             04360000
043700*                               RUG  REV                          04370000
043800*                               CODE CODE N - T - F               04380000
043900         03  FILLER  PIC X(19)                                    04390000
044000                         VALUE 'AAA  9000 050 000 1'.             04400000
044100         03  FILLER  PIC X(19)                                    04410000
044200                         VALUE 'PA1  9001 050 000 1'.             04420000
044300         03  FILLER  PIC X(19)                                    04430000
044400                         VALUE 'PA2  9002 053 000 1'.             04440000
044500         03  FILLER  PIC X(19)                                    04450000
044600                         VALUE 'PB1  9003 054 000 1'.             04460000
044700         03  FILLER  PIC X(19)                                    04470000
044800                         VALUE 'PB2  9004 055 000 1'.             04480000
044900         03  FILLER  PIC X(19)                                    04490000
045000                         VALUE 'PC1  9005 069 000 1'.             04500000
045100         03  FILLER  PIC X(19)                                    04510000
045200                         VALUE 'PC2  9006 071 000 1'.             04520000
045300         03  FILLER  PIC X(19)                                    04530000
045400                         VALUE 'PD1  9007 076 000 1'.             04540000
045500         03  FILLER  PIC X(19)                                    04550000
045600                         VALUE 'PD2  9008 078 000 1'.             04560000
045700         03  FILLER  PIC X(19)                                    04570000
045800                         VALUE 'PE1  9009 082 000 1'.             04580000
045900         03  FILLER  PIC X(19)                                    04590000
046000                         VALUE 'PE2  9010 085 000 1'.             04600000
046100         03  FILLER  PIC X(19)                                    04610000
046200                         VALUE 'BA1  9011 052 000 1'.             04620000
046300         03  FILLER  PIC X(19)                                    04630000
046400                         VALUE 'BA2  9012 060 000 1'.             04640000
046500         03  FILLER  PIC X(19)                                    04650000
046600                         VALUE 'BB1  9013 069 000 1'.             04660000
046700         03  FILLER  PIC X(19)                                    04670000
046800                         VALUE 'BB2  9014 073 000 1'.             04680000
046900         03  FILLER  PIC X(19)                                    04690000
047000                         VALUE 'IA1  9015 056 000 1'.             04700000
047100         03  FILLER  PIC X(19)                                    04710000
047200                         VALUE 'IA2  9016 061 000 1'.             04720000
047300         03  FILLER  PIC X(19)                                    04730000
047400                         VALUE 'IB1  9017 072 000 1'.             04740000
047500         03  FILLER  PIC X(19)                                    04750000
047600                         VALUE 'IB2  9018 074 000 1'.             04760000
047700         03  FILLER  PIC X(19)                                    04770000
047800                         VALUE 'CA1  9019 080 000 1'.             04780000
047900         03  FILLER  PIC X(19)                                    04790000
048000                         VALUE 'CA2  9020 090 000 1'.             04800000
048100         03  FILLER  PIC X(19)                                    04810000
048200                         VALUE 'CB1  9021 091 000 1'.             04820000
048300         03  FILLER  PIC X(19)                                    04830000
048400                         VALUE 'CB2  9022 098 000 1'.             04840000
048500         03  FILLER  PIC X(19)                                    04850000
048600                         VALUE 'CC1  9023 106 000 1'.             04860000
048700         03  FILLER  PIC X(19)                                    04870000
048800                         VALUE 'CC2  9024 122 000 1'.             04880000
048900         03  FILLER  PIC X(19)                                    04890000
049000                         VALUE 'SSA  9025 110 000 1'.             04900000
049100         03  FILLER  PIC X(19)                                    04910000
049200                         VALUE 'SSB  9026 113 000 1'.             04920000
049300         03  FILLER  PIC X(19)                                    04930000
049400                         VALUE 'SSC  9027 123 000 1'.             04940000
049500         03  FILLER  PIC X(19)                                    04950000
049600                         VALUE 'SE1  9028 126 000 1'.             04960000
049700         03  FILLER  PIC X(19)                                    04970000
049800                         VALUE 'SE2  9029 149 000 1'.             04980000
049900         03  FILLER  PIC X(19)                                    04990000
050000                         VALUE 'SE3  9030 186 000 1'.             05000000
050100         03  FILLER  PIC X(19)                                    05010000
050200                         VALUE 'RLA  9031 085 043 0'.             05020000
050300         03  FILLER  PIC X(19)                                    05030000
050400                         VALUE 'RLB  9032 114 043 0'.             05040000
050500         03  FILLER  PIC X(19)                                    05050000
050600                         VALUE 'RMA  9033 104 077 0'.             05060000
050700         03  FILLER  PIC X(19)                                    05070000
050800                         VALUE 'RMB  9034 109 077 0'.             05080000
050900         03  FILLER  PIC X(19)                                    05090000
051000                         VALUE 'RMC  9035 115 077 0'.             05100000
051100         03  FILLER  PIC X(19)                                    05110000
051200                         VALUE 'RHA  9036 094 094 0'.             05120000
051300         03  FILLER  PIC X(19)                                    05130000
051400                         VALUE 'RHB  9037 111 094 0'.             05140000
051500         03  FILLER  PIC X(19)                                    05150000
051600                         VALUE 'RHC  9038 122 094 0'.             05160000
051700         03  FILLER  PIC X(19)                                    05170000
051800                         VALUE 'RVA  9039 082 141 0'.             05180000
051900         03  FILLER  PIC X(19)                                    05190000
052000                         VALUE 'RVB  9040 109 141 0'.             05200000
052100         03  FILLER  PIC X(19)                                    05210000
052200                         VALUE 'RVC  9041 123 141 0'.             05220000
052300         03  FILLER  PIC X(19)                                    05230000
052400                         VALUE 'RUA  9042 084 225 0'.             05240000
052500         03  FILLER  PIC X(19)                                    05250000
052600                         VALUE 'RUB  9043 099 225 0'.             05260000
052700         03  FILLER  PIC X(19)                                    05270000
052800                         VALUE 'RUC  9044 128 225 0'.             05280000
052900         03  FILLER  PIC X(19)                                    05290000
053000                         VALUE 'RLX  9045 131 043 0'.             05300000
053100         03  FILLER  PIC X(19)                                    05310000
053200                         VALUE 'RML  9046 168 077 0'.             05320000
053300         03  FILLER  PIC X(19)                                    05330000
053400                         VALUE 'RMX  9047 193 077 0'.             05340000
053500         03  FILLER  PIC X(19)                                    05350000
053600                         VALUE 'RHL  9048 137 094 0'.             05360000
053700         03  FILLER  PIC X(19)                                    05370000
053800                         VALUE 'RHX  9049 142 094 0'.             05380000
053900         03  FILLER  PIC X(19)                                    05390000
054000                         VALUE 'RVL  9050 133 141 0'.             05400000
054100         03  FILLER  PIC X(19)                                    05410000
054200                         VALUE 'RVX  9051 154 141 0'.             05420000
054300         03  FILLER  PIC X(19)                                    05430000
054400                         VALUE 'RUL  9052 140 225 0'.             05440000
054500         03  FILLER  PIC X(19)                                    05450000
054600                         VALUE 'RUX  9053 190 225 0'.             05460000
054700     02  RUG53-DATA2 REDEFINES RUG53-DATA1 OCCURS 54              05470000
054800             ASCENDING KEY IS RUG53-CODE                          05480000
054900             INDEXED BY RUG53-01.                                 05490000
055000         03  RUG53-CODE          PIC X(03).                       05500000
055100         03  RUG53-REGS             OCCURS 1.                     05510000
055200             04  FILLER        PIC XX.                            05520000
055300             04  REV53-CODE      PIC XXXX.                        05530000
055400             04  FILLER        PIC X.                             05540000
055500             04  RUG53-NURSING   PIC 9V99.                        05550000
055600             04  FILLER        PIC X.                             05560000
055700             04  RUG53-THERAPY   PIC 9V99.                        05570000
055800             04  FILLER        PIC X.                             05580000
055900             04  RUG53-FACTOR    PIC 9.                           05590000
056000                                                                  05600000
056100                                                                  05610000
056200***************************************************************   05620000
056300*  LAYUP TABLE AREA FOR RUG 53 CODES FOR FY2010               *   05630000
056400*  EFFECTIVE OCT  1, 2009                                     *   05640000
056500*  FORMAT FOR RUG TABLE 53                                    *   05650000
056600*    N = NURSING   T = THERAPY  F = THERAPY COMPONENT FACTOR  *   05660000
056700***************************************************************   05670000
056800 01  RUG53-2010-TABLE.                                            05680000
056900     02  RUG53-2010-DATA1.                                        05690000
057000*                               RUG  REV                          05700000
057100*                               CODE CODE N - T - F               05710000
057200         03  FILLER  PIC X(19)                                    05720000
057300                         VALUE 'AAA  9000 046 000 1'.             05730000
057400         03  FILLER  PIC X(19)                                    05740000
057500                         VALUE 'PA1  9001 046 000 1'.             05750000
057600         03  FILLER  PIC X(19)                                    05760000
057700                         VALUE 'PA2  9002 049 000 1'.             05770000
057800         03  FILLER  PIC X(19)                                    05780000
057900                         VALUE 'PB1  9003 050 000 1'.             05790000
058000         03  FILLER  PIC X(19)                                    05800000
058100                         VALUE 'PB2  9004 052 000 1'.             05810000
058200         03  FILLER  PIC X(19)                                    05820000
058300                         VALUE 'PC1  9005 065 000 1'.             05830000
058400         03  FILLER  PIC X(19)                                    05840000
058500                         VALUE 'PC2  9006 066 000 1'.             05850000
058600         03  FILLER  PIC X(19)                                    05860000
058700                         VALUE 'PD1  9007 070 000 1'.             05870000
058800         03  FILLER  PIC X(19)                                    05880000
058900                         VALUE 'PD2  9008 072 000 1'.             05890000
059000         03  FILLER  PIC X(19)                                    05900000
059100                         VALUE 'PE1  9009 077 000 1'.             05910000
059200         03  FILLER  PIC X(19)                                    05920000
059300                         VALUE 'PE2  9010 079 000 1'.             05930000
059400         03  FILLER  PIC X(19)                                    05940000
059500                         VALUE 'BA1  9011 048 000 1'.             05950000
059600         03  FILLER  PIC X(19)                                    05960000
059700                         VALUE 'BA2  9012 056 000 1'.             05970000
059800         03  FILLER  PIC X(19)                                    05980000
059900                         VALUE 'BB1  9013 065 000 1'.             05990000
060000         03  FILLER  PIC X(19)                                    06000000
060100                         VALUE 'BB2  9014 068 000 1'.             06010000
060200         03  FILLER  PIC X(19)                                    06020000
060300                         VALUE 'IA1  9015 053 000 1'.             06030000
060400         03  FILLER  PIC X(19)                                    06040000
060500                         VALUE 'IA2  9016 057 000 1'.             06050000
060600         03  FILLER  PIC X(19)                                    06060000
060700                         VALUE 'IB1  9017 067 000 1'.             06070000
060800         03  FILLER  PIC X(19)                                    06080000
060900                         VALUE 'IB2  9018 069 000 1'.             06090000
061000         03  FILLER  PIC X(19)                                    06100000
061100                         VALUE 'CA1  9019 075 000 1'.             06110000
061200         03  FILLER  PIC X(19)                                    06120000
061300                         VALUE 'CA2  9020 083 000 1'.             06130000
061400         03  FILLER  PIC X(19)                                    06140000
061500                         VALUE 'CB1  9021 084 000 1'.             06150000
061600         03  FILLER  PIC X(19)                                    06160000
061700                         VALUE 'CB2  9022 091 000 1'.             06170000
061800         03  FILLER  PIC X(19)                                    06180000
061900                         VALUE 'CC1  9023 099 000 1'.             06190000
062000         03  FILLER  PIC X(19)                                    06200000
062100                         VALUE 'CC2  9024 113 000 1'.             06210000
062200         03  FILLER  PIC X(19)                                    06220000
062300                         VALUE 'SSA  9025 102 000 1'.             06230000
062400         03  FILLER  PIC X(19)                                    06240000
062500                         VALUE 'SSB  9026 105 000 1'.             06250000
062600         03  FILLER  PIC X(19)                                    06260000
062700                         VALUE 'SSC  9027 114 000 1'.             06270000
062800         03  FILLER  PIC X(19)                                    06280000
062900                         VALUE 'SE1  9028 117 000 1'.             06290000
063000         03  FILLER  PIC X(19)                                    06300000
063100                         VALUE 'SE2  9029 138 000 1'.             06310000
063200         03  FILLER  PIC X(19)                                    06320000
063300                         VALUE 'SE3  9030 172 000 1'.             06330000
063400         03  FILLER  PIC X(19)                                    06340000
063500                         VALUE 'RLA  9031 079 043 0'.             06350000
063600         03  FILLER  PIC X(19)                                    06360000
063700                         VALUE 'RLB  9032 106 043 0'.             06370000
063800         03  FILLER  PIC X(19)                                    06380000
063900                         VALUE 'RMA  9033 097 077 0'.             06390000
064000         03  FILLER  PIC X(19)                                    06400000
064100                         VALUE 'RMB  9034 101 077 0'.             06410000
064200         03  FILLER  PIC X(19)                                    06420000
064300                         VALUE 'RMC  9035 107 077 0'.             06430000
064400         03  FILLER  PIC X(19)                                    06440000
064500                         VALUE 'RHA  9036 088 094 0'.             06450000
064600         03  FILLER  PIC X(19)                                    06460000
064700                         VALUE 'RHB  9037 103 094 0'.             06470000
064800         03  FILLER  PIC X(19)                                    06480000
064900                         VALUE 'RHC  9038 113 094 0'.             06490000
065000         03  FILLER  PIC X(19)                                    06500000
065100                         VALUE 'RVA  9039 077 141 0'.             06510000
065200         03  FILLER  PIC X(19)                                    06520000
065300                         VALUE 'RVB  9040 101 141 0'.             06530000
065400         03  FILLER  PIC X(19)                                    06540000
065500                         VALUE 'RVC  9041 114 141 0'.             06550000
065600         03  FILLER  PIC X(19)                                    06560000
065700                         VALUE 'RUA  9042 078 225 0'.             06570000
065800         03  FILLER  PIC X(19)                                    06580000
065900                         VALUE 'RUB  9043 092 225 0'.             06590000
066000         03  FILLER  PIC X(19)                                    06600000
066100                         VALUE 'RUC  9044 120 225 0'.             06610000
066200         03  FILLER  PIC X(19)                                    06620000
066300                         VALUE 'RLX  9045 122 043 0'.             06630000
066400         03  FILLER  PIC X(19)                                    06640000
066500                         VALUE 'RML  9046 157 077 0'.             06650000
066600         03  FILLER  PIC X(19)                                    06660000
066700                         VALUE 'RMX  9047 180 077 0'.             06670000
066800         03  FILLER  PIC X(19)                                    06680000
066900                         VALUE 'RHL  9048 127 094 0'.             06690000
067000         03  FILLER  PIC X(19)                                    06700000
067100                         VALUE 'RHX  9049 133 094 0'.             06710000
067200         03  FILLER  PIC X(19)                                    06720000
067300                         VALUE 'RVL  9050 124 141 0'.             06730000
067400         03  FILLER  PIC X(19)                                    06740000
067500                         VALUE 'RVX  9051 144 141 0'.             06750000
067600         03  FILLER  PIC X(19)                                    06760000
067700                         VALUE 'RUL  9052 131 225 0'.             06770000
067800         03  FILLER  PIC X(19)                                    06780000
067900                         VALUE 'RUX  9053 177 225 0'.             06790000
068000     02  RUG53-2010-DATA2 REDEFINES RUG53-2010-DATA1 OCCURS 54    06800000
068100             ASCENDING KEY IS RUG53-2010-CODE                     06810000
068200             INDEXED BY RUG53-2010-01.                            06820000
068300         03  RUG53-2010-CODE     PIC X(03).                       06830000
068400         03  RUG53-2010-REGS        OCCURS 1.                     06840000
068500             04  FILLER        PIC XX.                            06850000
068600             04  REV53-2010-CODE      PIC XXXX.                   06860000
068700             04  FILLER        PIC X.                             06870000
068800             04  RUG53-2010-NURSING PIC 9V99.                     06880000
068900             04  FILLER        PIC X.                             06890000
069000             04  RUG53-2010-THERAPY PIC 9V99.                     06900000
069100             04  FILLER        PIC X.                             06910000
069200             04  RUG53-2010-FACTOR PIC 9.                         06920000
069300                                                                  06930000
069400***************************************************************   06940000
069500*  LAYUP TABLE AREA FOR RUG 53 CODES FOR FY2011               *   06950000
069600*  EFFECTIVE OCT  2, 2010                                     *   06960000
069700*  FORMAT FOR RUG TABLE 53                                    *   06970000
069800*    N = NURSING   T = THERAPY  F = THERAPY COMPONENT FACTOR  *   06980000
069900***************************************************************   06990000
070000 01  RUG67-2011-TABLE.                                            07000000
070100     02  RUG67-2011-DATA1.                                        07010000
070200*                                      RUG  REV                   07020000
070300*                                      CODE CODE N - T - F        07030000
070400         03  FILLER  PIC X(19)  VALUE 'AAA  9000 054 000 1'.      07040003
070500         03  FILLER  PIC X(19)  VALUE 'BA1  9011 064 000 1'.      07050003
070600         03  FILLER  PIC X(19)  VALUE 'BA2  9012 070 000 1'.      07060003
070700         03  FILLER  PIC X(19)  VALUE 'BB1  9013 090 000 1'.      07070003
070800         03  FILLER  PIC X(19)  VALUE 'BB2  9014 097 000 1'.      07080003
070900         03  FILLER  PIC X(19)  VALUE 'CA1  9019 078 000 1'.      07090003
071000         03  FILLER  PIC X(19)  VALUE 'CA2  9020 088 000 1'.      07100003
071100         03  FILLER  PIC X(19)  VALUE 'CB1  9021 102 000 1'.      07110003
071200         03  FILLER  PIC X(19)  VALUE 'CB2  9022 115 000 1'.      07120003
071300         03  FILLER  PIC X(19)  VALUE 'CC1  9023 115 000 1'.      07130003
071400         03  FILLER  PIC X(19)  VALUE 'CC2  9024 129 000 1'.      07140003
071500         03  FILLER  PIC X(19)  VALUE 'CD1  9024 138 000 1'.      07150003
071600         03  FILLER  PIC X(19)  VALUE 'CD2  9024 156 000 1'.      07160003
071700         03  FILLER  PIC X(19)  VALUE 'CE1  9024 150 000 1'.      07170003
071800         03  FILLER  PIC X(19)  VALUE 'CE2  9028 168 000 1'.      07180003
071900         03  FILLER  PIC X(19)  VALUE 'ES1  9028 232 000 1'.      07190003
072000         03  FILLER  PIC X(19)  VALUE 'ES2  9029 267 000 1'.      07200003
072100         03  FILLER  PIC X(19)  VALUE 'ES3  9030 358 000 1'.      07210003
072200         03  FILLER  PIC X(19)  VALUE 'HB1  9015 146 000 1'.      07220003
072300         03  FILLER  PIC X(19)  VALUE 'HB2  9016 186 000 1'.      07230003
072400         03  FILLER  PIC X(19)  VALUE 'HC1  9017 148 000 1'.      07240003
072500         03  FILLER  PIC X(19)  VALUE 'HC2  9018 189 000 1'.      07250003
072600         03  FILLER  PIC X(19)  VALUE 'HD1  9018 160 000 1'.      07260003
072700         03  FILLER  PIC X(19)  VALUE 'HD2  9018 204 000 1'.      07270003
072800         03  FILLER  PIC X(19)  VALUE 'HE1  9018 174 000 1'.      07280003
072900         03  FILLER  PIC X(19)  VALUE 'HE2  9018 222 000 1'.      07290003
073000         03  FILLER  PIC X(19)  VALUE 'LB1  9018 114 000 1'.      07300003
073100         03  FILLER  PIC X(19)  VALUE 'LB2  9018 145 000 1'.      07310003
073200         03  FILLER  PIC X(19)  VALUE 'LC1  9018 122 000 1'.      07320003
073300         03  FILLER  PIC X(19)  VALUE 'LC2  9018 156 000 1'.      07330003
073400         03  FILLER  PIC X(19)  VALUE 'LD1  9018 146 000 1'.      07340003
073500         03  FILLER  PIC X(19)  VALUE 'LD2  9018 186 000 1'.      07350003
073600         03  FILLER  PIC X(19)  VALUE 'LE1  9018 154 000 1'.      07360003
073700         03  FILLER  PIC X(19)  VALUE 'LE2  9018 196 000 1'.      07370003
073800         03  FILLER  PIC X(19)  VALUE 'PA1  9001 054 000 1'.      07380003
073900         03  FILLER  PIC X(19)  VALUE 'PA2  9002 059 000 1'.      07390003
074000         03  FILLER  PIC X(19)  VALUE 'PB1  9003 078 000 1'.      07400003
074100         03  FILLER  PIC X(19)  VALUE 'PB2  9004 084 000 1'.      07410003
074200         03  FILLER  PIC X(19)  VALUE 'PC1  9005 102 000 1'.      07420003
074300         03  FILLER  PIC X(19)  VALUE 'PC2  9006 110 000 1'.      07430003
074400         03  FILLER  PIC X(19)  VALUE 'PD1  9007 128 000 1'.      07440003
074500         03  FILLER  PIC X(19)  VALUE 'PD2  9008 138 000 1'.      07450003
074600         03  FILLER  PIC X(19)  VALUE 'PE1  9009 140 000 1'.      07460003
074700         03  FILLER  PIC X(19)  VALUE 'PE2  9010 150 000 1'.      07470003
074800         03  FILLER  PIC X(19)  VALUE 'RHA  9036 123 085 0'.      07480003
074900         03  FILLER  PIC X(19)  VALUE 'RHB  9037 160 085 0'.      07490003
075000         03  FILLER  PIC X(19)  VALUE 'RHC  9038 194 085 0'.      07500003
075100         03  FILLER  PIC X(19)  VALUE 'RHL  9048 289 085 0'.      07510003
075200         03  FILLER  PIC X(19)  VALUE 'RHX  9049 343 085 0'.      07520003
075300         03  FILLER  PIC X(19)  VALUE 'RLA  9031 095 028 0'.      07530003
075400         03  FILLER  PIC X(19)  VALUE 'RLB  9032 201 028 0'.      07540003
075500         03  FILLER  PIC X(19)  VALUE 'RLX  9045 304 028 0'.      07550003
075600         03  FILLER  PIC X(19)  VALUE 'RMA  9033 113 055 0'.      07560003
075700         03  FILLER  PIC X(19)  VALUE 'RMB  9034 163 055 0'.      07570003
075800         03  FILLER  PIC X(19)  VALUE 'RMC  9035 183 055 0'.      07580003
075900         03  FILLER  PIC X(19)  VALUE 'RML  9046 295 055 0'.      07590003
076000         03  FILLER  PIC X(19)  VALUE 'RMX  9047 331 055 0'.      07600003
076100         03  FILLER  PIC X(19)  VALUE 'RUA  9042 133 187 0'.      07610003
076200         03  FILLER  PIC X(19)  VALUE 'RUB  9043 210 187 0'.      07620003
076300         03  FILLER  PIC X(19)  VALUE 'RUC  9044 210 187 0'.      07630003
076400         03  FILLER  PIC X(19)  VALUE 'RUL  9052 345 187 0'.      07640003
076500         03  FILLER  PIC X(19)  VALUE 'RUX  9053 359 187 0'.      07650003
076600         03  FILLER  PIC X(19)  VALUE 'RVA  9039 148 128 0'.      07660003
076700         03  FILLER  PIC X(19)  VALUE 'RVB  9040 149 128 0'.      07670003
076800         03  FILLER  PIC X(19)  VALUE 'RVC  9041 202 128 0'.      07680003
076900         03  FILLER  PIC X(19)  VALUE 'RVL  9050 295 128 0'.      07690003
077000         03  FILLER  PIC X(19)  VALUE 'RVX  9051 351 128 0'.      07700003
077100     02  RUG67-2011-DATA2 REDEFINES RUG67-2011-DATA1 OCCURS 67    07710000
077200             ASCENDING KEY IS RUG67-2011-CODE                     07720000
077300             INDEXED BY RUG67-2011-01.                            07730000
077400         03  RUG67-2011-CODE     PIC X(03).                       07740000
077500         03  RUG67-2011-REGS        OCCURS 1.                     07750000
077600             04  FILLER        PIC XX.                            07760000
077700             04  REV67-2011-CODE      PIC XXXX.                   07770000
077800             04  FILLER        PIC X.                             07780000
077900             04  RUG67-2011-NURSING PIC 9V99.                     07790000
078000             04  FILLER        PIC X.                             07800000
078100             04  RUG67-2011-THERAPY PIC 9V99.                     07810000
078200             04  FILLER        PIC X.                             07820000
078300             04  RUG67-2011-FACTOR PIC 9.                         07830000
078400                                                                  07840000
078500***************************************************************   07850000
078600*  LAYUP TABLE AREA FOR RUG 67 CODES FOR FY2012               *   07860000
078700*  EFFECTIVE OCT  1, 2011                                     *   07870000
078800*  FORMAT FOR RUG TABLE 67                                    *   07880000
078900*    N = NURSING   T = THERAPY  F = THERAPY COMPONENT FACTOR  *   07890000
079000***************************************************************   07900000
079100 01  RUG67-2012-TABLE.                                            07910000
079200     02  RUG67-2012-DATA1.                                        07920000
079300*                                      RUG  REV                   07930000
079400*                                      CODE CODE N - T - F        07940000
079500         03  FILLER  PIC X(19)  VALUE 'AAA  9000 054 000 1'.      07950003
079600         03  FILLER  PIC X(19)  VALUE 'BA1  9011 064 000 1'.      07960003
079700         03  FILLER  PIC X(19)  VALUE 'BA2  9012 070 000 1'.      07970003
079800         03  FILLER  PIC X(19)  VALUE 'BB1  9013 090 000 1'.      07980003
079900         03  FILLER  PIC X(19)  VALUE 'BB2  9014 097 000 1'.      07990003
080000         03  FILLER  PIC X(19)  VALUE 'CA1  9019 078 000 1'.      08000003
080100         03  FILLER  PIC X(19)  VALUE 'CA2  9020 088 000 1'.      08010003
080200         03  FILLER  PIC X(19)  VALUE 'CB1  9021 102 000 1'.      08020003
080300         03  FILLER  PIC X(19)  VALUE 'CB2  9022 115 000 1'.      08030003
080400         03  FILLER  PIC X(19)  VALUE 'CC1  9023 115 000 1'.      08040003
080500         03  FILLER  PIC X(19)  VALUE 'CC2  9024 129 000 1'.      08050003
080600         03  FILLER  PIC X(19)  VALUE 'CD1  9024 138 000 1'.      08060003
080700         03  FILLER  PIC X(19)  VALUE 'CD2  9024 156 000 1'.      08070003
080800         03  FILLER  PIC X(19)  VALUE 'CE1  9024 150 000 1'.      08080003
080900         03  FILLER  PIC X(19)  VALUE 'CE2  9028 168 000 1'.      08090003
081000         03  FILLER  PIC X(19)  VALUE 'ES1  9028 232 000 1'.      08100003
081100         03  FILLER  PIC X(19)  VALUE 'ES2  9029 267 000 1'.      08110003
081200         03  FILLER  PIC X(19)  VALUE 'ES3  9030 358 000 1'.      08120003
081300         03  FILLER  PIC X(19)  VALUE 'HB1  9015 146 000 1'.      08130003
081400         03  FILLER  PIC X(19)  VALUE 'HB2  9016 186 000 1'.      08140003
081500         03  FILLER  PIC X(19)  VALUE 'HC1  9017 148 000 1'.      08150003
081600         03  FILLER  PIC X(19)  VALUE 'HC2  9018 189 000 1'.      08160003
081700         03  FILLER  PIC X(19)  VALUE 'HD1  9018 160 000 1'.      08170003
081800         03  FILLER  PIC X(19)  VALUE 'HD2  9018 204 000 1'.      08180003
081900         03  FILLER  PIC X(19)  VALUE 'HE1  9018 174 000 1'.      08190003
082000         03  FILLER  PIC X(19)  VALUE 'HE2  9018 222 000 1'.      08200003
082100         03  FILLER  PIC X(19)  VALUE 'LB1  9018 114 000 1'.      08210003
082200         03  FILLER  PIC X(19)  VALUE 'LB2  9018 145 000 1'.      08220003
082300         03  FILLER  PIC X(19)  VALUE 'LC1  9018 122 000 1'.      08230003
082400         03  FILLER  PIC X(19)  VALUE 'LC2  9018 156 000 1'.      08240003
082500         03  FILLER  PIC X(19)  VALUE 'LD1  9018 146 000 1'.      08250003
082600         03  FILLER  PIC X(19)  VALUE 'LD2  9018 186 000 1'.      08260003
082700         03  FILLER  PIC X(19)  VALUE 'LE1  9018 154 000 1'.      08270003
082800         03  FILLER  PIC X(19)  VALUE 'LE2  9018 196 000 1'.      08280003
082900         03  FILLER  PIC X(19)  VALUE 'PA1  9001 054 000 1'.      08290003
083000         03  FILLER  PIC X(19)  VALUE 'PA2  9002 059 000 1'.      08300003
083100         03  FILLER  PIC X(19)  VALUE 'PB1  9003 078 000 1'.      08310003
083200         03  FILLER  PIC X(19)  VALUE 'PB2  9004 084 000 1'.      08320003
083300         03  FILLER  PIC X(19)  VALUE 'PC1  9005 102 000 1'.      08330003
083400         03  FILLER  PIC X(19)  VALUE 'PC2  9006 110 000 1'.      08340003
083500         03  FILLER  PIC X(19)  VALUE 'PD1  9007 128 000 1'.      08350003
083600         03  FILLER  PIC X(19)  VALUE 'PD2  9008 138 000 1'.      08360003
083700         03  FILLER  PIC X(19)  VALUE 'PE1  9009 140 000 1'.      08370003
083800         03  FILLER  PIC X(19)  VALUE 'PE2  9010 150 000 1'.      08380003
083900         03  FILLER  PIC X(19)  VALUE 'RHA  9036 091 085 0'.      08390003
084000         03  FILLER  PIC X(19)  VALUE 'RHB  9037 119 085 0'.      08400003
084100         03  FILLER  PIC X(19)  VALUE 'RHC  9038 145 085 0'.      08410003
084200         03  FILLER  PIC X(19)  VALUE 'RHL  9048 215 085 0'.      08420003
084300         03  FILLER  PIC X(19)  VALUE 'RHX  9049 255 085 0'.      08430003
084400         03  FILLER  PIC X(19)  VALUE 'RLA  9031 071 028 0'.      08440003
084500         03  FILLER  PIC X(19)  VALUE 'RLB  9032 150 028 0'.      08450003
084600         03  FILLER  PIC X(19)  VALUE 'RLX  9045 226 028 0'.      08460003
084700         03  FILLER  PIC X(19)  VALUE 'RMA  9033 084 055 0'.      08470003
084800         03  FILLER  PIC X(19)  VALUE 'RMB  9034 122 055 0'.      08480003
084900         03  FILLER  PIC X(19)  VALUE 'RMC  9035 136 055 0'.      08490003
085000         03  FILLER  PIC X(19)  VALUE 'RML  9046 219 055 0'.      08500003
085100         03  FILLER  PIC X(19)  VALUE 'RMX  9047 247 055 0'.      08510003
085200         03  FILLER  PIC X(19)  VALUE 'RUA  9042 099 187 0'.      08520003
085300         03  FILLER  PIC X(19)  VALUE 'RUB  9043 156 187 0'.      08530003
085400         03  FILLER  PIC X(19)  VALUE 'RUC  9044 156 187 0'.      08540003
085500         03  FILLER  PIC X(19)  VALUE 'RUL  9052 257 187 0'.      08550003
085600         03  FILLER  PIC X(19)  VALUE 'RUX  9053 267 187 0'.      08560003
085700         03  FILLER  PIC X(19)  VALUE 'RVA  9039 110 128 0'.      08570003
085800         03  FILLER  PIC X(19)  VALUE 'RVB  9040 111 128 0'.      08580003
085900         03  FILLER  PIC X(19)  VALUE 'RVC  9041 151 128 0'.      08590003
086000         03  FILLER  PIC X(19)  VALUE 'RVL  9050 219 128 0'.      08600003
086100         03  FILLER  PIC X(19)  VALUE 'RVX  9051 261 128 0'.      08610003
086200     02  RUG67-2012-DATA2 REDEFINES RUG67-2012-DATA1 OCCURS 67    08620000
086300             ASCENDING KEY IS RUG67-2012-CODE                     08630000
086400             INDEXED BY RUG67-2012-01.                            08640000
086500         03  RUG67-2012-CODE     PIC X(03).                       08650000
086600         03  RUG67-2012-REGS        OCCURS 1.                     08660000
086700             04  FILLER        PIC XX.                            08670000
086800             04  REV67-2012-CODE      PIC XXXX.                   08680000
086900             04  FILLER        PIC X.                             08690000
087000             04  RUG67-2012-NURSING PIC 9V99.                     08700000
087100             04  FILLER        PIC X.                             08710000
087200             04  RUG67-2012-THERAPY PIC 9V99.                     08720000
087300             04  FILLER        PIC X.                             08730000
087400             04  RUG67-2012-FACTOR PIC 9.                         08740000
087500                                                                  08750000
087600*********************>>  2013  <<**********************           08760000
087700                                                                  08770000
087800                                                                  08780000
087900***************************************************************   08790000
088000*  LAYUP TABLE AREA FOR RUG 67 CODES FOR FY2013               *   08800000
088100*  EFFECTIVE OCT  1, 2012                                     *   08810000
088200*  FORMAT FOR RUG TABLE 67                                    *   08820000
088300*    N = NURSING   T = THERAPY  F = THERAPY COMPONENT FACTOR  *   08830000
088400***************************************************************   08840000
088500 01  RUG67-2013-TABLE.                                            08850000
088600     02  RUG67-2013-DATA1.                                        08860000
088700*                                      RUG  REV                   08870000
088800*                                      CODE CODE N - T - F        08880000
088900         03  FILLER  PIC X(19)  VALUE 'AAA  9000 054 000 1'.      08890003
089000         03  FILLER  PIC X(19)  VALUE 'BA1  9011 064 000 1'.      08900003
089100         03  FILLER  PIC X(19)  VALUE 'BA2  9012 070 000 1'.      08910003
089200         03  FILLER  PIC X(19)  VALUE 'BB1  9013 090 000 1'.      08920003
089300         03  FILLER  PIC X(19)  VALUE 'BB2  9014 097 000 1'.      08930003
089400         03  FILLER  PIC X(19)  VALUE 'CA1  9019 078 000 1'.      08940003
089500         03  FILLER  PIC X(19)  VALUE 'CA2  9020 088 000 1'.      08950003
089600         03  FILLER  PIC X(19)  VALUE 'CB1  9021 102 000 1'.      08960003
089700         03  FILLER  PIC X(19)  VALUE 'CB2  9022 115 000 1'.      08970003
089800         03  FILLER  PIC X(19)  VALUE 'CC1  9023 115 000 1'.      08980003
089900         03  FILLER  PIC X(19)  VALUE 'CC2  9024 129 000 1'.      08990003
090000         03  FILLER  PIC X(19)  VALUE 'CD1  9024 138 000 1'.      09000003
090100         03  FILLER  PIC X(19)  VALUE 'CD2  9024 156 000 1'.      09010003
090200         03  FILLER  PIC X(19)  VALUE 'CE1  9024 150 000 1'.      09020003
090300         03  FILLER  PIC X(19)  VALUE 'CE2  9028 168 000 1'.      09030003
090400         03  FILLER  PIC X(19)  VALUE 'ES1  9028 232 000 1'.      09040003
090500         03  FILLER  PIC X(19)  VALUE 'ES2  9029 267 000 1'.      09050003
090600         03  FILLER  PIC X(19)  VALUE 'ES3  9030 358 000 1'.      09060003
090700         03  FILLER  PIC X(19)  VALUE 'HB1  9015 146 000 1'.      09070003
090800         03  FILLER  PIC X(19)  VALUE 'HB2  9016 186 000 1'.      09080003
090900         03  FILLER  PIC X(19)  VALUE 'HC1  9017 148 000 1'.      09090003
091000         03  FILLER  PIC X(19)  VALUE 'HC2  9018 189 000 1'.      09100003
091100         03  FILLER  PIC X(19)  VALUE 'HD1  9018 160 000 1'.      09110003
091200         03  FILLER  PIC X(19)  VALUE 'HD2  9018 204 000 1'.      09120003
091300         03  FILLER  PIC X(19)  VALUE 'HE1  9018 174 000 1'.      09130003
091400         03  FILLER  PIC X(19)  VALUE 'HE2  9018 222 000 1'.      09140003
091500         03  FILLER  PIC X(19)  VALUE 'LB1  9018 114 000 1'.      09150003
091600         03  FILLER  PIC X(19)  VALUE 'LB2  9018 145 000 1'.      09160003
091700         03  FILLER  PIC X(19)  VALUE 'LC1  9018 122 000 1'.      09170003
091800         03  FILLER  PIC X(19)  VALUE 'LC2  9018 156 000 1'.      09180003
091900         03  FILLER  PIC X(19)  VALUE 'LD1  9018 146 000 1'.      09190003
092000         03  FILLER  PIC X(19)  VALUE 'LD2  9018 186 000 1'.      09200003
092100         03  FILLER  PIC X(19)  VALUE 'LE1  9018 154 000 1'.      09210003
092200         03  FILLER  PIC X(19)  VALUE 'LE2  9018 196 000 1'.      09220003
092300         03  FILLER  PIC X(19)  VALUE 'PA1  9001 054 000 1'.      09230003
092400         03  FILLER  PIC X(19)  VALUE 'PA2  9002 059 000 1'.      09240003
092500         03  FILLER  PIC X(19)  VALUE 'PB1  9003 078 000 1'.      09250003
092600         03  FILLER  PIC X(19)  VALUE 'PB2  9004 084 000 1'.      09260003
092700         03  FILLER  PIC X(19)  VALUE 'PC1  9005 102 000 1'.      09270003
092800         03  FILLER  PIC X(19)  VALUE 'PC2  9006 110 000 1'.      09280003
092900         03  FILLER  PIC X(19)  VALUE 'PD1  9007 128 000 1'.      09290003
093000         03  FILLER  PIC X(19)  VALUE 'PD2  9008 138 000 1'.      09300003
093100         03  FILLER  PIC X(19)  VALUE 'PE1  9009 140 000 1'.      09310003
093200         03  FILLER  PIC X(19)  VALUE 'PE2  9010 150 000 1'.      09320003
093300         03  FILLER  PIC X(19)  VALUE 'RHA  9036 091 085 0'.      09330003
093400         03  FILLER  PIC X(19)  VALUE 'RHB  9037 119 085 0'.      09340003
093500         03  FILLER  PIC X(19)  VALUE 'RHC  9038 145 085 0'.      09350003
093600         03  FILLER  PIC X(19)  VALUE 'RHL  9048 215 085 0'.      09360003
093700         03  FILLER  PIC X(19)  VALUE 'RHX  9049 255 085 0'.      09370003
093800         03  FILLER  PIC X(19)  VALUE 'RLA  9031 071 028 0'.      09380003
093900         03  FILLER  PIC X(19)  VALUE 'RLB  9032 150 028 0'.      09390003
094000         03  FILLER  PIC X(19)  VALUE 'RLX  9045 226 028 0'.      09400003
094100         03  FILLER  PIC X(19)  VALUE 'RMA  9033 084 055 0'.      09410003
094200         03  FILLER  PIC X(19)  VALUE 'RMB  9034 122 055 0'.      09420003
094300         03  FILLER  PIC X(19)  VALUE 'RMC  9035 136 055 0'.      09430003
094400         03  FILLER  PIC X(19)  VALUE 'RML  9046 219 055 0'.      09440003
094500         03  FILLER  PIC X(19)  VALUE 'RMX  9047 247 055 0'.      09450003
094600         03  FILLER  PIC X(19)  VALUE 'RUA  9042 099 187 0'.      09460003
094700         03  FILLER  PIC X(19)  VALUE 'RUB  9043 156 187 0'.      09470003
094800         03  FILLER  PIC X(19)  VALUE 'RUC  9044 156 187 0'.      09480003
094900         03  FILLER  PIC X(19)  VALUE 'RUL  9052 257 187 0'.      09490003
095000         03  FILLER  PIC X(19)  VALUE 'RUX  9053 267 187 0'.      09500003
095100         03  FILLER  PIC X(19)  VALUE 'RVA  9039 110 128 0'.      09510003
095200         03  FILLER  PIC X(19)  VALUE 'RVB  9040 111 128 0'.      09520003
095300         03  FILLER  PIC X(19)  VALUE 'RVC  9041 151 128 0'.      09530003
095400         03  FILLER  PIC X(19)  VALUE 'RVL  9050 219 128 0'.      09540003
095500         03  FILLER  PIC X(19)  VALUE 'RVX  9051 261 128 0'.      09550003
095600     02  RUG67-2013-DATA2 REDEFINES RUG67-2013-DATA1 OCCURS 67    09560000
095700             ASCENDING KEY IS RUG67-2013-CODE                     09570000
095800             INDEXED BY RUG67-2013-01.                            09580000
095900         03  RUG67-2013-CODE     PIC X(03).                       09590000
096000         03  RUG67-2013-REGS        OCCURS 1.                     09600000
096100             04  FILLER        PIC XX.                            09610000
096200             04  REV67-2013-CODE      PIC XXXX.                   09620000
096300             04  FILLER        PIC X.                             09630000
096400             04  RUG67-2013-NURSING PIC 9V99.                     09640000
096500             04  FILLER        PIC X.                             09650000
096600             04  RUG67-2013-THERAPY PIC 9V99.                     09660000
096700             04  FILLER        PIC X.                             09670000
096800             04  RUG67-2013-FACTOR PIC 9.                         09680000
096900                                                                  09690000
097000                                                                  09700000
097100                                                                  09710000
097200*********************>>  2013  <<**********************           09720000
097300*********************>>  2014  <<**********************           09730000
097400                                                                  09740000
097500                                                                  09750000
097600***************************************************************   09760000
097700*  LAYUP TABLE AREA FOR RUG 67 CODES FOR FY2014               *   09770000
097800*  EFFECTIVE OCT  1, 2013                                     *   09780000
097900*  FORMAT FOR RUG TABLE 67                                    *   09790000
098000*    N = NURSING   T = THERAPY  F = THERAPY COMPONENT FACTOR  *   09800000
098100***************************************************************   09810000
098200 01  RUG67-2014-TABLE.                                            09820000
098300     02  RUG67-2014-DATA1.                                        09830000
098400*                                      RUG  REV                   09840000
098500*                                      CODE CODE N - T - F        09850000
098600         03  FILLER  PIC X(19)  VALUE 'AAA  9000 054 000 1'.      09860003
098700         03  FILLER  PIC X(19)  VALUE 'BA1  9011 064 000 1'.      09870003
098800         03  FILLER  PIC X(19)  VALUE 'BA2  9012 070 000 1'.      09880003
098900         03  FILLER  PIC X(19)  VALUE 'BB1  9013 090 000 1'.      09890003
099000         03  FILLER  PIC X(19)  VALUE 'BB2  9014 097 000 1'.      09900003
099100         03  FILLER  PIC X(19)  VALUE 'CA1  9019 078 000 1'.      09910003
099200         03  FILLER  PIC X(19)  VALUE 'CA2  9020 088 000 1'.      09920003
099300         03  FILLER  PIC X(19)  VALUE 'CB1  9021 102 000 1'.      09930003
099400         03  FILLER  PIC X(19)  VALUE 'CB2  9022 115 000 1'.      09940003
099500         03  FILLER  PIC X(19)  VALUE 'CC1  9023 115 000 1'.      09950003
099600         03  FILLER  PIC X(19)  VALUE 'CC2  9024 129 000 1'.      09960003
099700         03  FILLER  PIC X(19)  VALUE 'CD1  9024 138 000 1'.      09970003
099800         03  FILLER  PIC X(19)  VALUE 'CD2  9024 156 000 1'.      09980003
099900         03  FILLER  PIC X(19)  VALUE 'CE1  9024 150 000 1'.      09990003
100000         03  FILLER  PIC X(19)  VALUE 'CE2  9028 168 000 1'.      10000003
100100         03  FILLER  PIC X(19)  VALUE 'ES1  9028 232 000 1'.      10010003
100200         03  FILLER  PIC X(19)  VALUE 'ES2  9029 267 000 1'.      10020003
100300         03  FILLER  PIC X(19)  VALUE 'ES3  9030 358 000 1'.      10030003
100400         03  FILLER  PIC X(19)  VALUE 'HB1  9015 146 000 1'.      10040003
100500         03  FILLER  PIC X(19)  VALUE 'HB2  9016 186 000 1'.      10050003
100600         03  FILLER  PIC X(19)  VALUE 'HC1  9017 148 000 1'.      10060003
100700         03  FILLER  PIC X(19)  VALUE 'HC2  9018 189 000 1'.      10070003
100800         03  FILLER  PIC X(19)  VALUE 'HD1  9018 160 000 1'.      10080003
100900         03  FILLER  PIC X(19)  VALUE 'HD2  9018 204 000 1'.      10090003
101000         03  FILLER  PIC X(19)  VALUE 'HE1  9018 174 000 1'.      10100003
101100         03  FILLER  PIC X(19)  VALUE 'HE2  9018 222 000 1'.      10110003
101200         03  FILLER  PIC X(19)  VALUE 'LB1  9018 114 000 1'.      10120003
101300         03  FILLER  PIC X(19)  VALUE 'LB2  9018 145 000 1'.      10130003
101400         03  FILLER  PIC X(19)  VALUE 'LC1  9018 122 000 1'.      10140003
101500         03  FILLER  PIC X(19)  VALUE 'LC2  9018 156 000 1'.      10150003
101600         03  FILLER  PIC X(19)  VALUE 'LD1  9018 146 000 1'.      10160003
101700         03  FILLER  PIC X(19)  VALUE 'LD2  9018 186 000 1'.      10170003
101800         03  FILLER  PIC X(19)  VALUE 'LE1  9018 154 000 1'.      10180003
101900         03  FILLER  PIC X(19)  VALUE 'LE2  9018 196 000 1'.      10190003
102000         03  FILLER  PIC X(19)  VALUE 'PA1  9001 054 000 1'.      10200003
102100         03  FILLER  PIC X(19)  VALUE 'PA2  9002 059 000 1'.      10210003
102200         03  FILLER  PIC X(19)  VALUE 'PB1  9003 078 000 1'.      10220003
102300         03  FILLER  PIC X(19)  VALUE 'PB2  9004 084 000 1'.      10230003
102400         03  FILLER  PIC X(19)  VALUE 'PC1  9005 102 000 1'.      10240003
102500         03  FILLER  PIC X(19)  VALUE 'PC2  9006 110 000 1'.      10250003
102600         03  FILLER  PIC X(19)  VALUE 'PD1  9007 128 000 1'.      10260003
102700         03  FILLER  PIC X(19)  VALUE 'PD2  9008 138 000 1'.      10270003
102800         03  FILLER  PIC X(19)  VALUE 'PE1  9009 140 000 1'.      10280003
102900         03  FILLER  PIC X(19)  VALUE 'PE2  9010 150 000 1'.      10290003
103000         03  FILLER  PIC X(19)  VALUE 'RHA  9036 091 085 0'.      10300003
103100         03  FILLER  PIC X(19)  VALUE 'RHB  9037 119 085 0'.      10310003
103200         03  FILLER  PIC X(19)  VALUE 'RHC  9038 145 085 0'.      10320003
103300         03  FILLER  PIC X(19)  VALUE 'RHL  9048 215 085 0'.      10330003
103400         03  FILLER  PIC X(19)  VALUE 'RHX  9049 255 085 0'.      10340003
103500         03  FILLER  PIC X(19)  VALUE 'RLA  9031 071 028 0'.      10350003
103600         03  FILLER  PIC X(19)  VALUE 'RLB  9032 150 028 0'.      10360003
103700         03  FILLER  PIC X(19)  VALUE 'RLX  9045 226 028 0'.      10370003
103800         03  FILLER  PIC X(19)  VALUE 'RMA  9033 084 055 0'.      10380003
103900         03  FILLER  PIC X(19)  VALUE 'RMB  9034 122 055 0'.      10390003
104000         03  FILLER  PIC X(19)  VALUE 'RMC  9035 136 055 0'.      10400003
104100         03  FILLER  PIC X(19)  VALUE 'RML  9046 219 055 0'.      10410003
104200         03  FILLER  PIC X(19)  VALUE 'RMX  9047 247 055 0'.      10420003
104300         03  FILLER  PIC X(19)  VALUE 'RUA  9042 099 187 0'.      10430003
104400         03  FILLER  PIC X(19)  VALUE 'RUB  9043 156 187 0'.      10440003
104500         03  FILLER  PIC X(19)  VALUE 'RUC  9044 156 187 0'.      10450003
104600         03  FILLER  PIC X(19)  VALUE 'RUL  9052 257 187 0'.      10460003
104700         03  FILLER  PIC X(19)  VALUE 'RUX  9053 267 187 0'.      10470003
104800         03  FILLER  PIC X(19)  VALUE 'RVA  9039 110 128 0'.      10480003
104900         03  FILLER  PIC X(19)  VALUE 'RVB  9040 111 128 0'.      10490003
105000         03  FILLER  PIC X(19)  VALUE 'RVC  9041 151 128 0'.      10500003
105100         03  FILLER  PIC X(19)  VALUE 'RVL  9050 219 128 0'.      10510003
105200         03  FILLER  PIC X(19)  VALUE 'RVX  9051 261 128 0'.      10520003
105300     02  RUG67-2014-DATA2 REDEFINES RUG67-2014-DATA1 OCCURS 67    10530000
105400             ASCENDING KEY IS RUG67-2014-CODE                     10540000
105500             INDEXED BY RUG67-2014-01.                            10550000
105600         03  RUG67-2014-CODE     PIC X(03).                       10560000
105700         03  RUG67-2014-REGS        OCCURS 1.                     10570000
105800             04  FILLER               PIC XX.                     10580000
105900             04  REV67-2014-CODE      PIC XXXX.                   10590000
106000             04  FILLER               PIC X.                      10600000
106100             04  RUG67-2014-NURSING   PIC 9V99.                   10610000
106200             04  FILLER               PIC X.                      10620000
106300             04  RUG67-2014-THERAPY   PIC 9V99.                   10630000
106400             04  FILLER               PIC X.                      10640000
106500             04  RUG67-2014-FACTOR    PIC 9.                      10650000
106600                                                                  10660000
106700                                                                  10670000
106800                                                                  10680000
106900*********************>>  2014  <<**********************           10690000
107000*********************>>  2015  <<**********************           10700000
107100                                                                  10710000
107200                                                                  10720000
107300***************************************************************   10730000
107400*  LAYUP TABLE AREA FOR RUG 67 CODES FOR FY2015               *   10740000
107500*  EFFECTIVE OCT  1, 2014                                     *   10750000
107600*  FORMAT FOR RUG TABLE 67                                    *   10760000
107700*    N = NURSING   T = THERAPY  F = THERAPY COMPONENT FACTOR  *   10770000
107800***************************************************************   10780000
107900 01  RUG67-2015-TABLE.                                            10790000
108000     02  RUG67-2015-DATA1.                                        10800000
108100*                                      RUG  REV                   10810000
108200*                                      CODE CODE N - T - F        10820000
108300         03  FILLER  PIC X(19)  VALUE 'AAA  9000 054 000 1'.      10830003
108400         03  FILLER  PIC X(19)  VALUE 'BA1  9011 064 000 1'.      10840003
108500         03  FILLER  PIC X(19)  VALUE 'BA2  9012 070 000 1'.      10850003
108600         03  FILLER  PIC X(19)  VALUE 'BB1  9013 090 000 1'.      10860003
108700         03  FILLER  PIC X(19)  VALUE 'BB2  9014 097 000 1'.      10870003
108800         03  FILLER  PIC X(19)  VALUE 'CA1  9019 078 000 1'.      10880003
108900         03  FILLER  PIC X(19)  VALUE 'CA2  9020 088 000 1'.      10890003
109000         03  FILLER  PIC X(19)  VALUE 'CB1  9021 102 000 1'.      10900003
109100         03  FILLER  PIC X(19)  VALUE 'CB2  9022 115 000 1'.      10910003
109200         03  FILLER  PIC X(19)  VALUE 'CC1  9023 115 000 1'.      10920003
109300         03  FILLER  PIC X(19)  VALUE 'CC2  9024 129 000 1'.      10930003
109400         03  FILLER  PIC X(19)  VALUE 'CD1  9024 138 000 1'.      10940003
109500         03  FILLER  PIC X(19)  VALUE 'CD2  9024 156 000 1'.      10950003
109600         03  FILLER  PIC X(19)  VALUE 'CE1  9024 150 000 1'.      10960003
109700         03  FILLER  PIC X(19)  VALUE 'CE2  9028 168 000 1'.      10970003
109800         03  FILLER  PIC X(19)  VALUE 'ES1  9028 232 000 1'.      10980003
109900         03  FILLER  PIC X(19)  VALUE 'ES2  9029 267 000 1'.      10990003
110000         03  FILLER  PIC X(19)  VALUE 'ES3  9030 358 000 1'.      11000003
110100         03  FILLER  PIC X(19)  VALUE 'HB1  9015 146 000 1'.      11010003
110200         03  FILLER  PIC X(19)  VALUE 'HB2  9016 186 000 1'.      11020003
110300         03  FILLER  PIC X(19)  VALUE 'HC1  9017 148 000 1'.      11030003
110400         03  FILLER  PIC X(19)  VALUE 'HC2  9018 189 000 1'.      11040003
110500         03  FILLER  PIC X(19)  VALUE 'HD1  9018 160 000 1'.      11050003
110600         03  FILLER  PIC X(19)  VALUE 'HD2  9018 204 000 1'.      11060003
110700         03  FILLER  PIC X(19)  VALUE 'HE1  9018 174 000 1'.      11070003
110800         03  FILLER  PIC X(19)  VALUE 'HE2  9018 222 000 1'.      11080003
110900         03  FILLER  PIC X(19)  VALUE 'LB1  9018 114 000 1'.      11090003
111000         03  FILLER  PIC X(19)  VALUE 'LB2  9018 145 000 1'.      11100003
111100         03  FILLER  PIC X(19)  VALUE 'LC1  9018 122 000 1'.      11110003
111200         03  FILLER  PIC X(19)  VALUE 'LC2  9018 156 000 1'.      11120003
111300         03  FILLER  PIC X(19)  VALUE 'LD1  9018 146 000 1'.      11130003
111400         03  FILLER  PIC X(19)  VALUE 'LD2  9018 186 000 1'.      11140003
111500         03  FILLER  PIC X(19)  VALUE 'LE1  9018 154 000 1'.      11150003
111600         03  FILLER  PIC X(19)  VALUE 'LE2  9018 196 000 1'.      11160003
111700         03  FILLER  PIC X(19)  VALUE 'PA1  9001 054 000 1'.      11170003
111800         03  FILLER  PIC X(19)  VALUE 'PA2  9002 059 000 1'.      11180003
111900         03  FILLER  PIC X(19)  VALUE 'PB1  9003 078 000 1'.      11190003
112000         03  FILLER  PIC X(19)  VALUE 'PB2  9004 084 000 1'.      11200003
112100         03  FILLER  PIC X(19)  VALUE 'PC1  9005 102 000 1'.      11210003
112200         03  FILLER  PIC X(19)  VALUE 'PC2  9006 110 000 1'.      11220003
112300         03  FILLER  PIC X(19)  VALUE 'PD1  9007 128 000 1'.      11230003
112400         03  FILLER  PIC X(19)  VALUE 'PD2  9008 138 000 1'.      11240003
112500         03  FILLER  PIC X(19)  VALUE 'PE1  9009 140 000 1'.      11250003
112600         03  FILLER  PIC X(19)  VALUE 'PE2  9010 150 000 1'.      11260003
112700         03  FILLER  PIC X(19)  VALUE 'RHA  9036 091 085 0'.      11270003
112800         03  FILLER  PIC X(19)  VALUE 'RHB  9037 119 085 0'.      11280003
112900         03  FILLER  PIC X(19)  VALUE 'RHC  9038 145 085 0'.      11290003
113000         03  FILLER  PIC X(19)  VALUE 'RHL  9048 215 085 0'.      11300003
113100         03  FILLER  PIC X(19)  VALUE 'RHX  9049 255 085 0'.      11310003
113200         03  FILLER  PIC X(19)  VALUE 'RLA  9031 071 028 0'.      11320003
113300         03  FILLER  PIC X(19)  VALUE 'RLB  9032 150 028 0'.      11330003
113400         03  FILLER  PIC X(19)  VALUE 'RLX  9045 226 028 0'.      11340003
113500         03  FILLER  PIC X(19)  VALUE 'RMA  9033 084 055 0'.      11350003
113600         03  FILLER  PIC X(19)  VALUE 'RMB  9034 122 055 0'.      11360003
113700         03  FILLER  PIC X(19)  VALUE 'RMC  9035 136 055 0'.      11370003
113800         03  FILLER  PIC X(19)  VALUE 'RML  9046 219 055 0'.      11380003
113900         03  FILLER  PIC X(19)  VALUE 'RMX  9047 247 055 0'.      11390003
114000         03  FILLER  PIC X(19)  VALUE 'RUA  9042 099 187 0'.      11400003
114100         03  FILLER  PIC X(19)  VALUE 'RUB  9043 156 187 0'.      11410003
114200         03  FILLER  PIC X(19)  VALUE 'RUC  9044 156 187 0'.      11420003
114300         03  FILLER  PIC X(19)  VALUE 'RUL  9052 257 187 0'.      11430003
114400         03  FILLER  PIC X(19)  VALUE 'RUX  9053 267 187 0'.      11440003
114500         03  FILLER  PIC X(19)  VALUE 'RVA  9039 110 128 0'.      11450003
114600         03  FILLER  PIC X(19)  VALUE 'RVB  9040 111 128 0'.      11460003
114700         03  FILLER  PIC X(19)  VALUE 'RVC  9041 151 128 0'.      11470003
114800         03  FILLER  PIC X(19)  VALUE 'RVL  9050 219 128 0'.      11480003
114900         03  FILLER  PIC X(19)  VALUE 'RVX  9051 261 128 0'.      11490003
115000     02  RUG67-2015-DATA2 REDEFINES RUG67-2015-DATA1 OCCURS 67    11500000
115100             ASCENDING KEY IS RUG67-2015-CODE                     11510000
115200             INDEXED BY RUG67-2015-01.                            11520000
115300         03  RUG67-2015-CODE     PIC X(03).                       11530000
115400         03  RUG67-2015-REGS        OCCURS 1.                     11540000
115500             04  FILLER               PIC XX.                     11550000
115600             04  REV67-2015-CODE      PIC XXXX.                   11560000
115700             04  FILLER               PIC X.                      11570000
115800             04  RUG67-2015-NURSING   PIC 9V99.                   11580000
115900             04  FILLER               PIC X.                      11590000
116000             04  RUG67-2015-THERAPY   PIC 9V99.                   11600000
116100             04  FILLER               PIC X.                      11610000
116200             04  RUG67-2015-FACTOR    PIC 9.                      11620000
116300                                                                  11630000
116400                                                                  11640000
116500                                                                  11650000
116600*********************>>  2015  <<**********************           11660000
116700 LINKAGE SECTION.                                                 11670000
116800***************************************************************   11680000
116900*                 * * * * * * * * *                           *   11690000
117000***************************************************************   11700000
117100***************************************************************   11710000
117200*    THIS DATA IS CALCULATED BY THIS SNFPR  SUBROUTINE        *   11720000
117300*    AND PASSED BACK TO THE CALLING PROGRAM                   *   11730000
117400*            RETURN CODE VALUES (SNF-RTC)                     *   11740000
117500*                                                             *   11750000
117600*            SNF-RTC                                          *   11760000
117700*              00 = RUG III GROUP RATE RETURNED               *   11770000
117800*                                                             *   11780000
117900*            SNF-RTC   NO RATE RETURNED                       *   11790000
118000*                                                             *   11800000
118100*              20 = INVALID RUG CODE                          *   11810000
118200*                                                             *   11820000
118300*              30 = INVALID MSA OR CBSA OR WAGE INDEX         *   11830000
118400*                                                             *   11840000
118500*              40 = THRU DATE < JULY 1 1998 OR INVALID        *   11850000
118600*                                                             *   11860000
118700*              50 = INVALID FEDERAL BLEND FOR THAT YEAR       *   11870000
118800*                                                             *   11880000
118900*              60 = INVALID FEDERAL BLEND                     *   11890000
119000*                                                             *   11900000
119100*              61 = FEDERAL BLEND = 0 AND                     *   11910000
119200*                   SNF THRU DATE < JAN 1, 2000               *   11920000
119300*                                                             *   11930000
119400***************************************************************   11940000
119500*     IP-RATE, GS-RATE, MDS-RATE, THERAPY, REHAB              *   11950000
119600***************************************************************   11960000
119700 01  SNF-DATA.                                                    11970000
119800     10  SNF-MSA               PIC XXXX.                          11980000
119900     10  SNF-CBSA              PIC XXXXX.                         11990000
120000     10  SNF-SPEC-WI-IND       PIC X.                             12000000
120100     10  SNF-SPEC-WI           PIC 9(02)V9(04).                   12010000
120200     10  SNF-RUG-CODE.                                            12020000
120300         15  SNF-RUG           PIC XXX.                           12030000
120400         15  FILLER            PIC XX.                            12040000
120500                                                                  12050000
120600     10  SNF-FROM-DATE.                                           12060000
120700         15  SNF-FROM-CC        PIC XX.                           12070000
120800         15  SNF-FROM-YY        PIC XX.                           12080000
120900         15  SNF-FROM-MM        PIC XX.                           12090000
121000         15  SNF-FROM-DD        PIC XX.                           12100000
121100                                                                  12110000
121200     10  SNF-THRU-DATE.                                           12120000
121300         15  SNF-THRU-CC       PIC XX.                            12130000
121400         15  SNF-THRU-YY       PIC XX.                            12140000
121500         15  SNF-THRU-MM       PIC XX.                            12150000
121600         15  SNF-THRU-DD       PIC XX.                            12160000
121700                                                                  12170000
121800     10  SNF-FED-BLEND         PIC X.                             12180000
121900         88  SNF-ALL-FACILITY      VALUE '0'.                     12190000
122000         88  SNF-FED-BLEND-2575PER VALUE '1'.                     12200000
122100         88  SNF-FED-BLEND-5050PER VALUE '2'.                     12210000
122200         88  SNF-FED-BLEND-7525PER VALUE '3'.                     12220000
122300         88  SNF-FED-BLEND-100PER  VALUE '4'.                     12230000
122400     10  SNF-FACILITY-RATE     PIC 9(05)V99.                      12240000
122500     10  SNF-DIAGNOSIS-CODES.                                     12250000
122600         15  SNF-PRIN-DIAG-CODE    PIC X(07).                     12260000
122700         15  SNF-OTHER-DIAG-CODE2  PIC X(07).                     12270000
122800         15  SNF-OTHER-DIAG-CODE3  PIC X(07).                     12280000
122900         15  SNF-OTHER-DIAG-CODE4  PIC X(07).                     12290000
123000         15  SNF-OTHER-DIAG-CODE5  PIC X(07).                     12300000
123100         15  SNF-OTHER-DIAG-CODE6  PIC X(07).                     12310000
123200         15  SNF-OTHER-DIAG-CODE7  PIC X(07).                     12320000
123300         15  SNF-OTHER-DIAG-CODE8  PIC X(07).                     12330000
123400         15  SNF-OTHER-DIAG-CODE9  PIC X(07).                     12340000
123500         15  SNF-OTHER-DIAG-CODE10 PIC X(07).                     12350000
123600         15  SNF-OTHER-DIAG-CODE11 PIC X(07).                     12360000
123700         15  SNF-OTHER-DIAG-CODE12 PIC X(07).                     12370000
123800         15  SNF-OTHER-DIAG-CODE13 PIC X(07).                     12380000
123900         15  SNF-OTHER-DIAG-CODE14 PIC X(07).                     12390000
124000         15  SNF-OTHER-DIAG-CODE15 PIC X(07).                     12400000
124100         15  SNF-OTHER-DIAG-CODE16 PIC X(07).                     12410000
124200         15  SNF-OTHER-DIAG-CODE17 PIC X(07).                     12420000
124300         15  SNF-OTHER-DIAG-CODE18 PIC X(07).                     12430000
124400         15  SNF-OTHER-DIAG-CODE19 PIC X(07).                     12440000
124500         15  SNF-OTHER-DIAG-CODE20 PIC X(07).                     12450000
124600         15  SNF-OTHER-DIAG-CODE21 PIC X(07).                     12460000
124700         15  SNF-OTHER-DIAG-CODE22 PIC X(07).                     12470000
124800         15  SNF-OTHER-DIAG-CODE23 PIC X(07).                     12480000
124900         15  SNF-OTHER-DIAG-CODE24 PIC X(07).                     12490000
125000         15  SNF-OTHER-DIAG-CODE25 PIC X(07).                     12500000
125100     10  SNF-RATE-RTC.                                            12510000
125200         15  SNF-PAYMENT-RATE      PIC 9(06)V99.                  12520000
125300         15  SNF-RTC               PIC XX.                        12530000
125400     10  FILLER                    PIC X(24).                     12540000
125500                                                                  12550000
125600 01  HOLD-VARIABLES.                                              12560000
125700     02  HOLD-VAR-DATA.                                           12570000
125800         05  FACTOR                         PIC 9.                12580000
125900         05  NUR-INDEX                      PIC 9V99.             12590000
126000         05  THR-INDEX                      PIC 9V99.             12600000
126100         05  AREA-WAGE-INDEX                PIC 9(01)V9(04).      12610000
126200         05  IP-RATE                        PIC 9(03)V9(02).      12620000
126300         05  GS-RATE                        PIC 9(02)V9(02).      12630000
126400         05  TH-RATE                        PIC 9(02)V9(02).      12640000
126500         05  REHAB-RATE                     PIC 9(03)V9(02).      12650000
126600         05  NURSING-COMPONENT              PIC 999V99.           12660000
126700         05  THERAPY-COMPONENT              PIC 999V99.           12670000
126800         05  NCM-THR-COMPONENT              PIC 999V99.           12680000
126900         05  NCM-COMPONENT                  PIC 999V99.           12690000
127000         05  PAYMENT-RATE-ADJ               PIC 9(06)V99.         12700000
127100         05  FED-PAYMENT-PORTION            PIC 9(06)V99.         12710000
127200     02  SNFPR-VERSION                      PIC X(09).            12720000
127300                                                                  12730000
127400 01  MSA-WAGE-INDEX-RECORD.                                       12740000
127500     02  HOLD-MSA-WIR-DATA.                                       12750000
127600         05  MSA-WIR-MSA             PIC X(04).                   12760000
127700         05  MSA-WIR-EFFDATE         PIC X(08).                   12770000
127800         05  MSA-WIR-AREA-WAGEIND    PIC 9(02)V9(04).             12780000
127900                                                                  12790000
128000 01  CBSA-WAGE-INDEX-RECORD.                                      12800000
128100     02  HOLD-CBSA-WIR-DATA.                                      12810000
128200         05  CBSA-WIR-CBSA            PIC X(05).                  12820000
128300         05  CBSA-WIR-EFFDATE         PIC X(08).                  12830000
128400         05  CBSA-WIR-AREA-WAGEIND    PIC 9(02)V9(04).            12840000
128500                                                                  12850000
128600 PROCEDURE DIVISION            USING SNF-DATA                     12860000
128700                                     HOLD-VARIABLES               12870000
128800                                     CBSA-WAGE-INDEX-RECORD       12880000
128900                                     MSA-WAGE-INDEX-RECORD.       12890000
129000                                                                  12900000
129100***************************************************************   12910000
129200*    PROCESSING:                                              *   12920000
129300*        -  WILL PROCESS ALL NATIONAL SNF FOR 1998 THRU 2009  *   12930001
129400*                STARTING JULY 1, 1998                        *   12940000
129500***************************************************************   12950000
129600                                                                  12960000
129700     PERFORM 0200-MAINLINE-CONTROL.                               12970000
129800                                                                  12980000
129900     MOVE HOLD-SNF-DATA        TO SNF-DATA.                       12990000
130000                                                                  13000000
130100     GOBACK.                                                      13010000
130200                                                                  13020000
130300 0200-MAINLINE-CONTROL.                                           13030000
130400                                                                  13040000
130500     MOVE SNF-DATA             TO HOLD-SNF-DATA.                  13050000
130600                                                                  13060000
130700     MOVE ALL '0'              TO HLD-RATE-RTC                    13070000
130800                                  HOLD-VAR-DATA                   13080000
130900                                  WK-PAYMENT-RATE                 13090000
131000                                  WK-FACILITY-RATE.               13100000
131100                                                                  13110000
131200     MOVE CAL-VERSION          TO SNFPR-VERSION.                  13120000
131300                                                                  13130000
131400     IF  HLD-RTC = 00                                             13140000
131500         PERFORM 400-CALC-THE-SNF                                 13150000
131600            THRU 400-EXIT.                                        13160000
131700                                                                  13170000
131800 400-CALC-THE-SNF.                                                13180000
131900                                                                  13190003
132000     MOVE HLD-FROM-DATE        TO HLD-PRICE-FROM-DATE             13200003
132100                                                                  13210003
132200     MOVE HLD-THRU-DATE        TO HLD-PRICE-THRU-DATE             13220003
132300                                                                  13230003
132400     IF HLD-PRICE-THRU-MMDD = '1001' AND                          13240003
132500        HLD-PRICE-FROM-DATE < HLD-PRICE-THRU-DATE                 13250003
132600        MOVE '0930'            TO HLD-PRICE-THRU-MMDD.            13260003
132700                                                                  13270003
132800     IF HLD-THRU-DATE < 19980701                                  13280000
132900         MOVE '40'             TO HLD-RTC.                        13290000
133000                                                                  13300000
133100     IF HLD-RTC NOT = 00                                          13310000
133200            GO TO 400-EXIT.                                       13320000
133300                                                                  13330000
133400**************YEARCHANGE 2015.0 *******************************   13340003
133500     IF HLD-PRICE-THRU-DATE > 20140930                            13350001
133600        MOVE CBSA-WIR-AREA-WAGEIND                                13360000
133700                               TO AREA-WAGE-INDEX                 13370000
133800        PERFORM 2015-67-PAYMENT-RATE-CALC                         13380001
133900           THRU 2015-67-EXIT                                      13390001
134000        GO TO 400-EXIT.                                           13400000
134100**************YEARCHANGE 2015.0 *******************************   13410003
134200**************YEARCHANGE 2014.0 *******************************   13420003
134300     IF HLD-PRICE-THRU-DATE > 20130930                            13430001
134400        MOVE CBSA-WIR-AREA-WAGEIND                                13440000
134500                               TO AREA-WAGE-INDEX                 13450000
134600        PERFORM 2014-67-PAYMENT-RATE-CALC                         13460001
134700           THRU 2014-67-EXIT                                      13470001
134800        GO TO 400-EXIT.                                           13480000
134900**************YEARCHANGE 2014.0 *******************************   13490003
135000**************YEARCHANGE 2013.0 *******************************   13500003
135100     IF HLD-PRICE-THRU-DATE > 20120930                            13510001
135200        MOVE CBSA-WIR-AREA-WAGEIND                                13520000
135300                               TO AREA-WAGE-INDEX                 13530000
135400        PERFORM 2013-67-PAYMENT-RATE-CALC                         13540001
135500           THRU 2013-67-EXIT                                      13550001
135600        GO TO 400-EXIT.                                           13560000
135700**************YEARCHANGE 2013.0 *******************************   13570003
135800**************YEARCHANGE 2012.0 *******************************   13580003
135900     IF HLD-PRICE-THRU-DATE > 20110930                            13590001
136000        MOVE CBSA-WIR-AREA-WAGEIND                                13600000
136100                               TO AREA-WAGE-INDEX                 13610000
136200        PERFORM 2012-67-PAYMENT-RATE-CALC                         13620001
136300           THRU 2012-67-EXIT                                      13630001
136400        GO TO 400-EXIT.                                           13640000
136500**************YEARCHANGE 2012.0 *******************************   13650003
136600**************YEARCHANGE 2011.0 *******************************   13660003
136700     IF HLD-PRICE-THRU-DATE > 20100930                            13670001
136800        MOVE CBSA-WIR-AREA-WAGEIND                                13680000
136900                               TO AREA-WAGE-INDEX                 13690000
137000        PERFORM 2011-67-PAYMENT-RATE-CALC                         13700001
137100           THRU 2011-67-EXIT                                      13710001
137200        GO TO 400-EXIT.                                           13720000
137300**************YEARCHANGE 2011.0 *******************************   13730003
137400**************YEARCHANGE 2010.0 *******************************   13740003
137500     IF HLD-PRICE-THRU-DATE > 20090930                            13750001
137600        MOVE CBSA-WIR-AREA-WAGEIND                                13760000
137700                               TO AREA-WAGE-INDEX                 13770000
137800        PERFORM 2010-53-PAYMENT-RATE-CALC                         13780001
137900           THRU 2010-53-EXIT                                      13790001
138000        GO TO 400-EXIT.                                           13800000
138100**************YEARCHANGE 2010.0 *******************************   13810003
138200**************YEARCHANGE 2009.0 *******************************   13820003
138300     IF HLD-PRICE-THRU-DATE > 20080930                            13830001
138400        MOVE CBSA-WIR-AREA-WAGEIND                                13840000
138500                               TO AREA-WAGE-INDEX                 13850000
138600        PERFORM 2009-53-PAYMENT-RATE-CALC                         13860001
138700           THRU 2009-53-EXIT                                      13870001
138800        GO TO 400-EXIT.                                           13880000
138900**************YEARCHANGE 2009.0 *******************************   13890003
139000**************YEARCHANGE 2008.0 *******************************   13900003
139100     IF HLD-PRICE-THRU-DATE > 20070930                            13910001
139200        MOVE CBSA-WIR-AREA-WAGEIND                                13920000
139300                               TO AREA-WAGE-INDEX                 13930000
139400        PERFORM 2008-53-PAYMENT-RATE-CALC                         13940001
139500           THRU 2008-53-EXIT                                      13950001
139600        GO TO 400-EXIT.                                           13960001
139700**************YEARCHANGE 2008.0 *******************************   13970003
139800**************YEARCHANGE 2007.0 *******************************   13980003
139900     IF HLD-PRICE-THRU-DATE > 20060930                            13990000
140000        MOVE CBSA-WIR-AREA-WAGEIND                                14000000
140100                               TO AREA-WAGE-INDEX                 14010000
140200        PERFORM 2007-53-PAYMENT-RATE-CALC THRU 2007-53-EXIT       14020000
140300        GO TO 400-EXIT.                                           14030000
140400**************YEARCHANGE 2007.0 *******************************   14040003
140500**************YEARCHANGE 2006.1 *******************************   14050003
140600     IF HLD-PRICE-THRU-DATE > 20051231                            14060000
140700        MOVE CBSA-WIR-AREA-WAGEIND                                14070000
140800                               TO AREA-WAGE-INDEX                 14080000
140900        PERFORM 2006-53-PAYMENT-RATE-CALC                         14090000
141000           THRU 2006-53-EXIT                                      14100000
141100        GO TO 400-EXIT.                                           14110000
141200**************YEARCHANGE 2006.1 *******************************   14120003
141300**************YEARCHANGE 2006.0 *******************************   14130003
141400     IF HLD-PRICE-THRU-DATE > 20050930 AND                        14140000
141500        HLD-PRICE-THRU-DATE < 20060101                            14150000
141600        MOVE CBSA-WIR-AREA-WAGEIND                                14160000
141700                               TO AREA-WAGE-INDEX                 14170000
141800        PERFORM 2006-44-PAYMENT-RATE-CALC                         14180000
141900           THRU 2006-44-EXIT                                      14190000
142000        GO TO 400-EXIT.                                           14200000
142100**************YEARCHANGE 2006.0 *******************************   14210003
142200                                                                  14220000
142300     MOVE MSA-WIR-AREA-WAGEIND TO AREA-WAGE-INDEX.                14230000
142400                                                                  14240000
142500     IF HLD-PRICE-THRU-DATE > 20040930                            14250000
142600        PERFORM 2005-PAYMENT-RATE-CALC                            14260000
142700           THRU 2005-EXIT                                         14270000
142800        GO TO 400-EXIT.                                           14280000
142900                                                                  14290000
143000     IF HLD-PRICE-THRU-DATE > 20030930                            14300000
143100        PERFORM 2004-PAYMENT-RATE-CALC                            14310000
143200           THRU 2004-EXIT                                         14320000
143300                                                                  14330000
143400        GO TO 400-EXIT.                                           14340000
143500                                                                  14350000
143600     IF HLD-PRICE-THRU-DATE > 20020930                            14360000
143700        PERFORM 2003-PAYMENT-RATE-CALC                            14370000
143800           THRU 2003-EXIT                                         14380000
143900        GO TO 400-EXIT.                                           14390000
144000                                                                  14400000
144100     IF HLD-PRICE-THRU-DATE > 20010930                            14410000
144200        PERFORM 2002-PAYMENT-RATE-CALC                            14420000
144300           THRU 2002-EXIT                                         14430000
144400        GO TO 400-EXIT.                                           14440000
144500                                                                  14450000
144600     IF HLD-PRICE-THRU-DATE > 20010331                            14460000
144700        PERFORM 2001A-PAYMENT-RATE-CALC                           14470000
144800           THRU 2001A-EXIT                                        14480000
144900        GO TO 400-EXIT.                                           14490000
145000                                                                  14500000
145100     IF HLD-PRICE-THRU-DATE > 20000930                            14510000
145200        PERFORM 2001-PAYMENT-RATE-CALC                            14520000
145300           THRU 2001-EXIT                                         14530000
145400        GO TO 400-EXIT.                                           14540000
145500                                                                  14550000
145600     IF HLD-PRICE-THRU-DATE > 19990930                            14560000
145700        PERFORM 2000-PAYMENT-RATE-CALC                            14570000
145800           THRU 2000-EXIT                                         14580000
145900        GO TO 400-EXIT.                                           14590000
146000                                                                  14600000
146100     IF HLD-PRICE-THRU-DATE > 19980630                            14610000
146200        PERFORM 1999-PAYMENT-RATE-CALC                            14620000
146300           THRU 1999-EXIT                                         14630000
146400        GO TO 400-EXIT.                                           14640000
146500                                                                  14650000
146600                                                                  14660000
146700 400-EXIT.                                                        14670000
146800     EXIT.                                                        14680000
146900                                                                  14690000
147000 500-GET-RATES.                                                   14700000
147100                                                                  14710000
147200     PERFORM 600-WHICH-RATES VARYING R1 FROM 1 BY 1               14720000
147300**************YEARCHANGE 2015.0 *******************************   14730003
147400                   UNTIL R1 > 18.                                 14740003
147500**************YEARCHANGE 2015.0 *******************************   14750003
147600 500-EXIT.    EXIT.                                               14760000
147700                                                                  14770000
147800 600-WHICH-RATES.                                                 14780000
147900                                                                  14790000
148000     IF HLD-PRICE-THRU-DATE NOT < REG-EFF-DATE (R1)               14800000
148100       MOVE R-IP-RATE (R1, R2, R3)                                14810000
148200                               TO IP-RATE                         14820000
148300       MOVE R-GS-RATE (R1, R2, R3)                                14830000
148400                               TO GS-RATE,                        14840000
148500                                  NCM-COMPONENT                   14850000
148600       MOVE R-TH-RATE (R1, R2, R3)                                14860000
148700                               TO TH-RATE,                        14870000
148800                                  NCM-THR-COMPONENT               14880000
148900       MOVE R-REHAB-RATE (R1, R2, R3)                             14890000
149000                               TO REHAB-RATE.                     14900000
149100                                                                  14910000
149200 800-SEARCH-4-RUG.                                                14920000
149300     SET RUG01                 TO 1.                              14930000
149400     SEARCH RUG-DATA2 VARYING RUG01                               14940000
149500       AT END                                                     14950000
149600           MOVE '20'           TO HLD-RTC                         14960000
149700           GO TO 800-SEARCH-EXIT                                  14970000
149800       WHEN RUG-CODE (RUG01) = HLD-RUG                            14980000
149900                                                                  14990003
150000           MOVE RUG-NURSING (RUG01, R3)                           15000000
150100                               TO NUR-INDEX                       15010000
150200           MOVE RUG-THERAPY (RUG01, R3)                           15020000
150300                               TO THR-INDEX                       15030000
150400           MOVE RUG-FACTOR  (RUG01, R3)                           15040000
150500                               TO FACTOR.                         15050000
150600                                                                  15060000
150700 800-SEARCH-EXIT.   EXIT.                                         15070000
150800                                                                  15080000
150900 900-SEARCH-4-RUG53.                                              15090000
151000     SET RUG53-01              TO 1.                              15100000
151100     SEARCH RUG53-DATA2 VARYING RUG53-01                          15110000
151200       AT END                                                     15120000
151300           MOVE '20'           TO HLD-RTC                         15130000
151400           GO TO 900-SEARCH-EXIT                                  15140000
151500                                                                  15150000
151600       WHEN RUG53-CODE (RUG53-01) = HLD-RUG                       15160000
151700           MOVE RUG53-NURSING (RUG53-01, R3)                      15170000
151800                               TO NUR-INDEX                       15180000
151900           MOVE RUG53-THERAPY (RUG53-01, R3)                      15190000
152000                               TO THR-INDEX                       15200000
152100           MOVE RUG53-FACTOR  (RUG53-01, R3)                      15210000
152200                               TO FACTOR.                         15220000
152300                                                                  15230000
152400 900-SEARCH-EXIT.   EXIT.                                         15240000
152500                                                                  15250000
152600                                                                  15260000
152700 910-SEARCH-4-RUG53-2010.                                         15270000
152800                                                                  15280000
152900     SET RUG53-2010-01         TO 1.                              15290000
153000                                                                  15300000
153100     SEARCH RUG53-2010-DATA2   VARYING RUG53-2010-01              15310000
153200       AT END                                                     15320000
153300           MOVE '20'           TO HLD-RTC                         15330000
153400           GO TO 910-SEARCH-EXIT                                  15340000
153500                                                                  15350000
153600       WHEN RUG53-2010-CODE (RUG53-2010-01) = HLD-RUG             15360000
153700           MOVE RUG53-2010-NURSING (RUG53-2010-01, R3)            15370003
153800                               TO NUR-INDEX                       15380003
153900           MOVE RUG53-2010-THERAPY (RUG53-2010-01, R3)            15390003
154000                               TO THR-INDEX                       15400003
154100           MOVE RUG53-2010-FACTOR (RUG53-2010-01, R3)             15410003
154200                               TO FACTOR.                         15420003
154300                                                                  15430000
154400 910-SEARCH-EXIT.   EXIT.                                         15440000
154500                                                                  15450000
154600 911-SEARCH-4-RUG67-2011.                                         15460000
154700                                                                  15470000
154800     SET RUG67-2011-01         TO 1.                              15480000
154900     SEARCH RUG67-2011-DATA2   VARYING RUG67-2011-01              15490000
155000       AT END                                                     15500000
155100           MOVE '20'           TO HLD-RTC                         15510000
155200           GO TO 911-SEARCH-EXIT                                  15520000
155300                                                                  15530000
155400       WHEN RUG67-2011-CODE (RUG67-2011-01) = HLD-RUG             15540000
155500           MOVE RUG67-2011-NURSING (RUG67-2011-01, R3)            15550003
155600                               TO NUR-INDEX                       15560003
155700           MOVE RUG67-2011-THERAPY (RUG67-2011-01, R3)            15570003
155800                               TO THR-INDEX                       15580003
155900           MOVE RUG67-2011-FACTOR (RUG67-2011-01, R3)             15590003
156000                               TO FACTOR.                         15600003
156100                                                                  15610000
156200 911-SEARCH-EXIT.   EXIT.                                         15620000
156300                                                                  15630000
156400                                                                  15640000
156500 912-SEARCH-4-RUG67-2012.                                         15650000
156600     SET RUG67-2012-01         TO 1.                              15660000
156700     SEARCH RUG67-2012-DATA2 VARYING RUG67-2012-01                15670000
156800       AT END                                                     15680000
156900           MOVE '20'           TO HLD-RTC                         15690000
157000           GO TO 912-SEARCH-EXIT                                  15700000
157100       WHEN RUG67-2012-CODE (RUG67-2012-01) = HLD-RUG             15710000
157200           MOVE RUG67-2012-NURSING (RUG67-2012-01, R3)            15720003
157300                               TO NUR-INDEX                       15730003
157400           MOVE RUG67-2012-THERAPY (RUG67-2012-01, R3)            15740003
157500                               TO THR-INDEX                       15750003
157600           MOVE RUG67-2012-FACTOR (RUG67-2012-01, R3)             15760003
157700                               TO FACTOR.                         15770003
157800                                                                  15780000
157900 912-SEARCH-EXIT.   EXIT.                                         15790000
158000                                                                  15800000
158100                                                                  15810000
158200 913-SEARCH-4-RUG67-2013.                                         15820000
158300     SET RUG67-2013-01         TO 1.                              15830000
158400                                                                  15840003
158500     SEARCH  RUG67-2013-DATA2                                     15850000
158600       VARYING RUG67-2013-01                                      15860000
158700       AT END                                                     15870000
158800           MOVE '20'           TO HLD-RTC                         15880000
158900           GO TO 913-SEARCH-EXIT                                  15890000
159000                                                                  15900000
159100       WHEN RUG67-2013-CODE (RUG67-2013-01) = HLD-RUG             15910000
159200                                                                  15920000
159300           MOVE RUG67-2013-NURSING (RUG67-2013-01, R3)            15930003
159400                               TO NUR-INDEX                       15940003
159500           MOVE RUG67-2013-THERAPY (RUG67-2013-01, R3)            15950003
159600                               TO THR-INDEX                       15960003
159700           MOVE RUG67-2013-FACTOR (RUG67-2013-01, R3)             15970003
159800                               TO FACTOR.                         15980003
159900                                                                  15990000
160000 913-SEARCH-EXIT.   EXIT.                                         16000000
160100                                                                  16010000
160200                                                                  16020000
160300 914-SEARCH-4-RUG67-2014.                                         16030000
160400     SET RUG67-2014-01         TO 1.                              16040000
160500                                                                  16050003
160600     SEARCH  RUG67-2014-DATA2                                     16060000
160700       VARYING RUG67-2014-01                                      16070000
160800       AT END                                                     16080000
160900           MOVE '20'           TO HLD-RTC                         16090000
161000           GO TO 914-SEARCH-EXIT                                  16100000
161100                                                                  16110000
161200       WHEN RUG67-2014-CODE (RUG67-2014-01) = HLD-RUG             16120000
161300                                                                  16130000
161400           MOVE RUG67-2014-NURSING (RUG67-2014-01, R3)            16140003
161500                               TO NUR-INDEX                       16150003
161600           MOVE RUG67-2014-THERAPY (RUG67-2014-01, R3)            16160003
161700                               TO THR-INDEX                       16170003
161800           MOVE RUG67-2014-FACTOR (RUG67-2014-01, R3)             16180003
161900                               TO FACTOR.                         16190003
162000                                                                  16200000
162100 914-SEARCH-EXIT.   EXIT.                                         16210000
162200                                                                  16220000
162300                                                                  16230000
162400                                                                  16240000
162500 915-SEARCH-4-RUG67-2015.                                         16250000
162600     SET RUG67-2015-01         TO 1.                              16260000
162700                                                                  16270003
162800     SEARCH  RUG67-2015-DATA2                                     16280000
162900       VARYING RUG67-2015-01                                      16290000
163000       AT END                                                     16300000
163100           MOVE '20'           TO HLD-RTC                         16310000
163200           GO TO 915-SEARCH-EXIT                                  16320000
163300                                                                  16330000
163400       WHEN RUG67-2015-CODE (RUG67-2015-01) = HLD-RUG             16340000
163500                                                                  16350000
163600           MOVE RUG67-2015-NURSING (RUG67-2015-01, R3)            16360003
163700                               TO NUR-INDEX                       16370003
163800           MOVE RUG67-2015-THERAPY (RUG67-2015-01, R3)            16380003
163900                               TO THR-INDEX                       16390003
164000           MOVE RUG67-2015-FACTOR (RUG67-2015-01, R3)             16400003
164100                               TO FACTOR.                         16410003
164200                                                                  16420000
164300 915-SEARCH-EXIT.   EXIT.                                         16430000
164400                                                                  16440000
164500 1999-PAYMENT-RATE-CALC.                                          16450000
164600***************************************************************   16460000
164700*     PAYMENT RATE CALCULATION PROCCESS                           16470000
164800***************************************************************   16480000
164900                                                                  16490000
165000     MOVE 1                    TO R3.                             16500000
165100                                                                  16510000
165200     IF HLD-MSA-RURAL-CHECK                                       16520000
165300        MOVE 1                 TO R2                              16530000
165400     ELSE                                                         16540000
165500        MOVE 2                 TO R2.                             16550000
165600                                                                  16560000
165700     PERFORM 800-SEARCH-4-RUG                                     16570000
165800        THRU 800-SEARCH-EXIT.                                     16580000
165900                                                                  16590000
166000     IF HLD-RTC NOT = 00                                          16600000
166100        GO TO 1999-EXIT.                                          16610000
166200                                                                  16620000
166300     PERFORM 500-GET-RATES.                                       16630000
166400                                                                  16640000
166500     IF SNF-FED-BLEND = 1 OR 2 OR 3 OR 4                          16650000
166600        NEXT SENTENCE                                             16660000
166700     ELSE                                                         16670000
166800        MOVE '60'              TO HLD-RTC                         16680000
166900        MOVE ALL '0'           TO HOLD-VAR-DATA                   16690000
167000        GO TO 1999-EXIT.                                          16700000
167100                                                                  16710000
167200        COMPUTE NURSING-COMPONENT ROUNDED =                       16720000
167300                   (NUR-INDEX * IP-RATE).                         16730000
167400                                                                  16740000
167500        COMPUTE THERAPY-COMPONENT ROUNDED =                       16750000
167600                   (THR-INDEX * REHAB-RATE).                      16760000
167700                                                                  16770000
167800        COMPUTE NCM-THR-COMPONENT ROUNDED =                       16780000
167900                   (FACTOR * NCM-THR-COMPONENT).                  16790000
168000                                                                  16800000
168100        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       16810000
168200                   NURSING-COMPONENT +                            16820000
168300                   THERAPY-COMPONENT +                            16830000
168400                   NCM-THR-COMPONENT +                            16840000
168500                   NCM-COMPONENT.                                 16850000
168600                                                                  16860000
168700        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        16870000
168800             (HLD-PAYMENT-RATE * PERCENT-1999-LABOR) *            16880000
168900               AREA-WAGE-INDEX.                                   16890000
169000                                                                  16900000
169100        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        16910000
169200               (HLD-PAYMENT-RATE * PERCENT-1999-NLABOR) +         16920000
169300                    PAYMENT-RATE-ADJ.                             16930000
169400                                                                  16940000
169500     IF SNF-FED-BLEND = 1                                         16950000
169600        COMPUTE WK-PAYMENT-RATE ROUNDED =                         16960000
169700           (HLD-PAYMENT-RATE * .25)                               16970000
169800        COMPUTE WK-FACILITY-RATE ROUNDED =                        16980000
169900           (HLD-FACILITY-RATE * .75)                              16990000
170000        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              17000000
170100        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        17010000
170200           (WK-PAYMENT-RATE + WK-FACILITY-RATE).                  17020000
170300                                                                  17030000
170400     IF SNF-FED-BLEND = 2                                         17040000
170500        COMPUTE WK-PAYMENT-RATE ROUNDED =                         17050000
170600           (HLD-PAYMENT-RATE * .50)                               17060000
170700        COMPUTE WK-FACILITY-RATE ROUNDED =                        17070000
170800           (HLD-FACILITY-RATE * .50)                              17080000
170900        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              17090000
171000        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        17100000
171100           (WK-PAYMENT-RATE + WK-FACILITY-RATE).                  17110000
171200                                                                  17120000
171300     IF SNF-FED-BLEND = 3                                         17130000
171400        COMPUTE WK-PAYMENT-RATE ROUNDED =                         17140000
171500           (HLD-PAYMENT-RATE * .75)                               17150000
171600        COMPUTE WK-FACILITY-RATE ROUNDED =                        17160000
171700           (HLD-FACILITY-RATE * .25)                              17170000
171800        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              17180000
171900        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        17190000
172000           (WK-PAYMENT-RATE + WK-FACILITY-RATE).                  17200000
172100                                                                  17210000
172200     IF SNF-FED-BLEND = 4                                         17220000
172300        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              17230000
172400        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        17240000
172500                HLD-PAYMENT-RATE * 1.00.                          17250000
172600                                                                  17260000
172700 1999-EXIT.   EXIT.                                               17270000
172800                                                                  17280000
172900 2000-PAYMENT-RATE-CALC.                                          17290000
173000***************************************************************   17300000
173100*     PAYMENT RATE CALCULATION PROCCESS                           17310000
173200***************************************************************   17320000
173300                                                                  17330000
173400     MOVE 1                    TO R3.                             17340000
173500                                                                  17350000
173600     IF HLD-MSA-RURAL-CHECK                                       17360000
173700        MOVE 1                 TO R2                              17370000
173800     ELSE                                                         17380000
173900        MOVE 2                 TO R2.                             17390000
174000                                                                  17400000
174100     PERFORM 800-SEARCH-4-RUG    THRU 800-SEARCH-EXIT.            17410000
174200                                                                  17420000
174300     IF HLD-RTC NOT = 00 GO TO 2000-EXIT.                         17430000
174400                                                                  17440000
174500     PERFORM 500-GET-RATES.                                       17450000
174600                                                                  17460000
174700     IF (HLD-THRU-DATE < 20000101 AND                             17470000
174800         SNF-FED-BLEND = 0)                                       17480000
174900        MOVE '61' TO HLD-RTC                                      17490000
175000        MOVE ALL '0' TO HOLD-VAR-DATA                             17500000
175100        GO TO 2000-EXIT.                                          17510000
175200                                                                  17520000
175300     IF SNF-FED-BLEND = 0 OR 1 OR 2 OR 3 OR 4                     17530000
175400        NEXT SENTENCE                                             17540000
175500     ELSE                                                         17550000
175600        MOVE '60' TO HLD-RTC                                      17560000
175700        MOVE ALL '0' TO HOLD-VAR-DATA                             17570000
175800        GO TO 2000-EXIT.                                          17580000
175900                                                                  17590000
176000        COMPUTE NURSING-COMPONENT ROUNDED =                       17600000
176100                   (NUR-INDEX * IP-RATE).                         17610000
176200                                                                  17620000
176300        COMPUTE THERAPY-COMPONENT ROUNDED =                       17630000
176400                   (THR-INDEX * REHAB-RATE).                      17640000
176500                                                                  17650000
176600        COMPUTE NCM-THR-COMPONENT ROUNDED =                       17660000
176700                   (FACTOR * NCM-THR-COMPONENT).                  17670000
176800                                                                  17680000
176900        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       17690000
177000                   NURSING-COMPONENT +                            17700000
177100                   THERAPY-COMPONENT +                            17710000
177200                   NCM-THR-COMPONENT +                            17720000
177300                   NCM-COMPONENT.                                 17730000
177400                                                                  17740000
177500        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        17750000
177600             (HLD-PAYMENT-RATE * PERCENT-2000-LABOR) *            17760000
177700               AREA-WAGE-INDEX.                                   17770000
177800                                                                  17780000
177900        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        17790000
178000               (HLD-PAYMENT-RATE * PERCENT-2000-NLABOR) +         17800000
178100                    PAYMENT-RATE-ADJ.                             17810000
178200                                                                  17820000
178300     IF  (HLD-THRU-DATE > 20000331 AND                            17830000
178400         (HLD-RUG = 'SE3' OR 'SE2' OR 'SE1' OR 'SSC' OR           17840000
178500                    'SSB' OR 'SSA' OR 'CC2' OR 'CC1' OR           17850000
178600                    'CB2' OR 'CB1' OR 'CA2' OR 'CA1' OR           17860000
178700                    'RHC' OR 'RMC' OR 'RMB'))                     17870000
178800        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        17880000
178900                HLD-PAYMENT-RATE * 1.2.                           17890000
179000                                                                  17900000
179100     IF (HLD-THRU-DATE > 19991231 AND                             17910000
179200         SNF-FED-BLEND = 0)                                       17920000
179300        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        17930000
179400                HLD-FACILITY-RATE * 1.00.                         17940000
179500                                                                  17950000
179600     IF SNF-FED-BLEND = 1                                         17960000
179700        COMPUTE WK-PAYMENT-RATE ROUNDED =                         17970000
179800           (HLD-PAYMENT-RATE * .25)                               17980000
179900        COMPUTE WK-FACILITY-RATE ROUNDED =                        17990000
180000           (HLD-FACILITY-RATE * .75)                              18000000
180100        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              18010000
180200        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        18020000
180300           (WK-PAYMENT-RATE + WK-FACILITY-RATE).                  18030000
180400                                                                  18040000
180500     IF SNF-FED-BLEND = 2                                         18050000
180600        COMPUTE WK-PAYMENT-RATE ROUNDED =                         18060000
180700           (HLD-PAYMENT-RATE * .50)                               18070000
180800        COMPUTE WK-FACILITY-RATE ROUNDED =                        18080000
180900           (HLD-FACILITY-RATE * .50)                              18090000
181000        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              18100000
181100        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        18110000
181200           (WK-PAYMENT-RATE + WK-FACILITY-RATE).                  18120000
181300                                                                  18130000
181400     IF SNF-FED-BLEND = 3                                         18140000
181500        COMPUTE WK-PAYMENT-RATE ROUNDED =                         18150000
181600           (HLD-PAYMENT-RATE * .75)                               18160000
181700        COMPUTE WK-FACILITY-RATE ROUNDED =                        18170000
181800           (HLD-FACILITY-RATE * .25)                              18180000
181900        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              18190000
182000        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        18200000
182100           (WK-PAYMENT-RATE + WK-FACILITY-RATE).                  18210000
182200                                                                  18220000
182300     IF SNF-FED-BLEND = 4                                         18230000
182400        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              18240000
182500        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        18250000
182600                HLD-PAYMENT-RATE * 1.00.                          18260000
182700                                                                  18270000
182800 2000-EXIT.   EXIT.                                               18280000
182900 2001-PAYMENT-RATE-CALC.                                          18290000
183000***************************************************************   18300000
183100*     PAYMENT RATE CALCULATION PROCCESS                           18310000
183200***************************************************************   18320000
183300                                                                  18330000
183400     MOVE 1                    TO R3.                             18340000
183500                                                                  18350000
183600     IF HLD-MSA-RURAL-CHECK                                       18360000
183700        MOVE 1                 TO R2                              18370000
183800     ELSE                                                         18380000
183900        MOVE 2                 TO R2.                             18390000
184000                                                                  18400000
184100     PERFORM 800-SEARCH-4-RUG                                     18410000
184200        THRU 800-SEARCH-EXIT.                                     18420000
184300                                                                  18430000
184400     IF HLD-RTC NOT = 00                                          18440000
184500        GO TO 2001-EXIT.                                          18450000
184600                                                                  18460000
184700     PERFORM 500-GET-RATES.                                       18470000
184800                                                                  18480000
184900     IF (HLD-THRU-DATE < 20000101 AND                             18490000
185000         SNF-FED-BLEND = 0)                                       18500000
185100        MOVE '61'              TO HLD-RTC                         18510000
185200        MOVE ALL '0'           TO HOLD-VAR-DATA                   18520000
185300        GO TO 2001-EXIT.                                          18530000
185400                                                                  18540000
185500     IF SNF-FED-BLEND = 0 OR 1 OR 2 OR 3 OR 4                     18550000
185600        NEXT SENTENCE                                             18560000
185700     ELSE                                                         18570000
185800        MOVE '60'              TO HLD-RTC                         18580000
185900        MOVE ALL '0'           TO HOLD-VAR-DATA                   18590000
186000        GO TO 2001-EXIT.                                          18600000
186100                                                                  18610000
186200        COMPUTE NURSING-COMPONENT ROUNDED =                       18620000
186300                   (NUR-INDEX * IP-RATE).                         18630000
186400                                                                  18640000
186500        COMPUTE THERAPY-COMPONENT ROUNDED =                       18650000
186600                   (THR-INDEX * REHAB-RATE).                      18660000
186700                                                                  18670000
186800        COMPUTE NCM-THR-COMPONENT ROUNDED =                       18680000
186900                   (FACTOR * NCM-THR-COMPONENT).                  18690000
187000                                                                  18700000
187100        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       18710000
187200                   NURSING-COMPONENT +                            18720000
187300                   THERAPY-COMPONENT +                            18730000
187400                   NCM-THR-COMPONENT +                            18740000
187500                   NCM-COMPONENT.                                 18750000
187600                                                                  18760000
187700        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        18770000
187800             (HLD-PAYMENT-RATE * PERCENT-2001-LABOR) *            18780000
187900               AREA-WAGE-INDEX.                                   18790000
188000                                                                  18800000
188100        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        18810000
188200               (HLD-PAYMENT-RATE * PERCENT-2001-NLABOR) +         18820000
188300                    PAYMENT-RATE-ADJ.                             18830000
188400                                                                  18840000
188500     IF  (HLD-RUG = 'SE3' OR 'SE2' OR 'SE1' OR 'SSC' OR           18850000
188600                    'SSB' OR 'SSA' OR 'CC2' OR 'CC1' OR           18860000
188700                    'CB2' OR 'CB1' OR 'CA2' OR 'CA1' OR           18870000
188800                    'RHC' OR 'RMC' OR 'RMB')                      18880000
188900        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        18890000
189000                HLD-PAYMENT-RATE * 1.24                           18900000
189100     ELSE                                                         18910000
189200        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        18920000
189300                HLD-PAYMENT-RATE * 1.04.                          18930000
189400                                                                  18940000
189500     IF  SNF-FED-BLEND = 0                                        18950000
189600        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        18960000
189700                HLD-FACILITY-RATE * 1.00.                         18970000
189800                                                                  18980000
189900     IF SNF-FED-BLEND = 1                                         18990000
190000        COMPUTE WK-PAYMENT-RATE ROUNDED =                         19000000
190100           (HLD-PAYMENT-RATE * .25)                               19010000
190200        COMPUTE WK-FACILITY-RATE ROUNDED =                        19020000
190300           (HLD-FACILITY-RATE * .75)                              19030000
190400        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              19040000
190500        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        19050000
190600           (WK-PAYMENT-RATE + WK-FACILITY-RATE).                  19060000
190700                                                                  19070000
190800     IF SNF-FED-BLEND = 2                                         19080000
190900        COMPUTE WK-PAYMENT-RATE ROUNDED =                         19090000
191000           (HLD-PAYMENT-RATE * .50)                               19100000
191100        COMPUTE WK-FACILITY-RATE ROUNDED =                        19110000
191200           (HLD-FACILITY-RATE * .50)                              19120000
191300        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              19130000
191400        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        19140000
191500           (WK-PAYMENT-RATE + WK-FACILITY-RATE).                  19150000
191600                                                                  19160000
191700     IF SNF-FED-BLEND = 3                                         19170000
191800        COMPUTE WK-PAYMENT-RATE ROUNDED =                         19180000
191900           (HLD-PAYMENT-RATE * .75)                               19190000
192000        COMPUTE WK-FACILITY-RATE ROUNDED =                        19200000
192100           (HLD-FACILITY-RATE * .25)                              19210000
192200        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              19220000
192300        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        19230000
192400           (WK-PAYMENT-RATE + WK-FACILITY-RATE).                  19240000
192500                                                                  19250000
192600     IF SNF-FED-BLEND = 4                                         19260000
192700        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              19270000
192800        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        19280000
192900                HLD-PAYMENT-RATE * 1.00.                          19290000
193000                                                                  19300000
193100                                                                  19310000
193200 2001-EXIT.   EXIT.                                               19320000
193300                                                                  19330000
193400 2001A-PAYMENT-RATE-CALC.                                         19340000
193500***************************************************************   19350000
193600*     PAYMENT RATE CALCULATION PROCCESS EFFECTIVE APR.1, 2001     19360000
193700***************************************************************   19370000
193800                                                                  19380000
193900     MOVE 1                    TO R3.                             19390000
194000                                                                  19400000
194100     IF HLD-MSA-RURAL-CHECK                                       19410000
194200        MOVE 1                 TO R2                              19420000
194300     ELSE                                                         19430000
194400        MOVE 2                 TO R2.                             19440000
194500                                                                  19450000
194600     PERFORM 800-SEARCH-4-RUG                                     19460000
194700        THRU 800-SEARCH-EXIT.                                     19470000
194800                                                                  19480000
194900     IF HLD-RTC NOT = 00                                          19490000
195000        GO TO 2001A-EXIT.                                         19500000
195100                                                                  19510000
195200     PERFORM 500-GET-RATES.                                       19520000
195300                                                                  19530000
195400     IF (HLD-THRU-DATE < 20000101 AND                             19540000
195500         SNF-FED-BLEND = 0)                                       19550000
195600        MOVE '61'              TO HLD-RTC                         19560000
195700        MOVE ALL '0'           TO HOLD-VAR-DATA                   19570000
195800        GO TO 2001A-EXIT.                                         19580000
195900                                                                  19590000
196000     IF SNF-FED-BLEND = 0 OR 1 OR 2 OR 3 OR 4                     19600000
196100        NEXT SENTENCE                                             19610000
196200     ELSE                                                         19620000
196300        MOVE '60'              TO HLD-RTC                         19630000
196400        MOVE ALL '0'           TO HOLD-VAR-DATA                   19640000
196500        GO TO 2001A-EXIT.                                         19650000
196600                                                                  19660000
196700        COMPUTE NURSING-COMPONENT ROUNDED =                       19670000
196800                   (NUR-INDEX * IP-RATE).                         19680000
196900                                                                  19690000
197000        COMPUTE THERAPY-COMPONENT ROUNDED =                       19700000
197100                   (THR-INDEX * REHAB-RATE).                      19710000
197200                                                                  19720000
197300        COMPUTE NCM-THR-COMPONENT ROUNDED =                       19730000
197400                   (FACTOR * NCM-THR-COMPONENT).                  19740000
197500                                                                  19750000
197600        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       19760000
197700                   NURSING-COMPONENT +                            19770000
197800                   THERAPY-COMPONENT +                            19780000
197900                   NCM-THR-COMPONENT +                            19790000
198000                   NCM-COMPONENT.                                 19800000
198100                                                                  19810000
198200        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        19820000
198300             (HLD-PAYMENT-RATE * PERCENT-2001-LABOR) *            19830000
198400               AREA-WAGE-INDEX.                                   19840000
198500                                                                  19850000
198600        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        19860000
198700               (HLD-PAYMENT-RATE * PERCENT-2001-NLABOR) +         19870000
198800                    PAYMENT-RATE-ADJ.                             19880000
198900                                                                  19890000
199000     IF  (HLD-RUG = 'IB2' OR 'IB1' OR 'IA2' OR 'IA1' OR           19900000
199100                    'BB2' OR 'BB1' OR 'BA2' OR 'BA1' OR           19910000
199200                    'PE2' OR 'PE1' OR 'PD2' OR 'PD1' OR           19920000
199300                    'PC2' OR 'PC1' OR 'PB2' OR 'PB1' OR           19930000
199400                    'PA2' OR 'PA1' OR 'AAA')                      19940000
199500        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        19950000
199600                HLD-PAYMENT-RATE * 1.04.                          19960000
199700                                                                  19970000
199800     IF  (HLD-RUG = 'RUC' OR 'RUB' OR 'RUA' OR 'RVC' OR           19980000
199900                    'RVB' OR 'RVA' OR 'RHC' OR 'RHB' OR           19990000
200000                    'RHA' OR 'RMC' OR 'RMB' OR 'RMA' OR           20000000
200100                    'RLB' OR 'RLA')                               20010000
200200        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        20020000
200300                HLD-PAYMENT-RATE * 1.107.                         20030000
200400                                                                  20040000
200500     IF  (HLD-RUG = 'SE3' OR 'SE2' OR 'SE1' OR 'SSC' OR           20050000
200600                    'SSB' OR 'SSA' OR 'CC2' OR 'CC1' OR           20060000
200700                    'CB2' OR 'CB1' OR 'CA2' OR 'CA1')             20070000
200800        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        20080000
200900                HLD-PAYMENT-RATE * 1.24.                          20090000
201000                                                                  20100000
201100     IF  SNF-FED-BLEND = 0                                        20110000
201200        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        20120000
201300                HLD-FACILITY-RATE * 1.00.                         20130000
201400                                                                  20140000
201500     IF SNF-FED-BLEND = 1                                         20150000
201600        COMPUTE WK-PAYMENT-RATE ROUNDED =                         20160000
201700           (HLD-PAYMENT-RATE * .25)                               20170000
201800        COMPUTE WK-FACILITY-RATE ROUNDED =                        20180000
201900           (HLD-FACILITY-RATE * .75)                              20190000
202000        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              20200000
202100        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        20210000
202200           (WK-PAYMENT-RATE + WK-FACILITY-RATE).                  20220000
202300                                                                  20230000
202400     IF SNF-FED-BLEND = 2                                         20240000
202500        COMPUTE WK-PAYMENT-RATE ROUNDED =                         20250000
202600           (HLD-PAYMENT-RATE * .50)                               20260000
202700        COMPUTE WK-FACILITY-RATE ROUNDED =                        20270000
202800           (HLD-FACILITY-RATE * .50)                              20280000
202900        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              20290000
203000        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        20300000
203100           (WK-PAYMENT-RATE + WK-FACILITY-RATE).                  20310000
203200                                                                  20320000
203300     IF SNF-FED-BLEND = 3                                         20330000
203400        COMPUTE WK-PAYMENT-RATE ROUNDED =                         20340000
203500           (HLD-PAYMENT-RATE * .75)                               20350000
203600        COMPUTE WK-FACILITY-RATE ROUNDED =                        20360000
203700           (HLD-FACILITY-RATE * .25)                              20370000
203800        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              20380000
203900        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        20390000
204000           (WK-PAYMENT-RATE + WK-FACILITY-RATE).                  20400000
204100                                                                  20410000
204200     IF SNF-FED-BLEND = 4                                         20420000
204300        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              20430000
204400        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        20440000
204500                HLD-PAYMENT-RATE * 1.00.                          20450000
204600                                                                  20460000
204700                                                                  20470000
204800 2001A-EXIT.   EXIT.                                              20480000
204900                                                                  20490000
205000 2002-PAYMENT-RATE-CALC.                                          20500000
205100***************************************************************   20510000
205200*     PAYMENT RATE CALCULATION PROCCESS EFFECTIVE OCT.1, 2001     20520000
205300***************************************************************   20530000
205400                                                                  20540000
205500     MOVE 1                    TO R3.                             20550000
205600                                                                  20560000
205700     IF HLD-MSA-RURAL-CHECK                                       20570000
205800        MOVE 1                 TO R2                              20580000
205900     ELSE                                                         20590000
206000        MOVE 2                 TO R2.                             20600000
206100                                                                  20610000
206200     PERFORM 800-SEARCH-4-RUG                                     20620000
206300        THRU 800-SEARCH-EXIT.                                     20630000
206400                                                                  20640000
206500     IF HLD-RTC NOT = 00                                          20650000
206600        GO TO 2002-EXIT.                                          20660000
206700                                                                  20670000
206800     PERFORM 500-GET-RATES.                                       20680000
206900                                                                  20690000
207000     IF (HLD-THRU-DATE < 20000101 AND                             20700000
207100         SNF-FED-BLEND = 0)                                       20710000
207200        MOVE '61'              TO HLD-RTC                         20720000
207300        MOVE ALL '0'           TO HOLD-VAR-DATA                   20730000
207400        GO TO 2002-EXIT.                                          20740000
207500                                                                  20750000
207600     IF SNF-FED-BLEND = 0 OR 1 OR 2 OR 3 OR 4                     20760000
207700        NEXT SENTENCE                                             20770000
207800     ELSE                                                         20780000
207900        MOVE '60'              TO HLD-RTC                         20790000
208000        MOVE ALL '0'           TO HOLD-VAR-DATA                   20800000
208100        GO TO 2002-EXIT.                                          20810000
208200                                                                  20820000
208300        COMPUTE NURSING-COMPONENT ROUNDED =                       20830000
208400                   (NUR-INDEX * IP-RATE).                         20840000
208500                                                                  20850000
208600        COMPUTE THERAPY-COMPONENT ROUNDED =                       20860000
208700                   (THR-INDEX * REHAB-RATE).                      20870000
208800                                                                  20880000
208900        COMPUTE NCM-THR-COMPONENT ROUNDED =                       20890000
209000                   (FACTOR * NCM-THR-COMPONENT).                  20900000
209100                                                                  20910000
209200        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       20920000
209300                   NURSING-COMPONENT +                            20930000
209400                   THERAPY-COMPONENT +                            20940000
209500                   NCM-THR-COMPONENT +                            20950000
209600                   NCM-COMPONENT.                                 20960000
209700                                                                  20970000
209800        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        20980000
209900             (HLD-PAYMENT-RATE * PERCENT-2002-LABOR) *            20990000
210000               AREA-WAGE-INDEX.                                   21000000
210100                                                                  21010000
210200        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        21020000
210300               (HLD-PAYMENT-RATE * PERCENT-2002-NLABOR) +         21030000
210400                    PAYMENT-RATE-ADJ.                             21040000
210500                                                                  21050000
210600     IF  (HLD-RUG = 'IB2' OR 'IB1' OR 'IA2' OR 'IA1' OR           21060000
210700                    'BB2' OR 'BB1' OR 'BA2' OR 'BA1' OR           21070000
210800                    'PE2' OR 'PE1' OR 'PD2' OR 'PD1' OR           21080000
210900                    'PC2' OR 'PC1' OR 'PB2' OR 'PB1' OR           21090000
211000                    'PA2' OR 'PA1' OR 'AAA')                      21100000
211100        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        21110000
211200                HLD-PAYMENT-RATE * 1.04.                          21120000
211300                                                                  21130000
211400     IF  (HLD-RUG = 'RUC' OR 'RUB' OR 'RUA' OR 'RVC' OR           21140000
211500                    'RVB' OR 'RVA' OR 'RHC' OR 'RHB' OR           21150000
211600                    'RHA' OR 'RMC' OR 'RMB' OR 'RMA' OR           21160000
211700                    'RLB' OR 'RLA')                               21170000
211800        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        21180000
211900                HLD-PAYMENT-RATE * 1.107.                         21190000
212000                                                                  21200000
212100     IF  (HLD-RUG = 'SE3' OR 'SE2' OR 'SE1' OR 'SSC' OR           21210000
212200                    'SSB' OR 'SSA' OR 'CC2' OR 'CC1' OR           21220000
212300                    'CB2' OR 'CB1' OR 'CA2' OR 'CA1')             21230000
212400        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        21240000
212500                HLD-PAYMENT-RATE * 1.24.                          21250000
212600                                                                  21260000
212700     IF  SNF-FED-BLEND = 0                                        21270000
212800        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        21280000
212900                HLD-FACILITY-RATE * 1.00.                         21290000
213000                                                                  21300000
213100     IF SNF-FED-BLEND = 1                                         21310000
213200        COMPUTE WK-PAYMENT-RATE ROUNDED =                         21320000
213300           (HLD-PAYMENT-RATE * .25)                               21330000
213400        COMPUTE WK-FACILITY-RATE ROUNDED =                        21340000
213500           (HLD-FACILITY-RATE * .75)                              21350000
213600        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              21360000
213700        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        21370000
213800           (WK-PAYMENT-RATE + WK-FACILITY-RATE).                  21380000
213900                                                                  21390000
214000     IF SNF-FED-BLEND = 2                                         21400000
214100        COMPUTE WK-PAYMENT-RATE ROUNDED =                         21410000
214200           (HLD-PAYMENT-RATE * .50)                               21420000
214300        COMPUTE WK-FACILITY-RATE ROUNDED =                        21430000
214400           (HLD-FACILITY-RATE * .50)                              21440000
214500        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              21450000
214600        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        21460000
214700           (WK-PAYMENT-RATE + WK-FACILITY-RATE).                  21470000
214800                                                                  21480000
214900     IF SNF-FED-BLEND = 3                                         21490000
215000        COMPUTE WK-PAYMENT-RATE ROUNDED =                         21500000
215100           (HLD-PAYMENT-RATE * .75)                               21510000
215200        COMPUTE WK-FACILITY-RATE ROUNDED =                        21520000
215300           (HLD-FACILITY-RATE * .25)                              21530000
215400        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              21540000
215500        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        21550000
215600           (WK-PAYMENT-RATE + WK-FACILITY-RATE).                  21560000
215700                                                                  21570000
215800     IF SNF-FED-BLEND = 4                                         21580000
215900        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              21590000
216000        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        21600000
216100                HLD-PAYMENT-RATE * 1.00.                          21610000
216200                                                                  21620000
216300                                                                  21630000
216400 2002-EXIT.   EXIT.                                               21640000
216500                                                                  21650000
216600 2003-PAYMENT-RATE-CALC.                                          21660000
216700***************************************************************   21670000
216800*     PAYMENT RATE CALCULATION PROCCESS EFFECTIVE OCT.1, 2002     21680000
216900***************************************************************   21690000
217000                                                                  21700000
217100     MOVE 1                    TO R3.                             21710000
217200                                                                  21720000
217300     IF HLD-MSA-RURAL-CHECK                                       21730000
217400        MOVE 1                 TO R2                              21740000
217500     ELSE                                                         21750000
217600        MOVE 2                 TO R2.                             21760000
217700                                                                  21770000
217800     PERFORM 800-SEARCH-4-RUG                                     21780000
217900        THRU 800-SEARCH-EXIT.                                     21790000
218000                                                                  21800000
218100     IF HLD-RTC NOT = 00                                          21810000
218200        GO TO 2003-EXIT.                                          21820000
218300                                                                  21830000
218400     PERFORM 500-GET-RATES.                                       21840000
218500                                                                  21850000
218600     IF (HLD-THRU-DATE < 20000101 AND                             21860000
218700         SNF-FED-BLEND = 0)                                       21870000
218800        MOVE '61'              TO HLD-RTC                         21880000
218900        MOVE ALL '0'           TO HOLD-VAR-DATA                   21890000
219000        GO TO 2003-EXIT.                                          21900000
219100                                                                  21910000
219200     IF SNF-FED-BLEND = 0 OR 4                                    21920000
219300        NEXT SENTENCE                                             21930000
219400     ELSE                                                         21940000
219500        MOVE '60'              TO HLD-RTC                         21950000
219600        MOVE ALL '0'           TO HOLD-VAR-DATA                   21960000
219700        GO TO 2003-EXIT.                                          21970000
219800                                                                  21980000
219900        COMPUTE NURSING-COMPONENT ROUNDED =                       21990000
220000                   (NUR-INDEX * IP-RATE).                         22000000
220100                                                                  22010000
220200        COMPUTE THERAPY-COMPONENT ROUNDED =                       22020000
220300                   (THR-INDEX * REHAB-RATE).                      22030000
220400                                                                  22040000
220500        COMPUTE NCM-THR-COMPONENT ROUNDED =                       22050000
220600                   (FACTOR * NCM-THR-COMPONENT).                  22060000
220700                                                                  22070000
220800        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       22080000
220900                   NURSING-COMPONENT +                            22090000
221000                   THERAPY-COMPONENT +                            22100000
221100                   NCM-THR-COMPONENT +                            22110000
221200                   NCM-COMPONENT.                                 22120000
221300                                                                  22130000
221400        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        22140000
221500             (HLD-PAYMENT-RATE * PERCENT-2003-LABOR) *            22150000
221600               AREA-WAGE-INDEX.                                   22160000
221700                                                                  22170000
221800        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        22180000
221900               (HLD-PAYMENT-RATE * PERCENT-2003-NLABOR) +         22190000
222000                    PAYMENT-RATE-ADJ.                             22200000
222100                                                                  22210000
222200     IF  (HLD-RUG = 'IB2' OR 'IB1' OR 'IA2' OR 'IA1' OR           22220000
222300                    'BB2' OR 'BB1' OR 'BA2' OR 'BA1' OR           22230000
222400                    'PE2' OR 'PE1' OR 'PD2' OR 'PD1' OR           22240000
222500                    'PC2' OR 'PC1' OR 'PB2' OR 'PB1' OR           22250000
222600                    'PA2' OR 'PA1' OR 'AAA')                      22260000
222700        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        22270000
222800                HLD-PAYMENT-RATE * 1.00.                          22280000
222900                                                                  22290000
223000     IF  (HLD-RUG = 'RUC' OR 'RUB' OR 'RUA' OR 'RVC' OR           22300000
223100                    'RVB' OR 'RVA' OR 'RHC' OR 'RHB' OR           22310000
223200                    'RHA' OR 'RMC' OR 'RMB' OR 'RMA' OR           22320000
223300                    'RLB' OR 'RLA')                               22330000
223400        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        22340000
223500                HLD-PAYMENT-RATE * 1.067.                         22350000
223600                                                                  22360000
223700     IF  (HLD-RUG = 'SE3' OR 'SE2' OR 'SE1' OR 'SSC' OR           22370000
223800                    'SSB' OR 'SSA' OR 'CC2' OR 'CC1' OR           22380000
223900                    'CB2' OR 'CB1' OR 'CA2' OR 'CA1')             22390000
224000        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        22400000
224100                HLD-PAYMENT-RATE * 1.20.                          22410000
224200                                                                  22420000
224300     IF  SNF-FED-BLEND = 0                                        22430000
224400        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        22440000
224500                HLD-FACILITY-RATE * 1.00.                         22450000
224600                                                                  22460000
224700                                                                  22470000
224800     IF SNF-FED-BLEND = 4                                         22480000
224900        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              22490000
225000        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        22500000
225100                HLD-PAYMENT-RATE * 1.00.                          22510000
225200                                                                  22520000
225300                                                                  22530000
225400 2003-EXIT.   EXIT.                                               22540000
225500 2004-PAYMENT-RATE-CALC.                                          22550000
225600***************************************************************   22560000
225700*     PAYMENT RATE CALCULATION PROCCESS EFFECTIVE OCT.1, 2003     22570000
225800***************************************************************   22580000
225900                                                                  22590000
226000     MOVE 1                    TO R3.                             22600000
226100                                                                  22610000
226200     IF HLD-MSA-RURAL-CHECK                                       22620000
226300        MOVE 1                 TO R2                              22630000
226400     ELSE                                                         22640000
226500        MOVE 2                 TO R2.                             22650000
226600                                                                  22660000
226700     PERFORM 800-SEARCH-4-RUG                                     22670000
226800        THRU 800-SEARCH-EXIT.                                     22680000
226900                                                                  22690000
227000     IF HLD-RTC NOT = 00                                          22700000
227100        GO TO 2004-EXIT.                                          22710000
227200                                                                  22720000
227300     PERFORM 500-GET-RATES.                                       22730000
227400                                                                  22740000
227500     IF (HLD-THRU-DATE < 20000101 AND                             22750000
227600         SNF-FED-BLEND = 0)                                       22760000
227700        MOVE '61'              TO HLD-RTC                         22770000
227800        MOVE ALL '0'           TO HOLD-VAR-DATA                   22780000
227900        GO TO 2004-EXIT.                                          22790000
228000                                                                  22800000
228100     IF SNF-FED-BLEND = 0 OR 4                                    22810000
228200        NEXT SENTENCE                                             22820000
228300     ELSE                                                         22830000
228400        MOVE '60'              TO HLD-RTC                         22840000
228500        MOVE ALL '0'           TO HOLD-VAR-DATA                   22850000
228600        GO TO 2004-EXIT.                                          22860000
228700                                                                  22870000
228800        COMPUTE NURSING-COMPONENT ROUNDED =                       22880000
228900                   (NUR-INDEX * IP-RATE).                         22890000
229000                                                                  22900000
229100        COMPUTE THERAPY-COMPONENT ROUNDED =                       22910000
229200                   (THR-INDEX * REHAB-RATE).                      22920000
229300                                                                  22930000
229400        COMPUTE NCM-THR-COMPONENT ROUNDED =                       22940000
229500                   (FACTOR * NCM-THR-COMPONENT).                  22950000
229600                                                                  22960000
229700        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       22970000
229800                   NURSING-COMPONENT +                            22980000
229900                   THERAPY-COMPONENT +                            22990000
230000                   NCM-THR-COMPONENT +                            23000000
230100                   NCM-COMPONENT.                                 23010000
230200                                                                  23020000
230300        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        23030000
230400             (HLD-PAYMENT-RATE * PERCENT-2004-LABOR) *            23040000
230500               AREA-WAGE-INDEX.                                   23050000
230600                                                                  23060000
230700        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        23070000
230800               (HLD-PAYMENT-RATE * PERCENT-2004-NLABOR) +         23080000
230900                    PAYMENT-RATE-ADJ.                             23090000
231000                                                                  23100000
231100     IF  (HLD-RUG = 'IB2' OR 'IB1' OR 'IA2' OR 'IA1' OR           23110000
231200                    'BB2' OR 'BB1' OR 'BA2' OR 'BA1' OR           23120000
231300                    'PE2' OR 'PE1' OR 'PD2' OR 'PD1' OR           23130000
231400                    'PC2' OR 'PC1' OR 'PB2' OR 'PB1' OR           23140000
231500                    'PA2' OR 'PA1' OR 'AAA')                      23150000
231600        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        23160000
231700                HLD-PAYMENT-RATE * 1.00.                          23170000
231800                                                                  23180000
231900     IF  (HLD-RUG = 'RUC' OR 'RUB' OR 'RUA' OR 'RVC' OR           23190000
232000                    'RVB' OR 'RVA' OR 'RHC' OR 'RHB' OR           23200000
232100                    'RHA' OR 'RMC' OR 'RMB' OR 'RMA' OR           23210000
232200                    'RLB' OR 'RLA')                               23220000
232300        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        23230000
232400                HLD-PAYMENT-RATE * 1.067.                         23240000
232500                                                                  23250000
232600     IF  (HLD-RUG = 'SE3' OR 'SE2' OR 'SE1' OR 'SSC' OR           23260000
232700                    'SSB' OR 'SSA' OR 'CC2' OR 'CC1' OR           23270000
232800                    'CB2' OR 'CB1' OR 'CA2' OR 'CA1')             23280000
232900        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        23290000
233000                HLD-PAYMENT-RATE * 1.20.                          23300000
233100                                                                  23310000
233200     IF  SNF-FED-BLEND = 0                                        23320000
233300        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        23330000
233400                HLD-FACILITY-RATE * 1.00.                         23340000
233500                                                                  23350000
233600                                                                  23360000
233700     IF SNF-FED-BLEND = 4                                         23370000
233800        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              23380000
233900        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        23390000
234000                HLD-PAYMENT-RATE * 1.00.                          23400000
234100                                                                  23410000
234200                                                                  23420000
234300 2004-EXIT.   EXIT.                                               23430000
234400                                                                  23440000
234500 2005-PAYMENT-RATE-CALC.                                          23450000
234600***************************************************************   23460000
234700*     PAYMENT RATE CALCULATION PROCCESS EFFECTIVE OCT.1, 2004     23470000
234800***************************************************************   23480000
234900                                                                  23490000
235000     MOVE 1                    TO R3.                             23500000
235100                                                                  23510000
235200     IF HLD-MSA-RURAL-CHECK                                       23520000
235300        MOVE 1                 TO R2                              23530000
235400     ELSE                                                         23540000
235500        MOVE 2                 TO R2.                             23550000
235600                                                                  23560000
235700     PERFORM 800-SEARCH-4-RUG                                     23570000
235800        THRU 800-SEARCH-EXIT.                                     23580000
235900                                                                  23590000
236000     IF HLD-RTC NOT = 00                                          23600000
236100        GO TO 2005-EXIT.                                          23610000
236200                                                                  23620000
236300     PERFORM 500-GET-RATES.                                       23630000
236400                                                                  23640000
236500     IF (HLD-THRU-DATE < 20000101 AND                             23650000
236600         SNF-FED-BLEND = 0)                                       23660000
236700        MOVE '61'              TO HLD-RTC                         23670000
236800        MOVE ALL '0'           TO HOLD-VAR-DATA                   23680000
236900        GO TO 2005-EXIT.                                          23690000
237000                                                                  23700000
237100     IF SNF-FED-BLEND = 0 OR 4                                    23710000
237200        NEXT SENTENCE                                             23720000
237300     ELSE                                                         23730000
237400        MOVE '60'              TO HLD-RTC                         23740000
237500        MOVE ALL '0'           TO HOLD-VAR-DATA                   23750000
237600        GO TO 2005-EXIT.                                          23760000
237700                                                                  23770000
237800        COMPUTE NURSING-COMPONENT ROUNDED =                       23780000
237900                   (NUR-INDEX * IP-RATE).                         23790000
238000                                                                  23800000
238100        COMPUTE THERAPY-COMPONENT ROUNDED =                       23810000
238200                   (THR-INDEX * REHAB-RATE).                      23820000
238300                                                                  23830000
238400        COMPUTE NCM-THR-COMPONENT ROUNDED =                       23840000
238500                   (FACTOR * NCM-THR-COMPONENT).                  23850000
238600                                                                  23860000
238700        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       23870000
238800                   NURSING-COMPONENT +                            23880000
238900                   THERAPY-COMPONENT +                            23890000
239000                   NCM-THR-COMPONENT +                            23900000
239100                   NCM-COMPONENT.                                 23910000
239200                                                                  23920000
239300        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        23930000
239400             (HLD-PAYMENT-RATE * PERCENT-2005-LABOR) *            23940000
239500               AREA-WAGE-INDEX.                                   23950000
239600                                                                  23960000
239700        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        23970000
239800               (HLD-PAYMENT-RATE * PERCENT-2005-NLABOR) +         23980000
239900                    PAYMENT-RATE-ADJ.                             23990000
240000                                                                  24000000
240100     IF '042   ' = SNF-PRIN-DIAG-CODE   OR                        24010000
240200                   SNF-OTHER-DIAG-CODE2 OR                        24020000
240300                   SNF-OTHER-DIAG-CODE3 OR                        24030000
240400                   SNF-OTHER-DIAG-CODE4 OR                        24040000
240500                   SNF-OTHER-DIAG-CODE5 OR                        24050000
240600                   SNF-OTHER-DIAG-CODE6 OR                        24060000
240700                   SNF-OTHER-DIAG-CODE7 OR                        24070000
240800                   SNF-OTHER-DIAG-CODE8 OR                        24080000
240900                   SNF-OTHER-DIAG-CODE9 OR                        24090000
241000                   SNF-OTHER-DIAG-CODE10 OR                       24100000
241100                   SNF-OTHER-DIAG-CODE11 OR                       24110000
241200                   SNF-OTHER-DIAG-CODE12 OR                       24120000
241300                   SNF-OTHER-DIAG-CODE13 OR                       24130000
241400                   SNF-OTHER-DIAG-CODE14 OR                       24140000
241500                   SNF-OTHER-DIAG-CODE15 OR                       24150000
241600                   SNF-OTHER-DIAG-CODE16 OR                       24160000
241700                   SNF-OTHER-DIAG-CODE17 OR                       24170000
241800                   SNF-OTHER-DIAG-CODE18 OR                       24180000
241900                   SNF-OTHER-DIAG-CODE19 OR                       24190000
242000                   SNF-OTHER-DIAG-CODE20 OR                       24200000
242100                   SNF-OTHER-DIAG-CODE21 OR                       24210000
242200                   SNF-OTHER-DIAG-CODE22 OR                       24220000
242300                   SNF-OTHER-DIAG-CODE23 OR                       24230000
242400                   SNF-OTHER-DIAG-CODE24 OR                       24240000
242500                   SNF-OTHER-DIAG-CODE25                          24250000
242600         COMPUTE HLD-PAYMENT-RATE ROUNDED =                       24260000
242700                 HLD-PAYMENT-RATE * 2.28                          24270000
242800         GO TO 2005-CONTINUE.                                     24280000
242900                                                                  24290000
243000     IF  (HLD-RUG = 'IB2' OR 'IB1' OR 'IA2' OR 'IA1' OR           24300000
243100                    'BB2' OR 'BB1' OR 'BA2' OR 'BA1' OR           24310000
243200                    'PE2' OR 'PE1' OR 'PD2' OR 'PD1' OR           24320000
243300                    'PC2' OR 'PC1' OR 'PB2' OR 'PB1' OR           24330000
243400                    'PA2' OR 'PA1' OR 'AAA')                      24340000
243500        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        24350000
243600                HLD-PAYMENT-RATE * 1.00.                          24360000
243700                                                                  24370000
243800     IF  (HLD-RUG = 'RUC' OR 'RUB' OR 'RUA' OR 'RVC' OR           24380000
243900                    'RVB' OR 'RVA' OR 'RHC' OR 'RHB' OR           24390000
244000                    'RHA' OR 'RMC' OR 'RMB' OR 'RMA' OR           24400000
244100                    'RLB' OR 'RLA')                               24410000
244200        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        24420000
244300                HLD-PAYMENT-RATE * 1.067.                         24430000
244400                                                                  24440000
244500     IF  (HLD-RUG = 'SE3' OR 'SE2' OR 'SE1' OR 'SSC' OR           24450000
244600                    'SSB' OR 'SSA' OR 'CC2' OR 'CC1' OR           24460000
244700                    'CB2' OR 'CB1' OR 'CA2' OR 'CA1')             24470000
244800        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        24480000
244900                HLD-PAYMENT-RATE * 1.20.                          24490000
245000                                                                  24500000
245100 2005-CONTINUE.                                                   24510000
245200                                                                  24520000
245300     IF  SNF-FED-BLEND = 0                                        24530000
245400        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        24540000
245500                HLD-FACILITY-RATE * 1.00.                         24550000
245600                                                                  24560000
245700     IF SNF-FED-BLEND = 4                                         24570000
245800        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              24580000
245900        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        24590000
246000                HLD-PAYMENT-RATE * 1.00.                          24600000
246100                                                                  24610000
246200 2005-EXIT.   EXIT.                                               24620000
246300                                                                  24630000
246400 2006-44-PAYMENT-RATE-CALC.                                       24640000
246500***************************************************************   24650000
246600*     PAYMENT RATE CALCULATION PROCCESS                           24660000
246700*      EFFECTIVE OCT.1, 2005 TIL JAN.1, 2006                      24670000
246800***************************************************************   24680000
246900                                                                  24690000
247000     IF HLD-CBSA = '     '                                        24700000
247100        MOVE '30'              TO HLD-RTC                         24710000
247200        GO TO 2006-44-EXIT.                                       24720000
247300                                                                  24730000
247400     MOVE 1                    TO R3.                             24740000
247500                                                                  24750000
247600     IF HLD-CBSA-RURAL-CHECK                                      24760000
247700        MOVE 1                 TO R2                              24770000
247800     ELSE                                                         24780000
247900        MOVE 2                 TO R2.                             24790000
248000                                                                  24800000
248100     PERFORM 800-SEARCH-4-RUG                                     24810000
248200        THRU 800-SEARCH-EXIT.                                     24820000
248300                                                                  24830000
248400     IF HLD-RTC NOT = 00                                          24840000
248500        GO TO 2006-44-EXIT.                                       24850000
248600                                                                  24860000
248700     PERFORM 500-GET-RATES.                                       24870000
248800                                                                  24880000
248900     IF SNF-FED-BLEND = 0 OR 4                                    24890000
249000        NEXT SENTENCE                                             24900000
249100     ELSE                                                         24910000
249200        MOVE '60'              TO HLD-RTC                         24920000
249300        MOVE ALL '0'           TO HOLD-VAR-DATA                   24930000
249400        GO TO 2006-44-EXIT.                                       24940000
249500                                                                  24950000
249600        COMPUTE NURSING-COMPONENT ROUNDED =                       24960000
249700                   (NUR-INDEX * IP-RATE).                         24970000
249800                                                                  24980000
249900        COMPUTE THERAPY-COMPONENT ROUNDED =                       24990000
250000                   (THR-INDEX * REHAB-RATE).                      25000000
250100                                                                  25010000
250200        COMPUTE NCM-THR-COMPONENT ROUNDED =                       25020000
250300                   (FACTOR * NCM-THR-COMPONENT).                  25030000
250400                                                                  25040000
250500        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       25050000
250600                   NURSING-COMPONENT +                            25060000
250700                   THERAPY-COMPONENT +                            25070000
250800                   NCM-THR-COMPONENT +                            25080000
250900                   NCM-COMPONENT.                                 25090000
251000                                                                  25100000
251100        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        25110000
251200             (HLD-PAYMENT-RATE * PERCENT-2006-LABOR) *            25120000
251300               AREA-WAGE-INDEX.                                   25130000
251400                                                                  25140000
251500        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        25150000
251600               (HLD-PAYMENT-RATE * PERCENT-2006-NLABOR) +         25160000
251700                    PAYMENT-RATE-ADJ.                             25170000
251800                                                                  25180000
251900     IF '042   ' = SNF-PRIN-DIAG-CODE    OR                       25190000
252000                   SNF-OTHER-DIAG-CODE2  OR                       25200000
252100                   SNF-OTHER-DIAG-CODE3  OR                       25210000
252200                   SNF-OTHER-DIAG-CODE4  OR                       25220000
252300                   SNF-OTHER-DIAG-CODE5  OR                       25230000
252400                   SNF-OTHER-DIAG-CODE6  OR                       25240000
252500                   SNF-OTHER-DIAG-CODE7  OR                       25250000
252600                   SNF-OTHER-DIAG-CODE8  OR                       25260000
252700                   SNF-OTHER-DIAG-CODE9  OR                       25270000
252800                   SNF-OTHER-DIAG-CODE10 OR                       25280000
252900                   SNF-OTHER-DIAG-CODE11 OR                       25290000
253000                   SNF-OTHER-DIAG-CODE12 OR                       25300000
253100                   SNF-OTHER-DIAG-CODE13 OR                       25310000
253200                   SNF-OTHER-DIAG-CODE14 OR                       25320000
253300                   SNF-OTHER-DIAG-CODE15 OR                       25330000
253400                   SNF-OTHER-DIAG-CODE16 OR                       25340000
253500                   SNF-OTHER-DIAG-CODE17 OR                       25350000
253600                   SNF-OTHER-DIAG-CODE18 OR                       25360000
253700                   SNF-OTHER-DIAG-CODE19 OR                       25370000
253800                   SNF-OTHER-DIAG-CODE20 OR                       25380000
253900                   SNF-OTHER-DIAG-CODE21 OR                       25390000
254000                   SNF-OTHER-DIAG-CODE22 OR                       25400000
254100                   SNF-OTHER-DIAG-CODE23 OR                       25410000
254200                   SNF-OTHER-DIAG-CODE24 OR                       25420000
254300                   SNF-OTHER-DIAG-CODE25                          25430000
254400         COMPUTE HLD-PAYMENT-RATE ROUNDED =                       25440000
254500                 HLD-PAYMENT-RATE * 2.28                          25450000
254600         GO TO 2006-CONTINUE.                                     25460000
254700                                                                  25470000
254800     IF  (HLD-RUG = 'IB2' OR 'IB1' OR 'IA2' OR 'IA1' OR           25480000
254900                    'BB2' OR 'BB1' OR 'BA2' OR 'BA1' OR           25490000
255000                    'PE2' OR 'PE1' OR 'PD2' OR 'PD1' OR           25500000
255100                    'PC2' OR 'PC1' OR 'PB2' OR 'PB1' OR           25510000
255200                    'PA2' OR 'PA1' OR 'AAA')                      25520000
255300        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        25530000
255400                HLD-PAYMENT-RATE * 1.00.                          25540000
255500                                                                  25550000
255600     IF  (HLD-RUG = 'RUC' OR 'RUB' OR 'RUA' OR 'RVC' OR           25560000
255700                    'RVB' OR 'RVA' OR 'RHC' OR 'RHB' OR           25570000
255800                    'RHA' OR 'RMC' OR 'RMB' OR 'RMA' OR           25580000
255900                    'RLB' OR 'RLA')                               25590000
256000        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        25600000
256100                HLD-PAYMENT-RATE * 1.067.                         25610000
256200                                                                  25620000
256300     IF  (HLD-RUG = 'SE3' OR 'SE2' OR 'SE1' OR 'SSC' OR           25630000
256400                    'SSB' OR 'SSA' OR 'CC2' OR 'CC1' OR           25640000
256500                    'CB2' OR 'CB1' OR 'CA2' OR 'CA1')             25650000
256600        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        25660000
256700                HLD-PAYMENT-RATE * 1.20.                          25670000
256800                                                                  25680000
256900 2006-CONTINUE.                                                   25690000
257000                                                                  25700000
257100     IF  SNF-FED-BLEND = 0                                        25710000
257200        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        25720000
257300                HLD-FACILITY-RATE * 1.00.                         25730000
257400                                                                  25740000
257500     IF SNF-FED-BLEND = 4                                         25750000
257600        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              25760000
257700        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        25770000
257800                HLD-PAYMENT-RATE * 1.00.                          25780000
257900                                                                  25790000
258000                                                                  25800000
258100 2006-44-EXIT.   EXIT.                                            25810000
258200                                                                  25820000
258300 2006-53-PAYMENT-RATE-CALC.                                       25830000
258400***************************************************************   25840000
258500*     PAYMENT RATE CALCULATION PROCCESS EFFECTIVE JAN.1, 2006     25850000
258600***************************************************************   25860000
258700                                                                  25870000
258800     IF HLD-CBSA = '     '                                        25880000
258900        MOVE '30'              TO HLD-RTC                         25890000
259000        GO TO 2006-53-EXIT.                                       25900000
259100                                                                  25910000
259200     MOVE 1                    TO R3.                             25920000
259300                                                                  25930000
259400     IF HLD-CBSA-RURAL-CHECK                                      25940000
259500        MOVE 1                 TO R2                              25950000
259600     ELSE                                                         25960000
259700        MOVE 2                 TO R2.                             25970000
259800                                                                  25980000
259900     PERFORM 900-SEARCH-4-RUG53                                   25990000
260000        THRU 900-SEARCH-EXIT.                                     26000000
260100                                                                  26010000
260200     IF HLD-RTC NOT = 00                                          26020000
260300        GO TO 2006-53-EXIT.                                       26030000
260400                                                                  26040000
260500     PERFORM 500-GET-RATES.                                       26050000
260600                                                                  26060000
260700     IF SNF-FED-BLEND = 0 OR 4                                    26070000
260800        NEXT SENTENCE                                             26080000
260900     ELSE                                                         26090000
261000        MOVE '60'              TO HLD-RTC                         26100000
261100        MOVE ALL '0'           TO HOLD-VAR-DATA                   26110000
261200        GO TO 2006-53-EXIT.                                       26120000
261300                                                                  26130000
261400        COMPUTE NURSING-COMPONENT ROUNDED =                       26140000
261500                   (NUR-INDEX * IP-RATE).                         26150000
261600                                                                  26160000
261700        COMPUTE THERAPY-COMPONENT ROUNDED =                       26170000
261800                   (THR-INDEX * REHAB-RATE).                      26180000
261900                                                                  26190000
262000        COMPUTE NCM-THR-COMPONENT ROUNDED =                       26200000
262100                   (FACTOR * NCM-THR-COMPONENT).                  26210000
262200                                                                  26220000
262300        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       26230000
262400                   NURSING-COMPONENT +                            26240000
262500                   THERAPY-COMPONENT +                            26250000
262600                   NCM-THR-COMPONENT +                            26260000
262700                   NCM-COMPONENT.                                 26270000
262800                                                                  26280000
262900        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        26290000
263000             (HLD-PAYMENT-RATE * PERCENT-2006-LABOR) *            26300000
263100               AREA-WAGE-INDEX.                                   26310000
263200                                                                  26320000
263300        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        26330000
263400               (HLD-PAYMENT-RATE * PERCENT-2006-NLABOR) +         26340000
263500                    PAYMENT-RATE-ADJ.                             26350000
263600                                                                  26360000
263700     IF '042   ' = SNF-PRIN-DIAG-CODE    OR                       26370000
263800                   SNF-OTHER-DIAG-CODE2  OR                       26380000
263900                   SNF-OTHER-DIAG-CODE3  OR                       26390000
264000                   SNF-OTHER-DIAG-CODE4  OR                       26400000
264100                   SNF-OTHER-DIAG-CODE5  OR                       26410000
264200                   SNF-OTHER-DIAG-CODE6  OR                       26420000
264300                   SNF-OTHER-DIAG-CODE7  OR                       26430000
264400                   SNF-OTHER-DIAG-CODE8  OR                       26440000
264500                   SNF-OTHER-DIAG-CODE9  OR                       26450000
264600                   SNF-OTHER-DIAG-CODE10 OR                       26460000
264700                   SNF-OTHER-DIAG-CODE11 OR                       26470000
264800                   SNF-OTHER-DIAG-CODE12 OR                       26480000
264900                   SNF-OTHER-DIAG-CODE13 OR                       26490000
265000                   SNF-OTHER-DIAG-CODE14 OR                       26500000
265100                   SNF-OTHER-DIAG-CODE15 OR                       26510000
265200                   SNF-OTHER-DIAG-CODE16 OR                       26520000
265300                   SNF-OTHER-DIAG-CODE17 OR                       26530000
265400                   SNF-OTHER-DIAG-CODE18 OR                       26540000
265500                   SNF-OTHER-DIAG-CODE19 OR                       26550000
265600                   SNF-OTHER-DIAG-CODE20 OR                       26560000
265700                   SNF-OTHER-DIAG-CODE21 OR                       26570000
265800                   SNF-OTHER-DIAG-CODE22 OR                       26580000
265900                   SNF-OTHER-DIAG-CODE23 OR                       26590000
266000                   SNF-OTHER-DIAG-CODE24 OR                       26600000
266100                   SNF-OTHER-DIAG-CODE25                          26610000
266200         COMPUTE HLD-PAYMENT-RATE ROUNDED =                       26620000
266300                 HLD-PAYMENT-RATE * 2.28                          26630000
266400         GO TO 2006-53-CONTINUE.                                  26640000
266500                                                                  26650000
266600 2006-53-CONTINUE.                                                26660000
266700                                                                  26670000
266800     IF  SNF-FED-BLEND = 0                                        26680000
266900        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        26690000
267000                HLD-FACILITY-RATE * 1.00.                         26700000
267100                                                                  26710000
267200     IF SNF-FED-BLEND = 4                                         26720000
267300        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              26730000
267400        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        26740000
267500                HLD-PAYMENT-RATE * 1.00.                          26750000
267600                                                                  26760000
267700 2006-53-EXIT.   EXIT.                                            26770000
267800                                                                  26780000
267900 2007-53-PAYMENT-RATE-CALC.                                       26790000
268000***************************************************************   26800000
268100*     PAYMENT RATE CALCULATION PROCCESS EFFECTIVE OCT.1, 2007     26810000
268200***************************************************************   26820000
268300                                                                  26830000
268400     IF HLD-CBSA = '     '                                        26840000
268500        MOVE '30' TO HLD-RTC                                      26850000
268600        GO TO 2007-53-EXIT.                                       26860000
268700                                                                  26870000
268800     MOVE 1 TO R3.                                                26880000
268900                                                                  26890000
269000     IF HLD-CBSA-RURAL-CHECK                                      26900000
269100        MOVE 1 TO R2                                              26910000
269200     ELSE                                                         26920000
269300        MOVE 2 TO R2.                                             26930000
269400                                                                  26940000
269500     PERFORM 900-SEARCH-4-RUG53  THRU 900-SEARCH-EXIT.            26950000
269600                                                                  26960000
269700     IF HLD-RTC NOT = 00 GO TO 2007-53-EXIT.                      26970000
269800                                                                  26980000
269900     PERFORM 500-GET-RATES.                                       26990000
270000                                                                  27000000
270100     IF SNF-FED-BLEND = 0 OR 4                                    27010000
270200        NEXT SENTENCE                                             27020000
270300     ELSE                                                         27030000
270400        MOVE '60' TO HLD-RTC                                      27040000
270500        MOVE ALL '0' TO HOLD-VAR-DATA                             27050000
270600        GO TO 2007-53-EXIT.                                       27060000
270700                                                                  27070000
270800        COMPUTE NURSING-COMPONENT ROUNDED =                       27080000
270900                   (NUR-INDEX * IP-RATE).                         27090000
271000                                                                  27100000
271100        COMPUTE THERAPY-COMPONENT ROUNDED =                       27110000
271200                   (THR-INDEX * REHAB-RATE).                      27120000
271300                                                                  27130000
271400        COMPUTE NCM-THR-COMPONENT ROUNDED =                       27140000
271500                   (FACTOR * NCM-THR-COMPONENT).                  27150000
271600                                                                  27160000
271700        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       27170000
271800                   NURSING-COMPONENT +                            27180000
271900                   THERAPY-COMPONENT +                            27190000
272000                   NCM-THR-COMPONENT +                            27200000
272100                   NCM-COMPONENT.                                 27210000
272200                                                                  27220000
272300        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        27230000
272400             (HLD-PAYMENT-RATE * PERCENT-2007-LABOR) *            27240000
272500               AREA-WAGE-INDEX.                                   27250000
272600                                                                  27260000
272700        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        27270000
272800               (HLD-PAYMENT-RATE * PERCENT-2007-NLABOR) +         27280000
272900                    PAYMENT-RATE-ADJ.                             27290000
273000                                                                  27300000
273100     IF '042   ' = SNF-PRIN-DIAG-CODE    OR                       27310000
273200                   SNF-OTHER-DIAG-CODE2  OR                       27320000
273300                   SNF-OTHER-DIAG-CODE3  OR                       27330000
273400                   SNF-OTHER-DIAG-CODE4  OR                       27340000
273500                   SNF-OTHER-DIAG-CODE5  OR                       27350000
273600                   SNF-OTHER-DIAG-CODE6  OR                       27360000
273700                   SNF-OTHER-DIAG-CODE7  OR                       27370000
273800                   SNF-OTHER-DIAG-CODE8  OR                       27380000
273900                   SNF-OTHER-DIAG-CODE9  OR                       27390000
274000                   SNF-OTHER-DIAG-CODE10 OR                       27400000
274100                   SNF-OTHER-DIAG-CODE11 OR                       27410000
274200                   SNF-OTHER-DIAG-CODE12 OR                       27420000
274300                   SNF-OTHER-DIAG-CODE13 OR                       27430000
274400                   SNF-OTHER-DIAG-CODE14 OR                       27440000
274500                   SNF-OTHER-DIAG-CODE15 OR                       27450000
274600                   SNF-OTHER-DIAG-CODE16 OR                       27460000
274700                   SNF-OTHER-DIAG-CODE17 OR                       27470000
274800                   SNF-OTHER-DIAG-CODE18 OR                       27480000
274900                   SNF-OTHER-DIAG-CODE19 OR                       27490000
275000                   SNF-OTHER-DIAG-CODE20 OR                       27500000
275100                   SNF-OTHER-DIAG-CODE21 OR                       27510000
275200                   SNF-OTHER-DIAG-CODE22 OR                       27520000
275300                   SNF-OTHER-DIAG-CODE23 OR                       27530000
275400                   SNF-OTHER-DIAG-CODE24 OR                       27540000
275500                   SNF-OTHER-DIAG-CODE25                          27550000
275600         COMPUTE HLD-PAYMENT-RATE ROUNDED =                       27560000
275700                 HLD-PAYMENT-RATE * 2.28                          27570000
275800         GO TO 2007-53-CONTINUE.                                  27580000
275900                                                                  27590000
276000 2007-53-CONTINUE.                                                27600000
276100                                                                  27610000
276200     IF  SNF-FED-BLEND = 0                                        27620000
276300        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        27630000
276400                HLD-FACILITY-RATE * 1.00.                         27640000
276500                                                                  27650000
276600     IF SNF-FED-BLEND = 4                                         27660000
276700        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              27670000
276800        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        27680000
276900                HLD-PAYMENT-RATE * 1.00.                          27690000
277000                                                                  27700000
277100 2007-53-EXIT. EXIT.                                              27710000
277200                                                                  27720000
277300 2008-53-PAYMENT-RATE-CALC.                                       27730000
277400***************************************************************   27740000
277500*     PAYMENT RATE CALCULATION PROCCESS EFFECTIVE OCT.1, 2007     27750001
277600***************************************************************   27760000
277700                                                                  27770000
277800     IF HLD-CBSA = '     '                                        27780000
277900        MOVE '30' TO HLD-RTC                                      27790000
278000        GO TO 2008-53-EXIT.                                       27800000
278100                                                                  27810000
278200     MOVE 1 TO R3.                                                27820000
278300                                                                  27830000
278400     IF HLD-CBSA-RURAL-CHECK                                      27840000
278500        MOVE 1 TO R2                                              27850000
278600     ELSE                                                         27860000
278700        MOVE 2 TO R2.                                             27870000
278800                                                                  27880000
278900     PERFORM 900-SEARCH-4-RUG53  THRU 900-SEARCH-EXIT.            27890000
279000                                                                  27900000
279100     IF HLD-RTC NOT = 00 GO TO 2008-53-EXIT.                      27910000
279200                                                                  27920000
279300     PERFORM 500-GET-RATES.                                       27930000
279400                                                                  27940000
279500     IF SNF-FED-BLEND = 0 OR 4                                    27950000
279600        NEXT SENTENCE                                             27960000
279700     ELSE                                                         27970000
279800        MOVE '60' TO HLD-RTC                                      27980000
279900        MOVE ALL '0' TO HOLD-VAR-DATA                             27990000
280000        GO TO 2008-53-EXIT.                                       28000000
280100                                                                  28010000
280200        COMPUTE NURSING-COMPONENT ROUNDED =                       28020000
280300                   (NUR-INDEX * IP-RATE).                         28030000
280400                                                                  28040000
280500        COMPUTE THERAPY-COMPONENT ROUNDED =                       28050000
280600                   (THR-INDEX * REHAB-RATE).                      28060000
280700                                                                  28070000
280800        COMPUTE NCM-THR-COMPONENT ROUNDED =                       28080000
280900                   (FACTOR * NCM-THR-COMPONENT).                  28090000
281000                                                                  28100000
281100        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       28110000
281200                   NURSING-COMPONENT +                            28120000
281300                   THERAPY-COMPONENT +                            28130000
281400                   NCM-THR-COMPONENT +                            28140000
281500                   NCM-COMPONENT.                                 28150000
281600                                                                  28160000
281700        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        28170000
281800             (HLD-PAYMENT-RATE * PERCENT-2008-LABOR) *            28180000
281900               AREA-WAGE-INDEX.                                   28190000
282000                                                                  28200000
282100        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        28210000
282200               (HLD-PAYMENT-RATE * PERCENT-2008-NLABOR) +         28220000
282300                    PAYMENT-RATE-ADJ.                             28230000
282400                                                                  28240000
282500     IF '042   ' = SNF-PRIN-DIAG-CODE    OR                       28250000
282600                   SNF-OTHER-DIAG-CODE2  OR                       28260000
282700                   SNF-OTHER-DIAG-CODE3  OR                       28270000
282800                   SNF-OTHER-DIAG-CODE4  OR                       28280000
282900                   SNF-OTHER-DIAG-CODE5  OR                       28290000
283000                   SNF-OTHER-DIAG-CODE6  OR                       28300000
283100                   SNF-OTHER-DIAG-CODE7  OR                       28310000
283200                   SNF-OTHER-DIAG-CODE8  OR                       28320000
283300                   SNF-OTHER-DIAG-CODE9  OR                       28330000
283400                   SNF-OTHER-DIAG-CODE10 OR                       28340000
283500                   SNF-OTHER-DIAG-CODE11 OR                       28350000
283600                   SNF-OTHER-DIAG-CODE12 OR                       28360000
283700                   SNF-OTHER-DIAG-CODE13 OR                       28370000
283800                   SNF-OTHER-DIAG-CODE14 OR                       28380000
283900                   SNF-OTHER-DIAG-CODE15 OR                       28390000
284000                   SNF-OTHER-DIAG-CODE16 OR                       28400000
284100                   SNF-OTHER-DIAG-CODE17 OR                       28410000
284200                   SNF-OTHER-DIAG-CODE18 OR                       28420000
284300                   SNF-OTHER-DIAG-CODE19 OR                       28430000
284400                   SNF-OTHER-DIAG-CODE20 OR                       28440000
284500                   SNF-OTHER-DIAG-CODE21 OR                       28450000
284600                   SNF-OTHER-DIAG-CODE22 OR                       28460000
284700                   SNF-OTHER-DIAG-CODE23 OR                       28470000
284800                   SNF-OTHER-DIAG-CODE24 OR                       28480000
284900                   SNF-OTHER-DIAG-CODE25                          28490000
285000         COMPUTE HLD-PAYMENT-RATE ROUNDED =                       28500000
285100                 HLD-PAYMENT-RATE * 2.28                          28510000
285200         GO TO 2008-53-CONTINUE.                                  28520000
285300                                                                  28530000
285400 2008-53-CONTINUE.                                                28540000
285500                                                                  28550000
285600     IF  SNF-FED-BLEND = 0                                        28560000
285700        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        28570000
285800                HLD-FACILITY-RATE * 1.00.                         28580000
285900                                                                  28590000
286000     IF SNF-FED-BLEND = 4                                         28600000
286100        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              28610000
286200        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        28620000
286300                HLD-PAYMENT-RATE * 1.00.                          28630000
286400                                                                  28640000
286500 2008-53-EXIT. EXIT.                                              28650000
286600                                                                  28660001
286700 2009-53-PAYMENT-RATE-CALC.                                       28670001
286800***************************************************************   28680001
286900*     PAYMENT RATE CALCULATION PROCCESS EFFECTIVE OCT.1, 2009     28690001
287000***************************************************************   28700001
287100                                                                  28710001
287200     IF HLD-CBSA = '     '                                        28720001
287300        MOVE '30' TO HLD-RTC                                      28730001
287400        GO TO 2009-53-EXIT.                                       28740001
287500                                                                  28750001
287600     MOVE 1 TO R3.                                                28760001
287700                                                                  28770001
287800     IF HLD-CBSA-RURAL-CHECK                                      28780001
287900        MOVE 1 TO R2                                              28790001
288000     ELSE                                                         28800001
288100        MOVE 2 TO R2.                                             28810001
288200                                                                  28820001
288300     PERFORM 900-SEARCH-4-RUG53  THRU 900-SEARCH-EXIT.            28830001
288400                                                                  28840001
288500     IF HLD-RTC NOT = 00 GO TO 2009-53-EXIT.                      28850001
288600                                                                  28860001
288700     PERFORM 500-GET-RATES.                                       28870001
288800                                                                  28880001
288900     IF SNF-FED-BLEND = 0 OR 4                                    28890001
289000        NEXT SENTENCE                                             28900001
289100     ELSE                                                         28910001
289200        MOVE '60' TO HLD-RTC                                      28920001
289300        MOVE ALL '0' TO HOLD-VAR-DATA                             28930001
289400        GO TO 2009-53-EXIT.                                       28940001
289500                                                                  28950001
289600        COMPUTE NURSING-COMPONENT ROUNDED =                       28960001
289700                   (NUR-INDEX * IP-RATE).                         28970001
289800                                                                  28980001
289900        COMPUTE THERAPY-COMPONENT ROUNDED =                       28990001
290000                   (THR-INDEX * REHAB-RATE).                      29000001
290100                                                                  29010001
290200        COMPUTE NCM-THR-COMPONENT ROUNDED =                       29020001
290300                   (FACTOR * NCM-THR-COMPONENT).                  29030001
290400                                                                  29040001
290500        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       29050001
290600                   NURSING-COMPONENT +                            29060001
290700                   THERAPY-COMPONENT +                            29070001
290800                   NCM-THR-COMPONENT +                            29080001
290900                   NCM-COMPONENT.                                 29090001
291000                                                                  29100001
291100        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        29110001
291200             (HLD-PAYMENT-RATE * PERCENT-2009-LABOR) *            29120001
291300               AREA-WAGE-INDEX.                                   29130001
291400                                                                  29140001
291500        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        29150001
291600               (HLD-PAYMENT-RATE * PERCENT-2009-NLABOR) +         29160001
291700                    PAYMENT-RATE-ADJ.                             29170001
291800                                                                  29180001
291900     IF '042   ' = SNF-PRIN-DIAG-CODE   OR                        29190001
292000                   SNF-OTHER-DIAG-CODE2 OR                        29200001
292100                   SNF-OTHER-DIAG-CODE3 OR                        29210001
292200                   SNF-OTHER-DIAG-CODE4 OR                        29220001
292300                   SNF-OTHER-DIAG-CODE5 OR                        29230001
292400                   SNF-OTHER-DIAG-CODE6 OR                        29240001
292500                   SNF-OTHER-DIAG-CODE7 OR                        29250001
292600                   SNF-OTHER-DIAG-CODE8 OR                        29260001
292700                   SNF-OTHER-DIAG-CODE9  OR                       29270000
292800                   SNF-OTHER-DIAG-CODE10 OR                       29280000
292900                   SNF-OTHER-DIAG-CODE11 OR                       29290000
293000                   SNF-OTHER-DIAG-CODE12 OR                       29300000
293100                   SNF-OTHER-DIAG-CODE13 OR                       29310000
293200                   SNF-OTHER-DIAG-CODE14 OR                       29320000
293300                   SNF-OTHER-DIAG-CODE15 OR                       29330000
293400                   SNF-OTHER-DIAG-CODE16 OR                       29340000
293500                   SNF-OTHER-DIAG-CODE17 OR                       29350000
293600                   SNF-OTHER-DIAG-CODE18 OR                       29360000
293700                   SNF-OTHER-DIAG-CODE19 OR                       29370000
293800                   SNF-OTHER-DIAG-CODE20 OR                       29380000
293900                   SNF-OTHER-DIAG-CODE21 OR                       29390000
294000                   SNF-OTHER-DIAG-CODE22 OR                       29400000
294100                   SNF-OTHER-DIAG-CODE23 OR                       29410000
294200                   SNF-OTHER-DIAG-CODE24 OR                       29420000
294300                   SNF-OTHER-DIAG-CODE25                          29430000
294400         COMPUTE HLD-PAYMENT-RATE ROUNDED =                       29440001
294500                 HLD-PAYMENT-RATE * 2.28                          29450001
294600         GO TO 2009-53-CONTINUE.                                  29460001
294700                                                                  29470001
294800 2009-53-CONTINUE.                                                29480001
294900                                                                  29490001
295000     IF  SNF-FED-BLEND = 0                                        29500001
295100        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        29510001
295200                HLD-FACILITY-RATE * 1.00.                         29520001
295300                                                                  29530001
295400     IF SNF-FED-BLEND = 4                                         29540001
295500        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              29550001
295600        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        29560001
295700                HLD-PAYMENT-RATE * 1.00.                          29570001
295800                                                                  29580001
295900 2009-53-EXIT. EXIT.                                              29590001
296000                                                                  29600001
296100 2010-53-PAYMENT-RATE-CALC.                                       29610001
296200***************************************************************   29620001
296300*     PAYMENT RATE CALCULATION PROCCESS EFFECTIVE OCT.1, 2009     29630001
296400***************************************************************   29640001
296500                                                                  29650001
296600     IF HLD-CBSA = '     '                                        29660001
296700        MOVE '30' TO HLD-RTC                                      29670001
296800        GO TO 2010-53-EXIT.                                       29680001
296900                                                                  29690001
297000     MOVE 1 TO R3.                                                29700001
297100                                                                  29710001
297200     IF HLD-CBSA-RURAL-CHECK                                      29720001
297300        MOVE 1 TO R2                                              29730001
297400     ELSE                                                         29740001
297500        MOVE 2 TO R2.                                             29750001
297600                                                                  29760001
297700     PERFORM 910-SEARCH-4-RUG53-2010  THRU 910-SEARCH-EXIT.       29770001
297800                                                                  29780001
297900     IF HLD-RTC NOT = 00 GO TO 2010-53-EXIT.                      29790001
298000                                                                  29800001
298100     PERFORM 500-GET-RATES.                                       29810001
298200                                                                  29820001
298300     IF SNF-FED-BLEND = 0 OR 4                                    29830001
298400        NEXT SENTENCE                                             29840001
298500     ELSE                                                         29850001
298600        MOVE '60' TO HLD-RTC                                      29860001
298700        MOVE ALL '0' TO HOLD-VAR-DATA                             29870001
298800        GO TO 2010-53-EXIT.                                       29880001
298900                                                                  29890001
299000        COMPUTE NURSING-COMPONENT ROUNDED =                       29900001
299100                   (NUR-INDEX * IP-RATE).                         29910001
299200                                                                  29920001
299300        COMPUTE THERAPY-COMPONENT ROUNDED =                       29930001
299400                   (THR-INDEX * REHAB-RATE).                      29940001
299500                                                                  29950001
299600        COMPUTE NCM-THR-COMPONENT ROUNDED =                       29960001
299700                   (FACTOR * NCM-THR-COMPONENT).                  29970001
299800                                                                  29980001
299900        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       29990001
300000                   NURSING-COMPONENT +                            30000001
300100                   THERAPY-COMPONENT +                            30010001
300200                   NCM-THR-COMPONENT +                            30020001
300300                   NCM-COMPONENT.                                 30030001
300400                                                                  30040001
300500        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        30050001
300600             (HLD-PAYMENT-RATE * PERCENT-2010-LABOR) *            30060001
300700               AREA-WAGE-INDEX.                                   30070001
300800                                                                  30080001
300900        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        30090001
301000               (HLD-PAYMENT-RATE * PERCENT-2010-NLABOR) +         30100001
301100                    PAYMENT-RATE-ADJ.                             30110001
301200                                                                  30120001
301300     IF '042   ' = SNF-PRIN-DIAG-CODE   OR                        30130001
301400                   SNF-OTHER-DIAG-CODE2 OR                        30140001
301500                   SNF-OTHER-DIAG-CODE3 OR                        30150001
301600                   SNF-OTHER-DIAG-CODE4 OR                        30160001
301700                   SNF-OTHER-DIAG-CODE5 OR                        30170001
301800                   SNF-OTHER-DIAG-CODE6 OR                        30180001
301900                   SNF-OTHER-DIAG-CODE7 OR                        30190001
302000                   SNF-OTHER-DIAG-CODE8 OR                        30200001
302100                   SNF-OTHER-DIAG-CODE9  OR                       30210000
302200                   SNF-OTHER-DIAG-CODE10 OR                       30220000
302300                   SNF-OTHER-DIAG-CODE11 OR                       30230000
302400                   SNF-OTHER-DIAG-CODE12 OR                       30240000
302500                   SNF-OTHER-DIAG-CODE13 OR                       30250000
302600                   SNF-OTHER-DIAG-CODE14 OR                       30260000
302700                   SNF-OTHER-DIAG-CODE15 OR                       30270000
302800                   SNF-OTHER-DIAG-CODE16 OR                       30280000
302900                   SNF-OTHER-DIAG-CODE17 OR                       30290000
303000                   SNF-OTHER-DIAG-CODE18 OR                       30300000
303100                   SNF-OTHER-DIAG-CODE19 OR                       30310000
303200                   SNF-OTHER-DIAG-CODE20 OR                       30320000
303300                   SNF-OTHER-DIAG-CODE21 OR                       30330000
303400                   SNF-OTHER-DIAG-CODE22 OR                       30340000
303500                   SNF-OTHER-DIAG-CODE23 OR                       30350000
303600                   SNF-OTHER-DIAG-CODE24 OR                       30360000
303700                   SNF-OTHER-DIAG-CODE25                          30370000
303800         COMPUTE HLD-PAYMENT-RATE ROUNDED =                       30380001
303900                 HLD-PAYMENT-RATE * 2.28                          30390001
304000         GO TO 2010-53-CONTINUE.                                  30400001
304100                                                                  30410001
304200 2010-53-CONTINUE.                                                30420001
304300                                                                  30430001
304400     IF  SNF-FED-BLEND = 0                                        30440001
304500        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        30450001
304600                HLD-FACILITY-RATE * 1.00.                         30460001
304700                                                                  30470001
304800     IF SNF-FED-BLEND = 4                                         30480001
304900        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              30490001
305000        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        30500001
305100                HLD-PAYMENT-RATE * 1.00.                          30510001
305200                                                                  30520001
305300 2010-53-EXIT. EXIT.                                              30530001
305400                                                                  30540001
305500 2011-67-PAYMENT-RATE-CALC.                                       30550001
305600***************************************************************   30560001
305700*     PAYMENT RATE CALCULATION PROCCESS EFFECTIVE OCT.1, 2009     30570001
305800***************************************************************   30580001
305900                                                                  30590001
306000     IF HLD-CBSA = '     '                                        30600001
306100        MOVE '30' TO HLD-RTC                                      30610001
306200        GO TO 2011-67-EXIT.                                       30620001
306300                                                                  30630001
306400     MOVE 1 TO R3.                                                30640001
306500                                                                  30650001
306600     IF HLD-CBSA-RURAL-CHECK                                      30660001
306700        MOVE 1 TO R2                                              30670001
306800     ELSE                                                         30680001
306900        MOVE 2 TO R2.                                             30690001
307000                                                                  30700001
307100     PERFORM 911-SEARCH-4-RUG67-2011  THRU 911-SEARCH-EXIT.       30710001
307200                                                                  30720001
307300     IF HLD-RTC NOT = 00 GO TO 2011-67-EXIT.                      30730001
307400                                                                  30740001
307500     PERFORM 500-GET-RATES.                                       30750001
307600                                                                  30760001
307700     IF SNF-FED-BLEND = 0 OR 4                                    30770001
307800        NEXT SENTENCE                                             30780001
307900     ELSE                                                         30790001
308000        MOVE '60' TO HLD-RTC                                      30800001
308100        MOVE ALL '0' TO HOLD-VAR-DATA                             30810001
308200        GO TO 2011-67-EXIT.                                       30820001
308300                                                                  30830001
308400        COMPUTE NURSING-COMPONENT ROUNDED =                       30840001
308500                   (NUR-INDEX * IP-RATE).                         30850001
308600                                                                  30860001
308700        COMPUTE THERAPY-COMPONENT ROUNDED =                       30870001
308800                   (THR-INDEX * REHAB-RATE).                      30880001
308900                                                                  30890001
309000        COMPUTE NCM-THR-COMPONENT ROUNDED =                       30900001
309100                   (FACTOR * NCM-THR-COMPONENT).                  30910001
309200                                                                  30920001
309300        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       30930001
309400                   NURSING-COMPONENT +                            30940001
309500                   THERAPY-COMPONENT +                            30950001
309600                   NCM-THR-COMPONENT +                            30960001
309700                   NCM-COMPONENT.                                 30970001
309800                                                                  30980001
309900        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        30990001
310000             (HLD-PAYMENT-RATE * PERCENT-2011-LABOR) *            31000001
310100               AREA-WAGE-INDEX.                                   31010001
310200                                                                  31020001
310300        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        31030001
310400               (HLD-PAYMENT-RATE * PERCENT-2011-NLABOR) +         31040001
310500                    PAYMENT-RATE-ADJ.                             31050001
310600                                                                  31060001
310700     IF '042   ' = SNF-PRIN-DIAG-CODE   OR                        31070001
310800                   SNF-OTHER-DIAG-CODE2 OR                        31080001
310900                   SNF-OTHER-DIAG-CODE3 OR                        31090001
311000                   SNF-OTHER-DIAG-CODE4 OR                        31100001
311100                   SNF-OTHER-DIAG-CODE5 OR                        31110001
311200                   SNF-OTHER-DIAG-CODE6 OR                        31120001
311300                   SNF-OTHER-DIAG-CODE7 OR                        31130001
311400                   SNF-OTHER-DIAG-CODE8 OR                        31140001
311500                   SNF-OTHER-DIAG-CODE9  OR                       31150000
311600                   SNF-OTHER-DIAG-CODE10 OR                       31160000
311700                   SNF-OTHER-DIAG-CODE11 OR                       31170000
311800                   SNF-OTHER-DIAG-CODE12 OR                       31180000
311900                   SNF-OTHER-DIAG-CODE13 OR                       31190000
312000                   SNF-OTHER-DIAG-CODE14 OR                       31200000
312100                   SNF-OTHER-DIAG-CODE15 OR                       31210000
312200                   SNF-OTHER-DIAG-CODE16 OR                       31220000
312300                   SNF-OTHER-DIAG-CODE17 OR                       31230000
312400                   SNF-OTHER-DIAG-CODE18 OR                       31240000
312500                   SNF-OTHER-DIAG-CODE19 OR                       31250000
312600                   SNF-OTHER-DIAG-CODE20 OR                       31260000
312700                   SNF-OTHER-DIAG-CODE21 OR                       31270000
312800                   SNF-OTHER-DIAG-CODE22 OR                       31280000
312900                   SNF-OTHER-DIAG-CODE23 OR                       31290000
313000                   SNF-OTHER-DIAG-CODE24 OR                       31300000
313100                   SNF-OTHER-DIAG-CODE25                          31310000
313200         COMPUTE HLD-PAYMENT-RATE ROUNDED =                       31320001
313300                 HLD-PAYMENT-RATE * 2.28                          31330001
313400         GO TO 2011-67-CONTINUE.                                  31340001
313500                                                                  31350001
313600 2011-67-CONTINUE.                                                31360001
313700                                                                  31370001
313800     IF  SNF-FED-BLEND = 0                                        31380001
313900        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        31390001
314000                HLD-FACILITY-RATE * 1.00.                         31400001
314100                                                                  31410001
314200     IF SNF-FED-BLEND = 4                                         31420001
314300        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              31430001
314400        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        31440001
314500                HLD-PAYMENT-RATE * 1.00.                          31450001
314600                                                                  31460001
314700 2011-67-EXIT. EXIT.                                              31470001
314800                                                                  31480001
314900 2012-67-PAYMENT-RATE-CALC.                                       31490001
315000***************************************************************   31500001
315100*     PAYMENT RATE CALCULATION PROCCESS EFFECTIVE OCT.1, 2009     31510001
315200***************************************************************   31520001
315300                                                                  31530001
315400     IF HLD-CBSA = '     '                                        31540001
315500        MOVE '30'              TO HLD-RTC                         31550001
315600        GO TO 2012-67-EXIT.                                       31560001
315700                                                                  31570001
315800     MOVE 1 TO R3.                                                31580001
315900                                                                  31590001
316000     IF HLD-CBSA-RURAL-CHECK                                      31600001
316100        MOVE 1 TO R2                                              31610001
316200     ELSE                                                         31620001
316300        MOVE 2 TO R2.                                             31630001
316400                                                                  31640001
316500     PERFORM 912-SEARCH-4-RUG67-2012                              31650001
316600        THRU 912-SEARCH-EXIT.                                     31660001
316700                                                                  31670001
316800     IF HLD-RTC NOT = 00 GO TO 2012-67-EXIT.                      31680001
316900                                                                  31690001
317000     PERFORM 500-GET-RATES.                                       31700001
317100                                                                  31710001
317200     IF SNF-FED-BLEND = 0 OR 4                                    31720001
317300        NEXT SENTENCE                                             31730001
317400     ELSE                                                         31740001
317500        MOVE '60'              TO HLD-RTC                         31750001
317600        MOVE ALL '0'           TO HOLD-VAR-DATA                   31760001
317700        GO TO 2012-67-EXIT.                                       31770001
317800                                                                  31780001
317900        COMPUTE NURSING-COMPONENT ROUNDED =                       31790001
318000                   (NUR-INDEX * IP-RATE).                         31800001
318100                                                                  31810001
318200        COMPUTE THERAPY-COMPONENT ROUNDED =                       31820001
318300                   (THR-INDEX * REHAB-RATE).                      31830001
318400                                                                  31840001
318500        COMPUTE NCM-THR-COMPONENT ROUNDED =                       31850001
318600                   (FACTOR * NCM-THR-COMPONENT).                  31860001
318700                                                                  31870001
318800        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       31880001
318900                   NURSING-COMPONENT +                            31890001
319000                   THERAPY-COMPONENT +                            31900001
319100                   NCM-THR-COMPONENT +                            31910001
319200                   NCM-COMPONENT.                                 31920001
319300                                                                  31930001
319400        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        31940001
319500             (HLD-PAYMENT-RATE * PERCENT-2012-LABOR) *            31950001
319600               AREA-WAGE-INDEX.                                   31960001
319700                                                                  31970001
319800        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        31980001
319900               (HLD-PAYMENT-RATE * PERCENT-2012-NLABOR) +         31990001
320000                    PAYMENT-RATE-ADJ.                             32000001
320100                                                                  32010001
320200     IF '042   ' = SNF-PRIN-DIAG-CODE   OR                        32020001
320300                   SNF-OTHER-DIAG-CODE2 OR                        32030001
320400                   SNF-OTHER-DIAG-CODE3 OR                        32040001
320500                   SNF-OTHER-DIAG-CODE4 OR                        32050001
320600                   SNF-OTHER-DIAG-CODE5 OR                        32060001
320700                   SNF-OTHER-DIAG-CODE6 OR                        32070001
320800                   SNF-OTHER-DIAG-CODE7 OR                        32080001
320900                   SNF-OTHER-DIAG-CODE8 OR                        32090001
321000                   SNF-OTHER-DIAG-CODE9  OR                       32100000
321100                   SNF-OTHER-DIAG-CODE10 OR                       32110000
321200                   SNF-OTHER-DIAG-CODE11 OR                       32120000
321300                   SNF-OTHER-DIAG-CODE12 OR                       32130000
321400                   SNF-OTHER-DIAG-CODE13 OR                       32140000
321500                   SNF-OTHER-DIAG-CODE14 OR                       32150000
321600                   SNF-OTHER-DIAG-CODE15 OR                       32160000
321700                   SNF-OTHER-DIAG-CODE16 OR                       32170000
321800                   SNF-OTHER-DIAG-CODE17 OR                       32180000
321900                   SNF-OTHER-DIAG-CODE18 OR                       32190000
322000                   SNF-OTHER-DIAG-CODE19 OR                       32200000
322100                   SNF-OTHER-DIAG-CODE20 OR                       32210000
322200                   SNF-OTHER-DIAG-CODE21 OR                       32220000
322300                   SNF-OTHER-DIAG-CODE22 OR                       32230000
322400                   SNF-OTHER-DIAG-CODE23 OR                       32240000
322500                   SNF-OTHER-DIAG-CODE24 OR                       32250000
322600                   SNF-OTHER-DIAG-CODE25                          32260000
322700         COMPUTE HLD-PAYMENT-RATE ROUNDED =                       32270001
322800                 HLD-PAYMENT-RATE * 2.28                          32280001
322900         GO TO 2012-67-CONTINUE.                                  32290001
323000                                                                  32300001
323100 2012-67-CONTINUE.                                                32310001
323200                                                                  32320001
323300     IF  SNF-FED-BLEND = 0                                        32330001
323400        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        32340001
323500                HLD-FACILITY-RATE * 1.00.                         32350001
323600                                                                  32360001
323700     IF SNF-FED-BLEND = 4                                         32370001
323800        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              32380001
323900        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        32390001
324000                HLD-PAYMENT-RATE * 1.00.                          32400001
324100                                                                  32410001
324200 2012-67-EXIT. EXIT.                                              32420001
324300                                                                  32430001
324400                                                                  32440001
324500 2013-67-PAYMENT-RATE-CALC.                                       32450001
324600***************************************************************   32460001
324700*     PAYMENT RATE CALCULATION PROCCESS EFFECTIVE OCT.1, 2012     32470001
324800***************************************************************   32480001
324900                                                                  32490001
325000     IF HLD-CBSA = '     '                                        32500001
325100        MOVE '30'              TO HLD-RTC                         32510001
325200        GO TO 2013-67-EXIT.                                       32520001
325300                                                                  32530001
325400     MOVE 1                    TO R3.                             32540001
325500                                                                  32550001
325600     IF HLD-CBSA-RURAL-CHECK                                      32560001
325700        MOVE 1                 TO R2                              32570001
325800     ELSE                                                         32580001
325900        MOVE 2                 TO R2.                             32590001
326000                                                                  32600001
326100     PERFORM 913-SEARCH-4-RUG67-2013                              32610001
326200        THRU 913-SEARCH-EXIT.                                     32620001
326300                                                                  32630001
326400     IF HLD-RTC NOT = 00                                          32640001
326500        GO TO 2013-67-EXIT.                                       32650001
326600                                                                  32660001
326700     PERFORM 500-GET-RATES.                                       32670001
326800                                                                  32680001
326900     IF SNF-FED-BLEND = 0 OR 4                                    32690001
327000        NEXT SENTENCE                                             32700001
327100     ELSE                                                         32710001
327200        MOVE '60'              TO HLD-RTC                         32720001
327300        MOVE ALL '0'           TO HOLD-VAR-DATA                   32730001
327400        GO TO 2013-67-EXIT.                                       32740001
327500                                                                  32750001
327600        COMPUTE NURSING-COMPONENT ROUNDED =                       32760001
327700                   (NUR-INDEX * IP-RATE).                         32770001
327800                                                                  32780001
327900        COMPUTE THERAPY-COMPONENT ROUNDED =                       32790001
328000                   (THR-INDEX * REHAB-RATE).                      32800001
328100                                                                  32810001
328200        COMPUTE NCM-THR-COMPONENT ROUNDED =                       32820001
328300                   (FACTOR * NCM-THR-COMPONENT).                  32830001
328400                                                                  32840001
328500        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       32850001
328600                   NURSING-COMPONENT +                            32860001
328700                   THERAPY-COMPONENT +                            32870001
328800                   NCM-THR-COMPONENT +                            32880001
328900                   NCM-COMPONENT.                                 32890001
329000                                                                  32900001
329100        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        32910001
329200             (HLD-PAYMENT-RATE * PERCENT-2013-LABOR) *            32920001
329300               AREA-WAGE-INDEX.                                   32930001
329400                                                                  32940001
329500        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        32950001
329600               (HLD-PAYMENT-RATE * PERCENT-2013-NLABOR) +         32960001
329700                    PAYMENT-RATE-ADJ.                             32970001
329800                                                                  32980001
329900     IF '042   ' = SNF-PRIN-DIAG-CODE   OR                        32990001
330000                   SNF-OTHER-DIAG-CODE2 OR                        33000001
330100                   SNF-OTHER-DIAG-CODE3 OR                        33010001
330200                   SNF-OTHER-DIAG-CODE4 OR                        33020001
330300                   SNF-OTHER-DIAG-CODE5 OR                        33030001
330400                   SNF-OTHER-DIAG-CODE6 OR                        33040001
330500                   SNF-OTHER-DIAG-CODE7 OR                        33050001
330600                   SNF-OTHER-DIAG-CODE8 OR                        33060001
330700                   SNF-OTHER-DIAG-CODE9  OR                       33070000
330800                   SNF-OTHER-DIAG-CODE10 OR                       33080000
330900                   SNF-OTHER-DIAG-CODE11 OR                       33090000
331000                   SNF-OTHER-DIAG-CODE12 OR                       33100000
331100                   SNF-OTHER-DIAG-CODE13 OR                       33110000
331200                   SNF-OTHER-DIAG-CODE14 OR                       33120000
331300                   SNF-OTHER-DIAG-CODE15 OR                       33130000
331400                   SNF-OTHER-DIAG-CODE16 OR                       33140000
331500                   SNF-OTHER-DIAG-CODE17 OR                       33150000
331600                   SNF-OTHER-DIAG-CODE18 OR                       33160000
331700                   SNF-OTHER-DIAG-CODE19 OR                       33170000
331800                   SNF-OTHER-DIAG-CODE20 OR                       33180000
331900                   SNF-OTHER-DIAG-CODE21 OR                       33190000
332000                   SNF-OTHER-DIAG-CODE22 OR                       33200000
332100                   SNF-OTHER-DIAG-CODE23 OR                       33210000
332200                   SNF-OTHER-DIAG-CODE24 OR                       33220000
332300                   SNF-OTHER-DIAG-CODE25                          33230000
332400         COMPUTE HLD-PAYMENT-RATE ROUNDED =                       33240001
332500                 HLD-PAYMENT-RATE * 2.28                          33250001
332600         GO TO 2013-67-CONTINUE.                                  33260001
332700                                                                  33270001
332800 2013-67-CONTINUE.                                                33280001
332900                                                                  33290001
333000     IF SNF-FED-BLEND = 0                                         33300001
333100        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        33310001
333200                HLD-FACILITY-RATE * 1.00.                         33320001
333300                                                                  33330001
333400     IF SNF-FED-BLEND = 4                                         33340001
333500        MOVE HLD-PAYMENT-RATE  TO FED-PAYMENT-PORTION             33350001
333600        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        33360001
333700                HLD-PAYMENT-RATE * 1.00.                          33370001
333800                                                                  33380001
333900 2013-67-EXIT.                                                    33390001
334000     EXIT.                                                        33400001
334100                                                                  33410001
334200                                                                  33420001
334300 2014-67-PAYMENT-RATE-CALC.                                       33430001
334400***************************************************************   33440001
334500*     PAYMENT RATE CALCULATION PROCCESS EFFECTIVE OCT.1, 2013     33450001
334600***************************************************************   33460001
334700                                                                  33470001
334800     IF HLD-CBSA = '     '                                        33480001
334900        MOVE '30'              TO HLD-RTC                         33490001
335000        GO TO 2014-67-EXIT.                                       33500001
335100                                                                  33510001
335200     MOVE 1                    TO R3.                             33520001
335300                                                                  33530001
335400     IF HLD-CBSA-RURAL-CHECK                                      33540001
335500        MOVE 1                 TO R2                              33550001
335600     ELSE                                                         33560001
335700        MOVE 2                 TO R2.                             33570001
335800                                                                  33580001
335900     PERFORM 914-SEARCH-4-RUG67-2014                              33590001
336000        THRU 914-SEARCH-EXIT.                                     33600001
336100                                                                  33610001
336200     IF HLD-RTC NOT = 00                                          33620001
336300        GO TO 2014-67-EXIT.                                       33630001
336400                                                                  33640001
336500     PERFORM 500-GET-RATES.                                       33650001
336600                                                                  33660001
336700     IF SNF-FED-BLEND = 0 OR 4                                    33670001
336800        NEXT SENTENCE                                             33680001
336900     ELSE                                                         33690001
337000        MOVE '60'              TO HLD-RTC                         33700001
337100        MOVE ALL '0'           TO HOLD-VAR-DATA                   33710001
337200        GO TO 2014-67-EXIT.                                       33720001
337300                                                                  33730001
337400        COMPUTE NURSING-COMPONENT ROUNDED =                       33740001
337500                   (NUR-INDEX * IP-RATE).                         33750001
337600                                                                  33760001
337700        COMPUTE THERAPY-COMPONENT ROUNDED =                       33770001
337800                   (THR-INDEX * REHAB-RATE).                      33780001
337900                                                                  33790001
338000        COMPUTE NCM-THR-COMPONENT ROUNDED =                       33800001
338100                   (FACTOR * NCM-THR-COMPONENT).                  33810001
338200                                                                  33820001
338300        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       33830001
338400                   NURSING-COMPONENT +                            33840001
338500                   THERAPY-COMPONENT +                            33850001
338600                   NCM-THR-COMPONENT +                            33860001
338700                   NCM-COMPONENT.                                 33870001
338800                                                                  33880001
338900        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        33890001
339000             (HLD-PAYMENT-RATE * PERCENT-2014-LABOR) *            33900001
339100               AREA-WAGE-INDEX.                                   33910001
339200                                                                  33920001
339300        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        33930001
339400               (HLD-PAYMENT-RATE * PERCENT-2014-NLABOR) +         33940001
339500                    PAYMENT-RATE-ADJ.                             33950001
339600                                                                  33960001
339700     IF '042   ' = SNF-PRIN-DIAG-CODE   OR                        33970001
339800                   SNF-OTHER-DIAG-CODE2 OR                        33980001
339900                   SNF-OTHER-DIAG-CODE3 OR                        33990001
340000                   SNF-OTHER-DIAG-CODE4 OR                        34000001
340100                   SNF-OTHER-DIAG-CODE5 OR                        34010001
340200                   SNF-OTHER-DIAG-CODE6 OR                        34020001
340300                   SNF-OTHER-DIAG-CODE7 OR                        34030001
340400                   SNF-OTHER-DIAG-CODE8 OR                        34040001
340500                   SNF-OTHER-DIAG-CODE9  OR                       34050000
340600                   SNF-OTHER-DIAG-CODE10 OR                       34060000
340700                   SNF-OTHER-DIAG-CODE11 OR                       34070000
340800                   SNF-OTHER-DIAG-CODE12 OR                       34080000
340900                   SNF-OTHER-DIAG-CODE13 OR                       34090000
341000                   SNF-OTHER-DIAG-CODE14 OR                       34100000
341100                   SNF-OTHER-DIAG-CODE15 OR                       34110000
341200                   SNF-OTHER-DIAG-CODE16 OR                       34120000
341300                   SNF-OTHER-DIAG-CODE17 OR                       34130000
341400                   SNF-OTHER-DIAG-CODE18 OR                       34140000
341500                   SNF-OTHER-DIAG-CODE19 OR                       34150000
341600                   SNF-OTHER-DIAG-CODE20 OR                       34160000
341700                   SNF-OTHER-DIAG-CODE21 OR                       34170000
341800                   SNF-OTHER-DIAG-CODE22 OR                       34180000
341900                   SNF-OTHER-DIAG-CODE23 OR                       34190000
342000                   SNF-OTHER-DIAG-CODE24 OR                       34200000
342100                   SNF-OTHER-DIAG-CODE25                          34210000
342200         COMPUTE HLD-PAYMENT-RATE ROUNDED =                       34220001
342300                 HLD-PAYMENT-RATE * 2.28                          34230001
342400         GO TO 2014-67-CONTINUE.                                  34240001
342500                                                                  34250001
342600 2014-67-CONTINUE.                                                34260001
342700                                                                  34270001
342800     IF SNF-FED-BLEND = 0                                         34280001
342900        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        34290001
343000                HLD-FACILITY-RATE * 1.00.                         34300001
343100                                                                  34310001
343200     IF SNF-FED-BLEND = 4                                         34320001
343300        MOVE HLD-PAYMENT-RATE  TO FED-PAYMENT-PORTION             34330001
343400        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        34340001
343500                HLD-PAYMENT-RATE * 1.00.                          34350001
343600                                                                  34360001
343700 2014-67-EXIT.                                                    34370001
343800     EXIT.                                                        34380001
343900                                                                  34390001
344000                                                                  34400001
344100 2015-67-PAYMENT-RATE-CALC.                                       34410001
344200***************************************************************   34420001
344300*     PAYMENT RATE CALCULATION PROCCESS EFFECTIVE OCT.1, 2014     34430001
344400***************************************************************   34440001
344500                                                                  34450001
344600     IF HLD-CBSA = '     '                                        34460001
344700        MOVE '30'              TO HLD-RTC                         34470001
344800        GO TO 2015-67-EXIT.                                       34480001
344900                                                                  34490001
345000     MOVE 1                    TO R3.                             34500001
345100                                                                  34510001
345200     IF HLD-CBSA-RURAL-CHECK                                      34520001
345300        MOVE 1                 TO R2                              34530001
345400     ELSE                                                         34540001
345500        MOVE 2                 TO R2.                             34550001
345600                                                                  34560001
345700     PERFORM 915-SEARCH-4-RUG67-2015                              34570001
345800        THRU 915-SEARCH-EXIT.                                     34580001
345900                                                                  34590001
346000     IF HLD-RTC NOT = 00                                          34600001
346100        GO TO 2015-67-EXIT.                                       34610001
346200                                                                  34620001
346300     PERFORM 500-GET-RATES.                                       34630001
346400                                                                  34640001
346500     IF SNF-FED-BLEND = 0 OR 4                                    34650001
346600        NEXT SENTENCE                                             34660001
346700     ELSE                                                         34670001
346800        MOVE '60'              TO HLD-RTC                         34680001
346900        MOVE ALL '0'           TO HOLD-VAR-DATA                   34690001
347000        GO TO 2015-67-EXIT.                                       34700001
347100                                                                  34710001
347200                                                                  34720007
347300                                                                  34730007
347400                                                                  34740007
347500        COMPUTE NURSING-COMPONENT ROUNDED =                       34750001
347600                   (NUR-INDEX * IP-RATE).                         34760001
347700                                                                  34770001
347800                                                                  34780010
347900        COMPUTE THERAPY-COMPONENT ROUNDED =                       34790001
348000                   (THR-INDEX * REHAB-RATE).                      34800001
348100                                                                  34810001
348200        COMPUTE NCM-THR-COMPONENT ROUNDED =                       34820001
348300                   (FACTOR * NCM-THR-COMPONENT).                  34830001
348400                                                                  34840010
348500                                                                  34850001
348600        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       34860001
348700                   NURSING-COMPONENT +                            34870001
348800                   THERAPY-COMPONENT +                            34880001
348900                   NCM-THR-COMPONENT +                            34890001
349000                   NCM-COMPONENT.                                 34900001
349100                                                                  34910001
349200                                                                  34920007
349300        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        34930001
349400             (HLD-PAYMENT-RATE * PERCENT-2015-LABOR) *            34940001
349500               AREA-WAGE-INDEX.                                   34950001
349600                                                                  34960010
349700                                                                  34970007
349800                                                                  34980007
349900        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        34990001
350000               (HLD-PAYMENT-RATE * PERCENT-2015-NLABOR) +         35000001
350100                    PAYMENT-RATE-ADJ.                             35010001
350200                                                                  35020007
350300                                                                  35030001
350400     IF '042   ' = SNF-PRIN-DIAG-CODE   OR                        35040001
350500                   SNF-OTHER-DIAG-CODE2 OR                        35050001
350600                   SNF-OTHER-DIAG-CODE3 OR                        35060001
350700                   SNF-OTHER-DIAG-CODE4 OR                        35070001
350800                   SNF-OTHER-DIAG-CODE5 OR                        35080001
350900                   SNF-OTHER-DIAG-CODE6 OR                        35090001
351000                   SNF-OTHER-DIAG-CODE7 OR                        35100001
351100                   SNF-OTHER-DIAG-CODE8 OR                        35110001
351200                   SNF-OTHER-DIAG-CODE9  OR                       35120000
351300                   SNF-OTHER-DIAG-CODE10 OR                       35130000
351400                   SNF-OTHER-DIAG-CODE11 OR                       35140000
351500                   SNF-OTHER-DIAG-CODE12 OR                       35150000
351600                   SNF-OTHER-DIAG-CODE13 OR                       35160000
351700                   SNF-OTHER-DIAG-CODE14 OR                       35170000
351800                   SNF-OTHER-DIAG-CODE15 OR                       35180000
351900                   SNF-OTHER-DIAG-CODE16 OR                       35190000
352000                   SNF-OTHER-DIAG-CODE17 OR                       35200000
352100                   SNF-OTHER-DIAG-CODE18 OR                       35210000
352200                   SNF-OTHER-DIAG-CODE19 OR                       35220000
352300                   SNF-OTHER-DIAG-CODE20 OR                       35230000
352400                   SNF-OTHER-DIAG-CODE21 OR                       35240000
352500                   SNF-OTHER-DIAG-CODE22 OR                       35250000
352600                   SNF-OTHER-DIAG-CODE23 OR                       35260000
352700                   SNF-OTHER-DIAG-CODE24 OR                       35270000
352800                   SNF-OTHER-DIAG-CODE25                          35280013
352900                                                                  35290013
353000         COMPUTE HLD-PAYMENT-RATE ROUNDED =                       35300001
353100                 HLD-PAYMENT-RATE * 2.28                          35310001
353200         GO TO 2015-67-CONTINUE.                                  35320001
353300                                                                  35330001
353400 2015-67-CONTINUE.                                                35340001
353500                                                                  35350001
353600     IF SNF-FED-BLEND = 0                                         35360001
353700        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        35370001
353800                HLD-FACILITY-RATE * 1.00.                         35380001
353900                                                                  35390001
354000     IF SNF-FED-BLEND = 4                                         35400001
354100        MOVE HLD-PAYMENT-RATE  TO FED-PAYMENT-PORTION             35410001
354200        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        35420001
354300                HLD-PAYMENT-RATE * 1.00.                          35430001
354400                                                                  35440001
354500 2015-67-EXIT.                                                    35450001
354600     EXIT.                                                        35460001
354700                                                                  35470001
354800******        L A S T   S O U R C E   S T A T E M E N T   *****   35480001
