36: END IF;
37:
38: WHILE l_success = 'N' LOOP
39: BEGIN
40: INSERT INTO RA_CUST_RECEIPT_METHODS(
41: cust_receipt_method_id,
42: customer_id,
43: receipt_method_id,
44: primary_flag,
71: program_id,
72: program_update_date
73: ) VALUES (
74: DECODE(x_cust_receipt_method_id, fnd_api.g_miss_num,
75: ra_cust_receipt_methods_s.NEXTVAL,
76: NULL, ra_cust_receipt_methods_s.NEXTVAL, x_cust_receipt_method_id),
77: DECODE(x_customer_id, fnd_api.g_miss_num, NULL, x_customer_id),
78: DECODE(x_receipt_method_id, fnd_api.g_miss_num, NULL, x_receipt_method_id),
79: DECODE(x_primary_flag, fnd_api.g_miss_char, NULL, x_primary_flag),
72: program_update_date
73: ) VALUES (
74: DECODE(x_cust_receipt_method_id, fnd_api.g_miss_num,
75: ra_cust_receipt_methods_s.NEXTVAL,
76: NULL, ra_cust_receipt_methods_s.NEXTVAL, x_cust_receipt_method_id),
77: DECODE(x_customer_id, fnd_api.g_miss_num, NULL, x_customer_id),
78: DECODE(x_receipt_method_id, fnd_api.g_miss_num, NULL, x_receipt_method_id),
79: DECODE(x_primary_flag, fnd_api.g_miss_char, NULL, x_primary_flag),
80: DECODE(x_site_use_id, fnd_api.g_miss_num, NULL, x_site_use_id),
113: l_success := 'Y';
114:
115: EXCEPTION
116: WHEN DUP_VAL_ON_INDEX THEN
117: IF INSTRB(SQLERRM, 'RA_CUST_RECEIPT_METHODS_U1') <> 0 OR
118: INSTRB(SQLERRM, 'RA_CUST_RECEIPT_METHODS_PK') <> 0
119: THEN
120: IF l_primary_key_passed THEN
121: fnd_message.set_name('AR', 'HZ_API_DUPLICATE_COLUMN');
114:
115: EXCEPTION
116: WHEN DUP_VAL_ON_INDEX THEN
117: IF INSTRB(SQLERRM, 'RA_CUST_RECEIPT_METHODS_U1') <> 0 OR
118: INSTRB(SQLERRM, 'RA_CUST_RECEIPT_METHODS_PK') <> 0
119: THEN
120: IF l_primary_key_passed THEN
121: fnd_message.set_name('AR', 'HZ_API_DUPLICATE_COLUMN');
122: fnd_message.set_token('COLUMN', 'cust_receipt_method_id');
129: l_max_crm_id NUMBER;
130: BEGIN
131: l_temp_crm_id := 0;
132: SELECT max(cust_receipt_method_id) INTO l_max_crm_id
133: FROM RA_CUST_RECEIPT_METHODS;
134: WHILE l_temp_crm_id <= l_max_crm_id LOOP
135: SELECT RA_CUST_RECEIPT_METHODS_S.NEXTVAL
136: INTO l_temp_crm_id FROM dual;
137: END LOOP;
131: l_temp_crm_id := 0;
132: SELECT max(cust_receipt_method_id) INTO l_max_crm_id
133: FROM RA_CUST_RECEIPT_METHODS;
134: WHILE l_temp_crm_id <= l_max_crm_id LOOP
135: SELECT RA_CUST_RECEIPT_METHODS_S.NEXTVAL
136: INTO l_temp_crm_id FROM dual;
137: END LOOP;
138: END;
139: ELSE
171: ) IS
172:
173: BEGIN
174:
175: UPDATE ra_cust_receipt_methods
176: SET cust_receipt_method_id = DECODE(x_cust_receipt_method_id, NULL,
177: cust_receipt_method_id, fnd_api.g_miss_num, NULL,
178: x_cust_receipt_method_id),
179: customer_id = DECODE(x_customer_id, NULL, customer_id, fnd_api.g_miss_num,
263: ) IS
264:
265: CURSOR c IS
266: SELECT *
267: FROM ra_cust_receipt_methods
268: WHERE ROWID = x_rowid
269: FOR UPDATE NOWAIT;
270:
271: recinfo c%ROWTYPE;
386:
387:
388: PROCEDURE delete_row (x_cust_receipt_method_id IN NUMBER) IS
389: BEGIN
390: DELETE FROM ra_cust_receipt_methods
391: WHERE cust_receipt_method_id = x_cust_receipt_method_id;
392:
393: IF (SQL%NOTFOUND) THEN
394: RAISE NO_DATA_FOUND;