[Home] [Help]
42: l_api_version_number CONSTANT number := 1.0;
43: l_api_name CONSTANT varchar2(30) := 'Excluded_Item_Exists';
44: l_dummy number;
45: begin
46: IF NOT FND_API.Compatible_API_Call (
47: l_api_version_number, p_api_version_number, l_api_name,
48: G_PKG_NAME) then
49: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
50: return FALSE;
45: begin
46: IF NOT FND_API.Compatible_API_Call (
47: l_api_version_number, p_api_version_number, l_api_name,
48: G_PKG_NAME) then
49: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
50: return FALSE;
51: END IF;
52:
53: open l_check_csr;
53: open l_check_csr;
54: fetch l_check_csr into l_dummy;
55: if (l_check_csr%notfound) then
56: close l_check_csr;
57: p_return_status := FND_API.G_RET_STS_SUCCESS;
58: return FALSE;
59: else
60: close l_check_csr;
61: p_return_status := FND_API.G_RET_STS_SUCCESS;
57: p_return_status := FND_API.G_RET_STS_SUCCESS;
58: return FALSE;
59: else
60: close l_check_csr;
61: p_return_status := FND_API.G_RET_STS_SUCCESS;
62: return TRUE;
63: end if;
64:
65: EXCEPTION
62: return TRUE;
63: end if;
64:
65: EXCEPTION
66: WHEN FND_API.G_EXC_ERROR THEN
67: p_return_status := FND_API.G_RET_STS_ERROR;
68: return FALSE;
69: WHEN OTHERS THEN
70: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
63: end if;
64:
65: EXCEPTION
66: WHEN FND_API.G_EXC_ERROR THEN
67: p_return_status := FND_API.G_RET_STS_ERROR;
68: return FALSE;
69: WHEN OTHERS THEN
70: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
71: FND_MSG_PUB.Build_Exc_Msg( G_PKG_NAME, l_api_name,
66: WHEN FND_API.G_EXC_ERROR THEN
67: p_return_status := FND_API.G_RET_STS_ERROR;
68: return FALSE;
69: WHEN OTHERS THEN
70: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
71: FND_MSG_PUB.Build_Exc_Msg( G_PKG_NAME, l_api_name,
72: SUBSTR (SQLERRM, 1, 240) );
73: FND_MSG_PUB.Add;
74: return FALSE;
117: l_api_version_number CONSTANT number := 1.0;
118: l_api_name CONSTANT varchar2(30) := 'Resp_Security_Attr_Exists';
119: l_dummy number;
120: begin
121: IF NOT FND_API.Compatible_API_Call (
122: l_api_version_number, p_api_version_number, l_api_name,
123: G_PKG_NAME) then
124: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
125: return FALSE;
120: begin
121: IF NOT FND_API.Compatible_API_Call (
122: l_api_version_number, p_api_version_number, l_api_name,
123: G_PKG_NAME) then
124: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
125: return FALSE;
126: END IF;
127:
128: open l_check_csr;
128: open l_check_csr;
129: fetch l_check_csr into l_dummy;
130: if (l_check_csr%notfound) then
131: close l_check_csr;
132: p_return_status := FND_API.G_RET_STS_SUCCESS;
133: return FALSE;
134: else
135: close l_check_csr;
136: p_return_status := FND_API.G_RET_STS_SUCCESS;
132: p_return_status := FND_API.G_RET_STS_SUCCESS;
133: return FALSE;
134: else
135: close l_check_csr;
136: p_return_status := FND_API.G_RET_STS_SUCCESS;
137: return TRUE;
138: end if;
139:
140: EXCEPTION
137: return TRUE;
138: end if;
139:
140: EXCEPTION
141: WHEN FND_API.G_EXC_ERROR THEN
142: p_return_status := FND_API.G_RET_STS_ERROR;
143: return FALSE;
144: WHEN OTHERS THEN
145: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
138: end if;
139:
140: EXCEPTION
141: WHEN FND_API.G_EXC_ERROR THEN
142: p_return_status := FND_API.G_RET_STS_ERROR;
143: return FALSE;
144: WHEN OTHERS THEN
145: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
146: FND_MSG_PUB.Build_Exc_Msg( G_PKG_NAME, l_api_name,
141: WHEN FND_API.G_EXC_ERROR THEN
142: p_return_status := FND_API.G_RET_STS_ERROR;
143: return FALSE;
144: WHEN OTHERS THEN
145: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
146: FND_MSG_PUB.Build_Exc_Msg( G_PKG_NAME, l_api_name,
147: SUBSTR (SQLERRM, 1, 240) );
148: FND_MSG_PUB.Add;
149: return FALSE;
175: -- Version Initial version number = 1.0
176: -- History Current version number = 1.0
177: --=======================================================
178: procedure CREATE_EXCLUDED_ITEM (
179: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
180: p_api_version_number IN NUMBER,
181: p_init_msg_tbl IN BOOLEAN := FALSE,
182: p_msg_count OUT NOCOPY NUMBER,
183: p_msg_data OUT NOCOPY VARCHAR2,
185: p_responsibility_id IN NUMBER,
186: p_resp_application_id IN NUMBER,
187: p_attribute_code IN VARCHAR2,
188: p_attribute_application_id IN NUMBER,
189: p_created_by IN NUMBER := FND_API.G_MISS_NUM,
190: p_creation_date IN DATE := FND_API.G_MISS_DATE,
191: p_last_updated_by IN NUMBER := FND_API.G_MISS_NUM,
192: p_last_update_date IN DATE := FND_API.G_MISS_DATE,
193: p_last_update_login IN NUMBER := FND_API.G_MISS_NUM,
186: p_resp_application_id IN NUMBER,
187: p_attribute_code IN VARCHAR2,
188: p_attribute_application_id IN NUMBER,
189: p_created_by IN NUMBER := FND_API.G_MISS_NUM,
190: p_creation_date IN DATE := FND_API.G_MISS_DATE,
191: p_last_updated_by IN NUMBER := FND_API.G_MISS_NUM,
192: p_last_update_date IN DATE := FND_API.G_MISS_DATE,
193: p_last_update_login IN NUMBER := FND_API.G_MISS_NUM,
194: p_loader_timestamp IN DATE := FND_API.G_MISS_DATE
187: p_attribute_code IN VARCHAR2,
188: p_attribute_application_id IN NUMBER,
189: p_created_by IN NUMBER := FND_API.G_MISS_NUM,
190: p_creation_date IN DATE := FND_API.G_MISS_DATE,
191: p_last_updated_by IN NUMBER := FND_API.G_MISS_NUM,
192: p_last_update_date IN DATE := FND_API.G_MISS_DATE,
193: p_last_update_login IN NUMBER := FND_API.G_MISS_NUM,
194: p_loader_timestamp IN DATE := FND_API.G_MISS_DATE
195: ) is
188: p_attribute_application_id IN NUMBER,
189: p_created_by IN NUMBER := FND_API.G_MISS_NUM,
190: p_creation_date IN DATE := FND_API.G_MISS_DATE,
191: p_last_updated_by IN NUMBER := FND_API.G_MISS_NUM,
192: p_last_update_date IN DATE := FND_API.G_MISS_DATE,
193: p_last_update_login IN NUMBER := FND_API.G_MISS_NUM,
194: p_loader_timestamp IN DATE := FND_API.G_MISS_DATE
195: ) is
196: l_api_version_number CONSTANT number := 1.0;
189: p_created_by IN NUMBER := FND_API.G_MISS_NUM,
190: p_creation_date IN DATE := FND_API.G_MISS_DATE,
191: p_last_updated_by IN NUMBER := FND_API.G_MISS_NUM,
192: p_last_update_date IN DATE := FND_API.G_MISS_DATE,
193: p_last_update_login IN NUMBER := FND_API.G_MISS_NUM,
194: p_loader_timestamp IN DATE := FND_API.G_MISS_DATE
195: ) is
196: l_api_version_number CONSTANT number := 1.0;
197: l_api_name CONSTANT varchar2(30) := 'Create_Excluded_Item';
190: p_creation_date IN DATE := FND_API.G_MISS_DATE,
191: p_last_updated_by IN NUMBER := FND_API.G_MISS_NUM,
192: p_last_update_date IN DATE := FND_API.G_MISS_DATE,
193: p_last_update_login IN NUMBER := FND_API.G_MISS_NUM,
194: p_loader_timestamp IN DATE := FND_API.G_MISS_DATE
195: ) is
196: l_api_version_number CONSTANT number := 1.0;
197: l_api_name CONSTANT varchar2(30) := 'Create_Excluded_Item';
198: l_created_by number;
204: l_return_status varchar2(1);
205: l_upper_case_flag VARCHAR2(1) := null;
206: begin
207:
208: IF NOT FND_API.Compatible_API_Call (
209: l_api_version_number, p_api_version_number, l_api_name,
210: G_PKG_NAME) then
211: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
212: return;
207:
208: IF NOT FND_API.Compatible_API_Call (
209: l_api_version_number, p_api_version_number, l_api_name,
210: G_PKG_NAME) then
211: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
212: return;
213: END IF;
214:
215: -- Initialize the message table if requested.
235: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
236: FND_MESSAGE.SET_NAME('AK','AK_EXCL_ITEM_EXISTS');
237: FND_MSG_PUB.Add;
238: end if;
239: raise FND_API.G_EXC_ERROR;
240: end if;
241:
242: --
243: -- validate table columns passed in
241:
242: --
243: -- validate table columns passed in
244: --
245: if (p_validation_level <> FND_API.G_VALID_LEVEL_NONE) then
246: --
247: -- Validate all columns passed in
248: --
249: --dbms_output.put_line('Call validate_security');
256: p_attribute_application_id => p_attribute_application_id,
257: p_attribute_code => p_attribute_code,
258: p_caller => AK_ON_OBJECTS_PVT.G_CREATE
259: ) then
260: raise FND_API.G_EXC_ERROR;
261: end if;
262: end if;
263:
264:
261: end if;
262: end if;
263:
264:
265: if (p_created_by <> FND_API.G_MISS_NUM) then
266: l_created_by := p_created_by;
267: end if;
268:
269: if (p_creation_date <> FND_API.G_MISS_DATE) then
265: if (p_created_by <> FND_API.G_MISS_NUM) then
266: l_created_by := p_created_by;
267: end if;
268:
269: if (p_creation_date <> FND_API.G_MISS_DATE) then
270: l_creation_date := p_creation_date;
271: end if;
272:
273: if (p_last_updated_by <> FND_API.G_MISS_NUM) then
269: if (p_creation_date <> FND_API.G_MISS_DATE) then
270: l_creation_date := p_creation_date;
271: end if;
272:
273: if (p_last_updated_by <> FND_API.G_MISS_NUM) then
274: l_last_updated_by := p_last_updated_by;
275: end if;
276:
277: if (p_last_update_date <> FND_API.G_MISS_DATE) then
273: if (p_last_updated_by <> FND_API.G_MISS_NUM) then
274: l_last_updated_by := p_last_updated_by;
275: end if;
276:
277: if (p_last_update_date <> FND_API.G_MISS_DATE) then
278: l_last_update_date := p_last_update_date;
279: end if;
280:
281: if (p_last_update_login <> FND_API.G_MISS_NUM) then
277: if (p_last_update_date <> FND_API.G_MISS_DATE) then
278: l_last_update_date := p_last_update_date;
279: end if;
280:
281: if (p_last_update_login <> FND_API.G_MISS_NUM) then
282: l_last_update_login := p_last_update_login;
283: end if;
284:
285: --
341: ' ' || p_attribute_code);
342: FND_MSG_PUB.Add;
343: end if;
344:
345: p_return_status := FND_API.G_RET_STS_SUCCESS;
346:
347: FND_MSG_PUB.Count_And_Get (
348: p_count => p_msg_count,
349: p_data => p_msg_data);
361: ' '||to_char(p_attribute_application_id) ||
362: ' ' || p_attribute_code);
363: FND_MSG_PUB.Add;
364: end if;
365: p_return_status := FND_API.G_RET_STS_ERROR;
366: rollback to start_create_excluded_item;
367: FND_MSG_PUB.Count_And_Get (
368: p_count => p_msg_count,
369: p_data => p_msg_data);
366: rollback to start_create_excluded_item;
367: FND_MSG_PUB.Count_And_Get (
368: p_count => p_msg_count,
369: p_data => p_msg_data);
370: WHEN FND_API.G_EXC_ERROR THEN
371: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
372: FND_MESSAGE.SET_NAME('AK','AK_EXCL_ITEM_NOT_CREATED');
373: FND_MESSAGE.SET_TOKEN('KEY',to_char(p_responsibility_id)||
374: ' '||to_char(p_resp_application_id)||
375: ' '||to_char(p_attribute_application_id) ||
376: ' ' || p_attribute_code);
377: FND_MSG_PUB.Add;
378: end if;
379: p_return_status := FND_API.G_RET_STS_ERROR;
380: rollback to start_create_excluded_item;
381: FND_MSG_PUB.Count_And_Get (
382: p_count => p_msg_count,
383: p_data => p_msg_data);
381: FND_MSG_PUB.Count_And_Get (
382: p_count => p_msg_count,
383: p_data => p_msg_data);
384: WHEN OTHERS THEN
385: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
386: rollback to start_create_excluded_item;
387: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name,
388: SUBSTR (SQLERRM, 1, 240) );
389: FND_MSG_PUB.Count_And_Get (
418: -- Version Initial version number = 1.0
419: -- History Current version number = 1.0
420: --=======================================================
421: procedure CREATE_RESP_SECURITY_ATTR (
422: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
423: p_api_version_number IN NUMBER,
424: p_init_msg_tbl IN BOOLEAN := FALSE,
425: p_msg_count OUT NOCOPY NUMBER,
426: p_msg_data OUT NOCOPY VARCHAR2,
428: p_responsibility_id IN NUMBER,
429: p_resp_application_id IN NUMBER,
430: p_attribute_code IN VARCHAR2,
431: p_attribute_application_id IN NUMBER,
432: p_created_by IN NUMBER := FND_API.G_MISS_NUM,
433: p_creation_date IN DATE := FND_API.G_MISS_DATE,
434: p_last_updated_by IN NUMBER := FND_API.G_MISS_NUM,
435: p_last_update_date IN DATE := FND_API.G_MISS_DATE,
436: p_last_update_login IN NUMBER := FND_API.G_MISS_NUM,
429: p_resp_application_id IN NUMBER,
430: p_attribute_code IN VARCHAR2,
431: p_attribute_application_id IN NUMBER,
432: p_created_by IN NUMBER := FND_API.G_MISS_NUM,
433: p_creation_date IN DATE := FND_API.G_MISS_DATE,
434: p_last_updated_by IN NUMBER := FND_API.G_MISS_NUM,
435: p_last_update_date IN DATE := FND_API.G_MISS_DATE,
436: p_last_update_login IN NUMBER := FND_API.G_MISS_NUM,
437: p_loader_timestamp IN DATE := FND_API.G_MISS_DATE
430: p_attribute_code IN VARCHAR2,
431: p_attribute_application_id IN NUMBER,
432: p_created_by IN NUMBER := FND_API.G_MISS_NUM,
433: p_creation_date IN DATE := FND_API.G_MISS_DATE,
434: p_last_updated_by IN NUMBER := FND_API.G_MISS_NUM,
435: p_last_update_date IN DATE := FND_API.G_MISS_DATE,
436: p_last_update_login IN NUMBER := FND_API.G_MISS_NUM,
437: p_loader_timestamp IN DATE := FND_API.G_MISS_DATE
438: ) is
431: p_attribute_application_id IN NUMBER,
432: p_created_by IN NUMBER := FND_API.G_MISS_NUM,
433: p_creation_date IN DATE := FND_API.G_MISS_DATE,
434: p_last_updated_by IN NUMBER := FND_API.G_MISS_NUM,
435: p_last_update_date IN DATE := FND_API.G_MISS_DATE,
436: p_last_update_login IN NUMBER := FND_API.G_MISS_NUM,
437: p_loader_timestamp IN DATE := FND_API.G_MISS_DATE
438: ) is
439: l_api_version_number CONSTANT number := 1.0;
432: p_created_by IN NUMBER := FND_API.G_MISS_NUM,
433: p_creation_date IN DATE := FND_API.G_MISS_DATE,
434: p_last_updated_by IN NUMBER := FND_API.G_MISS_NUM,
435: p_last_update_date IN DATE := FND_API.G_MISS_DATE,
436: p_last_update_login IN NUMBER := FND_API.G_MISS_NUM,
437: p_loader_timestamp IN DATE := FND_API.G_MISS_DATE
438: ) is
439: l_api_version_number CONSTANT number := 1.0;
440: l_api_name CONSTANT varchar2(30) := 'Create_Resp_Security_Attr';
433: p_creation_date IN DATE := FND_API.G_MISS_DATE,
434: p_last_updated_by IN NUMBER := FND_API.G_MISS_NUM,
435: p_last_update_date IN DATE := FND_API.G_MISS_DATE,
436: p_last_update_login IN NUMBER := FND_API.G_MISS_NUM,
437: p_loader_timestamp IN DATE := FND_API.G_MISS_DATE
438: ) is
439: l_api_version_number CONSTANT number := 1.0;
440: l_api_name CONSTANT varchar2(30) := 'Create_Resp_Security_Attr';
441: l_created_by number;
447: l_return_status varchar2(1);
448: l_upper_case_flag VARCHAR2(1) := null;
449: begin
450:
451: IF NOT FND_API.Compatible_API_Call (
452: l_api_version_number, p_api_version_number, l_api_name,
453: G_PKG_NAME) then
454: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
455: return;
450:
451: IF NOT FND_API.Compatible_API_Call (
452: l_api_version_number, p_api_version_number, l_api_name,
453: G_PKG_NAME) then
454: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
455: return;
456: END IF;
457:
458: -- Initialize the message table if requested.
477: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
478: FND_MESSAGE.SET_NAME('AK','AK_RESP_SEC_ATTR_EXISTS');
479: FND_MSG_PUB.Add;
480: end if;
481: raise FND_API.G_EXC_ERROR;
482: end if;
483:
484: --
485: -- validate table columns passed in
483:
484: --
485: -- validate table columns passed in
486: --
487: if (p_validation_level <> FND_API.G_VALID_LEVEL_NONE) then
488: --
489: -- Validate all columns passed in
490: --
491: if NOT VALIDATE_SECURITY(
497: p_attribute_code => p_attribute_code,
498: p_attribute_application_id => p_attribute_application_id,
499: p_caller => AK_ON_OBJECTS_PVT.G_CREATE
500: ) then
501: raise FND_API.G_EXC_ERROR;
502: end if;
503: end if;
504:
505:
502: end if;
503: end if;
504:
505:
506: if (p_created_by <> FND_API.G_MISS_NUM) then
507: l_created_by := p_created_by;
508: end if;
509:
510: if (p_creation_date <> FND_API.G_MISS_DATE) then
506: if (p_created_by <> FND_API.G_MISS_NUM) then
507: l_created_by := p_created_by;
508: end if;
509:
510: if (p_creation_date <> FND_API.G_MISS_DATE) then
511: l_creation_date := p_creation_date;
512: end if;
513:
514: if (p_last_updated_by <> FND_API.G_MISS_NUM) then
510: if (p_creation_date <> FND_API.G_MISS_DATE) then
511: l_creation_date := p_creation_date;
512: end if;
513:
514: if (p_last_updated_by <> FND_API.G_MISS_NUM) then
515: l_last_updated_by := p_last_updated_by;
516: end if;
517:
518: if (p_last_update_date <> FND_API.G_MISS_DATE) then
514: if (p_last_updated_by <> FND_API.G_MISS_NUM) then
515: l_last_updated_by := p_last_updated_by;
516: end if;
517:
518: if (p_last_update_date <> FND_API.G_MISS_DATE) then
519: l_last_update_date := p_last_update_date;
520: end if;
521:
522: if (p_last_update_login <> FND_API.G_MISS_NUM) then
518: if (p_last_update_date <> FND_API.G_MISS_DATE) then
519: l_last_update_date := p_last_update_date;
520: end if;
521:
522: if (p_last_update_login <> FND_API.G_MISS_NUM) then
523: l_last_update_login := p_last_update_login;
524: end if;
525:
526: --
580: ' ' || p_attribute_code);
581: FND_MSG_PUB.Add;
582: end if;
583:
584: p_return_status := FND_API.G_RET_STS_SUCCESS;
585:
586: FND_MSG_PUB.Count_And_Get (
587: p_count => p_msg_count,
588: p_data => p_msg_data);
602: ' '||to_char(p_attribute_application_id) ||
603: ' ' || p_attribute_code);
604: FND_MSG_PUB.Add;
605: end if;
606: p_return_status := FND_API.G_RET_STS_ERROR;
607: rollback to start_create_excluded_item;
608: FND_MSG_PUB.Count_And_Get (
609: p_count => p_msg_count,
610: p_data => p_msg_data);
607: rollback to start_create_excluded_item;
608: FND_MSG_PUB.Count_And_Get (
609: p_count => p_msg_count,
610: p_data => p_msg_data);
611: WHEN FND_API.G_EXC_ERROR THEN
612: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
613: FND_MESSAGE.SET_NAME('AK','AK_RESP_SEC_ATTR_NOT_CREATED');
614: FND_MESSAGE.SET_TOKEN('KEY',to_char(p_responsibility_id)||
615: ' '||to_char(p_resp_application_id)||
616: ' '||to_char(p_attribute_application_id) ||
617: ' ' || p_attribute_code);
618: FND_MSG_PUB.Add;
619: end if;
620: p_return_status := FND_API.G_RET_STS_ERROR;
621: rollback to start_create_excluded_item;
622: FND_MSG_PUB.Count_And_Get (
623: p_count => p_msg_count,
624: p_data => p_msg_data);
622: FND_MSG_PUB.Count_And_Get (
623: p_count => p_msg_count,
624: p_data => p_msg_data);
625: WHEN OTHERS THEN
626: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
627: rollback to start_create_excluded_item;
628: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name,
629: SUBSTR (SQLERRM, 1, 240) );
630: FND_MSG_PUB.Count_And_Get (
652: -- * Success
653: -- Parameters Excluded items record.
654: --=======================================================
655: procedure WRITE_RESP_SEC_ATTR_TO_BUFFER (
656: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
657: p_return_status OUT NOCOPY VARCHAR2,
658: p_resp_sec_attr_rec IN ak_resp_security_attributes%ROWTYPE
659: ) is
660: l_api_name CONSTANT varchar2(30) := 'Write_Resp_Sec_Attr_to_buffer';
665: --
666: -- Attribute must be validated before it is written to the file
667: --
668:
669: if p_validation_level <> FND_API.G_VALID_LEVEL_NONE then
670: if not VALIDATE_SECURITY (
671: p_validation_level => p_validation_level,
672: p_api_version_number => 1.0,
673: p_return_status => l_return_status,
680: p_caller => AK_ON_OBJECTS_PVT.G_DOWNLOAD)
681: then
682: --dbms_output.put_line('Responsibility_id ' || to_char(p_resp_sec_attr_rec.responsibility_id)
683: -- || ' not downloaded due to validation error');
684: raise FND_API.G_EXC_ERROR;
685: end if;
686: end if;
687:
688: --
735:
736: --
737: -- If API call returns with an error status...
738: --
739: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
740: (l_return_status = FND_API.G_RET_STS_ERROR) then
741: RAISE FND_API.G_EXC_ERROR;
742: end if;
743:
736: --
737: -- If API call returns with an error status...
738: --
739: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
740: (l_return_status = FND_API.G_RET_STS_ERROR) then
741: RAISE FND_API.G_EXC_ERROR;
742: end if;
743:
744: p_return_status := FND_API.G_RET_STS_SUCCESS;
737: -- If API call returns with an error status...
738: --
739: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
740: (l_return_status = FND_API.G_RET_STS_ERROR) then
741: RAISE FND_API.G_EXC_ERROR;
742: end if;
743:
744: p_return_status := FND_API.G_RET_STS_SUCCESS;
745:
740: (l_return_status = FND_API.G_RET_STS_ERROR) then
741: RAISE FND_API.G_EXC_ERROR;
742: end if;
743:
744: p_return_status := FND_API.G_RET_STS_SUCCESS;
745:
746: EXCEPTION
747: WHEN VALUE_ERROR THEN
748: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
756: to_char(p_resp_sec_attr_rec.attribute_application_id) ||
757: ' ' || p_resp_sec_attr_rec.attribute_code);
758: FND_MSG_PUB.Add;
759: end if;
760: p_return_status := FND_API.G_RET_STS_ERROR;
761: WHEN FND_API.G_EXC_ERROR THEN
762: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) then
763: FND_MESSAGE.SET_NAME('AK','AK_RESP_SEC_ATTR_NOT_DWNLOADED');
764: FND_MESSAGE.SET_TOKEN('KEY',
757: ' ' || p_resp_sec_attr_rec.attribute_code);
758: FND_MSG_PUB.Add;
759: end if;
760: p_return_status := FND_API.G_RET_STS_ERROR;
761: WHEN FND_API.G_EXC_ERROR THEN
762: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) then
763: FND_MESSAGE.SET_NAME('AK','AK_RESP_SEC_ATTR_NOT_DWNLOADED');
764: FND_MESSAGE.SET_TOKEN('KEY',
765: to_char(p_resp_sec_attr_rec.attribute_application_id) ||
765: to_char(p_resp_sec_attr_rec.attribute_application_id) ||
766: ' ' || p_resp_sec_attr_rec.attribute_code);
767: FND_MSG_PUB.Add;
768: end if;
769: p_return_status := FND_API.G_RET_STS_ERROR;
770: WHEN OTHERS THEN
771: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
772: FND_MSG_PUB.Build_Exc_Msg( G_PKG_NAME, l_api_name,
773: SUBSTR (SQLERRM, 1, 240) );
767: FND_MSG_PUB.Add;
768: end if;
769: p_return_status := FND_API.G_RET_STS_ERROR;
770: WHEN OTHERS THEN
771: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
772: FND_MSG_PUB.Build_Exc_Msg( G_PKG_NAME, l_api_name,
773: SUBSTR (SQLERRM, 1, 240) );
774: FND_MSG_PUB.Add;
775: end WRITE_RESP_SEC_ATTR_TO_BUFFER;
792: -- * Success
793: -- Parameters Excluded items record.
794: --=======================================================
795: procedure WRITE_TO_BUFFER (
796: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
797: p_return_status OUT NOCOPY VARCHAR2,
798: p_excluded_rec IN ak_excluded_items%ROWTYPE
799: ) is
800: l_api_name CONSTANT varchar2(30) := 'Write_to_buffer';
805: begin
806: --
807: -- Attribute must be validated before it is written to the file
808: --
809: if p_validation_level <> FND_API.G_VALID_LEVEL_NONE then
810: if not VALIDATE_SECURITY (
811: p_validation_level => p_validation_level,
812: p_api_version_number => 1.0,
813: p_return_status => l_return_status,
820: p_caller => AK_ON_OBJECTS_PVT.G_DOWNLOAD)
821: then
822: --dbms_output.put_line('Responsibility_id ' || to_char(p_excluded_rec.responsibility_id)
823: -- || ' not downloaded due to validation error');
824: raise FND_API.G_EXC_ERROR;
825: end if;
826: end if;
827:
828: --
875:
876: --
877: -- If API call returns with an error status...
878: --
879: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
880: (l_return_status = FND_API.G_RET_STS_ERROR) then
881: RAISE FND_API.G_EXC_ERROR;
882: end if;
883:
876: --
877: -- If API call returns with an error status...
878: --
879: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
880: (l_return_status = FND_API.G_RET_STS_ERROR) then
881: RAISE FND_API.G_EXC_ERROR;
882: end if;
883:
884: p_return_status := FND_API.G_RET_STS_SUCCESS;
877: -- If API call returns with an error status...
878: --
879: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
880: (l_return_status = FND_API.G_RET_STS_ERROR) then
881: RAISE FND_API.G_EXC_ERROR;
882: end if;
883:
884: p_return_status := FND_API.G_RET_STS_SUCCESS;
885:
880: (l_return_status = FND_API.G_RET_STS_ERROR) then
881: RAISE FND_API.G_EXC_ERROR;
882: end if;
883:
884: p_return_status := FND_API.G_RET_STS_SUCCESS;
885:
886: EXCEPTION
887: WHEN VALUE_ERROR THEN
888: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
896: to_char(p_excluded_rec.attribute_application_id) ||
897: ' ' || p_excluded_rec.attribute_code);
898: FND_MSG_PUB.Add;
899: end if;
900: p_return_status := FND_API.G_RET_STS_ERROR;
901: WHEN FND_API.G_EXC_ERROR THEN
902: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) then
903: FND_MESSAGE.SET_NAME('AK','AK_EXCL_ITEM_NOT_DOWNLOADED');
904: FND_MESSAGE.SET_TOKEN('KEY',
897: ' ' || p_excluded_rec.attribute_code);
898: FND_MSG_PUB.Add;
899: end if;
900: p_return_status := FND_API.G_RET_STS_ERROR;
901: WHEN FND_API.G_EXC_ERROR THEN
902: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) then
903: FND_MESSAGE.SET_NAME('AK','AK_EXCL_ITEM_NOT_DOWNLOADED');
904: FND_MESSAGE.SET_TOKEN('KEY',
905: to_char(p_excluded_rec.attribute_application_id) ||
905: to_char(p_excluded_rec.attribute_application_id) ||
906: ' ' || p_excluded_rec.attribute_code);
907: FND_MSG_PUB.Add;
908: end if;
909: p_return_status := FND_API.G_RET_STS_ERROR;
910: WHEN OTHERS THEN
911: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
912: FND_MSG_PUB.Build_Exc_Msg( G_PKG_NAME, l_api_name,
913: SUBSTR (SQLERRM, 1, 240) );
907: FND_MSG_PUB.Add;
908: end if;
909: p_return_status := FND_API.G_RET_STS_ERROR;
910: WHEN OTHERS THEN
911: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
912: FND_MSG_PUB.Build_Exc_Msg( G_PKG_NAME, l_api_name,
913: SUBSTR (SQLERRM, 1, 240) );
914: FND_MSG_PUB.Add;
915: end WRITE_TO_BUFFER;
951: -- Version Initial version number = 1.0
952: -- History Current version number = 1.0
953: --=======================================================
954: procedure DOWNLOAD_EXCLUDED (
955: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
956: p_api_version_number IN NUMBER,
957: p_return_status OUT NOCOPY VARCHAR2,
958: p_application_id IN NUMBER := FND_API.G_MISS_NUM,
959: p_excluded_pk_tbl IN AK_SECURITY_PUB.Resp_PK_Tbl_Type :=
954: procedure DOWNLOAD_EXCLUDED (
955: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
956: p_api_version_number IN NUMBER,
957: p_return_status OUT NOCOPY VARCHAR2,
958: p_application_id IN NUMBER := FND_API.G_MISS_NUM,
959: p_excluded_pk_tbl IN AK_SECURITY_PUB.Resp_PK_Tbl_Type :=
960: AK_SECURITY_PUB.G_MISS_RESP_PK_TBL,
961: p_nls_language IN VARCHAR2
962: ) is
979: l_select_by_appl_id BOOLEAN;
980: begin
981:
982:
983: IF NOT FND_API.Compatible_API_Call (
984: l_api_version_number, p_api_version_number, l_api_name,
985: G_PKG_NAME) then
986: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
987: return;
982:
983: IF NOT FND_API.Compatible_API_Call (
984: l_api_version_number, p_api_version_number, l_api_name,
985: G_PKG_NAME) then
986: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
987: return;
988: END IF;
989: --
990: -- Check that one of the following selection criteria is given:
993: -- p_excluded_pk_tbl, or
994: -- - both p_application_id and p_excluded_pk_tbl if any
995: -- p_attribute_application_id is missing in p_excluded_pk_tbl
996: --
997: if (p_application_id = FND_API.G_MISS_NUM) then
998: if (p_excluded_pk_tbl.count = 0) then
999: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1000: FND_MESSAGE.SET_NAME('AK','AK_NO_SELECTION');
1001: FND_MSG_PUB.Add;
999: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1000: FND_MESSAGE.SET_NAME('AK','AK_NO_SELECTION');
1001: FND_MSG_PUB.Add;
1002: end if;
1003: raise FND_API.G_EXC_ERROR;
1004: else
1005: --
1006: -- since no application ID is passed in thru p_application_id,
1007: -- none of the responsibility_appl_id or responsibility_id
1009: --
1010:
1011: for i in p_excluded_pk_tbl.FIRST .. p_excluded_pk_tbl.LAST LOOP
1012: if (p_excluded_pk_tbl.exists(i)) then
1013: if (p_excluded_pk_tbl(i).responsibility_appl_id = FND_API.G_MISS_NUM) or
1014: (p_excluded_pk_tbl(i).responsibility_id = FND_API.G_MISS_NUM)
1015: then
1016: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1017: FND_MESSAGE.SET_NAME('AK','AK_INVALID_LIST');
1010:
1011: for i in p_excluded_pk_tbl.FIRST .. p_excluded_pk_tbl.LAST LOOP
1012: if (p_excluded_pk_tbl.exists(i)) then
1013: if (p_excluded_pk_tbl(i).responsibility_appl_id = FND_API.G_MISS_NUM) or
1014: (p_excluded_pk_tbl(i).responsibility_id = FND_API.G_MISS_NUM)
1015: then
1016: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1017: FND_MESSAGE.SET_NAME('AK','AK_INVALID_LIST');
1018: FND_MESSAGE.SET_TOKEN('ELEMENT_NUM',to_char(i));
1017: FND_MESSAGE.SET_NAME('AK','AK_INVALID_LIST');
1018: FND_MESSAGE.SET_TOKEN('ELEMENT_NUM',to_char(i));
1019: FND_MSG_PUB.Add;
1020: end if;
1021: raise FND_API.G_EXC_ERROR;
1022: end if; /* if responsibility_appl_id is null */
1023: end if; /* if exists */
1024: end LOOP;
1025:
1053: p_validation_level => p_validation_level,
1054: p_return_status => l_return_status,
1055: p_excluded_rec => l_excluded_rec
1056: );
1057: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
1058: (l_return_status = FND_API.G_RET_STS_ERROR) then
1059: close l_get_resp_1_csr;
1060: RAISE FND_API.G_EXC_ERROR;
1061: end if;
1054: p_return_status => l_return_status,
1055: p_excluded_rec => l_excluded_rec
1056: );
1057: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
1058: (l_return_status = FND_API.G_RET_STS_ERROR) then
1059: close l_get_resp_1_csr;
1060: RAISE FND_API.G_EXC_ERROR;
1061: end if;
1062:
1056: );
1057: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
1058: (l_return_status = FND_API.G_RET_STS_ERROR) then
1059: close l_get_resp_1_csr;
1060: RAISE FND_API.G_EXC_ERROR;
1061: end if;
1062:
1063: end loop;
1064: close l_get_resp_1_csr;
1072: if (p_excluded_pk_tbl.exists(i)) then
1073: --
1074: -- default application ID to p_application_id if not given
1075: --
1076: if (p_excluded_pk_tbl(i).responsibility_appl_id = FND_API.G_MISS_NUM) then
1077: l_responsibility_appl_id := p_application_id;
1078: else
1079: l_responsibility_appl_id := p_excluded_pk_tbl(i).responsibility_appl_id;
1080: end if;
1110: );
1111: --
1112: -- Download aborts when validation in WRITE_TO_BUFFER fails
1113: --
1114: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
1115: (l_return_status = FND_API.G_RET_STS_ERROR) then
1116: RAISE FND_API.G_EXC_ERROR;
1117: end if;
1118: end if; /* if l_responsibility_found */
1111: --
1112: -- Download aborts when validation in WRITE_TO_BUFFER fails
1113: --
1114: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
1115: (l_return_status = FND_API.G_RET_STS_ERROR) then
1116: RAISE FND_API.G_EXC_ERROR;
1117: end if;
1118: end if; /* if l_responsibility_found */
1119: end if; /* if exists(i) */
1112: -- Download aborts when validation in WRITE_TO_BUFFER fails
1113: --
1114: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
1115: (l_return_status = FND_API.G_RET_STS_ERROR) then
1116: RAISE FND_API.G_EXC_ERROR;
1117: end if;
1118: end if; /* if l_responsibility_found */
1119: end if; /* if exists(i) */
1120: end loop;
1119: end if; /* if exists(i) */
1120: end loop;
1121: end if;
1122:
1123: p_return_status := FND_API.G_RET_STS_SUCCESS;
1124:
1125: EXCEPTION
1126: WHEN FND_API.G_EXC_ERROR THEN
1127: p_return_status := FND_API.G_RET_STS_ERROR;
1122:
1123: p_return_status := FND_API.G_RET_STS_SUCCESS;
1124:
1125: EXCEPTION
1126: WHEN FND_API.G_EXC_ERROR THEN
1127: p_return_status := FND_API.G_RET_STS_ERROR;
1128: WHEN OTHERS THEN
1129: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1130: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name,
1123: p_return_status := FND_API.G_RET_STS_SUCCESS;
1124:
1125: EXCEPTION
1126: WHEN FND_API.G_EXC_ERROR THEN
1127: p_return_status := FND_API.G_RET_STS_ERROR;
1128: WHEN OTHERS THEN
1129: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1130: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name,
1131: SUBSTR (SQLERRM, 1, 240) );
1125: EXCEPTION
1126: WHEN FND_API.G_EXC_ERROR THEN
1127: p_return_status := FND_API.G_RET_STS_ERROR;
1128: WHEN OTHERS THEN
1129: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1130: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name,
1131: SUBSTR (SQLERRM, 1, 240) );
1132: end DOWNLOAD_EXCLUDED;
1133:
1169: -- Version Initial version number = 1.0
1170: -- History Current version number = 1.0
1171: --=======================================================
1172: procedure DOWNLOAD_RESP_SEC (
1173: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1174: p_api_version_number IN NUMBER,
1175: p_return_status OUT NOCOPY VARCHAR2,
1176: p_application_id IN NUMBER := FND_API.G_MISS_NUM,
1177: p_resp_pk_tbl IN AK_SECURITY_PUB.Resp_PK_Tbl_Type :=
1172: procedure DOWNLOAD_RESP_SEC (
1173: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1174: p_api_version_number IN NUMBER,
1175: p_return_status OUT NOCOPY VARCHAR2,
1176: p_application_id IN NUMBER := FND_API.G_MISS_NUM,
1177: p_resp_pk_tbl IN AK_SECURITY_PUB.Resp_PK_Tbl_Type :=
1178: AK_SECURITY_PUB.G_MISS_RESP_PK_TBL,
1179: p_nls_language IN VARCHAR2
1180: ) is
1195: l_resp_rec ak_resp_security_attributes%ROWTYPE;
1196: l_return_status varchar2(1);
1197: l_select_by_appl_id BOOLEAN;
1198: begin
1199: IF NOT FND_API.Compatible_API_Call (
1200: l_api_version_number, p_api_version_number, l_api_name,
1201: G_PKG_NAME) then
1202: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1203: return;
1198: begin
1199: IF NOT FND_API.Compatible_API_Call (
1200: l_api_version_number, p_api_version_number, l_api_name,
1201: G_PKG_NAME) then
1202: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1203: return;
1204: END IF;
1205:
1206: --
1210: -- p_resp_pk_tbl, or
1211: -- - both p_application_id and p_resp_pk_tbl if any
1212: -- p_attribute_application_id is missing in p_resp_pk_tbl
1213: --
1214: if (p_application_id = FND_API.G_MISS_NUM) then
1215: if (p_resp_pk_tbl.count = 0) then
1216: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1217: FND_MESSAGE.SET_NAME('AK','AK_NO_SELECTION');
1218: FND_MSG_PUB.Add;
1216: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1217: FND_MESSAGE.SET_NAME('AK','AK_NO_SELECTION');
1218: FND_MSG_PUB.Add;
1219: end if;
1220: raise FND_API.G_EXC_ERROR;
1221: else
1222: --
1223: -- since no application ID is passed in thru p_application_id,
1224: -- none of the responsibility_appl_id or responsibility_id
1226: --
1227:
1228: for i in p_resp_pk_tbl.FIRST .. p_resp_pk_tbl.LAST LOOP
1229: if (p_resp_pk_tbl.exists(i)) then
1230: if (p_resp_pk_tbl(i).responsibility_appl_id = FND_API.G_MISS_NUM) or
1231: (p_resp_pk_tbl(i).responsibility_id = FND_API.G_MISS_NUM)
1232: then
1233: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1234: FND_MESSAGE.SET_NAME('AK','AK_INVALID_LIST');
1227:
1228: for i in p_resp_pk_tbl.FIRST .. p_resp_pk_tbl.LAST LOOP
1229: if (p_resp_pk_tbl.exists(i)) then
1230: if (p_resp_pk_tbl(i).responsibility_appl_id = FND_API.G_MISS_NUM) or
1231: (p_resp_pk_tbl(i).responsibility_id = FND_API.G_MISS_NUM)
1232: then
1233: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1234: FND_MESSAGE.SET_NAME('AK','AK_INVALID_LIST');
1235: FND_MESSAGE.SET_TOKEN('ELEMENT_NUM',to_char(i));
1234: FND_MESSAGE.SET_NAME('AK','AK_INVALID_LIST');
1235: FND_MESSAGE.SET_TOKEN('ELEMENT_NUM',to_char(i));
1236: FND_MSG_PUB.Add;
1237: end if;
1238: raise FND_API.G_EXC_ERROR;
1239: end if; /* if responsibility_appl_id is null */
1240: end if; /* if exists */
1241: end LOOP;
1242:
1270: p_validation_level => p_validation_level,
1271: p_return_status => l_return_status,
1272: p_resp_sec_attr_rec => l_resp_rec
1273: );
1274: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
1275: (l_return_status = FND_API.G_RET_STS_ERROR) then
1276: close l_get_resp_1_csr;
1277: RAISE FND_API.G_EXC_ERROR;
1278: end if;
1271: p_return_status => l_return_status,
1272: p_resp_sec_attr_rec => l_resp_rec
1273: );
1274: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
1275: (l_return_status = FND_API.G_RET_STS_ERROR) then
1276: close l_get_resp_1_csr;
1277: RAISE FND_API.G_EXC_ERROR;
1278: end if;
1279:
1273: );
1274: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
1275: (l_return_status = FND_API.G_RET_STS_ERROR) then
1276: close l_get_resp_1_csr;
1277: RAISE FND_API.G_EXC_ERROR;
1278: end if;
1279:
1280: end loop;
1281: close l_get_resp_1_csr;
1288: if (p_resp_pk_tbl.exists(i)) then
1289: --
1290: -- default application ID to p_application_id if not given
1291: --
1292: if (p_resp_pk_tbl(i).responsibility_appl_id = FND_API.G_MISS_NUM) then
1293: l_responsibility_appl_id := p_application_id;
1294: else
1295: l_responsibility_appl_id := p_resp_pk_tbl(i).responsibility_appl_id;
1296: end if;
1324: p_validation_level => p_validation_level,
1325: p_return_status => l_return_status,
1326: p_resp_sec_attr_rec => l_resp_rec
1327: );
1328: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
1329: (l_return_status = FND_API.G_RET_STS_ERROR) then
1330: RAISE FND_API.G_EXC_ERROR;
1331: end if;
1332: end if; /* if l_responsibility_found */
1325: p_return_status => l_return_status,
1326: p_resp_sec_attr_rec => l_resp_rec
1327: );
1328: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
1329: (l_return_status = FND_API.G_RET_STS_ERROR) then
1330: RAISE FND_API.G_EXC_ERROR;
1331: end if;
1332: end if; /* if l_responsibility_found */
1333: end if; /* if exists(i) */
1326: p_resp_sec_attr_rec => l_resp_rec
1327: );
1328: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
1329: (l_return_status = FND_API.G_RET_STS_ERROR) then
1330: RAISE FND_API.G_EXC_ERROR;
1331: end if;
1332: end if; /* if l_responsibility_found */
1333: end if; /* if exists(i) */
1334: end loop;
1333: end if; /* if exists(i) */
1334: end loop;
1335: end if;
1336:
1337: p_return_status := FND_API.G_RET_STS_SUCCESS;
1338:
1339: EXCEPTION
1340: WHEN FND_API.G_EXC_ERROR THEN
1341: p_return_status := FND_API.G_RET_STS_ERROR;
1336:
1337: p_return_status := FND_API.G_RET_STS_SUCCESS;
1338:
1339: EXCEPTION
1340: WHEN FND_API.G_EXC_ERROR THEN
1341: p_return_status := FND_API.G_RET_STS_ERROR;
1342: WHEN OTHERS THEN
1343: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1344: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name,
1337: p_return_status := FND_API.G_RET_STS_SUCCESS;
1338:
1339: EXCEPTION
1340: WHEN FND_API.G_EXC_ERROR THEN
1341: p_return_status := FND_API.G_RET_STS_ERROR;
1342: WHEN OTHERS THEN
1343: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1344: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name,
1345: SUBSTR (SQLERRM, 1, 240) );
1339: EXCEPTION
1340: WHEN FND_API.G_EXC_ERROR THEN
1341: p_return_status := FND_API.G_RET_STS_ERROR;
1342: WHEN OTHERS THEN
1343: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1344: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name,
1345: SUBSTR (SQLERRM, 1, 240) );
1346: end DOWNLOAD_RESP_SEC;
1347:
1414: p_attribute_pk_tbl(l_index).attribute_appl_id := p_attribute_application_id;
1415: p_attribute_pk_tbl(l_index).attribute_code := p_attribute_code;
1416:
1417: EXCEPTION
1418: WHEN FND_API.G_EXC_ERROR THEN
1419: p_return_status := FND_API.G_RET_STS_ERROR;
1420: WHEN OTHERS THEN
1421: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1422: FND_MSG_PUB.Build_Exc_Msg( G_PKG_NAME, l_api_name,
1415: p_attribute_pk_tbl(l_index).attribute_code := p_attribute_code;
1416:
1417: EXCEPTION
1418: WHEN FND_API.G_EXC_ERROR THEN
1419: p_return_status := FND_API.G_RET_STS_ERROR;
1420: WHEN OTHERS THEN
1421: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1422: FND_MSG_PUB.Build_Exc_Msg( G_PKG_NAME, l_api_name,
1423: SUBSTR (SQLERRM, 1, 240) );
1417: EXCEPTION
1418: WHEN FND_API.G_EXC_ERROR THEN
1419: p_return_status := FND_API.G_RET_STS_ERROR;
1420: WHEN OTHERS THEN
1421: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1422: FND_MSG_PUB.Build_Exc_Msg( G_PKG_NAME, l_api_name,
1423: SUBSTR (SQLERRM, 1, 240) );
1424: FND_MSG_PUB.Add;
1425: end INSERT_ATTRIBUTE_PK_TABLE;
1472: -- Version Initial version number = 1.0
1473: -- History Current version number = 1.0
1474: --=======================================================
1475: procedure UPLOAD_SECURITY (
1476: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1477: p_api_version_number IN NUMBER,
1478: p_return_status OUT NOCOPY VARCHAR2,
1479: p_index IN OUT NOCOPY NUMBER,
1480: p_loader_timestamp IN DATE,
1477: p_api_version_number IN NUMBER,
1478: p_return_status OUT NOCOPY VARCHAR2,
1479: p_index IN OUT NOCOPY NUMBER,
1480: p_loader_timestamp IN DATE,
1481: p_line_num IN NUMBER := FND_API.G_MISS_NUM,
1482: p_buffer IN AK_ON_OBJECTS_PUB.Buffer_Type,
1483: p_line_num_out OUT NOCOPY NUMBER,
1484: p_buffer_out OUT NOCOPY AK_ON_OBJECTS_PUB.Buffer_Type,
1485: p_upl_loader_cur IN OUT NOCOPY AK_ON_OBJECTS_PUB.LoaderCurTyp
1504: l_state NUMBER; /* parse state */
1505: l_token AK_ON_OBJECTS_PUB.Buffer_Type;
1506: l_value_count NUMBER; /* # of values read for current column */
1507: begin
1508: IF NOT FND_API.Compatible_API_Call (
1509: l_api_version_number, p_api_version_number, l_api_name,
1510: G_PKG_NAME) then
1511: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1512: return;
1507: begin
1508: IF NOT FND_API.Compatible_API_Call (
1509: l_api_version_number, p_api_version_number, l_api_name,
1510: G_PKG_NAME) then
1511: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1512: return;
1513: END IF;
1514:
1515: --dbms_output.put_line('Started security upload: ' ||
1527: -- the tokens 'BEGIN EXCLUDED_ITEMS' has already been parsed. Set initial
1528: -- buffer to 'BEGIN EXCLUDED_ITEMS' before reading the next line from the
1529: -- file. Otherwise, set initial buffer to null.
1530: --
1531: if (p_loader_timestamp <> FND_API.G_MISS_DATE) then
1532: l_buffer := 'BEGIN ' || p_buffer;
1533: else
1534: l_buffer := null;
1535: end if;
1533: else
1534: l_buffer := null;
1535: end if;
1536:
1537: if (p_line_num = FND_API.G_MISS_NUM) then
1538: l_line_num := 0;
1539: else
1540: l_line_num := p_line_num;
1541: end if;
1548: p_lines_read => l_lines_read,
1549: p_eof_flag => l_eof_flag,
1550: p_upl_loader_cur => p_upl_loader_cur
1551: );
1552: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
1553: (l_return_status = FND_API.G_RET_STS_ERROR) then
1554: RAISE FND_API.G_EXC_ERROR;
1555: end if;
1556: l_line_num := l_line_num + l_lines_read;
1549: p_eof_flag => l_eof_flag,
1550: p_upl_loader_cur => p_upl_loader_cur
1551: );
1552: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
1553: (l_return_status = FND_API.G_RET_STS_ERROR) then
1554: RAISE FND_API.G_EXC_ERROR;
1555: end if;
1556: l_line_num := l_line_num + l_lines_read;
1557: --
1550: p_upl_loader_cur => p_upl_loader_cur
1551: );
1552: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
1553: (l_return_status = FND_API.G_RET_STS_ERROR) then
1554: RAISE FND_API.G_EXC_ERROR;
1555: end if;
1556: l_line_num := l_line_num + l_lines_read;
1557: --
1558: -- trim leading spaces and discard comment lines
1570: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1571: FND_MESSAGE.SET_NAME('AK','AK_EMPTY_BUFFER');
1572: FND_MSG_PUB.Add;
1573: end if;
1574: raise FND_API.G_EXC_ERROR;
1575: end if;
1576:
1577: --
1578: -- Read tokens from file, one at a time
1588:
1589: --dbms_output.put_line(' State:' || l_state || 'Token:' || l_token || ' -' ||
1590: -- to_char(sysdate, 'MON-DD HH24:MI:SS'));
1591:
1592: if (l_return_status = FND_API.G_RET_STS_ERROR) or
1593: (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
1594: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1595: FND_MESSAGE.SET_NAME('AK','AK_GET_TOKEN_ERROR');
1596: FND_MSG_PUB.Add;
1589: --dbms_output.put_line(' State:' || l_state || 'Token:' || l_token || ' -' ||
1590: -- to_char(sysdate, 'MON-DD HH24:MI:SS'));
1591:
1592: if (l_return_status = FND_API.G_RET_STS_ERROR) or
1593: (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
1594: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1595: FND_MESSAGE.SET_NAME('AK','AK_GET_TOKEN_ERROR');
1596: FND_MSG_PUB.Add;
1597: end if;
1595: FND_MESSAGE.SET_NAME('AK','AK_GET_TOKEN_ERROR');
1596: FND_MSG_PUB.Add;
1597: end if;
1598: -- dbms_output.put_line('Error parsing buffer');
1599: raise FND_API.G_EXC_ERROR;
1600: end if;
1601:
1602: if (l_state = 0) then
1603: if (l_token = 'BEGIN') then
1612: FND_MESSAGE.SET_TOKEN('TOKEN',l_token);
1613: FND_MESSAGE.SET_TOKEN('EXPECTED','BEGIN');
1614: FND_MSG_PUB.Add;
1615: end if;
1616: raise FND_API.G_EXC_ERROR;
1617: end if;
1618: elsif (l_state = 1) then
1619: if (l_token = 'EXCLUDED_ITEMS') then
1620: l_state := 2;
1639: FND_MESSAGE.SET_TOKEN('EXPECTED','RESPONSIBILITY_ID');
1640: FND_MSG_PUB.Add;
1641: end if;
1642: -- dbms_output.put_line('Expecting responsibility ID');
1643: raise FND_API.G_EXC_ERROR;
1644: end if;
1645: elsif (l_state = 3) then
1646: if (l_token is not null) then
1647: l_excluded_items_rec.resp_application_id := to_number(l_token);
1654: FND_MESSAGE.SET_TOKEN('EXPECTED','RESP_APPLICATION_ID');
1655: FND_MSG_PUB.Add;
1656: end if;
1657: --dbms_output.put_line('Expecting resp application id');
1658: raise FND_API.G_EXC_ERROR;
1659: end if;
1660: elsif (l_state = 4) then
1661: if (l_token is not null) then
1662: l_excluded_items_rec.attribute_application_id := to_number(l_token);
1669: FND_MESSAGE.SET_TOKEN('EXPECTED','ATTRIBUTE_CODE');
1670: FND_MSG_PUB.Add;
1671: end if;
1672: --dbms_output.put_line('Expecting attribute code');
1673: raise FND_API.G_EXC_ERROR;
1674: end if;
1675: elsif (l_state = 5) then
1676: if (l_token is not null) then
1677: l_excluded_items_rec.attribute_code := l_token;
1685: FND_MESSAGE.SET_TOKEN('EXPECTED','ATTRIBUTE_APPLICATION_ID');
1686: FND_MSG_PUB.Add;
1687: end if;
1688: --dbms_output.put_line('Expecting attribute code');
1689: raise FND_API.G_EXC_ERROR;
1690: end if;
1691: elsif (l_state = 10) then
1692: if (l_token = 'END') then
1693: l_state := 19;
1727: FND_MESSAGE.SET_TOKEN('EXPECTED','ATTRIBUTE');
1728: FND_MSG_PUB.Add;
1729: end if;
1730: -- dbms_output.put_line('Expecting attribute field or END');
1731: raise FND_API.G_EXC_ERROR;
1732: end if;
1733: end if;
1734: elsif (l_state = 11) then
1735: if (l_token = '=') then
1741: FND_MESSAGE.SET_TOKEN('TOKEN',l_token);
1742: FND_MESSAGE.SET_TOKEN('EXPECTED','=');
1743: FND_MSG_PUB.Add;
1744: end if;
1745: raise FND_API.G_EXC_ERROR;
1746: end if;
1747: elsif (l_state = 12) then
1748: l_value_count := 1;
1749: if (l_column = 'CREATED_BY') then
1774: FND_MESSAGE.SET_TOKEN('EXPECTED',l_column);
1775: FND_MSG_PUB.Add;
1776: end if;
1777: --dbms_output.put_line('Expecting ' || l_column || ' value');
1778: raise FND_API.G_EXC_ERROR;
1779: end if;
1780: elsif (l_state = 19) then
1781: if (l_token = 'EXCLUDED_ITEMS') then
1782: if not AK_SECURITY_PVT.EXCLUDED_ITEM_EXISTS (
1812: p_last_update_login => l_excluded_items_rec.last_update_login,
1813: p_loader_timestamp => p_loader_timestamp
1814: );
1815: -- If API call returns with an error status, upload aborts
1816: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
1817: (l_return_status = FND_API.G_RET_STS_ERROR) then
1818: RAISE FND_API.G_EXC_ERROR;
1819: end if; -- /* if l_return_status */
1820: end if; -- /* if EXCLUDED_ITEM_EXISTS */
1813: p_loader_timestamp => p_loader_timestamp
1814: );
1815: -- If API call returns with an error status, upload aborts
1816: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
1817: (l_return_status = FND_API.G_RET_STS_ERROR) then
1818: RAISE FND_API.G_EXC_ERROR;
1819: end if; -- /* if l_return_status */
1820: end if; -- /* if EXCLUDED_ITEM_EXISTS */
1821: l_state := 0;
1814: );
1815: -- If API call returns with an error status, upload aborts
1816: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
1817: (l_return_status = FND_API.G_RET_STS_ERROR) then
1818: RAISE FND_API.G_EXC_ERROR;
1819: end if; -- /* if l_return_status */
1820: end if; -- /* if EXCLUDED_ITEM_EXISTS */
1821: l_state := 0;
1822: else
1826: FND_MESSAGE.SET_TOKEN('TOKEN',l_token);
1827: FND_MESSAGE.SET_TOKEN('EXPECTED','EXCLUDED_ITEMS');
1828: FND_MSG_PUB.Add;
1829: end if;
1830: raise FND_API.G_EXC_ERROR;
1831: end if;
1832: elsif (l_state = 30) then
1833: if (l_token = 'END') then
1834: l_state := 39;
1868: FND_MESSAGE.SET_TOKEN('EXPECTED','ATTRIBUTE');
1869: FND_MSG_PUB.Add;
1870: end if;
1871: -- dbms_output.put_line('Expecting attribute field or END');
1872: raise FND_API.G_EXC_ERROR;
1873: end if;
1874: end if;
1875: elsif (l_state = 32) then
1876: if (l_token is not null) then
1884: FND_MESSAGE.SET_TOKEN('EXPECTED','RESPONSIBILITY_ID');
1885: FND_MSG_PUB.Add;
1886: end if;
1887: -- dbms_output.put_line('Expecting responsibility ID');
1888: raise FND_API.G_EXC_ERROR;
1889: end if;
1890: elsif (l_state = 33) then
1891: if (l_token is not null) then
1892: l_resp_sec_attr_rec.resp_application_id := to_number(l_token);
1899: FND_MESSAGE.SET_TOKEN('EXPECTED','RESP_APPLICATION_ID');
1900: FND_MSG_PUB.Add;
1901: end if;
1902: --dbms_output.put_line('Expecting resp application id');
1903: raise FND_API.G_EXC_ERROR;
1904: end if;
1905: elsif (l_state = 34) then
1906: if (l_token is not null) then
1907: l_resp_sec_attr_rec.attribute_application_id := to_number(l_token);
1914: FND_MESSAGE.SET_TOKEN('EXPECTED','ATTRIBUTE_APPLICATION_ID');
1915: FND_MSG_PUB.Add;
1916: end if;
1917: --dbms_output.put_line('Expecting attribute code');
1918: raise FND_API.G_EXC_ERROR;
1919: end if;
1920: elsif (l_state = 35) then
1921: if (l_token is not null) then
1922: l_resp_sec_attr_rec.attribute_code := l_token;
1930: FND_MESSAGE.SET_TOKEN('EXPECTED','ATTRIBUTE_CODE');
1931: FND_MSG_PUB.Add;
1932: end if;
1933: --dbms_output.put_line('Expecting attribute code');
1934: raise FND_API.G_EXC_ERROR;
1935: end if;
1936: elsif (l_state = 36) then
1937: if (l_token = '=') then
1938: l_state := 37;
1943: FND_MESSAGE.SET_TOKEN('TOKEN',l_token);
1944: FND_MESSAGE.SET_TOKEN('EXPECTED','=');
1945: FND_MSG_PUB.Add;
1946: end if;
1947: raise FND_API.G_EXC_ERROR;
1948: end if;
1949: elsif (l_state = 37) then
1950: l_value_count := 1;
1951: if (l_column = 'CREATED_BY') then
1976: FND_MESSAGE.SET_TOKEN('EXPECTED',l_column);
1977: FND_MSG_PUB.Add;
1978: end if;
1979: --dbms_output.put_line('Expecting ' || l_column || ' value');
1980: raise FND_API.G_EXC_ERROR;
1981: end if;
1982: elsif (l_state = 39) then
1983: if (l_token = 'RESP_SECURITY_ATTRIBUTES') then
1984: if not AK_SECURITY_PVT.RESP_SECURITY_ATTR_EXISTS (
2015: p_loader_timestamp => p_loader_timestamp
2016: );
2017: --
2018: -- If API call returns with an error status, upload aborts
2019: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
2020: (l_return_status = FND_API.G_RET_STS_ERROR) then
2021: RAISE FND_API.G_EXC_ERROR;
2022: end if; -- /* if l_return_status */
2023: end if; -- /* if RESP_SECURITY_ATTR_EXISTS */
2016: );
2017: --
2018: -- If API call returns with an error status, upload aborts
2019: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
2020: (l_return_status = FND_API.G_RET_STS_ERROR) then
2021: RAISE FND_API.G_EXC_ERROR;
2022: end if; -- /* if l_return_status */
2023: end if; -- /* if RESP_SECURITY_ATTR_EXISTS */
2024: l_state := 0;
2017: --
2018: -- If API call returns with an error status, upload aborts
2019: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
2020: (l_return_status = FND_API.G_RET_STS_ERROR) then
2021: RAISE FND_API.G_EXC_ERROR;
2022: end if; -- /* if l_return_status */
2023: end if; -- /* if RESP_SECURITY_ATTR_EXISTS */
2024: l_state := 0;
2025: else
2029: FND_MESSAGE.SET_TOKEN('TOKEN',l_token);
2030: FND_MESSAGE.SET_TOKEN('EXPECTED','RESP_SECURITY_ATTRIBUTES');
2031: FND_MSG_PUB.Add;
2032: end if;
2033: raise FND_API.G_EXC_ERROR;
2034: end if;
2035: end if;
2036:
2037: --
2052: p_lines_read => l_lines_read,
2053: p_eof_flag => l_eof_flag,
2054: p_upl_loader_cur => p_upl_loader_cur
2055: );
2056: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
2057: (l_return_status = FND_API.G_RET_STS_ERROR) then
2058: RAISE FND_API.G_EXC_ERROR;
2059: end if;
2060: l_line_num := l_line_num + l_lines_read;
2053: p_eof_flag => l_eof_flag,
2054: p_upl_loader_cur => p_upl_loader_cur
2055: );
2056: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
2057: (l_return_status = FND_API.G_RET_STS_ERROR) then
2058: RAISE FND_API.G_EXC_ERROR;
2059: end if;
2060: l_line_num := l_line_num + l_lines_read;
2061: --
2054: p_upl_loader_cur => p_upl_loader_cur
2055: );
2056: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
2057: (l_return_status = FND_API.G_RET_STS_ERROR) then
2058: RAISE FND_API.G_EXC_ERROR;
2059: end if;
2060: l_line_num := l_line_num + l_lines_read;
2061: --
2062: -- trim leading spaces and discard comment lines
2082: FND_MSG_PUB.Add;
2083: end if;
2084: --dbms_output.put_line('Unexpected END OF FILE: state is ' ||
2085: -- to_char(l_state));
2086: raise FND_API.G_EXC_ERROR;
2087: end if;
2088:
2089: --
2090: -- Load line number of the last file line processed
2090: -- Load line number of the last file line processed
2091: --
2092: p_line_num_out := l_line_num;
2093:
2094: p_return_status := FND_API.G_RET_STS_SUCCESS;
2095:
2096: --dbms_output.put_line('Leaving security upload: ' ||
2097: -- to_char(sysdate, 'MON-DD HH24:MI:SS'));
2098:
2096: --dbms_output.put_line('Leaving security upload: ' ||
2097: -- to_char(sysdate, 'MON-DD HH24:MI:SS'));
2098:
2099: EXCEPTION
2100: WHEN FND_API.G_EXC_ERROR THEN
2101: p_return_status := FND_API.G_RET_STS_ERROR;
2102: WHEN OTHERS THEN
2103: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2104: FND_MSG_PUB.Build_Exc_Msg( G_PKG_NAME, l_api_name,
2097: -- to_char(sysdate, 'MON-DD HH24:MI:SS'));
2098:
2099: EXCEPTION
2100: WHEN FND_API.G_EXC_ERROR THEN
2101: p_return_status := FND_API.G_RET_STS_ERROR;
2102: WHEN OTHERS THEN
2103: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2104: FND_MSG_PUB.Build_Exc_Msg( G_PKG_NAME, l_api_name,
2105: SUBSTR (SQLERRM, 1, 240) );
2099: EXCEPTION
2100: WHEN FND_API.G_EXC_ERROR THEN
2101: p_return_status := FND_API.G_RET_STS_ERROR;
2102: WHEN OTHERS THEN
2103: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2104: FND_MSG_PUB.Build_Exc_Msg( G_PKG_NAME, l_api_name,
2105: SUBSTR (SQLERRM, 1, 240) );
2106: FND_MSG_PUB.Add;
2107: end UPLOAD_SECURITY;
2139: -- Version Initial version number = 1.0
2140: -- History Current version number = 1.0
2141: --=======================================================
2142: function VALIDATE_SECURITY (
2143: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2144: p_api_version_number IN NUMBER,
2145: p_return_status OUT NOCOPY VARCHAR2,
2146: p_responsibility_appl_id IN NUMBER := FND_API.G_MISS_NUM,
2147: p_responsibility_id IN NUMBER := FND_API.G_MISS_NUM,
2142: function VALIDATE_SECURITY (
2143: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2144: p_api_version_number IN NUMBER,
2145: p_return_status OUT NOCOPY VARCHAR2,
2146: p_responsibility_appl_id IN NUMBER := FND_API.G_MISS_NUM,
2147: p_responsibility_id IN NUMBER := FND_API.G_MISS_NUM,
2148: p_attribute_application_id IN NUMBER := FND_API.G_MISS_NUM,
2149: p_attribute_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
2150: p_caller IN VARCHAR2
2143: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2144: p_api_version_number IN NUMBER,
2145: p_return_status OUT NOCOPY VARCHAR2,
2146: p_responsibility_appl_id IN NUMBER := FND_API.G_MISS_NUM,
2147: p_responsibility_id IN NUMBER := FND_API.G_MISS_NUM,
2148: p_attribute_application_id IN NUMBER := FND_API.G_MISS_NUM,
2149: p_attribute_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
2150: p_caller IN VARCHAR2
2151: ) return BOOLEAN is
2144: p_api_version_number IN NUMBER,
2145: p_return_status OUT NOCOPY VARCHAR2,
2146: p_responsibility_appl_id IN NUMBER := FND_API.G_MISS_NUM,
2147: p_responsibility_id IN NUMBER := FND_API.G_MISS_NUM,
2148: p_attribute_application_id IN NUMBER := FND_API.G_MISS_NUM,
2149: p_attribute_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
2150: p_caller IN VARCHAR2
2151: ) return BOOLEAN is
2152: l_api_version_number CONSTANT number := 1.0;
2145: p_return_status OUT NOCOPY VARCHAR2,
2146: p_responsibility_appl_id IN NUMBER := FND_API.G_MISS_NUM,
2147: p_responsibility_id IN NUMBER := FND_API.G_MISS_NUM,
2148: p_attribute_application_id IN NUMBER := FND_API.G_MISS_NUM,
2149: p_attribute_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
2150: p_caller IN VARCHAR2
2151: ) return BOOLEAN is
2152: l_api_version_number CONSTANT number := 1.0;
2153: l_api_name CONSTANT varchar2(30) := 'Validate_Security';
2153: l_api_name CONSTANT varchar2(30) := 'Validate_Security';
2154: l_error BOOLEAN;
2155: l_return_status VARCHAR2(1);
2156: begin
2157: IF NOT FND_API.Compatible_API_Call (
2158: l_api_version_number, p_api_version_number, l_api_name,
2159: G_PKG_NAME) then
2160: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2161: return FALSE;
2156: begin
2157: IF NOT FND_API.Compatible_API_Call (
2158: l_api_version_number, p_api_version_number, l_api_name,
2159: G_PKG_NAME) then
2160: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2161: return FALSE;
2162: END IF;
2163:
2164: l_error := FALSE;
2164: l_error := FALSE;
2165: --
2166: -- if validation level is none, no validation is necessary
2167: --
2168: if (p_validation_level = FND_API.G_VALID_LEVEL_NONE) then
2169: p_return_status := FND_API.G_RET_STS_SUCCESS;
2170: return TRUE;
2171: end if;
2172:
2165: --
2166: -- if validation level is none, no validation is necessary
2167: --
2168: if (p_validation_level = FND_API.G_VALID_LEVEL_NONE) then
2169: p_return_status := FND_API.G_RET_STS_SUCCESS;
2170: return TRUE;
2171: end if;
2172:
2173: --
2173: --
2174: -- check that key columns are not null and not missing
2175: --
2176: if ((p_responsibility_appl_id is null) or
2177: (p_responsibility_appl_id = FND_API.G_MISS_NUM)) then
2178: l_error := TRUE;
2179: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) then
2180: FND_MESSAGE.SET_NAME('AK','AK_CANNOT_BE_NULL');
2181: FND_MESSAGE.SET_TOKEN('COLUMN', 'RESP_APPLICATION_ID');
2183: end if;
2184: end if;
2185:
2186: if ((p_responsibility_id is null) or
2187: (p_responsibility_id = FND_API.G_MISS_NUM)) then
2188: l_error := TRUE;
2189: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) then
2190: FND_MESSAGE.SET_NAME('AK','AK_CANNOT_BE_NULL');
2191: FND_MESSAGE.SET_TOKEN('COLUMN', 'RESPONSIBILITY_ID');
2193: end if;
2194: end if;
2195:
2196: if ((p_attribute_application_id is null) or
2197: (p_attribute_application_id = FND_API.G_MISS_NUM)) then
2198: l_error := TRUE;
2199: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) then
2200: FND_MESSAGE.SET_NAME('AK','AK_CANNOT_BE_NULL');
2201: FND_MESSAGE.SET_TOKEN('COLUMN', 'ATTRIBUTE_APPLICATION_ID');
2203: end if;
2204: end if;
2205:
2206: if ((p_attribute_code is null) or
2207: (p_attribute_code = FND_API.G_MISS_CHAR)) then
2208: l_error := TRUE;
2209: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) then
2210: FND_MESSAGE.SET_NAME('AK','AK_CANNOT_BE_NULL');
2211: FND_MESSAGE.SET_TOKEN('COLUMN', 'ATTRIBUTE_CODE');
2216:
2217: --*** Validate columns ***
2218:
2219: -- - responsibility application ID
2220: if (p_responsibility_appl_id <> FND_API.G_MISS_NUM) then
2221: if (NOT AK_ON_OBJECTS_PVT.VALID_APPLICATION_ID (
2222: p_api_version_number => 1.0,
2223: p_return_status => l_return_status,
2224: p_application_id => p_responsibility_appl_id)
2232: end if;
2233: end if;
2234:
2235: -- - attribute application ID
2236: if (p_attribute_application_id <> FND_API.G_MISS_NUM) then
2237: if (NOT AK_ON_OBJECTS_PVT.VALID_APPLICATION_ID (
2238: p_api_version_number => 1.0,
2239: p_return_status => l_return_status,
2240: p_application_id => p_attribute_application_id)
2248: end if;
2249: end if;
2250:
2251: /* return true if no error, false otherwise */
2252: p_return_status := FND_API.G_RET_STS_SUCCESS;
2253: return (not l_error);
2254:
2255: EXCEPTION
2256: WHEN FND_API.G_EXC_ERROR THEN
2252: p_return_status := FND_API.G_RET_STS_SUCCESS;
2253: return (not l_error);
2254:
2255: EXCEPTION
2256: WHEN FND_API.G_EXC_ERROR THEN
2257: p_return_status := FND_API.G_RET_STS_ERROR;
2258: return FALSE;
2259: WHEN OTHERS THEN
2260: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2253: return (not l_error);
2254:
2255: EXCEPTION
2256: WHEN FND_API.G_EXC_ERROR THEN
2257: p_return_status := FND_API.G_RET_STS_ERROR;
2258: return FALSE;
2259: WHEN OTHERS THEN
2260: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2261: FND_MSG_PUB.Build_Exc_Msg( G_PKG_NAME, l_api_name,
2256: WHEN FND_API.G_EXC_ERROR THEN
2257: p_return_status := FND_API.G_RET_STS_ERROR;
2258: return FALSE;
2259: WHEN OTHERS THEN
2260: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2261: FND_MSG_PUB.Build_Exc_Msg( G_PKG_NAME, l_api_name,
2262: SUBSTR (SQLERRM, 1, 240) );
2263: FND_MSG_PUB.Add;
2264: return FALSE;