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