APPS.HZ_CONTACT_PREFERENCES_PKG dependencies on HZ_CONTACT_PREFERENCES

Line 1: PACKAGE BODY HZ_CONTACT_PREFERENCES_PKG AS

1: PACKAGE BODY HZ_CONTACT_PREFERENCES_PKG AS
2: /*$Header: ARH2CTTB.pls 120.3 2006/04/19 06:17:30 idali noship $ */
3:
4: PROCEDURE Insert_Row (
5: X_Rowid IN OUT NOCOPY VARCHAR2,

Line 36: INSERT INTO HZ_CONTACT_PREFERENCES (

32: BEGIN
33:
34: WHILE l_success = 'N' LOOP
35: BEGIN
36: INSERT INTO HZ_CONTACT_PREFERENCES (
37: CONTACT_PREFERENCE_ID,
38: CONTACT_LEVEL_TABLE,
39: CONTACT_LEVEL_TABLE_ID,
40: CONTACT_TYPE,

Line 70: DECODE( X_CONTACT_PREFERENCE_ID, FND_API.G_MISS_NUM, HZ_CONTACT_PREFERENCES_S.NEXTVAL, NULL, HZ_CONTACT_PREFERENCES_S.NEXTVAL, X_CONTACT_PREFERENCE_ID ),

66: CREATED_BY_MODULE,
67: APPLICATION_ID
68: )
69: VALUES (
70: DECODE( X_CONTACT_PREFERENCE_ID, FND_API.G_MISS_NUM, HZ_CONTACT_PREFERENCES_S.NEXTVAL, NULL, HZ_CONTACT_PREFERENCES_S.NEXTVAL, X_CONTACT_PREFERENCE_ID ),
71: DECODE( X_CONTACT_LEVEL_TABLE, FND_API.G_MISS_CHAR, NULL, X_CONTACT_LEVEL_TABLE ),
72: DECODE( X_CONTACT_LEVEL_TABLE_ID, FND_API.G_MISS_NUM, NULL, X_CONTACT_LEVEL_TABLE_ID ),
73: DECODE( X_CONTACT_TYPE, FND_API.G_MISS_CHAR, NULL, X_CONTACT_TYPE ),
74: DECODE( X_PREFERENCE_CODE, FND_API.G_MISS_CHAR, NULL, X_PREFERENCE_CODE ),

Line 112: IF INSTRB( SQLERRM, 'HZ_CONTACT_PREFERENCES_U1' ) <> 0 OR

108: l_success := 'Y';
109:
110: EXCEPTION
111: WHEN DUP_VAL_ON_INDEX THEN
112: IF INSTRB( SQLERRM, 'HZ_CONTACT_PREFERENCES_U1' ) <> 0 OR
113: INSTRB( SQLERRM, 'HZ_CONTACT_PREFERENCES_PK' ) <> 0 THEN
114: DECLARE
115: l_count NUMBER;
116: l_dummy VARCHAR2(1);

Line 113: INSTRB( SQLERRM, 'HZ_CONTACT_PREFERENCES_PK' ) <> 0 THEN

109:
110: EXCEPTION
111: WHEN DUP_VAL_ON_INDEX THEN
112: IF INSTRB( SQLERRM, 'HZ_CONTACT_PREFERENCES_U1' ) <> 0 OR
113: INSTRB( SQLERRM, 'HZ_CONTACT_PREFERENCES_PK' ) <> 0 THEN
114: DECLARE
115: l_count NUMBER;
116: l_dummy VARCHAR2(1);
117: BEGIN

Line 120: SELECT HZ_CONTACT_PREFERENCES_S.NEXTVAL

116: l_dummy VARCHAR2(1);
117: BEGIN
118: l_count := 1;
119: WHILE l_count > 0 LOOP
120: SELECT HZ_CONTACT_PREFERENCES_S.NEXTVAL
121: INTO X_CONTACT_PREFERENCE_ID FROM dual;
122: BEGIN
123: SELECT 'Y' INTO l_dummy
124: FROM HZ_CONTACT_PREFERENCES

Line 124: FROM HZ_CONTACT_PREFERENCES

120: SELECT HZ_CONTACT_PREFERENCES_S.NEXTVAL
121: INTO X_CONTACT_PREFERENCE_ID FROM dual;
122: BEGIN
123: SELECT 'Y' INTO l_dummy
124: FROM HZ_CONTACT_PREFERENCES
125: WHERE CONTACT_PREFERENCE_ID = X_CONTACT_PREFERENCE_ID;
126: l_count := 1;
127: EXCEPTION
128: WHEN NO_DATA_FOUND THEN

Line 170: UPDATE HZ_CONTACT_PREFERENCES SET

166: ) IS
167:
168: BEGIN
169:
170: UPDATE HZ_CONTACT_PREFERENCES SET
171: CONTACT_PREFERENCE_ID = DECODE( X_CONTACT_PREFERENCE_ID, NULL, CONTACT_PREFERENCE_ID, FND_API.G_MISS_NUM, NULL, X_CONTACT_PREFERENCE_ID ),
172: CONTACT_LEVEL_TABLE = DECODE( X_CONTACT_LEVEL_TABLE, NULL, CONTACT_LEVEL_TABLE, FND_API.G_MISS_CHAR, NULL, X_CONTACT_LEVEL_TABLE ),
173: CONTACT_LEVEL_TABLE_ID = DECODE( X_CONTACT_LEVEL_TABLE_ID, NULL, CONTACT_LEVEL_TABLE_ID, FND_API.G_MISS_NUM, NULL, X_CONTACT_LEVEL_TABLE_ID ),
174: CONTACT_TYPE = DECODE( X_CONTACT_TYPE, NULL, CONTACT_TYPE, FND_API.G_MISS_CHAR, NULL, X_CONTACT_TYPE ),

Line 246: SELECT * FROM HZ_CONTACT_PREFERENCES

242: X_APPLICATION_ID IN NUMBER
243: ) IS
244:
245: CURSOR C IS
246: SELECT * FROM HZ_CONTACT_PREFERENCES
247: WHERE ROWID = x_Rowid
248: FOR UPDATE NOWAIT;
249: Recinfo C%ROWTYPE;
250:

Line 435: FROM HZ_CONTACT_PREFERENCES

431: X_REASON_CODE,
432: X_STATUS,
433: X_CREATED_BY_MODULE,
434: X_APPLICATION_ID
435: FROM HZ_CONTACT_PREFERENCES
436: WHERE CONTACT_PREFERENCE_ID = X_CONTACT_PREFERENCE_ID;
437:
438: EXCEPTION
439: WHEN NO_DATA_FOUND THEN

Line 454: DELETE FROM HZ_CONTACT_PREFERENCES

450: ) IS
451:
452: BEGIN
453:
454: DELETE FROM HZ_CONTACT_PREFERENCES
455: WHERE CONTACT_PREFERENCE_ID = X_CONTACT_PREFERENCE_ID;
456:
457: IF ( SQL%NOTFOUND ) THEN
458: RAISE NO_DATA_FOUND;

Line 463: END HZ_CONTACT_PREFERENCES_PKG;

459: END IF;
460:
461: END Delete_Row;
462:
463: END HZ_CONTACT_PREFERENCES_PKG;