APPS.HZ_ORG_CONTACTS_PKG dependencies on HZ_ORG_CONTACTS

Line 1: PACKAGE BODY HZ_ORG_CONTACTS_PKG AS

1: PACKAGE BODY HZ_ORG_CONTACTS_PKG AS
2: /*$Header: ARHORCTB.pls 120.2 2005/07/29 01:26:26 jhuang ship $ */
3:
4: PROCEDURE Insert_Row (
5: X_ORG_CONTACT_ID IN OUT NOCOPY NUMBER,

Line 55: INSERT INTO HZ_ORG_CONTACTS (

51:
52: BEGIN
53: WHILE l_success = 'N' LOOP
54: BEGIN
55: INSERT INTO HZ_ORG_CONTACTS (
56: ORG_CONTACT_ID,
57: PARTY_RELATIONSHIP_ID,
58: COMMENTS,
59: CONTACT_NUMBER,

Line 109: DECODE( X_ORG_CONTACT_ID, FND_API.G_MISS_NUM, HZ_ORG_CONTACTS_S.NEXTVAL, NULL, HZ_ORG_CONTACTS_S.NEXTVAL, X_ORG_CONTACT_ID ),

105: APPLICATION_ID,
106: STATUS
107: )
108: VALUES (
109: DECODE( X_ORG_CONTACT_ID, FND_API.G_MISS_NUM, HZ_ORG_CONTACTS_S.NEXTVAL, NULL, HZ_ORG_CONTACTS_S.NEXTVAL, X_ORG_CONTACT_ID ),
110: DECODE( X_PARTY_RELATIONSHIP_ID, FND_API.G_MISS_NUM, NULL, X_PARTY_RELATIONSHIP_ID ),
111: DECODE( X_COMMENTS, FND_API.G_MISS_CHAR, NULL, X_COMMENTS ),
112: DECODE( X_CONTACT_NUMBER, FND_API.G_MISS_CHAR, NULL, X_CONTACT_NUMBER ),
113: DECODE( X_DEPARTMENT_CODE, FND_API.G_MISS_CHAR, NULL, X_DEPARTMENT_CODE ),

Line 129: DECODE( X_ORIG_SYSTEM_REFERENCE, FND_API.G_MISS_CHAR, TO_CHAR(NVL(X_ORG_CONTACT_ID,HZ_ORG_CONTACTS_S.CURRVAL)), NULL, TO_CHAR(NVL(X_ORG_CONTACT_ID,HZ_ORG_CONTACTS_S.CURRVAL)), X_ORIG_SYSTEM_REFERENCE ),

125: HZ_UTILITY_V2PUB.REQUEST_ID,
126: HZ_UTILITY_V2PUB.PROGRAM_APPLICATION_ID,
127: HZ_UTILITY_V2PUB.PROGRAM_ID,
128: HZ_UTILITY_V2PUB.PROGRAM_UPDATE_DATE,
129: DECODE( X_ORIG_SYSTEM_REFERENCE, FND_API.G_MISS_CHAR, TO_CHAR(NVL(X_ORG_CONTACT_ID,HZ_ORG_CONTACTS_S.CURRVAL)), NULL, TO_CHAR(NVL(X_ORG_CONTACT_ID,HZ_ORG_CONTACTS_S.CURRVAL)), X_ORIG_SYSTEM_REFERENCE ),
130: DECODE( X_ATTRIBUTE_CATEGORY, FND_API.G_MISS_CHAR, NULL, X_ATTRIBUTE_CATEGORY ),
131: DECODE( X_ATTRIBUTE1, FND_API.G_MISS_CHAR, NULL, X_ATTRIBUTE1 ),
132: DECODE( X_ATTRIBUTE2, FND_API.G_MISS_CHAR, NULL, X_ATTRIBUTE2 ),
133: DECODE( X_ATTRIBUTE3, FND_API.G_MISS_CHAR, NULL, X_ATTRIBUTE3 ),

Line 169: IF INSTRB( SQLERRM, 'HZ_ORG_CONTACTS_U1' ) <> 0 OR

165: l_success := 'Y';
166:
167: EXCEPTION
168: WHEN DUP_VAL_ON_INDEX THEN
169: IF INSTRB( SQLERRM, 'HZ_ORG_CONTACTS_U1' ) <> 0 OR
170: INSTRB( SQLERRM, 'HZ_ORG_CONTACTS_PK' ) <> 0
171: THEN
172: DECLARE
173: l_count NUMBER;

Line 170: INSTRB( SQLERRM, 'HZ_ORG_CONTACTS_PK' ) <> 0

166:
167: EXCEPTION
168: WHEN DUP_VAL_ON_INDEX THEN
169: IF INSTRB( SQLERRM, 'HZ_ORG_CONTACTS_U1' ) <> 0 OR
170: INSTRB( SQLERRM, 'HZ_ORG_CONTACTS_PK' ) <> 0
171: THEN
172: DECLARE
173: l_count NUMBER;
174: l_dummy VARCHAR2(1);

Line 178: SELECT HZ_ORG_CONTACTS_S.NEXTVAL

174: l_dummy VARCHAR2(1);
175: BEGIN
176: l_count := 1;
177: WHILE l_count > 0 LOOP
178: SELECT HZ_ORG_CONTACTS_S.NEXTVAL
179: INTO X_ORG_CONTACT_ID FROM dual;
180: BEGIN
181: SELECT 'Y' INTO l_dummy
182: FROM HZ_ORG_CONTACTS

Line 182: FROM HZ_ORG_CONTACTS

178: SELECT HZ_ORG_CONTACTS_S.NEXTVAL
179: INTO X_ORG_CONTACT_ID FROM dual;
180: BEGIN
181: SELECT 'Y' INTO l_dummy
182: FROM HZ_ORG_CONTACTS
183: WHERE ORG_CONTACT_ID = X_ORG_CONTACT_ID;
184: l_count := 1;
185: EXCEPTION
186: WHEN NO_DATA_FOUND THEN

Line 249: UPDATE HZ_ORG_CONTACTS SET

245: ) IS
246:
247: BEGIN
248:
249: UPDATE HZ_ORG_CONTACTS SET
250: ORG_CONTACT_ID = DECODE( X_ORG_CONTACT_ID, NULL, ORG_CONTACT_ID, FND_API.G_MISS_NUM, NULL, X_ORG_CONTACT_ID ),
251: PARTY_RELATIONSHIP_ID = DECODE( X_PARTY_RELATIONSHIP_ID, NULL, PARTY_RELATIONSHIP_ID, FND_API.G_MISS_NUM, NULL, X_PARTY_RELATIONSHIP_ID ),
252: COMMENTS = DECODE( X_COMMENTS, NULL, COMMENTS, FND_API.G_MISS_CHAR, NULL, X_COMMENTS ),
253: CONTACT_NUMBER = DECODE( X_CONTACT_NUMBER, NULL, CONTACT_NUMBER, FND_API.G_MISS_CHAR, NULL, X_CONTACT_NUMBER ),

Line 365: SELECT * FROM HZ_ORG_CONTACTS

361: X_APPLICATION_ID IN NUMBER
362: ) IS
363:
364: CURSOR C IS
365: SELECT * FROM HZ_ORG_CONTACTS
366: WHERE ROWID = x_Rowid
367: FOR UPDATE NOWAIT;
368: Recinfo C%ROWTYPE;
369:

Line 671: FROM HZ_ORG_CONTACTS

667: X_ATTRIBUTE24,
668: X_PARTY_SITE_ID,
669: X_CREATED_BY_MODULE,
670: X_APPLICATION_ID
671: FROM HZ_ORG_CONTACTS
672: WHERE ORG_CONTACT_ID = X_ORG_CONTACT_ID;
673:
674: EXCEPTION
675: WHEN NO_DATA_FOUND THEN

Line 690: DELETE FROM HZ_ORG_CONTACTS

686: ) IS
687:
688: BEGIN
689:
690: DELETE FROM HZ_ORG_CONTACTS
691: WHERE ORG_CONTACT_ID = X_ORG_CONTACT_ID;
692:
693: IF ( SQL%NOTFOUND ) THEN
694: RAISE NO_DATA_FOUND;

Line 699: END HZ_ORG_CONTACTS_PKG;

695: END IF;
696:
697: END Delete_Row;
698:
699: END HZ_ORG_CONTACTS_PKG;