APPS.HZ_ORG_CONTACT_ROLES_PKG dependencies on HZ_ORG_CONTACT_ROLES

Line 1: PACKAGE BODY HZ_ORG_CONTACT_ROLES_PKG AS

1: PACKAGE BODY HZ_ORG_CONTACT_ROLES_PKG AS
2: /*$Header: ARHOCRTB.pls 115.9 2002/11/21 19:40:41 sponnamb ship $ */
3:
4: PROCEDURE Insert_Row (
5: X_ORG_CONTACT_ROLE_ID IN OUT NOCOPY NUMBER,

Line 24: INSERT INTO HZ_ORG_CONTACT_ROLES (

20: BEGIN
21:
22: WHILE l_success = 'N' LOOP
23: BEGIN
24: INSERT INTO HZ_ORG_CONTACT_ROLES (
25: ORG_CONTACT_ROLE_ID,
26: ORG_CONTACT_ID,
27: ROLE_TYPE,
28: CREATED_BY,

Line 47: DECODE( X_ORG_CONTACT_ROLE_ID, FND_API.G_MISS_NUM, HZ_ORG_CONTACT_ROLES_S.NEXTVAL, NULL, HZ_ORG_CONTACT_ROLES_S.NEXTVAL, X_ORG_CONTACT_ROLE_ID ),

43: CREATED_BY_MODULE,
44: APPLICATION_ID
45: )
46: VALUES (
47: DECODE( X_ORG_CONTACT_ROLE_ID, FND_API.G_MISS_NUM, HZ_ORG_CONTACT_ROLES_S.NEXTVAL, NULL, HZ_ORG_CONTACT_ROLES_S.NEXTVAL, X_ORG_CONTACT_ROLE_ID ),
48: DECODE( X_ORG_CONTACT_ID, FND_API.G_MISS_NUM, NULL, X_ORG_CONTACT_ID ),
49: DECODE( X_ROLE_TYPE, FND_API.G_MISS_CHAR, NULL, X_ROLE_TYPE ),
50: HZ_UTILITY_V2PUB.CREATED_BY,
51: DECODE( X_ROLE_LEVEL, FND_API.G_MISS_CHAR, 'N', NULL, 'N', X_ROLE_LEVEL ),

Line 54: DECODE( X_ORIG_SYSTEM_REFERENCE, FND_API.G_MISS_CHAR, TO_CHAR(NVL(X_ORG_CONTACT_ROLE_ID,HZ_ORG_CONTACT_ROLES_S.CURRVAL)), NULL, TO_CHAR(NVL(X_ORG_CONTACT_ROLE_ID,HZ_ORG_CONTACT_ROLES_S.CURRVAL)), X_ORIG_SYSTEM_REFERENCE ),

50: HZ_UTILITY_V2PUB.CREATED_BY,
51: DECODE( X_ROLE_LEVEL, FND_API.G_MISS_CHAR, 'N', NULL, 'N', X_ROLE_LEVEL ),
52: DECODE( X_PRIMARY_FLAG, FND_API.G_MISS_CHAR, 'N', NULL, 'N', X_PRIMARY_FLAG ),
53: HZ_UTILITY_V2PUB.CREATION_DATE,
54: DECODE( X_ORIG_SYSTEM_REFERENCE, FND_API.G_MISS_CHAR, TO_CHAR(NVL(X_ORG_CONTACT_ROLE_ID,HZ_ORG_CONTACT_ROLES_S.CURRVAL)), NULL, TO_CHAR(NVL(X_ORG_CONTACT_ROLE_ID,HZ_ORG_CONTACT_ROLES_S.CURRVAL)), X_ORIG_SYSTEM_REFERENCE ),
55: HZ_UTILITY_V2PUB.LAST_UPDATE_LOGIN,
56: HZ_UTILITY_V2PUB.LAST_UPDATE_DATE,
57: HZ_UTILITY_V2PUB.LAST_UPDATED_BY,
58: HZ_UTILITY_V2PUB.REQUEST_ID,

Line 76: IF INSTRB( SQLERRM, 'HZ_ORG_CONTACT_ROLES_U1' ) <> 0 OR

72: l_success := 'Y';
73:
74: EXCEPTION
75: WHEN DUP_VAL_ON_INDEX THEN
76: IF INSTRB( SQLERRM, 'HZ_ORG_CONTACT_ROLES_U1' ) <> 0 OR
77: INSTRB( SQLERRM, 'HZ_ORG_CONTACT_ROLES_PK' ) <> 0
78: THEN
79: DECLARE
80: l_count NUMBER;

Line 77: INSTRB( SQLERRM, 'HZ_ORG_CONTACT_ROLES_PK' ) <> 0

73:
74: EXCEPTION
75: WHEN DUP_VAL_ON_INDEX THEN
76: IF INSTRB( SQLERRM, 'HZ_ORG_CONTACT_ROLES_U1' ) <> 0 OR
77: INSTRB( SQLERRM, 'HZ_ORG_CONTACT_ROLES_PK' ) <> 0
78: THEN
79: DECLARE
80: l_count NUMBER;
81: l_dummy VARCHAR2(1);

Line 85: SELECT HZ_ORG_CONTACT_ROLES_S.NEXTVAL

81: l_dummy VARCHAR2(1);
82: BEGIN
83: l_count := 1;
84: WHILE l_count > 0 LOOP
85: SELECT HZ_ORG_CONTACT_ROLES_S.NEXTVAL
86: INTO X_ORG_CONTACT_ROLE_ID FROM dual;
87: BEGIN
88: SELECT 'Y' INTO l_dummy
89: FROM HZ_ORG_CONTACT_ROLES

Line 89: FROM HZ_ORG_CONTACT_ROLES

85: SELECT HZ_ORG_CONTACT_ROLES_S.NEXTVAL
86: INTO X_ORG_CONTACT_ROLE_ID FROM dual;
87: BEGIN
88: SELECT 'Y' INTO l_dummy
89: FROM HZ_ORG_CONTACT_ROLES
90: WHERE ORG_CONTACT_ROLE_ID = X_ORG_CONTACT_ROLE_ID;
91: l_count := 1;
92: EXCEPTION
93: WHEN NO_DATA_FOUND THEN

Line 124: UPDATE HZ_ORG_CONTACT_ROLES SET

120: ) IS
121:
122: BEGIN
123:
124: UPDATE HZ_ORG_CONTACT_ROLES SET
125: ORG_CONTACT_ROLE_ID = DECODE( X_ORG_CONTACT_ROLE_ID, NULL, ORG_CONTACT_ROLE_ID, FND_API.G_MISS_NUM, NULL, X_ORG_CONTACT_ROLE_ID ),
126: ORG_CONTACT_ID = DECODE( X_ORG_CONTACT_ID, NULL, ORG_CONTACT_ID, FND_API.G_MISS_NUM, NULL, X_ORG_CONTACT_ID ),
127: ROLE_TYPE = DECODE( X_ROLE_TYPE, NULL, ROLE_TYPE, FND_API.G_MISS_CHAR, NULL, X_ROLE_TYPE ),
128: CREATED_BY = CREATED_BY,

Line 178: SELECT * FROM HZ_ORG_CONTACT_ROLES

174: X_APPLICATION_ID IN NUMBER
175: ) IS
176:
177: CURSOR C IS
178: SELECT * FROM HZ_ORG_CONTACT_ROLES
179: WHERE ROWID = x_Rowid
180: FOR UPDATE NOWAIT;
181: Recinfo C%ROWTYPE;
182:

Line 301: FROM HZ_ORG_CONTACT_ROLES

297: X_PRIMARY_CON_PER_ROLE_TYPE,
298: X_STATUS,
299: X_CREATED_BY_MODULE,
300: X_APPLICATION_ID
301: FROM HZ_ORG_CONTACT_ROLES
302: WHERE ORG_CONTACT_ROLE_ID = X_ORG_CONTACT_ROLE_ID;
303:
304: EXCEPTION
305: WHEN NO_DATA_FOUND THEN

Line 320: DELETE FROM HZ_ORG_CONTACT_ROLES

316: ) IS
317:
318: BEGIN
319:
320: DELETE FROM HZ_ORG_CONTACT_ROLES
321: WHERE ORG_CONTACT_ROLE_ID = X_ORG_CONTACT_ROLE_ID;
322:
323: IF ( SQL%NOTFOUND ) THEN
324: RAISE NO_DATA_FOUND;

Line 329: END HZ_ORG_CONTACT_ROLES_PKG;

325: END IF;
326:
327: END Delete_Row;
328:
329: END HZ_ORG_CONTACT_ROLES_PKG;