[Home] [Help]
1: PACKAGE BODY hz_contact_points_pkg AS
2: /*$Header: ARHCPTTB.pls 120.5 2006/05/05 09:19:20 pkasturi ship $ */
3:
4: G_MISS_CONTENT_SOURCE_TYPE CONSTANT VARCHAR2(30) := 'USER_ENTERED';
5:
92: END IF;
93:
94: WHILE l_success = 'N' LOOP
95: BEGIN
96: INSERT INTO HZ_CONTACT_POINTS (
97: contact_point_id,
98: contact_point_type,
99: status,
100: owner_table_name,
167: ACTUAL_CONTENT_SOURCE
168: )
169: VALUES (
170: DECODE(x_contact_point_id,
171: fnd_api.g_miss_num, hz_contact_points_s.NEXTVAL,
172: NULL, hz_contact_points_s.nextval,
173: x_contact_point_id),
174: DECODE(x_contact_point_type,
175: fnd_api.g_miss_char, NULL, x_contact_point_type),
168: )
169: VALUES (
170: DECODE(x_contact_point_id,
171: fnd_api.g_miss_num, hz_contact_points_s.NEXTVAL,
172: NULL, hz_contact_points_s.nextval,
173: x_contact_point_id),
174: DECODE(x_contact_point_type,
175: fnd_api.g_miss_char, NULL, x_contact_point_type),
176: DECODE(x_status, fnd_api.g_miss_char, 'A', NULL, 'A', x_status),
181: DECODE(x_primary_flag,
182: fnd_api.g_miss_char, 'N', NULL, 'N', x_primary_flag),
183: DECODE(x_orig_system_reference,
184: fnd_api.g_miss_char, TO_CHAR(NVL(x_contact_point_id,
185: hz_contact_points_s.CURRVAL)),
186: NULL, TO_CHAR(NVL(x_contact_point_id,
187: hz_contact_points_s.CURRVAL)),
188: x_orig_system_reference),
189: hz_utility_v2pub.last_update_date,
183: DECODE(x_orig_system_reference,
184: fnd_api.g_miss_char, TO_CHAR(NVL(x_contact_point_id,
185: hz_contact_points_s.CURRVAL)),
186: NULL, TO_CHAR(NVL(x_contact_point_id,
187: hz_contact_points_s.CURRVAL)),
188: x_orig_system_reference),
189: hz_utility_v2pub.last_update_date,
190: hz_utility_v2pub.last_updated_by,
191: hz_utility_v2pub.creation_date,
295: l_success := 'Y';
296:
297: EXCEPTION
298: WHEN DUP_VAL_ON_INDEX THEN
299: IF INSTRB(SQLERRM, 'HZ_CONTACT_POINTS_U1') <> 0 OR
300: INSTRB(SQLERRM, 'HZ_CONTACT_POINTS_PK') <> 0
301: THEN
302: IF l_primary_key_passed THEN
303: fnd_message.set_name('AR', 'HZ_API_DUPLICATE_COLUMN');
296:
297: EXCEPTION
298: WHEN DUP_VAL_ON_INDEX THEN
299: IF INSTRB(SQLERRM, 'HZ_CONTACT_POINTS_U1') <> 0 OR
300: INSTRB(SQLERRM, 'HZ_CONTACT_POINTS_PK') <> 0
301: THEN
302: IF l_primary_key_passed THEN
303: fnd_message.set_name('AR', 'HZ_API_DUPLICATE_COLUMN');
304: fnd_message.set_token('COLUMN', 'contact_point_id');
311: l_count NUMBER;
312: l_dummy VARCHAR2(1);
313:
314: CURSOR c_idseq IS
315: SELECT hz_contact_points_s.NEXTVAL
316: FROM dual;
317: CURSOR c_cpchk IS
318: SELECT 'Y'
319: FROM hz_contact_points
315: SELECT hz_contact_points_s.NEXTVAL
316: FROM dual;
317: CURSOR c_cpchk IS
318: SELECT 'Y'
319: FROM hz_contact_points
320: WHERE contact_point_id = x_contact_point_id;
321: BEGIN
322: l_count := 1;
323:
418: ) IS
419:
420: BEGIN
421:
422: UPDATE hz_contact_points SET
423: contact_point_id = DECODE(x_contact_point_id,
424: NULL, contact_point_id,
425: fnd_api.g_miss_num, NULL,
426: x_contact_point_id),
763: ) IS
764:
765: CURSOR c IS
766: SELECT *
767: FROM hz_contact_points
768: WHERE ROWID = x_rowid
769: FOR UPDATE NOWAIT;
770: recinfo C%ROWTYPE;
771:
1128: NVL(created_by_module, fnd_api.g_miss_char),
1129: NVL(application_id, fnd_api.g_miss_num),
1130: NVL(transposed_phone_number, fnd_api.g_miss_char),
1131: NVL(actual_content_source, fnd_api.g_miss_char)
1132: FROM hz_contact_points
1133: WHERE contact_point_id = x_contact_point_id;
1134: BEGIN
1135: OPEN c_cp;
1136: FETCH c_cp
1211:
1212: PROCEDURE delete_row (x_contact_point_id IN NUMBER) IS
1213: BEGIN
1214:
1215: DELETE FROM hz_contact_points
1216: WHERE contact_point_id = x_contact_point_id;
1217:
1218: IF (SQL%NOTFOUND) THEN
1219: RAISE NO_DATA_FOUND;
1220: END IF;
1221:
1222: END delete_row;
1223:
1224: END hz_contact_points_pkg;