45: -- Version Initial version number = 1.0
46: -- History Current version number = 1.0
47: --=======================================================
48: procedure DOWNLOAD_RESP (
49: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
50: p_api_version_number IN NUMBER,
51: p_init_msg_tbl IN BOOLEAN := FALSE,
52: p_msg_count OUT NOCOPY NUMBER,
53: p_msg_data OUT NOCOPY VARCHAR2,
51: p_init_msg_tbl IN BOOLEAN := FALSE,
52: p_msg_count OUT NOCOPY NUMBER,
53: p_msg_data OUT NOCOPY VARCHAR2,
54: p_return_status OUT NOCOPY VARCHAR2,
55: p_nls_language IN VARCHAR2 := FND_API.G_MISS_CHAR,
56: p_application_id IN NUMBER := FND_API.G_MISS_NUM,
57: p_application_short_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
58: p_excluded_pk_tbl IN AK_SECURITY_PUB.Resp_PK_Tbl_Type :=
59: AK_SECURITY_PUB.G_MISS_RESP_PK_TBL,
52: p_msg_count OUT NOCOPY NUMBER,
53: p_msg_data OUT NOCOPY VARCHAR2,
54: p_return_status OUT NOCOPY VARCHAR2,
55: p_nls_language IN VARCHAR2 := FND_API.G_MISS_CHAR,
56: p_application_id IN NUMBER := FND_API.G_MISS_NUM,
57: p_application_short_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
58: p_excluded_pk_tbl IN AK_SECURITY_PUB.Resp_PK_Tbl_Type :=
59: AK_SECURITY_PUB.G_MISS_RESP_PK_TBL,
60: p_resp_pk_tbl IN AK_SECURITY_PUB.Resp_PK_Tbl_Type :=
53: p_msg_data OUT NOCOPY VARCHAR2,
54: p_return_status OUT NOCOPY VARCHAR2,
55: p_nls_language IN VARCHAR2 := FND_API.G_MISS_CHAR,
56: p_application_id IN NUMBER := FND_API.G_MISS_NUM,
57: p_application_short_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
58: p_excluded_pk_tbl IN AK_SECURITY_PUB.Resp_PK_Tbl_Type :=
59: AK_SECURITY_PUB.G_MISS_RESP_PK_TBL,
60: p_resp_pk_tbl IN AK_SECURITY_PUB.Resp_PK_Tbl_Type :=
61: AK_SECURITY_PUB.G_MISS_RESP_PK_TBL
70: begin
71: --
72: -- Check verion number
73: --
74: IF NOT FND_API.Compatible_API_Call (
75: l_api_version_number, p_api_version_number, l_api_name,
76: G_PKG_NAME) then
77: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
78: return;
73: --
74: IF NOT FND_API.Compatible_API_Call (
75: l_api_version_number, p_api_version_number, l_api_name,
76: G_PKG_NAME) then
77: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
78: return;
79: END IF;
80:
81: -- Initialize the message table if requested.
111:
112: --
113: -- If API call returns with an error status...
114: --
115: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
116: (l_return_status = FND_API.G_RET_STS_ERROR) then
117: RAISE FND_API.G_EXC_ERROR;
118: end if;
119:
112: --
113: -- If API call returns with an error status...
114: --
115: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
116: (l_return_status = FND_API.G_RET_STS_ERROR) then
117: RAISE FND_API.G_EXC_ERROR;
118: end if;
119:
120: --
113: -- If API call returns with an error status...
114: --
115: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
116: (l_return_status = FND_API.G_RET_STS_ERROR) then
117: RAISE FND_API.G_EXC_ERROR;
118: end if;
119:
120: --
121: -- - call the download procedure for attributes to retrieve the
136: --
137: -- If download call returns with an error status or
138: -- download failed to retrieve any information from the database..
139: --
140: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
141: (l_return_status = FND_API.G_RET_STS_ERROR) then
142: RAISE FND_API.G_EXC_ERROR;
143: end if;
144:
137: -- If download call returns with an error status or
138: -- download failed to retrieve any information from the database..
139: --
140: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
141: (l_return_status = FND_API.G_RET_STS_ERROR) then
142: RAISE FND_API.G_EXC_ERROR;
143: end if;
144:
145: AK_SECURITY_PVT.DOWNLOAD_RESP_SEC(
138: -- download failed to retrieve any information from the database..
139: --
140: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
141: (l_return_status = FND_API.G_RET_STS_ERROR) then
142: RAISE FND_API.G_EXC_ERROR;
143: end if;
144:
145: AK_SECURITY_PVT.DOWNLOAD_RESP_SEC(
146: p_validation_level => p_validation_level,
154: --
155: -- If download call returns with an error status or
156: -- download failed to retrieve any information from the database..
157: --
158: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
159: (l_return_status = FND_API.G_RET_STS_ERROR) then
160: RAISE FND_API.G_EXC_ERROR;
161: end if;
162:
155: -- If download call returns with an error status or
156: -- download failed to retrieve any information from the database..
157: --
158: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
159: (l_return_status = FND_API.G_RET_STS_ERROR) then
160: RAISE FND_API.G_EXC_ERROR;
161: end if;
162:
163: p_return_status := FND_API.G_RET_STS_SUCCESS;
156: -- download failed to retrieve any information from the database..
157: --
158: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
159: (l_return_status = FND_API.G_RET_STS_ERROR) then
160: RAISE FND_API.G_EXC_ERROR;
161: end if;
162:
163: p_return_status := FND_API.G_RET_STS_SUCCESS;
164:
159: (l_return_status = FND_API.G_RET_STS_ERROR) then
160: RAISE FND_API.G_EXC_ERROR;
161: end if;
162:
163: p_return_status := FND_API.G_RET_STS_SUCCESS;
164:
165: FND_MSG_PUB.Count_And_Get (
166: p_count => p_msg_count,
167: p_data => p_msg_data);
166: p_count => p_msg_count,
167: p_data => p_msg_data);
168:
169: EXCEPTION
170: WHEN FND_API.G_EXC_ERROR THEN
171: p_return_status := FND_API.G_RET_STS_ERROR;
172: FND_MSG_PUB.Count_And_Get (
173: p_count => p_msg_count,
174: p_data => p_msg_data);
167: p_data => p_msg_data);
168:
169: EXCEPTION
170: WHEN FND_API.G_EXC_ERROR THEN
171: p_return_status := FND_API.G_RET_STS_ERROR;
172: FND_MSG_PUB.Count_And_Get (
173: p_count => p_msg_count,
174: p_data => p_msg_data);
175: WHEN OTHERS THEN
172: FND_MSG_PUB.Count_And_Get (
173: p_count => p_msg_count,
174: p_data => p_msg_data);
175: WHEN OTHERS THEN
176: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
177: FND_MSG_PUB.Build_Exc_Msg( G_PKG_NAME, l_api_name,
178: SUBSTR (SQLERRM, 1, 240) );
179: FND_MSG_PUB.Add;
180: FND_MSG_PUB.Count_And_Get (
201: -- Version Initial version number = 1.0
202: -- History Current version number = 1.0
203: --=======================================================
204: procedure CREATE_EXCLUDED_ITEM (
205: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
206: p_api_version_number IN NUMBER,
207: p_init_msg_tbl IN BOOLEAN := FALSE,
208: p_msg_count OUT NOCOPY NUMBER,
209: p_msg_data OUT NOCOPY VARCHAR2,
211: p_responsibility_id IN NUMBER,
212: p_resp_application_id IN NUMBER,
213: p_attribute_code IN VARCHAR2,
214: p_attribute_application_id IN NUMBER,
215: p_created_by IN NUMBER := FND_API.G_MISS_NUM,
216: p_creation_date IN DATE := FND_API.G_MISS_DATE,
217: p_last_updated_by IN NUMBER := FND_API.G_MISS_NUM,
218: p_last_update_date IN DATE := FND_API.G_MISS_DATE,
219: p_last_update_login IN NUMBER := FND_API.G_MISS_NUM
212: p_resp_application_id IN NUMBER,
213: p_attribute_code IN VARCHAR2,
214: p_attribute_application_id IN NUMBER,
215: p_created_by IN NUMBER := FND_API.G_MISS_NUM,
216: p_creation_date IN DATE := FND_API.G_MISS_DATE,
217: p_last_updated_by IN NUMBER := FND_API.G_MISS_NUM,
218: p_last_update_date IN DATE := FND_API.G_MISS_DATE,
219: p_last_update_login IN NUMBER := FND_API.G_MISS_NUM
220: ) is
213: p_attribute_code IN VARCHAR2,
214: p_attribute_application_id IN NUMBER,
215: p_created_by IN NUMBER := FND_API.G_MISS_NUM,
216: p_creation_date IN DATE := FND_API.G_MISS_DATE,
217: p_last_updated_by IN NUMBER := FND_API.G_MISS_NUM,
218: p_last_update_date IN DATE := FND_API.G_MISS_DATE,
219: p_last_update_login IN NUMBER := FND_API.G_MISS_NUM
220: ) is
221: l_api_version_number CONSTANT number := 1.0;
214: p_attribute_application_id IN NUMBER,
215: p_created_by IN NUMBER := FND_API.G_MISS_NUM,
216: p_creation_date IN DATE := FND_API.G_MISS_DATE,
217: p_last_updated_by IN NUMBER := FND_API.G_MISS_NUM,
218: p_last_update_date IN DATE := FND_API.G_MISS_DATE,
219: p_last_update_login IN NUMBER := FND_API.G_MISS_NUM
220: ) is
221: l_api_version_number CONSTANT number := 1.0;
222: l_api_name CONSTANT varchar2(30) := 'Create_Excluded_Items';
215: p_created_by IN NUMBER := FND_API.G_MISS_NUM,
216: p_creation_date IN DATE := FND_API.G_MISS_DATE,
217: p_last_updated_by IN NUMBER := FND_API.G_MISS_NUM,
218: p_last_update_date IN DATE := FND_API.G_MISS_DATE,
219: p_last_update_login IN NUMBER := FND_API.G_MISS_NUM
220: ) is
221: l_api_version_number CONSTANT number := 1.0;
222: l_api_name CONSTANT varchar2(30) := 'Create_Excluded_Items';
223: l_return_status VARCHAR2(1);
222: l_api_name CONSTANT varchar2(30) := 'Create_Excluded_Items';
223: l_return_status VARCHAR2(1);
224: begin
225: /* Check API version number */
226: IF NOT FND_API.Compatible_API_Call (
227: l_api_version_number, p_api_version_number, l_api_name,
228: G_PKG_NAME) then
229: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
230: return;
225: /* Check API version number */
226: IF NOT FND_API.Compatible_API_Call (
227: l_api_version_number, p_api_version_number, l_api_name,
228: G_PKG_NAME) then
229: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
230: return;
231: END IF;
232:
233: -- Initialize the message table if requested.
260:
261: --
262: -- If API call returns with an error status...
263: --
264: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
265: (l_return_status = FND_API.G_RET_STS_ERROR) then
266: RAISE FND_API.G_EXC_ERROR;
267: end if;
268:
261: --
262: -- If API call returns with an error status...
263: --
264: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
265: (l_return_status = FND_API.G_RET_STS_ERROR) then
266: RAISE FND_API.G_EXC_ERROR;
267: end if;
268:
269: p_return_status := FND_API.G_RET_STS_SUCCESS;
262: -- If API call returns with an error status...
263: --
264: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
265: (l_return_status = FND_API.G_RET_STS_ERROR) then
266: RAISE FND_API.G_EXC_ERROR;
267: end if;
268:
269: p_return_status := FND_API.G_RET_STS_SUCCESS;
270:
265: (l_return_status = FND_API.G_RET_STS_ERROR) then
266: RAISE FND_API.G_EXC_ERROR;
267: end if;
268:
269: p_return_status := FND_API.G_RET_STS_SUCCESS;
270:
271: EXCEPTION
272: WHEN FND_API.G_EXC_ERROR THEN
273: p_return_status := FND_API.G_RET_STS_ERROR;
268:
269: p_return_status := FND_API.G_RET_STS_SUCCESS;
270:
271: EXCEPTION
272: WHEN FND_API.G_EXC_ERROR THEN
273: p_return_status := FND_API.G_RET_STS_ERROR;
274: rollback to start_create_excluded_item;
275: WHEN OTHERS THEN
276: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
269: p_return_status := FND_API.G_RET_STS_SUCCESS;
270:
271: EXCEPTION
272: WHEN FND_API.G_EXC_ERROR THEN
273: p_return_status := FND_API.G_RET_STS_ERROR;
274: rollback to start_create_excluded_item;
275: WHEN OTHERS THEN
276: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
277: FND_MSG_PUB.Build_Exc_Msg( G_PKG_NAME, l_api_name,
272: WHEN FND_API.G_EXC_ERROR THEN
273: p_return_status := FND_API.G_RET_STS_ERROR;
274: rollback to start_create_excluded_item;
275: WHEN OTHERS THEN
276: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
277: FND_MSG_PUB.Build_Exc_Msg( G_PKG_NAME, l_api_name,
278: SUBSTR (SQLERRM, 1, 240) );
279: FND_MSG_PUB.Add;
280: rollback to start_create_excluded_item;
298: -- Version Initial version number = 1.0
299: -- History Current version number = 1.0
300: --=======================================================
301: procedure CREATE_RESP_SECURITY_ATTR (
302: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
303: p_api_version_number IN NUMBER,
304: p_init_msg_tbl IN BOOLEAN := FALSE,
305: p_msg_count OUT NOCOPY NUMBER,
306: p_msg_data OUT NOCOPY VARCHAR2,
308: p_responsibility_id IN NUMBER,
309: p_resp_application_id IN NUMBER,
310: p_attribute_code IN VARCHAR2,
311: p_attribute_application_id IN NUMBER,
312: p_created_by IN NUMBER := FND_API.G_MISS_NUM,
313: p_creation_date IN DATE := FND_API.G_MISS_DATE,
314: p_last_updated_by IN NUMBER := FND_API.G_MISS_NUM,
315: p_last_update_date IN DATE := FND_API.G_MISS_DATE,
316: p_last_update_login IN NUMBER := FND_API.G_MISS_NUM
309: p_resp_application_id IN NUMBER,
310: p_attribute_code IN VARCHAR2,
311: p_attribute_application_id IN NUMBER,
312: p_created_by IN NUMBER := FND_API.G_MISS_NUM,
313: p_creation_date IN DATE := FND_API.G_MISS_DATE,
314: p_last_updated_by IN NUMBER := FND_API.G_MISS_NUM,
315: p_last_update_date IN DATE := FND_API.G_MISS_DATE,
316: p_last_update_login IN NUMBER := FND_API.G_MISS_NUM
317: ) is
310: p_attribute_code IN VARCHAR2,
311: p_attribute_application_id IN NUMBER,
312: p_created_by IN NUMBER := FND_API.G_MISS_NUM,
313: p_creation_date IN DATE := FND_API.G_MISS_DATE,
314: p_last_updated_by IN NUMBER := FND_API.G_MISS_NUM,
315: p_last_update_date IN DATE := FND_API.G_MISS_DATE,
316: p_last_update_login IN NUMBER := FND_API.G_MISS_NUM
317: ) is
318: l_api_version_number CONSTANT number := 1.0;
311: p_attribute_application_id IN NUMBER,
312: p_created_by IN NUMBER := FND_API.G_MISS_NUM,
313: p_creation_date IN DATE := FND_API.G_MISS_DATE,
314: p_last_updated_by IN NUMBER := FND_API.G_MISS_NUM,
315: p_last_update_date IN DATE := FND_API.G_MISS_DATE,
316: p_last_update_login IN NUMBER := FND_API.G_MISS_NUM
317: ) is
318: l_api_version_number CONSTANT number := 1.0;
319: l_api_name CONSTANT varchar2(30) := 'Create_Resp_Sec_Attr';
312: p_created_by IN NUMBER := FND_API.G_MISS_NUM,
313: p_creation_date IN DATE := FND_API.G_MISS_DATE,
314: p_last_updated_by IN NUMBER := FND_API.G_MISS_NUM,
315: p_last_update_date IN DATE := FND_API.G_MISS_DATE,
316: p_last_update_login IN NUMBER := FND_API.G_MISS_NUM
317: ) is
318: l_api_version_number CONSTANT number := 1.0;
319: l_api_name CONSTANT varchar2(30) := 'Create_Resp_Sec_Attr';
320: l_return_status VARCHAR2(1);
319: l_api_name CONSTANT varchar2(30) := 'Create_Resp_Sec_Attr';
320: l_return_status VARCHAR2(1);
321: begin
322: /* Check API version number */
323: IF NOT FND_API.Compatible_API_Call (
324: l_api_version_number, p_api_version_number, l_api_name,
325: G_PKG_NAME) then
326: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
327: return;
322: /* Check API version number */
323: IF NOT FND_API.Compatible_API_Call (
324: l_api_version_number, p_api_version_number, l_api_name,
325: G_PKG_NAME) then
326: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
327: return;
328: END IF;
329:
330: -- Initialize the message table if requested.
357:
358: --
359: -- If API call returns with an error status...
360: --
361: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
362: (l_return_status = FND_API.G_RET_STS_ERROR) then
363: RAISE FND_API.G_EXC_ERROR;
364: end if;
365:
358: --
359: -- If API call returns with an error status...
360: --
361: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
362: (l_return_status = FND_API.G_RET_STS_ERROR) then
363: RAISE FND_API.G_EXC_ERROR;
364: end if;
365:
366: p_return_status := FND_API.G_RET_STS_SUCCESS;
359: -- If API call returns with an error status...
360: --
361: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
362: (l_return_status = FND_API.G_RET_STS_ERROR) then
363: RAISE FND_API.G_EXC_ERROR;
364: end if;
365:
366: p_return_status := FND_API.G_RET_STS_SUCCESS;
367:
362: (l_return_status = FND_API.G_RET_STS_ERROR) then
363: RAISE FND_API.G_EXC_ERROR;
364: end if;
365:
366: p_return_status := FND_API.G_RET_STS_SUCCESS;
367:
368: EXCEPTION
369: WHEN FND_API.G_EXC_ERROR THEN
370: p_return_status := FND_API.G_RET_STS_ERROR;
365:
366: p_return_status := FND_API.G_RET_STS_SUCCESS;
367:
368: EXCEPTION
369: WHEN FND_API.G_EXC_ERROR THEN
370: p_return_status := FND_API.G_RET_STS_ERROR;
371: rollback to start_create_resp_sec_attr;
372: WHEN OTHERS THEN
373: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
366: p_return_status := FND_API.G_RET_STS_SUCCESS;
367:
368: EXCEPTION
369: WHEN FND_API.G_EXC_ERROR THEN
370: p_return_status := FND_API.G_RET_STS_ERROR;
371: rollback to start_create_resp_sec_attr;
372: WHEN OTHERS THEN
373: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
374: FND_MSG_PUB.Build_Exc_Msg( G_PKG_NAME, l_api_name,
369: WHEN FND_API.G_EXC_ERROR THEN
370: p_return_status := FND_API.G_RET_STS_ERROR;
371: rollback to start_create_resp_sec_attr;
372: WHEN OTHERS THEN
373: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
374: FND_MSG_PUB.Build_Exc_Msg( G_PKG_NAME, l_api_name,
375: SUBSTR (SQLERRM, 1, 240) );
376: FND_MSG_PUB.Add;
377: rollback to start_create_resp_sec_attr;