QTP to always create subfile

[Joe Boyle]

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



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
 
 
-------------- next part --------------
A non-text attachment was scrubbed...
Name: winmail.dat
Type: application/ms-tnef
Size: 9658 bytes
Desc: not available
Url : http://lists.sowder.com/pipermail/powerh-l/attachments/20070215/54c9c9dc/winmail.bin