000100 IDENTIFICATION DIVISION.                                         00010000
000200 PROGRAM-ID.      SNFPR130.                                       00020000
000300*AUTHOR.                 CMS.                                     00030000
000400*
000300*                                                                 00030000
000400*REMARKS. (CENTERS FOR MEDICARE AND MEDICAID SERVICES)            00040000
000500***         - CICS VERSION RELEASED FOR JULY 1 2006               00050000
000600***         - NATIONAL SNF PRICER FOR ALL YEARS                   00060000
000700***         - NATIONAL SNF PRICER EFFECTIVE JULY 1, 1998          00070000
000800***         - SNF PRICER REFERS TO A PROGRAM WHICH WILL           00080000
000900***           CALCULATE THE DAILY MEDICARE RATE UPON WHICH THE    00090000
001000***           MEDICARE SNF PPS PAYMENT IS MADE. PRICER USES THE   00100000
001100***           FACILITY'S PSF RATE, MSA AND BLEND INDICATOR WITH   00110000
001200***           THE 'STATEMENT COVERS THROUGH DATE' ON THE CLAIM AND00120000
001300***           HCPPS RATE CODE TO CALCULATE THE HCPPS RATES.       00130000
001400***************************************************************   00140000
001500***************************************************************   00150000
001600 DATE-COMPILED.                                                   00160000
001700 ENVIRONMENT DIVISION.                                            00170000
001800 CONFIGURATION SECTION.                                           00180000
001900 SOURCE-COMPUTER.            IBM-370.                             00190000
002000 OBJECT-COMPUTER.            IBM-370.                             00200000
002100 INPUT-OUTPUT  SECTION.                                           00210000
002200 FILE-CONTROL.                                                    00220000
002300                                                                  00230000
002400 DATA DIVISION.                                                   00240000
002500 FILE SECTION.                                                    00250000
002600                                                                  00260000
002700 WORKING-STORAGE SECTION.                                         00270000
002800 01  W-STORAGE-REF                  PIC X(46)  VALUE              00280000
002900     'SNFPR130      - W O R K I N G   S T O R A G E'.             00290000
003000 01  CAL-VERSION                    PIC X(09)  VALUE 'SNFPR13.0'. 00300000
003100 01  R1                             PIC S9(04) COMP SYNC.         00310000
003200 01  R2                             PIC S9(04) COMP SYNC.         00320000
003300 01  R3                             PIC S9(04) COMP SYNC.         00330000
003400 01  LABOR-NLABOR-PERCENT.                                        00340000
003500     05 PERCENT-1999-LABOR     PIC 9V99999 VALUE 0.75888.         00350000
003600     05 PERCENT-1999-NLABOR    PIC 9V99999 VALUE 0.24112.         00360000
003700     05 PERCENT-2000-LABOR     PIC 9V99999 VALUE 0.77545.         00370000
003800     05 PERCENT-2000-NLABOR    PIC 9V99999 VALUE 0.22455.         00380000
003900     05 PERCENT-2001-LABOR     PIC 9V99999 VALUE 0.77870.         00390000
004000     05 PERCENT-2001-NLABOR    PIC 9V99999 VALUE 0.22130.         00400000
004100     05 PERCENT-2002-LABOR     PIC 9V99999 VALUE 0.75379.         00410000
004200     05 PERCENT-2002-NLABOR    PIC 9V99999 VALUE 0.24621.         00420000
004300     05 PERCENT-2003-LABOR     PIC 9V99999 VALUE 0.76128.         00430000
004400     05 PERCENT-2003-NLABOR    PIC 9V99999 VALUE 0.23872.         00440000
004500     05 PERCENT-2004-LABOR     PIC 9V99999 VALUE 0.76372.         00450000
004600     05 PERCENT-2004-NLABOR    PIC 9V99999 VALUE 0.23628.         00460000
004700     05 PERCENT-2005-LABOR     PIC 9V99999 VALUE 0.76222.         00470000
004800     05 PERCENT-2005-NLABOR    PIC 9V99999 VALUE 0.23778.         00480000
004900     05 PERCENT-2006-LABOR     PIC 9V99999 VALUE 0.75922.         00490000
005000     05 PERCENT-2006-NLABOR    PIC 9V99999 VALUE 0.24078.         00500000
005100     05 PERCENT-2007-LABOR     PIC 9V99999 VALUE 0.75839.         00501000
005200     05 PERCENT-2007-NLABOR    PIC 9V99999 VALUE 0.24161.         00502000
005300     05 PERCENT-2008-LABOR     PIC 9V99999 VALUE 0.70249.         00502100
005400     05 PERCENT-2008-NLABOR    PIC 9V99999 VALUE 0.29751.         00502200
005500**************YEARCHANGE 2009.0 *******************************   00502305
005600     05 PERCENT-2009-LABOR     PIC 9V99999 VALUE 0.69783.         00502402
005700     05 PERCENT-2009-NLABOR    PIC 9V99999 VALUE 0.30217.         00502502
005800**************YEARCHANGE 2009.0 *******************************   00502605
005900**************YEARCHANGE 7010.0 *******************************   00502305
006000     05 PERCENT-2010-LABOR     PIC 9V99999 VALUE 0.69840.         00502402
006100     05 PERCENT-2010-NLABOR    PIC 9V99999 VALUE 0.30160.         00502502
006200**************YEARCHANGE 2010.0 *******************************   00502605
006300**************YEARCHANGE 2011.2 *******************************   00502305
006400     05 PERCENT-2011-LABOR     PIC 9V99999 VALUE 0.69311.         00502402
006500     05 PERCENT-2011-NLABOR    PIC 9V99999 VALUE 0.30689.         00502502
006600**************YEARCHANGE 2011.2 *******************************   00502605
006700**************YEARCHANGE 2012.0 *******************************   00502305
006800     05 PERCENT-2012-LABOR     PIC 9V99999 VALUE 0.68693.         00502402
006900     05 PERCENT-2012-NLABOR    PIC 9V99999 VALUE 0.31307.         00502502
007000**************YEARCHANGE 2012.0 *******************************   00502605
006700**************YEARCHANGE 2013.0 *******************************   00502305
006800     05 PERCENT-2013-LABOR     PIC 9V99999 VALUE 0.68383.         00502402
006900     05 PERCENT-2013-NLABOR    PIC 9V99999 VALUE 0.31617.         00502502
007000**************YEARCHANGE 2013.0 *******************************   00502605
007100                                                                  00502701
007200 01  WK-PAYMENT-RATE           PIC 9(06)V99 VALUE 0.              00502801
007300 01  WK-FACILITY-RATE          PIC 9(06)V99 VALUE 0.              00502901
007400                                                                  00503001
007500 01  HLD-PRICE-FROM-DATE.                                         00580000
007600     10  HLD-PRICE-FROM-CC     PIC XX.                            00590000
007700     10  HLD-PRICE-FROM-YY     PIC XX.                            00600000
007800     10  HLD-PRICE-FROM-MMDD   PIC XXXX.                          00610000
007900                                                                  00503001
008000 01  HLD-PRICE-THRU-DATE.                                         00580000
008100     10  HLD-PRICE-THRU-CC     PIC XX.                            00590000
008200     10  HLD-PRICE-THRU-YY     PIC XX.                            00600000
008300     10  HLD-PRICE-THRU-MMDD   PIC XXXX.                          00610000
008400                                                                  00503001
008500 01  HOLD-SNF-DATA.                                               00503101
008600     10  HLD-MSA.                                                 00503201
008700         15  HLD-MSA-1ST       PIC XX.                            00503301
008800             88  HLD-MSA-RURAL-CHECK VALUE '  '.                  00503401
008900         15  HLD-MSA-2ND       PIC XX.                            00504000
009000     10  HLD-CBSA.                                                00505000
009100         15  HLD-CBSA-1ST      PIC XXX.                           00506000
009200             88  HLD-CBSA-RURAL-CHECK     VALUE '   ' '999'.      00507000
009300         15  HLD-CBSA-2ND      PIC XX.                            00508000
009400     10  HLD-SPEC-WI-IND       PIC X.                             00509000
009500     10  HLD-SPEC-WI           PIC 9(02)V9(04).                   00510000
009600     10  HLD-RUG-CODE.                                            00520000
009700         15  HLD-RUG           PIC XXX.                           00530000
009800         15  HLD2-RUG REDEFINES HLD-RUG.                          00540000
009900             20  HLD-RUG-POS12 PIC XX.                            00550000
010000             20  HLD-RUG-POS3  PIC 9.                             00560000
010100         15  FILLER            PIC XX.                            00570000
010200     10  HLD-FROM-DATE.                                           00580000
010300         15  HLD-FROM-CC       PIC XX.                            00590000
010400         15  HLD-FROM-YY       PIC XX.                            00600000
010500         15  HLD-FROM-MMDD     PIC XXXX.                          00610000
010600     10  HLD-THRU-DATE.                                           00580000
010700         15  HLD-THRU-CC       PIC XX.                            00590000
010800         15  HLD-THRU-YY       PIC XX.                            00600000
010900         15  HLD-THRU-MMDD     PIC XXXX.                          00610000
011000     10  HLD-FED-BLEND         PIC X.                             00630000
011100         88  HLD-ALL-FACILITY      VALUE '0'.                     00640000
011200         88  HLD-FED-BLEND-2575PER VALUE '1'.                     00650000
011300         88  HLD-FED-BLEND-5050PER VALUE '2'.                     00660000
011400         88  HLD-FED-BLEND-7525PER VALUE '3'.                     00670000
011500         88  HLD-FED-BLEND-100PER  VALUE '4'.                     00680000
011600                                                                  00690000
011600     10  HLD-FACILITY-RATE     PIC 99999V99.                      00690000
011600                                                                  00690000
011700     10  HLD-DIAGNOSIS-CODES.                                     00700000
011800         15  HLD-PRIN-DIAG-CODE     PIC X(07).                    00710000
011900         15  HLD-OTHER-DIAG-CODE2   PIC X(07).                    00720000
012000         15  HLD-OTHER-DIAG-CODE3   PIC X(07).                    00730000
012100         15  HLD-OTHER-DIAG-CODE4   PIC X(07).                    00740000
012200         15  HLD-OTHER-DIAG-CODE5   PIC X(07).                    00750000
012300         15  HLD-OTHER-DIAG-CODE6   PIC X(07).                    00760000
012400         15  HLD-OTHER-DIAG-CODE7   PIC X(07).                    00770000
012500         15  HLD-OTHER-DIAG-CODE8   PIC X(07).                    00780000
012600         15  HLD-OTHER-DIAG-CODE9   PIC X(07).                    00790000
012700         15  HLD-OTHER-DIAG-CODE10  PIC X(07).                    00790000
012800         15  HLD-OTHER-DIAG-CODE11  PIC X(07).                    00790000
012900         15  HLD-OTHER-DIAG-CODE12  PIC X(07).                    00790000
013000         15  HLD-OTHER-DIAG-CODE13  PIC X(07).                    00790000
013100         15  HLD-OTHER-DIAG-CODE14  PIC X(07).                    00790000
013200         15  HLD-OTHER-DIAG-CODE15  PIC X(07).                    00790000
013300         15  HLD-OTHER-DIAG-CODE16  PIC X(07).                    00790000
013400         15  HLD-OTHER-DIAG-CODE17  PIC X(07).                    00790000
013500         15  HLD-OTHER-DIAG-CODE18  PIC X(07).                    00790000
013600         15  HLD-OTHER-DIAG-CODE19  PIC X(07).                    00790000
013700         15  HLD-OTHER-DIAG-CODE20  PIC X(07).                    00790000
013800         15  HLD-OTHER-DIAG-CODE21  PIC X(07).                    00790000
013900         15  HLD-OTHER-DIAG-CODE22  PIC X(07).                    00790000
014000         15  HLD-OTHER-DIAG-CODE23  PIC X(07).                    00790000
014100         15  HLD-OTHER-DIAG-CODE24  PIC X(07).                    00790000
014200         15  HLD-OTHER-DIAG-CODE25                                00790000
014200                               PIC X(07).                         00790000
014300     10  HLD-RATE-RTC.                                            00800000
014400         15  HLD-PAYMENT-RATE  PIC 9(06)V99.                      00810000
014500         15  HLD-RTC           PIC XX.                            00820000
014600     10  FILLER                PIC X(24).                         00830000
014700                                                                  00840000
014800***************************************************************   00850000
014900*    LAYUP TABLE AREA FOR REGIONS                             *   00860000
015000*  FORMAT FOR RATE TABLE 1998 AND 1999 FOR JULY 1 1998        *   00870000
015100*  FORMAT FOR RATE TABLE 2000 FOR OCT 1, 1999                 *   00880000
015200*  FORMAT FOR RATE TABLE 2001 FOR OCT 1, 2000                 *   00890000
015300*  FORMAT FOR RATE TABLE 2001 FOR APR 1, 2001                 *   00900000
015400*  FORMAT FOR RATE TABLE 2002 FOR OCT 1, 2001                 *   00910000
015500*  FORMAT FOR RATE TABLE 2003 FOR OCT 1, 2002                 *   00920000
015600*  FORMAT FOR RATE TABLE 2004 FOR OCT 1, 2003                 *   00930000
015700*  FORMAT FOR RATE TABLE 2005 FOR OCT 1, 2004                 *   00940000
015800*  FORMAT FOR RATE TABLE 2006 FOR OCT 1, 2005                 *   00950000
015900*  FORMAT FOR RATE TABLE 2007 FOR OCT 1, 2006                 *   00951002
016000*  FORMAT FOR RATE TABLE 2008 FOR OCT 1, 2007                 *   00952002
016100*  FORMAT FOR RATE TABLE 2009 FOR OCT 1, 2008                 *   00953002
016200*  FORMAT FOR RATE TABLE 2010 FOR OCT 1, 2009                 *   00953002
016300*  FORMAT FOR RATE TABLE 2011 FOR OCT 1, 2010                 *   00953002
016400*  FORMAT FOR RATE TABLE 2012 FOR OCT 1, 2011                 *   00953002
016400*  FORMAT FOR RATE TABLE 2013 FOR OCT 1, 2012                 *   00953002
016500*  REGION = ( 1 = RURAL  2 = URBAN ) RATES                    *   00960000
016600***************************************************************   00970000
016700 01  REGION-TABLE.                                                00980000
016800     02  REGION-DATA.                                             00990000
016900*  TABLE RATE FOR FY1998 AND 1999                                 01000000
017000*  19980701/               REGION/ INP / GEN SER / THER / REHAB   01010000
017100     05  FILLER    PIC X(08) VALUE '19980701'.                    01020000
017200     05  FILLER    PIC X(25) VALUE '1 10488 05695 01166 09551'.   01030000
017300     05  FILLER    PIC X(25) VALUE '2 10948 05588 01091 08267'.   01040000
017400*  TABLE RATE FOR FY2000                                          01050000
017500*  19991001/               REGION/ INP / GEN SER / THER / REHAB   01060000
017600     05  FILLER    PIC X(08) VALUE '19991001'.                    01070000
017700     05  FILLER    PIC X(25) VALUE '1 10712 05825 01188 09733'.   01080000
017800     05  FILLER    PIC X(25) VALUE '2 11189 05720 01112 08425'.   01090000
017900*  TABLE RATE FOR FY2001                                          01100000
018000*  20001001/               REGION/ INP / GEN SER / THER / REHAB   01110000
018100     05  FILLER    PIC X(08) VALUE '20001001'.                    01120000
018200     05  FILLER    PIC X(25) VALUE '1 10929 05945 01213 09934'.   01130000
018300     05  FILLER    PIC X(25) VALUE '2 11438 05838 01135 08616'.   01140000
018400*  TABLE RATE FOR FY2001 EFFECTIVE APR 1, 2001                    01150000
018500*  20010401/               REGION/ INP / GEN SER / THER / REHAB   01160000
018600     05  FILLER    PIC X(08) VALUE '20010401'.                    01170000
018700     05  FILLER    PIC X(25) VALUE '1 12999 06062 01236 10129'.   01180000
018800     05  FILLER    PIC X(25) VALUE '2 13605 05953 01157 08784'.   01190000
018900*  TABLE RATE FOR FY2002 EFFECTIVE OCT 1, 2001                    01200000
019000*  20011001/               REGION/ INP / GEN SER / THER / REHAB   01210000
019100     05  FILLER    PIC X(08) VALUE '20011001'.                    01220000
019200     05  FILLER    PIC X(25) VALUE '1 13213 06162 01256 10296'.   01230000
019300     05  FILLER    PIC X(25) VALUE '2 13829 06050 01176 08929'.   01240000
019400*  TABLE RATE FOR FY2003 EFFECTIVE OCT 1, 2002                    01250000
019500*  20021001/               REGION/ INP / GEN SER / THER / REHAB   01260000
019600     05  FILLER    PIC X(08) VALUE '20021001'.                    01270000
019700     05  FILLER    PIC X(25) VALUE '1 11617 06320 01288 10561'.   01280000
019800     05  FILLER    PIC X(25) VALUE '2 12159 06205 01206 09158'.   01290000
019900*  TABLE RATE FOR FY2004 EFFECTIVE OCT 1, 2003                    01300000
020000*  20031001/               REGION/ INP / GEN SER / THER / REHAB   01310000
020100     05  FILLER    PIC X(08) VALUE '20031001'.                    01320000
020200     05  FILLER    PIC X(25) VALUE '1 12374 06733 01372 11250'.   01330000
020300     05  FILLER    PIC X(25) VALUE '2 12952 06610 01285 09756'.   01340000
020400*  TABLE RATE FOR FY2005 EFFECTIVE OCT 1, 2004                    01350000
020500*  20041001/               REGION/ INP / GEN SER / THER / REHAB   01360000
020600     05  FILLER    PIC X(08) VALUE '20041001'.                    01370000
020700     05  FILLER    PIC X(25) VALUE '1 12734 06929 01412 11578'.   01380000
020800     05  FILLER    PIC X(25) VALUE '2 13329 06803 01322 10040'.   01390000
020900**************YEARCHANGE 2006.0 *******************************   01391005
021000*  TABLE RATE FOR FY2006 EFFECTIVE OCT 1, 2005                    01400000
021100*  20051001/               REGION/ INP / GEN SER / THER / REHAB   01410000
021200     05  FILLER    PIC X(08) VALUE '20051001'.                    01420000
021300     05  FILLER    PIC X(25) VALUE '1 13145 07152 01458 11951'.   01430000
021400     05  FILLER    PIC X(25) VALUE '2 13759 07022 01365 10364'.   01440000
021500**************YEARCHANGE 2007.0 *******************************   01441005
021600*  TABLE RATE FOR FY2007 EFFECTIVE OCT 1, 2006                    01450000
021700*  20061001/               REGION/ INP / GEN SER / THER / REHAB   01460000
021800     05  FILLER    PIC X(08) VALUE '20061001'.                    01470000
021900     05  FILLER    PIC X(25) VALUE '1 13570 07383 01505 12337'.   01480000
022000     05  FILLER    PIC X(25) VALUE '2 14204 07249 01409 10699'.   01490000
022100**************YEARCHANGE 2008.0 *******************************   01491005
022200*  TABLE RATE FOR FY2008 EFFECTIVE OCT 2, 2007                    01500001
022300*  20071001/               REGION/ INP / GEN SER / THER / REHAB   01510005
022400     05  FILLER    PIC X(08) VALUE '20071001'.                    01520000
022500     05  FILLER    PIC X(25) VALUE '1 14008 07621 01554 12735'.   01530000
022600     05  FILLER    PIC X(25) VALUE '2 14662 07483 01454 11044'.   01540000
022700**************YEARCHANGE 2009.0 *******************************   01540105
022800*  TABLE RATE FOR FY2009 EFFECTIVE OCT 1, 2008                    01541002
022900*  20081001/               REGION/ INP / GEN SER / THER / REHAB   01542005
023000     05  FILLER    PIC X(08) VALUE '20081001'.                    01543004
023100     05  FILLER    PIC X(25) VALUE '1 14497 07887 01608 13180'.   01544002
023200     05  FILLER    PIC X(25) VALUE '2 15174 07744 01505 11430'.   01545002
023300**************YEARCHANGE 2009.0 *******************************   01551005
023400**************YEARCHANGE 2010.0 *******************************   01540105
023500*  TABLE RATE FOR FY2009 EFFECTIVE OCT 2, 2009                    01541002
023600*  20091001/               REGION/ INP / GEN SER / THER / REHAB   01542005
023700     05  FILLER    PIC X(08) VALUE '20091001'.                    01543004
023800     05  FILLER    PIC X(25) VALUE '1 14831 08069 01645 13483'.   01544002
023900     05  FILLER    PIC X(25) VALUE '2 15523 07922 01540 11693'.   01545002
024000**************YEARCHANGE 2010.0 *******************************   01551005
024100**************YEARCHANGE 2011.0 *******************************   01540105
024200*  TABLE RATE FOR FY2009 EFFECTIVE OCT 2, 2009                    01541002
024300*  20091001/               REGION/ INP / GEN SER / THER / REHAB   01542005
024400     05  FILLER    PIC X(08) VALUE '20101001'.                    01543004
024500     05  FILLER    PIC X(25) VALUE '1 15079 08204 01672 13708'.   01544002
024600     05  FILLER    PIC X(25) VALUE '2 15782 08054 01566 11888'.   01545002
024700**************YEARCHANGE 2011.0 *******************************   01551005
024800**************YEARCHANGE 2012.0 *******************************   01540105
024900*  TABLE RATE FOR FY2012 EFFECTIVE OCT 1, 2011                    01541002
025000*  20111001/               REGION/ INP / GEN SER / THER / REHAB   01542005
025100     05  FILLER    PIC X(08) VALUE '20111001'.                    01543004
025200     05  FILLER    PIC X(25) VALUE '1 15346 08349 01702 13951'.   01544002
025300     05  FILLER    PIC X(25) VALUE '2 16062 08197 01594 12099'.   01545002
025400**************YEARCHANGE 2012.0 *******************************   01551005
024800**************YEARCHANGE 2013.0 *******************************   01540105
024900*  TABLE RATE FOR FY2013 EFFECTIVE OCT 1, 2012                    01541002
025000*  20121001/               REGION/ INP / GEN SER / THER / REHAB   01542005
025100     05  FILLER    PIC X(08) VALUE '20121001'.                    01543004
025200     05  FILLER    PIC X(25) VALUE '1 15628 08503 01733 14208'.   01544002
025300     05  FILLER    PIC X(25) VALUE '2 16358 08348 01623 12322'.   01545002
025400**************YEARCHANGE 2013.0 *******************************   01551005
025500     02  REGION-DATA2 REDEFINES REGION-DATA.                      01550000
025600         04  REG-PERIOD        OCCURS 16.                         01560004
025700**************YEARCHANGE 2013.0 *******************************   01561005
025800             06  REG-EFF-DATE  PIC X(08).                         01570000
025900             06  REGS          OCCURS 2.                          01580000
026000                 08  REG-DATA  OCCURS 1.                          01590000
026100                     10  REGION        PIC X.                     01600000
026200                     10  FILLER        PIC X.                     01610000
026300                     10  R-IP-RATE     PIC 999V99.                01620000
026400                     10  FILLER        PIC X.                     01630000
026500                     10  R-GS-RATE     PIC 999V99.                01640000
026600                     10  FILLER        PIC X.                     01650000
026700                     10  R-TH-RATE     PIC 999V99.                01660000
026800                     10  FILLER        PIC X.                     01670000
026900                     10  R-REHAB-RATE  PIC 999V99.                01680000
027000                                                                  01691001
027100                                                                  01700000
027200                                                                  01710000
027300***************************************************************   01720000
027400*  LAYUP TABLE AREA FOR RUG  44 CODES                         *   01730000
027500*  EFFECTIVE JULY 1, 1998  TIL JANUARY 1, 2006                *   01740000
027600*  FORMAT FOR RUG TABLE 44                                    *   01750000
027700*    N = NURSING   T = THERAPY  F = THERAPY COMPONENT FACTOR  *   01760000
027800***************************************************************   01770000
027900 01  RUG-TABLE.                                                   01780000
028000     02  RUG-DATA1.                                               01790000
028100*                               RUG  REV                          01800000
028200*                               CODE CODE N - T - F               01810000
028300         03  FILLER  PIC X(19)                                    01820000
028400                         VALUE 'AAA  9000 046 000 1'.             01830000
028500         03  FILLER  PIC X(19)                                    01840000
028600                         VALUE 'PA1  9001 046 000 1'.             01850000
028700         03  FILLER  PIC X(19)                                    01860000
028800                         VALUE 'PA2  9002 049 000 1'.             01870000
028900         03  FILLER  PIC X(19)                                    01880000
029000                         VALUE 'PB1  9003 050 000 1'.             01890000
029100         03  FILLER  PIC X(19)                                    01900000
029200                         VALUE 'PB2  9004 051 000 1'.             01910000
029300         03  FILLER  PIC X(19)                                    01920000
029400                         VALUE 'PC1  9005 064 000 1'.             01930000
029500         03  FILLER  PIC X(19)                                    01940000
029600                         VALUE 'PC2  9006 065 000 1'.             01950000
029700         03  FILLER  PIC X(19)                                    01960000
029800                         VALUE 'PD1  9007 070 000 1'.             01970000
029900         03  FILLER  PIC X(19)                                    01980000
030000                         VALUE 'PD2  9008 072 000 1'.             01990000
030100         03  FILLER  PIC X(19)                                    02000000
030200                         VALUE 'PE1  9009 077 000 1'.             02010000
030300         03  FILLER  PIC X(19)                                    02020000
030400                         VALUE 'PE2  9010 079 000 1'.             02030000
030500         03  FILLER  PIC X(19)                                    02040000
030600                         VALUE 'BA1  9011 048 000 1'.             02050000
030700         03  FILLER  PIC X(19)                                    02060000
030800                         VALUE 'BA2  9012 056 000 1'.             02070000
030900         03  FILLER  PIC X(19)                                    02080000
031000                         VALUE 'BB1  9013 065 000 1'.             02090000
031100         03  FILLER  PIC X(19)                                    02100000
031200                         VALUE 'BB2  9014 068 000 1'.             02110000
031300         03  FILLER  PIC X(19)                                    02120000
031400                         VALUE 'IA1  9015 053 000 1'.             02130000
031500         03  FILLER  PIC X(19)                                    02140000
031600                         VALUE 'IA2  9016 057 000 1'.             02150000
031700         03  FILLER  PIC X(19)                                    02160000
031800                         VALUE 'IB1  9017 067 000 1'.             02170000
031900         03  FILLER  PIC X(19)                                    02180000
032000                         VALUE 'IB2  9018 069 000 1'.             02190000
032100         03  FILLER  PIC X(19)                                    02200000
032200                         VALUE 'CA1  9019 075 000 1'.             02210000
032300         03  FILLER  PIC X(19)                                    02220000
032400                         VALUE 'CA2  9020 083 000 1'.             02230000
032500         03  FILLER  PIC X(19)                                    02240000
032600                         VALUE 'CB1  9021 084 000 1'.             02250000
032700         03  FILLER  PIC X(19)                                    02260000
032800                         VALUE 'CB2  9022 091 000 1'.             02270000
032900         03  FILLER  PIC X(19)                                    02280000
033000                         VALUE 'CC1  9023 099 000 1'.             02290000
033100         03  FILLER  PIC X(19)                                    02300000
033200                         VALUE 'CC2  9024 112 000 1'.             02310000
033300         03  FILLER  PIC X(19)                                    02320000
033400                         VALUE 'SSA  9025 101 000 1'.             02330000
033500         03  FILLER  PIC X(19)                                    02340000
033600                         VALUE 'SSB  9026 105 000 1'.             02350000
033700         03  FILLER  PIC X(19)                                    02360000
033800                         VALUE 'SSC  9027 113 000 1'.             02370000
033900         03  FILLER  PIC X(19)                                    02380000
034000                         VALUE 'SE1  9028 117 000 1'.             02390000
034100         03  FILLER  PIC X(19)                                    02400000
034200                         VALUE 'SE2  9029 139 000 1'.             02410000
034300         03  FILLER  PIC X(19)                                    02420000
034400                         VALUE 'SE3  9030 170 000 1'.             02430000
034500         03  FILLER  PIC X(19)                                    02440000
034600                         VALUE 'RLA  9031 080 043 0'.             02450000
034700         03  FILLER  PIC X(19)                                    02460000
034800                         VALUE 'RLB  9032 111 043 0'.             02470000
034900         03  FILLER  PIC X(19)                                    02480000
035000                         VALUE 'RMA  9033 096 077 0'.             02490000
035100         03  FILLER  PIC X(19)                                    02500000
035200                         VALUE 'RMB  9034 109 077 0'.             02510000
035300         03  FILLER  PIC X(19)                                    02520000
035400                         VALUE 'RMC  9035 135 077 0'.             02530000
035500         03  FILLER  PIC X(19)                                    02540000
035600                         VALUE 'RHA  9036 087 094 0'.             02550000
035700         03  FILLER  PIC X(19)                                    02560000
035800                         VALUE 'RHB  9037 106 094 0'.             02570000
035900         03  FILLER  PIC X(19)                                    02580000
036000                         VALUE 'RHC  9038 126 094 0'.             02590000
036100         03  FILLER  PIC X(19)                                    02600000
036200                         VALUE 'RVA  9039 081 141 0'.             02610000
036300         03  FILLER  PIC X(19)                                    02620000
036400                         VALUE 'RVB  9040 104 141 0'.             02630000
036500         03  FILLER  PIC X(19)                                    02640000
036600                         VALUE 'RVC  9041 113 141 0'.             02650000
036700         03  FILLER  PIC X(19)                                    02660000
036800                         VALUE 'RUA  9042 078 225 0'.             02670000
036900         03  FILLER  PIC X(19)                                    02680000
037000                         VALUE 'RUB  9043 095 225 0'.             02690000
037100         03  FILLER  PIC X(19)                                    02700000
037200                         VALUE 'RUC  9044 130 225 0'.             02710000
037300     02  RUG-DATA2 REDEFINES RUG-DATA1 OCCURS 45                  02720000
037400             ASCENDING KEY IS RUG-CODE                            02730000
037500             INDEXED BY RUG01.                                    02740000
037600         03  RUG-CODE          PIC X(03).                         02750000
037700         03  RUG-REGS             OCCURS 1.                       02760000
037800             04  FILLER        PIC XX.                            02770000
037900             04  REV-CODE      PIC XXXX.                          02780000
038000             04  FILLER        PIC X.                             02790000
038100             04  RUG-NURSING   PIC 9V99.                          02800000
038200             04  FILLER        PIC X.                             02810000
038300             04  RUG-THERAPY   PIC 9V99.                          02820000
038400             04  FILLER        PIC X.                             02830000
038500             04  RUG-FACTOR    PIC 9.                             02840000
038600                                                                  02850000
038700                                                                  02860000
038800***************************************************************   02870000
038900*  LAYUP TABLE AREA FOR RUG 53 CODES                          *   02880000
039000*  EFFECTIVE JAN  1, 2006                                     *   02890000
039100*  FORMAT FOR RUG TABLE 53                                    *   02900000
039200*    N = NURSING   T = THERAPY  F = THERAPY COMPONENT FACTOR  *   02910000
039300***************************************************************   02920000
039400 01  RUG53-TABLE.                                                 02930000
039500     02  RUG53-DATA1.                                             02940000
039600*                               RUG  REV                          02950000
039700*                               CODE CODE N - T - F               02960000
039800         03  FILLER  PIC X(19)                                    02970000
039900                         VALUE 'AAA  9000 050 000 1'.             02980000
040000         03  FILLER  PIC X(19)                                    02990000
040100                         VALUE 'PA1  9001 050 000 1'.             03000000
040200         03  FILLER  PIC X(19)                                    03010000
040300                         VALUE 'PA2  9002 053 000 1'.             03020000
040400         03  FILLER  PIC X(19)                                    03030000
040500                         VALUE 'PB1  9003 054 000 1'.             03040000
040600         03  FILLER  PIC X(19)                                    03050000
040700                         VALUE 'PB2  9004 055 000 1'.             03060000
040800         03  FILLER  PIC X(19)                                    03070000
040900                         VALUE 'PC1  9005 069 000 1'.             03080000
041000         03  FILLER  PIC X(19)                                    03090000
041100                         VALUE 'PC2  9006 071 000 1'.             03100000
041200         03  FILLER  PIC X(19)                                    03110000
041300                         VALUE 'PD1  9007 076 000 1'.             03120000
041400         03  FILLER  PIC X(19)                                    03130000
041500                         VALUE 'PD2  9008 078 000 1'.             03140000
041600         03  FILLER  PIC X(19)                                    03150000
041700                         VALUE 'PE1  9009 082 000 1'.             03160000
041800         03  FILLER  PIC X(19)                                    03170000
041900                         VALUE 'PE2  9010 085 000 1'.             03180000
042000         03  FILLER  PIC X(19)                                    03190000
042100                         VALUE 'BA1  9011 052 000 1'.             03200000
042200         03  FILLER  PIC X(19)                                    03210000
042300                         VALUE 'BA2  9012 060 000 1'.             03220000
042400         03  FILLER  PIC X(19)                                    03230000
042500                         VALUE 'BB1  9013 069 000 1'.             03240000
042600         03  FILLER  PIC X(19)                                    03250000
042700                         VALUE 'BB2  9014 073 000 1'.             03260000
042800         03  FILLER  PIC X(19)                                    03270000
042900                         VALUE 'IA1  9015 056 000 1'.             03280000
043000         03  FILLER  PIC X(19)                                    03290000
043100                         VALUE 'IA2  9016 061 000 1'.             03300000
043200         03  FILLER  PIC X(19)                                    03310000
043300                         VALUE 'IB1  9017 072 000 1'.             03320000
043400         03  FILLER  PIC X(19)                                    03330000
043500                         VALUE 'IB2  9018 074 000 1'.             03340000
043600         03  FILLER  PIC X(19)                                    03350000
043700                         VALUE 'CA1  9019 080 000 1'.             03360000
043800         03  FILLER  PIC X(19)                                    03370000
043900                         VALUE 'CA2  9020 090 000 1'.             03380000
044000         03  FILLER  PIC X(19)                                    03390000
044100                         VALUE 'CB1  9021 091 000 1'.             03400000
044200         03  FILLER  PIC X(19)                                    03410000
044300                         VALUE 'CB2  9022 098 000 1'.             03420000
044400         03  FILLER  PIC X(19)                                    03430000
044500                         VALUE 'CC1  9023 106 000 1'.             03440000
044600         03  FILLER  PIC X(19)                                    03450000
044700                         VALUE 'CC2  9024 122 000 1'.             03460000
044800         03  FILLER  PIC X(19)                                    03470000
044900                         VALUE 'SSA  9025 110 000 1'.             03480000
045000         03  FILLER  PIC X(19)                                    03490000
045100                         VALUE 'SSB  9026 113 000 1'.             03500000
045200         03  FILLER  PIC X(19)                                    03510000
045300                         VALUE 'SSC  9027 123 000 1'.             03520000
045400         03  FILLER  PIC X(19)                                    03530000
045500                         VALUE 'SE1  9028 126 000 1'.             03540000
045600         03  FILLER  PIC X(19)                                    03550000
045700                         VALUE 'SE2  9029 149 000 1'.             03560000
045800         03  FILLER  PIC X(19)                                    03570000
045900                         VALUE 'SE3  9030 186 000 1'.             03580000
046000         03  FILLER  PIC X(19)                                    03590000
046100                         VALUE 'RLA  9031 085 043 0'.             03600000
046200         03  FILLER  PIC X(19)                                    03610000
046300                         VALUE 'RLB  9032 114 043 0'.             03620000
046400         03  FILLER  PIC X(19)                                    03630000
046500                         VALUE 'RMA  9033 104 077 0'.             03640000
046600         03  FILLER  PIC X(19)                                    03650000
046700                         VALUE 'RMB  9034 109 077 0'.             03660000
046800         03  FILLER  PIC X(19)                                    03670000
046900                         VALUE 'RMC  9035 115 077 0'.             03680000
047000         03  FILLER  PIC X(19)                                    03690000
047100                         VALUE 'RHA  9036 094 094 0'.             03700000
047200         03  FILLER  PIC X(19)                                    03710000
047300                         VALUE 'RHB  9037 111 094 0'.             03720000
047400         03  FILLER  PIC X(19)                                    03730000
047500                         VALUE 'RHC  9038 122 094 0'.             03740000
047600         03  FILLER  PIC X(19)                                    03750000
047700                         VALUE 'RVA  9039 082 141 0'.             03760000
047800         03  FILLER  PIC X(19)                                    03770000
047900                         VALUE 'RVB  9040 109 141 0'.             03780000
048000         03  FILLER  PIC X(19)                                    03790000
048100                         VALUE 'RVC  9041 123 141 0'.             03800000
048200         03  FILLER  PIC X(19)                                    03810000
048300                         VALUE 'RUA  9042 084 225 0'.             03820000
048400         03  FILLER  PIC X(19)                                    03830000
048500                         VALUE 'RUB  9043 099 225 0'.             03840000
048600         03  FILLER  PIC X(19)                                    03850000
048700                         VALUE 'RUC  9044 128 225 0'.             03860000
048800         03  FILLER  PIC X(19)                                    03870000
048900                         VALUE 'RLX  9045 131 043 0'.             03880000
049000         03  FILLER  PIC X(19)                                    03890000
049100                         VALUE 'RML  9046 168 077 0'.             03900000
049200         03  FILLER  PIC X(19)                                    03910000
049300                         VALUE 'RMX  9047 193 077 0'.             03920000
049400         03  FILLER  PIC X(19)                                    03930000
049500                         VALUE 'RHL  9048 137 094 0'.             03940000
049600         03  FILLER  PIC X(19)                                    03950000
049700                         VALUE 'RHX  9049 142 094 0'.             03960000
049800         03  FILLER  PIC X(19)                                    03970000
049900                         VALUE 'RVL  9050 133 141 0'.             03980000
050000         03  FILLER  PIC X(19)                                    03990000
050100                         VALUE 'RVX  9051 154 141 0'.             04000000
050200         03  FILLER  PIC X(19)                                    04010000
050300                         VALUE 'RUL  9052 140 225 0'.             04020000
050400         03  FILLER  PIC X(19)                                    04030000
050500                         VALUE 'RUX  9053 190 225 0'.             04040000
050600     02  RUG53-DATA2 REDEFINES RUG53-DATA1 OCCURS 54              04050000
050700             ASCENDING KEY IS RUG53-CODE                          04060000
050800             INDEXED BY RUG53-01.                                 04070000
050900         03  RUG53-CODE          PIC X(03).                       04080000
051000         03  RUG53-REGS             OCCURS 1.                     04090000
051100             04  FILLER        PIC XX.                            04100000
051200             04  REV53-CODE      PIC XXXX.                        04110000
051300             04  FILLER        PIC X.                             04120000
051400             04  RUG53-NURSING   PIC 9V99.                        04130000
051500             04  FILLER        PIC X.                             04140000
051600             04  RUG53-THERAPY   PIC 9V99.                        04150000
051700             04  FILLER        PIC X.                             04160000
051800             04  RUG53-FACTOR    PIC 9.                           04170000
051900                                                                  04180000
052000                                                                  02860000
052100***************************************************************   02870000
052200*  LAYUP TABLE AREA FOR RUG 53 CODES FOR FY2010               *   02880000
052300*  EFFECTIVE OCT  1, 2009                                     *   02890000
052400*  FORMAT FOR RUG TABLE 53                                    *   02900000
052500*    N = NURSING   T = THERAPY  F = THERAPY COMPONENT FACTOR  *   02910000
052600***************************************************************   02920000
052700 01  RUG53-2010-TABLE.                                            02930000
052800     02  RUG53-2010-DATA1.                                        02940000
052900*                               RUG  REV                          02950000
053000*                               CODE CODE N - T - F               02960000
053100         03  FILLER  PIC X(19)                                    02970000
053200                         VALUE 'AAA  9000 046 000 1'.             02980000
053300         03  FILLER  PIC X(19)                                    02990000
053400                         VALUE 'PA1  9001 046 000 1'.             03000000
053500         03  FILLER  PIC X(19)                                    03010000
053600                         VALUE 'PA2  9002 049 000 1'.             03020000
053700         03  FILLER  PIC X(19)                                    03030000
053800                         VALUE 'PB1  9003 050 000 1'.             03040000
053900         03  FILLER  PIC X(19)                                    03050000
054000                         VALUE 'PB2  9004 052 000 1'.             03060000
054100         03  FILLER  PIC X(19)                                    03070000
054200                         VALUE 'PC1  9005 065 000 1'.             03080000
054300         03  FILLER  PIC X(19)                                    03090000
054400                         VALUE 'PC2  9006 066 000 1'.             03100000
054500         03  FILLER  PIC X(19)                                    03110000
054600                         VALUE 'PD1  9007 070 000 1'.             03120000
054700         03  FILLER  PIC X(19)                                    03130000
054800                         VALUE 'PD2  9008 072 000 1'.             03140000
054900         03  FILLER  PIC X(19)                                    03150000
055000                         VALUE 'PE1  9009 077 000 1'.             03160000
055100         03  FILLER  PIC X(19)                                    03170000
055200                         VALUE 'PE2  9010 079 000 1'.             03180000
055300         03  FILLER  PIC X(19)                                    03190000
055400                         VALUE 'BA1  9011 048 000 1'.             03200000
055500         03  FILLER  PIC X(19)                                    03210000
055600                         VALUE 'BA2  9012 056 000 1'.             03220000
055700         03  FILLER  PIC X(19)                                    03230000
055800                         VALUE 'BB1  9013 065 000 1'.             03240000
055900         03  FILLER  PIC X(19)                                    03250000
056000                         VALUE 'BB2  9014 068 000 1'.             03260000
056100         03  FILLER  PIC X(19)                                    03270000
056200                         VALUE 'IA1  9015 053 000 1'.             03280000
056300         03  FILLER  PIC X(19)                                    03290000
056400                         VALUE 'IA2  9016 057 000 1'.             03300000
056500         03  FILLER  PIC X(19)                                    03310000
056600                         VALUE 'IB1  9017 067 000 1'.             03320000
056700         03  FILLER  PIC X(19)                                    03330000
056800                         VALUE 'IB2  9018 069 000 1'.             03340000
056900         03  FILLER  PIC X(19)                                    03350000
057000                         VALUE 'CA1  9019 075 000 1'.             03360000
057100         03  FILLER  PIC X(19)                                    03370000
057200                         VALUE 'CA2  9020 083 000 1'.             03380000
057300         03  FILLER  PIC X(19)                                    03390000
057400                         VALUE 'CB1  9021 084 000 1'.             03400000
057500         03  FILLER  PIC X(19)                                    03410000
057600                         VALUE 'CB2  9022 091 000 1'.             03420000
057700         03  FILLER  PIC X(19)                                    03430000
057800                         VALUE 'CC1  9023 099 000 1'.             03440000
057900         03  FILLER  PIC X(19)                                    03450000
058000                         VALUE 'CC2  9024 113 000 1'.             03460000
058100         03  FILLER  PIC X(19)                                    03470000
058200                         VALUE 'SSA  9025 102 000 1'.             03480000
058300         03  FILLER  PIC X(19)                                    03490000
058400                         VALUE 'SSB  9026 105 000 1'.             03500000
058500         03  FILLER  PIC X(19)                                    03510000
058600                         VALUE 'SSC  9027 114 000 1'.             03520000
058700         03  FILLER  PIC X(19)                                    03530000
058800                         VALUE 'SE1  9028 117 000 1'.             03540000
058900         03  FILLER  PIC X(19)                                    03550000
059000                         VALUE 'SE2  9029 138 000 1'.             03560000
059100         03  FILLER  PIC X(19)                                    03570000
059200                         VALUE 'SE3  9030 172 000 1'.             03580000
059300         03  FILLER  PIC X(19)                                    03590000
059400                         VALUE 'RLA  9031 079 043 0'.             03600000
059500         03  FILLER  PIC X(19)                                    03610000
059600                         VALUE 'RLB  9032 106 043 0'.             03620000
059700         03  FILLER  PIC X(19)                                    03630000
059800                         VALUE 'RMA  9033 097 077 0'.             03640000
059900         03  FILLER  PIC X(19)                                    03650000
060000                         VALUE 'RMB  9034 101 077 0'.             03660000
060100         03  FILLER  PIC X(19)                                    03670000
060200                         VALUE 'RMC  9035 107 077 0'.             03680000
060300         03  FILLER  PIC X(19)                                    03690000
060400                         VALUE 'RHA  9036 088 094 0'.             03700000
060500         03  FILLER  PIC X(19)                                    03710000
060600                         VALUE 'RHB  9037 103 094 0'.             03720000
060700         03  FILLER  PIC X(19)                                    03730000
060800                         VALUE 'RHC  9038 113 094 0'.             03740000
060900         03  FILLER  PIC X(19)                                    03750000
061000                         VALUE 'RVA  9039 077 141 0'.             03760000
061100         03  FILLER  PIC X(19)                                    03770000
061200                         VALUE 'RVB  9040 101 141 0'.             03780000
061300         03  FILLER  PIC X(19)                                    03790000
061400                         VALUE 'RVC  9041 114 141 0'.             03800000
061500         03  FILLER  PIC X(19)                                    03810000
061600                         VALUE 'RUA  9042 078 225 0'.             03820000
061700         03  FILLER  PIC X(19)                                    03830000
061800                         VALUE 'RUB  9043 092 225 0'.             03840000
061900         03  FILLER  PIC X(19)                                    03850000
062000                         VALUE 'RUC  9044 120 225 0'.             03860000
062100         03  FILLER  PIC X(19)                                    03870000
062200                         VALUE 'RLX  9045 122 043 0'.             03880000
062300         03  FILLER  PIC X(19)                                    03890000
062400                         VALUE 'RML  9046 157 077 0'.             03900000
062500         03  FILLER  PIC X(19)                                    03910000
062600                         VALUE 'RMX  9047 180 077 0'.             03920000
062700         03  FILLER  PIC X(19)                                    03930000
062800                         VALUE 'RHL  9048 127 094 0'.             03940000
062900         03  FILLER  PIC X(19)                                    03950000
063000                         VALUE 'RHX  9049 133 094 0'.             03960000
063100         03  FILLER  PIC X(19)                                    03970000
063200                         VALUE 'RVL  9050 124 141 0'.             03980000
063300         03  FILLER  PIC X(19)                                    03990000
063400                         VALUE 'RVX  9051 144 141 0'.             04000000
063500         03  FILLER  PIC X(19)                                    04010000
063600                         VALUE 'RUL  9052 131 225 0'.             04020000
063700         03  FILLER  PIC X(19)                                    04030000
063800                         VALUE 'RUX  9053 177 225 0'.             04040000
063900     02  RUG53-2010-DATA2 REDEFINES RUG53-2010-DATA1 OCCURS 54    04050000
064000             ASCENDING KEY IS RUG53-2010-CODE                     04060000
064100             INDEXED BY RUG53-2010-01.                            04070000
064200         03  RUG53-2010-CODE     PIC X(03).                       04080000
064300         03  RUG53-2010-REGS        OCCURS 1.                     04090000
064400             04  FILLER        PIC XX.                            04100000
064500             04  REV53-2010-CODE      PIC XXXX.                   04110000
064600             04  FILLER        PIC X.                             04120000
064700             04  RUG53-2010-NURSING PIC 9V99.                     04130000
064800             04  FILLER        PIC X.                             04140000
064900             04  RUG53-2010-THERAPY PIC 9V99.                     04150000
065000             04  FILLER        PIC X.                             04160000
065100             04  RUG53-2010-FACTOR PIC 9.                         04170000
065200                                                                  04180000
065300***************************************************************   02870000
065400*  LAYUP TABLE AREA FOR RUG 53 CODES FOR FY2011               *   02880000
065500*  EFFECTIVE OCT  2, 2010                                     *   02890000
065600*  FORMAT FOR RUG TABLE 53                                    *   02900000
065700*    N = NURSING   T = THERAPY  F = THERAPY COMPONENT FACTOR  *   02910000
065800***************************************************************   02920000
065900 01  RUG67-2011-TABLE.                                            02930000
066000     02  RUG67-2011-DATA1.                                        02940000
066100*                                      RUG  REV                   02950000
066200*                                      CODE CODE N - T - F        02960000
066300         03  FILLER  PIC X(19)  VALUE 'AAA  9000 054 000 1'.
066400         03  FILLER  PIC X(19)  VALUE 'BA1  9011 064 000 1'.
066500         03  FILLER  PIC X(19)  VALUE 'BA2  9012 070 000 1'.
066600         03  FILLER  PIC X(19)  VALUE 'BB1  9013 090 000 1'.
066700         03  FILLER  PIC X(19)  VALUE 'BB2  9014 097 000 1'.
066800         03  FILLER  PIC X(19)  VALUE 'CA1  9019 078 000 1'.
066900         03  FILLER  PIC X(19)  VALUE 'CA2  9020 088 000 1'.
067000         03  FILLER  PIC X(19)  VALUE 'CB1  9021 102 000 1'.
067100         03  FILLER  PIC X(19)  VALUE 'CB2  9022 115 000 1'.
067200         03  FILLER  PIC X(19)  VALUE 'CC1  9023 115 000 1'.
067300         03  FILLER  PIC X(19)  VALUE 'CC2  9024 129 000 1'.
067400         03  FILLER  PIC X(19)  VALUE 'CD1  9024 138 000 1'.
067500         03  FILLER  PIC X(19)  VALUE 'CD2  9024 156 000 1'.
067600         03  FILLER  PIC X(19)  VALUE 'CE1  9024 150 000 1'.
067700         03  FILLER  PIC X(19)  VALUE 'CE2  9028 168 000 1'.
067800         03  FILLER  PIC X(19)  VALUE 'ES1  9028 232 000 1'.
067900         03  FILLER  PIC X(19)  VALUE 'ES2  9029 267 000 1'.
068000         03  FILLER  PIC X(19)  VALUE 'ES3  9030 358 000 1'.
068100         03  FILLER  PIC X(19)  VALUE 'HB1  9015 146 000 1'.
068200         03  FILLER  PIC X(19)  VALUE 'HB2  9016 186 000 1'.
068300         03  FILLER  PIC X(19)  VALUE 'HC1  9017 148 000 1'.
068400         03  FILLER  PIC X(19)  VALUE 'HC2  9018 189 000 1'.
068500         03  FILLER  PIC X(19)  VALUE 'HD1  9018 160 000 1'.
068600         03  FILLER  PIC X(19)  VALUE 'HD2  9018 204 000 1'.
068700         03  FILLER  PIC X(19)  VALUE 'HE1  9018 174 000 1'.
068800         03  FILLER  PIC X(19)  VALUE 'HE2  9018 222 000 1'.
068900         03  FILLER  PIC X(19)  VALUE 'LB1  9018 114 000 1'.
069000         03  FILLER  PIC X(19)  VALUE 'LB2  9018 145 000 1'.
069100         03  FILLER  PIC X(19)  VALUE 'LC1  9018 122 000 1'.
069200         03  FILLER  PIC X(19)  VALUE 'LC2  9018 156 000 1'.
069300         03  FILLER  PIC X(19)  VALUE 'LD1  9018 146 000 1'.
069400         03  FILLER  PIC X(19)  VALUE 'LD2  9018 186 000 1'.
069500         03  FILLER  PIC X(19)  VALUE 'LE1  9018 154 000 1'.
069600         03  FILLER  PIC X(19)  VALUE 'LE2  9018 196 000 1'.
069700         03  FILLER  PIC X(19)  VALUE 'PA1  9001 054 000 1'.
069800         03  FILLER  PIC X(19)  VALUE 'PA2  9002 059 000 1'.
069900         03  FILLER  PIC X(19)  VALUE 'PB1  9003 078 000 1'.
070000         03  FILLER  PIC X(19)  VALUE 'PB2  9004 084 000 1'.
070100         03  FILLER  PIC X(19)  VALUE 'PC1  9005 102 000 1'.
070200         03  FILLER  PIC X(19)  VALUE 'PC2  9006 110 000 1'.
070300         03  FILLER  PIC X(19)  VALUE 'PD1  9007 128 000 1'.
070400         03  FILLER  PIC X(19)  VALUE 'PD2  9008 138 000 1'.
070500         03  FILLER  PIC X(19)  VALUE 'PE1  9009 140 000 1'.
070600         03  FILLER  PIC X(19)  VALUE 'PE2  9010 150 000 1'.
070700         03  FILLER  PIC X(19)  VALUE 'RHA  9036 123 085 0'.
070800         03  FILLER  PIC X(19)  VALUE 'RHB  9037 160 085 0'.
070900         03  FILLER  PIC X(19)  VALUE 'RHC  9038 194 085 0'.
071000         03  FILLER  PIC X(19)  VALUE 'RHL  9048 289 085 0'.
071100         03  FILLER  PIC X(19)  VALUE 'RHX  9049 343 085 0'.
071200         03  FILLER  PIC X(19)  VALUE 'RLA  9031 095 028 0'.
071300         03  FILLER  PIC X(19)  VALUE 'RLB  9032 201 028 0'.
071400         03  FILLER  PIC X(19)  VALUE 'RLX  9045 304 028 0'.
071500         03  FILLER  PIC X(19)  VALUE 'RMA  9033 113 055 0'.
071600         03  FILLER  PIC X(19)  VALUE 'RMB  9034 163 055 0'.
071700         03  FILLER  PIC X(19)  VALUE 'RMC  9035 183 055 0'.
071800         03  FILLER  PIC X(19)  VALUE 'RML  9046 295 055 0'.
071900         03  FILLER  PIC X(19)  VALUE 'RMX  9047 331 055 0'.
072000         03  FILLER  PIC X(19)  VALUE 'RUA  9042 133 187 0'.
072100         03  FILLER  PIC X(19)  VALUE 'RUB  9043 210 187 0'.
072200         03  FILLER  PIC X(19)  VALUE 'RUC  9044 210 187 0'.
072300         03  FILLER  PIC X(19)  VALUE 'RUL  9052 345 187 0'.
072400         03  FILLER  PIC X(19)  VALUE 'RUX  9053 359 187 0'.
072500         03  FILLER  PIC X(19)  VALUE 'RVA  9039 148 128 0'.
072600         03  FILLER  PIC X(19)  VALUE 'RVB  9040 149 128 0'.
072700         03  FILLER  PIC X(19)  VALUE 'RVC  9041 202 128 0'.
072800         03  FILLER  PIC X(19)  VALUE 'RVL  9050 295 128 0'.
072900         03  FILLER  PIC X(19)  VALUE 'RVX  9051 351 128 0'.
073000     02  RUG67-2011-DATA2 REDEFINES RUG67-2011-DATA1 OCCURS 67    04050000
073100             ASCENDING KEY IS RUG67-2011-CODE                     04060000
073200             INDEXED BY RUG67-2011-01.                            04070000
073300         03  RUG67-2011-CODE     PIC X(03).                       04080000
073400         03  RUG67-2011-REGS        OCCURS 1.                     04090000
073500             04  FILLER        PIC XX.                            04100000
073600             04  REV67-2011-CODE      PIC XXXX.                   04110000
073700             04  FILLER        PIC X.                             04120000
073800             04  RUG67-2011-NURSING PIC 9V99.                     04130000
073900             04  FILLER        PIC X.                             04140000
074000             04  RUG67-2011-THERAPY PIC 9V99.                     04150000
074100             04  FILLER        PIC X.                             04160000
074200             04  RUG67-2011-FACTOR PIC 9.                         04170000
074300                                                                  04180000
074400***************************************************************   02870000
074500*  LAYUP TABLE AREA FOR RUG 67 CODES FOR FY2012               *   02880000
074600*  EFFECTIVE OCT  1, 2011                                     *   02890000
074700*  FORMAT FOR RUG TABLE 67                                    *   02900000
074800*    N = NURSING   T = THERAPY  F = THERAPY COMPONENT FACTOR  *   02910000
074900***************************************************************   02920000
075000 01  RUG67-2012-TABLE.                                            02930000
075100     02  RUG67-2012-DATA1.                                        02940000
075200*                                      RUG  REV                   02950000
075300*                                      CODE CODE N - T - F        02960000
075400         03  FILLER  PIC X(19)  VALUE 'AAA  9000 054 000 1'.
075500         03  FILLER  PIC X(19)  VALUE 'BA1  9011 064 000 1'.
075600         03  FILLER  PIC X(19)  VALUE 'BA2  9012 070 000 1'.
075700         03  FILLER  PIC X(19)  VALUE 'BB1  9013 090 000 1'.
075800         03  FILLER  PIC X(19)  VALUE 'BB2  9014 097 000 1'.
075900         03  FILLER  PIC X(19)  VALUE 'CA1  9019 078 000 1'.
076000         03  FILLER  PIC X(19)  VALUE 'CA2  9020 088 000 1'.
076100         03  FILLER  PIC X(19)  VALUE 'CB1  9021 102 000 1'.
076200         03  FILLER  PIC X(19)  VALUE 'CB2  9022 115 000 1'.
076300         03  FILLER  PIC X(19)  VALUE 'CC1  9023 115 000 1'.
076400         03  FILLER  PIC X(19)  VALUE 'CC2  9024 129 000 1'.
076500         03  FILLER  PIC X(19)  VALUE 'CD1  9024 138 000 1'.
076600         03  FILLER  PIC X(19)  VALUE 'CD2  9024 156 000 1'.
076700         03  FILLER  PIC X(19)  VALUE 'CE1  9024 150 000 1'.
076800         03  FILLER  PIC X(19)  VALUE 'CE2  9028 168 000 1'.
076900         03  FILLER  PIC X(19)  VALUE 'ES1  9028 232 000 1'.
077000         03  FILLER  PIC X(19)  VALUE 'ES2  9029 267 000 1'.
077100         03  FILLER  PIC X(19)  VALUE 'ES3  9030 358 000 1'.
077200         03  FILLER  PIC X(19)  VALUE 'HB1  9015 146 000 1'.
077300         03  FILLER  PIC X(19)  VALUE 'HB2  9016 186 000 1'.
077400         03  FILLER  PIC X(19)  VALUE 'HC1  9017 148 000 1'.
077500         03  FILLER  PIC X(19)  VALUE 'HC2  9018 189 000 1'.
077600         03  FILLER  PIC X(19)  VALUE 'HD1  9018 160 000 1'.
077700         03  FILLER  PIC X(19)  VALUE 'HD2  9018 204 000 1'.
077800         03  FILLER  PIC X(19)  VALUE 'HE1  9018 174 000 1'.
077900         03  FILLER  PIC X(19)  VALUE 'HE2  9018 222 000 1'.
078000         03  FILLER  PIC X(19)  VALUE 'LB1  9018 114 000 1'.
078100         03  FILLER  PIC X(19)  VALUE 'LB2  9018 145 000 1'.
078200         03  FILLER  PIC X(19)  VALUE 'LC1  9018 122 000 1'.
078300         03  FILLER  PIC X(19)  VALUE 'LC2  9018 156 000 1'.
078400         03  FILLER  PIC X(19)  VALUE 'LD1  9018 146 000 1'.
078500         03  FILLER  PIC X(19)  VALUE 'LD2  9018 186 000 1'.
078600         03  FILLER  PIC X(19)  VALUE 'LE1  9018 154 000 1'.
078700         03  FILLER  PIC X(19)  VALUE 'LE2  9018 196 000 1'.
078800         03  FILLER  PIC X(19)  VALUE 'PA1  9001 054 000 1'.
078900         03  FILLER  PIC X(19)  VALUE 'PA2  9002 059 000 1'.
079000         03  FILLER  PIC X(19)  VALUE 'PB1  9003 078 000 1'.
079100         03  FILLER  PIC X(19)  VALUE 'PB2  9004 084 000 1'.
079200         03  FILLER  PIC X(19)  VALUE 'PC1  9005 102 000 1'.
079300         03  FILLER  PIC X(19)  VALUE 'PC2  9006 110 000 1'.
079400         03  FILLER  PIC X(19)  VALUE 'PD1  9007 128 000 1'.
079500         03  FILLER  PIC X(19)  VALUE 'PD2  9008 138 000 1'.
079600         03  FILLER  PIC X(19)  VALUE 'PE1  9009 140 000 1'.
079700         03  FILLER  PIC X(19)  VALUE 'PE2  9010 150 000 1'.
079800         03  FILLER  PIC X(19)  VALUE 'RHA  9036 091 085 0'.
079900         03  FILLER  PIC X(19)  VALUE 'RHB  9037 119 085 0'.
080000         03  FILLER  PIC X(19)  VALUE 'RHC  9038 145 085 0'.
080100         03  FILLER  PIC X(19)  VALUE 'RHL  9048 215 085 0'.
080200         03  FILLER  PIC X(19)  VALUE 'RHX  9049 255 085 0'.
080300         03  FILLER  PIC X(19)  VALUE 'RLA  9031 071 028 0'.
080400         03  FILLER  PIC X(19)  VALUE 'RLB  9032 150 028 0'.
080500         03  FILLER  PIC X(19)  VALUE 'RLX  9045 226 028 0'.
080600         03  FILLER  PIC X(19)  VALUE 'RMA  9033 084 055 0'.
080700         03  FILLER  PIC X(19)  VALUE 'RMB  9034 122 055 0'.
080800         03  FILLER  PIC X(19)  VALUE 'RMC  9035 136 055 0'.
080900         03  FILLER  PIC X(19)  VALUE 'RML  9046 219 055 0'.
081000         03  FILLER  PIC X(19)  VALUE 'RMX  9047 247 055 0'.
081100         03  FILLER  PIC X(19)  VALUE 'RUA  9042 099 187 0'.
081200         03  FILLER  PIC X(19)  VALUE 'RUB  9043 156 187 0'.
081300         03  FILLER  PIC X(19)  VALUE 'RUC  9044 156 187 0'.
081400         03  FILLER  PIC X(19)  VALUE 'RUL  9052 257 187 0'.
081500         03  FILLER  PIC X(19)  VALUE 'RUX  9053 267 187 0'.
081600         03  FILLER  PIC X(19)  VALUE 'RVA  9039 110 128 0'.
081700         03  FILLER  PIC X(19)  VALUE 'RVB  9040 111 128 0'.
081800         03  FILLER  PIC X(19)  VALUE 'RVC  9041 151 128 0'.
081900         03  FILLER  PIC X(19)  VALUE 'RVL  9050 219 128 0'.
082000         03  FILLER  PIC X(19)  VALUE 'RVX  9051 261 128 0'.
082100     02  RUG67-2012-DATA2 REDEFINES RUG67-2012-DATA1 OCCURS 67    04050000
082200             ASCENDING KEY IS RUG67-2012-CODE                     04060000
082300             INDEXED BY RUG67-2012-01.                            04070000
082400         03  RUG67-2012-CODE     PIC X(03).                       04080000
082500         03  RUG67-2012-REGS        OCCURS 1.                     04090000
082600             04  FILLER        PIC XX.                            04100000
082700             04  REV67-2012-CODE      PIC XXXX.                   04110000
082800             04  FILLER        PIC X.                             04120000
082900             04  RUG67-2012-NURSING PIC 9V99.                     04130000
083000             04  FILLER        PIC X.                             04140000
083100             04  RUG67-2012-THERAPY PIC 9V99.                     04150000
083200             04  FILLER        PIC X.                             04160000
083300             04  RUG67-2012-FACTOR PIC 9.                         04170000
083400                                                                  04180000
083400*********************>>  2013  <<**********************           04180000
083400                                                                  04180000
074300                                                                  04180000
074400***************************************************************   02870000
074500*  LAYUP TABLE AREA FOR RUG 67 CODES FOR FY2013               *   02880000
074600*  EFFECTIVE OCT  1, 2012                                     *   02890000
074700*  FORMAT FOR RUG TABLE 67                                    *   02900000
074800*    N = NURSING   T = THERAPY  F = THERAPY COMPONENT FACTOR  *   02910000
074900***************************************************************   02920000
075000 01  RUG67-2013-TABLE.                                            02930000
075100     02  RUG67-2013-DATA1.                                        02940000
075200*                                      RUG  REV                   02950000
075300*                                      CODE CODE N - T - F        02960000
075400         03  FILLER  PIC X(19)  VALUE 'AAA  9000 054 000 1'.
075500         03  FILLER  PIC X(19)  VALUE 'BA1  9011 064 000 1'.
075600         03  FILLER  PIC X(19)  VALUE 'BA2  9012 070 000 1'.
075700         03  FILLER  PIC X(19)  VALUE 'BB1  9013 090 000 1'.
075800         03  FILLER  PIC X(19)  VALUE 'BB2  9014 097 000 1'.
075900         03  FILLER  PIC X(19)  VALUE 'CA1  9019 078 000 1'.
076000         03  FILLER  PIC X(19)  VALUE 'CA2  9020 088 000 1'.
076100         03  FILLER  PIC X(19)  VALUE 'CB1  9021 102 000 1'.
076200         03  FILLER  PIC X(19)  VALUE 'CB2  9022 115 000 1'.
076300         03  FILLER  PIC X(19)  VALUE 'CC1  9023 115 000 1'.
076400         03  FILLER  PIC X(19)  VALUE 'CC2  9024 129 000 1'.
076500         03  FILLER  PIC X(19)  VALUE 'CD1  9024 138 000 1'.
076600         03  FILLER  PIC X(19)  VALUE 'CD2  9024 156 000 1'.
076700         03  FILLER  PIC X(19)  VALUE 'CE1  9024 150 000 1'.
076800         03  FILLER  PIC X(19)  VALUE 'CE2  9028 168 000 1'.
076900         03  FILLER  PIC X(19)  VALUE 'ES1  9028 232 000 1'.
077000         03  FILLER  PIC X(19)  VALUE 'ES2  9029 267 000 1'.
077100         03  FILLER  PIC X(19)  VALUE 'ES3  9030 358 000 1'.
077200         03  FILLER  PIC X(19)  VALUE 'HB1  9015 146 000 1'.
077300         03  FILLER  PIC X(19)  VALUE 'HB2  9016 186 000 1'.
077400         03  FILLER  PIC X(19)  VALUE 'HC1  9017 148 000 1'.
077500         03  FILLER  PIC X(19)  VALUE 'HC2  9018 189 000 1'.
077600         03  FILLER  PIC X(19)  VALUE 'HD1  9018 160 000 1'.
077700         03  FILLER  PIC X(19)  VALUE 'HD2  9018 204 000 1'.
077800         03  FILLER  PIC X(19)  VALUE 'HE1  9018 174 000 1'.
077900         03  FILLER  PIC X(19)  VALUE 'HE2  9018 222 000 1'.
078000         03  FILLER  PIC X(19)  VALUE 'LB1  9018 114 000 1'.
078100         03  FILLER  PIC X(19)  VALUE 'LB2  9018 145 000 1'.
078200         03  FILLER  PIC X(19)  VALUE 'LC1  9018 122 000 1'.
078300         03  FILLER  PIC X(19)  VALUE 'LC2  9018 156 000 1'.
078400         03  FILLER  PIC X(19)  VALUE 'LD1  9018 146 000 1'.
078500         03  FILLER  PIC X(19)  VALUE 'LD2  9018 186 000 1'.
078600         03  FILLER  PIC X(19)  VALUE 'LE1  9018 154 000 1'.
078700         03  FILLER  PIC X(19)  VALUE 'LE2  9018 196 000 1'.
078800         03  FILLER  PIC X(19)  VALUE 'PA1  9001 054 000 1'.
078900         03  FILLER  PIC X(19)  VALUE 'PA2  9002 059 000 1'.
079000         03  FILLER  PIC X(19)  VALUE 'PB1  9003 078 000 1'.
079100         03  FILLER  PIC X(19)  VALUE 'PB2  9004 084 000 1'.
079200         03  FILLER  PIC X(19)  VALUE 'PC1  9005 102 000 1'.
079300         03  FILLER  PIC X(19)  VALUE 'PC2  9006 110 000 1'.
079400         03  FILLER  PIC X(19)  VALUE 'PD1  9007 128 000 1'.
079500         03  FILLER  PIC X(19)  VALUE 'PD2  9008 138 000 1'.
079600         03  FILLER  PIC X(19)  VALUE 'PE1  9009 140 000 1'.
079700         03  FILLER  PIC X(19)  VALUE 'PE2  9010 150 000 1'.
079800         03  FILLER  PIC X(19)  VALUE 'RHA  9036 091 085 0'.
079900         03  FILLER  PIC X(19)  VALUE 'RHB  9037 119 085 0'.
080000         03  FILLER  PIC X(19)  VALUE 'RHC  9038 145 085 0'.
080100         03  FILLER  PIC X(19)  VALUE 'RHL  9048 215 085 0'.
080200         03  FILLER  PIC X(19)  VALUE 'RHX  9049 255 085 0'.
080300         03  FILLER  PIC X(19)  VALUE 'RLA  9031 071 028 0'.
080400         03  FILLER  PIC X(19)  VALUE 'RLB  9032 150 028 0'.
080500         03  FILLER  PIC X(19)  VALUE 'RLX  9045 226 028 0'.
080600         03  FILLER  PIC X(19)  VALUE 'RMA  9033 084 055 0'.
080700         03  FILLER  PIC X(19)  VALUE 'RMB  9034 122 055 0'.
080800         03  FILLER  PIC X(19)  VALUE 'RMC  9035 136 055 0'.
080900         03  FILLER  PIC X(19)  VALUE 'RML  9046 219 055 0'.
081000         03  FILLER  PIC X(19)  VALUE 'RMX  9047 247 055 0'.
081100         03  FILLER  PIC X(19)  VALUE 'RUA  9042 099 187 0'.
081200         03  FILLER  PIC X(19)  VALUE 'RUB  9043 156 187 0'.
081300         03  FILLER  PIC X(19)  VALUE 'RUC  9044 156 187 0'.
081400         03  FILLER  PIC X(19)  VALUE 'RUL  9052 257 187 0'.
081500         03  FILLER  PIC X(19)  VALUE 'RUX  9053 267 187 0'.
081600         03  FILLER  PIC X(19)  VALUE 'RVA  9039 110 128 0'.
081700         03  FILLER  PIC X(19)  VALUE 'RVB  9040 111 128 0'.
081800         03  FILLER  PIC X(19)  VALUE 'RVC  9041 151 128 0'.
081900         03  FILLER  PIC X(19)  VALUE 'RVL  9050 219 128 0'.
082000         03  FILLER  PIC X(19)  VALUE 'RVX  9051 261 128 0'.
082100     02  RUG67-2013-DATA2 REDEFINES RUG67-2013-DATA1 OCCURS 67    04050000
082200             ASCENDING KEY IS RUG67-2013-CODE                     04060000
082300             INDEXED BY RUG67-2013-01.                            04070000
082400         03  RUG67-2013-CODE     PIC X(03).                       04080000
082500         03  RUG67-2013-REGS        OCCURS 1.                     04090000
082600             04  FILLER        PIC XX.                            04100000
082700             04  REV67-2013-CODE      PIC XXXX.                   04110000
082800             04  FILLER        PIC X.                             04120000
082900             04  RUG67-2013-NURSING PIC 9V99.                     04130000
083000             04  FILLER        PIC X.                             04140000
083100             04  RUG67-2013-THERAPY PIC 9V99.                     04150000
083200             04  FILLER        PIC X.                             04160000
083300             04  RUG67-2013-FACTOR PIC 9.                         04170000
083400                                                                  04180000
083400                                                                  04180000
083500                                                                  04190000
083400*********************>>  2013  <<**********************           04180000
083600 LINKAGE SECTION.                                                 04200000
083700***************************************************************   04210000
083800*                 * * * * * * * * *                           *   04220000
083900***************************************************************   04230000
084000***************************************************************   04240000
084100*    THIS DATA IS CALCULATED BY THIS SNFPR  SUBROUTINE        *   04250000
084200*    AND PASSED BACK TO THE CALLING PROGRAM                   *   04260000
084300*            RETURN CODE VALUES (SNF-RTC)                     *   04270000
084400*                                                             *   04280000
084500*            SNF-RTC                                          *   04290000
084600*              00 = RUG III GROUP RATE RETURNED               *   04300000
084700*                                                             *   04310000
084800*            SNF-RTC   NO RATE RETURNED                       *   04320000
084900*                                                             *   04330000
085000*              20 = INVALID RUG CODE                          *   04340000
085100*                                                             *   04350000
085200*              30 = INVALID MSA OR CBSA OR WAGE INDEX         *   04360000
085300*                                                             *   04370000
085400*              40 = THRU DATE < JULY 1 1998 OR INVALID        *   04380000
085500*                                                             *   04390000
085600*              50 = INVALID FEDERAL BLEND FOR THAT YEAR       *   04400000
085700*                                                             *   04410000
085800*              60 = INVALID FEDERAL BLEND                     *   04420000
085900*                                                             *   04430000
086000*              61 = FEDERAL BLEND = 0 AND                     *   04440000
086100*                   SNF THRU DATE < JAN 1, 2000               *   04450000
086200*                                                             *   04460000
086300***************************************************************   04470000
086400*     IP-RATE, GS-RATE, MDS-RATE, THERAPY, REHAB              *   04480000
086500***************************************************************   04490000
086600 01  SNF-DATA.                                                    04500000
086700     10  SNF-MSA               PIC XXXX.                          04510000
086800     10  SNF-CBSA              PIC XXXXX.                         04520000
086900     10  SNF-SPEC-WI-IND       PIC X.                             04530000
087000     10  SNF-SPEC-WI           PIC 9(02)V9(04).                   04540000
087100     10  SNF-RUG-CODE.                                            04550000
087200         15  SNF-RUG           PIC XXX.                           04560000
087300         15  FILLER            PIC XX.                            04570000
087400                                                                  04580000
087400     10  SNF-FROM-DATE.                                           04580000
087500         15  SNF-FROM-CC        PIC XX.                           04590000
087600         15  SNF-FROM-YY        PIC XX.                           04600000
087700         15  SNF-FROM-MM        PIC XX.                           04610000
087800         15  SNF-FROM-DD        PIC XX.                           04620000
087900                                                                  04580000
087900     10  SNF-THRU-DATE.                                           04580000
088000         15  SNF-THRU-CC       PIC XX.                            04590000
088100         15  SNF-THRU-YY       PIC XX.                            04600000
088200         15  SNF-THRU-MM       PIC XX.                            04610000
088300         15  SNF-THRU-DD       PIC XX.                            04620000
088400                                                                  04630000
088400     10  SNF-FED-BLEND         PIC X.                             04630000
088500         88  SNF-ALL-FACILITY      VALUE '0'.                     04640000
088600         88  SNF-FED-BLEND-2575PER VALUE '1'.                     04650000
088700         88  SNF-FED-BLEND-5050PER VALUE '2'.                     04660000
088800         88  SNF-FED-BLEND-7525PER VALUE '3'.                     04670000
088900         88  SNF-FED-BLEND-100PER  VALUE '4'.                     04680000
089000     10  SNF-FACILITY-RATE     PIC 9(05)V99.                      04690000
089100     10  SNF-DIAGNOSIS-CODES.                                     04700000
089200         15  SNF-PRIN-DIAG-CODE    PIC X(07).                     04710000
089300         15  SNF-OTHER-DIAG-CODE2  PIC X(07).                     04720000
089400         15  SNF-OTHER-DIAG-CODE3  PIC X(07).                     04730000
089500         15  SNF-OTHER-DIAG-CODE4  PIC X(07).                     04740000
089600         15  SNF-OTHER-DIAG-CODE5  PIC X(07).                     04750000
089700         15  SNF-OTHER-DIAG-CODE6  PIC X(07).                     04760000
089800         15  SNF-OTHER-DIAG-CODE7  PIC X(07).                     04770000
089900         15  SNF-OTHER-DIAG-CODE8  PIC X(07).                     04780000
090000         15  SNF-OTHER-DIAG-CODE9  PIC X(07).                     04790000
090100         15  SNF-OTHER-DIAG-CODE10 PIC X(07).                     04790000
090200         15  SNF-OTHER-DIAG-CODE11 PIC X(07).                     04790000
090300         15  SNF-OTHER-DIAG-CODE12 PIC X(07).                     04790000
090400         15  SNF-OTHER-DIAG-CODE13 PIC X(07).                     04790000
090500         15  SNF-OTHER-DIAG-CODE14 PIC X(07).                     04790000
090600         15  SNF-OTHER-DIAG-CODE15 PIC X(07).                     04790000
090700         15  SNF-OTHER-DIAG-CODE16 PIC X(07).                     04790000
090800         15  SNF-OTHER-DIAG-CODE17 PIC X(07).                     04790000
090900         15  SNF-OTHER-DIAG-CODE18 PIC X(07).                     04790000
091000         15  SNF-OTHER-DIAG-CODE19 PIC X(07).                     04790000
091100         15  SNF-OTHER-DIAG-CODE20 PIC X(07).                     04790000
091200         15  SNF-OTHER-DIAG-CODE21 PIC X(07).                     04790000
091300         15  SNF-OTHER-DIAG-CODE22 PIC X(07).                     04790000
091400         15  SNF-OTHER-DIAG-CODE23 PIC X(07).                     04790000
091500         15  SNF-OTHER-DIAG-CODE24 PIC X(07).                     04790000
091600         15  SNF-OTHER-DIAG-CODE25 PIC X(07).                     04790000
091700     10  SNF-RATE-RTC.                                            04800000
091800         15  SNF-PAYMENT-RATE      PIC 9(06)V99.                  04810000
091900         15  SNF-RTC               PIC XX.                        04820000
092000     10  FILLER                    PIC X(24).                     04830000
092100                                                                  04840000
092200 01  HOLD-VARIABLES.                                              04850000
092300     02  HOLD-VAR-DATA.                                           04860000
092400         05  FACTOR                         PIC 9.                04870000
092500         05  NUR-INDEX                      PIC 9V99.             04880000
092600         05  THR-INDEX                      PIC 9V99.             04890000
092700         05  AREA-WAGE-INDEX                PIC 9(01)V9(04).      04900000
092800         05  IP-RATE                        PIC 9(03)V9(02).      04910000
092900         05  GS-RATE                        PIC 9(02)V9(02).      04920000
093000         05  TH-RATE                        PIC 9(02)V9(02).      04930000
093100         05  REHAB-RATE                     PIC 9(03)V9(02).      04940000
093200         05  NURSING-COMPONENT              PIC 999V99.           04950000
093300         05  THERAPY-COMPONENT              PIC 999V99.           04960000
093400         05  NCM-THR-COMPONENT              PIC 999V99.           04970000
093500         05  NCM-COMPONENT                  PIC 999V99.           04980000
093600         05  PAYMENT-RATE-ADJ               PIC 9(06)V99.         04990000
093700         05  FED-PAYMENT-PORTION            PIC 9(06)V99.         05000000
093800     02  SNFPR-VERSION                      PIC X(09).            05010000
093900                                                                  05020000
094000 01  MSA-WAGE-INDEX-RECORD.                                       05030000
094100     02  HOLD-MSA-WIR-DATA.                                       05040000
094200         05  MSA-WIR-MSA             PIC X(04).                   05050000
094300         05  MSA-WIR-EFFDATE         PIC X(08).                   05060000
094400         05  MSA-WIR-AREA-WAGEIND    PIC 9(02)V9(04).             05070000
094500                                                                  05080000
094600 01  CBSA-WAGE-INDEX-RECORD.                                      05090000
094700     02  HOLD-CBSA-WIR-DATA.                                      05100000
094800         05  CBSA-WIR-CBSA            PIC X(05).                  05110000
094900         05  CBSA-WIR-EFFDATE         PIC X(08).                  05120000
095000         05  CBSA-WIR-AREA-WAGEIND    PIC 9(02)V9(04).            05130000
095100                                                                  05140000
095200 PROCEDURE DIVISION            USING SNF-DATA                     05150000
095300                                     HOLD-VARIABLES               05160000
095400                                     CBSA-WAGE-INDEX-RECORD       05170000
095500                                     MSA-WAGE-INDEX-RECORD.       05180000
095600                                                                  05190000
095700***************************************************************   05200000
095800*    PROCESSING:                                              *   05210000
095900*        -  WILL PROCESS ALL NATIONAL SNF FOR 1998 THRU 2009  *   05220001
096000*                STARTING JULY 1, 1998                        *   05230000
096100***************************************************************   05240000
096200                                                                  05250000
096300     PERFORM 0200-MAINLINE-CONTROL.                               05260000
096400                                                                  05270000
096500     MOVE HOLD-SNF-DATA        TO SNF-DATA.                       05280000
096600                                                                  05290000
096700     GOBACK.                                                      05300000
096800                                                                  05310000
096900 0200-MAINLINE-CONTROL.                                           05320000
096600                                                                  05290000
097000     MOVE SNF-DATA             TO HOLD-SNF-DATA.                  05330000
097100                                                                  05340000
097200     MOVE ALL '0'              TO HLD-RATE-RTC                    05350000
097300                                  HOLD-VAR-DATA                   05360000
097400                                  WK-PAYMENT-RATE                 05370000
097500                                  WK-FACILITY-RATE.               05380000
097600                                                                  05390000
097700     MOVE CAL-VERSION          TO SNFPR-VERSION.                  05400000
097800                                                                  05410000
097900     IF  HLD-RTC = 00                                             05420000
098000         PERFORM 400-CALC-THE-SNF                                 05430000
098000            THRU 400-EXIT.                                        05430000
098100                                                                  05440000
098200 400-CALC-THE-SNF.                                                05450000
098400
098500     MOVE HLD-FROM-DATE        TO HLD-PRICE-FROM-DATE
098600
098700     MOVE HLD-THRU-DATE        TO HLD-PRICE-THRU-DATE
098800
098900     IF HLD-PRICE-THRU-MMDD = '1001' AND
099000        HLD-PRICE-FROM-DATE < HLD-PRICE-THRU-DATE
099100        MOVE '0930'            TO HLD-PRICE-THRU-MMDD.
099200
099300     IF HLD-THRU-DATE < 19980701                                  05470000
099400         MOVE '40'             TO HLD-RTC.                        05480000
099500                                                                  05490000
099600     IF HLD-RTC NOT = 00                                          05500000
099600            GO TO 400-EXIT.                                       05500000
099700                                                                  05510000
099800**************YEARCHANGE 2013.0 *******************************   01540105
099900     IF HLD-PRICE-THRU-DATE > 20120930                            05520001
100000        MOVE CBSA-WIR-AREA-WAGEIND                                05530000
100000                               TO AREA-WAGE-INDEX                 05530000
100100        PERFORM 2013-67-PAYMENT-RATE-CALC                         05540001
100100           THRU 2013-67-EXIT                                      05540001
100200        GO TO 400-EXIT.                                           05550000
100300**************YEARCHANGE 2013.0 *******************************   01540105
099800**************YEARCHANGE 2012.0 *******************************   01540105
099900     IF HLD-PRICE-THRU-DATE > 20110930                            05520001
100000        MOVE CBSA-WIR-AREA-WAGEIND                                05530000
100000                               TO AREA-WAGE-INDEX                 05530000
100100        PERFORM 2012-67-PAYMENT-RATE-CALC                         05540001
100100           THRU 2012-67-EXIT                                      05540001
100200        GO TO 400-EXIT.                                           05550000
100300**************YEARCHANGE 2012.0 *******************************   01540105
100400**************YEARCHANGE 2011.0 *******************************   01540105
100500     IF HLD-PRICE-THRU-DATE > 20100930                            05520001
100600        MOVE CBSA-WIR-AREA-WAGEIND                                05530000
100600                               TO AREA-WAGE-INDEX                 05530000
100700        PERFORM 2011-67-PAYMENT-RATE-CALC                         05540001
100100           THRU 2011-67-EXIT                                      05540001
100800        GO TO 400-EXIT.                                           05550000
100900**************YEARCHANGE 2011.0 *******************************   01540105
101000**************YEARCHANGE 2010.0 *******************************   01540105
101100     IF HLD-PRICE-THRU-DATE > 20090930                            05520001
101200        MOVE CBSA-WIR-AREA-WAGEIND TO AREA-WAGE-INDEX             05530000
101300        PERFORM 2010-53-PAYMENT-RATE-CALC THRU 2010-53-EXIT       05540001
101400        GO TO 400-EXIT.                                           05550000
101500**************YEARCHANGE 2010.0 *******************************   01540105
101600**************YEARCHANGE 2009.0 *******************************   01540105
101700     IF HLD-PRICE-THRU-DATE > 20080930                            05520001
101800        MOVE CBSA-WIR-AREA-WAGEIND TO AREA-WAGE-INDEX             05530000
101900        PERFORM 2009-53-PAYMENT-RATE-CALC THRU 2009-53-EXIT       05540001
102000        GO TO 400-EXIT.                                           05550000
102100**************YEARCHANGE 2009.0 *******************************   01540105
102200**************YEARCHANGE 2008.0 *******************************   01540105
102300     IF HLD-PRICE-THRU-DATE > 20070930                            05550201
102400        MOVE CBSA-WIR-AREA-WAGEIND TO AREA-WAGE-INDEX             05550301
102500        PERFORM 2008-53-PAYMENT-RATE-CALC THRU 2008-53-EXIT       05550401
102600        GO TO 400-EXIT.                                           05550501
102700**************YEARCHANGE 2008.0 *******************************   01540105
102800**************YEARCHANGE 2007.0 *******************************   01540105
102900     IF HLD-PRICE-THRU-DATE > 20060930                            05552000
103000        MOVE CBSA-WIR-AREA-WAGEIND TO AREA-WAGE-INDEX             05553000
103100        PERFORM 2007-53-PAYMENT-RATE-CALC THRU 2007-53-EXIT       05553100
103200        GO TO 400-EXIT.                                           05553200
103300**************YEARCHANGE 2007.0 *******************************   01540105
103400**************YEARCHANGE 2006.1 *******************************   01540105
103500     IF HLD-PRICE-THRU-DATE > 20051231                            05553400
103600        MOVE CBSA-WIR-AREA-WAGEIND TO AREA-WAGE-INDEX             05553500
103700        PERFORM 2006-53-PAYMENT-RATE-CALC THRU 2006-53-EXIT       05553600
103800        GO TO 400-EXIT.                                           05553700
103900**************YEARCHANGE 2006.1 *******************************   01540105
104000**************YEARCHANGE 2006.0 *******************************   01540105
104100     IF HLD-PRICE-THRU-DATE > 20050930 AND                        05553900
104200        HLD-PRICE-THRU-DATE < 20060101                            05554000
104300        MOVE CBSA-WIR-AREA-WAGEIND TO AREA-WAGE-INDEX             05555000
104400        PERFORM 2006-44-PAYMENT-RATE-CALC THRU 2006-44-EXIT       05556000
104500        GO TO 400-EXIT.                                           05557000
104600**************YEARCHANGE 2006.0 *******************************   01540105
104700                                                                  05558000
104800     MOVE MSA-WIR-AREA-WAGEIND TO AREA-WAGE-INDEX.                05559000
104900                                                                  05560000
105000     IF HLD-PRICE-THRU-DATE > 20040930                            05570000
105100        PERFORM 2005-PAYMENT-RATE-CALC                            05580000
105100           THRU 2005-EXIT                                         05580000
105200        GO TO 400-EXIT.                                           05590000
105300                                                                  05600000
105400     IF HLD-PRICE-THRU-DATE > 20030930                            05610000
105500        PERFORM 2004-PAYMENT-RATE-CALC                            05620000
105500           THRU 2004-EXIT                                         05620000
105500                                                                  05620000
105600        GO TO 400-EXIT.                                           05630000
105700                                                                  05640000
105800     IF HLD-PRICE-THRU-DATE > 20020930                            05650000
105900        PERFORM 2003-PAYMENT-RATE-CALC                            05660000
105900           THRU 2003-EXIT                                         05660000
106000        GO TO 400-EXIT.                                           05670000
106100                                                                  05680000
106200     IF HLD-PRICE-THRU-DATE > 20010930                            05690000
106300        PERFORM 2002-PAYMENT-RATE-CALC                            05700000
106300           THRU 2002-EXIT                                         05700000
106400        GO TO 400-EXIT.                                           05710000
106500                                                                  05720000
106600     IF HLD-PRICE-THRU-DATE > 20010331                            05730000
106700        PERFORM 2001A-PAYMENT-RATE-CALC                           05740000
106700           THRU 2001A-EXIT                                        05740000
106800        GO TO 400-EXIT.                                           05750000
106900                                                                  05760000
107000     IF HLD-PRICE-THRU-DATE > 20000930                            05770000
107100        PERFORM 2001-PAYMENT-RATE-CALC                            05780000
107100           THRU 2001-EXIT                                         05780000
107200        GO TO 400-EXIT.                                           05790000
107300                                                                  05800000
107400     IF HLD-PRICE-THRU-DATE > 19990930                            05810000
107500        PERFORM 2000-PAYMENT-RATE-CALC                            05820000
107500           THRU 2000-EXIT                                         05820000
107600        GO TO 400-EXIT.                                           05830000
107700                                                                  05840000
107800     IF HLD-PRICE-THRU-DATE > 19980630                            05850000
107900        PERFORM 1999-PAYMENT-RATE-CALC                            05860000
107900           THRU 1999-EXIT                                         05860000
108000        GO TO 400-EXIT.                                           05870000
108100                                                                  05880000
108200                                                                  05890000
108300 400-EXIT.                                                        05900000
108300     EXIT.                                                        05900000
108400                                                                  05910000
108500 500-GET-RATES.                                                   05920000
108600                                                                  05930000
108700     PERFORM 600-WHICH-RATES VARYING R1 FROM 1 BY 1               05940000
108800**************YEARCHANGE 2013.0 *******************************   05941006
108900                   UNTIL R1 > 16.                                 05950003
109000**************YEARCHANGE 2013.0 *******************************   05951006
109100 500-EXIT.    EXIT.                                               05960000
109200                                                                  05970000
109300 600-WHICH-RATES.                                                 05980000
109400                                                                  05990000
109500     IF HLD-PRICE-THRU-DATE NOT < REG-EFF-DATE (R1)               06000000
109600       MOVE R-IP-RATE (R1, R2, R3)                                06010000
109600                               TO IP-RATE                         06010000
109700       MOVE R-GS-RATE (R1, R2, R3)                                06020000
109700                               TO GS-RATE,                        06020000
109700                                  NCM-COMPONENT                   06020000
109800       MOVE R-TH-RATE (R1, R2, R3)                                06030000
109800                               TO TH-RATE,                        06030000
109800                                  NCM-THR-COMPONENT               06030000
109900       MOVE R-REHAB-RATE (R1, R2, R3)                             06040000
109900                               TO REHAB-RATE.                     06040000
110000                                                                  06050000
110100 800-SEARCH-4-RUG.                                                06060000
110200     SET RUG01                 TO 1.                              06070000
110300     SEARCH RUG-DATA2 VARYING RUG01                               06080000
110400       AT END                                                     06090000
110500           MOVE '20'           TO HLD-RTC                         06100000
110600           GO TO 800-SEARCH-EXIT                                  06110000
110700       WHEN RUG-CODE (RUG01) = HLD-RUG                            06120000
110700
110800           MOVE RUG-NURSING (RUG01, R3)                           06130000
110800                               TO NUR-INDEX                       06130000
110900           MOVE RUG-THERAPY (RUG01, R3)                           06140000
110900                               TO THR-INDEX                       06140000
111000           MOVE RUG-FACTOR  (RUG01, R3)                           06150000
111000                               TO FACTOR.                         06150000
111100                                                                  06160000
111200 800-SEARCH-EXIT.   EXIT.                                         06170000
111300                                                                  06180000
111400 900-SEARCH-4-RUG53.                                              06190000
111500     SET RUG53-01              TO 1.                              06200000
111600     SEARCH RUG53-DATA2 VARYING RUG53-01                          06210000
111700       AT END                                                     06220000
111800           MOVE '20'           TO HLD-RTC                         06230000
111900           GO TO 900-SEARCH-EXIT                                  06240000
111900                                                                  06240000
112000       WHEN RUG53-CODE (RUG53-01) = HLD-RUG                       06250000
112100           MOVE RUG53-NURSING (RUG53-01, R3)                      06260000
112100                               TO NUR-INDEX                       06260000
112200           MOVE RUG53-THERAPY (RUG53-01, R3)                      06270000
112200                               TO THR-INDEX                       06270000
112300           MOVE RUG53-FACTOR  (RUG53-01, R3)                      06280000
112300                               TO FACTOR.                         06280000
112400                                                                  06290000
112500 900-SEARCH-EXIT.   EXIT.                                         06300000
112600                                                                  06310000
112700                                                                  06180000
112800 910-SEARCH-4-RUG53-2010.                                         06190000
113300                                                                  06240000
112900     SET RUG53-2010-01         TO 1.                              06200000
113300                                                                  06240000
113000     SEARCH RUG53-2010-DATA2   VARYING RUG53-2010-01              06210000
113100       AT END                                                     06220000
113200           MOVE '20'           TO HLD-RTC                         06230000
113300           GO TO 910-SEARCH-EXIT                                  06240000
113300                                                                  06240000
113400       WHEN RUG53-2010-CODE (RUG53-2010-01) = HLD-RUG             06250000
113500           MOVE RUG53-2010-NURSING (RUG53-2010-01, R3)
113600                               TO NUR-INDEX
113700           MOVE RUG53-2010-THERAPY (RUG53-2010-01, R3)
113800                               TO THR-INDEX
113900           MOVE RUG53-2010-FACTOR (RUG53-2010-01, R3)
114000                               TO FACTOR.
114100                                                                  06290000
114200 910-SEARCH-EXIT.   EXIT.                                         06300000
114300                                                                  06180000
114400 911-SEARCH-4-RUG67-2011.                                         06190000
114400                                                                  06190000
114500     SET RUG67-2011-01         TO 1.                              06200000
114600     SEARCH RUG67-2011-DATA2   VARYING RUG67-2011-01              06210000
114700       AT END                                                     06220000
114800           MOVE '20'           TO HLD-RTC                         06230000
114900           GO TO 911-SEARCH-EXIT                                  06240000
114900                                                                  06240000
115000       WHEN RUG67-2011-CODE (RUG67-2011-01) = HLD-RUG             06250000
115100           MOVE RUG67-2011-NURSING (RUG67-2011-01, R3)
115200                               TO NUR-INDEX
115300           MOVE RUG67-2011-THERAPY (RUG67-2011-01, R3)
115400                               TO THR-INDEX
115500           MOVE RUG67-2011-FACTOR (RUG67-2011-01, R3)
115600                               TO FACTOR.
115700                                                                  06290000
115800 911-SEARCH-EXIT.   EXIT.                                         06300000
115900                                                                  06310000
116000                                                                  06180000
116100 912-SEARCH-4-RUG67-2012.                                         06190000
116200     SET RUG67-2012-01         TO 1.                              06200000
116300     SEARCH RUG67-2012-DATA2 VARYING RUG67-2012-01                06210000
116400       AT END                                                     06220000
116500           MOVE '20'           TO HLD-RTC                         06230000
116600           GO TO 912-SEARCH-EXIT                                  06240000
116700       WHEN RUG67-2012-CODE (RUG67-2012-01) = HLD-RUG             06250000
116800           MOVE RUG67-2012-NURSING (RUG67-2012-01, R3)
116900                               TO NUR-INDEX
117000           MOVE RUG67-2012-THERAPY (RUG67-2012-01, R3)
117100                               TO THR-INDEX
117200           MOVE RUG67-2012-FACTOR (RUG67-2012-01, R3)
117300                               TO FACTOR.
117400                                                                  06290000
117500 912-SEARCH-EXIT.   EXIT.                                         06300000
117600                                                                  06310000
116000                                                                  06180000
116100 913-SEARCH-4-RUG67-2013.                                         06190000
116200     SET RUG67-2013-01         TO 1.                              06200000

