QTP to always create subfile
Lorry Litman
LLitman at exchange.hsc.mb.ca
Mon Feb 19 16:45:37 CST 2007
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.
-----Original Message-----
From: powerh-l-bounces+llitman=exchange.hsc.mb.ca at lists.sowder.com [mailto:powerh-l-bounces+llitman=exchange.hsc.mb.ca at lists.sowder.com]On Behalf Of Lorry Litman
Sent: February 15, 2007 8:52 AM
To: Joe Boyle; Ken at langendock.com
Cc: PowerHouse listserver (E-mail)
Subject: RE: QTP to always create subfile
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
-----Original Message-----
From: Joe Boyle [ mailto:atla38 at dsl.pipex.com]
Sent: February 14, 2007 8:01 PM
To: Lorry Litman
Cc: 'PowerHouse listserver (E-mail)'
Subject: RE: QTP to always create subfile
Or even as below
can cle
run n1
global temp t_ther_no num * 4 &
parm prompt "enter therapist number (4-digit max) : " &
on errors reprompt 3 times
global temp t_start_dt date century included &
parm prompt "enter start date for the report (yyyymmdd) : " &
on errors reprompt 3 times
global temp t_stop_dt date century included &
parm prompt "enter stop date for the report (yyyymmdd) : " &
on errors reprompt 3 times
req q1 input lim 1 proc lim 1
acc orders in axnwind
temp tot_appt
temp tot_canpc
temp tot_canpcmr
temp tot_pat
sub ther-20 keep at final &
include t_ther_no,tot_appt,tot_canpc,tot_canpcmr,tot_pat,t_stop_dt,t_start_dt
request retrieve_appointments input nolim proc nolim
acc orders in axnwind
temp t_tot_appt
temp t_tot_canpc
temp t_tot_canpcmr
temp t_tot_pat
;tbl1 in db1 link cola,colb,colc to cola,colb,colc of tbl2 in db1
def kount = parm
sort on customerid
item t_tot_appt sub kount
item t_tot_canpc sub kount if acknowledge_cd = "pc"
item t_tot_canpcmr sub kount if acknowledge_cd = "pcmr"
item t_tot_pat subtotal kount at customerid
output * ther-20 update at final using 0
item tot_appt final t_tot_appt
item tot_canpc final t_tot_canpc
item tot_canpcmr final t_tot_canpcmr
item tot_pat final t_tot_pat
bui upd_rec
ole0.bmp
From: powerh-l-bounces+atla38=dsl.pipex.com at lists.sowder.com [ mailto:powerh-l-bounces+atla38=dsl.pipex.com at lists.sowder.com] On Behalf Of Ken Langendock
Sent: 15 February 2007 00:29
To: 'Lorry Litman'
Cc: 'PowerHouse listserver (E-mail)'
Subject: RE: QTP to always create subfile
Here is the revised code, try this
Ken
Index subfile and Output method
set verify
can cle
run Therapist_appts
display " "
display "****************************************************************"
display "* REPORT - Therapist Appointments (By Type) *"
display "*--------------------------------------------------------------*"
display "* The first step of this report is to gather appointment info *"
display "* for the therapist you select within the dates you specify. *"
display "* This process will take a few moments ... While you wait, *"
display "* you may want to check and insure that the printer you have *"
display "* selected is not in 'Duplex' mode, as this may affect the *"
display "* report printout. *"
display "****************************************************************"
display " "
display " "
global temp t_ther_no num * 4 &
parm prompt "Enter Therapist Number (4-digit max) : " &
on errors reprompt 3 times
global temp t_start_dt date century included &
parm prompt "Enter start date for the report (YYYYMMDD) : " &
on errors reprompt 3 times
global temp t_stop_dt date century included &
parm prompt "Enter stop date for the report (YYYYMMDD) : " &
on errors reprompt 3 times
request create_empty_subfile
;access single record file to create empty subfile
access PSY_PATIENT_NEXTNUM
temp t_index int * 1
temp tot_appt
temp tot_canpc
temp tot_canpcmr
temp tot_canta
temp tot_cantc
temp tot_cantccc
temp tot_cantcmr
temp tot_cantcpc
temp tot_cantcsc
temp tot_cantdns
temp tot_cantr
temp tot_cantu
temp tot_noshow
temp tot_att
temp tot_time
temp tot_min
temp tot_pat
item t_index = 1
SUB THER-20 AT FINAL KEEP &
INCLUDE T_INDEX,T_THER_NO,TOT_APPT,TOT_CANPC,TOT_CANPCMR,TOT_CANTA,TOT_CANTC, &
TOT_CANTCCC,TOT_CANTCMR,TOT_CANTCPC,TOT_CANTCSC,TOT_CANTDNS,TOT_CANTR, &
TOT_CANTU,TOT_NOSHOW,TOT_ATT,TOT_MIN,TOT_PAT,T_STOP_DT,T_START_DT &
INDEX THER20IDX UNIQUE SEGMENT T_INDEX
request Retrieve_appointments
acc activity in psy link psy_pat_no,psy_case_no,psy_act_no &
to psy_pat_no,psy_case_no,psy_act_no of activity_therapist in psy
sel activity if psy_act_dt ge t_start_dt and psy_act_dt le t_stop_dt
sel activity_therapist if psy_act_therapist_no eq t_ther_no
sort ON PSY_PAT_NO OF ACTIVITY
temp t_kount
item t_kount count init 1
temp t_tot_appt
temp t_tot_canpc
temp t_tot_canpcmr
temp t_tot_canta
temp t_tot_cantc
temp t_tot_cantccc
temp t_tot_cantcmr
temp t_tot_cantcpc
temp t_tot_cantcsc
temp t_tot_cantdns
temp t_tot_cantr
temp t_tot_cantu
temp t_tot_noshow
temp t_tot_att
temp t_tot_time
temp t_tot_min
temp t_tot_pat
item t_tot_appt sub t_kount
item t_tot_canpc sub t_kount if psy_act_acknowledge_cd = "PC"
item t_tot_canpcmr sub t_kount if psy_act_acknowledge_cd = "PCMR"
item t_tot_canta sub t_kount if psy_act_acknowledge_cd = "TA"
item t_tot_cantc sub t_kount if psy_act_acknowledge_cd = "TC"
item t_tot_cantccc sub t_kount if psy_act_acknowledge_cd = "TCCC"
item t_tot_cantcmr sub t_kount if psy_act_acknowledge_cd = "TCMR"
item t_tot_cantcpc sub t_kount if psy_act_acknowledge_cd = "TCPC"
item t_tot_cantcsc sub t_kount if psy_act_acknowledge_cd = "TCSC"
item t_tot_cantdns sub t_kount if psy_act_acknowledge_cd = "TDNS"
item t_tot_cantr sub t_kount if psy_act_acknowledge_cd = "TR"
item t_tot_cantu sub t_kount if psy_act_acknowledge_cd = "TU"
item t_tot_noshow sub t_kount if psy_act_acknowledge_cd = "PDNS"
item t_tot_att sub t_kount if psy_act_acknowledge_cd = "PA"
item t_tot_time = psy_act_therapist_time if psy_act_therapist_no = t_ther_no
item t_tot_min sub tot_time
item t_tot_pat sub t_kount at psy_pat_no
OUTPUT *THER-20 UPDATE ADD AT FINAL VIAINDEX THER20IDX USING 1
item tot_appt of THER-20 final t_tot_appt
item tot_canpc of THER-20 final t_tot_canpc
item tot_canpcmr of THER-20 final t_tot_canpcmr
item tot_canta of THER-20 final t_tot_canta
item tot_cantc of THER-20 final t_tot_cantc
item tot_cantccc of THER-20 final t_tot_cantccc
item tot_cantcmr of THER-20 final t_tot_cantcmr
item tot_cantcpc of THER-20 final t_tot_cantcpc
item tot_cantcsc of THER-20 final t_tot_cantcsc
item tot_cantdns of THER-20 final t_tot_cantdns
item tot_cantr of THER-20 final t_tot_cantr
item tot_cantu of THER-20 final t_tot_cantu
item tot_noshow of THER-20 final t_tot_noshow
item tot_att of THER-20 final t_tot-att
item tot_time of THER-20 final t_tot-time
item tot_min of THER-20 final t_tot-min
item tot_pat of THER-20 final t_tot_pat
build therapist_appts
-----Original Message-----
From: Lorry Litman [ mailto:LLitman at exchange.hsc.mb.ca]
Sent: February 14, 2007 6:52 PM
To: Ken at langendock.com; Joe Boyle; Robert Edis
Cc: PowerHouse listserver (E-mail)
Subject: RE: QTP to always create subfile
Thank-you all for your response.
I'm trying both the double subfile method and the subfile plus output method and have a problem with both.
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?
However,
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
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.
I've included all the code for both methods in case I'm missing something.
Thanx
Lorry
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.
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.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.sowder.com/pipermail/powerh-l/attachments/20070219/8553b49b/attachment-0001.html
More information about the powerh-l
mailing list