[Home] [Help]
119: -- 115.32 divicker 21-NOV-2001 performance
120: -- 115.33 ekim 06-MAY-2002 Removed update of
121: -- WC_EXECUTIVE_WEEKLY_MAX
122: -- in install_state_rules procedure.
123: -- 115.34 divicker 09-MAY-2002 Support for dual rule_mode LEG_RULES
124: -- 115.35 divicker 09-MAY-2002 dbdrv added
125: -- 115.36 pganguly 31-MAY-2002 Added a call to install_us_new in
126: -- the Canadian section.
127: -- 115.37 pganguly 13-JUN-2002 Added set verify off/whenever
376: when NO_DATA_FOUND then
377:
378: select pay_taxability_rules_dates_s.nextval
379: into l_trd_id
380: from dual;
381:
382: insert into pay_taxability_rules_dates
383: ( taxability_rules_date_id,
384: valid_date_from,
607: -- Must be a new surcharge
608:
609: select pay_wc_state_surcharges_s.nextval
610: into l_new_surrogate_key
611: from dual;
612:
613: END;
614:
615: -- Update all child entities
1044: while l_next_val < l_max_val
1045: loop
1046: select PAY_US_GARN_EXEMPTION_RULES_S.nextval
1047: into l_next_val
1048: from dual;
1049: end loop;
1050:
1051: /* reset l_max_val, l_next_val for the next table */
1052: l_max_val := 0;
1072: if l_prev_seq = gfr_rec.fee_rule_id
1073: then
1074: select PAY_US_GARN_FEE_RULES_S.currval
1075: into l_next_val
1076: from dual;
1077: else
1078: select PAY_US_GARN_FEE_RULES_S.nextval
1079: into l_next_val
1080: from dual;
1076: from dual;
1077: else
1078: select PAY_US_GARN_FEE_RULES_S.nextval
1079: into l_next_val
1080: from dual;
1081: end if;
1082:
1083: l_prev_seq := gfr_rec.fee_rule_id;
1084:
1140: while l_next_val < l_max_val
1141: loop
1142: select PAY_US_GARN_FEE_RULES_S.nextval
1143: into l_next_val
1144: from dual;
1145: end loop;
1146:
1147: /* reset l_max_val, l_next_val for the next table */
1148: l_max_val := 0;
1204: while l_next_val < l_max_val
1205: loop
1206: select PAY_US_GARN_LIMIT_RULES_S.nextval
1207: into l_next_val
1208: from dual;
1209: end loop;
1210:
1211: /* reset l_max_val, l_next_val for the next table */
1212: l_max_val := 0;