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