[Home] [Help]
1: package body csc_customers_pkg as
2: /*$Header: csctcccb.pls 115.7 2004/04/27 10:26:23 vshastry ship $*/
3:
4: procedure process_audit_table (
5: x_party_id NUMBER,
52: p_program_application_id NUMBER DEFAULT NULL,
53: p_program_id NUMBER DEFAULT NULL,
54: p_program_update_date DATE DEFAULT NULL)
55: IS
56: CURSOR C is select rowid from csc_customers
57: where party_id = x_party_id;
58: /*
59:
60: CURSOR C1 is select pc.value from cs_prof_check_results pc
63: and pc.customer_id = x_customer_id;
64: */
65:
66: BEGIN
67: INSERT INTO csc_customers
68: (
69: party_id,
70: cust_account_id,
71: last_update_date,
176: p_program_id NUMBER DEFAULT NULL,
177: p_program_update_date DATE DEFAULT NULL)
178: IS
179: x_cust_hist_id number;
180: cursor C2 is select csc_customers_audit_hist_s.nextval from sys.dual;
181:
182: /*
183: x_sys_det_critical_flag varchar2(1);
184: cursor C1 is select pc.value
205: */
206:
207: -- Bug 1352203 - while inserting, the changed by field should be
208: -- populated with last_updated_by instead of created_by
209: insert into csc_customers_audit_hist (
210: cust_hist_id,
211: party_id,
212: cust_account_id,
213: last_update_date,
272: x_override_reason_code VARCHAR2
273: ) IS
274: CURSOR C is
275: select *
276: from csc_customers
277: where rowid = x_rowid
278: for update of party_id NOWAIT;
279: Recinfo C%ROWTYPE;
280: BEGIN
354: p_program_id NUMBER DEFAULT NULL,
355: p_program_update_date DATE DEFAULT NULL)
356: IS
357: begin
358: update csc_customers
359: set
360: party_id = DECODE(x_party_id,FND_API.G_MISS_NUM,NULL,NVL(x_party_id,party_id)),
361: cust_account_id = DECODE(x_cust_account_id,FND_API.G_MISS_NUM,NULL,NVL(x_cust_account_id,cust_account_id)),
362: last_update_date = DECODE(x_last_update_date,FND_API.G_MISS_DATE,NULL,NVL(x_last_update_date,last_update_date)),
423: end if;
424: end delete_row;
425: */
426:
427: end csc_customers_pkg;