000100******************************************************************
000200*   This is the BILL-RECORD that will be passed to and returned  *
000300*   from the ESCALxx program.                                    *
000400******************************************************************
000500*INPUT to the Calculating subroutine from the Driver subroutine. *
000600******************************************************************
000700
000800 01  BILL-NEW-DATA.
000900     05  BILL-PORTION.
001000         10  B-COND-CODE            PIC X(02).                     001-002
001100         10  B-REV-CODE.
001200             15  B-REV-CODE3        PIC X(03).                     003-005
001300             15  FILLER             PIC X(01).                     006-006
001400         10  B-PATIENT-HGT          PIC 9(07)V9(02).               007-015
001500         10  B-PATIENT-HEIGHT  REDEFINES  B-PATIENT-HGT
001600                                    PIC 9(09).                     007-015
001700         10  B-PATIENT-WGT          PIC 9(07)V9(02).               016-024
001800         10  B-PATIENT-WEIGHT  REDEFINES  B-PATIENT-WGT
001900                                    PIC 9(09).                     016-024
002000         10  B-THRU-DATE.
002100             15  B-THRU-CCYY        PIC 9(04).                     025-028
002200             15  B-THRU-MM          PIC 9(02).                     029-030
002300             15  B-THRU-DD          PIC 9(02).                     031-032
002400         10  B-DOB-DATE.
002500             15  B-DOB-CCYY         PIC 9(04).                     033-036
002600             15  B-DOB-MM           PIC 9(02).                     037-038
002700             15  B-DOB-DD           PIC 9(02).                     039-040
002800         10  FILLER                 PIC X(20).                     041-060
002900     05  PROVIDER-SPECIFIC-FILE-PORTION.
003000         10  P-NPI                  PIC X(08).                     061-068
003100         10  P-NPI-FILLER           PIC X(02).                     069-070
003200         10  P-PROV-OSCAR           PIC X(06).                     071-076
003300         10  P-GEO-MSA              PIC X(04).                     077-080
003400         10  P-GEO-CBSA             PIC X(05).                     081-085
003500         10  P-SPEC-PYMT-IND        PIC X(01).                     086-086
003600         10  P-PROV-TYPE            PIC X(02).                     087-088
003700         10  P-SPEC-WAGE-INDX       PIC 9(02)V9(04).               089-094
003800         10  P-ESRD-RATE            PIC 9(07)V9(02).               095-103
003900         10  P-PROV-WAIVE-BLEND-PAY-INDIC
004000                                    PIC X(01).                     104-104
004100         10  P-PROV-LOW-VOLUME-INDIC
004200                                    PIC X(01).                     105-105
004300         10  P-PACIFIC-IS-TRUST-TERR
004400                                    PIC X(01).                     106-106
004500         10  P-QIP-REDUCTION        PIC X(01).                     107-107
004600         10  FILLER                 PIC X(15).                     108-122
004700         10  OLD-TEST-INDICATOR     PIC X(01).                     123-123
004800             88  OLD-TEST-CASE               VALUE 'T'.
004900         10  FILLER                 PIC X(23).                     124-146
005000     05  BUNDLED-BILL-PORTION.
005100         10  B-CLAIM-NUM-DIALYSIS-SESSIONS
005200                                    PIC 9(02).                     147-148
005300         10  B-LINE-ITEM-DATE-SERVICE.
005400             15  B-LINE-ITEM-DT-SVC-CCYY
005500                                    PIC 9(04).                     149-152
005600             15  B-LINE-ITEM-DT-SVC-MM
005700                                    PIC 9(02).                     153-154
005800             15  B-LINE-ITEM-DT-SVC-DD
005900                                    PIC 9(02).                     155-156
006000         10  B-DIALYSIS-START-DATE.
006100             15  B-DIALYSIS-START-DT-CCYY
006200                                    PIC 9(04).                     157-160
006300             15  B-DIALYSIS-START-DT-MM
006400                                    PIC 9(02).                     161-162
006500             15  B-DIALYSIS-START-DT-DD
006600                                    PIC 9(02).                     163-164
006700         10  B-TOT-PRICE-SB-OUTLIER PIC 9(07)V9(02).               165-173
006800         10  FILLER                 PIC X(40).                     174-213
006900     05  COMORBIDITIES-PORTION.
007000         10  COMORBID-DATA    OCCURS 6 TIMES
007100                INDEXED BY COMORBID-INDEX
007200                                    PIC X(02).                     214-225
007300         10  COMORBID-RECURRENCE-COND-CODE
007400                                    PIC X(02).                     226-227
007500         10  COMORBID-CWF-RETURN-CODE
007600                                    PIC X(02).                     228-229
007700           88  VALID-COMORBID-CWF-RETURN-CD   VALUE '10',
007800                                                    '20',
007900                                                    '30',
008000                                                    '40',
008100                                                    '50',
008200                                                    '60',
008300                                                    '70'.
008400*  The following variables are from the old pricer and are used for
008500*testing purposes, displaying within the manager main program what
008600*went on in the calculating subroutine.
008700*Ther were removed from their old location to simplify matters and
008800*are inserted here in the exact same order that they appeared in old
008900*pricers.  The variable names have been kept the same so as to minimize
009000*recoding when inserting this linkage section into the old pricers to
009100*'bring them up to the 2011 record layout standards'.  They originally
009200*were redefining filler items (which they kind of still do, only now
009300*are inserted in the middle of the large filler area at the end of
009400*this record layout).  This filler area will eventually be used in
009500*up coming pricers, perhaps for the 25 ICD-10 procedure codes but
009600*hopefully after this bundled pricer gets settled down.
009700*Their level numbers have changed but nothing else.
009800     05  BILL-DATA-TEST.
009900         10  DRUG-ADD-ON-RETURN     PIC 9(01)V9(04).               230-234
010000         10  MSA-WAGE-ADJ           PIC 9(04)V9(02).               235-240
010100         10  COMP-CBSA-WAGE-ADJ   REDEFINES MSA-WAGE-ADJ
010200                                    PIC 9(04)V9(02).               235-240
010300         10  CBSA-WAGE-ADJ          PIC 9(04)V9(02).               241-246
010400         10  BUND-CBSA-WAGE-ADJ   REDEFINES CBSA-WAGE-ADJ
010500                                    PIC 9(04)V9(02).               241-246
010600         10  CBSA-WAGE-PMT-RATE     PIC 9(04)V9(02).               247-252
010700         10  COND-CD-73.
010800             15  FILLER             PIC X(01).                     253-253
010900             15  AMT-INDIC          PIC X(01).                     254-254
011000             15  FILLER             PIC X(01).                     255-255
011100             15  BLOOD-DOLLAR       PIC 9(02).                     256-257
011200             15  FILLER             PIC X(03).                     258-260
011300         10  COND-CD-74           REDEFINES  COND-CD-73.
011400             15  HEMO-CCPD-CAPD     PIC 9(02)V9(06).               258-260
011500         10  AGE-RETURN             PIC 9(03).                     261-263
011600         10  MSA-WAGE-AMT           PIC S9(04)V9(02).              264-269
011700         10  CBSA-WAGE-INDEX        PIC S9(02)V9(04).              270-275
011800         10  LABOR-PCT              PIC 9(01)V9(05).               276-281
011900         10  PPS-BMI                PIC 9(03)V9(04).               288-294
012000         10  PPS-BSA                PIC 9(03)V9(04).               295-301
012100         10  MSA-PCT                PIC 9(01)V9(02).               302-304
012200         10  CBSA-PCT               PIC 9(01)V9(02).               305-307
012300         10  COM-CBSA-PCT-BLEND     PIC 9(01)V9(02).               282-284
012400         10  BUN-CBSA-PCT-BLEND     PIC 9(01)V9(02).               285-287
012500         10  CASE-MIX-FCTR-ADJ-RATE PIC 9(07)V9(02).               308-316
012600* Bundled data (i.e. new PPS data)
012700         10  BUN-BSA                PIC 9(03)V9(04).               317-323
012800         10  BUN-BMI                PIC 9(03)V9(04).               324-330
012900         10  BUN-ONSET-FACTOR       PIC 9(01)V9(04).               331-335
013000         10  BUN-COMORBID-MULTIPLIER
013100                                    PIC 9(01)V9(03).               336-339
013200         10  BUN-WAGE-ADJ-TRAINING-AMT
013300                                    PIC 9(04)V9(04).               340-347
013400         10  BUN-LOW-VOL-MULTIPLIER PIC 9(01)V9(03).               348-351
013500         10  FILLER                 PIC X(18).                     352-369
013600* Outlier data
013700         10  OUT-AGE-FACTOR         PIC 9(01)V9(03).               370-373
013800         10  OUT-BSA                PIC 9(03)V9(04).               374-380
013900         10  OUT-BSA-FACTOR         PIC 9(01)V9(04).               381-385
014000         10  OUT-BMI                PIC 9(03)V9(04).               386-392
014100         10  OUT-BMI-FACTOR         PIC 9(01)V9(04).               393-397
014200         10  OUT-ONSET-FACTOR       PIC 9(01)V9(04).               398-402
014300         10  OUT-COMORBID-MULTIPLIER
014400                                    PIC 9(01)V9(03).               403-406
014500         10  OUT-LOW-VOL-MULTIPLIER PIC 9(01)V9(03).               407-410
014600         10  OUT-ADJ-AVG-MAP-AMT    PIC 9(03)V9(02).               411-415
014700         10  OUT-LOSS-SHARING-PCT   PIC 9(01)V9(02).               416-418
014800         10  OUT-IMPUTED-MAP        PIC 9(04)V9(04).               419-426
014900         10  OUT-FIX-DOLLAR-LOSS    PIC 9(04)V9(02).               427-432
015000         10  OUT-PREDICTED-MAP      PIC 9(07)V9(04).               433-443
015100         10  OUT-PREDICTED-SERVICES-MAP
015200                                    PIC 9(02)V9(04).               444-449
015300     05  BUNDLED-TEST-INDIC         PIC X(01).                     450-450
015400       88  BUNDLED-TEST                       VALUE 'T'.
015500
015600******************************************************************
015700*OUTPUT from Calculating subroutine returned the Driver program. *
015800******************************************************************
015900
016000 01  PPS-DATA-ALL.
016100     05  PPS-RTC                    PIC 9(02).                     001-002
016200     05  PPS-DATA.
016300         10  PPS-MSA                PIC X(04).                     003-006
016400         10  PPS-CBSA               PIC X(05).                     007-011
016500         10  PPS-WAGE-ADJ-RATE      PIC 9(04)V9(02).               012-017
016600         10  PPS-FINAL-PAY-AMT      PIC 9(07)V9(02).               018-026
016700         10  PPS-CALC-VERS-CD       PIC X(05).                     027-031
016800         10  PPS-COND-CODE          PIC X(02).                     032-033
016900         10  PPS-REV-CODE           PIC X(04).                     034-037
017000         10  PPS-2011-WAGE-ADJ-RATE PIC 9(04)V9(02).               038-043
017100         10  PPS-2011-NAT-LABOR-PCT PIC 9(01)V9(05).               044-049
017200         10  PPS-2011-NAT-NONLABOR-PCT
017300                                    PIC 9(01)V9(05).               050-055
017400         10  FILLER                 PIC X(02).                     056-057
017500     05  PPS-OTHER-DATA.
017600         10  PPS-NAT-LABOR-PCT      PIC 9(01)V9(05).               058-063
017700         10  PPS-NAT-NONLABOR-PCT   PIC 9(01)V9(05).               064-069
017800         10  PPS-AGE-FACTOR         PIC 9(01)V9(03).               070-073
017900         10  PPS-BSA-FACTOR         PIC 9(01)V9(04).               074-078
018000         10  PPS-BMI-FACTOR         PIC 9(01)V9(04).               079-083
018100         10  PPS-BDGT-NEUT-RATE     PIC 9(01)V9(04).               084-088
018200         10  PPS-2011-AGE-FACTOR    PIC 9(01)V9(03).               089-092
018300         10  PPS-2011-BSA-FACTOR    PIC 9(01)V9(04).               093-097
018400         10  PPS-2011-BMI-FACTOR    PIC 9(01)V9(04).               098-102
018500         10  PPS-2011-BDGT-NEUT-RATE
018600                                    PIC 9(01)V9(04).               103-107
018700         10  FILLER                 PIC X(01).                     108-108
018800     05  PPS-BUNDLED-DATA.
018900         10  PPS-2011-COMORBID-DATA.
019000             15  PPS-2011-COMORBID-MA
019100                                    PIC X(02).                     109-110
019200             15  PPS-2011-COMORBID-MA-CC
019300                                    PIC X(02).                     111-112
019400             15  PPS-2011-COMORBID-PAY
019500                                    PIC X(02).                     113-114
019600             15  FILLER             PIC X(24).                     115-138
019700         10  PPS-2011-FULL-COMP-RATE
019800                                    PIC 9(07)V9(02).               139-147
019900         10  PPS-2011-BLEND-COMP-RATE
020000                                    PIC 9(07)V9(02).               148-156
020100         10  PPS-2011-FULL-PPS-RATE
020200                                    PIC 9(07)V9(02).               157-165
020300         10  PPS-2011-BLEND-PPS-RATE
020400                                    PIC 9(07)V9(02).               166-174
020500         10  PPS-2011-FULL-OUTLIER-RATE
020600                                    PIC 9(07)V9(02).               175-183
020700         10  PPS-2011-BLEND-OUTLIER-RATE
020800                                    PIC 9(07)V9(02).               184-192
020900     05  MSA-ADJ-YEAR-AMT           PIC 9(04)V9(02).               193-198
021000     05  PPS-LOW-VOL-AMT         REDEFINES MSA-ADJ-YEAR-AMT        193-198
021100                                    PIC 9(04)V9(02).               193-198
021200     05  OUT-CASE-MIX-PREDICTED-MAP PIC 9(04)V9(04).
021300     05  OUT-HEMO-EQUIV-DIAL-SESSIONS
021400                                    PIC 9(02)V9(04).
021500     05  OUT-SB-BSA                 PIC 9(01)V9(03).
021600     05  OUT-SB-BMI                 PIC 9(01)V9(03).
021700     05  A-49-CENT-DRUG-ADJ         PIC 9(01)V9(02).
021800     05  PPS-CM-BSA                 PIC 9(01)V9(03).
021900     05  PPS-CM-BMI-LT-18-5         PIC 9(01)V9(03).
022000     05  PPS-BUN-BASE-PMT-RATE      PIC 9(04)V9(02).
022100     05  BUN-ADJUSTED-BASE-WAGE-AMT PIC 9(07)V9(04).
022200     05  CR-BSA-MULTIPLIER          PIC 9(01)V9(03).
022300     05  CR-BMI-MULTIPLIER          PIC 9(01)V9(03).
022400     05  PPS-BUN-CBSA-W-INDEX       PIC 9(02)V9(04).
022500     05  PPS-BUN-WAGE-ADJ-TRAIN-AMT PIC 9(07)V9(04).
022600     05  PPS-TRAINING-ADD-ON-PMT-AMT
022700                                    PIC 9(02)V9(02).
022800     05  OUT-NON-PER-DIEM-PAYMENT   PIC 9(07)V9(04).
022900     05  COM-PAYMENT-RATE           PIC 9(04)V9(02).
023000     05  FILLER                     PIC X(102).                    205-300
