000100*****************************************************************
000200*      This copylib is for use on the ....MAINFRAME ONLY....    *
000300*This version of the copylib eliminates the Micro Focus non     *
000400*standard usage of "PIC x(04) comp-5" pictures.  Instead it     *
000500*eliminates the "comp-5" from the picture clauses where it      *
000600*appears with a "PIC x(4)" in order to avoid compile errors.    *
000700*The variables within this copylib are only used on the PC and  *
000800*therefore do not affect the running of the program on the      *
000900*mainframe.  This copylib should NEVER be used as a copylib on  *
001000*the PC in Micro Focus.
001100*     HOWEVER, anytime a variable is added, deleted, or changed *
001200*on the GUI screenset it needs to be updated from the PC version*
001300*The PC version is   ...ALWAYS...   updated first by using the  *
001400*screenset dropdown "Data block" under the screenset tab within *
001500*the Dialog System and then "generating" a datablock copy.  Once*
001600*this is done, then the file named "esrdgui.cpb" should be      *
001700*uploaded to the mainframe   AND  this entire commented area    *
001800*placed (cut and paste) at the top for documentation purposes.  *
001900*Of course the "comp-5" must be removed from the PIC x(4)       *
002000*variables before saving the file.                              *
002100*****************************************************************
002200
002300*****************************************************************
002400*   Data Block
002500*****************************************************************
002600
002700 01 DATA-BLOCK-VERSION-NO              PIC 9(8) COMP-5
002800                                       VALUE 50.
002900
003000 01 VERSION-NO                         PIC 9(2) COMP-5 VALUE
003100                                         2.
003200
003300 01 SET-BUILD-NO                       PIC 9(4) COMP-5
003400                                       VALUE 70.
003500
003600 01 DATA-BLOCK.
003700    03 EXIT-FLAG                       PIC 9.
003800       88 EXIT-FLAG-TRUE               VALUE 1.
003900    03 CONFIG-FLAG                     PIC x(4).
004000    03 CONFIG-VALUE                    PIC x(4).
004100    03 DSMDI-PARAMETERS.
004200       05 DSMDI-PARENT                 PIC x(4).
004300       05 DSMDI-FUNCTION               PIC X(4).
004400       05 DSMDI-RETURN                 PIC x(4).
004500       05 DSMDI-BITMAP                 PIC X(30).
004600       05 DSMDI-BITMAP-STYLE           PIC 9.
004700          88 DSMDI-BITMAP-STYLE-TRUE   VALUE 1.
004800    03 DSMDI-RESTRICT.
004900       05 DSMDI-LEFT                   PIC x(4).
005000       05 DSMDI-TOP                    PIC x(4).
005100       05 DSMDI-RIGHT                  PIC x(4).
005200       05 DSMDI-BOTTOM                 PIC x(4).
005300*-----------------------------------------------------
005400*  All variables below inserted by me
005500*-----------------------------------------------------
005600    03 G-FACILITY-TYPE-DESC            PIC X(14).
005700    03 G-DRIVE                         PIC X(2).
005800    03 G-PROV-DIR-OPT                  PIC X.
005900    03 G-BUTTON-CODE                   PIC X(11).
006000    03 G-CONFIRM-EXIT-CODE             PIC 9.
006100       88 G-CONFIRM-EXIT-CODE-TRUE     VALUE 1.
006200    03 G-EFF-DT-FOUND-SW               PIC X.
006300    03 G-PROV-FOUND-SW                 PIC X.
006400    03 G-MSA-FOUND-SW                  PIC X.
006500    03 G-CBSA-FOUND-SW                 PIC X.
006600    03 G-IPPS-CBSA-FOUND-SW            PIC X.
006700    03 G-CLEAR-SCREEN-CD               PIC 9.
006800       88 G-CLEAR-SCREEN-CD-TRUE       VALUE 1.
006900    03 G-CHANGE-PROV-STEP              PIC X.
007000    03 G-CHANGE-FLAG                   PIC X.
007100    03 G-CHANGE-CNT                    PIC 9(2).
007200    03 G-CHANGE-CONFIRM                PIC 9.
007300       88 G-CHANGE-CONFIRM-TRUE        VALUE 1.
007400    03 G-ERROR-MSG-FIELD               PIC X(72).
007500    03 G-ADD-ALLOWED-SW                PIC X.
007600    03 G-NEW-PROV-STEP                 PIC X.
007700    03 G-ADD-CONFIRM                   PIC 9.
007800       88 G-ADD-CONFIRM-TRUE           VALUE 1.
007900    03 G-ADD-OK                        PIC 9.
008000       88 G-ADD-OK-TRUE                VALUE 1.
008100    03 G-FILE-NAME                     PIC X(13).
008200    03 G-FILE-STATUS                   PIC 9(2).
008300    03 G-FILE-ERROR-DESC               PIC X(69).
008400    03 G-MAJOR-FILE-ERR-SW             PIC X.
008500    03 G-CURRENT-MSA-SW                PIC X.
008600    03 G-CURRENT-CBSA-SW               PIC X.
008700    03 G-CURRENT-IPPS-CBSA-SW          PIC X.
008800    03 G-CURRENT-PROV-SW               PIC X.
008900    03 G-SPACE-IN-PROV-NO              PIC X.
009000    03 VERSION-INFO.
009100       05 G-RATE-YEAR                  PIC X(18).
009200       05 G-GROUPER-VERSION            PIC X(4).
009300       05 G-PROVFILE-UPDT-QTR          PIC X(30).
009400       05 G-START-DISCHARGE-DATE       PIC X(10).
009500       05 G-END-DISCHARGE-DATE         PIC X(10).
009600    03 PAGE-OCCURRENCE                 PIC 9.
009700       88 PAGE-OCCURRENCE-TRUE         VALUE 1.
009800    03 G-ASTERISK                      PIC X.
009900*-----------------------------------------------------
010000* Message Box variables
010100*-----------------------------------------------------
010200    03 OTHER-RECORD-TEXT               PIC X(52).
010300    03 NO-OTHER-RECORD-TEXT            PIC X(45).
010400    03 CONFIRM-EXIT-CODE               PIC 9.
010500       88 CONFIRM-EXIT-CODE-TRUE       VALUE 1.
010600*-----------------------------------------------------
010700* TO INDICATE WHETHER MSA OR CBSA USED ON PPS SCREEN
010800*-----------------------------------------------------
010900    03 G-MSA-FLAG                      PIC X.
011000    03 G-CBSA-FLAG                     PIC X.
011100    03 G-MSA-IND                       PIC X(3).
011200    03 G-CBSA-IND                      PIC X(3).
011300    03 G-PRICER-BEGIN-DT               PIC X(18).
011400    03 G-PRICER-END-DT                 PIC X(18).
011500    03 G-PRICER-VERSION                PIC X(13).
011600    03 G-P-MSA                         PIC X(4).
011700    03 G-P-MSA-NAME                    PIC X(27).
011800    03 G-P-CBSA                        PIC X(5).
011900    03 G-P-CBSA-NAME                   PIC X(27).
012000*-----------------------------------------------------
012100* These variables needed to display on CR PPS Screen
012200*-----------------------------------------------------
012300    03 G-MSA-PERCENT                   PIC 9(3).
012400    03 G-CBSA-PERCENT                  PIC 9(3).
012500    03 G-HICAN                         PIC X(13).
012600    03 G-PPS-CLAIM-THRU-DATE           PIC X(10).
012700    03 G-TRAINING-DAILY-RATE           PIC X(25).
012800    03 G-TRAINING-LINE-1               PIC X(45).
012900    03 G-TRAINING-LINE-2               PIC X(45).
013000    03 G-TRAINING-LINE-3               PIC X(45).
013100    03 G-TRAINING-AMT                  PIC 9(2).
013200    03 G-2006-MSA-WAGE-AMT             PIC 9(4)V9(2).
013300    03 G-2007-MSA-WAGE-AMT             PIC 9(4)V9(2).
013400    03 G-2008-MSA-WAGE-AMT             PIC 9(4)V9(2).
013500    03 G-2008-MSA-WAGE-ADJ             PIC 9(4)V9(2).
013600    03 G-MSA-LINE-1                    PIC X(31).
013700    03 G-MSA-LINE-2                    PIC X(31).
013800    03 G-MSA-LINE-3                    PIC X(31).
013900    03 G-MSA-LINE-4                    PIC X(31).
014000    03 G-MSA-LINE-5                    PIC X(31).
014100    03 G-CBSA-LINE-1                   PIC X(31).
014200    03 G-CBSA-LINE-2                   PIC X(31).
014300    03 G-CBSA-LINE-3                   PIC X(31).
014400    03 G-CBSA-LINE-4                   PIC X(31).
014500    03 G-CBSA-LINE-5                   PIC X(31).
014600    03 G-CBSA-LINE-6                   PIC X(31).
014700*-----------------------------------------------------
014800* These variables to display on NEW PPS Screen   TAB-1
014900*-----------------------------------------------------
015000*Max variable characters is 23
015100*LN   = LINE  CR = COMPOSITE RATE  CM = CASE-MIX
015200*NEUT = NEUTRALITY  ADJ = ADJUST  PMT = PAYMENT OR PMT
015300    03 G-BUN-CALC-VERS-CD              PIC X(5).
015400    03 G-PPS-DATE-OF-SERVICE           PIC X(10).
015500    03 G-HICAN2                        PIC X(13).
015600*----PPS COLUMN
015700    03 G-PPS-11-WAGE-ADJ-RATE          PIC 9(5)V9(2).
015800    03 G-PPS-11-AGE-FACTOR             PIC 9V9(3).
015900    03 G-PPS-11-BSA-FACTOR             PIC 9V9(4).
016000    03 G-PPS-11-BMI-FACTOR             PIC 9V9(4).
016100    03 G-PPS-ONSET-FACTOR              PIC 9V9(4).
016200    03 G-PPS-COMORBID-FACTOR           PIC 9V9(4).
016300    03 G-PPS-LOW-VOL-FACTOR            PIC 9V9(4).
016400    03 G-PPS-ADJUSTED-RATE             PIC 9(5)V9(2).
016500    03 G-PPS-COND-CD-1-LN-9            PIC X(60).
016600    03 G-PPS-COND-CD-2-LN-10           PIC X(60).
016700    03 G-PPS-COND-CD-AMT-LN-10         PIC 9(5)V9(2).
016800    03 G-PPS-COND-CD-3-LN-11           PIC X(60).
016900    03 G-PPS-COND-CD-4-LN-12           PIC X(60).
017000    03 G-PPS-UNBLND-PPS-PMT            PIC X(60).
017100    03 G-PPS-UNBLNDPPS-PMT-AMT         PIC 9(5)V9(2).
017200    03 G-PPS-BLEND-RATE-LN-14          PIC X(40).
017300    03 G-PPS-BLEND-RATE-PCT            PIC X(4).
017400    03 G-PPS-BLENDED-PPS-PMT           PIC X(60).
017500    03 G-PPS-BLEND-RATE-2              PIC X(4).
017600    03 G-PPS-BLEND-PPS-PMT-AMT         PIC 9(5)V9(2).
017700    03 G-PPS-UN-BLEND-OUT-PMT          PIC X(60).
017800    03 G-PPS-OUT-PMT-AMT-2             PIC 9(5)V9(2).
017900    03 G-PPS-OUT-PMT-AMT               PIC 9(5)V9(4).
018000    03 G-PPS-BLNDED-CR-PMT             PIC X(60).
018100    03 G-PPS-BUDGET-NEUT-RATE3         PIC X(5).
018200    03 G-PPS-BUDGET-NEUT-RATE2         PIC X(5).
018300    03 G-PPS-BLNDED-CR-PMT-AMT         PIC 9(5)V9(2).
018400    03 G-PPS-BUDGET-NEUT               PIC X(40).
018500    03 G-PPS-BUDGET-NEUT-RATE          PIC X(5).
018600    03 G-PPS-DEDUCTABLE                PIC X(60).
018700    03 G-PPS-PCT-DEDUCTABLE            PIC 9V9(3).
018800    03 G-PPS-FINAL-PMT-AMT             PIC 9(5)V9(2).
018900    03 G-PPS-BLEND-MSG-LN-21           PIC X(60).
019000    03 G-PPS-BLEND-MSG-LN-22           PIC X(60).
019100*----OUTLIER COLUMN
019200    03 G-OUT-11-AGE-FACTOR             PIC 9V9(3).
019300    03 G-OUT-11-BSA-FACTOR             PIC 9V9(4).
019400    03 G-OUT-11-BMI-FACTOR             PIC 9V9(4).
019500    03 G-OUT-ONSET-FACTOR              PIC 9V9(4).
019600    03 G-OUT-COMORBID-FACTOR           PIC 9V9(4).
019700    03 G-OUT-LOW-VOL-FACTOR            PIC 9V9(4).
019800    03 G-OUT-PREDICTED-MAP             PIC 9V9(4).
019900    03 G-OUT-CM-PREDICT-MAPAMT         PIC 9(5)V9(4).
020000    03 G-OUT-IMPUTED-MAP-AMT           PIC 9(5)V9(4).
020100    03 G-OUT-PRE-IMP-LEFTPAREN         PIC X.
020200    03 G-OUT-PRED-IMPUT-DIFFER         PIC 9(5)V9(4).
020300    03 G-OUT-PRE-IMP-RGHTPAREN         PIC X.
020400    03 G-OUT-COND-CD-1-LN-11           PIC X(60).
020500    03 G-OUT-COND-CD-1-LN11AMT         PIC 9(5)V9(2).
020600    03 G-OUT-UNBLEND-PMT               PIC X(60).
020700    03 G-OUT-UNBLEND-PMT-AMT           PIC 9(5)V9(4).
020800    03 G-OUT-BLEND-RATE-LN-13          PIC X(40).
020900    03 G-OUT-BLEND-RATE-PCT            PIC X(4).
021000    03 G-OUT-BLEND-PMT                 PIC X(60).
021100    03 G-OUT-BLEND-PMT-AMT             PIC 9(5)V9(4).
021200*----COMPOSITE RATE COLUMN
021300    03 G-CR-WAGE-RATE-LN-1             PIC X(60).
021400    03 G-CR-PPS-11-WG-ADJ-RATE         PIC 9(4)V9(2).
021500    03 G-CR-AGE-FACTOR-LN-2            PIC X(40).
021600    03 G-CR-AGE-FACTOR                 PIC 9V9(3).
021700    03 G-CR-BSA-FACTOR-LN-3            PIC X(40).
021800    03 G-CR-BSA-FACTOR                 PIC 9V9(4).
021900    03 G-CR-BMI-FACTOR-LN-4            PIC X(40).
022000    03 G-CR-BMI-FACTOR                 PIC 9V9(4).
022100    03 G-CR-DRUG-ADD-ON-LN-5           PIC X(40).
022200    03 G-CR-DRUG-ADD-ON-FACTOR         PIC 9V9(4).
022300    03 G-CR-CM-BDGT-LN-6               PIC X(40).
022400    03 G-CR-CM-BDGT-NEUT-FCTR          PIC 9V9(4).
022500    03 G-CR-PART-D-DRUG-LN-7           PIC X(60).
022600    03 G-CR-PART-D-DRUG-ADJUST         PIC 9(5)V9(2).
022700    03 G-CR-CM-FCTR-LN-8               PIC X(60).
022800    03 G-CR-CM-FCTR-ADJ-AMT            PIC 9(5)V9(2).
022900    03 G-CR-COND-CD-1-LN-9             PIC X(60).
023000    03 G-CR-COND-CD-2-LN-10            PIC X(60).
023100    03 G-CR-COND-CD-AMT-LN-10          PIC 9(5)V9(2).
023200    03 G-CR-COND-CD-3-LN-11            PIC X(60).
023300    03 G-CR-COND-CD-4-LN-12            PIC X(60).
023400    03 G-CR-UNBLEND-PMT-LN-13          PIC X(40).
023500    03 G-CR-UNBLENDED-PMT-AMT          PIC 9(5)V9(2).
023600    03 G-CR-BLEND-RATE-LN-14           PIC X(60).
023700    03 G-CR-BLEND-RATE-PCT             PIC X(4).
023800    03 G-CR-BLEND-CR-PMT-LN-15         PIC X(60).
023900    03 G-CR-BLENDED-CR-AMT             PIC 9(5)V9(2).
024000*-----------------------------------------------------
024100* These variables to display on NEW PPS Screen   TAB-2
024200*-----------------------------------------------------
024300*----PPS COLUMN
024400    03 G-PPS-CBSA-BASE-RT-AMT          PIC 9(5)V9(2).
024500    03 G-PPS-LABOR-PCT                 PIC 9V9(5).
024600    03 G-PPS-WAGE-INDEX                PIC 9V9(4).
024700    03 G-PPS-LABOR-PORTION             PIC 9(5)V9(2).
024800    03 G-PPS-NON-LABOR-PCT             PIC 9V9(5).
024900    03 G-PPS-NON-LABOR-PORTION         PIC 9(5)V9(2).
025000*----OUTLIER COLUMN
025100    03 G-OUT-ADJ-SERVICEMAP            PIC X(60).
025200    03 G-OUT-ADJ-SERVICEMAPAMT         PIC 9(5)V9(2).
025300    03 G-OUT-COST-OUT-SERVICES         PIC 9V9(4).
025400    03 G-OUT-FIX-DOLR-LOSS             PIC X(60).
025500    03 G-OUT-FIX-DOLR-LOSS-AMT         PIC 9(5)V9(2).
025600    03 G-OUT-PRED-SERVICES-MAP         PIC 9(5)V9(4).
025700    03 G-OUT-IMPUT-MINUS-PRED          PIC 9(5)V9(4).
025800    03 G-OUT-LOSS-SHARE-PCT            PIC X(5).
025900*-----------------------------------------------------
026000* These variables to display on NEW PPS Screen   TAB-3
026100*-----------------------------------------------------
026200    03 G-CR-CBSA-BASE-RATE             PIC X(60).
026300    03 G-CR-CBSA-BASE-RATE-AMT         PIC 9(4)V9(2).
026400    03 G-CR-LABOR-PCT                  PIC X(40).
026500    03 G-CR-LABOR-PERCENT              PIC 9V9(5).
026600    03 G-CR-WAGE-INDX                  PIC X(40).
026700    03 G-CR-WAGE-INDEX                 PIC 9(2)V9(4).
026800    03 G-CR-LABOR-PORTION              PIC X(60).
026900    03 G-CR-LABOR-PORTION-AMT          PIC 9(4)V9(2).
027000    03 G-CR-ESRD-BASE-RATE-2           PIC X(60).
027100    03 G-CR-NON-LABOR-PCT              PIC X(40).
027200    03 G-CR-NON-LABOR-PERCENT          PIC 9V9(5).
027300    03 G-CR-NON-LABOR-PORTION          PIC X(60).
027400    03 G-CR-NON-LABOR-PORT-AMT         PIC 9(4)V9(2).
027500    03 G-CR-WAGE-ADJ-BASE-RATE         PIC X(60).
027600*-----------------------------------------------------
027700* These variables to display on NEW PPS Screen   TAB-4
027800*-----------------------------------------------------
027900    03 G-PPS-AGE-LINE-1                PIC X(40).
028000    03 G-PPS-AGE-LINE-2                PIC X(40).
028100    03 G-PPS-AGE-LINE-3                PIC X(40).
028200    03 G-PPS-AGE-LINE-4                PIC X(40).
028300    03 G-OUT-AGE-LINE-1                PIC X(40).
028400    03 G-OUT-AGE-LINE-2                PIC X(40).
028500    03 G-OUT-AGE-LINE-3                PIC X(40).
028600    03 G-OUT-AGE-LINE-4                PIC X(40).
028700    03 G-CR-AGE-LINE-1                 PIC X(40).
028800    03 G-CR-AGE-LINE-2                 PIC X(40).
028900    03 G-CR-AGE-LINE-3                 PIC X(40).
029000    03 G-CR-AGE-LINE-4                 PIC X(40).
029100    03 G-PPS-BSA-LINE-1                PIC X(40).
029200    03 G-PPS-BSA-LINE-2                PIC X(60).
029300    03 G-PPS-BSA-LINE-3                PIC X(40).
029400    03 G-PPS-BSA-LINE-4                PIC X(40).
029500    03 G-PPS-BSA-LINE-5                PIC X(40).
029600    03 G-PPS-BSA-LINE-6                PIC X(40).
029700    03 G-PPS-BSA-LINE-7                PIC X(40).
029800    03 G-PPS-BSA-LINE-8                PIC X(40).
029900    03 G-OUT-BSA-LINE-1                PIC X(40).
030000    03 G-OUT-BSA-LINE-2                PIC X(60).
030100    03 G-OUT-BSA-LINE-3                PIC X(40).
030200    03 G-OUT-BSA-LINE-4                PIC X(40).
030300    03 G-OUT-BSA-LINE-5                PIC X(40).
030400    03 G-OUT-BSA-LINE-6                PIC X(40).
030500    03 G-OUT-BSA-LINE-7                PIC X(40).
030600    03 G-OUT-BSA-LINE-8                PIC X(40).
030700    03 G-CR-BSA-LINE-1                 PIC X(40).
030800    03 G-CR-BSA-LINE-2                 PIC X(60).
030900    03 G-CR-BSA-LINE-3                 PIC X(40).
031000    03 G-CR-BSA-LINE-4                 PIC X(40).
031100    03 G-CR-BSA-LINE-5                 PIC X(40).
031200    03 G-CR-BSA-LINE-6                 PIC X(40).
031300    03 G-CR-BSA-LINE-7                 PIC X(40).
031400    03 G-CR-BSA-LINE-8                 PIC X(40).
031500    03 G-PPS-BMI-LINE-1                PIC X(40).
031600    03 G-PPS-BMI-LINE-2                PIC X(60).
031700    03 G-PPS-BMI-LINE-3                PIC X(40).
031800    03 G-PPS-BMI-LINE-4                PIC X(40).
031900    03 G-PPS-BMI-LINE-5                PIC X(40).
032000    03 G-PPS-BMI-LINE-6                PIC X(40).
032100    03 G-PPS-BMI-LINE-7                PIC X(40).
032200    03 G-PPS-BMI-LINE-8                PIC X(40).
032300    03 G-OUT-BMI-LINE-1                PIC X(40).
032400    03 G-OUT-BMI-LINE-2                PIC X(60).
032500    03 G-OUT-BMI-LINE-3                PIC X(40).
032600    03 G-OUT-BMI-LINE-4                PIC X(40).
032700    03 G-OUT-BMI-LINE-5                PIC X(40).
032800    03 G-OUT-BMI-LINE-6                PIC X(40).
032900    03 G-OUT-BMI-LINE-7                PIC X(40).
033000    03 G-OUT-BMI-LINE-8                PIC X(40).
033100    03 G-CR-BMI-LINE-1                 PIC X(40).
033200    03 G-CR-BMI-LINE-2                 PIC X(60).
033300    03 G-CR-BMI-LINE-3                 PIC X(40).
033400    03 G-CR-BMI-LINE-4                 PIC X(40).
033500    03 G-CR-BMI-LINE-5                 PIC X(40).
033600    03 G-CR-BMI-LINE-6                 PIC X(40).
033700    03 G-CR-BMI-LINE-7                 PIC X(40).
033800    03 G-CR-BMI-LINE-8                 PIC X(40).
033900*-----------------------------------------------------
034000* Below variables copied from a calculate subprogram
034100*-----------------------------------------------------
034200* G-BILL-NEW-DATA
034300    03 G-BILL-PORTION.
034400       05 G-B-COND-CODE                PIC X(2).
034500       05 G-B-REV-CODE3                PIC X(3).
034600       05 G-FILLER                     PIC X.
034700    03 G-B-PATIENT-HGT                 PIC 9(3)V9(2).
034800    03 G-B-PATIENT-WGT                 PIC 9(3)V9(2).
034900    03 G-B-THRU-DATE                   PIC 9(8).
035000    03 G-B-THRU-YYYY                   PIC 9(4).
035100    03 G-B-THRU-MM                     PIC 9(2).
035200    03 G-B-THRU-DD                     PIC 9(2).
035300    03 G-B-DOB-DATE                    PIC 9(8).
035400    03 G-B-DOB-YYYY                    PIC 9(4).
035500    03 G-B-DOB-MM                      PIC 9(2).
035600    03 G-B-DOB-DD                      PIC 9(2).
035700    03 G-BILL-FILLER                   PIC X(20).
035800*> G-BILL-DATA-TEST
035900    03 G-DRUG-ADD-ON-RETURN            PIC 9V9(4).
036000    03 G-MSA-WAGE-ADJ                  PIC 9(4)V9(2).
036100    03 G-CBSA-WAGE-ADJ                 PIC 9(4)V9(2).
036200    03 G-FILLER6                       PIC X(3).
036300    03 G-PSF-PORTION.
036400       05 G-P-NPI                      PIC X(8).
036500       05 G-P-NPI-FILLER               PIC X(2).
036600       05 G-P-PROV-OSCAR               PIC X(6).
036700       05 G-P-GEO-MSA                  PIC X(4).
036800       05 G-P-GEO-CBSA                 PIC X(5).
036900       05 G-P-SPEC-PYMT-IND            PIC X.
037000       05 G-P-PROV-TYPE                PIC X(2).
037100       05 G-P-SPEC-WAGE-INDX           PIC 9(2)V9(4).
037200       05 G-P-ESRD-RATE                PIC 9(7)V9(2).
037300       05 G-CASE-MIX-FCTR-ADJ-RT       PIC 9(7)V9(2).
037400       05 G-P-WAIVE-BLEND              PIC X.
037500       05 G-P-LOW-VOLUME               PIC X.
037600       05 G-P-PACIFIC-IS-TRUST-TERR    PIC X.
037700       05 G-B-DIALYSIS-START-DATE      PIC X.
037800       05 G-B-SEPARATELY-BILLABLE-AMT  PIC 9(4)V9(2).
037900       05 G-B-NUM-DIALYSIS-SESSIONS    PIC 9(2).
038000       05 G-B-ACUTE-MA                 PIC X.
038100       05 G-B-ACUTE-MB                 PIC X.
038200       05 G-B-ACUTE-MC                 PIC X.
038300       05 G-B-CHRONIC-MD               PIC X.
038400       05 G-B-CHRONIC-ME               PIC X.
038500       05 G-B-CHRONIC-MF               PIC X.
038600       05 G-PSF-FILLER                 PIC X(20).
038700*> G-PSF-DATA-TEST
038800       05 G-CBSA-WAGE-PMT-RATE         PIC 9(4)V9(2).
038900       05 FILLER1                      PIC X.
039000       05 G-AMT-INDIC                  PIC X.
039100       05 FILLER2                      PIC X.
039200       05 G-BLOOD-DOLLAR               PIC 9(2).
039300       05 FILLER3                      PIC X(3).
039400*> G-COND-CD-74
039500    03 G-HEMO-CCPD-CAPD                PIC 9(2)V9(6).
039600    03 G-AGE-RETURN                    PIC 9(3).
039700    03 FILLER4                         PIC X(2).
039800    03 G-TEST-INDICATOR                PIC X.
039900    03 G-PPS-DATA-ALL.
040000       05 G-PPS-RTC                    PIC 9(2).
040100       05 G-PPS-MSA                    PIC X(4).
040200       05 G-PPS-CBSA                   PIC X(5).
040300       05 G-PPS-WAGE-ADJ-RATE          PIC 9(4)V9(2).
040400       05 G-PPS-FINAL-PAY-AMT          PIC 9(7)V9(2).
040500       05 G-PPS-CALC-VERS-CD           PIC X(5).
040600       05 G-PPS-COND-CODE              PIC X(2).
040700       05 G-PPS-REV-CODE               PIC X(4).
040800       05 G-PPS-DATA-FILLER            PIC X(20).
040900*> G-PPS-DATA-TEST
041000       05 G-MSA-WAGE-AMT               PIC 9(4)V9(2).
041100       05 G-CBSA-WAGE-INDEX            PIC 9(2)V9(4).
041200       05 G-LABOR-PCT                  PIC 9V9(5).
041300       05 FILLER5                      PIC X(2).
041400    03 G-PPS-OTHER-DATA.
041500       05 G-PPS-NAT-LABOR-PCT          PIC 9V9(5).
041600       05 G-PPS-NAT-NONLABOR-PCT       PIC 9V9(5).
041700       05 G-PPS-AGE-FACTOR             PIC 9V9(3).
041800       05 G-PPS-BSA-FACTOR             PIC 9V9(4).
041900       05 G-PPS-BMI-FACTOR             PIC 9V9(4).
042000       05 G-PPS-BDGT-NEUT-RATE         PIC 9V9(4).
042100       05 G-PPS-BMI                    PIC 9(3)V9(4).
042200       05 G-PPS-BSA                    PIC 9(3)V9(4).
042300       05 G-MSA-PCT                    PIC 9V9(2).
042400       05 G-CBSA-PCT                   PIC 9V9(2).
042500    03 G-W-NEW-RATE1-RECORD            PIC 9(4)V9(2).
042600    03 G-W-NEW-RATE2-RECORD            PIC 9(4)V9(2).
042700    03 G-W-NEW-CBSA1-RECORD            PIC 9(2)V9(4).
042800
042900*****************************************************************
043000*   End of Data Block
043100*****************************************************************
043200
043300*****************************************************************
043400*   Field Numbers
043500*****************************************************************
043600
043700 01 FIELD-NUMBERS.
043800    03 FLD-NO-EXIT-FLAG                PIC 9(4) COMP-5 VALUE
043900                                         1.
044000    03 FLD-NO-CONFIG-FLAG              PIC 9(4) COMP-5 VALUE
044100                                         2.
044200    03 FLD-NO-CONFIG-VALUE             PIC 9(4) COMP-5 VALUE
044300                                         3.
044400    03 FLD-NO-DSMDI-PARENT             PIC 9(4) COMP-5 VALUE
044500                                         5.
044600    03 FLD-NO-DSMDI-FUNCTION           PIC 9(4) COMP-5 VALUE
044700                                         6.
044800    03 FLD-NO-DSMDI-RETURN             PIC 9(4) COMP-5 VALUE
044900                                         7.
045000    03 FLD-NO-DSMDI-BITMAP             PIC 9(4) COMP-5 VALUE
045100                                         8.
045200    03 FLD-NO-DSMDI-BITMAP-STYLE       PIC 9(4) COMP-5 VALUE
045300                                         9.
045400    03 FLD-NO-DSMDI-LEFT               PIC 9(4) COMP-5 VALUE
045500                                         11.
045600    03 FLD-NO-DSMDI-TOP                PIC 9(4) COMP-5 VALUE
045700                                         12.
045800    03 FLD-NO-DSMDI-RIGHT              PIC 9(4) COMP-5 VALUE
045900                                         13.
046000    03 FLD-NO-DSMDI-BOTTOM             PIC 9(4) COMP-5 VALUE
046100                                         14.
046200    03 FLD-NO-G-FACILITY-TYPE-DESC     PIC 9(4) COMP-5 VALUE
046300                                         15.
046400    03 FLD-NO-G-DRIVE                  PIC 9(4) COMP-5 VALUE
046500                                         16.
046600    03 FLD-NO-G-PROV-DIR-OPT           PIC 9(4) COMP-5 VALUE
046700                                         17.
046800    03 FLD-NO-G-BUTTON-CODE            PIC 9(4) COMP-5 VALUE
046900                                         18.
047000    03 FLD-NO-G-CONFIRM-EXIT-CODE      PIC 9(4) COMP-5 VALUE
047100                                         19.
047200    03 FLD-NO-G-EFF-DT-FOUND-SW        PIC 9(4) COMP-5 VALUE
047300                                         20.
047400    03 FLD-NO-G-PROV-FOUND-SW          PIC 9(4) COMP-5 VALUE
047500                                         21.
047600    03 FLD-NO-G-MSA-FOUND-SW           PIC 9(4) COMP-5 VALUE
047700                                         22.
047800    03 FLD-NO-G-CBSA-FOUND-SW          PIC 9(4) COMP-5 VALUE
047900                                         23.
048000    03 FLD-NO-G-IPPS-CBSA-FOUND-SW     PIC 9(4) COMP-5 VALUE
048100                                         24.
048200    03 FLD-NO-G-CLEAR-SCREEN-CD        PIC 9(4) COMP-5 VALUE
048300                                         25.
048400    03 FLD-NO-G-CHANGE-PROV-STEP       PIC 9(4) COMP-5 VALUE
048500                                         26.
048600    03 FLD-NO-G-CHANGE-FLAG            PIC 9(4) COMP-5 VALUE
048700                                         27.
048800    03 FLD-NO-G-CHANGE-CNT             PIC 9(4) COMP-5 VALUE
048900                                         28.
049000    03 FLD-NO-G-CHANGE-CONFIRM         PIC 9(4) COMP-5 VALUE
049100                                         29.
049200    03 FLD-NO-G-ERROR-MSG-FIELD        PIC 9(4) COMP-5 VALUE
049300                                         30.
049400    03 FLD-NO-G-ADD-ALLOWED-SW         PIC 9(4) COMP-5 VALUE
049500                                         31.
049600    03 FLD-NO-G-NEW-PROV-STEP          PIC 9(4) COMP-5 VALUE
049700                                         32.
049800    03 FLD-NO-G-ADD-CONFIRM            PIC 9(4) COMP-5 VALUE
049900                                         33.
050000    03 FLD-NO-G-ADD-OK                 PIC 9(4) COMP-5 VALUE
050100                                         34.
050200    03 FLD-NO-G-FILE-NAME              PIC 9(4) COMP-5 VALUE
050300                                         35.
050400    03 FLD-NO-G-FILE-STATUS            PIC 9(4) COMP-5 VALUE
050500                                         36.
050600    03 FLD-NO-G-FILE-ERROR-DESC        PIC 9(4) COMP-5 VALUE
050700                                         37.
050800    03 FLD-NO-G-MAJOR-FILE-ERR-SW      PIC 9(4) COMP-5 VALUE
050900                                         38.
051000    03 FLD-NO-G-CURRENT-MSA-SW         PIC 9(4) COMP-5 VALUE
051100                                         39.
051200    03 FLD-NO-G-CURRENT-CBSA-SW        PIC 9(4) COMP-5 VALUE
051300                                         40.
051400    03 FLD-NO-G-CURRENT-IPPS-CBSA-SW   PIC 9(4) COMP-5 VALUE
051500                                         41.
051600    03 FLD-NO-G-CURRENT-PROV-SW        PIC 9(4) COMP-5 VALUE
051700                                         42.
051800    03 FLD-NO-G-SPACE-IN-PROV-NO       PIC 9(4) COMP-5 VALUE
051900                                         43.
052000    03 FLD-NO-G-RATE-YEAR              PIC 9(4) COMP-5 VALUE
052100                                         45.
052200    03 FLD-NO-G-GROUPER-VERSION        PIC 9(4) COMP-5 VALUE
052300                                         46.
052400    03 FLD-NO-G-PROVFILE-UPDT-QTR      PIC 9(4) COMP-5 VALUE
052500                                         47.
052600    03 FLD-NO-G-START-DISCHARGE-DATE   PIC 9(4) COMP-5 VALUE
052700                                         48.
052800    03 FLD-NO-G-END-DISCHARGE-DATE     PIC 9(4) COMP-5 VALUE
052900                                         49.
053000    03 FLD-NO-PAGE-OCCURRENCE          PIC 9(4) COMP-5 VALUE
053100                                         50.
053200    03 FLD-NO-G-ASTERISK               PIC 9(4) COMP-5 VALUE
053300                                         51.
053400    03 FLD-NO-OTHER-RECORD-TEXT        PIC 9(4) COMP-5 VALUE
053500                                         52.
053600    03 FLD-NO-NO-OTHER-RECORD-TEXT     PIC 9(4) COMP-5 VALUE
053700                                         53.
053800    03 FLD-NO-CONFIRM-EXIT-CODE        PIC 9(4) COMP-5 VALUE
053900                                         54.
054000    03 FLD-NO-G-MSA-FLAG               PIC 9(4) COMP-5 VALUE
054100                                         55.
054200    03 FLD-NO-G-CBSA-FLAG              PIC 9(4) COMP-5 VALUE
054300                                         56.
054400    03 FLD-NO-G-MSA-IND                PIC 9(4) COMP-5 VALUE
054500                                         57.
054600    03 FLD-NO-G-CBSA-IND               PIC 9(4) COMP-5 VALUE
054700                                         58.
054800    03 FLD-NO-G-PRICER-BEGIN-DT        PIC 9(4) COMP-5 VALUE
054900                                         59.
055000    03 FLD-NO-G-PRICER-END-DT          PIC 9(4) COMP-5 VALUE
055100                                         60.
055200    03 FLD-NO-G-PRICER-VERSION         PIC 9(4) COMP-5 VALUE
055300                                         61.
055400    03 FLD-NO-G-P-MSA                  PIC 9(4) COMP-5 VALUE
055500                                         62.
055600    03 FLD-NO-G-P-MSA-NAME             PIC 9(4) COMP-5 VALUE
055700                                         63.
055800    03 FLD-NO-G-P-CBSA                 PIC 9(4) COMP-5 VALUE
055900                                         64.
056000    03 FLD-NO-G-P-CBSA-NAME            PIC 9(4) COMP-5 VALUE
056100                                         65.
056200    03 FLD-NO-G-MSA-PERCENT            PIC 9(4) COMP-5 VALUE
056300                                         66.
056400    03 FLD-NO-G-CBSA-PERCENT           PIC 9(4) COMP-5 VALUE
056500                                         67.
056600    03 FLD-NO-G-HICAN                  PIC 9(4) COMP-5 VALUE
056700                                         68.
056800    03 FLD-NO-G-PPS-CLAIM-THRU-DATE    PIC 9(4) COMP-5 VALUE
056900                                         69.
057000    03 FLD-NO-G-TRAINING-DAILY-RATE    PIC 9(4) COMP-5 VALUE
057100                                         70.
057200    03 FLD-NO-G-TRAINING-LINE-1        PIC 9(4) COMP-5 VALUE
057300                                         71.
057400    03 FLD-NO-G-TRAINING-LINE-2        PIC 9(4) COMP-5 VALUE
057500                                         72.
057600    03 FLD-NO-G-TRAINING-LINE-3        PIC 9(4) COMP-5 VALUE
057700                                         73.
057800    03 FLD-NO-G-TRAINING-AMT           PIC 9(4) COMP-5 VALUE
057900                                         74.
058000    03 FLD-NO-G-2006-MSA-WAGE-AMT      PIC 9(4) COMP-5 VALUE
058100                                         75.
058200    03 FLD-NO-G-2007-MSA-WAGE-AMT      PIC 9(4) COMP-5 VALUE
058300                                         76.
058400    03 FLD-NO-G-2008-MSA-WAGE-AMT      PIC 9(4) COMP-5 VALUE
058500                                         77.
058600    03 FLD-NO-G-2008-MSA-WAGE-ADJ      PIC 9(4) COMP-5 VALUE
058700                                         78.
058800    03 FLD-NO-G-MSA-LINE-1             PIC 9(4) COMP-5 VALUE
058900                                         79.
059000    03 FLD-NO-G-MSA-LINE-2             PIC 9(4) COMP-5 VALUE
059100                                         80.
059200    03 FLD-NO-G-MSA-LINE-3             PIC 9(4) COMP-5 VALUE
059300                                         81.
059400    03 FLD-NO-G-MSA-LINE-4             PIC 9(4) COMP-5 VALUE
059500                                         82.
059600    03 FLD-NO-G-MSA-LINE-5             PIC 9(4) COMP-5 VALUE
059700                                         83.
059800    03 FLD-NO-G-CBSA-LINE-1            PIC 9(4) COMP-5 VALUE
059900                                         84.
060000    03 FLD-NO-G-CBSA-LINE-2            PIC 9(4) COMP-5 VALUE
060100                                         85.
060200    03 FLD-NO-G-CBSA-LINE-3            PIC 9(4) COMP-5 VALUE
060300                                         86.
060400    03 FLD-NO-G-CBSA-LINE-4            PIC 9(4) COMP-5 VALUE
060500                                         87.
060600    03 FLD-NO-G-CBSA-LINE-5            PIC 9(4) COMP-5 VALUE
060700                                         88.
060800    03 FLD-NO-G-CBSA-LINE-6            PIC 9(4) COMP-5 VALUE
060900                                         89.
061000    03 FLD-NO-G-BUN-CALC-VERS-CD       PIC 9(4) COMP-5 VALUE
061100                                         90.
061200    03 FLD-NO-G-PPS-DATE-OF-SERVICE    PIC 9(4) COMP-5 VALUE
061300                                         91.
061400    03 FLD-NO-G-HICAN2                 PIC 9(4) COMP-5 VALUE
061500                                         92.
061600    03 FLD-NO-G-PPS-11-WAGE-ADJ-RATE   PIC 9(4) COMP-5 VALUE
061700                                         93.
061800    03 FLD-NO-G-PPS-11-AGE-FACTOR      PIC 9(4) COMP-5 VALUE
061900                                         94.
062000    03 FLD-NO-G-PPS-11-BSA-FACTOR      PIC 9(4) COMP-5 VALUE
062100                                         95.
062200    03 FLD-NO-G-PPS-11-BMI-FACTOR      PIC 9(4) COMP-5 VALUE
062300                                         96.
062400    03 FLD-NO-G-PPS-ONSET-FACTOR       PIC 9(4) COMP-5 VALUE
062500                                         97.
062600    03 FLD-NO-G-PPS-COMORBID-FACTOR    PIC 9(4) COMP-5 VALUE
062700                                         98.
062800    03 FLD-NO-G-PPS-LOW-VOL-FACTOR     PIC 9(4) COMP-5 VALUE
062900                                         99.
063000    03 FLD-NO-G-PPS-ADJUSTED-RATE      PIC 9(4) COMP-5 VALUE
063100                                         100.
063200    03 FLD-NO-G-PPS-COND-CD-1-LN-9     PIC 9(4) COMP-5 VALUE
063300                                         101.
063400    03 FLD-NO-G-PPS-COND-CD-2-LN-10    PIC 9(4) COMP-5 VALUE
063500                                         102.
063600    03 FLD-NO-G-PPS-COND-CD-AMT-LN-10  PIC 9(4) COMP-5 VALUE
063700                                         103.
063800    03 FLD-NO-G-PPS-COND-CD-3-LN-11    PIC 9(4) COMP-5 VALUE
063900                                         104.
064000    03 FLD-NO-G-PPS-COND-CD-4-LN-12    PIC 9(4) COMP-5 VALUE
064100                                         105.
064200    03 FLD-NO-G-PPS-UNBLND-PPS-PMT     PIC 9(4) COMP-5 VALUE
064300                                         106.
064400    03 FLD-NO-G-PPS-UNBLNDPPS-PMT-AMT  PIC 9(4) COMP-5 VALUE
064500                                         107.
064600    03 FLD-NO-G-PPS-BLEND-RATE-LN-14   PIC 9(4) COMP-5 VALUE
064700                                         108.
064800    03 FLD-NO-G-PPS-BLEND-RATE-PCT     PIC 9(4) COMP-5 VALUE
064900                                         109.
065000    03 FLD-NO-G-PPS-BLENDED-PPS-PMT    PIC 9(4) COMP-5 VALUE
065100                                         110.
065200    03 FLD-NO-G-PPS-BLEND-RATE-2       PIC 9(4) COMP-5 VALUE
065300                                         111.
065400    03 FLD-NO-G-PPS-BLEND-PPS-PMT-AMT  PIC 9(4) COMP-5 VALUE
065500                                         112.
065600    03 FLD-NO-G-PPS-UN-BLEND-OUT-PMT   PIC 9(4) COMP-5 VALUE
065700                                         113.
065800    03 FLD-NO-G-PPS-OUT-PMT-AMT-2      PIC 9(4) COMP-5 VALUE
065900                                         114.
066000    03 FLD-NO-G-PPS-OUT-PMT-AMT        PIC 9(4) COMP-5 VALUE
066100                                         115.
066200    03 FLD-NO-G-PPS-BLNDED-CR-PMT      PIC 9(4) COMP-5 VALUE
066300                                         116.
066400    03 FLD-NO-G-PPS-BUDGET-NEUT-RATE3  PIC 9(4) COMP-5 VALUE
066500                                         117.
066600    03 FLD-NO-G-PPS-BUDGET-NEUT-RATE2  PIC 9(4) COMP-5 VALUE
066700                                         118.
066800    03 FLD-NO-G-PPS-BLNDED-CR-PMT-AMT  PIC 9(4) COMP-5 VALUE
066900                                         119.
067000    03 FLD-NO-G-PPS-BUDGET-NEUT        PIC 9(4) COMP-5 VALUE
067100                                         120.
067200    03 FLD-NO-G-PPS-BUDGET-NEUT-RATE   PIC 9(4) COMP-5 VALUE
067300                                         121.
067400    03 FLD-NO-G-PPS-DEDUCTABLE         PIC 9(4) COMP-5 VALUE
067500                                         122.
067600    03 FLD-NO-G-PPS-PCT-DEDUCTABLE     PIC 9(4) COMP-5 VALUE
067700                                         123.
067800    03 FLD-NO-G-PPS-FINAL-PMT-AMT      PIC 9(4) COMP-5 VALUE
067900                                         124.
068000    03 FLD-NO-G-PPS-BLEND-MSG-LN-21    PIC 9(4) COMP-5 VALUE
068100                                         125.
068200    03 FLD-NO-G-PPS-BLEND-MSG-LN-22    PIC 9(4) COMP-5 VALUE
068300                                         126.
068400    03 FLD-NO-G-OUT-11-AGE-FACTOR      PIC 9(4) COMP-5 VALUE
068500                                         127.
068600    03 FLD-NO-G-OUT-11-BSA-FACTOR      PIC 9(4) COMP-5 VALUE
068700                                         128.
068800    03 FLD-NO-G-OUT-11-BMI-FACTOR      PIC 9(4) COMP-5 VALUE
068900                                         129.
069000    03 FLD-NO-G-OUT-ONSET-FACTOR       PIC 9(4) COMP-5 VALUE
069100                                         130.
069200    03 FLD-NO-G-OUT-COMORBID-FACTOR    PIC 9(4) COMP-5 VALUE
069300                                         131.
069400    03 FLD-NO-G-OUT-LOW-VOL-FACTOR     PIC 9(4) COMP-5 VALUE
069500                                         132.
069600    03 FLD-NO-G-OUT-PREDICTED-MAP      PIC 9(4) COMP-5 VALUE
069700                                         133.
069800    03 FLD-NO-G-OUT-CM-PREDICT-MAPAMT  PIC 9(4) COMP-5 VALUE
069900                                         134.
070000    03 FLD-NO-G-OUT-IMPUTED-MAP-AMT    PIC 9(4) COMP-5 VALUE
070100                                         135.
070200    03 FLD-NO-G-OUT-PRE-IMP-LEFTPAREN  PIC 9(4) COMP-5 VALUE
070300                                         136.
070400    03 FLD-NO-G-OUT-PRED-IMPUT-DIFFER  PIC 9(4) COMP-5 VALUE
070500                                         137.
070600    03 FLD-NO-G-OUT-PRE-IMP-RGHTPAREN  PIC 9(4) COMP-5 VALUE
070700                                         138.
070800    03 FLD-NO-G-OUT-COND-CD-1-LN-11    PIC 9(4) COMP-5 VALUE
070900                                         139.
071000    03 FLD-NO-G-OUT-COND-CD-1-LN11AMT  PIC 9(4) COMP-5 VALUE
071100                                         140.
071200    03 FLD-NO-G-OUT-UNBLEND-PMT        PIC 9(4) COMP-5 VALUE
071300                                         141.
071400    03 FLD-NO-G-OUT-UNBLEND-PMT-AMT    PIC 9(4) COMP-5 VALUE
071500                                         142.
071600    03 FLD-NO-G-OUT-BLEND-RATE-LN-13   PIC 9(4) COMP-5 VALUE
071700                                         143.
071800    03 FLD-NO-G-OUT-BLEND-RATE-PCT     PIC 9(4) COMP-5 VALUE
071900                                         144.
072000    03 FLD-NO-G-OUT-BLEND-PMT          PIC 9(4) COMP-5 VALUE
072100                                         145.
072200    03 FLD-NO-G-OUT-BLEND-PMT-AMT      PIC 9(4) COMP-5 VALUE
072300                                         146.
072400    03 FLD-NO-G-CR-WAGE-RATE-LN-1      PIC 9(4) COMP-5 VALUE
072500                                         147.
072600    03 FLD-NO-G-CR-PPS-11-WG-ADJ-RATE  PIC 9(4) COMP-5 VALUE
072700                                         148.
072800    03 FLD-NO-G-CR-AGE-FACTOR-LN-2     PIC 9(4) COMP-5 VALUE
072900                                         149.
073000    03 FLD-NO-G-CR-AGE-FACTOR          PIC 9(4) COMP-5 VALUE
073100                                         150.
073200    03 FLD-NO-G-CR-BSA-FACTOR-LN-3     PIC 9(4) COMP-5 VALUE
073300                                         151.
073400    03 FLD-NO-G-CR-BSA-FACTOR          PIC 9(4) COMP-5 VALUE
073500                                         152.
073600    03 FLD-NO-G-CR-BMI-FACTOR-LN-4     PIC 9(4) COMP-5 VALUE
073700                                         153.
073800    03 FLD-NO-G-CR-BMI-FACTOR          PIC 9(4) COMP-5 VALUE
073900                                         154.
074000    03 FLD-NO-G-CR-DRUG-ADD-ON-LN-5    PIC 9(4) COMP-5 VALUE
074100                                         155.
074200    03 FLD-NO-G-CR-DRUG-ADD-ON-FACTOR  PIC 9(4) COMP-5 VALUE
074300                                         156.
074400    03 FLD-NO-G-CR-CM-BDGT-LN-6        PIC 9(4) COMP-5 VALUE
074500                                         157.
074600    03 FLD-NO-G-CR-CM-BDGT-NEUT-FCTR   PIC 9(4) COMP-5 VALUE
074700                                         158.
074800    03 FLD-NO-G-CR-PART-D-DRUG-LN-7    PIC 9(4) COMP-5 VALUE
074900                                         159.
075000    03 FLD-NO-G-CR-PART-D-DRUG-ADJUST  PIC 9(4) COMP-5 VALUE
075100                                         160.
075200    03 FLD-NO-G-CR-CM-FCTR-LN-8        PIC 9(4) COMP-5 VALUE
075300                                         161.
075400    03 FLD-NO-G-CR-CM-FCTR-ADJ-AMT     PIC 9(4) COMP-5 VALUE
075500                                         162.
075600    03 FLD-NO-G-CR-COND-CD-1-LN-9      PIC 9(4) COMP-5 VALUE
075700                                         163.
075800    03 FLD-NO-G-CR-COND-CD-2-LN-10     PIC 9(4) COMP-5 VALUE
075900                                         164.
076000    03 FLD-NO-G-CR-COND-CD-AMT-LN-10   PIC 9(4) COMP-5 VALUE
076100                                         165.
076200    03 FLD-NO-G-CR-COND-CD-3-LN-11     PIC 9(4) COMP-5 VALUE
076300                                         166.
076400    03 FLD-NO-G-CR-COND-CD-4-LN-12     PIC 9(4) COMP-5 VALUE
076500                                         167.
076600    03 FLD-NO-G-CR-UNBLEND-PMT-LN-13   PIC 9(4) COMP-5 VALUE
076700                                         168.
076800    03 FLD-NO-G-CR-UNBLENDED-PMT-AMT   PIC 9(4) COMP-5 VALUE
076900                                         169.
077000    03 FLD-NO-G-CR-BLEND-RATE-LN-14    PIC 9(4) COMP-5 VALUE
077100                                         170.
077200    03 FLD-NO-G-CR-BLEND-RATE-PCT      PIC 9(4) COMP-5 VALUE
077300                                         171.
077400    03 FLD-NO-G-CR-BLEND-CR-PMT-LN-15  PIC 9(4) COMP-5 VALUE
077500                                         172.
077600    03 FLD-NO-G-CR-BLENDED-CR-AMT      PIC 9(4) COMP-5 VALUE
077700                                         173.
077800    03 FLD-NO-G-PPS-CBSA-BASE-RT-AMT   PIC 9(4) COMP-5 VALUE
077900                                         174.
078000    03 FLD-NO-G-PPS-LABOR-PCT          PIC 9(4) COMP-5 VALUE
078100                                         175.
078200    03 FLD-NO-G-PPS-WAGE-INDEX         PIC 9(4) COMP-5 VALUE
078300                                         176.
078400    03 FLD-NO-G-PPS-LABOR-PORTION      PIC 9(4) COMP-5 VALUE
078500                                         177.
078600    03 FLD-NO-G-PPS-NON-LABOR-PCT      PIC 9(4) COMP-5 VALUE
078700                                         178.
078800    03 FLD-NO-G-PPS-NON-LABOR-PORTION  PIC 9(4) COMP-5 VALUE
078900                                         179.
079000    03 FLD-NO-G-OUT-ADJ-SERVICEMAP     PIC 9(4) COMP-5 VALUE
079100                                         180.
079200    03 FLD-NO-G-OUT-ADJ-SERVICEMAPAMT  PIC 9(4) COMP-5 VALUE
079300                                         181.
079400    03 FLD-NO-G-OUT-COST-OUT-SERVICES  PIC 9(4) COMP-5 VALUE
079500                                         182.
079600    03 FLD-NO-G-OUT-FIX-DOLR-LOSS      PIC 9(4) COMP-5 VALUE
079700                                         183.
079800    03 FLD-NO-G-OUT-FIX-DOLR-LOSS-AMT  PIC 9(4) COMP-5 VALUE
079900                                         184.
080000    03 FLD-NO-G-OUT-PRED-SERVICES-MAP  PIC 9(4) COMP-5 VALUE
080100                                         185.
080200    03 FLD-NO-G-OUT-IMPUT-MINUS-PRED   PIC 9(4) COMP-5 VALUE
080300                                         186.
080400    03 FLD-NO-G-OUT-LOSS-SHARE-PCT     PIC 9(4) COMP-5 VALUE
080500                                         187.
080600    03 FLD-NO-G-CR-CBSA-BASE-RATE      PIC 9(4) COMP-5 VALUE
080700                                         188.
080800    03 FLD-NO-G-CR-CBSA-BASE-RATE-AMT  PIC 9(4) COMP-5 VALUE
080900                                         189.
081000    03 FLD-NO-G-CR-LABOR-PCT           PIC 9(4) COMP-5 VALUE
081100                                         190.
081200    03 FLD-NO-G-CR-LABOR-PERCENT       PIC 9(4) COMP-5 VALUE
081300                                         191.
081400    03 FLD-NO-G-CR-WAGE-INDX           PIC 9(4) COMP-5 VALUE
081500                                         192.
081600    03 FLD-NO-G-CR-WAGE-INDEX          PIC 9(4) COMP-5 VALUE
081700                                         193.
081800    03 FLD-NO-G-CR-LABOR-PORTION       PIC 9(4) COMP-5 VALUE
081900                                         194.
082000    03 FLD-NO-G-CR-LABOR-PORTION-AMT   PIC 9(4) COMP-5 VALUE
082100                                         195.
082200    03 FLD-NO-G-CR-ESRD-BASE-RATE-2    PIC 9(4) COMP-5 VALUE
082300                                         196.
082400    03 FLD-NO-G-CR-NON-LABOR-PCT       PIC 9(4) COMP-5 VALUE
082500                                         197.
082600    03 FLD-NO-G-CR-NON-LABOR-PERCENT   PIC 9(4) COMP-5 VALUE
082700                                         198.
082800    03 FLD-NO-G-CR-NON-LABOR-PORTION   PIC 9(4) COMP-5 VALUE
082900                                         199.
083000    03 FLD-NO-G-CR-NON-LABOR-PORT-AMT  PIC 9(4) COMP-5 VALUE
083100                                         200.
083200    03 FLD-NO-G-CR-WAGE-ADJ-BASE-RATE  PIC 9(4) COMP-5 VALUE
083300                                         201.
083400    03 FLD-NO-G-PPS-AGE-LINE-1         PIC 9(4) COMP-5 VALUE
083500                                         202.
083600    03 FLD-NO-G-PPS-AGE-LINE-2         PIC 9(4) COMP-5 VALUE
083700                                         203.
083800    03 FLD-NO-G-PPS-AGE-LINE-3         PIC 9(4) COMP-5 VALUE
083900                                         204.
084000    03 FLD-NO-G-PPS-AGE-LINE-4         PIC 9(4) COMP-5 VALUE
084100                                         205.
084200    03 FLD-NO-G-OUT-AGE-LINE-1         PIC 9(4) COMP-5 VALUE
084300                                         206.
084400    03 FLD-NO-G-OUT-AGE-LINE-2         PIC 9(4) COMP-5 VALUE
084500                                         207.
084600    03 FLD-NO-G-OUT-AGE-LINE-3         PIC 9(4) COMP-5 VALUE
084700                                         208.
084800    03 FLD-NO-G-OUT-AGE-LINE-4         PIC 9(4) COMP-5 VALUE
084900                                         209.
085000    03 FLD-NO-G-CR-AGE-LINE-1          PIC 9(4) COMP-5 VALUE
085100                                         210.
085200    03 FLD-NO-G-CR-AGE-LINE-2          PIC 9(4) COMP-5 VALUE
085300                                         211.
085400    03 FLD-NO-G-CR-AGE-LINE-3          PIC 9(4) COMP-5 VALUE
085500                                         212.
085600    03 FLD-NO-G-CR-AGE-LINE-4          PIC 9(4) COMP-5 VALUE
085700                                         213.
085800    03 FLD-NO-G-PPS-BSA-LINE-1         PIC 9(4) COMP-5 VALUE
085900                                         214.
086000    03 FLD-NO-G-PPS-BSA-LINE-2         PIC 9(4) COMP-5 VALUE
086100                                         215.
086200    03 FLD-NO-G-PPS-BSA-LINE-3         PIC 9(4) COMP-5 VALUE
086300                                         216.
086400    03 FLD-NO-G-PPS-BSA-LINE-4         PIC 9(4) COMP-5 VALUE
086500                                         217.
086600    03 FLD-NO-G-PPS-BSA-LINE-5         PIC 9(4) COMP-5 VALUE
086700                                         218.
086800    03 FLD-NO-G-PPS-BSA-LINE-6         PIC 9(4) COMP-5 VALUE
086900                                         219.
087000    03 FLD-NO-G-PPS-BSA-LINE-7         PIC 9(4) COMP-5 VALUE
087100                                         220.
087200    03 FLD-NO-G-PPS-BSA-LINE-8         PIC 9(4) COMP-5 VALUE
087300                                         221.
087400    03 FLD-NO-G-OUT-BSA-LINE-1         PIC 9(4) COMP-5 VALUE
087500                                         222.
087600    03 FLD-NO-G-OUT-BSA-LINE-2         PIC 9(4) COMP-5 VALUE
087700                                         223.
087800    03 FLD-NO-G-OUT-BSA-LINE-3         PIC 9(4) COMP-5 VALUE
087900                                         224.
088000    03 FLD-NO-G-OUT-BSA-LINE-4         PIC 9(4) COMP-5 VALUE
088100                                         225.
088200    03 FLD-NO-G-OUT-BSA-LINE-5         PIC 9(4) COMP-5 VALUE
088300                                         226.
088400    03 FLD-NO-G-OUT-BSA-LINE-6         PIC 9(4) COMP-5 VALUE
088500                                         227.
088600    03 FLD-NO-G-OUT-BSA-LINE-7         PIC 9(4) COMP-5 VALUE
088700                                         228.
088800    03 FLD-NO-G-OUT-BSA-LINE-8         PIC 9(4) COMP-5 VALUE
088900                                         229.
089000    03 FLD-NO-G-CR-BSA-LINE-1          PIC 9(4) COMP-5 VALUE
089100                                         230.
089200    03 FLD-NO-G-CR-BSA-LINE-2          PIC 9(4) COMP-5 VALUE
089300                                         231.
089400    03 FLD-NO-G-CR-BSA-LINE-3          PIC 9(4) COMP-5 VALUE
089500                                         232.
089600    03 FLD-NO-G-CR-BSA-LINE-4          PIC 9(4) COMP-5 VALUE
089700                                         233.
089800    03 FLD-NO-G-CR-BSA-LINE-5          PIC 9(4) COMP-5 VALUE
089900                                         234.
090000    03 FLD-NO-G-CR-BSA-LINE-6          PIC 9(4) COMP-5 VALUE
090100                                         235.
090200    03 FLD-NO-G-CR-BSA-LINE-7          PIC 9(4) COMP-5 VALUE
090300                                         236.
090400    03 FLD-NO-G-CR-BSA-LINE-8          PIC 9(4) COMP-5 VALUE
090500                                         237.
090600    03 FLD-NO-G-PPS-BMI-LINE-1         PIC 9(4) COMP-5 VALUE
090700                                         238.
090800    03 FLD-NO-G-PPS-BMI-LINE-2         PIC 9(4) COMP-5 VALUE
090900                                         239.
091000    03 FLD-NO-G-PPS-BMI-LINE-3         PIC 9(4) COMP-5 VALUE
091100                                         240.
091200    03 FLD-NO-G-PPS-BMI-LINE-4         PIC 9(4) COMP-5 VALUE
091300                                         241.
091400    03 FLD-NO-G-PPS-BMI-LINE-5         PIC 9(4) COMP-5 VALUE
091500                                         242.
091600    03 FLD-NO-G-PPS-BMI-LINE-6         PIC 9(4) COMP-5 VALUE
091700                                         243.
091800    03 FLD-NO-G-PPS-BMI-LINE-7         PIC 9(4) COMP-5 VALUE
091900                                         244.
092000    03 FLD-NO-G-PPS-BMI-LINE-8         PIC 9(4) COMP-5 VALUE
092100                                         245.
092200    03 FLD-NO-G-OUT-BMI-LINE-1         PIC 9(4) COMP-5 VALUE
092300                                         246.
092400    03 FLD-NO-G-OUT-BMI-LINE-2         PIC 9(4) COMP-5 VALUE
092500                                         247.
092600    03 FLD-NO-G-OUT-BMI-LINE-3         PIC 9(4) COMP-5 VALUE
092700                                         248.
092800    03 FLD-NO-G-OUT-BMI-LINE-4         PIC 9(4) COMP-5 VALUE
092900                                         249.
093000    03 FLD-NO-G-OUT-BMI-LINE-5         PIC 9(4) COMP-5 VALUE
093100                                         250.
093200    03 FLD-NO-G-OUT-BMI-LINE-6         PIC 9(4) COMP-5 VALUE
093300                                         251.
093400    03 FLD-NO-G-OUT-BMI-LINE-7         PIC 9(4) COMP-5 VALUE
093500                                         252.
093600    03 FLD-NO-G-OUT-BMI-LINE-8         PIC 9(4) COMP-5 VALUE
093700                                         253.
093800    03 FLD-NO-G-CR-BMI-LINE-1          PIC 9(4) COMP-5 VALUE
093900                                         254.
094000    03 FLD-NO-G-CR-BMI-LINE-2          PIC 9(4) COMP-5 VALUE
094100                                         255.
094200    03 FLD-NO-G-CR-BMI-LINE-3          PIC 9(4) COMP-5 VALUE
094300                                         256.
094400    03 FLD-NO-G-CR-BMI-LINE-4          PIC 9(4) COMP-5 VALUE
094500                                         257.
094600    03 FLD-NO-G-CR-BMI-LINE-5          PIC 9(4) COMP-5 VALUE
094700                                         258.
094800    03 FLD-NO-G-CR-BMI-LINE-6          PIC 9(4) COMP-5 VALUE
094900                                         259.
095000    03 FLD-NO-G-CR-BMI-LINE-7          PIC 9(4) COMP-5 VALUE
095100                                         260.
095200    03 FLD-NO-G-CR-BMI-LINE-8          PIC 9(4) COMP-5 VALUE
095300                                         261.
095400    03 FLD-NO-G-B-COND-CODE            PIC 9(4) COMP-5 VALUE
095500                                         263.
095600    03 FLD-NO-G-B-REV-CODE3            PIC 9(4) COMP-5 VALUE
095700                                         264.
095800    03 FLD-NO-G-FILLER                 PIC 9(4) COMP-5 VALUE
095900                                         265.
096000    03 FLD-NO-G-B-PATIENT-HGT          PIC 9(4) COMP-5 VALUE
096100                                         266.
096200    03 FLD-NO-G-B-PATIENT-WGT          PIC 9(4) COMP-5 VALUE
096300                                         267.
096400    03 FLD-NO-G-B-THRU-DATE            PIC 9(4) COMP-5 VALUE
096500                                         268.
096600    03 FLD-NO-G-B-THRU-YYYY            PIC 9(4) COMP-5 VALUE
096700                                         269.
096800    03 FLD-NO-G-B-THRU-MM              PIC 9(4) COMP-5 VALUE
096900                                         270.
097000    03 FLD-NO-G-B-THRU-DD              PIC 9(4) COMP-5 VALUE
097100                                         271.
097200    03 FLD-NO-G-B-DOB-DATE             PIC 9(4) COMP-5 VALUE
097300                                         272.
097400    03 FLD-NO-G-B-DOB-YYYY             PIC 9(4) COMP-5 VALUE
097500                                         273.
097600    03 FLD-NO-G-B-DOB-MM               PIC 9(4) COMP-5 VALUE
097700                                         274.
097800    03 FLD-NO-G-B-DOB-DD               PIC 9(4) COMP-5 VALUE
097900                                         275.
098000    03 FLD-NO-G-BILL-FILLER            PIC 9(4) COMP-5 VALUE
098100                                         276.
098200    03 FLD-NO-G-DRUG-ADD-ON-RETURN     PIC 9(4) COMP-5 VALUE
098300                                         277.
098400    03 FLD-NO-G-MSA-WAGE-ADJ           PIC 9(4) COMP-5 VALUE
098500                                         278.
098600    03 FLD-NO-G-CBSA-WAGE-ADJ          PIC 9(4) COMP-5 VALUE
098700                                         279.
098800    03 FLD-NO-G-FILLER6                PIC 9(4) COMP-5 VALUE
098900                                         280.
099000    03 FLD-NO-G-P-NPI                  PIC 9(4) COMP-5 VALUE
099100                                         282.
099200    03 FLD-NO-G-P-NPI-FILLER           PIC 9(4) COMP-5 VALUE
099300                                         283.
099400    03 FLD-NO-G-P-PROV-OSCAR           PIC 9(4) COMP-5 VALUE
099500                                         284.
099600    03 FLD-NO-G-P-GEO-MSA              PIC 9(4) COMP-5 VALUE
099700                                         285.
099800    03 FLD-NO-G-P-GEO-CBSA             PIC 9(4) COMP-5 VALUE
099900                                         286.
100000    03 FLD-NO-G-P-SPEC-PYMT-IND        PIC 9(4) COMP-5 VALUE
100100                                         287.
100200    03 FLD-NO-G-P-PROV-TYPE            PIC 9(4) COMP-5 VALUE
100300                                         288.
100400    03 FLD-NO-G-P-SPEC-WAGE-INDX       PIC 9(4) COMP-5 VALUE
100500                                         289.
100600    03 FLD-NO-G-P-ESRD-RATE            PIC 9(4) COMP-5 VALUE
100700                                         290.
100800    03 FLD-NO-G-CASE-MIX-FCTR-ADJ-RT   PIC 9(4) COMP-5 VALUE
100900                                         291.
101000    03 FLD-NO-G-P-WAIVE-BLEND          PIC 9(4) COMP-5 VALUE
101100                                         292.
101200    03 FLD-NO-G-P-LOW-VOLUME           PIC 9(4) COMP-5 VALUE
101300                                         293.
101400    03 FLD-NO-G-P-PACIFIC-IS-TRUST-TE  PIC 9(4) COMP-5 VALUE
101500                                         294.
101600* Field G-P-PACIFIC-IS-TRUST-TERR has been truncated
101700    03 FLD-NO-G-B-DIALYSIS-START-DATE  PIC 9(4) COMP-5 VALUE
101800                                         295.
101900    03 FLD-NO-G-B-SEPARATELY-BILLABLE  PIC 9(4) COMP-5 VALUE
102000                                         296.
102100* Field G-B-SEPARATELY-BILLABLE-AMT has been truncated
102200    03 FLD-NO-G-B-NUM-DIALYSIS-SESSIO  PIC 9(4) COMP-5 VALUE
102300                                         297.
102400* Field G-B-NUM-DIALYSIS-SESSIONS has been truncated
102500    03 FLD-NO-G-B-ACUTE-MA             PIC 9(4) COMP-5 VALUE
102600                                         298.
102700    03 FLD-NO-G-B-ACUTE-MB             PIC 9(4) COMP-5 VALUE
102800                                         299.
102900    03 FLD-NO-G-B-ACUTE-MC             PIC 9(4) COMP-5 VALUE
103000                                         300.
103100    03 FLD-NO-G-B-CHRONIC-MD           PIC 9(4) COMP-5 VALUE
103200                                         301.
103300    03 FLD-NO-G-B-CHRONIC-ME           PIC 9(4) COMP-5 VALUE
103400                                         302.
103500    03 FLD-NO-G-B-CHRONIC-MF           PIC 9(4) COMP-5 VALUE
103600                                         303.
103700    03 FLD-NO-G-PSF-FILLER             PIC 9(4) COMP-5 VALUE
103800                                         304.
103900    03 FLD-NO-G-CBSA-WAGE-PMT-RATE     PIC 9(4) COMP-5 VALUE
104000                                         305.
104100    03 FLD-NO-FILLER1                  PIC 9(4) COMP-5 VALUE
104200                                         306.
104300    03 FLD-NO-G-AMT-INDIC              PIC 9(4) COMP-5 VALUE
104400                                         307.
104500    03 FLD-NO-FILLER2                  PIC 9(4) COMP-5 VALUE
104600                                         308.
104700    03 FLD-NO-G-BLOOD-DOLLAR           PIC 9(4) COMP-5 VALUE
104800                                         309.
104900    03 FLD-NO-FILLER3                  PIC 9(4) COMP-5 VALUE
105000                                         310.
105100    03 FLD-NO-G-HEMO-CCPD-CAPD         PIC 9(4) COMP-5 VALUE
105200                                         311.
105300    03 FLD-NO-G-AGE-RETURN             PIC 9(4) COMP-5 VALUE
105400                                         312.
105500    03 FLD-NO-FILLER4                  PIC 9(4) COMP-5 VALUE
105600                                         313.
105700    03 FLD-NO-G-TEST-INDICATOR         PIC 9(4) COMP-5 VALUE
105800                                         314.
105900    03 FLD-NO-G-PPS-RTC                PIC 9(4) COMP-5 VALUE
106000                                         316.
106100    03 FLD-NO-G-PPS-MSA                PIC 9(4) COMP-5 VALUE
106200                                         317.
106300    03 FLD-NO-G-PPS-CBSA               PIC 9(4) COMP-5 VALUE
106400                                         318.
106500    03 FLD-NO-G-PPS-WAGE-ADJ-RATE      PIC 9(4) COMP-5 VALUE
106600                                         319.
106700    03 FLD-NO-G-PPS-FINAL-PAY-AMT      PIC 9(4) COMP-5 VALUE
106800                                         320.
106900    03 FLD-NO-G-PPS-CALC-VERS-CD       PIC 9(4) COMP-5 VALUE
107000                                         321.
107100    03 FLD-NO-G-PPS-COND-CODE          PIC 9(4) COMP-5 VALUE
107200                                         322.
107300    03 FLD-NO-G-PPS-REV-CODE           PIC 9(4) COMP-5 VALUE
107400                                         323.
107500    03 FLD-NO-G-PPS-DATA-FILLER        PIC 9(4) COMP-5 VALUE
107600                                         324.
107700    03 FLD-NO-G-MSA-WAGE-AMT           PIC 9(4) COMP-5 VALUE
107800                                         325.
107900    03 FLD-NO-G-CBSA-WAGE-INDEX        PIC 9(4) COMP-5 VALUE
108000                                         326.
108100    03 FLD-NO-G-LABOR-PCT              PIC 9(4) COMP-5 VALUE
108200                                         327.
108300    03 FLD-NO-FILLER5                  PIC 9(4) COMP-5 VALUE
108400                                         328.
108500    03 FLD-NO-G-PPS-NAT-LABOR-PCT      PIC 9(4) COMP-5 VALUE
108600                                         330.
108700    03 FLD-NO-G-PPS-NAT-NONLABOR-PCT   PIC 9(4) COMP-5 VALUE
108800                                         331.
108900    03 FLD-NO-G-PPS-AGE-FACTOR         PIC 9(4) COMP-5 VALUE
109000                                         332.
109100    03 FLD-NO-G-PPS-BSA-FACTOR         PIC 9(4) COMP-5 VALUE
109200                                         333.
109300    03 FLD-NO-G-PPS-BMI-FACTOR         PIC 9(4) COMP-5 VALUE
109400                                         334.
109500    03 FLD-NO-G-PPS-BDGT-NEUT-RATE     PIC 9(4) COMP-5 VALUE
109600                                         335.
109700    03 FLD-NO-G-PPS-BMI                PIC 9(4) COMP-5 VALUE
109800                                         336.
109900    03 FLD-NO-G-PPS-BSA                PIC 9(4) COMP-5 VALUE
110000                                         337.
110100    03 FLD-NO-G-MSA-PCT                PIC 9(4) COMP-5 VALUE
110200                                         338.
110300    03 FLD-NO-G-CBSA-PCT               PIC 9(4) COMP-5 VALUE
110400                                         339.
110500    03 FLD-NO-G-W-NEW-RATE1-RECORD     PIC 9(4) COMP-5 VALUE
110600                                         340.
110700    03 FLD-NO-G-W-NEW-RATE2-RECORD     PIC 9(4) COMP-5 VALUE
110800                                         341.
110900    03 FLD-NO-G-W-NEW-CBSA1-RECORD     PIC 9(4) COMP-5 VALUE
111000                                         342.
111100
111200*****************************************************************
111300*   End of Field Numbers
111400*****************************************************************
