51: l_rule_stmt_tbl AHL_MC_RULE_PVT.UI_Rule_Stmt_Tbl_Type DEFAULT p_rule_stmt_tbl;
52: --
53:
54: BEGIN
55: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
56: FND_LOG.string(FND_LOG.level_procedure,l_full_name,'Start of the API');
57: END IF;
58:
59: -- Standard start of API savepoint
52: --
53:
54: BEGIN
55: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
56: FND_LOG.string(FND_LOG.level_procedure,l_full_name,'Start of the API');
57: END IF;
58:
59: -- Standard start of API savepoint
60: SAVEPOINT Insert_Rule_Pub;
72: IF FND_API.To_Boolean(p_init_msg_list) THEN
73: FND_MSG_PUB.Initialize;
74: END IF;
75:
76: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
77: FND_LOG.string(FND_LOG.level_statement,l_full_name,
78: ' p_x_rule_rec.mc_header_id => '||p_x_rule_rec.mc_header_id||
79: ' p_x_rule_rec.mc_name => '||p_x_rule_rec.mc_name||
80: ' p_x_rule_rec.mc_revision => '||p_x_rule_rec.mc_revision||
73: FND_MSG_PUB.Initialize;
74: END IF;
75:
76: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
77: FND_LOG.string(FND_LOG.level_statement,l_full_name,
78: ' p_x_rule_rec.mc_header_id => '||p_x_rule_rec.mc_header_id||
79: ' p_x_rule_rec.mc_name => '||p_x_rule_rec.mc_name||
80: ' p_x_rule_rec.mc_revision => '||p_x_rule_rec.mc_revision||
81: ' p_x_rule_rec.rule_name => '||p_x_rule_rec.rule_name||
86:
87: -- call Convert_Rule_Values_to_Id
88: Convert_Rule_Values_to_Id(p_x_rule_rec, 'I');
89:
90: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
91: FND_LOG.string(FND_LOG.level_statement,l_full_name,
92: ' p_x_rule_rec.mc_header_id => '||p_x_rule_rec.mc_header_id||
93: ' p_rule_rec.mc_name => '||p_x_rule_rec.mc_name||
94: ' p_rule_rec.mc_revision => '||p_x_rule_rec.mc_revision||
87: -- call Convert_Rule_Values_to_Id
88: Convert_Rule_Values_to_Id(p_x_rule_rec, 'I');
89:
90: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
91: FND_LOG.string(FND_LOG.level_statement,l_full_name,
92: ' p_x_rule_rec.mc_header_id => '||p_x_rule_rec.mc_header_id||
93: ' p_rule_rec.mc_name => '||p_x_rule_rec.mc_name||
94: ' p_rule_rec.mc_revision => '||p_x_rule_rec.mc_revision||
95: ' p_x_rule_rec.rule_name => '||p_x_rule_rec.rule_name||
108:
109: -- call Convert_Rule_Stmt_Values_to_Id
110: Convert_Rule_Stmt_Values_to_Id(l_rule_stmt_tbl, 'I');
111:
112: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
113: FND_LOG.string(FND_LOG.level_statement,l_full_name,'Calling private API.');
114: END IF;
115:
116: -- call the private API
109: -- call Convert_Rule_Stmt_Values_to_Id
110: Convert_Rule_Stmt_Values_to_Id(l_rule_stmt_tbl, 'I');
111:
112: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
113: FND_LOG.string(FND_LOG.level_statement,l_full_name,'Calling private API.');
114: END IF;
115:
116: -- call the private API
117: AHL_MC_RULE_PVT.Insert_Rule(
128: );
129:
130: -- check for the return status
131: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
132: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
133: FND_LOG.string(FND_LOG.level_statement,l_full_name,
134: 'Raising exception with x_return_status => '||x_return_status);
135: END IF;
136:
129:
130: -- check for the return status
131: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
132: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
133: FND_LOG.string(FND_LOG.level_statement,l_full_name,
134: 'Raising exception with x_return_status => '||x_return_status);
135: END IF;
136:
137: RAISE FND_API.G_EXC_ERROR;
136:
137: RAISE FND_API.G_EXC_ERROR;
138: END IF;
139:
140: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
141: FND_LOG.string(FND_LOG.level_statement,l_full_name,'After call to private API.');
142: END IF;
143:
144: -- Standard check of p_commit
137: RAISE FND_API.G_EXC_ERROR;
138: END IF;
139:
140: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
141: FND_LOG.string(FND_LOG.level_statement,l_full_name,'After call to private API.');
142: END IF;
143:
144: -- Standard check of p_commit
145: IF FND_API.TO_BOOLEAN(p_commit) THEN
152: p_data => x_msg_data,
153: p_encoded => FND_API.G_FALSE
154: );
155:
156: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
157: FND_LOG.string(FND_LOG.level_procedure,l_full_name,'End of the API');
158: END IF;
159:
160: EXCEPTION
153: p_encoded => FND_API.G_FALSE
154: );
155:
156: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
157: FND_LOG.string(FND_LOG.level_procedure,l_full_name,'End of the API');
158: END IF;
159:
160: EXCEPTION
161: WHEN FND_API.G_EXC_ERROR THEN
220: l_rule_stmt_tbl AHL_MC_RULE_PVT.UI_Rule_Stmt_Tbl_Type DEFAULT p_rule_stmt_tbl;
221: --
222:
223: BEGIN
224: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
225: FND_LOG.string(FND_LOG.level_procedure,l_full_name,'Start of the API');
226: END IF;
227:
228: -- Standard start of API savepoint
221: --
222:
223: BEGIN
224: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
225: FND_LOG.string(FND_LOG.level_procedure,l_full_name,'Start of the API');
226: END IF;
227:
228: -- Standard start of API savepoint
229: SAVEPOINT Update_Rule_Pub;
241: IF FND_API.To_Boolean(p_init_msg_list) THEN
242: FND_MSG_PUB.Initialize;
243: END IF;
244:
245: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
246: FND_LOG.string(FND_LOG.level_statement,l_full_name,
247: ' p_rule_rec.rule_id => '||p_rule_rec.rule_id||
248: ' p_rule_rec.rule_name => '||p_rule_rec.rule_name||
249: ' p_rule_rec.object_version_number => '||p_rule_rec.object_version_number||
242: FND_MSG_PUB.Initialize;
243: END IF;
244:
245: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
246: FND_LOG.string(FND_LOG.level_statement,l_full_name,
247: ' p_rule_rec.rule_id => '||p_rule_rec.rule_id||
248: ' p_rule_rec.rule_name => '||p_rule_rec.rule_name||
249: ' p_rule_rec.object_version_number => '||p_rule_rec.object_version_number||
250: ' p_rule_rec.mc_header_id => '||p_rule_rec.mc_header_id||
262:
263: -- call Convert_Rule_Values_to_Id
264: Convert_Rule_Values_to_Id(l_rule_rec, 'U');
265:
266: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
267: FND_LOG.string(FND_LOG.level_statement,l_full_name,
268: ' p_rule_rec.rule_id => '||l_rule_rec.rule_id||
269: ' p_rule_rec.rule_name => '||l_rule_rec.rule_name||
270: ' p_rule_rec.object_version_number => '||l_rule_rec.object_version_number||
263: -- call Convert_Rule_Values_to_Id
264: Convert_Rule_Values_to_Id(l_rule_rec, 'U');
265:
266: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
267: FND_LOG.string(FND_LOG.level_statement,l_full_name,
268: ' p_rule_rec.rule_id => '||l_rule_rec.rule_id||
269: ' p_rule_rec.rule_name => '||l_rule_rec.rule_name||
270: ' p_rule_rec.object_version_number => '||l_rule_rec.object_version_number||
271: ' p_rule_rec.mc_header_id => '||l_rule_rec.mc_header_id||
284:
285: -- call Convert_Rule_Stmt_Values_to_Id
286: Convert_Rule_Stmt_Values_to_Id(l_rule_stmt_tbl, 'U');
287:
288: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
289: FND_LOG.string(FND_LOG.level_statement,l_full_name,'Calling private API.');
290: END IF;
291:
292: -- call the private API
285: -- call Convert_Rule_Stmt_Values_to_Id
286: Convert_Rule_Stmt_Values_to_Id(l_rule_stmt_tbl, 'U');
287:
288: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
289: FND_LOG.string(FND_LOG.level_statement,l_full_name,'Calling private API.');
290: END IF;
291:
292: -- call the private API
293: AHL_MC_RULE_PVT.Update_Rule(
304: );
305:
306: -- check for the return status
307: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
308: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
309: FND_LOG.string(FND_LOG.level_statement,l_full_name,
310: 'Raising exception with x_return_status => '||x_return_status);
311: END IF;
312:
305:
306: -- check for the return status
307: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
308: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
309: FND_LOG.string(FND_LOG.level_statement,l_full_name,
310: 'Raising exception with x_return_status => '||x_return_status);
311: END IF;
312:
313: RAISE FND_API.G_EXC_ERROR;
312:
313: RAISE FND_API.G_EXC_ERROR;
314: END IF;
315:
316: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
317: FND_LOG.string(FND_LOG.level_statement,l_full_name,'After call to private API.');
318: END IF;
319:
320: -- Standard check of p_commit
313: RAISE FND_API.G_EXC_ERROR;
314: END IF;
315:
316: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
317: FND_LOG.string(FND_LOG.level_statement,l_full_name,'After call to private API.');
318: END IF;
319:
320: -- Standard check of p_commit
321: IF FND_API.TO_BOOLEAN(p_commit) THEN
328: p_data => x_msg_data,
329: p_encoded => FND_API.G_FALSE
330: );
331:
332: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
333: FND_LOG.string(FND_LOG.level_procedure,l_full_name,'End of the API');
334: END IF;
335:
336: EXCEPTION
329: p_encoded => FND_API.G_FALSE
330: );
331:
332: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
333: FND_LOG.string(FND_LOG.level_procedure,l_full_name,'End of the API');
334: END IF;
335:
336: EXCEPTION
337: WHEN FND_API.G_EXC_ERROR THEN
400: l_rule_rec AHL_MC_RULE_PVT.Rule_Rec_Type DEFAULT p_rule_rec;
401: --
402:
403: BEGIN
404: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
405: FND_LOG.string(FND_LOG.level_procedure,l_full_name,'Start of the API');
406: END IF;
407:
408: -- Standard start of API savepoint
401: --
402:
403: BEGIN
404: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
405: FND_LOG.string(FND_LOG.level_procedure,l_full_name,'Start of the API');
406: END IF;
407:
408: -- Standard start of API savepoint
409: SAVEPOINT Delete_Rule_Pub;
421: IF FND_API.To_Boolean(p_init_msg_list) THEN
422: FND_MSG_PUB.Initialize;
423: END IF;
424:
425: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
426: FND_LOG.string(FND_LOG.level_statement,l_full_name,
427: ' p_rule_rec.rule_id => '||p_rule_rec.rule_id||
428: ' p_rule_rec.object_version_number => '||p_rule_rec.object_version_number||
429: ' p_rule_rec.rule_name => '||p_rule_rec.rule_name||
422: FND_MSG_PUB.Initialize;
423: END IF;
424:
425: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
426: FND_LOG.string(FND_LOG.level_statement,l_full_name,
427: ' p_rule_rec.rule_id => '||p_rule_rec.rule_id||
428: ' p_rule_rec.object_version_number => '||p_rule_rec.object_version_number||
429: ' p_rule_rec.rule_name => '||p_rule_rec.rule_name||
430: ' p_rule_rec.mc_header_id => '||p_rule_rec.mc_header_id||
441:
442: -- call Convert_Rule_Values_to_Id
443: Convert_Rule_Values_to_Id(l_rule_rec, 'D');
444:
445: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
446: FND_LOG.string(FND_LOG.level_statement,l_full_name,
447: ' p_rule_rec.rule_id => '||l_rule_rec.rule_id||
448: ' p_rule_rec.object_version_number => '||l_rule_rec.object_version_number||
449: ' p_rule_rec.rule_name => '||l_rule_rec.rule_name||
442: -- call Convert_Rule_Values_to_Id
443: Convert_Rule_Values_to_Id(l_rule_rec, 'D');
444:
445: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
446: FND_LOG.string(FND_LOG.level_statement,l_full_name,
447: ' p_rule_rec.rule_id => '||l_rule_rec.rule_id||
448: ' p_rule_rec.object_version_number => '||l_rule_rec.object_version_number||
449: ' p_rule_rec.rule_name => '||l_rule_rec.rule_name||
450: ' p_rule_rec.mc_header_id => '||l_rule_rec.mc_header_id||
451: ' p_rule_rec.mc_name => '||l_rule_rec.mc_name||
452: ' p_rule_rec.mc_revision => '||l_rule_rec.mc_revision);
453: END IF;
454:
455: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
456: FND_LOG.string(FND_LOG.level_statement,l_full_name,'Calling private API.');
457: END IF;
458:
459: -- call the private API
452: ' p_rule_rec.mc_revision => '||l_rule_rec.mc_revision);
453: END IF;
454:
455: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
456: FND_LOG.string(FND_LOG.level_statement,l_full_name,'Calling private API.');
457: END IF;
458:
459: -- call the private API
460: AHL_MC_RULE_PVT.Delete_Rule(
469: );
470:
471: -- check for the return status
472: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
473: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
474: FND_LOG.string(FND_LOG.level_statement,l_full_name,
475: 'Raising exception with x_return_status => '||x_return_status);
476: END IF;
477:
470:
471: -- check for the return status
472: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
473: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
474: FND_LOG.string(FND_LOG.level_statement,l_full_name,
475: 'Raising exception with x_return_status => '||x_return_status);
476: END IF;
477:
478: RAISE FND_API.G_EXC_ERROR;
477:
478: RAISE FND_API.G_EXC_ERROR;
479: END IF;
480:
481: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
482: FND_LOG.string(FND_LOG.level_statement,l_full_name,'After call to private API.');
483: END IF;
484:
485: -- Standard check of p_commit
478: RAISE FND_API.G_EXC_ERROR;
479: END IF;
480:
481: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
482: FND_LOG.string(FND_LOG.level_statement,l_full_name,'After call to private API.');
483: END IF;
484:
485: -- Standard check of p_commit
486: IF FND_API.TO_BOOLEAN(p_commit) THEN
493: p_data => x_msg_data,
494: p_encoded => FND_API.G_FALSE
495: );
496:
497: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
498: FND_LOG.string(FND_LOG.level_procedure,l_full_name,'End of the API');
499: END IF;
500:
501: EXCEPTION
494: p_encoded => FND_API.G_FALSE
495: );
496:
497: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
498: FND_LOG.string(FND_LOG.level_procedure,l_full_name,'End of the API');
499: END IF;
500:
501: EXCEPTION
502: WHEN FND_API.G_EXC_ERROR THEN
582: l_dummy VARCHAR2(1);
583: --
584:
585: BEGIN
586: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
587: FND_LOG.string(FND_LOG.level_procedure,l_full_name,'Start of the API');
588: END IF;
589:
590: -- Standard start of API savepoint
583: --
584:
585: BEGIN
586: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
587: FND_LOG.string(FND_LOG.level_procedure,l_full_name,'Start of the API');
588: END IF;
589:
590: -- Standard start of API savepoint
591: SAVEPOINT Copy_Rules_For_MC_Pub;
603: IF FND_API.To_Boolean(p_init_msg_list) THEN
604: FND_MSG_PUB.Initialize;
605: END IF;
606:
607: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
608: FND_LOG.string(FND_LOG.level_statement,l_full_name,
609: ' p_from_mc_header_id => '||p_from_mc_header_id||
610: ' p_to_mc_header_id => '||p_to_mc_header_id||
611: ' p_from_mc_name => '||p_from_mc_name||
604: FND_MSG_PUB.Initialize;
605: END IF;
606:
607: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
608: FND_LOG.string(FND_LOG.level_statement,l_full_name,
609: ' p_from_mc_header_id => '||p_from_mc_header_id||
610: ' p_to_mc_header_id => '||p_to_mc_header_id||
611: ' p_from_mc_name => '||p_from_mc_name||
612: ' p_to_mc_name => '||p_to_mc_name||
698: l_to_mc_header_id := p_to_mc_header_id;
699: CLOSE chk_mc_header_id_csr;
700: END IF;
701:
702: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
703: FND_LOG.string(FND_LOG.level_statement,l_full_name,
704: ' p_from_mc_header_id => '||l_from_mc_header_id||
705: ' p_to_mc_header_id => '||l_to_mc_header_id||
706: ' p_from_mc_name => '||p_from_mc_name||
699: CLOSE chk_mc_header_id_csr;
700: END IF;
701:
702: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
703: FND_LOG.string(FND_LOG.level_statement,l_full_name,
704: ' p_from_mc_header_id => '||l_from_mc_header_id||
705: ' p_to_mc_header_id => '||l_to_mc_header_id||
706: ' p_from_mc_name => '||p_from_mc_name||
707: ' p_to_mc_name => '||p_to_mc_name||
708: ' p_from_revision => '||p_from_revision||
709: ' p_to_revision => '||p_to_revision);
710: END IF;
711:
712: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
713: FND_LOG.string(FND_LOG.level_statement,l_full_name,'Calling private API.');
714: END IF;
715:
716: -- call the private API
709: ' p_to_revision => '||p_to_revision);
710: END IF;
711:
712: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
713: FND_LOG.string(FND_LOG.level_statement,l_full_name,'Calling private API.');
714: END IF;
715:
716: -- call the private API
717: AHL_MC_RULE_PVT.Copy_Rules_For_MC(
727: );
728:
729: -- check for the return status
730: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
731: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
732: FND_LOG.string(FND_LOG.level_statement,l_full_name,
733: 'Raising exception with x_return_status => '||x_return_status);
734: END IF;
735:
728:
729: -- check for the return status
730: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
731: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
732: FND_LOG.string(FND_LOG.level_statement,l_full_name,
733: 'Raising exception with x_return_status => '||x_return_status);
734: END IF;
735:
736: RAISE FND_API.G_EXC_ERROR;
735:
736: RAISE FND_API.G_EXC_ERROR;
737: END IF;
738:
739: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
740: FND_LOG.string(FND_LOG.level_statement,l_full_name,'After call to private API.');
741: END IF;
742:
743: -- Standard check of p_commit
736: RAISE FND_API.G_EXC_ERROR;
737: END IF;
738:
739: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
740: FND_LOG.string(FND_LOG.level_statement,l_full_name,'After call to private API.');
741: END IF;
742:
743: -- Standard check of p_commit
744: IF FND_API.TO_BOOLEAN(p_commit) THEN
751: p_data => x_msg_data,
752: p_encoded => FND_API.G_FALSE
753: );
754:
755: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
756: FND_LOG.string(FND_LOG.level_procedure,l_full_name,'End of the API');
757: END IF;
758:
759: EXCEPTION
752: p_encoded => FND_API.G_FALSE
753: );
754:
755: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
756: FND_LOG.string(FND_LOG.level_procedure,l_full_name,'End of the API');
757: END IF;
758:
759: EXCEPTION
760: WHEN FND_API.G_EXC_ERROR THEN
831: l_dummy VARCHAR2(1);
832: --
833:
834: BEGIN
835: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
836: FND_LOG.string(FND_LOG.level_procedure,l_full_name,'Start of the API');
837: END IF;
838:
839: -- Standard start of API savepoint
832: --
833:
834: BEGIN
835: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
836: FND_LOG.string(FND_LOG.level_procedure,l_full_name,'Start of the API');
837: END IF;
838:
839: -- Standard start of API savepoint
840: SAVEPOINT Delete_Rules_For_MC_Pub;
852: IF FND_API.To_Boolean(p_init_msg_list) THEN
853: FND_MSG_PUB.Initialize;
854: END IF;
855:
856: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
857: FND_LOG.string(FND_LOG.level_statement,l_full_name,
858: ' p_mc_header_id => '||p_mc_header_id||
859: ' p_mc_name => '||p_mc_name||
860: ' p_revision => '||p_revision);
853: FND_MSG_PUB.Initialize;
854: END IF;
855:
856: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
857: FND_LOG.string(FND_LOG.level_statement,l_full_name,
858: ' p_mc_header_id => '||p_mc_header_id||
859: ' p_mc_name => '||p_mc_name||
860: ' p_revision => '||p_revision);
861: END IF;
901: l_mc_header_id := p_mc_header_id;
902: CLOSE chk_mc_header_id_csr;
903: END IF;
904:
905: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
906: FND_LOG.string(FND_LOG.level_statement,l_full_name,
907: ' p_mc_header_id => '||l_mc_header_id||
908: ' p_mc_name => '||p_mc_name||
909: ' p_revision => '||p_revision);
902: CLOSE chk_mc_header_id_csr;
903: END IF;
904:
905: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
906: FND_LOG.string(FND_LOG.level_statement,l_full_name,
907: ' p_mc_header_id => '||l_mc_header_id||
908: ' p_mc_name => '||p_mc_name||
909: ' p_revision => '||p_revision);
910: END IF;
908: ' p_mc_name => '||p_mc_name||
909: ' p_revision => '||p_revision);
910: END IF;
911:
912: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
913: FND_LOG.string(FND_LOG.level_statement,l_full_name,'Calling private API.');
914: END IF;
915:
916: -- call the private API
909: ' p_revision => '||p_revision);
910: END IF;
911:
912: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
913: FND_LOG.string(FND_LOG.level_statement,l_full_name,'Calling private API.');
914: END IF;
915:
916: -- call the private API
917: AHL_MC_RULE_PVT.Delete_Rules_For_MC(
926: );
927:
928: -- check for the return status
929: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
930: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
931: FND_LOG.string(FND_LOG.level_statement,l_full_name,
932: 'Raising exception with x_return_status => '||x_return_status);
933: END IF;
934:
927:
928: -- check for the return status
929: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
930: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
931: FND_LOG.string(FND_LOG.level_statement,l_full_name,
932: 'Raising exception with x_return_status => '||x_return_status);
933: END IF;
934:
935: RAISE FND_API.G_EXC_ERROR;
934:
935: RAISE FND_API.G_EXC_ERROR;
936: END IF;
937:
938: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
939: FND_LOG.string(FND_LOG.level_statement,l_full_name,'After call to private API.');
940: END IF;
941:
942: -- Standard check of p_commit
935: RAISE FND_API.G_EXC_ERROR;
936: END IF;
937:
938: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
939: FND_LOG.string(FND_LOG.level_statement,l_full_name,'After call to private API.');
940: END IF;
941:
942: -- Standard check of p_commit
943: IF FND_API.TO_BOOLEAN(p_commit) THEN
950: p_data => x_msg_data,
951: p_encoded => FND_API.G_FALSE
952: );
953:
954: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
955: FND_LOG.string(FND_LOG.level_procedure,l_full_name,'End of the API');
956: END IF;
957:
958: EXCEPTION
951: p_encoded => FND_API.G_FALSE
952: );
953:
954: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
955: FND_LOG.string(FND_LOG.level_procedure,l_full_name,'End of the API');
956: END IF;
957:
958: EXCEPTION
959: WHEN FND_API.G_EXC_ERROR THEN
1036: l_dummy VARCHAR2(1);
1037: --
1038:
1039: BEGIN
1040: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
1041: FND_LOG.string(FND_LOG.level_procedure,l_full_name,'Start of the API');
1042: END IF;
1043:
1044: -- Standard start of API savepoint
1037: --
1038:
1039: BEGIN
1040: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
1041: FND_LOG.string(FND_LOG.level_procedure,l_full_name,'Start of the API');
1042: END IF;
1043:
1044: -- Standard start of API savepoint
1045: SAVEPOINT Get_Rules_For_Position_Pub;
1057: IF FND_API.To_Boolean(p_init_msg_list) THEN
1058: FND_MSG_PUB.Initialize;
1059: END IF;
1060:
1061: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1062: FND_LOG.string(FND_LOG.level_statement,l_full_name,
1063: ' p_mc_header_id => '||p_mc_header_id||
1064: ' p_encoded_path => '||p_encoded_path||
1065: ' p_mc_name => '||p_mc_name||
1058: FND_MSG_PUB.Initialize;
1059: END IF;
1060:
1061: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1062: FND_LOG.string(FND_LOG.level_statement,l_full_name,
1063: ' p_mc_header_id => '||p_mc_header_id||
1064: ' p_encoded_path => '||p_encoded_path||
1065: ' p_mc_name => '||p_mc_name||
1066: ' p_revision => '||p_revision);
1112: l_mc_header_id := p_mc_header_id;
1113: CLOSE chk_mc_header_id_csr;
1114: END IF;
1115:
1116: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1117: FND_LOG.string(FND_LOG.level_statement,l_full_name,
1118: ' p_mc_header_id => '||l_mc_header_id||
1119: ' p_encoded_path => '||p_encoded_path||
1120: ' p_mc_name => '||p_mc_name||
1113: CLOSE chk_mc_header_id_csr;
1114: END IF;
1115:
1116: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1117: FND_LOG.string(FND_LOG.level_statement,l_full_name,
1118: ' p_mc_header_id => '||l_mc_header_id||
1119: ' p_encoded_path => '||p_encoded_path||
1120: ' p_mc_name => '||p_mc_name||
1121: ' p_revision => '||p_revision);
1120: ' p_mc_name => '||p_mc_name||
1121: ' p_revision => '||p_revision);
1122: END IF;
1123:
1124: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1125: FND_LOG.string(FND_LOG.level_statement,l_full_name,'Calling private API.');
1126: END IF;
1127:
1128: -- call the private API
1121: ' p_revision => '||p_revision);
1122: END IF;
1123:
1124: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1125: FND_LOG.string(FND_LOG.level_statement,l_full_name,'Calling private API.');
1126: END IF;
1127:
1128: -- call the private API
1129: AHL_MC_RULE_PVT.Get_Rules_For_Position(
1140: );
1141:
1142: -- check for the return status
1143: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1144: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1145: FND_LOG.string(FND_LOG.level_statement,l_full_name,
1146: 'Raising exception with x_return_status => '||x_return_status);
1147: END IF;
1148:
1141:
1142: -- check for the return status
1143: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1144: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1145: FND_LOG.string(FND_LOG.level_statement,l_full_name,
1146: 'Raising exception with x_return_status => '||x_return_status);
1147: END IF;
1148:
1149: RAISE FND_API.G_EXC_ERROR;
1148:
1149: RAISE FND_API.G_EXC_ERROR;
1150: END IF;
1151:
1152: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1153: FND_LOG.string(FND_LOG.level_statement,l_full_name,'After call to private API.');
1154: END IF;
1155:
1156: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1149: RAISE FND_API.G_EXC_ERROR;
1150: END IF;
1151:
1152: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1153: FND_LOG.string(FND_LOG.level_statement,l_full_name,'After call to private API.');
1154: END IF;
1155:
1156: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1157: FND_LOG.string(FND_LOG.level_statement,l_full_name,
1152: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1153: FND_LOG.string(FND_LOG.level_statement,l_full_name,'After call to private API.');
1154: END IF;
1155:
1156: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1157: FND_LOG.string(FND_LOG.level_statement,l_full_name,
1158: ' x_rule_tbl.COUNT => '||x_rule_tbl.COUNT);
1159: END IF;
1160:
1153: FND_LOG.string(FND_LOG.level_statement,l_full_name,'After call to private API.');
1154: END IF;
1155:
1156: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1157: FND_LOG.string(FND_LOG.level_statement,l_full_name,
1158: ' x_rule_tbl.COUNT => '||x_rule_tbl.COUNT);
1159: END IF;
1160:
1161: -- Standard check of p_commit
1169: p_data => x_msg_data,
1170: p_encoded => FND_API.G_FALSE
1171: );
1172:
1173: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
1174: FND_LOG.string(FND_LOG.level_procedure,l_full_name,'End of the API');
1175: END IF;
1176:
1177: EXCEPTION
1170: p_encoded => FND_API.G_FALSE
1171: );
1172:
1173: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
1174: FND_LOG.string(FND_LOG.level_procedure,l_full_name,'End of the API');
1175: END IF;
1176:
1177: EXCEPTION
1178: WHEN FND_API.G_EXC_ERROR THEN
1258: l_dummy VARCHAR2(1);
1259: --
1260:
1261: BEGIN
1262: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
1263: FND_LOG.string(FND_LOG.level_procedure,l_full_name,'Start of the API');
1264: END IF;
1265:
1266: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1259: --
1260:
1261: BEGIN
1262: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
1263: FND_LOG.string(FND_LOG.level_procedure,l_full_name,'Start of the API');
1264: END IF;
1265:
1266: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1267: FND_LOG.string(FND_LOG.level_statement,l_full_name,
1262: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
1263: FND_LOG.string(FND_LOG.level_procedure,l_full_name,'Start of the API');
1264: END IF;
1265:
1266: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1267: FND_LOG.string(FND_LOG.level_statement,l_full_name,
1268: ' p_operation_flag => '||p_operation_flag);
1269: END IF;
1270:
1263: FND_LOG.string(FND_LOG.level_procedure,l_full_name,'Start of the API');
1264: END IF;
1265:
1266: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1267: FND_LOG.string(FND_LOG.level_statement,l_full_name,
1268: ' p_operation_flag => '||p_operation_flag);
1269: END IF;
1270:
1271: -- for insertion
1453:
1454: -- return changed record
1455: p_x_rule_rec := l_rule_rec;
1456:
1457: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
1458: FND_LOG.string(FND_LOG.level_procedure,l_full_name,'End of the API');
1459: END IF;
1460:
1461: END Convert_Rule_Values_to_Id;
1454: -- return changed record
1455: p_x_rule_rec := l_rule_rec;
1456:
1457: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
1458: FND_LOG.string(FND_LOG.level_procedure,l_full_name,'End of the API');
1459: END IF;
1460:
1461: END Convert_Rule_Values_to_Id;
1462:
1533: l_flag VARCHAR2(1) := 'N';
1534: --
1535:
1536: BEGIN
1537: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
1538: FND_LOG.string(FND_LOG.level_procedure,l_full_name,'Start of the API');
1539: END IF;
1540:
1541: FOR i IN l_ui_rule_stmt_tbl.FIRST..l_ui_rule_stmt_tbl.LAST LOOP
1534: --
1535:
1536: BEGIN
1537: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
1538: FND_LOG.string(FND_LOG.level_procedure,l_full_name,'Start of the API');
1539: END IF;
1540:
1541: FOR i IN l_ui_rule_stmt_tbl.FIRST..l_ui_rule_stmt_tbl.LAST LOOP
1542: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1538: FND_LOG.string(FND_LOG.level_procedure,l_full_name,'Start of the API');
1539: END IF;
1540:
1541: FOR i IN l_ui_rule_stmt_tbl.FIRST..l_ui_rule_stmt_tbl.LAST LOOP
1542: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1543: FND_LOG.string(FND_LOG.level_statement,l_full_name,
1544: ' i => '||i||
1545: ' l_ui_rule_stmt_tbl(i).rule_statement_id => '||l_ui_rule_stmt_tbl(i).rule_statement_id||
1546: ' l_ui_rule_stmt_tbl(i).rule_stmt_obj_ver_num => '||l_ui_rule_stmt_tbl(i).rule_stmt_obj_ver_num||
1539: END IF;
1540:
1541: FOR i IN l_ui_rule_stmt_tbl.FIRST..l_ui_rule_stmt_tbl.LAST LOOP
1542: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1543: FND_LOG.string(FND_LOG.level_statement,l_full_name,
1544: ' i => '||i||
1545: ' l_ui_rule_stmt_tbl(i).rule_statement_id => '||l_ui_rule_stmt_tbl(i).rule_statement_id||
1546: ' l_ui_rule_stmt_tbl(i).rule_stmt_obj_ver_num => '||l_ui_rule_stmt_tbl(i).rule_stmt_obj_ver_num||
1547: ' l_ui_rule_stmt_tbl(i).operator => '||l_ui_rule_stmt_tbl(i).operator||
1791: CLOSE chk_mc_id_csr;
1792: END IF;
1793: END IF;
1794:
1795: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1796: FND_LOG.string(FND_LOG.level_statement,l_full_name,
1797: ' i => '||i||
1798: ' l_ui_rule_stmt_tbl(i).rule_statement_id => '||l_ui_rule_stmt_tbl(i).rule_statement_id||
1799: ' l_ui_rule_stmt_tbl(i).rule_stmt_obj_ver_num => '||l_ui_rule_stmt_tbl(i).rule_stmt_obj_ver_num||
1792: END IF;
1793: END IF;
1794:
1795: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1796: FND_LOG.string(FND_LOG.level_statement,l_full_name,
1797: ' i => '||i||
1798: ' l_ui_rule_stmt_tbl(i).rule_statement_id => '||l_ui_rule_stmt_tbl(i).rule_statement_id||
1799: ' l_ui_rule_stmt_tbl(i).rule_stmt_obj_ver_num => '||l_ui_rule_stmt_tbl(i).rule_stmt_obj_ver_num||
1800: ' l_ui_rule_stmt_tbl(i).operator => '||l_ui_rule_stmt_tbl(i).operator||
1815:
1816: -- return changed record
1817: p_x_ui_rule_stmt_tbl := l_ui_rule_stmt_tbl;
1818:
1819: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
1820: FND_LOG.string(FND_LOG.level_procedure,l_full_name,'End of the API');
1821: END IF;
1822:
1823: END Convert_Rule_Stmt_Values_to_Id;
1816: -- return changed record
1817: p_x_ui_rule_stmt_tbl := l_ui_rule_stmt_tbl;
1818:
1819: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
1820: FND_LOG.string(FND_LOG.level_procedure,l_full_name,'End of the API');
1821: END IF;
1822:
1823: END Convert_Rule_Stmt_Values_to_Id;
1824: