000100 IDENTIFICATION DIVISION.
000200 PROGRAM-ID.           PPDRV162.
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.2'.
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  PPCAL149                       PIC X(08) VALUE 'PPCAL149'.
077700 01  PPCAL155                       PIC X(08) VALUE 'PPCAL155'.
077800 01  PPCAL162                       PIC X(08) VALUE 'PPCAL162'.
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                 88  P-PR-NEW-STATE     VALUE 40 84.
116500             10  FILLER                 PIC X(04).
116600         05  P-NEW-DATE-DATA.
116700             10  P-NEW-EFF-DATE.
116800                 15  P-NEW-EFF-DT-CC    PIC 9(02).
116900                 15  P-NEW-EFF-DT-YY    PIC 9(02).
117000                 15  P-NEW-EFF-DT-MM    PIC 9(02).
117100                 15  P-NEW-EFF-DT-DD    PIC 9(02).
117200             10  P-NEW-FY-BEGIN-DATE.
117300                 15  P-NEW-FY-BEG-DT-CC PIC 9(02).
117400                 15  P-NEW-FY-BEG-DT-YY PIC 9(02).
117500                 15  P-NEW-FY-BEG-DT-MM PIC 9(02).
117600                 15  P-NEW-FY-BEG-DT-DD PIC 9(02).
117700             10  P-NEW-REPORT-DATE.
117800                 15  P-NEW-REPORT-DT-CC PIC 9(02).
117900                 15  P-NEW-REPORT-DT-YY PIC 9(02).
118000                 15  P-NEW-REPORT-DT-MM PIC 9(02).
118100                 15  P-NEW-REPORT-DT-DD PIC 9(02).
118200             10  P-NEW-TERMINATION-DATE.
118300                 15  P-NEW-TERM-DT-CC   PIC 9(02).
118400                 15  P-NEW-TERM-DT-YY   PIC 9(02).
118500                 15  P-NEW-TERM-DT-MM   PIC 9(02).
118600                 15  P-NEW-TERM-DT-DD   PIC 9(02).
118700         05  P-NEW-WAIVER-CODE          PIC X(01).
118800             88  P-NEW-WAIVER-STATE       VALUE 'Y'.
118900         05  P-NEW-INTER-NO             PIC 9(05).
119000         05  P-NEW-PROVIDER-TYPE        PIC X(02).
119100             88  P-N-SOLE-COMMUNITY-PROV    VALUE '01' '11'.
119200             88  P-N-REFERRAL-CENTER        VALUE '07' '11'
119300                                                  '15' '17'
119400                                                  '22'.
119500             88  P-N-INDIAN-HEALTH-SERVICE  VALUE '08'.
119600             88  P-N-REDESIGNATED-RURAL-YR1 VALUE '09'.
119700             88  P-N-REDESIGNATED-RURAL-YR2 VALUE '10'.
119800             88  P-N-SOLE-COM-REF-CENT      VALUE '11'.
119900             88  P-N-MDH-REBASED-FY90       VALUE '14' '15'.
120000             88  P-N-MDH-RRC-REBASED-FY90   VALUE '15'.
120100             88  P-N-SCH-REBASED-FY90       VALUE '16' '17'.
120200             88  P-N-SCH-RRC-REBASED-FY90   VALUE '17'.
120300             88  P-N-MEDICAL-ASSIST-FACIL   VALUE '18'.
120400             88  P-N-EACH                   VALUE '21' '22'.
120500             88  P-N-EACH-REFERRAL-CENTER   VALUE '22'.
120600             88  P-N-NHCMQ-II-SNF           VALUE '32'.
120700             88  P-N-NHCMQ-III-SNF          VALUE '33'.
120800         05  P-NEW-CURRENT-CENSUS-DIV   PIC 9(01).
120900             88  P-N-NEW-ENGLAND            VALUE  1.
121000             88  P-N-MIDDLE-ATLANTIC        VALUE  2.
121100             88  P-N-SOUTH-ATLANTIC         VALUE  3.
121200             88  P-N-EAST-NORTH-CENTRAL     VALUE  4.
121300             88  P-N-EAST-SOUTH-CENTRAL     VALUE  5.
121400             88  P-N-WEST-NORTH-CENTRAL     VALUE  6.
121500             88  P-N-WEST-SOUTH-CENTRAL     VALUE  7.
121600             88  P-N-MOUNTAIN               VALUE  8.
121700             88  P-N-PACIFIC                VALUE  9.
121800         05  P-NEW-CURRENT-DIV   REDEFINES
121900                    P-NEW-CURRENT-CENSUS-DIV   PIC 9(01).
122000             88  P-N-VALID-CENSUS-DIV    VALUE 1 THRU 9.
122100         05  P-NEW-MSA-DATA.
122200             10  P-NEW-CHG-CODE-INDEX       PIC X.
122300             10  P-NEW-GEO-LOC-MSAX         PIC X(04) JUST RIGHT.
122400             10  P-NEW-GEO-LOC-MSA9   REDEFINES
122500                             P-NEW-GEO-LOC-MSAX  PIC 9(04).
122600             10  P-NEW-GEO-LOC-MSA-AST REDEFINES
122700                             P-NEW-GEO-LOC-MSA9.
122800                 15  P-NEW-GEO-MSA-1ST    PIC X.
122900                 15  P-NEW-GEO-MSA-2ND    PIC X.
123000                 15  P-NEW-GEO-MSA-3RD    PIC X.
123100                 15  P-NEW-GEO-MSA-4TH    PIC X.
123200             10  P-NEW-WAGE-INDEX-LOC-MSA   PIC X(04) JUST RIGHT.
123300             10  P-NEW-STAND-AMT-LOC-MSA    PIC X(04) JUST RIGHT.
123400             10  P-NEW-STAND-AMT-LOC-MSA9
123500       REDEFINES P-NEW-STAND-AMT-LOC-MSA.
123600                 15  P-NEW-RURAL-1ST.
123700                     20  P-NEW-STAND-RURAL  PIC XX.
123800                         88  P-NEW-STD-RURAL-CHECK VALUE '  '.
123900                 15  P-NEW-RURAL-2ND        PIC XX.
124000         05  P-NEW-SOL-COM-DEP-HOSP-YR PIC XX.
124100                 88  P-NEW-SCH-YRBLANK    VALUE   '  '.
124200                 88  P-NEW-SCH-YR82       VALUE   '82'.
124300                 88  P-NEW-SCH-YR87       VALUE   '87'.
124400         05  P-NEW-LUGAR                    PIC X.
124500         05  P-NEW-TEMP-RELIEF-IND          PIC X.
124600             88  P-NEW-LOW-VOL25PCT     VALUE 'Y'.
124700***          Y = LOW VOLUME PERCENTAGE  25 % ADD ON
124800         05  P-NEW-FED-PPS-BLEND-IND        PIC X.
124900         05  FILLER                         PIC X(05).
125000     02  PROV-NEWREC-HOLD2.
125100         05  P-NEW-VARIABLES.
125200             10  P-NEW-CMI-ADJ-CPD       PIC  9(05)V9(02).
125300             10  P-NEW-COLA              PIC  9(01)V9(03).
125400             10  P-NEW-INTERN-RATIO      PIC  9(01)V9(04).
125500             10  P-NEW-BED-SIZE          PIC  9(05).
125600             10  P-NEW-CCR               PIC  9(01)V9(03).
125700             10  P-NEW-CMI               PIC  9(01)V9(04).
125800             10  P-NEW-SSI-RATIO         PIC  V9(04).
125900             10  P-NEW-MEDICAID-RATIO    PIC  V9(04).
126000             10  P-NEW-PPS-BLEND-YR-IND  PIC  X(01).
126100             10  P-NEW-PRUP-UPDTE-FACTOR PIC  9(01)V9(05).
126200             10  P-NEW-DSH-PERCENT       PIC  V9(04).
126300             10  P-NEW-FYE-DATE.
126400                 15  P-NEW-FYE-CC        PIC 99.
126500                 15  P-NEW-FYE-YY        PIC 99.
126600                 15  P-NEW-FYE-MM        PIC 99.
126700                 15  P-NEW-FYE-DD        PIC 99.
126800         05  P-NEW-CBSA-DATA.
126900             10  P-NEW-CBSA-SPEC-PAY-IND    PIC X.
127000                 88  P-NEW-CBSA-WI-GEO        VALUE 'N'.
127100                 88  P-NEW-CBSA-WI-RECLASS    VALUE 'Y'.
127200                 88  P-NEW-CBSA-WI-SPECIAL    VALUE '1' '2'.
127300***                  1 = ANYTHING OR HOLD HARMLESS WITH SPEC WI
127400***                  2 = RECLASS WITH SPEC WI
127500             10  P-NEW-CBSA-HOSP-QUAL-IND  PIC X.
127600                 88  P-NEW-CBSA-HOSP-QUAL-MET   VALUE '1'.
127700                 88  P-NEW-CBSA-HOSP-QUAL-25PER VALUE '2'.
127800                 88  P-NEW-CBSA-HOSP-QUAL-BOTH  VALUE '3'.
127900             10  P-NEW-CBSA-GEO-LOC        PIC X(05) JUST RIGHT.
128000             10  P-NEW-CBSA-GEO-LOC9  REDEFINES
128100                             P-NEW-CBSA-GEO-LOC  PIC 9(05).
128200             10  P-NEW-CBSA-GEO-LOC-AST REDEFINES
128300                             P-NEW-CBSA-GEO-LOC9.
128400                 15  P-NEW-CBSA-GEO-1ST    PIC X.
128500                 15  P-NEW-CBSA-GEO-2ND    PIC X.
128600                 15  P-NEW-CBSA-GEO-3RD    PIC X.
128700                 15  P-NEW-CBSA-GEO-4TH    PIC X.
128800                 15  P-NEW-CBSA-GEO-5TH    PIC X.
128900             10  P-NEW-CBSA-RECLASS-LOC    PIC X(05) JUST RIGHT.
129000             10  P-NEW-CBSA-STAND-AMT-LOC  PIC X(05) JUST RIGHT.
129100             10  P-NEW-CBSA-STAND-AMT-LOC-MSA9
129200       REDEFINES P-NEW-CBSA-STAND-AMT-LOC.
129300               15  P-NEW-CBSA-RURAL-1ST.
129400                   20  P-NEW-CBSA-STAND-RURAL  PIC XXX.
129500                      88  P-NEW-CBSA-STD-RURAL-CHECK VALUE '   '.
129600               15  P-NEW-CBSA-RURAL-2ND    PIC XX.
129700             10  P-NEW-CBSA-SPEC-WI          PIC 9(02)V9(04).
129800             10  P-NEW-CBSA-SPEC-WI-N  REDEFINES
129900                 P-NEW-CBSA-SPEC-WI          PIC 9(06).
130000     02  PROV-NEWREC-HOLD3.
130100         05  P-NEW-PASS-AMT-DATA.
130200             10  P-NEW-PASS-AMT-CAPITAL    PIC 9(04)V99.
130300             10  P-NEW-PASS-AMT-DIR-MED-ED PIC 9(04)V99.
130400             10  P-NEW-PASS-AMT-ORGAN-ACQ  PIC 9(04)V99.
130500             10  P-NEW-PASS-AMT-PLUS-MISC  PIC 9(04)V99.
130600         05  P-NEW-CAPI-DATA.
130700             15  P-NEW-CAPI-PPS-PAY-CODE   PIC X.
130800             15  P-NEW-CAPI-HOSP-SPEC-RATE PIC 9(04)V99.
130900             15  P-NEW-CAPI-OLD-HARM-RATE  PIC 9(04)V99.
131000             15  P-NEW-CAPI-NEW-HARM-RATIO PIC 9(01)V9999.
131100             15  P-NEW-CAPI-CSTCHG-RATIO   PIC 9V999.
131200             15  P-NEW-CAPI-NEW-HOSP       PIC X.
131300             15  P-NEW-CAPI-IME            PIC 9V9999.
131400             15  P-NEW-CAPI-EXCEPTIONS     PIC 9(04)V99.
131500         05  P-NEW-HVBP-HRR-DATA.
131600             15  P-NEW-VAL-BASED-PURCH-PARTIPNT PIC X.
131700             15  P-NEW-VAL-BASED-PURCH-ADJUST   PIC 9V9(11).
131800             15  P-NEW-HOSP-READMISSION-REDU    PIC X.
131900             15  P-NEW-HOSP-HRR-ADJUSTMT        PIC 9V9(4).
132000         05  P-MODEL1-BUNDLE-DATA.
132100             15  P-MODEL1-BUNDLE-DISPRCNT   PIC V999.
132200             15  P-HAC-REDUC-IND            PIC X.
132300             15  P-UNCOMP-CARE-AMOUNT       PIC 9(07)V99.
132400             15  P-NEW-EHR-REDUC-INDN           PIC X.
132500         05  FILLER                         PIC X(09).
132600*
132700**************************************************************
132800*      THIS IS THE PROV-RECORD THAT WILL BE PASSED TO        *
132900*      THE PPCAL984 PROGRAM AND PRIOR PPCAL MODULES          *
133000*      FOR PROCESSING --- OLD PSF FORMAT                     *
133100**************************************************************
133200 01  PROV-HOLD.
133300     02  PROV-REC-HOLD1.
133400         05  P-PROVIDER-NO.
133500             10  P-STATE                PIC 9(02).
133600             10  FILLER                 PIC X(04).
133700         05  P-EFF-DATE.
133800             10  P-EFF-YY               PIC 9(02).
133900             10  P-EFF-MM               PIC 9(02).
134000             10  P-EFF-DD               PIC 9(02).
134100         05  P-WAIVER-CODE              PIC X(01).
134200             88  WAIVER-STATE           VALUE 'Y'.
134300         05  P-PROVIDER-TYPE            PIC X(02).
134400             88  SOLE-COMMUNITY-PROV    VALUE '01' '11'.
134500             88  REFERRAL-CENTER        VALUE '07' '11' '15' '17'.
134600             88  INDIAN-HEALTH-SERVICE  VALUE '08'.
134700             88  REDESIGNATED-RURAL-YR1 VALUE '09'.
134800             88  REDESIGNATED-RURAL-YR2 VALUE '10'.
134900             88  SOLE-COM-REF-CENT      VALUE '11'.
135000             88  MDH-REBASED-FY90       VALUE '14' '15'.
135100             88  MDH-RRC-REBASED-FY90   VALUE '15'.
135200             88  SCH-REBASED-FY90       VALUE '16' '17'.
135300             88  SCH-RRC-REBASED-FY90   VALUE '17'.
135400             88  MEDICAL-ASSIST-FACIL   VALUE '18'.
135500             88  EACH                   VALUE '21'.
135600             88  EACH-REF-CTR           VALUE '22'.
135700         05  P-CURRENT-CENSUS-DIV       PIC 9(01).
135800             88  NEW-ENGLAND            VALUE  1.
135900             88  MIDDLE-ATLANTIC        VALUE  2.
136000             88  SOUTH-ATLANTIC         VALUE  3.
136100             88  EAST-NORTH-CENTRAL     VALUE  4.
136200             88  EAST-SOUTH-CENTRAL     VALUE  5.
136300             88  WEST-NORTH-CENTRAL     VALUE  6.
136400             88  WEST-SOUTH-CENTRAL     VALUE  7.
136500             88  MOUNTAIN               VALUE  8.
136600             88  PACIFIC                VALUE  9.
136700         05  P-PPS-BLEND-YEAR           PIC 9(01).
136800             88  VALID-PPS-BLEND-YEAR   VALUE 0 THRU 9.
136900         05  P-MSA-X.
137000             10  P-RURAL                PIC X(04).
137100                 88  RURAL              VALUE   '9999'.
137200         05  P-MSA-9 REDEFINES P-MSA-X  PIC 9(04).
137300         05  P-FISCAL-YEAR-END.
137400             10  P-MM                   PIC 9(02).
137500             10  P-DD                   PIC 9(02).
137600             10  P-YY                   PIC 9(02).
137700         05  P-VARIABLES.
137800             10  P-CMI-ADJ-CPD          PIC S9(05)V9(02).
137900             10  P-COLA                 PIC S9(01)V9(03).
138000             10  P-INTERN-RATIO         PIC S9(01)V9(04).
138100             10  PRUP-UPDT-FACTOR       PIC S9(01)V9(05).
138200             10  P-BED-SIZE             PIC  9(05).
138300             10  P-DSH-PERCENT          PIC V9(04).
138400             10  P-CCR                  PIC  9(01)V9(03).
138500             10  P-CMI                  PIC  9(01)V9(04).
138600             10  FILLER                 PIC  9(01).
138700             10  P-REPORT-DATE          PIC  9(06).
138800             10  FILLER                 PIC  9(01).
138900             10  P-INTER-NO             PIC  9(05).
139000     02  PROV-REC-HOLD2.
139100         05  P-FY-BEGIN-DATE            PIC 9(6).
139200         05  P-PASS-AMT-CAPITAL         PIC 9(4)V99.
139300         05  P-PASS-AMT-DIR-MED-ED      PIC 9(4)V99.
139400         05  P-PASS-AMT-ORGAN-ACQ       PIC 9(4)V99.
139500         05  P-PASS-AMT-PLUS-MISC       PIC 9(4)V99.
139600         05  P-SSI-RATIO                PIC V9(4).
139700         05  P-MEDICAID-RATIO           PIC V9(4).
139800         05  P-TERMINATION-DATE         PIC X(6).
139900         05  P-WAGE-INDEX-LOC-MSA       PIC X(4).
140000         05  P-CHG-CODE-INDEX           PIC X.
140100         05  P-STAND-AMT-LOC-MSA.
140200             10  P-RURAL-1ST.
140300                 88  P-RURAL-CHECK        VALUE '  '.
140400                 15  P-STAND-RURAL      PIC XX.
140500             10  P-RURAL-2ND            PIC XX.
140600         05  P-CAPI-SOL-HOSP-RATE       PIC XX.
140700         05  P-LUGAR                    PIC X.
140800         05  P-TEMP-RELIEF-IND          PIC X.
140900         05  FILLER                     PIC X(23).
141000     02  PROV-REC-HOLD3.
141100         05  P-CAPI-PPS-PAY-CODE        PIC X.
141200         05  P-CAPI-HOSP-SPEC-RATE      PIC 9(4)V99.
141300         05  P-CAPI-OLD-HARM-RATE       PIC 9(4)V99.
141400         05  P-CAPI-NEW-HARM-RATIO      PIC 9(1)V9999.
141500         05  P-CAPI-CSTCHG-RATIO        PIC 9V999.
141600         05  P-CAPI-NEW-HOSP            PIC X.
141700         05  P-CAPI-IME                 PIC 9V9999.
141800         05  P-CAPI-EXCEPTIONS          PIC 9(4)V99.
141900         05  P-HVBP-HRR-DATA.
142000             15  P-VAL-BASED-PURCH-PARTIPNT PIC X.
142100             15  P-VAL-BASED-PURCH-ADJUST   PIC 9V9(11).
142200             15  P-HOSP-READMISSION-REDU    PIC X.
142300             15  P-HOSP-HRR-ADJUSTMT        PIC 9V9(4).
142400         05  FILLER                         PIC X(04).
142500
142600**************************************************************
142700*  OLD BILL FORMAT                                           *
142800*      THIS IS THE BILL-RECORD THAT WILL BE PASSED TO        *
142900*      THE PPCAL983 PROGRAM AND PRIOR PPCAL MODULES          *
143000*      FOR PROCESSING --- OLD BILL FORMAT                    *
143100**************************************************************
143200 01  BILL-DATA.
143300         10  B-PROVIDER-NO          PIC X(06).
143400         10  B-REVIEW-CODE          PIC 9(02).
143500             88  VALID-REVIEW-CODE     VALUE 00 THRU 08.
143600             88  PAY-WITH-OUTLIER      VALUE 00 07.
143700             88  PAY-DAYS-OUTLIER      VALUE 01.
143800             88  PAY-COST-OUTLIER      VALUE 02.
143900             88  PAY-PERDIEM-DAYS      VALUE 03.
144000             88  PAY-AVG-STAY-ONLY     VALUE 04.
144100             88  PAY-XFER-WITH-COST    VALUE 05.
144200             88  PAY-XFER-NO-COST      VALUE 06.
144300             88  PAY-WITHOUT-COST      VALUE 07.
144400             88  PAY-DRG-480           VALUE 08.
144500         10  B-DRG                  PIC 9(03).
144600         10  B-LOS                  PIC 9(03).
144700         10  B-COVERED-DAYS         PIC 9(03).
144800         10  B-LTR-DAYS             PIC 9(02).
144900         10  B-DISCHARGE-DATE.
145000             15  B-DISCHG-MM        PIC 9(02).
145100             15  B-DISCHG-DD        PIC 9(02).
145200             15  B-DISCHG-YY        PIC 9(02).
145300         10  B-CHARGES-CLAIMED      PIC 9(07)V9(02).
145400
145500 LINKAGE SECTION.
145600
145700***************************************************************
145800*  NEW BILL FORMAT    MILLINNIUM COMPATIBLE                  *
145900*      THIS IS THE BILL-RECORD THAT WILL BE PASSED TO        *
146000*      THE PPCAL001 PROGRAM AND AFTER FOR PROCESSING         *
146100*      IN THE NEW FORMAT                                     *
146200**************************************************************
146300 01  BILL-NEW-DATA.
146400         10  B-N-NPI10.
146500            15  B-N-NPI8              PIC X(08).
146600            15  B-N-NPI-FILLER        PIC X(02).
146700         10  B-N-PROVIDER-NO          PIC X(06).
146800         10  B-N-REVIEW-CODE          PIC 9(02).
146900             88  N-VALID-REVIEW-CODE    VALUE 00 THRU 09 11.
147000             88  N-PAY-WITH-OUTLIER     VALUE 00 07.
147100             88  N-PAY-DAYS-OUTLIER     VALUE 01.
147200             88  N-PAY-COST-OUTLIER     VALUE 02.
147300             88  N-PAY-PERDIEM-DAYS     VALUE 03.
147400             88  N-PAY-AVG-STAY-ONLY    VALUE 04.
147500             88  N-PAY-XFER-WITH-COST   VALUE 05.
147600             88  N-PAY-XFER-NO-COST     VALUE 06.
147700             88  N-PAY-WITHOUT-COST     VALUE 07.
147800             88  N-PAY-DRG-480          VALUE 08.
147900             88  N-PAY-XFER-SPEC-DRG    VALUE 09 11.
148000             88  N-PAY-XFER-SPEC-DRG-NO-COST VALUE 11.
148100         10  B-N-DRG                  PIC 9(03).
148200         10  B-N-LOS                  PIC 9(03).
148300         10  B-N-COVERED-DAYS         PIC 9(03).
148400         10  B-N-LTR-DAYS             PIC 9(02).
148500         10  B-N-DISCHARGE-DATE.
148600             15  B-N-DISCHG-CC        PIC 9(02).
148700             15  B-N-DISCHG-YY        PIC 9(02).
148800             15  B-N-DISCHG-MM        PIC 9(02).
148900             15  B-N-DISCHG-DD        PIC 9(02).
149000         10  B-N-CHARGES-CLAIMED      PIC 9(07)V9(02).
149100         10  B-N-PRIN-PROC-CODE       PIC X(07).
149200         10  B-N-OTHER-PROC-CODE1     PIC X(07).
149300         10  B-N-OTHER-PROC-CODE2     PIC X(07).
149400         10  B-N-OTHER-PROC-CODE3     PIC X(07).
149500         10  B-N-OTHER-PROC-CODE4     PIC X(07).
149600         10  B-N-OTHER-PROC-CODE5     PIC X(07).
149700         10  B-N-OTHER-PROC-CODE6    PIC X(07).
149800         10  B-N-OTHER-PROC-CODE7    PIC X(07).
149900         10  B-N-OTHER-PROC-CODE8    PIC X(07).
150000         10  B-N-OTHER-PROC-CODE9    PIC X(07).
150100         10  B-N-OTHER-PROC-CODE10   PIC X(07).
150200         10  B-N-OTHER-PROC-CODE11   PIC X(07).
150300         10  B-N-OTHER-PROC-CODE12   PIC X(07).
150400         10  B-N-OTHER-PROC-CODE13   PIC X(07).
150500         10  B-N-OTHER-PROC-CODE14   PIC X(07).
150600         10  B-N-OTHER-PROC-CODE15   PIC X(07).
150700         10  B-N-OTHER-PROC-CODE16   PIC X(07).
150800         10  B-N-OTHER-PROC-CODE17   PIC X(07).
150900         10  B-N-OTHER-PROC-CODE18   PIC X(07).
151000         10  B-N-OTHER-PROC-CODE19   PIC X(07).
151100         10  B-N-OTHER-PROC-CODE20   PIC X(07).
151200         10  B-N-OTHER-PROC-CODE21   PIC X(07).
151300         10  B-N-OTHER-PROC-CODE22   PIC X(07).
151400         10  B-N-OTHER-PROC-CODE23   PIC X(07).
151500         10  B-N-OTHER-PROC-CODE24   PIC X(07).
151600         10  B-N-OTHER-DIAG-CODE1   PIC X(07).
151700         10  B-N-OTHER-DIAG-CODE2   PIC X(07).
151800         10  B-N-OTHER-DIAG-CODE3   PIC X(07).
151900         10  B-N-OTHER-DIAG-CODE4   PIC X(07).
152000         10  B-N-OTHER-DIAG-CODE5   PIC X(07).
152100         10  B-N-OTHER-DIAG-CODE6   PIC X(07).
152200         10  B-N-OTHER-DIAG-CODE7   PIC X(07).
152300         10  B-N-OTHER-DIAG-CODE8   PIC X(07).
152400         10  B-N-OTHER-DIAG-CODE9   PIC X(07).
152500         10  B-N-OTHER-DIAG-CODE10  PIC X(07).
152600         10  B-N-OTHER-DIAG-CODE11  PIC X(07).
152700         10  B-N-OTHER-DIAG-CODE12  PIC X(07).
152800         10  B-N-OTHER-DIAG-CODE13  PIC X(07).
152900         10  B-N-OTHER-DIAG-CODE14  PIC X(07).
153000         10  B-N-OTHER-DIAG-CODE15  PIC X(07).
153100         10  B-N-OTHER-DIAG-CODE16  PIC X(07).
153200         10  B-N-OTHER-DIAG-CODE17  PIC X(07).
153300         10  B-N-OTHER-DIAG-CODE18  PIC X(07).
153400         10  B-N-OTHER-DIAG-CODE19  PIC X(07).
153500         10  B-N-OTHER-DIAG-CODE20  PIC X(07).
153600         10  B-N-OTHER-DIAG-CODE21  PIC X(07).
153700         10  B-N-OTHER-DIAG-CODE22  PIC X(07).
153800         10  B-N-OTHER-DIAG-CODE23  PIC X(07).
153900         10  B-N-OTHER-DIAG-CODE24  PIC X(07).
154000         10  B-N-OTHER-DIAG-CODE25  PIC X(07).
154100         10  B-N-DEMO-DATA.
154200             15  B-N-DEMO-CODE1        PIC X(02).
154300             15  B-N-DEMO-CODE2        PIC X(02).
154400             15  B-N-DEMO-CODE3        PIC X(02).
154500             15  B-N-DEMO-CODE4        PIC X(02).
154600         10  B-N-NDC-DATA.
154700             15  B-N-NDC-NUMBER        PIC X(11).
154800         10  FILLER                     PIC X(73).
154900
155000
155100 01  PPS-DATA.
155200         10  PPS-RTC                PIC 9(02).
155300         10  PPS-WAGE-INDX          PIC 9(02)V9(04).
155400         10  PPS-OUTLIER-DAYS       PIC 9(03).
155500         10  PPS-AVG-LOS            PIC 9(02)V9(01).
155600         10  PPS-DAYS-CUTOFF        PIC 9(02)V9(01).
155700         10  PPS-OPER-IME-ADJ       PIC 9(06)V9(02).
155800         10  PPS-TOTAL-PAYMENT      PIC 9(07)V9(02).
155900         10  PPS-OPER-HSP-PART      PIC 9(06)V9(02).
156000         10  PPS-OPER-FSP-PART      PIC 9(06)V9(02).
156100         10  PPS-OPER-OUTLIER-PART  PIC 9(07)V9(02).
156200         10  PPS-REG-DAYS-USED      PIC 9(03).
156300         10  PPS-LTR-DAYS-USED      PIC 9(02).
156400         10  PPS-OPER-DSH-ADJ       PIC 9(06)V9(02).
156500         10  PPS-CALC-VERS          PIC 9(05).
156600
156700 01  PRICER-OPT-VERS-SW.
156800     02  PRICER-OPTION-SW               PIC X(01).
156900         88  ALL-TABLES-PASSED          VALUE 'A'.
157000         88  PROV-RECORD-PASSED         VALUE 'P'.
157100         88  ADDITIONAL-VARIABLES       VALUE 'M'.
157200     02  PPS-VERSIONS.
157300         10  PPDRV-VERSION              PIC X(05).
157400
157500 01  PPS-ADDITIONAL-VARIABLES.
157600     02  PPS-OPERATION-VARIABLES.
157700         05  PPS-HSP-PCT                PIC 9(01)V9(02).
157800         05  PPS-FSP-PCT                PIC 9(01)V9(02).
157900         05  PPS-NAT-PCT                PIC 9(01)V9(02).
158000         05  PPS-REG-PCT                PIC 9(01)V9(02).
158300         05  PPS-CMI-ADJ-CPD            PIC 9(05)V9(02).
158400         05  PPS-UPDATE-FACTOR          PIC 9(01)V9(05).
158500         05  PPS-DRG-WT                 PIC 9(02)V9(04).
158600         05  PPS-NAT-LABOR              PIC 9(05)V9(02).
158700         05  PPS-NAT-NLABOR             PIC 9(05)V9(02).
158800         05  PPS-REG-LABOR              PIC 9(05)V9(02).
158900         05  PPS-REG-NLABOR             PIC 9(05)V9(02).
159000         05  PPS-OPER-COLA              PIC 9(01)V9(03).
159100         05  PPS-INTERN-RATIO           PIC 9(01)V9(04).
159200         05  PPS-OPER-OUTLIER           PIC 9(07)V9(09).
159300         05  PPS-OPER-BILL-COSTS        PIC 9(07)V9(09).
159400         05  PPS-OPER-DOLLAR-THRESHOLD  PIC 9(07)V9(09).
159500         05  PPS-DSCHG-FRCTN            PIC 9(1)V9999.
159600         05  PPS-DRG-WT-FRCTN           PIC 9(2)V9999.
159700         05  PPS-CAPITAL-VARIABLES.
159800             10  PPS-CAPI-TOTAL-PAY         PIC S9(07)V9(02).
159900             10  PPS-CAPI-HSP               PIC S9(07)V9(02).
160000             10  PPS-CAPI-FSP               PIC S9(07)V9(02).
160100             10  PPS-CAPI-OUTLIER           PIC S9(07)V9(02).
160200             10  PPS-CAPI-OLD-HARM          PIC S9(07)V9(02).
160300             10  PPS-CAPI-DSH-ADJ           PIC S9(07)V9(02).
160400             10  PPS-CAPI-IME-ADJ           PIC S9(07)V9(02).
160500             10  PPS-CAPI-EXCEPTIONS        PIC S9(07)V9(02).
160600         05  PPS-CAPITAL2-VARIABLES.
160700             10  PPS-CAPI2-PAY-CODE          PIC X(1).
160800             10  PPS-CAPI2-B-FSP             PIC S9(07)V9(02).
160900             10  PPS-CAPI2-B-OUTLIER         PIC S9(07)V9(02).
161000         05  PPS-OTHER-VARIABLES.
161100             10  PPS-NON-TEMP-RELIEF-PAYMENT PIC 9(07)V9(02).
161200             10  PPS-NEW-TECH-PAY-ADD-ON     PIC 9(07)V9(02).
161300             10  PPS-LOW-VOL-PAYMENT         PIC 9(07)V9(02).
161400         05  PPS-HVBP-HRR-DATA.
161500             10  PPS-VAL-BASED-PURCH-PARTIPNT PIC X.
161600             10  PPS-VAL-BASED-PURCH-ADJUST   PIC 9V9(11).
161700             10  PPS-HOSP-READMISS-REDUCTN    PIC X.
161800             10  PPS-HOSP-HRR-ADJUSTMT        PIC 9V9(4).
161900         05  PPS-OPERATNG-DATA.
162000             10  PPS-MODEL1-BUNDLE-DISPRCNT  PIC V999.
162100             10  PPS-OPER-BASE-DRG-PAY       PIC 9(08)V99.
162200             10  PPS-OPER-HSP-AMT            PIC 9(08)V99.
162300        10  PPS-PC-VARIABLES.
162400             15  PPS-OPER-DSH                PIC 9(01)V9(04).
162500             15  PPS-CAPI-DSH                PIC 9(01)V9(04).
162600             15  PPS-CAPI-HSP-PCT            PIC 9(01)V9(02).
162700             15  PPS-CAPI-FSP-PCT            PIC 9(01)V9(04).
162800             15  PPS-ARITH-ALOS              PIC 9(02)V9(01).
162900             15  PPS-PR-WAGE-INDEX           PIC 9(02)V9(04).
163000             15  PPS-TRANSFER-ADJ            PIC 9(01)V9(04).
163100             15  PPS-PC-HMO-FLAG             PIC X(01).
163200             15  PPS-PC-COT-FLAG             PIC X(01).
163300             15  PPS-OPER-HSP-PART2          PIC 9(07)V9(02).
163400             15  PPS-BUNDLE-ADJUST-AMT       PIC S9(07)V99.
163500        10  PPS-ADDITIONAL-PAY-INFO-DATA.
163600             15  PPS-UNCOMP-CARE-AMOUNT         PIC S9(07)V9(02).
163700             15  PPS-BUNDLE-ADJUST-AMT          PIC S9(07)V9(02).
163800             15  PPS-VAL-BASED-PURCH-ADJUST-AMT PIC S9(07)V9(02).
163900             15  PPS-READMIS-ADJUST-AMT         PIC S9(07)V9(02).
164000        10  PPS-ADDITIONAL-PAY-INFO-DATA2.
164100             15  PPS-HAC-PROG-REDUC-IND         PIC X.
164200             15  PPS-EHR-PROG-REDUC-IND         PIC X.
164300             15  PPS-EHR-ADJUST-AMT             PIC S9(07)V9(02).
164400             15  PPS-STNDRD-VALUE               PIC S9(07)V9(02).
164500             15  PPS-HAC-PAYMENT-AMT            PIC S9(07)V9(02).
164600             15  PPS-FLX7-PAYMENT               PIC S9(07)V9(02).
164700        10  PPS-FILLER                          PIC X(0906).
164800*******************************************************
164900
165000 01  PROV-RECORD.
165100     05  PROV-RECORD1               PIC X(80).
165200     05  PROV-RECORD2               PIC X(80).
165300     05  PROV-RECORD3               PIC X(100).
165400
165500 01  MSAX-WI-TABLE.
165600     05  M-MSAX-DATA                OCCURS 9000
165700                                    INDEXED BY MU1 MU2 MU3.
165800         10  M-MSAX-MSA             PIC X(4).
165900         10  M-MSAX-SIZE            PIC X(01).
166000         10  M-MSAX-EFF-DATE        PIC X(08).
166100         10  M-MSAX-WAGE-INDX1      PIC S9(02)V9(04).
166200         10  M-MSAX-WAGE-INDX2      PIC S9(02)V9(04).
166300
166400*******************************************************
166500**YEARCHANGE 2015.2             **********************
166600
166700 01  CBSA-WI-TABLE.
166800     05  T-CBSA-DATA                  OCCURS 7000
166900                                    INDEXED BY MA1 MA2 MA3.
167000         10  T-CBSA                   PIC X(5).
167100         10  T-CBSA-SIZE              PIC X(01).
167200         10  T-CBSA-EFF-DATE          PIC X(08).
167300         10  T-CBSA-WAGE-INDX1        PIC S9(02)V9(04).
167400         10  T-CBSA-WAGE-INDX2        PIC S9(02)V9(04).
167500
167600*******************************************************
167700*    HOLD VARIABLES POPULATED IN PPCAL___***          *
167800*******************************************************
167900 COPY PPHOLDAR.
168000
168100**YEARCHANGE 2015.2             **********************
168200*****************************************************************
168300 PROCEDURE DIVISION  USING BILL-NEW-DATA
168400                           PPS-DATA
168500                           PRICER-OPT-VERS-SW
168600                           PPS-ADDITIONAL-VARIABLES
168700                           PROV-RECORD
168800                           MSAX-WI-TABLE
168900                           CBSA-WI-TABLE
169000                           PPHOLDAR-HOLD-AREA.
169100
169200*****************************************************************
169300*    PROCESSING:
169400*        A. THIS MODULE WILL CALL THE PPCAL MODULES.
169500*        B. THE PROV-RECORD AND WAGE-INDEX-RECORD ASSOCIATED WITH
169600*           EACH BILL WILL BE PASSED TO THE PPCAL PROGRAMS.
169700*****************************************************************
169800
169900     MOVE DRV-VERSION TO PPDRV-VERSION.
170000
170100     MOVE ALL '0' TO PPS-DATA.
170200     MOVE ZEROES  TO W-PR-INDEX-RECORD
170300                     W-NEW-INDEX-RECORD
170400                     W-NEW-PR-INDEX-RECORD
170500                     W-NEW-CBSA-PR-WI
170600                     W-NEW-CBSA-WI
170700                     W-RURAL-CBSA-WI
170800                     W-RURAL-CBSA-PR-WI
170900                     MESWK-PRSPC-WAGEIN-BLEND.
171000
171100     INITIALIZE PPHOLDAR-HOLD-AREA.
171200
171300     INITIALIZE W-FY-BEGIN-CC
171400                W-FY-BEGIN-YY
171500                W-FY-END-CC
171600                W-FY-END-YY.
171700
171800     MOVE PROV-RECORD TO PROV-NEW-HOLD.
171900
172000*----------------------------------------------------------*
172100* SET FY BEGIN AND END DATES USING BILL DISCHARGE DATE     *
172200*----------------------------------------------------------*
172300           MOVE B-N-DISCHG-CC TO W-FY-BEGIN-CC.
172400           MOVE B-N-DISCHG-CC TO W-FY-END-CC.
172500
172600*----------------------------------*
172700* FOR CLAIMS DISCHARGED JAN - SEPT *
172800*----------------------------------*
172900     IF B-N-DISCHG-MM >= 01 AND
173000        B-N-DISCHG-MM <= 09
173100        COMPUTE W-FY-BEGIN-YY = B-N-DISCHG-YY - 1
173200        MOVE B-N-DISCHG-YY TO W-FY-END-YY
173300
173400*----------------------------------*
173500* FOR CLAIMS DISCHARGED OCT - DEC  *
173600*----------------------------------*
173700     ELSE
173800        MOVE B-N-DISCHG-YY TO W-FY-BEGIN-YY
173900        COMPUTE W-FY-END-YY = B-N-DISCHG-YY + 1
174000        END-IF.
174100
174200
174300*****************************************************************
174400
174500***     RTC = 98 >> A BILL OLDER THEN 20021001
174600***
174700***   THIS NEXT STATEMENT WILL ONLY ALLOW
174800***      THE LATEST 5 YEARS TO PROCESS
174900***
175000
175100***  IF B-N-DISCHARGE-DATE < 20021001
175200***          MOVE ALL '0' TO  PPS-ADDITIONAL-VARIABLES
175300***          MOVE 98 TO PPS-RTC
175400***          GOBACK.
175500***
175600*****************************************************************
175700
175800*EHR INDICATOR CHECK FOR 2015 FORWARD
175900
176000 CHECK-EHR-IND.
176100     IF B-N-DISCHARGE-DATE > 20140930 AND
176200        (P-NEW-EHR-REDUC-INDN NOT = 'Y' AND
176300         P-NEW-EHR-REDUC-INDN NOT = ' ')
176400           MOVE 65 TO PPS-RTC
176500             GOBACK
176600     END-IF.
176700
176800 0030-GET-WAGE-INDEX.
176900***  GET THE WAGE-INDEX
177000
177100     IF B-N-DISCHARGE-DATE > 19990930 AND
177200        B-N-DISCHARGE-DATE < 20001001
177300      IF (P-NEW-CHG-CODE-INDEX = 'Y' AND
177400          P-NEW-GEO-LOC-MSAX = P-NEW-WAGE-INDEX-LOC-MSA)
177500          AND (P-NEW-GEO-LOC-MSAX NOT = '1600' AND NOT = '3285'
177600                            AND   NOT = '5600' AND NOT = '1520'
177700                            AND   NOT = '1640' AND NOT = '0240'
177800                            AND   NOT = '3360' AND NOT = '1123')
177900          MOVE ALL '0' TO PPS-ADDITIONAL-VARIABLES
178000          MOVE 52 TO PPS-RTC
178100          GOBACK.
178200
178300     IF P-NEW-EFF-DATE < 20041001
178400        IF '*' = P-NEW-GEO-MSA-1ST OR
178500                 P-NEW-GEO-MSA-2ND OR
178600                 P-NEW-GEO-MSA-3RD OR
178700                 P-NEW-GEO-MSA-4TH
178800         MOVE ALL '0' TO PPS-ADDITIONAL-VARIABLES
178900         MOVE 52 TO PPS-RTC
179000         GOBACK.
179100
179200     IF P-NEW-EFF-DATE < 20041001 AND
179300        B-N-DISCHARGE-DATE > 20040930
179400        MOVE ALL '0' TO PPS-ADDITIONAL-VARIABLES
179500        MOVE 52 TO PPS-RTC
179600        GOBACK.
179700
179800     IF P-NEW-EFF-DATE > 20040930
179900        IF '*' = P-NEW-CBSA-GEO-1ST OR
180000                 P-NEW-CBSA-GEO-2ND OR
180100                 P-NEW-CBSA-GEO-3RD OR
180200                 P-NEW-CBSA-GEO-4TH OR
180300                 P-NEW-CBSA-GEO-5TH
180400         MOVE ALL '0' TO PPS-ADDITIONAL-VARIABLES
180500         MOVE 52 TO PPS-RTC
180600         GOBACK.
180700
180800     IF P-NEW-EFF-DATE < 20041001
180900        IF (P-NEW-WAGE-INDEX-LOC-MSA = '    ' OR
181000            P-NEW-WAGE-INDEX-LOC-MSA = '0000')
181100            MOVE P-NEW-GEO-LOC-MSA9 TO P-NEW-WAGE-INDEX-LOC-MSA.
181200     IF P-NEW-EFF-DATE < 20041001
181300        IF (P-NEW-STAND-AMT-LOC-MSA = '    ' OR
181400            P-NEW-STAND-AMT-LOC-MSA = '0000')
181500            MOVE P-NEW-GEO-LOC-MSA9 TO P-NEW-STAND-AMT-LOC-MSA.
181600
181700     IF P-NEW-EFF-DATE > 20040930
181800        IF (P-NEW-CBSA-RECLASS-LOC = '     ' OR
181900            P-NEW-CBSA-RECLASS-LOC = '00000')
182000            MOVE P-NEW-CBSA-GEO-LOC9 TO P-NEW-CBSA-RECLASS-LOC.
182100     IF P-NEW-EFF-DATE > 20040930
182200        IF (P-NEW-CBSA-STAND-AMT-LOC = '     ' OR
182300            P-NEW-CBSA-STAND-AMT-LOC = '00000')
182400            MOVE P-NEW-CBSA-GEO-LOC9 TO P-NEW-CBSA-STAND-AMT-LOC.
182500
182600     IF P-NEW-EFF-DATE < 20041001
182700        PERFORM 0500-GET-MSA THRU 0500-EXIT
182800     ELSE
182900        PERFORM 0550-GET-CBSA THRU 0550-EXIT.
183000
183100***     RTC = 52  --  WAGE-INDEX NOT FOUND
183200     IF PPS-RTC = 52
183300          MOVE ALL '0' TO  PPS-ADDITIONAL-VARIABLES
183400          GOBACK.
183500
183600*****************************************************************
183700**            FY 2016 "ICD10  REFORM"                       *****
183800**          THIS NEXT CALL WILL PROCESS 2016 BILLS  WITH
183900**              A DISCHARGE DATE ON OR AFTER 20151001
184000*****************************************************************
184100     IF B-N-DISCHARGE-DATE
184200              > 20150930
184300         CALL  PPCAL162 USING BILL-NEW-DATA
184400                              PPS-DATA
184500                              PRICER-OPT-VERS-SW
184600                              PPS-ADDITIONAL-VARIABLES
184700                              PROV-NEW-HOLD
184800                              WAGE-NEW-CBSA-INDEX-RECORD
184900                              PPHOLDAR-HOLD-AREA
185000         GOBACK.
185100*****************************************************************
185200**            FY 2015 "HEALTH REFORM"                       *****
185300**          THIS NEXT CALL WILL PROCESS 2015 BILLS  WITH
185400**              A DISCHARGE DATE ON OR AFTER 20141001
185500*****************************************************************
185600     IF B-N-DISCHARGE-DATE
185700              > 20140930
185800         CALL  PPCAL155 USING BILL-NEW-DATA
185900                              PPS-DATA
186000                              PRICER-OPT-VERS-SW
186100                              PPS-ADDITIONAL-VARIABLES
186200                              PROV-NEW-HOLD
186300                              WAGE-NEW-CBSA-INDEX-RECORD
186400                              PPHOLDAR-HOLD-AREA
186500         GOBACK.
186600*****************************************************************
186700*****************************************************************
186800**            FY 2014 "HEALTH REFORM"                       *****
186900**          THIS NEXT CALL WILL PROCESS 2014 BILLS  WITH
187000**              A DISCHARGE DATE ON OR AFTER 20131001
187100*****************************************************************
187200     IF B-N-DISCHARGE-DATE
187300              > 20130930
187400         CALL  PPCAL149 USING BILL-NEW-DATA
187500                              PPS-DATA
187600                              PRICER-OPT-VERS-SW
187700                              PPS-ADDITIONAL-VARIABLES
187800                              PROV-NEW-HOLD
187900                              WAGE-NEW-CBSA-INDEX-RECORD
188000         GOBACK.
188100*****************************************************************
188200*****************************************************************
188300*****************************************************************
188400**            FY 2013 "HEALTH REFORM"                       *****
188500**          THIS NEXT CALL WILL PROCESS 2011 BILLS  WITH
188600**              A DISCHARGE DATE ON OR AFTER 20121001
188700*****************************************************************
188800     IF B-N-DISCHARGE-DATE
188900              > 20120930
189000         CALL  PPCAL134 USING BILL-NEW-DATA
189100                              PPS-DATA
189200                              PRICER-OPT-VERS-SW
189300                              PPS-ADDITIONAL-VARIABLES
189400                              PROV-NEW-HOLD
189500                              WAGE-NEW-CBSA-INDEX-RECORD
189600         GOBACK.
189700*****************************************************************
189800*****************************************************************
189900*****************************************************************
190000**            FY 2012 "HEALTH REFORM"                       *****
190100**          THIS NEXT CALL WILL PROCESS 2011 BILLS  WITH
190200**              A DISCHARGE DATE ON OR AFTER 20111001
190300*****************************************************************
190400     IF B-N-DISCHARGE-DATE
190500              > 20110930
190600         CALL  PPCAL124 USING BILL-NEW-DATA
190700                              PPS-DATA
190800                              PRICER-OPT-VERS-SW
190900                              PPS-ADDITIONAL-VARIABLES
191000                              PROV-NEW-HOLD
191100                              WAGE-NEW-CBSA-INDEX-RECORD
191200         GOBACK.
191300*****************************************************************
191400*****************************************************************
191500**            FY 2011 "HEALTH REFORM"                       *****
191600**          THIS NEXT CALL WILL PROCESS 2011 BILLS  WITH
191700**              A DISCHARGE DATE ON OR AFTER 20101001
191800*****************************************************************
191900     IF B-N-DISCHARGE-DATE
192000              > 20100930
192100         CALL  PPCAL118 USING BILL-NEW-DATA
192200                              PPS-DATA
192300                              PRICER-OPT-VERS-SW
192400                              PPS-ADDITIONAL-VARIABLES
192500                              PROV-NEW-HOLD
192600                              WAGE-NEW-CBSA-INDEX-RECORD
192700         GOBACK.
192800*****************************************************************
192900*****************************************************************
193000**            FY 2010 "HEALTH REFORM"                       *****
193100**          THIS NEXT CALL WILL PROCESS 2010 BILLS  WITH
193200**              A DISCHARGE DATE ON OR AFTER 20100401
193300*****************************************************************
193400     IF B-N-DISCHARGE-DATE
193500              > 20100331
193600         CALL  PPCAL10P USING BILL-NEW-DATA
193700                              PPS-DATA
193800                              PRICER-OPT-VERS-SW
193900                              PPS-ADDITIONAL-VARIABLES
194000                              PROV-NEW-HOLD
194100                              WAGE-NEW-CBSA-INDEX-RECORD
194200         GOBACK.
194300*****************************************************************
194400*****************************************************************
194500**          THIS NEXT CALL WILL PROCESS 2010 BILLS  WITH
194600**        A DISCHARGE DATE ON OR AFTER 20091001 TO 4/01/2010
194700*****************************************************************
194800     IF B-N-DISCHARGE-DATE
194900              > 20090930
195000         CALL  PPCAL10O USING BILL-NEW-DATA
195100                              PPS-DATA
195200                              PRICER-OPT-VERS-SW
195300                              PPS-ADDITIONAL-VARIABLES
195400                              PROV-NEW-HOLD
195500                              WAGE-NEW-CBSA-INDEX-RECORD
195600         GOBACK.
195700*****************************************************************
195800*****************************************************************
195900**          THIS NEXT CALL WILL PROCESS 2009 BILLS  WITH
196000**              A DISCHARGE DATE ON OR AFTER 20081001
196100*****************************************************************
196200     IF B-N-DISCHARGE-DATE
196300              > 20080930
196400         CALL  PPCAL09D USING BILL-NEW-DATA
196500                              PPS-DATA
196600                              PRICER-OPT-VERS-SW
196700                              PPS-ADDITIONAL-VARIABLES
196800                              PROV-NEW-HOLD
196900                              WAGE-NEW-CBSA-INDEX-RECORD
197000         GOBACK.
197100*****************************************************************
197200*****************************************************************
197300**          THIS NEXT CALL WILL PROCESS 2008 BILLS  WITH
197400**              A DISCHARGE DATE ON OR AFTER 20071001
197500*****************************************************************
197600     IF B-N-DISCHARGE-DATE
197700              > 20070930
197800         CALL  PPCAL08D USING BILL-NEW-DATA
197900                              PPS-DATA
198000                              PRICER-OPT-VERS-SW
198100                              PPS-ADDITIONAL-VARIABLES
198200                              PROV-NEW-HOLD
198300                              WAGE-NEW-CBSA-INDEX-RECORD
198400         GOBACK.
198500*****************************************************************
198600*****************************************************************
198700**          THIS NEXT CALL WILL PROCESS 2007 BILLS  WITH
198800**              A DISCHARGE DATE ON OR AFTER 20061001
198900*****************************************************************
199000     IF B-N-DISCHARGE-DATE
199100              > 20060930
199200         CALL  PPCAL07B USING BILL-NEW-DATA
199300                              PPS-DATA
199400                              PRICER-OPT-VERS-SW
199500                              PPS-ADDITIONAL-VARIABLES
199600                              PROV-NEW-HOLD
199700                              WAGE-NEW-CBSA-INDEX-RECORD
199800         GOBACK.
199900*****************************************************************
200000*****************************************************************
200100**          THIS NEXT CALL WILL PROCESS 2006 BILLS  WITH
200200**              A DISCHARGE DATE ON OR AFTER 20051001
200300*****************************************************************
200400     IF B-N-DISCHARGE-DATE
200500              > 20050930
200600         CALL  PPCAL069 USING BILL-NEW-DATA
200700                              PPS-DATA
200800                              PRICER-OPT-VERS-SW
200900                              PPS-ADDITIONAL-VARIABLES
201000                              PROV-NEW-HOLD
201100                              WAGE-NEW-CBSA-INDEX-RECORD
201200         GOBACK.
201300*****************************************************************
201400*****************************************************************
201500*****************************************************************
201600*****************************************************************
201700**          THIS NEXT CALL WILL PROCESS 2005 BILLS  WITH
201800**              A DISCHARGE DATE ON OR AFTER 20041001
201900*****************************************************************
202000     IF B-N-DISCHARGE-DATE
202100              > 20040930
202200         CALL  PPCAL058 USING BILL-NEW-DATA
202300                              PPS-DATA
202400                              PRICER-OPT-VERS-SW
202500                              PPS-ADDITIONAL-VARIABLES
202600                              PROV-NEW-HOLD
202700                              WAGE-NEW-CBSA-INDEX-RECORD
202800         GOBACK.
202900*****************************************************************
203000*****************************************************************
203100*****************************************************************
203200**          THIS NEXT CALL WILL PROCESS 2004 BILLS  WITH
203300**              A DISCHARGE DATE ON OR AFTER 20031001
203400*****************************************************************
203500     IF B-N-DISCHARGE-DATE
203600              > 20030930
203700         CALL  PPCAL04D USING BILL-NEW-DATA
203800                              PPS-DATA
203900                              PRICER-OPT-VERS-SW
204000                              PPS-ADDITIONAL-VARIABLES
204100                              PROV-NEW-HOLD
204200                              WAGE-NEW-INDEX-RECORD
204300         GOBACK.
204400*****************************************************************
204500*****************************************************************
204600*****************************************************************
204700**          THIS NEXT CALL WILL PROCESS 2003 BILLS  WITH
204800**              A DISCHARGE DATE ON OR AFTER 20021001
204900*****************************************************************
205000     IF B-N-DISCHARGE-DATE
205100              > 20020930
205200         CALL  PPCAL038 USING BILL-NEW-DATA
205300                              PPS-DATA
205400                              PRICER-OPT-VERS-SW
205500                              PPS-ADDITIONAL-VARIABLES
205600                              PROV-NEW-HOLD
205700                              WAGE-NEW-INDEX-RECORD
205800         GOBACK.
205900*****************************************************************
206000*****************************************************************
206100*****************************************************************
206200**          THIS NEXT CALL WILL PROCESS 2002 BILLS  WITH
206300**              A DISCHARGE DATE ON OR AFTER 20011001
206400*****************************************************************
206500     IF B-N-DISCHARGE-DATE
206600              > 20010930
206700         CALL  PPCAL026 USING BILL-NEW-DATA
206800                              PPS-DATA
206900                              PRICER-OPT-VERS-SW
207000                              PPS-ADDITIONAL-VARIABLES
207100                              PROV-NEW-HOLD
207200                              WAGE-NEW-INDEX-RECORD
207300         GOBACK.
207400*****************************************************************
207500*****************************************************************
207600*****************************************************************
207700**          THIS NEXT CALL WILL PROCESS 2001 BILLS  WITH
207800**              A DISCHARGE DATE ON OR AFTER 20001001
207900*****************************************************************
208000     IF B-N-DISCHARGE-DATE
208100              > 20000930
208200         CALL  PPCAL017 USING BILL-NEW-DATA
208300                              PPS-DATA
208400                              PRICER-OPT-VERS-SW
208500                              PPS-ADDITIONAL-VARIABLES
208600                              PROV-NEW-HOLD
208700                              WAGE-NEW-INDEX-RECORD
208800         GOBACK.
208900*****************************************************************
209000*****************************************************************
209100*****************************************************************
209200**          THIS NEXT CALL WILL PROCESS 2000 BILLS  WITH
209300**              A DISCHARGE DATE ON OR AFTER 19991001
209400*****************************************************************
209500     IF B-N-DISCHARGE-DATE
209600              > 19990930
209700         CALL  PPCAL006 USING BILL-NEW-DATA
209800                              PPS-DATA
209900                              PRICER-OPT-VERS-SW
210000                              PPS-ADDITIONAL-VARIABLES
210100                              PROV-NEW-HOLD
210200                              WAGE-NEW-INDEX-RECORD
210300         GOBACK.
210400*****************************************************************
210500*****************************************************************
210600**          THIS NEXT CALL WILL PROCESS 1999 BILLS  WITH
210700**              A DISCHARGE DATE ON OR AFTER 19981001
210800*****************************************************************
210900     IF B-N-DISCHARGE-DATE
211000              > 19980930
211100         CALL  PPCAL998 USING BILL-NEW-DATA
211200                              PPS-DATA
211300                              PRICER-OPT-VERS-SW
211400                              PPS-ADDITIONAL-VARIABLES
211500                              PROV-NEW-HOLD
211600                              WAGE-NEW-INDEX-RECORD
211700         GOBACK.
211800*****************************************************************
211900*****************************************************************
212000**   MOVE NEW DATA FORMAT INTO OLD DATA FORMAT
212100**   TO PROCESS BEFORE 19981001 NON-MILLENNNIUM STANDARD
212200*****************************************************************
212300     MOVE ALL '9' TO W-PROV-NEW-HOLD.
212400     MOVE PROV-NEW-HOLD TO W-PROV-NEW-HOLD.
212500     PERFORM 2400-CONVERT-PSF.
212600     MOVE W-PROV-OLD-HOLD TO PROV-HOLD.
212700
212800     MOVE W-NEW-MSA             TO W-MSA.
212900     MOVE W-NEW-SIZE            TO W-SIZE.
213000     MOVE W-NEW-EFF-DATE-YMD    TO W-EFF-DATE.
213100     MOVE W-NEW-INDEX-RECORD    TO W-INDEX-RECORD.
213200     MOVE W-NEW-PR-INDEX-RECORD TO W-PR-INDEX-RECORD.
213300
213400     MOVE B-N-PROVIDER-NO  TO B-PROVIDER-NO.
213500     MOVE B-N-REVIEW-CODE  TO B-REVIEW-CODE.
213600     MOVE B-N-DRG          TO B-DRG.
213700     MOVE B-N-LOS          TO B-LOS.
213800     MOVE B-N-COVERED-DAYS TO B-COVERED-DAYS.
213900     MOVE B-N-LTR-DAYS     TO B-LTR-DAYS.
214000     MOVE B-N-DISCHG-YY    TO B-DISCHG-YY.
214100     MOVE B-N-DISCHG-MM    TO B-DISCHG-MM.
214200     MOVE B-N-DISCHG-DD    TO B-DISCHG-DD.
214300     MOVE B-N-CHARGES-CLAIMED TO B-CHARGES-CLAIMED.
214400
214500*****************************************************************
214600**          THIS NEXT CALL WILL PROCESS 1998 BILLS  WITH
214700**              A DISCHARGE DATE ON OR AFTER 19971001
214800*****************************************************************
214900     IF B-N-DISCHARGE-DATE
215000              > 19970930
215100         CALL  PPCAL987 USING BILL-DATA
215200                              PPS-DATA
215300                              PRICER-OPT-VERS-SW
215400                              PPS-ADDITIONAL-VARIABLES
215500                              PROV-HOLD
215600                              WAGE-INDEX-RECORD
215700         GOBACK.
215800*****************************************************************
215900*****************************************************************
216000**          THIS NEXT CALL WILL PROCESS 1997 BILLS  WITH
216100**              A DISCHARGE DATE ON OR AFTER 19961001
216200*****************************************************************
216300     IF B-N-DISCHARGE-DATE
216400              > 19960930
216500         CALL  PPCAL974 USING BILL-DATA
216600                              PPS-DATA
216700                              PRICER-OPT-VERS-SW
216800                              PPS-ADDITIONAL-VARIABLES
216900                              PROV-HOLD
217000                              WAGE-INDEX-RECORD
217100         GOBACK.
217200*****************************************************************
217300*****************************************************************
217400**          THIS NEXT CALL WILL PROCESS 1996 BILLS  WITH
217500**              A DISCHARGE DATE ON OR AFTER 19951001
217600*****************************************************************
217700     IF B-N-DISCHARGE-DATE
217800              > 19950930
217900         CALL  PPCAL964 USING BILL-DATA
218000                              PPS-DATA
218100                              PRICER-OPT-VERS-SW
218200                              PPS-ADDITIONAL-VARIABLES
218300                              PROV-HOLD
218400                              WAGE-INDEX-RECORD
218500         GOBACK.
218600*****************************************************************
218700*****************************************************************
218800**          THIS NEXT CALL WILL PROCESS 1995 BILLS  WITH
218900**              A DISCHARGE DATE ON OR AFTER 19941001
219000*****************************************************************
219100     IF B-N-DISCHARGE-DATE
219200              > 19940930
219300         CALL  PPCAL954 USING BILL-DATA
219400                              PPS-DATA
219500                              PRICER-OPT-VERS-SW
219600                              PPS-ADDITIONAL-VARIABLES
219700                              PROV-HOLD
219800                              WAGE-INDEX-RECORD
219900         GOBACK.
220000*****************************************************************
220100*****************************************************************
220200**          THIS NEXT CALL WILL PROCESS 1994 BILLS  WITH
220300**              A DISCHARGE DATE ON OR AFTER 19931001
220400*****************************************************************
220500     IF B-N-DISCHARGE-DATE
220600              > 19930930
220700         CALL  PPCAL944 USING BILL-DATA
220800                              PPS-DATA
220900                              PRICER-OPT-VERS-SW
221000                              PPS-ADDITIONAL-VARIABLES
221100                              PROV-HOLD
221200                              WAGE-INDEX-RECORD
221300         GOBACK.
221400*****************************************************************
221500*****************************************************************
221600**          THIS NEXT CALL WILL PROCESS 1993 BILLS  WITH
221700**              A DISCHARGE DATE ON OR AFTER 19921001
221800*****************************************************************
221900     IF B-N-DISCHARGE-DATE
222000              > 19920930
222100         CALL  PPCAL935 USING BILL-DATA
222200                              PPS-DATA
222300                              PRICER-OPT-VERS-SW
222400                              PPS-ADDITIONAL-VARIABLES
222500                              PROV-HOLD
222600                              WAGE-INDEX-RECORD
222700         GOBACK.
222800*****************************************************************
222900*****************************************************************
223000**          THIS NEXT CALL WILL PROCESS 1992 BILLS  WITH
223100**              A DISCHARGE DATE ON OR AFTER 19911001
223200*****************************************************************
223300     IF B-N-DISCHARGE-DATE
223400              > 19910930
223500         CALL  PPCAL926 USING BILL-DATA
223600                              PPS-DATA
223700                              PRICER-OPT-VERS-SW
223800                              PPS-ADDITIONAL-VARIABLES
223900                              PROV-HOLD
224000                              WAGE-INDEX-RECORD
224100         GOBACK.
224200*****************************************************************
224300*****************************************************************
224400**          THIS NEXT CALL WILL PROCESS 1991 BILLS  WITH
224500**              A DISCHARGE DATE ON OR AFTER 19901001
224600*****************************************************************
224700     IF B-N-DISCHARGE-DATE
224800              > 19900930
224900         CALL  PPCAL915 USING BILL-DATA
225000                              PPS-DATA
225100                              PRICER-OPT-VERS-SW
225200                              PPS-ADDITIONAL-VARIABLES
225300                              PROV-HOLD
225400                              WAGE-INDEX-RECORD
225500         GOBACK.
225600*****************************************************************
225700*****************************************************************
225800**          THIS NEXT CALL WILL PROCESS 1990 BILLS  WITH
225900**              A DISCHARGE DATE ON OR AFTER 19891001
226000*****************************************************************
226100     IF B-N-DISCHARGE-DATE
226200              > 19890930
226300         CALL  PPCAL905 USING BILL-DATA
226400                              PPS-DATA
226500                              PRICER-OPT-VERS-SW
226600                              PPS-ADDITIONAL-VARIABLES
226700                              PROV-HOLD
226800                              WAGE-INDEX-RECORD
226900         GOBACK.
227000*****************************************************************
227100*****************************************************************
227200**          THIS NEXT CALL WILL PROCESS 1989 BILLS  WITH
227300**              A DISCHARGE DATE ON OR AFTER 19881001
227400*****************************************************************
227500     IF B-N-DISCHARGE-DATE
227600              > 19880930
227700         CALL  PPCAL894 USING BILL-DATA
227800                              PPS-DATA
227900                              PRICER-OPT-VERS-SW
228000                              PPS-ADDITIONAL-VARIABLES
228100                              PROV-HOLD
228200                              WAGE-INDEX-RECORD
228300         GOBACK.
228400*****************************************************************
228500*****************************************************************
228600**          THIS NEXT CALL WILL PROCESS 1988 BILLS  WITH
228700**              A DISCHARGE DATE ON OR AFTER 19871001
228800*****************************************************************
228900     IF B-N-DISCHARGE-DATE
229000              > 19870930
229100         CALL  PPCAL884 USING BILL-DATA
229200                              PPS-DATA
229300                              PRICER-OPT-VERS-SW
229400                              PPS-ADDITIONAL-VARIABLES
229500                              PROV-HOLD
229600                              WAGE-INDEX-RECORD
229700         GOBACK.
229800*****************************************************************
229900*****************************************************************
230000     MOVE 98 TO PPS-RTC.
230100     GOBACK.
230200
230300 0100-GET-MSA.
230400     SET MU1 TO 1.
230500
230600     SEARCH M-MSAX-DATA VARYING MU1
230700     AT END
230800          MOVE 999999 TO P-PROVIDER-NO
230900          MOVE 52     TO PPS-RTC
231000          GO TO 0100-EXIT
231100     WHEN M-MSAX-MSA (MU1) = HOLD-PROV-MSAX
231200          SET MU2 TO MU1.
231300
231400 0100-EXIT.  EXIT.
231500
231600 0150-GET-CBSA.
231700     SET MA1 TO 1.
231800
231900     SEARCH T-CBSA-DATA VARYING MA1
232000     AT END
232100          MOVE 999999 TO P-PROVIDER-NO
232200          MOVE 52     TO PPS-RTC
232300          GO TO 0150-EXIT
232400     WHEN T-CBSA  (MA1) = HOLD-PROV-CBSA
232500          SET MA2 TO MA1.
232600
232700 0150-EXIT.  EXIT.
232800
232900 0175-GET-RURAL-CBSA.
233000     SET MA1 TO 1.
233100
233200     SEARCH T-CBSA-DATA VARYING MA1
233300     AT END
233400       MOVE '   00'              TO W-RURAL-CBSA-X
233500       MOVE 99999999             TO W-RURAL-CBSA-EFF-DATE
233600       MOVE 0                    TO W-RURAL-CBSA-WI
233700       GO TO 0175-EXIT
233800     WHEN T-CBSA  (MA1) = HOLD-RURAL-CBSA
233900          SET MA2 TO MA1.
234000
234100 0175-EXIT.  EXIT.
234200
234300 0200-N-GET-MSAPR.
234400
234500     IF P-NEW-CHG-CODE-INDEX = 'Y'
234600        MOVE P-NEW-WAGE-INDEX-LOC-MSA TO HOLD-PROV-MSAX
234700     ELSE
234800        MOVE P-NEW-GEO-LOC-MSAX TO HOLD-PROV-MSAX.
234900
235000     MOVE '*' TO H-MSAX-LAST-POS.
235100     PERFORM 0100-GET-MSA THRU 0100-EXIT.
235200
235300     IF PPS-RTC = 00
235400      PERFORM 0300-N-GET-PR-WAGE-INDX
235500           THRU 0300-N-EXIT VARYING MU2
235600           FROM MU1 BY 1 UNTIL
235700           M-MSAX-MSA (MU2) NOT = HOLD-PROV-MSAX.
235800
235900 0200-N-EXIT.  EXIT.
236000
236100 0250-N-GET-CBSA-PR.
236200
236300     MOVE ZERO TO MESWK-PRSPC-WAGEIN-BLEND.
236400
236500     IF B-N-DISCHARGE-DATE > 20140930 AND
236600        B-N-DISCHARGE-DATE < 20151001
236700        PERFORM 0370-PRSPC-CODE-RTN THRU 0370-EXIT
236800
236900        IF  MESWK-PRSPC-WAGEIN-BLEND > 00.0000
237000            MOVE MESWK-PRSPC-WAGEIN-BLEND
237100                              TO W-NEW-CBSA-PR-WI
237200        GO TO 0250-EXIT.
237300
237400     MOVE P-NEW-CBSA-STAND-AMT-LOC TO HOLD-PROV-CBSA.
237500
237600     IF P-NEW-CBSA-WI-RECLASS
237700        MOVE P-NEW-CBSA-RECLASS-LOC TO HOLD-PROV-CBSA.
237800
237900
238000
238100     MOVE '*' TO H-CBSA-LAST-POS.
238200     PERFORM 0150-GET-CBSA THRU 0150-EXIT.
238300
238400     IF PPS-RTC = 00
238500      PERFORM 0350-N-GET-PR-WAGE-INDX
238600           THRU 0350-EXIT VARYING MA2
238700           FROM MA1 BY 1 UNTIL
238800           T-CBSA (MA2) NOT = HOLD-PROV-CBSA.
238900
239000 0250-EXIT.  EXIT.
239100
239200 0260-N-GET-RURAL-CBSA-PR.
239300
239400     MOVE '*' TO H-CBSA-RURAL-LAST-POS.
239500     PERFORM 0175-GET-RURAL-CBSA THRU 0175-EXIT.
239600
239700     IF PPS-RTC = 00
239800      PERFORM 0360-N-GET-PR-RURAL-WAGE-INDX
239900           THRU 0360-EXIT VARYING MA2
240000           FROM MA1 BY 1 UNTIL
240100           T-CBSA (MA2) NOT = HOLD-RURAL-CBSA.
240200
240300 0260-EXIT.  EXIT.
240400
240500 0300-N-GET-PR-WAGE-INDX.
240600
240700     IF  B-N-DISCHARGE-DATE NOT < M-MSAX-EFF-DATE (MU2)
240800         MOVE M-MSAX-WAGE-INDX1 (MU2) TO W-NEW-PR-INDEX-RECORD
240900         IF P-NEW-CHG-CODE-INDEX  = 'Y'
241000            MOVE M-MSAX-WAGE-INDX2 (MU2)
241100                                     TO W-NEW-PR-INDEX-RECORD.
241200
241300 0300-N-EXIT.  EXIT.
241400
241500 0350-N-GET-PR-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-NEW-CBSA-PR-WI
242200         IF P-NEW-CBSA-SPEC-PAY-IND =  'Y'
242300             MOVE T-CBSA-WAGE-INDX2 (MA2)
242400                              TO W-NEW-CBSA-PR-WI.
242500
242600 0350-EXIT.  EXIT.
242700
242800 0360-N-GET-PR-RURAL-WAGE-INDX.
242900
243000     IF  B-N-DISCHARGE-DATE NOT < T-CBSA-EFF-DATE (MA2) AND
243100         (T-CBSA-EFF-DATE (MA2) >= W-FY-BEGIN-DATE AND
243200          T-CBSA-EFF-DATE (MA2) <= W-FY-END-DATE)
243300         MOVE T-CBSA-WAGE-INDX1 (MA2)
243400                              TO W-RURAL-CBSA-PR-WI
243500         IF P-NEW-CBSA-SPEC-PAY-IND = 'Y'
243600             MOVE T-CBSA-WAGE-INDX2 (MA2)
243700                              TO W-RURAL-CBSA-PR-WI.
243800
243900 0360-EXIT.  EXIT.
244000
244100*
244200***************************************************************
244300* USE IPPS COMPARABLE BLENDED WAGE INDEX FROM TABLE IF        *
244400* PROVIDER FOUND IN TABLE - FOR FY 2015                       *
244500***************************************************************
244600***********************************************************
244700 0370-PRSPC-CODE-RTN.
244800*
244900     SET PRSPC-IDX TO 1.
245000     SEARCH PRSPC-TAB VARYING PRSPC-IDX
245100         AT END
245200           MOVE ZERO TO MESWK-PRSPC-WAGEIN-BLEND
245300       WHEN WK-PRSPC-PROV (PRSPC-IDX) = P-NEW-PROVIDER-NO
245400         MOVE WK-PRSPC-WAGEIN-BLEND(PRSPC-IDX)
245500                            TO MESWK-PRSPC-WAGEIN-BLEND.
245600
245700
245800 0370-EXIT.   EXIT.
245900
246000***********************************************************
246100 0500-GET-MSA.
246200        IF P-NEW-CHG-CODE-INDEX = 'Y'
246300           MOVE P-NEW-WAGE-INDEX-LOC-MSA TO HOLD-PROV-MSAX
246400        ELSE
246500           MOVE P-NEW-GEO-LOC-MSA9 TO HOLD-PROV-MSAX.
246600
246700**1998***********************************************************
246800     IF B-N-DISCHARGE-DATE > 19970930 AND
246900        B-N-DISCHARGE-DATE < 19981001
247000        PERFORM 2300-1998-FLOOR-MSA THRU 2300-1998-EXIT.
247100
247200**1999***********************************************************
247300     IF B-N-DISCHARGE-DATE > 19980930 AND
247400        B-N-DISCHARGE-DATE < 19991001
247500        PERFORM 2300-1999-FLOOR-MSA THRU 2300-1999-EXIT.
247600
247700**2000***********************************************************
247800     IF B-N-DISCHARGE-DATE > 19990930 AND
247900        B-N-DISCHARGE-DATE < 20001001
248000        PERFORM 2300-2000-FLOOR-MSA THRU 2300-2000-EXIT.
248100
248200**2001***********************************************************
248300     IF B-N-DISCHARGE-DATE > 20000930 AND
248400        B-N-DISCHARGE-DATE < 20011001
248500        PERFORM 2300-2001-FLOOR-MSA THRU 2300-2001-EXIT.
248600
248700**2002***********************************************************
248800     IF B-N-DISCHARGE-DATE > 20010930 AND
248900        B-N-DISCHARGE-DATE < 20021001
249000        PERFORM 2300-2002-FLOOR-MSA THRU 2300-2002-EXIT.
249100
249200     IF B-N-DISCHARGE-DATE > 20010930 AND
249300        B-N-DISCHARGE-DATE < 20021001
249400          PERFORM 2700-2002-WI-401-HOSPITAL THRU 2700-2002-EXIT.
249500
249600**2003***********************************************************
249700     IF B-N-DISCHARGE-DATE > 20020930 AND
249800        B-N-DISCHARGE-DATE < 20031001
249900          PERFORM 2700-2003-WI-401-HOSPITAL THRU 2700-2003-EXIT.
250000
250100     IF B-N-DISCHARGE-DATE > 20020930 AND
250200        B-N-DISCHARGE-DATE < 20031001
250300        PERFORM 2300-2003-FLOOR-MSA THRU 2300-2003-EXIT.
250400
250500**2004***********************************************************
250600     IF B-N-DISCHARGE-DATE > 20030930 AND
250700        B-N-DISCHARGE-DATE < 20041001
250800          PERFORM 2700-2004-WI-401-HOSPITAL THRU 2700-2004-EXIT.
250900
251000     IF B-N-DISCHARGE-DATE > 20030930 AND
251100        B-N-DISCHARGE-DATE < 20041001
251200        PERFORM 2300-2004-FLOOR-MSA THRU 2300-2004-EXIT.
251300
251400*****************************************************************
251500     PERFORM 0100-GET-MSA THRU 0100-EXIT.
251600
251700***     RTC = 52  --  MSA NOT FOUND
251800     IF PPS-RTC = 52    GOBACK.
251900
252000     IF PPS-RTC = 00
252100        PERFORM 0600-N-GET-WAGE-INDX
252200           THRU 0600-N-EXIT VARYING MU2
252300           FROM MU1 BY 1 UNTIL
252400           M-MSAX-MSA (MU2) NOT = HOLD-PROV-MSAX.
252500
252600     IF P-N-INDIAN-HEALTH-SERVICE
252700             MOVE 00 TO PPS-RTC
252800             PERFORM 0800-N-GET-INDIAN-WI THRU 0800-N-EXIT.
252900
253000***     RTC = 52  --  WAGE-INDEX NOT FOUND
253100     IF PPS-RTC = 52    GOBACK.
253200
253300**2000***********************************************************
253400     IF B-N-DISCHARGE-DATE > 19990930 AND
253500        B-N-DISCHARGE-DATE < 20001001
253600          PERFORM 2500-2000-WI-LUGER THRU 2500-2000-EXIT.
253700
253800**2001***********************************************************
253900     IF B-N-DISCHARGE-DATE > 20000930 AND
254000        B-N-DISCHARGE-DATE < 20011001
254100          PERFORM 2500-2001-WI-LUGER THRU 2500-2001-EXIT.
254200
254300**2003***********************************************************
254400     IF B-N-DISCHARGE-DATE > 20020930 AND
254500        B-N-DISCHARGE-DATE < 20031001
254600          PERFORM 2500-2003-WI-LUGER THRU 2500-2003-EXIT.
254700
254800**2004***********************************************************
254900     IF B-N-DISCHARGE-DATE > 20031231 AND
255000        B-N-DISCHARGE-DATE < 20041001
255100        PERFORM 2300-2004-RECLASS152 THRU 2300-2004-RECLASS-EXIT.
255200
255300*****************************************************************
255400     IF W-NEW-INDEX-RECORD = 00.0000
255500        MOVE ALL '0' TO PPS-ADDITIONAL-VARIABLES
255600        MOVE 52 TO PPS-RTC.
255700
255800***  GET THE WAGE-SIZE
255900
256000     MOVE P-NEW-STAND-AMT-LOC-MSA TO HOLD-PROV-MSAX.
256100
256200     PERFORM 0100-GET-MSA THRU 0100-EXIT.
256300
256400     IF PPS-RTC = 00
256500         PERFORM 0700-N-GET-WAGE-SIZE
256600           THRU 0700-N-EXIT VARYING MU2
256700           FROM MU1 BY 1 UNTIL
256800           M-MSAX-MSA (MU2) NOT = HOLD-PROV-MSAX.
256900
257000     IF P-PR-NEW-STATE
257100        IF B-N-DISCHARGE-DATE > 19970930
257200              PERFORM 0200-N-GET-MSAPR THRU 0200-N-EXIT.
257300
257400***     RTC = 52  --  PR-WAGE-INDEX NOT FOUND
257500     IF PPS-RTC = 52
257600          MOVE ALL '0' TO  PPS-ADDITIONAL-VARIABLES
257700          GOBACK.
257800
257900 0500-EXIT.  EXIT.
258000
258100 0550-GET-CBSA.
258200**2005*  OCT 1, 2004 CBSA REPLACED MSA
258300
258400**----------------------------------------------------------------
258500** CBSA DOESN'T APPLY TO CLAIMS DISCHARGED BEFORE 10/01/2004
258600**----------------------------------------------------------------
258700     IF P-NEW-EFF-DATE < 20041001
258800        MOVE ALL '0' TO PPS-ADDITIONAL-VARIABLES
258900        MOVE 52 TO PPS-RTC
259000        GOBACK.
259100
259200**----------------------------------------------------------------
259300** HOLD THE PROVIDER'S CBSA FROM PSF
259400** (EQUIVALENT TO GEO LOCATION CBSA IF NO STAND AMT LOC CBSA)
259500**----------------------------------------------------------------
259600     MOVE P-NEW-CBSA-STAND-AMT-LOC TO HOLD-PROV-CBSA.
259700**----------------------------------------------------------------
259800** HOLD THE PROVIDER'S RECLASS CBSA IF RECLASS STATUS INDICATED
259900**----------------------------------------------------------------
260000     IF P-NEW-CBSA-WI-RECLASS
260100        MOVE P-NEW-CBSA-RECLASS-LOC TO HOLD-PROV-CBSA.
260200
260300**----------------------------------------------------------------
260400** IF THE PSF INDICATES THE SPECIAL WAGE INDEX SHOULD BE USED,
260500** VALIDATE THE SPECIAL WAGE INDEX VALUE AND EFFECTIVE DATE. IF
260600** VALID, USE THE SPECIAL WAGE INDEX AND SKIP THE NON-PR SPECIFIC
260700** CBSA WAGE INDEX SEARCH.
260800**----------------------------------------------------------------
260900     IF (P-NEW-CBSA-WI-SPECIAL AND
261000         P-NEW-CBSA-SPEC-WI-N NOT NUMERIC)
261100        MOVE ALL '0' TO PPS-ADDITIONAL-VARIABLES
261200        MOVE 52 TO PPS-RTC
261300        GOBACK.
261400
261500     IF (P-NEW-CBSA-WI-SPECIAL AND
261600         P-NEW-CBSA-SPEC-WI-N = ZEROES)
261700        MOVE ALL '0' TO PPS-ADDITIONAL-VARIABLES
261800        MOVE 52 TO PPS-RTC
261900        GOBACK.
262000
262100     IF (P-NEW-CBSA-WI-SPECIAL AND
262200        (P-NEW-EFF-DATE < W-FY-BEGIN-DATE OR
262300         P-NEW-EFF-DATE > W-FY-END-DATE))
262400        MOVE ALL '0' TO PPS-ADDITIONAL-VARIABLES
262500        MOVE 52 TO PPS-RTC
262600        GOBACK.
262700
262800     IF P-NEW-CBSA-WI-SPECIAL
262900        MOVE 'SPEC*'            TO W-NEW-CBSA-X
263000        MOVE P-NEW-EFF-DATE     TO W-NEW-CBSA-EFF-DATE
263100        MOVE P-NEW-CBSA-SPEC-WI TO W-NEW-CBSA-WI
263200        GO TO 0550-BYPASS.
263300
263400**----------------------------------------------------------------
263500** FOR FYS 2005 - 2014, CHANGE THE HOLD CBSA TO APPLY THE SECTION
263600** 401 HOSPITAL AND RURAL FLOOR POLICIES FOR CERTAIN PROVIDERS
263700**----------------------------------------------------------------
263800
263900**2005***********************************************************
264000     IF B-N-DISCHARGE-DATE > 20040930 AND
264100        B-N-DISCHARGE-DATE < 20050401
264200          PERFORM 2700-2005-WI-401-HOSPITAL THRU 2700-2005-EXIT.
264300
264400     IF B-N-DISCHARGE-DATE > 20050331 AND
264500        B-N-DISCHARGE-DATE < 20051001
264600          PERFORM 2750-2005-WI-401-HOSPITAL THRU 2750-2005-EXIT.
264700
264800     IF B-N-DISCHARGE-DATE > 20040930 AND
264900        B-N-DISCHARGE-DATE < 20051001
265000        PERFORM 2300-2005-FLOOR-CBSA THRU 2300-2005-EXIT.
265100
265200**2006***********************************************************
265300
265400     IF B-N-DISCHARGE-DATE > 20050930 AND
265500        B-N-DISCHARGE-DATE < 20061001
265600          PERFORM 2800-2006-WI-401-HOSPITAL THRU 2800-2006-EXIT.
265700
265800     IF B-N-DISCHARGE-DATE > 20050930 AND
265900        B-N-DISCHARGE-DATE < 20061001
266000        PERFORM 2300-2006-FLOOR-CBSA THRU 2300-2006-EXIT.
266100
266200**2007***********************************************************
266300
266400     IF B-N-DISCHARGE-DATE > 20060930 AND
266500        B-N-DISCHARGE-DATE < 20071001
266600          PERFORM 2800-2007-WI-401-HOSPITAL THRU 2800-2007-EXIT.
266700
266800     IF B-N-DISCHARGE-DATE > 20060930 AND
266900        B-N-DISCHARGE-DATE < 20071001
267000        PERFORM 2300-2007-FLOOR-CBSA THRU 2300-2007-EXIT.
267100
267200*****************************************************************
267300**2008***********************************************************
267400
267500     IF B-N-DISCHARGE-DATE > 20070930 AND
267600        B-N-DISCHARGE-DATE < 20081001
267700          PERFORM 2800-2008-WI-401-HOSPITAL THRU 2800-2008-EXIT.
267800
267900     IF B-N-DISCHARGE-DATE > 20070930 AND
268000        B-N-DISCHARGE-DATE < 20081001
268100        PERFORM 2300-2008-FLOOR-CBSA THRU 2300-2008-EXIT.
268200
268300*****************************************************************
268400**2009***********************************************************
268500
268600     IF B-N-DISCHARGE-DATE > 20080930 AND
268700        B-N-DISCHARGE-DATE < 20091001
268800          PERFORM 2800-2009-WI-401-HOSPITAL THRU 2800-2009-EXIT.
268900
269000     IF B-N-DISCHARGE-DATE > 20080930 AND
269100        B-N-DISCHARGE-DATE < 20091001
269200        PERFORM 2300-2009-FLOOR-CBSA THRU 2300-2009-EXIT.
269300
269400*****************************************************************
269500**2010***********************************************************
269600
269700     IF B-N-DISCHARGE-DATE > 20090930 AND
269800        B-N-DISCHARGE-DATE < 20101001
269900          PERFORM 2800-2010-WI-401-HOSPITAL THRU 2800-2010-EXIT.
270000
270100     IF B-N-DISCHARGE-DATE > 20090930 AND
270200        B-N-DISCHARGE-DATE < 20101001
270300        PERFORM 2300-2010-FLOOR-CBSA THRU 2300-2010-EXIT.
270400
270500*****************************************************************
270600**2011***********************************************************
270700
270800     IF B-N-DISCHARGE-DATE > 20100930 AND
270900        B-N-DISCHARGE-DATE < 20111001
271000          PERFORM 2800-2011-WI-401-HOSPITAL THRU 2800-2011-EXIT.
271100
271200     IF B-N-DISCHARGE-DATE > 20100930 AND
271300        B-N-DISCHARGE-DATE < 20111001
271400        PERFORM 2300-2011-FLOOR-CBSA THRU 2300-2011-EXIT.
271500
271600**2012***********************************************************
271700
271800     IF B-N-DISCHARGE-DATE > 20110930 AND
271900        B-N-DISCHARGE-DATE < 20121001
272000          PERFORM 2800-2012-WI-401-HOSPITAL THRU 2800-2012-EXIT.
272100
272200     IF B-N-DISCHARGE-DATE > 20110930 AND
272300        B-N-DISCHARGE-DATE < 20121001
272400        PERFORM 2300-2012-FLOOR-CBSA THRU 2300-2012-EXIT.
272500
272600*****************************************************************
272700**2013***********************************************************
272800
272900     IF B-N-DISCHARGE-DATE > 20120930 AND
273000        B-N-DISCHARGE-DATE < 20131001
273100          PERFORM 2800-2013-WI-401-HOSPITAL THRU 2800-2013-EXIT.
273200
273300     IF B-N-DISCHARGE-DATE > 20120930 AND
273400        B-N-DISCHARGE-DATE < 20131001
273500        PERFORM 2300-2013-FLOOR-CBSA THRU 2300-2013-EXIT.
273600
273700**2014***********************************************************
273800
273900     IF B-N-DISCHARGE-DATE > 20130930 AND
274000        B-N-DISCHARGE-DATE < 20141001
274100          PERFORM 2800-2014-WI-401-HOSPITAL THRU 2800-2014-EXIT.
274200
274300     IF B-N-DISCHARGE-DATE > 20130930 AND
274400        B-N-DISCHARGE-DATE < 20141001
274500        PERFORM 2300-2014-FLOOR-CBSA THRU 2300-2014-EXIT.
274600
274700
274800**2015***********************************************************
274900* 401 HOSPITAL PROCESS STOPPED FOR FY2015
275000**2015***********************************************************
275100*
275200*    IF B-N-DISCHARGE-DATE > 20140930
275300*         PERFORM 2800-2015-WI-401-HOSPITAL THRU 2800-2015-EXIT.
275400
275500*****************************************************************
275600
275700**----------------------------------------------------------------
275800** SEARCH FOR THE HOLD CBSA IN THE CBSA WAGE INDEX TABLE, AND
275900** ID THE FIRST RECORD FOR THE HOLD CBSA IN THE TABLE
276000**----------------------------------------------------------------
276100     PERFORM 0150-GET-CBSA THRU 0150-EXIT.
276200
276300
276400***  RTC = 52  --  CBSA NOT FOUND
276500     IF PPS-RTC = 52 GOBACK.
276600
276700**----------------------------------------------------------------
276800** GET CBSA WAGE INDEX - BASED ON DISCHARGE DATE
276900**----------------------------------------------------------------
277000     IF PPS-RTC = 00
277100        PERFORM 0650-N-GET-CBSA-WAGE-INDX
277200         THRU   0650-N-EXIT VARYING MA2
277300                FROM MA1 BY 1 UNTIL
277400                T-CBSA (MA2) NOT = HOLD-PROV-CBSA.
277500
277600**----------------------------------------------------------------
277700** FOR FYS 2015 AND AFTER, APPLY THE RURAL FLOOR POLICY
277800**----------------------------------------------------------------
277900     IF B-N-DISCHARGE-DATE > 20140930
278000          PERFORM 2300-2015-FWD-FLOOR-CBSA
278100             THRU 2300-2015-EXIT.
278200
278300 0550-BYPASS.
278400
278500**----------------------------------------------------------------
278600** GET WAGE INDEX FOR INDIAN HEALTH SERVICE PROVIDERS
278700**----------------------------------------------------------------
278800     IF P-N-INDIAN-HEALTH-SERVICE
278900        MOVE 00 TO PPS-RTC
279000        PERFORM 0850-N-GET-CBSA-INDIAN-WI THRU 0850-EXIT.
279100
279200***  RTC = 52  --  WAGE-INDEX NOT FOUND
279300     IF PPS-RTC = 52 GOBACK.
279400
279500     IF W-NEW-CBSA-WI NOT NUMERIC
279600        MOVE 0 TO W-NEW-CBSA-WI.
279700
279800     IF W-NEW-CBSA-WI = 00.0000
279900        MOVE ALL '0' TO PPS-ADDITIONAL-VARIABLES
280000        MOVE 52 TO PPS-RTC
280100        GOBACK.
280200
280300**----------------------------------------------------------------
280400** GET CBSA WAGE SIZE  - BASED ON DISCHARGE DATE
280500**----------------------------------------------------------------
280600     MOVE P-NEW-CBSA-STAND-AMT-LOC TO HOLD-PROV-CBSA.
280700
280800     PERFORM 0150-GET-CBSA THRU 0150-EXIT.
280900
281000***  RTC = 52  --  WAGE-INDEX NOT FOUND
281100     IF PPS-RTC = 52 GOBACK.
281200
281300     IF PPS-RTC = 00
281400        PERFORM 0750-GET-CBSA-SIZE
281500           THRU 0750-EXIT VARYING MA2
281600           FROM MA1 BY 1 UNTIL
281700           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-PR-NEW-STATE
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-PR-NEW-STATE AND B-N-DISCHARGE-DATE > 20140930
283100        PERFORM 2350-2015-FWD-FLOOR-CBSA-PR
283200           THRU 2350-2015-EXIT.
283300
283400***  RTC = 52  --  WAGE-INDEX NOT FOUND
283500     IF PPS-RTC = 52 GOBACK.
283600
283700     IF P-PR-NEW-STATE AND
283800        W-NEW-CBSA-PR-WI NOT NUMERIC
283900        MOVE 0 TO W-NEW-CBSA-PR-WI.
284000
284100     IF P-PR-NEW-STATE AND
284200        W-NEW-CBSA-PR-WI = 00.0000
284300        MOVE ALL '0' TO PPS-ADDITIONAL-VARIABLES
284400        MOVE 52 TO PPS-RTC
284500        GOBACK.
284600
284700 0550-EXIT.  EXIT.
284800
284900 0600-N-GET-WAGE-INDX.
285000
285100     IF  B-N-DISCHARGE-DATE NOT < M-MSAX-EFF-DATE (MU2)
285200         MOVE M-MSAX-MSA        (MU2) TO W-NEW-MSA
285300         MOVE M-MSAX-EFF-DATE   (MU2) TO W-NEW-EFF-DATE
285400         MOVE M-MSAX-WAGE-INDX1 (MU2) TO W-NEW-INDEX-RECORD
285500         IF P-NEW-CHG-CODE-INDEX  = 'Y'
285600            MOVE M-MSAX-WAGE-INDX2 (MU2) TO W-NEW-INDEX-RECORD.
285700
285800 0600-N-EXIT.  EXIT.
285900
286000 0650-N-GET-CBSA-WAGE-INDX.
286100
286200     IF  B-N-DISCHARGE-DATE NOT < T-CBSA-EFF-DATE (MA2)
286300       IF (HOLD-PROV-CBSA = '   98'  OR
286400           HOLD-PROV-CBSA = '   99') OR
286500          (T-CBSA-EFF-DATE (MA2) >= W-FY-BEGIN-DATE AND
286600           T-CBSA-EFF-DATE (MA2) <= W-FY-END-DATE)
286700         MOVE T-CBSA            (MA2) TO W-NEW-CBSA-X
286800         MOVE T-CBSA-EFF-DATE   (MA2) TO W-NEW-CBSA-EFF-DATE
286900         MOVE T-CBSA-WAGE-INDX1 (MA2) TO W-NEW-CBSA-WI
287000         IF P-NEW-CBSA-WI-RECLASS
287100            MOVE T-CBSA-WAGE-INDX2 (MA2) TO W-NEW-CBSA-WI.
287200
287300
287400 0650-N-EXIT.  EXIT.
287500
287600 0660-GET-RURAL-CBSA-WAGE-INDX.
287700
287800     IF  B-N-DISCHARGE-DATE NOT < T-CBSA-EFF-DATE (MA2) AND
287900         T-CBSA-EFF-DATE (MA2) >= W-FY-BEGIN-DATE AND
288000         T-CBSA-EFF-DATE (MA2) <= W-FY-END-DATE
288100         MOVE T-CBSA            (MA2) TO W-RURAL-CBSA-X
288200         MOVE T-CBSA-EFF-DATE   (MA2) TO W-RURAL-CBSA-EFF-DATE
288300         MOVE T-CBSA-WAGE-INDX1 (MA2) TO W-RURAL-CBSA-WI.
288400
288500 0660-EXIT.  EXIT.
288600
288700 0700-N-GET-WAGE-SIZE.
288800
288900     IF  B-N-DISCHARGE-DATE NOT < M-MSAX-EFF-DATE (MU2)
289000         IF  P-NEW-STD-RURAL-CHECK
289100             MOVE 'R' TO W-NEW-SIZE
289200         ELSE
289300         IF  M-MSAX-SIZE (MU2) = 'L'
289400             MOVE 'L' TO W-NEW-SIZE
289500         ELSE
289600             MOVE 'O' TO W-NEW-SIZE.
289700 0700-N-EXIT.  EXIT.
289800
289900 0750-GET-CBSA-SIZE.
290000
290100     IF  B-N-DISCHARGE-DATE NOT < T-CBSA-EFF-DATE (MA2)
290200         IF  P-NEW-CBSA-STD-RURAL-CHECK
290300             MOVE 'R' TO W-NEW-CBSA-SIZE
290400         ELSE
290500         IF  T-CBSA-SIZE (MA2) = 'L'
290600             MOVE 'L' TO W-NEW-CBSA-SIZE
290700         ELSE
290800             MOVE 'O' TO W-NEW-CBSA-SIZE.
290900 0750-EXIT.  EXIT.
291000
291100 0800-N-GET-INDIAN-WI.
291200     IF  P-NEW-STATE = 02
291300             MOVE 98 TO H-MSAX-PROV-STATE
291400     ELSE
291500             MOVE 99 TO H-MSAX-PROV-STATE.
291600
291700     MOVE   '  '  TO H-MSAX-PROV-BLANK.
291800
291900     PERFORM 0100-GET-MSA THRU 0100-EXIT.
292000
292100     IF PPS-RTC = 00
292200        PERFORM 0600-N-GET-WAGE-INDX
292300            THRU 0600-N-EXIT VARYING MU2
292400            FROM MU1 BY 1 UNTIL
292500            M-MSAX-MSA (MU2) NOT = HOLD-PROV-MSAX.
292600
292700 0800-N-EXIT.  EXIT.
292800
292900 0850-N-GET-CBSA-INDIAN-WI.
293000     IF  P-NEW-STATE = 02
293100             MOVE 98 TO H-CBSA-PROV-STATE
293200     ELSE
293300             MOVE 99 TO H-CBSA-PROV-STATE.
293400
293500     MOVE  '   '  TO H-CBSA-PROV-BLANK.
293600
293700     PERFORM 0150-GET-CBSA THRU 0150-EXIT.
293800
293900     IF PPS-RTC = 00
294000        PERFORM 0650-N-GET-CBSA-WAGE-INDX
294100            THRU 0650-N-EXIT VARYING MA2
294200            FROM MA1 BY 1 UNTIL
294300            T-CBSA (MA2) NOT = HOLD-PROV-CBSA.
294400 0850-EXIT.  EXIT.
294500
294600
294700 2300-1998-FLOOR-MSA.
294800
294900        IF HOLD-PROV-MSAX = '6020'
295000           AND P-NEW-STATE = 36
295100               MOVE '  36' TO HOLD-PROV-MSAX.
295200
295300        IF HOLD-PROV-MSAX = '9000'
295400           AND P-NEW-STATE = 36
295500                MOVE '  36' TO HOLD-PROV-MSAX.
295600
295700
295800 2300-1998-EXIT.  EXIT.
295900
296000 2300-1999-FLOOR-MSA.
296100
296200        IF HOLD-PROV-MSAX = '6020'
296300           AND P-NEW-STATE = 36
296400               MOVE '  36' TO HOLD-PROV-MSAX.
296500
296600        IF HOLD-PROV-MSAX = '9000'
296700           AND P-NEW-STATE = 36
296800                MOVE '  36' TO HOLD-PROV-MSAX.
296900
297000        IF HOLD-PROV-MSAX = '8080'
297100           AND P-NEW-STATE = 36
297200               MOVE '  36' TO HOLD-PROV-MSAX.
297300
297400        IF HOLD-PROV-MSAX = '1900'
297500           AND P-NEW-STATE = 21
297600               MOVE '  21' TO HOLD-PROV-MSAX.
297700
297800        IF HOLD-PROV-MSAX = '6340'
297900           AND P-NEW-CHG-CODE-INDEX = 'Y'
298000           AND P-NEW-STATE = 53
298100               MOVE '  53' TO HOLD-PROV-MSAX.
298200
298300 2300-1999-EXIT. EXIT.
298400
298500 2300-2000-FLOOR-MSA.
298600
298700        IF HOLD-PROV-MSAX = '6020'
298800           AND P-NEW-STATE = 36
298900               MOVE '  36' TO HOLD-PROV-MSAX.
299000
299100        IF HOLD-PROV-MSAX = '9000'
299200           AND P-NEW-STATE = 36
299300                MOVE '  36' TO HOLD-PROV-MSAX.
299400
299500        IF HOLD-PROV-MSAX = '8080'
299600           AND P-NEW-STATE = 36
299700               MOVE '  36' TO HOLD-PROV-MSAX.
299800
299900        IF HOLD-PROV-MSAX = '2440'
300000           AND P-NEW-STATE = 15
300100               MOVE '  15' TO HOLD-PROV-MSAX.
300200
300300        IF HOLD-PROV-MSAX = '2520'
300400           AND P-NEW-CHG-CODE-INDEX = 'Y'
300500           AND P-NEW-STATE = 24
300600               MOVE '  24' TO HOLD-PROV-MSAX.
300700
300800        IF HOLD-PROV-MSAX = '1123'
300900           AND P-NEW-STATE = 22
301000               MOVE '  22' TO HOLD-PROV-MSAX.
301100
301200 2300-2000-EXIT. EXIT.
301300
301400 2300-2001-FLOOR-MSA.
301500
301600        IF HOLD-PROV-MSAX = '1900'
301700           AND P-NEW-STATE = 21
301800               MOVE '  21' TO HOLD-PROV-MSAX.
301900
302000        IF HOLD-PROV-MSAX = '6020'
302100           AND P-NEW-STATE = 36
302200               MOVE '  36' TO HOLD-PROV-MSAX.
302300
302400        IF HOLD-PROV-MSAX = '8080'
302500           AND P-NEW-STATE = 36
302600               MOVE '  36' TO HOLD-PROV-MSAX.
302700
302800        IF HOLD-PROV-MSAX = '1123'
302900           AND P-NEW-STATE = 22
303000               MOVE '  22' TO HOLD-PROV-MSAX.
303100
303200        IF HOLD-PROV-MSAX = '2440'
303300           AND P-NEW-STATE = 15
303400               MOVE '  15' TO HOLD-PROV-MSAX.
303500
303600        IF HOLD-PROV-MSAX = '9000'
303700           AND P-NEW-STATE = 36
303800                MOVE '  36' TO HOLD-PROV-MSAX.
303900
304000        IF HOLD-PROV-MSAX = '9000'
304100           AND P-NEW-STATE = 51
304200                MOVE '  51' TO HOLD-PROV-MSAX.
304300
304400 2300-2001-EXIT. EXIT.
304500
304600 2300-2002-FLOOR-MSA.
304700
304800        IF HOLD-PROV-MSAX = '1123'
304900           AND P-NEW-STATE = 22
305000               MOVE '  22' TO HOLD-PROV-MSAX.
305100
305200        IF HOLD-PROV-MSAX = '1900'
305300           AND P-NEW-STATE = 21
305400               MOVE '  21' TO HOLD-PROV-MSAX.
305500
305600        IF HOLD-PROV-MSAX = '2440'
305700           AND P-NEW-STATE = 15
305800               MOVE '  15' TO HOLD-PROV-MSAX.
305900
306000        IF HOLD-PROV-MSAX = '6020'
306100           AND P-NEW-STATE = 36
306200               MOVE '  36' TO HOLD-PROV-MSAX.
306300
306400        IF HOLD-PROV-MSAX = '8080'
306500           AND P-NEW-STATE = 36
306600               MOVE '  36' TO HOLD-PROV-MSAX.
306700
306800        IF HOLD-PROV-MSAX = '9000'
306900           AND P-NEW-STATE = 36
307000                MOVE '  36' TO HOLD-PROV-MSAX.
307100
307200        IF HOLD-PROV-MSAX = '1303'
307300           AND P-NEW-CHG-CODE-INDEX = 'Y'
307400           AND P-NEW-STATE = 47
307500               MOVE 'N' TO P-NEW-CHG-CODE-INDEX
307600               MOVE '  47' TO HOLD-PROV-MSAX.
307700
307800        IF HOLD-PROV-MSAX = '  14'
307900           AND P-NEW-CHG-CODE-INDEX = 'Y'
308000           AND P-NEW-STATE = 16
308100               MOVE 'N' TO P-NEW-CHG-CODE-INDEX
308200               MOVE '  16' TO HOLD-PROV-MSAX.
308300
308400 2300-2002-EXIT. EXIT.
308500
308600 2300-2003-FLOOR-MSA.
308700
308800        IF HOLD-PROV-MSAX = '  14'
308900           AND P-NEW-CHG-CODE-INDEX = 'Y'
309000           AND P-NEW-STATE = 16
309100               MOVE 'N' TO P-NEW-CHG-CODE-INDEX
309200               MOVE '  16' TO HOLD-PROV-MSAX.
309300
309400        IF HOLD-PROV-MSAX = '1123'
309500           AND P-NEW-STATE = 22
309600               MOVE '  22' TO HOLD-PROV-MSAX.
309700
309800        IF HOLD-PROV-MSAX = '1800'
309900           AND P-NEW-CHG-CODE-INDEX = 'Y'
310000           AND P-NEW-STATE = 11
310100               MOVE 'N' TO P-NEW-CHG-CODE-INDEX
310200               MOVE '  11' TO HOLD-PROV-MSAX.
310300
310400        IF HOLD-PROV-MSAX = '1900'
310500           AND P-NEW-STATE = 21
310600               MOVE '  21' TO HOLD-PROV-MSAX.
310700
310800        IF HOLD-PROV-MSAX = '2440'
310900           AND P-NEW-STATE = 15
311000               MOVE '  15' TO HOLD-PROV-MSAX.
311100
311200        IF HOLD-PROV-MSAX = '3660'
311300           AND P-NEW-CHG-CODE-INDEX = 'Y'
311400           AND P-NEW-STATE = 49
311500               MOVE 'N' TO P-NEW-CHG-CODE-INDEX
311600               MOVE '  49' TO HOLD-PROV-MSAX.
311700
311800        IF HOLD-PROV-MSAX = '3660'
311900           AND P-NEW-STATE = 49
312000               MOVE '  49' TO HOLD-PROV-MSAX.
312100
312200        IF HOLD-PROV-MSAX = '3700'
312300           AND P-NEW-CHG-CODE-INDEX = 'Y'
312400           AND P-NEW-STATE = 26
312500               MOVE 'N' TO P-NEW-CHG-CODE-INDEX
312600               MOVE '  26' TO HOLD-PROV-MSAX.
312700
312800        IF HOLD-PROV-MSAX = '6020'
312900           AND P-NEW-STATE = 36
313000               MOVE '  36' TO HOLD-PROV-MSAX.
313100
313200        IF HOLD-PROV-MSAX = '9000'
313300           AND P-NEW-STATE = 36
313400                MOVE '  36' TO HOLD-PROV-MSAX.
313500
313600 2300-2003-EXIT. EXIT.
313700
313800 2300-2004-FLOOR-MSA.
313900
314000        IF HOLD-PROV-MSAX = '  14'
314100           AND P-NEW-CHG-CODE-INDEX = 'Y'
314200           AND P-NEW-STATE = 16
314300               MOVE 'N' TO P-NEW-CHG-CODE-INDEX
314400               MOVE '  16' TO HOLD-PROV-MSAX.
314500
314600        IF HOLD-PROV-MSAX = '0200'
314700           AND P-NEW-CHG-CODE-INDEX = 'Y'
314800           AND P-NEW-STATE = 06
314900               MOVE 'N' TO P-NEW-CHG-CODE-INDEX
315000               MOVE '  06' TO HOLD-PROV-MSAX.
315100
315200        IF HOLD-PROV-MSAX = '1480'
315300           AND P-NEW-CHG-CODE-INDEX = 'Y'
315400           AND P-NEW-STATE = 36
315500               MOVE 'N' TO P-NEW-CHG-CODE-INDEX
315600               MOVE '  36' TO HOLD-PROV-MSAX.
315700
315800        IF HOLD-PROV-MSAX = '1900'
315900           AND P-NEW-STATE = 21
316000               MOVE '  21' TO HOLD-PROV-MSAX.
316100
316200        IF HOLD-PROV-MSAX = '2440'
316300           AND P-NEW-STATE = 15
316400               MOVE '  15' TO HOLD-PROV-MSAX.
316500
316600        IF HOLD-PROV-MSAX = '2985'
316700           AND P-NEW-STATE = 24
316800               MOVE '  24' TO HOLD-PROV-MSAX.
316900
317000        IF HOLD-PROV-MSAX = '3660'
317100           AND P-NEW-CHG-CODE-INDEX = 'Y'
317200           AND P-NEW-STATE = 49
317300               MOVE 'N' TO P-NEW-CHG-CODE-INDEX
317400               MOVE '  49' TO HOLD-PROV-MSAX.
317500
317600        IF HOLD-PROV-MSAX = '3660'
317700           AND P-NEW-STATE = 49
317800               MOVE '  49' TO HOLD-PROV-MSAX.
317900
318000        IF HOLD-PROV-MSAX = '3700'
318100           AND P-NEW-CHG-CODE-INDEX = 'Y'
318200           AND P-NEW-STATE = 26
318300               MOVE 'N' TO P-NEW-CHG-CODE-INDEX
318400               MOVE '  26' TO HOLD-PROV-MSAX.
318500
318600        IF HOLD-PROV-MSAX = '6020'
318700           AND P-NEW-STATE = 36
318800               MOVE '  36' TO HOLD-PROV-MSAX.
318900
319000        IF HOLD-PROV-MSAX = '6740'
319100           AND P-NEW-CHG-CODE-INDEX = 'Y'
319200           AND P-NEW-STATE = 50
319300               MOVE 'N' TO P-NEW-CHG-CODE-INDEX
319400               MOVE '  50' TO HOLD-PROV-MSAX.
319500
319600        IF HOLD-PROV-MSAX = '7720'
319700           AND P-NEW-CHG-CODE-INDEX = 'Y'
319800           AND P-NEW-STATE = 28
319900               MOVE 'N' TO P-NEW-CHG-CODE-INDEX
320000               MOVE '  28' TO HOLD-PROV-MSAX.
320100
320200        IF HOLD-PROV-MSAX = '8080'
320300           AND P-NEW-STATE = 36
320400                MOVE '  36' TO HOLD-PROV-MSAX.
320500
320600        IF HOLD-PROV-MSAX = '9000'
320700           AND P-NEW-STATE = 36
320800                MOVE '  36' TO HOLD-PROV-MSAX.
320900
321000 2300-2004-EXIT. EXIT.
321100 2300-2004-RECLASS152.
321200
321300       IF (P-NEW-PROVIDER-NO = '330001' OR '330126' OR
321400                               '330135' OR '330205' OR
321500                               '330209' OR '330264')
321600          AND (P-NEW-WAGE-INDEX-LOC-MSA = '5600'
321700          AND  P-NEW-CHG-CODE-INDEX = 'Y')
321800               MOVE 1.3892 TO W-NEW-INDEX-RECORD.
321900
322000       IF (P-NEW-PROVIDER-NO = '470003')
322100          AND (P-NEW-WAGE-INDEX-LOC-MSA = '1123'
322200          AND  P-NEW-CHG-CODE-INDEX = 'Y')
322300               MOVE 1.1120 TO W-NEW-INDEX-RECORD.
322400
322500 2300-2004-RECLASS-EXIT. EXIT.
322600
322700 2300-2005-FLOOR-CBSA.
322800
322900        IF HOLD-PROV-CBSA = '10900'
323000           AND P-NEW-STATE = 31
323100               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
323200               MOVE '   31' TO HOLD-PROV-CBSA.
323300
323400        IF HOLD-PROV-CBSA = '16620'
323500           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
323600           AND P-NEW-STATE = 36
323700               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
323800               MOVE '   36' TO HOLD-PROV-CBSA.
323900
324000        IF HOLD-PROV-CBSA = '19060'
324100           AND P-NEW-STATE = 21
324200               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
324300               MOVE '   21' TO HOLD-PROV-CBSA.
324400
324500        IF HOLD-PROV-CBSA = '21780'
324600           AND P-NEW-STATE = 15
324700               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
324800               MOVE '   15' TO HOLD-PROV-CBSA.
324900
325000        IF HOLD-PROV-CBSA = '22020'
325100           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
325200           AND P-NEW-STATE = 24
325300               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
325400               MOVE '   24' TO HOLD-PROV-CBSA.
325500
325600        IF HOLD-PROV-CBSA = '22020'
325700           AND P-NEW-STATE = 24
325800               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
325900               MOVE '   24' TO HOLD-PROV-CBSA.
326000
326100        IF HOLD-PROV-CBSA = '24220'
326200           AND P-NEW-STATE = 24
326300               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
326400               MOVE '   24' TO HOLD-PROV-CBSA.
326500
326600        IF HOLD-PROV-CBSA = '25540'
326700           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
326800           AND P-NEW-STATE = 07
326900               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
327000               MOVE '   07' TO HOLD-PROV-CBSA.
327100
327200        IF HOLD-PROV-CBSA = '29100'
327300           AND P-NEW-STATE = 52
327400               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
327500               MOVE '   52' TO HOLD-PROV-CBSA.
327600
327700        IF HOLD-PROV-CBSA = '30300'
327800           AND P-NEW-STATE = 50
327900               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
328000               MOVE '   50' TO HOLD-PROV-CBSA.
328100
328200        IF HOLD-PROV-CBSA = '37620'
328300           AND P-NEW-STATE = 36
328400               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
328500               MOVE '   36' TO HOLD-PROV-CBSA.
328600
328700        IF HOLD-PROV-CBSA = '48260'
328800           AND P-NEW-STATE = 36
328900               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
329000               MOVE '   36' TO HOLD-PROV-CBSA.
329100
329200        IF HOLD-PROV-CBSA = '48540'
329300           AND P-NEW-STATE = 36
329400               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
329500               MOVE '   36' TO HOLD-PROV-CBSA.
329600
329700        IF HOLD-PROV-CBSA = '48864'
329800           AND P-NEW-STATE = 31
329900               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
330000               MOVE '   31' TO HOLD-PROV-CBSA.
330100
330200        IF HOLD-PROV-CBSA = '48864'
330300           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
330400           AND P-NEW-STATE = 31
330500               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
330600               MOVE '   31' TO HOLD-PROV-CBSA.
330700
330800        IF B-N-DISCHARGE-DATE > 20041231
330900           IF HOLD-PROV-CBSA = '39900'
331000              AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
331100              AND P-NEW-STATE = 05
331200                  MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
331300                  MOVE '   05' TO HOLD-PROV-CBSA.
331400
331500        IF B-N-DISCHARGE-DATE < 20050101
331600           IF (HOLD-PROV-CBSA = '28420'
331700               AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
331800               AND P-NEW-STATE = 50)
331900                  MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
332000                  MOVE '   50' TO HOLD-PROV-CBSA.
332100
332200 2300-2005-EXIT. EXIT.
332300
332400
332500 2300-2006-FLOOR-CBSA.
332600
332700        IF HOLD-PROV-CBSA = '   10'
332800           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
332900           AND P-NEW-STATE = 10
333000               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
333100               MOVE '   10' TO HOLD-PROV-CBSA.
333200
333300        IF HOLD-PROV-CBSA = '   50'
333400           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
333500           AND P-NEW-STATE = 50
333600               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
333700               MOVE '   50' TO HOLD-PROV-CBSA.
333800
333900        IF HOLD-PROV-CBSA = '10900'
334000           AND P-NEW-STATE = 31
334100               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
334200               MOVE '   31' TO HOLD-PROV-CBSA.
334300
334400        IF HOLD-PROV-CBSA = '15764'
334500           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
334600           AND P-NEW-STATE = 30
334700               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
334800               MOVE '   30' TO HOLD-PROV-CBSA.
334900
335000        IF HOLD-PROV-CBSA = '16620'
335100           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
335200           AND P-NEW-STATE = 36
335300               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
335400               MOVE '   36' TO HOLD-PROV-CBSA.
335500
335600        IF HOLD-PROV-CBSA = '19060'
335700           AND P-NEW-STATE = 21
335800               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
335900               MOVE '   21' TO HOLD-PROV-CBSA.
336000
336100        IF HOLD-PROV-CBSA = '22020'
336200           AND P-NEW-STATE = 24
336300               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
336400               MOVE '   24' TO HOLD-PROV-CBSA.
336500
336600        IF HOLD-PROV-CBSA = '24220'
336700           AND P-NEW-STATE = 24
336800               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
336900               MOVE '   24' TO HOLD-PROV-CBSA.
337000
337100        IF HOLD-PROV-CBSA = '24580'
337200           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
337300           AND P-NEW-STATE = 52
337400               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
337500               MOVE '   52' TO HOLD-PROV-CBSA.
337600
337700        IF HOLD-PROV-CBSA = '25540'
337800           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
337900           AND P-NEW-STATE = 07
338000               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
338100               MOVE '   07' TO HOLD-PROV-CBSA.
338200
338300        IF HOLD-PROV-CBSA = '30300'
338400           AND P-NEW-STATE = 50
338500               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
338600               MOVE '   50' TO HOLD-PROV-CBSA.
338700
338800        IF HOLD-PROV-CBSA = '37620'
338900           AND P-NEW-STATE = 36
339000               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
339100               MOVE '   36' TO HOLD-PROV-CBSA.
339200
339300        IF HOLD-PROV-CBSA = '39900'
339400           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
339500           AND P-NEW-STATE = 05
339600               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
339700               MOVE '   05' TO HOLD-PROV-CBSA.
339800
339900        IF HOLD-PROV-CBSA = '48260'
340000           AND P-NEW-STATE = 36
340100               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
340200               MOVE '   36' TO HOLD-PROV-CBSA.
340300
340400        IF HOLD-PROV-CBSA = '48540'
340500           AND P-NEW-STATE = 36
340600               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
340700               MOVE '   36' TO HOLD-PROV-CBSA.
340800
340900        IF HOLD-PROV-CBSA = '48540'
341000           AND P-NEW-STATE = 51
341100               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
341200               MOVE '   51' TO HOLD-PROV-CBSA.
341300
341400        IF HOLD-PROV-CBSA = '48864'
341500           AND P-NEW-STATE = 31
341600               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
341700               MOVE '   31' TO HOLD-PROV-CBSA.
341800
341900        IF HOLD-PROV-CBSA = '49660'
342000           AND P-NEW-STATE = 36
342100               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
342200               MOVE '   36' TO HOLD-PROV-CBSA.
342300
342400 2300-2006-EXIT. EXIT.
342500
342600 2300-2007-FLOOR-CBSA.
342700
342800        IF HOLD-PROV-CBSA = '   10'
342900           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
343000           AND P-NEW-STATE = 10
343100               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
343200               MOVE '   10' TO HOLD-PROV-CBSA.
343300
343400        IF HOLD-PROV-CBSA = '   14'
343500           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
343600           AND P-NEW-STATE = 14
343700               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
343800               MOVE '   14' TO HOLD-PROV-CBSA.
343900
344000        IF HOLD-PROV-CBSA = '   26'
344100           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
344200           AND P-NEW-STATE = 26
344300               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
344400               MOVE '   26' TO HOLD-PROV-CBSA.
344500
344600        IF HOLD-PROV-CBSA = '   50'
344700           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
344800           AND P-NEW-STATE = 50
344900               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
345000               MOVE '   50' TO HOLD-PROV-CBSA.
345100
345200        IF HOLD-PROV-CBSA = '10900'
345300           AND P-NEW-STATE = 31
345400               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
345500               MOVE '   31' TO HOLD-PROV-CBSA.
345600
345700        IF HOLD-PROV-CBSA = '19060'
345800           AND P-NEW-STATE = 21
345900               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
346000               MOVE '   21' TO HOLD-PROV-CBSA.
346100
346200        IF HOLD-PROV-CBSA = '22020'
346300           AND P-NEW-STATE = 24
346400               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
346500               MOVE '   24' TO HOLD-PROV-CBSA.
346600
346700        IF HOLD-PROV-CBSA = '24220'
346800           AND P-NEW-STATE = 24
346900               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
347000               MOVE '   24' TO HOLD-PROV-CBSA.
347100
347200        IF HOLD-PROV-CBSA = '24580'
347300           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
347400           AND P-NEW-STATE = 52
347500               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
347600               MOVE '   52' TO HOLD-PROV-CBSA.
347700
347800        IF HOLD-PROV-CBSA = '25540'
347900           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
348000           AND P-NEW-STATE = 07
348100               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
348200               MOVE '   07' TO HOLD-PROV-CBSA.
348300
348400        IF HOLD-PROV-CBSA = '26580'
348500           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
348600           AND P-NEW-STATE = 36
348700               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
348800               MOVE '   36' TO HOLD-PROV-CBSA.
348900
349000        IF B-N-DISCHARGE-DATE < 20061103
349100           IF (HOLD-PROV-CBSA = '27860'
349200               AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
349300               AND P-NEW-STATE = 26)
349400                   MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
349500                   MOVE '   26' TO HOLD-PROV-CBSA.
349600
349700        IF HOLD-PROV-CBSA = '29100'
349800           AND P-NEW-STATE = 52
349900               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
350000               MOVE '   52' TO HOLD-PROV-CBSA.
350100
350200        IF HOLD-PROV-CBSA = '30300'
350300           AND P-NEW-STATE = 50
350400               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
350500               MOVE '   50' TO HOLD-PROV-CBSA.
350600
350700        IF HOLD-PROV-CBSA = '37620'
350800           AND P-NEW-STATE = 36
350900               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
351000               MOVE '   36' TO HOLD-PROV-CBSA.
351100
351200        IF HOLD-PROV-CBSA = '37964'
351300           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
351400           AND P-NEW-STATE = 31
351500               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
351600               MOVE '   31' TO HOLD-PROV-CBSA.
351700
351800        IF HOLD-PROV-CBSA = '38300'
351900           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
352000           AND P-NEW-STATE = 36
352100               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
352200               MOVE '   36' TO HOLD-PROV-CBSA.
352300
352400        IF HOLD-PROV-CBSA = '39300'
352500           AND P-NEW-STATE = 22
352600               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
352700               MOVE '   22' TO HOLD-PROV-CBSA.
352800
352900        IF HOLD-PROV-CBSA = '39300'
353000           AND P-NEW-STATE = 41
353100               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
353200               MOVE '   41' TO HOLD-PROV-CBSA.
353300
353400        IF HOLD-PROV-CBSA = '45500'
353500           AND P-NEW-STATE = 45
353600               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
353700               MOVE '   45' TO HOLD-PROV-CBSA.
353800
353900        IF HOLD-PROV-CBSA = '48260'
354000           AND P-NEW-STATE = 36
354100               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
354200               MOVE '   36' TO HOLD-PROV-CBSA.
354300
354400        IF HOLD-PROV-CBSA = '48540'
354500           AND P-NEW-STATE = 36
354600               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
354700               MOVE '   36' TO HOLD-PROV-CBSA.
354800
354900        IF HOLD-PROV-CBSA = '48540'
355000           AND P-NEW-STATE = 51
355100               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
355200               MOVE '   51' TO HOLD-PROV-CBSA.
355300
355400        IF HOLD-PROV-CBSA = '48864'
355500           AND P-NEW-STATE = 31
355600               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
355700               MOVE '   31' TO HOLD-PROV-CBSA.
355800
355900
356000 2300-2007-EXIT. EXIT.
356100
356200 2300-2008-FLOOR-CBSA.
356300
356400        IF HOLD-PROV-CBSA = '   39'
356500           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
356600           AND P-NEW-STATE = 33
356700               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
356800               MOVE '   33' TO HOLD-PROV-CBSA.
356900
357000        IF HOLD-PROV-CBSA = '   39'
357100           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
357200           AND P-NEW-STATE = 39
357300               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
357400               MOVE '   39' TO HOLD-PROV-CBSA.
357500
357600        IF HOLD-PROV-CBSA = '10900'
357700           AND P-NEW-STATE = 31
357800               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
357900               MOVE '   31' TO HOLD-PROV-CBSA.
358000
358100        IF HOLD-PROV-CBSA = '19060'
358200           AND P-NEW-STATE = 21
358300               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
358400               MOVE '   21' TO HOLD-PROV-CBSA.
358500
358600        IF HOLD-PROV-CBSA = '21780'
358700           AND P-NEW-STATE = 15
358800               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
358900               MOVE '   15' TO HOLD-PROV-CBSA.
359000
359100        IF HOLD-PROV-CBSA = '21780'
359200           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
359300           AND P-NEW-STATE = 15
359400               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
359500               MOVE '   15' TO HOLD-PROV-CBSA.
359600
359700        IF HOLD-PROV-CBSA = '22020'
359800           AND P-NEW-STATE = 24
359900               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
360000               MOVE '   24' TO HOLD-PROV-CBSA.
360100
360200        IF HOLD-PROV-CBSA = '24220'
360300           AND P-NEW-STATE = 24
360400               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
360500               MOVE '   24' TO HOLD-PROV-CBSA.
360600
360700        IF HOLD-PROV-CBSA = '24580'
360800           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
360900           AND P-NEW-STATE = 52
361000               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
361100               MOVE '   52' TO HOLD-PROV-CBSA.
361200
361300        IF HOLD-PROV-CBSA = '25540'
361400           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
361500           AND P-NEW-STATE = 07
361600               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
361700               MOVE '   07' TO HOLD-PROV-CBSA.
361800
361900        IF HOLD-PROV-CBSA = '28420'
362000           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
362100           AND P-NEW-STATE = 50
362200               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
362300               MOVE '   50' TO HOLD-PROV-CBSA.
362400
362500        IF HOLD-PROV-CBSA = '28700'
362600           AND P-NEW-STATE = 44
362700               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
362800               MOVE '   44' TO HOLD-PROV-CBSA.
362900
363000        IF HOLD-PROV-CBSA = '28700'
363100           AND P-NEW-STATE = 49
363200               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
363300               MOVE '   49' TO HOLD-PROV-CBSA.
363400
363500        IF HOLD-PROV-CBSA = '30300'
363600           AND P-NEW-STATE = 50
363700               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
363800               MOVE '   50' TO HOLD-PROV-CBSA.
363900
364000        IF HOLD-PROV-CBSA = '35084'
364100           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
364200           AND P-NEW-STATE = 31
364300               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
364400               MOVE '   31' TO HOLD-PROV-CBSA.
364500
364600        IF HOLD-PROV-CBSA = '37620'
364700           AND P-NEW-STATE = 36
364800               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
364900               MOVE '   36' TO HOLD-PROV-CBSA.
365000
365100        IF HOLD-PROV-CBSA = '37964'
365200           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
365300           AND P-NEW-STATE = 31
365400               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
365500               MOVE '   31' TO HOLD-PROV-CBSA.
365600
365700        IF HOLD-PROV-CBSA = '38300'
365800           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
365900           AND P-NEW-STATE = 36
366000               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
366100               MOVE '   36' TO HOLD-PROV-CBSA.
366200
366300        IF HOLD-PROV-CBSA = '45500'
366400           AND P-NEW-STATE = 45
366500               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
366600               MOVE '   45' TO HOLD-PROV-CBSA.
366700
366800        IF HOLD-PROV-CBSA = '48260'
366900           AND P-NEW-STATE = 36
367000               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
367100               MOVE '   36' TO HOLD-PROV-CBSA.
367200
367300        IF HOLD-PROV-CBSA = '48540'
367400           AND P-NEW-STATE = 36
367500               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
367600               MOVE '   36' TO HOLD-PROV-CBSA.
367700
367800        IF HOLD-PROV-CBSA = '48540'
367900           AND P-NEW-STATE = 51
368000               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
368100               MOVE '   51' TO HOLD-PROV-CBSA.
368200
368300        IF HOLD-PROV-CBSA = '48864'
368400           AND P-NEW-STATE = 31
368500               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
368600               MOVE '   31' TO HOLD-PROV-CBSA.
368700
368800        IF HOLD-PROV-CBSA = '48864'
368900           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
369000           AND P-NEW-STATE = 31
369100               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
369200               MOVE '   31' TO HOLD-PROV-CBSA.
369300
369400
369500 2300-2008-EXIT. EXIT.
369600
369700**************YEARCHANGE 2009.3 **********************      *****
369800
369900 2300-2009-FLOOR-CBSA.
370000
370100        IF HOLD-PROV-CBSA = '   04'
370200           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
370300           AND P-NEW-STATE = 04
370400               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
370500               MOVE '   04' TO HOLD-PROV-CBSA.
370600
370700        IF HOLD-PROV-CBSA = '   04'
370800           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
370900           AND P-NEW-STATE = 19
371000               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
371100               MOVE '   19' TO HOLD-PROV-CBSA.
371200
371300        IF HOLD-PROV-CBSA = '   14'
371400           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
371500           AND P-NEW-STATE = 14
371600               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
371700               MOVE '   14' TO HOLD-PROV-CBSA.
371800
371900        IF HOLD-PROV-CBSA = '   14'
372000           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
372100           AND P-NEW-STATE = 26
372200               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
372300               MOVE '   26' TO HOLD-PROV-CBSA.
372400
372500        IF HOLD-PROV-CBSA = '10900'
372600           AND P-NEW-STATE = 31
372700               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
372800               MOVE '   31' TO HOLD-PROV-CBSA.
372900
373000        IF HOLD-PROV-CBSA = '19340'
373100           AND P-NEW-STATE = 16
373200               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
373300               MOVE '   16' TO HOLD-PROV-CBSA.
373400
373500        IF HOLD-PROV-CBSA = '21780'
373600           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
373700           AND P-NEW-STATE = 15
373800               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
373900               MOVE '   15' TO HOLD-PROV-CBSA.
374000
374100        IF HOLD-PROV-CBSA = '22020'
374200           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
374300           AND P-NEW-STATE = 43
374400               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
374500               MOVE '   43' TO HOLD-PROV-CBSA.
374600
374700        IF HOLD-PROV-CBSA = '22900'
374800           AND P-NEW-STATE = 37
374900               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
375000               MOVE '   37' TO HOLD-PROV-CBSA.
375100
375200        IF HOLD-PROV-CBSA = '24580'
375300           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
375400           AND P-NEW-STATE = 52
375500               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
375600               MOVE '   52' TO HOLD-PROV-CBSA.
375700
375800        IF HOLD-PROV-CBSA = '25540'
375900           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
376000           AND P-NEW-STATE = 07
376100               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
376200               MOVE '   07' TO HOLD-PROV-CBSA.
376300
376400        IF HOLD-PROV-CBSA = '28420'
376500           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
376600           AND P-NEW-STATE = 50
376700               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
376800               MOVE '   50' TO HOLD-PROV-CBSA.
376900
377000        IF HOLD-PROV-CBSA = '28700'
377100           AND P-NEW-STATE = 44
377200               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
377300               MOVE '   44' TO HOLD-PROV-CBSA.
377400
377500        IF HOLD-PROV-CBSA = '28700'
377600           AND P-NEW-STATE = 49
377700               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
377800               MOVE '   49' TO HOLD-PROV-CBSA.
377900
378000        IF HOLD-PROV-CBSA = '28700'
378100           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
378200           AND P-NEW-STATE = 18
378300               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
378400               MOVE '   18' TO HOLD-PROV-CBSA.
378500
378600        IF HOLD-PROV-CBSA = '28700'
378700           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
378800           AND P-NEW-STATE = 44
378900               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
379000               MOVE '   44' TO HOLD-PROV-CBSA.
379100
379200        IF HOLD-PROV-CBSA = '28940'
379300           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
379400           AND P-NEW-STATE = 18
379500               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
379600               MOVE '   18' TO HOLD-PROV-CBSA.
379700
379800        IF HOLD-PROV-CBSA = '28940'
379900           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
380000           AND P-NEW-STATE = 44
380100               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
380200               MOVE '   44' TO HOLD-PROV-CBSA.
380300
380400        IF HOLD-PROV-CBSA = '34820'
380500           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
380600           AND P-NEW-STATE = 34
380700               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
380800               MOVE '   34' TO HOLD-PROV-CBSA.
380900
381000        IF HOLD-PROV-CBSA = '34820'
381100           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
381200           AND P-NEW-STATE = 42
381300               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
381400               MOVE '   42' TO HOLD-PROV-CBSA.
381500
381600        IF HOLD-PROV-CBSA = '37620'
381700           AND P-NEW-STATE = 36
381800               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
381900               MOVE '   36' TO HOLD-PROV-CBSA.
382000
382100        IF HOLD-PROV-CBSA = '37964'
382200           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
382300           AND P-NEW-STATE = 31
382400               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
382500               MOVE '   31' TO HOLD-PROV-CBSA.
382600
382700        IF HOLD-PROV-CBSA = '38340'
382800           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
382900           AND P-NEW-STATE = 47
383000               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
383100               MOVE '   47' TO HOLD-PROV-CBSA.
383200
383300        IF HOLD-PROV-CBSA = '41620'
383400           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
383500           AND P-NEW-STATE = 29
383600               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
383700               MOVE '   29' TO HOLD-PROV-CBSA.
383800
383900        IF HOLD-PROV-CBSA = '43580'
384000           AND P-NEW-STATE = 16
384100               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
384200               MOVE '   16' TO HOLD-PROV-CBSA.
384300
384400        IF HOLD-PROV-CBSA = '48540'
384500           AND P-NEW-STATE = 36
384600               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
384700               MOVE '   36' TO HOLD-PROV-CBSA.
384800
384900        IF HOLD-PROV-CBSA = '48540'
385000           AND P-NEW-STATE = 51
385100               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
385200               MOVE '   51' TO HOLD-PROV-CBSA.
385300
385400        IF HOLD-PROV-CBSA = '48864'
385500           AND P-NEW-STATE = 31
385600               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
385700               MOVE '   31' TO HOLD-PROV-CBSA.
385800
385900        IF HOLD-PROV-CBSA = '48864'
386000           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
386100           AND P-NEW-STATE = 31
386200               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
386300               MOVE '   31' TO HOLD-PROV-CBSA.
386400
386500        IF HOLD-PROV-CBSA = '19060'
386600           AND P-NEW-STATE = 21
386700               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
386800               MOVE '   21' TO HOLD-PROV-CBSA.
386900
387000        IF HOLD-PROV-CBSA = '19060'
387100           AND P-NEW-STATE = 51
387200               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
387300               MOVE '   51' TO HOLD-PROV-CBSA.
387400
387500        IF HOLD-PROV-CBSA = '22020'
387600           AND P-NEW-STATE = 24
387700               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
387800               MOVE '   24' TO HOLD-PROV-CBSA.
387900
388000        IF HOLD-PROV-CBSA = '24220'
388100           AND P-NEW-STATE = 24
388200               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
388300               MOVE '   24' TO HOLD-PROV-CBSA.
388400
388500        IF HOLD-PROV-CBSA = '30300'
388600           AND P-NEW-STATE = 50
388700               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
388800               MOVE '   50' TO HOLD-PROV-CBSA.
388900
389000        IF HOLD-PROV-CBSA = '48260'
389100           AND P-NEW-STATE = 36
389200               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
389300               MOVE '   36' TO HOLD-PROV-CBSA.
389400
389500
389600
389700**************YEARCHANGE 2009.3 **********************      *****
389800
389900 2300-2009-EXIT. EXIT.
390000
390100**************YEARCHANGE 2010.0 **********************      *****
390200
390300 2300-2010-FLOOR-CBSA.
390400
390500        IF HOLD-PROV-CBSA = '   33'
390600          AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
390700          AND P-NEW-STATE = 33
390800               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
390900               MOVE '   33' TO HOLD-PROV-CBSA.
391000
391100        IF HOLD-PROV-CBSA = '   30'
391200          AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
391300          AND P-NEW-STATE = 30
391400               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
391500               MOVE '   30' TO HOLD-PROV-CBSA.
391600
391700        IF HOLD-PROV-CBSA = '   33'
391800          AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
391900          AND P-NEW-STATE = 30
392000               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
392100               MOVE '   30' TO HOLD-PROV-CBSA.
392200
392300        IF HOLD-PROV-CBSA = '10900'
392400           AND P-NEW-STATE = 31
392500               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
392600               MOVE '   31' TO HOLD-PROV-CBSA.
392700
392800        IF HOLD-PROV-CBSA = '19340'
392900           AND P-NEW-STATE = 16
393000               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
393100               MOVE '   16' TO HOLD-PROV-CBSA.
393200
393300        IF HOLD-PROV-CBSA = '19340'
393400           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
393500           AND P-NEW-STATE = 16
393600               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
393700               MOVE '   16' TO HOLD-PROV-CBSA.
393800
393900        IF HOLD-PROV-CBSA = '21780'
394000           AND P-NEW-STATE = 15
394100               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
394200               MOVE '   15' TO HOLD-PROV-CBSA.
394300
394400        IF HOLD-PROV-CBSA = '21780'
394500           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
394600           AND P-NEW-STATE = 15
394700               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
394800               MOVE '   15' TO HOLD-PROV-CBSA.
394900
395000        IF HOLD-PROV-CBSA = '25180'
395100           AND P-NEW-STATE = 21
395200               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
395300               MOVE '   21' TO HOLD-PROV-CBSA.
395400
395500        IF HOLD-PROV-CBSA = '25540'
395600           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
395700           AND P-NEW-STATE = 07
395800               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
395900               MOVE '   07' TO HOLD-PROV-CBSA.
396000
396100        IF HOLD-PROV-CBSA = '28420'
396200           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
396300           AND P-NEW-STATE = 50
396400               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
396500               MOVE '   50' TO HOLD-PROV-CBSA.
396600
396700        IF HOLD-PROV-CBSA = '28940'
396800           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
396900           AND P-NEW-STATE = 18
397000               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
397100               MOVE '   18' TO HOLD-PROV-CBSA.
397200
397300        IF HOLD-PROV-CBSA = '28940'
397400           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
397500           AND P-NEW-STATE = 44
397600               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
397700               MOVE '   44' TO HOLD-PROV-CBSA.
397800
397900        IF HOLD-PROV-CBSA = '35084'
398000           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
398100           AND P-NEW-STATE = 31
398200               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
398300               MOVE '   31' TO HOLD-PROV-CBSA.
398400
398500        IF HOLD-PROV-CBSA = '37620'
398600           AND P-NEW-STATE = 36
398700               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
398800               MOVE '   36' TO HOLD-PROV-CBSA.
398900
399000        IF HOLD-PROV-CBSA = '37964'
399100           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
399200           AND P-NEW-STATE = 31
399300               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
399400               MOVE '   31' TO HOLD-PROV-CBSA.
399500
399600        IF HOLD-PROV-CBSA = '48540'
399700           AND P-NEW-STATE = 36
399800               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
399900               MOVE '   36' TO HOLD-PROV-CBSA.
400000
400100        IF HOLD-PROV-CBSA = '48540'
400200           AND P-NEW-STATE = 51
400300               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
400400               MOVE '   51' TO HOLD-PROV-CBSA.
400500
400600        IF HOLD-PROV-CBSA = '48864'
400700           AND P-NEW-STATE = 31
400800               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
400900               MOVE '   31' TO HOLD-PROV-CBSA.
401000
401100        IF HOLD-PROV-CBSA = '48864'
401200           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
401300           AND P-NEW-STATE = 31
401400               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
401500               MOVE '   31' TO HOLD-PROV-CBSA.
401600
401700        IF HOLD-PROV-CBSA = '49660'
401800           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
401900           AND P-NEW-STATE = 36
402000               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
402100               MOVE '   36' TO HOLD-PROV-CBSA.
402200
402300        IF HOLD-PROV-CBSA = '19060'
402400           AND P-NEW-STATE = 21
402500               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
402600               MOVE '   21' TO HOLD-PROV-CBSA.
402700
402800        IF HOLD-PROV-CBSA = '22020'
402900           AND P-NEW-STATE = 24
403000               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
403100               MOVE '   24' TO HOLD-PROV-CBSA.
403200
403300        IF HOLD-PROV-CBSA = '24220'
403400           AND P-NEW-STATE = 24
403500               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
403600               MOVE '   24' TO HOLD-PROV-CBSA.
403700
403800        IF HOLD-PROV-CBSA = '30300'
403900           AND P-NEW-STATE = 50
404000               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
404100               MOVE '   50' TO HOLD-PROV-CBSA.
404200
404300        IF HOLD-PROV-CBSA = '35084'
404400           AND P-NEW-STATE = 31
404500               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
404600               MOVE '   31' TO HOLD-PROV-CBSA.
404700
404800        IF HOLD-PROV-CBSA = '48260'
404900           AND P-NEW-STATE = 36
405000               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
405100               MOVE '   36' TO HOLD-PROV-CBSA.
405200
405300        IF HOLD-PROV-CBSA = '48260'
405400           AND P-NEW-STATE = 51
405500               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
405600               MOVE '   51' TO HOLD-PROV-CBSA.
405700
405800
405900
406000**************YEARCHANGE 2010.0 **********************      *****
406100
406200 2300-2010-EXIT. EXIT.
406300
406400
406500**************YEARCHANGE 2011.0 **********************      *****
406600
406700 2300-2011-FLOOR-CBSA.
406800
406900        IF HOLD-PROV-CBSA = '   45'
407000          AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
407100          AND P-NEW-STATE = 45
407200               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
407300               MOVE '   45' TO HOLD-PROV-CBSA.
407400
407500        IF HOLD-PROV-CBSA = '   37'
407600          AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
407700          AND P-NEW-STATE = 37
407800               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
407900               MOVE '   37' TO HOLD-PROV-CBSA.
408000
408100        IF HOLD-PROV-CBSA = '10900'
408200           AND P-NEW-STATE = 31
408300               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
408400               MOVE '   31' TO HOLD-PROV-CBSA.
408500
408600        IF HOLD-PROV-CBSA = '21500'
408700          AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
408800           AND P-NEW-STATE = 33
408900               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
409000               MOVE '   33' TO HOLD-PROV-CBSA.
409100
409200        IF HOLD-PROV-CBSA = '21500'
409300          AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
409400           AND P-NEW-STATE = 39
409500               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
409600               MOVE '   39' TO HOLD-PROV-CBSA.
409700
409800        IF HOLD-PROV-CBSA = '21780'
409900           AND P-NEW-STATE = 15
410000               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
410100               MOVE '   15' TO HOLD-PROV-CBSA.
410200
410300        IF HOLD-PROV-CBSA = '22900'
410400           AND P-NEW-STATE = 37
410500               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
410600               MOVE '   37' TO HOLD-PROV-CBSA.
410700
410800        IF HOLD-PROV-CBSA = '24540'
410900           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
411000           AND P-NEW-STATE = 53
411100               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
411200               MOVE '   53' TO HOLD-PROV-CBSA.
411300
411400        IF HOLD-PROV-CBSA = '25540'
411500           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
411600           AND P-NEW-STATE = 07
411700               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
411800               MOVE '   07' TO HOLD-PROV-CBSA.
411900
412000        IF HOLD-PROV-CBSA = '28700'
412100           AND P-NEW-STATE = 44
412200               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
412300               MOVE '   44' TO HOLD-PROV-CBSA.
412400
412500        IF HOLD-PROV-CBSA = '28700'
412600           AND P-NEW-STATE = 49
412700               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
412800               MOVE '   49' TO HOLD-PROV-CBSA.
412900
413000        IF HOLD-PROV-CBSA = '28940'
413100           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
413200           AND P-NEW-STATE = 18
413300               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
413400               MOVE '   18' TO HOLD-PROV-CBSA.
413500
413600        IF HOLD-PROV-CBSA = '28940'
413700           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
413800           AND P-NEW-STATE = 44
413900               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
414000               MOVE '   44' TO HOLD-PROV-CBSA.
414100
414200        IF HOLD-PROV-CBSA = '37620'
414300           AND P-NEW-STATE = 36
414400               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
414500               MOVE '   36' TO HOLD-PROV-CBSA.
414600
414700        IF HOLD-PROV-CBSA = '37620'
414800           AND P-NEW-STATE = 51
414900               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
415000               MOVE '   51' TO HOLD-PROV-CBSA.
415100
415200        IF HOLD-PROV-CBSA = '37964'
415300           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
415400           AND P-NEW-STATE = 31
415500               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
415600               MOVE '   31' TO HOLD-PROV-CBSA.
415700
415800        IF HOLD-PROV-CBSA = '38300'
415900           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
416000           AND P-NEW-STATE = 36
416100               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
416200               MOVE '   36' TO HOLD-PROV-CBSA.
416300
416400        IF HOLD-PROV-CBSA = '38300'
416500           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
416600           AND P-NEW-STATE = 39
416700               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
416800               MOVE '   39' TO HOLD-PROV-CBSA.
416900
417000        IF HOLD-PROV-CBSA = '43580'
417100           AND P-NEW-STATE = 43
417200               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
417300               MOVE '   43' TO HOLD-PROV-CBSA.
417400
417500        IF HOLD-PROV-CBSA = '48540'
417600           AND P-NEW-STATE = 36
417700               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
417800               MOVE '   36' TO HOLD-PROV-CBSA.
417900
418000        IF HOLD-PROV-CBSA = '48540'
418100           AND P-NEW-STATE = 51
418200               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
418300               MOVE '   51' TO HOLD-PROV-CBSA.
418400
418500        IF HOLD-PROV-CBSA = '48864'
418600           AND P-NEW-STATE = 31
418700               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
418800               MOVE '   31' TO HOLD-PROV-CBSA.
418900
419000        IF HOLD-PROV-CBSA = '17300'
419100           AND P-NEW-STATE = 18
419200               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
419300               MOVE '   18' TO HOLD-PROV-CBSA.
419400
419500        IF HOLD-PROV-CBSA = '17300'
419600           AND P-NEW-STATE = 44
419700               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
419800               MOVE '   44' TO HOLD-PROV-CBSA.
419900
420000        IF HOLD-PROV-CBSA = '19060'
420100           AND P-NEW-STATE = 21
420200               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
420300               MOVE '   21' TO HOLD-PROV-CBSA.
420400
420500        IF HOLD-PROV-CBSA = '22020'
420600           AND P-NEW-STATE = 24
420700               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
420800               MOVE '   24' TO HOLD-PROV-CBSA.
420900
421000        IF HOLD-PROV-CBSA = '22020'
421100           AND P-NEW-STATE = 35
421200               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
421300               MOVE '   35' TO HOLD-PROV-CBSA.
421400
421500        IF HOLD-PROV-CBSA = '24220'
421600           AND P-NEW-STATE = 24
421700               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
421800               MOVE '   24' TO HOLD-PROV-CBSA.
421900
422000        IF HOLD-PROV-CBSA = '24220'
422100           AND P-NEW-STATE = 35
422200               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
422300               MOVE '   35' TO HOLD-PROV-CBSA.
422400
422500        IF HOLD-PROV-CBSA = '30300'
422600           AND P-NEW-STATE = 50
422700               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
422800               MOVE '   50' TO HOLD-PROV-CBSA.
422900
423000        IF HOLD-PROV-CBSA = '44600'
423100           AND P-NEW-STATE = 36
423200               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
423300               MOVE '   36' TO HOLD-PROV-CBSA.
423400
423500        IF HOLD-PROV-CBSA = '44600'
423600           AND P-NEW-STATE = 51
423700               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
423800               MOVE '   51' TO HOLD-PROV-CBSA.
423900
424000        IF HOLD-PROV-CBSA = '45500'
424100           AND P-NEW-STATE = 45
424200               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
424300               MOVE '   45' TO HOLD-PROV-CBSA.
424400
424500
424600**************YEARCHANGE 2011.0 **********************      *****
424700
424800 2300-2011-EXIT. EXIT.
424900
425000**************YEARCHANGE 2012.0 **********************      *****
425100
425200 2300-2012-FLOOR-CBSA.
425300
425400**************YEARCHANGE 2012.0 ******************************
425500
425600        IF HOLD-PROV-CBSA = '   30'
425700          AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
425800          AND P-NEW-STATE = 30
425900               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
426000               MOVE '   30' TO HOLD-PROV-CBSA.
426100
426200        IF HOLD-PROV-CBSA = '   39'
426300          AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
426400          AND P-NEW-STATE = 39
426500               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
426600               MOVE '   39' TO HOLD-PROV-CBSA.
426700
426800        IF HOLD-PROV-CBSA = '   39'
426900          AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
427000          AND P-NEW-STATE = 33
427100               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
427200               MOVE '   33' TO HOLD-PROV-CBSA.
427300
427400        IF HOLD-PROV-CBSA = '10900'
427500           AND P-NEW-STATE = 31
427600               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
427700               MOVE '   31' TO HOLD-PROV-CBSA.
427800
427900        IF HOLD-PROV-CBSA = '14484'
428000           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
428100           AND P-NEW-STATE = 22
428200               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
428300               MOVE '   22' TO HOLD-PROV-CBSA.
428400
428500        IF HOLD-PROV-CBSA = '16020'
428600           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
428700           AND P-NEW-STATE = 14
428800               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
428900               MOVE '   14' TO HOLD-PROV-CBSA.
429000
429100        IF HOLD-PROV-CBSA = '21500'
429200          AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
429300           AND P-NEW-STATE = 33
429400               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
429500               MOVE '   33' TO HOLD-PROV-CBSA.
429600
429700        IF HOLD-PROV-CBSA = '21500'
429800          AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
429900           AND P-NEW-STATE = 39
430000               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
430100               MOVE '   39' TO HOLD-PROV-CBSA.
430200
430300        IF HOLD-PROV-CBSA = '22900'
430400           AND P-NEW-STATE = 37
430500               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
430600               MOVE '   37' TO HOLD-PROV-CBSA.
430700
430800        IF HOLD-PROV-CBSA = '25180'
430900           AND P-NEW-STATE = 21
431000               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
431100               MOVE '   21' TO HOLD-PROV-CBSA.
431200
431300        IF HOLD-PROV-CBSA = '25540'
431400           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
431500           AND P-NEW-STATE = 07
431600               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
431700               MOVE '   07' TO HOLD-PROV-CBSA.
431800
431900        IF HOLD-PROV-CBSA = '25540'
432000           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
432100           AND P-NEW-STATE = 22
432200               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
432300               MOVE '   22' TO HOLD-PROV-CBSA.
432400
432500        IF HOLD-PROV-CBSA = '26820'
432600           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
432700           AND P-NEW-STATE = 53
432800               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
432900               MOVE '   53' TO HOLD-PROV-CBSA.
433000
433100        IF HOLD-PROV-CBSA = '28700'
433200           AND P-NEW-STATE = 44
433300               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
433400               MOVE '   44' TO HOLD-PROV-CBSA.
433500
433600        IF HOLD-PROV-CBSA = '28700'
433700           AND P-NEW-STATE = 49
433800               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
433900               MOVE '   49' TO HOLD-PROV-CBSA.
434000
434100        IF HOLD-PROV-CBSA = '28700'
434200           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
434300           AND P-NEW-STATE = 18
434400               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
434500               MOVE '   18' TO HOLD-PROV-CBSA.
434600
434700        IF HOLD-PROV-CBSA = '28700'
434800           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
434900           AND P-NEW-STATE = 44
435000               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
435100               MOVE '   44' TO HOLD-PROV-CBSA.
435200
435300        IF HOLD-PROV-CBSA = '28940'
435400           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
435500           AND P-NEW-STATE = 18
435600               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
435700               MOVE '   18' TO HOLD-PROV-CBSA.
435800
435900        IF HOLD-PROV-CBSA = '35084'
436000           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
436100           AND P-NEW-STATE = 31
436200               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
436300               MOVE '   31' TO HOLD-PROV-CBSA.
436400
436500        IF HOLD-PROV-CBSA = '37620'
436600           AND P-NEW-STATE = 36
436700               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
436800               MOVE '   36' TO HOLD-PROV-CBSA.
436900
437000        IF HOLD-PROV-CBSA = '37964'
437100           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
437200           AND P-NEW-STATE = 31
437300               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
437400               MOVE '   31' TO HOLD-PROV-CBSA.
437500
437600        IF HOLD-PROV-CBSA = '43580'
437700           AND P-NEW-STATE = 43
437800               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
437900               MOVE '   43' TO HOLD-PROV-CBSA.
438000
438100        IF HOLD-PROV-CBSA = '44600'
438200           AND P-NEW-STATE = 36
438300               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
438400               MOVE '   36' TO HOLD-PROV-CBSA.
438500
438600        IF HOLD-PROV-CBSA = '44600'
438700           AND P-NEW-STATE = 51
438800               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
438900               MOVE '   51' TO HOLD-PROV-CBSA.
439000
439100        IF HOLD-PROV-CBSA = '48540'
439200           AND P-NEW-STATE = 36
439300               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
439400               MOVE '   36' TO HOLD-PROV-CBSA.
439500
439600        IF HOLD-PROV-CBSA = '48540'
439700           AND P-NEW-STATE = 51
439800               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
439900               MOVE '   51' TO HOLD-PROV-CBSA.
440000
440100        IF HOLD-PROV-CBSA = '48864'
440200           AND P-NEW-STATE = 31
440300               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
440400               MOVE '   31' TO HOLD-PROV-CBSA.
440500
440600        IF HOLD-PROV-CBSA = '49660'
440700           AND P-NEW-STATE = 36
440800               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
440900               MOVE '   36' TO HOLD-PROV-CBSA.
441000
441100        IF HOLD-PROV-CBSA = '49660'
441200           AND P-NEW-STATE = 39
441300               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
441400               MOVE '   39' TO HOLD-PROV-CBSA.
441500
441600        IF HOLD-PROV-CBSA = '19060'
441700           AND P-NEW-STATE = 21
441800               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
441900               MOVE '   21' TO HOLD-PROV-CBSA.
442000
442100        IF HOLD-PROV-CBSA = '22020'
442200           AND P-NEW-STATE = 24
442300               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
442400               MOVE '   24' TO HOLD-PROV-CBSA.
442500
442600        IF HOLD-PROV-CBSA = '22020'
442700           AND P-NEW-STATE = 35
442800               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
442900               MOVE '   35' TO HOLD-PROV-CBSA.
443000
443100        IF HOLD-PROV-CBSA = '24220'
443200           AND P-NEW-STATE = 24
443300               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
443400               MOVE '   24' TO HOLD-PROV-CBSA.
443500
443600        IF HOLD-PROV-CBSA = '24220'
443700           AND P-NEW-STATE = 35
443800               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
443900               MOVE '   35' TO HOLD-PROV-CBSA.
444000
444100        IF HOLD-PROV-CBSA = '30300'
444200           AND P-NEW-STATE = 50
444300               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
444400               MOVE '   50' TO HOLD-PROV-CBSA.
444500
444600        IF HOLD-PROV-CBSA = '30860'
444700           AND P-NEW-STATE = 46
444800               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
444900               MOVE '   46' TO HOLD-PROV-CBSA.
445000
445100        IF HOLD-PROV-CBSA = '35084'
445200           AND P-NEW-STATE = 31
445300               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
445400               MOVE '   31' TO HOLD-PROV-CBSA.
445500
445600        IF HOLD-PROV-CBSA = '39300'
445700           AND P-NEW-STATE = 22
445800               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
445900               MOVE '   22' TO HOLD-PROV-CBSA.
446000
446100        IF HOLD-PROV-CBSA = '45500'
446200           AND P-NEW-STATE = 45
446300               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
446400               MOVE '   45' TO HOLD-PROV-CBSA.
446500
446600**************YEARCHANGE 2012.0 ******************************
446700
446800 2300-2012-EXIT. EXIT.
446900
447000**************YEARCHANGE 2013.0 **********************      *****
447100
447200 2300-2013-FLOOR-CBSA.
447300
447400**************YEARCHANGE 2013.0 ******************************
447500
447600        IF HOLD-PROV-CBSA = '10900'
447700           AND P-NEW-STATE = 31
447800               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
447900               MOVE '   31' TO HOLD-PROV-CBSA.
448000
448100        IF HOLD-PROV-CBSA = '14484'
448200           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
448300           AND P-NEW-STATE = 22
448400               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
448500               MOVE '   22' TO HOLD-PROV-CBSA.
448600
448700        IF HOLD-PROV-CBSA = '16020'
448800           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
448900           AND P-NEW-STATE = 14
449000               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
449100               MOVE '   14' TO HOLD-PROV-CBSA.
449200
449300        IF HOLD-PROV-CBSA = '21500'
449400          AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
449500           AND P-NEW-STATE = 33
449600               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
449700               MOVE '   33' TO HOLD-PROV-CBSA.
449800
449900        IF HOLD-PROV-CBSA = '21500'
450000          AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
450100           AND P-NEW-STATE = 39
450200               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
450300               MOVE '   39' TO HOLD-PROV-CBSA.
450400
450500        IF HOLD-PROV-CBSA = '21780'
450600          AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
450700           AND P-NEW-STATE = 15
450800               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
450900               MOVE '   15' TO HOLD-PROV-CBSA.
451000
451100        IF HOLD-PROV-CBSA = '24580'
451200          AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
451300           AND P-NEW-STATE = 52
451400               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
451500               MOVE '   52' TO HOLD-PROV-CBSA.
451600
451700        IF HOLD-PROV-CBSA = '25540'
451800           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
451900           AND P-NEW-STATE = 07
452000               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
452100               MOVE '   07' TO HOLD-PROV-CBSA.
452200
452300        IF HOLD-PROV-CBSA = '25540'
452400           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
452500           AND P-NEW-STATE = 22
452600               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
452700               MOVE '   22' TO HOLD-PROV-CBSA.
452800
452900        IF HOLD-PROV-CBSA = '26820'
453000           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
453100           AND P-NEW-STATE = 53
453200               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
453300               MOVE '   53' TO HOLD-PROV-CBSA.
453400
453500        IF HOLD-PROV-CBSA = '27900'
453600           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
453700           AND P-NEW-STATE = 17
453800               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
453900               MOVE '   17' TO HOLD-PROV-CBSA.
454000
454100        IF HOLD-PROV-CBSA = '28700'
454200           AND P-NEW-STATE = 44
454300               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
454400               MOVE '   44' TO HOLD-PROV-CBSA.
454500
454600        IF HOLD-PROV-CBSA = '28700'
454700           AND P-NEW-STATE = 49
454800               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
454900               MOVE '   49' TO HOLD-PROV-CBSA.
455000
455100        IF HOLD-PROV-CBSA = '28700'
455200           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
455300           AND P-NEW-STATE = 18
455400               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
455500               MOVE '   18' TO HOLD-PROV-CBSA.
455600
455700        IF HOLD-PROV-CBSA = '28700'
455800           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
455900           AND P-NEW-STATE = 44
456000               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
456100               MOVE '   44' TO HOLD-PROV-CBSA.
456200
456300        IF HOLD-PROV-CBSA = '28940'
456400           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
456500           AND P-NEW-STATE = 18
456600               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
456700               MOVE '   18' TO HOLD-PROV-CBSA.
456800
456900        IF HOLD-PROV-CBSA = '35084'
457000           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
457100           AND P-NEW-STATE = 31
457200               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
457300               MOVE '   31' TO HOLD-PROV-CBSA.
457400
457500        IF HOLD-PROV-CBSA = '37620'
457600           AND P-NEW-STATE = 36
457700               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
457800               MOVE '   36' TO HOLD-PROV-CBSA.
457900
458000        IF HOLD-PROV-CBSA = '37964'
458100           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
458200           AND P-NEW-STATE = 31
458300               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
458400               MOVE '   31' TO HOLD-PROV-CBSA.
458500
458600        IF HOLD-PROV-CBSA = '38300'
458700           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
458800           AND P-NEW-STATE = 36
458900               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
459000               MOVE '   36' TO HOLD-PROV-CBSA.
459100
459200        IF HOLD-PROV-CBSA = '43580'
459300           AND P-NEW-STATE = 43
459400               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
459500               MOVE '   43' TO HOLD-PROV-CBSA.
459600
459700        IF HOLD-PROV-CBSA = '48540'
459800           AND P-NEW-STATE = 36
459900               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
460000               MOVE '   36' TO HOLD-PROV-CBSA.
460100
460200        IF HOLD-PROV-CBSA = '48540'
460300           AND P-NEW-STATE = 51
460400               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
460500               MOVE '   51' TO HOLD-PROV-CBSA.
460600
460700        IF HOLD-PROV-CBSA = '48864'
460800           AND P-NEW-STATE = 31
460900               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
461000               MOVE '   31' TO HOLD-PROV-CBSA.
461100
461200        IF HOLD-PROV-CBSA = '49660'
461300           AND P-NEW-STATE = 36
461400               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
461500               MOVE '   36' TO HOLD-PROV-CBSA.
461600
461700        IF HOLD-PROV-CBSA = '49660'
461800           AND P-NEW-STATE = 39
461900               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
462000               MOVE '   39' TO HOLD-PROV-CBSA.
462100
462200        IF HOLD-PROV-CBSA = '22020'
462300           AND P-NEW-STATE = 24
462400               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
462500               MOVE '   24' TO HOLD-PROV-CBSA.
462600
462700        IF HOLD-PROV-CBSA = '22020'
462800           AND P-NEW-STATE = 35
462900               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
463000               MOVE '   35' TO HOLD-PROV-CBSA.
463100
463200        IF HOLD-PROV-CBSA = '24220'
463300           AND P-NEW-STATE = 24
463400               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
463500               MOVE '   24' TO HOLD-PROV-CBSA.
463600
463700        IF HOLD-PROV-CBSA = '24220'
463800           AND P-NEW-STATE = 35
463900               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
464000               MOVE '   35' TO HOLD-PROV-CBSA.
464100
464200        IF HOLD-PROV-CBSA = '30300'
464300           AND P-NEW-STATE = 50
464400               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
464500               MOVE '   50' TO HOLD-PROV-CBSA.
464600
464700        IF HOLD-PROV-CBSA = '39300'
464800           AND P-NEW-STATE = 22
464900               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
465000               MOVE '   22' TO HOLD-PROV-CBSA.
465100
465200        IF HOLD-PROV-CBSA = '39300'
465300           AND P-NEW-STATE = 41
465400               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
465500               MOVE '   41' TO HOLD-PROV-CBSA.
465600
465700        IF HOLD-PROV-CBSA = '44600'
465800           AND P-NEW-STATE = 36
465900               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
466000               MOVE '   36' TO HOLD-PROV-CBSA.
466100
466200
466300**************YEARCHANGE 2013.0 ******************************
466400
466500 2300-2013-EXIT. EXIT.
466600
466700
466800 2300-2014-FLOOR-CBSA.
466900
467000**************YEARCHANGE 2014.0 ******************************
467100
467200        IF HOLD-PROV-CBSA = '   07'
467300           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
467400           AND P-NEW-STATE = 07
467500               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
467600               MOVE '   07' TO HOLD-PROV-CBSA.
467700
467800        IF HOLD-PROV-CBSA = '   36'
467900           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
468000           AND P-NEW-STATE = 36
468100               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
468200               MOVE '   36' TO HOLD-PROV-CBSA.
468300
468400        IF HOLD-PROV-CBSA = '10900'
468500           AND P-NEW-STATE = 31
468600               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
468700               MOVE '   31' TO HOLD-PROV-CBSA.
468800
468900        IF HOLD-PROV-CBSA = '14484'
469000           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
469100           AND P-NEW-STATE = 22
469200               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
469300               MOVE '   22' TO HOLD-PROV-CBSA.
469400
469500        IF HOLD-PROV-CBSA = '17300'
469600           AND P-NEW-STATE = 18
469700               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
469800               MOVE '   18' TO HOLD-PROV-CBSA.
469900
470000        IF HOLD-PROV-CBSA = '22900'
470100           AND P-NEW-STATE = 37
470200               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
470300               MOVE '   37' TO HOLD-PROV-CBSA.
470400
470500        IF HOLD-PROV-CBSA = '25540'
470600          AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
470700           AND P-NEW-STATE = 07
470800               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
470900               MOVE '   07' TO HOLD-PROV-CBSA.
471000
471100        IF HOLD-PROV-CBSA = '25540'
471200          AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
471300           AND P-NEW-STATE = 22
471400               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
471500               MOVE '   22' TO HOLD-PROV-CBSA.
471600
471700        IF HOLD-PROV-CBSA = '26820'
471800           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
471900           AND P-NEW-STATE = 53
472000               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
472100               MOVE '   53' TO HOLD-PROV-CBSA.
472200
472300        IF HOLD-PROV-CBSA = '27180'
472400           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
472500           AND P-NEW-STATE = 25
472600               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
472700               MOVE '   25' TO HOLD-PROV-CBSA.
472800
472900        IF HOLD-PROV-CBSA = '28700'
473000           AND P-NEW-STATE = 44
473100               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
473200               MOVE '   44' TO HOLD-PROV-CBSA.
473300
473400        IF HOLD-PROV-CBSA = '28700'
473500           AND P-NEW-STATE = 49
473600               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
473700               MOVE '   49' TO HOLD-PROV-CBSA.
473800
473900        IF HOLD-PROV-CBSA = '35644'
474000           AND P-NEW-CBSA-SPEC-PAY-IND  = 'Y'
474100           AND P-NEW-STATE = 07
474200               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
474300               MOVE '   07' TO HOLD-PROV-CBSA.
474400
474500        IF HOLD-PROV-CBSA = '37620'
474600           AND P-NEW-STATE = 36
474700               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
474800               MOVE '   36' TO HOLD-PROV-CBSA.
474900
475000        IF HOLD-PROV-CBSA = '43580'
475100           AND P-NEW-STATE = 43
475200               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
475300               MOVE '   43' TO HOLD-PROV-CBSA.
475400
475500        IF HOLD-PROV-CBSA = '48540'
475600           AND P-NEW-STATE = 36
475700               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
475800               MOVE '   36' TO HOLD-PROV-CBSA.
475900
476000        IF HOLD-PROV-CBSA = '48540'
476100           AND P-NEW-STATE = 51
476200               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
476300               MOVE '   51' TO HOLD-PROV-CBSA.
476400
476500        IF HOLD-PROV-CBSA = '48864'
476600           AND P-NEW-STATE = 31
476700               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
476800               MOVE '   31' TO HOLD-PROV-CBSA.
476900
477000        IF HOLD-PROV-CBSA = '49660'
477100           AND P-NEW-STATE = 36
477200               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
477300               MOVE '   36' TO HOLD-PROV-CBSA.
477400
477500        IF HOLD-PROV-CBSA = '49660'
477600           AND P-NEW-STATE = 39
477700               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
477800               MOVE '   39' TO HOLD-PROV-CBSA.
477900
478000        IF HOLD-PROV-CBSA = '19060'
478100           AND P-NEW-STATE = 21
478200               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
478300               MOVE '   21' TO HOLD-PROV-CBSA.
478400
478500        IF HOLD-PROV-CBSA = '22020'
478600           AND P-NEW-STATE = 24
478700               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
478800               MOVE '   24' TO HOLD-PROV-CBSA.
478900
479000        IF HOLD-PROV-CBSA = '22020'
479100           AND P-NEW-STATE = 35
479200               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
479300               MOVE '   35' TO HOLD-PROV-CBSA.
479400
479500        IF HOLD-PROV-CBSA = '24220'
479600           AND P-NEW-STATE = 24
479700               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
479800               MOVE '   24' TO HOLD-PROV-CBSA.
479900
480000        IF HOLD-PROV-CBSA = '24220'
480100           AND P-NEW-STATE = 35
480200               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
480300               MOVE '   35' TO HOLD-PROV-CBSA.
480400
480500        IF HOLD-PROV-CBSA = '30300'
480600           AND P-NEW-STATE = 50
480700               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
480800               MOVE '   50' TO HOLD-PROV-CBSA.
480900
481000        IF HOLD-PROV-CBSA = '39300'
481100           AND P-NEW-STATE = 22
481200               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
481300               MOVE '   22' TO HOLD-PROV-CBSA.
481400
481500        IF HOLD-PROV-CBSA = '39300'
481600           AND P-NEW-STATE = 41
481700               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
481800               MOVE '   41' TO HOLD-PROV-CBSA.
481900
482000        IF HOLD-PROV-CBSA = '44600'
482100           AND P-NEW-STATE = 36
482200               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
482300               MOVE '   36' TO HOLD-PROV-CBSA.
482400
482500        IF HOLD-PROV-CBSA = '45500'
482600           AND P-NEW-STATE = 45
482700               MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
482800               MOVE '   45' TO HOLD-PROV-CBSA.
482900
483000
483100**************YEARCHANGE 2014.0 ******************************
483200
483300 2300-2014-EXIT. EXIT.
483400
483500**************YEARCHANGE 2015.0 ******************************
483600 2300-2015-FWD-FLOOR-CBSA.
483700
483800**----------------------------------------------------------------
483900** ENSURE THE CBSA WAGE INDEX IS A VALID VALUE, ELSE SET ERROR RTC
484000**----------------------------------------------------------------
484100     IF W-NEW-CBSA-WI NOT NUMERIC
484200        MOVE 0 TO W-NEW-CBSA-WI.
484300
484400     IF W-NEW-CBSA-WI = 00.0000
484500        MOVE ALL '0' TO PPS-ADDITIONAL-VARIABLES
484600        MOVE 52 TO PPS-RTC
484700        GO TO 2300-2015-EXIT.
484800
484900**----------------------------------------------------------------
485000** SET THE PROVIDER'S STATE RURAL CBSA
485100**----------------------------------------------------------------
485200     MOVE '   ' TO  H-CBSA-RURAL-BLANK.
485300     MOVE P-NEW-STATE TO H-CBSA-RURAL-STATE.
485400
485500
485600*--------------------------------------------------------------*
485700* CHANGE CBSA CODE TO THE ORIGINAL STATE CODE - TEXAS          *
485800*--------------------------------------------------------------*
485900     IF H-CBSA-RURAL-STATE = '67' OR '74' OR '97'
486000                       MOVE '45' TO H-CBSA-RURAL-STATE.
486100
486200*--------------------------------------------------------------*
486300* CHANGE CBSA CODE TO THE ORIGINAL STATE CODE - FLORIDA        *
486400*--------------------------------------------------------------*
486500     IF H-CBSA-RURAL-STATE = '68' OR '69'
486600                       MOVE '10' TO H-CBSA-RURAL-STATE.
486700
486800*--------------------------------------------------------------*
486900* CHANGE CBSA CODE TO THE ORIGINAL STATE CODE - KANSAS         *
487000*--------------------------------------------------------------*
487100     IF H-CBSA-RURAL-STATE = '70'
487200                       MOVE '17' TO H-CBSA-RURAL-STATE.
487300
487400*--------------------------------------------------------------*
487500* CHANGE CBSA CODE TO THE ORIGINAL STATE CODE - LOUISIANA      *
487600*--------------------------------------------------------------*
487700     IF H-CBSA-RURAL-STATE = '71' OR '95'
487800                       MOVE '19' TO H-CBSA-RURAL-STATE.
487900
488000*--------------------------------------------------------------*
488100* CHANGE CBSA CODE TO THE ORIGINAL STATE CODE - OHIO           *
488200*--------------------------------------------------------------*
488300     IF H-CBSA-RURAL-STATE = '72'
488400                       MOVE '36' TO H-CBSA-RURAL-STATE.
488500
488600*--------------------------------------------------------------*
488700* CHANGE CBSA CODE TO THE ORIGINAL STATE CODE - PENNSYLVANIA   *
488800*--------------------------------------------------------------*
488900     IF H-CBSA-RURAL-STATE = '73'
489000                       MOVE '39' TO H-CBSA-RURAL-STATE.
489100
489200*--------------------------------------------------------------*
489300* CHANGE CBSA CODE TO THE ORIGINAL STATE CODE - CALIFORNIA     *
489400*--------------------------------------------------------------*
489500     IF H-CBSA-RURAL-STATE = '55' OR '75' OR '92'
489600                       MOVE '05' TO H-CBSA-RURAL-STATE.
489700
489800*--------------------------------------------------------------*
489900* CHANGE CBSA CODE TO THE ORIGINAL STATE CODE - IOWA           *
490000*--------------------------------------------------------------*
490100     IF H-CBSA-RURAL-STATE = '76'
490200                       MOVE '16' TO H-CBSA-RURAL-STATE.
490300
490400*--------------------------------------------------------------*
490500* CHANGE CBSA CODE TO THE ORIGINAL STATE CODE - MINNESOTA      *
490600*--------------------------------------------------------------*
490700     IF H-CBSA-RURAL-STATE = '77'
490800                       MOVE '24' TO H-CBSA-RURAL-STATE.
490900
491000*--------------------------------------------------------------*
491100* CHANGE CBSA CODE TO THE ORIGINAL STATE CODE - ILLINOIS       *
491200*--------------------------------------------------------------*
491300     IF H-CBSA-RURAL-STATE = '78'
491400                       MOVE '14' TO H-CBSA-RURAL-STATE.
491500
491600*--------------------------------------------------------------*
491700* CHANGE CBSA CODE TO THE ORIGINAL STATE CODE - MARYLAND       *
491800*--------------------------------------------------------------*
491900     IF H-CBSA-RURAL-STATE = '80'
492000                       MOVE '21' TO H-CBSA-RURAL-STATE.
492100
492200*--------------------------------------------------------------*
492300* CHANGE CBSA CODE TO THE ORIGINAL STATE CODE - CONNECTICUT    *
492400*--------------------------------------------------------------*
492500     IF H-CBSA-RURAL-STATE = '81'
492600                       MOVE '07' TO H-CBSA-RURAL-STATE.
492700
492800*--------------------------------------------------------------*
492900* CHANGE CBSA CODE TO THE ORIGINAL STATE CODE - MASSACHUSETTS  *
493000*--------------------------------------------------------------*
493100     IF H-CBSA-RURAL-STATE = '82'
493200                       MOVE '22' TO H-CBSA-RURAL-STATE.
493300
493400*--------------------------------------------------------------*
493500* CHANGE CBSA CODE TO THE ORIGINAL STATE CODE - NEW JERSEY     *
493600*--------------------------------------------------------------*
493700     IF H-CBSA-RURAL-STATE = '83'
493800                       MOVE '31' TO H-CBSA-RURAL-STATE.
493900
494000*--------------------------------------------------------------*
494100* CHANGE CBSA CODE TO THE ORIGINAL STATE CODE - PUERTO RICO    *
494200*--------------------------------------------------------------*
494300     IF H-CBSA-RURAL-STATE = '84'
494400                       MOVE '40' TO H-CBSA-RURAL-STATE.
494500
494600*--------------------------------------------------------------*
494700* CHANGE CBSA CODE TO THE ORIGINAL STATE CODE - GEORGIA        *
494800*--------------------------------------------------------------*
494900     IF H-CBSA-RURAL-STATE = '85'
495000                       MOVE '11' TO H-CBSA-RURAL-STATE.
495100
495200*--------------------------------------------------------------*
495300* CHANGE CBSA CODE TO THE ORIGINAL STATE CODE - NORTH CAROLINA *
495400*--------------------------------------------------------------*
495500     IF H-CBSA-RURAL-STATE = '86'
495600                       MOVE '34' TO H-CBSA-RURAL-STATE.
495700
495800*--------------------------------------------------------------*
495900* CHANGE CBSA CODE TO THE ORIGINAL STATE CODE - SOUTH CAROLINA *
496000*--------------------------------------------------------------*
496100     IF H-CBSA-RURAL-STATE = '87'
496200                       MOVE '42' TO H-CBSA-RURAL-STATE.
496300
496400*--------------------------------------------------------------*
496500* CHANGE CBSA CODE TO THE ORIGINAL STATE CODE - TENNESSEE      *
496600*--------------------------------------------------------------*
496700     IF H-CBSA-RURAL-STATE = '88'
496800                       MOVE '44' TO H-CBSA-RURAL-STATE.
496900
497000*--------------------------------------------------------------*
497100* CHANGE CBSA CODE TO THE ORIGINAL STATE CODE - ARKANSAS       *
497200*--------------------------------------------------------------*
497300     IF H-CBSA-RURAL-STATE = '89'
497400                       MOVE '04' TO H-CBSA-RURAL-STATE.
497500
497600*--------------------------------------------------------------*
497700* CHANGE CBSA CODE TO THE ORIGINAL STATE CODE - OKLAHOMA       *
497800*--------------------------------------------------------------*
497900     IF H-CBSA-RURAL-STATE = '90'
498000                       MOVE '37' TO H-CBSA-RURAL-STATE.
498100
498200*--------------------------------------------------------------*
498300* CHANGE CBSA CODE TO THE ORIGINAL STATE CODE - COLORADO       *
498400*--------------------------------------------------------------*
498500     IF H-CBSA-RURAL-STATE = '91'
498600                       MOVE '06' TO H-CBSA-RURAL-STATE.
498700
498800*--------------------------------------------------------------*
498900* CHANGE CBSA CODE TO THE ORIGINAL STATE CODE - OREGON         *
499000*--------------------------------------------------------------*
499100     IF H-CBSA-RURAL-STATE = '93'
499200                       MOVE '38' TO H-CBSA-RURAL-STATE.
499300
499400*--------------------------------------------------------------*
499500* CHANGE CBSA CODE TO THE ORIGINAL STATE CODE - WASHINGTON     *
499600*--------------------------------------------------------------*
499700     IF H-CBSA-RURAL-STATE = '94'
499800                       MOVE '50' TO H-CBSA-RURAL-STATE.
499900
500000*--------------------------------------------------------------*
500100* CHANGE CBSA CODE TO THE ORIGINAL STATE CODE - NEW MEXICO     *
500200*--------------------------------------------------------------*
500300     IF H-CBSA-RURAL-STATE = '96'
500400                       MOVE '32' TO H-CBSA-RURAL-STATE.
500500
500600
500700*------------------------------------------------------------*
500800* SEARCH TABLE FOR RURAL IPPS CBSA & GET WAGE INDEX (FLOOR)  *
500900*------------------------------------------------------------*
501000     PERFORM 0175-GET-RURAL-CBSA THRU 0175-EXIT.
501100
501200     IF PPS-RTC = 00
501300      IF W-RURAL-CBSA-EFF-DATE = WS-9S
501400        CONTINUE
501500      ELSE
501600        PERFORM 0660-GET-RURAL-CBSA-WAGE-INDX
501700         THRU   0660-EXIT VARYING MA2
501800                FROM MA1 BY 1 UNTIL
501900                T-CBSA (MA2) NOT = HOLD-RURAL-CBSA
502000      END-IF
502100     END-IF.
502200
502300*    IF W-NEW-CBSA-WI NOT NUMERIC
502400*       MOVE 0 TO W-NEW-CBSA-WI.
502500
502600*------------------------------------------------------------*
502700* IF NO RURAL WAGE INDEX FOUND, SET TO ZERO (VALID BECAUSE   *
502800* SOME STATES DO NOT HAVE A RURAL AREA)                      *
502900*------------------------------------------------------------*
503000     IF W-RURAL-CBSA-WI NOT NUMERIC
503100        MOVE 0 TO W-RURAL-CBSA-WI.
503200
503300*------------------------------------------------------------*
503400* IF THE STATE'S RURAL FLOOR WAGE INDEX IS HIGHER THAN THE   *
503500* PROVIDER'S CBSA WAGE INDEX, REPLACE THE CBSA AND WAGE      *
503600* INDEX WITH STATE CODE AND RURAL FLOOR WAGE INDEX           *
503700*------------------------------------------------------------*
503800     IF W-RURAL-CBSA-WI > W-NEW-CBSA-WI
503900        MOVE WAGE-RURAL-CBSA-INDEX-RECORD TO
504000                   WAGE-NEW-CBSA-INDEX-RECORD
504100        MOVE 'N' TO P-NEW-CBSA-SPEC-PAY-IND
504200        MOVE HOLD-RURAL-CBSA TO HOLD-PROV-CBSA.
504300
504400
504500
504600 2300-2015-EXIT. EXIT.
504700
504800**************YEARCHANGE 2015.0 ******************************
504900 2350-2015-FWD-FLOOR-CBSA-PR.
505000
505100**----------------------------------------------------------------
505200** ENSURE PR CBSA WAGE INDEX IS A VALID VALUE, ELSE SET ERROR RTC
505300**----------------------------------------------------------------
505400     IF W-NEW-CBSA-PR-WI NOT NUMERIC
505500        MOVE 0 TO W-NEW-CBSA-WI.
505600
505700     IF W-NEW-CBSA-PR-WI = 00.0000
505800        MOVE ALL '0' TO PPS-ADDITIONAL-VARIABLES
505900        MOVE 52 TO PPS-RTC
506000        GO TO 2350-2015-EXIT.
506100
506200**----------------------------------------------------------------
506300** SET THE PROVIDER'S STATE RURAL CBSA TO 40 (PUERTO RICO)
506400**----------------------------------------------------------------
506500     MOVE '   ' TO H-CBSA-RURAL-BLANK.
506600     MOVE '40'  TO H-CBSA-RURAL-STATE.
506700
506800*------------------------------------------------------------*
506900* SEARCH TABLE FOR RURAL PR CBSA & GET WAGE INDEX (FLOOR)    *
507000*------------------------------------------------------------*
507100     PERFORM 0260-N-GET-RURAL-CBSA-PR THRU 0260-EXIT.
507200
507300*------------------------------------------------------------*
507400* IF NO PR RURAL WAGE INDEX FOUND, SET TO ZERO (VALID FOR    *
507500* ANY YEAR WITH NO PUERTO RICO RURAL AREA)                   *
507600*------------------------------------------------------------*
507700     IF W-RURAL-CBSA-PR-WI NOT NUMERIC
507800        MOVE 0 TO W-RURAL-CBSA-PR-WI.
507900
508000*------------------------------------------------------------*
508100* IF THE STATE'S RURAL FLOOR WAGE INDEX IS HIGHER THAN THE   *
508200* PROVIDER'S CBSA WAGE INDEX, REPLACE THE CBSA AND WAGE      *
508300* INDEX WITH STATE CODE AND RURAL FLOOR WAGE INDEX           *
508400*------------------------------------------------------------*
508500     IF W-RURAL-CBSA-PR-WI > W-NEW-CBSA-PR-WI
508600        MOVE W-RURAL-CBSA-PR-WI TO W-NEW-CBSA-PR-WI.
508700
508800
508900 2350-2015-EXIT. EXIT.
509000
509100**************YEARCHANGE 2015.0 ******************************
509200 2400-CONVERT-PSF.
509300***************************************************************
509400*              CONVERSION FOR MILLENNIUM                      *
509500*    CONVERTS TO PSF FROM NEW FORMAT TO OLD FORMAT            *
509600*    THIS OLD PSF FORMAT IS PROCESSED IN NON-MILLENNIUN       *
509700*    PPS PROGRAMS                                             *
509800***************************************************************
509900     MOVE SPACES TO W-PROV-OLD-HOLD.
510000     MOVE  W-P-NEW-PROVIDER-OSCAR-NO TO W-P-PROVIDER-NO.
510100
510200     IF W-P-NEW-EFF-DATE < 0 OR
510300        W-P-NEW-EFF-DATE = '00000000'
510400        MOVE ZEROES TO W-P-EFF-DATE
510500     ELSE
510600        MOVE  W-P-NEW-EFF-DT-YY        TO W-P-EFF-YY
510700        MOVE  W-P-NEW-EFF-DT-MM        TO W-P-EFF-MM
510800        MOVE  W-P-NEW-EFF-DT-DD        TO W-P-EFF-DD.
510900     MOVE  W-P-NEW-WAIVER-CODE   TO W-P-WAIVER-CODE.
511000     MOVE  W-P-NEW-PROVIDER-TYPE TO W-P-PROVIDER-TYPE.
511100     MOVE  W-P-NEW-CURRENT-CENSUS-DIV
511200                               TO W-P-CURRENT-CENSUS-DIV.
511300     MOVE  W-P-NEW-GEO-LOC-MSA   TO W-P-MSA-X.
511400     MOVE  W-P-NEW-FAC-SPEC-RATE TO W-P-FAC-SPEC-RATE.
511500     MOVE  W-P-NEW-COLA          TO W-P-COLA.
511600     MOVE  W-P-NEW-INTERN-RATIO  TO W-P-INTERN-RATIO.
511700     MOVE  W-P-NEW-BED-SIZE      TO W-P-BED-SIZE.
511800     MOVE  W-P-NEW-CCR           TO W-P-CCR.
511900     MOVE  W-P-NEW-CMI           TO W-P-CMI.
512000
512100     IF W-P-NEW-REPORT-DATE < 0 OR
512200        W-P-NEW-REPORT-DATE = '00000000'
512300        MOVE ZEROES TO W-P-REPORT-DATE
512400     ELSE
512500        MOVE  W-P-NEW-REPORT-DT-YY  TO W-P-REPORT-DT-YY
512600        MOVE  W-P-NEW-REPORT-DT-MM  TO W-P-REPORT-DT-MM
512700        MOVE  W-P-NEW-REPORT-DT-DD  TO W-P-REPORT-DT-DD.
512800
512900     MOVE  W-P-NEW-INTER-NO      TO W-P-INTER-NO.
513000
513100     IF W-P-NEW-FY-BEGIN-DATE < 0  OR
513200        W-P-NEW-FY-BEGIN-DATE = '00000000'
513300        MOVE ZEROES TO W-P-FY-BEGIN-DATE
513400     ELSE
513500        MOVE  W-P-NEW-FY-BEG-DT-YY  TO W-P-FY-BEG-DT-YY
513600        MOVE  W-P-NEW-FY-BEG-DT-MM  TO W-P-FY-BEG-DT-MM
513700        MOVE  W-P-NEW-FY-BEG-DT-DD  TO W-P-FY-BEG-DT-DD.
513800
513900     MOVE W-P-NEW-PASS-AMT-CAPITAL    TO W-P-PASS-AMT-CAPITAL.
514000     MOVE W-P-NEW-PASS-AMT-DIR-MED-ED TO W-P-PASS-AMT-DIR-MED-ED.
514100     MOVE W-P-NEW-PASS-AMT-ORGAN-ACQ  TO W-P-PASS-AMT-ORGAN-ACQ.
514200     MOVE W-P-NEW-PASS-AMT-PLUS-MISC  TO W-P-PASS-AMT-PLUS-MISC.
514300     MOVE W-P-NEW-SSI-RATIO           TO W-P-SSI-RATIO.
514400     MOVE W-P-NEW-MEDICAID-RATIO      TO W-P-MEDICAID-RATIO.
514500
514600     IF W-P-NEW-TERMINATION-DATE < 0  OR
514700        W-P-NEW-TERMINATION-DATE = '00000000'
514800        MOVE ZEROES TO W-P-TERMINATION-DATE
514900     ELSE
515000        MOVE  W-P-NEW-TERM-DT-YY    TO W-P-TERM-DT-YY
515100        MOVE  W-P-NEW-TERM-DT-MM    TO W-P-TERM-DT-MM
515200        MOVE  W-P-NEW-TERM-DT-DD    TO W-P-TERM-DT-DD.
515300
515400     IF P-NEW-FYE-DATE  NOT NUMERIC
515500        MOVE ZEROES TO W-P-FISCAL-YEAR-END.
515600
515700     IF P-NEW-FYE-DATE               < 0  OR
515800        P-NEW-FYE-DATE               = '00000000'
515900        MOVE ZEROES TO W-P-FISCAL-YEAR-END
516000     ELSE
516100        MOVE  W-P-NEW-FYE-YY       TO W-P-YY
516200        MOVE  W-P-NEW-FYE-MM       TO W-P-MM
516300        MOVE  W-P-NEW-FYE-DD       TO W-P-DD.
516400
516500     MOVE W-P-NEW-WAGE-INDEX-LOC-MSA  TO W-P-WAGE-INDEX-LOC-MSA.
516600     MOVE W-P-NEW-CHG-CODE-INDEX      TO W-P-CHG-CODE-INDEX.
516700     MOVE W-P-NEW-STAND-AMT-LOC-MSA   TO W-P-STAND-AMT-LOC-MSA.
516800     MOVE W-P-NEW-SOL-COM-DEP-HOSP-YR TO W-P-SOL-COM-DEP-HOSP-YR.
516900     MOVE W-P-NEW-LUGAR               TO W-P-LUGAR.
517000     MOVE W-P-NEW-TEMP-RELIEF-IND     TO W-P-TEMP-RELIEF-IND.
517100     MOVE W-P-NEW-CAPI-PPS-PAY-CODE   TO W-P-CAPI-PPS-PAY-CODE.
517200     MOVE W-P-NEW-CAPI-HOSP-SPEC-RATE TO W-P-CAPI-HOSP-SPEC-RATE.
517300     MOVE W-P-NEW-CAPI-OLD-HARM-RATE  TO W-P-CAPI-OLD-HARM-RATE.
517400     MOVE W-P-NEW-CAPI-NEW-HARM-RATIO TO W-P-CAPI-NEW-HARM-RATIO.
517500     MOVE W-P-NEW-CAPI-CSTCHG-RATIO   TO W-P-CAPI-CSTCHG-RATIO.
517600     MOVE W-P-NEW-CAPI-NEW-HOSP       TO W-P-CAPI-NEW-HOSP.
517700     MOVE W-P-NEW-CAPI-IME            TO W-P-CAPI-IME.
517800     MOVE W-P-NEW-CAPI-EXCEPTIONS     TO W-P-CAPI-EXCEPTIONS.
517900 2400-EXIT.   EXIT.
518000
518100 2500-2000-WI-LUGER.
518200***************************************************************
518300****    FOR FY 2000 NEW LUGAR HOSPITALS ONLY                  *
518400***************************************************************
518500
518600     IF (P-NEW-PROVIDER-NO = '140012' OR '150002' OR '150004' OR
518700                             '150008' OR '150034' OR '150090' OR
518800                             '150125' OR '150126' OR '150132')
518900            AND (P-NEW-STAND-AMT-LOC-MSA = '1600'
519000            AND P-NEW-WAGE-INDEX-LOC-MSA = '1600'
519100            AND P-NEW-CHG-CODE-INDEX  = 'Y')
519200          MOVE 01.0750 TO W-NEW-INDEX-RECORD.
519300
519400     IF (P-NEW-PROVIDER-NO = '250078')
519500            AND (P-NEW-STAND-AMT-LOC-MSA = '3285'
519600            AND P-NEW-WAGE-INDEX-LOC-MSA = '3285'
519700            AND P-NEW-CHG-CODE-INDEX  = 'Y')
519800          MOVE 00.7634 TO W-NEW-INDEX-RECORD.
519900
520000     IF (P-NEW-PROVIDER-NO = '330001' OR '330126' OR '330135' OR
520100                             '330205' OR '330209' OR '330264')
520200            AND (P-NEW-STAND-AMT-LOC-MSA = '5600'
520300            AND P-NEW-WAGE-INDEX-LOC-MSA = '5600'
520400            AND P-NEW-CHG-CODE-INDEX  = 'Y')
520500          MOVE 01.4342 TO W-NEW-INDEX-RECORD.
520600
520700     IF (P-NEW-PROVIDER-NO = '340039' OR '340129' OR '340144')
520800            AND (P-NEW-STAND-AMT-LOC-MSA = '1520'
520900            AND P-NEW-WAGE-INDEX-LOC-MSA = '1520'
521000            AND P-NEW-CHG-CODE-INDEX  = 'Y')
521100          MOVE 00.9434 TO W-NEW-INDEX-RECORD.
521200
521300     IF (P-NEW-PROVIDER-NO = '360046' OR '360056' OR '360076' OR
521400                             '360132')
521500            AND (P-NEW-STAND-AMT-LOC-MSA = '1640'
521600            AND P-NEW-WAGE-INDEX-LOC-MSA = '1640'
521700            AND P-NEW-CHG-CODE-INDEX  = 'Y')
521800          MOVE 00.9419 TO W-NEW-INDEX-RECORD.
521900
522000     IF (P-NEW-PROVIDER-NO = '390019' OR '390049' OR '390162' OR
522100                             '390194' OR '390197' OR '390263')
522200            AND (P-NEW-STAND-AMT-LOC-MSA = '0240'
522300            AND P-NEW-WAGE-INDEX-LOC-MSA = '0240'
522400            AND P-NEW-CHG-CODE-INDEX  = 'Y')
522500          MOVE 01.0228 TO W-NEW-INDEX-RECORD.
522600
522700     IF (P-NEW-PROVIDER-NO = '450065' OR '450072' OR '450591')
522800            AND (P-NEW-STAND-AMT-LOC-MSA = '3360'
522900            AND P-NEW-WAGE-INDEX-LOC-MSA = '3360'
523000            AND P-NEW-CHG-CODE-INDEX  = 'Y')
523100          MOVE 00.9388 TO W-NEW-INDEX-RECORD.
523200
523300     IF (P-NEW-PROVIDER-NO = '470003')
523400            AND (P-NEW-STAND-AMT-LOC-MSA = '1123'
523500            AND P-NEW-WAGE-INDEX-LOC-MSA = '1123'
523600            AND P-NEW-CHG-CODE-INDEX  = 'Y')
523700          MOVE 01.1359 TO W-NEW-INDEX-RECORD.
523800
523900 2500-2000-EXIT.   EXIT.
524000
524100 2500-2001-WI-LUGER.
524200***************************************************************
524300****    FOR FY 2001 NEW LUGAR HOSPITALS ONLY                  *
524400***************************************************************
524500     IF (P-NEW-PROVIDER-NO = '010043')
524600            AND (P-NEW-STAND-AMT-LOC-MSA = '1000'
524700            AND P-NEW-WAGE-INDEX-LOC-MSA = '1000'
524800            AND P-NEW-CHG-CODE-INDEX  = 'Y')
524900          MOVE 00.8490 TO W-NEW-INDEX-RECORD.
525000
525100     IF (P-NEW-PROVIDER-NO = '010072' OR '010101')
525200            AND (P-NEW-STAND-AMT-LOC-MSA = '0450'
525300            AND P-NEW-WAGE-INDEX-LOC-MSA = '0450'
525400            AND P-NEW-CHG-CODE-INDEX  = 'Y')
525500          MOVE 00.7871 TO W-NEW-INDEX-RECORD.
525600
525700     IF (P-NEW-PROVIDER-NO = '100098')
525800            AND (P-NEW-STAND-AMT-LOC-MSA = '8960'
525900            AND P-NEW-WAGE-INDEX-LOC-MSA = '8960'
526000            AND P-NEW-CHG-CODE-INDEX  = 'Y')
526100          MOVE 00.9615 TO W-NEW-INDEX-RECORD.
526200
526300     IF (P-NEW-PROVIDER-NO = '100232')
526400            AND (P-NEW-STAND-AMT-LOC-MSA = '2900'
526500            AND P-NEW-WAGE-INDEX-LOC-MSA = '2900'
526600            AND P-NEW-CHG-CODE-INDEX  = 'Y')
526700          MOVE 01.0074 TO W-NEW-INDEX-RECORD.
526800
526900     IF (P-NEW-PROVIDER-NO = '110130')
527000            AND (P-NEW-STAND-AMT-LOC-MSA = '0500'
527100            AND P-NEW-WAGE-INDEX-LOC-MSA = '0500'
527200            AND P-NEW-CHG-CODE-INDEX  = 'Y')
527300          MOVE 00.9739 TO W-NEW-INDEX-RECORD.
527400
527500     IF (P-NEW-PROVIDER-NO = '140230')
527600            AND (P-NEW-STAND-AMT-LOC-MSA = '1400'
527700            AND P-NEW-WAGE-INDEX-LOC-MSA = '1400'
527800            AND P-NEW-CHG-CODE-INDEX  = 'Y')
527900          MOVE 00.9069 TO W-NEW-INDEX-RECORD.
528000
528100     IF (P-NEW-PROVIDER-NO = '230027')
528200            AND (P-NEW-STAND-AMT-LOC-MSA = '3000'
528300            AND P-NEW-WAGE-INDEX-LOC-MSA = '3000'
528400            AND P-NEW-CHG-CODE-INDEX  = 'Y')
528500          MOVE 01.0119 TO W-NEW-INDEX-RECORD.
528600
528700     IF (P-NEW-PROVIDER-NO = '340071' OR '340124')
528800            AND (P-NEW-STAND-AMT-LOC-MSA = '6640'
528900            AND P-NEW-WAGE-INDEX-LOC-MSA = '6640'
529000            AND P-NEW-CHG-CODE-INDEX  = 'Y')
529100          MOVE 00.9506 TO W-NEW-INDEX-RECORD.
529200
529300     IF (P-NEW-PROVIDER-NO = '390030' OR '390181' OR '390183')
529400            AND (P-NEW-STAND-AMT-LOC-MSA = '6680'
529500            AND P-NEW-WAGE-INDEX-LOC-MSA = '6680'
529600            AND P-NEW-CHG-CODE-INDEX  = 'Y')
529700          MOVE 00.8992 TO W-NEW-INDEX-RECORD.
529800
529900     IF (P-NEW-PROVIDER-NO = '390201')
530000            AND (P-NEW-STAND-AMT-LOC-MSA = '5640'
530100            AND P-NEW-WAGE-INDEX-LOC-MSA = '5640'
530200            AND P-NEW-CHG-CODE-INDEX  = 'Y')
530300          MOVE 01.0890 TO W-NEW-INDEX-RECORD.
530400
530500 2500-2001-EXIT.   EXIT.
530600
530700 2500-2003-WI-LUGER.
530800***************************************************************
530900****    FOR FY 2003 NEW LUGAR HOSPITALS ONLY                  *
531000***************************************************************
531100     IF (P-NEW-PROVIDER-NO = '110130')
531200            AND (P-NEW-STAND-AMT-LOC-MSA = '  11'
531300            AND P-NEW-WAGE-INDEX-LOC-MSA = '  11'
531400            AND P-NEW-CHG-CODE-INDEX  = 'Y')
531500          MOVE 00.8230 TO W-NEW-INDEX-RECORD.
531600
531700
531800 2500-2003-EXIT.   EXIT.
531900
532000 2700-2002-WI-401-HOSPITAL.
532100***************************************************************
532200****    FOR FY 2002 SECTION 401 HOSPITALS                     *
532300***************************************************************
532400     IF (P-NEW-PROVIDER-NO = '050192' OR '050286' OR
532500                             '050446' OR '050469' OR
532600                             '050528' OR '050542')
532700         MOVE '  05' TO HOLD-PROV-MSAX
532800                        P-NEW-STAND-AMT-LOC-MSA.
532900
533000     IF (P-NEW-PROVIDER-NO = '100048' OR '100118')
533100         MOVE '  10' TO HOLD-PROV-MSAX
533200                        P-NEW-STAND-AMT-LOC-MSA.
533300
533400     IF (P-NEW-PROVIDER-NO = '170137')
533500         MOVE '  17' TO HOLD-PROV-MSAX
533600                        P-NEW-STAND-AMT-LOC-MSA.
533700
533800     IF (P-NEW-PROVIDER-NO = '190048' OR '190110')
533900         MOVE '  19' TO HOLD-PROV-MSAX
534000                        P-NEW-STAND-AMT-LOC-MSA.
534100
534200     IF (P-NEW-PROVIDER-NO = '230078')
534300         MOVE '  23' TO HOLD-PROV-MSAX
534400                        P-NEW-STAND-AMT-LOC-MSA.
534500
534600     IF (P-NEW-PROVIDER-NO = '260006')
534700         MOVE '  26' TO HOLD-PROV-MSAX
534800                        P-NEW-STAND-AMT-LOC-MSA.
534900
535000     IF (P-NEW-PROVIDER-NO = '290038')
535100         MOVE '  29' TO HOLD-PROV-MSAX
535200                        P-NEW-STAND-AMT-LOC-MSA.
535300
535400     IF (P-NEW-PROVIDER-NO = '300009')
535500         MOVE '  30' TO HOLD-PROV-MSAX
535600                        P-NEW-STAND-AMT-LOC-MSA.
535700
535800     IF (P-NEW-PROVIDER-NO = '390106')
535900         MOVE '  39' TO HOLD-PROV-MSAX
536000                        P-NEW-STAND-AMT-LOC-MSA.
536100
536200     IF (P-NEW-PROVIDER-NO = '520007' OR '520153')
536300         MOVE '  52' TO HOLD-PROV-MSAX
536400                        P-NEW-STAND-AMT-LOC-MSA.
536500
536600 2700-2002-EXIT.   EXIT.
536700
536800 2700-2003-WI-401-HOSPITAL.
536900***************************************************************
537000****    FOR FY 2003 SECTION 401 HOSPITALS                     *
537100***************************************************************
537200     IF (P-NEW-PROVIDER-NO = '050192' OR '050286' OR
537300                             '050446' OR '050469' OR
537400                             '050528')
537500         MOVE '  05' TO HOLD-PROV-MSAX
537600                        P-NEW-STAND-AMT-LOC-MSA.
537700
537800     IF (P-NEW-PROVIDER-NO = '100048' OR '100118')
537900         MOVE '  10' TO HOLD-PROV-MSAX
538000                        P-NEW-STAND-AMT-LOC-MSA.
538100
538200     IF (P-NEW-PROVIDER-NO = '170137')
538300         MOVE '  17' TO HOLD-PROV-MSAX
538400                        P-NEW-STAND-AMT-LOC-MSA.
538500
538600     IF (P-NEW-PROVIDER-NO = '190048' OR '190110')
538700         MOVE '  19' TO HOLD-PROV-MSAX
538800                        P-NEW-STAND-AMT-LOC-MSA.
538900
539000     IF (P-NEW-PROVIDER-NO = '230078')
539100         MOVE '  23' TO HOLD-PROV-MSAX
539200                        P-NEW-STAND-AMT-LOC-MSA.
539300
539400     IF (P-NEW-PROVIDER-NO = '260006')
539500         MOVE '  26' TO HOLD-PROV-MSAX
539600                        P-NEW-STAND-AMT-LOC-MSA.
539700
539800     IF (P-NEW-PROVIDER-NO = '300009')
539900         MOVE '  30' TO HOLD-PROV-MSAX
540000                        P-NEW-STAND-AMT-LOC-MSA.
540100
540200     IF (P-NEW-PROVIDER-NO = '380084')
540300         MOVE '  38' TO HOLD-PROV-MSAX
540400                        P-NEW-STAND-AMT-LOC-MSA.
540500
540600 2700-2003-EXIT.   EXIT.
540700
540800 2700-2004-WI-401-HOSPITAL.
540900***************************************************************
541000****    FOR FY 2004 SECTION 401 HOSPITALS                     *
541100***************************************************************
541200     IF (P-NEW-PROVIDER-NO = '050192' OR '050286' OR
541300                             '050469' OR '050528' OR
541400                             '050618')
541500         MOVE '  05' TO HOLD-PROV-MSAX
541600                        P-NEW-STAND-AMT-LOC-MSA.
541700
541800     IF (P-NEW-PROVIDER-NO = '100048' OR '100118')
541900         MOVE '  10' TO HOLD-PROV-MSAX
542000                        P-NEW-STAND-AMT-LOC-MSA.
542100
542200     IF (P-NEW-PROVIDER-NO = '170137')
542300         MOVE '  17' TO HOLD-PROV-MSAX
542400                        P-NEW-STAND-AMT-LOC-MSA.
542500
542600     IF (P-NEW-PROVIDER-NO = '190048' OR '190110')
542700         MOVE '  19' TO HOLD-PROV-MSAX
542800                        P-NEW-STAND-AMT-LOC-MSA.
542900
543000     IF (P-NEW-PROVIDER-NO = '230078')
543100         MOVE '  23' TO HOLD-PROV-MSAX
543200                        P-NEW-STAND-AMT-LOC-MSA.
543300
543400     IF (P-NEW-PROVIDER-NO = '260006')
543500         MOVE '  26' TO HOLD-PROV-MSAX
543600                        P-NEW-STAND-AMT-LOC-MSA.
543700
543800     IF (P-NEW-PROVIDER-NO = '300009')
543900         MOVE '  30' TO HOLD-PROV-MSAX
544000                        P-NEW-STAND-AMT-LOC-MSA.
544100
544200     IF (P-NEW-PROVIDER-NO = '380084')
544300         MOVE '  38' TO HOLD-PROV-MSAX
544400                        P-NEW-STAND-AMT-LOC-MSA.
544500
544600     IF (P-NEW-PROVIDER-NO = '390106')
544700         MOVE '  39' TO HOLD-PROV-MSAX
544800                        P-NEW-STAND-AMT-LOC-MSA.
544900
545000 2700-2004-EXIT.   EXIT.
545100
545200 2700-2005-WI-401-HOSPITAL.
545300***************************************************************
545400****    FOR FY 2005 SECTION 401 HOSPITALS  OCT THRU MAR 2005  *
545500***************************************************************
545600     IF (P-NEW-PROVIDER-NO = '050192' OR '050286' OR
545700                             '050446' OR '050469' OR
545800                             '050528' OR '050618' OR
545900                             '051301')
546000         MOVE '   05' TO HOLD-PROV-CBSA
546100                        P-NEW-CBSA-STAND-AMT-LOC.
546200
546300     IF (P-NEW-PROVIDER-NO = '070004')
546400         MOVE '   07' TO HOLD-PROV-CBSA
546500                        P-NEW-CBSA-STAND-AMT-LOC.
546600
546700     IF (P-NEW-PROVIDER-NO = '100048' OR '100118')
546800         MOVE '   10' TO HOLD-PROV-CBSA
546900                        P-NEW-CBSA-STAND-AMT-LOC.
547000
547100     IF (P-NEW-PROVIDER-NO = '170137')
547200         MOVE '   17' TO HOLD-PROV-CBSA
547300                        P-NEW-CBSA-STAND-AMT-LOC.
547400
547500     IF (P-NEW-PROVIDER-NO = '190048' OR '190110')
547600         MOVE '   19' TO HOLD-PROV-CBSA
547700                        P-NEW-CBSA-STAND-AMT-LOC.
547800
547900     IF (P-NEW-PROVIDER-NO = '230078')
548000         MOVE '   23' TO HOLD-PROV-CBSA
548100                        P-NEW-CBSA-STAND-AMT-LOC.
548200
548300     IF (P-NEW-PROVIDER-NO = '260006')
548400         MOVE '   26' TO HOLD-PROV-CBSA
548500                        P-NEW-CBSA-STAND-AMT-LOC.
548600
548700     IF (P-NEW-PROVIDER-NO = '290038' OR '291301')
548800         MOVE '   29' TO HOLD-PROV-CBSA
548900                        P-NEW-CBSA-STAND-AMT-LOC.
549000
549100     IF (P-NEW-PROVIDER-NO = '300009')
549200         MOVE '   30' TO HOLD-PROV-CBSA
549300                        P-NEW-CBSA-STAND-AMT-LOC.
549400
549500     IF (P-NEW-PROVIDER-NO = '380084')
549600         MOVE '   38' TO HOLD-PROV-CBSA
549700                        P-NEW-CBSA-STAND-AMT-LOC.
549800
549900     IF (P-NEW-PROVIDER-NO = '390106' OR '390181')
550000         MOVE '   39' TO HOLD-PROV-CBSA
550100                        P-NEW-CBSA-STAND-AMT-LOC.
550200
550300 2700-2005-EXIT.   EXIT.
550400
550500 2750-2005-WI-401-HOSPITAL.
550600***************************************************************
550700****  FOR FY 2005 SECTION 401 HOSPITALS EFFECTIVE APR 1,2005  *
550800***************************************************************
550900     IF (P-NEW-PROVIDER-NO = '030007')
551000         MOVE '   03' TO HOLD-PROV-CBSA
551100                        P-NEW-CBSA-STAND-AMT-LOC.
551200
551300     IF (P-NEW-PROVIDER-NO = '040075')
551400         MOVE '   04' TO HOLD-PROV-CBSA
551500                        P-NEW-CBSA-STAND-AMT-LOC.
551600
551700     IF (P-NEW-PROVIDER-NO = '050192' OR '050469' OR
551800                             '050528' OR '050618')
551900         MOVE '   05' TO HOLD-PROV-CBSA
552000                        P-NEW-CBSA-STAND-AMT-LOC.
552100
552200     IF (P-NEW-PROVIDER-NO = '070004')
552300         MOVE '   07' TO HOLD-PROV-CBSA
552400                        P-NEW-CBSA-STAND-AMT-LOC.
552500
552600     IF (P-NEW-PROVIDER-NO = '100048' OR '100134')
552700         MOVE '   10' TO HOLD-PROV-CBSA
552800                        P-NEW-CBSA-STAND-AMT-LOC.
552900
553000     IF (P-NEW-PROVIDER-NO = '130018')
553100         MOVE '   13' TO HOLD-PROV-CBSA
553200                        P-NEW-CBSA-STAND-AMT-LOC.
553300
553400     IF (P-NEW-PROVIDER-NO = '140167')
553500         MOVE '   14' TO HOLD-PROV-CBSA
553600                        P-NEW-CBSA-STAND-AMT-LOC.
553700
553800     IF (P-NEW-PROVIDER-NO = '150051' OR '150078')
553900         MOVE '   15' TO HOLD-PROV-CBSA
554000                        P-NEW-CBSA-STAND-AMT-LOC.
554100
554200     IF (P-NEW-PROVIDER-NO = '170137')
554300         MOVE '   17' TO HOLD-PROV-CBSA
554400                        P-NEW-CBSA-STAND-AMT-LOC.
554500
554600     IF (P-NEW-PROVIDER-NO = '190048')
554700         MOVE '   19' TO HOLD-PROV-CBSA
554800                        P-NEW-CBSA-STAND-AMT-LOC.
554900
555000     IF (P-NEW-PROVIDER-NO = '230078')
555100         MOVE '   23' TO HOLD-PROV-CBSA
555200                        P-NEW-CBSA-STAND-AMT-LOC.
555300
555400     IF (P-NEW-PROVIDER-NO = '240037')
555500         MOVE '   24' TO HOLD-PROV-CBSA
555600                        P-NEW-CBSA-STAND-AMT-LOC.
555700
555800     IF (P-NEW-PROVIDER-NO = '260006' OR '260122')
555900         MOVE '   26' TO HOLD-PROV-CBSA
556000                        P-NEW-CBSA-STAND-AMT-LOC.
556100
556200     IF (P-NEW-PROVIDER-NO = '300009')
556300         MOVE '   30' TO HOLD-PROV-CBSA
556400                        P-NEW-CBSA-STAND-AMT-LOC.
556500
556600     IF (P-NEW-PROVIDER-NO = '370054')
556700         MOVE '   37' TO HOLD-PROV-CBSA
556800                        P-NEW-CBSA-STAND-AMT-LOC.
556900
557000     IF (P-NEW-PROVIDER-NO = '380040' OR '380084')
557100         MOVE '   38' TO HOLD-PROV-CBSA
557200                        P-NEW-CBSA-STAND-AMT-LOC.
557300
557400     IF (P-NEW-PROVIDER-NO = '390181' OR '390183' OR
557500                             '390201')
557600         MOVE '   39' TO HOLD-PROV-CBSA
557700                        P-NEW-CBSA-STAND-AMT-LOC.
557800
557900     IF (P-NEW-PROVIDER-NO = '450052' OR '450078' OR
558000                             '450243' OR '450276' OR
558100                             '450348')
558200         MOVE '   45' TO HOLD-PROV-CBSA
558300                        P-NEW-CBSA-STAND-AMT-LOC.
558400
558500     IF (P-NEW-PROVIDER-NO = '500023' OR '500037' OR
558600                             '500122' OR '500147' OR
558700                             '500148')
558800         MOVE '   50' TO HOLD-PROV-CBSA
558900                        P-NEW-CBSA-STAND-AMT-LOC.
559000
559100 2750-2005-EXIT.   EXIT.
559200
559300 2800-2006-WI-401-HOSPITAL.
559400***************************************************************
559500****  FOR FY 2006 SECTION 401 HOSPITALS EFFECTIVE OCT 1,2005  *
559600***************************************************************
559700     IF (P-NEW-PROVIDER-NO = '030007')
559800         MOVE '   03' TO HOLD-PROV-CBSA
559900                        P-NEW-CBSA-STAND-AMT-LOC.
560000
560100     IF (P-NEW-PROVIDER-NO = '040075')
560200         MOVE '   04' TO HOLD-PROV-CBSA
560300                        P-NEW-CBSA-STAND-AMT-LOC.
560400
560500     IF (P-NEW-PROVIDER-NO = '050192' OR '050469' OR
560600                             '050528' OR '050618')
560700         MOVE '   05' TO HOLD-PROV-CBSA
560800                        P-NEW-CBSA-STAND-AMT-LOC.
560900
561000     IF (P-NEW-PROVIDER-NO = '070004')
561100         MOVE '   07' TO HOLD-PROV-CBSA
561200                        P-NEW-CBSA-STAND-AMT-LOC.
561300
561400     IF (P-NEW-PROVIDER-NO = '100048' OR '100134')
561500         MOVE '   10' TO HOLD-PROV-CBSA
561600                        P-NEW-CBSA-STAND-AMT-LOC.
561700
561800     IF (P-NEW-PROVIDER-NO = '130018')
561900         MOVE '   13' TO HOLD-PROV-CBSA
562000                        P-NEW-CBSA-STAND-AMT-LOC.
562100
562200     IF (P-NEW-PROVIDER-NO = '140167')
562300         MOVE '   14' TO HOLD-PROV-CBSA
562400                        P-NEW-CBSA-STAND-AMT-LOC.
562500
562600     IF B-N-DISCHARGE-DATE > 20051231
562700        IF (P-NEW-PROVIDER-NO = '150078')
562800           MOVE '   15' TO HOLD-PROV-CBSA
562900                          P-NEW-CBSA-STAND-AMT-LOC.
563000
563100     IF B-N-DISCHARGE-DATE < 20060101
563200        IF (P-NEW-PROVIDER-NO = '150051' OR '150078')
563300           MOVE '   15' TO HOLD-PROV-CBSA
563400                          P-NEW-CBSA-STAND-AMT-LOC.
563500
563600     IF (P-NEW-PROVIDER-NO = '170137')
563700         MOVE '   17' TO HOLD-PROV-CBSA
563800                        P-NEW-CBSA-STAND-AMT-LOC.
563900
564000     IF (P-NEW-PROVIDER-NO = '190048' OR '190110')
564100         MOVE '   19' TO HOLD-PROV-CBSA
564200                        P-NEW-CBSA-STAND-AMT-LOC.
564300
564400     IF (P-NEW-PROVIDER-NO = '230042' OR '230078')
564500         MOVE '   23' TO HOLD-PROV-CBSA
564600                        P-NEW-CBSA-STAND-AMT-LOC.
564700
564800     IF (P-NEW-PROVIDER-NO = '240037' OR '240122')
564900         MOVE '   24' TO HOLD-PROV-CBSA
565000                        P-NEW-CBSA-STAND-AMT-LOC.
565100
565200     IF (P-NEW-PROVIDER-NO = '260006')
565300         MOVE '   26' TO HOLD-PROV-CBSA
565400                        P-NEW-CBSA-STAND-AMT-LOC.
565500
565600     IF (P-NEW-PROVIDER-NO = '300009')
565700         MOVE '   30' TO HOLD-PROV-CBSA
565800                        P-NEW-CBSA-STAND-AMT-LOC.
565900
566000     IF (P-NEW-PROVIDER-NO = '330268')
566100         MOVE '   33' TO HOLD-PROV-CBSA
566200                        P-NEW-CBSA-STAND-AMT-LOC.
566300
566400     IF (P-NEW-PROVIDER-NO = '370054')
566500         MOVE '   37' TO HOLD-PROV-CBSA
566600                        P-NEW-CBSA-STAND-AMT-LOC.
566700
566800     IF (P-NEW-PROVIDER-NO = '380040' OR '380084')
566900         MOVE '   38' TO HOLD-PROV-CBSA
567000                        P-NEW-CBSA-STAND-AMT-LOC.
567100
567200     IF (P-NEW-PROVIDER-NO = '390181' OR '390183' OR
567300                             '390201')
567400         MOVE '   39' TO HOLD-PROV-CBSA
567500                        P-NEW-CBSA-STAND-AMT-LOC.
567600
567700     IF (P-NEW-PROVIDER-NO = '440135')
567800         MOVE '   44' TO HOLD-PROV-CBSA
567900                        P-NEW-CBSA-STAND-AMT-LOC.
568000
568100     IF (P-NEW-PROVIDER-NO = '450052' OR '450078' OR
568200                             '450243' OR '450276' OR
568300                             '450348')
568400         MOVE '   45' TO HOLD-PROV-CBSA
568500                        P-NEW-CBSA-STAND-AMT-LOC.
568600
568700     IF (P-NEW-PROVIDER-NO = '500023' OR '500043' OR
568800                             '500086' OR '500103' OR
568900                             '500122' OR '500147' OR
569000                             '500148')
569100         MOVE '   50' TO HOLD-PROV-CBSA
569200                        P-NEW-CBSA-STAND-AMT-LOC.
569300
569400 2800-2006-EXIT.   EXIT.
569500
569600 2800-2007-WI-401-HOSPITAL.
569700***************************************************************
569800****  FOR FY 2007 SECTION 401 HOSPITALS EFFECTIVE OCT 1,2006  *
569900***************************************************************
570000
570100     IF (P-NEW-PROVIDER-NO = '050192' OR '050469' OR
570200                             '050528' OR '050618')
570300         MOVE '   05' TO HOLD-PROV-CBSA
570400                        P-NEW-CBSA-STAND-AMT-LOC.
570500
570600     IF (P-NEW-PROVIDER-NO = '070004')
570700         MOVE '   07' TO HOLD-PROV-CBSA
570800                        P-NEW-CBSA-STAND-AMT-LOC.
570900
571000     IF (P-NEW-PROVIDER-NO = '100048' OR '100134')
571100         MOVE '   10' TO HOLD-PROV-CBSA
571200                        P-NEW-CBSA-STAND-AMT-LOC.
571300
571400     IF (P-NEW-PROVIDER-NO = '140167')
571500         MOVE '   14' TO HOLD-PROV-CBSA
571600                        P-NEW-CBSA-STAND-AMT-LOC.
571700
571800     IF (P-NEW-PROVIDER-NO = '170137')
571900         MOVE '   17' TO HOLD-PROV-CBSA
572000                        P-NEW-CBSA-STAND-AMT-LOC.
572100
572200     IF (P-NEW-PROVIDER-NO = '230078')
572300         MOVE '   23' TO HOLD-PROV-CBSA
572400                        P-NEW-CBSA-STAND-AMT-LOC.
572500
572600     IF (P-NEW-PROVIDER-NO = '260006' OR '260047' OR '260195')
572700         MOVE '   26' TO HOLD-PROV-CBSA
572800                        P-NEW-CBSA-STAND-AMT-LOC.
572900
573000     IF (P-NEW-PROVIDER-NO = '330044' OR '330245' OR '330268')
573100         MOVE '   33' TO HOLD-PROV-CBSA
573200                        P-NEW-CBSA-STAND-AMT-LOC.
573300
573400     IF (P-NEW-PROVIDER-NO = '360125')
573500         MOVE '   36' TO HOLD-PROV-CBSA
573600                        P-NEW-CBSA-STAND-AMT-LOC.
573700
573800     IF (P-NEW-PROVIDER-NO = '370054')
573900         MOVE '   37' TO HOLD-PROV-CBSA
574000                        P-NEW-CBSA-STAND-AMT-LOC.
574100
574200     IF (P-NEW-PROVIDER-NO = '380040')
574300         MOVE '   38' TO HOLD-PROV-CBSA
574400                        P-NEW-CBSA-STAND-AMT-LOC.
574500
574600     IF (P-NEW-PROVIDER-NO = '440135' OR '440144')
574700         MOVE '   44' TO HOLD-PROV-CBSA
574800                        P-NEW-CBSA-STAND-AMT-LOC.
574900
575000     IF (P-NEW-PROVIDER-NO = '450052' OR '450078' OR
575100                             '450243' OR '450348')
575200         MOVE '   45' TO HOLD-PROV-CBSA
575300                        P-NEW-CBSA-STAND-AMT-LOC.
575400
575500     IF (P-NEW-PROVIDER-NO = '500148')
575600         MOVE '   50' TO HOLD-PROV-CBSA
575700                        P-NEW-CBSA-STAND-AMT-LOC.
575800
575900     IF (P-NEW-PROVIDER-NO = '520060')
576000         MOVE '   52' TO HOLD-PROV-CBSA
576100                        P-NEW-CBSA-STAND-AMT-LOC.
576200
576300 2800-2007-EXIT.   EXIT.
576400
576500 2800-2008-WI-401-HOSPITAL.
576600***************************************************************
576700****  FOR FY 2008 SECTION 401 HOSPITALS EFFECTIVE OCT 1,2007  *
576800***************************************************************
576900
577000     IF (P-NEW-PROVIDER-NO = '050192' OR
577100                             '050528' OR '050618')
577200         MOVE '   05' TO HOLD-PROV-CBSA
577300                        P-NEW-CBSA-STAND-AMT-LOC.
577400
577500     IF (P-NEW-PROVIDER-NO = '100134')
577600         MOVE '   10' TO HOLD-PROV-CBSA
577700                        P-NEW-CBSA-STAND-AMT-LOC.
577800
577900     IF (P-NEW-PROVIDER-NO = '170137')
578000         MOVE '   17' TO HOLD-PROV-CBSA
578100                        P-NEW-CBSA-STAND-AMT-LOC.
578200
578300     IF (P-NEW-PROVIDER-NO = '220051' OR '230078')
578400         MOVE '   23' TO HOLD-PROV-CBSA
578500                        P-NEW-CBSA-STAND-AMT-LOC.
578600
578700     IF (P-NEW-PROVIDER-NO = '250017')
578800         MOVE '   25' TO HOLD-PROV-CBSA
578900                        P-NEW-CBSA-STAND-AMT-LOC.
579000
579100     IF (P-NEW-PROVIDER-NO = '260006' OR '260195')
579200         MOVE '   26' TO HOLD-PROV-CBSA
579300                        P-NEW-CBSA-STAND-AMT-LOC.
579400
579500     IF (P-NEW-PROVIDER-NO = '330268')
579600         MOVE '   33' TO HOLD-PROV-CBSA
579700                        P-NEW-CBSA-STAND-AMT-LOC.
579800
579900     IF (P-NEW-PROVIDER-NO = '360125')
580000         MOVE '   36' TO HOLD-PROV-CBSA
580100                        P-NEW-CBSA-STAND-AMT-LOC.
580200
580300     IF (P-NEW-PROVIDER-NO = '370054')
580400         MOVE '   37' TO HOLD-PROV-CBSA
580500                        P-NEW-CBSA-STAND-AMT-LOC.
580600
580700     IF (P-NEW-PROVIDER-NO = '380040')
580800         MOVE '   38' TO HOLD-PROV-CBSA
580900                        P-NEW-CBSA-STAND-AMT-LOC.
581000
581100     IF (P-NEW-PROVIDER-NO = '390130' OR '390183' OR
581200                             '390185' OR '390201')
581300         MOVE '   39' TO HOLD-PROV-CBSA
581400                        P-NEW-CBSA-STAND-AMT-LOC.
581500
581600     IF (P-NEW-PROVIDER-NO = '440135')
581700         MOVE '   44' TO HOLD-PROV-CBSA
581800                        P-NEW-CBSA-STAND-AMT-LOC.
581900
582000     IF (P-NEW-PROVIDER-NO = '450052' OR '450078' OR
582100                             '450243' OR '450348')
582200         MOVE '   45' TO HOLD-PROV-CBSA
582300                        P-NEW-CBSA-STAND-AMT-LOC.
582400
582500     IF (P-NEW-PROVIDER-NO = '500148')
582600         MOVE '   50' TO HOLD-PROV-CBSA
582700                        P-NEW-CBSA-STAND-AMT-LOC.
582800
582900 2800-2008-EXIT.   EXIT.
583000
583100 2800-2009-WI-401-HOSPITAL.
583200***************************************************************
583300****  FOR FY 2009 SECTION 401 HOSPITALS EFFECTIVE OCT 1, 2009 *
583400***************************************************************
583500
583600     IF (P-NEW-PROVIDER-NO = '040118')
583700         MOVE '   04' TO HOLD-PROV-CBSA
583800                        P-NEW-CBSA-STAND-AMT-LOC.
583900
584000     IF (P-NEW-PROVIDER-NO = '234202' OR
584100                             '329008' OR '040140')
584200         MOVE '   05' TO HOLD-PROV-CBSA
584300                        P-NEW-CBSA-STAND-AMT-LOC.
584400
584500     IF (P-NEW-PROVIDER-NO = '070004' OR
584600                             '070036')
584700         MOVE '   07' TO HOLD-PROV-CBSA
584800                        P-NEW-CBSA-STAND-AMT-LOC.
584900
585000     IF (P-NEW-PROVIDER-NO = '100048' OR
585100                             '100118' OR '100134')
585200         MOVE '   10' TO HOLD-PROV-CBSA
585300                        P-NEW-CBSA-STAND-AMT-LOC.
585400
585500     IF (P-NEW-PROVIDER-NO = '140167')
585600         MOVE '   14' TO HOLD-PROV-CBSA
585700                        P-NEW-CBSA-STAND-AMT-LOC.
585800
585900     IF (P-NEW-PROVIDER-NO = '170137')
586000         MOVE '   17' TO HOLD-PROV-CBSA
586100                        P-NEW-CBSA-STAND-AMT-LOC.
586200
586300     IF (P-NEW-PROVIDER-NO = '180038')
586400         MOVE '   18' TO HOLD-PROV-CBSA
586500                        P-NEW-CBSA-STAND-AMT-LOC.
586600
586700     IF (P-NEW-PROVIDER-NO = '220051')
586800         MOVE '   22' TO HOLD-PROV-CBSA
586900                        P-NEW-CBSA-STAND-AMT-LOC.
587000
587100     IF (P-NEW-PROVIDER-NO = '230078')
587200         MOVE '   23' TO HOLD-PROV-CBSA
587300                        P-NEW-CBSA-STAND-AMT-LOC.
587400
587500     IF (P-NEW-PROVIDER-NO = '250017')
587600         MOVE '   25' TO HOLD-PROV-CBSA
587700                        P-NEW-CBSA-STAND-AMT-LOC.
587800
587900     IF (P-NEW-PROVIDER-NO = '260006' OR '260047' OR '260195')
588000         MOVE '   26' TO HOLD-PROV-CBSA
588100                        P-NEW-CBSA-STAND-AMT-LOC.
588200
588300     IF (P-NEW-PROVIDER-NO = '330235' OR '330268')
588400         MOVE '   33' TO HOLD-PROV-CBSA
588500                        P-NEW-CBSA-STAND-AMT-LOC.
588600
588700     IF (P-NEW-PROVIDER-NO = '360125')
588800         MOVE '   36' TO HOLD-PROV-CBSA
588900                        P-NEW-CBSA-STAND-AMT-LOC.
589000
589100     IF (P-NEW-PROVIDER-NO = '370054')
589200         MOVE '   37' TO HOLD-PROV-CBSA
589300                        P-NEW-CBSA-STAND-AMT-LOC.
589400
589500     IF (P-NEW-PROVIDER-NO = '380040')
589600         MOVE '   38' TO HOLD-PROV-CBSA
589700                        P-NEW-CBSA-STAND-AMT-LOC.
589800
589900     IF (P-NEW-PROVIDER-NO = '390130' OR '390183' OR
590000                             '390233')
590100         MOVE '   39' TO HOLD-PROV-CBSA
590200                        P-NEW-CBSA-STAND-AMT-LOC.
590300
590400     IF (P-NEW-PROVIDER-NO = '440135')
590500         MOVE '   44' TO HOLD-PROV-CBSA
590600                        P-NEW-CBSA-STAND-AMT-LOC.
590700
590800     IF (P-NEW-PROVIDER-NO = '450052' OR '450078' OR
590900                             '450243' OR '450348')
591000         MOVE '   45' TO HOLD-PROV-CBSA
591100                        P-NEW-CBSA-STAND-AMT-LOC.
591200
591300     IF (P-NEW-PROVIDER-NO = '490116')
591400         MOVE '   49' TO HOLD-PROV-CBSA
591500                        P-NEW-CBSA-STAND-AMT-LOC.
591600
591700     IF (P-NEW-PROVIDER-NO = '500148')
591800         MOVE '   50' TO HOLD-PROV-CBSA
591900                        P-NEW-CBSA-STAND-AMT-LOC.
592000
592100 2800-2009-EXIT.   EXIT.
592200
592300 2800-2010-WI-401-HOSPITAL.
592400***************************************************************
592500****  FOR FY 2010 SECTION 401 HOSPITALS EFFECTIVE OCT 1, 2009 *
592600***************************************************************
592700
592800     IF (P-NEW-PROVIDER-NO = '040118')
592900         MOVE '   04' TO HOLD-PROV-CBSA
593000                        P-NEW-CBSA-STAND-AMT-LOC.
593100
593200     IF (P-NEW-PROVIDER-NO = '050192' OR
593300                             '050528' OR '050618')
593400         MOVE '   05' TO HOLD-PROV-CBSA
593500                        P-NEW-CBSA-STAND-AMT-LOC.
593600
593700     IF (P-NEW-PROVIDER-NO = '070004')
593800         MOVE '   07' TO HOLD-PROV-CBSA
593900                        P-NEW-CBSA-STAND-AMT-LOC.
594000
594100     IF (P-NEW-PROVIDER-NO = '100048' OR
594200                             '100118' OR '100134')
594300         MOVE '   10' TO HOLD-PROV-CBSA
594400                        P-NEW-CBSA-STAND-AMT-LOC.
594500
594600     IF (P-NEW-PROVIDER-NO = '140167')
594700         MOVE '   14' TO HOLD-PROV-CBSA
594800                        P-NEW-CBSA-STAND-AMT-LOC.
594900
595000     IF (P-NEW-PROVIDER-NO = '170137')
595100         MOVE '   17' TO HOLD-PROV-CBSA
595200                        P-NEW-CBSA-STAND-AMT-LOC.
595300
595400     IF (P-NEW-PROVIDER-NO = '180038')
595500         MOVE '   18' TO HOLD-PROV-CBSA
595600                        P-NEW-CBSA-STAND-AMT-LOC.
595700
595800     IF (P-NEW-PROVIDER-NO = '220051')
595900         MOVE '   22' TO HOLD-PROV-CBSA
596000                        P-NEW-CBSA-STAND-AMT-LOC.
596100
596200     IF (P-NEW-PROVIDER-NO = '230078')
596300         MOVE '   23' TO HOLD-PROV-CBSA
596400                        P-NEW-CBSA-STAND-AMT-LOC.
596500
596600     IF (P-NEW-PROVIDER-NO = '250017')
596700         MOVE '   25' TO HOLD-PROV-CBSA
596800                        P-NEW-CBSA-STAND-AMT-LOC.
596900
597000     IF (P-NEW-PROVIDER-NO = '260006' OR '260034' OR
597100                             '260047' OR '260195')
597200         MOVE '   26' TO HOLD-PROV-CBSA
597300                        P-NEW-CBSA-STAND-AMT-LOC.
597400
597500     IF (P-NEW-PROVIDER-NO = '330235' OR '330268')
597600         MOVE '   33' TO HOLD-PROV-CBSA
597700                        P-NEW-CBSA-STAND-AMT-LOC.
597800
597900     IF (P-NEW-PROVIDER-NO = '300023')
598000         MOVE '   30' TO HOLD-PROV-CBSA
598100                        P-NEW-CBSA-STAND-AMT-LOC.
598200
598300     IF (P-NEW-PROVIDER-NO = '360125')
598400         MOVE '   36' TO HOLD-PROV-CBSA
598500                        P-NEW-CBSA-STAND-AMT-LOC.
598600
598700     IF (P-NEW-PROVIDER-NO = '370054')
598800         MOVE '   37' TO HOLD-PROV-CBSA
598900                        P-NEW-CBSA-STAND-AMT-LOC.
599000
599100     IF (P-NEW-PROVIDER-NO = '380040')
599200         MOVE '   38' TO HOLD-PROV-CBSA
599300                        P-NEW-CBSA-STAND-AMT-LOC.
599400
599500     IF (P-NEW-PROVIDER-NO = '390130' OR '390183' OR
599600                             '390233')
599700         MOVE '   39' TO HOLD-PROV-CBSA
599800                        P-NEW-CBSA-STAND-AMT-LOC.
599900
600000     IF (P-NEW-PROVIDER-NO = '450052' OR '450078' OR
600100                             '450243' OR '450348')
600200         MOVE '   45' TO HOLD-PROV-CBSA
600300                        P-NEW-CBSA-STAND-AMT-LOC.
600400
600500     IF (P-NEW-PROVIDER-NO = '490116')
600600         MOVE '   49' TO HOLD-PROV-CBSA
600700                        P-NEW-CBSA-STAND-AMT-LOC.
600800
600900     IF (P-NEW-PROVIDER-NO = '500148')
601000         MOVE '   50' TO HOLD-PROV-CBSA
601100                        P-NEW-CBSA-STAND-AMT-LOC.
601200
601300 2800-2010-EXIT.   EXIT.
601400
601500 2800-2011-WI-401-HOSPITAL.
601600***************************************************************
601700****  FOR FY 2011 SECTION 401 HOSPITALS EFFECTIVE OCT 1, 2010 *
601800***************************************************************
601900*
602000
602100     IF (P-NEW-PROVIDER-NO = '040118')
602200         MOVE '   04' TO HOLD-PROV-CBSA
602300                        P-NEW-CBSA-STAND-AMT-LOC.
602400
602500     IF (P-NEW-PROVIDER-NO = '050192' OR
602600                             '050528' OR '050618')
602700         MOVE '   05' TO HOLD-PROV-CBSA
602800                        P-NEW-CBSA-STAND-AMT-LOC.
602900
603000     IF (P-NEW-PROVIDER-NO = '070004')
603100         MOVE '   07' TO HOLD-PROV-CBSA
603200                        P-NEW-CBSA-STAND-AMT-LOC.
603300
603400     IF (P-NEW-PROVIDER-NO = '100048' OR
603500                             '100118' OR '100134')
603600         MOVE '   10' TO HOLD-PROV-CBSA
603700                        P-NEW-CBSA-STAND-AMT-LOC.
603800
603900     IF (P-NEW-PROVIDER-NO = '140167')
604000         MOVE '   14' TO HOLD-PROV-CBSA
604100                        P-NEW-CBSA-STAND-AMT-LOC.
604200
604300     IF (P-NEW-PROVIDER-NO = '170037' OR '170137')
604400         MOVE '   17' TO HOLD-PROV-CBSA
604500                        P-NEW-CBSA-STAND-AMT-LOC.
604600
604700     IF (P-NEW-PROVIDER-NO = '180016' OR '180038')
604800         MOVE '   18' TO HOLD-PROV-CBSA
604900                        P-NEW-CBSA-STAND-AMT-LOC.
605000
605100     IF (P-NEW-PROVIDER-NO = '220051')
605200         MOVE '   22' TO HOLD-PROV-CBSA
605300                        P-NEW-CBSA-STAND-AMT-LOC.
605400
605500     IF (P-NEW-PROVIDER-NO = '230040' OR '230078')
605600         MOVE '   23' TO HOLD-PROV-CBSA
605700                        P-NEW-CBSA-STAND-AMT-LOC.
605800
605900     IF (P-NEW-PROVIDER-NO = '260006' OR '260034' OR
606000                             '260047' OR '260195')
606100         MOVE '   26' TO HOLD-PROV-CBSA
606200                        P-NEW-CBSA-STAND-AMT-LOC.
606300
606400     IF (P-NEW-PROVIDER-NO = '300023')
606500         MOVE '   30' TO HOLD-PROV-CBSA
606600                        P-NEW-CBSA-STAND-AMT-LOC.
606700
606800     IF (P-NEW-PROVIDER-NO = '330215' OR '330235' OR
606900                             '330268')
607000         MOVE '   33' TO HOLD-PROV-CBSA
607100                        P-NEW-CBSA-STAND-AMT-LOC.
607200
607300     IF (P-NEW-PROVIDER-NO = '340010')
607400         MOVE '   34' TO HOLD-PROV-CBSA
607500                        P-NEW-CBSA-STAND-AMT-LOC.
607600
607700     IF (P-NEW-PROVIDER-NO = '360125')
607800         MOVE '   36' TO HOLD-PROV-CBSA
607900                        P-NEW-CBSA-STAND-AMT-LOC.
608000
608100     IF (P-NEW-PROVIDER-NO = '370054')
608200         MOVE '   37' TO HOLD-PROV-CBSA
608300                        P-NEW-CBSA-STAND-AMT-LOC.
608400
608500     IF (P-NEW-PROVIDER-NO = '380040')
608600         MOVE '   38' TO HOLD-PROV-CBSA
608700                        P-NEW-CBSA-STAND-AMT-LOC.
608800
608900     IF (P-NEW-PROVIDER-NO = '390130' OR '390183' OR
609000                             '390233')
609100         MOVE '   39' TO HOLD-PROV-CBSA
609200                        P-NEW-CBSA-STAND-AMT-LOC.
609300
609400     IF (P-NEW-PROVIDER-NO = '450052' OR '450078' OR
609500                             '450243' OR '450348')
609600         MOVE '   45' TO HOLD-PROV-CBSA
609700                        P-NEW-CBSA-STAND-AMT-LOC.
609800
609900     IF (P-NEW-PROVIDER-NO = '490116')
610000         MOVE '   49' TO HOLD-PROV-CBSA
610100                        P-NEW-CBSA-STAND-AMT-LOC.
610200
610300     IF (P-NEW-PROVIDER-NO = '500148')
610400         MOVE '   50' TO HOLD-PROV-CBSA
610500                        P-NEW-CBSA-STAND-AMT-LOC.
610600
610700
610800 2800-2011-EXIT.   EXIT.
610900
611000
611100 2800-2012-WI-401-HOSPITAL.
611200***************************************************************
611300****  FOR FY 2012 SECTION 401 HOSPITALS EFFECTIVE OCT 1, 2011 *
611400***************************************************************
611500*
611600
611700     IF (P-NEW-PROVIDER-NO = '040118')
611800         MOVE '   04' TO HOLD-PROV-CBSA
611900                        P-NEW-CBSA-STAND-AMT-LOC.
612000
612100     IF (P-NEW-PROVIDER-NO = '050192' OR
612200                             '050528' OR '050618')
612300         MOVE '   05' TO HOLD-PROV-CBSA
612400                        P-NEW-CBSA-STAND-AMT-LOC.
612500
612600     IF (P-NEW-PROVIDER-NO = '070004')
612700         MOVE '   07' TO HOLD-PROV-CBSA
612800                        P-NEW-CBSA-STAND-AMT-LOC.
612900
613000     IF (P-NEW-PROVIDER-NO = '100048' OR
613100                             '100118' OR '100134')
613200         MOVE '   10' TO HOLD-PROV-CBSA
613300                        P-NEW-CBSA-STAND-AMT-LOC.
613400
613500     IF (P-NEW-PROVIDER-NO = '140167')
613600         MOVE '   14' TO HOLD-PROV-CBSA
613700                        P-NEW-CBSA-STAND-AMT-LOC.
613800
613900     IF (P-NEW-PROVIDER-NO = '150003')
614000         MOVE '   15' TO HOLD-PROV-CBSA
614100                        P-NEW-CBSA-STAND-AMT-LOC.
614200
614300     IF (P-NEW-PROVIDER-NO = '170074' OR '170137')
614400         MOVE '   17' TO HOLD-PROV-CBSA
614500                        P-NEW-CBSA-STAND-AMT-LOC.
614600
614700     IF (P-NEW-PROVIDER-NO = '180016' OR '180038')
614800         MOVE '   18' TO HOLD-PROV-CBSA
614900                        P-NEW-CBSA-STAND-AMT-LOC.
615000
615100     IF (P-NEW-PROVIDER-NO = '220051')
615200         MOVE '   22' TO HOLD-PROV-CBSA
615300                        P-NEW-CBSA-STAND-AMT-LOC.
615400
615500     IF (P-NEW-PROVIDER-NO = '230040' OR '230078')
615600         MOVE '   23' TO HOLD-PROV-CBSA
615700                        P-NEW-CBSA-STAND-AMT-LOC.
615800
615900     IF (P-NEW-PROVIDER-NO = '260006' OR '260034' OR
616000                             '260047' OR '260195')
616100         MOVE '   26' TO HOLD-PROV-CBSA
616200                        P-NEW-CBSA-STAND-AMT-LOC.
616300
616400     IF (P-NEW-PROVIDER-NO = '300023')
616500         MOVE '   30' TO HOLD-PROV-CBSA
616600                        P-NEW-CBSA-STAND-AMT-LOC.
616700
616800     IF (P-NEW-PROVIDER-NO = '330013' OR '330057' OR
616900                             '330108' OR '330164' OR
617000                             '330215' OR '330235' OR
617100                             '330268' OR '330285')
617200         MOVE '   33' TO HOLD-PROV-CBSA
617300                        P-NEW-CBSA-STAND-AMT-LOC.
617400
617500     IF (P-NEW-PROVIDER-NO = '340010')
617600         MOVE '   34' TO HOLD-PROV-CBSA
617700                        P-NEW-CBSA-STAND-AMT-LOC.
617800
617900     IF (P-NEW-PROVIDER-NO = '360125')
618000         MOVE '   36' TO HOLD-PROV-CBSA
618100                        P-NEW-CBSA-STAND-AMT-LOC.
618200
618300     IF (P-NEW-PROVIDER-NO = '370054')
618400         MOVE '   37' TO HOLD-PROV-CBSA
618500                        P-NEW-CBSA-STAND-AMT-LOC.
618600
618700     IF (P-NEW-PROVIDER-NO = '380040')
618800         MOVE '   38' TO HOLD-PROV-CBSA
618900                        P-NEW-CBSA-STAND-AMT-LOC.
619000
619100     IF (P-NEW-PROVIDER-NO = '390130' OR '390183' OR
619200                             '390233')
619300         MOVE '   39' TO HOLD-PROV-CBSA
619400                        P-NEW-CBSA-STAND-AMT-LOC.
619500
619600     IF (P-NEW-PROVIDER-NO = '420038')
619700         MOVE '   42' TO HOLD-PROV-CBSA
619800                        P-NEW-CBSA-STAND-AMT-LOC.
619900
620000     IF (P-NEW-PROVIDER-NO = '450052' OR '450078' OR
620100                             '450243' OR '450348')
620200         MOVE '   45' TO HOLD-PROV-CBSA
620300                        P-NEW-CBSA-STAND-AMT-LOC.
620400
620500     IF (P-NEW-PROVIDER-NO = '490116' OR '490116')
620600         MOVE '   49' TO HOLD-PROV-CBSA
620700                        P-NEW-CBSA-STAND-AMT-LOC.
620800
620900     IF (P-NEW-PROVIDER-NO = '500148')
621000         MOVE '   50' TO HOLD-PROV-CBSA
621100                        P-NEW-CBSA-STAND-AMT-LOC.
621200
621300
621400 2800-2012-EXIT.   EXIT.
621500
621600 2800-2013-WI-401-HOSPITAL.
621700***************************************************************
621800****  FOR FY 2013 SECTION 401 HOSPITALS EFFECTIVE OCT 1, 2012 *
621900***************************************************************
622000*
622100
622200     IF (P-NEW-PROVIDER-NO = '290009')
622300         MOVE '   29' TO HOLD-PROV-CBSA
622400                        P-NEW-CBSA-STAND-AMT-LOC.
622500
622600     IF (P-NEW-PROVIDER-NO = '030024')
622700         MOVE '   03' TO HOLD-PROV-CBSA
622800                        P-NEW-CBSA-STAND-AMT-LOC.
622900
623000     IF (P-NEW-PROVIDER-NO = '050192' OR
623100                             '050528' OR '050618')
623200         MOVE '   05' TO HOLD-PROV-CBSA
623300                        P-NEW-CBSA-STAND-AMT-LOC.
623400
623500     IF (P-NEW-PROVIDER-NO = '070004')
623600         MOVE '   07' TO HOLD-PROV-CBSA
623700                        P-NEW-CBSA-STAND-AMT-LOC.
623800
623900     IF (P-NEW-PROVIDER-NO = '100048' OR '100090' OR
624000                             '100118' OR '100134')
624100         MOVE '   10' TO HOLD-PROV-CBSA
624200                        P-NEW-CBSA-STAND-AMT-LOC.
624300
624400     IF (P-NEW-PROVIDER-NO = '170074' OR '170137')
624500         MOVE '   17' TO HOLD-PROV-CBSA
624600                        P-NEW-CBSA-STAND-AMT-LOC.
624700
624800     IF (P-NEW-PROVIDER-NO = '180016' OR '180038')
624900         MOVE '   18' TO HOLD-PROV-CBSA
625000                        P-NEW-CBSA-STAND-AMT-LOC.
625100
625200     IF (P-NEW-PROVIDER-NO = '220051')
625300         MOVE '   22' TO HOLD-PROV-CBSA
625400                        P-NEW-CBSA-STAND-AMT-LOC.
625500
625600     IF (P-NEW-PROVIDER-NO = '230040' OR '230078')
625700         MOVE '   23' TO HOLD-PROV-CBSA
625800                        P-NEW-CBSA-STAND-AMT-LOC.
625900
626000     IF (P-NEW-PROVIDER-NO = '260006' OR '260034' OR
626100                             '260047' OR '260195')
626200         MOVE '   26' TO HOLD-PROV-CBSA
626300                        P-NEW-CBSA-STAND-AMT-LOC.
626400
626500     IF (P-NEW-PROVIDER-NO = '330108' OR
626600                             '330215' OR '330235' OR
626700                             '330268')
626800         MOVE '   33' TO HOLD-PROV-CBSA
626900                        P-NEW-CBSA-STAND-AMT-LOC.
627000
627100     IF (P-NEW-PROVIDER-NO = '340010')
627200         MOVE '   34' TO HOLD-PROV-CBSA
627300                        P-NEW-CBSA-STAND-AMT-LOC.
627400
627500     IF (P-NEW-PROVIDER-NO = '350011')
627600         MOVE '   35' TO HOLD-PROV-CBSA
627700                        P-NEW-CBSA-STAND-AMT-LOC.
627800
627900     IF (P-NEW-PROVIDER-NO = '360125' OR '360141')
628000         MOVE '   36' TO HOLD-PROV-CBSA
628100                        P-NEW-CBSA-STAND-AMT-LOC.
628200
628300     IF (P-NEW-PROVIDER-NO = '370054')
628400         MOVE '   37' TO HOLD-PROV-CBSA
628500                        P-NEW-CBSA-STAND-AMT-LOC.
628600
628700     IF (P-NEW-PROVIDER-NO = '380040')
628800         MOVE '   38' TO HOLD-PROV-CBSA
628900                        P-NEW-CBSA-STAND-AMT-LOC.
629000
629100     IF (P-NEW-PROVIDER-NO = '390130' OR '390183' OR
629200                             '390233')
629300         MOVE '   39' TO HOLD-PROV-CBSA
629400                        P-NEW-CBSA-STAND-AMT-LOC.
629500
629600     IF (P-NEW-PROVIDER-NO = '420009' OR '420038')
629700         MOVE '   42' TO HOLD-PROV-CBSA
629800                        P-NEW-CBSA-STAND-AMT-LOC.
629900
630000     IF (P-NEW-PROVIDER-NO = '440189')
630100         MOVE '   44' TO HOLD-PROV-CBSA
630200                        P-NEW-CBSA-STAND-AMT-LOC.
630300
630400     IF (P-NEW-PROVIDER-NO = '450052' OR '450078' OR
630500                             '450243' OR '450348')
630600         MOVE '   45' TO HOLD-PROV-CBSA
630700                        P-NEW-CBSA-STAND-AMT-LOC.
630800
630900     IF (P-NEW-PROVIDER-NO = '490004' OR '490005' OR
631000                             '490116')
631100         MOVE '   49' TO HOLD-PROV-CBSA
631200                        P-NEW-CBSA-STAND-AMT-LOC.
631300
631400     IF (P-NEW-PROVIDER-NO = '500030' OR '500148')
631500         MOVE '   50' TO HOLD-PROV-CBSA
631600                        P-NEW-CBSA-STAND-AMT-LOC.
631700
631800 2800-2013-EXIT.   EXIT.
631900
632000
632100 2800-2014-WI-401-HOSPITAL.
632200***************************************************************
632300****  FOR FY 2014 SECTION 401 HOSPITALS EFFECTIVE OCT 1, 2012 *
632400***************************************************************
632500*
632600
632700     IF (P-NEW-PROVIDER-NO = '050192' OR
632800                             '050225' OR
632900                             '050528' OR
633000                             '050618')
633100         MOVE '   05' TO HOLD-PROV-CBSA
633200                        P-NEW-CBSA-STAND-AMT-LOC.
633300
633400     IF (P-NEW-PROVIDER-NO = '060010')
633500         MOVE '   06' TO HOLD-PROV-CBSA
633600                        P-NEW-CBSA-STAND-AMT-LOC.
633700
633800     IF (P-NEW-PROVIDER-NO = '070004' OR
633900                             '070005')
634000         MOVE '   07' TO HOLD-PROV-CBSA
634100                        P-NEW-CBSA-STAND-AMT-LOC.
634200
634300     IF (P-NEW-PROVIDER-NO = '100048' OR
634400                             '100090' OR
634500                             '100118' OR
634600                             '100134')
634700         MOVE '   10' TO HOLD-PROV-CBSA
634800                        P-NEW-CBSA-STAND-AMT-LOC.
634900
635000     IF (P-NEW-PROVIDER-NO = '140059' OR
635100                             '140145')
635200         MOVE '   14' TO HOLD-PROV-CBSA
635300                        P-NEW-CBSA-STAND-AMT-LOC.
635400
635500     IF (P-NEW-PROVIDER-NO = '170074' OR
635600                             '170137')
635700         MOVE '   17' TO HOLD-PROV-CBSA
635800                        P-NEW-CBSA-STAND-AMT-LOC.
635900
636000     IF (P-NEW-PROVIDER-NO = '180016' OR
636100                             '180038')
636200         MOVE '   18' TO HOLD-PROV-CBSA
636300                        P-NEW-CBSA-STAND-AMT-LOC.
636400
636500     IF (P-NEW-PROVIDER-NO = '190008')
636600         MOVE '   19' TO HOLD-PROV-CBSA
636700                        P-NEW-CBSA-STAND-AMT-LOC.
636800
636900     IF (P-NEW-PROVIDER-NO = '220051')
637000         MOVE '   22' TO HOLD-PROV-CBSA
637100                        P-NEW-CBSA-STAND-AMT-LOC.
637200
637300     IF (P-NEW-PROVIDER-NO = '230040' OR
637400                             '230078')
637500         MOVE '   23' TO HOLD-PROV-CBSA
637600                        P-NEW-CBSA-STAND-AMT-LOC.
637700
637800     IF (P-NEW-PROVIDER-NO = '260006' OR
637900                             '260034' OR
638000                             '260047' OR
638100                             '260195')
638200         MOVE '   26' TO HOLD-PROV-CBSA
638300                        P-NEW-CBSA-STAND-AMT-LOC.
638400
638500     IF (P-NEW-PROVIDER-NO = '290009')
638600         MOVE '   29' TO HOLD-PROV-CBSA
638700                        P-NEW-CBSA-STAND-AMT-LOC.
638800
638900     IF (P-NEW-PROVIDER-NO = '330108' OR
639000                             '330235' OR
639100                             '330268')
639200         MOVE '   33' TO HOLD-PROV-CBSA
639300                        P-NEW-CBSA-STAND-AMT-LOC.
639400
639500     IF (P-NEW-PROVIDER-NO = '340010')
639600         MOVE '   34' TO HOLD-PROV-CBSA
639700                        P-NEW-CBSA-STAND-AMT-LOC.
639800
639900     IF (P-NEW-PROVIDER-NO = '350011' OR
640000                             '350015')
640100         MOVE '   35' TO HOLD-PROV-CBSA
640200                        P-NEW-CBSA-STAND-AMT-LOC.
640300
640400     IF (P-NEW-PROVIDER-NO = '360125')
640500         MOVE '   36' TO HOLD-PROV-CBSA
640600                        P-NEW-CBSA-STAND-AMT-LOC.
640700
640800     IF (P-NEW-PROVIDER-NO = '370054')
640900         MOVE '   37' TO HOLD-PROV-CBSA
641000                        P-NEW-CBSA-STAND-AMT-LOC.
641100
641200     IF (P-NEW-PROVIDER-NO = '380040')
641300         MOVE '   38' TO HOLD-PROV-CBSA
641400                        P-NEW-CBSA-STAND-AMT-LOC.
641500
641600     IF (P-NEW-PROVIDER-NO = '390130' OR
641700                             '390183' OR
641800                             '390211')
641900         MOVE '   39' TO HOLD-PROV-CBSA
642000                        P-NEW-CBSA-STAND-AMT-LOC.
642100
642200     IF (P-NEW-PROVIDER-NO = '420009' OR
642300                             '420038')
642400         MOVE '   42' TO HOLD-PROV-CBSA
642500                        P-NEW-CBSA-STAND-AMT-LOC.
642600
642700     IF (P-NEW-PROVIDER-NO = '450052' OR
642800                             '450078' OR
642900                             '450243' OR
643000                             '450348')
643100         MOVE '   45' TO HOLD-PROV-CBSA
643200                        P-NEW-CBSA-STAND-AMT-LOC.
643300
643400     IF (P-NEW-PROVIDER-NO = '490004' OR
643500                             '490116')
643600         MOVE '   49' TO HOLD-PROV-CBSA
643700                        P-NEW-CBSA-STAND-AMT-LOC.
643800
643900     IF (P-NEW-PROVIDER-NO = '500030' OR
644000                             '500148')
644100         MOVE '   50' TO HOLD-PROV-CBSA
644200                        P-NEW-CBSA-STAND-AMT-LOC.
644300
644400     IF (P-NEW-PROVIDER-NO = '510039')
644500         MOVE '   51' TO HOLD-PROV-CBSA
644600                        P-NEW-CBSA-STAND-AMT-LOC.
644700
644800 2800-2014-EXIT.   EXIT.
644900
645000***************************************************************
645100******       L A S T   S O U R C E   S T A T E M E N T    *****
