000100 IDENTIFICATION DIVISION.
000200 PROGRAM-ID.           PPDRV200.
000300*AUTHOR.   DDS TEAM.
000400*UPDATE.   FY 2020 PRODUCTION.
000500*
000600*REMARKS.  - CALLS THE PPCAL__ MODULES
000700*          - FINDS  WAGE-INDEX RECORD FOR
000800*            GIVEN BILL TO BE PASSED TO PPCAL__ MODULES.
000900 DATE-COMPILED.
001000****************************************************************
001100*   THE RESPONSIBILITY FOR INSTALLING, MODIFYING, TESTING,     *
001200*   MAINTAINING, AND VERIFYING THE ACCURACY OF THIS PROGRAM    *
001300*   IS THAT OF THE USER.                                       *
001400*                  *  *  *  *  *  *  *  *                      *
001500*   ONCE GROUPED THE PROSPECTIVE PAYMENT SUBROUTINE IS CALLED  *
001600*   TO CALCULATE THE TOTAL PAYMENT PRIOR TO DEDUCTIBLE,        *
001700*   CO-INSURANCE, AND CASES WHERE MEDICARE IS SECONDARY PAYOR. *
001800*   THE PROGRAM WILL:                                          *
001900*       1. FIND THE WAGE INDEX  TO CALCULATE PPS.              *
002000*       2. EDIT THE BILL INFORMATION PASSED TO IT.             *
002100*       3. PASS BACK RETURN CODES.                             *
002200*       4. CALCULATE WHEN APPLICABLE                           *
002300*          A. THE COVERED DAYS UTILIZATION.                    *
002400*          B. THE HOSPITAL SPECIFIC PART OF PAYMENT.           *
002500*          C. THE FEDERAL  SPECIFIC PART OF PAYMENT            *
002600*          D. THE OUTLIER PORTION (COST).                      *
002700*          E. THE NUMBER OF OUTLIER DAYS.                      *
002800*          F. TOTAL PAYMENT (B + C + D  ABOVE).                *
002900*          G. DISPROPORTIONATE SHARE ADJUSTMENT                *
003000*          H. INDIRECT TEACH ADJUSTMENT.                       *
003100*                  *  *  *  *  *  *  *  *                      *
003200*   THIS SUBROUTINE CALCULATES THE PROVIDER SPECIFIC           *
003300*   ELEMENTS ON A PROVIDER BREAK, THEREFORE IT WILL RUN FASTER *
003400*   WHEN BILLS ARE BATCHED BY PROVIDER.                        *
003500*                                                              *
003600****************************************************************
003700 ENVIRONMENT DIVISION.
003800 CONFIGURATION SECTION.
003900 SOURCE-COMPUTER.            IBM-370.
004000 OBJECT-COMPUTER.            IBM-370.
004100 INPUT-OUTPUT SECTION.
004200 FILE-CONTROL.
004300 DATA DIVISION.
004400 FILE SECTION.
004500
004600 WORKING-STORAGE SECTION.
004700 77  W-STORAGE-REF                  PIC X(48)  VALUE
004800     'P P D R I V E R - W O R K I N G   S T O R A G E'.
004900
005000 01  DRV-VERSION                    PIC X(05) VALUE 'D20.0'.
005100 01  PPCAL884                       PIC X(08) VALUE 'PPCAL884'.
005200 01  PPCAL894                       PIC X(08) VALUE 'PPCAL894'.
005300 01  PPCAL905                       PIC X(08) VALUE 'PPCAL905'.
005400 01  PPCAL915                       PIC X(08) VALUE 'PPCAL915'.
005500 01  PPCAL926                       PIC X(08) VALUE 'PPCAL926'.
005600 01  PPCAL935                       PIC X(08) VALUE 'PPCAL935'.
005700 01  PPCAL944                       PIC X(08) VALUE 'PPCAL944'.
005800 01  PPCAL954                       PIC X(08) VALUE 'PPCAL954'.
005900 01  PPCAL964                       PIC X(08) VALUE 'PPCAL964'.
006000 01  PPCAL974                       PIC X(08) VALUE 'PPCAL974'.
006100 01  PPCAL987                       PIC X(08) VALUE 'PPCAL987'.
006200 01  PPCAL998                       PIC X(08) VALUE 'PPCAL998'.
006300 01  PPCAL006                       PIC X(08) VALUE 'PPCAL006'.
006400 01  PPCAL017                       PIC X(08) VALUE 'PPCAL017'.
006500 01  PPCAL026                       PIC X(08) VALUE 'PPCAL026'.
006600 01  PPCAL038                       PIC X(08) VALUE 'PPCAL038'.
006700 01  PPCAL04D                       PIC X(08) VALUE 'PPCAL04D'.
006800 01  PPCAL059                       PIC X(08) VALUE 'PPCAL059'.
006900 01  PPCAL069                       PIC X(08) VALUE 'PPCAL069'.
007000 01  PPCAL07B                       PIC X(08) VALUE 'PPCAL07B'.
007100 01  PPCAL08D                       PIC X(08) VALUE 'PPCAL08D'.
007200 01  PPCAL09D                       PIC X(08) VALUE 'PPCAL09D'.
007300 01  PPCAL10O                       PIC X(08) VALUE 'PPCAL10O'.
007400 01  PPCAL10P                       PIC X(08) VALUE 'PPCAL10P'.
007500 01  PPCAL119                       PIC X(08) VALUE 'PPCAL119'.
007600 01  PPCAL125                       PIC X(08) VALUE 'PPCAL125'.
007700 01  PPCAL135                       PIC X(08) VALUE 'PPCAL135'.
007800 01  PPCAL14B                       PIC X(08) VALUE 'PPCAL14B'.
007900 01  PPCAL156                       PIC X(08) VALUE 'PPCAL156'.
008000 01  PPCAL163                       PIC X(08) VALUE 'PPCAL163'.
008100 01  PPCAL171                       PIC X(08) VALUE 'PPCAL171'.
008200 01  PPCAL182                       PIC X(08) VALUE 'PPCAL182'.
008300 01  PPCAL192                       PIC X(08) VALUE 'PPCAL192'.
008400 01  PPCAL200                       PIC X(08) VALUE 'PPCAL200'.
008500
008600 01  TABLES-LOADED-SW               PIC 9(01) VALUE 0.
008700 01  EOF-SW                         PIC 9(01) VALUE 0.
008800 01  WS-9S                          PIC X(08) VALUE '99999999'.
008900
009000 01  WI_QUARTILE_FY2020       PIC 9(02)V9(04)  VALUE 0.8457.
009100 01  WI_PCT_REDUC_FY2020      PIC S9(01)V9(02) VALUE -0.05.
009200 01  WI_PCT_ADJ_FY2020        PIC 9(01)V9(02)  VALUE 0.95.
009300
009400*---------------------------------------------------------*
009500* OUTMIGRATION ADJUSTMENT FACTOR TABLE                    *
009600*---------------------------------------------------------*
009700 COPY HOUTI200.
009800
009900 01  HOLD-OUTM-DATA.
010000     05  OUTM-IND                       PIC 9(01) VALUE 0.
010100     05  OUTM-IDX2                      PIC 9(03) VALUE 0.
010200     05  HLD-OUTM-ADJ                   PIC S9(01)V9(04).
010300
010400*---------------------------------------------------------*
010500* RURAL FLOOR FACTOR TABLE                                *
010600*---------------------------------------------------------*
010700 COPY RUFL200.
010800
010900 01  HOLD-RUFL-DATA.
011000     05  RUFL-IDX2                      PIC 9(03) VALUE 0.
011100
011200*---------------------------------------------------------*
011300* PREVIOUS FY WAGE INDEX TABLE                            *
011400*---------------------------------------------------------*
011500 COPY PREV200.
011600
011700 01  HOLD-PREV-DATA.
011800     05  HLD-PREV-WI                    PIC S9(02)V9(04).
011900
012000 01  HOLD-PROV-MSAX.
012100         10  H-MSAX-PROV-BLANK   PIC X(2).
012200         10  H-MSAX-PROV-STATE.
012300             15  FILLER          PIC X.
012400             15  H-MSAX-LAST-POS PIC X.
012500
012600 01  HOLD-PROV-CBSA.
012700         10  H-CBSA-PROV-BLANK      PIC X(3).
012800         10  H-CBSA-PROV-STATE.
012900             15  FILLER             PIC X.
013000             15  H-CBSA-LAST-POS    PIC X.
013100
013200 01  HOLD-RURAL-CBSA.
013300         10  H-CBSA-RURAL-BLANK     PIC X(3).
013400         10  H-CBSA-RURAL-STATE.
013500             15  FILLER                   PIC X.
013600             15  H-CBSA-RURAL-LAST-POS    PIC X.
013700
013800*-------------------------------------------------------------*
013900* VARIABLES TO HOLD THE BILL'S FY BEGIN AND END DATES
014000*-----------------------------------------------------------
014100 01  W-FY-BEGIN-DATE.
014200         05  W-FY-BEGIN-CC              PIC 9(02).
014300         05  W-FY-BEGIN-YY              PIC 9(02).
014400         05  W-FY-BEGIN-MM              PIC 9(02) VALUE 10.
014500         05  W-FY-BEGIN-DD              PIC 9(02) VALUE 01.
014600
014700 01  W-FY-END-DATE.
014800         05  W-FY-END-CC                PIC 9(02).
014900         05  W-FY-END-YY                PIC 9(02).
015000         05  W-FY-END-MM                PIC 9(02) VALUE 09.
015100         05  W-FY-END-DD                PIC 9(02) VALUE 30.
015200
015300**************YEARCHANGE 2015.1 ******************************
015400* USED FOR FY15 BLENDED TRANSITION WI FOR CERTAIN PR PROVIDERS
015500**************************************************************
015600 01  PRSPC-PROV-TABLE.
015700     05 PRSPC-PROV-BLEND-DATA.
015800         10  FILLER      PIC X(14) VALUE '400001  010206'.
015900         10  FILLER      PIC X(14) VALUE '400003  009532'.
016000         10  FILLER      PIC X(14) VALUE '400004  010206'.
016100         10  FILLER      PIC X(14) VALUE '400005  010206'.
016200         10  FILLER      PIC X(14) VALUE '400006  010206'.
016300         10  FILLER      PIC X(14) VALUE '400007  010206'.
016400         10  FILLER      PIC X(14) VALUE '400011  010206'.
016500         10  FILLER      PIC X(14) VALUE '400012  010206'.
016600         10  FILLER      PIC X(14) VALUE '400013  010206'.
016700         10  FILLER      PIC X(14) VALUE '400015  010206'.
016800         10  FILLER      PIC X(14) VALUE '400016  010206'.
016900         10  FILLER      PIC X(14) VALUE '400018  010206'.
017000         10  FILLER      PIC X(14) VALUE '400019  010206'.
017100         10  FILLER      PIC X(14) VALUE '400021  010588'.
017200         10  FILLER      PIC X(14) VALUE '400022  009532'.
017300         10  FILLER      PIC X(14) VALUE '400032  010206'.
017400         10  FILLER      PIC X(14) VALUE '400044  009532'.
017500         10  FILLER      PIC X(14) VALUE '400061  010206'.
017600         10  FILLER      PIC X(14) VALUE '400087  009942'.
017700         10  FILLER      PIC X(14) VALUE '400098  010206'.
017800         10  FILLER      PIC X(14) VALUE '400102  010206'.
017900         10  FILLER      PIC X(14) VALUE '400104  010206'.
018000         10  FILLER      PIC X(14) VALUE '400105  010206'.
018100         10  FILLER      PIC X(14) VALUE '400106  010206'.
018200         10  FILLER      PIC X(14) VALUE '400109  010206'.
018300         10  FILLER      PIC X(14) VALUE '400112  010206'.
018400         10  FILLER      PIC X(14) VALUE '400113  009532'.
018500         10  FILLER      PIC X(14) VALUE '400114  010206'.
018600         10  FILLER      PIC X(14) VALUE '400115  010206'.
018700         10  FILLER      PIC X(14) VALUE '400117  009942'.
018800         10  FILLER      PIC X(14) VALUE '400118  010206'.
018900         10  FILLER      PIC X(14) VALUE '400120  010206'.
019000         10  FILLER      PIC X(14) VALUE '400121  010206'.
019100         10  FILLER      PIC X(14) VALUE '400122  010206'.
019200         10  FILLER      PIC X(14) VALUE '400124  010206'.
019300         10  FILLER      PIC X(14) VALUE '400126  010588'.
019400         10  FILLER      PIC X(14) VALUE '400127  010206'.
019500         10  FILLER      PIC X(14) VALUE '400128  010206'.
019600     05  WK-PRSPC-DATA2 REDEFINES PRSPC-PROV-BLEND-DATA.
019700        10  PRSPC-TAB OCCURS 38
019800                        ASCENDING KEY IS WK-PRSPC-PROV
019900                        INDEXED BY PRSPC-IDX.
020000           15  WK-PRSPC-COUNT-ALL.
020100              20  WK-PRSPC-PROV            PIC X(6).
020200              20  FILLER                   PIC XX.
020300              20  WK-PRSPC-WAGEIN-BLEND    PIC S9(02)V9(04).
020400
020500**************YEARCHANGE 2015.1 ******************************
020600* USED FOR FY15 BLENDED TRANSITION WI FOR CERTAIN PR PROVIDERS
020700**************************************************************
020800 01  MES-PRSPC.
020900     05  MES-PRSPC-PROV                PIC X(6).
021000     05  FILLER                        PIC XXX.
021100     05  MESWK-PRSPC-WAGEIN-BLEND      PIC S9(02)V9(04).
021200
021300*
021400************************************************************
021500**    OLD PROVIDER RECORD FORMAT
021600************************************************************
021700 01  W-PROV-OLD-HOLD.
021800     02  W-PROV-OLDREC-HOLD1.
021900         05  W-P-PROVIDER-NO.
022000             10  W-P-STATE                PIC X(02).
022100             10  FILLER                   PIC X(04).
022200         05  W-P-EFF-DATE.
022300             10  W-P-EFF-YY               PIC 9(02).
022400             10  W-P-EFF-MM               PIC 9(02).
022500             10  W-P-EFF-DD               PIC 9(02).
022600         05  W-P-WAIVER-CODE              PIC X(01).
022700         05  W-P-PROVIDER-TYPE            PIC X(02).
022800         05  W-P-CURRENT-CENSUS-DIV       PIC X(01).
022900         05  W-P-PPS-BLEND-YR-IND         PIC X(01).
023000         05  W-P-MSA-X.
023100             10  W-P-RURAL                PIC X(04).
023200         05  W-P-MSA-9 REDEFINES W-P-MSA-X  PIC 9(04).
023300         05  W-P-FISCAL-YEAR-END.
023400             10  W-P-MM                   PIC 9(02).
023500             10  W-P-DD                   PIC 9(02).
023600             10  W-P-YY                   PIC 9(02).
023700         05  W-P-VARIABLES.
023800             10  W-P-FAC-SPEC-RATE        PIC  X(07).
023900             10  W-P-COLA                 PIC  X(04).
024000             10  W-P-INTERN-RATIO         PIC  X(05).
024100             10  W-PRUP-UPDT-FACTOR       PIC  X(06).
024200             10  W-P-BED-SIZE             PIC  X(05).
024300             10  W-P-DSH-PERCENT          PIC  V9(04).
024400             10  W-P-CCR                  PIC  X(04).
024500             10  W-P-CMI                  PIC  X(05).
024600             10  FILLER                 PIC  X(01).
024700             10  W-P-REPORT-DATE.
024800                 15  W-P-REPORT-DT-MM     PIC 99.
024900                 15  W-P-REPORT-DT-DD     PIC 99.
025000                 15  W-P-REPORT-DT-YY     PIC 99.
025100             10  FILLER                 PIC  X(01).
025200             10  W-P-INTER-NO             PIC  X(05).
025300     02  W-PROV-OLDREC-HOLD2.
025400         05  W-P-FY-BEGIN-DATE.
025500             10  W-P-FY-BEG-DT-MM         PIC 99.
025600             10  W-P-FY-BEG-DT-DD         PIC 99.
025700             10  W-P-FY-BEG-DT-YY         PIC 99.
025800         05  W-P-PASS-AMT-CAPITAL         PIC X(6).
025900         05  W-P-PASS-AMT-DIR-MED-ED      PIC X(6).
026000         05  W-P-PASS-AMT-ORGAN-ACQ       PIC X(6).
026100         05  W-P-PASS-AMT-PLUS-MISC       PIC X(6).
026200         05  W-P-SSI-RATIO                PIC X(4).
026300         05  W-P-MEDICAID-RATIO           PIC X(4).
026400         05  W-P-TERMINATION-DATE.
026500             10  W-P-TERM-DT-YY           PIC 99.
026600             10  W-P-TERM-DT-MM           PIC 99.
026700             10  W-P-TERM-DT-DD           PIC 99.
026800         05  W-P-WAGE-INDEX-LOC-MSA       PIC X(4).
026900         05  W-P-CHG-CODE-INDEX           PIC X.
027000         05  W-P-STAND-AMT-LOC-MSA.
027100             10  W-P-RURAL-1ST.
027200                 15  W-P-STAND-RURAL      PIC XX.
027300             10  W-P-RURAL-2ND            PIC XX.
027400         05  W-P-SOL-COM-DEP-HOSP-YR      PIC XX.
027500         05  W-P-LUGAR                    PIC X.
027600         05  W-P-TEMP-RELIEF-IND          PIC X.
027700         05  FILLER                       PIC X(23).
027800     02  W-PROV-OLDREC-HOLD3.
027900         05  W-P-CAPI-PPS-PAY-CODE        PIC X.
028000         05  W-P-CAPI-HOSP-SPEC-RATE      PIC X(6).
028100         05  W-P-CAPI-OLD-HARM-RATE       PIC X(6).
028200         05  W-P-CAPI-NEW-HARM-RATIO      PIC X(5).
028300         05  W-P-CAPI-CSTCHG-RATIO        PIC X(04).
028400         05  W-P-CAPI-NEW-HOSP            PIC X.
028500         05  W-P-CAPI-IME                 PIC X(05).
028600         05  W-P-CAPI-EXCEPTIONS          PIC X(6).
028700         05  W-P-HVBP-HRR-DATA.
028800             15  W-P-VAL-BASED-PURCH-PARTIPNT PIC X.
028900             15  W-P-VAL-BASED-PURCH-ADJUST   PIC 9V9(11).
029000             15  W-P-HOSP-READMISSION-REDUCTN PIC X.
029100             15  W-P-HOSP-HRR-ADJUSTMT        PIC 9V9(4).
029200         05  W-P-MODEL1-BUNDLE-DATA.
029300             15  W-P-MODEL1-BUNDLE-DISPRCNT   PIC V999.
029400             15  W-P-HAC-REDUC-IND            PIC X.
029500             15  W-P-UNCOMP-CARE-AMOUNT       PIC 9(07)V99.
029600             15  W-P-EHR-REDUC-IND            PIC X.
029700         05  FILLER                           PIC X(09).
029800
029900***************************************************************
030000**    NEW PROVIDER RECORD FORMAT
030100***************************************************************
030200 01  W-PROV-NEW-HOLD.
030300     02  W-PROV-NEWREC-HOLD1.
030400         05  W-P-NEW-NPI10.
030500             10  W-P-NEW-NPI8           PIC X(08).
030600             10  W-P-NEW-NPI-FILLER     PIC X(02).
030700         05  W-P-NEW-PROVIDER-OSCAR-NO.
030800             10  W-P-NEW-STATE            PIC X(02).
030900             10  FILLER                   PIC X(04).
031000         05  W-P-NEW-DATE-DATA.
031100             10  W-P-NEW-EFF-DATE.
031200                 15  W-P-NEW-EFF-DT-CC    PIC 9(02).
031300                 15  W-P-NEW-EFF-DT-YY    PIC 9(02).
031400                 15  W-P-NEW-EFF-DT-MM    PIC 9(02).
031500                 15  W-P-NEW-EFF-DT-DD    PIC 9(02).
031600             10  W-P-NEW-FY-BEGIN-DATE.
031700                 15  W-P-NEW-FY-BEG-DT-CC PIC 9(02).
031800                 15  W-P-NEW-FY-BEG-DT-YY PIC 9(02).
031900                 15  W-P-NEW-FY-BEG-DT-MM PIC 9(02).
032000                 15  W-P-NEW-FY-BEG-DT-DD PIC 9(02).
032100             10  W-P-NEW-REPORT-DATE.
032200                 15  W-P-NEW-REPORT-DT-CC PIC 9(02).
032300                 15  W-P-NEW-REPORT-DT-YY PIC 9(02).
032400                 15  W-P-NEW-REPORT-DT-MM PIC 9(02).
032500                 15  W-P-NEW-REPORT-DT-DD PIC 9(02).
032600             10  W-P-NEW-TERMINATION-DATE.
032700                 15  W-P-NEW-TERM-DT-CC   PIC 9(02).
032800                 15  W-P-NEW-TERM-DT-YY   PIC 9(02).
032900                 15  W-P-NEW-TERM-DT-MM   PIC 9(02).
033000                 15  W-P-NEW-TERM-DT-DD   PIC 9(02).
033100         05  W-P-NEW-WAIVER-CODE          PIC X(01).
033200             88  W-P-NEW-WAIVER-STATE       VALUE 'Y'.
033300         05  W-P-NEW-INTER-NO             PIC X(05).
033400         05  W-P-NEW-PROVIDER-TYPE        PIC X(02).
033500         05  W-P-NEW-CURRENT-CENSUS-DIV   PIC X(01).
033600         05  W-P-NEW-MSA-DATA.
033700             10  W-P-NEW-CHG-CODE-INDEX    PIC X.
033800             10  W-P-NEW-GEO-LOC-MSA        PIC X(04) JUST RIGHT.
033900             10  W-P-NEW-WAGE-INDEX-LOC-MSA PIC X(04) JUST RIGHT.
034000             10  W-P-NEW-STAND-AMT-LOC-MSA  PIC X(04) JUST RIGHT.
034100             10  W-P-NEW-STAND-AMT-LOC-MSA9
034200       REDEFINES W-P-NEW-STAND-AMT-LOC-MSA.
034300                 15  W-P-NEW-RURAL-1ST.
034400                     20  W-P-NEW-STAND-RURAL  PIC XX.
034500                 15  W-P-NEW-RURAL-2ND        PIC XX.
034600         05  W-P-NEW-SOL-COM-DEP-HOSP-YR PIC XX.
034700         05  W-P-NEW-LUGAR               PIC X.
034800         05  W-P-NEW-TEMP-RELIEF-IND     PIC X.
034900         05  W-P-NEW-FED-PPS-BLEND-IND   PIC X.
035000         05  W-P-NEW-STATE-CODE          PIC 9(02).
035100         05  W-P-NEW-STATE-CODE-X REDEFINES
035200             W-P-NEW-STATE-CODE          PIC X(02).
035300         05  FILLER                      PIC X(03).
035400     02  W-PROV-NEWREC-HOLD2.
035500         05  W-P-NEW-VARIABLES.
035600             10  W-P-NEW-FAC-SPEC-RATE     PIC  X(07).
035700             10  W-P-NEW-COLA              PIC  X(04).
035800             10  W-P-NEW-INTERN-RATIO      PIC  X(05).
035900             10  W-P-NEW-BED-SIZE          PIC  X(05).
036000             10  W-P-NEW-CCR               PIC  X(04).
036100             10  W-P-NEW-CMI               PIC  X(05).
036200             10  W-P-NEW-SSI-RATIO         PIC  X(04).
036300             10  W-P-NEW-MEDICAID-RATIO    PIC  X(04).
036400             10  W-P-NEW-PPS-BLEND-YR-IND  PIC  X(01).
036500             10  W-P-NEW-PRUP-UPDTE-FACTOR PIC  9(01)V9(05).
036600             10  W-P-NEW-DSH-PERCENT       PIC  V9(04).
036700             10  W-P-NEW-FYE-DATE.
036800                 15  W-P-NEW-FYE-CC        PIC 99.
036900                 15  W-P-NEW-FYE-YY        PIC 99.
037000                 15  W-P-NEW-FYE-MM        PIC 99.
037100                 15  W-P-NEW-FYE-DD        PIC 99.
037200         05  W-P-NEW-CBSA-DATA.
037300             10  W-P-NEW-CBSA-SPEC-PAY-IND   PIC X.
037400             10  W-P-NEW-CBSA-HOSP-QUAL-IND  PIC X.
037500             10  W-P-NEW-CBSA-GEO-LOC        PIC X(05) JUST RIGHT.
037600             10  W-P-NEW-CBSA-RECLASS-LOC    PIC X(05) JUST RIGHT.
037700             10  W-P-NEW-CBSA-STAND-AMT-LOC  PIC X(05) JUST RIGHT.
037800             10  W-P-NEW-CBSA-STAND-AMT-LOC9
037900       REDEFINES W-P-NEW-CBSA-STAND-AMT-LOC.
038000                 15  W-P-NEW-CBSA-RURAL-1ST.
038100                     20  W-P-NEW-CBSA-STAND-RURAL PIC 999.
038200                 15  W-P-NEW-CBSA-RURAL-2ND       PIC 99.
038300             10  W-P-NEW-CBSA-SPEC-WAGE-INDEX     PIC 9(02)V9(04).
038400     02  W-PROV-NEWREC-HOLD3.
038500         05  W-P-NEW-PASS-AMT-DATA.
038600             10  W-P-NEW-PASS-AMT-CAPITAL    PIC X(06).
038700             10  W-P-NEW-PASS-AMT-DIR-MED-ED PIC X(06).
038800             10  W-P-NEW-PASS-AMT-ORGAN-ACQ  PIC X(06).
038900             10  W-P-NEW-PASS-AMT-PLUS-MISC  PIC X(06).
039000         05  W-P-NEW-CAPI-DATA.
039100             15  W-P-NEW-CAPI-PPS-PAY-CODE   PIC X.
039200             15  W-P-NEW-CAPI-HOSP-SPEC-RATE PIC X(6).
039300             15  W-P-NEW-CAPI-OLD-HARM-RATE  PIC X(6).
039400             15  W-P-NEW-CAPI-NEW-HARM-RATIO PIC X(5).
039500             15  W-P-NEW-CAPI-CSTCHG-RATIO   PIC X(04).
039600             15  W-P-NEW-CAPI-NEW-HOSP       PIC X.
039700             15  W-P-NEW-CAPI-IME            PIC X(05).
039800             15  W-P-NEW-CAPI-EXCEPTIONS     PIC X(6).
039900         05  W-P-HVBP-HRR-DATA.
040000             15  W-P-NEW-VAL-BASED-PURCH-PARTIP   PIC X.
040100             15  W-P-NEW-VAL-BASED-PURCH-ADJUST   PIC 9V9(11).
040200             15  W-P-NEW-HOSP-READMISSION-REDU    PIC X.
040300             15  W-P-NEW-HOSP-HRR-ADJUSTMT        PIC 9V9(4).
040400         05  W-P-MODEL1-BUNDLE-DATA.
040500             15  W-P-MODEL1-BUNDLE-DISPRCNT   PIC V999.
040600             15  W-P-HAC-REDUC-IND            PIC X.
040700             15  W-P-UNCOMP-CARE-AMOUNT       PIC 9(07)V99.
040800             15  W-P-EHR-REDUC-IND            PIC X.
040900             15  W-P-LV-ADJ-FACTOR            PIC 9V9(6).
041000         05  W-P-NEW-COUNTY-CODE              PIC 9(05).
041100         05  W-P-NEW-COUNTY-CODE-X REDEFINES
041200             W-P-NEW-COUNTY-CODE              PIC X(05).
041300         05  FILLER                           PIC X(47).
041400
041500***************************************************************
041600*      THIS IS THE WAGE-INDEX RECORD THAT WILL BE PASSED TO   *
041700*      THE PPCAL001 PROGRAM THRU PPCAL047 FOR PROCESSING
041800*      MSAX TABLE
041900***************************************************************
042000 01  WAGE-NEW-INDEX-RECORD.
042100     05  W-NEW-MSA               PIC 9(4).
042200     05  W-NEW-SIZE              PIC X(01).
042300         88  NEW-LARGE-URBAN       VALUE 'L'.
042400         88  NEW-OTHER-URBAN       VALUE 'O'.
042500         88  NEW-ALL-RURAL         VALUE 'R'.
042600     05  W-NEW-EFF-DATE.
042700          10  W-NEW-EFF-DATE-CC   PIC 9(2).
042800          10  W-NEW-EFF-DATE-YMD.
042900              15  W-NEW-EFF-DATE-YY   PIC 9(2).
043000              15  W-NEW-EFF-DATE-MM   PIC 9(2).
043100              15  W-NEW-EFF-DATE-DD   PIC 9(2).
043200     05  FILLER              PIC X.
043300     05  W-NEW-INDEX-RECORD      PIC S9(02)V9(04).
043400     05  W-NEW-PR-INDEX-RECORD   PIC S9(02)V9(04).
043500
043600***************************************************************
043700*      THIS IS THE WAGE-INDEX RECORD THAT WILL BE PASSED TO   *
043800*      THE PPCAL052 PROGRAM AND AFTER FOR PROCESSING
043900*      CBSA TABLE
044000***************************************************************
044100 01  WAGE-NEW-CBSA-INDEX-RECORD.
044200     05  W-NEW-CBSA               PIC 9(5).
044300     05  W-NEW-CBSA-X  REDEFINES W-NEW-CBSA     PIC X(05).
044400     05  W-NEW-CBSA-SIZE              PIC X(01).
044500         88  NEW-CBSA-LARGE-URBAN       VALUE 'L'.
044600         88  NEW-CBSA-OTHER-URBAN       VALUE 'O'.
044700         88  NEW-CBSA-ALL-RURAL         VALUE 'R'.
044800     05  W-NEW-CBSA-EFF-DATE.
044900          10  W-NEW-CBSA-EFF-DATE-CC   PIC 9(2).
045000          10  W-NEW-CBSA-EFF-DATE-YMD.
045100              15  W-NEW-CBSA-EFF-DATE-YY   PIC 9(2).
045200              15  W-NEW-CBSA-EFF-DATE-MM   PIC 9(2).
045300              15  W-NEW-CBSA-EFF-DATE-DD   PIC 9(2).
045400     05  FILLER                      PIC X.
045500     05  W-NEW-CBSA-WI               PIC S9(02)V9(04).
045600     05  W-NEW-CBSA-PR-WI            PIC S9(02)V9(04).
045700
045800***************************************************************
045900*      THIS IS THE RURAL WAGE-INDEX RECORD THAT WILL BE COMPARED
046000*      TO THE URBAN CBSA RECORD FOR RURAL FLOOR PROCESSING
046100*      CBSA TABLE
046200***************************************************************
046300 01  WAGE-RURAL-CBSA-INDEX-RECORD.
046400     05  W-RURAL-CBSA             PIC 9(5).
046500     05  W-RURAL-CBSA-X REDEFINES W-RURAL-CBSA  PIC X(05).
046600     05  W-RURAL-CBSA-SIZE            PIC X(01).
046700         88  RURAL-CBSA-LARGE-URBAN     VALUE 'L'.
046800         88  RURAL-CBSA-OTHER-URBAN     VALUE 'O'.
046900         88  RURAL-CBSA-ALL-RURAL       VALUE 'R'.
047000     05  W-RURAL-CBSA-EFF-DATE.
047100          10  W-RURAL-CBSA-EFF-DATE-CC PIC 9(2).
047200          10  W-RURAL-CBSA-EFF-DATE-YMD.
047300              15  W-RURAL-CBSA-EFF-DATE-YY PIC 9(2).
047400              15  W-RURAL-CBSA-EFF-DATE-MM PIC 9(2).
047500              15  W-RURAL-CBSA-EFF-DATE-DD PIC 9(2).
047600     05  FILLER                      PIC X.
047700     05  W-RURAL-CBSA-WI             PIC S9(02)V9(04).
047800     05  W-RURAL-CBSA-PR-WI          PIC S9(02)V9(04).
047900
048000***************************************************************
048100*      NON-MILLINNIUM                                         *
048200*      THIS IS THE WAGE-INDEX RECORD THAT WILL BE PASSED TO   *
048300*      PPCAL983 PROGRAM  AND PRIOR YEARS FOR PROCESSING       *
048400***************************************************************
048500 01  WAGE-INDEX-RECORD.
048600     05  W-MSA               PIC 9(4).
048700     05  W-SIZE              PIC X(01).
048800         88  LARGE-URBAN       VALUE 'L'.
048900         88  OTHER-URBAN       VALUE 'O'.
049000         88  ALL-RURAL         VALUE 'R'.
049100     05  W-EFF-DATE          PIC 9(6).
049200     05  FILLER              PIC X.
049300     05  W-INDEX-RECORD      PIC S9(02)V9(04).
049400     05  W-PR-INDEX-RECORD   PIC S9(02)V9(04).
049500
049600**************************************************************
049700*      MILLINNIUM COMPATIBLE                                 *
049800*      THIS IS THE PROV-RECORD THAT WILL BE PASSED TO        *
049900*      THE PPCAL001 PROGRAM AND AFTER FOR PROCESSING         *
050000*      IN THE NEW FORMAT                                     *
050100**************************************************************
050200 01  PROV-NEW-HOLD.
050300     02  PROV-NEWREC-HOLD1.
050400         05  P-NEW-NPI10.
050500             10  P-NEW-NPI8             PIC X(08).
050600             10  P-NEW-NPI-FILLER       PIC X(02).
050700         05  P-NEW-PROVIDER-NO.
050800             10  P-NEW-STATE            PIC X(02).
050900                 88  P-PR-NEW-STATE     VALUE '40' '84'.
051000             10  FILLER                 PIC X(04).
051100         05  P-NEW-DATE-DATA.
051200             10  P-NEW-EFF-DATE.
051300                 15  P-NEW-EFF-DT-CC    PIC 9(02).
051400                 15  P-NEW-EFF-DT-YY    PIC 9(02).
051500                 15  P-NEW-EFF-DT-MM    PIC 9(02).
051600                 15  P-NEW-EFF-DT-DD    PIC 9(02).
051700             10  P-NEW-FY-BEGIN-DATE.
051800                 15  P-NEW-FY-BEG-DT-CC PIC 9(02).
051900                 15  P-NEW-FY-BEG-DT-YY PIC 9(02).
052000                 15  P-NEW-FY-BEG-DT-MM PIC 9(02).
052100                 15  P-NEW-FY-BEG-DT-DD PIC 9(02).
052200             10  P-NEW-REPORT-DATE.
052300                 15  P-NEW-REPORT-DT-CC PIC 9(02).
052400                 15  P-NEW-REPORT-DT-YY PIC 9(02).
052500                 15  P-NEW-REPORT-DT-MM PIC 9(02).
052600                 15  P-NEW-REPORT-DT-DD PIC 9(02).
052700             10  P-NEW-TERMINATION-DATE.
052800                 15  P-NEW-TERM-DT-CC   PIC 9(02).
052900                 15  P-NEW-TERM-DT-YY   PIC 9(02).
053000                 15  P-NEW-TERM-DT-MM   PIC 9(02).
053100                 15  P-NEW-TERM-DT-DD   PIC 9(02).
053200         05  P-NEW-WAIVER-CODE          PIC X(01).
053300             88  P-NEW-WAIVER-STATE       VALUE 'Y'.
053400         05  P-NEW-INTER-NO             PIC 9(05).
053500         05  P-NEW-PROVIDER-TYPE        PIC X(02).
053600             88  P-N-SOLE-COMMUNITY-PROV    VALUE '01' '11'.
053700             88  P-N-REFERRAL-CENTER        VALUE '07' '11'
053800                                                  '15' '17'
053900                                                  '22'.
054000             88  P-N-INDIAN-HEALTH-SERVICE  VALUE '08'.
054100             88  P-N-REDESIGNATED-RURAL-YR1 VALUE '09'.
054200             88  P-N-REDESIGNATED-RURAL-YR2 VALUE '10'.
054300             88  P-N-SOLE-COM-REF-CENT      VALUE '11'.
054400             88  P-N-MDH-REBASED-FY90       VALUE '14' '15'.
054500             88  P-N-MDH-RRC-REBASED-FY90   VALUE '15'.
054600             88  P-N-SCH-REBASED-FY90       VALUE '16' '17'.
054700             88  P-N-SCH-RRC-REBASED-FY90   VALUE '17'.
054800             88  P-N-MEDICAL-ASSIST-FACIL   VALUE '18'.
054900             88  P-N-EACH                   VALUE '21' '22'.
055000             88  P-N-EACH-REFERRAL-CENTER   VALUE '22'.
055100             88  P-N-NHCMQ-II-SNF           VALUE '32'.
055200             88  P-N-NHCMQ-III-SNF          VALUE '33'.
055300         05  P-NEW-CURRENT-CENSUS-DIV   PIC 9(01).
055400             88  P-N-NEW-ENGLAND            VALUE  1.
055500             88  P-N-MIDDLE-ATLANTIC        VALUE  2.
055600             88  P-N-SOUTH-ATLANTIC         VALUE  3.
055700             88  P-N-EAST-NORTH-CENTRAL     VALUE  4.
055800             88  P-N-EAST-SOUTH-CENTRAL     VALUE  5.
055900             88  P-N-WEST-NORTH-CENTRAL     VALUE  6.
056000             88  P-N-WEST-SOUTH-CENTRAL     VALUE  7.
056100             88  P-N-MOUNTAIN               VALUE  8.
056200             88  P-N-PACIFIC                VALUE  9.
056300         05  P-NEW-CURRENT-DIV   REDEFINES
056400                    P-NEW-CURRENT-CENSUS-DIV   PIC 9(01).
056500             88  P-N-VALID-CENSUS-DIV    VALUE 1 THRU 9.
056600         05  P-NEW-MSA-DATA.
056700             10  P-NEW-CHG-CODE-INDEX       PIC X.
056800             10  P-NEW-GEO-LOC-MSAX         PIC X(04) JUST RIGHT.
056900             10  P-NEW-GEO-LOC-MSA9   REDEFINES
057000                             P-NEW-GEO-LOC-MSAX  PIC 9(04).
057100             10  P-NEW-GEO-LOC-MSA-AST REDEFINES
057200                             P-NEW-GEO-LOC-MSA9.
057300                 15  P-NEW-GEO-MSA-1ST    PIC X.
057400                 15  P-NEW-GEO-MSA-2ND    PIC X.
057500                 15  P-NEW-GEO-MSA-3RD    PIC X.
057600                 15  P-NEW-GEO-MSA-4TH    PIC X.
057700             10  P-NEW-WAGE-INDEX-LOC-MSA   PIC X(04) JUST RIGHT.
057800             10  P-NEW-STAND-AMT-LOC-MSA    PIC X(04) JUST RIGHT.
057900             10  P-NEW-STAND-AMT-LOC-MSA9
058000       REDEFINES P-NEW-STAND-AMT-LOC-MSA.
058100                 15  P-NEW-RURAL-1ST.
058200                     20  P-NEW-STAND-RURAL  PIC XX.
058300                         88  P-NEW-STD-RURAL-CHECK VALUE '  '.
058400                 15  P-NEW-RURAL-2ND        PIC XX.
058500         05  P-NEW-SOL-COM-DEP-HOSP-YR PIC XX.
058600                 88  P-NEW-SCH-YRBLANK    VALUE   '  '.
058700                 88  P-NEW-SCH-YR82       VALUE   '82'.
058800                 88  P-NEW-SCH-YR87       VALUE   '87'.
058900         05  P-NEW-LUGAR                    PIC X.
059000         05  P-NEW-TEMP-RELIEF-IND          PIC X.
059100             88  P-NEW-LOW-VOL25PCT     VALUE 'Y'.
059200***          Y = LOW VOLUME PERCENTAGE  25 % ADD ON
059300         05  P-NEW-FED-PPS-BLEND-IND        PIC X.
059400         05  P-NEW-STATE-CODE               PIC 9(02).
059500         05  P-NEW-STATE-CODE-X REDEFINES
059600             P-NEW-STATE-CODE               PIC X(02).
059700         05  FILLER                         PIC X(03).
059800     02  PROV-NEWREC-HOLD2.
059900         05  P-NEW-VARIABLES.
060000             10  P-NEW-CMI-ADJ-CPD       PIC  9(05)V9(02).
060100             10  P-NEW-COLA              PIC  9(01)V9(03).
060200             10  P-NEW-INTERN-RATIO      PIC  9(01)V9(04).
060300             10  P-NEW-BED-SIZE          PIC  9(05).
060400             10  P-NEW-CCR               PIC  9(01)V9(03).
060500             10  P-NEW-CMI               PIC  9(01)V9(04).
060600             10  P-NEW-SSI-RATIO         PIC  V9(04).
060700             10  P-NEW-MEDICAID-RATIO    PIC  V9(04).
060800             10  P-NEW-PPS-BLEND-YR-IND  PIC  X(01).
060900             10  P-NEW-PRUP-UPDTE-FACTOR PIC  9(01)V9(05).
061000             10  P-NEW-DSH-PERCENT       PIC  V9(04).
061100             10  P-NEW-FYE-DATE.
061200                 15  P-NEW-FYE-CC        PIC 99.
061300                 15  P-NEW-FYE-YY        PIC 99.
061400                 15  P-NEW-FYE-MM        PIC 99.
061500                 15  P-NEW-FYE-DD        PIC 99.
061600         05  P-NEW-CBSA-DATA.
061700             10  P-NEW-CBSA-SPEC-PAY-IND    PIC X.
061800                 88  P-NEW-CBSA-WI-GEO        VALUE 'N'.
061900                 88  P-NEW-CBSA-WI-RECLASS    VALUE 'Y'.
062000                 88  P-NEW-CBSA-WI-SPECIAL    VALUE '1' '2'.
062100***                  1 = ANYTHING OR HOLD HARMLESS WITH SPEC WI
062200***                  2 = RECLASS WITH SPEC WI
062300                 88  P-NEW-CBSA-WI-DUAL       VALUE 'D'.
062400                 88  P-NEW-CBSA-WI-BLANK      VALUE ' ' '0'.
062500             10  P-NEW-CBSA-HOSP-QUAL-IND  PIC X.
062600                 88  P-NEW-CBSA-HOSP-QUAL-MET   VALUE '1'.
062700                 88  P-NEW-CBSA-HOSP-QUAL-25PER VALUE '2'.
062800                 88  P-NEW-CBSA-HOSP-QUAL-BOTH  VALUE '3'.
062900             10  P-NEW-CBSA-GEO-LOC        PIC X(05) JUST RIGHT.
063000             10  P-NEW-CBSA-GEO-LOC9  REDEFINES
063100                             P-NEW-CBSA-GEO-LOC  PIC 9(05).
063200             10  P-NEW-CBSA-GEO-LOC-AST REDEFINES
063300                             P-NEW-CBSA-GEO-LOC9.
063400                 15  P-NEW-CBSA-GEO-1ST    PIC X.
063500                 15  P-NEW-CBSA-GEO-2ND    PIC X.
063600                 15  P-NEW-CBSA-GEO-3RD    PIC X.
063700                 15  P-NEW-CBSA-GEO-4TH    PIC X.
063800                 15  P-NEW-CBSA-GEO-5TH    PIC X.
063900             10  P-NEW-CBSA-RECLASS-LOC    PIC X(05) JUST RIGHT.
064000             10  P-NEW-CBSA-STAND-AMT-LOC  PIC X(05) JUST RIGHT.
064100             10  P-NEW-CBSA-STAND-AMT-LOC-MSA9
064200       REDEFINES P-NEW-CBSA-STAND-AMT-LOC.
064300               15  P-NEW-CBSA-RURAL-1ST.
064400                   20  P-NEW-CBSA-STAND-RURAL  PIC XXX.
064500                      88  P-NEW-CBSA-STD-RURAL-CHECK VALUE '   '.
064600               15  P-NEW-CBSA-RURAL-2ND    PIC XX.
064700             10  P-NEW-CBSA-SPEC-WI          PIC 9(02)V9(04).
064800             10  P-NEW-CBSA-SPEC-WI-N  REDEFINES
064900                 P-NEW-CBSA-SPEC-WI          PIC 9(06).
065000     02  PROV-NEWREC-HOLD3.
065100         05  P-NEW-PASS-AMT-DATA.
065200             10  P-NEW-PASS-AMT-CAPITAL    PIC 9(04)V99.
065300             10  P-NEW-PASS-AMT-DIR-MED-ED PIC 9(04)V99.
065400             10  P-NEW-PASS-AMT-ORGAN-ACQ  PIC 9(04)V99.
065500             10  P-NEW-PASS-AMT-PLUS-MISC  PIC 9(04)V99.
065600         05  P-NEW-CAPI-DATA.
065700             15  P-NEW-CAPI-PPS-PAY-CODE   PIC X.
065800             15  P-NEW-CAPI-HOSP-SPEC-RATE PIC 9(04)V99.
065900             15  P-NEW-CAPI-OLD-HARM-RATE  PIC 9(04)V99.
066000             15  P-NEW-CAPI-NEW-HARM-RATIO PIC 9(01)V9999.
066100             15  P-NEW-CAPI-CSTCHG-RATIO   PIC 9V999.
066200             15  P-NEW-CAPI-NEW-HOSP       PIC X.
066300             15  P-NEW-CAPI-IME            PIC 9V9999.
066400             15  P-NEW-CAPI-EXCEPTIONS     PIC 9(04)V99.
066500         05  P-NEW-HVBP-HRR-DATA.
066600             15  P-NEW-VAL-BASED-PURCH-PARTIPNT PIC X.
066700             15  P-NEW-VAL-BASED-PURCH-ADJUST   PIC 9V9(11).
066800             15  P-NEW-HOSP-READMISSION-REDU    PIC X.
066900             15  P-NEW-HOSP-HRR-ADJUSTMT        PIC 9V9(4).
067000         05  P-MODEL1-BUNDLE-DATA.
067100             15  P-MODEL1-BUNDLE-DISPRCNT   PIC V999.
067200             15  P-HAC-REDUC-IND            PIC X.
067300             15  P-UNCOMP-CARE-AMOUNT       PIC 9(07)V99.
067400             15  P-NEW-EHR-REDUC-INDN           PIC X.
067500             15  P-LV-ADJ-FACTOR            PIC 9V9(6).
067600         05  P-NEW-COUNTY-CODE              PIC 9(05).
067700         05  P-NEW-COUNTY-CODE-X REDEFINES
067800             P-NEW-COUNTY-CODE              PIC X(05).
067900         05  FILLER                         PIC X(47).
068000*
068100**************************************************************
068200*      THIS IS THE PROV-RECORD THAT WILL BE PASSED TO        *
068300*      THE PPCAL984 PROGRAM AND PRIOR PPCAL MODULES          *
068400*      FOR PROCESSING --- OLD PSF FORMAT                     *
068500**************************************************************
068600 01  PROV-HOLD.
068700     02  PROV-REC-HOLD1.
068800         05  P-PROVIDER-NO.
068900             10  P-STATE                PIC X(02).
069000             10  FILLER                 PIC X(04).
069100         05  P-EFF-DATE.
069200             10  P-EFF-YY               PIC 9(02).
069300             10  P-EFF-MM               PIC 9(02).
069400             10  P-EFF-DD               PIC 9(02).
069500         05  P-WAIVER-CODE              PIC X(01).
069600             88  WAIVER-STATE           VALUE 'Y'.
069700         05  P-PROVIDER-TYPE            PIC X(02).
069800             88  SOLE-COMMUNITY-PROV    VALUE '01' '11'.
069900             88  REFERRAL-CENTER        VALUE '07' '11' '15' '17'.
070000             88  INDIAN-HEALTH-SERVICE  VALUE '08'.
070100             88  REDESIGNATED-RURAL-YR1 VALUE '09'.
070200             88  REDESIGNATED-RURAL-YR2 VALUE '10'.
070300             88  SOLE-COM-REF-CENT      VALUE '11'.
070400             88  MDH-REBASED-FY90       VALUE '14' '15'.
070500             88  MDH-RRC-REBASED-FY90   VALUE '15'.
070600             88  SCH-REBASED-FY90       VALUE '16' '17'.
070700             88  SCH-RRC-REBASED-FY90   VALUE '17'.
070800             88  MEDICAL-ASSIST-FACIL   VALUE '18'.
070900             88  EACH                   VALUE '21'.
071000             88  EACH-REF-CTR           VALUE '22'.
071100         05  P-CURRENT-CENSUS-DIV       PIC 9(01).
071200             88  NEW-ENGLAND            VALUE  1.
071300             88  MIDDLE-ATLANTIC        VALUE  2.
071400             88  SOUTH-ATLANTIC         VALUE  3.
071500             88  EAST-NORTH-CENTRAL     VALUE  4.
071600             88  EAST-SOUTH-CENTRAL     VALUE  5.
071700             88  WEST-NORTH-CENTRAL     VALUE  6.
071800             88  WEST-SOUTH-CENTRAL     VALUE  7.
071900             88  MOUNTAIN               VALUE  8.
072000             88  PACIFIC                VALUE  9.
072100         05  P-PPS-BLEND-YEAR           PIC 9(01).
072200             88  VALID-PPS-BLEND-YEAR   VALUE 0 THRU 9.
072300         05  P-MSA-X.
072400             10  P-RURAL                PIC X(04).
072500                 88  RURAL              VALUE   '9999'.
072600         05  P-MSA-9 REDEFINES P-MSA-X  PIC 9(04).
072700         05  P-FISCAL-YEAR-END.
072800             10  P-MM                   PIC 9(02).
072900             10  P-DD                   PIC 9(02).
073000             10  P-YY                   PIC 9(02).
073100         05  P-VARIABLES.
073200             10  P-CMI-ADJ-CPD          PIC S9(05)V9(02).
073300             10  P-COLA                 PIC S9(01)V9(03).
073400             10  P-INTERN-RATIO         PIC S9(01)V9(04).
073500             10  PRUP-UPDT-FACTOR       PIC S9(01)V9(05).
073600             10  P-BED-SIZE             PIC  9(05).
073700             10  P-DSH-PERCENT          PIC V9(04).
073800             10  P-CCR                  PIC  9(01)V9(03).
073900             10  P-CMI                  PIC  9(01)V9(04).
074000             10  FILLER                 PIC  9(01).
074100             10  P-REPORT-DATE          PIC  9(06).
074200             10  FILLER                 PIC  9(01).
074300             10  P-INTER-NO             PIC  9(05).
074400     02  PROV-REC-HOLD2.
074500         05  P-FY-BEGIN-DATE            PIC 9(6).
074600         05  P-PASS-AMT-CAPITAL         PIC 9(4)V99.
074700         05  P-PASS-AMT-DIR-MED-ED      PIC 9(4)V99.
074800         05  P-PASS-AMT-ORGAN-ACQ       PIC 9(4)V99.
074900         05  P-PASS-AMT-PLUS-MISC       PIC 9(4)V99.
075000         05  P-SSI-RATIO                PIC V9(4).
075100         05  P-MEDICAID-RATIO           PIC V9(4).
075200         05  P-TERMINATION-DATE         PIC X(6).
075300         05  P-WAGE-INDEX-LOC-MSA       PIC X(4).
075400         05  P-CHG-CODE-INDEX           PIC X.
075500         05  P-STAND-AMT-LOC-MSA.
075600             10  P-RURAL-1ST.
075700                 88  P-RURAL-CHECK        VALUE '  '.
075800                 15  P-STAND-RURAL      PIC XX.
075900             10  P-RURAL-2ND            PIC XX.
076000         05  P-CAPI-SOL-HOSP-RATE       PIC XX.
076100         05  P-LUGAR                    PIC X.
076200         05  P-TEMP-RELIEF-IND          PIC X.
076300         05  FILLER                     PIC X(23).
076400     02  PROV-REC-HOLD3.
076500         05  P-CAPI-PPS-PAY-CODE        PIC X.
076600         05  P-CAPI-HOSP-SPEC-RATE      PIC 9(4)V99.
076700         05  P-CAPI-OLD-HARM-RATE       PIC 9(4)V99.
076800         05  P-CAPI-NEW-HARM-RATIO      PIC 9(1)V9999.
076900         05  P-CAPI-CSTCHG-RATIO        PIC 9V999.
077000         05  P-CAPI-NEW-HOSP            PIC X.
077100         05  P-CAPI-IME                 PIC 9V9999.
077200         05  P-CAPI-EXCEPTIONS          PIC 9(4)V99.
077300         05  P-HVBP-HRR-DATA.
077400             15  P-VAL-BASED-PURCH-PARTIPNT PIC X.
077500             15  P-VAL-BASED-PURCH-ADJUST   PIC 9V9(11).
077600             15  P-HOSP-READMISSION-REDU    PIC X.
077700             15  P-HOSP-HRR-ADJUSTMT        PIC 9V9(4).
077800         05  FILLER                         PIC X(04).
077900
078000************************************************************************
078100* OLD BILL FORMAT                                                      *
078200*                                                                      *
078300* THIS IS THE BILL-RECORD THAT WILL BE PASSED TO THE PPCAL983 PROGRAM  *
078400* AND PRIOR PPCAL MODULES FOR PROCESSING.                              *
078500*                                                                      *
078600* B-CHARGES-CLAIMED = TOTAL COVERED CHARGES ON THE 0001 (TOTALS        *
078700* LINE) MINUS BLOOD CLOT COST, KIDNEY COSTS, ACQUISITION COSTS AND     *
078800* TECHNICAL PROVIDER CHARGES.                                          *
078900************************************************************************
079000 01  BILL-DATA.
079100         10  B-PROVIDER-NO          PIC X(06).
079200         10  B-REVIEW-CODE          PIC 9(02).
079300             88  VALID-REVIEW-CODE     VALUE 00 THRU 08.
079400             88  PAY-WITH-OUTLIER      VALUE 00 07.
079500             88  PAY-DAYS-OUTLIER      VALUE 01.
079600             88  PAY-COST-OUTLIER      VALUE 02.
079700             88  PAY-PERDIEM-DAYS      VALUE 03.
079800             88  PAY-AVG-STAY-ONLY     VALUE 04.
079900             88  PAY-XFER-WITH-COST    VALUE 05.
080000             88  PAY-XFER-NO-COST      VALUE 06.
080100             88  PAY-WITHOUT-COST      VALUE 07.
080200             88  PAY-DRG-480           VALUE 08.
080300         10  B-DRG                  PIC 9(03).
080400         10  B-LOS                  PIC 9(03).
080500         10  B-COVERED-DAYS         PIC 9(03).
080600         10  B-LTR-DAYS             PIC 9(02).
080700         10  B-DISCHARGE-DATE.
080800             15  B-DISCHG-MM        PIC 9(02).
080900             15  B-DISCHG-DD        PIC 9(02).
081000             15  B-DISCHG-YY        PIC 9(02).
081100         10  B-CHARGES-CLAIMED      PIC 9(07)V9(02).
081200
081300****************************************************************
081400* OLD PPS-ADDITIONAL-VARIABLES FORMAT - PRE FY 2013            *
081500*                                                              *
081600* THIS IS THE PPS-ADDITIONAL-VARIABLES FORMAT WHICH IS PASSED  *
081700* TO THE PPCAL04E THROUGH PPCAL125 MODULES FOR PROCESSING.     *
081800* RECORD LENGTH: 1320                                          *
081900* TRANSFER ADJ. IS 9(01)V9(05)                                 *
082000* THIS RECORD WILL FILL PPS-ADDITIONAL-VARIABLES AFTER         *
082100* RETURNING FROM PPCAL FOR RETURN TO FISS.                     *
082200****************************************************************
082300 01  PPS-ADDITIONAL-VARIABLES-PRE13.
082400     02  PPS-VARIABLES-SECTION1-PRE13     PIC X(218).
082500     02  PPS-VARIABLES-SECTION2-PRE13.
082600         05  PPS-OTHER-VARIABLES-PRE13.
082700             10  PPS-NON-TEMP-RELIEF-PMT-PRE13    PIC 9(07)V9(02).
082800             10  PPS-NEW-TECH-PAY-ADD-ON-PRE13    PIC 9(07)V9(02).
082900             10  PPS-LOW-VOL-PAYMENT-PRE13        PIC 9(07)V9(02).
083000     02  PPS-VARIABLES-SECTION3-PRE13     PIC X(1075).
083100
083200****************************************************************
083300* OLD PPS-ADDITIONAL-VARIABLES FORMAT - FY 2013 & FY 2014      *
083400*                                                              *
083500* THIS IS THE PPS-ADDITIONAL-VARIABLES FORMAT WHICH IS PASSED  *
083600* TO THE PPCAL135 AND PPCAL14B MODULES FOR PROCESSING.         *
083700* RECORD LENGTH: 1319                                          *
083800* TRANSFER ADJ. IS 9(01)V9(04)                                 *
083900* THIS RECORD WILL FILL PPS-ADDITIONAL-VARIABLES AFTER         *
084000* RETURNING FROM PPCAL FOR RETURN TO FISS.                     *
084100****************************************************************
084200 01  PPS-ADDITIONAL-VARIABLES-1314.
084300     02  PPS-VARIABLES-SECTION1-1314      PIC X(218).
084400     02  PPS-VARIABLES-SECTION2-1314.
084500         05  PPS-OTHER-VARIABLES-1314.
084600             10  PPS-NON-TEMP-RELIEF-PMT-1314     PIC 9(07)V9(02).
084700             10  PPS-NEW-TECH-PAY-ADD-ON-1314     PIC 9(07)V9(02).
084800             10  PPS-LOW-VOL-PAYMENT-1314         PIC 9(07)V9(02).
084900     02  PPS-VARIABLES-SECTION3-1314      PIC X(1074).
085000
085100 LINKAGE SECTION.
085200
085300************************************************************************
085400* NEW BILL FORMAT (MILLINNIUM COMPATIBLE)                              *
085500*                                                                      *
085600* THIS IS THE BILL-RECORD THAT WILL BE PASSED TO THE PPCAL001 PROGRAM  *
085700* AND AFTER FOR PROCESSING IN THE NEW FORMAT.                          *
085800*                                                                      *
085900* B-N-CHARGES-CLAIMED = TOTAL COVERED CHARGES ON THE 0001 (TOTALS      *
086000* LINE) MINUS BLOOD CLOT COST, KIDNEY COSTS, ACQUISITION COSTS AND     *
086100* TECHNICAL PROVIDER CHARGES.                                          *
086200************************************************************************
086300 01  BILL-NEW-DATA.
086400         10  B-N-NPI10.
086500            15  B-N-NPI8              PIC X(08).
086600            15  B-N-NPI-FILLER        PIC X(02).
086700         10  B-N-PROVIDER-NO          PIC X(06).
086800         10  B-N-REVIEW-CODE          PIC 9(02).
086900             88  N-VALID-REVIEW-CODE    VALUE 00 THRU 09 11.
087000             88  N-PAY-WITH-OUTLIER     VALUE 00 07.
087100             88  N-PAY-DAYS-OUTLIER     VALUE 01.
087200             88  N-PAY-COST-OUTLIER     VALUE 02.
087300             88  N-PAY-PERDIEM-DAYS     VALUE 03.
087400             88  N-PAY-AVG-STAY-ONLY    VALUE 04.
087500             88  N-PAY-XFER-WITH-COST   VALUE 05.
087600             88  N-PAY-XFER-NO-COST     VALUE 06.
087700             88  N-PAY-WITHOUT-COST     VALUE 07.
087800             88  N-PAY-DRG-480          VALUE 08.
087900             88  N-PAY-XFER-SPEC-DRG    VALUE 09 11.
088000             88  N-PAY-XFER-SPEC-DRG-NO-COST VALUE 11.
088100         10  B-N-DRG                  PIC 9(03).
088200         10  B-N-LOS                  PIC 9(03).
088300         10  B-N-COVERED-DAYS         PIC 9(03).
088400         10  B-N-LTR-DAYS             PIC 9(02).
088500         10  B-N-DISCHARGE-DATE.
088600             15  B-N-DISCHG-CC        PIC 9(02).
088700             15  B-N-DISCHG-YY        PIC 9(02).
088800             15  B-N-DISCHG-MM        PIC 9(02).
088900             15  B-N-DISCHG-DD        PIC 9(02).
089000         10  B-N-CHARGES-CLAIMED      PIC 9(07)V9(02).
089100         10  B-N-PRIN-PROC-CODE       PIC X(07).
089200         10  B-N-OTHER-PROC-CODE1     PIC X(07).
089300         10  B-N-OTHER-PROC-CODE2     PIC X(07).
089400         10  B-N-OTHER-PROC-CODE3     PIC X(07).
089500         10  B-N-OTHER-PROC-CODE4     PIC X(07).
089600         10  B-N-OTHER-PROC-CODE5     PIC X(07).
089700         10  B-N-OTHER-PROC-CODE6    PIC X(07).
089800         10  B-N-OTHER-PROC-CODE7    PIC X(07).
089900         10  B-N-OTHER-PROC-CODE8    PIC X(07).
090000         10  B-N-OTHER-PROC-CODE9    PIC X(07).
090100         10  B-N-OTHER-PROC-CODE10   PIC X(07).
090200         10  B-N-OTHER-PROC-CODE11   PIC X(07).
090300         10  B-N-OTHER-PROC-CODE12   PIC X(07).
090400         10  B-N-OTHER-PROC-CODE13   PIC X(07).
090500         10  B-N-OTHER-PROC-CODE14   PIC X(07).
090600         10  B-N-OTHER-PROC-CODE15   PIC X(07).
090700         10  B-N-OTHER-PROC-CODE16   PIC X(07).
090800         10  B-N-OTHER-PROC-CODE17   PIC X(07).
090900         10  B-N-OTHER-PROC-CODE18   PIC X(07).
091000         10  B-N-OTHER-PROC-CODE19   PIC X(07).
091100         10  B-N-OTHER-PROC-CODE20   PIC X(07).
091200         10  B-N-OTHER-PROC-CODE21   PIC X(07).
091300         10  B-N-OTHER-PROC-CODE22   PIC X(07).
091400         10  B-N-OTHER-PROC-CODE23   PIC X(07).
091500         10  B-N-OTHER-PROC-CODE24   PIC X(07).
091600         10  B-N-OTHER-DIAG-CODE1   PIC X(07).
091700         10  B-N-OTHER-DIAG-CODE2   PIC X(07).
091800         10  B-N-OTHER-DIAG-CODE3   PIC X(07).
091900         10  B-N-OTHER-DIAG-CODE4   PIC X(07).
092000         10  B-N-OTHER-DIAG-CODE5   PIC X(07).
092100         10  B-N-OTHER-DIAG-CODE6   PIC X(07).
092200         10  B-N-OTHER-DIAG-CODE7   PIC X(07).
092300         10  B-N-OTHER-DIAG-CODE8   PIC X(07).
092400         10  B-N-OTHER-DIAG-CODE9   PIC X(07).
092500         10  B-N-OTHER-DIAG-CODE10  PIC X(07).
092600         10  B-N-OTHER-DIAG-CODE11  PIC X(07).
092700         10  B-N-OTHER-DIAG-CODE12  PIC X(07).
092800         10  B-N-OTHER-DIAG-CODE13  PIC X(07).
092900         10  B-N-OTHER-DIAG-CODE14  PIC X(07).
093000         10  B-N-OTHER-DIAG-CODE15  PIC X(07).
093100         10  B-N-OTHER-DIAG-CODE16  PIC X(07).
093200         10  B-N-OTHER-DIAG-CODE17  PIC X(07).
093300         10  B-N-OTHER-DIAG-CODE18  PIC X(07).
093400         10  B-N-OTHER-DIAG-CODE19  PIC X(07).
093500         10  B-N-OTHER-DIAG-CODE20  PIC X(07).
093600         10  B-N-OTHER-DIAG-CODE21  PIC X(07).
093700         10  B-N-OTHER-DIAG-CODE22  PIC X(07).
093800         10  B-N-OTHER-DIAG-CODE23  PIC X(07).
093900         10  B-N-OTHER-DIAG-CODE24  PIC X(07).
094000         10  B-N-OTHER-DIAG-CODE25  PIC X(07).
094100         10  B-N-DEMO-DATA.
094200             15  B-N-DEMO-CODE1        PIC X(02).
094300             15  B-N-DEMO-CODE2        PIC X(02).
094400             15  B-N-DEMO-CODE3        PIC X(02).
094500             15  B-N-DEMO-CODE4        PIC X(02).
094600         10  B-N-NDC-DATA.
094700             15  B-N-NDC-NUMBER        PIC X(11).
094800         10  FILLER                     PIC X(73).
094900
095000
095100 01  PPS-DATA.
095200         10  PPS-RTC                PIC 9(02).
095300         10  PPS-WAGE-INDX          PIC 9(02)V9(04).
095400         10  PPS-OUTLIER-DAYS       PIC 9(03).
095500         10  PPS-AVG-LOS            PIC 9(02)V9(01).
095600         10  PPS-DAYS-CUTOFF        PIC 9(02)V9(01).
095700         10  PPS-OPER-IME-ADJ       PIC 9(06)V9(02).
095800         10  PPS-TOTAL-PAYMENT      PIC 9(07)V9(02).
095900         10  PPS-OPER-HSP-PART      PIC 9(06)V9(02).
096000         10  PPS-OPER-FSP-PART      PIC 9(06)V9(02).
096100         10  PPS-OPER-OUTLIER-PART  PIC 9(07)V9(02).
096200         10  PPS-REG-DAYS-USED      PIC 9(03).
096300         10  PPS-LTR-DAYS-USED      PIC 9(02).
096400         10  PPS-OPER-DSH-ADJ       PIC 9(06)V9(02).
096500         10  PPS-CALC-VERS          PIC 9(05).
096600
096700 01  PRICER-OPT-VERS-SW.
096800     02  PRICER-OPTION-SW               PIC X(01).
096900         88  ALL-TABLES-PASSED          VALUE 'A'.
097000         88  PROV-RECORD-PASSED         VALUE 'P'.
097100         88  ADDITIONAL-VARIABLES       VALUE 'M'.
097200     02  PPS-VERSIONS.
097300         10  PPDRV-VERSION              PIC X(05).
097400
097500 01  PPS-ADDITIONAL-VARIABLES.
097600     02  PPS-VARIABLES-SECTION1.
097700         05  PPS-HSP-PCT                PIC 9(01)V9(02).
097800         05  PPS-FSP-PCT                PIC 9(01)V9(02).
097900         05  PPS-NAT-PCT                PIC 9(01)V9(02).
098000         05  PPS-REG-PCT                PIC 9(01)V9(02).
098100         05  PPS-CMI-ADJ-CPD            PIC 9(05)V9(02).
098200         05  PPS-UPDATE-FACTOR          PIC 9(01)V9(05).
098300         05  PPS-DRG-WT                 PIC 9(02)V9(04).
098400         05  PPS-NAT-LABOR              PIC 9(05)V9(02).
098500         05  PPS-NAT-NLABOR             PIC 9(05)V9(02).
098600         05  PPS-REG-LABOR              PIC 9(05)V9(02).
098700         05  PPS-REG-NLABOR             PIC 9(05)V9(02).
098800         05  PPS-OPER-COLA              PIC 9(01)V9(03).
098900         05  PPS-INTERN-RATIO           PIC 9(01)V9(04).
099000         05  PPS-OPER-OUTLIER           PIC 9(07)V9(09).
099100         05  PPS-OPER-BILL-COSTS        PIC 9(07)V9(09).
099200         05  PPS-OPER-DOLLAR-THRESHOLD  PIC 9(07)V9(09).
099300         05  PPS-DSCHG-FRCTN            PIC 9(1)V9999.
099400         05  PPS-DRG-WT-FRCTN           PIC 9(2)V9999.
099500         05  PPS-CAPITAL-VARIABLES.
099600             10  PPS-CAPI-TOTAL-PAY         PIC S9(07)V9(02).
099700             10  PPS-CAPI-HSP               PIC S9(07)V9(02).
099800             10  PPS-CAPI-FSP               PIC S9(07)V9(02).
099900             10  PPS-CAPI-OUTLIER           PIC S9(07)V9(02).
100000             10  PPS-CAPI-OLD-HARM          PIC S9(07)V9(02).
100100             10  PPS-CAPI-DSH-ADJ           PIC S9(07)V9(02).
100200             10  PPS-CAPI-IME-ADJ           PIC S9(07)V9(02).
100300             10  PPS-CAPI-EXCEPTIONS        PIC S9(07)V9(02).
100400         05  PPS-CAPITAL2-VARIABLES.
100500             10  PPS-CAPI2-PAY-CODE          PIC X(1).
100600             10  PPS-CAPI2-B-FSP             PIC S9(07)V9(02).
100700             10  PPS-CAPI2-B-OUTLIER         PIC S9(07)V9(02).
100800     02  PPS-VARIABLES-SECTION2.
100900         05  PPS-OTHER-VARIABLES.
101000             10  PPS-NON-TEMP-RELIEF-PAYMENT PIC 9(07)V9(02).
101100             10  PPS-NEW-TECH-PAY-ADD-ON     PIC 9(07)V9(02).
101200             10  PPS-ISLET-ISOL-PAY-ADD-ON   PIC 9(07)V9(02).
101300             10  PPS-LOW-VOL-PAYMENT         PIC 9(07)V9(02).
101400     02  PPS-VARIABLES-SECTION3.
101500         05  PPS-HVBP-HRR-DATA.
101600             10  PPS-VAL-BASED-PURCH-PARTIPNT PIC X.
101700             10  PPS-VAL-BASED-PURCH-ADJUST   PIC 9V9(11).
101800             10  PPS-HOSP-READMISS-REDUCTN    PIC X.
101900             10  PPS-HOSP-HRR-ADJUSTMT        PIC 9V9(4).
102000         05  PPS-OPERATNG-DATA.
102100             10  PPS-MODEL1-BUNDLE-DISPRCNT  PIC V999.
102200             10  PPS-OPER-BASE-DRG-PAY       PIC 9(08)V99.
102300             10  PPS-OPER-HSP-AMT            PIC 9(08)V99.
102400        10  PPS-PC-VARIABLES.
102500             15  PPS-OPER-DSH                PIC 9(01)V9(04).
102600             15  PPS-CAPI-DSH                PIC 9(01)V9(04).
102700             15  PPS-CAPI-HSP-PCT            PIC 9(01)V9(02).
102800             15  PPS-CAPI-FSP-PCT            PIC 9(01)V9(04).
102900             15  PPS-ARITH-ALOS              PIC 9(02)V9(01).
103000             15  PPS-PR-WAGE-INDEX           PIC 9(02)V9(04).
103100             15  PPS-TRANSFER-ADJ            PIC 9(01)V9(04).
103200             15  PPS-PC-HMO-FLAG             PIC X(01).
103300             15  PPS-PC-COT-FLAG             PIC X(01).
103400             15  PPS-OPER-HSP-PART2          PIC 9(07)V9(02).
103500             15  PPS-BUNDLE-ADJUST-AMT       PIC S9(07)V99.
103600        10  PPS-ADDITIONAL-PAY-INFO-DATA.
103700             15  PPS-UNCOMP-CARE-AMOUNT         PIC S9(07)V9(02).
103800             15  PPS-BUNDLE-ADJUST-AMT          PIC S9(07)V9(02).
103900             15  PPS-VAL-BASED-PURCH-ADJUST-AMT PIC S9(07)V9(02).
104000             15  PPS-READMIS-ADJUST-AMT         PIC S9(07)V9(02).
104100        10  PPS-ADDITIONAL-PAY-INFO-DATA2.
104200             15  PPS-HAC-PROG-REDUC-IND         PIC X.
104300             15  PPS-EHR-PROG-REDUC-IND         PIC X.
104400             15  PPS-EHR-ADJUST-AMT             PIC S9(07)V9(02).
104500             15  PPS-STNDRD-VALUE               PIC S9(07)V9(02).
104600             15  PPS-HAC-PAYMENT-AMT            PIC S9(07)V9(02).
104700             15  PPS-FLX7-PAYMENT               PIC S9(07)V9(02).
104800        10  PPS-FILLER                          PIC X(0897).
104900*******************************************************
105000
105100 01  PROV-RECORD.
105200     05  PROV-RECORD1               PIC X(80).
105300     05  PROV-RECORD2               PIC X(80).
105400     05  PROV-RECORD3               PIC X(150).
105500
105600 01  MSAX-WI-TABLE.
105700     05  M-MSAX-DATA                OCCURS 9000
105800                                    INDEXED BY MU1 MU2 MU3.
105900         10  M-MSAX-MSA             PIC X(4).
106000         10  M-MSAX-SIZE            PIC X(01).
106100         10  M-MSAX-EFF-DATE        PIC X(08).
106200         10  M-MSAX-WAGE-INDX1      PIC S9(02)V9(04).
106300         10  M-MSAX-WAGE-INDX2      PIC S9(02)V9(04).
106400
106500 01  CBSA-WI-TABLE.
106600     05  T-CBSA-DATA                  OCCURS 7000
106700                                    INDEXED BY MA1 MA2 MA3.
106800         10  T-CBSA                   PIC X(5).
106900         10  T-CBSA-SIZE              PIC X(01).
107000         10  T-CBSA-EFF-DATE          PIC X(08).
107100         10  T-CBSA-WAGE-INDX1        PIC S9(02)V9(04).
107200         10  T-CBSA-WAGE-INDX2        PIC S9(02)V9(04).
107300
107400*******************************************************
107500*    HOLD VARIABLES POPULATED IN PPCAL___***          *
107600*******************************************************
107700 COPY PPHOLDAR.
107800
107900**YEARCHANGE 2015.2             **********************
108000*****************************************************************
108100 PROCEDURE DIVISION  USING BILL-NEW-DATA
108200                           PPS-DATA
108300                           PRICER-OPT-VERS-SW
108400                           PPS-ADDITIONAL-VARIABLES
108500                           PROV-RECORD
108600                           MSAX-WI-TABLE
108700                           CBSA-WI-TABLE
108800                           PPHOLDAR-HOLD-AREA.
108900
109000*****************************************************************
109100*    PROCESSING:
109200*        A. THIS MODULE WILL CALL THE PPCAL MODULES.
109300*        B. THE PROV-RECORD AND WAGE-INDEX-RECORD ASSOCIATED WITH
109400*           EACH BILL WILL BE PASSED TO THE PPCAL PROGRAMS.
109500*****************************************************************
109600
109700     MOVE DRV-VERSION TO PPDRV-VERSION.
109800
109900     MOVE ALL '0' TO PPS-DATA.
110000     MOVE ALL '0' TO PPS-ADDITIONAL-VARIABLES-PRE13.
110100     MOVE ALL '0' TO PPS-ADDITIONAL-VARIABLES-1314.
110200     MOVE ALL '0' TO PPS-ADDITIONAL-VARIABLES.
110300
110400*    MOVE ZEROES  TO W-PR-INDEX-RECORD
110500*                    W-NEW-INDEX-RECORD
110600*                    W-NEW-PR-INDEX-RECORD
110700*                    W-NEW-CBSA-PR-WI
110800*                    W-NEW-CBSA-WI
110900*                    W-RURAL-CBSA-WI
111000*                    W-RURAL-CBSA-PR-WI
111100
111200*****************************************************************
111300
111400     INITIALIZE WAGE-NEW-INDEX-RECORD
111500                WAGE-NEW-CBSA-INDEX-RECORD
111600                WAGE-RURAL-CBSA-INDEX-RECORD
111700                WAGE-INDEX-RECORD
111800                MESWK-PRSPC-WAGEIN-BLEND
111900                HOLD-OUTM-DATA.
112000
112100     INITIALIZE PPHOLDAR-HOLD-AREA.
112200
112300     INITIALIZE W-FY-BEGIN-CC
112400                W-FY-BEGIN-YY
112500                W-FY-END-CC
112600                W-FY-END-YY.
112700
112800     MOVE PROV-RECORD TO PROV-NEW-HOLD.
112900
113000*----------------------------------------------------------*
113100* SET FY BEGIN AND END DATES USING BILL DISCHARGE DATE     *
113200*----------------------------------------------------------*
113300           MOVE B-N-DISCHG-CC TO W-FY-BEGIN-CC.
113400           MOVE B-N-DISCHG-CC TO W-FY-END-CC.
113500
113600*----------------------------------*
113700* FOR CLAIMS DISCHARGED JAN - SEPT *
113800*----------------------------------*
113900     IF B-N-DISCHG-MM >= 01 AND
114000        B-N-DISCHG-MM <= 09
114100        COMPUTE W-FY-BEGIN-YY = B-N-DISCHG-YY - 1
114200        MOVE B-N-DISCHG-YY TO W-FY-END-YY
114300
114400*----------------------------------*
114500* FOR CLAIMS DISCHARGED OCT - DEC  *
114600*----------------------------------*
114700     ELSE
114800        MOVE B-N-DISCHG-YY TO W-FY-BEGIN-YY
114900        COMPUTE W-FY-END-YY = B-N-DISCHG-YY + 1
115000        END-IF.
115100
115200*****************************************************************
115300
115400***     RTC = 98 >> A BILL OLDER THEN 20021001
115500***
115600***   THIS NEXT STATEMENT WILL ONLY ALLOW
115700***      THE LATEST 5 YEARS TO PROCESS
115800***
115900
116000***  IF B-N-DISCHARGE-DATE < 20021001
116100***          MOVE ALL '0' TO  PPS-ADDITIONAL-VARIABLES
116200***          MOVE 98 TO PPS-RTC
116300***          GOBACK.
116400***
116500*****************************************************************
116600
116700*EHR INDICATOR CHECK FOR 2015 FORWARD
116800
116900 CHECK-EHR-IND.
117000     IF B-N-DISCHARGE-DATE > 20140930 AND
117100        (P-NEW-EHR-REDUC-INDN NOT = 'Y' AND
117200         P-NEW-EHR-REDUC-INDN NOT = ' ')
117300           MOVE 65 TO PPS-RTC
117400             GOBACK
117500     END-IF.
117600
117700 0030-GET-WAGE-INDEX.
117800***  GET THE WAGE-INDEX
117900
118000     IF B-N-DISCHARGE-DATE > 19990930 AND
118100        B-N-DISCHARGE-DATE < 20001001
118200      IF (P-NEW-CHG-CODE-INDEX = 'Y' AND
118300          P-NEW-GEO-LOC-MSAX = P-NEW-WAGE-INDEX-LOC-MSA)
118400          AND (P-NEW-GEO-LOC-MSAX NOT = '1600' AND NOT = '3285'
118500                            AND   NOT = '5600' AND NOT = '1520'
118600                            AND   NOT = '1640' AND NOT = '0240'
118700                            AND   NOT = '3360' AND NOT = '1123')
118800          MOVE ALL '0' TO PPS-ADDITIONAL-VARIABLES
118900          MOVE 52 TO PPS-RTC
119000          GOBACK.
119100
119200     IF P-NEW-EFF-DATE < 20041001
119300        IF '*' = P-NEW-GEO-MSA-1ST OR
119400                 P-NEW-GEO-MSA-2ND OR
119500                 P-NEW-GEO-MSA-3RD OR
119600                 P-NEW-GEO-MSA-4TH
119700         MOVE ALL '0' TO PPS-ADDITIONAL-VARIABLES
119800         MOVE 52 TO PPS-RTC
119900         GOBACK.
120000
120100     IF P-NEW-EFF-DATE < 20041001 AND
120200        B-N-DISCHARGE-DATE > 20040930
120300        MOVE ALL '0' TO PPS-ADDITIONAL-VARIABLES
120400        MOVE 52 TO PPS-RTC
120500        GOBACK.
120600
120700     IF P-NEW-EFF-DATE > 20040930
120800        IF '*' = P-NEW-CBSA-GEO-1ST OR
120900                 P-NEW-CBSA-GEO-2ND OR
121000                 P-NEW-CBSA-GEO-3RD OR
121100                 P-NEW-CBSA-GEO-4TH OR
121200                 P-NEW-CBSA-GEO-5TH
121300         MOVE ALL '0' TO PPS-ADDITIONAL-VARIABLES
121400         MOVE 52 TO PPS-RTC
121500         GOBACK.
121600
121700     IF P-NEW-EFF-DATE < 20041001
121800        IF (P-NEW-WAGE-INDEX-LOC-MSA = '    ' OR
121900            P-NEW-WAGE-INDEX-LOC-MSA = '0000')
122000            MOVE P-NEW-GEO-LOC-MSA9 TO P-NEW-WAGE-INDEX-LOC-MSA.
122100     IF P-NEW-EFF-DATE < 20041001
122200        IF (P-NEW-STAND-AMT-LOC-MSA = '    ' OR
122300            P-NEW-STAND-AMT-LOC-MSA = '0000')
122400            MOVE P-NEW-GEO-LOC-MSA9 TO P-NEW-STAND-AMT-LOC-MSA.
122500
122600****************************
122700* BEGIN OUTMIGRATION CHECK *
122800****************************
122900
123000     IF (P-NEW-CBSA-RECLASS-LOC = '     ' OR
123100         P-NEW-CBSA-RECLASS-LOC = '00000') AND
123200        (P-NEW-CBSA-STAND-AMT-LOC = '     ' OR
123300         P-NEW-CBSA-STAND-AMT-LOC = '00000') AND
123400         P-NEW-CBSA-WI-BLANK
123500       PERFORM 0900-GET-COUNTY-CODE THRU 0900-EXIT
123600     END-IF.
123700
123800     IF OUTM-IND = 1
123900       PERFORM 0950-GET-OUTM-ADJ THRU 0950-EXIT
124000         VARYING OUTM-IDX2 FROM OUTM-IDX BY 1 UNTIL
124100         OUTM-CNTY(OUTM-IDX2) NOT = P-NEW-COUNTY-CODE-X
124200     END-IF.
124300
124400**************************
124500* END OUTMIGRATION CHECK *
124600**************************
124700
124800     IF P-NEW-EFF-DATE > 20040930
124900        IF (P-NEW-CBSA-RECLASS-LOC = '     ' OR
125000            P-NEW-CBSA-RECLASS-LOC = '00000')
125100            MOVE P-NEW-CBSA-GEO-LOC9 TO P-NEW-CBSA-RECLASS-LOC.
125200     IF P-NEW-EFF-DATE > 20040930
125300        IF (P-NEW-CBSA-STAND-AMT-LOC = '     ' OR
125400            P-NEW-CBSA-STAND-AMT-LOC = '00000')
125500            MOVE P-NEW-CBSA-GEO-LOC9 TO P-NEW-CBSA-STAND-AMT-LOC.
125600
125700     IF P-NEW-EFF-DATE < 20041001
125800        PERFORM 0500-GET-MSA THRU 0500-EXIT
125900     ELSE
126000        PERFORM 0550-GET-CBSA THRU 0550-EXIT.
126100
126200***     RTC = 52  --  WAGE-INDEX NOT FOUND
126300     IF PPS-RTC = 52
126400          MOVE ALL '0' TO  PPS-ADDITIONAL-VARIABLES
126500          GOBACK.
126600
126700*****************************************************************
126800**            FY 2020 "            "                        *****
126900**          THIS NEXT CALL WILL PROCESS 2018 BILLS  WITH
127000**              A DISCHARGE DATE ON OR AFTER 20171001
127100*****************************************************************
127200     IF B-N-DISCHARGE-DATE
127300              > 20190930
127400         CALL  PPCAL200 USING BILL-NEW-DATA
127500                              PPS-DATA
127600                              PRICER-OPT-VERS-SW
127700                              PPS-ADDITIONAL-VARIABLES
127800                              PROV-NEW-HOLD
127900                              WAGE-NEW-CBSA-INDEX-RECORD
128000                              PPHOLDAR-HOLD-AREA
128100         GOBACK.
128200*****************************************************************
128300**            FY 2019 "            "                        *****
128400**          THIS NEXT CALL WILL PROCESS 2018 BILLS  WITH
128500**              A DISCHARGE DATE ON OR AFTER 20171001
128600*****************************************************************
128700     IF B-N-DISCHARGE-DATE
128800              > 20180930
128900         CALL  PPCAL192 USING BILL-NEW-DATA
129000                              PPS-DATA
129100                              PRICER-OPT-VERS-SW
129200                              PPS-ADDITIONAL-VARIABLES
129300                              PROV-NEW-HOLD
129400                              WAGE-NEW-CBSA-INDEX-RECORD
129500                              PPHOLDAR-HOLD-AREA
129600         GOBACK.
129700*****************************************************************
129800**            FY 2018 "            "                        *****
129900**          THIS NEXT CALL WILL PROCESS 2018 BILLS  WITH
130000**              A DISCHARGE DATE ON OR AFTER 20171001
130100*****************************************************************
130200     IF B-N-DISCHARGE-DATE
130300              > 20170930
130400         CALL  PPCAL182 USING BILL-NEW-DATA
130500                              PPS-DATA
130600                              PRICER-OPT-VERS-SW
130700                              PPS-ADDITIONAL-VARIABLES
130800                              PROV-NEW-HOLD
130900                              WAGE-NEW-CBSA-INDEX-RECORD
131000                              PPHOLDAR-HOLD-AREA
131100         GOBACK.
131200*****************************************************************
131300**            FY 2017 "            "                        *****
131400**          THIS NEXT CALL WILL PROCESS 2017 BILLS  WITH
131500**              A DISCHARGE DATE ON OR AFTER 20161001
131600*****************************************************************
131700     IF B-N-DISCHARGE-DATE
131800              > 20160930
131900         CALL  PPCAL171 USING BILL-NEW-DATA
132000                              PPS-DATA
132100                              PRICER-OPT-VERS-SW
132200                              PPS-ADDITIONAL-VARIABLES
132300                              PROV-NEW-HOLD
132400                              WAGE-NEW-CBSA-INDEX-RECORD
132500                              PPHOLDAR-HOLD-AREA
132600         GOBACK.
132700*****************************************************************
132800**            FY 2016 "ICD10 REFORM"                        *****
132900**          THIS NEXT CALL WILL PROCESS 2016 BILLS  WITH
133000**              A DISCHARGE DATE ON OR AFTER 20151001
133100*****************************************************************
133200     IF B-N-DISCHARGE-DATE
133300              > 20150930
133400         CALL  PPCAL163 USING BILL-NEW-DATA
133500                              PPS-DATA
133600                              PRICER-OPT-VERS-SW
133700                              PPS-ADDITIONAL-VARIABLES
133800                              PROV-NEW-HOLD
133900                              WAGE-NEW-CBSA-INDEX-RECORD
134000                              PPHOLDAR-HOLD-AREA
134100           MOVE 0 TO PPS-ISLET-ISOL-PAY-ADD-ON
134200         GOBACK.
134300*****************************************************************
134400**            FY 2015 "HEALTH REFORM"                       *****
134500**          THIS NEXT CALL WILL PROCESS 2015 BILLS  WITH
134600**              A DISCHARGE DATE ON OR AFTER 20141001
134700*****************************************************************
134800     IF B-N-DISCHARGE-DATE
134900              > 20140930
135000         CALL  PPCAL156 USING BILL-NEW-DATA
135100                              PPS-DATA
135200                              PRICER-OPT-VERS-SW
135300                              PPS-ADDITIONAL-VARIABLES
135400                              PROV-NEW-HOLD
135500                              WAGE-NEW-CBSA-INDEX-RECORD
135600                              PPHOLDAR-HOLD-AREA
135700           MOVE 0 TO PPS-ISLET-ISOL-PAY-ADD-ON
135800         GOBACK.
135900*****************************************************************
136000*****************************************************************
136100**            FY 2014 "HEALTH REFORM"                       *****
136200**          THIS NEXT CALL WILL PROCESS 2014 BILLS  WITH
136300**              A DISCHARGE DATE ON OR AFTER 20131001
136400*****************************************************************
136500     IF B-N-DISCHARGE-DATE
136600              > 20130930
136700         CALL  PPCAL14B USING BILL-NEW-DATA
136800                              PPS-DATA
136900                              PRICER-OPT-VERS-SW
137000                              PPS-ADDITIONAL-VARIABLES-1314
137100                              PROV-NEW-HOLD
137200                              WAGE-NEW-CBSA-INDEX-RECORD
137300
137400         PERFORM 2900-MOVE-PPS-ADDITIONAL-VARS THRU 2900-EXIT
137500         GOBACK.
137600*****************************************************************
137700*****************************************************************
137800*****************************************************************
137900**            FY 2013 "HEALTH REFORM"                       *****
138000**          THIS NEXT CALL WILL PROCESS 2011 BILLS  WITH
138100**              A DISCHARGE DATE ON OR AFTER 20121001
138200*****************************************************************
138300     IF B-N-DISCHARGE-DATE
138400              > 20120930
138500         CALL  PPCAL135 USING BILL-NEW-DATA
138600                              PPS-DATA
138700                              PRICER-OPT-VERS-SW
138800                              PPS-ADDITIONAL-VARIABLES-1314
138900                              PROV-NEW-HOLD
139000                              WAGE-NEW-CBSA-INDEX-RECORD
139100
139200         PERFORM 2900-MOVE-PPS-ADDITIONAL-VARS THRU 2900-EXIT
139300         GOBACK.
139400*****************************************************************
139500*****************************************************************
139600*****************************************************************
139700**            FY 2012 "HEALTH REFORM"                       *****
139800**          THIS NEXT CALL WILL PROCESS 2011 BILLS  WITH
139900**              A DISCHARGE DATE ON OR AFTER 20111001
140000*****************************************************************
140100     IF B-N-DISCHARGE-DATE
140200              > 20110930
140300         CALL  PPCAL125 USING BILL-NEW-DATA
140400                              PPS-DATA
140500                              PRICER-OPT-VERS-SW
140600                              PPS-ADDITIONAL-VARIABLES-PRE13
140700                              PROV-NEW-HOLD
140800                              WAGE-NEW-CBSA-INDEX-RECORD
140900
141000         PERFORM 2900-MOVE-PPS-ADDITIONAL-VARS THRU 2900-EXIT
141100         GOBACK.
141200*****************************************************************
141300*****************************************************************
141400**            FY 2011 "HEALTH REFORM"                       *****
141500**          THIS NEXT CALL WILL PROCESS 2011 BILLS  WITH
141600**              A DISCHARGE DATE ON OR AFTER 20101001
141700*****************************************************************
141800     IF B-N-DISCHARGE-DATE
141900              > 20100930
142000         CALL  PPCAL119 USING BILL-NEW-DATA
142100                              PPS-DATA
142200                              PRICER-OPT-VERS-SW
142300                              PPS-ADDITIONAL-VARIABLES-PRE13
142400                              PROV-NEW-HOLD
142500                              WAGE-NEW-CBSA-INDEX-RECORD
142600
142700         PERFORM 2900-MOVE-PPS-ADDITIONAL-VARS THRU 2900-EXIT
142800         GOBACK.
142900*****************************************************************
143000*****************************************************************
143100**            FY 2010 "HEALTH REFORM"                       *****
143200**          THIS NEXT CALL WILL PROCESS 2010 BILLS  WITH
143300**              A DISCHARGE DATE ON OR AFTER 20100401
143400*****************************************************************
143500     IF B-N-DISCHARGE-DATE
143600              > 20100331
143700         CALL  PPCAL10P USING BILL-NEW-DATA
143800                              PPS-DATA
143900                              PRICER-OPT-VERS-SW
144000                              PPS-ADDITIONAL-VARIABLES-PRE13
144100                              PROV-NEW-HOLD
144200                              WAGE-NEW-CBSA-INDEX-RECORD
144300
144400         PERFORM 2900-MOVE-PPS-ADDITIONAL-VARS THRU 2900-EXIT
144500         GOBACK.
144600*****************************************************************
144700*****************************************************************
144800**          THIS NEXT CALL WILL PROCESS 2010 BILLS  WITH
144900**        A DISCHARGE DATE ON OR AFTER 20091001 TO 4/01/2010
145000*****************************************************************
145100     IF B-N-DISCHARGE-DATE
145200              > 20090930
145300         CALL  PPCAL10O USING BILL-NEW-DATA
145400                              PPS-DATA
145500                              PRICER-OPT-VERS-SW
145600                              PPS-ADDITIONAL-VARIABLES-PRE13
145700                              PROV-NEW-HOLD
145800                              WAGE-NEW-CBSA-INDEX-RECORD
145900
146000         PERFORM 2900-MOVE-PPS-ADDITIONAL-VARS THRU 2900-EXIT
146100         GOBACK.
146200*****************************************************************
146300*****************************************************************
146400**          THIS NEXT CALL WILL PROCESS 2009 BILLS  WITH
146500**              A DISCHARGE DATE ON OR AFTER 20081001
146600*****************************************************************
146700     IF B-N-DISCHARGE-DATE
146800              > 20080930
146900         CALL  PPCAL09D USING BILL-NEW-DATA
147000                              PPS-DATA
147100                              PRICER-OPT-VERS-SW
147200                              PPS-ADDITIONAL-VARIABLES-PRE13
147300                              PROV-NEW-HOLD
147400                              WAGE-NEW-CBSA-INDEX-RECORD
147500
147600         PERFORM 2900-MOVE-PPS-ADDITIONAL-VARS THRU 2900-EXIT
147700         GOBACK.
147800*****************************************************************
147900*****************************************************************
148000**          THIS NEXT CALL WILL PROCESS 2008 BILLS  WITH
148100**              A DISCHARGE DATE ON OR AFTER 20071001
148200*****************************************************************
148300     IF B-N-DISCHARGE-DATE
148400              > 20070930
148500         CALL  PPCAL08D USING BILL-NEW-DATA
148600                              PPS-DATA
148700                              PRICER-OPT-VERS-SW
148800                              PPS-ADDITIONAL-VARIABLES-PRE13
148900                              PROV-NEW-HOLD
149000                              WAGE-NEW-CBSA-INDEX-RECORD
149100
149200         PERFORM 2900-MOVE-PPS-ADDITIONAL-VARS THRU 2900-EXIT
149300         GOBACK.
149400*****************************************************************
149500*****************************************************************
149600**          THIS NEXT CALL WILL PROCESS 2007 BILLS  WITH
149700**              A DISCHARGE DATE ON OR AFTER 20061001
149800*****************************************************************
149900     IF B-N-DISCHARGE-DATE
150000              > 20060930
150100         CALL  PPCAL07B USING BILL-NEW-DATA
150200                              PPS-DATA
150300                              PRICER-OPT-VERS-SW
150400                              PPS-ADDITIONAL-VARIABLES-PRE13
150500                              PROV-NEW-HOLD
150600                              WAGE-NEW-CBSA-INDEX-RECORD
150700
150800         PERFORM 2900-MOVE-PPS-ADDITIONAL-VARS THRU 2900-EXIT
150900         GOBACK.
151000*****************************************************************
151100*****************************************************************
151200**          THIS NEXT CALL WILL PROCESS 2006 BILLS  WITH
151300**              A DISCHARGE DATE ON OR AFTER 20051001
151400*****************************************************************
151500     IF B-N-DISCHARGE-DATE
151600              > 20050930
151700         CALL  PPCAL069 USING BILL-NEW-DATA
151800                              PPS-DATA
151900                              PRICER-OPT-VERS-SW
152000                              PPS-ADDITIONAL-VARIABLES-PRE13
152100                              PROV-NEW-HOLD
152200                              WAGE-NEW-CBSA-INDEX-RECORD
152300
152400         PERFORM 2900-MOVE-PPS-ADDITIONAL-VARS THRU 2900-EXIT
152500         GOBACK.
152600*****************************************************************
152700*****************************************************************
152800*****************************************************************
152900*****************************************************************
153000**          THIS NEXT CALL WILL PROCESS 2005 BILLS  WITH
153100**              A DISCHARGE DATE ON OR AFTER 20041001
153200*****************************************************************
153300     IF B-N-DISCHARGE-DATE
153400              > 20040930
153500         CALL  PPCAL059 USING BILL-NEW-DATA
153600                              PPS-DATA
153700                              PRICER-OPT-VERS-SW
153800                              PPS-ADDITIONAL-VARIABLES-PRE13
153900                              PROV-NEW-HOLD
154000                              WAGE-NEW-CBSA-INDEX-RECORD
154100
154200         PERFORM 2900-MOVE-PPS-ADDITIONAL-VARS THRU 2900-EXIT
154300         GOBACK.
154400*****************************************************************
154500*****************************************************************
154600*****************************************************************
154700**          THIS NEXT CALL WILL PROCESS 2004 BILLS  WITH
154800**              A DISCHARGE DATE ON OR AFTER 20031001
154900*****************************************************************
155000     IF B-N-DISCHARGE-DATE
155100              > 20030930
155200         CALL  PPCAL04D USING BILL-NEW-DATA
155300                              PPS-DATA
155400                              PRICER-OPT-VERS-SW
155500                              PPS-ADDITIONAL-VARIABLES-PRE13
155600                              PROV-NEW-HOLD
155700                              WAGE-NEW-INDEX-RECORD
155800
155900         PERFORM 2900-MOVE-PPS-ADDITIONAL-VARS THRU 2900-EXIT
156000         GOBACK.
156100*****************************************************************
156200*****************************************************************
156300*****************************************************************
156400**          THIS NEXT CALL WILL PROCESS 2003 BILLS  WITH
156500**              A DISCHARGE DATE ON OR AFTER 20021001
156600*****************************************************************
156700     IF B-N-DISCHARGE-DATE
156800              > 20020930
156900         CALL  PPCAL038 USING BILL-NEW-DATA
157000                              PPS-DATA
157100                              PRICER-OPT-VERS-SW
157200                              PPS-ADDITIONAL-VARIABLES-PRE13
157300                              PROV-NEW-HOLD
157400                              WAGE-NEW-INDEX-RECORD
157500
157600         PERFORM 2900-MOVE-PPS-ADDITIONAL-VARS THRU 2900-EXIT
157700         GOBACK.
157800*****************************************************************
157900*****************************************************************
158000*****************************************************************
158100**          THIS NEXT CALL WILL PROCESS 2002 BILLS  WITH
158200**              A DISCHARGE DATE ON OR AFTER 20011001
158300*****************************************************************
158400     IF B-N-DISCHARGE-DATE
158500              > 20010930
158600         CALL  PPCAL026 USING BILL-NEW-DATA
158700                              PPS-DATA
158800                              PRICER-OPT-VERS-SW
158900                              PPS-ADDITIONAL-VARIABLES-PRE13
159000                              PROV-NEW-HOLD
159100                              WAGE-NEW-INDEX-RECORD
159200
159300         PERFORM 2900-MOVE-PPS-ADDITIONAL-VARS THRU 2900-EXIT
159400         GOBACK.
159500*****************************************************************
159600*****************************************************************
159700*****************************************************************
159800**          THIS NEXT CALL WILL PROCESS 2001 BILLS  WITH
159900**              A DISCHARGE DATE ON OR AFTER 20001001
160000*****************************************************************
160100     IF B-N-DISCHARGE-DATE
160200              > 20000930
160300         CALL  PPCAL017 USING BILL-NEW-DATA
160400                              PPS-DATA
160500                              PRICER-OPT-VERS-SW
160600                              PPS-ADDITIONAL-VARIABLES-PRE13
160700                              PROV-NEW-HOLD
160800                              WAGE-NEW-INDEX-RECORD
160900
161000         PERFORM 2900-MOVE-PPS-ADDITIONAL-VARS THRU 2900-EXIT
161100         GOBACK.
161200*****************************************************************
161300*****************************************************************
161400*****************************************************************
161500**          THIS NEXT CALL WILL PROCESS 2000 BILLS  WITH
161600**              A DISCHARGE DATE ON OR AFTER 19991001
161700*****************************************************************
161800     IF B-N-DISCHARGE-DATE
161900              > 19990930
162000         CALL  PPCAL006 USING BILL-NEW-DATA
162100                              PPS-DATA
162200                              PRICER-OPT-VERS-SW
162300                              PPS-ADDITIONAL-VARIABLES-PRE13
162400                              PROV-NEW-HOLD
162500                              WAGE-NEW-INDEX-RECORD
162600
162700         PERFORM 2900-MOVE-PPS-ADDITIONAL-VARS THRU 2900-EXIT
162800         GOBACK.
162900*****************************************************************
163000*****************************************************************
163100**          THIS NEXT CALL WILL PROCESS 1999 BILLS  WITH
163200**              A DISCHARGE DATE ON OR AFTER 19981001
163300*****************************************************************
163400     IF B-N-DISCHARGE-DATE
163500              > 19980930
163600         CALL  PPCAL998 USING BILL-NEW-DATA
163700                              PPS-DATA
163800                              PRICER-OPT-VERS-SW
163900                              PPS-ADDITIONAL-VARIABLES-PRE13
164000                              PROV-NEW-HOLD
164100                              WAGE-NEW-INDEX-RECORD
164200
164300         PERFORM 2900-MOVE-PPS-ADDITIONAL-VARS THRU 2900-EXIT
164400         GOBACK.
164500*****************************************************************
164600*****************************************************************
164700**   MOVE NEW DATA FORMAT INTO OLD DATA FORMAT
164800**   TO PROCESS BEFORE 19981001 NON-MILLENNNIUM STANDARD
164900*****************************************************************
165000     MOVE ALL '9' TO W-PROV-NEW-HOLD.
165100     MOVE PROV-NEW-HOLD TO W-PROV-NEW-HOLD.
165200     PERFORM 2400-CONVERT-PSF.
165300     MOVE W-PROV-OLD-HOLD TO PROV-HOLD.
165400
165500     MOVE W-NEW-MSA             TO W-MSA.
165600     MOVE W-NEW-SIZE            TO W-SIZE.
165700     MOVE W-NEW-EFF-DATE-YMD    TO W-EFF-DATE.
165800     MOVE W-NEW-INDEX-RECORD    TO W-INDEX-RECORD.
165900     MOVE W-NEW-PR-INDEX-RECORD TO W-PR-INDEX-RECORD.
166000
166100     MOVE B-N-PROVIDER-NO  TO B-PROVIDER-NO.
166200     MOVE B-N-REVIEW-CODE  TO B-REVIEW-CODE.
166300     MOVE B-N-DRG          TO B-DRG.
166400     MOVE B-N-LOS          TO B-LOS.
166500     MOVE B-N-COVERED-DAYS TO B-COVERED-DAYS.
166600     MOVE B-N-LTR-DAYS     TO B-LTR-DAYS.
166700     MOVE B-N-DISCHG-YY    TO B-DISCHG-YY.
166800     MOVE B-N-DISCHG-MM    TO B-DISCHG-MM.
166900     MOVE B-N-DISCHG-DD    TO B-DISCHG-DD.
167000     MOVE B-N-CHARGES-CLAIMED TO B-CHARGES-CLAIMED.
167100
167200*****************************************************************
167300**          THIS NEXT CALL WILL PROCESS 1998 BILLS  WITH
167400**              A DISCHARGE DATE ON OR AFTER 19971001
167500*****************************************************************
167600     IF B-N-DISCHARGE-DATE
167700              > 19970930
167800         CALL  PPCAL987 USING BILL-DATA
167900                              PPS-DATA
168000                              PRICER-OPT-VERS-SW
168100                              PPS-ADDITIONAL-VARIABLES-PRE13
168200                              PROV-HOLD
168300                              WAGE-INDEX-RECORD
168400
168500         PERFORM 2900-MOVE-PPS-ADDITIONAL-VARS THRU 2900-EXIT
168600         GOBACK.
168700*****************************************************************
168800*****************************************************************
168900**          THIS NEXT CALL WILL PROCESS 1997 BILLS  WITH
169000**              A DISCHARGE DATE ON OR AFTER 19961001
169100*****************************************************************
169200     IF B-N-DISCHARGE-DATE
169300              > 19960930
169400         CALL  PPCAL974 USING BILL-DATA
169500                              PPS-DATA
169600                              PRICER-OPT-VERS-SW
169700                              PPS-ADDITIONAL-VARIABLES-PRE13
169800                              PROV-HOLD
169900                              WAGE-INDEX-RECORD
170000
170100         PERFORM 2900-MOVE-PPS-ADDITIONAL-VARS THRU 2900-EXIT
170200         GOBACK.
170300*****************************************************************
170400*****************************************************************
170500**          THIS NEXT CALL WILL PROCESS 1996 BILLS  WITH
170600**              A DISCHARGE DATE ON OR AFTER 19951001
170700*****************************************************************
170800     IF B-N-DISCHARGE-DATE
170900              > 19950930
171000         CALL  PPCAL964 USING BILL-DATA
171100                              PPS-DATA
171200                              PRICER-OPT-VERS-SW
171300                              PPS-ADDITIONAL-VARIABLES-PRE13
171400                              PROV-HOLD
171500                              WAGE-INDEX-RECORD
171600
171700         PERFORM 2900-MOVE-PPS-ADDITIONAL-VARS THRU 2900-EXIT
171800         GOBACK.
171900*****************************************************************
172000*****************************************************************
172100**          THIS NEXT CALL WILL PROCESS 1995 BILLS  WITH
172200**              A DISCHARGE DATE ON OR AFTER 19941001
172300*****************************************************************
172400     IF B-N-DISCHARGE-DATE
172500              > 19940930
172600         CALL  PPCAL954 USING BILL-DATA
172700                              PPS-DATA
172800                              PRICER-OPT-VERS-SW
172900                              PPS-ADDITIONAL-VARIABLES-PRE13
173000                              PROV-HOLD
173100                              WAGE-INDEX-RECORD
173200
173300         PERFORM 2900-MOVE-PPS-ADDITIONAL-VARS THRU 2900-EXIT
173400         GOBACK.
173500*****************************************************************
173600*****************************************************************
173700**          THIS NEXT CALL WILL PROCESS 1994 BILLS  WITH
173800**              A DISCHARGE DATE ON OR AFTER 19931001
173900*****************************************************************
174000     IF B-N-DISCHARGE-DATE
174100              > 19930930
174200         CALL  PPCAL944 USING BILL-DATA
174300                              PPS-DATA
174400                              PRICER-OPT-VERS-SW
174500                              PPS-ADDITIONAL-VARIABLES-PRE13
174600                              PROV-HOLD
174700                              WAGE-INDEX-RECORD
174800
174900         PERFORM 2900-MOVE-PPS-ADDITIONAL-VARS THRU 2900-EXIT
175000         GOBACK.
175100*****************************************************************
175200*****************************************************************
175300**          THIS NEXT CALL WILL PROCESS 1993 BILLS  WITH
175400**              A DISCHARGE DATE ON OR AFTER 19921001
175500*****************************************************************
175600     IF B-N-DISCHARGE-DATE
175700              > 19920930
175800         CALL  PPCAL935 USING BILL-DATA
175900                              PPS-DATA
176000                              PRICER-OPT-VERS-SW
176100                              PPS-ADDITIONAL-VARIABLES-PRE13
176200                              PROV-HOLD
176300                              WAGE-INDEX-RECORD
176400
176500         PERFORM 2900-MOVE-PPS-ADDITIONAL-VARS THRU 2900-EXIT
176600         GOBACK.
176700*****************************************************************
176800*****************************************************************
176900**          THIS NEXT CALL WILL PROCESS 1992 BILLS  WITH
177000**              A DISCHARGE DATE ON OR AFTER 19911001
177100*****************************************************************
177200     IF B-N-DISCHARGE-DATE
177300              > 19910930
177400         CALL  PPCAL926 USING BILL-DATA
177500                              PPS-DATA
177600                              PRICER-OPT-VERS-SW
177700                              PPS-ADDITIONAL-VARIABLES-PRE13
177800                              PROV-HOLD
177900                              WAGE-INDEX-RECORD
178000
178100         PERFORM 2900-MOVE-PPS-ADDITIONAL-VARS THRU 2900-EXIT
178200         GOBACK.
178300*****************************************************************
178400*****************************************************************
178500**          THIS NEXT CALL WILL PROCESS 1991 BILLS  WITH
178600**              A DISCHARGE DATE ON OR AFTER 19901001
178700*****************************************************************
178800     IF B-N-DISCHARGE-DATE
178900              > 19900930
179000         CALL  PPCAL915 USING BILL-DATA
179100                              PPS-DATA
179200                              PRICER-OPT-VERS-SW
179300                              PPS-ADDITIONAL-VARIABLES-PRE13
179400                              PROV-HOLD
179500                              WAGE-INDEX-RECORD
179600
179700         PERFORM 2900-MOVE-PPS-ADDITIONAL-VARS THRU 2900-EXIT
179800         GOBACK.
179900*****************************************************************
180000*****************************************************************
180100**          THIS NEXT CALL WILL PROCESS 1990 BILLS  WITH
180200**              A DISCHARGE DATE ON OR AFTER 19891001
180300*****************************************************************
180400     IF B-N-DISCHARGE-DATE
180500              > 19890930
180600         CALL  PPCAL905 USING BILL-DATA
180700                              PPS-DATA
180800                              PRICER-OPT-VERS-SW
180900                              PPS-ADDITIONAL-VARIABLES-PRE13
181000                              PROV-HOLD
181100                              WAGE-INDEX-RECORD
181200
181300         PERFORM 2900-MOVE-PPS-ADDITIONAL-VARS THRU 2900-EXIT
181400         GOBACK.
181500*****************************************************************
181600*****************************************************************
181700**          THIS NEXT CALL WILL PROCESS 1989 BILLS  WITH
181800**              A DISCHARGE DATE ON OR AFTER 19881001
181900*****************************************************************
182000     IF B-N-DISCHARGE-DATE
182100              > 19880930
182200         CALL  PPCAL894 USING BILL-DATA
182300                              PPS-DATA
182400                              PRICER-OPT-VERS-SW
182500                              PPS-ADDITIONAL-VARIABLES-PRE13
182600                              PROV-HOLD
182700                              WAGE-INDEX-RECORD
182800
182900         PERFORM 2900-MOVE-PPS-ADDITIONAL-VARS THRU 2900-EXIT
183000         GOBACK.
183100*****************************************************************
183200*****************************************************************
183300**          THIS NEXT CALL WILL PROCESS 1988 BILLS  WITH
183400**              A DISCHARGE DATE ON OR AFTER 19871001
183500*****************************************************************
183600     IF B-N-DISCHARGE-DATE
183700              > 19870930
183800         CALL  PPCAL884 USING BILL-DATA
183900                              PPS-DATA
184000                              PRICER-OPT-VERS-SW
184100                              PPS-ADDITIONAL-VARIABLES-PRE13
184200                              PROV-HOLD
184300                              WAGE-INDEX-RECORD
184400
184500         PERFORM 2900-MOVE-PPS-ADDITIONAL-VARS THRU 2900-EXIT
184600         GOBACK.
184700*****************************************************************
184800*****************************************************************
184900     MOVE 98 TO PPS-RTC.
185000     GOBACK.
185100
185200 0100-GET-MSA.
185300     SET MU1 TO 1.
185400
185500     SEARCH M-MSAX-DATA VARYING MU1
185600     AT END
185700          MOVE 999999 TO P-PROVIDER-NO
185800          MOVE 52     TO PPS-RTC
185900          GO TO 0100-EXIT
186000     WHEN M-MSAX-MSA (MU1) = HOLD-PROV-MSAX
186100          SET MU2 TO MU1.
186200
186300 0100-EXIT.  EXIT.
186400
186500 0150-GET-CBSA.
186600     SET MA1 TO 1.
186700
186800     SEARCH T-CBSA-DATA VARYING MA1
186900     AT END
187000          MOVE 999999 TO P-PROVIDER-NO
187100          MOVE 52     TO PPS-RTC
187200          GO TO 0150-EXIT
187300     WHEN T-CBSA  (MA1) = HOLD-PROV-CBSA
187400          SET MA2 TO MA1.
187500
187600 0150-EXIT.  EXIT.
187700
187800 0175-GET-RURAL-CBSA.
187900
188000     IF B-N-DISCHARGE-DATE > 20190930
188100       IF H-CBSA-PROV-BLANK = '   '
188200         GO TO 0175-EXIT
188300       ELSE
188400         PERFORM 0190-GET-RURAL-FLOOR THRU 0190-EXIT
188500         GO TO 0175-EXIT
188600       END-IF
188700     END-IF.
188800
188900     SET MA1 TO 1.
189000
189100     SEARCH T-CBSA-DATA VARYING MA1
189200     AT END
189300       MOVE '   00'              TO W-RURAL-CBSA-X
189400       MOVE 99999999             TO W-RURAL-CBSA-EFF-DATE
189500       MOVE 0                    TO W-RURAL-CBSA-WI
189600       GO TO 0175-EXIT
189700     WHEN T-CBSA  (MA1) = HOLD-RURAL-CBSA
189800          SET MA2 TO MA1.
189900
190000 0175-EXIT.  EXIT.
190100
190200 0190-GET-RURAL-FLOOR.
190300
190400     SET RUFL-IDX TO 1.
190500
190600     SEARCH RUFL-TAB VARYING RUFL-IDX
190700     AT END
190800       MOVE '   00'              TO W-RURAL-CBSA-X
190900       MOVE 99999999             TO W-RURAL-CBSA-EFF-DATE
191000       MOVE 0                    TO W-RURAL-CBSA-WI
191100       GO TO 0190-EXIT
191200     WHEN RUFL-CBSA(RUFL-IDX) = HOLD-RURAL-CBSA
191300          SET RUFL-IDX2 TO RUFL-IDX.
191400
191500 0190-EXIT.  EXIT.
191600
191700 0200-N-GET-MSAPR.
191800
191900     IF P-NEW-CHG-CODE-INDEX = 'Y'
192000        MOVE P-NEW-WAGE-INDEX-LOC-MSA TO HOLD-PROV-MSAX
192100     ELSE
192200        MOVE P-NEW-GEO-LOC-MSAX TO HOLD-PROV-MSAX.
192300
192400     MOVE '*' TO H-MSAX-LAST-POS.
192500     PERFORM 0100-GET-MSA THRU 0100-EXIT.
192600
192700     IF PPS-RTC = 00
192800      PERFORM 0300-N-GET-PR-WAGE-INDX
192900           THRU 0300-N-EXIT VARYING MU2
193000           FROM MU1 BY 1 UNTIL
193100           M-MSAX-MSA (MU2) NOT = HOLD-PROV-MSAX.
193200
193300 0200-N-EXIT.  EXIT.
193400
193500 0250-N-GET-CBSA-PR.
193600
193700     MOVE ZERO TO MESWK-PRSPC-WAGEIN-BLEND.
193800
193900     IF B-N-DISCHARGE-DATE > 20140930 AND
194000        B-N-DISCHARGE-DATE < 20151001
194100        PERFORM 0370-PRSPC-CODE-RTN THRU 0370-EXIT
194200
194300        IF  MESWK-PRSPC-WAGEIN-BLEND > 00.0000
194400            MOVE MESWK-PRSPC-WAGEIN-BLEND
194500                              TO W-NEW-CBSA-PR-WI
194600        GO TO 0250-EXIT.
194700
194800     MOVE P-NEW-CBSA-STAND-AMT-LOC TO HOLD-PROV-CBSA.
194900
195000     IF P-NEW-CBSA-WI-RECLASS OR P-NEW-CBSA-WI-DUAL
195100        MOVE P-NEW-CBSA-RECLASS-LOC TO HOLD-PROV-CBSA.
195200
195300     MOVE '*' TO H-CBSA-LAST-POS.
195400     PERFORM 0150-GET-CBSA THRU 0150-EXIT.
195500
195600     IF PPS-RTC = 00
195700      PERFORM 0350-N-GET-PR-WAGE-INDX
195800           THRU 0350-EXIT VARYING MA2
195900           FROM MA1 BY 1 UNTIL
196000           T-CBSA (MA2) NOT = HOLD-PROV-CBSA.
196100
196200 0250-EXIT.  EXIT.
196300
196400 0260-N-GET-RURAL-CBSA-PR.
196500
196600     MOVE '*' TO H-CBSA-RURAL-LAST-POS.
196700     PERFORM 0175-GET-RURAL-CBSA THRU 0175-EXIT.
196800
196900     IF PPS-RTC = 00
197000      PERFORM 0360-N-GET-PR-RURAL-WAGE-INDX
197100           THRU 0360-EXIT VARYING MA2
197200           FROM MA1 BY 1 UNTIL
197300           T-CBSA (MA2) NOT = HOLD-RURAL-CBSA.
197400
197500 0260-EXIT.  EXIT.
197600
197700 0300-N-GET-PR-WAGE-INDX.
197800
197900     IF  B-N-DISCHARGE-DATE NOT < M-MSAX-EFF-DATE (MU2)
198000         MOVE M-MSAX-WAGE-INDX1 (MU2) TO W-NEW-PR-INDEX-RECORD
198100         IF P-NEW-CHG-CODE-INDEX  = 'Y'
198200            MOVE M-MSAX-WAGE-INDX2 (MU2)
198300                                     TO W-NEW-PR-INDEX-RECORD.
198400
198500 0300-N-EXIT.  EXIT.
198600
198700 0350-N-GET-PR-WAGE-INDX.
198800
198900     IF  B-N-DISCHARGE-DATE NOT < T-CBSA-EFF-DATE (MA2) AND
199000         (T-CBSA-EFF-DATE (MA2) >= W-FY-BEGIN-DATE AND
199100          T-CBSA-EFF-DATE (MA2) <= W-FY-END-DATE)
199200         MOVE T-CBSA-WAGE-INDX1 (MA2)
199300                              TO W-NEW-CBSA-PR-WI
199400         IF P-NEW-CBSA-SPEC-PAY-IND =  'Y'
199500             MOVE T-CBSA-WAGE-INDX2 (MA2)
199600                              TO W-NEW-CBSA-PR-WI.
199700
199800 0350-EXIT.  EXIT.
199900
200000 0360-N-GET-PR-RURAL-WAGE-INDX.
200100
200200     IF  B-N-DISCHARGE-DATE NOT < T-CBSA-EFF-DATE (MA2) AND
200300         (T-CBSA-EFF-DATE (MA2) >= W-FY-BEGIN-DATE AND
200400          T-CBSA-EFF-DATE (MA2) <= W-FY-END-DATE)
200500         MOVE T-CBSA-WAGE-INDX1 (MA2)
200600                              TO W-RURAL-CBSA-PR-WI
200700         IF P-NEW-CBSA-SPEC-PAY-IND = 'Y'
200800             MOVE T-CBSA-WAGE-INDX2 (MA2)
200900                              TO W-RURAL-CBSA-PR-WI.
201000
201100 0360-EXIT.  EXIT.
201200
201300*
201400***************************************************************
201500* USE IPPS COMPARABLE BLENDED WAGE INDEX FROM TABLE IF        *
201600* PROVIDER FOUND IN TABLE - FOR FY 2015                       *
201700***************************************************************
201800***********************************************************
201900 0370-PRSPC-CODE-RTN.
202000*
202100     SET PRSPC-IDX TO 1.
202200     SEARCH PRSPC-TAB VARYING PRSPC-IDX
202300         AT END
202400           MOVE ZERO TO MESWK-PRSPC-WAGEIN-BLEND
202500       WHEN WK-PRSPC-PROV (PRSPC-IDX) = P-NEW-PROVIDER-NO
202600         MOVE WK-PRSPC-WAGEIN-BLEND(PRSPC-IDX)
202700                            TO MESWK-PRSPC-WAGEIN-BLEND.
202800
202900
203000 0370-EXIT.   EXIT.
203100
203200***********************************************************
203300 0500-GET-MSA.
203400        IF P-NEW-CHG-CODE-INDEX = 'Y'
203500           MOVE P-NEW-WAGE-INDEX-LOC-MSA TO HOLD-PROV-MSAX
203600        ELSE
203700           MOVE P-NEW-GEO-LOC-MSA9 TO HOLD-PROV-MSAX.
203800
203900**1998***********************************************************
204000     IF B-N-DISCHARGE-DATE > 19970930 AND
204100        B-N-DISCHARGE-DATE < 19981001
204200        PERFORM 2300-1998-FLOOR-MSA THRU 2300-1998-EXIT.
204300
204400**1999***********************************************************
204500     IF B-N-DISCHARGE-DATE > 19980930 AND
204600        B-N-DISCHARGE-DATE < 19991001
204700        PERFORM 2300-1999-FLOOR-MSA THRU 2300-1999-EXIT.
204800
204900**2000***********************************************************
205000     IF B-N-DISCHARGE-DATE > 19990930 AND
205100        B-N-DISCHARGE-DATE < 20001001
205200        PERFORM 2300-2000-FLOOR-MSA THRU 2300-2000-EXIT.
205300
205400**2001***********************************************************
205500     IF B-N-DISCHARGE-DATE > 20000930 AND
205600        B-N-DISCHARGE-DATE < 20011001
205700        PERFORM 2300-2001-FLOOR-MSA THRU 2300-2001-EXIT.
205800
205900**2002***********************************************************
206000     IF B-N-DISCHARGE-DATE > 20010930 AND
206100        B-N-DISCHARGE-DATE < 20021001
206200        PERFORM 2300-2002-FLOOR-MSA THRU 2300-2002-EXIT.
206300
206400     IF B-N-DISCHARGE-DATE > 20010930 AND
206500        B-N-DISCHARGE-DATE < 20021001
206600          PERFORM 2700-2002-WI-401-HOSPITAL THRU 2700-2002-EXIT.
206700
206800**2003***********************************************************
206900     IF B-N-DISCHARGE-DATE > 20020930 AND
207000        B-N-DISCHARGE-DATE < 20031001
207100          PERFORM 2700-2003-WI-401-HOSPITAL THRU 2700-2003-EXIT.
207200
207300     IF B-N-DISCHARGE-DATE > 20020930 AND
207400        B-N-DISCHARGE-DATE < 20031001
207500        PERFORM 2300-2003-FLOOR-MSA THRU 2300-2003-EXIT.
207600
207700**2004***********************************************************
207800     IF B-N-DISCHARGE-DATE > 20030930 AND
207900        B-N-DISCHARGE-DATE < 20041001
208000          PERFORM 2700-2004-WI-401-HOSPITAL THRU 2700-2004-EXIT.
208100
208200     IF B-N-DISCHARGE-DATE > 20030930 AND
208300        B-N-DISCHARGE-DATE < 20041001
208400        PERFORM 2300-2004-FLOOR-MSA THRU 2300-2004-EXIT.
208500
208600*****************************************************************
208700     PERFORM 0100-GET-MSA THRU 0100-EXIT.
208800
208900***     RTC = 52  --  MSA NOT FOUND
209000     IF PPS-RTC = 52    GOBACK.
209100
209200     IF PPS-RTC = 00
209300        PERFORM 0600-N-GET-WAGE-INDX
209400           THRU 0600-N-EXIT VARYING MU2
209500           FROM MU1 BY 1 UNTIL
209600           M-MSAX-MSA (MU2) NOT = HOLD-PROV-MSAX.
209700
209800     IF P-N-INDIAN-HEALTH-SERVICE
209900             MOVE 00 TO PPS-RTC
210000             PERFORM 0800-N-GET-INDIAN-WI THRU 0800-N-EXIT.
210100
210200***     RTC = 52  --  WAGE-INDEX NOT FOUND
210300     IF PPS-RTC = 52    GOBACK.
210400
210500**2000***********************************************************
210600     IF B-N-DISCHARGE-DATE > 19990930 AND
210700        B-N-DISCHARGE-DATE < 20001001
210800          PERFORM 2500-2000-WI-LUGAR THRU 2500-2000-EXIT.
210900
211000**2001***********************************************************
211100     IF B-N-DISCHARGE-DATE > 20000930 AND
211200        B-N-DISCHARGE-DATE < 20011001
211300          PERFORM 2500-2001-WI-LUGAR THRU 2500-2001-EXIT.
211400
211500**2003***********************************************************
211600     IF B-N-DISCHARGE-DATE > 20020930 AND
211700        B-N-DISCHARGE-DATE < 20031001
211800          PERFORM 2500-2003-WI-LUGAR THRU 2500-2003-EXIT.
211900
212000**2004***********************************************************
212100     IF B-N-DISCHARGE-DATE > 20031231 AND
212200        B-N-DISCHARGE-DATE < 20041001
212300        PERFORM 2300-2004-RECLASS152 THRU 2300-2004-RECLASS-EXIT.
212400
212500*****************************************************************
212600     IF W-NEW-INDEX-RECORD = 00.0000
212700        MOVE ALL '0' TO PPS-ADDITIONAL-VARIABLES
212800        MOVE 52 TO PPS-RTC.
212900
213000***  GET THE WAGE-SIZE
213100
213200     MOVE P-NEW-STAND-AMT-LOC-MSA TO HOLD-PROV-MSAX.
213300
213400     PERFORM 0100-GET-MSA THRU 0100-EXIT.
213500
213600     IF PPS-RTC = 00
213700         PERFORM 0700-N-GET-WAGE-SIZE
213800           THRU 0700-N-EXIT VARYING MU2
213900           FROM MU1 BY 1 UNTIL
214000           M-MSAX-MSA (MU2) NOT = HOLD-PROV-MSAX.
214100
214200     IF P-PR-NEW-STATE
214300        IF B-N-DISCHARGE-DATE > 19970930
214400              PERFORM 0200-N-GET-MSAPR THRU 0200-N-EXIT.
214500
214600***     RTC = 52  --  PR-WAGE-INDEX NOT FOUND
214700     IF PPS-RTC = 52
214800          MOVE ALL '0' TO  PPS-ADDITIONAL-VARIABLES
214900          GOBACK.
215000
215100 0500-EXIT.  EXIT.
215200
215300 0550-GET-CBSA.
215400**2005*  OCT 1, 2004 CBSA REPLACED MSA
215500
215600**----------------------------------------------------------------
215700** CBSA DOESN'T APPLY TO CLAIMS DISCHARGED BEFORE 10/01/2004
215800**----------------------------------------------------------------
215900     IF P-NEW-EFF-DATE < 20041001
216000        MOVE ALL '0' TO PPS-ADDITIONAL-VARIABLES
216100        MOVE 52 TO PPS-RTC
216200        GOBACK.
216300
216400**----------------------------------------------------------------
216500** HOLD THE PROVIDER'S CBSA FROM PSF
216600** (EQUIVALENT TO GEO LOCATION CBSA IF NO STAND AMT LOC CBSA)
216700**----------------------------------------------------------------
216800     MOVE P-NEW-CBSA-STAND-AMT-LOC TO HOLD-PROV-CBSA.
216900
217000**----------------------------------------------------------------
217100** HOLD THE PROVIDER'S RECLASS CBSA IF RECLASS STATUS INDICATED
217200**----------------------------------------------------------------
217300     IF P-NEW-CBSA-WI-RECLASS OR P-NEW-CBSA-WI-DUAL
217400        MOVE P-NEW-CBSA-RECLASS-LOC TO HOLD-PROV-CBSA.
217500
217600**----------------------------------------------------------------
217700** IF THE PSF INDICATES THE SPECIAL WAGE INDEX SHOULD BE USED,
217800** VALIDATE THE SPECIAL WAGE INDEX VALUE AND EFFECTIVE DATE. IF
217900** VALID, USE THE SPECIAL WAGE INDEX AND SKIP THE NON-PR SPECIFIC
218000** CBSA WAGE INDEX SEARCH.
218100**----------------------------------------------------------------
218200     IF (P-NEW-CBSA-WI-SPECIAL AND
218300         P-NEW-CBSA-SPEC-WI-N NOT NUMERIC)
218400        MOVE ALL '0' TO PPS-ADDITIONAL-VARIABLES
218500        MOVE 52 TO PPS-RTC
218600        GOBACK.
218700
218800     IF (P-NEW-CBSA-WI-SPECIAL AND
218900         P-NEW-CBSA-SPEC-WI-N = ZEROES)
219000        MOVE ALL '0' TO PPS-ADDITIONAL-VARIABLES
219100        MOVE 52 TO PPS-RTC
219200        GOBACK.
219300
219400     IF (P-NEW-CBSA-WI-SPECIAL AND
219500        (P-NEW-EFF-DATE < W-FY-BEGIN-DATE OR
219600         P-NEW-EFF-DATE > W-FY-END-DATE))
219700        MOVE ALL '0' TO PPS-ADDITIONAL-VARIABLES
219800        MOVE 52 TO PPS-RTC
219900        GOBACK.
220000
220100     IF P-NEW-CBSA-WI-SPECIAL
220200        MOVE 'SPEC*'            TO W-NEW-CBSA-X
220300        MOVE P-NEW-EFF-DATE     TO W-NEW-CBSA-EFF-DATE
220400        MOVE P-NEW-CBSA-SPEC-WI TO W-NEW-CBSA-WI
220500        GO TO 0550-BYPASS.
220600
220700**----------------------------------------------------------------
220800** FOR FYS 2005 - 2014, CHANGE THE HOLD CBSA TO APPLY THE SECTION
220900** 401 HOSPITAL AND RURAL FLOOR POLICIES FOR CERTAIN PROVIDERS
221000**----------------------------------------------------------------
221100
221200**2005***********************************************************
221300     IF B-N-DISCHARGE-DATE > 20040930 AND
221400        B-N-DISCHARGE-DATE < 20050401
221500          PERFORM 2700-2005-WI-401-HOSPITAL THRU 2700-2005-EXIT.
221600
221700     IF B-N-DISCHARGE-DATE > 20050331 AND
221800        B-N-DISCHARGE-DATE < 20051001
221900          PERFORM 2750-2005-WI-401-HOSPITAL THRU 2750-2005-EXIT.
222000
222100     IF B-N-DISCHARGE-DATE > 20040930 AND
222200        B-N-DISCHARGE-DATE < 20051001
222300        PERFORM 2300-2005-FLOOR-CBSA THRU 2300-2005-EXIT.
222400
222500**2006***********************************************************
222600
222700     IF B-N-DISCHARGE-DATE > 20050930 AND
222800        B-N-DISCHARGE-DATE < 20061001
222900          PERFORM 2800-2006-WI-401-HOSPITAL THRU 2800-2006-EXIT.
223000
223100     IF B-N-DISCHARGE-DATE > 20050930 AND
223200        B-N-DISCHARGE-DATE < 20061001
223300        PERFORM 2300-2006-FLOOR-CBSA THRU 2300-2006-EXIT.
223400
223500**2007***********************************************************
223600
223700     IF B-N-DISCHARGE-DATE > 20060930 AND
223800        B-N-DISCHARGE-DATE < 20071001
223900          PERFORM 2800-2007-WI-401-HOSPITAL THRU 2800-2007-EXIT.
224000
224100     IF B-N-DISCHARGE-DATE > 20060930 AND
224200        B-N-DISCHARGE-DATE < 20071001
224300        PERFORM 2300-2007-FLOOR-CBSA THRU 2300-2007-EXIT.
224400
224500*****************************************************************
224600**2008***********************************************************
224700
224800     IF B-N-DISCHARGE-DATE > 20070930 AND
224900        B-N-DISCHARGE-DATE < 20081001
225000          PERFORM 2800-2008-WI-401-HOSPITAL THRU 2800-2008-EXIT.
225100
225200     IF B-N-DISCHARGE-DATE > 20070930 AND
225300        B-N-DISCHARGE-DATE < 20081001
225400        PERFORM 2300-2008-FLOOR-CBSA THRU 2300-2008-EXIT.
225500
225600*****************************************************************
225700**2009***********************************************************
225800
225900     IF B-N-DISCHARGE-DATE > 20080930 AND
226000        B-N-DISCHARGE-DATE < 20091001
226100          PERFORM 2800-2009-WI-401-HOSPITAL THRU 2800-2009-EXIT.
226200
226300     IF B-N-DISCHARGE-DATE > 20080930 AND
226400        B-N-DISCHARGE-DATE < 20091001
226500        PERFORM 2300-2009-FLOOR-CBSA THRU 2300-2009-EXIT.
226600
226700*****************************************************************
226800**2010***********************************************************
226900
227000     IF B-N-DISCHARGE-DATE > 20090930 AND
227100        B-N-DISCHARGE-DATE < 20101001
227200          PERFORM 2800-2010-WI-401-HOSPITAL THRU 2800-2010-EXIT.
227300
227400     IF B-N-DISCHARGE-DATE > 20090930 AND
227500        B-N-DISCHARGE-DATE < 20101001
227600        PERFORM 2300-2010-FLOOR-CBSA THRU 2300-2010-EXIT.
227700
227800*****************************************************************
227900**2011***********************************************************
228000
228100     IF B-N-DISCHARGE-DATE > 20100930 AND
228200        B-N-DISCHARGE-DATE < 20111001
228300          PERFORM 2800-2011-WI-401-HOSPITAL THRU 2800-2011-EXIT.
228400
228500     IF B-N-DISCHARGE-DATE > 20100930 AND
228600        B-N-DISCHARGE-DATE < 20111001
228700        PERFORM 2300-2011-FLOOR-CBSA THRU 2300-2011-EXIT.
228800
228900**2012***********************************************************
229000
229100     IF B-N-DISCHARGE-DATE > 20110930 AND
229200        B-N-DISCHARGE-DATE < 20121001
229300          PERFORM 2800-2012-WI-401-HOSPITAL THRU 2800-2012-EXIT.
229400
229500     IF B-N-DISCHARGE-DATE > 20110930 AND
229600        B-N-DISCHARGE-DATE < 20121001
229700        PERFORM 2300-2012-FLOOR-CBSA THRU 2300-2012-EXIT.
229800
229900*****************************************************************
230000**2013***********************************************************
230100
230200     IF B-N-DISCHARGE-DATE > 20120930 AND
230300        B-N-DISCHARGE-DATE < 20131001
230400          PERFORM 2800-2013-WI-401-HOSPITAL THRU 2800-2013-EXIT.
230500
230600     IF B-N-DISCHARGE-DATE > 20120930 AND
230700        B-N-DISCHARGE-DATE < 20131001
230800        PERFORM 2300-2013-FLOOR-CBSA THRU 2300-2013-EXIT.
230900
231000**2014***********************************************************
231100
231200     IF B-N-DISCHARGE-DATE > 20130930 AND
231300        B-N-DISCHARGE-DATE < 20141001
231400          PERFORM 2800-2014-WI-401-HOSPITAL THRU 2800-2014-EXIT.
231500
231600     IF B-N-DISCHARGE-DATE > 20130930 AND
231700        B-N-DISCHARGE-DATE < 20141001
231800        PERFORM 2300-2014-FLOOR-CBSA THRU 2300-2014-EXIT.
231900
232000**2015***********************************************************
232100* 401 HOSPITAL PROCESS STOPPED FOR FY2015
232200**2015***********************************************************
232300*
232400*    IF B-N-DISCHARGE-DATE > 20140930
232500*         PERFORM 2800-2015-WI-401-HOSPITAL THRU 2800-2015-EXIT.
232600*
232700*****************************************************************
232800
232900**----------------------------------------------------------------
233000** SEARCH FOR THE HOLD CBSA IN THE CBSA WAGE INDEX TABLE, AND
233100** ID THE FIRST RECORD FOR THE HOLD CBSA IN THE TABLE
233200**----------------------------------------------------------------
233300     PERFORM 0150-GET-CBSA THRU 0150-EXIT.
233400
233500***  RTC = 52  --  CBSA NOT FOUND
233600     IF PPS-RTC = 52 GOBACK.
233700
233800**----------------------------------------------------------------
233900** GET CBSA WAGE INDEX - BASED ON DISCHARGE DATE
234000**----------------------------------------------------------------
234100     IF PPS-RTC = 00
234200        PERFORM 0650-N-GET-CBSA-WAGE-INDX
234300         THRU   0650-N-EXIT VARYING MA2
234400                FROM MA1 BY 1 UNTIL
234500                T-CBSA (MA2) NOT = HOLD-PROV-CBSA.
234600
234700**----------------------------------------------------------------
234800** FOR FYS 2015 AND AFTER, APPLY THE RURAL FLOOR POLICY
234900**----------------------------------------------------------------
235000     IF B-N-DISCHARGE-DATE > 20140930
235100          PERFORM 2300-2015-FWD-FLOOR-CBSA
235200             THRU 2300-2015-EXIT.
235300
235400**----------------------------------------------------------------
235500** FOR FYS 2018 AND AFTER, APPLY THE OUTMIGRATION ADJUSTMENT
235600**----------------------------------------------------------------
235700
235800     IF OUTM-IND = 1
235900        COMPUTE W-NEW-CBSA-WI = W-NEW-CBSA-WI + HLD-OUTM-ADJ.
236000
236100**----------------------------------------------------------------
236200** FOR FYS 2020 THROUGH 2023, APPLY THE WAGE INDEX BOOST
236300**----------------------------------------------------------------
236400
236500     IF B-N-DISCHARGE-DATE > 20190930 AND
236600        B-N-DISCHARGE-DATE < 20201001
236700        IF W-NEW-CBSA-WI < WI_QUARTILE_FY2020
236800           COMPUTE W-NEW-CBSA-WI ROUNDED =
236900             ((WI_QUARTILE_FY2020 - W-NEW-CBSA-WI) / 2)
237000             + W-NEW-CBSA-WI.
237100
237200**----------------------------------------------------------------
237300** FOR FY 2020, APPLY RURAL FLOOR POLICY TRANSITION ADJUSTMENT
237400**----------------------------------------------------------------
237500
237600     IF B-N-DISCHARGE-DATE > 20190930 AND
237700        B-N-DISCHARGE-DATE < 20201001
237800        PERFORM 1000-GET-PREVYR-WI THRU 1000-EXIT.
237900
238000     IF B-N-DISCHARGE-DATE > 20190930 AND
238100        B-N-DISCHARGE-DATE < 20201001
238200        IF (((W-NEW-CBSA-WI - HLD-PREV-WI) / HLD-PREV-WI)
238300              < WI_PCT_REDUC_FY2020)
238400           COMPUTE W-NEW-CBSA-WI ROUNDED =
238500              HLD-PREV-WI * WI_PCT_ADJ_FY2020.
238600
238700 0550-BYPASS.
238800
238900**----------------------------------------------------------------
239000** GET WAGE INDEX FOR INDIAN HEALTH SERVICE PROVIDERS
239100**----------------------------------------------------------------
239200     IF P-N-INDIAN-HEALTH-SERVICE
239300        MOVE 00 TO PPS-RTC
239400        PERFORM 0850-N-GET-CBSA-INDIAN-WI THRU 0850-EXIT.
239500
239600***  RTC = 52  --  WAGE-INDEX NOT FOUND
239700     IF PPS-RTC = 52 GOBACK.
239800
239900     IF W-NEW-CBSA-WI NOT NUMERIC
240000        MOVE 0 TO W-NEW-CBSA-WI.
240100
240200     IF W-NEW-CBSA-WI = 00.0000
240300        MOVE ALL '0' TO PPS-ADDITIONAL-VARIABLES
240400        MOVE 52 TO PPS-RTC
240500        GOBACK.
240600
240700**----------------------------------------------------------------
240800** GET CBSA WAGE SIZE  - BASED ON DISCHARGE DATE
240900**----------------------------------------------------------------
241000     MOVE P-NEW-CBSA-STAND-AMT-LOC TO HOLD-PROV-CBSA.
241100
241200     PERFORM 0150-GET-CBSA THRU 0150-EXIT.
241300
241400***  RTC = 52  --  WAGE-INDEX NOT FOUND
241500     IF PPS-RTC = 52 GOBACK.
241600
241700     IF PPS-RTC = 00
241800        PERFORM 0750-GET-CBSA-SIZE
241900           THRU 0750-EXIT VARYING MA2
242000           FROM MA1 BY 1 UNTIL
242100           T-CBSA (MA2) NOT = HOLD-PROV-CBSA.
242200
242300**----------------------------------------------------------------
242400** FOR PUERTO RICO PROVIDERS, GET THE PUERTO RICO SPECIFIC
242500** WAGE INDEX
242600**----------------------------------------------------------------
242700     IF P-PR-NEW-STATE AND B-N-DISCHARGE-DATE < 20161001
242800        PERFORM 0250-N-GET-CBSA-PR THRU 0250-EXIT.
242900
243000**----------------------------------------------------------------
243100** FOR FYS 2015 AND AFTER, APPLY THE RURAL FLOOR POLICY TO THE
243200** PUERTO RICO SPECIFIC WAGE INDEX
243300**----------------------------------------------------------------
243400     IF P-PR-NEW-STATE AND B-N-DISCHARGE-DATE > 20140930
243500                       AND B-N-DISCHARGE-DATE < 20161001
243600        PERFORM 2350-2015-FWD-FLOOR-CBSA-PR
243700           THRU 2350-2015-EXIT.
243800
243900***  RTC = 52  --  WAGE-INDEX NOT FOUND
244000     IF PPS-RTC = 52 GOBACK.
244100
244200     IF P-PR-NEW-STATE AND B-N-DISCHARGE-DATE > 20160930
244300        GO TO 0550-EXIT.
244400
244500     IF P-PR-NEW-STATE AND
244600        W-NEW-CBSA-PR-WI NOT NUMERIC
244700        MOVE 0 TO W-NEW-CBSA-PR-WI.
244800
244900     IF P-PR-NEW-STATE AND
245000        W-NEW-CBSA-PR-WI = 00.0000
245100        MOVE ALL '0' TO PPS-ADDITIONAL-VARIABLES
245200        MOVE 52 TO PPS-RTC
245300        GOBACK.
245400
245500 0550-EXIT.  EXIT.
245600
245700 0600-N-GET-WAGE-INDX.
245800
245900     IF  B-N-DISCHARGE-DATE NOT < M-MSAX-EFF-DATE (MU2)
246000         MOVE M-MSAX-MSA        (MU2) TO W-NEW-MSA
246100         MOVE M-MSAX-EFF-DATE   (MU2) TO W-NEW-EFF-DATE
246200         MOVE M-MSAX-WAGE-INDX1 (MU2) TO W-NEW-INDEX-RECORD
246300         IF P-NEW-CHG-CODE-INDEX  = 'Y'
246400            MOVE M-MSAX-WAGE-INDX2 (MU2) TO W-NEW-INDEX-RECORD.
246500
246600 0600-N-EXIT.  EXIT.
246700
246800 0650-N-GET-CBSA-WAGE-INDX.
246900
247000     IF  B-N-DISCHARGE-DATE NOT < T-CBSA-EFF-DATE (MA2)
247100       IF (HOLD-PROV-CBSA = '   98'  OR
247200           HOLD-PROV-CBSA = '   99') OR
247300          (T-CBSA-EFF-DATE (MA2) >= W-FY-BEGIN-DATE AND
247400           T-CBSA-EFF-DATE (MA2) <= W-FY-END-DATE)
247500         MOVE T-CBSA            (MA2) TO W-NEW-CBSA-X
247600         MOVE T-CBSA-EFF-DATE   (MA2) TO W-NEW-CBSA-EFF-DATE
247700         MOVE T-CBSA-WAGE-INDX1 (MA2) TO W-NEW-CBSA-WI
247800         IF P-NEW-CBSA-WI-RECLASS
247900            MOVE T-CBSA-WAGE-INDX2 (MA2) TO W-NEW-CBSA-WI.
248000
248100 0650-N-EXIT.  EXIT.
248200
248300 0660-GET-RURAL-CBSA-WAGE-INDX.
248400
248500     IF  B-N-DISCHARGE-DATE NOT < T-CBSA-EFF-DATE (MA2) AND
248600         T-CBSA-EFF-DATE (MA2) >= W-FY-BEGIN-DATE AND
248700         T-CBSA-EFF-DATE (MA2) <= W-FY-END-DATE
248800         MOVE T-CBSA            (MA2) TO W-RURAL-CBSA-X
248900         MOVE T-CBSA-EFF-DATE   (MA2) TO W-RURAL-CBSA-EFF-DATE
249000         MOVE T-CBSA-WAGE-INDX1 (MA2) TO W-RURAL-CBSA-WI.
249100
249200 0660-EXIT.  EXIT.
249300
249400 0690-GET-RURAL-FLOOR-WAGE-INDX.
249500
249600     IF  B-N-DISCHARGE-DATE NOT < RUFL-EFF-DATE (RUFL-IDX2) AND
249700         RUFL-EFF-DATE (RUFL-IDX2) >= W-FY-BEGIN-DATE AND
249800         RUFL-EFF-DATE (RUFL-IDX2) <= W-FY-END-DATE
249900         MOVE RUFL-CBSA      (RUFL-IDX2)  TO W-RURAL-CBSA-X
250000         MOVE RUFL-EFF-DATE  (RUFL-IDX2)  TO W-RURAL-CBSA-EFF-DATE
250100         MOVE RUFL-WI3       (RUFL-IDX2)  TO W-RURAL-CBSA-WI.
250200
250300 0690-EXIT.  EXIT.
250400
250500 0700-N-GET-WAGE-SIZE.
250600
250700     IF  B-N-DISCHARGE-DATE NOT < M-MSAX-EFF-DATE (MU2)
250800         IF  P-NEW-STD-RURAL-CHECK
250900             MOVE 'R' TO W-NEW-SIZE
251000         ELSE
251100         IF  M-MSAX-SIZE (MU2) = 'L'
251200             MOVE 'L' TO W-NEW-SIZE
251300         ELSE
251400             MOVE 'O' TO W-NEW-SIZE.
251500 0700-N-EXIT.  EXIT.
251600
251700 0750-GET-CBSA-SIZE.
251800
251900     IF  B-N-DISCHARGE-DATE NOT < T-CBSA-EFF-DATE (MA2)
252000         IF  P-NEW-CBSA-STD-RURAL-CHECK
252100             MOVE 'R' TO W-NEW-CBSA-SIZE
252200         ELSE
252300         IF  T-CBSA-SIZE (MA2) = 'L'
252400             MOVE 'L' TO W-NEW-CBSA-SIZE
252500         ELSE
252600             MOVE 'O' TO W-NEW-CBSA-SIZE.
252700 0750-EXIT.  EXIT.
252800
252900 0800-N-GET-INDIAN-WI.
253000     IF  P-NEW-STATE = 02
253100             MOVE 98 TO H-MSAX-PROV-STATE
253200     ELSE
253300             MOVE 99 TO H-MSAX-PROV-STATE.
253400
253500     MOVE   '  '  TO H-MSAX-PROV-BLANK.
253600
253700     PERFORM 0100-GET-MSA THRU 0100-EXIT.
253800
253900     IF PPS-RTC = 00
254000        PERFORM 0600-N-GET-WAGE-INDX
254100            THRU 0600-N-EXIT VARYING MU2
254200            FROM MU1 BY 1 UNTIL
254300            M-MSAX-MSA (MU2) NOT = HOLD-PROV-MSAX.
254400
254500 0800-N-EXIT.  EXIT.
254600
254700 0850-N-GET-CBSA-INDIAN-WI.
254800     IF  P-NEW-STATE = 02
254900             MOVE 98 TO H-CBSA-PROV-STATE
255000     ELSE
255100             MOVE 99 TO H-CBSA-PROV-STATE.
255200
255300     MOVE  '   '  TO H-CBSA-PROV-BLANK.
255400
255500     PERFORM 0150-GET-CBSA THRU 0150-EXIT.
255600
255700     IF PPS-RTC = 00
255800        PERFORM 0650-N-GET-CBSA-WAGE-INDX
255900            THRU 0650-N-EXIT VARYING MA2
256000            FROM MA1 BY 1 UNTIL
256100            T-CBSA (MA2) NOT = HOLD-PROV-CBSA.
256200 0850-EXIT.  EXIT.
256300
256400 0900-GET-COUNTY-CODE.
256500
256600     SET OUTM-IDX TO 1.
256700
256800     SEARCH OUTM-TAB VARYING OUTM-IDX
256900     AT END
257000          GO TO 0900-EXIT
257100     WHEN OUTM-CNTY(OUTM-IDX) = P-NEW-COUNTY-CODE-X
257200        SET OUTM-IDX2 TO OUTM-IDX
257300        MOVE 1 TO OUTM-IND.
257400
257500 0900-EXIT.  EXIT.
257600
257700 0950-GET-OUTM-ADJ.
257800
257900     IF OUTM-EFF-DATE(OUTM-IDX2) <= B-N-DISCHARGE-DATE AND
258000        OUTM-EFF-DATE(OUTM-IDX2) >= W-FY-BEGIN-DATE AND
258100        OUTM-EFF-DATE(OUTM-IDX2) <= W-FY-END-DATE
258200          MOVE OUTM-ADJ-FACT(OUTM-IDX2) TO HLD-OUTM-ADJ.
258300
258400 0950-EXIT.  EXIT.
258500
258600 1000-GET-PREVYR-WI.
258700
258800     SET PREV-IDX TO 1.
258900
259000     SEARCH PREV-TAB VARYING PREV-IDX
259100     AT END
259200       MOVE 52 TO PPS-RTC
259300       GOBACK
259400     WHEN PREV-PROV(PREV-IDX) = P-NEW-PROVIDER-NO
259500       MOVE PREV-WI(PREV-IDX) TO HLD-PREV-WI.
259600
259700 1000-EXIT.  EXIT.
259800
259900*-----------------------------------------------------------------
260000
260100 2300-1998-FLOOR-MSA.
260200
260300        IF HOLD-PROV-MSAX = '6020'
260400           AND P-NEW-STATE = 36
260500               MOVE '  36' TO HOLD-PROV-MSAX.
260600
260700        IF HOLD-PROV-MSAX = '9000'
260800           AND P-NEW-STATE = 36
260900                MOVE '  36' TO HOLD-PROV-MSAX.
261000
261100 2300-1998-EXIT.  EXIT.
261200
261300 2300-1999-FLOOR-MSA.
261400
261500        IF HOLD-PROV-MSAX = '6020'
261600           AND P-NEW-STATE = 36
261700               MOVE '  36' TO HOLD-PROV-MSAX.
261800
261900        IF HOLD-PROV-MSAX = '9000'
262000           AND P-NEW-STATE = 36
262100                MOVE '  36' TO HOLD-PROV-MSAX.
262200
262300        IF HOLD-PROV-MSAX = '8080'
262400           AND P-NEW-STATE = 36
262500               MOVE '  36' TO HOLD-PROV-MSAX.
262600
262700        IF HOLD-PROV-MSAX = '1900'
262800           AND P-NEW-STATE = 21
262900               MOVE '  21' TO HOLD-PROV-MSAX.
263000
263100        IF HOLD-PROV-MSAX = '6340'
263200           AND P-NEW-CHG-CODE-INDEX = 'Y'
263300           AND P-NEW-STATE = 53
263400               MOVE '  53' TO HOLD-PROV-MSAX.
263500
263600 2300-1999-EXIT. EXIT.
263700
263800 2300-2000-FLOOR-MSA.
263900
264000        IF HOLD-PROV-MSAX = '6020'
264100           AND P-NEW-STATE = 36
264200               MOVE '  36' TO HOLD-PROV-MSAX.
264300
264400        IF HOLD-PROV-MSAX = '9000'
264500           AND P-NEW-STATE = 36
264600                MOVE '  36' TO HOLD-PROV-MSAX.
264700
264800        IF HOLD-PROV-MSAX = '8080'
264900           AND P-NEW-STATE = 36
265000               MOVE '  36' TO HOLD-PROV-MSAX.
265100
265200        IF HOLD-PROV-MSAX = '2440'
265300           AND P-NEW-STATE = 15
265400               MOVE '  15' TO HOLD-PROV-MSAX.
265500
265600        IF HOLD-PROV-MSAX = '2520'
265700           AND P-NEW-CHG-CODE-INDEX = 'Y'
265800           AND P-NEW-STATE = 24
265900               MOVE '  24' TO HOLD-PROV-MSAX.
266000
266100        IF HOLD-PROV-MSAX = '1123'
266200           AND P-NEW-STATE = 22
266300               MOVE '  22' TO HOLD-PROV-MSAX.
266400
266500 2300-2000-EXIT. EXIT.
266600
266700 2300-2001-FLOOR-MSA.
266800
266900        IF HOLD-PROV-MSAX = '1900'
267000           AND P-NEW-STATE = 21
267100               MOVE '  21' TO HOLD-PROV-MSAX.
267200
267300        IF HOLD-PROV-MSAX = '6020'
267400           AND P-NEW-STATE = 36
267500               MOVE '  36' TO HOLD-PROV-MSAX.
267600
267700        IF HOLD-PROV-MSAX = '8080'
267800           AND P-NEW-STATE = 36
267900               MOVE '  36' TO HOLD-PROV-MSAX.
268000
268100        IF HOLD-PROV-MSAX = '1123'
268200           AND P-NEW-STATE = 22
268300               MOVE '  22' TO HOLD-PROV-MSAX.
268400
268500        IF HOLD-PROV-MSAX = '2440'
268600           AND P-NEW-STATE = 15
268700               MOVE '  15' TO HOLD-PROV-MSAX.
268800
268900        IF HOLD-PROV-MSAX = '9000'
269000           AND P-NEW-STATE = 36
269100                MOVE '  36' TO HOLD-PROV-MSAX.
269200
269300        IF HOLD-PROV-MSAX = '9000'
269400           AND P-NEW-STATE = 51
269500                MOVE '  51' TO HOLD-PROV-MSAX.
269600
269700 2300-2001-EXIT. EXIT.
269800
269900 2300-2002-FLOOR-MSA.
270000
270100        IF HOLD-PROV-MSAX = '1123'
270200           AND P-NEW-STATE = 22
270300               MOVE '  22' TO HOLD-PROV-MSAX.
270400
270500        IF HOLD-PROV-MSAX = '1900'
270600           AND P-NEW-STATE = 21
270700               MOVE '  21' TO HOLD-PROV-MSAX.
270800
270900        IF HOLD-PROV-MSAX = '2440'
271000           AND P-NEW-STATE = 15
271100               MOVE '  15' TO HOLD-PROV-MSAX.
271200
271300        IF HOLD-PROV-MSAX = '6020'
271400           AND P-NEW-STATE = 36
271500               MOVE '  36' TO HOLD-PROV-MSAX.
271600
271700        IF HOLD-PROV-MSAX = '8080'
271800           AND P-NEW-STATE = 36
271900               MOVE '  36' TO HOLD-PROV-MSAX.
272000
272100        IF HOLD-PROV-MSAX = '9000'
272200           AND P-NEW-STATE = 36
272300                MOVE '  36' TO HOLD-PROV-MSAX.
272400
272500        IF HOLD-PROV-MSAX = '1303'
272600           AND P-NEW-CHG-CODE-INDEX = 'Y'
272700           AND P-NEW-STATE = 47
272800               MOVE 'N' TO P-NEW-CHG-CODE-INDEX
272900               MOVE '  47' TO HOLD-PROV-MSAX.
273000
273100        IF HOLD-PROV-MSAX = '  14'
273200           AND P-NEW-CHG-CODE-INDEX = 'Y'
273300           AND P-NEW-STATE = 16
273400               MOVE 'N' TO P-NEW-CHG-CODE-INDEX
273500               MOVE '  16' TO HOLD-PROV-MSAX.
273600
273700 2300-2002-EXIT. EXIT.
273800
273900 2300-2003-FLOOR-MSA.
274000
274100        IF HOLD-PROV-MSAX = '  14'
274200           AND P-NEW-CHG-CODE-INDEX = 'Y'
274300           AND P-NEW-STATE = 16
274400               MOVE 'N' TO P-NEW-CHG-CODE-INDEX
274500               MOVE '  16' TO HOLD-PROV-MSAX.
274600
274700        IF HOLD-PROV-MSAX = '1123'
274800           AND P-NEW-STATE = 22
274900               MOVE '  22' TO HOLD-PROV-MSAX.
275000
275100        IF HOLD-PROV-MSAX = '1800'
275200           AND P-NEW-CHG-CODE-INDEX = 'Y'
275300           AND P-NEW-STATE = 11
275400               MOVE 'N' TO P-NEW-CHG-CODE-INDEX
275500               MOVE '  11' TO HOLD-PROV-MSAX.
275600
275700        IF HOLD-PROV-MSAX = '1900'
275800           AND P-NEW-STATE = 21
275900               MOVE '  21' TO HOLD-PROV-MSAX.
276000
276100        IF HOLD-PROV-MSAX = '2440'
276200           AND P-NEW-STATE = 15
276300               MOVE '  15' TO HOLD-PROV-MSAX.
276400
276500        IF HOLD-PROV-MSAX = '3660'
276600           AND P-NEW-CHG-CODE-INDEX = 'Y'
276700           AND P-NEW-STATE = 49
276800               MOVE 'N' TO P-NEW-CHG-CODE-INDEX
276900               MOVE '  49' TO HOLD-PROV-MSAX.
277000
277100        IF HOLD-PROV-MSAX = '3660'
277200           AND P-NEW-STATE = 49
277300               MOVE '  49' TO HOLD-PROV-MSAX.
277400
277500        IF HOLD-PROV-MSAX = '3700'
277600           AND P-NEW-CHG-CODE-INDEX = 'Y'
277700           AND P-NEW-STATE = 26
277800               MOVE 'N' TO P-NEW-CHG-CODE-INDEX
277900               MOVE '  26' TO HOLD-PROV-MSAX.
278000
278100        IF HOLD-PROV-MSAX = '6020'
278200           AND P-NEW-STATE = 36
278300               MOVE '  36' TO HOLD-PROV-MSAX.
278400
278500        IF HOLD-PROV-MSAX = '9000'
278600           AND P-NEW-STATE = 36
278700                MOVE '  36' TO HOLD-PROV-MSAX.
278800
278900 2300-2003-EXIT. EXIT.
279000
279100 2300-2004-FLOOR-MSA.
279200
279300        IF HOLD-PROV-MSAX = '  14'
279400           AND P-NEW-CHG-CODE-INDEX = 'Y'
279500           AND P-NEW-STATE = 16
279600               MOVE 'N' TO P-NEW-CHG-CODE-INDEX
279700               MOVE '  16' TO HOLD-PROV-MSAX.
279800
279900        IF HOLD-PROV-MSAX = '0200'
280000           AND P-NEW-CHG-CODE-INDEX = 'Y'
280100           AND P-NEW-STATE = 06
280200               MOVE 'N' TO P-NEW-CHG-CODE-INDEX
280300               MOVE '  06' TO HOLD-PROV-MSAX.
280400
280500        IF HOLD-PROV-MSAX = '1480'
280600           AND P-NEW-CHG-CODE-INDEX = 'Y'
280700           AND P-NEW-STATE = 36
280800               MOVE 'N' TO P-NEW-CHG-CODE-INDEX
280900               MOVE '  36' TO HOLD-PROV-MSAX.
281000
281100        IF HOLD-PROV-MSAX = '1900'
281200           AND P-NEW-STATE = 21
281300               MOVE '  21' TO HOLD-PROV-MSAX.
281400
281500        IF HOLD-PROV-MSAX = '2440'
281600           AND P-NEW-STATE = 15
281700               MOVE '  15' TO HOLD-PROV-MSAX.
281800
281900        IF HOLD-PROV-MSAX = '2985'
282000           AND P-NEW-STATE = 24
282100               MOVE '  24' TO HOLD-PROV-MSAX.
282200
282300        IF HOLD-PROV-MSAX = '3660'
282400           AND P-NEW-CHG-CODE-INDEX = 'Y'
282500           AND P-NEW-STATE = 49
282600               MOVE 'N' TO P-NEW-CHG-CODE-INDEX
282700               MOVE '  49' TO HOLD-PROV-MSAX.
282800
282900        IF HOLD-PROV-MSAX = '3660'
283000           AND P-NEW-STATE = 49
283100               MOVE '  49' TO HOLD-PROV-MSAX.
283200
283300        IF HOLD-PROV-MSAX = '3700'
283400           AND P-NEW-CHG-CODE-INDEX = 'Y'
283500           AND P-NEW-STATE = 26
283600               MOVE 'N' TO P-NEW-CHG-CODE-INDEX
283700               MOVE '  26' TO HOLD-PROV-MSAX.
283800
283900        IF HOLD-PROV-MSAX = '6020'
284000           AND P-NEW-STATE = 36
284100               MOVE '  36' TO HOLD-PROV-MSAX.
284200
284300        IF HOLD-PROV-MSAX = '6740'
284400           AND P-NEW-CHG-CODE-INDEX = 'Y'
284500           AND P-NEW-STATE = 50
284600               MOVE 'N' TO P-NEW-CHG-CODE-INDEX
284700               MOVE '  50' TO HOLD-PROV-MSAX.
284800
284900        IF HOLD-PROV-MSAX = '7720'
285000           AND P-NEW-CHG-CODE-INDEX = 'Y'
285100           AND P-NEW-STATE = 28
285200               MOVE 'N' TO P-NEW-CHG-CODE-INDEX
285300               MOVE '  28' TO HOLD-PROV-MSAX.
285400
285500        IF HOLD-PROV-MSAX = '8080'
285600           AND P-NEW-STATE = 36
285700                MOVE '  36' TO HOLD-PROV-MSAX.
285800
285900        IF HOLD-PROV-MSAX = '9000'
286000           AND P-NEW-STATE = 36
286100                MOVE '  36' TO HOLD-PROV-MSAX.
286200
286300 2300-2004-EXIT. EXIT.
286400 2300-2004-RECLASS152.
286500
286600       IF (P-NEW-PROVIDER-NO = '330001' OR '330126' OR
286700                               '330135' OR '330205' OR
286800                               '330209' OR '330264')
286900          AND (P-NEW-WAGE-INDEX-LOC-MSA = '5600'
287000          AND  P-NEW-CHG-CODE-INDEX = 'Y')
287100               MOVE 1.3892 TO W-NEW-INDEX-RECORD.
287200
287300       IF (P-NEW-PROVIDER-NO = '470003')
287400          AND (P-NEW-WAGE-INDEX-LOC-MSA = '1123'
287500          AND  P-NEW-CHG-CODE-INDEX = 'Y')
287600               MOVE 1.1120 TO W-NEW-INDEX-RECORD.
287700
287800 2300-2004-RECLASS-EXIT. EXIT.
287900
288000 2300-2005-FLOOR-CBSA.
288100
288200        IF HOLD-PROV-CBSA = '10900'
288300           AND P-NEW-STATE = 31
288400               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
288500               MOVE '   31' TO HOLD-PROV-CBSA.
288600
288700        IF HOLD-PROV-CBSA = '16620'
288800           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
288900           AND P-NEW-STATE = 36
289000               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
289100               MOVE '   36' TO HOLD-PROV-CBSA.
289200
289300        IF HOLD-PROV-CBSA = '19060'
289400           AND P-NEW-STATE = 21
289500               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
289600               MOVE '   21' TO HOLD-PROV-CBSA.
289700
289800        IF HOLD-PROV-CBSA = '21780'
289900           AND P-NEW-STATE = 15
290000               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
290100               MOVE '   15' TO HOLD-PROV-CBSA.
290200
290300        IF HOLD-PROV-CBSA = '22020'
290400           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
290500           AND P-NEW-STATE = 24
290600               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
290700               MOVE '   24' TO HOLD-PROV-CBSA.
290800
290900        IF HOLD-PROV-CBSA = '22020'
291000           AND P-NEW-STATE = 24
291100               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
291200               MOVE '   24' TO HOLD-PROV-CBSA.
291300
291400        IF HOLD-PROV-CBSA = '24220'
291500           AND P-NEW-STATE = 24
291600               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
291700               MOVE '   24' TO HOLD-PROV-CBSA.
291800
291900        IF HOLD-PROV-CBSA = '25540'
292000           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
292100           AND P-NEW-STATE = 07
292200               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
292300               MOVE '   07' TO HOLD-PROV-CBSA.
292400
292500        IF HOLD-PROV-CBSA = '29100'
292600           AND P-NEW-STATE = 52
292700               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
292800               MOVE '   52' TO HOLD-PROV-CBSA.
292900
293000        IF HOLD-PROV-CBSA = '30300'
293100           AND P-NEW-STATE = 50
293200               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
293300               MOVE '   50' TO HOLD-PROV-CBSA.
293400
293500        IF HOLD-PROV-CBSA = '37620'
293600           AND P-NEW-STATE = 36
293700               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
293800               MOVE '   36' TO HOLD-PROV-CBSA.
293900
294000        IF HOLD-PROV-CBSA = '48260'
294100           AND P-NEW-STATE = 36
294200               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
294300               MOVE '   36' TO HOLD-PROV-CBSA.
294400
294500        IF HOLD-PROV-CBSA = '48540'
294600           AND P-NEW-STATE = 36
294700               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
294800               MOVE '   36' TO HOLD-PROV-CBSA.
294900
295000        IF HOLD-PROV-CBSA = '48864'
295100           AND P-NEW-STATE = 31
295200               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
295300               MOVE '   31' TO HOLD-PROV-CBSA.
295400
295500        IF HOLD-PROV-CBSA = '48864'
295600           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
295700           AND P-NEW-STATE = 31
295800               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
295900               MOVE '   31' TO HOLD-PROV-CBSA.
296000
296100        IF B-N-DISCHARGE-DATE > 20041231
296200           IF HOLD-PROV-CBSA = '39900'
296300              AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
296400              AND P-NEW-STATE = 05
296500                  MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
296600                  MOVE '   05' TO HOLD-PROV-CBSA.
296700
296800        IF B-N-DISCHARGE-DATE < 20050101
296900           IF (HOLD-PROV-CBSA = '28420'
297000               AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
297100               AND P-NEW-STATE = 50)
297200                  MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
297300                  MOVE '   50' TO HOLD-PROV-CBSA.
297400
297500 2300-2005-EXIT. EXIT.
297600
297700
297800 2300-2006-FLOOR-CBSA.
297900
298000        IF HOLD-PROV-CBSA = '   10'
298100           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
298200           AND P-NEW-STATE = 10
298300               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
298400               MOVE '   10' TO HOLD-PROV-CBSA.
298500
298600        IF HOLD-PROV-CBSA = '   50'
298700           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
298800           AND P-NEW-STATE = 50
298900               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
299000               MOVE '   50' TO HOLD-PROV-CBSA.
299100
299200        IF HOLD-PROV-CBSA = '10900'
299300           AND P-NEW-STATE = 31
299400               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
299500               MOVE '   31' TO HOLD-PROV-CBSA.
299600
299700        IF HOLD-PROV-CBSA = '15764'
299800           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
299900           AND P-NEW-STATE = 30
300000               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
300100               MOVE '   30' TO HOLD-PROV-CBSA.
300200
300300        IF HOLD-PROV-CBSA = '16620'
300400           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
300500           AND P-NEW-STATE = 36
300600               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
300700               MOVE '   36' TO HOLD-PROV-CBSA.
300800
300900        IF HOLD-PROV-CBSA = '19060'
301000           AND P-NEW-STATE = 21
301100               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
301200               MOVE '   21' TO HOLD-PROV-CBSA.
301300
301400        IF HOLD-PROV-CBSA = '22020'
301500           AND P-NEW-STATE = 24
301600               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
301700               MOVE '   24' TO HOLD-PROV-CBSA.
301800
301900        IF HOLD-PROV-CBSA = '24220'
302000           AND P-NEW-STATE = 24
302100               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
302200               MOVE '   24' TO HOLD-PROV-CBSA.
302300
302400        IF HOLD-PROV-CBSA = '24580'
302500           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
302600           AND P-NEW-STATE = 52
302700               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
302800               MOVE '   52' TO HOLD-PROV-CBSA.
302900
303000        IF HOLD-PROV-CBSA = '25540'
303100           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
303200           AND P-NEW-STATE = 07
303300               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
303400               MOVE '   07' TO HOLD-PROV-CBSA.
303500
303600        IF HOLD-PROV-CBSA = '30300'
303700           AND P-NEW-STATE = 50
303800               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
303900               MOVE '   50' TO HOLD-PROV-CBSA.
304000
304100        IF HOLD-PROV-CBSA = '37620'
304200           AND P-NEW-STATE = 36
304300               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
304400               MOVE '   36' TO HOLD-PROV-CBSA.
304500
304600        IF HOLD-PROV-CBSA = '39900'
304700           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
304800           AND P-NEW-STATE = 05
304900               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
305000               MOVE '   05' TO HOLD-PROV-CBSA.
305100
305200        IF HOLD-PROV-CBSA = '48260'
305300           AND P-NEW-STATE = 36
305400               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
305500               MOVE '   36' TO HOLD-PROV-CBSA.
305600
305700        IF HOLD-PROV-CBSA = '48540'
305800           AND P-NEW-STATE = 36
305900               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
306000               MOVE '   36' TO HOLD-PROV-CBSA.
306100
306200        IF HOLD-PROV-CBSA = '48540'
306300           AND P-NEW-STATE = 51
306400               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
306500               MOVE '   51' TO HOLD-PROV-CBSA.
306600
306700        IF HOLD-PROV-CBSA = '48864'
306800           AND P-NEW-STATE = 31
306900               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
307000               MOVE '   31' TO HOLD-PROV-CBSA.
307100
307200        IF HOLD-PROV-CBSA = '49660'
307300           AND P-NEW-STATE = 36
307400               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
307500               MOVE '   36' TO HOLD-PROV-CBSA.
307600
307700 2300-2006-EXIT. EXIT.
307800
307900 2300-2007-FLOOR-CBSA.
308000
308100        IF HOLD-PROV-CBSA = '   10'
308200           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
308300           AND P-NEW-STATE = 10
308400               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
308500               MOVE '   10' TO HOLD-PROV-CBSA.
308600
308700        IF HOLD-PROV-CBSA = '   14'
308800           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
308900           AND P-NEW-STATE = 14
309000               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
309100               MOVE '   14' TO HOLD-PROV-CBSA.
309200
309300        IF HOLD-PROV-CBSA = '   26'
309400           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
309500           AND P-NEW-STATE = 26
309600               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
309700               MOVE '   26' TO HOLD-PROV-CBSA.
309800
309900        IF HOLD-PROV-CBSA = '   50'
310000           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
310100           AND P-NEW-STATE = 50
310200               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
310300               MOVE '   50' TO HOLD-PROV-CBSA.
310400
310500        IF HOLD-PROV-CBSA = '10900'
310600           AND P-NEW-STATE = 31
310700               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
310800               MOVE '   31' TO HOLD-PROV-CBSA.
310900
311000        IF HOLD-PROV-CBSA = '19060'
311100           AND P-NEW-STATE = 21
311200               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
311300               MOVE '   21' TO HOLD-PROV-CBSA.
311400
311500        IF HOLD-PROV-CBSA = '22020'
311600           AND P-NEW-STATE = 24
311700               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
311800               MOVE '   24' TO HOLD-PROV-CBSA.
311900
312000        IF HOLD-PROV-CBSA = '24220'
312100           AND P-NEW-STATE = 24
312200               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
312300               MOVE '   24' TO HOLD-PROV-CBSA.
312400
312500        IF HOLD-PROV-CBSA = '24580'
312600           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
312700           AND P-NEW-STATE = 52
312800               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
312900               MOVE '   52' TO HOLD-PROV-CBSA.
313000
313100        IF HOLD-PROV-CBSA = '25540'
313200           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
313300           AND P-NEW-STATE = 07
313400               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
313500               MOVE '   07' TO HOLD-PROV-CBSA.
313600
313700        IF HOLD-PROV-CBSA = '26580'
313800           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
313900           AND P-NEW-STATE = 36
314000               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
314100               MOVE '   36' TO HOLD-PROV-CBSA.
314200
314300        IF B-N-DISCHARGE-DATE < 20061103
314400           IF (HOLD-PROV-CBSA = '27860'
314500               AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
314600               AND P-NEW-STATE = 26)
314700                   MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
314800                   MOVE '   26' TO HOLD-PROV-CBSA.
314900
315000        IF HOLD-PROV-CBSA = '29100'
315100           AND P-NEW-STATE = 52
315200               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
315300               MOVE '   52' TO HOLD-PROV-CBSA.
315400
315500        IF HOLD-PROV-CBSA = '30300'
315600           AND P-NEW-STATE = 50
315700               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
315800               MOVE '   50' TO HOLD-PROV-CBSA.
315900
316000        IF HOLD-PROV-CBSA = '37620'
316100           AND P-NEW-STATE = 36
316200               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
316300               MOVE '   36' TO HOLD-PROV-CBSA.
316400
316500        IF HOLD-PROV-CBSA = '37964'
316600           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
316700           AND P-NEW-STATE = 31
316800               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
316900               MOVE '   31' TO HOLD-PROV-CBSA.
317000
317100        IF HOLD-PROV-CBSA = '38300'
317200           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
317300           AND P-NEW-STATE = 36
317400               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
317500               MOVE '   36' TO HOLD-PROV-CBSA.
317600
317700        IF HOLD-PROV-CBSA = '39300'
317800           AND P-NEW-STATE = 22
317900               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
318000               MOVE '   22' TO HOLD-PROV-CBSA.
318100
318200        IF HOLD-PROV-CBSA = '39300'
318300           AND P-NEW-STATE = 41
318400               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
318500               MOVE '   41' TO HOLD-PROV-CBSA.
318600
318700        IF HOLD-PROV-CBSA = '45500'
318800           AND P-NEW-STATE = 45
318900               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
319000               MOVE '   45' TO HOLD-PROV-CBSA.
319100
319200        IF HOLD-PROV-CBSA = '48260'
319300           AND P-NEW-STATE = 36
319400               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
319500               MOVE '   36' TO HOLD-PROV-CBSA.
319600
319700        IF HOLD-PROV-CBSA = '48540'
319800           AND P-NEW-STATE = 36
319900               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
320000               MOVE '   36' TO HOLD-PROV-CBSA.
320100
320200        IF HOLD-PROV-CBSA = '48540'
320300           AND P-NEW-STATE = 51
320400               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
320500               MOVE '   51' TO HOLD-PROV-CBSA.
320600
320700        IF HOLD-PROV-CBSA = '48864'
320800           AND P-NEW-STATE = 31
320900               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
321000               MOVE '   31' TO HOLD-PROV-CBSA.
321100
321200
321300 2300-2007-EXIT. EXIT.
321400
321500 2300-2008-FLOOR-CBSA.
321600
321700        IF HOLD-PROV-CBSA = '   39'
321800           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
321900           AND P-NEW-STATE = 33
322000               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
322100               MOVE '   33' TO HOLD-PROV-CBSA.
322200
322300        IF HOLD-PROV-CBSA = '   39'
322400           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
322500           AND P-NEW-STATE = 39
322600               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
322700               MOVE '   39' TO HOLD-PROV-CBSA.
322800
322900        IF HOLD-PROV-CBSA = '10900'
323000           AND P-NEW-STATE = 31
323100               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
323200               MOVE '   31' TO HOLD-PROV-CBSA.
323300
323400        IF HOLD-PROV-CBSA = '19060'
323500           AND P-NEW-STATE = 21
323600               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
323700               MOVE '   21' TO HOLD-PROV-CBSA.
323800
323900        IF HOLD-PROV-CBSA = '21780'
324000           AND P-NEW-STATE = 15
324100               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
324200               MOVE '   15' TO HOLD-PROV-CBSA.
324300
324400        IF HOLD-PROV-CBSA = '21780'
324500           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
324600           AND P-NEW-STATE = 15
324700               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
324800               MOVE '   15' TO HOLD-PROV-CBSA.
324900
325000        IF HOLD-PROV-CBSA = '22020'
325100           AND P-NEW-STATE = 24
325200               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
325300               MOVE '   24' TO HOLD-PROV-CBSA.
325400
325500        IF HOLD-PROV-CBSA = '24220'
325600           AND P-NEW-STATE = 24
325700               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
325800               MOVE '   24' TO HOLD-PROV-CBSA.
325900
326000        IF HOLD-PROV-CBSA = '24580'
326100           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
326200           AND P-NEW-STATE = 52
326300               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
326400               MOVE '   52' TO HOLD-PROV-CBSA.
326500
326600        IF HOLD-PROV-CBSA = '25540'
326700           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
326800           AND P-NEW-STATE = 07
326900               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
327000               MOVE '   07' TO HOLD-PROV-CBSA.
327100
327200        IF HOLD-PROV-CBSA = '28420'
327300           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
327400           AND P-NEW-STATE = 50
327500               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
327600               MOVE '   50' TO HOLD-PROV-CBSA.
327700
327800        IF HOLD-PROV-CBSA = '28700'
327900           AND P-NEW-STATE = 44
328000               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
328100               MOVE '   44' TO HOLD-PROV-CBSA.
328200
328300        IF HOLD-PROV-CBSA = '28700'
328400           AND P-NEW-STATE = 49
328500               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
328600               MOVE '   49' TO HOLD-PROV-CBSA.
328700
328800        IF HOLD-PROV-CBSA = '30300'
328900           AND P-NEW-STATE = 50
329000               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
329100               MOVE '   50' TO HOLD-PROV-CBSA.
329200
329300        IF HOLD-PROV-CBSA = '35084'
329400           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
329500           AND P-NEW-STATE = 31
329600               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
329700               MOVE '   31' TO HOLD-PROV-CBSA.
329800
329900        IF HOLD-PROV-CBSA = '37620'
330000           AND P-NEW-STATE = 36
330100               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
330200               MOVE '   36' TO HOLD-PROV-CBSA.
330300
330400        IF HOLD-PROV-CBSA = '37964'
330500           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
330600           AND P-NEW-STATE = 31
330700               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
330800               MOVE '   31' TO HOLD-PROV-CBSA.
330900
331000        IF HOLD-PROV-CBSA = '38300'
331100           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
331200           AND P-NEW-STATE = 36
331300               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
331400               MOVE '   36' TO HOLD-PROV-CBSA.
331500
331600        IF HOLD-PROV-CBSA = '45500'
331700           AND P-NEW-STATE = 45
331800               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
331900               MOVE '   45' TO HOLD-PROV-CBSA.
332000
332100        IF HOLD-PROV-CBSA = '48260'
332200           AND P-NEW-STATE = 36
332300               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
332400               MOVE '   36' TO HOLD-PROV-CBSA.
332500
332600        IF HOLD-PROV-CBSA = '48540'
332700           AND P-NEW-STATE = 36
332800               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
332900               MOVE '   36' TO HOLD-PROV-CBSA.
333000
333100        IF HOLD-PROV-CBSA = '48540'
333200           AND P-NEW-STATE = 51
333300               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
333400               MOVE '   51' TO HOLD-PROV-CBSA.
333500
333600        IF HOLD-PROV-CBSA = '48864'
333700           AND P-NEW-STATE = 31
333800               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
333900               MOVE '   31' TO HOLD-PROV-CBSA.
334000
334100        IF HOLD-PROV-CBSA = '48864'
334200           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
334300           AND P-NEW-STATE = 31
334400               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
334500               MOVE '   31' TO HOLD-PROV-CBSA.
334600
334700
334800 2300-2008-EXIT. EXIT.
334900
335000**************YEARCHANGE 2009.3 **********************      *****
335100
335200 2300-2009-FLOOR-CBSA.
335300
335400        IF HOLD-PROV-CBSA = '   04'
335500           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
335600           AND P-NEW-STATE = 04
335700               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
335800               MOVE '   04' TO HOLD-PROV-CBSA.
335900
336000        IF HOLD-PROV-CBSA = '   04'
336100           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
336200           AND P-NEW-STATE = 19
336300               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
336400               MOVE '   19' TO HOLD-PROV-CBSA.
336500
336600        IF HOLD-PROV-CBSA = '   14'
336700           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
336800           AND P-NEW-STATE = 14
336900               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
337000               MOVE '   14' TO HOLD-PROV-CBSA.
337100
337200        IF HOLD-PROV-CBSA = '   14'
337300           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
337400           AND P-NEW-STATE = 26
337500               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
337600               MOVE '   26' TO HOLD-PROV-CBSA.
337700
337800        IF HOLD-PROV-CBSA = '10900'
337900           AND P-NEW-STATE = 31
338000               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
338100               MOVE '   31' TO HOLD-PROV-CBSA.
338200
338300        IF HOLD-PROV-CBSA = '19340'
338400           AND P-NEW-STATE = 16
338500               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
338600               MOVE '   16' TO HOLD-PROV-CBSA.
338700
338800        IF HOLD-PROV-CBSA = '21780'
338900           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
339000           AND P-NEW-STATE = 15
339100               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
339200               MOVE '   15' TO HOLD-PROV-CBSA.
339300
339400        IF HOLD-PROV-CBSA = '22020'
339500           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
339600           AND P-NEW-STATE = 43
339700               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
339800               MOVE '   43' TO HOLD-PROV-CBSA.
339900
340000        IF HOLD-PROV-CBSA = '22900'
340100           AND P-NEW-STATE = 37
340200               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
340300               MOVE '   37' TO HOLD-PROV-CBSA.
340400
340500        IF HOLD-PROV-CBSA = '24580'
340600           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
340700           AND P-NEW-STATE = 52
340800               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
340900               MOVE '   52' TO HOLD-PROV-CBSA.
341000
341100        IF HOLD-PROV-CBSA = '25540'
341200           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
341300           AND P-NEW-STATE = 07
341400               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
341500               MOVE '   07' TO HOLD-PROV-CBSA.
341600
341700        IF HOLD-PROV-CBSA = '28420'
341800           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
341900           AND P-NEW-STATE = 50
342000               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
342100               MOVE '   50' TO HOLD-PROV-CBSA.
342200
342300        IF HOLD-PROV-CBSA = '28700'
342400           AND P-NEW-STATE = 44
342500               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
342600               MOVE '   44' TO HOLD-PROV-CBSA.
342700
342800        IF HOLD-PROV-CBSA = '28700'
342900           AND P-NEW-STATE = 49
343000               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
343100               MOVE '   49' TO HOLD-PROV-CBSA.
343200
343300        IF HOLD-PROV-CBSA = '28700'
343400           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
343500           AND P-NEW-STATE = 18
343600               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
343700               MOVE '   18' TO HOLD-PROV-CBSA.
343800
343900        IF HOLD-PROV-CBSA = '28700'
344000           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
344100           AND P-NEW-STATE = 44
344200               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
344300               MOVE '   44' TO HOLD-PROV-CBSA.
344400
344500        IF HOLD-PROV-CBSA = '28940'
344600           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
344700           AND P-NEW-STATE = 18
344800               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
344900               MOVE '   18' TO HOLD-PROV-CBSA.
345000
345100        IF HOLD-PROV-CBSA = '28940'
345200           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
345300           AND P-NEW-STATE = 44
345400               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
345500               MOVE '   44' TO HOLD-PROV-CBSA.
345600
345700        IF HOLD-PROV-CBSA = '34820'
345800           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
345900           AND P-NEW-STATE = 34
346000               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
346100               MOVE '   34' TO HOLD-PROV-CBSA.
346200
346300        IF HOLD-PROV-CBSA = '34820'
346400           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
346500           AND P-NEW-STATE = 42
346600               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
346700               MOVE '   42' TO HOLD-PROV-CBSA.
346800
346900        IF HOLD-PROV-CBSA = '37620'
347000           AND P-NEW-STATE = 36
347100               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
347200               MOVE '   36' TO HOLD-PROV-CBSA.
347300
347400        IF HOLD-PROV-CBSA = '37964'
347500           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
347600           AND P-NEW-STATE = 31
347700               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
347800               MOVE '   31' TO HOLD-PROV-CBSA.
347900
348000        IF HOLD-PROV-CBSA = '38340'
348100           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
348200           AND P-NEW-STATE = 47
348300               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
348400               MOVE '   47' TO HOLD-PROV-CBSA.
348500
348600        IF HOLD-PROV-CBSA = '41620'
348700           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
348800           AND P-NEW-STATE = 29
348900               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
349000               MOVE '   29' TO HOLD-PROV-CBSA.
349100
349200        IF HOLD-PROV-CBSA = '43580'
349300           AND P-NEW-STATE = 16
349400               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
349500               MOVE '   16' TO HOLD-PROV-CBSA.
349600
349700        IF HOLD-PROV-CBSA = '48540'
349800           AND P-NEW-STATE = 36
349900               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
350000               MOVE '   36' TO HOLD-PROV-CBSA.
350100
350200        IF HOLD-PROV-CBSA = '48540'
350300           AND P-NEW-STATE = 51
350400               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
350500               MOVE '   51' TO HOLD-PROV-CBSA.
350600
350700        IF HOLD-PROV-CBSA = '48864'
350800           AND P-NEW-STATE = 31
350900               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
351000               MOVE '   31' TO HOLD-PROV-CBSA.
351100
351200        IF HOLD-PROV-CBSA = '48864'
351300           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
351400           AND P-NEW-STATE = 31
351500               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
351600               MOVE '   31' TO HOLD-PROV-CBSA.
351700
351800        IF HOLD-PROV-CBSA = '19060'
351900           AND P-NEW-STATE = 21
352000               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
352100               MOVE '   21' TO HOLD-PROV-CBSA.
352200
352300        IF HOLD-PROV-CBSA = '19060'
352400           AND P-NEW-STATE = 51
352500               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
352600               MOVE '   51' TO HOLD-PROV-CBSA.
352700
352800        IF HOLD-PROV-CBSA = '22020'
352900           AND P-NEW-STATE = 24
353000               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
353100               MOVE '   24' TO HOLD-PROV-CBSA.
353200
353300        IF HOLD-PROV-CBSA = '24220'
353400           AND P-NEW-STATE = 24
353500               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
353600               MOVE '   24' TO HOLD-PROV-CBSA.
353700
353800        IF HOLD-PROV-CBSA = '30300'
353900           AND P-NEW-STATE = 50
354000               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
354100               MOVE '   50' TO HOLD-PROV-CBSA.
354200
354300        IF HOLD-PROV-CBSA = '48260'
354400           AND P-NEW-STATE = 36
354500               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
354600               MOVE '   36' TO HOLD-PROV-CBSA.
354700
354800
354900
355000**************YEARCHANGE 2009.3 **********************      *****
355100
355200 2300-2009-EXIT. EXIT.
355300
355400**************YEARCHANGE 2010.0 **********************      *****
355500
355600 2300-2010-FLOOR-CBSA.
355700
355800        IF HOLD-PROV-CBSA = '   33'
355900          AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
356000          AND P-NEW-STATE = 33
356100               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
356200               MOVE '   33' TO HOLD-PROV-CBSA.
356300
356400        IF HOLD-PROV-CBSA = '   30'
356500          AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
356600          AND P-NEW-STATE = 30
356700               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
356800               MOVE '   30' TO HOLD-PROV-CBSA.
356900
357000        IF HOLD-PROV-CBSA = '   33'
357100          AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
357200          AND P-NEW-STATE = 30
357300               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
357400               MOVE '   30' TO HOLD-PROV-CBSA.
357500
357600        IF HOLD-PROV-CBSA = '10900'
357700           AND P-NEW-STATE = 31
357800               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
357900               MOVE '   31' TO HOLD-PROV-CBSA.
358000
358100        IF HOLD-PROV-CBSA = '19340'
358200           AND P-NEW-STATE = 16
358300               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
358400               MOVE '   16' TO HOLD-PROV-CBSA.
358500
358600        IF HOLD-PROV-CBSA = '19340'
358700           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
358800           AND P-NEW-STATE = 16
358900               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
359000               MOVE '   16' TO HOLD-PROV-CBSA.
359100
359200        IF HOLD-PROV-CBSA = '21780'
359300           AND P-NEW-STATE = 15
359400               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
359500               MOVE '   15' TO HOLD-PROV-CBSA.
359600
359700        IF HOLD-PROV-CBSA = '21780'
359800           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
359900           AND P-NEW-STATE = 15
360000               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
360100               MOVE '   15' TO HOLD-PROV-CBSA.
360200
360300        IF HOLD-PROV-CBSA = '25180'
360400           AND P-NEW-STATE = 21
360500               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
360600               MOVE '   21' TO HOLD-PROV-CBSA.
360700
360800        IF HOLD-PROV-CBSA = '25540'
360900           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
361000           AND P-NEW-STATE = 07
361100               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
361200               MOVE '   07' TO HOLD-PROV-CBSA.
361300
361400        IF HOLD-PROV-CBSA = '28420'
361500           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
361600           AND P-NEW-STATE = 50
361700               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
361800               MOVE '   50' TO HOLD-PROV-CBSA.
361900
362000        IF HOLD-PROV-CBSA = '28940'
362100           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
362200           AND P-NEW-STATE = 18
362300               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
362400               MOVE '   18' TO HOLD-PROV-CBSA.
362500
362600        IF HOLD-PROV-CBSA = '28940'
362700           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
362800           AND P-NEW-STATE = 44
362900               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
363000               MOVE '   44' TO HOLD-PROV-CBSA.
363100
363200        IF HOLD-PROV-CBSA = '35084'
363300           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
363400           AND P-NEW-STATE = 31
363500               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
363600               MOVE '   31' TO HOLD-PROV-CBSA.
363700
363800        IF HOLD-PROV-CBSA = '37620'
363900           AND P-NEW-STATE = 36
364000               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
364100               MOVE '   36' TO HOLD-PROV-CBSA.
364200
364300        IF HOLD-PROV-CBSA = '37964'
364400           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
364500           AND P-NEW-STATE = 31
364600               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
364700               MOVE '   31' TO HOLD-PROV-CBSA.
364800
364900        IF HOLD-PROV-CBSA = '48540'
365000           AND P-NEW-STATE = 36
365100               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
365200               MOVE '   36' TO HOLD-PROV-CBSA.
365300
365400        IF HOLD-PROV-CBSA = '48540'
365500           AND P-NEW-STATE = 51
365600               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
365700               MOVE '   51' TO HOLD-PROV-CBSA.
365800
365900        IF HOLD-PROV-CBSA = '48864'
366000           AND P-NEW-STATE = 31
366100               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
366200               MOVE '   31' TO HOLD-PROV-CBSA.
366300
366400        IF HOLD-PROV-CBSA = '48864'
366500           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
366600           AND P-NEW-STATE = 31
366700               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
366800               MOVE '   31' TO HOLD-PROV-CBSA.
366900
367000        IF HOLD-PROV-CBSA = '49660'
367100           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
367200           AND P-NEW-STATE = 36
367300               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
367400               MOVE '   36' TO HOLD-PROV-CBSA.
367500
367600        IF HOLD-PROV-CBSA = '19060'
367700           AND P-NEW-STATE = 21
367800               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
367900               MOVE '   21' TO HOLD-PROV-CBSA.
368000
368100        IF HOLD-PROV-CBSA = '22020'
368200           AND P-NEW-STATE = 24
368300               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
368400               MOVE '   24' TO HOLD-PROV-CBSA.
368500
368600        IF HOLD-PROV-CBSA = '24220'
368700           AND P-NEW-STATE = 24
368800               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
368900               MOVE '   24' TO HOLD-PROV-CBSA.
369000
369100        IF HOLD-PROV-CBSA = '30300'
369200           AND P-NEW-STATE = 50
369300               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
369400               MOVE '   50' TO HOLD-PROV-CBSA.
369500
369600        IF HOLD-PROV-CBSA = '35084'
369700           AND P-NEW-STATE = 31
369800               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
369900               MOVE '   31' TO HOLD-PROV-CBSA.
370000
370100        IF HOLD-PROV-CBSA = '48260'
370200           AND P-NEW-STATE = 36
370300               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
370400               MOVE '   36' TO HOLD-PROV-CBSA.
370500
370600        IF HOLD-PROV-CBSA = '48260'
370700           AND P-NEW-STATE = 51
370800               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
370900               MOVE '   51' TO HOLD-PROV-CBSA.
371000
371100
371200
371300**************YEARCHANGE 2010.0 **********************      *****
371400
371500 2300-2010-EXIT. EXIT.
371600
371700
371800**************YEARCHANGE 2011.0 **********************      *****
371900
372000 2300-2011-FLOOR-CBSA.
372100
372200        IF HOLD-PROV-CBSA = '   45'
372300          AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
372400          AND P-NEW-STATE = 45
372500               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
372600               MOVE '   45' TO HOLD-PROV-CBSA.
372700
372800        IF HOLD-PROV-CBSA = '   37'
372900          AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
373000          AND P-NEW-STATE = 37
373100               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
373200               MOVE '   37' TO HOLD-PROV-CBSA.
373300
373400        IF HOLD-PROV-CBSA = '10900'
373500           AND P-NEW-STATE = 31
373600               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
373700               MOVE '   31' TO HOLD-PROV-CBSA.
373800
373900        IF HOLD-PROV-CBSA = '21500'
374000          AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
374100           AND P-NEW-STATE = 33
374200               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
374300               MOVE '   33' TO HOLD-PROV-CBSA.
374400
374500        IF HOLD-PROV-CBSA = '21500'
374600          AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
374700           AND P-NEW-STATE = 39
374800               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
374900               MOVE '   39' TO HOLD-PROV-CBSA.
375000
375100        IF HOLD-PROV-CBSA = '21780'
375200           AND P-NEW-STATE = 15
375300               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
375400               MOVE '   15' TO HOLD-PROV-CBSA.
375500
375600        IF HOLD-PROV-CBSA = '22900'
375700           AND P-NEW-STATE = 37
375800               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
375900               MOVE '   37' TO HOLD-PROV-CBSA.
376000
376100        IF HOLD-PROV-CBSA = '24540'
376200           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
376300           AND P-NEW-STATE = 53
376400               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
376500               MOVE '   53' TO HOLD-PROV-CBSA.
376600
376700        IF HOLD-PROV-CBSA = '25540'
376800           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
376900           AND P-NEW-STATE = 07
377000               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
377100               MOVE '   07' TO HOLD-PROV-CBSA.
377200
377300        IF HOLD-PROV-CBSA = '28700'
377400           AND P-NEW-STATE = 44
377500               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
377600               MOVE '   44' TO HOLD-PROV-CBSA.
377700
377800        IF HOLD-PROV-CBSA = '28700'
377900           AND P-NEW-STATE = 49
378000               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
378100               MOVE '   49' TO HOLD-PROV-CBSA.
378200
378300        IF HOLD-PROV-CBSA = '28940'
378400           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
378500           AND P-NEW-STATE = 18
378600               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
378700               MOVE '   18' TO HOLD-PROV-CBSA.
378800
378900        IF HOLD-PROV-CBSA = '28940'
379000           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
379100           AND P-NEW-STATE = 44
379200               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
379300               MOVE '   44' TO HOLD-PROV-CBSA.
379400
379500        IF HOLD-PROV-CBSA = '37620'
379600           AND P-NEW-STATE = 36
379700               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
379800               MOVE '   36' TO HOLD-PROV-CBSA.
379900
380000        IF HOLD-PROV-CBSA = '37620'
380100           AND P-NEW-STATE = 51
380200               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
380300               MOVE '   51' TO HOLD-PROV-CBSA.
380400
380500        IF HOLD-PROV-CBSA = '37964'
380600           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
380700           AND P-NEW-STATE = 31
380800               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
380900               MOVE '   31' TO HOLD-PROV-CBSA.
381000
381100        IF HOLD-PROV-CBSA = '38300'
381200           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
381300           AND P-NEW-STATE = 36
381400               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
381500               MOVE '   36' TO HOLD-PROV-CBSA.
381600
381700        IF HOLD-PROV-CBSA = '38300'
381800           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
381900           AND P-NEW-STATE = 39
382000               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
382100               MOVE '   39' TO HOLD-PROV-CBSA.
382200
382300        IF HOLD-PROV-CBSA = '43580'
382400           AND P-NEW-STATE = 43
382500               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
382600               MOVE '   43' TO HOLD-PROV-CBSA.
382700
382800        IF HOLD-PROV-CBSA = '48540'
382900           AND P-NEW-STATE = 36
383000               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
383100               MOVE '   36' TO HOLD-PROV-CBSA.
383200
383300        IF HOLD-PROV-CBSA = '48540'
383400           AND P-NEW-STATE = 51
383500               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
383600               MOVE '   51' TO HOLD-PROV-CBSA.
383700
383800        IF HOLD-PROV-CBSA = '48864'
383900           AND P-NEW-STATE = 31
384000               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
384100               MOVE '   31' TO HOLD-PROV-CBSA.
384200
384300        IF HOLD-PROV-CBSA = '17300'
384400           AND P-NEW-STATE = 18
384500               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
384600               MOVE '   18' TO HOLD-PROV-CBSA.
384700
384800        IF HOLD-PROV-CBSA = '17300'
384900           AND P-NEW-STATE = 44
385000               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
385100               MOVE '   44' TO HOLD-PROV-CBSA.
385200
385300        IF HOLD-PROV-CBSA = '19060'
385400           AND P-NEW-STATE = 21
385500               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
385600               MOVE '   21' TO HOLD-PROV-CBSA.
385700
385800        IF HOLD-PROV-CBSA = '22020'
385900           AND P-NEW-STATE = 24
386000               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
386100               MOVE '   24' TO HOLD-PROV-CBSA.
386200
386300        IF HOLD-PROV-CBSA = '22020'
386400           AND P-NEW-STATE = 35
386500               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
386600               MOVE '   35' TO HOLD-PROV-CBSA.
386700
386800        IF HOLD-PROV-CBSA = '24220'
386900           AND P-NEW-STATE = 24
387000               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
387100               MOVE '   24' TO HOLD-PROV-CBSA.
387200
387300        IF HOLD-PROV-CBSA = '24220'
387400           AND P-NEW-STATE = 35
387500               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
387600               MOVE '   35' TO HOLD-PROV-CBSA.
387700
387800        IF HOLD-PROV-CBSA = '30300'
387900           AND P-NEW-STATE = 50
388000               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
388100               MOVE '   50' TO HOLD-PROV-CBSA.
388200
388300        IF HOLD-PROV-CBSA = '44600'
388400           AND P-NEW-STATE = 36
388500               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
388600               MOVE '   36' TO HOLD-PROV-CBSA.
388700
388800        IF HOLD-PROV-CBSA = '44600'
388900           AND P-NEW-STATE = 51
389000               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
389100               MOVE '   51' TO HOLD-PROV-CBSA.
389200
389300        IF HOLD-PROV-CBSA = '45500'
389400           AND P-NEW-STATE = 45
389500               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
389600               MOVE '   45' TO HOLD-PROV-CBSA.
389700
389800
389900**************YEARCHANGE 2011.0 **********************      *****
390000
390100 2300-2011-EXIT. EXIT.
390200
390300**************YEARCHANGE 2012.0 **********************      *****
390400
390500 2300-2012-FLOOR-CBSA.
390600
390700**************YEARCHANGE 2012.0 ******************************
390800
390900        IF HOLD-PROV-CBSA = '   30'
391000          AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
391100          AND P-NEW-STATE = 30
391200               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
391300               MOVE '   30' TO HOLD-PROV-CBSA.
391400
391500        IF HOLD-PROV-CBSA = '   39'
391600          AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
391700          AND P-NEW-STATE = 39
391800               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
391900               MOVE '   39' TO HOLD-PROV-CBSA.
392000
392100        IF HOLD-PROV-CBSA = '   39'
392200          AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
392300          AND P-NEW-STATE = 33
392400               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
392500               MOVE '   33' TO HOLD-PROV-CBSA.
392600
392700        IF HOLD-PROV-CBSA = '10900'
392800           AND P-NEW-STATE = 31
392900               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
393000               MOVE '   31' TO HOLD-PROV-CBSA.
393100
393200        IF HOLD-PROV-CBSA = '14484'
393300           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
393400           AND P-NEW-STATE = 22
393500               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
393600               MOVE '   22' TO HOLD-PROV-CBSA.
393700
393800        IF HOLD-PROV-CBSA = '16020'
393900           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
394000           AND P-NEW-STATE = 14
394100               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
394200               MOVE '   14' TO HOLD-PROV-CBSA.
394300
394400        IF HOLD-PROV-CBSA = '21500'
394500          AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
394600           AND P-NEW-STATE = 33
394700               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
394800               MOVE '   33' TO HOLD-PROV-CBSA.
394900
395000        IF HOLD-PROV-CBSA = '21500'
395100          AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
395200           AND P-NEW-STATE = 39
395300               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
395400               MOVE '   39' TO HOLD-PROV-CBSA.
395500
395600        IF HOLD-PROV-CBSA = '22900'
395700           AND P-NEW-STATE = 37
395800               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
395900               MOVE '   37' TO HOLD-PROV-CBSA.
396000
396100        IF HOLD-PROV-CBSA = '25180'
396200           AND P-NEW-STATE = 21
396300               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
396400               MOVE '   21' TO HOLD-PROV-CBSA.
396500
396600        IF HOLD-PROV-CBSA = '25540'
396700           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
396800           AND P-NEW-STATE = 07
396900               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
397000               MOVE '   07' TO HOLD-PROV-CBSA.
397100
397200        IF HOLD-PROV-CBSA = '25540'
397300           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
397400           AND P-NEW-STATE = 22
397500               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
397600               MOVE '   22' TO HOLD-PROV-CBSA.
397700
397800        IF HOLD-PROV-CBSA = '26820'
397900           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
398000           AND P-NEW-STATE = 53
398100               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
398200               MOVE '   53' TO HOLD-PROV-CBSA.
398300
398400        IF HOLD-PROV-CBSA = '28700'
398500           AND P-NEW-STATE = 44
398600               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
398700               MOVE '   44' TO HOLD-PROV-CBSA.
398800
398900        IF HOLD-PROV-CBSA = '28700'
399000           AND P-NEW-STATE = 49
399100               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
399200               MOVE '   49' TO HOLD-PROV-CBSA.
399300
399400        IF HOLD-PROV-CBSA = '28700'
399500           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
399600           AND P-NEW-STATE = 18
399700               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
399800               MOVE '   18' TO HOLD-PROV-CBSA.
399900
400000        IF HOLD-PROV-CBSA = '28700'
400100           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
400200           AND P-NEW-STATE = 44
400300               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
400400               MOVE '   44' TO HOLD-PROV-CBSA.
400500
400600        IF HOLD-PROV-CBSA = '28940'
400700           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
400800           AND P-NEW-STATE = 18
400900               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
401000               MOVE '   18' TO HOLD-PROV-CBSA.
401100
401200        IF HOLD-PROV-CBSA = '35084'
401300           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
401400           AND P-NEW-STATE = 31
401500               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
401600               MOVE '   31' TO HOLD-PROV-CBSA.
401700
401800        IF HOLD-PROV-CBSA = '37620'
401900           AND P-NEW-STATE = 36
402000               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
402100               MOVE '   36' TO HOLD-PROV-CBSA.
402200
402300        IF HOLD-PROV-CBSA = '37964'
402400           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
402500           AND P-NEW-STATE = 31
402600               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
402700               MOVE '   31' TO HOLD-PROV-CBSA.
402800
402900        IF HOLD-PROV-CBSA = '43580'
403000           AND P-NEW-STATE = 43
403100               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
403200               MOVE '   43' TO HOLD-PROV-CBSA.
403300
403400        IF HOLD-PROV-CBSA = '44600'
403500           AND P-NEW-STATE = 36
403600               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
403700               MOVE '   36' TO HOLD-PROV-CBSA.
403800
403900        IF HOLD-PROV-CBSA = '44600'
404000           AND P-NEW-STATE = 51
404100               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
404200               MOVE '   51' TO HOLD-PROV-CBSA.
404300
404400        IF HOLD-PROV-CBSA = '48540'
404500           AND P-NEW-STATE = 36
404600               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
404700               MOVE '   36' TO HOLD-PROV-CBSA.
404800
404900        IF HOLD-PROV-CBSA = '48540'
405000           AND P-NEW-STATE = 51
405100               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
405200               MOVE '   51' TO HOLD-PROV-CBSA.
405300
405400        IF HOLD-PROV-CBSA = '48864'
405500           AND P-NEW-STATE = 31
405600               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
405700               MOVE '   31' TO HOLD-PROV-CBSA.
405800
405900        IF HOLD-PROV-CBSA = '49660'
406000           AND P-NEW-STATE = 36
406100               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
406200               MOVE '   36' TO HOLD-PROV-CBSA.
406300
406400        IF HOLD-PROV-CBSA = '49660'
406500           AND P-NEW-STATE = 39
406600               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
406700               MOVE '   39' TO HOLD-PROV-CBSA.
406800
406900        IF HOLD-PROV-CBSA = '19060'
407000           AND P-NEW-STATE = 21
407100               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
407200               MOVE '   21' TO HOLD-PROV-CBSA.
407300
407400        IF HOLD-PROV-CBSA = '22020'
407500           AND P-NEW-STATE = 24
407600               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
407700               MOVE '   24' TO HOLD-PROV-CBSA.
407800
407900        IF HOLD-PROV-CBSA = '22020'
408000           AND P-NEW-STATE = 35
408100               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
408200               MOVE '   35' TO HOLD-PROV-CBSA.
408300
408400        IF HOLD-PROV-CBSA = '24220'
408500           AND P-NEW-STATE = 24
408600               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
408700               MOVE '   24' TO HOLD-PROV-CBSA.
408800
408900        IF HOLD-PROV-CBSA = '24220'
409000           AND P-NEW-STATE = 35
409100               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
409200               MOVE '   35' TO HOLD-PROV-CBSA.
409300
409400        IF HOLD-PROV-CBSA = '30300'
409500           AND P-NEW-STATE = 50
409600               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
409700               MOVE '   50' TO HOLD-PROV-CBSA.
409800
409900        IF HOLD-PROV-CBSA = '30860'
410000           AND P-NEW-STATE = 46
410100               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
410200               MOVE '   46' TO HOLD-PROV-CBSA.
410300
410400        IF HOLD-PROV-CBSA = '35084'
410500           AND P-NEW-STATE = 31
410600               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
410700               MOVE '   31' TO HOLD-PROV-CBSA.
410800
410900        IF HOLD-PROV-CBSA = '39300'
411000           AND P-NEW-STATE = 22
411100               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
411200               MOVE '   22' TO HOLD-PROV-CBSA.
411300
411400        IF HOLD-PROV-CBSA = '45500'
411500           AND P-NEW-STATE = 45
411600               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
411700               MOVE '   45' TO HOLD-PROV-CBSA.
411800
411900**************YEARCHANGE 2012.0 ******************************
412000
412100 2300-2012-EXIT. EXIT.
412200
412300**************YEARCHANGE 2013.0 **********************      *****
412400
412500 2300-2013-FLOOR-CBSA.
412600
412700**************YEARCHANGE 2013.0 ******************************
412800
412900        IF HOLD-PROV-CBSA = '10900'
413000           AND P-NEW-STATE = 31
413100               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
413200               MOVE '   31' TO HOLD-PROV-CBSA.
413300
413400        IF HOLD-PROV-CBSA = '14484'
413500           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
413600           AND P-NEW-STATE = 22
413700               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
413800               MOVE '   22' TO HOLD-PROV-CBSA.
413900
414000        IF HOLD-PROV-CBSA = '16020'
414100           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
414200           AND P-NEW-STATE = 14
414300               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
414400               MOVE '   14' TO HOLD-PROV-CBSA.
414500
414600        IF HOLD-PROV-CBSA = '21500'
414700          AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
414800           AND P-NEW-STATE = 33
414900               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
415000               MOVE '   33' TO HOLD-PROV-CBSA.
415100
415200        IF HOLD-PROV-CBSA = '21500'
415300          AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
415400           AND P-NEW-STATE = 39
415500               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
415600               MOVE '   39' TO HOLD-PROV-CBSA.
415700
415800        IF HOLD-PROV-CBSA = '21780'
415900          AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
416000           AND P-NEW-STATE = 15
416100               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
416200               MOVE '   15' TO HOLD-PROV-CBSA.
416300
416400        IF HOLD-PROV-CBSA = '24580'
416500          AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
416600           AND P-NEW-STATE = 52
416700               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
416800               MOVE '   52' TO HOLD-PROV-CBSA.
416900
417000        IF HOLD-PROV-CBSA = '25540'
417100           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
417200           AND P-NEW-STATE = 07
417300               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
417400               MOVE '   07' TO HOLD-PROV-CBSA.
417500
417600        IF HOLD-PROV-CBSA = '25540'
417700           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
417800           AND P-NEW-STATE = 22
417900               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
418000               MOVE '   22' TO HOLD-PROV-CBSA.
418100
418200        IF HOLD-PROV-CBSA = '26820'
418300           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
418400           AND P-NEW-STATE = 53
418500               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
418600               MOVE '   53' TO HOLD-PROV-CBSA.
418700
418800        IF HOLD-PROV-CBSA = '27900'
418900           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
419000           AND P-NEW-STATE = 17
419100               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
419200               MOVE '   17' TO HOLD-PROV-CBSA.
419300
419400        IF HOLD-PROV-CBSA = '28700'
419500           AND P-NEW-STATE = 44
419600               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
419700               MOVE '   44' TO HOLD-PROV-CBSA.
419800
419900        IF HOLD-PROV-CBSA = '28700'
420000           AND P-NEW-STATE = 49
420100               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
420200               MOVE '   49' TO HOLD-PROV-CBSA.
420300
420400        IF HOLD-PROV-CBSA = '28700'
420500           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
420600           AND P-NEW-STATE = 18
420700               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
420800               MOVE '   18' TO HOLD-PROV-CBSA.
420900
421000        IF HOLD-PROV-CBSA = '28700'
421100           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
421200           AND P-NEW-STATE = 44
421300               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
421400               MOVE '   44' TO HOLD-PROV-CBSA.
421500
421600        IF HOLD-PROV-CBSA = '28940'
421700           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
421800           AND P-NEW-STATE = 18
421900               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
422000               MOVE '   18' TO HOLD-PROV-CBSA.
422100
422200        IF HOLD-PROV-CBSA = '35084'
422300           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
422400           AND P-NEW-STATE = 31
422500               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
422600               MOVE '   31' TO HOLD-PROV-CBSA.
422700
422800        IF HOLD-PROV-CBSA = '37620'
422900           AND P-NEW-STATE = 36
423000               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
423100               MOVE '   36' TO HOLD-PROV-CBSA.
423200
423300        IF HOLD-PROV-CBSA = '37964'
423400           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
423500           AND P-NEW-STATE = 31
423600               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
423700               MOVE '   31' TO HOLD-PROV-CBSA.
423800
423900        IF HOLD-PROV-CBSA = '38300'
424000           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
424100           AND P-NEW-STATE = 36
424200               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
424300               MOVE '   36' TO HOLD-PROV-CBSA.
424400
424500        IF HOLD-PROV-CBSA = '43580'
424600           AND P-NEW-STATE = 43
424700               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
424800               MOVE '   43' TO HOLD-PROV-CBSA.
424900
425000        IF HOLD-PROV-CBSA = '48540'
425100           AND P-NEW-STATE = 36
425200               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
425300               MOVE '   36' TO HOLD-PROV-CBSA.
425400
425500        IF HOLD-PROV-CBSA = '48540'
425600           AND P-NEW-STATE = 51
425700               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
425800               MOVE '   51' TO HOLD-PROV-CBSA.
425900
426000        IF HOLD-PROV-CBSA = '48864'
426100           AND P-NEW-STATE = 31
426200               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
426300               MOVE '   31' TO HOLD-PROV-CBSA.
426400
426500        IF HOLD-PROV-CBSA = '49660'
426600           AND P-NEW-STATE = 36
426700               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
426800               MOVE '   36' TO HOLD-PROV-CBSA.
426900
427000        IF HOLD-PROV-CBSA = '49660'
427100           AND P-NEW-STATE = 39
427200               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
427300               MOVE '   39' TO HOLD-PROV-CBSA.
427400
427500        IF HOLD-PROV-CBSA = '22020'
427600           AND P-NEW-STATE = 24
427700               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
427800               MOVE '   24' TO HOLD-PROV-CBSA.
427900
428000        IF HOLD-PROV-CBSA = '22020'
428100           AND P-NEW-STATE = 35
428200               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
428300               MOVE '   35' TO HOLD-PROV-CBSA.
428400
428500        IF HOLD-PROV-CBSA = '24220'
428600           AND P-NEW-STATE = 24
428700               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
428800               MOVE '   24' TO HOLD-PROV-CBSA.
428900
429000        IF HOLD-PROV-CBSA = '24220'
429100           AND P-NEW-STATE = 35
429200               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
429300               MOVE '   35' TO HOLD-PROV-CBSA.
429400
429500        IF HOLD-PROV-CBSA = '30300'
429600           AND P-NEW-STATE = 50
429700               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
429800               MOVE '   50' TO HOLD-PROV-CBSA.
429900
430000        IF HOLD-PROV-CBSA = '39300'
430100           AND P-NEW-STATE = 22
430200               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
430300               MOVE '   22' TO HOLD-PROV-CBSA.
430400
430500        IF HOLD-PROV-CBSA = '39300'
430600           AND P-NEW-STATE = 41
430700               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
430800               MOVE '   41' TO HOLD-PROV-CBSA.
430900
431000        IF HOLD-PROV-CBSA = '44600'
431100           AND P-NEW-STATE = 36
431200               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
431300               MOVE '   36' TO HOLD-PROV-CBSA.
431400
431500
431600**************YEARCHANGE 2013.0 ******************************
431700
431800 2300-2013-EXIT. EXIT.
431900
432000
432100 2300-2014-FLOOR-CBSA.
432200
432300**************YEARCHANGE 2014.0 ******************************
432400
432500        IF HOLD-PROV-CBSA = '   07'
432600           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
432700           AND P-NEW-STATE = 07
432800               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
432900               MOVE '   07' TO HOLD-PROV-CBSA.
433000
433100        IF HOLD-PROV-CBSA = '   36'
433200           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
433300           AND P-NEW-STATE = 36
433400               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
433500               MOVE '   36' TO HOLD-PROV-CBSA.
433600
433700        IF HOLD-PROV-CBSA = '10900'
433800           AND P-NEW-STATE = 31
433900               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
434000               MOVE '   31' TO HOLD-PROV-CBSA.
434100
434200        IF HOLD-PROV-CBSA = '14484'
434300           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
434400           AND P-NEW-STATE = 22
434500               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
434600               MOVE '   22' TO HOLD-PROV-CBSA.
434700
434800        IF HOLD-PROV-CBSA = '17300'
434900           AND P-NEW-STATE = 18
435000               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
435100               MOVE '   18' TO HOLD-PROV-CBSA.
435200
435300        IF HOLD-PROV-CBSA = '22900'
435400           AND P-NEW-STATE = 37
435500               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
435600               MOVE '   37' TO HOLD-PROV-CBSA.
435700
435800        IF HOLD-PROV-CBSA = '25540'
435900          AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
436000           AND P-NEW-STATE = 07
436100               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
436200               MOVE '   07' TO HOLD-PROV-CBSA.
436300
436400        IF HOLD-PROV-CBSA = '25540'
436500          AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
436600           AND P-NEW-STATE = 22
436700               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
436800               MOVE '   22' TO HOLD-PROV-CBSA.
436900
437000        IF HOLD-PROV-CBSA = '26820'
437100           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
437200           AND P-NEW-STATE = 53
437300               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
437400               MOVE '   53' TO HOLD-PROV-CBSA.
437500
437600        IF HOLD-PROV-CBSA = '27180'
437700           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
437800           AND P-NEW-STATE = 25
437900               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
438000               MOVE '   25' TO HOLD-PROV-CBSA.
438100
438200        IF HOLD-PROV-CBSA = '28700'
438300           AND P-NEW-STATE = 44
438400               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
438500               MOVE '   44' TO HOLD-PROV-CBSA.
438600
438700        IF HOLD-PROV-CBSA = '28700'
438800           AND P-NEW-STATE = 49
438900               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
439000               MOVE '   49' TO HOLD-PROV-CBSA.
439100
439200        IF HOLD-PROV-CBSA = '35644'
439300           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
439400           AND P-NEW-STATE = 07
439500               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
439600               MOVE '   07' TO HOLD-PROV-CBSA.
439700
439800        IF HOLD-PROV-CBSA = '37620'
439900           AND P-NEW-STATE = 36
440000               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
440100               MOVE '   36' TO HOLD-PROV-CBSA.
440200
440300        IF HOLD-PROV-CBSA = '43580'
440400           AND P-NEW-STATE = 43
440500               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
440600               MOVE '   43' TO HOLD-PROV-CBSA.
440700
440800        IF HOLD-PROV-CBSA = '48540'
440900           AND P-NEW-STATE = 36
441000               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
441100               MOVE '   36' TO HOLD-PROV-CBSA.
441200
441300        IF HOLD-PROV-CBSA = '48540'
441400           AND P-NEW-STATE = 51
441500               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
441600               MOVE '   51' TO HOLD-PROV-CBSA.
441700
441800        IF HOLD-PROV-CBSA = '48864'
441900           AND P-NEW-STATE = 31
442000               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
442100               MOVE '   31' TO HOLD-PROV-CBSA.
442200
442300        IF HOLD-PROV-CBSA = '49660'
442400           AND P-NEW-STATE = 36
442500               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
442600               MOVE '   36' TO HOLD-PROV-CBSA.
442700
442800        IF HOLD-PROV-CBSA = '49660'
442900           AND P-NEW-STATE = 39
443000               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
443100               MOVE '   39' TO HOLD-PROV-CBSA.
443200
443300        IF HOLD-PROV-CBSA = '19060'
443400           AND P-NEW-STATE = 21
443500               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
443600               MOVE '   21' TO HOLD-PROV-CBSA.
443700
443800        IF HOLD-PROV-CBSA = '22020'
443900           AND P-NEW-STATE = 24
444000               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
444100               MOVE '   24' TO HOLD-PROV-CBSA.
444200
444300        IF HOLD-PROV-CBSA = '22020'
444400           AND P-NEW-STATE = 35
444500               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
444600               MOVE '   35' TO HOLD-PROV-CBSA.
444700
444800        IF HOLD-PROV-CBSA = '24220'
444900           AND P-NEW-STATE = 24
445000               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
445100               MOVE '   24' TO HOLD-PROV-CBSA.
445200
445300        IF HOLD-PROV-CBSA = '24220'
445400           AND P-NEW-STATE = 35
445500               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
445600               MOVE '   35' TO HOLD-PROV-CBSA.
445700
445800        IF HOLD-PROV-CBSA = '30300'
445900           AND P-NEW-STATE = 50
446000               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
446100               MOVE '   50' TO HOLD-PROV-CBSA.
446200
446300        IF HOLD-PROV-CBSA = '39300'
446400           AND P-NEW-STATE = 22
446500               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
446600               MOVE '   22' TO HOLD-PROV-CBSA.
446700
446800        IF HOLD-PROV-CBSA = '39300'
446900           AND P-NEW-STATE = 41
447000               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
447100               MOVE '   41' TO HOLD-PROV-CBSA.
447200
447300        IF HOLD-PROV-CBSA = '44600'
447400           AND P-NEW-STATE = 36
447500               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
447600               MOVE '   36' TO HOLD-PROV-CBSA.
447700
447800        IF HOLD-PROV-CBSA = '45500'
447900           AND P-NEW-STATE = 45
448000               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
448100               MOVE '   45' TO HOLD-PROV-CBSA.
448200
448300
448400**************YEARCHANGE 2014.0 ******************************
448500
448600 2300-2014-EXIT. EXIT.
448700
448800**************YEARCHANGE 2015.0 ******************************
448900 2300-2015-FWD-FLOOR-CBSA.
449000
449100**----------------------------------------------------------------
449200** ENSURE THE CBSA WAGE INDEX IS A VALID VALUE, ELSE SET ERROR RTC
449300**----------------------------------------------------------------
449400     IF W-NEW-CBSA-WI NOT NUMERIC
449500        MOVE 0 TO W-NEW-CBSA-WI.
449600
449700     IF W-NEW-CBSA-WI = 00.0000
449800        MOVE ALL '0' TO PPS-ADDITIONAL-VARIABLES
449900        MOVE 52 TO PPS-RTC
450000        GO TO 2300-2015-EXIT.
450100
450200**----------------------------------------------------------------
450300** SET THE PROVIDER'S STATE RURAL CBSA
450400**----------------------------------------------------------------
450500     MOVE '   ' TO  H-CBSA-RURAL-BLANK.
450600     MOVE P-NEW-STATE-CODE-X TO H-CBSA-RURAL-STATE.
450700
450800     IF H-CBSA-RURAL-STATE = '00'
450900        MOVE '03' TO H-CBSA-RURAL-STATE.
451000
451100*------------------------------------------------------------*
451200* SEARCH TABLE FOR RURAL IPPS CBSA & GET WAGE INDEX (FLOOR)  *
451300*------------------------------------------------------------*
451400     PERFORM 0175-GET-RURAL-CBSA THRU 0175-EXIT.
451500
451600     IF PPS-RTC = 00
451700      IF W-RURAL-CBSA-EFF-DATE NOT = WS-9S
451800       IF B-N-DISCHARGE-DATE > 20190930
451900        IF H-CBSA-PROV-BLANK = '   '
452000          GO TO 0690-BYPASS
452100        ELSE
452200          PERFORM 0690-GET-RURAL-FLOOR-WAGE-INDX THRU 0690-EXIT
452300          GO TO 0690-BYPASS
452400        END-IF
452500       END-IF
452600      END-IF
452700     END-IF.
452800
452900     IF PPS-RTC = 00
453000       IF W-RURAL-CBSA-EFF-DATE NOT = WS-9S
453100         PERFORM 0660-GET-RURAL-CBSA-WAGE-INDX
453200          THRU   0660-EXIT VARYING MA2
453300                 FROM MA1 BY 1 UNTIL
453400                 T-CBSA (MA2) NOT = HOLD-RURAL-CBSA
453500       END-IF
453600     END-IF.
453700
453800 0690-BYPASS.
453900
454000*    IF W-NEW-CBSA-WI NOT NUMERIC
454100*       MOVE 0 TO W-NEW-CBSA-WI.
454200
454300*------------------------------------------------------------*
454400* IF NO RURAL WAGE INDEX FOUND, SET TO ZERO (VALID BECAUSE   *
454500* SOME STATES DO NOT HAVE A RURAL AREA)                      *
454600*------------------------------------------------------------*
454700     IF W-RURAL-CBSA-WI NOT NUMERIC
454800        MOVE 0 TO W-RURAL-CBSA-WI.
454900
455000*------------------------------------------------------------*
455100* IF THE STATE'S RURAL FLOOR WAGE INDEX IS HIGHER THAN THE   *
455200* PROVIDER'S CBSA WAGE INDEX, REPLACE THE CBSA AND WAGE      *
455300* INDEX WITH STATE CODE AND RURAL FLOOR WAGE INDEX           *
455400*------------------------------------------------------------*
455500     IF W-RURAL-CBSA-WI > W-NEW-CBSA-WI
455600        MOVE WAGE-RURAL-CBSA-INDEX-RECORD TO
455700                   WAGE-NEW-CBSA-INDEX-RECORD
455800        MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
455900        MOVE HOLD-RURAL-CBSA TO HOLD-PROV-CBSA.
456000
456100 2300-2015-EXIT. EXIT.
456200
456300**************YEARCHANGE 2015.0 ******************************
456400 2350-2015-FWD-FLOOR-CBSA-PR.
456500
456600**----------------------------------------------------------------
456700** ENSURE PR CBSA WAGE INDEX IS A VALID VALUE, ELSE SET ERROR RTC
456800**----------------------------------------------------------------
456900     IF W-NEW-CBSA-PR-WI NOT NUMERIC
457000        MOVE 0 TO W-NEW-CBSA-WI.
457100
457200     IF W-NEW-CBSA-PR-WI = 00.0000
457300        MOVE ALL '0' TO PPS-ADDITIONAL-VARIABLES
457400        MOVE 52 TO PPS-RTC
457500        GO TO 2350-2015-EXIT.
457600
457700**----------------------------------------------------------------
457800** SET THE PROVIDER'S STATE RURAL CBSA TO 40 (PUERTO RICO)
457900**----------------------------------------------------------------
458000     MOVE '   ' TO H-CBSA-RURAL-BLANK.
458100     MOVE '40'  TO H-CBSA-RURAL-STATE.
458200
458300*------------------------------------------------------------*
458400* SEARCH TABLE FOR RURAL PR CBSA & GET WAGE INDEX (FLOOR)    *
458500*------------------------------------------------------------*
458600     PERFORM 0260-N-GET-RURAL-CBSA-PR THRU 0260-EXIT.
458700
458800*------------------------------------------------------------*
458900* IF NO PR RURAL WAGE INDEX FOUND, SET TO ZERO (VALID FOR    *
459000* ANY YEAR WITH NO PUERTO RICO RURAL AREA)                   *
459100*------------------------------------------------------------*
459200     IF W-RURAL-CBSA-PR-WI NOT NUMERIC
459300        MOVE 0 TO W-RURAL-CBSA-PR-WI.
459400
459500*------------------------------------------------------------*
459600* IF THE STATE'S RURAL FLOOR WAGE INDEX IS HIGHER THAN THE   *
459700* PROVIDER'S CBSA WAGE INDEX, REPLACE THE CBSA AND WAGE      *
459800* INDEX WITH STATE CODE AND RURAL FLOOR WAGE INDEX           *
459900*------------------------------------------------------------*
460000     IF W-RURAL-CBSA-PR-WI > W-NEW-CBSA-PR-WI
460100        MOVE W-RURAL-CBSA-PR-WI TO W-NEW-CBSA-PR-WI.
460200
460300 2350-2015-EXIT. EXIT.
460400
460500**************YEARCHANGE 2015.0 ******************************
460600 2400-CONVERT-PSF.
460700***************************************************************
460800*              CONVERSION FOR MILLENNIUM                      *
460900*    CONVERTS TO PSF FROM NEW FORMAT TO OLD FORMAT            *
461000*    THIS OLD PSF FORMAT IS PROCESSED IN NON-MILLENNIUN       *
461100*    PPS PROGRAMS                                             *
461200***************************************************************
461300     MOVE SPACES TO W-PROV-OLD-HOLD.
461400     MOVE W-P-NEW-PROVIDER-OSCAR-NO TO W-P-PROVIDER-NO.
461500
461600     IF W-P-NEW-EFF-DATE < 0 OR
461700        W-P-NEW-EFF-DATE = '00000000'
461800        MOVE ZEROES TO W-P-EFF-DATE
461900     ELSE
462000        MOVE  W-P-NEW-EFF-DT-YY        TO W-P-EFF-YY
462100        MOVE  W-P-NEW-EFF-DT-MM        TO W-P-EFF-MM
462200        MOVE  W-P-NEW-EFF-DT-DD        TO W-P-EFF-DD.
462300     MOVE  W-P-NEW-WAIVER-CODE   TO W-P-WAIVER-CODE.
462400     MOVE  W-P-NEW-PROVIDER-TYPE TO W-P-PROVIDER-TYPE.
462500     MOVE  W-P-NEW-CURRENT-CENSUS-DIV
462600                               TO W-P-CURRENT-CENSUS-DIV.
462700     MOVE  W-P-NEW-GEO-LOC-MSA   TO W-P-MSA-X.
462800     MOVE  W-P-NEW-FAC-SPEC-RATE TO W-P-FAC-SPEC-RATE.
462900     MOVE  W-P-NEW-COLA          TO W-P-COLA.
463000     MOVE  W-P-NEW-INTERN-RATIO  TO W-P-INTERN-RATIO.
463100     MOVE  W-P-NEW-BED-SIZE      TO W-P-BED-SIZE.
463200     MOVE  W-P-NEW-CCR           TO W-P-CCR.
463300     MOVE  W-P-NEW-CMI           TO W-P-CMI.
463400
463500     IF W-P-NEW-REPORT-DATE < 0 OR
463600        W-P-NEW-REPORT-DATE = '00000000'
463700        MOVE ZEROES TO W-P-REPORT-DATE
463800     ELSE
463900        MOVE  W-P-NEW-REPORT-DT-YY  TO W-P-REPORT-DT-YY
464000        MOVE  W-P-NEW-REPORT-DT-MM  TO W-P-REPORT-DT-MM
464100        MOVE  W-P-NEW-REPORT-DT-DD  TO W-P-REPORT-DT-DD.
464200
464300     MOVE  W-P-NEW-INTER-NO      TO W-P-INTER-NO.
464400
464500     IF W-P-NEW-FY-BEGIN-DATE < 0  OR
464600        W-P-NEW-FY-BEGIN-DATE = '00000000'
464700        MOVE ZEROES TO W-P-FY-BEGIN-DATE
464800     ELSE
464900        MOVE  W-P-NEW-FY-BEG-DT-YY  TO W-P-FY-BEG-DT-YY
465000        MOVE  W-P-NEW-FY-BEG-DT-MM  TO W-P-FY-BEG-DT-MM
465100        MOVE  W-P-NEW-FY-BEG-DT-DD  TO W-P-FY-BEG-DT-DD.
465200
465300     MOVE W-P-NEW-PASS-AMT-CAPITAL    TO W-P-PASS-AMT-CAPITAL.
465400     MOVE W-P-NEW-PASS-AMT-DIR-MED-ED TO W-P-PASS-AMT-DIR-MED-ED.
465500     MOVE W-P-NEW-PASS-AMT-ORGAN-ACQ  TO W-P-PASS-AMT-ORGAN-ACQ.
465600     MOVE W-P-NEW-PASS-AMT-PLUS-MISC  TO W-P-PASS-AMT-PLUS-MISC.
465700     MOVE W-P-NEW-SSI-RATIO           TO W-P-SSI-RATIO.
465800     MOVE W-P-NEW-MEDICAID-RATIO      TO W-P-MEDICAID-RATIO.
465900
466000     IF W-P-NEW-TERMINATION-DATE < 0  OR
466100        W-P-NEW-TERMINATION-DATE = '00000000'
466200        MOVE ZEROES TO W-P-TERMINATION-DATE
466300     ELSE
466400        MOVE  W-P-NEW-TERM-DT-YY    TO W-P-TERM-DT-YY
466500        MOVE  W-P-NEW-TERM-DT-MM    TO W-P-TERM-DT-MM
466600        MOVE  W-P-NEW-TERM-DT-DD    TO W-P-TERM-DT-DD.
466700
466800     IF P-NEW-FYE-DATE  NOT NUMERIC
466900        MOVE ZEROES TO W-P-FISCAL-YEAR-END.
467000
467100     IF P-NEW-FYE-DATE               < 0  OR
467200        P-NEW-FYE-DATE               = '00000000'
467300        MOVE ZEROES TO W-P-FISCAL-YEAR-END
467400     ELSE
467500        MOVE  W-P-NEW-FYE-YY       TO W-P-YY
467600        MOVE  W-P-NEW-FYE-MM       TO W-P-MM
467700        MOVE  W-P-NEW-FYE-DD       TO W-P-DD.
467800
467900     MOVE W-P-NEW-WAGE-INDEX-LOC-MSA  TO W-P-WAGE-INDEX-LOC-MSA.
468000     MOVE W-P-NEW-CHG-CODE-INDEX      TO W-P-CHG-CODE-INDEX.
468100     MOVE W-P-NEW-STAND-AMT-LOC-MSA   TO W-P-STAND-AMT-LOC-MSA.
468200     MOVE W-P-NEW-SOL-COM-DEP-HOSP-YR TO W-P-SOL-COM-DEP-HOSP-YR.
468300     MOVE W-P-NEW-LUGAR               TO W-P-LUGAR.
468400     MOVE W-P-NEW-TEMP-RELIEF-IND     TO W-P-TEMP-RELIEF-IND.
468500     MOVE W-P-NEW-CAPI-PPS-PAY-CODE   TO W-P-CAPI-PPS-PAY-CODE.
468600     MOVE W-P-NEW-CAPI-HOSP-SPEC-RATE TO W-P-CAPI-HOSP-SPEC-RATE.
468700     MOVE W-P-NEW-CAPI-OLD-HARM-RATE  TO W-P-CAPI-OLD-HARM-RATE.
468800     MOVE W-P-NEW-CAPI-NEW-HARM-RATIO TO W-P-CAPI-NEW-HARM-RATIO.
468900     MOVE W-P-NEW-CAPI-CSTCHG-RATIO   TO W-P-CAPI-CSTCHG-RATIO.
469000     MOVE W-P-NEW-CAPI-NEW-HOSP       TO W-P-CAPI-NEW-HOSP.
469100     MOVE W-P-NEW-CAPI-IME            TO W-P-CAPI-IME.
469200     MOVE W-P-NEW-CAPI-EXCEPTIONS     TO W-P-CAPI-EXCEPTIONS.
469300 2400-EXIT.   EXIT.
469400
469500 2500-2000-WI-LUGAR.
469600***************************************************************
469700****    FOR FY 2000 NEW LUGAR HOSPITALS ONLY                  *
469800***************************************************************
469900
470000     IF (P-NEW-PROVIDER-NO = '140012' OR '150002' OR '150004' OR
470100                             '150008' OR '150034' OR '150090' OR
470200                             '150125' OR '150126' OR '150132')
470300            AND (P-NEW-STAND-AMT-LOC-MSA = '1600'
470400            AND P-NEW-WAGE-INDEX-LOC-MSA = '1600'
470500            AND P-NEW-CHG-CODE-INDEX  = 'Y')
470600          MOVE 01.0750 TO W-NEW-INDEX-RECORD.
470700
470800     IF (P-NEW-PROVIDER-NO = '250078')
470900            AND (P-NEW-STAND-AMT-LOC-MSA = '3285'
471000            AND P-NEW-WAGE-INDEX-LOC-MSA = '3285'
471100            AND P-NEW-CHG-CODE-INDEX  = 'Y')
471200          MOVE 00.7634 TO W-NEW-INDEX-RECORD.
471300
471400     IF (P-NEW-PROVIDER-NO = '330001' OR '330126' OR '330135' OR
471500                             '330205' OR '330209' OR '330264')
471600            AND (P-NEW-STAND-AMT-LOC-MSA = '5600'
471700            AND P-NEW-WAGE-INDEX-LOC-MSA = '5600'
471800            AND P-NEW-CHG-CODE-INDEX  = 'Y')
471900          MOVE 01.4342 TO W-NEW-INDEX-RECORD.
472000
472100     IF (P-NEW-PROVIDER-NO = '340039' OR '340129' OR '340144')
472200            AND (P-NEW-STAND-AMT-LOC-MSA = '1520'
472300            AND P-NEW-WAGE-INDEX-LOC-MSA = '1520'
472400            AND P-NEW-CHG-CODE-INDEX  = 'Y')
472500          MOVE 00.9434 TO W-NEW-INDEX-RECORD.
472600
472700     IF (P-NEW-PROVIDER-NO = '360046' OR '360056' OR '360076' OR
472800                             '360132')
472900            AND (P-NEW-STAND-AMT-LOC-MSA = '1640'
473000            AND P-NEW-WAGE-INDEX-LOC-MSA = '1640'
473100            AND P-NEW-CHG-CODE-INDEX  = 'Y')
473200          MOVE 00.9419 TO W-NEW-INDEX-RECORD.
473300
473400     IF (P-NEW-PROVIDER-NO = '390019' OR '390049' OR '390162' OR
473500                             '390194' OR '390197' OR '390263')
473600            AND (P-NEW-STAND-AMT-LOC-MSA = '0240'
473700            AND P-NEW-WAGE-INDEX-LOC-MSA = '0240'
473800            AND P-NEW-CHG-CODE-INDEX  = 'Y')
473900          MOVE 01.0228 TO W-NEW-INDEX-RECORD.
474000
474100     IF (P-NEW-PROVIDER-NO = '450065' OR '450072' OR '450591')
474200            AND (P-NEW-STAND-AMT-LOC-MSA = '3360'
474300            AND P-NEW-WAGE-INDEX-LOC-MSA = '3360'
474400            AND P-NEW-CHG-CODE-INDEX  = 'Y')
474500          MOVE 00.9388 TO W-NEW-INDEX-RECORD.
474600
474700     IF (P-NEW-PROVIDER-NO = '470003')
474800            AND (P-NEW-STAND-AMT-LOC-MSA = '1123'
474900            AND P-NEW-WAGE-INDEX-LOC-MSA = '1123'
475000            AND P-NEW-CHG-CODE-INDEX  = 'Y')
475100          MOVE 01.1359 TO W-NEW-INDEX-RECORD.
475200
475300 2500-2000-EXIT.   EXIT.
475400
475500 2500-2001-WI-LUGAR.
475600***************************************************************
475700****    FOR FY 2001 NEW LUGAR HOSPITALS ONLY                  *
475800***************************************************************
475900     IF (P-NEW-PROVIDER-NO = '010043')
476000            AND (P-NEW-STAND-AMT-LOC-MSA = '1000'
476100            AND P-NEW-WAGE-INDEX-LOC-MSA = '1000'
476200            AND P-NEW-CHG-CODE-INDEX  = 'Y')
476300          MOVE 00.8490 TO W-NEW-INDEX-RECORD.
476400
476500     IF (P-NEW-PROVIDER-NO = '010072' OR '010101')
476600            AND (P-NEW-STAND-AMT-LOC-MSA = '0450'
476700            AND P-NEW-WAGE-INDEX-LOC-MSA = '0450'
476800            AND P-NEW-CHG-CODE-INDEX  = 'Y')
476900          MOVE 00.7871 TO W-NEW-INDEX-RECORD.
477000
477100     IF (P-NEW-PROVIDER-NO = '100098')
477200            AND (P-NEW-STAND-AMT-LOC-MSA = '8960'
477300            AND P-NEW-WAGE-INDEX-LOC-MSA = '8960'
477400            AND P-NEW-CHG-CODE-INDEX  = 'Y')
477500          MOVE 00.9615 TO W-NEW-INDEX-RECORD.
477600
477700     IF (P-NEW-PROVIDER-NO = '100232')
477800            AND (P-NEW-STAND-AMT-LOC-MSA = '2900'
477900            AND P-NEW-WAGE-INDEX-LOC-MSA = '2900'
478000            AND P-NEW-CHG-CODE-INDEX  = 'Y')
478100          MOVE 01.0074 TO W-NEW-INDEX-RECORD.
478200
478300     IF (P-NEW-PROVIDER-NO = '110130')
478400            AND (P-NEW-STAND-AMT-LOC-MSA = '0500'
478500            AND P-NEW-WAGE-INDEX-LOC-MSA = '0500'
478600            AND P-NEW-CHG-CODE-INDEX  = 'Y')
478700          MOVE 00.9739 TO W-NEW-INDEX-RECORD.
478800
478900     IF (P-NEW-PROVIDER-NO = '140230')
479000            AND (P-NEW-STAND-AMT-LOC-MSA = '1400'
479100            AND P-NEW-WAGE-INDEX-LOC-MSA = '1400'
479200            AND P-NEW-CHG-CODE-INDEX  = 'Y')
479300          MOVE 00.9069 TO W-NEW-INDEX-RECORD.
479400
479500     IF (P-NEW-PROVIDER-NO = '230027')
479600            AND (P-NEW-STAND-AMT-LOC-MSA = '3000'
479700            AND P-NEW-WAGE-INDEX-LOC-MSA = '3000'
479800            AND P-NEW-CHG-CODE-INDEX  = 'Y')
479900          MOVE 01.0119 TO W-NEW-INDEX-RECORD.
480000
480100     IF (P-NEW-PROVIDER-NO = '340071' OR '340124')
480200            AND (P-NEW-STAND-AMT-LOC-MSA = '6640'
480300            AND P-NEW-WAGE-INDEX-LOC-MSA = '6640'
480400            AND P-NEW-CHG-CODE-INDEX  = 'Y')
480500          MOVE 00.9506 TO W-NEW-INDEX-RECORD.
480600
480700     IF (P-NEW-PROVIDER-NO = '390030' OR '390181' OR '390183')
480800            AND (P-NEW-STAND-AMT-LOC-MSA = '6680'
480900            AND P-NEW-WAGE-INDEX-LOC-MSA = '6680'
481000            AND P-NEW-CHG-CODE-INDEX  = 'Y')
481100          MOVE 00.8992 TO W-NEW-INDEX-RECORD.
481200
481300     IF (P-NEW-PROVIDER-NO = '390201')
481400            AND (P-NEW-STAND-AMT-LOC-MSA = '5640'
481500            AND P-NEW-WAGE-INDEX-LOC-MSA = '5640'
481600            AND P-NEW-CHG-CODE-INDEX  = 'Y')
481700          MOVE 01.0890 TO W-NEW-INDEX-RECORD.
481800
481900 2500-2001-EXIT.   EXIT.
482000
482100 2500-2003-WI-LUGAR.
482200***************************************************************
482300****    FOR FY 2003 NEW LUGAR HOSPITALS ONLY                  *
482400***************************************************************
482500     IF (P-NEW-PROVIDER-NO = '110130')
482600            AND (P-NEW-STAND-AMT-LOC-MSA = '  11'
482700            AND P-NEW-WAGE-INDEX-LOC-MSA = '  11'
482800            AND P-NEW-CHG-CODE-INDEX  = 'Y')
482900          MOVE 00.8230 TO W-NEW-INDEX-RECORD.
483000
483100
483200 2500-2003-EXIT.   EXIT.
483300
483400 2700-2002-WI-401-HOSPITAL.
483500***************************************************************
483600****    FOR FY 2002 SECTION 401 HOSPITALS                     *
483700***************************************************************
483800     IF (P-NEW-PROVIDER-NO = '050192' OR '050286' OR
483900                             '050446' OR '050469' OR
484000                             '050528' OR '050542')
484100         MOVE '  05' TO HOLD-PROV-MSAX
484200                        P-NEW-STAND-AMT-LOC-MSA.
484300
484400     IF (P-NEW-PROVIDER-NO = '100048' OR '100118')
484500         MOVE '  10' TO HOLD-PROV-MSAX
484600                        P-NEW-STAND-AMT-LOC-MSA.
484700
484800     IF (P-NEW-PROVIDER-NO = '170137')
484900         MOVE '  17' TO HOLD-PROV-MSAX
485000                        P-NEW-STAND-AMT-LOC-MSA.
485100
485200     IF (P-NEW-PROVIDER-NO = '190048' OR '190110')
485300         MOVE '  19' TO HOLD-PROV-MSAX
485400                        P-NEW-STAND-AMT-LOC-MSA.
485500
485600     IF (P-NEW-PROVIDER-NO = '230078')
485700         MOVE '  23' TO HOLD-PROV-MSAX
485800                        P-NEW-STAND-AMT-LOC-MSA.
485900
486000     IF (P-NEW-PROVIDER-NO = '260006')
486100         MOVE '  26' TO HOLD-PROV-MSAX
486200                        P-NEW-STAND-AMT-LOC-MSA.
486300
486400     IF (P-NEW-PROVIDER-NO = '290038')
486500         MOVE '  29' TO HOLD-PROV-MSAX
486600                        P-NEW-STAND-AMT-LOC-MSA.
486700
486800     IF (P-NEW-PROVIDER-NO = '300009')
486900         MOVE '  30' TO HOLD-PROV-MSAX
487000                        P-NEW-STAND-AMT-LOC-MSA.
487100
487200     IF (P-NEW-PROVIDER-NO = '390106')
487300         MOVE '  39' TO HOLD-PROV-MSAX
487400                        P-NEW-STAND-AMT-LOC-MSA.
487500
487600     IF (P-NEW-PROVIDER-NO = '520007' OR '520153')
487700         MOVE '  52' TO HOLD-PROV-MSAX
487800                        P-NEW-STAND-AMT-LOC-MSA.
487900
488000 2700-2002-EXIT.   EXIT.
488100
488200 2700-2003-WI-401-HOSPITAL.
488300***************************************************************
488400****    FOR FY 2003 SECTION 401 HOSPITALS                     *
488500***************************************************************
488600     IF (P-NEW-PROVIDER-NO = '050192' OR '050286' OR
488700                             '050446' OR '050469' OR
488800                             '050528')
488900         MOVE '  05' TO HOLD-PROV-MSAX
489000                        P-NEW-STAND-AMT-LOC-MSA.
489100
489200     IF (P-NEW-PROVIDER-NO = '100048' OR '100118')
489300         MOVE '  10' TO HOLD-PROV-MSAX
489400                        P-NEW-STAND-AMT-LOC-MSA.
489500
489600     IF (P-NEW-PROVIDER-NO = '170137')
489700         MOVE '  17' TO HOLD-PROV-MSAX
489800                        P-NEW-STAND-AMT-LOC-MSA.
489900
490000     IF (P-NEW-PROVIDER-NO = '190048' OR '190110')
490100         MOVE '  19' TO HOLD-PROV-MSAX
490200                        P-NEW-STAND-AMT-LOC-MSA.
490300
490400     IF (P-NEW-PROVIDER-NO = '230078')
490500         MOVE '  23' TO HOLD-PROV-MSAX
490600                        P-NEW-STAND-AMT-LOC-MSA.
490700
490800     IF (P-NEW-PROVIDER-NO = '260006')
490900         MOVE '  26' TO HOLD-PROV-MSAX
491000                        P-NEW-STAND-AMT-LOC-MSA.
491100
491200     IF (P-NEW-PROVIDER-NO = '300009')
491300         MOVE '  30' TO HOLD-PROV-MSAX
491400                        P-NEW-STAND-AMT-LOC-MSA.
491500
491600     IF (P-NEW-PROVIDER-NO = '380084')
491700         MOVE '  38' TO HOLD-PROV-MSAX
491800                        P-NEW-STAND-AMT-LOC-MSA.
491900
492000 2700-2003-EXIT.   EXIT.
492100
492200 2700-2004-WI-401-HOSPITAL.
492300***************************************************************
492400****    FOR FY 2004 SECTION 401 HOSPITALS                     *
492500***************************************************************
492600     IF (P-NEW-PROVIDER-NO = '050192' OR '050286' OR
492700                             '050469' OR '050528' OR
492800                             '050618')
492900         MOVE '  05' TO HOLD-PROV-MSAX
493000                        P-NEW-STAND-AMT-LOC-MSA.
493100
493200     IF (P-NEW-PROVIDER-NO = '100048' OR '100118')
493300         MOVE '  10' TO HOLD-PROV-MSAX
493400                        P-NEW-STAND-AMT-LOC-MSA.
493500
493600     IF (P-NEW-PROVIDER-NO = '170137')
493700         MOVE '  17' TO HOLD-PROV-MSAX
493800                        P-NEW-STAND-AMT-LOC-MSA.
493900
494000     IF (P-NEW-PROVIDER-NO = '190048' OR '190110')
494100         MOVE '  19' TO HOLD-PROV-MSAX
494200                        P-NEW-STAND-AMT-LOC-MSA.
494300
494400     IF (P-NEW-PROVIDER-NO = '230078')
494500         MOVE '  23' TO HOLD-PROV-MSAX
494600                        P-NEW-STAND-AMT-LOC-MSA.
494700
494800     IF (P-NEW-PROVIDER-NO = '260006')
494900         MOVE '  26' TO HOLD-PROV-MSAX
495000                        P-NEW-STAND-AMT-LOC-MSA.
495100
495200     IF (P-NEW-PROVIDER-NO = '300009')
495300         MOVE '  30' TO HOLD-PROV-MSAX
495400                        P-NEW-STAND-AMT-LOC-MSA.
495500
495600     IF (P-NEW-PROVIDER-NO = '380084')
495700         MOVE '  38' TO HOLD-PROV-MSAX
495800                        P-NEW-STAND-AMT-LOC-MSA.
495900
496000     IF (P-NEW-PROVIDER-NO = '390106')
496100         MOVE '  39' TO HOLD-PROV-MSAX
496200                        P-NEW-STAND-AMT-LOC-MSA.
496300
496400 2700-2004-EXIT.   EXIT.
496500
496600 2700-2005-WI-401-HOSPITAL.
496700***************************************************************
496800****    FOR FY 2005 SECTION 401 HOSPITALS  OCT THRU MAR 2005  *
496900***************************************************************
497000     IF (P-NEW-PROVIDER-NO = '050192' OR '050286' OR
497100                             '050446' OR '050469' OR
497200                             '050528' OR '050618' OR
497300                             '051301')
497400         MOVE '   05' TO HOLD-PROV-CBSA
497500                        P-NEW-CBSA-STAND-AMT-LOC.
497600
497700     IF (P-NEW-PROVIDER-NO = '070004')
497800         MOVE '   07' TO HOLD-PROV-CBSA
497900                        P-NEW-CBSA-STAND-AMT-LOC.
498000
498100     IF (P-NEW-PROVIDER-NO = '100048' OR '100118')
498200         MOVE '   10' TO HOLD-PROV-CBSA
498300                        P-NEW-CBSA-STAND-AMT-LOC.
498400
498500     IF (P-NEW-PROVIDER-NO = '170137')
498600         MOVE '   17' TO HOLD-PROV-CBSA
498700                        P-NEW-CBSA-STAND-AMT-LOC.
498800
498900     IF (P-NEW-PROVIDER-NO = '190048' OR '190110')
499000         MOVE '   19' TO HOLD-PROV-CBSA
499100                        P-NEW-CBSA-STAND-AMT-LOC.
499200
499300     IF (P-NEW-PROVIDER-NO = '230078')
499400         MOVE '   23' TO HOLD-PROV-CBSA
499500                        P-NEW-CBSA-STAND-AMT-LOC.
499600
499700     IF (P-NEW-PROVIDER-NO = '260006')
499800         MOVE '   26' TO HOLD-PROV-CBSA
499900                        P-NEW-CBSA-STAND-AMT-LOC.
500000
500100     IF (P-NEW-PROVIDER-NO = '290038' OR '291301')
500200         MOVE '   29' TO HOLD-PROV-CBSA
500300                        P-NEW-CBSA-STAND-AMT-LOC.
500400
500500     IF (P-NEW-PROVIDER-NO = '300009')
500600         MOVE '   30' TO HOLD-PROV-CBSA
500700                        P-NEW-CBSA-STAND-AMT-LOC.
500800
500900     IF (P-NEW-PROVIDER-NO = '380084')
501000         MOVE '   38' TO HOLD-PROV-CBSA
501100                        P-NEW-CBSA-STAND-AMT-LOC.
501200
501300     IF (P-NEW-PROVIDER-NO = '390106' OR '390181')
501400         MOVE '   39' TO HOLD-PROV-CBSA
501500                        P-NEW-CBSA-STAND-AMT-LOC.
501600
501700 2700-2005-EXIT.   EXIT.
501800
501900 2750-2005-WI-401-HOSPITAL.
502000***************************************************************
502100****  FOR FY 2005 SECTION 401 HOSPITALS EFFECTIVE APR 1,2005  *
502200***************************************************************
502300     IF (P-NEW-PROVIDER-NO = '030007')
502400         MOVE '   03' TO HOLD-PROV-CBSA
502500                        P-NEW-CBSA-STAND-AMT-LOC.
502600
502700     IF (P-NEW-PROVIDER-NO = '040075')
502800         MOVE '   04' TO HOLD-PROV-CBSA
502900                        P-NEW-CBSA-STAND-AMT-LOC.
503000
503100     IF (P-NEW-PROVIDER-NO = '050192' OR '050469' OR
503200                             '050528' OR '050618')
503300         MOVE '   05' TO HOLD-PROV-CBSA
503400                        P-NEW-CBSA-STAND-AMT-LOC.
503500
503600     IF (P-NEW-PROVIDER-NO = '070004')
503700         MOVE '   07' TO HOLD-PROV-CBSA
503800                        P-NEW-CBSA-STAND-AMT-LOC.
503900
504000     IF (P-NEW-PROVIDER-NO = '100048' OR '100134')
504100         MOVE '   10' TO HOLD-PROV-CBSA
504200                        P-NEW-CBSA-STAND-AMT-LOC.
504300
504400     IF (P-NEW-PROVIDER-NO = '130018')
504500         MOVE '   13' TO HOLD-PROV-CBSA
504600                        P-NEW-CBSA-STAND-AMT-LOC.
504700
504800     IF (P-NEW-PROVIDER-NO = '140167')
504900         MOVE '   14' TO HOLD-PROV-CBSA
505000                        P-NEW-CBSA-STAND-AMT-LOC.
505100
505200     IF (P-NEW-PROVIDER-NO = '150051' OR '150078')
505300         MOVE '   15' TO HOLD-PROV-CBSA
505400                        P-NEW-CBSA-STAND-AMT-LOC.
505500
505600     IF (P-NEW-PROVIDER-NO = '170137')
505700         MOVE '   17' TO HOLD-PROV-CBSA
505800                        P-NEW-CBSA-STAND-AMT-LOC.
505900
506000     IF (P-NEW-PROVIDER-NO = '190048')
506100         MOVE '   19' TO HOLD-PROV-CBSA
506200                        P-NEW-CBSA-STAND-AMT-LOC.
506300
506400     IF (P-NEW-PROVIDER-NO = '230078')
506500         MOVE '   23' TO HOLD-PROV-CBSA
506600                        P-NEW-CBSA-STAND-AMT-LOC.
506700
506800     IF (P-NEW-PROVIDER-NO = '240037')
506900         MOVE '   24' TO HOLD-PROV-CBSA
507000                        P-NEW-CBSA-STAND-AMT-LOC.
507100
507200     IF (P-NEW-PROVIDER-NO = '260006' OR '260122')
507300         MOVE '   26' TO HOLD-PROV-CBSA
507400                        P-NEW-CBSA-STAND-AMT-LOC.
507500
507600     IF (P-NEW-PROVIDER-NO = '300009')
507700         MOVE '   30' TO HOLD-PROV-CBSA
507800                        P-NEW-CBSA-STAND-AMT-LOC.
507900
508000     IF (P-NEW-PROVIDER-NO = '370054')
508100         MOVE '   37' TO HOLD-PROV-CBSA
508200                        P-NEW-CBSA-STAND-AMT-LOC.
508300
508400     IF (P-NEW-PROVIDER-NO = '380040' OR '380084')
508500         MOVE '   38' TO HOLD-PROV-CBSA
508600                        P-NEW-CBSA-STAND-AMT-LOC.
508700
508800     IF (P-NEW-PROVIDER-NO = '390181' OR '390183' OR
508900                             '390201')
509000         MOVE '   39' TO HOLD-PROV-CBSA
509100                        P-NEW-CBSA-STAND-AMT-LOC.
509200
509300     IF (P-NEW-PROVIDER-NO = '450052' OR '450078' OR
509400                             '450243' OR '450276' OR
509500                             '450348')
509600         MOVE '   45' TO HOLD-PROV-CBSA
509700                        P-NEW-CBSA-STAND-AMT-LOC.
509800
509900     IF (P-NEW-PROVIDER-NO = '500023' OR '500037' OR
510000                             '500122' OR '500147' OR
510100                             '500148')
510200         MOVE '   50' TO HOLD-PROV-CBSA
510300                        P-NEW-CBSA-STAND-AMT-LOC.
510400
510500 2750-2005-EXIT.   EXIT.
510600
510700 2800-2006-WI-401-HOSPITAL.
510800***************************************************************
510900****  FOR FY 2006 SECTION 401 HOSPITALS EFFECTIVE OCT 1,2005  *
511000***************************************************************
511100     IF (P-NEW-PROVIDER-NO = '030007')
511200         MOVE '   03' TO HOLD-PROV-CBSA
511300                        P-NEW-CBSA-STAND-AMT-LOC.
511400
511500     IF (P-NEW-PROVIDER-NO = '040075')
511600         MOVE '   04' TO HOLD-PROV-CBSA
511700                        P-NEW-CBSA-STAND-AMT-LOC.
511800
511900     IF (P-NEW-PROVIDER-NO = '050192' OR '050469' OR
512000                             '050528' OR '050618')
512100         MOVE '   05' TO HOLD-PROV-CBSA
512200                        P-NEW-CBSA-STAND-AMT-LOC.
512300
512400     IF (P-NEW-PROVIDER-NO = '070004')
512500         MOVE '   07' TO HOLD-PROV-CBSA
512600                        P-NEW-CBSA-STAND-AMT-LOC.
512700
512800     IF (P-NEW-PROVIDER-NO = '100048' OR '100134')
512900         MOVE '   10' TO HOLD-PROV-CBSA
513000                        P-NEW-CBSA-STAND-AMT-LOC.
513100
513200     IF (P-NEW-PROVIDER-NO = '130018')
513300         MOVE '   13' TO HOLD-PROV-CBSA
513400                        P-NEW-CBSA-STAND-AMT-LOC.
513500
513600     IF (P-NEW-PROVIDER-NO = '140167')
513700         MOVE '   14' TO HOLD-PROV-CBSA
513800                        P-NEW-CBSA-STAND-AMT-LOC.
513900
514000     IF B-N-DISCHARGE-DATE > 20051231
514100        IF (P-NEW-PROVIDER-NO = '150078')
514200           MOVE '   15' TO HOLD-PROV-CBSA
514300                          P-NEW-CBSA-STAND-AMT-LOC.
514400
514500     IF B-N-DISCHARGE-DATE < 20060101
514600        IF (P-NEW-PROVIDER-NO = '150051' OR '150078')
514700           MOVE '   15' TO HOLD-PROV-CBSA
514800                          P-NEW-CBSA-STAND-AMT-LOC.
514900
515000     IF (P-NEW-PROVIDER-NO = '170137')
515100         MOVE '   17' TO HOLD-PROV-CBSA
515200                        P-NEW-CBSA-STAND-AMT-LOC.
515300
515400     IF (P-NEW-PROVIDER-NO = '190048' OR '190110')
515500         MOVE '   19' TO HOLD-PROV-CBSA
515600                        P-NEW-CBSA-STAND-AMT-LOC.
515700
515800     IF (P-NEW-PROVIDER-NO = '230042' OR '230078')
515900         MOVE '   23' TO HOLD-PROV-CBSA
516000                        P-NEW-CBSA-STAND-AMT-LOC.
516100
516200     IF (P-NEW-PROVIDER-NO = '240037' OR '240122')
516300         MOVE '   24' TO HOLD-PROV-CBSA
516400                        P-NEW-CBSA-STAND-AMT-LOC.
516500
516600     IF (P-NEW-PROVIDER-NO = '260006')
516700         MOVE '   26' TO HOLD-PROV-CBSA
516800                        P-NEW-CBSA-STAND-AMT-LOC.
516900
517000     IF (P-NEW-PROVIDER-NO = '300009')
517100         MOVE '   30' TO HOLD-PROV-CBSA
517200                        P-NEW-CBSA-STAND-AMT-LOC.
517300
517400     IF (P-NEW-PROVIDER-NO = '330268')
517500         MOVE '   33' TO HOLD-PROV-CBSA
517600                        P-NEW-CBSA-STAND-AMT-LOC.
517700
517800     IF (P-NEW-PROVIDER-NO = '370054')
517900         MOVE '   37' TO HOLD-PROV-CBSA
518000                        P-NEW-CBSA-STAND-AMT-LOC.
518100
518200     IF (P-NEW-PROVIDER-NO = '380040' OR '380084')
518300         MOVE '   38' TO HOLD-PROV-CBSA
518400                        P-NEW-CBSA-STAND-AMT-LOC.
518500
518600     IF (P-NEW-PROVIDER-NO = '390181' OR '390183' OR
518700                             '390201')
518800         MOVE '   39' TO HOLD-PROV-CBSA
518900                        P-NEW-CBSA-STAND-AMT-LOC.
519000
519100     IF (P-NEW-PROVIDER-NO = '440135')
519200         MOVE '   44' TO HOLD-PROV-CBSA
519300                        P-NEW-CBSA-STAND-AMT-LOC.
519400
519500     IF (P-NEW-PROVIDER-NO = '450052' OR '450078' OR
519600                             '450243' OR '450276' OR
519700                             '450348')
519800         MOVE '   45' TO HOLD-PROV-CBSA
519900                        P-NEW-CBSA-STAND-AMT-LOC.
520000
520100     IF (P-NEW-PROVIDER-NO = '500023' OR '500043' OR
520200                             '500086' OR '500103' OR
520300                             '500122' OR '500147' OR
520400                             '500148')
520500         MOVE '   50' TO HOLD-PROV-CBSA
520600                        P-NEW-CBSA-STAND-AMT-LOC.
520700
520800 2800-2006-EXIT.   EXIT.
520900
521000 2800-2007-WI-401-HOSPITAL.
521100***************************************************************
521200****  FOR FY 2007 SECTION 401 HOSPITALS EFFECTIVE OCT 1,2006  *
521300***************************************************************
521400
521500     IF (P-NEW-PROVIDER-NO = '050192' OR '050469' OR
521600                             '050528' OR '050618')
521700         MOVE '   05' TO HOLD-PROV-CBSA
521800                        P-NEW-CBSA-STAND-AMT-LOC.
521900
522000     IF (P-NEW-PROVIDER-NO = '070004')
522100         MOVE '   07' TO HOLD-PROV-CBSA
522200                        P-NEW-CBSA-STAND-AMT-LOC.
522300
522400     IF (P-NEW-PROVIDER-NO = '100048' OR '100134')
522500         MOVE '   10' TO HOLD-PROV-CBSA
522600                        P-NEW-CBSA-STAND-AMT-LOC.
522700
522800     IF (P-NEW-PROVIDER-NO = '140167')
522900         MOVE '   14' TO HOLD-PROV-CBSA
523000                        P-NEW-CBSA-STAND-AMT-LOC.
523100
523200     IF (P-NEW-PROVIDER-NO = '170137')
523300         MOVE '   17' TO HOLD-PROV-CBSA
523400                        P-NEW-CBSA-STAND-AMT-LOC.
523500
523600     IF (P-NEW-PROVIDER-NO = '230078')
523700         MOVE '   23' TO HOLD-PROV-CBSA
523800                        P-NEW-CBSA-STAND-AMT-LOC.
523900
524000     IF (P-NEW-PROVIDER-NO = '260006' OR '260047' OR '260195')
524100         MOVE '   26' TO HOLD-PROV-CBSA
524200                        P-NEW-CBSA-STAND-AMT-LOC.
524300
524400     IF (P-NEW-PROVIDER-NO = '330044' OR '330245' OR '330268')
524500         MOVE '   33' TO HOLD-PROV-CBSA
524600                        P-NEW-CBSA-STAND-AMT-LOC.
524700
524800     IF (P-NEW-PROVIDER-NO = '360125')
524900         MOVE '   36' TO HOLD-PROV-CBSA
525000                        P-NEW-CBSA-STAND-AMT-LOC.
525100
525200     IF (P-NEW-PROVIDER-NO = '370054')
525300         MOVE '   37' TO HOLD-PROV-CBSA
525400                        P-NEW-CBSA-STAND-AMT-LOC.
525500
525600     IF (P-NEW-PROVIDER-NO = '380040')
525700         MOVE '   38' TO HOLD-PROV-CBSA
525800                        P-NEW-CBSA-STAND-AMT-LOC.
525900
526000     IF (P-NEW-PROVIDER-NO = '440135' OR '440144')
526100         MOVE '   44' TO HOLD-PROV-CBSA
526200                        P-NEW-CBSA-STAND-AMT-LOC.
526300
526400     IF (P-NEW-PROVIDER-NO = '450052' OR '450078' OR
526500                             '450243' OR '450348')
526600         MOVE '   45' TO HOLD-PROV-CBSA
526700                        P-NEW-CBSA-STAND-AMT-LOC.
526800
526900     IF (P-NEW-PROVIDER-NO = '500148')
527000         MOVE '   50' TO HOLD-PROV-CBSA
527100                        P-NEW-CBSA-STAND-AMT-LOC.
527200
527300     IF (P-NEW-PROVIDER-NO = '520060')
527400         MOVE '   52' TO HOLD-PROV-CBSA
527500                        P-NEW-CBSA-STAND-AMT-LOC.
527600
527700 2800-2007-EXIT.   EXIT.
527800
527900 2800-2008-WI-401-HOSPITAL.
528000***************************************************************
528100****  FOR FY 2008 SECTION 401 HOSPITALS EFFECTIVE OCT 1,2007  *
528200***************************************************************
528300
528400     IF (P-NEW-PROVIDER-NO = '050192' OR
528500                             '050528' OR '050618')
528600         MOVE '   05' TO HOLD-PROV-CBSA
528700                        P-NEW-CBSA-STAND-AMT-LOC.
528800
528900     IF (P-NEW-PROVIDER-NO = '100134')
529000         MOVE '   10' TO HOLD-PROV-CBSA
529100                        P-NEW-CBSA-STAND-AMT-LOC.
529200
529300     IF (P-NEW-PROVIDER-NO = '170137')
529400         MOVE '   17' TO HOLD-PROV-CBSA
529500                        P-NEW-CBSA-STAND-AMT-LOC.
529600
529700     IF (P-NEW-PROVIDER-NO = '220051' OR '230078')
529800         MOVE '   23' TO HOLD-PROV-CBSA
529900                        P-NEW-CBSA-STAND-AMT-LOC.
530000
530100     IF (P-NEW-PROVIDER-NO = '250017')
530200         MOVE '   25' TO HOLD-PROV-CBSA
530300                        P-NEW-CBSA-STAND-AMT-LOC.
530400
530500     IF (P-NEW-PROVIDER-NO = '260006' OR '260195')
530600         MOVE '   26' TO HOLD-PROV-CBSA
530700                        P-NEW-CBSA-STAND-AMT-LOC.
530800
530900     IF (P-NEW-PROVIDER-NO = '330268')
531000         MOVE '   33' TO HOLD-PROV-CBSA
531100                        P-NEW-CBSA-STAND-AMT-LOC.
531200
531300     IF (P-NEW-PROVIDER-NO = '360125')
531400         MOVE '   36' TO HOLD-PROV-CBSA
531500                        P-NEW-CBSA-STAND-AMT-LOC.
531600
531700     IF (P-NEW-PROVIDER-NO = '370054')
531800         MOVE '   37' TO HOLD-PROV-CBSA
531900                        P-NEW-CBSA-STAND-AMT-LOC.
532000
532100     IF (P-NEW-PROVIDER-NO = '380040')
532200         MOVE '   38' TO HOLD-PROV-CBSA
532300                        P-NEW-CBSA-STAND-AMT-LOC.
532400
532500     IF (P-NEW-PROVIDER-NO = '390130' OR '390183' OR
532600                             '390185' OR '390201')
532700         MOVE '   39' TO HOLD-PROV-CBSA
532800                        P-NEW-CBSA-STAND-AMT-LOC.
532900
533000     IF (P-NEW-PROVIDER-NO = '440135')
533100         MOVE '   44' TO HOLD-PROV-CBSA
533200                        P-NEW-CBSA-STAND-AMT-LOC.
533300
533400     IF (P-NEW-PROVIDER-NO = '450052' OR '450078' OR
533500                             '450243' OR '450348')
533600         MOVE '   45' TO HOLD-PROV-CBSA
533700                        P-NEW-CBSA-STAND-AMT-LOC.
533800
533900     IF (P-NEW-PROVIDER-NO = '500148')
534000         MOVE '   50' TO HOLD-PROV-CBSA
534100                        P-NEW-CBSA-STAND-AMT-LOC.
534200
534300 2800-2008-EXIT.   EXIT.
534400
534500 2800-2009-WI-401-HOSPITAL.
534600***************************************************************
534700****  FOR FY 2009 SECTION 401 HOSPITALS EFFECTIVE OCT 1, 2009 *
534800***************************************************************
534900
535000     IF (P-NEW-PROVIDER-NO = '040118')
535100         MOVE '   04' TO HOLD-PROV-CBSA
535200                        P-NEW-CBSA-STAND-AMT-LOC.
535300
535400     IF (P-NEW-PROVIDER-NO = '234202' OR
535500                             '329008' OR '040140')
535600         MOVE '   05' TO HOLD-PROV-CBSA
535700                        P-NEW-CBSA-STAND-AMT-LOC.
535800
535900     IF (P-NEW-PROVIDER-NO = '070004' OR
536000                             '070036')
536100         MOVE '   07' TO HOLD-PROV-CBSA
536200                        P-NEW-CBSA-STAND-AMT-LOC.
536300
536400     IF (P-NEW-PROVIDER-NO = '100048' OR
536500                             '100118' OR '100134')
536600         MOVE '   10' TO HOLD-PROV-CBSA
536700                        P-NEW-CBSA-STAND-AMT-LOC.
536800
536900     IF (P-NEW-PROVIDER-NO = '140167')
537000         MOVE '   14' TO HOLD-PROV-CBSA
537100                        P-NEW-CBSA-STAND-AMT-LOC.
537200
537300     IF (P-NEW-PROVIDER-NO = '170137')
537400         MOVE '   17' TO HOLD-PROV-CBSA
537500                        P-NEW-CBSA-STAND-AMT-LOC.
537600
537700     IF (P-NEW-PROVIDER-NO = '180038')
537800         MOVE '   18' TO HOLD-PROV-CBSA
537900                        P-NEW-CBSA-STAND-AMT-LOC.
538000
538100     IF (P-NEW-PROVIDER-NO = '220051')
538200         MOVE '   22' TO HOLD-PROV-CBSA
538300                        P-NEW-CBSA-STAND-AMT-LOC.
538400
538500     IF (P-NEW-PROVIDER-NO = '230078')
538600         MOVE '   23' TO HOLD-PROV-CBSA
538700                        P-NEW-CBSA-STAND-AMT-LOC.
538800
538900     IF (P-NEW-PROVIDER-NO = '250017')
539000         MOVE '   25' TO HOLD-PROV-CBSA
539100                        P-NEW-CBSA-STAND-AMT-LOC.
539200
539300     IF (P-NEW-PROVIDER-NO = '260006' OR '260047' OR '260195')
539400         MOVE '   26' TO HOLD-PROV-CBSA
539500                        P-NEW-CBSA-STAND-AMT-LOC.
539600
539700     IF (P-NEW-PROVIDER-NO = '330235' OR '330268')
539800         MOVE '   33' TO HOLD-PROV-CBSA
539900                        P-NEW-CBSA-STAND-AMT-LOC.
540000
540100     IF (P-NEW-PROVIDER-NO = '360125')
540200         MOVE '   36' TO HOLD-PROV-CBSA
540300                        P-NEW-CBSA-STAND-AMT-LOC.
540400
540500     IF (P-NEW-PROVIDER-NO = '370054')
540600         MOVE '   37' TO HOLD-PROV-CBSA
540700                        P-NEW-CBSA-STAND-AMT-LOC.
540800
540900     IF (P-NEW-PROVIDER-NO = '380040')
541000         MOVE '   38' TO HOLD-PROV-CBSA
541100                        P-NEW-CBSA-STAND-AMT-LOC.
541200
541300     IF (P-NEW-PROVIDER-NO = '390130' OR '390183' OR
541400                             '390233')
541500         MOVE '   39' TO HOLD-PROV-CBSA
541600                        P-NEW-CBSA-STAND-AMT-LOC.
541700
541800     IF (P-NEW-PROVIDER-NO = '440135')
541900         MOVE '   44' TO HOLD-PROV-CBSA
542000                        P-NEW-CBSA-STAND-AMT-LOC.
542100
542200     IF (P-NEW-PROVIDER-NO = '450052' OR '450078' OR
542300                             '450243' OR '450348')
542400         MOVE '   45' TO HOLD-PROV-CBSA
542500                        P-NEW-CBSA-STAND-AMT-LOC.
542600
542700     IF (P-NEW-PROVIDER-NO = '490116')
542800         MOVE '   49' TO HOLD-PROV-CBSA
542900                        P-NEW-CBSA-STAND-AMT-LOC.
543000
543100     IF (P-NEW-PROVIDER-NO = '500148')
543200         MOVE '   50' TO HOLD-PROV-CBSA
543300                        P-NEW-CBSA-STAND-AMT-LOC.
543400
543500 2800-2009-EXIT.   EXIT.
543600
543700 2800-2010-WI-401-HOSPITAL.
543800***************************************************************
543900****  FOR FY 2010 SECTION 401 HOSPITALS EFFECTIVE OCT 1, 2009 *
544000***************************************************************
544100
544200     IF (P-NEW-PROVIDER-NO = '040118')
544300         MOVE '   04' TO HOLD-PROV-CBSA
544400                        P-NEW-CBSA-STAND-AMT-LOC.
544500
544600     IF (P-NEW-PROVIDER-NO = '050192' OR
544700                             '050528' OR '050618')
544800         MOVE '   05' TO HOLD-PROV-CBSA
544900                        P-NEW-CBSA-STAND-AMT-LOC.
545000
545100     IF (P-NEW-PROVIDER-NO = '070004')
545200         MOVE '   07' TO HOLD-PROV-CBSA
545300                        P-NEW-CBSA-STAND-AMT-LOC.
545400
545500     IF (P-NEW-PROVIDER-NO = '100048' OR
545600                             '100118' OR '100134')
545700         MOVE '   10' TO HOLD-PROV-CBSA
545800                        P-NEW-CBSA-STAND-AMT-LOC.
545900
546000     IF (P-NEW-PROVIDER-NO = '140167')
546100         MOVE '   14' TO HOLD-PROV-CBSA
546200                        P-NEW-CBSA-STAND-AMT-LOC.
546300
546400     IF (P-NEW-PROVIDER-NO = '170137')
546500         MOVE '   17' TO HOLD-PROV-CBSA
546600                        P-NEW-CBSA-STAND-AMT-LOC.
546700
546800     IF (P-NEW-PROVIDER-NO = '180038')
546900         MOVE '   18' TO HOLD-PROV-CBSA
547000                        P-NEW-CBSA-STAND-AMT-LOC.
547100
547200     IF (P-NEW-PROVIDER-NO = '220051')
547300         MOVE '   22' TO HOLD-PROV-CBSA
547400                        P-NEW-CBSA-STAND-AMT-LOC.
547500
547600     IF (P-NEW-PROVIDER-NO = '230078')
547700         MOVE '   23' TO HOLD-PROV-CBSA
547800                        P-NEW-CBSA-STAND-AMT-LOC.
547900
548000     IF (P-NEW-PROVIDER-NO = '250017')
548100         MOVE '   25' TO HOLD-PROV-CBSA
548200                        P-NEW-CBSA-STAND-AMT-LOC.
548300
548400     IF (P-NEW-PROVIDER-NO = '260006' OR '260034' OR
548500                             '260047' OR '260195')
548600         MOVE '   26' TO HOLD-PROV-CBSA
548700                        P-NEW-CBSA-STAND-AMT-LOC.
548800
548900     IF (P-NEW-PROVIDER-NO = '330235' OR '330268')
549000         MOVE '   33' TO HOLD-PROV-CBSA
549100                        P-NEW-CBSA-STAND-AMT-LOC.
549200
549300     IF (P-NEW-PROVIDER-NO = '300023')
549400         MOVE '   30' TO HOLD-PROV-CBSA
549500                        P-NEW-CBSA-STAND-AMT-LOC.
549600
549700     IF (P-NEW-PROVIDER-NO = '360125')
549800         MOVE '   36' TO HOLD-PROV-CBSA
549900                        P-NEW-CBSA-STAND-AMT-LOC.
550000
550100     IF (P-NEW-PROVIDER-NO = '370054')
550200         MOVE '   37' TO HOLD-PROV-CBSA
550300                        P-NEW-CBSA-STAND-AMT-LOC.
550400
550500     IF (P-NEW-PROVIDER-NO = '380040')
550600         MOVE '   38' TO HOLD-PROV-CBSA
550700                        P-NEW-CBSA-STAND-AMT-LOC.
550800
550900     IF (P-NEW-PROVIDER-NO = '390130' OR '390183' OR
551000                             '390233')
551100         MOVE '   39' TO HOLD-PROV-CBSA
551200                        P-NEW-CBSA-STAND-AMT-LOC.
551300
551400     IF (P-NEW-PROVIDER-NO = '450052' OR '450078' OR
551500                             '450243' OR '450348')
551600         MOVE '   45' TO HOLD-PROV-CBSA
551700                        P-NEW-CBSA-STAND-AMT-LOC.
551800
551900     IF (P-NEW-PROVIDER-NO = '490116')
552000         MOVE '   49' TO HOLD-PROV-CBSA
552100                        P-NEW-CBSA-STAND-AMT-LOC.
552200
552300     IF (P-NEW-PROVIDER-NO = '500148')
552400         MOVE '   50' TO HOLD-PROV-CBSA
552500                        P-NEW-CBSA-STAND-AMT-LOC.
552600
552700 2800-2010-EXIT.   EXIT.
552800
552900 2800-2011-WI-401-HOSPITAL.
553000***************************************************************
553100****  FOR FY 2011 SECTION 401 HOSPITALS EFFECTIVE OCT 1, 2010 *
553200***************************************************************
553300*
553400
553500     IF (P-NEW-PROVIDER-NO = '040118')
553600         MOVE '   04' TO HOLD-PROV-CBSA
553700                        P-NEW-CBSA-STAND-AMT-LOC.
553800
553900     IF (P-NEW-PROVIDER-NO = '050192' OR
554000                             '050528' OR '050618')
554100         MOVE '   05' TO HOLD-PROV-CBSA
554200                        P-NEW-CBSA-STAND-AMT-LOC.
554300
554400     IF (P-NEW-PROVIDER-NO = '070004')
554500         MOVE '   07' TO HOLD-PROV-CBSA
554600                        P-NEW-CBSA-STAND-AMT-LOC.
554700
554800     IF (P-NEW-PROVIDER-NO = '100048' OR
554900                             '100118' OR '100134')
555000         MOVE '   10' TO HOLD-PROV-CBSA
555100                        P-NEW-CBSA-STAND-AMT-LOC.
555200
555300     IF (P-NEW-PROVIDER-NO = '140167')
555400         MOVE '   14' TO HOLD-PROV-CBSA
555500                        P-NEW-CBSA-STAND-AMT-LOC.
555600
555700     IF (P-NEW-PROVIDER-NO = '170037' OR '170137')
555800         MOVE '   17' TO HOLD-PROV-CBSA
555900                        P-NEW-CBSA-STAND-AMT-LOC.
556000
556100     IF (P-NEW-PROVIDER-NO = '180016' OR '180038')
556200         MOVE '   18' TO HOLD-PROV-CBSA
556300                        P-NEW-CBSA-STAND-AMT-LOC.
556400
556500     IF (P-NEW-PROVIDER-NO = '220051')
556600         MOVE '   22' TO HOLD-PROV-CBSA
556700                        P-NEW-CBSA-STAND-AMT-LOC.
556800
556900     IF (P-NEW-PROVIDER-NO = '230040' OR '230078')
557000         MOVE '   23' TO HOLD-PROV-CBSA
557100                        P-NEW-CBSA-STAND-AMT-LOC.
557200
557300     IF (P-NEW-PROVIDER-NO = '260006' OR '260034' OR
557400                             '260047' OR '260195')
557500         MOVE '   26' TO HOLD-PROV-CBSA
557600                        P-NEW-CBSA-STAND-AMT-LOC.
557700
557800     IF (P-NEW-PROVIDER-NO = '300023')
557900         MOVE '   30' TO HOLD-PROV-CBSA
558000                        P-NEW-CBSA-STAND-AMT-LOC.
558100
558200     IF (P-NEW-PROVIDER-NO = '330215' OR '330235' OR
558300                             '330268')
558400         MOVE '   33' TO HOLD-PROV-CBSA
558500                        P-NEW-CBSA-STAND-AMT-LOC.
558600
558700     IF (P-NEW-PROVIDER-NO = '340010')
558800         MOVE '   34' TO HOLD-PROV-CBSA
558900                        P-NEW-CBSA-STAND-AMT-LOC.
559000
559100     IF (P-NEW-PROVIDER-NO = '360125')
559200         MOVE '   36' TO HOLD-PROV-CBSA
559300                        P-NEW-CBSA-STAND-AMT-LOC.
559400
559500     IF (P-NEW-PROVIDER-NO = '370054')
559600         MOVE '   37' TO HOLD-PROV-CBSA
559700                        P-NEW-CBSA-STAND-AMT-LOC.
559800
559900     IF (P-NEW-PROVIDER-NO = '380040')
560000         MOVE '   38' TO HOLD-PROV-CBSA
560100                        P-NEW-CBSA-STAND-AMT-LOC.
560200
560300     IF (P-NEW-PROVIDER-NO = '390130' OR '390183' OR
560400                             '390233')
560500         MOVE '   39' TO HOLD-PROV-CBSA
560600                        P-NEW-CBSA-STAND-AMT-LOC.
560700
560800     IF (P-NEW-PROVIDER-NO = '450052' OR '450078' OR
560900                             '450243' OR '450348')
561000         MOVE '   45' TO HOLD-PROV-CBSA
561100                        P-NEW-CBSA-STAND-AMT-LOC.
561200
561300     IF (P-NEW-PROVIDER-NO = '490116')
561400         MOVE '   49' TO HOLD-PROV-CBSA
561500                        P-NEW-CBSA-STAND-AMT-LOC.
561600
561700     IF (P-NEW-PROVIDER-NO = '500148')
561800         MOVE '   50' TO HOLD-PROV-CBSA
561900                        P-NEW-CBSA-STAND-AMT-LOC.
562000
562100
562200 2800-2011-EXIT.   EXIT.
562300
562400
562500 2800-2012-WI-401-HOSPITAL.
562600***************************************************************
562700****  FOR FY 2012 SECTION 401 HOSPITALS EFFECTIVE OCT 1, 2011 *
562800***************************************************************
562900*
563000
563100     IF (P-NEW-PROVIDER-NO = '040118')
563200         MOVE '   04' TO HOLD-PROV-CBSA
563300                        P-NEW-CBSA-STAND-AMT-LOC.
563400
563500     IF (P-NEW-PROVIDER-NO = '050192' OR
563600                             '050528' OR '050618')
563700         MOVE '   05' TO HOLD-PROV-CBSA
563800                        P-NEW-CBSA-STAND-AMT-LOC.
563900
564000     IF (P-NEW-PROVIDER-NO = '070004')
564100         MOVE '   07' TO HOLD-PROV-CBSA
564200                        P-NEW-CBSA-STAND-AMT-LOC.
564300
564400     IF (P-NEW-PROVIDER-NO = '100048' OR
564500                             '100118' OR '100134')
564600         MOVE '   10' TO HOLD-PROV-CBSA
564700                        P-NEW-CBSA-STAND-AMT-LOC.
564800
564900     IF (P-NEW-PROVIDER-NO = '140167')
565000         MOVE '   14' TO HOLD-PROV-CBSA
565100                        P-NEW-CBSA-STAND-AMT-LOC.
565200
565300     IF (P-NEW-PROVIDER-NO = '150003')
565400         MOVE '   15' TO HOLD-PROV-CBSA
565500                        P-NEW-CBSA-STAND-AMT-LOC.
565600
565700     IF (P-NEW-PROVIDER-NO = '170074' OR '170137')
565800         MOVE '   17' TO HOLD-PROV-CBSA
565900                        P-NEW-CBSA-STAND-AMT-LOC.
566000
566100     IF (P-NEW-PROVIDER-NO = '180016' OR '180038')
566200         MOVE '   18' TO HOLD-PROV-CBSA
566300                        P-NEW-CBSA-STAND-AMT-LOC.
566400
566500     IF (P-NEW-PROVIDER-NO = '220051')
566600         MOVE '   22' TO HOLD-PROV-CBSA
566700                        P-NEW-CBSA-STAND-AMT-LOC.
566800
566900     IF (P-NEW-PROVIDER-NO = '230040' OR '230078')
567000         MOVE '   23' TO HOLD-PROV-CBSA
567100                        P-NEW-CBSA-STAND-AMT-LOC.
567200
567300     IF (P-NEW-PROVIDER-NO = '260006' OR '260034' OR
567400                             '260047' OR '260195')
567500         MOVE '   26' TO HOLD-PROV-CBSA
567600                        P-NEW-CBSA-STAND-AMT-LOC.
567700
567800     IF (P-NEW-PROVIDER-NO = '300023')
567900         MOVE '   30' TO HOLD-PROV-CBSA
568000                        P-NEW-CBSA-STAND-AMT-LOC.
568100
568200     IF (P-NEW-PROVIDER-NO = '330013' OR '330057' OR
568300                             '330108' OR '330164' OR
568400                             '330215' OR '330235' OR
568500                             '330268' OR '330285')
568600         MOVE '   33' TO HOLD-PROV-CBSA
568700                        P-NEW-CBSA-STAND-AMT-LOC.
568800
568900     IF (P-NEW-PROVIDER-NO = '340010')
569000         MOVE '   34' TO HOLD-PROV-CBSA
569100                        P-NEW-CBSA-STAND-AMT-LOC.
569200
569300     IF (P-NEW-PROVIDER-NO = '360125')
569400         MOVE '   36' TO HOLD-PROV-CBSA
569500                        P-NEW-CBSA-STAND-AMT-LOC.
569600
569700     IF (P-NEW-PROVIDER-NO = '370054')
569800         MOVE '   37' TO HOLD-PROV-CBSA
569900                        P-NEW-CBSA-STAND-AMT-LOC.
570000
570100     IF (P-NEW-PROVIDER-NO = '380040')
570200         MOVE '   38' TO HOLD-PROV-CBSA
570300                        P-NEW-CBSA-STAND-AMT-LOC.
570400
570500     IF (P-NEW-PROVIDER-NO = '390130' OR '390183' OR
570600                             '390233')
570700         MOVE '   39' TO HOLD-PROV-CBSA
570800                        P-NEW-CBSA-STAND-AMT-LOC.
570900
571000     IF (P-NEW-PROVIDER-NO = '420038')
571100         MOVE '   42' TO HOLD-PROV-CBSA
571200                        P-NEW-CBSA-STAND-AMT-LOC.
571300
571400     IF (P-NEW-PROVIDER-NO = '450052' OR '450078' OR
571500                             '450243' OR '450348')
571600         MOVE '   45' TO HOLD-PROV-CBSA
571700                        P-NEW-CBSA-STAND-AMT-LOC.
571800
571900     IF (P-NEW-PROVIDER-NO = '490116' OR '490116')
572000         MOVE '   49' TO HOLD-PROV-CBSA
572100                        P-NEW-CBSA-STAND-AMT-LOC.
572200
572300     IF (P-NEW-PROVIDER-NO = '500148')
572400         MOVE '   50' TO HOLD-PROV-CBSA
572500                        P-NEW-CBSA-STAND-AMT-LOC.
572600
572700
572800 2800-2012-EXIT.   EXIT.
572900
573000 2800-2013-WI-401-HOSPITAL.
573100***************************************************************
573200****  FOR FY 2013 SECTION 401 HOSPITALS EFFECTIVE OCT 1, 2012 *
573300***************************************************************
573400*
573500
573600     IF (P-NEW-PROVIDER-NO = '290009')
573700         MOVE '   29' TO HOLD-PROV-CBSA
573800                        P-NEW-CBSA-STAND-AMT-LOC.
573900
574000     IF (P-NEW-PROVIDER-NO = '030024')
574100         MOVE '   03' TO HOLD-PROV-CBSA
574200                        P-NEW-CBSA-STAND-AMT-LOC.
574300
574400     IF (P-NEW-PROVIDER-NO = '050192' OR
574500                             '050528' OR '050618')
574600         MOVE '   05' TO HOLD-PROV-CBSA
574700                        P-NEW-CBSA-STAND-AMT-LOC.
574800
574900     IF (P-NEW-PROVIDER-NO = '070004')
575000         MOVE '   07' TO HOLD-PROV-CBSA
575100                        P-NEW-CBSA-STAND-AMT-LOC.
575200
575300     IF (P-NEW-PROVIDER-NO = '100048' OR '100090' OR
575400                             '100118' OR '100134')
575500         MOVE '   10' TO HOLD-PROV-CBSA
575600                        P-NEW-CBSA-STAND-AMT-LOC.
575700
575800     IF (P-NEW-PROVIDER-NO = '170074' OR '170137')
575900         MOVE '   17' TO HOLD-PROV-CBSA
576000                        P-NEW-CBSA-STAND-AMT-LOC.
576100
576200     IF (P-NEW-PROVIDER-NO = '180016' OR '180038')
576300         MOVE '   18' TO HOLD-PROV-CBSA
576400                        P-NEW-CBSA-STAND-AMT-LOC.
576500
576600     IF (P-NEW-PROVIDER-NO = '220051')
576700         MOVE '   22' TO HOLD-PROV-CBSA
576800                        P-NEW-CBSA-STAND-AMT-LOC.
576900
577000     IF (P-NEW-PROVIDER-NO = '230040' OR '230078')
577100         MOVE '   23' TO HOLD-PROV-CBSA
577200                        P-NEW-CBSA-STAND-AMT-LOC.
577300
577400     IF (P-NEW-PROVIDER-NO = '260006' OR '260034' OR
577500                             '260047' OR '260195')
577600         MOVE '   26' TO HOLD-PROV-CBSA
577700                        P-NEW-CBSA-STAND-AMT-LOC.
577800
577900     IF (P-NEW-PROVIDER-NO = '330108' OR
578000                             '330215' OR '330235' OR
578100                             '330268')
578200         MOVE '   33' TO HOLD-PROV-CBSA
578300                        P-NEW-CBSA-STAND-AMT-LOC.
578400
578500     IF (P-NEW-PROVIDER-NO = '340010')
578600         MOVE '   34' TO HOLD-PROV-CBSA
578700                        P-NEW-CBSA-STAND-AMT-LOC.
578800
578900     IF (P-NEW-PROVIDER-NO = '350011')
579000         MOVE '   35' TO HOLD-PROV-CBSA
579100                        P-NEW-CBSA-STAND-AMT-LOC.
579200
579300     IF (P-NEW-PROVIDER-NO = '360125' OR '360141')
579400         MOVE '   36' TO HOLD-PROV-CBSA
579500                        P-NEW-CBSA-STAND-AMT-LOC.
579600
579700     IF (P-NEW-PROVIDER-NO = '370054')
579800         MOVE '   37' TO HOLD-PROV-CBSA
579900                        P-NEW-CBSA-STAND-AMT-LOC.
580000
580100     IF (P-NEW-PROVIDER-NO = '380040')
580200         MOVE '   38' TO HOLD-PROV-CBSA
580300                        P-NEW-CBSA-STAND-AMT-LOC.
580400
580500     IF (P-NEW-PROVIDER-NO = '390130' OR '390183' OR
580600                             '390233')
580700         MOVE '   39' TO HOLD-PROV-CBSA
580800                        P-NEW-CBSA-STAND-AMT-LOC.
580900
581000     IF (P-NEW-PROVIDER-NO = '420009' OR '420038')
581100         MOVE '   42' TO HOLD-PROV-CBSA
581200                        P-NEW-CBSA-STAND-AMT-LOC.
581300
581400     IF (P-NEW-PROVIDER-NO = '440189')
581500         MOVE '   44' TO HOLD-PROV-CBSA
581600                        P-NEW-CBSA-STAND-AMT-LOC.
581700
581800     IF (P-NEW-PROVIDER-NO = '450052' OR '450078' OR
581900                             '450243' OR '450348')
582000         MOVE '   45' TO HOLD-PROV-CBSA
582100                        P-NEW-CBSA-STAND-AMT-LOC.
582200
582300     IF (P-NEW-PROVIDER-NO = '490004' OR '490005' OR
582400                             '490116')
582500         MOVE '   49' TO HOLD-PROV-CBSA
582600                        P-NEW-CBSA-STAND-AMT-LOC.
582700
582800     IF (P-NEW-PROVIDER-NO = '500030' OR '500148')
582900         MOVE '   50' TO HOLD-PROV-CBSA
583000                        P-NEW-CBSA-STAND-AMT-LOC.
583100
583200 2800-2013-EXIT.   EXIT.
583300
583400
583500 2800-2014-WI-401-HOSPITAL.
583600***************************************************************
583700****  FOR FY 2014 SECTION 401 HOSPITALS EFFECTIVE OCT 1, 2012 *
583800***************************************************************
583900*
584000
584100     IF (P-NEW-PROVIDER-NO = '050192' OR
584200                             '050225' OR
584300                             '050528' OR
584400                             '050618')
584500         MOVE '   05' TO HOLD-PROV-CBSA
584600                        P-NEW-CBSA-STAND-AMT-LOC.
584700
584800     IF (P-NEW-PROVIDER-NO = '060010')
584900         MOVE '   06' TO HOLD-PROV-CBSA
585000                        P-NEW-CBSA-STAND-AMT-LOC.
585100
585200     IF (P-NEW-PROVIDER-NO = '070004' OR
585300                             '070005')
585400         MOVE '   07' TO HOLD-PROV-CBSA
585500                        P-NEW-CBSA-STAND-AMT-LOC.
585600
585700     IF (P-NEW-PROVIDER-NO = '100048' OR
585800                             '100090' OR
585900                             '100118' OR
586000                             '100134')
586100         MOVE '   10' TO HOLD-PROV-CBSA
586200                        P-NEW-CBSA-STAND-AMT-LOC.
586300
586400     IF (P-NEW-PROVIDER-NO = '140059' OR
586500                             '140145')
586600         MOVE '   14' TO HOLD-PROV-CBSA
586700                        P-NEW-CBSA-STAND-AMT-LOC.
586800
586900     IF (P-NEW-PROVIDER-NO = '170074' OR
587000                             '170137')
587100         MOVE '   17' TO HOLD-PROV-CBSA
587200                        P-NEW-CBSA-STAND-AMT-LOC.
587300
587400     IF (P-NEW-PROVIDER-NO = '180016' OR
587500                             '180038')
587600         MOVE '   18' TO HOLD-PROV-CBSA
587700                        P-NEW-CBSA-STAND-AMT-LOC.
587800
587900     IF (P-NEW-PROVIDER-NO = '190008')
588000         MOVE '   19' TO HOLD-PROV-CBSA
588100                        P-NEW-CBSA-STAND-AMT-LOC.
588200
588300     IF (P-NEW-PROVIDER-NO = '220051')
588400         MOVE '   22' TO HOLD-PROV-CBSA
588500                        P-NEW-CBSA-STAND-AMT-LOC.
588600
588700     IF (P-NEW-PROVIDER-NO = '230040' OR
588800                             '230078')
588900         MOVE '   23' TO HOLD-PROV-CBSA
589000                        P-NEW-CBSA-STAND-AMT-LOC.
589100
589200     IF (P-NEW-PROVIDER-NO = '260006' OR
589300                             '260034' OR
589400                             '260047' OR
589500                             '260195')
589600         MOVE '   26' TO HOLD-PROV-CBSA
589700                        P-NEW-CBSA-STAND-AMT-LOC.
589800
589900     IF (P-NEW-PROVIDER-NO = '290009')
590000         MOVE '   29' TO HOLD-PROV-CBSA
590100                        P-NEW-CBSA-STAND-AMT-LOC.
590200
590300     IF (P-NEW-PROVIDER-NO = '330108' OR
590400                             '330235' OR
590500                             '330268')
590600         MOVE '   33' TO HOLD-PROV-CBSA
590700                        P-NEW-CBSA-STAND-AMT-LOC.
590800
590900     IF (P-NEW-PROVIDER-NO = '340010')
591000         MOVE '   34' TO HOLD-PROV-CBSA
591100                        P-NEW-CBSA-STAND-AMT-LOC.
591200
591300     IF (P-NEW-PROVIDER-NO = '350011' OR
591400                             '350015')
591500         MOVE '   35' TO HOLD-PROV-CBSA
591600                        P-NEW-CBSA-STAND-AMT-LOC.
591700
591800     IF (P-NEW-PROVIDER-NO = '360125')
591900         MOVE '   36' TO HOLD-PROV-CBSA
592000                        P-NEW-CBSA-STAND-AMT-LOC.
592100
592200     IF (P-NEW-PROVIDER-NO = '370054')
592300         MOVE '   37' TO HOLD-PROV-CBSA
592400                        P-NEW-CBSA-STAND-AMT-LOC.
592500
592600     IF (P-NEW-PROVIDER-NO = '380040')
592700         MOVE '   38' TO HOLD-PROV-CBSA
592800                        P-NEW-CBSA-STAND-AMT-LOC.
592900
593000     IF (P-NEW-PROVIDER-NO = '390130' OR
593100                             '390183' OR
593200                             '390211')
593300         MOVE '   39' TO HOLD-PROV-CBSA
593400                        P-NEW-CBSA-STAND-AMT-LOC.
593500
593600     IF (P-NEW-PROVIDER-NO = '420009' OR
593700                             '420038')
593800         MOVE '   42' TO HOLD-PROV-CBSA
593900                        P-NEW-CBSA-STAND-AMT-LOC.
594000
594100     IF (P-NEW-PROVIDER-NO = '450052' OR
594200                             '450078' OR
594300                             '450243' OR
594400                             '450348')
594500         MOVE '   45' TO HOLD-PROV-CBSA
594600                        P-NEW-CBSA-STAND-AMT-LOC.
594700
594800     IF (P-NEW-PROVIDER-NO = '490004' OR
594900                             '490116')
595000         MOVE '   49' TO HOLD-PROV-CBSA
595100                        P-NEW-CBSA-STAND-AMT-LOC.
595200
595300     IF (P-NEW-PROVIDER-NO = '500030' OR
595400                             '500148')
595500         MOVE '   50' TO HOLD-PROV-CBSA
595600                        P-NEW-CBSA-STAND-AMT-LOC.
595700
595800     IF (P-NEW-PROVIDER-NO = '510039')
595900         MOVE '   51' TO HOLD-PROV-CBSA
596000                        P-NEW-CBSA-STAND-AMT-LOC.
596100
596200 2800-2014-EXIT.   EXIT.
596300
596400 2900-MOVE-PPS-ADDITIONAL-VARS.
596500
596600***FYS 2013 AND 2014 - 1319 BYTES***
596700     IF B-N-DISCHARGE-DATE >= 20121001 AND
596800        B-N-DISCHARGE-DATE <= 20140930
596900        MOVE PPS-VARIABLES-SECTION1-1314
597000            TO PPS-VARIABLES-SECTION1
597100        MOVE PPS-NON-TEMP-RELIEF-PMT-1314
597200            TO PPS-NON-TEMP-RELIEF-PAYMENT
597300        MOVE PPS-NEW-TECH-PAY-ADD-ON-1314
597400            TO PPS-NEW-TECH-PAY-ADD-ON
597500        MOVE 0 TO PPS-ISLET-ISOL-PAY-ADD-ON
597600        MOVE PPS-LOW-VOL-PAYMENT-1314
597700            TO PPS-LOW-VOL-PAYMENT
597800        MOVE PPS-VARIABLES-SECTION3-1314
597900            TO PPS-VARIABLES-SECTION3
598000     END-IF.
598100
598200***FYS 2012 AND EARLIER - 1320 BYTES***
598300     IF B-N-DISCHARGE-DATE < 20121001
598400        MOVE PPS-VARIABLES-SECTION1-PRE13
598500            TO PPS-VARIABLES-SECTION1
598600        MOVE PPS-NON-TEMP-RELIEF-PMT-PRE13
598700            TO PPS-NON-TEMP-RELIEF-PAYMENT
598800        MOVE PPS-NEW-TECH-PAY-ADD-ON-PRE13
598900            TO PPS-NEW-TECH-PAY-ADD-ON
599000        MOVE 0 TO PPS-ISLET-ISOL-PAY-ADD-ON
599100        MOVE PPS-LOW-VOL-PAYMENT-PRE13
599200            TO PPS-LOW-VOL-PAYMENT
599300        MOVE PPS-VARIABLES-SECTION3-PRE13
599400            TO PPS-VARIABLES-SECTION3
599500     END-IF.
599600
599700 2900-EXIT.   EXIT.
599800
599900***************************************************************
600000******       L A S T   S O U R C E   S T A T E M E N T    *****