116300     SEARCH  RUG67-2013-DATA2                                     06210000
116300       VARYING RUG67-2013-01                                      06210000
116400       AT END                                                     06220000
116500           MOVE '20'           TO HLD-RTC                         06230000
116600           GO TO 913-SEARCH-EXIT                                  06240000
116000                                                                  06180000
116700       WHEN RUG67-2013-CODE (RUG67-2013-01) = HLD-RUG             06250000
116000                                                                  06180000
116800           MOVE RUG67-2013-NURSING (RUG67-2013-01, R3)
116900                               TO NUR-INDEX
117000           MOVE RUG67-2013-THERAPY (RUG67-2013-01, R3)
117100                               TO THR-INDEX
117200           MOVE RUG67-2013-FACTOR (RUG67-2013-01, R3)
117300                               TO FACTOR.
117400                                                                  06290000
117500 913-SEARCH-EXIT.   EXIT.                                         06300000
117600                                                                  06310000
117700 1999-PAYMENT-RATE-CALC.                                          06320000
117800***************************************************************   06330000
117900*     PAYMENT RATE CALCULATION PROCCESS                           06340000
118000***************************************************************   06350000
118100                                                                  06360000
118200     MOVE 1                    TO R3.                             06370000
118300                                                                  06380000
118400     IF HLD-MSA-RURAL-CHECK                                       06390000
118500        MOVE 1                 TO R2                              06400000
118600     ELSE                                                         06410000
118700        MOVE 2                 TO R2.                             06420000
118800                                                                  06430000
118900     PERFORM 800-SEARCH-4-RUG                                     06440000
118900        THRU 800-SEARCH-EXIT.                                     06440000
119000                                                                  06450000
119100     IF HLD-RTC NOT = 00                                          06460000
119100        GO TO 1999-EXIT.                                          06460000
119200                                                                  06470000
119300     PERFORM 500-GET-RATES.                                       06480000
119400                                                                  06490000
119500     IF SNF-FED-BLEND = 1 OR 2 OR 3 OR 4                          06500000
119600        NEXT SENTENCE                                             06510000
119700     ELSE                                                         06520000
119800        MOVE '60'              TO HLD-RTC                         06530000
119900        MOVE ALL '0'           TO HOLD-VAR-DATA                   06540000
120000        GO TO 1999-EXIT.                                          06550000
120100                                                                  06560000
120200        COMPUTE NURSING-COMPONENT ROUNDED =                       06570000
120300                   (NUR-INDEX * IP-RATE).                         06580000
120400                                                                  06590000
120500        COMPUTE THERAPY-COMPONENT ROUNDED =                       06600000
120600                   (THR-INDEX * REHAB-RATE).                      06610000
120700                                                                  06620000
120800        COMPUTE NCM-THR-COMPONENT ROUNDED =                       06630000
120900                   (FACTOR * NCM-THR-COMPONENT).                  06640000
121000                                                                  06650000
121100        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       06660000
121200                   NURSING-COMPONENT +                            06670000
121300                   THERAPY-COMPONENT +                            06680000
121400                   NCM-THR-COMPONENT +                            06690000
121500                   NCM-COMPONENT.                                 06700000
121600                                                                  06710000
121700        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        06720000
121800             (HLD-PAYMENT-RATE * PERCENT-1999-LABOR) *            06730000
121900               AREA-WAGE-INDEX.                                   06740000
122000                                                                  06750000
122100        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        06760000
122200               (HLD-PAYMENT-RATE * PERCENT-1999-NLABOR) +         06770000
122300                    PAYMENT-RATE-ADJ.                             06780000
122400                                                                  06790000
122500     IF SNF-FED-BLEND = 1                                         06800000
122600        COMPUTE WK-PAYMENT-RATE ROUNDED =                         06810000
122700           (HLD-PAYMENT-RATE * .25)                               06820000
122800        COMPUTE WK-FACILITY-RATE ROUNDED =                        06830000
122900           (HLD-FACILITY-RATE * .75)                              06840000
123000        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              06850000
123100        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        06860000
123200           (WK-PAYMENT-RATE + WK-FACILITY-RATE).                  06870000
123300                                                                  06880000
123400     IF SNF-FED-BLEND = 2                                         06890000
123500        COMPUTE WK-PAYMENT-RATE ROUNDED =                         06900000
123600           (HLD-PAYMENT-RATE * .50)                               06910000
123700        COMPUTE WK-FACILITY-RATE ROUNDED =                        06920000
123800           (HLD-FACILITY-RATE * .50)                              06930000
123900        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              06940000
124000        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        06950000
124100           (WK-PAYMENT-RATE + WK-FACILITY-RATE).                  06960000
124200                                                                  06970000
124300     IF SNF-FED-BLEND = 3                                         06980000
124400        COMPUTE WK-PAYMENT-RATE ROUNDED =                         06990000
124500           (HLD-PAYMENT-RATE * .75)                               07000000
124600        COMPUTE WK-FACILITY-RATE ROUNDED =                        07010000
124700           (HLD-FACILITY-RATE * .25)                              07020000
124800        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              07030000
124900        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        07040000
125000           (WK-PAYMENT-RATE + WK-FACILITY-RATE).                  07050000
125100                                                                  07060000
125200     IF SNF-FED-BLEND = 4                                         07070000
125300        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              07080000
125400        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        07090000
125500                HLD-PAYMENT-RATE * 1.00.                          07100000
125600                                                                  07110000
125700 1999-EXIT.   EXIT.                                               07120000
125800                                                                  07130000
125900 2000-PAYMENT-RATE-CALC.                                          07140000
126000***************************************************************   07150000
126100*     PAYMENT RATE CALCULATION PROCCESS                           07160000
126200***************************************************************   07170000
126300                                                                  07180000
126400     MOVE 1                    TO R3.                             07190000
126500                                                                  07200000
126600     IF HLD-MSA-RURAL-CHECK                                       07210000
126700        MOVE 1                 TO R2                              07220000
126800     ELSE                                                         07230000
126900        MOVE 2                 TO R2.                             07240000
127000                                                                  07250000
127100     PERFORM 800-SEARCH-4-RUG    THRU 800-SEARCH-EXIT.            07260000
127200                                                                  07270000
127300     IF HLD-RTC NOT = 00 GO TO 2000-EXIT.                         07280000
127400                                                                  07290000
127500     PERFORM 500-GET-RATES.                                       07300000
127600                                                                  07310000
127700     IF (HLD-THRU-DATE < 20000101 AND                             07320000
127800         SNF-FED-BLEND = 0)                                       07330000
127900        MOVE '61' TO HLD-RTC                                      07340000
128000        MOVE ALL '0' TO HOLD-VAR-DATA                             07350000
128100        GO TO 2000-EXIT.                                          07360000
128200                                                                  07370000
128300     IF SNF-FED-BLEND = 0 OR 1 OR 2 OR 3 OR 4                     07380000
128400        NEXT SENTENCE                                             07390000
128500     ELSE                                                         07400000
128600        MOVE '60' TO HLD-RTC                                      07410000
128700        MOVE ALL '0' TO HOLD-VAR-DATA                             07420000
128800        GO TO 2000-EXIT.                                          07430000
128900                                                                  07440000
129000        COMPUTE NURSING-COMPONENT ROUNDED =                       07450000
129100                   (NUR-INDEX * IP-RATE).                         07460000
129200                                                                  07470000
129300        COMPUTE THERAPY-COMPONENT ROUNDED =                       07480000
129400                   (THR-INDEX * REHAB-RATE).                      07490000
129500                                                                  07500000
129600        COMPUTE NCM-THR-COMPONENT ROUNDED =                       07510000
129700                   (FACTOR * NCM-THR-COMPONENT).                  07520000
129800                                                                  07530000
129900        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       07540000
130000                   NURSING-COMPONENT +                            07550000
130100                   THERAPY-COMPONENT +                            07560000
130200                   NCM-THR-COMPONENT +                            07570000
130300                   NCM-COMPONENT.                                 07580000
130400                                                                  07590000
130500        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        07600000
130600             (HLD-PAYMENT-RATE * PERCENT-2000-LABOR) *            07610000
130700               AREA-WAGE-INDEX.                                   07620000
130800                                                                  07630000
130900        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        07640000
131000               (HLD-PAYMENT-RATE * PERCENT-2000-NLABOR) +         07650000
131100                    PAYMENT-RATE-ADJ.                             07660000
131200                                                                  07670000
131300     IF  (HLD-THRU-DATE > 20000331 AND                            07680000
131400         (HLD-RUG = 'SE3' OR 'SE2' OR 'SE1' OR 'SSC' OR           07690000
131500                    'SSB' OR 'SSA' OR 'CC2' OR 'CC1' OR           07700000
131600                    'CB2' OR 'CB1' OR 'CA2' OR 'CA1' OR           07710000
131700                    'RHC' OR 'RMC' OR 'RMB'))                     07720000
131800        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        07730000
131900                HLD-PAYMENT-RATE * 1.2.                           07740000
132000                                                                  07750000
132100     IF (HLD-THRU-DATE > 19991231 AND                             07760000
132200         SNF-FED-BLEND = 0)                                       07770000
132300        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        07780000
132400                HLD-FACILITY-RATE * 1.00.                         07790000
132500                                                                  07800000
132600     IF SNF-FED-BLEND = 1                                         07810000
132700        COMPUTE WK-PAYMENT-RATE ROUNDED =                         07820000
132800           (HLD-PAYMENT-RATE * .25)                               07830000
132900        COMPUTE WK-FACILITY-RATE ROUNDED =                        07840000
133000           (HLD-FACILITY-RATE * .75)                              07850000
133100        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              07860000
133200        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        07870000
133300           (WK-PAYMENT-RATE + WK-FACILITY-RATE).                  07880000
133400                                                                  07890000
133500     IF SNF-FED-BLEND = 2                                         07900000
133600        COMPUTE WK-PAYMENT-RATE ROUNDED =                         07910000
133700           (HLD-PAYMENT-RATE * .50)                               07920000
133800        COMPUTE WK-FACILITY-RATE ROUNDED =                        07930000
133900           (HLD-FACILITY-RATE * .50)                              07940000
134000        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              07950000
134100        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        07960000
134200           (WK-PAYMENT-RATE + WK-FACILITY-RATE).                  07970000
134300                                                                  07980000
134400     IF SNF-FED-BLEND = 3                                         07990000
134500        COMPUTE WK-PAYMENT-RATE ROUNDED =                         08000000
134600           (HLD-PAYMENT-RATE * .75)                               08010000
134700        COMPUTE WK-FACILITY-RATE ROUNDED =                        08020000
134800           (HLD-FACILITY-RATE * .25)                              08030000
134900        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              08040000
135000        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        08050000
135100           (WK-PAYMENT-RATE + WK-FACILITY-RATE).                  08060000
135200                                                                  08070000
135300     IF SNF-FED-BLEND = 4                                         08080000
135400        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              08090000
135500        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        08100000
135600                HLD-PAYMENT-RATE * 1.00.                          08110000
135700                                                                  08120000
135800 2000-EXIT.   EXIT.                                               08130000
135900 2001-PAYMENT-RATE-CALC.                                          08140000
136000***************************************************************   08150000
136100*     PAYMENT RATE CALCULATION PROCCESS                           08160000
136200***************************************************************   08170000
136300                                                                  08180000
126400     MOVE 1                    TO R3.                             07190000
136500                                                                  08200000
136600     IF HLD-MSA-RURAL-CHECK                                       08210000
136700        MOVE 1                 TO R2                              08220000
136800     ELSE                                                         08230000
136900        MOVE 2                 TO R2.                             08240000
137000                                                                  08250000
137100     PERFORM 800-SEARCH-4-RUG                                     08260000
137100        THRU 800-SEARCH-EXIT.                                     08260000
137200                                                                  08270000
137300     IF HLD-RTC NOT = 00                                          08280000
137300        GO TO 2001-EXIT.                                          08280000
137400                                                                  08290000
137500     PERFORM 500-GET-RATES.                                       08300000
137600                                                                  08310000
137700     IF (HLD-THRU-DATE < 20000101 AND                             08320000
137800         SNF-FED-BLEND = 0)                                       08330000
137900        MOVE '61'              TO HLD-RTC                         08340000
138000        MOVE ALL '0'           TO HOLD-VAR-DATA                   08350000
138100        GO TO 2001-EXIT.                                          08360000
138200                                                                  08370000
138300     IF SNF-FED-BLEND = 0 OR 1 OR 2 OR 3 OR 4                     08380000
138400        NEXT SENTENCE                                             08390000
138500     ELSE                                                         08400000
138600        MOVE '60'              TO HLD-RTC                         08410000
138700        MOVE ALL '0'           TO HOLD-VAR-DATA                   08420000
138800        GO TO 2001-EXIT.                                          08430000
138900                                                                  08440000
139000        COMPUTE NURSING-COMPONENT ROUNDED =                       08450000
139100                   (NUR-INDEX * IP-RATE).                         08460000
139200                                                                  08470000
139300        COMPUTE THERAPY-COMPONENT ROUNDED =                       08480000
139400                   (THR-INDEX * REHAB-RATE).                      08490000
139500                                                                  08500000
139600        COMPUTE NCM-THR-COMPONENT ROUNDED =                       08510000
139700                   (FACTOR * NCM-THR-COMPONENT).                  08520000
139800                                                                  08530000
139900        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       08540000
140000                   NURSING-COMPONENT +                            08550000
140100                   THERAPY-COMPONENT +                            08560000
140200                   NCM-THR-COMPONENT +                            08570000
140300                   NCM-COMPONENT.                                 08580000
140400                                                                  08590000
140500        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        08600000
140600             (HLD-PAYMENT-RATE * PERCENT-2001-LABOR) *            08610000
140700               AREA-WAGE-INDEX.                                   08620000
140800                                                                  08630000
140900        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        08640000
141000               (HLD-PAYMENT-RATE * PERCENT-2001-NLABOR) +         08650000
141100                    PAYMENT-RATE-ADJ.                             08660000
141200                                                                  08670000
141300     IF  (HLD-RUG = 'SE3' OR 'SE2' OR 'SE1' OR 'SSC' OR           08680000
141400                    'SSB' OR 'SSA' OR 'CC2' OR 'CC1' OR           08690000
141500                    'CB2' OR 'CB1' OR 'CA2' OR 'CA1' OR           08700000
141600                    'RHC' OR 'RMC' OR 'RMB')                      08710000
141700        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        08720000
141800                HLD-PAYMENT-RATE * 1.24                           08730000
141900     ELSE                                                         08740000
142000        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        08750000
142100                HLD-PAYMENT-RATE * 1.04.                          08760000
142200                                                                  08770000
142300     IF  SNF-FED-BLEND = 0                                        08780000
142400        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        08790000
142500                HLD-FACILITY-RATE * 1.00.                         08800000
142600                                                                  08810000
142700     IF SNF-FED-BLEND = 1                                         08820000
142800        COMPUTE WK-PAYMENT-RATE ROUNDED =                         08830000
142900           (HLD-PAYMENT-RATE * .25)                               08840000
143000        COMPUTE WK-FACILITY-RATE ROUNDED =                        08850000
143100           (HLD-FACILITY-RATE * .75)                              08860000
143200        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              08870000
143300        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        08880000
143400           (WK-PAYMENT-RATE + WK-FACILITY-RATE).                  08890000
143500                                                                  08900000
143600     IF SNF-FED-BLEND = 2                                         08910000
143700        COMPUTE WK-PAYMENT-RATE ROUNDED =                         08920000
143800           (HLD-PAYMENT-RATE * .50)                               08930000
143900        COMPUTE WK-FACILITY-RATE ROUNDED =                        08940000
144000           (HLD-FACILITY-RATE * .50)                              08950000
144100        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              08960000
144200        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        08970000
144300           (WK-PAYMENT-RATE + WK-FACILITY-RATE).                  08980000
144400                                                                  08990000
144500     IF SNF-FED-BLEND = 3                                         09000000
144600        COMPUTE WK-PAYMENT-RATE ROUNDED =                         09010000
144700           (HLD-PAYMENT-RATE * .75)                               09020000
144800        COMPUTE WK-FACILITY-RATE ROUNDED =                        09030000
144900           (HLD-FACILITY-RATE * .25)                              09040000
145000        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              09050000
145100        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        09060000
145200           (WK-PAYMENT-RATE + WK-FACILITY-RATE).                  09070000
145300                                                                  09080000
145400     IF SNF-FED-BLEND = 4                                         09090000
145500        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              09100000
145600        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        09110000
145700                HLD-PAYMENT-RATE * 1.00.                          09120000
145800                                                                  09130000
145900                                                                  09140000
146000 2001-EXIT.   EXIT.                                               09150000
146100                                                                  09160000
146200 2001A-PAYMENT-RATE-CALC.                                         09170000
146300***************************************************************   09180000
146400*     PAYMENT RATE CALCULATION PROCCESS EFFECTIVE APR.1, 2001     09190000
146500***************************************************************   09200000
146600                                                                  09210000
146700     MOVE 1                    TO R3.                             09220000
146800                                                                  09230000
146900     IF HLD-MSA-RURAL-CHECK                                       09240000
147000        MOVE 1                 TO R2                              09250000
147100     ELSE                                                         09260000
147200        MOVE 2                 TO R2.                             09270000
147300                                                                  09280000
147400     PERFORM 800-SEARCH-4-RUG                                     09290000
147400        THRU 800-SEARCH-EXIT.                                     09290000
147500                                                                  09300000
147600     IF HLD-RTC NOT = 00                                          09310000
147600        GO TO 2001A-EXIT.                                         09310000
147700                                                                  09320000
147800     PERFORM 500-GET-RATES.                                       09330000
147900                                                                  09340000
148000     IF (HLD-THRU-DATE < 20000101 AND                             09350000
148100         SNF-FED-BLEND = 0)                                       09360000
148200        MOVE '61'              TO HLD-RTC                         09370000
148300        MOVE ALL '0'           TO HOLD-VAR-DATA                   09380000
148400        GO TO 2001A-EXIT.                                         09390000
148500                                                                  09400000
148600     IF SNF-FED-BLEND = 0 OR 1 OR 2 OR 3 OR 4                     09410000
148700        NEXT SENTENCE                                             09420000
148800     ELSE                                                         09430000
148900        MOVE '60'              TO HLD-RTC                         09440000
149000        MOVE ALL '0'           TO HOLD-VAR-DATA                   09450000
149100        GO TO 2001A-EXIT.                                         09460000
149200                                                                  09470000
149300        COMPUTE NURSING-COMPONENT ROUNDED =                       09480000
149400                   (NUR-INDEX * IP-RATE).                         09490000
149500                                                                  09500000
149600        COMPUTE THERAPY-COMPONENT ROUNDED =                       09510000
149700                   (THR-INDEX * REHAB-RATE).                      09520000
149800                                                                  09530000
149900        COMPUTE NCM-THR-COMPONENT ROUNDED =                       09540000
150000                   (FACTOR * NCM-THR-COMPONENT).                  09550000
150100                                                                  09560000
150200        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       09570000
150300                   NURSING-COMPONENT +                            09580000
150400                   THERAPY-COMPONENT +                            09590000
150500                   NCM-THR-COMPONENT +                            09600000
150600                   NCM-COMPONENT.                                 09610000
150700                                                                  09620000
150800        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        09630000
150900             (HLD-PAYMENT-RATE * PERCENT-2001-LABOR) *            09640000
151000               AREA-WAGE-INDEX.                                   09650000
151100                                                                  09660000
151200        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        09670000
151300               (HLD-PAYMENT-RATE * PERCENT-2001-NLABOR) +         09680000
151400                    PAYMENT-RATE-ADJ.                             09690000
151500                                                                  09700000
151600     IF  (HLD-RUG = 'IB2' OR 'IB1' OR 'IA2' OR 'IA1' OR           09710000
151700                    'BB2' OR 'BB1' OR 'BA2' OR 'BA1' OR           09720000
151800                    'PE2' OR 'PE1' OR 'PD2' OR 'PD1' OR           09730000
151900                    'PC2' OR 'PC1' OR 'PB2' OR 'PB1' OR           09740000
152000                    'PA2' OR 'PA1' OR 'AAA')                      09750000
152100        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        09760000
152200                HLD-PAYMENT-RATE * 1.04.                          09770000
152300                                                                  09780000
152400     IF  (HLD-RUG = 'RUC' OR 'RUB' OR 'RUA' OR 'RVC' OR           09790000
152500                    'RVB' OR 'RVA' OR 'RHC' OR 'RHB' OR           09800000
152600                    'RHA' OR 'RMC' OR 'RMB' OR 'RMA' OR           09810000
152700                    'RLB' OR 'RLA')                               09820000
152800        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        09830000
152900                HLD-PAYMENT-RATE * 1.107.                         09840000
153000                                                                  09850000
153100     IF  (HLD-RUG = 'SE3' OR 'SE2' OR 'SE1' OR 'SSC' OR           09860000
153200                    'SSB' OR 'SSA' OR 'CC2' OR 'CC1' OR           09870000
153300                    'CB2' OR 'CB1' OR 'CA2' OR 'CA1')             09880000
153400        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        09890000
153500                HLD-PAYMENT-RATE * 1.24.                          09900000
153600                                                                  09910000
153700     IF  SNF-FED-BLEND = 0                                        09920000
153800        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        09930000
153900                HLD-FACILITY-RATE * 1.00.                         09940000
154000                                                                  09950000
154100     IF SNF-FED-BLEND = 1                                         09960000
154200        COMPUTE WK-PAYMENT-RATE ROUNDED =                         09970000
154300           (HLD-PAYMENT-RATE * .25)                               09980000
154400        COMPUTE WK-FACILITY-RATE ROUNDED =                        09990000
154500           (HLD-FACILITY-RATE * .75)                              10000000
154600        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              10010000
154700        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        10020000
154800           (WK-PAYMENT-RATE + WK-FACILITY-RATE).                  10030000
154900                                                                  10040000
155000     IF SNF-FED-BLEND = 2                                         10050000
155100        COMPUTE WK-PAYMENT-RATE ROUNDED =                         10060000
155200           (HLD-PAYMENT-RATE * .50)                               10070000
155300        COMPUTE WK-FACILITY-RATE ROUNDED =                        10080000
155400           (HLD-FACILITY-RATE * .50)                              10090000
155500        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              10100000
155600        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        10110000
155700           (WK-PAYMENT-RATE + WK-FACILITY-RATE).                  10120000
155800                                                                  10130000
155900     IF SNF-FED-BLEND = 3                                         10140000
156000        COMPUTE WK-PAYMENT-RATE ROUNDED =                         10150000
156100           (HLD-PAYMENT-RATE * .75)                               10160000
156200        COMPUTE WK-FACILITY-RATE ROUNDED =                        10170000
156300           (HLD-FACILITY-RATE * .25)                              10180000
156400        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              10190000
156500        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        10200000
156600           (WK-PAYMENT-RATE + WK-FACILITY-RATE).                  10210000
156700                                                                  10220000
156800     IF SNF-FED-BLEND = 4                                         10230000
156900        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              10240000
157000        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        10250000
157100                HLD-PAYMENT-RATE * 1.00.                          10260000
157200                                                                  10270000
157300                                                                  10280000
157400 2001A-EXIT.   EXIT.                                              10290000
157500                                                                  10300000
157600 2002-PAYMENT-RATE-CALC.                                          10310000
157700***************************************************************   10320000
157800*     PAYMENT RATE CALCULATION PROCCESS EFFECTIVE OCT.1, 2001     10330000
157900***************************************************************   10340000
158000                                                                  10350000
158100     MOVE 1                    TO R3.                             10360000
158200                                                                  10370000
158300     IF HLD-MSA-RURAL-CHECK                                       10380000
158400        MOVE 1                 TO R2                              10390000
158500     ELSE                                                         10400000
158600        MOVE 2                 TO R2.                             10410000
158700                                                                  10420000
158800     PERFORM 800-SEARCH-4-RUG                                     10430000
158800        THRU 800-SEARCH-EXIT.                                     10430000
158900                                                                  10440000
159000     IF HLD-RTC NOT = 00                                          10450000
159000        GO TO 2002-EXIT.                                          10450000
159100                                                                  10460000
159200     PERFORM 500-GET-RATES.                                       10470000
159300                                                                  10480000
159400     IF (HLD-THRU-DATE < 20000101 AND                             10490000
159500         SNF-FED-BLEND = 0)                                       10500000
159600        MOVE '61'              TO HLD-RTC                         10510000
159700        MOVE ALL '0'           TO HOLD-VAR-DATA                   10520000
159800        GO TO 2002-EXIT.                                          10530000
159900                                                                  10540000
160000     IF SNF-FED-BLEND = 0 OR 1 OR 2 OR 3 OR 4                     10550000
160100        NEXT SENTENCE                                             10560000
160200     ELSE                                                         10570000
160300        MOVE '60'              TO HLD-RTC                         10580000
160400        MOVE ALL '0'           TO HOLD-VAR-DATA                   10590000
160500        GO TO 2002-EXIT.                                          10600000
160600                                                                  10610000
160700        COMPUTE NURSING-COMPONENT ROUNDED =                       10620000
160800                   (NUR-INDEX * IP-RATE).                         10630000
160900                                                                  10640000
161000        COMPUTE THERAPY-COMPONENT ROUNDED =                       10650000
161100                   (THR-INDEX * REHAB-RATE).                      10660000
161200                                                                  10670000
161300        COMPUTE NCM-THR-COMPONENT ROUNDED =                       10680000
161400                   (FACTOR * NCM-THR-COMPONENT).                  10690000
161500                                                                  10700000
161600        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       10710000
161700                   NURSING-COMPONENT +                            10720000
161800                   THERAPY-COMPONENT +                            10730000
161900                   NCM-THR-COMPONENT +                            10740000
162000                   NCM-COMPONENT.                                 10750000
162100                                                                  10760000
162200        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        10770000
162300             (HLD-PAYMENT-RATE * PERCENT-2002-LABOR) *            10780000
162400               AREA-WAGE-INDEX.                                   10790000
162500                                                                  10800000
162600        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        10810000
162700               (HLD-PAYMENT-RATE * PERCENT-2002-NLABOR) +         10820000
162800                    PAYMENT-RATE-ADJ.                             10830000
162900                                                                  10840000
163000     IF  (HLD-RUG = 'IB2' OR 'IB1' OR 'IA2' OR 'IA1' OR           10850000
163100                    'BB2' OR 'BB1' OR 'BA2' OR 'BA1' OR           10860000
163200                    'PE2' OR 'PE1' OR 'PD2' OR 'PD1' OR           10870000
163300                    'PC2' OR 'PC1' OR 'PB2' OR 'PB1' OR           10880000
163400                    'PA2' OR 'PA1' OR 'AAA')                      10890000
163500        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        10900000
163600                HLD-PAYMENT-RATE * 1.04.                          10910000
163700                                                                  10920000
163800     IF  (HLD-RUG = 'RUC' OR 'RUB' OR 'RUA' OR 'RVC' OR           10930000
163900                    'RVB' OR 'RVA' OR 'RHC' OR 'RHB' OR           10940000
164000                    'RHA' OR 'RMC' OR 'RMB' OR 'RMA' OR           10950000
164100                    'RLB' OR 'RLA')                               10960000
164200        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        10970000
164300                HLD-PAYMENT-RATE * 1.107.                         10980000
164400                                                                  10990000
164500     IF  (HLD-RUG = 'SE3' OR 'SE2' OR 'SE1' OR 'SSC' OR           11000000
164600                    'SSB' OR 'SSA' OR 'CC2' OR 'CC1' OR           11010000
164700                    'CB2' OR 'CB1' OR 'CA2' OR 'CA1')             11020000
164800        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        11030000
164900                HLD-PAYMENT-RATE * 1.24.                          11040000
165000                                                                  11050000
165100     IF  SNF-FED-BLEND = 0                                        11060000
165200        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        11070000
165300                HLD-FACILITY-RATE * 1.00.                         11080000
165400                                                                  11090000
165500     IF SNF-FED-BLEND = 1                                         11100000
165600        COMPUTE WK-PAYMENT-RATE ROUNDED =                         11110000
165700           (HLD-PAYMENT-RATE * .25)                               11120000
165800        COMPUTE WK-FACILITY-RATE ROUNDED =                        11130000
165900           (HLD-FACILITY-RATE * .75)                              11140000
166000        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              11150000
166100        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        11160000
166200           (WK-PAYMENT-RATE + WK-FACILITY-RATE).                  11170000
166300                                                                  11180000
166400     IF SNF-FED-BLEND = 2                                         11190000
166500        COMPUTE WK-PAYMENT-RATE ROUNDED =                         11200000
166600           (HLD-PAYMENT-RATE * .50)                               11210000
166700        COMPUTE WK-FACILITY-RATE ROUNDED =                        11220000
166800           (HLD-FACILITY-RATE * .50)                              11230000
166900        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              11240000
167000        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        11250000
167100           (WK-PAYMENT-RATE + WK-FACILITY-RATE).                  11260000
167200                                                                  11270000
167300     IF SNF-FED-BLEND = 3                                         11280000
167400        COMPUTE WK-PAYMENT-RATE ROUNDED =                         11290000
167500           (HLD-PAYMENT-RATE * .75)                               11300000
167600        COMPUTE WK-FACILITY-RATE ROUNDED =                        11310000
167700           (HLD-FACILITY-RATE * .25)                              11320000
167800        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              11330000
167900        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        11340000
168000           (WK-PAYMENT-RATE + WK-FACILITY-RATE).                  11350000
168100                                                                  11360000
168200     IF SNF-FED-BLEND = 4                                         11370000
168300        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              11380000
168400        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        11390000
168500                HLD-PAYMENT-RATE * 1.00.                          11400000
168600                                                                  11410000
168700                                                                  11420000
168800 2002-EXIT.   EXIT.                                               11430000
168900                                                                  11440000
169000 2003-PAYMENT-RATE-CALC.                                          11450000
169100***************************************************************   11460000
169200*     PAYMENT RATE CALCULATION PROCCESS EFFECTIVE OCT.1, 2002     11470000
169300***************************************************************   11480000
169400                                                                  11490000
169500     MOVE 1                    TO R3.                             11500000
169600                                                                  11510000
169700     IF HLD-MSA-RURAL-CHECK                                       11520000
169800        MOVE 1                 TO R2                              11530000
169900     ELSE                                                         11540000
170000        MOVE 2                 TO R2.                             11550000
170100                                                                  11560000
170200     PERFORM 800-SEARCH-4-RUG                                     11570000
170200        THRU 800-SEARCH-EXIT.                                     11570000
170300                                                                  11580000
170400     IF HLD-RTC NOT = 00                                          11590000
170400        GO TO 2003-EXIT.                                          11590000
170500                                                                  11600000
170600     PERFORM 500-GET-RATES.                                       11610000
170700                                                                  11620000
170800     IF (HLD-THRU-DATE < 20000101 AND                             11630000
170900         SNF-FED-BLEND = 0)                                       11640000
171000        MOVE '61'              TO HLD-RTC                         11650000
171100        MOVE ALL '0'           TO HOLD-VAR-DATA                   11660000
171200        GO TO 2003-EXIT.                                          11670000
171300                                                                  11680000
171400     IF SNF-FED-BLEND = 0 OR 4                                    11690000
171500        NEXT SENTENCE                                             11700000
171600     ELSE                                                         11710000
171700        MOVE '60'              TO HLD-RTC                         11720000
171800        MOVE ALL '0'           TO HOLD-VAR-DATA                   11730000
171900        GO TO 2003-EXIT.                                          11740000
172000                                                                  11750000
172100        COMPUTE NURSING-COMPONENT ROUNDED =                       11760000
172200                   (NUR-INDEX * IP-RATE).                         11770000
172300                                                                  11780000
172400        COMPUTE THERAPY-COMPONENT ROUNDED =                       11790000
172500                   (THR-INDEX * REHAB-RATE).                      11800000
172600                                                                  11810000
172700        COMPUTE NCM-THR-COMPONENT ROUNDED =                       11820000
172800                   (FACTOR * NCM-THR-COMPONENT).                  11830000
172900                                                                  11840000
173000        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       11850000
173100                   NURSING-COMPONENT +                            11860000
173200                   THERAPY-COMPONENT +                            11870000
173300                   NCM-THR-COMPONENT +                            11880000
173400                   NCM-COMPONENT.                                 11890000
173500                                                                  11900000
173600        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        11910000
173700             (HLD-PAYMENT-RATE * PERCENT-2003-LABOR) *            11920000
173800               AREA-WAGE-INDEX.                                   11930000
173900                                                                  11940000
174000        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        11950000
174100               (HLD-PAYMENT-RATE * PERCENT-2003-NLABOR) +         11960000
174200                    PAYMENT-RATE-ADJ.                             11970000
174300                                                                  11980000
174400     IF  (HLD-RUG = 'IB2' OR 'IB1' OR 'IA2' OR 'IA1' OR           11990000
174500                    'BB2' OR 'BB1' OR 'BA2' OR 'BA1' OR           12000000
174600                    'PE2' OR 'PE1' OR 'PD2' OR 'PD1' OR           12010000
174700                    'PC2' OR 'PC1' OR 'PB2' OR 'PB1' OR           12020000
174800                    'PA2' OR 'PA1' OR 'AAA')                      12030000
174900        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        12040000
175000                HLD-PAYMENT-RATE * 1.00.                          12050000
175100                                                                  12060000
175200     IF  (HLD-RUG = 'RUC' OR 'RUB' OR 'RUA' OR 'RVC' OR           12070000
175300                    'RVB' OR 'RVA' OR 'RHC' OR 'RHB' OR           12080000
175400                    'RHA' OR 'RMC' OR 'RMB' OR 'RMA' OR           12090000
175500                    'RLB' OR 'RLA')                               12100000
175600        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        12110000
175700                HLD-PAYMENT-RATE * 1.067.                         12120000
175800                                                                  12130000
175900     IF  (HLD-RUG = 'SE3' OR 'SE2' OR 'SE1' OR 'SSC' OR           12140000
176000                    'SSB' OR 'SSA' OR 'CC2' OR 'CC1' OR           12150000
176100                    'CB2' OR 'CB1' OR 'CA2' OR 'CA1')             12160000
176200        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        12170000
176300                HLD-PAYMENT-RATE * 1.20.                          12180000
176400                                                                  12190000
176500     IF  SNF-FED-BLEND = 0                                        12200000
176600        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        12210000
176700                HLD-FACILITY-RATE * 1.00.                         12220000
176800                                                                  12230000
176900                                                                  12240000
177000     IF SNF-FED-BLEND = 4                                         12250000
177100        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              12260000
177200        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        12270000
177300                HLD-PAYMENT-RATE * 1.00.                          12280000
177400                                                                  12290000
177500                                                                  12300000
177600 2003-EXIT.   EXIT.                                               12310000
177700 2004-PAYMENT-RATE-CALC.                                          12320000
177800***************************************************************   12330000
177900*     PAYMENT RATE CALCULATION PROCCESS EFFECTIVE OCT.1, 2003     12340000
178000***************************************************************   12350000
178100                                                                  12360000
178200     MOVE 1                    TO R3.                             12370000
178300                                                                  12380000
178400     IF HLD-MSA-RURAL-CHECK                                       12390000
178500        MOVE 1                 TO R2                              12400000
178600     ELSE                                                         12410000
178700        MOVE 2                 TO R2.                             12420000
178800                                                                  12430000
178900     PERFORM 800-SEARCH-4-RUG                                     12440000
178900        THRU 800-SEARCH-EXIT.                                     12440000
179000                                                                  12450000
179100     IF HLD-RTC NOT = 00                                          12460000
179100        GO TO 2004-EXIT.                                          12460000
179200                                                                  12470000
179300     PERFORM 500-GET-RATES.                                       12480000
179400                                                                  12490000
179500     IF (HLD-THRU-DATE < 20000101 AND                             12500000
179600         SNF-FED-BLEND = 0)                                       12510000
179700        MOVE '61'              TO HLD-RTC                         12520000
179800        MOVE ALL '0'           TO HOLD-VAR-DATA                   12530000
179900        GO TO 2004-EXIT.                                          12540000
180000                                                                  12550000
180100     IF SNF-FED-BLEND = 0 OR 4                                    12560000
180200        NEXT SENTENCE                                             12570000
180300     ELSE                                                         12580000
180400        MOVE '60'              TO HLD-RTC                         12590000
180500        MOVE ALL '0'           TO HOLD-VAR-DATA                   12600000
180600        GO TO 2004-EXIT.                                          12610000
180700                                                                  12620000
180800        COMPUTE NURSING-COMPONENT ROUNDED =                       12630000
180900                   (NUR-INDEX * IP-RATE).                         12640000
181000                                                                  12650000
181100        COMPUTE THERAPY-COMPONENT ROUNDED =                       12660000
181200                   (THR-INDEX * REHAB-RATE).                      12670000
181300                                                                  12680000
181400        COMPUTE NCM-THR-COMPONENT ROUNDED =                       12690000
181500                   (FACTOR * NCM-THR-COMPONENT).                  12700000
181600                                                                  12710000
181700        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       12720000
181800                   NURSING-COMPONENT +                            12730000
181900                   THERAPY-COMPONENT +                            12740000
182000                   NCM-THR-COMPONENT +                            12750000
182100                   NCM-COMPONENT.                                 12760000
182200                                                                  12770000
182300        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        12780000
182400             (HLD-PAYMENT-RATE * PERCENT-2004-LABOR) *            12790000
182500               AREA-WAGE-INDEX.                                   12800000
182600                                                                  12810000
182700        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        12820000
182800               (HLD-PAYMENT-RATE * PERCENT-2004-NLABOR) +         12830000
182900                    PAYMENT-RATE-ADJ.                             12840000
183000                                                                  12850000
183100     IF  (HLD-RUG = 'IB2' OR 'IB1' OR 'IA2' OR 'IA1' OR           12860000
183200                    'BB2' OR 'BB1' OR 'BA2' OR 'BA1' OR           12870000
183300                    'PE2' OR 'PE1' OR 'PD2' OR 'PD1' OR           12880000
183400                    'PC2' OR 'PC1' OR 'PB2' OR 'PB1' OR           12890000
183500                    'PA2' OR 'PA1' OR 'AAA')                      12900000
183600        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        12910000
183700                HLD-PAYMENT-RATE * 1.00.                          12920000
183800                                                                  12930000
183900     IF  (HLD-RUG = 'RUC' OR 'RUB' OR 'RUA' OR 'RVC' OR           12940000
184000                    'RVB' OR 'RVA' OR 'RHC' OR 'RHB' OR           12950000
184100                    'RHA' OR 'RMC' OR 'RMB' OR 'RMA' OR           12960000
184200                    'RLB' OR 'RLA')                               12970000
184300        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        12980000
184400                HLD-PAYMENT-RATE * 1.067.                         12990000
184500                                                                  13000000
184600     IF  (HLD-RUG = 'SE3' OR 'SE2' OR 'SE1' OR 'SSC' OR           13010000
184700                    'SSB' OR 'SSA' OR 'CC2' OR 'CC1' OR           13020000
184800                    'CB2' OR 'CB1' OR 'CA2' OR 'CA1')             13030000
184900        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        13040000
185000                HLD-PAYMENT-RATE * 1.20.                          13050000
185100                                                                  13060000
185200     IF  SNF-FED-BLEND = 0                                        13070000
185300        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        13080000
185400                HLD-FACILITY-RATE * 1.00.                         13090000
185500                                                                  13100000
185600                                                                  13110000
185700     IF SNF-FED-BLEND = 4                                         13120000
185800        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              13130000
185900        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        13140000
186000                HLD-PAYMENT-RATE * 1.00.                          13150000
186100                                                                  13160000
186200                                                                  13170000
186300 2004-EXIT.   EXIT.                                               13180000
186400                                                                  13190000
186500 2005-PAYMENT-RATE-CALC.                                          13200000
186600***************************************************************   13210000
186700*     PAYMENT RATE CALCULATION PROCCESS EFFECTIVE OCT.1, 2004     13220000
186800***************************************************************   13230000
186900                                                                  13240000
187000     MOVE 1                    TO R3.                             13250000
187100                                                                  13260000
187200     IF HLD-MSA-RURAL-CHECK                                       13270000
187300        MOVE 1                 TO R2                              13280000
187400     ELSE                                                         13290000
187500        MOVE 2                 TO R2.                             13300000
187600                                                                  13310000
187700     PERFORM 800-SEARCH-4-RUG                                     13320000
187700        THRU 800-SEARCH-EXIT.                                     13320000
187800                                                                  13330000
187900     IF HLD-RTC NOT = 00                                          13340000
187900        GO TO 2005-EXIT.                                          13340000
188000                                                                  13350000
188100     PERFORM 500-GET-RATES.                                       13360000
188200                                                                  13370000
188300     IF (HLD-THRU-DATE < 20000101 AND                             13380000
188400         SNF-FED-BLEND = 0)                                       13390000
188500        MOVE '61'              TO HLD-RTC                         13400000
188600        MOVE ALL '0'           TO HOLD-VAR-DATA                   13410000
188700        GO TO 2005-EXIT.                                          13420000
188800                                                                  13430000
188900     IF SNF-FED-BLEND = 0 OR 4                                    13440000
189000        NEXT SENTENCE                                             13450000
189100     ELSE                                                         13460000
189200        MOVE '60'              TO HLD-RTC                         13470000
189300        MOVE ALL '0'           TO HOLD-VAR-DATA                   13480000
189400        GO TO 2005-EXIT.                                          13490000
189500                                                                  13500000
189600        COMPUTE NURSING-COMPONENT ROUNDED =                       13510000
189700                   (NUR-INDEX * IP-RATE).                         13520000
189800                                                                  13530000
189900        COMPUTE THERAPY-COMPONENT ROUNDED =                       13540000
190000                   (THR-INDEX * REHAB-RATE).                      13550000
190100                                                                  13560000
190200        COMPUTE NCM-THR-COMPONENT ROUNDED =                       13570000
190300                   (FACTOR * NCM-THR-COMPONENT).                  13580000
190400                                                                  13590000
190500        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       13600000
190600                   NURSING-COMPONENT +                            13610000
190700                   THERAPY-COMPONENT +                            13620000
190800                   NCM-THR-COMPONENT +                            13630000
190900                   NCM-COMPONENT.                                 13640000
191000                                                                  13650000
191100        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        13660000
191200             (HLD-PAYMENT-RATE * PERCENT-2005-LABOR) *            13670000
191300               AREA-WAGE-INDEX.                                   13680000
191400                                                                  13690000
191500        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        13700000
191600               (HLD-PAYMENT-RATE * PERCENT-2005-NLABOR) +         13710000
191700                    PAYMENT-RATE-ADJ.                             13720000
191800                                                                  13730000
191900     IF '042   ' = SNF-PRIN-DIAG-CODE   OR                        13740000
192000                   SNF-OTHER-DIAG-CODE2 OR                        13750000
192100                   SNF-OTHER-DIAG-CODE3 OR                        13760000
192200                   SNF-OTHER-DIAG-CODE4 OR                        13770000
192300                   SNF-OTHER-DIAG-CODE5 OR                        13780000
192400                   SNF-OTHER-DIAG-CODE6 OR                        13790000
192500                   SNF-OTHER-DIAG-CODE7 OR                        13800000
192600                   SNF-OTHER-DIAG-CODE8 OR                        13810000
192700                   SNF-OTHER-DIAG-CODE9 OR                        13810000
192800                   SNF-OTHER-DIAG-CODE10 OR                       13810000
192900                   SNF-OTHER-DIAG-CODE11 OR                       13810000
193000                   SNF-OTHER-DIAG-CODE12 OR                       13810000
193100                   SNF-OTHER-DIAG-CODE13 OR                       13810000
193200                   SNF-OTHER-DIAG-CODE14 OR                       13810000
193300                   SNF-OTHER-DIAG-CODE15 OR                       13810000
193400                   SNF-OTHER-DIAG-CODE16 OR                       13810000
193500                   SNF-OTHER-DIAG-CODE17 OR                       13810000
193600                   SNF-OTHER-DIAG-CODE18 OR                       13810000
193700                   SNF-OTHER-DIAG-CODE19 OR                       13810000
193800                   SNF-OTHER-DIAG-CODE20 OR                       13810000
193900                   SNF-OTHER-DIAG-CODE21 OR                       13810000
194000                   SNF-OTHER-DIAG-CODE22 OR                       13810000
194100                   SNF-OTHER-DIAG-CODE23 OR                       13810000
194200                   SNF-OTHER-DIAG-CODE24 OR                       13810000
194300                   SNF-OTHER-DIAG-CODE25                          13820000
194400         COMPUTE HLD-PAYMENT-RATE ROUNDED =                       13830000
194500                 HLD-PAYMENT-RATE * 2.28                          13840000
194600         GO TO 2005-CONTINUE.                                     13850000
194700                                                                  13860000
194800     IF  (HLD-RUG = 'IB2' OR 'IB1' OR 'IA2' OR 'IA1' OR           13870000
194900                    'BB2' OR 'BB1' OR 'BA2' OR 'BA1' OR           13880000
195000                    'PE2' OR 'PE1' OR 'PD2' OR 'PD1' OR           13890000
195100                    'PC2' OR 'PC1' OR 'PB2' OR 'PB1' OR           13900000
195200                    'PA2' OR 'PA1' OR 'AAA')                      13910000
195300        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        13920000
195400                HLD-PAYMENT-RATE * 1.00.                          13930000
195500                                                                  13940000
195600     IF  (HLD-RUG = 'RUC' OR 'RUB' OR 'RUA' OR 'RVC' OR           13950000
195700                    'RVB' OR 'RVA' OR 'RHC' OR 'RHB' OR           13960000
195800                    'RHA' OR 'RMC' OR 'RMB' OR 'RMA' OR           13970000
195900                    'RLB' OR 'RLA')                               13980000
196000        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        13990000
196100                HLD-PAYMENT-RATE * 1.067.                         14000000
196200                                                                  14010000
196300     IF  (HLD-RUG = 'SE3' OR 'SE2' OR 'SE1' OR 'SSC' OR           14020000
196400                    'SSB' OR 'SSA' OR 'CC2' OR 'CC1' OR           14030000
196500                    'CB2' OR 'CB1' OR 'CA2' OR 'CA1')             14040000
196600        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        14050000
196700                HLD-PAYMENT-RATE * 1.20.                          14060000
196800                                                                  14070000
196900 2005-CONTINUE.                                                   14080000
197000                                                                  14090000
197100     IF  SNF-FED-BLEND = 0                                        14100000
197200        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        14110000
197300                HLD-FACILITY-RATE * 1.00.                         14120000
197400                                                                  14130000
197500     IF SNF-FED-BLEND = 4                                         14140000
197600        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              14150000
197700        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        14160000
197800                HLD-PAYMENT-RATE * 1.00.                          14170000
197900                                                                  14180000
198000 2005-EXIT.   EXIT.                                               14190000
198100                                                                  14200000
198200 2006-44-PAYMENT-RATE-CALC.                                       14210000
198300***************************************************************   14220000
198400*     PAYMENT RATE CALCULATION PROCCESS                           14230000
198500*      EFFECTIVE OCT.1, 2005 TIL JAN.1, 2006                      14240000
198600***************************************************************   14250000
198700                                                                  14260000
198800     IF HLD-CBSA = '     '                                        14270000
198900        MOVE '30'              TO HLD-RTC                         14280000
199000        GO TO 2006-44-EXIT.                                       14290000
199100                                                                  14300000
199200     MOVE 1                    TO R3.                             14310000
199300                                                                  14320000
199400     IF HLD-CBSA-RURAL-CHECK                                      14330000
199500        MOVE 1                 TO R2                              14340000
199600     ELSE                                                         14350000
199700        MOVE 2                 TO R2.                             14360000
199800                                                                  14370000
199900     PERFORM 800-SEARCH-4-RUG                                     14380000
199900        THRU 800-SEARCH-EXIT.                                     14380000
200000                                                                  14390000
200100     IF HLD-RTC NOT = 00                                          14400000
200100        GO TO 2006-44-EXIT.                                       14400000
200200                                                                  14410000
200300     PERFORM 500-GET-RATES.                                       14420000
200400                                                                  14430000
200500     IF SNF-FED-BLEND = 0 OR 4                                    14440000
200600        NEXT SENTENCE                                             14450000
200700     ELSE                                                         14460000
200800        MOVE '60'              TO HLD-RTC                         14470000
200900        MOVE ALL '0'           TO HOLD-VAR-DATA                   14480000
201000        GO TO 2006-44-EXIT.                                       14490000
201100                                                                  14500000
201200        COMPUTE NURSING-COMPONENT ROUNDED =                       14510000
201300                   (NUR-INDEX * IP-RATE).                         14520000
201400                                                                  14530000
201500        COMPUTE THERAPY-COMPONENT ROUNDED =                       14540000
201600                   (THR-INDEX * REHAB-RATE).                      14550000
201700                                                                  14560000
201800        COMPUTE NCM-THR-COMPONENT ROUNDED =                       14570000
201900                   (FACTOR * NCM-THR-COMPONENT).                  14580000
202000                                                                  14590000
202100        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       14600000
202200                   NURSING-COMPONENT +                            14610000
202300                   THERAPY-COMPONENT +                            14620000
202400                   NCM-THR-COMPONENT +                            14630000
202500                   NCM-COMPONENT.                                 14640000
202600                                                                  14650000
202700        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        14660000
202800             (HLD-PAYMENT-RATE * PERCENT-2006-LABOR) *            14670000
202900               AREA-WAGE-INDEX.                                   14680000
203000                                                                  14690000
203100        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        14700000
203200               (HLD-PAYMENT-RATE * PERCENT-2006-NLABOR) +         14710000
203300                    PAYMENT-RATE-ADJ.                             14720000
203400                                                                  14730000
203500     IF '042   ' = SNF-PRIN-DIAG-CODE    OR                       14740000
203600                   SNF-OTHER-DIAG-CODE2  OR                       14750000
203700                   SNF-OTHER-DIAG-CODE3  OR                       14760000
203800                   SNF-OTHER-DIAG-CODE4  OR                       14770000
203900                   SNF-OTHER-DIAG-CODE5  OR                       14780000
204000                   SNF-OTHER-DIAG-CODE6  OR                       14790000
204100                   SNF-OTHER-DIAG-CODE7  OR                       14800000
204200                   SNF-OTHER-DIAG-CODE8  OR                       14810000
204300                   SNF-OTHER-DIAG-CODE9  OR                       14810000
204400                   SNF-OTHER-DIAG-CODE10 OR                       14810000
204500                   SNF-OTHER-DIAG-CODE11 OR                       14810000
204600                   SNF-OTHER-DIAG-CODE12 OR                       14810000
204700                   SNF-OTHER-DIAG-CODE13 OR                       14810000
204800                   SNF-OTHER-DIAG-CODE14 OR                       14810000
204900                   SNF-OTHER-DIAG-CODE15 OR                       14810000
205000                   SNF-OTHER-DIAG-CODE16 OR                       14810000
205100                   SNF-OTHER-DIAG-CODE17 OR                       14810000
205200                   SNF-OTHER-DIAG-CODE18 OR                       14810000
205300                   SNF-OTHER-DIAG-CODE19 OR                       14810000
205400                   SNF-OTHER-DIAG-CODE20 OR                       14810000
205500                   SNF-OTHER-DIAG-CODE21 OR                       14810000
205600                   SNF-OTHER-DIAG-CODE22 OR                       14810000
205700                   SNF-OTHER-DIAG-CODE23 OR                       14810000
205800                   SNF-OTHER-DIAG-CODE24 OR                       14810000
205900                   SNF-OTHER-DIAG-CODE25                          14820000
206000         COMPUTE HLD-PAYMENT-RATE ROUNDED =                       14830000
206100                 HLD-PAYMENT-RATE * 2.28                          14840000
206200         GO TO 2006-CONTINUE.                                     14850000
206300                                                                  14860000
206400     IF  (HLD-RUG = 'IB2' OR 'IB1' OR 'IA2' OR 'IA1' OR           14870000
206500                    'BB2' OR 'BB1' OR 'BA2' OR 'BA1' OR           14880000
206600                    'PE2' OR 'PE1' OR 'PD2' OR 'PD1' OR           14890000
206700                    'PC2' OR 'PC1' OR 'PB2' OR 'PB1' OR           14900000
206800                    'PA2' OR 'PA1' OR 'AAA')                      14910000
206900        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        14920000
207000                HLD-PAYMENT-RATE * 1.00.                          14930000
207100                                                                  14940000
207200     IF  (HLD-RUG = 'RUC' OR 'RUB' OR 'RUA' OR 'RVC' OR           14950000
207300                    'RVB' OR 'RVA' OR 'RHC' OR 'RHB' OR           14960000
207400                    'RHA' OR 'RMC' OR 'RMB' OR 'RMA' OR           14970000
207500                    'RLB' OR 'RLA')                               14980000
207600        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        14990000
207700                HLD-PAYMENT-RATE * 1.067.                         15000000
207800                                                                  15010000
207900     IF  (HLD-RUG = 'SE3' OR 'SE2' OR 'SE1' OR 'SSC' OR           15020000
208000                    'SSB' OR 'SSA' OR 'CC2' OR 'CC1' OR           15030000
208100                    'CB2' OR 'CB1' OR 'CA2' OR 'CA1')             15040000
208200        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        15050000
208300                HLD-PAYMENT-RATE * 1.20.                          15060000
208400                                                                  15070000
208500 2006-CONTINUE.                                                   15080000
208600                                                                  15090000
208700     IF  SNF-FED-BLEND = 0                                        15100000
208800        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        15110000
208900                HLD-FACILITY-RATE * 1.00.                         15120000
209000                                                                  15130000
209100     IF SNF-FED-BLEND = 4                                         15140000
209200        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              15150000
209300        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        15160000
209400                HLD-PAYMENT-RATE * 1.00.                          15170000
209500                                                                  15180000
209600                                                                  15190000
209700 2006-44-EXIT.   EXIT.                                            15200000
209800                                                                  15210000
209900 2006-53-PAYMENT-RATE-CALC.                                       15220000
210000***************************************************************   15230000
210100*     PAYMENT RATE CALCULATION PROCCESS EFFECTIVE JAN.1, 2006     15240000
210200***************************************************************   15250000
210300                                                                  15260000
210400     IF HLD-CBSA = '     '                                        15270000
210500        MOVE '30'              TO HLD-RTC                         15280000
210600        GO TO 2006-53-EXIT.                                       15290000
210700                                                                  15300000
210800     MOVE 1                    TO R3.                             15310000
210900                                                                  15320000
211000     IF HLD-CBSA-RURAL-CHECK                                      15330000
211100        MOVE 1                 TO R2                              15340000
211200     ELSE                                                         15350000
211300        MOVE 2                 TO R2.                             15360000
211400                                                                  15370000
211500     PERFORM 900-SEARCH-4-RUG53                                   15380000
211500        THRU 900-SEARCH-EXIT.                                     15380000
211600                                                                  15390000
211700     IF HLD-RTC NOT = 00                                          15400000
211700        GO TO 2006-53-EXIT.                                       15400000
211800                                                                  15410000
211900     PERFORM 500-GET-RATES.                                       15420000
212000                                                                  15430000
212100     IF SNF-FED-BLEND = 0 OR 4                                    15440000
212200        NEXT SENTENCE                                             15450000
212300     ELSE                                                         15460000
212400        MOVE '60'              TO HLD-RTC                         15470000
212500        MOVE ALL '0'           TO HOLD-VAR-DATA                   15480000
212600        GO TO 2006-53-EXIT.                                       15490000
212700                                                                  15500000
212800        COMPUTE NURSING-COMPONENT ROUNDED =                       15510000
212900                   (NUR-INDEX * IP-RATE).                         15520000
213000                                                                  15530000
213100        COMPUTE THERAPY-COMPONENT ROUNDED =                       15540000
213200                   (THR-INDEX * REHAB-RATE).                      15550000
213300                                                                  15560000
213400        COMPUTE NCM-THR-COMPONENT ROUNDED =                       15570000
213500                   (FACTOR * NCM-THR-COMPONENT).                  15580000
213600                                                                  15590000
213700        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       15600000
213800                   NURSING-COMPONENT +                            15610000
213900                   THERAPY-COMPONENT +                            15620000
214000                   NCM-THR-COMPONENT +                            15630000
214100                   NCM-COMPONENT.                                 15640000
214200                                                                  15650000
214300        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        15660000
214400             (HLD-PAYMENT-RATE * PERCENT-2006-LABOR) *            15670000
214500               AREA-WAGE-INDEX.                                   15680000
214600                                                                  15690000
214700        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        15700000
214800               (HLD-PAYMENT-RATE * PERCENT-2006-NLABOR) +         15710000
214900                    PAYMENT-RATE-ADJ.                             15720000
215000                                                                  15730000
215100     IF '042   ' = SNF-PRIN-DIAG-CODE    OR                       15740000
215200                   SNF-OTHER-DIAG-CODE2  OR                       15750000
215300                   SNF-OTHER-DIAG-CODE3  OR                       15760000
215400                   SNF-OTHER-DIAG-CODE4  OR                       15770000
215500                   SNF-OTHER-DIAG-CODE5  OR                       15780000
215600                   SNF-OTHER-DIAG-CODE6  OR                       15790000
215700                   SNF-OTHER-DIAG-CODE7  OR                       15800000
215800                   SNF-OTHER-DIAG-CODE8  OR                       15810000
215900                   SNF-OTHER-DIAG-CODE9  OR                       15810000
216000                   SNF-OTHER-DIAG-CODE10 OR                       15810000
216100                   SNF-OTHER-DIAG-CODE11 OR                       15810000
216200                   SNF-OTHER-DIAG-CODE12 OR                       15810000
216300                   SNF-OTHER-DIAG-CODE13 OR                       15810000
216400                   SNF-OTHER-DIAG-CODE14 OR                       15810000
216500                   SNF-OTHER-DIAG-CODE15 OR                       15810000
216600                   SNF-OTHER-DIAG-CODE16 OR                       15810000
216700                   SNF-OTHER-DIAG-CODE17 OR                       15810000
216800                   SNF-OTHER-DIAG-CODE18 OR                       15810000
216900                   SNF-OTHER-DIAG-CODE19 OR                       15810000
217000                   SNF-OTHER-DIAG-CODE20 OR                       15810000
217100                   SNF-OTHER-DIAG-CODE21 OR                       15810000
217200                   SNF-OTHER-DIAG-CODE22 OR                       15810000
217300                   SNF-OTHER-DIAG-CODE23 OR                       15810000
217400                   SNF-OTHER-DIAG-CODE24 OR                       15810000
217500                   SNF-OTHER-DIAG-CODE25                          15820000
217600         COMPUTE HLD-PAYMENT-RATE ROUNDED =                       15830000
217700                 HLD-PAYMENT-RATE * 2.28                          15840000
217800         GO TO 2006-53-CONTINUE.                                  15850000
217900                                                                  15860000
218000 2006-53-CONTINUE.                                                15870000
218100                                                                  15880000
218200     IF  SNF-FED-BLEND = 0                                        15890000
218300        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        15900000
218400                HLD-FACILITY-RATE * 1.00.                         15910000
218500                                                                  15920000
218600     IF SNF-FED-BLEND = 4                                         15930000
218700        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              15940000
218800        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        15950000
218900                HLD-PAYMENT-RATE * 1.00.                          15960000
219000                                                                  15970000
219100 2006-53-EXIT.   EXIT.                                            15980000
219200                                                                  15990000
219300 2007-53-PAYMENT-RATE-CALC.                                       16000000
219400***************************************************************   16010000
219500*     PAYMENT RATE CALCULATION PROCCESS EFFECTIVE OCT.1, 2007     16020000
219600***************************************************************   16030000
219700                                                                  16040000
219800     IF HLD-CBSA = '     '                                        16050000
219900        MOVE '30' TO HLD-RTC                                      16060000
220000        GO TO 2007-53-EXIT.                                       16070000
220100                                                                  16080000
220200     MOVE 1 TO R3.                                                16090000
220300                                                                  16100000
220400     IF HLD-CBSA-RURAL-CHECK                                      16101000
220500        MOVE 1 TO R2                                              16102000
220600     ELSE                                                         16103000
220700        MOVE 2 TO R2.                                             16104000
220800                                                                  16105000
220900     PERFORM 900-SEARCH-4-RUG53  THRU 900-SEARCH-EXIT.            16106000
221000                                                                  16107000
221100     IF HLD-RTC NOT = 00 GO TO 2007-53-EXIT.                      16108000
221200                                                                  16109000
221300     PERFORM 500-GET-RATES.                                       16109100
221400                                                                  16109200
221500     IF SNF-FED-BLEND = 0 OR 4                                    16109300
221600        NEXT SENTENCE                                             16109400
221700     ELSE                                                         16109500
221800        MOVE '60' TO HLD-RTC                                      16109600
221900        MOVE ALL '0' TO HOLD-VAR-DATA                             16109700
222000        GO TO 2007-53-EXIT.                                       16109800
222100                                                                  16109900
222200        COMPUTE NURSING-COMPONENT ROUNDED =                       16110000
222300                   (NUR-INDEX * IP-RATE).                         16111000
222400                                                                  16112000
222500        COMPUTE THERAPY-COMPONENT ROUNDED =                       16113000
222600                   (THR-INDEX * REHAB-RATE).                      16114000
222700                                                                  16115000
222800        COMPUTE NCM-THR-COMPONENT ROUNDED =                       16116000
222900                   (FACTOR * NCM-THR-COMPONENT).                  16117000
223000                                                                  16118000
223100        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       16119000
223200                   NURSING-COMPONENT +                            16119100
223300                   THERAPY-COMPONENT +                            16119200
223400                   NCM-THR-COMPONENT +                            16119300
223500                   NCM-COMPONENT.                                 16119400
223600                                                                  16119500
223700        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        16119600
223800             (HLD-PAYMENT-RATE * PERCENT-2007-LABOR) *            16119700
223900               AREA-WAGE-INDEX.                                   16119800
224000                                                                  16119900
224100        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        16120000
224200               (HLD-PAYMENT-RATE * PERCENT-2007-NLABOR) +         16121000
224300                    PAYMENT-RATE-ADJ.                             16122000
224400                                                                  16123000
224500     IF '042   ' = SNF-PRIN-DIAG-CODE    OR                       16124000
224600                   SNF-OTHER-DIAG-CODE2  OR                       16125000
224700                   SNF-OTHER-DIAG-CODE3  OR                       16126000
224800                   SNF-OTHER-DIAG-CODE4  OR                       16127000
224900                   SNF-OTHER-DIAG-CODE5  OR                       16128000
225000                   SNF-OTHER-DIAG-CODE6  OR                       16129000
225100                   SNF-OTHER-DIAG-CODE7  OR                       16129100
225200                   SNF-OTHER-DIAG-CODE8  OR                       16129200
225300                   SNF-OTHER-DIAG-CODE9  OR                       16129200
225400                   SNF-OTHER-DIAG-CODE10 OR                       16129200
225500                   SNF-OTHER-DIAG-CODE11 OR                       16129200
225600                   SNF-OTHER-DIAG-CODE12 OR                       16129200
225700                   SNF-OTHER-DIAG-CODE13 OR                       16129200
225800                   SNF-OTHER-DIAG-CODE14 OR                       16129200
225900                   SNF-OTHER-DIAG-CODE15 OR                       16129200
226000                   SNF-OTHER-DIAG-CODE16 OR                       16129200
226100                   SNF-OTHER-DIAG-CODE17 OR                       16129200
226200                   SNF-OTHER-DIAG-CODE18 OR                       16129200
226300                   SNF-OTHER-DIAG-CODE19 OR                       16129200
226400                   SNF-OTHER-DIAG-CODE20 OR                       16129200
226500                   SNF-OTHER-DIAG-CODE21 OR                       16129200
226600                   SNF-OTHER-DIAG-CODE22 OR                       16129200
226700                   SNF-OTHER-DIAG-CODE23 OR                       16129200
226800                   SNF-OTHER-DIAG-CODE24 OR                       16129200
226900                   SNF-OTHER-DIAG-CODE25                          16129300
227000         COMPUTE HLD-PAYMENT-RATE ROUNDED =                       16129400
227100                 HLD-PAYMENT-RATE * 2.28                          16129500
227200         GO TO 2007-53-CONTINUE.                                  16129600
227300                                                                  16129700
227400 2007-53-CONTINUE.                                                16129800
227500                                                                  16129900
227600     IF  SNF-FED-BLEND = 0                                        16130000
227700        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        16131000
227800                HLD-FACILITY-RATE * 1.00.                         16132000
227900                                                                  16133000
228000     IF SNF-FED-BLEND = 4                                         16134000
228100        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              16135000
228200        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        16136000
228300                HLD-PAYMENT-RATE * 1.00.                          16137000
228400                                                                  16138000
228500 2007-53-EXIT. EXIT.                                              16139000
228600                                                                  16139100
228700 2008-53-PAYMENT-RATE-CALC.                                       16139200
228800***************************************************************   16139300
228900*     PAYMENT RATE CALCULATION PROCCESS EFFECTIVE OCT.1, 2007     16139401
229000***************************************************************   16139500
229100                                                                  16139600
229200     IF HLD-CBSA = '     '                                        16139700
229300        MOVE '30' TO HLD-RTC                                      16139800
229400        GO TO 2008-53-EXIT.                                       16139900
229500                                                                  16140000
229600     MOVE 1 TO R3.                                                16141000
229700                                                                  16142000
229800     IF HLD-CBSA-RURAL-CHECK                                      16143000
229900        MOVE 1 TO R2                                              16144000
230000     ELSE                                                         16145000
230100        MOVE 2 TO R2.                                             16146000
230200                                                                  16147000
230300     PERFORM 900-SEARCH-4-RUG53  THRU 900-SEARCH-EXIT.            16148000
230400                                                                  16149000
230500     IF HLD-RTC NOT = 00 GO TO 2008-53-EXIT.                      16149100
230600                                                                  16149200
230700     PERFORM 500-GET-RATES.                                       16149300
230800                                                                  16149400
230900     IF SNF-FED-BLEND = 0 OR 4                                    16149500
231000        NEXT SENTENCE                                             16149600
231100     ELSE                                                         16149700
231200        MOVE '60' TO HLD-RTC                                      16149800
231300        MOVE ALL '0' TO HOLD-VAR-DATA                             16149900
231400        GO TO 2008-53-EXIT.                                       16150000
231500                                                                  16151000
231600        COMPUTE NURSING-COMPONENT ROUNDED =                       16152000
231700                   (NUR-INDEX * IP-RATE).                         16153000
231800                                                                  16154000
231900        COMPUTE THERAPY-COMPONENT ROUNDED =                       16155000
232000                   (THR-INDEX * REHAB-RATE).                      16156000
232100                                                                  16157000
232200        COMPUTE NCM-THR-COMPONENT ROUNDED =                       16158000
232300                   (FACTOR * NCM-THR-COMPONENT).                  16159000
232400                                                                  16159100
232500        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       16159200
232600                   NURSING-COMPONENT +                            16159300
232700                   THERAPY-COMPONENT +                            16159400
232800                   NCM-THR-COMPONENT +                            16159500
232900                   NCM-COMPONENT.                                 16159600
233000                                                                  16159700
233100        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        16159800
233200             (HLD-PAYMENT-RATE * PERCENT-2008-LABOR) *            16159900
233300               AREA-WAGE-INDEX.                                   16160000
233400                                                                  16161000
233500        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        16162000
233600               (HLD-PAYMENT-RATE * PERCENT-2008-NLABOR) +         16163000
233700                    PAYMENT-RATE-ADJ.                             16164000
233800                                                                  16165000
233900     IF '042   ' = SNF-PRIN-DIAG-CODE    OR                       16166000
234000                   SNF-OTHER-DIAG-CODE2  OR                       16167000
234100                   SNF-OTHER-DIAG-CODE3  OR                       16168000
234200                   SNF-OTHER-DIAG-CODE4  OR                       16169000
234300                   SNF-OTHER-DIAG-CODE5  OR                       16169100
234400                   SNF-OTHER-DIAG-CODE6  OR                       16169200
234500                   SNF-OTHER-DIAG-CODE7  OR                       16169300
234600                   SNF-OTHER-DIAG-CODE8  OR                       16169400
234700                   SNF-OTHER-DIAG-CODE9  OR                       16169400
234800                   SNF-OTHER-DIAG-CODE10 OR                       16169400
234900                   SNF-OTHER-DIAG-CODE11 OR                       16169400
235000                   SNF-OTHER-DIAG-CODE12 OR                       16169400
235100                   SNF-OTHER-DIAG-CODE13 OR                       16169400
235200                   SNF-OTHER-DIAG-CODE14 OR                       16169400
235300                   SNF-OTHER-DIAG-CODE15 OR                       16169400
235400                   SNF-OTHER-DIAG-CODE16 OR                       16169400
235500                   SNF-OTHER-DIAG-CODE17 OR                       16169400
235600                   SNF-OTHER-DIAG-CODE18 OR                       16169400
235700                   SNF-OTHER-DIAG-CODE19 OR                       16169400
235800                   SNF-OTHER-DIAG-CODE20 OR                       16169400
235900                   SNF-OTHER-DIAG-CODE21 OR                       16169400
236000                   SNF-OTHER-DIAG-CODE22 OR                       16169400
236100                   SNF-OTHER-DIAG-CODE23 OR                       16169400
236200                   SNF-OTHER-DIAG-CODE24 OR                       16169400
236300                   SNF-OTHER-DIAG-CODE25                          16169500
236400         COMPUTE HLD-PAYMENT-RATE ROUNDED =                       16169600
236500                 HLD-PAYMENT-RATE * 2.28                          16169700
236600         GO TO 2008-53-CONTINUE.                                  16169800
236700                                                                  16169900
236800 2008-53-CONTINUE.                                                16170000
236900                                                                  16171000
237000     IF  SNF-FED-BLEND = 0                                        16172000
237100        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        16173000
237200                HLD-FACILITY-RATE * 1.00.                         16174000
237300                                                                  16175000
237400     IF SNF-FED-BLEND = 4                                         16176000
237500        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              16177000
237600        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        16178000
237700                HLD-PAYMENT-RATE * 1.00.                          16179000
237800                                                                  16179100
237900 2008-53-EXIT. EXIT.                                              16179200
238000                                                                  16179301
238100 2009-53-PAYMENT-RATE-CALC.                                       16179401
238200***************************************************************   16179501
238300*     PAYMENT RATE CALCULATION PROCCESS EFFECTIVE OCT.1, 2009     16179601
238400***************************************************************   16179701
238500                                                                  16179801
238600     IF HLD-CBSA = '     '                                        16179901
238700        MOVE '30' TO HLD-RTC                                      16180001
238800        GO TO 2009-53-EXIT.                                       16181001
238900                                                                  16182001
239000     MOVE 1 TO R3.                                                16183001
239100                                                                  16184001
239200     IF HLD-CBSA-RURAL-CHECK                                      16185001
239300        MOVE 1 TO R2                                              16186001
239400     ELSE                                                         16187001
239500        MOVE 2 TO R2.                                             16188001
239600                                                                  16189001
239700     PERFORM 900-SEARCH-4-RUG53  THRU 900-SEARCH-EXIT.            16189101
239800                                                                  16189201
239900     IF HLD-RTC NOT = 00 GO TO 2009-53-EXIT.                      16189301
240000                                                                  16189401
240100     PERFORM 500-GET-RATES.                                       16189501
240200                                                                  16189601
240300     IF SNF-FED-BLEND = 0 OR 4                                    16189701
240400        NEXT SENTENCE                                             16189801
240500     ELSE                                                         16189901
240600        MOVE '60' TO HLD-RTC                                      16190001
240700        MOVE ALL '0' TO HOLD-VAR-DATA                             16191001
240800        GO TO 2009-53-EXIT.                                       16192001
240900                                                                  16193001
241000        COMPUTE NURSING-COMPONENT ROUNDED =                       16194001
241100                   (NUR-INDEX * IP-RATE).                         16195001
241200                                                                  16196001
241300        COMPUTE THERAPY-COMPONENT ROUNDED =                       16197001
241400                   (THR-INDEX * REHAB-RATE).                      16198001
241500                                                                  16199001
241600        COMPUTE NCM-THR-COMPONENT ROUNDED =                       16199101
241700                   (FACTOR * NCM-THR-COMPONENT).                  16199201
241800                                                                  16199301
241900        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       16199401
242000                   NURSING-COMPONENT +                            16199501
242100                   THERAPY-COMPONENT +                            16199601
242200                   NCM-THR-COMPONENT +                            16199701
242300                   NCM-COMPONENT.                                 16199801
242400                                                                  16199901
242500        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        16200001
242600             (HLD-PAYMENT-RATE * PERCENT-2009-LABOR) *            16201001
242700               AREA-WAGE-INDEX.                                   16202001
242800                                                                  16203001
242900        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        16204001
243000               (HLD-PAYMENT-RATE * PERCENT-2009-NLABOR) +         16205001
243100                    PAYMENT-RATE-ADJ.                             16206001
243200                                                                  16207001
243300     IF '042   ' = SNF-PRIN-DIAG-CODE   OR                        16208001
243400                   SNF-OTHER-DIAG-CODE2 OR                        16209001
243500                   SNF-OTHER-DIAG-CODE3 OR                        16209101
243600                   SNF-OTHER-DIAG-CODE4 OR                        16209201
243700                   SNF-OTHER-DIAG-CODE5 OR                        16209301
243800                   SNF-OTHER-DIAG-CODE6 OR                        16209401
243900                   SNF-OTHER-DIAG-CODE7 OR                        16209501
244000                   SNF-OTHER-DIAG-CODE8 OR                        16209601
244100                   SNF-OTHER-DIAG-CODE9  OR                       16169400
244200                   SNF-OTHER-DIAG-CODE10 OR                       16169400
244300                   SNF-OTHER-DIAG-CODE11 OR                       16169400
244400                   SNF-OTHER-DIAG-CODE12 OR                       16169400
244500                   SNF-OTHER-DIAG-CODE13 OR                       16169400
244600                   SNF-OTHER-DIAG-CODE14 OR                       16169400
244700                   SNF-OTHER-DIAG-CODE15 OR                       16169400
244800                   SNF-OTHER-DIAG-CODE16 OR                       16169400
244900                   SNF-OTHER-DIAG-CODE17 OR                       16169400
245000                   SNF-OTHER-DIAG-CODE18 OR                       16169400
245100                   SNF-OTHER-DIAG-CODE19 OR                       16169400
245200                   SNF-OTHER-DIAG-CODE20 OR                       16169400
245300                   SNF-OTHER-DIAG-CODE21 OR                       16169400
245400                   SNF-OTHER-DIAG-CODE22 OR                       16169400
245500                   SNF-OTHER-DIAG-CODE23 OR                       16169400
245600                   SNF-OTHER-DIAG-CODE24 OR                       16169400
245700                   SNF-OTHER-DIAG-CODE25                          16169500
245800         COMPUTE HLD-PAYMENT-RATE ROUNDED =                       16209801
245900                 HLD-PAYMENT-RATE * 2.28                          16209901
246000         GO TO 2009-53-CONTINUE.                                  16210001
246100                                                                  16211001
246200 2009-53-CONTINUE.                                                16212001
246300                                                                  16213001
246400     IF  SNF-FED-BLEND = 0                                        16214001
246500        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        16215001
246600                HLD-FACILITY-RATE * 1.00.                         16216001
246700                                                                  16217001
246800     IF SNF-FED-BLEND = 4                                         16218001
246900        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              16219001
247000        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        16219101
247100                HLD-PAYMENT-RATE * 1.00.                          16219201
247200                                                                  16219301
247300 2009-53-EXIT. EXIT.                                              16219401
247400                                                                  16179301
247500 2010-53-PAYMENT-RATE-CALC.                                       16179401
247600***************************************************************   16179501
247700*     PAYMENT RATE CALCULATION PROCCESS EFFECTIVE OCT.1, 2009     16179601
247800***************************************************************   16179701
247900                                                                  16179801
248000     IF HLD-CBSA = '     '                                        16179901
248100        MOVE '30' TO HLD-RTC                                      16180001
248200        GO TO 2010-53-EXIT.                                       16181001
248300                                                                  16182001
248400     MOVE 1 TO R3.                                                16183001
248500                                                                  16184001
248600     IF HLD-CBSA-RURAL-CHECK                                      16185001
248700        MOVE 1 TO R2                                              16186001
248800     ELSE                                                         16187001
248900        MOVE 2 TO R2.                                             16188001
249000                                                                  16189001
249100     PERFORM 910-SEARCH-4-RUG53-2010  THRU 910-SEARCH-EXIT.       16189101
249200                                                                  16189201
249300     IF HLD-RTC NOT = 00 GO TO 2010-53-EXIT.                      16189301
249400                                                                  16189401
249500     PERFORM 500-GET-RATES.                                       16189501
249600                                                                  16189601
249700     IF SNF-FED-BLEND = 0 OR 4                                    16189701
249800        NEXT SENTENCE                                             16189801
249900     ELSE                                                         16189901
250000        MOVE '60' TO HLD-RTC                                      16190001
250100        MOVE ALL '0' TO HOLD-VAR-DATA                             16191001
250200        GO TO 2010-53-EXIT.                                       16192001
250300                                                                  16193001
250400        COMPUTE NURSING-COMPONENT ROUNDED =                       16194001
250500                   (NUR-INDEX * IP-RATE).                         16195001
250600                                                                  16196001
250700        COMPUTE THERAPY-COMPONENT ROUNDED =                       16197001
250800                   (THR-INDEX * REHAB-RATE).                      16198001
250900                                                                  16199001
251000        COMPUTE NCM-THR-COMPONENT ROUNDED =                       16199101
251100                   (FACTOR * NCM-THR-COMPONENT).                  16199201
251200                                                                  16199301
251300        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       16199401
251400                   NURSING-COMPONENT +                            16199501
251500                   THERAPY-COMPONENT +                            16199601
251600                   NCM-THR-COMPONENT +                            16199701
251700                   NCM-COMPONENT.                                 16199801
251800                                                                  16199901
251900        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        16200001
252000             (HLD-PAYMENT-RATE * PERCENT-2010-LABOR) *            16201001
252100               AREA-WAGE-INDEX.                                   16202001
252200                                                                  16203001
252300        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        16204001
252400               (HLD-PAYMENT-RATE * PERCENT-2010-NLABOR) +         16205001
252500                    PAYMENT-RATE-ADJ.                             16206001
252600                                                                  16207001
252700     IF '042   ' = SNF-PRIN-DIAG-CODE   OR                        16208001
252800                   SNF-OTHER-DIAG-CODE2 OR                        16209001
252900                   SNF-OTHER-DIAG-CODE3 OR                        16209101
253000                   SNF-OTHER-DIAG-CODE4 OR                        16209201
253100                   SNF-OTHER-DIAG-CODE5 OR                        16209301
253200                   SNF-OTHER-DIAG-CODE6 OR                        16209401
253300                   SNF-OTHER-DIAG-CODE7 OR                        16209501
253400                   SNF-OTHER-DIAG-CODE8 OR                        16209601
253500                   SNF-OTHER-DIAG-CODE9  OR                       16169400
253600                   SNF-OTHER-DIAG-CODE10 OR                       16169400
253700                   SNF-OTHER-DIAG-CODE11 OR                       16169400
253800                   SNF-OTHER-DIAG-CODE12 OR                       16169400
253900                   SNF-OTHER-DIAG-CODE13 OR                       16169400
254000                   SNF-OTHER-DIAG-CODE14 OR                       16169400
254100                   SNF-OTHER-DIAG-CODE15 OR                       16169400
254200                   SNF-OTHER-DIAG-CODE16 OR                       16169400
254300                   SNF-OTHER-DIAG-CODE17 OR                       16169400
254400                   SNF-OTHER-DIAG-CODE18 OR                       16169400
254500                   SNF-OTHER-DIAG-CODE19 OR                       16169400
254600                   SNF-OTHER-DIAG-CODE20 OR                       16169400
254700                   SNF-OTHER-DIAG-CODE21 OR                       16169400
254800                   SNF-OTHER-DIAG-CODE22 OR                       16169400
254900                   SNF-OTHER-DIAG-CODE23 OR                       16169400
255000                   SNF-OTHER-DIAG-CODE24 OR                       16169400
255100                   SNF-OTHER-DIAG-CODE25                          16169500
255200         COMPUTE HLD-PAYMENT-RATE ROUNDED =                       16209801
255300                 HLD-PAYMENT-RATE * 2.28                          16209901
255400         GO TO 2010-53-CONTINUE.                                  16210001
255500                                                                  16211001
255600 2010-53-CONTINUE.                                                16212001
255700                                                                  16213001
255800     IF  SNF-FED-BLEND = 0                                        16214001
255900        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        16215001
256000                HLD-FACILITY-RATE * 1.00.                         16216001
256100                                                                  16217001
256200     IF SNF-FED-BLEND = 4                                         16218001
256300        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              16219001
256400        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        16219101
256500                HLD-PAYMENT-RATE * 1.00.                          16219201
256600                                                                  16219301
256700 2010-53-EXIT. EXIT.                                              16219401
256800                                                                  16179301
256900 2011-67-PAYMENT-RATE-CALC.                                       16179401
257000***************************************************************   16179501
257100*     PAYMENT RATE CALCULATION PROCCESS EFFECTIVE OCT.1, 2009     16179601
257200***************************************************************   16179701
257300                                                                  16179801
257400     IF HLD-CBSA = '     '                                        16179901
257500        MOVE '30' TO HLD-RTC                                      16180001
257600        GO TO 2011-67-EXIT.                                       16181001
257700                                                                  16182001
257800     MOVE 1 TO R3.                                                16183001
257900                                                                  16184001
258000     IF HLD-CBSA-RURAL-CHECK                                      16185001
258100        MOVE 1 TO R2                                              16186001
258200     ELSE                                                         16187001
258300        MOVE 2 TO R2.                                             16188001
258400                                                                  16189001
258500     PERFORM 911-SEARCH-4-RUG67-2011  THRU 911-SEARCH-EXIT.       16189101
258600                                                                  16189201
258700     IF HLD-RTC NOT = 00 GO TO 2011-67-EXIT.                      16189301
258800                                                                  16189401
258900     PERFORM 500-GET-RATES.                                       16189501
259000                                                                  16189601
259100     IF SNF-FED-BLEND = 0 OR 4                                    16189701
259200        NEXT SENTENCE                                             16189801
259300     ELSE                                                         16189901
259400        MOVE '60' TO HLD-RTC                                      16190001
259500        MOVE ALL '0' TO HOLD-VAR-DATA                             16191001
259600        GO TO 2011-67-EXIT.                                       16192001
259700                                                                  16193001
259800        COMPUTE NURSING-COMPONENT ROUNDED =                       16194001
259900                   (NUR-INDEX * IP-RATE).                         16195001
260000                                                                  16196001
260100        COMPUTE THERAPY-COMPONENT ROUNDED =                       16197001
260200                   (THR-INDEX * REHAB-RATE).                      16198001
260300                                                                  16199001
260400        COMPUTE NCM-THR-COMPONENT ROUNDED =                       16199101
260500                   (FACTOR * NCM-THR-COMPONENT).                  16199201
260600                                                                  16199301
260700        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       16199401
260800                   NURSING-COMPONENT +                            16199501
260900                   THERAPY-COMPONENT +                            16199601
261000                   NCM-THR-COMPONENT +                            16199701
261100                   NCM-COMPONENT.                                 16199801
261200                                                                  16199901
261300        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        16200001
261400             (HLD-PAYMENT-RATE * PERCENT-2011-LABOR) *            16201101
261500               AREA-WAGE-INDEX.                                   16202001
261600                                                                  16203001
261700        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        16204001
261800               (HLD-PAYMENT-RATE * PERCENT-2011-NLABOR) +         16205001
261900                    PAYMENT-RATE-ADJ.                             16206001
262000                                                                  16207001
262100     IF '042   ' = SNF-PRIN-DIAG-CODE   OR                        16208001
262200                   SNF-OTHER-DIAG-CODE2 OR                        16209001
262300                   SNF-OTHER-DIAG-CODE3 OR                        16209101
262400                   SNF-OTHER-DIAG-CODE4 OR                        16209201
262500                   SNF-OTHER-DIAG-CODE5 OR                        16209301
262600                   SNF-OTHER-DIAG-CODE6 OR                        16209401
262700                   SNF-OTHER-DIAG-CODE7 OR                        16209501
262800                   SNF-OTHER-DIAG-CODE8 OR                        16209601
262900                   SNF-OTHER-DIAG-CODE9  OR                       16169400
263000                   SNF-OTHER-DIAG-CODE10 OR                       16169400
263100                   SNF-OTHER-DIAG-CODE11 OR                       16169400
263200                   SNF-OTHER-DIAG-CODE12 OR                       16169400
263300                   SNF-OTHER-DIAG-CODE13 OR                       16169400
263400                   SNF-OTHER-DIAG-CODE14 OR                       16169400
263500                   SNF-OTHER-DIAG-CODE15 OR                       16169400
263600                   SNF-OTHER-DIAG-CODE16 OR                       16169400
263700                   SNF-OTHER-DIAG-CODE17 OR                       16169400
263800                   SNF-OTHER-DIAG-CODE18 OR                       16169400
263900                   SNF-OTHER-DIAG-CODE19 OR                       16169400
264000                   SNF-OTHER-DIAG-CODE20 OR                       16169400
264100                   SNF-OTHER-DIAG-CODE21 OR                       16169400
264200                   SNF-OTHER-DIAG-CODE22 OR                       16169400
264300                   SNF-OTHER-DIAG-CODE23 OR                       16169400
264400                   SNF-OTHER-DIAG-CODE24 OR                       16169400
264500                   SNF-OTHER-DIAG-CODE25                          16169500
264600         COMPUTE HLD-PAYMENT-RATE ROUNDED =                       16209801
264700                 HLD-PAYMENT-RATE * 2.28                          16209901
264800         GO TO 2011-67-CONTINUE.                                  16210001
264900                                                                  16211001
265000 2011-67-CONTINUE.                                                16212001
265100                                                                  16213001
265200     IF  SNF-FED-BLEND = 0                                        16214001
265300        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        16215001
265400                HLD-FACILITY-RATE * 1.00.                         16216001
265500                                                                  16217001
265600     IF SNF-FED-BLEND = 4                                         16218001
265700        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              16219001
265800        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        16219101
265900                HLD-PAYMENT-RATE * 1.00.                          16219201
266000                                                                  16219301
266100 2011-67-EXIT. EXIT.                                              16219401
266200                                                                  16179301
266300 2012-67-PAYMENT-RATE-CALC.                                       16179401
266400***************************************************************   16179501
266500*     PAYMENT RATE CALCULATION PROCCESS EFFECTIVE OCT.1, 2009     16179601
266600***************************************************************   16179701
266700                                                                  16179801
266800     IF HLD-CBSA = '     '                                        16179901
266900        MOVE '30'              TO HLD-RTC                         16180001
267000        GO TO 2012-67-EXIT.                                       16181001
267100                                                                  16182001
267200     MOVE 1 TO R3.                                                16183001
267300                                                                  16184001
267400     IF HLD-CBSA-RURAL-CHECK                                      16185001
267500        MOVE 1 TO R2                                              16186001
267600     ELSE                                                         16187001
267700        MOVE 2 TO R2.                                             16188001
267800                                                                  16189001
267900     PERFORM 912-SEARCH-4-RUG67-2012                              16189101
267900        THRU 912-SEARCH-EXIT.                                     16189101
268000                                                                  16189201
268100     IF HLD-RTC NOT = 00 GO TO 2012-67-EXIT.                      16189301
268200                                                                  16189401
268300     PERFORM 500-GET-RATES.                                       16189501
268400                                                                  16189601
268500     IF SNF-FED-BLEND = 0 OR 4                                    16189701
268600        NEXT SENTENCE                                             16189801
268700     ELSE                                                         16189901
268800        MOVE '60'              TO HLD-RTC                         16190001
268900        MOVE ALL '0'           TO HOLD-VAR-DATA                   16191001
269000        GO TO 2012-67-EXIT.                                       16192001
269100                                                                  16193001
269200        COMPUTE NURSING-COMPONENT ROUNDED =                       16194001
269300                   (NUR-INDEX * IP-RATE).                         16195001
269400                                                                  16196001
269500        COMPUTE THERAPY-COMPONENT ROUNDED =                       16197001
269600                   (THR-INDEX * REHAB-RATE).                      16198001
269700                                                                  16199001
269800        COMPUTE NCM-THR-COMPONENT ROUNDED =                       16199101
269900                   (FACTOR * NCM-THR-COMPONENT).                  16199201
270000                                                                  16199301
270100        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       16199401
270200                   NURSING-COMPONENT +                            16199501
270300                   THERAPY-COMPONENT +                            16199601
270400                   NCM-THR-COMPONENT +                            16199701
270500                   NCM-COMPONENT.                                 16199801
270600                                                                  16199901
270700        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        16200001
270800             (HLD-PAYMENT-RATE * PERCENT-2012-LABOR) *            16201201
270900               AREA-WAGE-INDEX.                                   16202001
271000                                                                  16203001
271100        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        16204001
271200               (HLD-PAYMENT-RATE * PERCENT-2012-NLABOR) +         16205001
271300                    PAYMENT-RATE-ADJ.                             16206001
271400                                                                  16207001
271500     IF '042   ' = SNF-PRIN-DIAG-CODE   OR                        16208001
271600                   SNF-OTHER-DIAG-CODE2 OR                        16209001
271700                   SNF-OTHER-DIAG-CODE3 OR                        16209101
271800                   SNF-OTHER-DIAG-CODE4 OR                        16209201
271900                   SNF-OTHER-DIAG-CODE5 OR                        16209301
272000                   SNF-OTHER-DIAG-CODE6 OR                        16209401
272100                   SNF-OTHER-DIAG-CODE7 OR                        16209501
272200                   SNF-OTHER-DIAG-CODE8 OR                        16209601
272300                   SNF-OTHER-DIAG-CODE9  OR                       16169400
272400                   SNF-OTHER-DIAG-CODE10 OR                       16169400
272500                   SNF-OTHER-DIAG-CODE11 OR                       16169400
272600                   SNF-OTHER-DIAG-CODE12 OR                       16169400
272700                   SNF-OTHER-DIAG-CODE13 OR                       16169400
272800                   SNF-OTHER-DIAG-CODE14 OR                       16169400
272900                   SNF-OTHER-DIAG-CODE15 OR                       16169400
273000                   SNF-OTHER-DIAG-CODE16 OR                       16169400
273100                   SNF-OTHER-DIAG-CODE17 OR                       16169400
273200                   SNF-OTHER-DIAG-CODE18 OR                       16169400
273300                   SNF-OTHER-DIAG-CODE19 OR                       16169400
273400                   SNF-OTHER-DIAG-CODE20 OR                       16169400
273500                   SNF-OTHER-DIAG-CODE21 OR                       16169400
273600                   SNF-OTHER-DIAG-CODE22 OR                       16169400
273700                   SNF-OTHER-DIAG-CODE23 OR                       16169400
273800                   SNF-OTHER-DIAG-CODE24 OR                       16169400
273900                   SNF-OTHER-DIAG-CODE25                          16169500
274000         COMPUTE HLD-PAYMENT-RATE ROUNDED =                       16209801
274100                 HLD-PAYMENT-RATE * 2.28                          16209901
274200         GO TO 2012-67-CONTINUE.                                  16210001
274300                                                                  16211001
274400 2012-67-CONTINUE.                                                16212001
274500                                                                  16213001
274600     IF  SNF-FED-BLEND = 0                                        16214001
274700        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        16215001
274800                HLD-FACILITY-RATE * 1.00.                         16216001
274900                                                                  16217001
275000     IF SNF-FED-BLEND = 4                                         16218001
275100        MOVE HLD-PAYMENT-RATE TO FED-PAYMENT-PORTION              16219001
275200        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        16219101
275300                HLD-PAYMENT-RATE * 1.00.                          16219201
275400                                                                  16219301
275500 2012-67-EXIT. EXIT.                                              16219401
275600                                                                  16219301
266200                                                                  16179301
266300 2013-67-PAYMENT-RATE-CALC.                                       16179401
266400***************************************************************   16179501
266500*     PAYMENT RATE CALCULATION PROCCESS EFFECTIVE OCT.1, 2012     16179601
266600***************************************************************   16179701
266700                                                                  16179801
266800     IF HLD-CBSA = '     '                                        16179901
266900        MOVE '30'              TO HLD-RTC                         16180001
267000        GO TO 2013-67-EXIT.                                       16181001
267100                                                                  16182001
267200     MOVE 1                    TO R3.                             16183001
267300                                                                  16184001
267400     IF HLD-CBSA-RURAL-CHECK                                      16185001
267500        MOVE 1                 TO R2                              16186001
267600     ELSE                                                         16187001
267700        MOVE 2                 TO R2.                             16188001
267800                                                                  16189001
267900     PERFORM 913-SEARCH-4-RUG67-2013                              16189101
267900        THRU 913-SEARCH-EXIT.                                     16189101
268000                                                                  16189201
268100     IF HLD-RTC NOT = 00                                          16189301
268100        GO TO 2013-67-EXIT.                                       16189301
268200                                                                  16189401
268300     PERFORM 500-GET-RATES.                                       16189501
268400                                                                  16189601
268500     IF SNF-FED-BLEND = 0 OR 4                                    16189701
268600        NEXT SENTENCE                                             16189801
268700     ELSE                                                         16189901
268800        MOVE '60'              TO HLD-RTC                         16190001
268900        MOVE ALL '0'           TO HOLD-VAR-DATA                   16191001
269000        GO TO 2013-67-EXIT.                                       16192001
269100                                                                  16193001
269200        COMPUTE NURSING-COMPONENT ROUNDED =                       16194001
269300                   (NUR-INDEX * IP-RATE).                         16195001
269400                                                                  16196001
269500        COMPUTE THERAPY-COMPONENT ROUNDED =                       16197001
269600                   (THR-INDEX * REHAB-RATE).                      16198001
269700                                                                  16199001
269800        COMPUTE NCM-THR-COMPONENT ROUNDED =                       16199101
269900                   (FACTOR * NCM-THR-COMPONENT).                  16199201
270000                                                                  16199301
270100        COMPUTE HLD-PAYMENT-RATE  ROUNDED =                       16199401
270200                   NURSING-COMPONENT +                            16199501
270300                   THERAPY-COMPONENT +                            16199601
270400                   NCM-THR-COMPONENT +                            16199701
270500                   NCM-COMPONENT.                                 16199801
270600                                                                  16199901
270700        COMPUTE PAYMENT-RATE-ADJ ROUNDED =                        16200001
270800             (HLD-PAYMENT-RATE * PERCENT-2013-LABOR) *            16201201
270900               AREA-WAGE-INDEX.                                   16202001
271000                                                                  16203001
271100        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        16204001
271200               (HLD-PAYMENT-RATE * PERCENT-2013-NLABOR) +         16205001
271300                    PAYMENT-RATE-ADJ.                             16206001
271400                                                                  16207001
271500     IF '042   ' = SNF-PRIN-DIAG-CODE   OR                        16208001
271600                   SNF-OTHER-DIAG-CODE2 OR                        16209001
271700                   SNF-OTHER-DIAG-CODE3 OR                        16209101
271800                   SNF-OTHER-DIAG-CODE4 OR                        16209201
271900                   SNF-OTHER-DIAG-CODE5 OR                        16209301
272000                   SNF-OTHER-DIAG-CODE6 OR                        16209401
272100                   SNF-OTHER-DIAG-CODE7 OR                        16209501
272200                   SNF-OTHER-DIAG-CODE8 OR                        16209601
272300                   SNF-OTHER-DIAG-CODE9  OR                       16169400
272400                   SNF-OTHER-DIAG-CODE10 OR                       16169400
272500                   SNF-OTHER-DIAG-CODE11 OR                       16169400
272600                   SNF-OTHER-DIAG-CODE12 OR                       16169400
272700                   SNF-OTHER-DIAG-CODE13 OR                       16169400
272800                   SNF-OTHER-DIAG-CODE14 OR                       16169400
272900                   SNF-OTHER-DIAG-CODE15 OR                       16169400
273000                   SNF-OTHER-DIAG-CODE16 OR                       16169400
273100                   SNF-OTHER-DIAG-CODE17 OR                       16169400
273200                   SNF-OTHER-DIAG-CODE18 OR                       16169400
273300                   SNF-OTHER-DIAG-CODE19 OR                       16169400
273400                   SNF-OTHER-DIAG-CODE20 OR                       16169400
273500                   SNF-OTHER-DIAG-CODE21 OR                       16169400
273600                   SNF-OTHER-DIAG-CODE22 OR                       16169400
273700                   SNF-OTHER-DIAG-CODE23 OR                       16169400
273800                   SNF-OTHER-DIAG-CODE24 OR                       16169400
273900                   SNF-OTHER-DIAG-CODE25                          16169500
274000         COMPUTE HLD-PAYMENT-RATE ROUNDED =                       16209801
274100                 HLD-PAYMENT-RATE * 2.28                          16209901
274200         GO TO 2013-67-CONTINUE.                                  16210001
274300                                                                  16211001
274400 2013-67-CONTINUE.                                                16212001
274500                                                                  16213001
274600     IF SNF-FED-BLEND = 0                                         16214001
274700        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        16215001
274800                HLD-FACILITY-RATE * 1.00.                         16216001
274900                                                                  16217001
275000     IF SNF-FED-BLEND = 4                                         16218001
275100        MOVE HLD-PAYMENT-RATE  TO FED-PAYMENT-PORTION             16219001
275200        COMPUTE HLD-PAYMENT-RATE ROUNDED =                        16219101
275300                HLD-PAYMENT-RATE * 1.00.                          16219201
275400                                                                  16219301
275500 2013-67-EXIT.                                                    16219401
275500     EXIT.                                                        16219401
275600                                                                  16219301
275700******        L A S T   S O U R C E   S T A T E M E N T   *****   16220001
