000100 IDENTIFICATION DIVISION.                                         00010000
000200 PROGRAM-ID.          SNFDR190.                                   00020000
000300*AUTHOR.                 CMS.                                     00030000
000400*                                                                 00040000
000500******************************************************************00050000
000600*REMARKS.                                                         00060000
000700*     SNFPR990   NATIONAL SNF FOR JULY 1 1998                     00070000
000800*                MSA FILE = ML12.DBA2652.WIPREREC.#970924         00080000
000900*     SNFPR000   EFFECTIVE OCT 1, 1999                            00090000
001000*                MSA FILE = ML12.DBA2652.WIPREREC.#990628         00100000
001100*                      BOTH YEARS                                 00110000
001200*                      ADDED 48 VIRGIN ISLAND TO MSA FILE         00120000
001300*                      ADDED 65 GUAM TO MSA FILE                  00130000
001400*                MADE MSA FILE AN ARGUMENT PASTED TO SNFPR        00140000
001500*     SNFPR001   EFFECTIVE APR 1, 2000                            00150000
001600*                   20% INCREASE FOR 15 RUGS                      00160000
001700*                EFFECTIVE JAN 1, 2000                            00170000
001800*                   100 % FACILITY FOR TWO PROVIDERS              00180000
001900*     SNFPR010   EFFECTIVE OCT 1, 2000                            00190000
002000*                MSA FILE = ML12.DBA2652.WIPREREC.#000705.STANLEY 00200000
002100*                   24% INCREASE FOR 15 RUGS                      00210000
002200*                   04% INCREASE FOR ALL OTHER RUGS               00220000
002300*                   NEW RATES FOR FY 2001                         00230000
002400*     SNFPR012   EFFECTIVE APR 1, 2001 WITH NEW RATES             00240000
002500*                MSA FILE = ML12.DBA2652.WIPREREC.#000705.STANLEY 00250000
002600*                 ADD ONS ARE APPLIED AFTER ALL ADJUSTMENTS ARE MA00260000
002700*                   MADE. THE THREE ADD ONS ARE  4%, 10.7%, 24%.  00270000
002800*                   NEW RATES FOR FY 2001                         00280000
002900*     SNFPR020   EFFECTIVE OCT 1, 2001 WITH NEW RATES             00290000
003000*                MSA FILE = ML12.DBA2652.WIPREREC.#010707.STANLEY 00300000
003100*                 ADD ONS ARE APPLIED AFTER ALL ADJUSTMENTS ARE MA00310000
003200*                   MADE. THE THREE ADD ONS ARE  4%, 10.7%, 24%.  00320000
003300*                   NEW RATES FOR FY 2002                         00330000
003400*     SNFPR020   EFFECTIVE DEC 1, 2001 CHANGE FOR FOLLOWING MSA   00340000
003500*     MSA021     MSA 1123, 3810, 7520                             00350000
003600*               MSA FILE = ML12.@DBA2652.WIPREREC.#010707.STANLEY 00360000
003700*     SNFPR030   EFFECTIVE OCT 1, 2002 WITH NEW RATES             00370000
003800*               MSA FILE = ML12.@DBA2652.WIPREREC.#020709.STANLEY 00380000
003900*                THE TWO ADD-ONS ARE  6.7% AND 20%                00390000
004000*     SNFPR040   EFFECTIVE OCT 1, 2003 WITH NEW RATES             00400000
004100*              MSA FILE =  ML00.@DBA2652.WIPREREC.#030826.STANLEY 00410000
004200*     SNFPR050   EFFECTIVE OCT 1, 2004                            00420000
004300*         MSA FILE =  ML00.@DBA2652.WI2005.PFPREC.#040901.SCR401U 00430000
004400*              INCREASED INPUT AND OUTPUT FILE TO 125 BYTES       00440000
004500*                   ADDED 9 DIAGNOSIS CODES                       00450000
004600*              STILL PROCESS USING MSA FILE                       00460000
004700*     SNFPR051   EFFECTIVE JAN 1, 2005                            00470000
004800*         MSA FILE =  ML00.@DBA2652.WI2005.PFPREC.#041020.SCR401U 00480000
004900*     SNFPR060   EFFECTIVE OCT 1, 2005                            00490000
005000*              NO CBSA FILE FOR FY2006                            00500000
005100*                 WILL USE THE WAGE INDEX LOCATED IN PROV RECORD  00510000
005200*     SNFPR061   EFFECTIVE JUL 1, 2006                            00520000
005300*              CONVERT TO CICS                                    00530000
005400*     SNFPR071   EFFECTIVE OCT 1, 2006                            00540000
005500*              UPDATE RATE                                        00550000
005600*              ADD CBSA FILE FOR FY2007                           00560000
005700*     SNFPR082   EFFECTIVE OCT 2, 2007                            00570000
005800*              KEEP CBSA FILE FOR FY2008                          00580000
005900*     SNFPR090   EFFECTIVE OCT 2, 2008                            00590000
006000*              KEEP CBSA FILE FOR FY2009                          00600000
006100*     SNFPR100   EFFECTIVE OCT 1, 2009                            00610000
006200*              KEEP CBSA FILE FOR FY2009                          00620000
006300*     SNFPR101   EFFECTIVE OCT 1, 2009                            00630000
006400*              KEEP CBSA FILE FOR FY2009                          00640000
006500******************************************************************00650000
006600*     SNFPR102   EFFECTIVE OCT 2, 2009                            00660000
006700*              KEEP CBSA FILE FOR FY2010                          00670000
006800******************************************************************00680000
006900*     SNFPR112   EFFECTIVE OCT 1, 2010                            00690000
007000*              KEEP CBSA FILE FOR FY2011                          00700000
007100******************************************************************00710000
007200*     SNFPR120   EFFECTIVE OCT 1, 2011                            00720000
007300*              KEEP CBSA FILE FOR FY2012                          00730000
007400******************************************************************00740000
007500*     SNFPR140   EFFECTIVE OCT 1, 2013                            00750000
007600*              KEEP CBSA FILE FOR FY2014                          00760000
007700******************************************************************00770000
007800*     SNFPR150   EFFECTIVE OCT 1, 2014                            00780000
007900*              KEEP CBSA FILE FOR FY2015                          00790000
008000******************************************************************00800000
008100******************************************************************00801000
008200*     SNFDR160   EFFECTIVE OCT 1, 2015                            00802000
008300*                KEEP CBSA FILE FOR FY2016                        00803000
008400*                BASED ON ICD10 TESTING SNF DRIVER - SNFDR160     00803100
008500******************************************************************00803200
008100******************************************************************00803300
008200*     SNFDR170   EFFECTIVE OCT 1, 2016                            00803400
008300*                KEEP CBSA FILE FOR FY2017                        00803500
008400*                SNF DRIVER - SNFDR170                            00803600
008500******************************************************************00803700
008100******************************************************************00803800
008200*     SNFDR180   EFFECTIVE OCT 1, 2017                            00803900
008300*                KEEP CBSA FILE FOR FY2018                        00804000
008400*                SNF DRIVER - SNFDR180                            00804100
008500******************************************************************00804200
008100******************************************************************00804300
008200*     SNFDR181   EFFECTIVE OCT 1, 2017                            00804400
008300*                KEEP CBSA FILE FOR FY2018                        00804500
008400*                SNF DRIVER - SNFDR181                            00804600
008400*                QRP PENALTY LOGIC ADDED                          00804700
008500******************************************************************00804800
008100******************************************************************00804900
008200*     SNFDR19B   EFFECTIVE OCT 1, 2018                            00805000
008200*                BETA VERSION USED FOR TESTING ONLY               00805100
008300*                KEEP CBSA FILE FOR FY2018                        00805200
008300*                KEEP PAYMENT RATES FOR FY2018                    00805300
008400*                SNF DRIVER - SNFDR19B                            00805400
008400*                VALUE BASED PAYMENT LOGIC ADDED                  00805500
008500******************************************************************00805600
008100******************************************************************00805700
008200*     SNFDR190   EFFECTIVE OCT 1, 2018                            00805800
008300*                USE CBSA FILE FOR FY2019                         00805900
008300*                USE PAYMENT RATES FOR FY2019                     00806000
008400*                SNF DRIVER - SNFDR190                            00806100
008400*                VALUE BASED PAYMENT LOGIC ADDED                  00806200
008500******************************************************************00806300
008600 DATE-COMPILED.                                                   00806400
008700 ENVIRONMENT                     DIVISION.                        00806500
008800                                                                  00806600
008900 CONFIGURATION                   SECTION.                         00806700
009000 SOURCE-COMPUTER.                IBM-370.                         00806800
009100 OBJECT-COMPUTER.                IBM-370.                         00806900
009200                                                                  00807000
009300 INPUT-OUTPUT SECTION.                                            00807100
009400 FILE-CONTROL.                                                    00807200
009500 DATA DIVISION.                                                   00807300
009600 FILE SECTION.                                                    00807400
009700                                                                  00807500
009800 WORKING-STORAGE SECTION.                                         00807600
009900 77  W-STORAGE-REF               PIC X(49)  VALUE                 00807700
010000     'SNF D R I V E R   - W O R K I N G   S T O R A G E'.         00807800
010100 01  SNFDR-VERSION               PIC X(09)  VALUE 'SNFDR19.0'.    00807900
010200*01  SNFDR190                    PIC X(08)  VALUE 'SNFDR190'.     00808000
010200 01  SNFPR190                    PIC X(08)  VALUE 'SNFPR190'.     00809000
010300 01  HOLD-SNF-CBSA.                                               00810000
010400     05  HOLD-SNF-CBSA-1ST       PIC XXX    VALUE SPACES.         00820000
010500     05  HOLD-SNF-CBSA-2ND       PIC XX     VALUE SPACES.         00830000
010600 01  SNF-HOLD-THRU-DATE.                                          00840000
010700     05  SNF-HOLD-THRU-CC        PIC XX.                          00850000
010800     05  SNF-HOLD-THRU-YYMMDD.                                    00860000
010900         15  SNF-HOLD-THRU-YY    PIC XX.                          00870000
011000         15  SNF-HOLD-THRU-MMDD  PIC XXXX.                        00880000
011100                                                                  00890000
011200*******************************************************           00900000
011300*    PASSED TO SNFPR PROGRAM CLAIMS                   *           00910000
011400*         FOR CLAIMS PRIOR 10/01/2005                 *           00920000
011500*******************************************************           00930000
011600 01  MSA-WAGE-INDEX-RECORD.                                       00940000
011700     02  MSA-WIR-MSA           PIC X(04).                         00950000
011800     02  MSA-WIR-EFFDATE       PIC X(08).                         00960000
011900     02  MSA-WIR-AREA-WAGEIND  PIC X(06).                         00970000
012000                                                                  00980000
012100*******************************************************           00990000
012200*    PASSED TO SNFPR PROGRAM CLAIMS                   *           01000000
012300*         FOR CLAIMS ON OR AFTER  10/01/2005          *           01010000
012400*******************************************************           01020000
012500 01  CBSA-WAGE-INDEX-RECORD.                                      01030000
012600     02  CBSA-WIR-CBSA         PIC X(05).                         01040000
012700     02  CBSA-WIR-EFFDATE      PIC X(08).                         01050000
012800     02  CBSA-WIR-AREA-WAGEIND PIC X(06).                         01060000
012900                                                                  01070000
013000 LINKAGE SECTION.                                                 01080000
013100                                                                  01090000
013200*******************************************************           01100000
013300* NATIONAL SNF RECORD FORMAT PASSED TO SNFPR PROGRAM  *           01110000
013400*******************************************************           01120000
013500 01  SNF-WORK.                                                    01130000
013600     05  SNF-INPUT-DATA.                                          01140000
013700         10  SNF-MSA           PIC X(04).                         01150000
013800         10  SNF-CBSA.                                            01160000
013900             15  SNF-CBSA-1ST  PIC XXX.                           01170000
014000                 88  SNF-CBSA-RURAL   VALUE '   ' '999'.          01180000
014100             15  SNF-CBSA-2ND  PIC XX.                            01190000
014200         10  SNF-SPEC-WI-IND   PIC X.                             01200000
014300             88  SNF-SPEC-WI-IND-VALUES   VALUE 'Y' 'N' '1' '2'.  01210000
014400         10  SNF-SPEC-WI       PIC 9(02)V9(04).                   01220000
014500         10  SNF-SPEC-WI-X     REDEFINES                          01230000
014600                               SNF-SPEC-WI PIC X(06).             01240000
014700         10  SNF-HCPPS-CODE    PIC X(05).                         01250000
014800         10  SNF-FROM-DATE.                                       01260000
014900             15  SNF-FROM-CC   PIC XX.                            01270000
015000             15  SNF-FROM-YYMMDD.                                 01280000
015100                 25  SNF-FROM-YY                                  01290000
015200                               PIC XX.                            01300000
015300                 25  SNF-FROM-MM                                  01310000
015400                               PIC XX.                            01320000
015500                 25  SNF-FROM-DD                                  01330000
015600                               PIC XX.                            01340000
015700         10  SNF-THRU-DATE.                                       01350000
015800             15  SNF-THRU-CC   PIC XX.                            01360000
015900             15  SNF-THRU-YYMMDD.                                 01370000
016000                 25  SNF-THRU-YY                                  01380000
016100                               PIC XX.                            01390000
016200                 25  SNF-THRU-MM                                  01400000
016300                               PIC XX.                            01410000
016400                 25  SNF-THRU-DD                                  01420000
016500                               PIC XX.                            01430000
016600         10  SNF-FED-BLEND     PIC X.                             01440000
016700             88  SNF-FED-BLEND-VALUES                             01450000
016800                                   VALUE '0' '1' '2' '3' '4'.     01460000
016900         10  SNF-FACILITY-RATE PIC 9(05)V9(02).                   01470000
017000         10  SNF-DIAGNOSIS-CODES.                                 01480000
017100             15  SNF-PRIN-DIAG-CODE      PIC X(07).               01490000
017200             15  SNF-OTHER-DIAG-CODE2    PIC X(07).               01500000
017300             15  SNF-OTHER-DIAG-CODE3    PIC X(07).               01510000
017400             15  SNF-OTHER-DIAG-CODE4    PIC X(07).               01520000
017500             15  SNF-OTHER-DIAG-CODE5    PIC X(07).               01530000
017600             15  SNF-OTHER-DIAG-CODE6    PIC X(07).               01540000
017700             15  SNF-OTHER-DIAG-CODE7    PIC X(07).               01550000
017800             15  SNF-OTHER-DIAG-CODE8    PIC X(07).               01560000
017900             15  SNF-OTHER-DIAG-CODE9    PIC X(07).               01570000
018000             15  SNF-OTHER-DIAG-CODE10   PIC X(07).               01580000
018100             15  SNF-OTHER-DIAG-CODE11   PIC X(07).               01590000
018200             15  SNF-OTHER-DIAG-CODE12   PIC X(07).               01600000
018300             15  SNF-OTHER-DIAG-CODE13   PIC X(07).               01610000
018400             15  SNF-OTHER-DIAG-CODE14   PIC X(07).               01620000
018500             15  SNF-OTHER-DIAG-CODE15   PIC X(07).               01630000
018600             15  SNF-OTHER-DIAG-CODE16   PIC X(07).               01640000
018700             15  SNF-OTHER-DIAG-CODE17   PIC X(07).               01650000
018800             15  SNF-OTHER-DIAG-CODE18   PIC X(07).               01660000
018900             15  SNF-OTHER-DIAG-CODE19   PIC X(07).               01670000
019000             15  SNF-OTHER-DIAG-CODE20   PIC X(07).               01680000
019100             15  SNF-OTHER-DIAG-CODE21   PIC X(07).               01690000
019200             15  SNF-OTHER-DIAG-CODE22   PIC X(07).               01700000
019300             15  SNF-OTHER-DIAG-CODE23   PIC X(07).               01710000
019400             15  SNF-OTHER-DIAG-CODE24   PIC X(07).               01720000
019500             15  SNF-OTHER-DIAG-CODE25   PIC X(07).               01730000
019600         10  SNF-PAY-RTC.                                         01740000
019700             15  SNF-PAYMENT-RATE                                 01750000
019800                                         PIC 9(06)V9(02).         01760000
019900             15  SNF-RTC                 PIC 99.                  01770000
022500         10  VBP-DATA.                                            01780000
022600             15  VBP-MULTIPLIER          PIC S9V9(11).            01790000
022700             15  VBP-PAY-DIFF            PIC S9(06)V9(02).        01800000
022800         10  FILLER                      PIC X(50).               01810000
020100                                                                  01811000
020200*******************************************************           01812000
020300*    RETURNED BY SNFPR PROGRAM                        *           01813000
020400*******************************************************           01814000
020500 01  HOLD-VARIABLES.                                              01815000
020600     02  HOLD-VAR-DATA.                                           01816000
020700         05  FACTOR            PIC 9.                             01817000
020800         05  NUR-INDEX         PIC 9V99.                          01818000
020900         05  THR-INDEX         PIC 9V99.                          01819000
021000         05  AREA-WAGE-INDEX   PIC 9(01)V9(04).                   01820000
021100         05  IP-RATE           PIC 9(03)V9(02).                   01830000
021200         05  GS-RATE           PIC 9(02)V9(02).                   01840000
021300         05  TH-RATE           PIC 9(02)V9(02).                   01850000
021400         05  REHAB-RATE        PIC 9(03)V9(02).                   01860000
021500         05  NURSING-COMPONENT PIC 999V99.                        01870000
021600         05  THERAPY-COMPONENT PIC 999V99.                        01880000
021700         05  NCM-THR-COMPONENT PIC 999V99.                        01890000
021800         05  NCM-COMPONENT     PIC 999V99.                        01900000
021900         05  PAYMENT-RATE-ADJ  PIC 9(06)V99.                      01910000
022000         05  FED-PAYMENT       PIC 9(06)V99.                      01920000
022100     02  SNFPR-VERSION         PIC X(09).                         01930000
022200                                                                  01940000
022300                                                                  01950000
022400                                                                  01960000
022500 01  MSA-WI-TABLE.                                                01970000
022600     05  MSA-DATA        OCCURS 8000                              01980000
022700                           INDEXED BY MU1 MU2 MU3.                01990000
022800         10  MSA-TB-MSA        PIC X(04).                         02000000
022900         10  MSA-TB-EFFDATE    PIC X(08).                         02010000
023000         10  MSA-TB-WAGEIND    PIC X(06).                         02020000
023100                                                                  02030000
023200 01  CBSA-WI-TABLE.                                               02040000
023300     05  T-CBSA-DATA        OCCURS 8000                           02050000
023400                           INDEXED BY MA1 MA2 MA3.                02060000
023500         10  T-CBSA            PIC X(05).                         02070000
023600         10  T-CBSA-EFFDATE    PIC X(08).                         02080000
023700         10  T-CBSA-WAGEIND    PIC X(06).                         02090000
023800                                                                  02100000
023900 PROCEDURE  DIVISION USING SNF-WORK                               02110000
024000                           HOLD-VARIABLES                         02120000
024100                           CBSA-WI-TABLE                          02130000
024200                           MSA-WI-TABLE.                          02140000
024300                                                                  02150000
024400 0000-MAINLINE  SECTION.                                          02160000
024500                                                                  02170000
024600     PERFORM 0100-PROCESS-RECORDS                                 02180000
024700        THRU 0100-EXIT.                                           02190000
024800                                                                  02200000
024900     GOBACK.                                                      02210000
025000                                                                  02220000
025100                                                                  02230000
025200 0100-PROCESS-RECORDS.                                            02240000
025300                                                                  02250000
025400     MOVE ALL '0'              TO SNF-PAY-RTC                     02260000
025500                                  HOLD-VAR-DATA                   02270000
025600                                  MSA-WAGE-INDEX-RECORD           02280000
025700                                  CBSA-WAGE-INDEX-RECORD.         02290000
025800                                                                  02300000
025900     IF SNF-THRU-DATE < 19980701                                  02310000
026000        MOVE '40'              TO SNF-RTC                         02320000
026100        GO TO 0100-EXIT.                                          02330000
026200                                                                  02340000
026300     MOVE SNF-CBSA             TO HOLD-SNF-CBSA.                  02350000
026400                                                                  02360000
026500     IF SNF-CBSA-RURAL                                            02370000
026600        MOVE SPACES            TO HOLD-SNF-CBSA-1ST.              02380000
026700                                                                  02390000
026800     IF SNF-THRU-DATE < 20051001                                  02400000
026900        PERFORM 1600-GET-MSA                                      02410000
027000           THRU 1600-EXIT                                         02420000
027100     ELSE                                                         02430000
027200        PERFORM 1650-GET-CBSA                                     02440000
027300           THRU 1650-EXIT.                                        02450000
027400                                                                  02460000
027500     IF SNF-RTC NOT = '00'                                        02470000
027600         GO TO 0100-EXIT.                                         02480000
027700                                                                  02490000
027800     IF SNF-THRU-DATE < 20051001                                  02500000
027900         PERFORM 1700-GET-WAGE-INDEX                              02510000
028000            THRU 1700-EXIT                                        02520000
028100         VARYING MU2           FROM MU1 BY 1 UNTIL                02530000
028200         MSA-TB-MSA (MU2) NOT = SNF-MSA                           02540000
028300     ELSE                                                         02550000
028400         PERFORM 1900-GET-WAGE-INDEX                              02560000
028500            THRU 1900-EXIT                                        02570000
028600         VARYING MA2           FROM MA1 BY 1 UNTIL                02580000
028700         T-CBSA (MA2) NOT = HOLD-SNF-CBSA.                        02590000
028800                                                                  02600000
028900     IF SNF-THRU-DATE < 20051001                                  02610000
029000        IF '000000' = MSA-WIR-AREA-WAGEIND                        02620000
029100            MOVE '30'          TO SNF-RTC                         02630000
029200            GO TO 0100-EXIT.                                      02640000
029300                                                                  02650000
029400     IF SNF-RTC NOT = '00'                                        02660000
029500         GO TO 0100-EXIT.                                         02670000
029600                                                                  02680000
029700                                                                  02690000
029800     CALL  SNFPR190 USING SNF-WORK                                02700000
029900                          HOLD-VARIABLES                          02710000
030000                          CBSA-WAGE-INDEX-RECORD                  02720000
030100                          MSA-WAGE-INDEX-RECORD.                  02730000
378900*                                                                 02740000
378900*                                                                 02750000
030200                                                                  02760000
030300 0100-EXIT.  EXIT.                                                02770000
030400                                                                  02780000
030500                                                                  02790000
030600 1600-GET-MSA.                                                    02800000
030700     SET MU1                   TO 1.                              02810000
030800                                                                  02820000
030900     SEARCH MSA-DATA VARYING MU1                                  02830000
031000            AT END                                                02840000
031100               MOVE '30'       TO SNF-RTC                         02850000
031200               GO TO 1600-EXIT                                    02860000
031300            WHEN MSA-TB-MSA (MU1) = SNF-MSA                       02870000
031400               SET MU2         TO MU1.                            02880000
031500                                                                  02890000
031600 1600-EXIT.  EXIT.                                                02900000
031700                                                                  02910000
031800 1650-GET-CBSA.                                                   02920000
031900     SET MA1                   TO 1.                              02930000
032000                                                                  02940000
032100     SEARCH T-CBSA-DATA VARYING MA1                               02950000
032200            AT END                                                02960000
032300               MOVE '30'       TO SNF-RTC                         02970000
032400               GO TO 1650-EXIT                                    02980000
032500            WHEN T-CBSA (MA1) = HOLD-SNF-CBSA                     02990000
032600               SET MA2         TO MA1.                            03000000
032700                                                                  03010000
032800 1650-EXIT.  EXIT.                                                03020000
032900                                                                  03030000
033000 1700-GET-WAGE-INDEX.                                             03040000
033100                                                                  03050000
033200     IF SNF-THRU-DATE NOT < MSA-TB-EFFDATE (MU2)                  03060000
033300        MOVE MSA-TB-MSA     (MU2)                                 03070000
033400                               TO MSA-WIR-MSA                     03080000
033500        MOVE MSA-TB-EFFDATE (MU2)                                 03090000
033600                               TO MSA-WIR-EFFDATE                 03100000
033700        MOVE MSA-TB-WAGEIND (MU2)                                 03110000
033800                               TO MSA-WIR-AREA-WAGEIND.           03120000
033900                                                                  03130000
034000 1700-EXIT.  EXIT.                                                03140000
034100                                                                  03150000
034200 1900-GET-WAGE-INDEX.                                             03160000
034300                                                                  03170000
034400     IF  SNF-SPEC-WI-IND = 'Y'                                    03180000
034500         MOVE '1'              TO SNF-SPEC-WI-IND.                03190000
034600                                                                  03200000
034700     IF  SNF-SPEC-WI-IND = '1' AND SNF-SPEC-WI-X NOT NUMERIC      03210000
034800         MOVE '30'             TO SNF-RTC                         03220000
034900         GO TO 1900-EXIT.                                         03230000
035000                                                                  03240000
035100     IF  SNF-SPEC-WI-IND = '1' AND SNF-SPEC-WI-X NUMERIC          03250000
035200         MOVE SNF-CBSA         TO CBSA-WIR-CBSA                   03260000
035300         MOVE '20051001'       TO CBSA-WIR-EFFDATE                03270000
035400         MOVE SNF-SPEC-WI-X    TO CBSA-WIR-AREA-WAGEIND           03280000
035500         GO TO 1900-EXIT.                                         03290000
035600                                                                  03300000
035700     MOVE SNF-THRU-DATE        TO SNF-HOLD-THRU-DATE              03310000
035800                                                                  03320000
035900     IF SNF-HOLD-THRU-DATE NOT < T-CBSA-EFFDATE (MA2)             03330000
036000        MOVE T-CBSA         (MA2)                                 03340000
036100                               TO CBSA-WIR-CBSA                   03350000
036200        MOVE T-CBSA-EFFDATE (MA2)                                 03360000
036300                               TO CBSA-WIR-EFFDATE                03370000
036400        MOVE T-CBSA-WAGEIND (MA2)                                 03380000
036500                               TO CBSA-WIR-AREA-WAGEIND.          03390000
036600                                                                  03400000
036700 1900-EXIT.                                                       03410000
036700     EXIT.                                                        03420000
036800*****        LAST STATEMENT               *************           03430000
