|
|
| Author |
Message |
ScottUrban
New User
Joined: 23 Apr 2007 Posts: 43 Location: Jefferson City, Mo
|
|
|
|
I know the topic sounds simple however when dealing with state programs nothing is ever simple. The report process here writes the detail lines to a GDG and then uses a sort member to place the headings and position the detail as pasted below;
| Code: |
SORT FIELDS=(1,8,CH,A)
OUTFIL HEADER2=(1:'GMBM9700-R001',
46:'MEDICAID MANAGEMENT INFORMATION SYSTEM',
121:'PAGE',
126:&PAGE,/,
1:'AS OF ',
7:&DATE,
46:'ADJUSTED CLAIMS FOR DECEASED PARTICIPANTS
114:'RUN DATE',
124:&DATE,//,
1:'DCN',
11:'SSN',
23:'NAME',
64:'DOD',
77:'ORIG ICN',
93:'ADJ ICN',
108:'FDOS',
121:'LDOS',////),
OUTREC=(01:01,08, * DCN
11:09,09, * PARTIP SSN
23:18,12, * PARTIP FNAME
38:30,01, * PARTIP MID INTL
41:31,19, * PARTIP LNAME
64:50,10, * DATE OF DEATH
77:60,13, * ADJICN
93:73,13, * ICN
108:86,10, * FDOS
121:96,10, * LDOS
132:C' ',/)
|
Simple enough the report comes out as pasted I can't fit all the columns here but you get the idea The headings aren't lining up in the post so just imagine it....
.GMBM9700-R001 MEDICAID MANAGEMENT
.AS OF 06/09/08 ADJUSTED CLAIMS FOR
.DCN SSN NAME DOD
.00012352 496541967 ELSIE A CHOTT 03/26/2008
I need to add provider number 9 bytes and provider name 20 bytes but there isn't room the current detail is from end to end on the 105 byte GDG. My thought was to do as follows but I am not sure how to accompish it. Write the provider number and name as a seperate detail line on the gdg which is simple enough in the cobol program. then add to the sort member so the report does as below that line breaks when DCN changes. Is this possible?
.GMBM9700-R001 MEDICAID MANAGEMENT
.AS OF 06/09/08 ADJUSTED CLAIMS FOR
PROVIDER PROVIDER NAME
010135408 ST JOHNS REGIONAL
.DCN SSN NAME DOD
.00012352 496541967 ELSIE A CHOTT 03/26/2008
PROVIDER PROVIDER NAME
580155109 MADISON MEDICAL CENT
.DCN SSN NAME DOD
.00148363 431725019 MAXINE C STEVERSON 03/19/2008
.00148363 431725019 MAXINE C STEVERSON 03/19/2008
The input gdg would look like this of course not the full 105 byte records but the fields that are showing in the example
010135408ST JOHNS REGIONAL
00012352496541967ELSIE ACHOTT 03/26/2008
580155109MADISON MEDICAL CENT
00148363431725019MAXINE CSTEVERSON 03/19/2008
00148363431725019MAXINE CSTEVERSON 03/19/2008
Sorry I had to make it so long..... |
|
| Back to top |
|
 |
References
|
|
 |
ScottUrban
New User
Joined: 23 Apr 2007 Posts: 43 Location: Jefferson City, Mo
|
|
|
|
| Anyone... Anyone? |
|
| Back to top |
|
 |
Skolusu
DFSORT Developer
Joined: 07 Dec 2007 Posts: 351 Location: San Jose
|
|
|
|
ScottUrban,
I really have no idea as to what the requirement is. Show me the input cobol layout and output cobol layout and may be we can help you.
1. What is the LRECL and RECFM of the input and output files
2. Show us a sample of input and desired output |
|
| Back to top |
|
 |
ScottUrban
New User
Joined: 23 Apr 2007 Posts: 43 Location: Jefferson City, Mo
|
|
|
|
I did show you in the first post what the desired output is.
I am modifying a report
The file is a normal FB gdg lrecl 105 with all the detail lines for the report.
the sort member puts in the headers and arranges the detail with the outrec.
The requirement is to add two more columns to the report. Provider number 9(9) bytes and provider name X(20) but there is no room on the report. I do not want to increase the size of the file if possible.
The current input fields are
DCN 1-8
SSN 9-17
Name 18-49
DOD 50-59
ADJ ICN 60-72
ICN 73-85
FDOS 86-95
LDOS 96-105
Abbreviated snapshot of the input file currently
----+----1----+----2----+----3----+----4----+----5----+----
********************************* Top of Data *************
00012352496541967ELSIE ACHOTT 03/26/2008
00148363431725019MAXINE CSTEVERSON 03/19/2008
00148363431725019MAXINE CSTEVERSON 03/19/2008
Currenty the report appears like I posted before but the headings didn't line up in my post with the detail lines.... I posted an abbreviated snapshot of the report only the first detail line and the first four fields on that line. Along with the main report heading.
GMBM9700-R001 MEDICAID MANAGEMENT
AS OF 06/09/08 ADJUSTED CLAIMS FOR
DCN--------SSN----------NAME--------------DOD
00012352 496541967 ELSIE A CHOTT 03/26/2008
I want to write the provider number and name to the current file as the first detail line for the first and subsequent DCN the first field in the file that will be the driver. when it changes a new provider number and name will be written before the next DCN. This will be done in my COBOL program. not a problem easy to do....
Example
Abbreviated snapshot of the new input file (detail lines for the report)
----+----1----+----2----+----3----+----4----+----5----+----
********************************* Top of Data *************
010135408ST JOHNS REGIONAL
00012352496541967ELSIE ACHOTT 03/26/2008
580155109MADISON MEDICAL CENT
00148363431725019MAXINE CSTEVERSON 03/19/2008
00148363431725019MAXINE CSTEVERSON 03/19/2008
Now the above new input still FB lrecl 105 but now with a new detail record of provider number and name will come before the original detail line record. So in the example below, provider number 010135408 belongs with DCN 00012352 and Provider number 580155109 belongs with DCN 00148363
I want to know if it is possible to modify the current sort member from my original post above to handle the new input as a line break. so the report can print like below
GMBM9700-R001 MEDICAID MANAGEMENT
AS OF 06/09/08 ADJUSTED CLAIMS FOR
PROVIDER---PROVIDER NAME <<this is the new header
010135408 ST JOHNS REGIONAL <<This is the new detail
DCN--------SSN----------NAME--------------DOD <<< existing header
00012352 496541967 ELSIE A CHOTT 03/26/2008 <existing detail
PROVIDER---PROVIDER NAME
580155109 MADISON MEDICAL CENT
DCN--------SSN----------NAME----------------------DOD
00148363 431725019 MAXINE C STEVERSON 03/19/2008
00148363 431725019 MAXINE C STEVERSON 03/19/2008 |
|
| Back to top |
|
 |
Skolusu
DFSORT Developer
Joined: 07 Dec 2007 Posts: 351 Location: San Jose
|
|
|
|
ScottUrban,
| Quote: |
010135408ST JOHNS REGIONAL
00012352496541967ELSIE ACHOTT 03/26/2008
580155109MADISON MEDICAL CENT
00148363431725019MAXINE CSTEVERSON 03/19/2008
00148363431725019MAXINE CSTEVERSON 03/19/2008
580155109 SOME HOSPITAL NAME
001111111 details record 02 of patients
001111111 details record 01 of patients
001111111 details record 03 of patients
|
Is there a way to identify the new header you want? ( bold items in the sample input? if there is a means to identify it then I will show you a way to do it
Kolusu |
|
| Back to top |
|
 |
ScottUrban
New User
Joined: 23 Apr 2007 Posts: 43 Location: Jefferson City, Mo
|
|
|
|
| The first 9 bytes of the new input record are a unique provider number if that's what you mean. The heading could be PROVIDER # using the # as an abbreviation for number and the pound sign could be the indentifier. I'm not sure If I totally understand what you are looking for. |
|
| Back to top |
|
 |
Skolusu
DFSORT Developer
Joined: 07 Dec 2007 Posts: 351 Location: San Jose
|
|
|
|
ScottUrban,
All I am asking is is there any indicator on the ST JOHNS REGIONAL record which differentiate it from the detail record of it
I was under impression that your input already has a hospital name record and then followed by the detail records for the hospital.
So if we can identify the Hospital name record we can splice that to all detail records and then we can use that as the header
Kolusu |
|
| Back to top |
|
 |
ScottUrban
New User
Joined: 23 Apr 2007 Posts: 43 Location: Jefferson City, Mo
|
|
|
|
The first detail record will be a unique provider number Pic 9(9) and the name of the provider Pic x(20) not necessarily a hospital but the entity that provided service to the recipient
the provider number is a unique 9 digit number in the first 9 bytes.
The detail records following the provider will contain the recipients information. The DCN is a unique 8 digit number that identifies that record
if that dcn changes then a new provider will be retrieved and written to the file as the start of the next recipients information. So a recipients information on the report would start with their provider# and name and then their info one to many times depending on how many claims they have. I hope I have explained it correctly for you.
010135408ST JOHNS REGIONAL
00012352496541967ELSIE ACHOTT 03/26/2008
580155109MADISON MEDICAL CENT
00148363431725019MAXINE CSTEVERSON 03/19/2008
00148363431725019MAXINE CSTEVERSON 03/19/2008 |
|
| Back to top |
|
 |
dick scherrer
Global Moderator
Joined: 23 Nov 2006 Posts: 8598 Location: 221 B Baker St
|
|
|
|
Hello,
You (and now some of us ) know a header from a detail from using IEBIBALL (eyeball).
Would it be safe to say that a "header" can be identified as a record having no date (nn/nn/nn) in the record? |
|
| Back to top |
|
 |
ScottUrban
New User
Joined: 23 Apr 2007 Posts: 43 Location: Jefferson City, Mo
|
|
|
|
The record I am adding to the original file using my cobol program will only contain the two fields, Provider Number and Provider name. The new record will still be 105 bytes but only contain two fields.
The record(s) the follow it will be the original detail line(s) that go with that provider number and name. I have posted an entire 105 byte detail record and the new record I will be adding.
010135408ST JOHNS REGIONAL
00012352496541967ELSIE ACHOTT 03/26/20084008094065290700816197000003/31/200803/31/2008 |
|
| Back to top |
|
 |
dick scherrer
Global Moderator
Joined: 23 Nov 2006 Posts: 8598 Location: 221 B Baker St
|
|
|
|
Hello,
| Quote: |
| The record I am adding to the original file using my cobol program will only contain the two fields, Provider Number and Provider name. |
That does not sound like it contains anything to "control" on.
| Quote: |
| The new record will still be 105 bytes but only contain two fields. |
To you they are 2 fields. . . With no delimiters and no fixed values, code would not know they were a header or that they were 2 fields.
Dates have the xx/xx/xx format and the '/'s might be "testable" and used as "non-headers". If every non-header has a date, this may be a way to process what you want. |
|
| Back to top |
|
 |
ScottUrban
New User
Joined: 23 Apr 2007 Posts: 43 Location: Jefferson City, Mo
|
|
|
|
Ok, So what do you suggest. Should I add a delimitter to the new record so it can be identified? Byte 30-105 would contain nothing on the Provider number and name record. Below I put a % marking byte 30.
010135408ST JOHNS REGIONAL % |
|
| Back to top |
|
 |
ScottUrban
New User
Joined: 23 Apr 2007 Posts: 43 Location: Jefferson City, Mo
|
|
|
|
| Also, remember the original SYSIN member being used in my original post. I wanted a solution that would just be able to add to that member. |
|
| Back to top |
|
 |
Skolusu
DFSORT Developer
Joined: 07 Dec 2007 Posts: 351 Location: San Jose
|
|
|
|
scotturban,
Assuming that you did put # on the provider record, the following DFSORT JCL will give you the desired results.
| Code: |
//STEP0100 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN DD DSN=Your input 105 byte file,
// DISP=SHR
//OUT DD SYSOUT=*
//TOOLIN DD *
SPLICE FROM(IN) TO(OUT) ON(106,8,CH) KEEPNODUPS WITHALL -
WITH(1,105) KEEPBASE USING(CTL1)
//CTL1CNTL DD *
INREC IFTHEN=(WHEN=INIT,OVERLAY=(106:SEQNUM,8,ZD)),
IFTHEN=(WHEN=(31,1,CH,EQ,C'#'),OVERLAY=(106:SEQNUM,8,ZD,1,30)),
IFTHEN=(WHEN=NONE,OVERLAY=(114:SEQNUM,8,ZD,
106:106,8,ZD,SUB,114,8,ZD,M11,LENGTH=8))
SORT FIELDS=COPY
OUTFIL FNAMES=OUT,REMOVECC,
OMIT=(31,1,CH,EQ,C'#'),
BUILD=(01:01,08, * DCN
11:09,09, * PARTIP SSN
23:18,12, * PARTIP FNAME
38:30,01, * PARTIP MID INTL
41:31,19, * PARTIP LNAME
64:50,10, * DATE OF DEATH
77:60,13, * ADJICN
93:73,13, * ICN
108:86,10, * FDOS
121:96,10, * LDOS
132:C' ',/),
SECTIONS=(114,30,
HEADER3=(1:'PROVIDER ',12:' PROVIDER NAME',/,
1:114,09,12:123,20)),
HEADER2=(1:'GMBM9700-R001',
46:'MEDICAID MANAGEMENT INFORMATION SYSTEM',
121:'PAGE',
126:&PAGE,/,
1:'AS OF ',
7:&DATE,
46:'ADJUSTED CLAIMS FOR DECEASED PARTICIPANTS',
114:'RUN DATE',
124:&DATE,//,
1:'DCN',
11:'SSN',
23:'NAME',
64:'DOD',
77:'ORIG ICN',
93:'ADJ ICN',
108:'FDOS',
121:'LDOS',////)
/*
|
I used the sample input as below
| Code: |
010135408ST JOHNS REGIONAL #
00012352496541967ELSIE ACHOTT 03/26/2008
580155109MADISON MEDICAL CENT #
00148363431725019MAXINE CSTEVERSON 03/19/2008
00148363431725019MAXINE CSTEVERSON 03/19/2008
580155109SOME MEDICAL CENTER #
0011111111172503BLAH BLAH
0011111111172503BLAH BLAH
|
and this is the output I got after running the job
| Code: |
GMBM9700-R001 MEDICAID MANAGEMENT IN
AS OF 06/30/08 ADJUSTED CLAIMS FOR DE
DCN SSN NAME DOD
PROVIDER PROVIDER NAME
010135408 ST JOHNS REGIONAL
00012352 496541967 ELSIE ACHOTT 03/26/2008
PROVIDER PROVIDER NAME
580155109 MADISON MEDICAL CENT
00148363 431725019 MAXINE CSTEV E RSON 03/19/2008
00148363 431725019 MAXINE CSTEV E RSON 03/19/2008
PROVIDER PROVIDER NAME
580155109 SOME MEDICAL CENTER
00111111 11172503B LAH BLAH
00111111 11172503B LAH BLAH
|
Hope this helps...
Cheers |
|
| Back to top |
|
 |
ScottUrban
New User
Joined: 23 Apr 2007 Posts: 43 Location: Jefferson City, Mo
|
|
|
|
Thank you. It looks good. One thing, I need the DCN SSN NAME DOD header portion to be before the original detail line though.
So the report would be
SARPAGE 1
GMBM9700-R001 MEDICAID MANAGEMENT INFORMA
PROVIDER PROVIDER NAME
010135408 ST JOHNS REGIONAL
DCN SSN NAME DOD
00012352 496541967 ELSIE A CHOTT 03/26/2008
PROVIDER PROVIDER NAME
580155109 MADISON MEDICAL CENT
DCN SSN NAME DOD
00148363 431725019 MAXINE C STEVERSON 03/19/2008
00148363 431725019 MAXINE C STEVERSON 03/19/2008 |
|
| Back to top |
|
 |
|
|
|