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