63: -- Parameters
64: --
65: -- IN
66: -- p_api_version_number IN NUMBER Required
67: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
68: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
69: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
70: -- p_na_rule_header_rec IN na_rule_header_rec_type Required
71: --
64: --
65: -- IN
66: -- p_api_version_number IN NUMBER Required
67: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
68: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
69: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
70: -- p_na_rule_header_rec IN na_rule_header_rec_type Required
71: --
72: -- OUT
65: -- IN
66: -- p_api_version_number IN NUMBER Required
67: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
68: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
69: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
70: -- p_na_rule_header_rec IN na_rule_header_rec_type Required
71: --
72: -- OUT
73: -- x_return_status OUT VARCHAR2
85: -- ==============================================================================
86:
87: PROCEDURE Create_Na_Rule_Header(
88: p_api_version_number IN NUMBER,
89: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
90: p_commit IN VARCHAR2 := FND_API.G_FALSE,
91: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
92:
93: x_return_status OUT NOCOPY VARCHAR2,
86:
87: PROCEDURE Create_Na_Rule_Header(
88: p_api_version_number IN NUMBER,
89: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
90: p_commit IN VARCHAR2 := FND_API.G_FALSE,
91: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
92:
93: x_return_status OUT NOCOPY VARCHAR2,
94: x_msg_count OUT NOCOPY NUMBER,
87: PROCEDURE Create_Na_Rule_Header(
88: p_api_version_number IN NUMBER,
89: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
90: p_commit IN VARCHAR2 := FND_API.G_FALSE,
91: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
92:
93: x_return_status OUT NOCOPY VARCHAR2,
94: x_msg_count OUT NOCOPY NUMBER,
95: x_msg_data OUT NOCOPY VARCHAR2,
104:
105: l_na_rule_header_rec na_rule_header_rec_type;
106: l_return_status_full VARCHAR2(1);
107: l_object_version_number NUMBER := 1;
108: l_org_id NUMBER := FND_API.G_MISS_NUM;
109: l_na_rule_header_id NUMBER;
110: l_dummy NUMBER;
111: CURSOR c_id IS
112: SELECT ozf_na_rule_headers_b_s.NEXTVAL
120: -- Standard Start of API savepoint
121: SAVEPOINT create_na_rule_header_pvt;
122:
123: -- Standard call to check for call compatibility.
124: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
125: p_api_version_number,
126: l_api_name,
127: G_PKG_NAME)
128: THEN
125: p_api_version_number,
126: l_api_name,
127: G_PKG_NAME)
128: THEN
129: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
130: END IF;
131:
132:
133: -- Initialize message list if p_init_msg_list is set to TRUE.
130: END IF;
131:
132:
133: -- Initialize message list if p_init_msg_list is set to TRUE.
134: IF FND_API.to_Boolean( p_init_msg_list )
135: THEN
136: FND_MSG_PUB.initialize;
137: END IF;
138:
143:
144:
145:
146: -- Initialize API return status to SUCCESS
147: x_return_status := FND_API.G_RET_STS_SUCCESS;
148:
149: -- =========================================================================
150: -- Validate Environment
151: -- =========================================================================
152:
153: IF FND_GLOBAL.USER_ID IS NULL
154: THEN
155: OZF_Utility_PVT.Error_Message(p_message_name => 'USER_PROFILE_MISSING');
156: RAISE FND_API.G_EXC_ERROR;
157: END IF;
158:
159:
160: -- Local variable initialization
158:
159:
160: -- Local variable initialization
161:
162: IF p_na_rule_header_rec.na_rule_header_id IS NULL OR p_na_rule_header_rec.na_rule_header_id = FND_API.g_miss_num THEN
163: LOOP
164: l_dummy := NULL;
165: OPEN c_id;
166: FETCH c_id INTO l_na_rule_header_id;
178:
179: l_na_rule_header_rec := p_na_rule_header_rec;
180: l_na_rule_header_rec.na_rule_header_id := l_na_rule_header_id;
181:
182: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
183: THEN
184: -- Debug message
185: OZF_UTILITY_PVT.debug_message('Private API: Validate_Na_Rule_Header');
186:
186:
187: -- Invoke validation procedures
188: Validate_na_rule_header(
189: p_api_version_number => 1.0,
190: p_init_msg_list => FND_API.G_FALSE,
191: p_validation_level => p_validation_level,
192: p_validation_mode => JTF_PLSQL_API.g_create,
193: p_na_rule_header_rec => l_na_rule_header_rec,
194: x_return_status => x_return_status,
195: x_msg_count => x_msg_count,
196: x_msg_data => x_msg_data);
197: END IF;
198:
199: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
200: RAISE FND_API.G_EXC_ERROR;
201: END IF;
202:
203:
196: x_msg_data => x_msg_data);
197: END IF;
198:
199: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
200: RAISE FND_API.G_EXC_ERROR;
201: END IF;
202:
203:
204: -- Debug Message
221: p_description => l_na_rule_header_rec.description
222: );
223:
224: x_na_rule_header_id := l_na_rule_header_id;
225: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
226: RAISE FND_API.G_EXC_ERROR;
227: END IF;
228: --
229: -- End of API body
222: );
223:
224: x_na_rule_header_id := l_na_rule_header_id;
225: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
226: RAISE FND_API.G_EXC_ERROR;
227: END IF;
228: --
229: -- End of API body
230: --
229: -- End of API body
230: --
231:
232: -- Standard check for p_commit
233: IF FND_API.to_Boolean( p_commit )
234: THEN
235: COMMIT WORK;
236: END IF;
237:
247: );
248: EXCEPTION
249:
250: WHEN OZF_Utility_PVT.resource_locked THEN
251: x_return_status := FND_API.g_ret_sts_error;
252: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
253:
254: WHEN FND_API.G_EXC_ERROR THEN
255: ROLLBACK TO CREATE_Na_Rule_Header_PVT;
250: WHEN OZF_Utility_PVT.resource_locked THEN
251: x_return_status := FND_API.g_ret_sts_error;
252: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
253:
254: WHEN FND_API.G_EXC_ERROR THEN
255: ROLLBACK TO CREATE_Na_Rule_Header_PVT;
256: x_return_status := FND_API.G_RET_STS_ERROR;
257: -- Standard call to get message count and if count=1, get the message
258: FND_MSG_PUB.Count_And_Get (
252: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
253:
254: WHEN FND_API.G_EXC_ERROR THEN
255: ROLLBACK TO CREATE_Na_Rule_Header_PVT;
256: x_return_status := FND_API.G_RET_STS_ERROR;
257: -- Standard call to get message count and if count=1, get the message
258: FND_MSG_PUB.Count_And_Get (
259: p_encoded => FND_API.G_FALSE,
260: p_count => x_msg_count,
255: ROLLBACK TO CREATE_Na_Rule_Header_PVT;
256: x_return_status := FND_API.G_RET_STS_ERROR;
257: -- Standard call to get message count and if count=1, get the message
258: FND_MSG_PUB.Count_And_Get (
259: p_encoded => FND_API.G_FALSE,
260: p_count => x_msg_count,
261: p_data => x_msg_data
262: );
263:
260: p_count => x_msg_count,
261: p_data => x_msg_data
262: );
263:
264: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
265: ROLLBACK TO CREATE_Na_Rule_Header_PVT;
266: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
267: -- Standard call to get message count and if count=1, get the message
268: FND_MSG_PUB.Count_And_Get (
262: );
263:
264: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
265: ROLLBACK TO CREATE_Na_Rule_Header_PVT;
266: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
267: -- Standard call to get message count and if count=1, get the message
268: FND_MSG_PUB.Count_And_Get (
269: p_encoded => FND_API.G_FALSE,
270: p_count => x_msg_count,
265: ROLLBACK TO CREATE_Na_Rule_Header_PVT;
266: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
267: -- Standard call to get message count and if count=1, get the message
268: FND_MSG_PUB.Count_And_Get (
269: p_encoded => FND_API.G_FALSE,
270: p_count => x_msg_count,
271: p_data => x_msg_data
272: );
273:
272: );
273:
274: WHEN OTHERS THEN
275: ROLLBACK TO CREATE_Na_Rule_Header_PVT;
276: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
277: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
278: THEN
279: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
280: END IF;
279: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
280: END IF;
281: -- Standard call to get message count and if count=1, get the message
282: FND_MSG_PUB.Count_And_Get (
283: p_encoded => FND_API.G_FALSE,
284: p_count => x_msg_count,
285: p_data => x_msg_data
286: );
287: End Create_Na_Rule_Header;
299: -- Parameters
300: --
301: -- IN
302: -- p_api_version_number IN NUMBER Required
303: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
304: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
305: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
306: -- p_na_rule_header_rec IN na_rule_header_rec_type Required
307: --
300: --
301: -- IN
302: -- p_api_version_number IN NUMBER Required
303: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
304: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
305: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
306: -- p_na_rule_header_rec IN na_rule_header_rec_type Required
307: --
308: -- OUT
301: -- IN
302: -- p_api_version_number IN NUMBER Required
303: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
304: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
305: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
306: -- p_na_rule_header_rec IN na_rule_header_rec_type Required
307: --
308: -- OUT
309: -- x_return_status OUT VARCHAR2
321: -- ==============================================================================
322:
323: PROCEDURE Update_Na_Rule_Header(
324: p_api_version_number IN NUMBER,
325: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
326: p_commit IN VARCHAR2 := FND_API.G_FALSE,
327: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
328:
329: x_return_status OUT NOCOPY VARCHAR2,
322:
323: PROCEDURE Update_Na_Rule_Header(
324: p_api_version_number IN NUMBER,
325: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
326: p_commit IN VARCHAR2 := FND_API.G_FALSE,
327: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
328:
329: x_return_status OUT NOCOPY VARCHAR2,
330: x_msg_count OUT NOCOPY NUMBER,
323: PROCEDURE Update_Na_Rule_Header(
324: p_api_version_number IN NUMBER,
325: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
326: p_commit IN VARCHAR2 := FND_API.G_FALSE,
327: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
328:
329: x_return_status OUT NOCOPY VARCHAR2,
330: x_msg_count OUT NOCOPY NUMBER,
331: x_msg_data OUT NOCOPY VARCHAR2,
356: -- Standard Start of API savepoint
357: SAVEPOINT update_na_rule_header_pvt;
358:
359: -- Standard call to check for call compatibility.
360: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
361: p_api_version_number,
362: l_api_name,
363: G_PKG_NAME)
364: THEN
361: p_api_version_number,
362: l_api_name,
363: G_PKG_NAME)
364: THEN
365: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
366: END IF;
367:
368:
369: -- Initialize message list if p_init_msg_list is set to TRUE.
366: END IF;
367:
368:
369: -- Initialize message list if p_init_msg_list is set to TRUE.
370: IF FND_API.to_Boolean( p_init_msg_list )
371: THEN
372: FND_MSG_PUB.initialize;
373: END IF;
374:
379:
380:
381:
382: -- Initialize API return status to SUCCESS
383: x_return_status := FND_API.G_RET_STS_SUCCESS;
384:
385: -- Debug Message
386: OZF_UTILITY_PVT.debug_message('Private API: - Open Cursor to Select');
387:
392: If ( c_get_Na_Rule_Header%NOTFOUND) THEN
393: OZF_Utility_PVT.Error_Message(p_message_name => 'API_MISSING_UPDATE_TARGET',
394: p_token_name => 'INFO',
395: p_token_value => 'Na_Rule_Header') ;
396: RAISE FND_API.G_EXC_ERROR;
397: END IF;
398: -- Debug Message
399: OZF_UTILITY_PVT.debug_message('Private API: - Close Cursor');
400: CLOSE c_get_Na_Rule_Header;
400: CLOSE c_get_Na_Rule_Header;
401:
402:
403: If (l_tar_na_rule_header_rec.object_version_number is NULL or
404: l_tar_na_rule_header_rec.object_version_number = FND_API.G_MISS_NUM ) Then
405: OZF_Utility_PVT.Error_Message(p_message_name => 'API_VERSION_MISSING',
406: p_token_name => 'COLUMN',
407: p_token_value => 'Last_Update_Date') ;
408: raise FND_API.G_EXC_ERROR;
404: l_tar_na_rule_header_rec.object_version_number = FND_API.G_MISS_NUM ) Then
405: OZF_Utility_PVT.Error_Message(p_message_name => 'API_VERSION_MISSING',
406: p_token_name => 'COLUMN',
407: p_token_value => 'Last_Update_Date') ;
408: raise FND_API.G_EXC_ERROR;
409: End if;
410: -- Check Whether record has been changed by someone else
411: If (l_tar_na_rule_header_rec.object_version_number <> l_ref_na_rule_header_rec.object_version_number) Then
412: OZF_Utility_PVT.Error_Message(p_message_name => 'API_RECORD_CHANGED',
411: If (l_tar_na_rule_header_rec.object_version_number <> l_ref_na_rule_header_rec.object_version_number) Then
412: OZF_Utility_PVT.Error_Message(p_message_name => 'API_RECORD_CHANGED',
413: p_token_name => 'INFO',
414: p_token_value => 'Na_Rule_Header') ;
415: raise FND_API.G_EXC_ERROR;
416: End if;
417:
418:
419: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
415: raise FND_API.G_EXC_ERROR;
416: End if;
417:
418:
419: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
420: THEN
421: -- Debug message
422: OZF_UTILITY_PVT.debug_message('Private API: Validate_Na_Rule_Header');
423:
423:
424: -- Invoke validation procedures
425: Validate_na_rule_header(
426: p_api_version_number => 1.0,
427: p_init_msg_list => FND_API.G_FALSE,
428: p_validation_level => p_validation_level,
429: p_validation_mode => JTF_PLSQL_API.g_update,
430: p_na_rule_header_rec => p_na_rule_header_rec,
431: x_return_status => x_return_status,
432: x_msg_count => x_msg_count,
433: x_msg_data => x_msg_data);
434: END IF;
435:
436: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
437: RAISE FND_API.G_EXC_ERROR;
438: END IF;
439:
440:
433: x_msg_data => x_msg_data);
434: END IF;
435:
436: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
437: RAISE FND_API.G_EXC_ERROR;
438: END IF;
439:
440:
441: -- Debug Message
459: -- End of API body.
460: --
461:
462: -- Standard check for p_commit
463: IF FND_API.to_Boolean( p_commit )
464: THEN
465: COMMIT WORK;
466: END IF;
467:
477: );
478: EXCEPTION
479:
480: WHEN OZF_Utility_PVT.resource_locked THEN
481: x_return_status := FND_API.g_ret_sts_error;
482: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
483:
484: WHEN FND_API.G_EXC_ERROR THEN
485: ROLLBACK TO UPDATE_Na_Rule_Header_PVT;
480: WHEN OZF_Utility_PVT.resource_locked THEN
481: x_return_status := FND_API.g_ret_sts_error;
482: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
483:
484: WHEN FND_API.G_EXC_ERROR THEN
485: ROLLBACK TO UPDATE_Na_Rule_Header_PVT;
486: x_return_status := FND_API.G_RET_STS_ERROR;
487: -- Standard call to get message count and if count=1, get the message
488: FND_MSG_PUB.Count_And_Get (
482: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
483:
484: WHEN FND_API.G_EXC_ERROR THEN
485: ROLLBACK TO UPDATE_Na_Rule_Header_PVT;
486: x_return_status := FND_API.G_RET_STS_ERROR;
487: -- Standard call to get message count and if count=1, get the message
488: FND_MSG_PUB.Count_And_Get (
489: p_encoded => FND_API.G_FALSE,
490: p_count => x_msg_count,
485: ROLLBACK TO UPDATE_Na_Rule_Header_PVT;
486: x_return_status := FND_API.G_RET_STS_ERROR;
487: -- Standard call to get message count and if count=1, get the message
488: FND_MSG_PUB.Count_And_Get (
489: p_encoded => FND_API.G_FALSE,
490: p_count => x_msg_count,
491: p_data => x_msg_data
492: );
493:
490: p_count => x_msg_count,
491: p_data => x_msg_data
492: );
493:
494: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
495: ROLLBACK TO UPDATE_Na_Rule_Header_PVT;
496: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
497: -- Standard call to get message count and if count=1, get the message
498: FND_MSG_PUB.Count_And_Get (
492: );
493:
494: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
495: ROLLBACK TO UPDATE_Na_Rule_Header_PVT;
496: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
497: -- Standard call to get message count and if count=1, get the message
498: FND_MSG_PUB.Count_And_Get (
499: p_encoded => FND_API.G_FALSE,
500: p_count => x_msg_count,
495: ROLLBACK TO UPDATE_Na_Rule_Header_PVT;
496: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
497: -- Standard call to get message count and if count=1, get the message
498: FND_MSG_PUB.Count_And_Get (
499: p_encoded => FND_API.G_FALSE,
500: p_count => x_msg_count,
501: p_data => x_msg_data
502: );
503:
502: );
503:
504: WHEN OTHERS THEN
505: ROLLBACK TO UPDATE_Na_Rule_Header_PVT;
506: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
507: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
508: THEN
509: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
510: END IF;
509: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
510: END IF;
511: -- Standard call to get message count and if count=1, get the message
512: FND_MSG_PUB.Count_And_Get (
513: p_encoded => FND_API.G_FALSE,
514: p_count => x_msg_count,
515: p_data => x_msg_data
516: );
517: End Update_Na_Rule_Header;
529: -- Parameters
530: --
531: -- IN
532: -- p_api_version_number IN NUMBER Required
533: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
534: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
535: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
536: -- p_na_rule_header_id IN NUMBER
537: -- p_object_version_number IN NUMBER Optional Default = NULL
530: --
531: -- IN
532: -- p_api_version_number IN NUMBER Required
533: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
534: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
535: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
536: -- p_na_rule_header_id IN NUMBER
537: -- p_object_version_number IN NUMBER Optional Default = NULL
538: --
531: -- IN
532: -- p_api_version_number IN NUMBER Required
533: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
534: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
535: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
536: -- p_na_rule_header_id IN NUMBER
537: -- p_object_version_number IN NUMBER Optional Default = NULL
538: --
539: -- OUT
552: -- ==============================================================================
553:
554: PROCEDURE Delete_Na_Rule_Header(
555: p_api_version_number IN NUMBER,
556: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
557: p_commit IN VARCHAR2 := FND_API.G_FALSE,
558: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
559: x_return_status OUT NOCOPY VARCHAR2,
560: x_msg_count OUT NOCOPY NUMBER,
553:
554: PROCEDURE Delete_Na_Rule_Header(
555: p_api_version_number IN NUMBER,
556: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
557: p_commit IN VARCHAR2 := FND_API.G_FALSE,
558: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
559: x_return_status OUT NOCOPY VARCHAR2,
560: x_msg_count OUT NOCOPY NUMBER,
561: x_msg_data OUT NOCOPY VARCHAR2,
554: PROCEDURE Delete_Na_Rule_Header(
555: p_api_version_number IN NUMBER,
556: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
557: p_commit IN VARCHAR2 := FND_API.G_FALSE,
558: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
559: x_return_status OUT NOCOPY VARCHAR2,
560: x_msg_count OUT NOCOPY NUMBER,
561: x_msg_data OUT NOCOPY VARCHAR2,
562: p_na_rule_header_id IN NUMBER,
572: -- Standard Start of API savepoint
573: SAVEPOINT delete_na_rule_header_pvt;
574:
575: -- Standard call to check for call compatibility.
576: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
577: p_api_version_number,
578: l_api_name,
579: G_PKG_NAME)
580: THEN
577: p_api_version_number,
578: l_api_name,
579: G_PKG_NAME)
580: THEN
581: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
582: END IF;
583:
584:
585: -- Initialize message list if p_init_msg_list is set to TRUE.
582: END IF;
583:
584:
585: -- Initialize message list if p_init_msg_list is set to TRUE.
586: IF FND_API.to_Boolean( p_init_msg_list )
587: THEN
588: FND_MSG_PUB.initialize;
589: END IF;
590:
595:
596:
597:
598: -- Initialize API return status to SUCCESS
599: x_return_status := FND_API.G_RET_STS_SUCCESS;
600:
601: --
602: -- Api body
603: --
612: -- End of API body
613: --
614:
615: -- Standard check for p_commit
616: IF FND_API.to_Boolean( p_commit )
617: THEN
618: COMMIT WORK;
619: END IF;
620:
630: );
631: EXCEPTION
632:
633: WHEN OZF_Utility_PVT.resource_locked THEN
634: x_return_status := FND_API.g_ret_sts_error;
635: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
636:
637: WHEN FND_API.G_EXC_ERROR THEN
638: ROLLBACK TO DELETE_Na_Rule_Header_PVT;
633: WHEN OZF_Utility_PVT.resource_locked THEN
634: x_return_status := FND_API.g_ret_sts_error;
635: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
636:
637: WHEN FND_API.G_EXC_ERROR THEN
638: ROLLBACK TO DELETE_Na_Rule_Header_PVT;
639: x_return_status := FND_API.G_RET_STS_ERROR;
640: -- Standard call to get message count and if count=1, get the message
641: FND_MSG_PUB.Count_And_Get (
635: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
636:
637: WHEN FND_API.G_EXC_ERROR THEN
638: ROLLBACK TO DELETE_Na_Rule_Header_PVT;
639: x_return_status := FND_API.G_RET_STS_ERROR;
640: -- Standard call to get message count and if count=1, get the message
641: FND_MSG_PUB.Count_And_Get (
642: p_encoded => FND_API.G_FALSE,
643: p_count => x_msg_count,
638: ROLLBACK TO DELETE_Na_Rule_Header_PVT;
639: x_return_status := FND_API.G_RET_STS_ERROR;
640: -- Standard call to get message count and if count=1, get the message
641: FND_MSG_PUB.Count_And_Get (
642: p_encoded => FND_API.G_FALSE,
643: p_count => x_msg_count,
644: p_data => x_msg_data
645: );
646:
643: p_count => x_msg_count,
644: p_data => x_msg_data
645: );
646:
647: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
648: ROLLBACK TO DELETE_Na_Rule_Header_PVT;
649: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
650: -- Standard call to get message count and if count=1, get the message
651: FND_MSG_PUB.Count_And_Get (
645: );
646:
647: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
648: ROLLBACK TO DELETE_Na_Rule_Header_PVT;
649: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
650: -- Standard call to get message count and if count=1, get the message
651: FND_MSG_PUB.Count_And_Get (
652: p_encoded => FND_API.G_FALSE,
653: p_count => x_msg_count,
648: ROLLBACK TO DELETE_Na_Rule_Header_PVT;
649: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
650: -- Standard call to get message count and if count=1, get the message
651: FND_MSG_PUB.Count_And_Get (
652: p_encoded => FND_API.G_FALSE,
653: p_count => x_msg_count,
654: p_data => x_msg_data
655: );
656:
655: );
656:
657: WHEN OTHERS THEN
658: ROLLBACK TO DELETE_Na_Rule_Header_PVT;
659: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
660: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
661: THEN
662: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
663: END IF;
662: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
663: END IF;
664: -- Standard call to get message count and if count=1, get the message
665: FND_MSG_PUB.Count_And_Get (
666: p_encoded => FND_API.G_FALSE,
667: p_count => x_msg_count,
668: p_data => x_msg_data
669: );
670: End Delete_Na_Rule_Header;
684: -- Parameters
685: --
686: -- IN
687: -- p_api_version_number IN NUMBER Required
688: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
689: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
690: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
691: -- p_na_rule_header_rec IN na_rule_header_rec_type Required
692: --
685: --
686: -- IN
687: -- p_api_version_number IN NUMBER Required
688: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
689: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
690: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
691: -- p_na_rule_header_rec IN na_rule_header_rec_type Required
692: --
693: -- OUT
686: -- IN
687: -- p_api_version_number IN NUMBER Required
688: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
689: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
690: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
691: -- p_na_rule_header_rec IN na_rule_header_rec_type Required
692: --
693: -- OUT
694: -- x_return_status OUT VARCHAR2
706: -- ==============================================================================
707:
708: PROCEDURE Lock_Na_Rule_Header(
709: p_api_version_number IN NUMBER,
710: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
711:
712: x_return_status OUT NOCOPY VARCHAR2,
713: x_msg_count OUT NOCOPY NUMBER,
714: x_msg_data OUT NOCOPY VARCHAR2,
729: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
730:
731:
732: -- Initialize message list if p_init_msg_list is set to TRUE.
733: IF FND_API.to_Boolean( p_init_msg_list )
734: THEN
735: FND_MSG_PUB.initialize;
736: END IF;
737:
737:
738:
739:
740: -- Standard call to check for call compatibility.
741: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
742: p_api_version_number,
743: l_api_name,
744: G_PKG_NAME)
745: THEN
742: p_api_version_number,
743: l_api_name,
744: G_PKG_NAME)
745: THEN
746: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
747: END IF;
748:
749:
750:
748:
749:
750:
751: -- Initialize API return status to SUCCESS
752: x_return_status := FND_API.G_RET_STS_SUCCESS;
753:
754:
755: ------------------------ lock -------------------------
756: Ozf_Na_Rule_Header_Pkg.Lock_Row(l_na_rule_header_id,p_object_version);
757:
758:
759: -------------------- finish --------------------------
760: FND_MSG_PUB.count_and_get(
761: p_encoded => FND_API.g_false,
762: p_count => x_msg_count,
763: p_data => x_msg_data);
764: OZF_Utility_PVT.debug_message(l_full_name ||': end');
765: EXCEPTION
764: OZF_Utility_PVT.debug_message(l_full_name ||': end');
765: EXCEPTION
766:
767: WHEN OZF_Utility_PVT.resource_locked THEN
768: x_return_status := FND_API.g_ret_sts_error;
769: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
770:
771: WHEN FND_API.G_EXC_ERROR THEN
772: ROLLBACK TO LOCK_Na_Rule_Header_PVT;
767: WHEN OZF_Utility_PVT.resource_locked THEN
768: x_return_status := FND_API.g_ret_sts_error;
769: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
770:
771: WHEN FND_API.G_EXC_ERROR THEN
772: ROLLBACK TO LOCK_Na_Rule_Header_PVT;
773: x_return_status := FND_API.G_RET_STS_ERROR;
774: -- Standard call to get message count and if count=1, get the message
775: FND_MSG_PUB.Count_And_Get (
769: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
770:
771: WHEN FND_API.G_EXC_ERROR THEN
772: ROLLBACK TO LOCK_Na_Rule_Header_PVT;
773: x_return_status := FND_API.G_RET_STS_ERROR;
774: -- Standard call to get message count and if count=1, get the message
775: FND_MSG_PUB.Count_And_Get (
776: p_encoded => FND_API.G_FALSE,
777: p_count => x_msg_count,
772: ROLLBACK TO LOCK_Na_Rule_Header_PVT;
773: x_return_status := FND_API.G_RET_STS_ERROR;
774: -- Standard call to get message count and if count=1, get the message
775: FND_MSG_PUB.Count_And_Get (
776: p_encoded => FND_API.G_FALSE,
777: p_count => x_msg_count,
778: p_data => x_msg_data
779: );
780:
777: p_count => x_msg_count,
778: p_data => x_msg_data
779: );
780:
781: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
782: ROLLBACK TO LOCK_Na_Rule_Header_PVT;
783: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
784: -- Standard call to get message count and if count=1, get the message
785: FND_MSG_PUB.Count_And_Get (
779: );
780:
781: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
782: ROLLBACK TO LOCK_Na_Rule_Header_PVT;
783: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
784: -- Standard call to get message count and if count=1, get the message
785: FND_MSG_PUB.Count_And_Get (
786: p_encoded => FND_API.G_FALSE,
787: p_count => x_msg_count,
782: ROLLBACK TO LOCK_Na_Rule_Header_PVT;
783: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
784: -- Standard call to get message count and if count=1, get the message
785: FND_MSG_PUB.Count_And_Get (
786: p_encoded => FND_API.G_FALSE,
787: p_count => x_msg_count,
788: p_data => x_msg_data
789: );
790:
789: );
790:
791: WHEN OTHERS THEN
792: ROLLBACK TO LOCK_Na_Rule_Header_PVT;
793: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
794: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
795: THEN
796: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
797: END IF;
796: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
797: END IF;
798: -- Standard call to get message count and if count=1, get the message
799: FND_MSG_PUB.Count_And_Get (
800: p_encoded => FND_API.G_FALSE,
801: p_count => x_msg_count,
802: p_data => x_msg_data
803: );
804: End Lock_Na_Rule_Header;
813: IS
814: l_valid_flag VARCHAR2(1);
815:
816: BEGIN
817: x_return_status := FND_API.g_ret_sts_success;
818: IF p_validation_mode = JTF_PLSQL_API.g_create
819: AND p_na_rule_header_rec.na_rule_header_id IS NOT NULL
820: THEN
821: l_valid_flag := OZF_Utility_PVT.check_uniqueness(
823: 'na_rule_header_id = ''' || p_na_rule_header_rec.na_rule_header_id ||''''
824: );
825: END IF;
826:
827: IF l_valid_flag = FND_API.g_false THEN
828: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_na_rule_header_id_DUPLICATE');
829: x_return_status := FND_API.g_ret_sts_error;
830: END IF;
831:
825: END IF;
826:
827: IF l_valid_flag = FND_API.g_false THEN
828: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_na_rule_header_id_DUPLICATE');
829: x_return_status := FND_API.g_ret_sts_error;
830: END IF;
831:
832: END check_Na_Rule_Hdr_Uk_Items;
833:
839: x_return_status OUT NOCOPY VARCHAR2
840: )
841: IS
842: BEGIN
843: x_return_status := FND_API.g_ret_sts_success;
844:
845: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
846:
847:
844:
845: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
846:
847:
848: IF p_na_rule_header_rec.na_rule_header_id = FND_API.G_MISS_NUM OR p_na_rule_header_rec.na_rule_header_id IS NULL THEN
849: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'NA_RULE_HEADER_ID' );
850: x_return_status := FND_API.g_ret_sts_error;
851: END IF;
852:
846:
847:
848: IF p_na_rule_header_rec.na_rule_header_id = FND_API.G_MISS_NUM OR p_na_rule_header_rec.na_rule_header_id IS NULL THEN
849: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'NA_RULE_HEADER_ID' );
850: x_return_status := FND_API.g_ret_sts_error;
851: END IF;
852:
853:
854: /* IF p_na_rule_header_rec.user_status_id = FND_API.G_MISS_NUM OR p_na_rule_header_rec.user_status_id IS NULL THEN
850: x_return_status := FND_API.g_ret_sts_error;
851: END IF;
852:
853:
854: /* IF p_na_rule_header_rec.user_status_id = FND_API.G_MISS_NUM OR p_na_rule_header_rec.user_status_id IS NULL THEN
855: OZF_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'USER_STATUS_ID' );
856: x_return_status := FND_API.g_ret_sts_error;
857: END IF;
858:
852:
853:
854: /* IF p_na_rule_header_rec.user_status_id = FND_API.G_MISS_NUM OR p_na_rule_header_rec.user_status_id IS NULL THEN
855: OZF_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'USER_STATUS_ID' );
856: x_return_status := FND_API.g_ret_sts_error;
857: END IF;
858:
859:
860: IF p_na_rule_header_rec.status_code = FND_API.g_miss_char OR p_na_rule_header_rec.status_code IS NULL THEN
856: x_return_status := FND_API.g_ret_sts_error;
857: END IF;
858:
859:
860: IF p_na_rule_header_rec.status_code = FND_API.g_miss_char OR p_na_rule_header_rec.status_code IS NULL THEN
861: OZF_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'STATUS_CODE' );
862: x_return_status := FND_API.g_ret_sts_error;
863: END IF;
864: */
858:
859:
860: IF p_na_rule_header_rec.status_code = FND_API.g_miss_char OR p_na_rule_header_rec.status_code IS NULL THEN
861: OZF_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'STATUS_CODE' );
862: x_return_status := FND_API.g_ret_sts_error;
863: END IF;
864: */
865:
866: /* IF p_na_rule_header_rec.object_version_number = FND_API.G_MISS_NUM OR p_na_rule_header_rec.object_version_number IS NULL THEN
862: x_return_status := FND_API.g_ret_sts_error;
863: END IF;
864: */
865:
866: /* IF p_na_rule_header_rec.object_version_number = FND_API.G_MISS_NUM OR p_na_rule_header_rec.object_version_number IS NULL THEN
867: OZF_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'OBJECT_VERSION_NUMBER' );
868: x_return_status := FND_API.g_ret_sts_error;
869: END IF;
870: */
864: */
865:
866: /* IF p_na_rule_header_rec.object_version_number = FND_API.G_MISS_NUM OR p_na_rule_header_rec.object_version_number IS NULL THEN
867: OZF_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'OBJECT_VERSION_NUMBER' );
868: x_return_status := FND_API.g_ret_sts_error;
869: END IF;
870: */
871:
872: ELSE
871:
872: ELSE
873:
874:
875: IF p_na_rule_header_rec.na_rule_header_id = FND_API.G_MISS_NUM THEN
876: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'NA_RULE_HEADER_ID' );
877: x_return_status := FND_API.g_ret_sts_error;
878: END IF;
879:
873:
874:
875: IF p_na_rule_header_rec.na_rule_header_id = FND_API.G_MISS_NUM THEN
876: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'NA_RULE_HEADER_ID' );
877: x_return_status := FND_API.g_ret_sts_error;
878: END IF;
879:
880: /*
881: IF p_na_rule_header_rec.user_status_id = FND_API.G_MISS_NUM THEN
877: x_return_status := FND_API.g_ret_sts_error;
878: END IF;
879:
880: /*
881: IF p_na_rule_header_rec.user_status_id = FND_API.G_MISS_NUM THEN
882: OZF_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'USER_STATUS_ID' );
883: x_return_status := FND_API.g_ret_sts_error;
884: END IF;
885:
879:
880: /*
881: IF p_na_rule_header_rec.user_status_id = FND_API.G_MISS_NUM THEN
882: OZF_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'USER_STATUS_ID' );
883: x_return_status := FND_API.g_ret_sts_error;
884: END IF;
885:
886:
887: IF p_na_rule_header_rec.status_code = FND_API.g_miss_char THEN
883: x_return_status := FND_API.g_ret_sts_error;
884: END IF;
885:
886:
887: IF p_na_rule_header_rec.status_code = FND_API.g_miss_char THEN
888: OZF_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'STATUS_CODE' );
889: x_return_status := FND_API.g_ret_sts_error;
890: END IF;
891: */
885:
886:
887: IF p_na_rule_header_rec.status_code = FND_API.g_miss_char THEN
888: OZF_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'STATUS_CODE' );
889: x_return_status := FND_API.g_ret_sts_error;
890: END IF;
891: */
892:
893: IF p_na_rule_header_rec.object_version_number = FND_API.G_MISS_NUM THEN
889: x_return_status := FND_API.g_ret_sts_error;
890: END IF;
891: */
892:
893: IF p_na_rule_header_rec.object_version_number = FND_API.G_MISS_NUM THEN
894: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'OBJECT_VERSION_NUMBER' );
895: x_return_status := FND_API.g_ret_sts_error;
896: END IF;
897: END IF;
891: */
892:
893: IF p_na_rule_header_rec.object_version_number = FND_API.G_MISS_NUM THEN
894: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'OBJECT_VERSION_NUMBER' );
895: x_return_status := FND_API.g_ret_sts_error;
896: END IF;
897: END IF;
898:
899: END check_Na_Rule_Hdr_Req_Items;
905: x_return_status OUT NOCOPY VARCHAR2
906: )
907: IS
908: BEGIN
909: x_return_status := FND_API.g_ret_sts_success;
910:
911: -- Enter custom code here
912:
913: END check_Na_Rule_Hdr_Fk_Items;
919: x_return_status OUT NOCOPY VARCHAR2
920: )
921: IS
922: BEGIN
923: x_return_status := FND_API.g_ret_sts_success;
924:
925: -- Enter custom code here
926:
927: END check_Na_Rule_Hdr_Lkp_Items;
936: IS
937: l_return_status VARCHAR2(1);
938: BEGIN
939:
940: l_return_status := FND_API.g_ret_sts_success;
941: -- Check Items Uniqueness API calls
942:
943: check_Na_Rule_Hdr_Uk_Items(
944: p_na_rule_header_rec => p_na_rule_header_rec,
943: check_Na_Rule_Hdr_Uk_Items(
944: p_na_rule_header_rec => p_na_rule_header_rec,
945: p_validation_mode => p_validation_mode,
946: x_return_status => x_return_status);
947: IF x_return_status <> FND_API.g_ret_sts_success THEN
948: l_return_status := FND_API.g_ret_sts_error;
949: END IF;
950:
951: -- Check Items Required/NOT NULL API calls
944: p_na_rule_header_rec => p_na_rule_header_rec,
945: p_validation_mode => p_validation_mode,
946: x_return_status => x_return_status);
947: IF x_return_status <> FND_API.g_ret_sts_success THEN
948: l_return_status := FND_API.g_ret_sts_error;
949: END IF;
950:
951: -- Check Items Required/NOT NULL API calls
952:
953: check_na_rule_hdr_req_items(
954: p_na_rule_header_rec => p_na_rule_header_rec,
955: p_validation_mode => p_validation_mode,
956: x_return_status => x_return_status);
957: IF x_return_status <> FND_API.g_ret_sts_success THEN
958: l_return_status := FND_API.g_ret_sts_error;
959: END IF;
960: -- Check Items Foreign Keys API calls
961:
954: p_na_rule_header_rec => p_na_rule_header_rec,
955: p_validation_mode => p_validation_mode,
956: x_return_status => x_return_status);
957: IF x_return_status <> FND_API.g_ret_sts_success THEN
958: l_return_status := FND_API.g_ret_sts_error;
959: END IF;
960: -- Check Items Foreign Keys API calls
961:
962: check_na_rule_hdr_FK_items(
961:
962: check_na_rule_hdr_FK_items(
963: p_na_rule_header_rec => p_na_rule_header_rec,
964: x_return_status => x_return_status);
965: IF x_return_status <> FND_API.g_ret_sts_success THEN
966: l_return_status := FND_API.g_ret_sts_error;
967: END IF;
968: -- Check Items Lookups
969:
962: check_na_rule_hdr_FK_items(
963: p_na_rule_header_rec => p_na_rule_header_rec,
964: x_return_status => x_return_status);
965: IF x_return_status <> FND_API.g_ret_sts_success THEN
966: l_return_status := FND_API.g_ret_sts_error;
967: END IF;
968: -- Check Items Lookups
969:
970: check_na_rule_hdr_Lkp_items(
969:
970: check_na_rule_hdr_Lkp_items(
971: p_na_rule_header_rec => p_na_rule_header_rec,
972: x_return_status => x_return_status);
973: IF x_return_status <> FND_API.g_ret_sts_success THEN
974: l_return_status := FND_API.g_ret_sts_error;
975: END IF;
976:
977: x_return_status := l_return_status;
970: check_na_rule_hdr_Lkp_items(
971: p_na_rule_header_rec => p_na_rule_header_rec,
972: x_return_status => x_return_status);
973: IF x_return_status <> FND_API.g_ret_sts_success THEN
974: l_return_status := FND_API.g_ret_sts_error;
975: END IF;
976:
977: x_return_status := l_return_status;
978:
1068: l_na_rule_header_rec na_rule_header_rec_type := p_na_rule_header_rec;
1069: BEGIN
1070: -- Developers should put their code to default the record type
1071: -- e.g. IF p_campaign_rec.status_code IS NULL
1072: -- OR p_campaign_rec.status_code = FND_API.G_MISS_CHAR THEN
1073: -- l_campaign_rec.status_code := 'NEW' ;
1074: -- END IF ;
1075: --
1076: NULL ;
1080:
1081:
1082: PROCEDURE Validate_Na_Rule_Header(
1083: p_api_version_number IN NUMBER,
1084: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1085: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1086: p_na_rule_header_rec IN na_rule_header_rec_type,
1087: p_validation_mode IN VARCHAR2,
1088: x_return_status OUT NOCOPY VARCHAR2,
1081:
1082: PROCEDURE Validate_Na_Rule_Header(
1083: p_api_version_number IN NUMBER,
1084: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1085: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1086: p_na_rule_header_rec IN na_rule_header_rec_type,
1087: p_validation_mode IN VARCHAR2,
1088: x_return_status OUT NOCOPY VARCHAR2,
1089: x_msg_count OUT NOCOPY NUMBER,
1099: -- Standard Start of API savepoint
1100: SAVEPOINT validate_na_rule_header_;
1101:
1102: -- Standard call to check for call compatibility.
1103: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1104: p_api_version_number,
1105: l_api_name,
1106: G_PKG_NAME)
1107: THEN
1104: p_api_version_number,
1105: l_api_name,
1106: G_PKG_NAME)
1107: THEN
1108: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1109: END IF;
1110:
1111:
1112: -- Initialize message list if p_init_msg_list is set to TRUE.
1109: END IF;
1110:
1111:
1112: -- Initialize message list if p_init_msg_list is set to TRUE.
1113: IF FND_API.to_Boolean( p_init_msg_list )
1114: THEN
1115: FND_MSG_PUB.initialize;
1116: END IF;
1117:
1128: p_validation_mode => p_validation_mode,
1129: x_return_status => x_return_status
1130: );
1131:
1132: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1133: RAISE FND_API.G_EXC_ERROR;
1134: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1135: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1136: END IF;
1129: x_return_status => x_return_status
1130: );
1131:
1132: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1133: RAISE FND_API.G_EXC_ERROR;
1134: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1135: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1136: END IF;
1137: END IF;
1130: );
1131:
1132: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1133: RAISE FND_API.G_EXC_ERROR;
1134: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1135: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1136: END IF;
1137: END IF;
1138:
1131:
1132: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1133: RAISE FND_API.G_EXC_ERROR;
1134: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1135: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1136: END IF;
1137: END IF;
1138:
1139: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
1144:
1145: IF p_validation_level >= JTF_PLSQL_API.g_valid_level_item THEN
1146: Validate_na_rule_header_Rec(
1147: p_api_version_number => 1.0,
1148: p_init_msg_list => FND_API.G_FALSE,
1149: x_return_status => x_return_status,
1150: x_msg_count => x_msg_count,
1151: x_msg_data => x_msg_data,
1152: p_na_rule_header_rec => l_na_rule_header_rec);
1150: x_msg_count => x_msg_count,
1151: x_msg_data => x_msg_data,
1152: p_na_rule_header_rec => l_na_rule_header_rec);
1153:
1154: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1155: RAISE FND_API.G_EXC_ERROR;
1156: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1157: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1158: END IF;
1151: x_msg_data => x_msg_data,
1152: p_na_rule_header_rec => l_na_rule_header_rec);
1153:
1154: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1155: RAISE FND_API.G_EXC_ERROR;
1156: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1157: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1158: END IF;
1159: END IF;
1152: p_na_rule_header_rec => l_na_rule_header_rec);
1153:
1154: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1155: RAISE FND_API.G_EXC_ERROR;
1156: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1157: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1158: END IF;
1159: END IF;
1160:
1153:
1154: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1155: RAISE FND_API.G_EXC_ERROR;
1156: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1157: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1158: END IF;
1159: END IF;
1160:
1161:
1164:
1165:
1166:
1167: -- Initialize API return status to SUCCESS
1168: x_return_status := FND_API.G_RET_STS_SUCCESS;
1169:
1170:
1171: -- Debug Message
1172: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
1179: );
1180: EXCEPTION
1181:
1182: WHEN OZF_Utility_PVT.resource_locked THEN
1183: x_return_status := FND_API.g_ret_sts_error;
1184: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
1185:
1186: WHEN FND_API.G_EXC_ERROR THEN
1187: ROLLBACK TO VALIDATE_Na_Rule_Header_;
1182: WHEN OZF_Utility_PVT.resource_locked THEN
1183: x_return_status := FND_API.g_ret_sts_error;
1184: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
1185:
1186: WHEN FND_API.G_EXC_ERROR THEN
1187: ROLLBACK TO VALIDATE_Na_Rule_Header_;
1188: x_return_status := FND_API.G_RET_STS_ERROR;
1189: -- Standard call to get message count and if count=1, get the message
1190: FND_MSG_PUB.Count_And_Get (
1184: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
1185:
1186: WHEN FND_API.G_EXC_ERROR THEN
1187: ROLLBACK TO VALIDATE_Na_Rule_Header_;
1188: x_return_status := FND_API.G_RET_STS_ERROR;
1189: -- Standard call to get message count and if count=1, get the message
1190: FND_MSG_PUB.Count_And_Get (
1191: p_encoded => FND_API.G_FALSE,
1192: p_count => x_msg_count,
1187: ROLLBACK TO VALIDATE_Na_Rule_Header_;
1188: x_return_status := FND_API.G_RET_STS_ERROR;
1189: -- Standard call to get message count and if count=1, get the message
1190: FND_MSG_PUB.Count_And_Get (
1191: p_encoded => FND_API.G_FALSE,
1192: p_count => x_msg_count,
1193: p_data => x_msg_data
1194: );
1195:
1192: p_count => x_msg_count,
1193: p_data => x_msg_data
1194: );
1195:
1196: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1197: ROLLBACK TO VALIDATE_Na_Rule_Header_;
1198: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1199: -- Standard call to get message count and if count=1, get the message
1200: FND_MSG_PUB.Count_And_Get (
1194: );
1195:
1196: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1197: ROLLBACK TO VALIDATE_Na_Rule_Header_;
1198: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1199: -- Standard call to get message count and if count=1, get the message
1200: FND_MSG_PUB.Count_And_Get (
1201: p_encoded => FND_API.G_FALSE,
1202: p_count => x_msg_count,
1197: ROLLBACK TO VALIDATE_Na_Rule_Header_;
1198: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1199: -- Standard call to get message count and if count=1, get the message
1200: FND_MSG_PUB.Count_And_Get (
1201: p_encoded => FND_API.G_FALSE,
1202: p_count => x_msg_count,
1203: p_data => x_msg_data
1204: );
1205:
1204: );
1205:
1206: WHEN OTHERS THEN
1207: ROLLBACK TO VALIDATE_Na_Rule_Header_;
1208: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1209: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1210: THEN
1211: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1212: END IF;
1211: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1212: END IF;
1213: -- Standard call to get message count and if count=1, get the message
1214: FND_MSG_PUB.Count_And_Get (
1215: p_encoded => FND_API.G_FALSE,
1216: p_count => x_msg_count,
1217: p_data => x_msg_data
1218: );
1219: End Validate_Na_Rule_Header;
1220:
1221:
1222: PROCEDURE Validate_Na_Rule_Header_Rec (
1223: p_api_version_number IN NUMBER,
1224: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1225: x_return_status OUT NOCOPY VARCHAR2,
1226: x_msg_count OUT NOCOPY NUMBER,
1227: x_msg_data OUT NOCOPY VARCHAR2,
1228: p_na_rule_header_rec IN na_rule_header_rec_type
1229: )
1230: IS
1231: BEGIN
1232: -- Initialize message list if p_init_msg_list is set to TRUE.
1233: IF FND_API.to_Boolean( p_init_msg_list )
1234: THEN
1235: FND_MSG_PUB.initialize;
1236: END IF;
1237:
1237:
1238:
1239:
1240: -- Initialize API return status to SUCCESS
1241: x_return_status := FND_API.G_RET_STS_SUCCESS;
1242:
1243: -- Hint: Validate data
1244: -- If data not valid
1245: -- THEN
1242:
1243: -- Hint: Validate data
1244: -- If data not valid
1245: -- THEN
1246: -- x_return_status := FND_API.G_RET_STS_ERROR;
1247:
1248: -- Debug Message
1249: OZF_UTILITY_PVT.debug_message('Private API: Validate_dm_model_rec');
1250: -- Standard call to get message count and if count is 1, get message info.