<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1">
<TITLE>RE: QTP to always create subfile</TITLE>
<META content="MSHTML 6.00.5730.11" name=GENERATOR></HEAD>
<BODY>
<DIV><FONT face=Arial color=#0000ff size=2><SPAN class=383594122-19022007>Hi,
counts were correct using the define so went with that one. Thank-you
everyone that replied with your suggestions. This list saved me. Thanx
Lorry. </SPAN></FONT></DIV>
<BLOCKQUOTE>
<DIV class=OutlookMessageHeader dir=ltr align=left><FONT face=Tahoma
size=2>-----Original Message-----<BR><B>From:</B>
powerh-l-bounces+llitman=exchange.hsc.mb.ca@lists.sowder.com
[mailto:powerh-l-bounces+llitman=exchange.hsc.mb.ca@lists.sowder.com]<B>On
Behalf Of </B>Lorry Litman<BR><B>Sent:</B> February 15, 2007 8:52
AM<BR><B>To:</B> Joe Boyle; Ken@langendock.com<BR><B>Cc:</B> PowerHouse
listserver (E-mail)<BR><B>Subject:</B> RE: QTP to always create
subfile<BR><BR></FONT></DIV><!-- Converted from text/rtf format -->
<P dir=ltr><FONT face=Arial color=#0000ff size=2>Thank-you both very much.
I'll be out most of the day, but, I'll update you on the outcome. I quickly
changed the code and ran both. Joe, I just needed to change the using 0 to
using 1. I get different results (data counts) using the two methods, so I'll
have to do some checking of the data to see what the counts actually should be
or maybe it's a difference between using a define t_kount=1 in Joe's and item
t_kount count init 1 in Ken's. Thanx Lorry</FONT></P>
<UL dir=ltr>
<P dir=ltr><FONT face=Arial><SPAN lang=en-us></SPAN></FONT><SPAN
lang=en-us> <FONT face=Tahoma size=1>-----Original
Message-----</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><B><FONT face=Tahoma size=1>From:
</FONT></B> <FONT face=Tahoma size=1>Joe Boyle [<A
href="mailto:atla38@dsl.pipex.com">mailto:atla38@dsl.pipex.com</A>]
</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><B><FONT face=Tahoma
size=1>Sent: </FONT></B> <FONT face=Tahoma size=1>February 14,
2007 8:01 PM</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><B><FONT face=Tahoma
size=1>To: </FONT></B> <FONT face=Tahoma size=1>Lorry
Litman</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><B><FONT face=Tahoma
size=1>Cc: </FONT></B> <FONT face=Tahoma
size=1>'PowerHouse listserver (E-mail)'</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><B><FONT face=Tahoma
size=1>Subject: </FONT></B> <FONT
face=Tahoma size=1>RE: QTP to always create subfile</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-gb><FONT face=Arial color=#0000ff>Or even as
below</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-gb><FONT face="Times New Roman">can
cle</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-gb><FONT face="Times New Roman">run
n1</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-gb><FONT face="Times New Roman">global temp
t_ther_no num * 4 &</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-gb><FONT face="Times New Roman">parm prompt "enter
therapist number (4-digit max) : " &</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-gb><FONT face="Times New Roman">on errors reprompt
3 times</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-gb><FONT face="Times New Roman">global temp
t_start_dt date century included &</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-gb><FONT face="Times New Roman">parm prompt "enter
start date for the report (yyyymmdd) : " &</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-gb><FONT face="Times New Roman">on errors reprompt
3 times</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-gb><FONT face="Times New Roman">global temp
t_stop_dt date century included &</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-gb><FONT face="Times New Roman">parm prompt "enter
stop date for the report (yyyymmdd) : " &</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-gb><FONT face="Times New Roman">on errors reprompt
3 times</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-gb><FONT
face="Times New Roman"></FONT></SPAN> </P>
<P dir=ltr><SPAN lang=en-gb><FONT face="Times New Roman">req q1 input lim 1
proc lim 1</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-gb><FONT face="Times New Roman">acc orders in
axnwind</FONT></SPAN></P><BR>
<P dir=ltr><SPAN lang=en-gb><FONT
face="Times New Roman"></FONT></SPAN> </P>
<P dir=ltr><SPAN lang=en-gb><FONT face="Times New Roman">temp tot_appt
</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-gb><FONT face="Times New Roman">temp
tot_canpc</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-gb><FONT face="Times New Roman">temp
tot_canpcmr</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-gb><FONT face="Times New Roman">temp
tot_pat</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-gb><FONT face="Times New Roman">sub ther-20 keep at
final &</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-gb><FONT face="Times New Roman">include
t_ther_no,tot_appt,tot_canpc,tot_canpcmr,tot_pat,t_stop_dt,t_start_dt</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-gb><FONT
face="Times New Roman"></FONT></SPAN> </P>
<P dir=ltr><SPAN lang=en-gb><FONT face="Times New Roman">request
retrieve_appointments input nolim proc nolim</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-gb><FONT face="Times New Roman">acc orders in
axnwind</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-gb><FONT face="Times New Roman">temp t_tot_appt
</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-gb><FONT face="Times New Roman">temp
t_tot_canpc</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-gb><FONT face="Times New Roman">temp
t_tot_canpcmr</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-gb><FONT face="Times New Roman">temp
t_tot_pat</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-gb><FONT face="Times New Roman">;tbl1 in db1 link
cola,colb,colc to cola,colb,colc of tbl2 in db1</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-gb><FONT
face="Times New Roman"></FONT></SPAN> </P>
<P dir=ltr><SPAN lang=en-gb><FONT face="Times New Roman">def kount =
parm</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-gb><FONT face="Times New Roman">sort on
customerid</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-gb><FONT face="Times New Roman"> item
t_tot_appt sub kount</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-gb><FONT face="Times New Roman"> item
t_tot_canpc sub kount if acknowledge_cd = "pc" </FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-gb><FONT face="Times New Roman"> item
t_tot_canpcmr sub kount if acknowledge_cd = "pcmr"</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-gb><FONT face="Times New Roman"> item
t_tot_pat subtotal kount at customerid</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-gb><FONT
face="Times New Roman"></FONT></SPAN> </P>
<P dir=ltr><SPAN lang=en-gb><FONT face="Times New Roman">output * ther-20
update at final using 0 </FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-gb><FONT face="Times New Roman"> item
tot_appt final t_tot_appt </FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-gb><FONT face="Times New Roman"> item
tot_canpc final t_tot_canpc </FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-gb><FONT face="Times New Roman"> item
tot_canpcmr final t_tot_canpcmr </FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-gb><FONT face="Times New Roman"> item
tot_pat final t_tot_pat </FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-gb><FONT
face="Times New Roman"></FONT></SPAN> </P>
<P dir=ltr><SPAN lang=en-gb><FONT face="Times New Roman">bui
upd_rec</FONT></SPAN></P><BR>
<P dir=ltr><SPAN lang=en-us><FONT face=Arial color=#000000 size=2><IMG
alt=ole0.bmp src="No%20AttachName"></FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><B><FONT face=Tahoma
size=2>From:</FONT></B><FONT face=Tahoma size=2>
powerh-l-bounces+atla38=dsl.pipex.com@lists.sowder.com [<A
href="mailto:powerh-l-bounces+atla38=dsl.pipex.com@lists.sowder.com">mailto:powerh-l-bounces+atla38=dsl.pipex.com@lists.sowder.com</A>]</FONT><B>
<FONT face=Tahoma size=2>On Behalf Of</FONT></B> <FONT face=Tahoma
size=2>Ken Langendock<BR></FONT><B><FONT face=Tahoma
size=2>Sent:</FONT></B><FONT face=Tahoma size=2> 15 February 2007
00:29<BR></FONT><B><FONT face=Tahoma size=2>To:</FONT></B><FONT face=Tahoma
size=2> 'Lorry Litman'<BR></FONT><B><FONT face=Tahoma
size=2>Cc:</FONT></B><FONT face=Tahoma size=2> 'PowerHouse listserver
(E-mail)'<BR></FONT><B><FONT face=Tahoma size=2>Subject:</FONT></B><FONT
face=Tahoma size=2> RE: QTP to always create subfile</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman">Here is the revised
code, try this</FONT></SPAN><SPAN lang=en-gb></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT
face="Times New Roman">Ken</FONT></SPAN><SPAN lang=en-gb></SPAN></P>
<P dir=ltr><SPAN lang=en-gb><FONT
face="Times New Roman"></FONT></SPAN> </P>
<P dir=ltr><SPAN lang=en-gb><FONT
face="Times New Roman"></FONT></SPAN> </P>
<P dir=ltr><SPAN lang=en-gb><FONT
face="Times New Roman"></FONT></SPAN> </P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman">Index subfile and
Output method</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman">set
verify</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman">can
cle</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman">run
Therapist_appts</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman">display "
"</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman">display
"****************************************************************"</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman">display "* REPORT -
Therapist Appointments (By
Type)
*"</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman">display
"*--------------------------------------------------------------*"</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman">display "* The
first step of this report is to gather appointment info
*"</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman">display "* for the
therapist you select within the dates you specify.
*"</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman">display "* This
process will take a few moments ... While you wait,
*"</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman">display "* you may
want to check and insure that the printer you have *"
</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman">display "* selected
is not in 'Duplex' mode, as this may affect the
*"</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman">display "* report
printout.
*"</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman">display
"****************************************************************"</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman">display "
"</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman">display "
"</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman">global temp
t_ther_no num * 4 &</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman">parm prompt "Enter
Therapist Number (4-digit max) : " &</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman">on errors reprompt
3 times</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman">global temp
t_start_dt date century included &</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman">parm prompt "Enter
start date for the report (YYYYMMDD) : " &</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman">on errors reprompt
3 times</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman">global temp
t_stop_dt date century included &</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman">parm prompt "Enter
stop date for the report (YYYYMMDD) : " &</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman">on errors reprompt
3 times</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman">request
create_empty_subfile</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman">;access single
record file to create empty subfile</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman">access
PSY_PATIENT_NEXTNUM</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman">temp t_index int *
1</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman">temp tot_appt
</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman">temp
tot_canpc</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman">temp
tot_canpcmr</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman">temp tot_canta
</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman">temp
tot_cantc</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman">temp tot_cantccc
</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman">temp tot_cantcmr
</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman">temp tot_cantcpc
</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman">temp tot_cantcsc
</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman">temp tot_cantdns
</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman">temp tot_cantr
</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman">temp tot_cantu
</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman">temp tot_noshow
</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman">temp tot_att
</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman">temp tot_time
</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman">temp tot_min
</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman">temp
tot_pat</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman">item t_index =
1</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman">SUB THER-20 AT
FINAL KEEP &</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman">INCLUDE
T_INDEX,T_THER_NO,TOT_APPT,TOT_CANPC,TOT_CANPCMR,TOT_CANTA,TOT_CANTC,
&</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT
face="Times New Roman">TOT_CANTCCC,TOT_CANTCMR,TOT_CANTCPC,TOT_CANTCSC,TOT_CANTDNS,TOT_CANTR,
&</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT
face="Times New Roman">TOT_CANTU,TOT_NOSHOW,TOT_ATT,TOT_MIN,TOT_PAT,T_STOP_DT,T_START_DT
&</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman">INDEX THER20IDX
UNIQUE SEGMENT T_INDEX</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman">request
Retrieve_appointments</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman">acc activity in psy
link psy_pat_no,psy_case_no,psy_act_no &</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman">to
psy_pat_no,psy_case_no,psy_act_no of activity_therapist in
psy</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman">sel activity if
psy_act_dt ge t_start_dt and psy_act_dt le t_stop_dt</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman">sel
activity_therapist if psy_act_therapist_no eq t_ther_no</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT
face="Times New Roman">
</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman">sort ON PSY_PAT_NO
OF ACTIVITY</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman">temp
t_kount</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman">item t_kount count
init 1</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman">temp t_tot_appt
</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman">temp
t_tot_canpc</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman">temp
t_tot_canpcmr</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman">temp t_tot_canta
</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman">temp
t_tot_cantc</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman">temp t_tot_cantccc
</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman">temp t_tot_cantcmr
</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman">temp t_tot_cantcpc
</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman">temp t_tot_cantcsc
</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman">temp t_tot_cantdns
</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman">temp t_tot_cantr
</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman">temp t_tot_cantu
</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman">temp t_tot_noshow
</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman">temp t_tot_att
</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman">temp t_tot_time
</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman">temp t_tot_min
</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman">temp
t_tot_pat</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman">item t_tot_appt sub
t_kount</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman"> item
t_tot_canpc sub t_kount if psy_act_acknowledge_cd = "PC" </FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman"> item
t_tot_canpcmr sub t_kount if psy_act_acknowledge_cd =
"PCMR"</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman"> item
t_tot_canta sub t_kount if psy_act_acknowledge_cd = "TA"</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman"> item
t_tot_cantc sub t_kount if psy_act_acknowledge_cd = "TC"</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman"> item
t_tot_cantccc sub t_kount if psy_act_acknowledge_cd =
"TCCC"</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman"> item
t_tot_cantcmr sub t_kount if psy_act_acknowledge_cd =
"TCMR"</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman"> item
t_tot_cantcpc sub t_kount if psy_act_acknowledge_cd =
"TCPC"</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman"> item
t_tot_cantcsc sub t_kount if psy_act_acknowledge_cd =
"TCSC"</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman"> item
t_tot_cantdns sub t_kount if psy_act_acknowledge_cd =
"TDNS"</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman"> item
t_tot_cantr sub t_kount if psy_act_acknowledge_cd = "TR"</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman"> item
t_tot_cantu sub t_kount if psy_act_acknowledge_cd = "TU"</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman"> item
t_tot_noshow sub t_kount if psy_act_acknowledge_cd =
"PDNS"</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman"> item
t_tot_att sub t_kount if psy_act_acknowledge_cd = "PA"</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman"> item
t_tot_time = psy_act_therapist_time if psy_act_therapist_no =
t_ther_no</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman"> item
t_tot_min sub tot_time</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman"> item
t_tot_pat sub t_kount at psy_pat_no</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman">OUTPUT *THER-20
UPDATE ADD AT FINAL VIAINDEX THER20IDX USING 1</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman"> item tot_appt
of THER-20 final t_tot_appt</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman"> item
tot_canpc of THER-20 final t_tot_canpc </FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman"> item
tot_canpcmr of THER-20 final t_tot_canpcmr </FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman"> item
tot_canta of THER-20 final t_tot_canta</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman"> item
tot_cantc of THER-20 final t_tot_cantc</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman"> item
tot_cantccc of THER-20 final t_tot_cantccc</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman"> item
tot_cantcmr of THER-20 final t_tot_cantcmr</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman"> item
tot_cantcpc of THER-20 final t_tot_cantcpc</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman"> item
tot_cantcsc of THER-20 final t_tot_cantcsc</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman"> item
tot_cantdns of THER-20 final t_tot_cantdns</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman"> item
tot_cantr of THER-20 final t_tot_cantr</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman"> item
tot_cantu of THER-20 final t_tot_cantu</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman"> item
tot_noshow of THER-20 final t_tot_noshow</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman"> item tot_att
of THER-20 final t_tot-att</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman"> item tot_time
of THER-20 final t_tot-time</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman"> item tot_min
of THER-20 final t_tot-min</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman"> item tot_pat
of THER-20 final t_tot_pat</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face="Times New Roman">build
therapist_appts</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-us><FONT face=Tahoma size=2>-----Original
Message-----<BR></FONT></SPAN><SPAN lang=en-us><B><FONT face=Tahoma
size=2>From:</FONT></B><FONT face=Tahoma size=2> Lorry Litman [<A
href="mailto:LLitman@exchange.hsc.mb.ca">mailto:LLitman@exchange.hsc.mb.ca</A>]<BR></FONT><B><FONT
face=Tahoma size=2>Sent:</FONT></B><FONT face=Tahoma size=2> February 14,
2007 6:52 PM<BR></FONT><B><FONT face=Tahoma size=2>To:</FONT></B><FONT
face=Tahoma size=2> Ken@langendock.com; Joe Boyle; Robert
Edis<BR></FONT><B><FONT face=Tahoma size=2>Cc:</FONT></B><FONT face=Tahoma
size=2> PowerHouse listserver (E-mail)<BR></FONT><B><FONT face=Tahoma
size=2>Subject:</FONT></B><FONT face=Tahoma size=2> RE: QTP to always create
subfile</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-gb><FONT face=Arial color=#0000ff size=2>Thank-you
all for your response.</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-gb><FONT face=Arial color=#0000ff size=2>I'm trying
both the double subfile method and the subfile plus output method and have a
problem with both.</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-gb><FONT face=Arial color=#0000ff size=2>I'm not
sure of the difference (pros/cons) between using the Subfile index file and
Output as suggested by Ken and Joe or the Subfile twice and overwrite
subfile idea by Robert?</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-gb><FONT
face="Times New Roman"></FONT></SPAN> </P>
<P dir=ltr><SPAN lang=en-gb><FONT face=Arial color=#0000ff
size=2>However,</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-gb><FONT face=Arial color=#0000ff size=2>when I
tried the two subfile method I couldn't stop the second subfile from always
overwriting the first subfile even if no records were
selected</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-gb><FONT face=Arial color=#0000ff size=2>So, I
switched to the indexed subfile and output method, I've tried a few
different variations, but , basically I either can't get the output to
update a record and/or if I get it to update it actually adds another record
and the values for the items are all 0 except for the global temporary
params.</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-gb><FONT
face="Times New Roman"></FONT></SPAN> </P>
<P dir=ltr><SPAN lang=en-gb><FONT face=Arial color=#0000ff size=2>I've
included all the code for both methods in case I'm missing
something.</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-gb><FONT
face="Times New Roman"></FONT></SPAN> </P>
<P dir=ltr><SPAN lang=en-gb><FONT
face="Times New Roman"></FONT></SPAN> </P>
<P dir=ltr><SPAN lang=en-gb><FONT face=Arial color=#0000ff
size=2>Thanx</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-gb><FONT face=Arial color=#0000ff
size=2> Lorry</FONT></SPAN></P>
<P dir=ltr><SPAN lang=en-gb><FONT face=Arial color=#0000ff
size=2></FONT></SPAN> </P>
<P dir=ltr><SPAN lang=en-gb><FONT face=Arial color=#0000ff
size=2></FONT></SPAN> </P></UL>This e-mail and/or any documents in this
transmission is intended for the address(s) only and may contain legally
privileged or confidential information. Any unauthorized use, disclosure,
distribution, copying or dissemination is strictly prohibited. If you receive
this transmission in error, please notify the sender immediately and return
the original. </BLOCKQUOTE>
This e-mail and/or any documents in this transmission is intended for the address(s) only and may contain legally privileged or confidential information. Any unauthorized use, disclosure, distribution, copying or dissemination is strictly prohibited. If you receive this transmission in error, please notify the sender immediately and return the original.</BODY></HTML>