APPS.HZ_PERSON_INTEREST_PKG dependencies on HZ_PERSON_INTEREST

Line 1: PACKAGE BODY HZ_PERSON_INTEREST_PKG as

1: PACKAGE BODY HZ_PERSON_INTEREST_PKG as
2: /* $Header: ARHPINTB.pls 120.8 2005/10/30 03:54:13 appldev ship $ */
3:
4:
5: PROCEDURE Insert_Row(

Line 28: INSERT INTO HZ_PERSON_INTEREST(

24: BEGIN
25:
26: WHILE l_success = 'N' LOOP
27: BEGIN
28: INSERT INTO HZ_PERSON_INTEREST(
29: PERSON_INTEREST_ID,
30: LEVEL_OF_INTEREST,
31: PARTY_ID,
32: LEVEL_OF_PARTICIPATION,

Line 55: DECODE( x_PERSON_INTEREST_ID, FND_API.G_MISS_NUM, HZ_PERSON_INTEREST_S.NEXTVAL, NULL, HZ_PERSON_INTEREST_S.NEXTVAL, X_PERSON_INTEREST_ID ),

51: CREATED_BY_MODULE,
52: APPLICATION_ID
53:
54: ) VALUES (
55: DECODE( x_PERSON_INTEREST_ID, FND_API.G_MISS_NUM, HZ_PERSON_INTEREST_S.NEXTVAL, NULL, HZ_PERSON_INTEREST_S.NEXTVAL, X_PERSON_INTEREST_ID ),
56: decode( x_LEVEL_OF_INTEREST, FND_API.G_MISS_CHAR, NULL,x_LEVEL_OF_INTEREST),
57: decode( x_PARTY_ID, FND_API.G_MISS_NUM, NULL,x_PARTY_ID),
58: decode( x_LEVEL_OF_PARTICIPATION, FND_API.G_MISS_CHAR, NULL,x_LEVEL_OF_PARTICIPATION),
59: decode( x_INTEREST_TYPE_CODE, FND_API.G_MISS_CHAR, NULL,x_INTEREST_TYPE_CODE),

Line 89: IF INSTRB( SQLERRM, 'HZ_PERSON_INTEREST_U1' ) <> 0 OR

85: l_success := 'Y';
86:
87: EXCEPTION
88: WHEN DUP_VAL_ON_INDEX THEN
89: IF INSTRB( SQLERRM, 'HZ_PERSON_INTEREST_U1' ) <> 0 OR
90: INSTRB( SQLERRM, 'HZ_PERSON_INTEREST_PK' ) <> 0
91: THEN
92: DECLARE
93: l_count NUMBER;

Line 90: INSTRB( SQLERRM, 'HZ_PERSON_INTEREST_PK' ) <> 0

86:
87: EXCEPTION
88: WHEN DUP_VAL_ON_INDEX THEN
89: IF INSTRB( SQLERRM, 'HZ_PERSON_INTEREST_U1' ) <> 0 OR
90: INSTRB( SQLERRM, 'HZ_PERSON_INTEREST_PK' ) <> 0
91: THEN
92: DECLARE
93: l_count NUMBER;
94: l_dummy VARCHAR2(1);

Line 98: SELECT HZ_PERSON_INTEREST_S.NEXTVAL

94: l_dummy VARCHAR2(1);
95: BEGIN
96: l_count := 1;
97: WHILE l_count > 0 LOOP
98: SELECT HZ_PERSON_INTEREST_S.NEXTVAL
99: INTO X_PERSON_INTEREST_ID FROM dual;
100: BEGIN
101: SELECT 'Y' INTO l_dummy
102: FROM HZ_PERSON_INTEREST

Line 102: FROM HZ_PERSON_INTEREST

98: SELECT HZ_PERSON_INTEREST_S.NEXTVAL
99: INTO X_PERSON_INTEREST_ID FROM dual;
100: BEGIN
101: SELECT 'Y' INTO l_dummy
102: FROM HZ_PERSON_INTEREST
103: WHERE PERSON_INTEREST_ID = X_PERSON_INTEREST_ID;
104: l_count := 1;
105: EXCEPTION
106: WHEN NO_DATA_FOUND THEN

Line 124: DELETE FROM HZ_PERSON_INTEREST

120:
121: PROCEDURE Delete_Row( x_PERSON_INTEREST_ID NUMBER
122: ) IS
123: BEGIN
124: DELETE FROM HZ_PERSON_INTEREST
125: WHERE PERSON_INTEREST_ID = x_PERSON_INTEREST_ID;
126: If (SQL%NOTFOUND) then
127: RAISE NO_DATA_FOUND;
128: End If;

Line 152: Update HZ_PERSON_INTEREST

148: x_CREATED_BY_MODULE IN VARCHAR2,
149: x_APPLICATION_ID IN NUMBER
150: ) IS
151: BEGIN
152: Update HZ_PERSON_INTEREST
153: SET
154: PERSON_INTEREST_ID = decode( x_PERSON_INTEREST_ID, NULL, PERSON_INTEREST_ID, FND_API.G_MISS_NUM, NULL, x_PERSON_INTEREST_ID),
155: LEVEL_OF_INTEREST = decode( x_LEVEL_OF_INTEREST, NULL , LEVEL_OF_INTEREST, FND_API.G_MISS_CHAR, NULL, x_LEVEL_OF_INTEREST),
156: PARTY_ID = decode( x_PARTY_ID, NULL, PARTY_ID, FND_API.G_MISS_NUM, NULL, x_PARTY_ID),

Line 218: FROM HZ_PERSON_INTEREST

214: x_CREATED_BY_MODULE IN VARCHAR2
215: ) IS
216: CURSOR C IS
217: SELECT *
218: FROM HZ_PERSON_INTEREST
219: WHERE rowid = x_Rowid
220: FOR UPDATE of PERSON_INTEREST_ID NOWAIT;
221: Recinfo C%ROWTYPE;
222: BEGIN

Line 353: FROM HZ_PERSON_INTEREST

349: x_since,
350: x_status,
351: x_application_id,
352: x_created_by_module
353: FROM HZ_PERSON_INTEREST
354: WHERE person_interest_id = x_person_interest_id;
355:
356: EXCEPTION
357: WHEN NO_DATA_FOUND THEN

Line 368: END HZ_PERSON_INTEREST_PKG;

364:
365: END Select_Row;
366:
367:
368: END HZ_PERSON_INTEREST_PKG;