View previous topic :: View next topic
|
Author |
Message |
rupesh gullu
New User
Joined: 12 Dec 2008 Posts: 96 Location: Gurgaon
|
|
|
|
Hi,
I have two i/p files one is Sav-file and other is Pcn file. sav file is KSDS and pcn file is seq file. i need to take pcn value from pcn file and based on key will delete the rec from sav file. key contains pcn, rec-type and suffix value. thus full key comprises of pcn,rec-type and suffix.
here are the following scenrios:
Rec-type can have values as 1,2,3,5 and for each rec-type it will have suffix 1-9. e.g for one pcn say 123456 we have rec-type as 1 and suffix as 1 so key is 12345611 ...like wise we can have key as 12345612 here suffix is 2 for rec-type 1 and so on..
this if key is found in need to delete it from sav-file.
can u please help me how should i code for this.
regrads,
rupesh gupta |
|
Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006 Posts: 19244 Location: Inside the Matrix
|
|
|
|
Hello,
Post a representative sample of both files showing all of the combinations you need to handle.
Then post what should be the outcome of running ypur program. You don't need complete records or very many of them - just enough to demonstrate what you need to have happen.
When posting this data use the Code tag to preserve alignment of the data. |
|
Back to top |
|
|
Robert Sample
Global Moderator
Joined: 06 Jun 2008 Posts: 8696 Location: Dubuque, Iowa, USA
|
|
|
|
Is this a batch or CICS program?
You'll need to do a START with generic key, read records and delete them until the generic key no longer matches. Be aware that this is a HELP forum, not a WRITE-YOUR-CODE-FOR-YOU forum. If you ask for code, you need to be prepared to pay for the professional work product of the responders (which is what you are asking for), and the rate is typically 1000 U.S. dollars per day or fraction thereof. Unless you are willing to pay for the code, please don't ask for it. |
|
Back to top |
|
|
icemanroh
New User
Joined: 23 Aug 2008 Posts: 25 Location: Mumbai
|
|
|
|
Robert Sample wrote: |
If you ask for code, you need to be prepared to pay for the professional work product of the responders (which is what you are asking for), and the rate is typically 1000 U.S. dollars per day or fraction thereof. Unless you are willing to pay for the code, please don't ask for it. |
Rupesh,
Can you provide the File format of both the files? |
|
Back to top |
|
|
rupesh gullu
New User
Joined: 12 Dec 2008 Posts: 96 Location: Gurgaon
|
|
|
|
Hi,
file which is having only pcn is a seqentioal file haivng records layout as
Code: |
01 ICN-INPUT-RECORD.
10 ICN-INPUT-KEY.
15 INP-ICN PIC 9(11).
|
Sav file in which I need to remove the records is a vsam file KSDS.
Layout for this file is attached. I just want to have a pseudo code ...
Also can i delete records based upon partial key value .. if i dont know the full key.
regards,
rupesh gupta
do not post attachments, not everybody can see them, attachment inlined
Code: |
004800***************************************************************** EMC6SAV1
004900* EMC SAVE FILE RECORD TYPE 1 EMC6SAV1
TD0702* WHEN SAV-CLAIM-SOURCE-IND IS UPDATED, MUST UPDATE EMC6SRC1 EMC6SAV1
TD0702* AND EMCCLAIM COPIES ALSO EMC6SAV1
FEB04A***************************************************************** EMC6SAV1
FEB04A* RENAME SAV-OON-INDICATOR TO SAV-ACN-IND.
005000***************************************************************** EMC6SAV1
SG0307* INCREASE SAV-LINE-DISP-SOURCE PIC X(02) TO X(03) EMC6SAV1
JG0307* ADD SAV-LINE-PAID-AS-CODE SAV-LINE-OPTION-A-B
YL0903***************************************************************** EMC6SAV1
YL0903* SEPTEMBER 2003 RELEASE - HIPAA TCS TOPS PRSCLMIN
YL0903* SAV-LINE-OPTION-A-B REPLACED BY PRSCLMIN
YL0903* SAV-LINE-835-RPT-IND PRSCLMIN
UNOA * SEPTEMBER 2003 RELEASE - NEW UNOA ENGINE PRSCLMIN
UNOA * SAV-LINE-835-RPT-IND PRSCLMIN
YL1103* PRSCLMIN
YL1103* NOVEMBER 2003 RELEASE - REMOVAL 835-INDICATOR EMC6SAV1
YL1103* (SAV-PROV-835-REQ) HAS BEEN REMOVED EMC6SAV1
YL1103* - REPLACED BY 1 BYTE FILLER. EMC6SAV1
YL1103* EMC6SAV1
BK0604* SAVE FILE LENGTH EXPANDED BY 100 BYTES, PRIMARILY TO ACCOMMODATEEMC6SAV1
BK0604* MHE REQUIREMENTS FOR MULTIPLE NOTIFICATION LETTERS AND ALSO TO EMC6SAV1
BK0604* GIVE US ADDITIONAL ROOM FOR ANY ENHANCEMENTS. EMC6SAV1
HT0604* EMC6SAV1
HT0604* ADD ADDITIONAL 7 FIELDS (TOTAL OF 10 BYTES) TO THE EMC6SAV1
HT0604* SAV-REC-TYP1-HIST(OCCURS 0 TO 150 TIMES). CHANGED LREC 119 EMC6SAV1
HT0604* TO 129. EMC6SAV1
HT0604* EMC6SAV1
CS0410* OCTOBER 2004 RELEASE - AUTOMATE NEW COINS SPLIT EMC6SAV1
CS0410* EMC6SAV1
TD1204* ADDED CLOSE-RECALL,REDUCED FILLER BY 4,SEE TD1204
RP1204* ADDED MEDRX-SIGNATURE REDUCED FILLER BY 26
SD0412* SPRF-400003512. ADDED SAV-NS58-NS1E-IND AND REDUCED FILLER
SD0412* BY 1 BYTE. NOW FILLER BECAME SAV-REC-TYP1-FILLER PIC X(22).
SD0503* SPRF# 400003710-06 - NS19 PROVIDER TIN NOT FOUND. ADDES THE
SD0503* FOLLOWING FIELDS. - SAV-NDB-RTN-CODE
SD0503* - SAV-RTN-ADDRESS-IND
RS0503* 03/01/05 - 400003710-12- PIT (NO) PROVIDER FLAG *
RS0503* ENHANCEMENT. *
HT0504* *
HT0504* ADD NEW WORKFLOW ID(SAV-WORKFLOW-ID)IN THE SAV-REC-TYP1-FIXE D *
HT0504* AREA FOR RECIPROCITY INITIATIVE(SPRF# 400004492). *
HT0504* *
SN0405* 04/2005 - SUSAN NICHOLS - 400005493 ADDED SAV-SBI-IND *
SN0405* AND SAV-HIST-SBI-IND *
PD0405* 04/2005 - ALLOW MULTI-SUFFIX PROCESSING IN COMET, *
PD0405* ADDED SAV-HIST-AUTO-IND, SAV-HIST-UPDT-SYS *
NT0605* 06/2005 - ADDED SAV-ATG-JOB-SEQ-DIGIT FOR ATG PROCESSING FOR
NT0605* VENDOR-ID = TG
RL0506* RL0506 - MARK - ADDED SAV-EDS-UNDO-IND
FE0509* 09/2005 - FIELD EXPANSION SPRF - 400001912 CHANGES FOR *
FE0509* SEPTEMBER 2005 RELEASE *
AA1205* ANGEL ANTONIO 12/05 ADD GOLDEN RULE IND FOR SPRF 4-3937 *
AA1205* DEPENDENT TERMINATION LETTERS *
JA1205* JACOB APPASAMY 12/05 ADD UPCT SYS ID FOR SPRF 4-4028 *
JA1205* UP GENERIC CONVERSION TOOLS *
AJ1205* ASHISH 12/05 ADDED SAV-ORIG-BILL-AMT FOR SPRF 6565*
DL1205* DAYNE 12/05 ADDED INAPR-PROV-REF-IND SPRF 4-7795 *
08265A* TONY 03/06 - A ADDED THE FOLLOWING FIELDS *
08265A* PTI-OVERIDE, PTI-DETERMINED, *
08265A* PTI-ORG-DERIVED,PTI-SELECTED, *
08265A* PTI-ORG-SELECTED,ADDITIONAL-PTI-IND, *
08265A* MEDC-PROC-IND AND MEDC-COB-MSPLT-IND *
08766A* RON DWYER 03/06 - A SPRF 4-8766 SITE OF SERV FEE SCHED:
08766A* ADD TRANSLATED PLACE OF SERVICE.
07935A* H. ENG 03/06 - A TWO WAY PRICING ADDED NDB-CONTR-ID, *
07935A* ORIG-FAC-CONTR-METH, ALT-REAS-REJ-CODE, *
07935A* ALT-PRICE-ATTMPT-CTR, ALT-PRICE-MANUAL-IND *
06999B* BHASKAR RELEASE 0605
08015P* PRAVEEN MAY 06 - P SPRF #4-8015 CREATION OF NEW REGIONS * PRSCLMIN
08015P* ADDED ENGINE-IND FOR 4 NEW REGIONS * PRSCLMIN
04357G* JUNE 06 RELEASE SUDHINDRA RG - G NEW FIELD SAV-MEDC-CALC-PD *
04357G* WAS ADDED FOR SPRF 4-4357 MEDICARE EDITING *
10088T* JUNE 06 RELEASE T MANALO SPRF 4-10088 ADD NEW SUFX-DIAG-PT-VAL
10088M* JUNE 06 RELEASE MATT B SPRF 4-10088 ADD GENERIC LTR # & *
10088M* LIFETIME PERCENT *
08105T* AUG 06 RELEASE TURANGI.C SPRF 4-8105 ADDED SAV-IO-IND *
10088M* *
12772D* SEPT 06 RELEASE R DWYER SPRF 4-12772 HSS/APC PRICING *
05630D* SEPT 06 RELEASE R DWYER SPRF 4-5630 RV-INDICATOR *
12633S* SEPT 06 RELEASE R .ASHOK SPRF 4-12633 * PRSCLMIN
12633S* ADDED SAV-OTH-PHYSICIAN-ID - 16 BYTES IN EMC6SAV4 * PRSCLMIN
12471R* OCT 06 RELEASE RAMPRASADH SPRF 4-12471 REAL TIME ADJUDICATION*
12471R* ADDED NEW FIELDS FOR SOURCE FILE *
12471R* ELIMINATION. *
12471R* *
09708R* OCT 06 RELEASE IGOR SPRF 4-9708 ADDED FIELDS TO *
09708R* SAV-LINE-DATA *
11046R* OCT 06 RELEASE RAM SPRF 4-11046 ALLOW PROVIDER BILLING*
11046R* MUTHUSAMY AFTER COB/STUDENT DENIAL *
12830J* OCT 06 RELEASE ASHISH ADDED OBLIG-ID,SHARED-ARGMNT-ID *
12830J* AND PPA-MARKET-TYPE TO FIXED PART *
11192S* DEC 06 RELEASE SUE APGAR SPRF 4-11192 *
11192S* ADDED NEW FIELD`S SAV-BEN-CATG-REC-ID *
11192S* SAV-BEN-ACC-CAT *
11192S* SAV-BEN-ACC-TYPE *
13406S* DEC 06 RELEASE SHREEKAR SPRF 4-13406/13419 ADDED NEW FIELD *
13406S* SAV-TOPS-DET-RC-SCHED *
13848H* DEC 06 RELEASE HENRY SPRF 4-13848 ADDED NEW FIELD *
13848H* SAV-DOL-SPLIT-IND *
09708R* DEC 06 RELEASE IGOR CONVERTED SOME FIELDS TO FILLER *
09708R* WHICH COULD BE USED IN FUTURE *
11192M* DEC 06 RELEASE MILAN COMMENTED OUT FIELDS FOR SPRF 11192*
11192M* SAV-BEN-ACC-CAT *
11192M* SAV-BEN-ACC-TYPE *
10564S* JAN 07 RELESE SAMPATH ADDED NEW NPI FIELDS FOR SPRF 10564*
10564S* INTO EMC6CLM1:SAV-BILLING-NPI, *
10564S* SAV-RENDERING-NPI,SAV-REFERING-NPI *
10564S* SAV-ATTENDING-NPI. SO INCREASED *
10564S* -CLAIM-DATA BY 40 BYTES FROM 392 TO*
10564S* 432. *
10721E* MAR 07 RELESE KARTHIK SPRF# 4-10721 GHMO PHASE V * KV0703
10721E* VEMBU ADDED SAV-API-RECALL-RULE X(02) * KV0703
10721E* ADDED FILLER 98 BYTES * KV0703
10721E* MAX LENGTH OF REC TYP1 IS 26635 * KV0703
12528P* MAR 07 RELEASE POORNIMA RTA-4 PRERTA RELEASE CHANGES *
12528P* CHANGE DEFINITION FOR SAV-RTA-ID *
12528D* INCLUDED PRIORITY FOR PRERTA CLM *
14569S* JUN 07 RELEASE SAMPATH BACKED OUT 4-14569 CHANGES FROM JUN 07*
12672R* JUN 07 RELEASE RAJEEVA SPRF 4-12672 PROVIDER TIMELY FILING *
12672R* CONTRACT. ADDED NEW FIELD *
12672R* :SAV:-TF-LOGIC-TO-BE-INVOKED . *
12672R* JUN 07 RELEASE RANGA ADDED 88 LEVEL SWITCH. *
13376R* JUN 07 RELEASE RAJEEVA SPRF 4-13376 ITI (INPAT TRANS INIT) *
13376R* ADDED NEW FIELDS UNDER -CLAIM-DATA *
13376R* SAV-CLM-PNLTY-TBL-NBR *
13376R* SAV-CLM-PNLTY-NTFY-TYP-CD *
13376R* SAV-CLM-PNLTY-AMT *
13376R* SAV-CLM-PNLTY-REMARK-CD *
13376R* SAV-CLM-PNLTY-REV-CODE *
13376R* SAV-CLM-PNLTY-DAYS *
13376R* ADDED 50 BYTES EXTRA FILLER UNDER *
13376R* -CLAIM-DATA. *
13376R* ADDED IN TOTAL 117 BYTES IN EMC6CLM1.*
13376R* (FIELDS->67 BYTES, EXTRA FILLER->50) *
13376R* SO INCREASED -CLAIM-DATA FROM 452 TO *
13376R* 569 FOR JUNE. *
13376R* ADDED NEW FIELDS UNDER -LINE-DATA *
13376R* SAV:-LN-PNLTY-NTFY-TYP-CD *
13376R* SAV:-LN-PNLTY-AMT *
13376R* SAV:-LN-PNLTY-REMARK-CD *
13376R* SAV:-LN-PNLTY-BYPASS-CD *
13376R* JUN 07 RELEASE RANGA REARRANGED THE FIELDS FOR 13376 TO *
13376R* USE :SAV:-REC-TYP1-FILLER X(4) AND *
13376R* FILLER X(18). MOVED THE 22 BYTE *
13376R* FILLER AT THE END OF :SAV:-LINE-DATA *
15679R* JUN 07 RELEASE RAJEEVA SPRF# 5-15679 *
15679R* ADDED NEW FIELDS IN FIXED TYPE 1 BY *
15679R* ADJUSTING FILLER. NEW FIELDS ARE : *
15679R* :SAV:-CORP-TAX-ID *
15679R* :SAV:-SUBM-FST-NAME *
15679R* :SAV:-SUBM-LST-NAME *
15679R* :SAV:-PROC-STATUS *
15679R* :SAV:-PROC-FLOW-HDR *
15679R* ADDED NEW FIELDS IN HISTORY SEG BY *
15679R* ADJUSTING FILLER. NEW FIELD IS : *
15679R* :SAV:-HIST-SENT-FMR-IN *
14111R* JUN 07 RELEASE RAJEEVA SPRF# 4-14111 - 2007 COC BENEFIT *
14111R* CHANGE. ADDED NEW FIELD UNDER *
14111R* SAV-LINE-DATA. *
17252C* REL0708 AMZAD SPRF#4-17252 AUGUST RELEASE CHANGES *
13376K* REL0708 K. DZIEDZIC SPRF 4-13376 ITI (INPAT TRANS INIT) *
13376K* ADDED SAV-LN-PNLTY-USE-TYP *
13376S* REL0708 SUBHASHREE SPRF#4-13376 AUGUST RELEASE 07 CHANGES *
13376S* ADDED SAV-MCR-CRITERIA-MATCH *
17616S* REL0708 M. SILVA SPRF#4-17616 Q3 SPECIAL PROJECTS *
17616S* ADDED SAV-REPRICE-IND *
17635R* REL0711 RAJEEVA SPRF#4-17635 *
17635R* ADDED NEW FIELDS AND FILLER 50 BYTES *
17635R* UNDER GRP VAR :SAV:-REC-TYP1-FIXED *
17635R* A) :SAV:-PRATE-REASON-CODE *
17635R* B) :SAV:-FIXED-FILLER1 (50 BYTES) *
17618S* REL0711 M. SILVA SPRF#4-17618 Q4 SPECIAL PROJECTS *
17618S* ADDED MLI-IND AND THRESHOLD-AMT CHANGED*
17618S* SAV-MLI-IND TO SAV-MLI-SUPPRESS-IND *
000******************************************************************** EMC6SAV1
24137R* Q3-09 DRG EXPANSION - 400024137 CHANGES FOR Q3-09 RELEASE *
24137R* RACHEL THOMAS EXPAND SAV:-UNET-DRG TO 5 BYTES AND *
24137R* REDUCE THE FILLER. *
H68182* CHAKRADHAR KARRI - UPDATING SAVEFILE WITH CLAIM SOURCE IND*
H68182* TO INCLUDE '6' '7'AND 'S'. HPSD# 68182 *
24137R*****************************************************************
000******************************************************************** EMC6SAV1
005100 03 :SAV:-REC-TYP1-FIXED. EMC6SAV1
005200 05 :SAV:-FILE-KEY-AREA. EMC6SAV1
005300 10 :SAV:-FILE-FLN-ALT-KEY. EMC6SAV1
005400 15 :SAV:-ADJ-OFFICE PIC 9(03) COMP-3. EMC6SAV1
005500 15 :SAV:-FLN PIC 9(11) COMP-3. EMC6SAV1
005600 15 :SAV:-RECORD-TYPE-FLN-AIX PIC X(01). EMC6SAV1
005700 10 :SAV:-FILE-SSN-ALT-KEY. EMC6SAV1
005800 15 :SAV:-EMP-ID. EMC6SAV1
005900 20 :SAV:-EMP-ID-1 PIC X(1). EMC6SAV1
006000 20 :SAV:-EMP-SSN PIC X(09). EMC6SAV1
006100 15 :SAV:-RECORD-TYPE-AIX PIC X. EMC6SAV1
006200 10 :SAV:-FILE-KEY. EMC6SAV1
006300 15 :SAV:-ICN PIC 9(11) COMP-3. EMC6SAV1
006400 15 :SAV:-RECORD-TYPE PIC X(1). EMC6SAV1
006500 88 :SAV:-REC-TYPE1-TOPS VALUE '1'. EMC6SAV1
006600 88 :SAV:-REC-TYPE2-HCDS VALUE '2'. EMC6SAV1
006700 88 :SAV:-REC-TYPE3-MCDS VALUE '3'. EMC6SAV1
006800 88 :SAV:-REC-TYPE4-NEIC VALUE '4'. EMC6SAV1
006900 15 :SAV:-ICN-SUFFIX PIC 9(3) COMP-3. EMC6SAV1
007000****** SAVE CLAIM DATE & TIME STAMP *************************** EMC6SAV1
007100 05 :SAV:-CLAIM-DATE-STAMP-1 PIC S9(07) COMP-3. EMC6SAV1
007200 05 :SAV:-CLAIM-TIME-STAMP-1 PIC S9(09) COMP-3. EMC6SAV1
007300****** TOPS REGION INDICATOR ********************************** EMC6SAV1
007400 05 :SAV:-ENGINE-IND PIC X. EMC6SAV1
007500 88 :SAV:-EAST-REGION VALUE 'E'. EMC6SAV1
007600 88 :SAV:-WEST-REGION VALUE 'W'. EMC6SAV1
007700 88 :SAV:-ARCS-REGION VALUE 'A'. EMC6SAV1
007800 88 :SAV:-BELL-REGION VALUE 'B'. EMC6SAV1
007900 88 :SAV:-NORTH-REGION VALUE 'N'. EMC6SAV1
008000 88 :SAV:-SOUTH-REGION VALUE 'S'. EMC6SAV1
008100 88 :SAV:-CENTRAL-REGION VALUE 'C'. EMC6SAV1
008100 88 :SAV:-GEO-REGION VALUE 'G'. EMC6SAV1
008100 88 :SAV:-OMNI-REGION VALUE 'O'. EMC6SAV1
008100 88 :SAV:-QARK-REGION VALUE 'Q'. EMC6SAV1
008100 88 :SAV:-KING-REGION VALUE 'K'. EMC6SAV1
008100 88 :SAV:-XFIL-REGION VALUE 'X'. EMC6SAV1
NEWENG 88 :SAV:-DART-REGION VALUE 'D'. EMC6SAV1
NEWENG 88 :SAV:-FOXX-REGION VALUE 'F'. EMC6SAV1
NEWENG 88 :SAV:-YOGI-REGION VALUE 'Y'. EMC6SAV1
NEWENG 88 :SAV:-ZEUS-REGION VALUE 'Z'. EMC6SAV1
MYTH 88 :SAV:-MYTH-REGION VALUE 'M'. EMC6SAV1
UNOA 88 :SAV:-UNOA-REGION VALUE 'U'. EMC6SAV1
08015P 88 :SAV:-HULA-REGION VALUE 'H'. EMC6SAV1
08015P 88 :SAV:-JAVA-REGION VALUE 'J'. EMC6SAV1
08015P 88 :SAV:-LUNA-REGION VALUE 'L'. EMC6SAV1
08015P 88 :SAV:-RITA-REGION VALUE 'R'. EMC6SAV1
008400****** RECORD TYPE INDICATORS ***********************************EMC6SAV1
008500 05 :SAV:-RECORD-TYPE-IND. EMC6SAV1
008600 10 :SAV:-RECORD-TYPE2-IND PIC X. EMC6SAV1
FE0509 88 :SAV88:TYPE2-EXISTS VALUE 'Y'. EMC6SAV1
008800 10 :SAV:-RECORD-TYPE3-IND PIC X. EMC6SAV1
FE0509 88 :SAV88:TYPE3-EXISTS VALUE 'Y'. EMC6SAV1
009000 10 :SAV:-RECORD-TYPE4-IND PIC X. EMC6SAV1
FE0509 88 :SAV88:TYPE4-EXISTS VALUE 'Y'. EMC6SAV1
009200****** SAVE CLAIM STATUS FLAG ********************************* EMC6SAV1
009300 05 :SAV:-PICK-FLAG PIC X. EMC6SAV1
FE0509 88 :SAV88:TOPS-UPDATED VALUE 'P' 'M' 'A' 'N' EMC6SAV1
009500 'J' 'L'. EMC6SAV1
009400 88 TOPS-PAID-CLOSED-REJ VALUE 'P' 'A' 'J' 'L'. EMC6SAV1
009600 88 CLAIM-AUTO-PAID VALUE 'A'. EMC6SAV1
009700 88 CLAIM-AUTO-PEND VALUE 'N'. EMC6SAV1
009800 88 CLAIM-MANUAL-PAID VALUE 'P'. EMC6SAV1
009900 88 CLAIM-MANUAL-PEND VALUE 'M'. EMC6SAV1
010000 88 CLAIM-WAS-REJECTED VALUE 'J'. EMC6SAV1
010100 88 CLAIM-WAS-CLOSED VALUE 'L'. EMC6SAV1
010200 88 CLAIM-WAS-SELECTED VALUE 'S' 'T' 'F' EMC6SAV1
010300 'D' 'R' 'Q' EMC6SAV1
010400 'B' 'O'. EMC6SAV1
FE0509 88 :SAV88:CLAIM-WAS-TRANSFERRED VALUE 'T' 'B' 'O'.EMC6SAV1
FE0509 88 :SAV88:CLAIM-WAS-DELETED VALUE 'D'. EMC6SAV1
010700 88 CLAIM-CLEAN-UP VALUE 'C'. EMC6SAV1
010700 88 CLAIM-IN-MESSAGE-QUEUE VALUE 'G'. EMC6SAV1
010800 88 CLAIM-STATUS-DEP-NOTFND VALUE '2'. EMC6SAV1
010900 88 CLAIM-STATUS-EMP-NOTFND VALUE '1'. EMC6SAV1
011000 88 DISCOUNTED-PROVIDER VALUE '$'. EMC6SAV1
011100****** :SAV:E STATUS SCREEN INFO **************************** EMC6SAV1
011200 05 :SAV:-EMP-POL-NO PIC X(6). EMC6SAV1
011300 05 :SAV:-CLAIM-FIRST-NAME PIC X(10). EMC6SAV1
011400 05 :SAV:-CLAIM-RELATIONSHIP PIC X(2). EMC6SAV1
011500 05 :SAV:-CLAIM-SEL-OR-NBR PIC X(9). EMC6SAV1
011600 05 :SAV:-CLAIM-SOURCE-IND PIC X. EMC6SAV1
011700 88 :SAV:-HOSP-CLAIM VALUE 'H' '6' '8' EMC6SAV1
DL0702 'F' 'R'
011800 'N' 'U' 'A' 'K'. EMC6SAV1
011900 88 :SAV:-MED-CLAIM VALUE 'M' '5' '7' '9' EMC6SAV1
012000 'O' 'V' 'B' 'D' EMC6SAV1
012100 'E' 'G' 'I' 'J' EMC6SAV1
DL0702 'L' 'P' 'X' EMC6SAV1
012300 'Q' 'S' 'W' 'Y' EMC6SAV1
012400 'Z' 'C' '4'. EMC6SAV1
012500 88 :SAV:-PAPERLESS-CLAIM VALUE 'H' 'M' 'N' 'O' EMC6SAV1
012600 'U' 'V' '6' '7' EMC6SAV1
012700 '8' '9' 'A' 'B' EMC6SAV1
012800 'D' 'E' 'G' 'I' EMC6SAV1
012900 'K' 'L' 'P' 'R' EMC6SAV1
013000 'X' 'Q' 'S' 'W' EMC6SAV1
DL0702 'F' '4' '5'
013100 'Y' 'Z' 'C'. EMC6SAV1
013200 88 :SAV:-NEIC-CLAIM VALUE 'H' 'M'. EMC6SAV1
DL0702 88 :SAV:-B2B-MED-CLAIM VALUE 'D'. EMC6SAV1
DL0702 88 :SAV:-837-MED-CLAIM VALUE 'E'. EMC6SAV1
013500 88 :SAV:-HCN-MED-CLAIM VALUE 'G'. EMC6SAV1
013600 88 :SAV:-HCDS-CLAIM VALUE 'H'. EMC6SAV1
013800 88 :SAV:-UB92-KEYED-CLAIM VALUE 'K'. EMC6SAV1
013900 88 :SAV:-HCFA-KEYED-CLAIM VALUE 'L'. EMC6SAV1
014000 88 :SAV:-MCDS-CLAIM VALUE 'M'. EMC6SAV1
DL0702 88 :SAV:-837-HOSP-CLAIM VALUE 'F'. EMC6SAV1
014200 88 :SAV:-UB92-ELEC-CLAIM VALUE 'N'. EMC6SAV1
014300 88 :SAV:-NORRELL-MED-CLAIM VALUE 'O'. EMC6SAV1
DL0702 88 :SAV:-PORTAL-MED-CLAIM VALUE 'P'. EMC6SAV1
DL0702 88 :SAV:-837-XOVER-CLAIM VALUE 'Q'. EMC6SAV1
DL0702 88 :SAV:-837-PARTA-CLAIM VALUE 'R'. EMC6SAV1
014600 88 :SAV:-USBH-HOSP-CLAIM VALUE 'U'. EMC6SAV1
014700 88 :SAV:-USBH-MED-CLAIM VALUE 'V'. EMC6SAV1
014800 88 :SAV:-MEDC-XOVER-CLAIM VALUE 'X'. EMC6SAV1
06999B* 88 :SAV:-CFE-MED-RESERVED VALUE 'Q' 'S' 'W' EMC6SAV1
06999B* 'Y' 'Z'. EMC6SAV1
06999B 88 :SAV:-CFE-MED-RESERVED VALUE 'Q' 'W' EMC6SAV1
015000 'Y' 'Z'. EMC6SAV1
06999B 88 :SAV:-RTA-PROF-CLAIM VALUE 'S'.
015100 88 :SAV:-MANUAL-CLAIM VALUE '3'. EMC6SAV1
015200 88 :SAV:-TOPS-CLAIM VALUE '4' '5'. EMC6SAV1
015300 88 :SAV:-TOPS-FE-HOSP VALUE '4'. EMC6SAV1
015400 88 :SAV:-TOPS-FE-CDS VALUE '5'. EMC6SAV1
015500 88 :SAV:-CDS-CLAIM VALUE '6' '7'. EMC6SAV1
015600 88 :SAV:-CDS-HOSP VALUE '6'. EMC6SAV1
015700 88 :SAV:-CDS-MED VALUE '7'. EMC6SAV1
015800 88 :SAV:-FE-PAPERLESS-HOSP VALUE '8' 'A'.
015900 88 :SAV:-FE-PAPERLESS-MED VALUE '9' 'B' 'O'.
016000 88 :SAV:-TOPS-INPUT VALUE 'T'. EMC6SAV1
016100 88 :SAV:-MEDC-FE-CLAIM VALUE 'C' 'N' 'P'. EMC6SAV1
016100 88 :SAV:-ELECTRONIC-CLAIM VALUE 'H' 'M' 'C' 'X' EMC6SAV1
DL0702 'D' 'E' 'F' 'Q'
DL0702 'R'
016200 'U' 'V' 'N' 'P' V1
H68182 '6' '7' 'S'.
016500 05 :SAV:-AUTO-IND PIC X(1). EMC6SAV1
016600* IMAGE-IND - Y = CLAIM HAS BEEN IMAGED AS OPPPOSED TO FILMED EMC6SAV1
016800 05 :SAV:-IMAGE-IND PIC X. EMC6SAV1
TH0700 05 :SAV:-JOB-65-66-IND PIC X. EMC6SAV1
017000 05 :SAV:-FORCE-BALANCE PIC X. EMC6SAV1
017100 05 :SAV:-MOVE-REV-L04 PIC X(1). EMC6SAV1
017200 05 :SAV:-PND-RSLV-ID PIC X(6). EMC6SAV1
017300*************************************************************** EMC6SAV1
017400 05 :SAV:-PAPERLESS PIC X. EMC6SAV1
017500 05 :SAV:-PRODUCT-CODE PIC X(2). EMC6SAV1
017600 05 :SAV:-PAY-OFC PIC 9(3) COMP-3. EMC6SAV1
017700 05 :SAV:-PAY-SYS PIC X. EMC6SAV1
017800 05 :SAV:-NBR-SUFFIXES PIC 9(3) COMP-3. EMC6SAV1
017900 05 :SAV:-IDX-PROV-TYPE PIC X(2). EMC6SAV1
018000 05 :SAV:-SPEC-WQ-IND PIC X(01). EMC6SAV1
018500 05 :SAV:-ST-ISSUE PIC X(02). EMC6SAV1
018600 05 :SAV:-CLM-PRTY PIC X(01). EMC6SAV1
018700 05 :SAV:-POLICY-GRP PIC X(06). EMC6SAV1
018800 05 :SAV:-MICROFILM-INFO. EMC6SAV1
018900 10 :SAV:-FILM-LOC PIC 9(3) COMP-3. EMC6SAV1
DL0299 10 :SAV:-UFE-UID-SPLIT PIC X(02). EMC6SAV1
019000 10 FILLER PIC X(04). EMC6SAV1
019100 05 :SAV:-PROV-FLAG PIC X. EMC6SAV1
019200 05 :SAV:-PROV-TYPE-TOPS PIC X(2). EMC6SAV1
019300* EMC6SAV1
019400*------------------------------------------------------------- EMC6SAV1
019500* NEW FIELDS FOR AUGUST XX ADDITIONAL BYTES EMC6SAV1
019600*-------------------------------------------------------------- EMC6SAV1
019700* EMC6SAV1
019800 05 :SAV:-PRS-IND PIC X(1). EMC6SAV1
019900 88 PRS-APPLIES VALUE '1'. EMC6SAV1
020000 88 PRS-CLAIM-NOT-AVAIL VALUE '2'. EMC6SAV1
020100 88 PRS-COMPLETED-REVIEW VALUE '3'. EMC6SAV1
020200 05 :SAV:-PRS-FILTER-DAYS PIC 9(3) COMP-3. EMC6SAV1
020300 05 :SAV:-PRS-PEND-TOPS PIC X(1). EMC6SAV1
FE0509 88 :SAV88:PRS-CLAIM-PENDED-IN-TOPS VALUE 'Y'. EMC6SAV1
020500 05 :SAV:-PRS-NXT-LINE-NBR PIC 9(3) COMP-3. EMC6SAV1
020600 05 :SAV:-STATUS PIC X(4). EMC6SAV1
020700 05 :SAV:-NBR-PMT-SCREENS PIC 9(3) COMP-3. EMC6SAV1
020800 05 :SAV:-PRICE-IND PIC X. EMC6SAV1
021000 05 :SAV:-TOPS-PRS-IND PIC X. EMC6SAV1
021100 05 :SAV:-USBH-IND PIC X. EMC6SAV1
TH1198 05 :SAV:-ESRD-IND PIC X. EMC6SAV1
JL0399 05 :SAV:-PDI-HEALTH-PLAN PIC X(4). EMC6SAV1
TH0799 05 :SAV:-IMCS-RUNOUT-IND PIC X(1). EMC6SAV1
DAMAG 05 :SAV:-CLM-REVIEW-BY PIC X(1). EMC6SAV1
DAMAG 88 :SAV:-MAG-REVIEW VALUE 'M'.
DL0703 88 :SAV:-ICES-REVIEW VALUE 'I'.
DAMAG 88 :SAV:-PRS-REVIEW VALUE 'P'.
DAMAG 88 :SAV:-BOTH-REVIEW VALUE 'B'.
021600 05 :SAV:-TRIG-REL-FMR PIC X. EMC6SAV1
021700 05 :SAV:-MRI-PLAN-VAR PIC X(04). EMC6SAV1
021800 05 :SAV:-PRE-EXIST-MONTHS PIC X(02).
021900 05 :SAV:-SQ-EPI-IND PIC X.
022000 05 :SAV:-SQ-PROV-IND PIC X.
022100 05 :SAV:-SQ-EDS1-IND PIC X.
022200 05 :SAV:-WAIVER-IND PIC X. EMC6SAV1
022300 05 :SAV:-DX-SPLIT-IND PIC X. EMC6SAV1
022400 88 :SAV:-DX-SPLIT VALUE 'Y'.
022510 05 :SAV:-VENDOR-ID PIC X(2). EMC6SAV1
022510 05 :SAV:-MULT-EPIS PIC X. EMC6SAV1
022510 05 :SAV:-DENY-CANC-TYPE PIC X. EMC6SAV1
FE0509 05 :SAV:-CLOSE-RMK PIC X(3). EMC6SAV1
022510 05 :SAV:-MEDB-MULT-E6 PIC X(1). EMC6SAV1
05 :SAV:-SAZ-GRP PIC X(2).
05 :SAV:-SAZ-WRKQ-SETUP PIC X(1).
05 :SAV:-FMR-GRP-IND PIC X(1).
022510 05 :SAV:-SAZ-LNAME-3 PIC X(3). EMC6SAV1
022510 05 :SAV:-PRODUCT-CCM PIC X(3). EMC6SAV1
022510 05 :SAV:-METLIFE-CTL-NO. EMC6SAV1
022510 10 :SAV:-METLIFE-DCC PIC X(02). EMC6SAV1
022510 10 :SAV:-METLIFE-FLN PIC X(10). EMC6SAV1
022510 05 :SAV:-UHC-IND PIC X(1). EMC6SAV1
019900 88 UHC-APPLIES VALUE '1'. EMC6SAV1
020000 88 UHC-CLAIM-NOT-AVAIL VALUE '2'. EMC6SAV1
020100 88 UHC-COMPLETED-REVIEW VALUE '3'. EMC6SAV1
022510 05 :SAV:-PROV-STATUS PIC X(1). EMC6SAV1
022510 05 :SAV:-NY-ELIGIBLE-IND PIC X(1). EMC6SAV1
05 :SAV:-MDCR-BYPASS-EDIT PIC X(1).
022510 05 :SAV:-SUSPEND-IND PIC X(1). EMC6SAV1
022510 05 :SAV:-XMET-CONVERSION-DATE PIC S9(5) COMP-3. EMC6SAV1
FE0509 05 :SAV:-NY-SURCHARGE PIC 9(7)V99 COMP-3. EMC6SAV1
JL0198 05 :SAV:-GE-CLAIM-TYPE PIC X(01). EMC6SAV1
JL0198 88 :SAV:-GE-PART-A VALUE 'A'.
JL0198 88 :SAV:-GE-PART-B VALUE 'B'.
JL0198 88 :SAV:-GE-RX VALUE 'R'.
JL0198 88 :SAV:-GE-EXTENDED-CARE VALUE 'E'.
JL0198 88 :SAV:-GE-OH-SURGERY VALUE 'O'.
022510 05 :SAV:-ENCOUNTER-IND PIC X(1). EMC6SAV1
022600 05 :SAV:-URGENT-CARE PIC X. EMC6SAV1
JC1200 05 :SAV:-PDI-PROVIDER-TIN-NUMBER-10 PIC 9(10).
FE0509 05 :SAV:-PDI-PROVIDER-TIN-SUFFIX PIC 9(5).
JC1200 05 :SAV:-PDI-PROVIDER-GRP-NME.
JC1200 10 :SAV:-PDI-PROVIDER-NM-LST PIC X(20).
JC1200 10 :SAV:-PDI-PROVIDER-NM-FST PIC X(10).
JC1200 05 :SAV:-ZP-BYPASS-IND PIC X(1).
KF1200 05 :SAV:-PROMPT-PAY-DATA.
KF1200 10 :SAV:-ADDRESSEE-MAIL PIC X(1).
KF1200 10 :SAV:-LETTER-COMPLETE-CLM PIC 9(5).
KF1200 10 :SAV:-CLEAN-TRIGGER-DATE PIC 9(8) COMP-3.
KF1200 10 :SAV:-LETTER-INCOMPLETE-CLM PIC 9(5).
KF1200 10 :SAV:-DIRTY-TRIGGER-DATE PIC 9(8) COMP-3.
KF1200 10 :SAV:-CLEAN-DIRTY-DEFINITION-IND PIC X(2).
KF1200 10 :SAV:-CLEAN-DIRTY-IND PIC X(1).
KF1200 10 :SAV:-CLEAN-DIRTY-DATE PIC 9(8) COMP-3.
KF1200 10 :SAV:-FMR-FAIL-IND PIC X.
KF1200 10 :SAV:-SENT-FAIL-IND PIC X.
KF1200 10 :SAV:-SENT-FAIL-DATE PIC 9(8) COMP-3.
DL1200 05 :SAV:-MALLINCKRODT-VIS PIC X.
TH1200 05 :SAV:-ZP-ROUTE-IND PIC X(1).
KF0101 05 :SAV:-PROVIDER-MPIN PIC X(9).
KF0101 05 :SAV:-PROVIDER-SA-ADDR-SEQ PIC X(9).
JC0201 05 :SAV:-EARLIEST-DOS PIC S9(7) COMP-3.
JC0201 05 :SAV:-LATEST-DOS PIC S9(7) COMP-3.
JC0201 05 :SAV:-MBR-MARKET PIC X(7).
JC0201 05 :SAV:-COMP-CD PIC X(2).
JC0301 05 :SAV:-OPT-OUT-IND PIC X(1).
JC0301**** PLEASE NOTE, FOLLOWING IN CCYYMMDD FORMAT
JC0301 05 :SAV:-MRI-PAT-DOB PIC S9(9) COMP-3.
JC0301 05 :SAV:-MBR-IPA PIC X(5).
DL0801 05 :SAV:-HMO-ACCT PIC X(3).
DA1201 05 :SAV:-ORIG-ICN PIC 9(10) COMP-3.
DA1201 05 :SAV:-TOPS-ORIG-DRAFT-NBR PIC 9(10) COMP-3.
24137R* 05 :SAV:-UNET-DRG PIC X(3).
24137R 05 :SAV:-UNET-DRG PIC X(5).
JN1201 05 :SAV:-CAI-INDICATOR PIC X(1).
DA1201 05 :SAV:-CLM-FIL-IND PIC X(02).
JN0202 05 :SAV:-CNVT-TO-SRC PIC X(01).
DA0702 05 :SAV:-EDS-UPD-APPLIED PIC X(01).
NT0605 05 :SAV:-ATG-JOB-SEQ-DIGIT PIC X(01).
NT0605***** 05 FILLER PIC X(01).
DA0702 05 :SAV:-CLAIM-TYPE-EXCEPTIONS PIC X(01).
DA0702 05 :SAV:-DOL-TRIGGER-DT PIC 9(8) COMP-3.
DA0702 05 :SAV:-DOL-SENT-FAIL-IND PIC X(01).
DA0702 05 :SAV:-DOL-SENT-FAIL-DT PIC 9(8) COMP-3.
FE0509 05 :SAV:-DOL-CLM-RMK PIC X(03).
DA0702 05 :SAV:-SPLIT-SRCE-REC PIC X(01).
DL0702 05 :SAV:-CLOSE-EB-IND PIC X(01).
DL0702 05 :SAV:-ATG-JOB-NBR PIC X(10).
FE0509 05 :SAV:-ATG-RMK-CD PIC X(03).
DL0702 05 :SAV:-ATG-OTS-REASON-CD PIC X(03).
DL0702 05 :SAV:-ATG-LETTER-NBR PIC X(03).
DL0702 05 :SAV:-CORRECTION-TRAN-CD PIC X(02).
FEB04A 05 :SAV:-ACN-IND PIC X(01).
VC1002 05 :SAV:-RECYCLE-IND PIC X(01).
DL1002 05 :SAV:-RPR-STATUS-INDICATOR PIC X(01).
DL1002 05 :SAV:-RPR-VENDOR-INDICATOR PIC X(01).
DL1002 05 :SAV:-RPR-VENDOR-TRG-RLS PIC 9(03) COMP-3.
TD0203 05 :SAV:-UB92-FAC-CONTR-METH PIC X(01).
TD0203 05 :SAV:-UB92-SURG-IND PIC X(01).
JC0203******* ADD 3 CQR FIELDS AND REDUCE FILLER FROM 25 TO 22 ***
JC0203 05 :SAV:-CQRCM-TYPE PIC X(1).
JC0203 05 :SAV:-CQRCM-SEND-TO PIC X(1).
JC0203 05 :SAV:-CQRCM-SEND-CNT PIC 9(1).
JR0303 05 :SAV:-PHI-IND PIC X(01).
TC0403 05 :SAV:-SKIP-RECIP-STATE-IND PIC X.
TC0403 88 SKIP-RECIP-DERIVATION VALUE '1' '2'.
FE0509 88 :SAV88:SKIP-RECIP-SET-ONLINE VALUE '1'.
TC0403 88 SKIP-RECIP-SET-BATCH VALUE '2'.
DL0403 05 :SAV:-UB92-ORIG-POS PIC X(02).
JUN03 05 :SAV:-ORG-ID PIC X(05).
JUN03 05 :SAV:-RELEASED-FROM-COMET PIC X(01).
JUN03 05 :SAV:-CQRCM-DT-SENT PIC 9(5) COMP-3.
JC0405 05 :SAV:-PROV-SA-STATE PIC X(02).
DL1205 05 :SAV:-INAPR-PROV-REF-IND PIC X(01).
08105T 05 :SAV:-IO-IND PIC X(01).
12772D 05 :SAV:-EDS4-UPDATE-IND PIC X(01).
12772D 88 :SAV88:EDS4-UPDATED VALUE 'U'.
12772D 88 :SAV88:EDS4-RELEASED VALUE 'R'.
05630D 05 :SAV:-RV-IND PIC X(01).
13848H 05 :SAV:-DOL-SPLIT-IND PIC X(01).
13848H 88 :SAV:-NEEDS-SPLIT VALUE 'Y'. VI000EMC
13848H 88 :SAV:-HAS-SPLIT VALUE 'S'. VI000EMC
17616S 05 :SAV:-REPRICE-IND PIC X(01).
12772D*13848H 05 :SAV:-FILLER-FIXED PIC X(02).
08105T*12772D 05 :SAV:-FILLER-FIXED PIC X(04).
JC0203 05 :SAV:-CQRCM-RULES OCCURS 5 TIMES.
JC0203 10 :SAV:-CQRCM-TYPE-OF-RULE PIC X(01).
JC0203 10 :SAV:-CQRCM-BUS-RULE-CD PIC X(06).
TD0203 05 :SAV:-FACILITY-TABLE.
TD0203 10 :SAV:-FAC-ICN-TABLE OCCURS 10 TIMES.
TD0203 15 :SAV:-FAC-ICN PIC 9(11) COMP-3.
TD0203 15 :SAV:-FAC-ICN-SUFF PIC 9(03) COMP-3.
TD0203 05 :SAV:-FAC-ICN-COUNT PIC 9(02).
022700 05 :SAV:-NBR-CLMINF PIC S9(4) COMP. EMC6SAV1
022800 05 :SAV:-NBR-HIST PIC S9(4) COMP. EMC6SAV1
022900 05 :SAV:-NBR-OF-LINES PIC S9(4) COMP. EMC6SAV1
DA1201 05 :SAV:-NBR-REC4 PIC S9(4) COMP. EMC6SAV1
DA1201 05 :SAV:-NBR-REC4-INS PIC S9(4) COMP. EMC6SAV1
BK0604* FIELDS ADDED FOR JUNE'04 RELEASE
HT0604 05 :SAV:-NLI-DATA-AREA. EMC6SAV1
HT0604 10 :SAV:-LTR1-RELEASE-DATE PIC S9(8) COMP-3.
HT0604 10 :SAV:-LTR1-RPT-DAYS PIC 9(04).
HT0604 10 :SAV:-LTR1-PROV PIC X(03).
HT0604 10 :SAV:-LTR1-MEM PIC X(03).
HT0604 10 :SAV:-LTR2-RELEASE-DATE PIC S9(8) COMP-3.
HT0604 10 :SAV:-LTR2-RPT-DAYS PIC 9(04).
HT0604 10 :SAV:-LTR2-PROV PIC X(03).
HT0604 10 :SAV:-LTR2-MEM PIC X(03).
HT0604 10 :SAV:-LTR3-RELEASE-DATE PIC S9(8) COMP-3.
HT0604 10 :SAV:-LTR3-RPT-DAYS PIC 9(04).
HT0604 10 :SAV:-LTR3-PROV PIC X(03).
HT0604 10 :SAV:-LTR3-MEM PIC X(03).
HT0604* 05 :SAV:-REC-TYP1-FILLER PIC X(55).
CS0410 05 :SAV:-NEW-COINS-IND PIC X(01).
CS0410 05 :SAV:-NEW-COINS-CTR PIC 9(01).
TD1204*89*ADDED CLOSE-RECALL, REDUCED FILLER BY 4
FE0509 05 :SAV:-RECALL-CLOSE-DENY PIC X(03)
TD1204 OCCURS 2 TIMES.
RP1204 05 :SAV:-MEDRX-SIGNATURE PIC X(26).
SD0412 05 :SAV:-NS58-NS1E-IND PIC X(01).
RS0503 05 :SAV:-BYPASS-PROV-FLAG PIC X(01).
SD0503 05 :SAV:-NDB-RTN-CODE PIC X(04).
SD0503 05 :SAV:-RTN-ADDRESS-IND PIC X(01).
HT0504 05 :SAV:-WORKFLOW-ID.
HT0504 10 :SAV:-PAYOR PIC X(02).
HT0504 10 :SAV:-PROF-FACILITY PIC X(01).
HT0504 10 :SAV:-IN-OUT-PATIENT PIC X(01).
HT0504 10 :SAV:-COM-MCARE-MCAIDE PIC X(02).
HT0504 10 :SAV:-OPTION-A-B PIC X(01).
HT0504 10 :SAV:-WORKFLOW-ID-FILLER PIC X(03).
SN0405 05 :SAV:-SBI-IND PIC X(01).
SN0605 88 SBI-CLAIM-PSEUDOPENDED VALUE '1'.
SN0605 88 SBI-CLAIM-SENT-TO-VENDOR VALUE '2'.
SN0605 88 SBI-CLAIM-PAID VALUE '3'.
SN0605 88 SBI-CLAIM-DENIED VALUE '4'.
SN0605 88 SBI-CLAIM-CLOSED VALUE '5'.
SN0605 88 SBI-RECALL-AND-PAY VALUE '7'.
SN0605 88 SBI-RECALL-AND-DENY VALUE '8'.
SN0605 88 SBI-CLAIM-RECALLED VALUE '9'.
RL0506 05 :SAV:-EDS-UNDO-IND PIC X(01).
BK0605 05 :SAV:-ATG-HOLD-PND-CD PIC X(03).
MB0509 05 :SAV:-SUBSTITUTION-IND PIC X(01).
MB0509 05 :SAV:-ORS-ID PIC X(15).
MB0509 05 :SAV:-ADJ-ACTION PIC X(01).
MB0509 88 :SAV:-ADJ-CLM-OVERPAYMENT VALUE '1'.
MB0509 88 :SAV:-ADJ-CLM-UNDERPAYMENT VALUE '2'.
MB0509 88 :SAV:-ADJ-CLM-NO-CHANGE VALUE '3'.
MB0509 88 :SAV:-ADJ-FULL-OVERPAY-GT20 VALUE '4'.
MB0509 88 :SAV:-ADJ-NOT-FULL-OVERPAY VALUE '5'.
MB0509 05 :SAV:-ADJ-REQUESTOR PIC X(01).
MB0509 88 :SAV:-ADJ-PROV-PHONE-REQ VALUE '1'.
MB0509 88 :SAV:-ADJ-PROV-PORTAL-REQ VALUE '2'.
MB0509 88 :SAV:-ADJ-MEMBER-REQ VALUE '3'.
MB0509 05 :SAV:-ADJ-RECEIPT-DT PIC 9(08).
RP0509 05 :SAV:-MULT-PROC-HIST-IND PIC X(01).
AA1205 05 :SAV:-GOLDEN-RULE-IND PIC X(01).
JA1205 05 :SAV:-UPCT-SYS-ID PIC X(03).
08265A 05 :SAV:-PTI-OVERIDE PIC X(01).
08265A 05 :SAV:-PTI-DETERMINED PIC X(01).
08265A 05 :SAV:-PTI-ORG-DERIVED PIC X(04).
08265A 05 :SAV:-PTI-SELECTED PIC X(01).
08265A 05 :SAV:-PTI-ORG-SELECTED PIC X(04).
08265A 05 :SAV:-ADDITIONAL-PTI-IND PIC X(01).
08265A 05 :SAV:-MEDC-PROC-IND PIC X(01).
08265A 05 :SAV:-MEDC-COB-MSPLT-IND PIC X(01).
07935A 05 :SAV:-ORIG-FAC-CONTR-METH PIC X(01).
07935A 05 :SAV:-NDB-CONTR-ID PIC S9(09) COMP-3.
07935A 05 :SAV:-ALT-REAS-REJ-CODE PIC X(02).
07935A 05 :SAV:-ALT-PRICE-ATTMPT-CTR PIC 9(01).
07935A 05 :SAV:-ALT-PRICE-MANUAL-IND PIC X(01).
06999B 05 :SAV:-RTA-INFO.
12528P 10 :SAV:-RTA-ID.
12528P 15 :SAV:-RTA-SUBM-TYPE PIC X.
12528P 88 :SAV:-RTA-CLM VALUE 'R'.
12528P 88 :SAV:-RTA-PRED-CLM VALUE 'X'.
12528P 88 :SAV:-RTA-BNDLG-CLM VALUE 'Y'.
12528P 15 :SAV:-RTA-REST PIC X(23).
06999B 10 :SAV:-RTA-REPLY-MQ PIC X(48).
06999B 10 :SAV:-RTA-PRTY PIC 9(1).
12528D 88 :SAV:-STP-CLM VALUE 0 THRU 3.
12528D 88 :SAV:-PRE-RTA VALUE 4.
06999B 88 :SAV:-RTA-PRTY-CLM VALUE 5 THRU 9.
06999B 10 :SAV:-RTA-RESPONSE PIC X(1).
12471R 88 :SAV:-ENDTORTA-MULTSAV VALUE 'M'.
06999B 88 :SAV:-ENDTORTA-XCOB VALUE 'X'.
06999B 88 :SAV:-ENDTORTA-MULTSFX VALUE 'S'.
06999B 88 :SAV:-ENDTORTA-XCOBMSFX VALUE 'B'.
06999B 88 :SAV:-ENDTORTA-AA VALUE 'A'.
06999B 10 :SAV:-RTA-835-IND PIC X(1).
06999B 10 :SAV:-RTA-REPLY-QMGR PIC X(10) VALUE SPACES.
04357G 05 :SAV:-MEDC-CALC-PD PIC X(01).
10088T 05 :SAV:-SUFX-DIAG-PT-VAL PIC X(05).
10088M 05 :SAV:-LTR-NBR PIC X(03).
10088M 05 :SAV:-POL-LFTM-MAX-PCT PIC 9(03).
12830J 05 :SAV:-OBLIGOR-ID PIC X(02).
12830J 05 :SAV:-SHARED-ARGMNT PIC X(02).
12830J 05 :SAV:-PPA-MARKET-TYPE PIC S9(2) COMP-3. 00170005
12471R 05 :SAV:-MULTISAV-GROUPING PIC 9(02).
12471R 05 :SAV:-FAC-CLAIM-JOBNO PIC X(03).
12471R 05 :SAV:-H-MEDC-PIF-IND PIC X(01).
09708R 05 :SAV:-OI-PAID-LINE-DERIVD PIC X(01).
12471R 05 :SAV:-ERROR-WARN-TBL OCCURS 20 TIMES.
12471R 10 :SAV:-ERROR-WARN-LIT PIC X(01).
12471R 10 :SAV:-ERROR-WARN-NBR PIC S9(5) COMP-3.
11192S 05 :SAV:-BEN-CATG-REC-ID PIC S9(09) COMP.
11046R 05 :SAV:-DENY-CD-AFTER-CLOSE PIC X(03).
10088T* 05 :SAV:-REC-TYP1-FILLER PIC X(04).
07935A* 05 :SAV:-REC-TYP1-FILLER PIC X(05).
07935A* 05 :SAV:-REC-TYP1-FILLER PIC X(07).
08265A* 05 :SAV:-REC-TYP1-FILLER PIC X(15).
08265A* 05 :SAV:-REC-TYP1-FILLER PIC X(29).
HT0504* 05 :SAV:-REC-TYP1-FILLER PIC X(06).
SD0503* 05 :SAV:-REC-TYP1-FILLER PIC X(16).
SD0412* 05 :SAV:-REC-TYP1-FILLER PIC X(22).
SD1204* 05 :SAV:-REC-TYP1-FILLER PIC X(23).
10721E 05 :SAV:-API-RECALL-RULE PIC X(02). KV0703
12672R 05 :SAV:-TF-LOGIC-TO-BE-INVOKED PIC X(01).
12672R 88 SAV-INVOKE-TF-LOGIC VALUE 'Y'.
15679R 05 :SAV:-CORP-TAX-ID PIC X(09).
15679R 05 :SAV:-SUBM-FST-NAME PIC X(25).
15679R 05 :SAV:-SUBM-LST-NAME PIC X(35).
15679R 05 :SAV:-PROC-STATUS PIC X(01).
15679R 05 :SAV:-PROC-FLOW-HDR PIC X(11).
17252C 05 :SAV:-SUBMTR-ID PIC X(15).
13376S 05 :SAV:-MCR-CRITERIA-MATCH PIC X(01).
17635R 05 :SAV:-PRATE-REASON-CODE PIC X(01).
17618S 05 :SAV:-MLI-SUPPRESS-IND PIC X(01).
17618S 05 :SAV:-THRESHOLD-AMT PIC 9(04).
24137R******* REDUCE FILLER FOR DRG EXPANSION *******
24137R 05 :SAV:-FIXED-FILLER1 PIC X(43).
24137R* 05 :SAV:-FIXED-FILLER1 PIC X(45).
17635R* 05 :SAV:-FIXED-FILLER1 PIC X(50).
17252C* 05 :SAV:-FIXED-FILLER1 PIC X(01).
17252C*15679R 05 :SAV:-FIXED-FILLER1 PIC X(16).
12672R*15679R 05 :SAV:-FIXED-FILLER1 PIC X(97).
10721E*12672R 05 :SAV:-FIXED-FILLER1 PIC X(98).
023400*** EMC6SAV1
023500*** --------------------------------------------------------- EMC6SAV1
023600*** DATA AREA HAS BEEN BROKEN OUT INTO IT'S OWN INCLUDE EMC6SAV1
023700*** (EMC6CLM1), THIS ALLOWS THE DATA ITEMS TO BE EMC6SAV1
023800*** REFRENCED WITHOUT SUBSCRIPTING. EMC6SAV1
023900*** --------------------------------------------------------- EMC6SAV1
024000*** EMC6SAV1
023000 03 :SAV:-REC-TYP1-CLM. EMC6SAV1
023100 05 :SAV:-CLAIM-DATA OCCURS 0 TO 1 TIMES EMC6SAV1
023200 DEPENDING ON :SAV:-NBR-CLMINF. EMC6SAV1
14569S*****BACKED OUT 4-14569 CHANGES FROM JUN 07
14569S*****FILLER OF 20 BYTES CAN BE UTILIZED FOR FUTURE RELEASE
13376R 10 FILLER PIC X(569).
14569R* 10 FILLER PIC X(452).
10564S*14569S 10 FILLER PIC X(432).
DA1201*** EMC6SAV1
DA1201*** --------------------------------------------------------- EMC6SAV1
DA1201*** WITH THE DEC. 01-3 DELIVERABLE, :SAV:EFILE RECORD TYPE 4 EMC6SAV1
DA1201*** HAS BEEN ADDED TO :SAV:EFILE RECORD TYPE 1, MAY NOT HAVE EMC6SAV1
DA1201*** DATA, EXAMPLE: TOPSONLY CLAIM. EMC6SAV1
DA1201*** --------------------------------------------------------- EMC6SAV1
DA1201*** EMC6SAV1
DA1201 03 :SAV:-REC-TYP4-FIXED-DATA. EMC6SAV1
DA1201 05 :SAV:-REC4-DATA OCCURS 0 TO 1 TIMES EMC6SAV1
DA1201 DEPENDING ON :SAV:-NBR-REC4. EMC6SAV1
12633S 10 FILLER PIC X(1169). EMC6SAV1
DA1201*** EMC6SAV1
DA1201 03 :SAV:-REC-TYP4-INSURED-DATA. EMC6SAV1
DA1201 05 :SAV:-INSUREDS-DATA OCCURS 0 TO 3 TIMES EMC6SAV1
DA1201 DEPENDING ON :SAV:-NBR-REC4-INS EMC6SAV1
DA1201 INDEXED BY :SAV:-REC4-INS-NDX. EMC6SAV1
DA1201 10 FILLER PIC X(290). EMC6SAV1
000000*-------------------------------------------------------------* EMC6SAV1
031700* TOPS PAYMENT SCREEN LINE DATA * EMC6SAV1
031800*-------------------------------------------------------------* EMC6SAV1
031900 03 :SAV:-REC-TYP1-VAR. EMC6SAV1
032000 05 :SAV:-LINE-DATA OCCURS 0 TO 7 TIMES EMC6SAV1
032100 DEPENDING ON :SAV:-NBR-OF-LINES EMC6SAV1
032200 INDEXED BY :SAV:-LINE-DATA-NDX. EMC6SAV1
032300 10 :SAV:-PLACE-OF-SERVICE PIC X(2). EMC6SAV1
032400 10 :SAV:-MED-SERVICE-CODE PIC X(6). EMC6SAV1
032500 10 :SAV:-FIRST-DATE-SERVICE PIC S9(7) COMP-3. EMC6SAV1
032600 10 :SAV:-LAST-DATE-SERVICE PIC S9(7) COMP-3. EMC6SAV1
FE0509 10 :SAV:-NO-TIMES-SERVICE PIC S9(5) COMP-3. EMC6SAV1
032800 10 :SAV:-OVERRIDE-CODE PIC X(2). EMC6SAV1
032900 10 :SAV:-PAYEE-CODE PIC X. EMC6SAV1
033000 10 :SAV:-PROVIDER-POS-NO PIC S9 COMP-3. EMC6SAV1
FE0509 10 :SAV:-MPI-REMARK-CODE PIC X(3). EMC6SAV1
DA1201 10 :SAV:-CHARGE-AMOUNT PIC S9(9)V99 COMP-3. EMC6SAV1
DA1201 10 :SAV:-NOT-COV-AMOUNT PIC S9(9)V99 COMP-3. EMC6SAV1
DA1201 10 :SAV:-BASE-COV-AMOUNT PIC S9(9)V99 COMP-3. EMC6SAV1
DA1201 10 :SAV:-BASE-DED-AMT PIC S9(9)V99 COMP-3. EMC6SAV1
033600 10 :SAV:-BASE-DED-DESC PIC X(2). EMC6SAV1
033700 10 :SAV:-BASE-PCT PIC S9(3) COMP-3. EMC6SAV1
DA1201 10 :SAV:-BASE-AMT PIC S9(9)V99 COMP-3. EMC6SAV1
DA1201 10 :SAV:-SUP-AMT PIC S9(9)V99 COMP-3. EMC6SAV1
DA1201 10 :SAV:-MM-COV-AMT PIC S9(9)V99 COMP-3. EMC6SAV1
DA1201 10 :SAV:-MM-DED-AMT PIC S9(9)V99 COMP-3. EMC6SAV1
034200 10 :SAV:-MM-DED-DESC PIC X(2). EMC6SAV1
034300 10 :SAV:-MM-PCT PIC S9(3) COMP-3. EMC6SAV1
DA1201 10 :SAV:-MM-AMT PIC S9(9)V99 COMP-3. EMC6SAV1
DA1201 10 :SAV:-CR-RES-AMT PIC S9(9)V99 COMP-3. EMC6SAV1
034600* EMC6SAV1
034700* NEW PRS FIELDS - 14 * 70 = 980 BYTES EXTRA EMC6SAV1
034800* EMC6SAV1
034900 10 :SAV:-LINE-NBR PIC 9(03) COMP-3. EMC6SAV1
FE0509 10 :SAV:-LINE-REMARK-CODE-3 PIC X(03). EMC6SAV1
035100 10 :SAV:-LINE-DISP PIC X(02). EMC6SAV1
035200 10 :SAV:-LINE-PEND-STATUS PIC X(01). EMC6SAV1
SG0307 10 :SAV:-LINE-DISP-SOURCE PIC X(03). EMC6SAV1
JG0307 10 :SAV:-LINE-PAID-AS-CODE PIC X(05).
YL0903 10 :SAV:-LINE-835-RPT-IND PIC X(01).
035400 10 :SAV:-LINE-CREATE-SOURCE PIC X(02). EMC6SAV1
035500 10 :SAV:-LINE-MSG PIC X(05). EMC6SAV1
035900 10 :SAV:-LINE-PMT-SCREEN PIC 9(3) COMP-3. EMC6SAV1
DA0702* EMC6SAV1
DA0702* NEW :SAV:E FIELDS 2 BYTES EMC6SAV1
DA0702* EMC6SAV1
FE0509 10 :SAV:-DOL-CLOSURE-CD OCCURS 4 TIMES PIC X(03). EMC6SAV1
DA0702 10 :SAV:-DX-PTR-FESPI PIC X(05). EMC6SAV1
JC0203***** ADD CQR/COMET ****
JC0203***** WHICH APPLICATION FIXED THE ERRORREOUS DATA ****
JC0203 10 :SAV:-CQRCM-AION-COMET-CHG PIC X(01). EMC6SAV1
JC0203 88 :SAV:-CQRCM-CHG-BY-AION VALUE 'A'. EMC6SAV1
JC0203 88 :SAV:-CQRCM-CHG-BY-COMET VALUE 'C'. EMC6SAV1
RK0509 10 :SAV:-MEDCR-INT-AMTD PIC S9(9)V99 COMP-3.
RK0509 10 :SAV:-MEDCR-PEN-AMT PIC S9(9)V99 COMP-3.
AJ1205 10 :SAV:-ORIG-BILL-AMT PIC S9(9)V99 COMP-3.
08766A 10 :SAV:-TRANSLATED-CL-SERV-CD PIC XX.
09708R*13376R 10 FILLER PIC X(18).
11192S*13376R 10 :SAV:-REC-TYP1-FILLER PIC X(04).
13376R 10 :SAV:-PNLTY-LINE-TABLE OCCURS 2 TIMES.
13376R 12 :SAV:-LN-PNLTY-NTFY-TYP-CD PIC X(02).
13376R 12 :SAV:-LN-PNLTY-AMT PIC S9(07)V99 COMP-3.
13376R 12 :SAV:-LN-PNLTY-REMARK-CD PIC X(03).
13376R 12 :SAV:-LN-PNLTY-BYPASS-CD PIC X(01).
11192S* 10 :SAV:-BEN-ACC-CAT PIC X(02).
11192S* 10 :SAV:-BEN-ACC-TYPE PIC X(02).
13406S 10 :SAV:-TOPS-DETERMINED-SCHED PIC X(01).
14111R 10 :SAV:-MED-SERVICE-CODE-LVL PIC X(01).
13376K 10 :SAV:-LN-PNLTY-USE-TYP OCCURS 2 TIMES
13376K PIC X(01).
13376K 10 FILLER PIC X(19).
14111R* 10 FILLER PIC X(21).
13376R*14111R 10 FILLER PIC X(22).
036000* EMC6SAV1
036100**************************************************************** EMC6SAV1
036200 03 :SAV:-REC-TYP1-HIST. EMC6SAV1
036300 05 :SAV:-HIST-DATA OCCURS 0 TO 150 TIMES EMC6SAV1
036400 DEPENDING ON :SAV:-NBR-HIST EMC6SAV1
036500 INDEXED BY :SAV:-HIST-DATA-NDX. EMC6SAV1
036600 10 :SAV:-HIST-DATE-IN PIC 9(07) COMP-3. EMC6SAV1
036700 10 :SAV:-HIST-DATE-OL-RES PIC 9(07) COMP-3. EMC6SAV1
036800 10 :SAV:-HIST-DATE-BAT-RES PIC 9(07) COMP-3. EMC6SAV1
036900 10 :SAV:-HIST-DATE-TRIGGER PIC 9(07) COMP-3. EMC6SAV1
037000 10 :SAV:-HIST-OFC PIC 9(03) COMP-3. EMC6SAV1
037100 10 :SAV:-HIST-ICN PIC 9(11) COMP-3. EMC6SAV1
037200 10 :SAV:-HIST-SUFFIX PIC 9(03) COMP-3. EMC6SAV1
037300 10 :SAV:-HIST-PND-LINES PIC 9(03) COMP-3. EMC6SAV1
037400 10 :SAV:-HIST-SYSTEM PIC X(01). EMC6SAV1
037500 10 :SAV:-HIST-WRK-QUEUE. EMC6SAV1
037600 15 :SAV:-HIST-WRKQ PIC X(02). EMC6SAV1
FE0509 15 :SAV:-HIST-WRKQ-REAS PIC X(03). EMC6SAV1
037800 10 :SAV:-HIST-STATUS PIC X(02). EMC6SAV1
FE0509 10 :SAV:-HIST-PND-CD PIC X(3). EMC6SAV1
038000 10 :SAV:-HIST-MGR-OFC PIC X(2). EMC6SAV1
038100 10 :SAV:-HIST-PROC-ID PIC 9(07) COMP-3. EMC6SAV1
DL0103 10 :SAV:-HIST-COMMENTS PIC X(68). EMC6SAV1
DL0103 10 :SAV:-HIST-B4-REPRICE-PND-L PIC 9(02). EMC6SAV1
JC0700 10 :SAV:-HIST-FMR-DQ-IND PIC X(01). EMC6SAV1
DL1002 10 :SAV:-HIST-B4-REPRICE-IND PIC X(01). EMC6SAV1
038400 10 :SAV:-HIST-PN-WRKQ-IND PIC X(01). EMC6SAV1
JL0399 10 :SAV:-HIST-PDI-WRKQ-IND PIC X(01). EMC6SAV1
038600 10 :SAV:-HIST-TRIG-RC PIC X(02). EMC6SAV1
HT0604*** FOLLOWING ARE THE NEW FIELDS ADDED
HT0604 10 :SAV:-HIST-AION-SEND-TO PIC X(01).
HT0604 10 :SAV:-HIST-AION-TYPE PIC X(01).
HT0604 10 :SAV:-HIST-AION-CHNG PIC X(01).
HT0604 10 :SAV:-HIST-COMET-SEND-TO PIC X(01).
HT0604 10 :SAV:-HIST-COMET-TYPE PIC X(01).
HT0604 10 :SAV:-HIST-COMET-REL PIC X(01).
SN0405 10 :SAV:-HIST-SBI-IND PIC X(01).
PD0405 10 :SAV:-HIST-AUTO-IND PIC X(01).
PD0405 10 :SAV:-HIST-UPDT-SYS PIC X(01).
15679R 10 :SAV:-HIST-SENT-FMR-IN PIC X(01).
15679R 10 :SAV:-HIST-FILLER PIC X(15).
FE0509*15679R 10 :SAV:-HIST-FILLER PIC X(16).
**************************** BOTTOM OF DATA ****************
|
|
|
Back to top |
|
|
icemanroh
New User
Joined: 23 Aug 2008 Posts: 25 Location: Mumbai
|
|
|
|
I am assuming that ur key is as below.
Code: |
10 :SAV:-FILE-KEY.
15 :SAV:-ICN PIC 9(11) COMP-3.
15 :SAV:-RECORD-TYPE PIC X(1).
88 :SAV:-REC-TYPE1-TOPS VALUE '1'.
88 :SAV:-REC-TYPE2-HCDS VALUE '2'.
88 :SAV:-REC-TYPE3-MCDS VALUE '3'.
88 :SAV:-REC-TYPE4-NEIC VALUE '4'.
15 :SAV:-ICN-SUFFIX PIC 9(3) COMP-3. |
Can you try this & let me know if it is working for u? I tested it myself & it worked for me.
Code: |
MOVE LOW-VALUES TO SAV:-FILE-KEY
MOVE INP-ICN TO SAV:-ICN
START Sav file
KEY IS NOT LESS THAN SAV:-FILE-KEY
INVALID KEY SET WS-NOT-FOUND TO TRUE
END-START
READ Sav file NEXT RECORD
END-READ
DELETE Sav file
END-DELETE |
|
|
Back to top |
|
|
rupesh gullu
New User
Joined: 12 Dec 2008 Posts: 96 Location: Gurgaon
|
|
|
|
Rohit,
I tried ur code and hs worked for me as well. Thanks for help.
One thing i need to ask..Next record will read the next ocurance of same pcn. and if found will delete it. I am right?
so it means we can delet record based on partial key
reagrds,
rupesh gupta |
|
Back to top |
|
|
icemanroh
New User
Joined: 23 Aug 2008 Posts: 25 Location: Mumbai
|
|
|
|
rupesh gullu wrote: |
Next record will read the next ocurance of same pcn. and if found will delete it. I am right? |
Yes
Quote: |
so it means we can delet record based on partial key |
Yes. But try avoid using it. If the data is very sensitive, especially financial data, then I won't recommend using partial key for delete.
Hey and what about my 1000 US dollars?? |
|
Back to top |
|
|
rupesh gullu
New User
Joined: 12 Dec 2008 Posts: 96 Location: Gurgaon
|
|
|
|
Ya sure will giv u $1000 .. when we meet.
regards,
rupesh gupta |
|
Back to top |
|
|
|