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