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