* * HGCDKSPR - MVP CUSTOM PAYLOAD RESPONSE * * UPDATED: REQUESTOR: * 12/03/19 W LOEB ***************************************************************** 03 KSP-HEADER-CLAIM-AREA. 05 KSP-HEADER. ***************************************************************** * "CON" = CON-PRIMER * "ACK" = CON-PRIMER ACKNOWLEDGEMENT * "FIN" = FINAL MESSAGE * "ERR" = ERROR PROMPT * "UPF" = UPF INTEGRATION POINT * "CXT" = CLAIM XTEN * "TPL" = PRE THIRD PARTY LIABILITY * "MED" = MEDICARE ***************************************************************** 07 KSP-RECORD-TYPE PIC X(03). 88 KSP-CON-PRIMER VALUE 'CON'. 88 KSP-CON-ACK VALUE 'ACK'. 88 KSP-FIN VALUE 'FIN'. 88 KSP-ERR VALUE 'ERR'. 88 KSP-UPF VALUE 'UPF'. 88 KSP-CXT VALUE 'CXT'. 88 KSP-TPL VALUE 'TPL'. 88 KSP-MED VALUE 'MED'. 07 KSP-CLM-NO PIC X(20). 07 KSP-CLM-TOTAL-NO-SERVICES PIC 9(03). 07 KSP-PRETPL-CALL-TYPE PIC X(02). 88 KSP-MCCAL VALUE 'M '. 88 KSP-RSCAL VALUE 'R '. 88 KSP-SORT0 VALUE 'S '. 88 KSP-WCCAL VALUE 'W '. 88 KSP-MCCAL-SORT0 VALUE 'MS'. 88 KSP-RSCAL-SORT0 VALUE 'RS'. 88 KSP-WCCAL-SORT0 VALUE 'WS'. 05 KSP-ERROR-PROCESS. 07 KSP-SERVICE-NO PIC 9(04). 07 KSP-ERROR-RETURN-CODE PIC X(08). 07 KSP-ERR-ACCUM-DYNAMIC-MSG. 09 KSP-ERR-AC06-COI2-TAKE PIC S9(09)V99 COMP-3. 09 KSP-ERR-AC06-COI-ELIG-DOLLARS PIC S9(09)V99 COMP-3. 09 KSP-ERR-AC06-COI2-MESSAGE PIC X(16). 88 KSP-ERR-AC06-COI1-MSG-1 VALUE 'CONTRACT COINSUR'. 88 KSP-ERR-AC06-COI1-MSG-2 VALUE 'PRIOR CCP COINSR'. 88 KSP-ERR-AC06-COI1-MSG-3 VALUE 'INSTD CCP COINSR'. 88 KSP-ERR-AC06-COI1-MSG-4 VALUE 'AFTER CCP COINSR'. 09 KSP-ERR-AC06-DED2-TAKE PIC S9(09)V99 COMP-3. 09 KSP-ERR-AC06-DED-ELIG-DOLLARS PIC S9(09)V99 COMP-3. 09 KSP-ERR-AC06-DED2-MESSAGE PIC X(16). 88 KSP-ERR-AC06-DED2-MSG-1 VALUE 'PRIOR CCP DEDUCT'. 88 KSP-ERR-AC06-DED2-MSG-2 VALUE 'INSTD CCP DEDUCT'. 88 KSP-ERR-AC06-DED2-MSG-3 VALUE 'AFTER CCP DEDUCT'. 09 KSP-ERR-AC03-MAX-LEAST-PTPL PIC S9(09)V99 COMP-3. 07 KSP-ERR-BD-DYNAMIC-MSG. 09 KSP-ERR-BD-NON-APPOVED-UNITS PIC 9(05). 00130900 09 KSP-ERR-BD-ACTION-CODE PIC X(01). 00130900 09 KSP-ERR-BD-REASON-CODE PIC X(01). 00130900 09 KSP-ERR-BD-FROM-DATE PIC X(08). 00131300 09 KSP-ERR-BD-TO-DATE PIC X(08). 00131400 09 KSP-ERR-BD-RETURN-CLASS PIC X(02). 00131000 09 KSP-ERR-BD-RETURN-CODE PIC 9(05). 00131000 09 KSP-ERR-BD-GROUP PIC X(06). 00131000 09 KSP-ERR-BD-SECTION PIC X(04). 00131100 09 KSP-ERR-BD-MEMBER PIC X(09). 00131200 09 KSP-ERR-BD-REL-CODE PIC X(03). 00131200 07 KSP-ERR-PRC-DYNAMIC-MSG. 09 KSP-ERR-PRC-INVALID-INPUT PIC X(24). 00130900 07 KSP-ERR-BD-TIMELY-FILG-IND PIC X(02). 07 KSP-ERR-BD-TERM-OB-COVERAGE-IN PIC X(01). 05 FILLER PIC X(100). 05 KSP-DFT-FILE. 07 KSP-DFT-RF-STATUS-IND PIC X(01). 05 KSP-CLAIM-FILE. 07 KSP-CLM-ACCUM-EVENT-IND PIC X(01). 07 KSP-CLM-ADJUST-RSN-CD PIC X(03) OCCURS 10 TIMES. 07 KSP-CLM-ADP-PROVIDER-GROUPING PIC X(04). 07 KSP-CLM-AFT-MAX-DOLLARS PIC S9(09)V99 COMP-3. 07 KSP-CLM-BCBSM-DRG-BASE-RATE PIC S9(09)V99 COMP-3. 07 KSP-CLM-BCBSM-DRG-PPA-PCT PIC S9V9(04) COMP-3. 07 KSP-CLM-BLUESTAR-ACCOUNT PIC X(06). 07 KSP-CLM-BSTAR-MCARE-PRIM-SEC PIC X(01). 07 KSP-CLM-CALC-CITY-DAYS PIC S9(03) COMP-3. 07 KSP-CLM-CCP-PAT-CONTROL-NO PIC X(11). 07 KSP-CLM-CFA-ARRANGEMENT-IND PIC X(01). 07 KSP-CLM-CITY-PAY-WITHIN-CD PIC X(01). 07 KSP-CLM-CON-NATL-KEY PIC X(11). 07 KSP-CLM-CPAY-MET-IND PIC X(01). 07 KSP-CLM-CURR-WORK-STAT-CD PIC X(02). 07 KSP-CLM-CURR-WORK-RSN-CD PIC X(03). 07 KSP-CLM-CVP-ORIG-PRC-AMT PIC S9(09)V99 COMP-3. 07 KSP-CLM-CXT-ORIG-PRC-AMT PIC S9(09)V99 COMP-3. 07 KSP-CLM-DECREMENT-IND PIC X(01). 07 KSP-CLM-DERIVED-TYPE-RISK PIC X(01). 07 KSP-CLM-DRG-GROUPER-CD PIC X(04). 07 KSP-CLM-EOB-SUPPRESSION-IND PIC X(01). 07 KSP-CLM-ET-BEN-IND PIC X(01). 07 KSP-CLM-FEE-SCH-DIFF-AMT PIC S9(09)V99 COMP-3. 07 KSP-CLM-FUND-TYPE-IND PIC X(01). 07 KSP-CLM-GCT-PROVDR-CONTROL PIC X(02). 07 KSP-CLM-GSP-NATL-KEY PIC X(08). 07 KSP-CLM-HCSC-DISC-CLAIM-TYPE PIC X(01). 07 KSP-CLM-HMO-TYPE-RISK PIC X(01). 07 KSP-CLM-INITIAL-TOC PIC X(02). 07 KSP-CLM-INTERIM-DISC-AMT PIC S9(09)V99 COMP-3. 07 KSP-CLM-ITS-INCLSV-GRPG-NBR PIC X(02). 07 KSP-CLM-ITS-PPO-PROV-TYP-AVAL PIC X(01). 07 CLM-LTR-CONTROLS OCCURS 3 TIMES. 09 KSP-CLM-LEGS-LTR-CD PIC X(05). 09 KSP-CLM-LEGS-SUPPRESSION-IND PIC X(01). 09 KSP-CLM-LEGS-COPY-SUPPR-IND PIC X(01). 07 KSP-CLM-LVL-OF-CARE-CD PIC X(03). 07 KSP-CLM-MCARE-CROSSOVER-IND PIC X(01). 07 KSP-CLM-MCARE-ENT-RSN-EFF-DT PIC S9(07) COMP-3. 07 KSP-CLM-MCARE-ENT-RSN-END-DT PIC S9(07) COMP-3. 07 KSP-CLM-MCARE-ENTITLEMENT-RSN PIC X(04). 07 KSP-CLM-MCARE-HIST-EMPSTAT-CD PIC X(03). 07 KSP-CLM-MCARE-PRIMARY-SEC-IND PIC X(01). 07 KSP-CLM-MCN-PCP-PRIMARY-NO PIC X(20). 07 KSP-CLM-MCN-PCP-SECONDARY-NO PIC X(20). 07 KSP-CLM-MCN-PERF-PROV-NO PIC X(20). 07 KSP-CLM-MESSAGE-CODE-TABLE. 12 KSP-CLM-MESSAGE-CODES OCCURS 5 TIMES. 17 KSP-CLM-MESSAGE-CD PIC X(04). 07 KSP-CLM-MSP-PROCESS PIC X(01). 07 KSP-CLM-NC-CON-EFF-DTCC PIC S9(07) COMP-3. 07 KSP-CLM-NC-GSP-EFF-DTCC PIC S9(07) COMP-3. 07 KSP-CLM-OPPS-PAYMENT-IND PIC X(01). 07 KSP-CLM-PAYEE-CD PIC X(01). 07 KSP-CLM-POST-TOT-PPO-DISC-AMT PIC S9(09)V99 COMP-3. 07 KSP-CLM-PPO-AVBL PIC X(01). 07 KSP-CLM-PPO-DISCOUNT-VALUE. 09 KSP-CLM-PPO-DISCOUNT-FILLER PIC X(01). 09 KSP-CLM-PPO-DISCOUNT-TYPE PIC X(01). 07 KSP-CLM-PROC-BIT PIC X(01). 07 KSP-CLM-PROV-BIT-PFIN PIC X(01). 07 KSP-CLM-PROV-HIGH-OPTION PIC X(01). 07 KSP-CLM-PROVIDER-COUNTY-CD PIC X(03). 07 KSP-CLM-PROVIDER-LOCALITY PIC X(03). 07 KSP-CLM-PROVIDER-PCP-IND PIC X(01). 07 KSP-CLM-REINS-INFO. 09 KSP-CLM-REINS-LOB-IND PIC 9(01). 09 KSP-CLM-REINS-PAT-SLOT PIC 9(01). 07 KSP-CLM-SPECIALTY-CD PIC X(03). 07 KSP-CLM-STD-NTWK-DIFF-AMT PIC S9(09)V99 COMP-3. 07 KSP-CLM-SYS-PAYEE-CD PIC X(01). 07 KSP-CLM-TRNSLTD-FINAL-TOC PIC X(02). 07 KSP-CLM-TX-POS-IND PIC X(01). 07 KSP-CLM-UPFRONT-DED-MET-IND PIC X(01). 07 KSP-CLM-ZDF-IND PIC X(01). 07 KSP-CLM-ACCUM-OL-EXCH-IND PIC X(02). 07 KSP-CLM-ET-RULE-IND PIC X(01). 07 KSP-CLM-OVRRD-PRV-NTWK-LVL-NM PIC X(03). 07 KSP-CLM-PRV-NTWK-LVL-NM PIC X(03). 07 KSP-CLM-PRV-NTWK-TIER-LVL-NBR PIC S9(03) COMP-3. 07 KSP-CLM-SVC-CAT-CD PIC X(04). 07 KSP-CLM-POSBL-DUPLCT-IND PIC X(01). 05 KSP-CSUM. 07 KSP-CSUM-DOLLARS. 09 KSP-CSUM-ACCUM-DED-B-AMT PIC S9(09)V99 COMP-3. 09 KSP-CSUM-ACCUM-DED-C-AMT PIC S9(09)V99 COMP-3. 07 KSP-CSUM-MISC-DATA-FIELDS. 09 KSP-CSUM-ADJUDI-GRP-NO PIC X(09). 09 KSP-CSUM-ADJUDI-SECT-NO PIC X(04). 09 KSP-CSUM-ADJUDI-TYPE-OF-BUS PIC X(02). 09 KSP-CSUM-ALTERNATE-PRVSN-ID. 11 KSP-CSUM-ALT-PRVSN PIC X(04). 11 KSP-CSUM-ALT-CLM-BEN-CD PIC X(01). 09 KSP-CSUM-BAE-IND PIC X(01). 09 KSP-CSUM-CALC-LFT-OVR-SRG-IND PIC X(01). 09 KSP-CSUM-CCP-CAS-MPI-PGM-IND PIC X(01). 07 KSP-CSUM-APG-FIN-WT PIC S9(05)V9(06) COMP-3. 07 KSP-CSUM-APG-MED-AMT PIC S9(09)V99 COMP-3. 07 KSP-CSUM-APG-MED-CAT PIC X(03). 07 KSP-CSUM-APG-MED-CD PIC X(03). 07 KSP-CSUM-BASIC-FIELDS. 09 KSP-CSUM-BA-EMER-IND PIC X(01). 09 KSP-CSUM-BA-SUPPLEMENTAL-AMT PIC S9(09)V99 COMP-3. 09 KSP-CSUM-BA-SURCHARGE-AMT PIC S9(09)V99 COMP-3. 07 KSP-CSUM-CGA-MANL-CALC-IND PIC X(01). 07 KSP-CSUM-CVP-CLM-STA-CD PIC X(02). 07 KSP-CSUM-DAYS-PAID PIC S9(03) COMP-3. 07 KSP-CSUM-DRG-AMT PIC S9(09)V99 COMP-3. 07 KSP-CSUM-EOB-CDS-ODDITIES PIC X(02). 07 KSP-CSUM-EXTND-PRCG-RT-CD PIC X(02). 07 KSP-CSUM-FACILITY-CD PIC X(01). 07 KSP-CSUM-FMIS-BA-ELIG-AMT PIC S9(09)V99 COMP-3. 07 KSP-CSUM-FMIS-BA-PRE-TPL-PYMT PIC S9(09)V99 COMP-3. 07 KSP-CSUM-FMIS-BA-PST-TPL-PYMT PIC S9(09)V99 COMP-3. 07 KSP-CSUM-FMIS-GRP-PPO-PGM-IND PIC X(02). 07 KSP-CSUM-FMIS-PAY-PPO-PGM-IND PIC X(02). 07 KSP-CSUM-FMIS-PRO-PPO-PGM-IND PIC X(02). 07 KSP-CSUM-FMIS-TOT-BA-DED-AMT PIC S9(09)V99 COMP-3. 07 KSP-CSUM-FMIS-TOT-BA-INEL-AMT PIC S9(09)V99 COMP-3. 07 KSP-CSUM-FR-BEN-PER-FR-DTCC PIC S9(07) COMP-3. 07 KSP-CSUM-FR-BEN-PER-TO-DTCC PIC S9(07) COMP-3. 07 KSP-CSUM-GCT-COST-PREM-IND PIC X(01). 07 KSP-CSUM-GRP-CONTR-CDG-CD PIC X(02). 07 KSP-CSUM-HCSC-ACCESS-FEE-AMT PIC S9(09)V99 COMP-3. 07 KSP-CSUM-HCSC-DISC-AREA PIC X(02). 07 KSP-CSUM-HCSC-DISC-PROD-TYPE PIC X(03). 07 KSP-CSUM-HCSC-I-O-NETWORK PIC X(01). 07 KSP-CSUM-HMO-DAYS PIC S9(03) COMP-3. 07 KSP-CSUM-HMO-IN-OUT-AREA-CD PIC X(01). 07 KSP-CSUM-ILNS-SVRTY-CD PIC X(01). 07 KSP-CSUM-ITS-HSA-DISC-AMT PIC S9(09)V99 COMP-3. 07 KSP-CSUM-ITS-MAX-DOLLARS PIC S9(09)V99 COMP-3. 07 KSP-CSUM-ITS-PRCG-STA-CD PIC X(03). 07 KSP-CSUM-ITS-TOT-PRE-PRC-AMT PIC S9(09)V99 COMP-3. 07 KSP-CSUM-MCN PIC X(01). 07 KSP-CSUM-MED-GRP-APPROVAL-FLD. 11 KSP-CSUM-MED-GRP-APPROVAL-FIL PIC X(01). 11 KSP-CSUM-MED-GRP-APPROVAL-CD PIC X(01). 07 KSP-CSUM-MED-REC-REQ-SYS-CD PIC X(01). 07 KSP-CSUM-MED-SVCS-ADVISORY PIC X(01). 07 KSP-CSUM-MEM-NETWORK-ID PIC X(03). 07 KSP-CSUM-MENTAL-HEALTH-SUB-AB PIC X(01). 07 KSP-CSUM-MPI-CLM-PRCG-NTWK-CD PIC X(03). 07 KSP-CSUM-MPI-CLM-REPRCG-AMT PIC S9(09)V99 COMP-3. 07 KSP-CSUM-MPI-CLM-SAVG-AMT PIC S9(09)V99 COMP-3. 07 KSP-CSUM-MPI-CLNT-CD PIC X(20). 07 KSP-CSUM-MPI-PRC-APPLD-CD PIC X(01). 07 KSP-CSUM-MPI-PRCG-STA-RSN-CD PIC X(03). 07 KSP-CSUM-NATL-MCSP-ROOM-RATE PIC S9(09)V99 COMP-3. 07 KSP-CSUM-NTWK-DIFF-TIER-AMT PIC S9(09)V99 COMP-3. 07 KSP-CSUM-OCCURRENCE-DTCC PIC S9(07) COMP-3. 07 KSP-CSUM-PROGRAM-INDICATORS. 09 KSP-CSUM-PARTICIPATING-CD PIC X(02). 09 KSP-CSUM-POLICY-TYPE-CD PIC X(03). 09 KSP-CSUM-HCSC-DISC-IND PIC X(01). 09 KSP-CSUM-SUBSHARE-IND PIC X(01). 09 KSP-CSUM-PRL-OUTLIER-IND PIC X(01). 09 KSP-CSUM-PRL-PRICE-RETURN-CD PIC X(02). 09 KSP-CSUM-ITS-CERT-IND PIC X(01). 09 KSP-CSUM-ITS-FAC-TYPE PIC X(04). 09 KSP-CSUM-GRPR-VERSION PIC X(02). 09 KSP-CSUM-FEE-CLAIM-LINE-IND PIC X(01). 09 KSP-CSUM-PRC-NON-COV-DAYS PIC 9(03). 09 KSP-CSUM-PRC-OUTLIER-DAYS PIC 9(03). 09 KSP-CSUM-DIMENSION-ID PIC X(10). 09 KSP-CSUM-PRIME-RET-CLASS PIC X(02). 09 KSP-CSUM-PRIME-RETURN-CD PIC X(04). 09 KSP-CSUM-DRG-WT-VER PIC X(03). 09 KSP-CSUM-PRIME-CLM-PAYMT-IND PIC X(01). 09 KSP-CSUM-APG-MED-TYP PIC X(01). 09 KSP-CSUM-REIM-SCH-CLM-IND PIC X(01). 09 KSP-CSUM-BEN-REL-NETWORK-ID PIC X(03). 09 KSP-CSUM-DAYS-BILLED PIC S9(05) COMP-3. 09 KSP-CSUM-HCSC-DISC-AMT PIC S9(09)V99 COMP-3. 09 KSP-CSUM-DRG-WEIGHT PIC S9(4)V9(5) COMP-3. 09 KSP-CSUM-PER-DIEM-AMT PIC S9(09)V99 COMP-3. 09 KSP-CSUM-APG-MED-WT PIC S9(05)V9(06) COMP-3. 09 KSP-CSUM-BEN-CLM-TOT-ALLW-AMT PIC S9(09)V99 COMP-3. 09 KSP-CSUM-NLINE-ALLOW-AMT PIC S9(09)V99 COMP-3. 09 KSP-CSUM-HCSC-ACCESS-FEE-PCT PIC S9V9999 COMP-3. 09 KSP-CSUM-ITS-DISC-PCT PIC S9(03)V99 COMP-3. 09 KSP-CSUM-PERCTL-PCT PIC S9(3)V99 COMP-3. 09 KSP-CSUM-OTHER-PCT PIC S9(3)V99 COMP-3. 09 KSP-CSUM-ITS-NONPAR-PRICE-IND PIC X(01). 07 KSP-CSUM-PAT-DEDUCT-REIM-AMT PIC S9(09)V99 COMP-3. 07 KSP-CSUM-PPO-IND PIC X(01). 07 KSP-CSUM-PPO-OVERRIDE-IND PIC X(02). 07 KSP-CSUM-PRCDR2-RETURN-CD PIC X(04). 07 KSP-CSUM-PRE-ADM-REV PIC X(01). 07 KSP-CSUM-PREAUTH-MTCH-RTR-IND PIC X(01). 07 KSP-CSUM-PREF-PROVIDER PIC X(01). 07 KSP-CSUM-PREF-PROVIDER-CD PIC X(02). 07 KSP-CSUM-PRICE-ROUTER-IND PIC X(01). 07 KSP-CSUM-PRICED-AMT PIC S9(09)V99 COMP-3. 07 KSP-CSUM-PRIM-DIAG-DESCR PIC X(40). 07 KSP-CSUM-PRL-APRVL-LNGTH-STAY PIC X(03). 07 KSP-CSUM-PRL-GMIS-APPLIES-IND PIC X(01). 07 KSP-CSUM-PRL-HPI-PAYMENT-IND PIC X(01). 07 KSP-CSUM-PRL-PAT-SHARE-AMT PIC S9(09)V99 COMP-3. 07 KSP-CSUM-PROVISION-ID. 11 KSP-CSUM-PROVISION PIC X(04). 11 KSP-CSUM-PROV-ID-FILLER-1 PIC X(01). 11 KSP-CSUM-WHOLE-CLM-BEN-CD PIC X(01). 07 KSP-CSUM-REDUCTN-COINS-AMT PIC S9(09)V99 COMP-3. 07 KSP-CSUM-REL-NETWORK-ID PIC X(03). 07 KSP-CSUM-SE-REDUCTN-AMT PIC S9(09)V99 COMP-3. 07 KSP-CSUM-SE-REDUCTN-IND PIC X(01). 07 KSP-CSUM-TOT-AMT-BILLED PIC S9(09)V99 COMP-3. 07 KSP-CSUM-TOT-BA-DEDUCT PIC S9(09)V99 COMP-3. 07 KSP-CSUM-TOT-BA-ELIGIBLE PIC S9(09)V99 COMP-3. 07 KSP-CSUM-TOT-BA-INELIG-AMT PIC S9(09)V99 COMP-3. 07 KSP-CSUM-TOT-BA-PAYABLE PIC S9(09)V99 COMP-3. 07 KSP-CSUM-TOT-CLM-ALLW-AMT PIC S9(09)V99 COMP-3. 07 KSP-CSUM-TOT-POST-TPL-PYMT PIC S9(09)V99 COMP-3. 07 KSP-CSUM-TOT-PRE-TPL-PYMT PIC S9(09)V99 COMP-3. 07 KSP-CSUM-UNITS-VISITS-TRTS PIC S9(05) COMP-3. 07 KSP-CSUM-UPFRONT-DED-A-AMT PIC S9(09)V99 COMP-3. 07 KSP-CSUM-VALUE-DATA. 09 KSP-CSUM-VALUE-FIELDS OCCURS 12 TIMES INDEXED BY KSP-CSUM-VALUE-FLDS-CNT. 11 KSP-CSUM-VALUE-CD PIC X(02). 07 KSP-CSUM-PLN-VRSN-ID PIC S9(9) COMP. 07 KSP-CSUM-DECREMENT-RTE-IND PIC X(01). 05 KSP-CSUM-PAT-HLD-HARMLESS-AMT PIC S9(09)V99 COMP-3. 05 KSP-PAT. 07 KSP-PAT-BC-TERM-BEN-DTCC PIC S9(07) COMP-3. 07 KSP-PAT-BS-TERM-BEN-DTCC PIC S9(07) COMP-3. 07 KSP-PAT-APPROVED-FROM-DTCC PIC S9(07) COMP-3. 07 KSP-PAT-APPROVED-TO-DTCC PIC S9(07) COMP-3. 07 KSP-PAT-BC-TERMINAL-OB-DTCC PIC S9(07) COMP-3. 07 KSP-PAT-BS-START-UP-DTCC PIC S9(07) COMP-3. 07 KSP-PAT-BS-TERMINAL-OB-DTCC PIC S9(07) COMP-3. 07 KSP-PAT-CAS-APPROVED-FROM-IND PIC X(01). 07 KSP-PAT-CAS-APPROVED-TO-IND PIC X(01). 07 KSP-PAT-CMS-2728-AVAIL PIC X(01). 07 KSP-PAT-CMS-2728-1ST-REQ-DTCC PIC S9(07) COMP-3. 07 KSP-PAT-ESRD PIC X(01). 07 KSP-PAT-ESRD-LETTER-SENT-DTCC PIC S9(07) COMP-3. 07 KSP-PAT-GEN-LETTER PIC X(01). 07 KSP-PAT-TOTAL-REINS-AMT PIC S9(07)V99 COMP-3. 07 KSP-PAT-ANN-REINS-BGN-DTCC PIC S9(07) COMP-3 OCCURS 4 TIMES. 07 KSP-PAT-BC-START-UP-DTCC PIC S9(07) COMP-3. 05 KSP-PCOM. 07 KSP-PCOM-ADJ-SUB-SHARE-IND PIC X(01). 07 KSP-PCOM-AUTO-CUTBACK-IND PIC X(01). 07 KSP-PCOM-CCP-ADMISSION-DATECC PIC S9(07) COMP-3. 07 KSP-PCOM-CCP-DISCHARGE-DATECC PIC S9(07) COMP-3. 07 KSP-PCOM-CCP-FILE-REQUEST PIC X(02). 07 KSP-PCOM-CCP-RECORD-RETRN-IND PIC X(01). 07 KSP-PCOM-CLM-TX-POS-IND PIC X(01). 07 KSP-PCOM-CPR-ACTION-TAKEN PIC X(01). 07 KSP-PCOM-CPR-REQUEST-DATA PIC X(05). 07 KSP-PCOM-CVP-OUTCOME-CD PIC X(01). 07 KSP-PCOM-CVP-TRANS-SUB-CNT PIC 9(02). 07 KSP-PCOM-DESUNIT-RETCODE PIC 9(8) COMP. 07 KSP-PCOM-EMER-OVERRIDE-IND PIC X(01). 07 KSP-PCOM-EOB-ODDITIES-PARM PIC X(02). 07 KSP-PCOM-ERROR-MESSAGE-1 PIC X(61). 07 KSP-PCOM-ERROR-MESSAGE-2 PIC X(79). 07 KSP-PCOM-ERROR-RETURN-CODE PIC X(8). 07 KSP-PCOM-GCD2-BYPASS-IND PIC X(01). 07 KSP-PCOM-GVLP-PROVIDER-IND PIC X(01). 07 KSP-PCOM-GZAH-TSQ-STATUS PIC X(01). 07 KSP-PCOM-HMO-IND PIC X(01). 07 KSP-PCOM-ITS-MAX-DOLLAR-1 PIC S9(09)V99 COMP-3. 07 KSP-PCOM-ITS-MAX-DOLLAR-2 PIC S9(09)V99 COMP-3. 07 KSP-PCOM-ITS-MAX-DOLLAR-3 PIC S9(09)V99 COMP-3. 07 KSP-PCOM-ITS-2ND-TIME-IND PIC X(01). 07 KSP-PCOM-MCARE-PRIMRY-SEC-IND PIC X(01). 07 KSP-PCOM-MPI-OUTCOME-CD PIC X(01). 07 KSP-PCOM-MPI-TRANS-SUB-CNT PIC 9(02). 07 KSP-PCOM-MSA-LATE-NOTE-IND PIC X(01). 07 KSP-PCOM-MSA-OVRX-PEND-IND PIC X(01). 07 KSP-PCOM-MSA-OVRX-PEND-VALUE PIC X(01). 07 KSP-PCOM-NETWORK-DETER-IND PIC X(01). 07 KSP-PCOM-OTHER-CARR-PPO-IND PIC X(01). 07 KSP-PCOM-PAY-SUBSCRIBER-IND PIC X(01). 07 KSP-PCOM-PEARL-PGM-FUNC-CD PIC X(04). 07 KSP-PCOM-PEND-VALUE-OVERRIDE PIC X(01). 07 KSP-PCOM-PLAN-ARG-PGM-FUNC-CD PIC X(04). 07 KSP-PCOM-PPO-REF-MSG-IND PIC X(01). 07 KSP-PCOM-READ-PROV-MSTR-IND PIC X(01). 07 KSP-PCOM-SRK-FLIP-IND PIC X(01). 07 KSP-PCOM-SUBSHARE-ADP-AFT-IND PIC X(01). 07 KSP-PCOM-SVC-ERR-CD PIC X(04). 07 KSP-PCOM-SVC-MC-SEQT-RECAL-CD PIC X(01). 07 KSP-PCOM-SVC-MGA-OVRD-IND PIC X(01). 07 KSP-PCOM-TOT-SANCTION-AMT PIC S9(09)V99 COMP-3. 07 KSP-PCOM-TX-MCARE-IND PIC X(01). 07 KSP-PCOM-TX-PROCESS-MH-IND PIC X(01). 07 KSP-PCOM-UNMH-ISSUE-GZA7-IND PIC X(01). 07 KSP-PCOM-UNMH-OVERRIDE-IND PIC X(01). 05 KSP-PRO. 07 KSP-PRO-PROVIDER-TYPE PIC X(02). 07 KSP-PRO-PARTICIPAT-CANC-DTCC PIC S9(07) COMP-3. 07 KSP-PRO-PARTICIPAT-EFF-DTCC PIC S9(07) COMP-3. 07 KSP-PRO-PARTICIPATING-CD PIC X(02). 07 KSP-PRO-PREFERRED-CD PIC X(02). 05 KSP-SDVR. 07 KSP-DR-BIT-11-VA-PROV-PFIN PIC X(01). 07 KSP-DR-BIT-13-PRIVT-ROOM-PFIN PIC X(01). 07 KSP-DR-BIT-35-CROSS-DOD-PFIN PIC X(01). 07 KSP-DR-BIT-35-SHIELD-DOD-PFI PIC X(01). 07 KSP-DR-BIT-60-INDIAN-CROSS PIC X(01). 07 KSP-DR-BIT-60-INDIAN-SHIELD PIC X(01). 07 KSP-DR-BIT-76-PAY-SUB-PFIN PIC X(01). 07 KSP-DR-CCP-PROG-IND PIC X. 07 KSP-DR-CCP-REPROCESS-GEA-IND PIC X. 07 KSP-DR-CLM-DIAGNOSIS-BITS PIC X(999). 07 KSP-DR-COV-GRP-COUNT PIC 9(01). 07 KSP-DR-GEA-PROVIDER-TYPE PIC X(002). 07 KSP-DR-INPAT-DIAG-EXTRACT PIC X(01). 07 KSP-DR-LINE-OF-BUSINESS-IND PIC X(001). 07 KSP-DR-MED-DIALYSIS-PFIN PIC X(01). 07 KSP-DR-MEDICARE-MEPJ-IND PIC X(01). 07 KSP-DR-ONCOLOGY-PFIN PIC X(01). 07 KSP-DR-PAT-ORIG-EFF-DTCC PIC S9(07) COMP-3. 07 KSP-DR-PPO-PRO-QUALIFY-PFINI PIC X. 07 KSP-DR-PRI-GROSS-ELIG-AMT PIC S9(09)V99 COMP-3. 07 KSP-DR-PRI-ITS-NONPAR-IND PIC X(01). 07 KSP-DR-PRI-PPRT-ITS-NONPAR-I PIC X(01). 07 KSP-DR-PRI-TX-ALLOWED-AMT PIC S9(09)V99 COMP-3. 07 KSP-DR-PRO-COM-ELIG-PFIN PIC X(01). 07 KSP-DR-COV-GRP-INFO OCCURS 5 TIMES. 10 KSP-DR-CON-EFF-DT-1CC PIC S9(07) COMP-3. 10 KSP-DR-CON-LOB-1 PIC X(001). 10 KSP-DR-PROV-CNTRL-1 PIC X(002). 10 KSP-DR-CON-FAM-REL-LVL-1 PIC X(002). 10 KSP-DR-CON-EFF-DT-2CC PIC S9(07) COMP-3. 10 KSP-DR-CON-LOB-2 PIC X(001). 10 KSP-DR-PROV-CNTRL-2 PIC X(002). 10 KSP-DR-CON-FAM-REL-LVL-2 PIC X(002). 10 KSP-DR-COV-GRP-STARTING-LINE PIC 9(003). 10 KSP-DR-COV-GRP-ENDING-LINE-N PIC 9(003). 07 KSP-DR-PVT-ROOM-ALLOW-IND PIC X(001). 07 KSP-DR-SPEC-RX-INJECT-PFIN PIC X(01). 07 KSP-DR-SURG-DIAG-EXTRACT PIC X(01). 07 KSP-DR-SVC-LINE-NO PIC S9(03). 07 KSP-DR-SVC-OVER-PPORATE-UC-I PIC X(01). 07 KSP-DR-SVC-PRL-TYPE-SERVICE PIC X(03). 07 KSP-DR-VA-HOSP-IND PIC X(01). 07 KSP-DR-VIRTUAL-ACCUM-REQUEST PIC X(01). 07 KSP-DR-WH-APPROVED-SVC-CD PIC X(02). 07 KSP-DR-BS-IP-SURGERY-IND PIC X(01). 07 KSP-DR-BS-IP-MEDICAL-IND PIC X(01). 07 KSP-DR-BS-IP-OB-IND PIC X(01). ***************************************************************** ***SERVICE LINES AND SDVW ********************* ***************************************************************** 05 KSP-GRIN-MED-INDICATOR. 10 KSP-GRIN-MED-IND-FILLER PIC X(01). 10 KSP-GRIN-MED-IND PIC X(01). 03 KSP-SVC-RECORD OCCURS 001 TO 998 TIMES DEPENDING ON KSP-CLM-TOTAL-NO-SERVICES. 04 KSP-SVC. 05 KSP-SVC-CCP-PROG-DATA OCCURS 10 TIMES. 10 KSP-SVC-CCP-BA-REQ-MET-IND PIC X(01). 10 KSP-SVC-CCP-PROGRAM-IND PIC X(01). 10 KSP-SVC-CCP-ACTION-CODE PIC X(01). 10 KSP-SVC-CCP-ACTION-REASON-CD PIC X(02). 10 KSP-SVC-CCP-BA-CALC-MET-VAL PIC X(02). 10 KSP-SVC-CCP-BA-DED-APPL-IND PIC X(01). 10 KSP-SVC-CCP-BA-OPX-APPL-IND PIC X(01). 10 KSP-SVC-CCP-UCC-DETER-CD PIC X(01). 10 KSP-SVC-CCP-COMB-BEN-RED-IND PIC X(02). 05 KSP-SVC-ACCUM-DED-B-AMT PIC S9(09)V99 COMP-3. 05 KSP-SVC-ACCUM-DED-C-AMT PIC S9(09)V99 COMP-3. 05 KSP-SVC-ACTUAL-COPAY-AMT PIC S9(09)V99 COMP-3. 05 KSP-SVC-ACTUAL-COPAY-IND PIC X(03). 05 KSP-SVC-APG-CAT PIC X(03). 05 KSP-SVC-APG-CD PIC X(03). 05 KSP-SVC-APG-DISC-PCT PIC S9(03) COMP-3. 05 KSP-SVC-APG-LN-WT PIC S9(05)V9(06) COMP-3. 05 KSP-SVC-APG-TYP PIC X(01). 05 KSP-SVC-APPLY-LFT-OVR-SRG-IND PIC X(01). 05 KSP-SVC-APPROVED-NO-OCCURS PIC S9(03) COMP-3. 05 KSP-SVC-BA-INELG-GRP1-AMT PIC S9(09)V99 COMP-3. 05 KSP-SVC-BA-INELG-GRP2-AMT PIC S9(09)V99 COMP-3. 05 KSP-SVC-BA-IRC-PRCED-CD PIC X(01). 05 KSP-SVC-BA-MED-INBETWEEN-SVGS PIC S9(09)V99 COMP-3. 05 KSP-SVC-BA-OVER-U-C-AMT PIC S9(09)V99 COMP-3. 05 KSP-SVC-BA-PRI-ALLOWED-AMT PIC S9(09)V99 COMP-3. 05 KSP-SVC-BA-PSEUDO-DED-AMT PIC S9(09)V99 COMP-3. 05 KSP-SVC-BA-SUPPLEMENTAL-AMT PIC S9(09)V99 COMP-3. 05 KSP-SVC-BA-SURCHARGE-AMT PIC S9(09)V99 COMP-3. 05 KSP-SVC-BASIC-COINS-AMT PIC S9(09)V99 COMP-3. 05 KSP-SVC-BASIC-COVERAGE-CD PIC X(02). 05 KSP-SVC-BASIC-DAP-SW PIC X(01). 05 KSP-SVC-BASIC-DEDUCTIBLE PIC S9(09)V99 COMP-3. 05 KSP-SVC-BASIC-ELIGIBLE-AMT PIC S9(09)V99 COMP-3. 05 KSP-SVC-BASIC-INELG-RSN1 PIC X(03). 05 KSP-SVC-BASIC-INELG-RSN2 PIC X(03). 05 KSP-SVC-BASIC-INELIG-AMT PIC S9(09)V99 COMP-3. 05 KSP-SVC-BASIC-PAY-SW PIC X(01). 05 KSP-SVC-BASIC-PAYABLE PIC S9(09)V99 COMP-3. 05 KSP-SVC-BCP-PERF-PROV-SPEC-CD PIC X(03). 05 KSP-SVC-BCP-PERF-PROV-TYPE PIC X(02). 05 KSP-SVC-BEN-LN-TOT-ALLW-AMT PIC S9(09)V99 COMP-3. 05 KSP-SVC-BEN-REL-NETWORK-ID PIC X(03). 05 KSP-SVC-BENEFIT-EXPER-CD PIC X(01). 05 KSP-SVC-BENFE-LATE-NOTE-IND PIC X(01). 05 KSP-SVC-BILLING-ARRG-IND PIC X(03). 05 KSP-SVC-BIS-ORIG-SVC-NO PIC X(03). 05 KSP-SVC-BS-EMER-IND PIC X(01). 05 KSP-SVC-BSC-REDUCTN-AMT PIC S9(09)V99 COMP-3. 05 KSP-SVC-BSC-REDUCTN-COINS-AMT PIC S9(09)V99 COMP-3. 05 KSP-SVC-CAS-BASIC-COINS-IND PIC X(01). 05 KSP-SVC-CAS-BASIC-DEDUCT-IND PIC X(01). 05 KSP-SVC-CAS-BASIC-ELIG-IND PIC X(01). 05 KSP-SVC-CAS-BASIC-INELIG-IND PIC X(01). 05 KSP-SVC-CAS-INSTD-BA-COIN-IND PIC X(01). 05 KSP-SVC-CAS-INSTD-BA-DED-IND PIC X(01). 05 KSP-SVC-CAS-POST-BA-COIN-IND PIC X(01). 05 KSP-SVC-CAS-POST-BA-DED-IND PIC X(01). 05 KSP-SVC-CAS-PRIOR-BA-COIN-IND PIC X(01). 05 KSP-SVC-CAS-PRIOR-BA-DED-IND PIC X(01). 05 KSP-SVC-CAS-SPILLOVER-IND PIC X(01). 05 KSP-SVC-CATEGORY-CD PIC X(03). 05 KSP-SVC-CCP-BA-COINS-AMT PIC S9(07)V99 COMP-3. 05 KSP-SVC-CCP-BA-DEDUCT-AMT PIC S9(09)V99 COMP-3. 05 KSP-SVC-CCP-CAPITATION-IND PIC X(01). 05 KSP-SVC-CCP-INSTD-BA-COIN-AMT PIC S9(07)V99 COMP-3. 05 KSP-SVC-CCP-INSTD-BA-DED-AMT PIC S9(07)V99 COMP-3. 05 KSP-SVC-CCP-POST-BA-COIN-AMT PIC S9(07)V99 COMP-3. 05 KSP-SVC-CCP-POST-BA-DED-AMT PIC S9(09)V99 COMP-3. 05 KSP-SVC-CCP-PRIOR-BA-COIN-AMT PIC S9(07)V99 COMP-3. 05 KSP-SVC-CCP-PRIOR-BA-DED-AMT PIC S9(09)V99 COMP-3. 05 KSP-SVC-CCP-PROG-COUNT PIC S9(03) COMP-3. 05 KSP-SVC-CERT-REQ-HOURS-IND PIC X(01). 05 KSP-SVC-COB-MED-ELIGIBLE-IND PIC X(01). 05 KSP-SVC-CON-PKG-IND PIC X(01). 05 KSP-SVC-CONV-FACTOR PIC S9(07)V9(04) COMP-3. 05 KSP-SVC-COPAY-TAKEN-IND PIC X(01). 05 KSP-SVC-COPAY-UPDATES-DED PIC X(01). 05 KSP-SVC-CVP-ADJ-UNIT PIC S9(07) COMP-3. 05 KSP-SVC-CVP-EDIT-APPLD-IND PIC X(01). 05 KSP-SVC-CVP-HIST-SVC-LN-NBR PIC X(03). 05 KSP-SVC-CVP-MPPR-ALWBL-AMT PIC S9(09)V99 COMP-3. 05 KSP-SVC-CVP-ORIG-PRC-AMT PIC S9(09)V99 COMP-3. 05 KSP-SVC-CVP-OVRG-AMT PIC S9(09)V99 COMP-3. 05 KSP-SVC-CVP-RPLC-PROC-CD PIC X(07). 05 KSP-SVC-CVP-SUPT-ADJ-NO PIC X(02). 05 KSP-SVC-CVP-SUPT-DCN-NO PIC X(17). 05 KSP-SVC-CVP-UTIL-AMT PIC S9(09)V99 COMP-3. 05 KSP-SVC-CXT-ADJD-UNITS PIC S9(05) COMP-3. 05 KSP-SVC-CXT-ADJSTMT-NBR PIC 9(02). 05 KSP-SVC-CXT-DCN PIC X(17). 05 KSP-SVC-CXT-LN-NBR PIC S9(03) COMP-3. 05 KSP-SVC-CXT-UPD-ALWBL-AMT PIC S9(09)V99 COMP-3. 05 KSP-SVC-DAYS PIC S9(05) COMP-3. 05 KSP-SVC-DECR-DAYS-UNITS-IND PIC X(01). 05 KSP-SVC-DECREMENT-IND PIC X(01). 05 KSP-SVC-DERIVED-FIELDS PIC X(02). 05 KSP-SVC-DERIVED-TYPE-RISK PIC X(01). 05 KSP-SVC-DESCRIPTOR-CD PIC X(02). 05 KSP-SVC-DIAG-OVERLAY-IND PIC X(02). 05 KSP-SVC-DISCOUNT-TYPE PIC X(02). 05 KSP-SVC-EMER-IND-DERIVED-SVC PIC X(01). 05 KSP-SVC-ENCOUNTER-COPAY PIC S9(09)V99 COMP-3. 05 KSP-SVC-ENCOUNTER-SVGS PIC S9(09)V99 COMP-3. 05 KSP-SVC-ET-PROV-COVERAGE-IND PIC X(01). 05 KSP-SVC-FEE-SCHED-ID PIC X(10). 05 KSP-SVC-FMIS-BA-ELIG-AMT PIC S9(09)V99 COMP-3. 05 KSP-SVC-FMIS-BA-INELIG-AMT PIC S9(09)V99 COMP-3. 05 KSP-SVC-FMIS-BA-POST-TPL-PYMT PIC S9(09)V99 COMP-3. 05 KSP-SVC-FMIS-BA-PRE-TPL-PYMT PIC S9(09)V99 COMP-3. 05 KSP-SVC-FMIS-INELIG-AMT PIC S9(09)V99 COMP-3. 05 KSP-SVC-FMIS-TOT-PRE-TPL-PYMT PIC S9(09)V99 COMP-3. 05 KSP-SVC-FMIS-TOT-PST-TPL-PYMT PIC S9(09)V99 COMP-3. 05 KSP-SVC-FROM-DTCC PIC S9(07) COMP-3. 05 KSP-SVC-GCT-HIAA-PCT PIC S9(03)V99 COMP-3. 05 KSP-SVC-GMIS-PAYMENT-STATUS PIC X(01). 05 KSP-SVC-GPI-CD PIC X(14). 05 KSP-SVC-GZAH-TSQ-ITEM-NUM PIC S9(03) COMP-3. 05 KSP-SVC-HCSC-ACCESS-FEE-AMT PIC S9(09)V99 COMP-3. 05 KSP-SVC-HCSC-DISC-AMT PIC S9(09)V99 COMP-3. 05 KSP-SVC-HMO-MED-FIELDS PIC X(02). 05 KSP-SVC-HMO-TYPE-RISK PIC X(01). 05 KSP-SVC-HOLD-HARMLESS-IND PIC X(01). 05 KSP-SVC-IC-ASP-RATE PIC S9(09)V99 COMP-3. 05 KSP-SVC-IC-ECF-ROOM-RATE PIC S9(05)V99 COMP-3. 05 KSP-SVC-IC-INDEM-SCHED-FEE PIC S9(09)V99 COMP-3. 05 KSP-SVC-IC-MCARE-LIMIT-CHARGE PIC S9(09)V99 COMP-3. 05 KSP-SVC-NO PIC X(03). 05 KSP-SVC-IC-MCSP-RATE PIC S9(09)V99 COMP-3. 05 KSP-SVC-IC-MED-REASONABLE-FEE PIC S9(09)V99 COMP-3. 05 KSP-SVC-IC-MEDICARE-PAID-AMT PIC S9(09)V99 COMP-3. 05 KSP-SVC-IC-USUAL-CUST-FEE PIC S9(09)V99 COMP-3. 05 KSP-SVC-IMC-APPL-TO-CLM-PER PIC X(03). 05 KSP-SVC-IN-OUT-AREA-CD PIC X(01). 05 KSP-SVC-INCLSV-GRPG-NBR PIC X(02). 05 KSP-SVC-INCLSV-GRPG-PRIMY-IND PIC X(01). 05 KSP-SVC-INTERIM-DISC-AMT PIC S9(09)V99 COMP-3. 05 KSP-SVC-IPAR-PLAN-PRICED-AMT PIC S9(09)V99 COMP-3. 05 KSP-SVC-ITS-MAX-PAY-IND PIC X(01). 05 KSP-SVC-ITS-PMB-PAY-MAX-AMT PIC S9(09)V99 COMP-3. 05 KSP-SVC-ITS-PPO-PROV-TYP-AVAL PIC X(01). 05 KSP-SVC-LINE-DISC-PCT-OR-AMT PIC S9(09)V99 COMP-3. 05 KSP-SVC-LINE-PAYMENT-IND PIC X(01). 05 KSP-SVC-LINE-PAYMENT-METHOD PIC X(02). 05 KSP-SVC-LINE-STATUS PIC X(01). 05 KSP-SVC-LN-RATE-AMT PIC S9(09)V99 COMP-3. 05 KSP-SVC-LN-RATE-CD PIC X(02). 05 KSP-SVC-MCARE-EXEMPT-CAP-IND PIC X(01). 05 KSP-SVC-MCNP-REENG-IND PIC X(01). 05 KSP-SVC-MED-PLCY-ID PIC X(15). 05 KSP-SVC-MED-PLCY-RTRN-CD PIC X(04). 05 KSP-SVC-MEDICARE-BEN-CD PIC X(01). 05 KSP-SVC-MEDICARE-DAYS PIC S9(05) COMP-3. 05 KSP-SVC-MEDICARE-DCLTR-IND PIC X(01). 05 KSP-SVC-MEDICARE-PRVSN-ID PIC X(04). 05 KSP-SVC-MEMB-MENT-HEALTH-IND PIC X(01). 05 KSP-SVC-MEMBER-PORG-NO PIC X(04). 05 KSP-SVC-MHC-POSSIBLE-REC PIC X(01). 05 KSP-SVC-MICH-PRICED-MOD-SW PIC X(01). 05 KSP-SVC-TIME-MILES. 10 KSP-SVC-HOURS PIC X(02). 10 KSP-SVC-MINUTES PIC X(02). 05 KSP-SVC-MILES REDEFINES KSP-SVC-TIME-MILES PIC X(04). 05 KSP-SVC-MPI-CLM-REPRCG-AMT PIC S9(09)V99 COMP-3. 05 KSP-SVC-MPI-CLM-SAVG-AMT PIC S9(09)V99 COMP-3. 05 KSP-SVC-MS-PCT-TRCG-TYP-CD PIC X(01). 05 KSP-SVC-MSA-LATE-NOTE-IND PIC X(01). 05 KSP-SVC-MSA-OVR-PEND-IND PIC X(01). 05 KSP-SVC-MSA-OVR-PEND-VALUE PIC X(01). 05 KSP-SVC-MSP-APPLIED-AMT PIC S9(07)V99 COMP-3. 05 KSP-SVC-MULT-SURG-PCT-IND PIC X(01). 05 KSP-SVC-NETWK-PARTCPTNG-IND PIC X(02). 05 KSP-SVC-NMCC-ALLOWED-AMT PIC S9(09)V99 COMP-3. 05 KSP-SVC-NO-AIM-REFERRAL-REC PIC X(01). 05 KSP-SVC-NPI-PERF-PROV-NO PIC X(10). 05 KSP-SVC-NTWK-AVAIL-CD PIC X(01). 05 KSP-SVC-NTWK-DIFF-TIER-AMT PIC S9(09)V99 COMP-3. 05 KSP-SVC-OPER-CAPITATED-IND PIC X(01). 05 KSP-SVC-OPER-PERFORMED-BY-PCP PIC X(01). 05 KSP-SVC-OPER-REF-BY-PCP-FLDS PIC X(02). 05 KSP-SVC-ORIGINAL-BILLED-AMT PIC S9(09)V99 COMP-3. 05 KSP-SVC-OTHER-PCT PIC S9(03)V99 COMP-3. 05 KSP-SVC-OVER-MCARE-CAP-AMT PIC S9(09)V99 COMP-3. 05 KSP-SVC-OVER-MSP-AMT PIC S9(07)V99 COMP-3. 05 KSP-SVC-PAR-PLAN-REF-APPR-NO PIC X(20). 05 KSP-SVC-OVER-PPORATE-UC-IND PIC X(01). 05 KSP-SVC-PAT-HLD-HARMLESS-AMT PIC S9(09)V99 COMP-3. 05 KSP-SVC-PCP-CAP-CD PIC X(02). 05 KSP-SVC-PCP-PERF-PROV-NO PIC X(20). 05 KSP-SVC-PCP-PRIMARY-NO PIC X(20). 05 KSP-SVC-PCP-SECONDARY-NO PIC X(20). 05 KSP-SVC-PEND-VALUE-OVERRIDE PIC X(01). 05 KSP-SVC-PERF-PROV-COUNTY-CD PIC X(03). 05 KSP-SVC-PERF-PROV-LAST-NAME PIC X(20). 05 KSP-SVC-PERF-PROV-LOC-CD PIC X(03). 05 KSP-SVC-PERF-PROV-PAR-IND PIC X(01). 05 KSP-SVC-PERF-PROV-PART-CD PIC X(02). 05 KSP-SVC-PERF-PROV-PREF-CD PIC X(02). 05 KSP-SVC-PERF-PROV-SPEC-CD PIC X(03). 05 KSP-SVC-PERF-PROV-TAX-ID PIC X(09). 05 KSP-SVC-PERF-PROV-TYPE PIC X(02). 05 KSP-SVC-PERF-PROV-ZIP PIC X(09). 05 KSP-SVC-PERFORMED-BY-PCP PIC X(01). 05 KSP-SVC-PFIN-CCP-IND PIC X(01). 05 KSP-SVC-PLACE-OF-TREATMENT PIC X(01). 05 KSP-SVC-POS-BA-COINS-AMT PIC S9(07)V99 COMP-3. 05 KSP-SVC-POS-BA-DEDUCT-AMT PIC S9(07)V99 COMP-3. 05 KSP-SVC-POSSIBLE-PREAUTH-CNT PIC 9(02). 05 KSP-SVC-PPO-ANESTHESIA-TIER PIC X(03). 05 KSP-SVC-PPO-APPLY-IND PIC X(01). 05 KSP-SVC-PPO-BA-AMT-IND PIC X(01). 05 KSP-SVC-PPO-BA-COIN-AMT PIC S9(09)V99 COMP-3. 05 KSP-SVC-PPO-BA-DEDUCT-AMT PIC S9(09)V99 COMP-3. 05 KSP-SVC-PPO-DISCOUNT-PERCENT PIC S9V9(04) COMP-3. 05 KSP-SVC-PPO-INDICATORS PIC X(02). 05 KSP-SVC-PPO-MEDICAL-TIER PIC X(03). 05 KSP-SVC-PPO-OVERRIDE-IND PIC X(02). 05 KSP-SVC-PPO-POST-DISC-AMT PIC S9(09)V99 COMP-3. 05 KSP-SVC-PPO-PRE-DISC-AMT PIC S9(09)V99 COMP-3. 05 KSP-SVC-PRCDR-DIAG-USED PIC X(10). 05 KSP-SVC-PRCDR2-RETURN-CD PIC X(04). 05 KSP-SVC-PRE-AUTH-REC-FOUND PIC X(01). 05 KSP-SVC-PRE-AUTH-RTE-CD PIC X(01). 05 KSP-SVC-PRE-AUTH-SUB-PROC-CD PIC X(07). 05 KSP-SVC-PRE-AUTH-VEND-CD PIC X(01). 05 KSP-SVC-PREAUTH-SAVE-AREA OCCURS 3 TIMES. 10 KSP-SVC-PREAUTH-APPROV-NO PIC X(11). 10 KSP-SVC-PREAUTH-SEQUENCE-NO PIC X(02). 10 KSP-SVC-PREAUTH-BGN-DTCC PIC S9(07) COMP-3. 10 KSP-SVC-PREAUTH-END-DTCC PIC S9(07) COMP-3. 10 KSP-SVC-PREAUTH-ACTION-CODE PIC X(01). 10 KSP-SVC-PREAUTH-ACTION-RSN-CD PIC X(02). 10 KSP-SVC-PREAUTH-RESVD-UNITS PIC S9(05) COMP-3. 10 KSP-SVC-MSA-APPRV-NO-OCCRS PIC S9(03) COMP-3. 10 KSP-SVC-MHC-APPRV-NO-OCCRS PIC S9(03) COMP-3. 10 KSP-SVC-POS-SUP-PCPID PIC X(20). 10 KSP-SVC-URA-APPRV-NO-OCCRS PIC S9(03) COMP-3. 10 KSP-SVC-URA-GRP-APPRVL-CD PIC X(02). 05 KSP-SVC-PREAUTH-FLAG PIC X(01). 05 KSP-SVC-PREAUTH-REC-TYP-CD PIC X(02). 05 KSP-SVC-PREAUTH-MTCHG-CD PIC X(01). 05 KSP-SVC-PRI-DIMENSION-ID PIC X(10). 05 KSP-SVC-PRI-SPLIT-DTCC PIC S9(07) COMP-3. 05 KSP-SVC-PRICE-LINE-IND PIC X(01). 05 KSP-SVC-PRIME-PRE-CERT-IND PIC X(01). 05 KSP-SVC-PRIME-RET-CLASS PIC X(02). 05 KSP-SVC-PRIME-RETURN-CD PIC X(04). 05 KSP-SVC-PRIOR-PRE-DISC-AMT PIC S9(07)V99 COMP-3. 05 KSP-SVC-PRIV-ROOM-OVERAGE PIC S9(09)V99 COMP-3. 05 KSP-SVC-PRIVATE-ROOM-RATE PIC S9(09)V99 COMP-3. 05 KSP-SVC-PRIVATE-ROOM-TYPE PIC X(01). 05 KSP-SVC-PRL-GMIS-MESSAGE-CD PIC X(03). 05 KSP-SVC-PRL-LINE-STATUS PIC X(01). 05 KSP-SVC-PRL-MAX-PAT-LIAB PIC S9(09)V99 COMP-3. 05 KSP-SVC-PRL-MED-ALLOWED-AMT PIC S9(09)V99 COMP-3. 05 KSP-SVC-PRL-NETWORK-ID PIC X(03). 05 KSP-SVC-PRL-PAT-SHARE-AMT PIC S9(09)V99 COMP-3. 05 KSP-SVC-PRL-PRICE-RETURN-CD PIC X(02). 05 KSP-SVC-PRL-PROCEDURE-CD PIC X(06). 05 KSP-SVC-PRL-REASONABLE-CHARGE PIC S9(09)V99 COMP-3. 05 KSP-SVC-PRL-TYPE-SERVICE PIC X(03). 05 KSP-SVC-PROV-OVERRIDE-AREA PIC X(01). 05 KSP-SVC-PROVIDER-AREA-CD PIC X(01). 05 KSP-SVC-PROVIDER-PCP-IND PIC X(01). 05 KSP-SVC-PROVIDER-TYPE PIC X(02). 05 KSP-SVC-PROVN-PRICING-METHOD PIC X(02). 05 KSP-SVC-PROVISION-ID. 10 KSP-SVC-PRVSN-ID PIC X(04). 10 KSP-SVC-PRVSN-FILLER PIC X(01). 10 KSP-SVC-BEN-CD PIC X(01). 05 KSP-SVC-QSTNABL-SVC-IND PIC X(01). 05 KSP-SVC-REF-RECORD-RETRN-IND PIC X(01). 05 KSP-SVC-REF-SEQUENCE-NO PIC X(02). 05 KSP-SVC-REFERRAL-APPROV-NO PIC X(11). 05 KSP-SVC-REFERRAL-BGN-DTCC PIC S9(07) COMP-3. 05 KSP-SVC-REFERRAL-END-DTCC PIC S9(07) COMP-3. 05 KSP-SVC-REFERRAL-METHOD-IND PIC X(03). 05 KSP-SVC-REFERRED-BY-PCP-FLDS. 15 KSP-SVC-REFFERED-BY-PCP-FILL PIC X(01). 15 KSP-SVC-REFERRED-BY-PCP PIC X(01). 05 KSP-SVC-REIM-SCH-AMT-PER-UNIT PIC S9(09)V99 COMP-3. 05 KSP-SVC-REIM-SCH-ID1 PIC X(10). 05 KSP-SVC-REIM-SCH-ID2 PIC X(10). 05 KSP-SVC-REIMS-PRICE-TYPE-USED PIC X(02). 05 KSP-SVC-REIMS-PRICE-TYPE PIC X(02). 05 KSP-SVC-REIMB-EXCEPT-IND PIC X(02). 05 KSP-SVC-RELATIVE-VALUE-AMT PIC S9(6)V9(5) COMP-3. 05 KSP-SVC-RISK-PORG-NO PIC X(04). 05 KSP-SVC-RISK-REPROCESS-IND PIC X(01). 05 KSP-SVC-RNDRG-PROV-CAP-CD PIC X(02). 05 KSP-SVC-ROOM-BOARD-RATE PIC S9(09)V99 COMP-3. 05 KSP-SVC-RX-NDC-PRICED-UNITS PIC S9(09)V9(04) COMP-3. 05 KSP-SVC-SANCTION-IND PIC X(01). 05 KSP-SVC-SE-REDUCTN-IND PIC X(01). 05 KSP-SVC-SECONDARY-DOLLAR-AMT PIC S9(09)V99 COMP-3. 05 KSP-SVC-SORT1-IND PIC X(01). 05 KSP-SVC-SORT2-MSPFD-IND PIC X(01). 05 KSP-SVC-SPECIALIST-IND PIC X(01). 05 KSP-SVC-STD-NTWK-DIFF-AMT PIC S9(09)V99 COMP-3. 05 KSP-SVC-TIER-LEVEL-IND PIC X(02). 05 KSP-SVC-TO-DTCC PIC S9(07) COMP-3. 05 KSP-SVC-TOT-BA-COB-SVGS PIC S9(09)V99 COMP-3. 05 KSP-SVC-TOT-BA-MC-SVGS PIC S9(09)V99 COMP-3. 05 KSP-SVC-TOT-BA-STATE-PROG-SVG PIC S9(09)V99 COMP-3. 05 KSP-SVC-TOT-REIM-SCH-AMT PIC S9(09)V99 COMP-3. 05 KSP-SVC-TOTAL-CHARGE PIC S9(09)V99 COMP-3. 05 KSP-SVC-TRANSITIONAL-IND PIC X(01). 05 KSP-SVC-TX-POS-REF-MSG-IND PIC X(01). 05 KSP-SVC-TYPE-OF-SERVICE PIC X(02). 05 KSP-SVC-UNIT-ALLOWED-AMT PIC S9(09)V99 COMP-3. 05 KSP-SVC-UNIT-PURCHASE-AMT PIC S9(09)V99 COMP-3. 05 KSP-SVC-UNITS PIC S9(05) COMP-3. 05 KSP-SVC-UNSOLICITED-PROV-IND PIC X(01). 05 KSP-SVC-UPFRONT-DED-A-AMT PIC S9(09)V99 COMP-3. 05 KSP-SVC-UPFRONT-DED-MET-IND PIC X(01). 05 KSP-SVC-URA-RECORD-RETRN-IND PIC X(01). 05 KSP-SVC-VEND-PRE-AUTH-FND-IND PIC X(01). 05 KSP-SVC-BASIC-CONTRACT-NO PIC S9(07) COMP-3. 05 KSP-SVC-BASIC-COST-PREMIUM-CD PIC X(01). 05 KSP-SVC-IPDR-POS-BENEFIT-LVL PIC X(01). 05 KSP-SVC-OVRRD-PRV-NTWK-LVL-NM PIC X(03). 05 KSP-SVC-PRV-NTWK-LVL-NM PIC X(03). 05 KSP-SVC-PRV-NTWK-TIER-LVL-NBR PIC S9(03) COMP-3. 05 KSP-SVC-SVC-CAT-CD PIC X(04). 05 KSP-SVC-ABA-SVC-IND PIC X(01). 04 KSP-SDVW. 05 KSP-DW-PRI-HIAA-DEFAULT-IND PIC X(02). 05 KSP-DW-AMBULATORY-SURG-CNTR PIC X(01). 05 KSP-DW-BILL-TO-NEA-INELIG-AMT PIC S9(09)V99 COMP-3. 05 KSP-DW-CCP-ALTERNATE-PPM PIC X(02). 05 KSP-DW-CCP-APPLY-SEQ-TABLE PIC X(02) OCCURS 10 TIMES. 05 KSP-DW-CCP-USE-ELIG-IND PIC X(02) OCCURS 10 TIMES. 05 KSP-DW-EVICORE-SERVICE-IND PIC X(01). 05 KSP-DW-EXCLUDE-FROM-MCARE-CAP PIC X(01). 05 KSP-DW-GCA-MSPFD-INELIG-AMT PIC S9(09)V99 COMP-3. 05 KSP-DW-GROSS-COVERED-AMT PIC S9(09)V99 COMP-3. 05 KSP-DW-GROSS-ELIG-AMT PIC S9(09)V99 COMP-3. 05 KSP-DW-LOB-TOT-INELIG-INDICATR PIC 9(001). 05 KSP-DW-MCARE-CAP-AMT PIC S9(09)V99 COMP-3. 05 KSP-DW-MCNP-OR-PPO-USED-IND PIC X(01). 05 KSP-DW-MCNP-PPO-CODE-IND PIC X(01). 05 KSP-DW-MED-REASON-AMT-USED-IND PIC X(01). 05 KSP-DW-MEDICARE-CAP-USED-IND PIC X(01). 05 KSP-DW-MSP-RULE PIC X(02). 05 KSP-DW-N-NDC-MED-POLCY-REV-475 PIC X(01). 05 KSP-DW-NEA-TO-GCA-INELIG-AMT PIC S9(09)V99 COMP-3. 05 KSP-DW-NET-ELIG-AMT PIC S9(09)V99 COMP-3. 05 KSP-DW-OK-PRV-RM-AMT PIC S9(09)V99 COMP-3. 05 KSP-DW-OK-PRV-RM-FLAG PIC X(01). 05 KSP-DW-OPERATIVE-AREA PIC X(002). 05 KSP-DW-ORIG-REIMB-PRICE-TYPE PIC X(02). 05 KSP-DW-OVER-PRICED-AMT PIC S9(09)V99 COMP-3. 05 KSP-DW-OVER-PRICED-IND PIC X(01). 05 KSP-DW-PM-USG-CD PIC X(01). 05 KSP-DW-POS-PROVIDER-IND PIC X(01). 05 KSP-DW-PRGCA-MULT-PROC-1-PCT PIC S9(3)V99 COMP-3. 05 KSP-DW-PRI-ANESTHESIA-UNITS PIC S9(02) COMP-3. 05 KSP-DW-PRI-AVG-SEMI-PVT-RM-RT PIC S9(09)V99 COMP-3. 05 KSP-DW-PRI-CMN-SEMI-PVT-RM-RT PIC S9(09)V99 COMP-3. 05 KSP-DW-PRI-EXCP-SCHED-USED-IND PIC X(001). 05 KSP-DW-PRI-GROSS-ELIG-AMT PIC S9(09)V99 COMP-3. 05 KSP-DW-PRI-IC-ALLOWED-AMT PIC S9(09)V99 COMP-3. 05 KSP-DW-PRI-MULTI-SUR-ALLOW-AMT PIC S9(09)V99 COMP-3. 05 KSP-DW-PRI-NLINE-ALLOW-AMT PIC S9(09)V99 COMP-3. 05 KSP-DW-PRI-PPM-METHOD-USED-IND PIC X(01). 05 KSP-DW-PRI-PRIVATE-ROOM-TYPE PIC X(01). 05 KSP-DW-PRI-REIMB-EXCEP-IND PIC X(02). 05 KSP-DW-PRI-REIMB-METHOD PIC X(01). 05 KSP-DW-PRI-REIMB-PRI-TYPE PIC X(02). 05 KSP-DW-PRI-TIER-LVL-IND PIC X(02). 05 KSP-DW-PRI-TOT-ALLOWED-AMT PIC S9(09)V99 COMP-3. 05 KSP-DW-PRI-TX-ALLOWED-AMT PIC S9(09)V99 COMP-3. 05 KSP-DW-PRICING-FEE-AMT-USED PIC S9(09)V99 COMP-3. 05 KSP-DW-SVC-NO PIC X(003). 05 KSP-DW-KS-ORIG-SVC-NO PIC X(03). 05 KSP-DW-TOTAL-CHARGE-USED-IND PIC X(01). 05 KSP-DW-UNIT-GROSS-ELIG-AMT PIC S9(09)V99 COMP-3. 05 KSP-DW-COORD-MCARE-IND PIC X. 05 KSP-DW-PRI-REF-PROVR-CLN-IN PIC X(02). 05 KSP-DW-PRI-REF-PROVR-CLN-OUT PIC X(02). 05 KSP-DW-PRI-REF-PROVR-MH-SA-IN PIC X(02). 05 KSP-DW-PRI-REF-PROVR-MH-SA-OUT PIC X(02). 05 KSP-DW-PRI-REF-PROVR-NONPAR-IN PIC X(02). 05 KSP-DW-PRI-REF-PROVR-NONPAR-OU PIC X(02). 05 KSP-DW-PRI-REF-PROVR-PCP-IN PIC X(02). 05 KSP-DW-PRI-REF-PROVR-PCP-OUT PIC X(02). 05 KSP-DW-PRI-REF-PROVR-PPO-IN PIC X(02). 05 KSP-DW-PRI-REF-PROVR-PPO-OUT PIC X(02). 05 KSP-DW-PRI-REF-PROVR-PSP-IN PIC X(02). 05 KSP-DW-PRI-REF-PROVR-PSP-OUT PIC X(02). 05 KSP-DW-PRI-REF-PROVR-UNSOL-IN PIC X(02). 05 KSP-DW-PRI-REF-PROVR-UNSOL-OUT PIC X(02). 05 KSP-DW-PRI-REF-PROVR-DESIGN-IN PIC X(02). 05 KSP-DW-PRI-REF-PROVR-DESIGN-OU PIC X(02). 05 KSP-DW-ADDN-ALLOW-AMT-PER-DAY PIC S999V99 COMP-3. 05 KSP-DW-PRI-MANUAL-PRI-EXCEPT-I PIC X(02). 05 KSP-DW-OTHER-PRICE-EXPT-PERCEN PIC 9(03). 05 KSP-DW-OTHER-PRICE-PERCENT PIC 9(03). 05 KSP-DW-PRI-PROVR-EXCEPT-CODE PIC X(01). 05 KSP-DW-PRI-PRC-REIMB-EXCEPT-IN PIC X(02). 05 KSP-DW-PRI-SEC-CODE PIC X(01). 05 KSP-DW-PRI-PROVR-EXCEPT-AREA PIC X(01). 05 KSP-DW-PRI-SECONDARY-IND PIC X(02). 05 KSP-DW-LDGR-PLN-ACCUMLR-ID PIC 9(09). 05 KSP-DW-OVERRIDE-UOM PIC X(01). ***************************************************************** *** MULTIPLE AUTH RECORD (HGCDREFR COPYBOOK) *** ***************************************************************** 03 KSP-HGCDREFR-RFRL-TEMP-AREA PIC X(14852).