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