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