1: PACKAGE BODY cn_trx_factors_pkg AS
2: /* $Header: cnplitfb.pls 120.1 2005/08/05 00:32:13 fmburu noship $ */
3:
4: /*
5: Date Name Description
30: INTO l_org_id
31: FROM CN_QUOTAS_ALL
32: WHERE QUOTA_ID = x_quota_id ;
33:
34: INSERT INTO cn_trx_factors
35: (trx_factor_id,
36: quota_id,
37: quota_rule_id,
38: revenue_class_id,
41: created_by,
42: creation_date,
43: org_id,
44: object_version_number)
45: SELECT cn_trx_factors_s.NEXTVAL,
46: x_quota_id,
47: x_quota_rule_id,
48: x_revenue_class_id,
49: lookup_code,
96: END IF ;
97:
98: SELECT NVL(OBJECT_VERSION_NUMBER,1)
99: INTO l_ovn
100: FROM CN_TRX_FACTORS
101: WHERE TRX_FACTOR_ID = x_trx_factor_id ;
102:
103: l_ovn := l_ovn + 1 ;
104:
101: WHERE TRX_FACTOR_ID = x_trx_factor_id ;
102:
103: l_ovn := l_ovn + 1 ;
104:
105: UPDATE cn_trx_factors
106: SET trx_factor_id = x_trx_factor_id,
107: event_factor = x_event_factor,
108: last_update_date = x_last_update_date,
109: last_updated_by = x_last_updated_by,
149: THEN
150: IF x_quota_rule_id IS NOT NULL
151: THEN
152: -- called when deleting a quota rule
153: DELETE FROM cn_trx_factors
154: WHERE quota_rule_id = x_quota_rule_id;
155: ELSE
156: -- called when deleting an entire quota
157: DELETE FROM cn_trx_factors
153: DELETE FROM cn_trx_factors
154: WHERE quota_rule_id = x_quota_rule_id;
155: ELSE
156: -- called when deleting an entire quota
157: DELETE FROM cn_trx_factors
158: WHERE quota_id = x_quota_id;
159: END IF;
160: END IF;
161: END DELETE_RECORD;
253: BEGIN
254: -- Saves passing it around
255: g_program_type := x_program_type;
256: END end_record;
257: END cn_trx_factors_pkg;