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