APPS.HZ_CITIZENSHIP_PKG dependencies on HZ_CITIZENSHIP

Line 1: PACKAGE BODY HZ_CITIZENSHIP_PKG as

1: PACKAGE BODY HZ_CITIZENSHIP_PKG as
2: /* $Header: ARHPCITB.pls 120.5 2005/10/30 04:21:28 appldev ship $ */
3:
4:
5:

Line 31: INSERT INTO HZ_CITIZENSHIP(

27: WHILE l_success = 'N' LOOP
28:
29: BEGIN
30:
31: INSERT INTO HZ_CITIZENSHIP(
32: CITIZENSHIP_ID,
33: BIRTH_OR_SELECTED,
34: PARTY_ID,
35: COUNTRY_CODE,

Line 55: decode( X_CITIZENSHIP_ID, FND_API.G_MISS_NUM, HZ_CITIZENSHIP_S.NEXTVAL, NULL, HZ_CITIZENSHIP_S.NEXTVAL, X_CITIZENSHIP_ID ),

51: OBJECT_VERSION_NUMBER,
52: CREATED_BY_MODULE,
53: APPLICATION_ID
54: ) VALUES (
55: decode( X_CITIZENSHIP_ID, FND_API.G_MISS_NUM, HZ_CITIZENSHIP_S.NEXTVAL, NULL, HZ_CITIZENSHIP_S.NEXTVAL, X_CITIZENSHIP_ID ),
56: decode( x_BIRTH_OR_SELECTED, FND_API.G_MISS_CHAR, NULL,x_BIRTH_OR_SELECTED),
57: decode( x_PARTY_ID, FND_API.G_MISS_NUM, NULL,x_PARTY_ID),
58: decode( x_COUNTRY_CODE, FND_API.G_MISS_CHAR, NULL,x_COUNTRY_CODE),
59: decode( x_DATE_DISOWNED, FND_API.G_MISS_DATE, TO_DATE(NULL),x_DATE_DISOWNED),

Line 87: IF INSTRB( SQLERRM, 'HZ_CITIZENSHIP_U1' ) <> 0 OR

83: l_success := 'Y';
84:
85: EXCEPTION
86: WHEN DUP_VAL_ON_INDEX THEN
87: IF INSTRB( SQLERRM, 'HZ_CITIZENSHIP_U1' ) <> 0 OR
88: INSTRB( SQLERRM, 'HZ_CITIZENSHIP_PK' ) <> 0
89: THEN
90: DECLARE
91: l_count NUMBER;

Line 88: INSTRB( SQLERRM, 'HZ_CITIZENSHIP_PK' ) <> 0

84:
85: EXCEPTION
86: WHEN DUP_VAL_ON_INDEX THEN
87: IF INSTRB( SQLERRM, 'HZ_CITIZENSHIP_U1' ) <> 0 OR
88: INSTRB( SQLERRM, 'HZ_CITIZENSHIP_PK' ) <> 0
89: THEN
90: DECLARE
91: l_count NUMBER;
92: l_dummy VARCHAR2(1);

Line 96: SELECT HZ_CITIZENSHIP_S.NEXTVAL

92: l_dummy VARCHAR2(1);
93: BEGIN
94: l_count := 1;
95: WHILE l_count > 0 LOOP
96: SELECT HZ_CITIZENSHIP_S.NEXTVAL
97: INTO X_CITIZENSHIP_ID FROM dual;
98: BEGIN
99: SELECT 'Y' INTO l_dummy
100: FROM HZ_CITIZENSHIP

Line 100: FROM HZ_CITIZENSHIP

96: SELECT HZ_CITIZENSHIP_S.NEXTVAL
97: INTO X_CITIZENSHIP_ID FROM dual;
98: BEGIN
99: SELECT 'Y' INTO l_dummy
100: FROM HZ_CITIZENSHIP
101: WHERE CITIZENSHIP_ID = CITIZENSHIP_ID;
102: l_count := 1;
103: EXCEPTION
104: WHEN NO_DATA_FOUND THEN

Line 122: DELETE FROM HZ_CITIZENSHIP

118:
119: PROCEDURE Delete_Row( x_CITIZENSHIP_ID NUMBER
120: ) IS
121: BEGIN
122: DELETE FROM HZ_CITIZENSHIP
123: WHERE CITIZENSHIP_ID = x_CITIZENSHIP_ID;
124: If (SQL%NOTFOUND) then
125: RAISE NO_DATA_FOUND;
126: End If;

Line 149: Update HZ_CITIZENSHIP

145: x_APPLICATION_ID IN NUMBER
146:
147: ) IS
148: BEGIN
149: Update HZ_CITIZENSHIP
150: SET
151:
152: CITIZENSHIP_ID = decode( x_CITIZENSHIP_ID, NULL, CITIZENSHIP_ID, FND_API.G_MISS_NUM, NULL, X_CITIZENSHIP_ID ),
153: BIRTH_OR_SELECTED = decode( x_BIRTH_OR_SELECTED, NULL, BIRTH_OR_SELECTED, FND_API.G_MISS_CHAR, NULL, x_BIRTH_OR_SELECTED ),

Line 210: FROM HZ_CITIZENSHIP

206: x_STATUS IN VARCHAR2
207: ) IS
208: CURSOR C IS
209: SELECT *
210: FROM HZ_CITIZENSHIP
211: WHERE rowid = x_Rowid
212: FOR UPDATE of CITIZENSHIP_ID NOWAIT;
213: Recinfo C%ROWTYPE;
214: BEGIN

Line 333: FROM HZ_CITIZENSHIP

329: x_document_type,
330: x_status,
331: x_application_id,
332: x_created_by_module
333: FROM HZ_CITIZENSHIP
334: WHERE citizenship_id = x_citizenship_id;
335:
336: EXCEPTION
337: WHEN NO_DATA_FOUND THEN

Line 346: END HZ_CITIZENSHIP_PKG;

342: RAISE FND_API.G_EXC_ERROR;
343:
344: END Select_Row;
345:
346: END HZ_CITIZENSHIP_PKG;