count
Kristina Carlton
Kristina.Carlton@JICompanies.com
Tue, 18 Jan 2005 09:02:39 -0600
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
------_=_NextPart_000_01C4FD6E.C0979AB8
Content-Type: multipart/alternative;
boundary="----_=_NextPart_001_01C4FD6E.C0979AB8"
------_=_NextPart_001_01C4FD6E.C0979AB8
Content-Type: text/plain;
charset="iso-8859-1"
Hi,
Could someone take a look at the attached Quiz extract and tell me what I am
doing wrong. I am trying to get the count I have extracted in the first part
at the bottom of the extract. Although my file has 55 records in it, or
more, the count is 1 each time. I am doing this for all my other files and
it works fine. What am I missing?
OpenVMS v7.3-2 and Quiz V7.10.G4.
Kristina Carlton
Senior Programmer/Analyst
The JI Companies
Kristina.Carlton@JICompanies.com
------_=_NextPart_001_01C4FD6E.C0979AB8
Content-Type: text/html;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<html xmlns:v=3D"urn:schemas-microsoft-com:vml" =
xmlns:o=3D"urn:schemas-microsoft-com:office:office" =
xmlns:w=3D"urn:schemas-microsoft-com:office:word" =
xmlns=3D"http://www.w3.org/TR/REC-html40">
<head>
<META HTTP-EQUIV=3D"Content-Type" CONTENT=3D"text/html; =
charset=3Diso-8859-1">
<meta name=3DProgId content=3DWord.Document>
<meta name=3DGenerator content=3D"Microsoft Word 9">
<meta name=3DOriginator content=3D"Microsoft Word 9">
<link rel=3DFile-List href=3D"cid:filelist.xml@01C4FD3C.75FAEAE0">
<!--[if gte mso 9]><xml>
<o:OfficeDocumentSettings>
<o:DoNotRelyOnCSS/>
</o:OfficeDocumentSettings>
</xml><![endif]--><!--[if gte mso 9]><xml>
<w:WordDocument>
<w:View>Normal</w:View>
<w:Zoom>0</w:Zoom>
<w:DocumentKind>DocumentEmail</w:DocumentKind>
<w:EnvelopeVis/>
<w:DrawingGridHorizontalSpacing>2.85 =
pt</w:DrawingGridHorizontalSpacing>
=
<w:DisplayVerticalDrawingGridEvery>2</w:DisplayVerticalDrawingGridEvery>=
</w:WordDocument>
</xml><![endif]-->
<style>
<!--
/* Font Definitions */
@font-face
{font-family:"Century Gothic";
panose-1:2 11 5 2 2 2 2 2 2 4;
mso-font-charset:0;
mso-generic-font-family:swiss;
mso-font-pitch:variable;
mso-font-signature:647 0 0 0 159 0;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{mso-style-parent:"";
margin:0in;
margin-bottom:.0001pt;
mso-pagination:widow-orphan;
font-size:9.0pt;
mso-bidi-font-size:12.0pt;
font-family:"Century Gothic";
mso-fareast-font-family:"Times New Roman";
mso-bidi-font-family:Arial;
color:black;}
p.MsoAutoSig, li.MsoAutoSig, div.MsoAutoSig
{margin:0in;
margin-bottom:.0001pt;
mso-pagination:widow-orphan;
font-size:9.0pt;
mso-bidi-font-size:12.0pt;
font-family:"Century Gothic";
mso-fareast-font-family:"Times New Roman";
mso-bidi-font-family:Arial;
color:black;}
span.EmailStyle15
{mso-style-type:personal-compose;
mso-ansi-font-size:9.0pt;
mso-ascii-font-family:"Century Gothic";
mso-hansi-font-family:"Century Gothic";
mso-bidi-font-family:Arial;
color:navy;
font-weight:normal;
font-style:normal;}
span.EmailStyle17
{mso-style-type:personal;
mso-ansi-font-size:9.0pt;
mso-ascii-font-family:"Century Gothic";
mso-hansi-font-family:"Century Gothic";
mso-bidi-font-family:Arial;
color:navy;
font-weight:normal;
font-style:normal;}
@page Section1
{size:8.5in 11.0in;
margin:1.0in 1.0in 1.0in 1.0in;
mso-header-margin:.5in;
mso-footer-margin:.5in;
mso-paper-source:0;}
div.Section1
{page:Section1;}
-->
</style>
</head>
<body lang=3DEN-US style=3D'tab-interval:.5in'>
<div class=3DSection1>
<p class=3DMsoNormal><span class=3DEmailStyle17><font size=3D1 =
color=3Dnavy
face=3D"Century Gothic"><span style=3D'font-size:9.0pt'><span =
style=3D'mso-bidi-font-size:
12.0pt'>Hi,<o:p></o:p></span></span></font></span></p>
<p class=3DMsoNormal><span class=3DEmailStyle17><font size=3D1 =
color=3Dnavy
face=3D"Century Gothic"><span =
style=3D'font-size:9.0pt;mso-bidi-font-size:9.0pt'> </span></font><=
/span><span
class=3DEmailStyle17><font size=3D1 color=3Dnavy><span =
style=3D'font-size:7.5pt'><o:p></o:p></span></font></span></p>
<p class=3DMsoNormal><span class=3DEmailStyle17><font size=3D1 =
color=3Dnavy
face=3D"Century Gothic"><span style=3D'font-size:9.0pt'><span =
style=3D'mso-bidi-font-size:
12.0pt'>Could someone take a look at the attached Quiz extract and tell =
me what
I am doing wrong. I am trying to get the count I have extracted in the =
first
part at the bottom of the extract. Although my file has 55 records in =
it, or
more, the count is 1 each time. I am doing this for all my other files =
and it
works fine. What am I =
missing?<o:p></o:p></span></span></font></span></p>
<p class=3DMsoNormal><font size=3D2 color=3Dblack face=3D"Century =
Gothic"><span
style=3D'font-size:10.0pt'> <o:p></o:p></span></font></p>
<p class=3DMsoNormal><font size=3D2 color=3Dblack face=3D"Century =
Gothic"><span
style=3D'font-size:10.0pt'>OpenVMS v7.3-2 and Quiz =
V7.10.G4.</span></font><span
class=3DEmailStyle17><font color=3Dnavy><o:p></o:p></font></span></p>
<p class=3DMsoNormal><span class=3DEmailStyle15><font size=3D1 =
color=3Dnavy
face=3D"Century Gothic"><span style=3D'font-size:9.0pt'><![if =
!supportEmptyParas]> <![endif]></span><o:p></o:p></font></span></p>=
<p class=3DMsoNormal><span class=3DEmailStyle15><font size=3D1 =
color=3Dnavy
face=3D"Century Gothic"><span style=3D'font-size:9.0pt'><![if =
!supportEmptyParas]> <![endif]></span><o:p></o:p></font></span></p>=
<p class=3DMsoNormal><!--[if supportFields]><span =
style=3D'mso-element:field-begin'></span><span=20
style=3D"mso-spacerun: yes"> </span>AUTOTEXTLIST \s "E-mail=20
Signature" <span =
style=3D'mso-element:field-separator'></span><![endif]--><span
class=3DEmailStyle15><font color=3Dnavy>Kristina =
Carlton<o:p></o:p></font></span></p>
<p class=3DMsoNormal><span class=3DEmailStyle15><font size=3D1 =
color=3Dnavy
face=3D"Century Gothic"><span style=3D'font-size:9.0pt'><span =
style=3D'mso-bidi-font-size:
12.0pt'>Senior =
Programmer/Analyst<o:p></o:p></span></span></font></span></p>
<p class=3DMsoNormal><span class=3DEmailStyle15><font size=3D1 =
color=3Dnavy
face=3D"Century Gothic"><span style=3D'font-size:9.0pt'><span =
style=3D'mso-bidi-font-size:
12.0pt'>The JI Companies<o:p></o:p></span></span></font></span></p>
<p class=3DMsoNormal><span class=3DEmailStyle15><font size=3D1 =
color=3Dnavy
face=3D"Century Gothic"><span style=3D'font-size:9.0pt'><span =
style=3D'mso-bidi-font-size:
12.0pt'>Kristina.Carlton@JICompanies.com<o:p></o:p></span></span></font>=
</span></p>
<p class=3DMsoNormal><!--[if supportFields]><span =
style=3D'mso-element:field-end'></span><![endif]--><![if =
!supportEmptyParas]> <![endif]><o:p></o:p></p>
</div>
</body>
</html>
------_=_NextPart_001_01C4FD6E.C0979AB8--
------_=_NextPart_000_01C4FD6E.C0979AB8
Content-Type: text/plain;
name="DWDTL.txt"
Content-Transfer-Encoding: quoted-printable
Content-Disposition: attachment;
filename="DWDTL.txt"
;DWDTL.QZS
;PROGRAM CREATED TO EXPORT ALL CLAIMS DETAIL FOR PROGRESS DATABASE
ACCESS DTL
=20
CHOOSE CASE_NUM "0000001"
SELECT IF CERT_NUM =3D "0001" AND &
CLMT_NUM =3D "1"
;SELECT IF SYS_YYYYMMDD =3D "20041208"
=20
DEFINE INITDT CHAR*8 =3D INITIAL_YYYYMMDD [5:2] + "/" &
+ INITIAL_YYYYMMDD [7:2] + "/" &
+ INITIAL_YYYYMMDD [3:2] &
IF INITIAL_YYYYMMDD [5:2] NE " " &
ELSE "?" IF INITIAL_YYYYMMDD [5:2] EQ " "
DEFINE FINALDT CHAR*8 =3D FINAL_YYYYMMDD [5:2] + "/" &
+ FINAL_YYYYMMDD [7:2] + "/" &
+ FINAL_YYYYMMDD [3:2] &
IF FINAL_YYYYMMDD [5:2] NE " " &
ELSE "?" IF FINAL_YYYYMMDD [5:2] EQ " "
DEFINE RECDT CHAR*8 =3D RECEIVE_YYYYMMDD [5:2] + "/" &
+ RECEIVE_YYYYMMDD [7:2] + "/" &
+ RECEIVE_YYYYMMDD [3:2] &
IF RECEIVE_YYYYMMDD [5:2] NE " " &
ELSE "?" IF RECEIVE_YYYYMMDD [5:2] EQ " "
DEFINE PROCDT CHAR*8 =3D PROC_YYYYMMDD [5:2] + "/" &
+ PROC_YYYYMMDD [7:2] + "/" &
+ PROC_YYYYMMDD [3:2] &
IF PROC_YYYYMMDD [5:2] NE " " &
ELSE "?" IF PROC_YYYYMMDD [5:2] EQ " "
DEFINE PRINTDT CHAR*8 =3D PRINT_YYYYMMDD [5:2] + "/" &
+ PRINT_YYYYMMDD [7:2] + "/" &
+ PRINT_YYYYMMDD [3:2] &
IF PRINT_YYYYMMDD [5:2] NE " " &
ELSE "?" IF PRINT_YYYYMMDD [5:2] EQ " "
DEFINE ORIGDT CHAR*8 =3D ORIG_COMP_PRINT_YYYYMMDD [5:2] + "/" &
+ ORIG_COMP_PRINT_YYYYMMDD [7:2] + "/" &
+ ORIG_COMP_PRINT_YYYYMMDD [3:2] &
IF ORIG_COMP_PRINT_YYYYMMDD [5:2] NE " " &
ELSE "?" IF ORIG_COMP_PRINT_YYYYMMDD [5:2] EQ " "
DEFINE PROCDT2 CHAR*8 =3D VOID_FROM_PROC_YYYYMMDD [5:2] + "/" &
+ VOID_FROM_PROC_YYYYMMDD [7:2] + "/" &
+ VOID_FROM_PROC_YYYYMMDD [3:2] &
IF VOID_FROM_PROC_YYYYMMDD [5:2] NE " " &
ELSE "?" IF VOID_FROM_PROC_YYYYMMDD [5:2] EQ " "
DEFINE PROCDT3 CHAR*8 =3D VOID_TO_PROC_YYYYMMDD [5:2] + "/" &
+ VOID_TO_PROC_YYYYMMDD [7:2] + "/" &
+ VOID_TO_PROC_YYYYMMDD [3:2] &
IF VOID_TO_PROC_YYYYMMDD [5:2] NE " " &
ELSE "?" IF VOID_TO_PROC_YYYYMMDD [5:2] EQ " "
DEFINE PRECRTDT CHAR*8 =3D PRE_CERT_YYYYMMDD [5:2] + "/" &
+ PRE_CERT_YYYYMMDD [7:2] + "/" &
+ PRE_CERT_YYYYMMDD [3:2] &
IF PRE_CERT_YYYYMMDD [5:2] NE " " &
ELSE "?" IF PRE_CERT_YYYYMMDD [5:2] EQ " "
DEFINE SYSDT CHAR*8 =3D SYS_YYYYMMDD [5:2] + "/" &
+ SYS_YYYYMMDD [7:2] + "/" &
+ SYS_YYYYMMDD [3:2] &
IF SYS_YYYYMMDD [5:2] NE " " &
ELSE "?" IF SYS_YYYYMMDD [5:2] EQ " "
DEFINE SYSDT2 CHAR*8 =3D VOID_SYS_YYYYMMDD [5:2] + "/" &
+ VOID_SYS_YYYYMMDD [7:2] + "/" &
+ VOID_SYS_YYYYMMDD [3:2] &
IF VOID_SYS_YYYYMMDD [5:2] NE " " &
ELSE "?" IF VOID_SYS_YYYYMMDD [5:2] EQ " "
=20
DEFINE ANAMT CHAR*13 =3D ASCII(ANESTHESIA_AMT/100)+"."+ &
ASCII(ANESTHESIA_AMT,12)[11:2]
DEFINE ANUNT CHAR*13 =3D ASCII(ANESTHESIA_UNITS/100)+"."+ &
ASCII(ANESTHESIA_UNITS,12)[11:2]
DEFINE ASSGN CHAR*13 =3D ASCII(ASSIGNED /100)+"."+ &
ASCII(ASSIGNED,12)[11:2]
DEFINE BASPAY CHAR*13 =3D ASCII(BASIC_PAYABLE /100)+"."+ &
ASCII(BASIC_PAYABLE,12)[11:2]
DEFINE CHRGE CHAR*13 =3D ASCII(CHARGE /100)+"."+ &
ASCII(CHARGE,12)[11:2]
DEFINE COBEL CHAR*13 =3D ASCII(COB_ELIGIBLE_AMT/100)+"."+ &
ASCII(COB_ELIGIBLE_AMT,12)[11:2]
DEFINE DEDUC CHAR*13 =3D ASCII(DED/100)+"."+ &
ASCII(DED,12)[11:2]
DEFINE FEEAM CHAR*13 =3D ASCII(FEE_AMT/100)+"."+ &
ASCII(FEE_AMT,12)[11:2]
DEFINE FEEIN CHAR*13 =3D ASCII(FEE_INEL_INEL/100)+"."+ &
ASCII(FEE_INEL_INEL,12)[11:2]
DEFINE HUNAM CHAR*13 =3D ASCII(HUNDRED_PCT_AMT/100)+"."+ &
ASCII(HUNDRED_PCT_AMT,12)[11:2]
DEFINE INE CHAR*13 =3D ASCII(INEL /100)+"."+ &
ASCII(INEL,12)[11:2]
DEFINE INEAM1 CHAR*13 =3D ASCII(INEL_AMTS_INEL_1/100)+"."+ &
ASCII(INEL_AMTS_INEL_1,12)[11:2]
DEFINE INEAM2 CHAR*13 =3D ASCII(INEL_AMTS_INEL_2/100)+"."+ &
ASCII(INEL_AMTS_INEL_2,12)[11:2]
DEFINE INEAM3 CHAR*13 =3D ASCII(INEL_AMTS_INEL_3/100)+"."+ &
ASCII(INEL_AMTS_INEL_3,12)[11:2]
DEFINE INEAM4 CHAR*13 =3D ASCII(INEL_AMTS_INEL_4/100)+"."+ &
ASCII(INEL_AMTS_INEL_4,12)[11:2]
DEFINE INEAM5 CHAR*13 =3D ASCII(INEL_AMTS_INEL_5/100)+"."+ &
ASCII(INEL_AMTS_INEL_5,12)[11:2]
DEFINE MAJPY CHAR*13 =3D ASCII(MAJOR_MEDICAL_PAYABLE/100)+"."+ &
ASCII(MAJOR_MEDICAL_PAYABLE,12)[11:2]
DEFINE NRMPY CHAR*13 =3D ASCII(NORMAL_PAID_BY_US/100)+"."+ &
ASCII(NORMAL_PAID_BY_US,12)[11:2]
DEFINE ORGCH CHAR*13 =3D ASCII(ORIGINAL_CHARGE/100)+"."+ &
ASCII(ORIGINAL_CHARGE,12)[11:2]
DEFINE PDINS CHAR*13 =3D ASCII(PAID_BY_INSURANCE/100)+"."+ &
ASCII(PAID_BY_INSURANCE,12)[11:2]
DEFINE PDUS CHAR*13 =3D ASCII(PAID_BY_US/100)+"."+ &
ASCII(PAID_BY_US,12)[11:2]
DEFINE PDCAR CHAR*13 =3D ASCII(PAID_OTHER_CARRIER/100)+"."+ &
ASCII(PAID_OTHER_CARRIER,12)[11:2]
DEFINE PENAM CHAR*13 =3D ASCII(PENALTY_AMT/100)+"."+ &
ASCII(PENALTY_AMT,12)[11:2]
DEFINE PCHDED CHAR*13 =3D ASCII(PER_CHARGE_DEDUCT/100)+"."+ &
ASCII(PER_CHARGE_DEDUCT,12)[11:2]
DEFINE PMTAM CHAR*13 =3D ASCII(PROMPT_PAY_AMT/100)+"."+ &
ASCII(PROMPT_PAY_AMT,12)[11:2]
DEFINE RCAM CHAR*13 =3D ASCII(R_AND_C_AMT/100)+"."+ &
ASCII(R_AND_C_AMT,12)[11:2]
DEFINE RMRTE CHAR*13 =3D ASCII(ROOM_RATE/100)+"."+ &
ASCII(ROOM_RATE,12)[11:2]
DEFINE RXFEE CHAR*13 =3D ASCII(RX_INFO_ADMIN_FEE_AMT/100)+"."+ &
ASCII(RX_INFO_ADMIN_FEE_AMT,12)[11:2]
DEFINE RXDSP CHAR*13 =3D ASCII(RX_INFO_DISPENSE_FEE_AMT/100)+"."+ &
ASCII(RX_INFO_DISPENSE_FEE_AMT,12)[11:2]
DEFINE RXING CHAR*13 =3D ASCII(RX_INFO_INGREDIENT_COST_AMT /100)+"."+ =
&
ASCII(RX_INFO_INGREDIENT_COST_AMT,12)[11:2]
DEFINE RXPST CHAR*13 =3D ASCII(RX_INFO_POSTAGE_AMT/100)+"."+ &
ASCII(RX_INFO_POSTAGE_AMT,12)[11:2]
DEFINE RXTAX CHAR*13 =3D ASCII(RX_INFO_SALES_TAX_AMT/100)+"."+ &
ASCII(RX_INFO_SALES_TAX_AMT,12)[11:2]
DEFINE SMRMR CHAR*13 =3D ASCII(SEMI_PRIVATE_ROOM_RATE/100)+"."+ &
ASCII(SEMI_PRIVATE_ROOM_RATE,12)[11:2]
DEFINE SYSAM CHAR*13 =3D ASCII(SYSTEM_CALC_FEE_AMT/100)+"."+ &
ASCII(SYSTEM_CALC_FEE_AMT,12)[11:2]
DEFINE SYSPY CHAR*13 =3D ASCII(SYSTEM_CALC_PROMPT_PAY_AMT/100)+"."+ &
ASCII(SYSTEM_CALC_PROMPT_PAY_AMT,12)[11:2]
DEFINE SYSRAM CHAR*13 =3D ASCII(SYSTEM_REGISTERED_FEE_AMT/100)+"."+ &
ASCII(SYSTEM_REGISTERED_FEE_AMT,12)[11:2]
DEFINE SYSRIN CHAR*13 =3D ASCII(SYSTEM_REGISTERED_INEL/100)+"."+ &
ASCII(SYSTEM_REGISTERED_INEL,12)[11:2]
DEFINE SYSPAM CHAR*13 =3D ASCII(SYSTEM_REGISTERED_PRO_PAY_AMT =
/100)+"."+ &
ASCII(SYSTEM_REGISTERED_PRO_PAY_AMT,12)[11:2]
DEFINE SYSDT3 DATE =3D NCONVERT(SYS_YYYYMMDD)
DEFINE RUNDT DATE =3D SYSDATE
DEFINE CM CHAR*1 =3D ","
DEFINE AQUOTE CHAR*1 =3D '"'
DEFINE BQUOTE CHAR*1 =3D '|'
DEFINE QUOTE CHAR*1 =3D '|'
DEFINE SPC CHAR*1 =3D " "
=20
;SELECT RECORDS WHERE SYSDATE =3D THE CURRENT DAY'S DATE
;SELECT IF SYSDT3 =3D RUNDT
;SELECT IF SYS_YYYYMMDD GE "20041101" AND &
; SYS_YYYYMMDD LE "20041121"
=20
SET SUBFILE NAME DKF1:[DW]DWDTL PORTABLE KEEP
=20
SORT &
ON CHARGE_SEQ_NUM &
ON DOCUMENT_NUM &
ON CLAIM_NUM
=20
REPORT SUMMARY &
AGG_SEQ_CONTRACT_SEQ_NUM BQUOTE &
AGG_SEQ_CONTRACT_YYYYMM BQUOTE &
ANAMT BQUOTE &
ANESTHESIA_MINUTES BQUOTE &
ANUNT BQUOTE &
AREA BQUOTE &
ASSGN BQUOTE &
BASPAY BQUOTE &
BILL_ENTRY_NUM BQUOTE &
BILL_REFERENCE_NUM BQUOTE &
CAA_TABLE BQUOTE &
CALC_CODE BQUOTE &
CASE_NUM BQUOTE &
CERT_NUM BQUOTE &
CHRGE BQUOTE &
CHARGE_SEQ_NUM BQUOTE &
CHARGE_TYPE BQUOTE &
CLAIM_NUM BQUOTE &
CLAIM_POLICY_NUM BQUOTE &
CLMT_NUM BQUOTE &
COBEL BQUOTE &
COB_PAID_BY_US BQUOTE &
CONTRACT_AREA_TABLE BQUOTE &
CONTRACT_FEE_MESS_CODE BQUOTE &
CONTRACT_TABLE BQUOTE &
DEDUC BQUOTE &
DESCRIPTION_15 BQUOTE &
DLS_TABLE BQUOTE &
DOCUMENT_NUM BQUOTE &
DOCUMENT_STATUS BQUOTE &
FEEAM BQUOTE &
FEEIN BQUOTE &
FEE_INEL_INEL_CODE BQUOTE &
FEE_TABLE BQUOTE &
FINALDT BQUOTE &
FREQ_LINK_CALC_CODE BQUOTE &
HUNAM BQUOTE &
HUNDRED_PCT_CODE BQUOTE &
ICD_CODE BQUOTE &
INE BQUOTE &
INEAM1 BQUOTE &
INEAM2 BQUOTE &
INEAM3 BQUOTE &
INEAM4 BQUOTE &
INEAM5 BQUOTE &
INEL_AMTS_INEL_CODE_1 BQUOTE &
INEL_AMTS_INEL_CODE_2 BQUOTE &
INEL_AMTS_INEL_CODE_3 BQUOTE &
INEL_AMTS_INEL_CODE_4 BQUOTE &
INEL_AMTS_INEL_CODE_5 BQUOTE &
INELIGIBLE_CODE BQUOTE &
INITDT BQUOTE &
MAJPY BQUOTE &
MAJOR_MEDICAL_PCT BQUOTE &
NRMPY BQUOTE &
NUM_UNITS BQUOTE &
ORIGDT BQUOTE &
ORGCH BQUOTE &
ORIGINAL_PROCEDURE_CODE BQUOTE &
PDINS BQUOTE &
PDUS BQUOTE &
PDCAR BQUOTE &
PATIENT_ID BQUOTE &
PDCR_CHARGE_TYPE BQUOTE &
PDCR_TABLE BQUOTE &
PENAM BQUOTE &
PENALTY_MESS_CODE BQUOTE &
PCHDED BQUOTE &
PLAN_NUM BQUOTE &
POS BQUOTE &
PRECRTDT BQUOTE &
PRIMARY_SUB_TIN_SEQ_NUM BQUOTE &
PRIMARY_TIN_NUM BQUOTE &
PRINTDT BQUOTE &
PROCEDURE_CODE_11 BQUOTE &
PROCDT BQUOTE &
PROCESSOR_CODE BQUOTE &
PROCEDURE_MODIFIER BQUOTE &
PROC_SEQ_NUM BQUOTE &
PROCEDURE_TYPE BQUOTE &
PMTAM BQUOTE &
RCAM BQUOTE &
R_AND_C_PCT BQUOTE &
R_AND_C_TABLE BQUOTE &
RECDT BQUOTE &
RMRTE BQUOTE &
RX_INFO_RX_NUM BQUOTE &
RXFEE BQUOTE &
RX_INFO_DAYS_SUPPLY BQUOTE &
RX_INFO_DISPENSE_AS_WRITTEN BQUOTE &
RXDSP BQUOTE &
RX_INFO_DRUG_CONFLICT_CODE BQUOTE &
RX_INFO_RX_GENERIC_FLAG BQUOTE &
RXING BQUOTE &
RX_INFO_NEW_OR_REFILL BQUOTE &
RX_INFO_NUM_UNITS BQUOTE &
RXPST BQUOTE &
RX_INFO_REFILLS_AUTHORIZED BQUOTE &
RXTAX BQUOTE &
RX_INFO_THERAPEUTIC_CLASS BQUOTE &
SMRMR BQUOTE &
SPECIAL BQUOTE &
SPEC_SEQ_CONTRACT_SEQ_NUM BQUOTE &
SPEC_SEQ_CONTRACT_YYYYMM BQUOTE &
STATUS BQUOTE &
STATUS_REASON_CODE BQUOTE &
SUB_TIN_SEQ_NUM BQUOTE &
SYSAM BQUOTE &
SYSPY BQUOTE &
SYS_CALC_PROMPT_PAY_PCT BQUOTE &
SYSDT BQUOTE &
SYS_REG_CNT_FEE_MESS_CODE BQUOTE &
SYS_REG_2_CONTRACT_TABLE BQUOTE &
SYSRAM BQUOTE &
SYSRIN BQUOTE &
SYSTEM_REGISTERED_INEL_CODE BQUOTE &
SYSPAM BQUOTE &
SYSTEM_REGISTERED_PRO_PAY_PCT BQUOTE &
TIN_NUM BQUOTE &
UM_NUM BQUOTE &
UM_SEQ_NUM BQUOTE &
UPDATE_AGGREGATE_FLAG BQUOTE &
UPDATE_SPECIFIC_FLAG BQUOTE &
VOID_FROM_CHARGE_SEQ_NUM BQUOTE &
PROCDT2 BQUOTE &
VOID_FROM_PROC_SEQ_NUM BQUOTE &
VOID_PROCESSOR_CODE BQUOTE &
SYSDT2 BQUOTE &
VOID_TO_CHARGE_SEQ_NUM BQUOTE &
PROCDT3 BQUOTE &
VOID_TO_PROC_SEQ_NUM BQUOTE SKIP
=20
;SET REPORT DEVICE DISC NAME DWDTL
SET REPORT SPACING 0
SET REPORT NOLIMIT
SET REPORT NOFORMFEED
SET PAGE LENGTH 0
SET NOSPACE
SET NOBLANK
SET NOHEAD
SET NOWAIT
SET NODUPLICATES
set page width 255
GO
=20
;OUTPUT LAST EXTRACT DATE
=20
ACC *DKF1:[DW]DWDTL
=20
DEFINE TODAY DATE =3D SYSDATE
DEFINE FN CHAR*6 =3D "DTLFIL"
DEFINE FILEHLD CHAR*8 =3D ASCII(TODAY,8)
DEFINE FILEDT CHAR*8 =3D FILEHLD [5:2] + "/" &
+ FILEHLD [7:2] + "/" &
+ FILEHLD [3:2]
DEF KOUNT NUM*10 =3D 1
DEF D_SORT =3D 1
DEF SPC CHAR*1 =3D " "
=20
SORTED ON D_SORT
=20
SET SUBFILE NAME DKF1:[DW]CREATEDT AT D_SORT APPEND PORTABLE KEEP
=20
REPORT SUMMARY &
FN SPC &
FILEDT SPC &
KOUNT SUBTOTAL SPC SKIP
=20
;SET REPORT DEVICE DISC NAME CREATEDT
SET REPORT SPACING 0
SET REPORT NOFORMFEED
SET PAGE LENGTH 0
SET NOSPACE
SET NOBLANK
SET NOHEAD
SET NOWAIT
SET NOVERIFY DELETE
SET DUPLICATES
SET REPORT NOLIMIT
SET PAGE WIDTH 100
GO
------_=_NextPart_000_01C4FD6E.C0979AB8--