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