91: FND_MSG_PUB.INITIALIZE;
92: END IF;
93:
94: -- Log API entry point
95: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
96: THEN
97: fnd_log.string
98: (
99: fnd_log.level_procedure,
93:
94: -- Log API entry point
95: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
96: THEN
97: fnd_log.string
98: (
99: fnd_log.level_procedure,
100: l_debug_module||'.begin',
101: 'At the start of PLSQL procedure'
95: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
96: THEN
97: fnd_log.string
98: (
99: fnd_log.level_procedure,
100: l_debug_module||'.begin',
101: 'At the start of PLSQL procedure'
102: );
103: END IF;
155: THEN
156: RAISE FND_API.G_EXC_ERROR;
157: END IF;
158:
159: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
160: THEN
161: fnd_log.string
162: (
163: fnd_log.level_statement,
157: END IF;
158:
159: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
160: THEN
161: fnd_log.string
162: (
163: fnd_log.level_statement,
164: l_debug_module,
165: 'Basic validations done'
159: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
160: THEN
161: fnd_log.string
162: (
163: fnd_log.level_statement,
164: l_debug_module,
165: 'Basic validations done'
166: );
167: END IF;
243: p_x_mel_cdl_header_rec.ATTRIBUTE15
244: )
245: RETURNING MEL_CDL_HEADER_ID INTO p_x_mel_cdl_header_rec.mel_cdl_header_id;
246:
247: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
248: THEN
249: fnd_log.string
250: (
251: fnd_log.level_statement,
245: RETURNING MEL_CDL_HEADER_ID INTO p_x_mel_cdl_header_rec.mel_cdl_header_id;
246:
247: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
248: THEN
249: fnd_log.string
250: (
251: fnd_log.level_statement,
252: l_debug_module,
253: 'Created new MEL/CDL [mel_cdl_header_id='||p_x_mel_cdl_header_rec.MEL_CDL_HEADER_ID||'][pc_node_id='||p_x_mel_cdl_header_rec.PC_NODE_ID||'][mel_cdl_type_code='||p_x_mel_cdl_header_rec.MEL_CDL_TYPE_CODE||']'
247: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
248: THEN
249: fnd_log.string
250: (
251: fnd_log.level_statement,
252: l_debug_module,
253: 'Created new MEL/CDL [mel_cdl_header_id='||p_x_mel_cdl_header_rec.MEL_CDL_HEADER_ID||'][pc_node_id='||p_x_mel_cdl_header_rec.PC_NODE_ID||'][mel_cdl_type_code='||p_x_mel_cdl_header_rec.MEL_CDL_TYPE_CODE||']'
254: );
255: END IF;
255: END IF;
256: -- API body ends here
257:
258: -- Log API exit point
259: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
260: THEN
261: fnd_log.string
262: (
263: fnd_log.level_procedure,
257:
258: -- Log API exit point
259: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
260: THEN
261: fnd_log.string
262: (
263: fnd_log.level_procedure,
264: l_debug_module||'.end',
265: 'At the end of PLSQL procedure'
259: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
260: THEN
261: fnd_log.string
262: (
263: fnd_log.level_procedure,
264: l_debug_module||'.end',
265: 'At the end of PLSQL procedure'
266: );
267: END IF;
412: FND_MSG_PUB.INITIALIZE;
413: END IF;
414:
415: -- Log API entry point
416: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
417: THEN
418: fnd_log.string
419: (
420: fnd_log.level_procedure,
414:
415: -- Log API entry point
416: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
417: THEN
418: fnd_log.string
419: (
420: fnd_log.level_procedure,
421: l_debug_module||'.begin',
422: 'At the start of PLSQL procedure'
416: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
417: THEN
418: fnd_log.string
419: (
420: fnd_log.level_procedure,
421: l_debug_module||'.begin',
422: 'At the start of PLSQL procedure'
423: );
424: END IF;
510: THEN
511: RAISE FND_API.G_EXC_ERROR;
512: END IF;
513:
514: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
515: THEN
516: fnd_log.string
517: (
518: fnd_log.level_statement,
512: END IF;
513:
514: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
515: THEN
516: fnd_log.string
517: (
518: fnd_log.level_statement,
519: l_debug_module,
520: 'Basic validations done'
514: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
515: THEN
516: fnd_log.string
517: (
518: fnd_log.level_statement,
519: l_debug_module,
520: 'Basic validations done'
521: );
522: END IF;
553: ATTRIBUTE14 = p_x_mel_cdl_header_rec.attribute14,
554: ATTRIBUTE15 = p_x_mel_cdl_header_rec.attribute15
555: WHERE MEL_CDL_HEADER_ID = p_x_mel_cdl_header_rec.mel_cdl_header_id;
556:
557: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
558: THEN
559: fnd_log.string
560: (
561: fnd_log.level_statement,
555: WHERE MEL_CDL_HEADER_ID = p_x_mel_cdl_header_rec.mel_cdl_header_id;
556:
557: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
558: THEN
559: fnd_log.string
560: (
561: fnd_log.level_statement,
562: l_debug_module,
563: 'Updated MEL/CDL [mel_cdl_header_id='||p_x_mel_cdl_header_rec.MEL_CDL_HEADER_ID||'][pc_node_id='||p_x_mel_cdl_header_rec.PC_NODE_ID||'][mel_cdl_type_code='||p_x_mel_cdl_header_rec.MEL_CDL_TYPE_CODE||']'
557: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
558: THEN
559: fnd_log.string
560: (
561: fnd_log.level_statement,
562: l_debug_module,
563: 'Updated MEL/CDL [mel_cdl_header_id='||p_x_mel_cdl_header_rec.MEL_CDL_HEADER_ID||'][pc_node_id='||p_x_mel_cdl_header_rec.PC_NODE_ID||'][mel_cdl_type_code='||p_x_mel_cdl_header_rec.MEL_CDL_TYPE_CODE||']'
564: );
565: END IF;
565: END IF;
566: -- API body ends here
567:
568: -- Log API exit point
569: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
570: THEN
571: fnd_log.string
572: (
573: fnd_log.level_procedure,
567:
568: -- Log API exit point
569: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
570: THEN
571: fnd_log.string
572: (
573: fnd_log.level_procedure,
574: l_debug_module||'.end',
575: 'At the end of PLSQL procedure'
569: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
570: THEN
571: fnd_log.string
572: (
573: fnd_log.level_procedure,
574: l_debug_module||'.end',
575: 'At the end of PLSQL procedure'
576: );
577: END IF;
704: FND_MSG_PUB.INITIALIZE;
705: END IF;
706:
707: -- Log API entry point
708: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
709: THEN
710: fnd_log.string
711: (
712: fnd_log.level_procedure,
706:
707: -- Log API entry point
708: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
709: THEN
710: fnd_log.string
711: (
712: fnd_log.level_procedure,
713: l_debug_module||'.begin',
714: 'At the start of PLSQL procedure'
708: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
709: THEN
710: fnd_log.string
711: (
712: fnd_log.level_procedure,
713: l_debug_module||'.begin',
714: 'At the start of PLSQL procedure'
715: );
716: END IF;
732: FND_MSG_PUB.ADD;
733: RAISE FND_API.G_EXC_ERROR;
734: END IF;
735:
736: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
737: THEN
738: fnd_log.string
739: (
740: fnd_log.level_statement,
734: END IF;
735:
736: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
737: THEN
738: fnd_log.string
739: (
740: fnd_log.level_statement,
741: l_debug_module,
742: 'Basic validations done'
736: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
737: THEN
738: fnd_log.string
739: (
740: fnd_log.level_statement,
741: l_debug_module,
742: 'Basic validations done'
743: );
744: END IF;
760: -- Check Error Message stack.
761: x_msg_count := FND_MSG_PUB.count_msg;
762: IF (x_msg_count > 0 OR x_return_status <> FND_API.G_RET_STS_SUCCESS)
763: THEN
764: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)
765: THEN
766: fnd_log.string
767: (
768: fnd_log.level_error,
762: IF (x_msg_count > 0 OR x_return_status <> FND_API.G_RET_STS_SUCCESS)
763: THEN
764: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)
765: THEN
766: fnd_log.string
767: (
768: fnd_log.level_error,
769: l_debug_module,
770: x_msg_data
764: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)
765: THEN
766: fnd_log.string
767: (
768: fnd_log.level_error,
769: l_debug_module,
770: x_msg_data
771: );
772: END IF;
775: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
776: END IF;
777: END LOOP;
778:
779: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
780: THEN
781: fnd_log.string
782: (
783: fnd_log.level_statement,
777: END LOOP;
778:
779: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
780: THEN
781: fnd_log.string
782: (
783: fnd_log.level_statement,
784: l_debug_module,
785: 'All JTF notes associated with ATA sequences deleted'
779: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
780: THEN
781: fnd_log.string
782: (
783: fnd_log.level_statement,
784: l_debug_module,
785: 'All JTF notes associated with ATA sequences deleted'
786: );
787: END IF;
795: FROM ahl_mel_cdl_ata_sequences
796: WHERE mel_cdl_header_id = p_mel_cdl_header_id
797: );
798:
799: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
800: THEN
801: fnd_log.string
802: (
803: fnd_log.level_statement,
797: );
798:
799: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
800: THEN
801: fnd_log.string
802: (
803: fnd_log.level_statement,
804: l_debug_module,
805: 'All ATA relationships associated with ATA sequences deleted'
799: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
800: THEN
801: fnd_log.string
802: (
803: fnd_log.level_statement,
804: l_debug_module,
805: 'All ATA relationships associated with ATA sequences deleted'
806: );
807: END IF;
815: FROM ahl_mel_cdl_ata_sequences
816: WHERE mel_cdl_header_id = p_mel_cdl_header_id
817: );
818:
819: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
820: THEN
821: fnd_log.string
822: (
823: fnd_log.level_statement,
817: );
818:
819: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
820: THEN
821: fnd_log.string
822: (
823: fnd_log.level_statement,
824: l_debug_module,
825: 'All MO procedures associated with ATA sequences deleted'
819: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
820: THEN
821: fnd_log.string
822: (
823: fnd_log.level_statement,
824: l_debug_module,
825: 'All MO procedures associated with ATA sequences deleted'
826: );
827: END IF;
829: -- 2. Delete all ATA sequences
830: DELETE FROM ahl_mel_cdl_ata_sequences
831: WHERE mel_cdl_header_id = p_mel_cdl_header_id;
832:
833: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
834: THEN
835: fnd_log.string
836: (
837: fnd_log.level_statement,
831: WHERE mel_cdl_header_id = p_mel_cdl_header_id;
832:
833: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
834: THEN
835: fnd_log.string
836: (
837: fnd_log.level_statement,
838: l_debug_module,
839: 'All ATA sequences deleted'
833: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
834: THEN
835: fnd_log.string
836: (
837: fnd_log.level_statement,
838: l_debug_module,
839: 'All ATA sequences deleted'
840: );
841: END IF;
843: -- 3. Delete MEL/CDL itself
844: DELETE FROM ahl_mel_cdl_headers
845: WHERE mel_cdl_header_id = p_mel_cdl_header_id;
846:
847: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
848: THEN
849: fnd_log.string
850: (
851: fnd_log.level_statement,
845: WHERE mel_cdl_header_id = p_mel_cdl_header_id;
846:
847: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
848: THEN
849: fnd_log.string
850: (
851: fnd_log.level_statement,
852: l_debug_module,
853: 'Deleted MEL/CDL [mel_cdl_header_id='||p_mel_cdl_header_id||'] and all its associations'
847: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
848: THEN
849: fnd_log.string
850: (
851: fnd_log.level_statement,
852: l_debug_module,
853: 'Deleted MEL/CDL [mel_cdl_header_id='||p_mel_cdl_header_id||'] and all its associations'
854: );
855: END IF;
855: END IF;
856: -- API body ends here
857:
858: -- Log API exit point
859: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
860: THEN
861: fnd_log.string
862: (
863: fnd_log.level_procedure,
857:
858: -- Log API exit point
859: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
860: THEN
861: fnd_log.string
862: (
863: fnd_log.level_procedure,
864: l_debug_module||'.end',
865: 'At the end of PLSQL procedure'
859: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
860: THEN
861: fnd_log.string
862: (
863: fnd_log.level_procedure,
864: l_debug_module||'.end',
865: 'At the end of PLSQL procedure'
866: );
867: END IF;
1138: FND_MSG_PUB.INITIALIZE;
1139: END IF;
1140:
1141: -- Log API entry point
1142: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1143: THEN
1144: fnd_log.string
1145: (
1146: fnd_log.level_procedure,
1140:
1141: -- Log API entry point
1142: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1143: THEN
1144: fnd_log.string
1145: (
1146: fnd_log.level_procedure,
1147: l_debug_module||'.begin',
1148: 'Inside Create Revision'
1142: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1143: THEN
1144: fnd_log.string
1145: (
1146: fnd_log.level_procedure,
1147: l_debug_module||'.begin',
1148: 'Inside Create Revision'
1149: );
1150: END IF;
1187: THEN
1188: RAISE FND_API.G_EXC_ERROR;
1189: END IF;
1190:
1191: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1192: THEN
1193: fnd_log.string
1194: (
1195: fnd_log.level_statement,
1189: END IF;
1190:
1191: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1192: THEN
1193: fnd_log.string
1194: (
1195: fnd_log.level_statement,
1196: l_debug_module,
1197: 'Basic validations done'
1191: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1192: THEN
1193: fnd_log.string
1194: (
1195: fnd_log.level_statement,
1196: l_debug_module,
1197: 'Basic validations done'
1198: );
1199: END IF;
1266: l_mel_cdl_rec.ATTRIBUTE15
1267: )
1268: RETURNING mel_cdl_header_id INTO x_new_mel_cdl_header_id;
1269:
1270: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1271: THEN
1272: fnd_log.string
1273: (
1274: fnd_log.level_statement,
1268: RETURNING mel_cdl_header_id INTO x_new_mel_cdl_header_id;
1269:
1270: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1271: THEN
1272: fnd_log.string
1273: (
1274: fnd_log.level_statement,
1275: l_debug_module,
1276: 'Created new revised MEL/CDL [mel_cdl_header_id='||x_new_mel_cdl_header_id||'] from earler MEL/CDL ['||p_mel_cdl_header_id||']'
1270: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1271: THEN
1272: fnd_log.string
1273: (
1274: fnd_log.level_statement,
1275: l_debug_module,
1276: 'Created new revised MEL/CDL [mel_cdl_header_id='||x_new_mel_cdl_header_id||'] from earler MEL/CDL ['||p_mel_cdl_header_id||']'
1277: );
1278: END IF;
1347: l_ata_rec.ATTRIBUTE15
1348: )
1349: RETURNING mel_cdl_ata_sequence_id INTO l_old_new_ata_tbl(l_ata_rec_idx).new_object_id;
1350:
1351: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1352: THEN
1353: fnd_log.string
1354: (
1355: fnd_log.level_statement,
1349: RETURNING mel_cdl_ata_sequence_id INTO l_old_new_ata_tbl(l_ata_rec_idx).new_object_id;
1350:
1351: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1352: THEN
1353: fnd_log.string
1354: (
1355: fnd_log.level_statement,
1356: l_debug_module,
1357: 'Created new revised ATA Sequences[ata_id ='||l_old_new_ata_tbl(l_ata_rec_idx).new_object_id||'] from ['||l_old_new_ata_tbl(l_ata_rec_idx).old_object_id||']'
1351: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1352: THEN
1353: fnd_log.string
1354: (
1355: fnd_log.level_statement,
1356: l_debug_module,
1357: 'Created new revised ATA Sequences[ata_id ='||l_old_new_ata_tbl(l_ata_rec_idx).new_object_id||'] from ['||l_old_new_ata_tbl(l_ata_rec_idx).old_object_id||']'
1358: );
1359: END IF;
1359: END IF;
1360:
1361: END LOOP;
1362:
1363: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1364: THEN
1365: fnd_log.string
1366: (
1367: fnd_log.level_statement,
1361: END LOOP;
1362:
1363: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1364: THEN
1365: fnd_log.string
1366: (
1367: fnd_log.level_statement,
1368: l_debug_module,
1369: 'Created new revisions of all associated ATA sequences'
1363: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1364: THEN
1365: fnd_log.string
1366: (
1367: fnd_log.level_statement,
1368: l_debug_module,
1369: 'Created new revisions of all associated ATA sequences'
1370: );
1371: END IF;
1419: -- Check Error Message stack.
1420: x_msg_count := FND_MSG_PUB.count_msg;
1421: IF (x_msg_count > 0 OR l_return_status <> FND_API.G_RET_STS_SUCCESS)
1422: THEN
1423: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)
1424: THEN
1425: fnd_log.string
1426: (
1427: fnd_log.level_unexpected,
1421: IF (x_msg_count > 0 OR l_return_status <> FND_API.G_RET_STS_SUCCESS)
1422: THEN
1423: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)
1424: THEN
1425: fnd_log.string
1426: (
1427: fnd_log.level_unexpected,
1428: l_debug_module,
1429: 'Call to CAC_NOTES_PVT.create_note failed...'
1423: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)
1424: THEN
1425: fnd_log.string
1426: (
1427: fnd_log.level_unexpected,
1428: l_debug_module,
1429: 'Call to CAC_NOTES_PVT.create_note failed...'
1430: );
1431: END IF;
1434: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1435: END IF;
1436: END LOOP;
1437:
1438: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1439: THEN
1440: fnd_log.string
1441: (
1442: fnd_log.level_statement,
1436: END LOOP;
1437:
1438: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1439: THEN
1440: fnd_log.string
1441: (
1442: fnd_log.level_statement,
1443: l_debug_module,
1444: 'Created new revisions of all associated JTF notes for ATA sequence ['||l_old_new_ata_tbl(l_ata_rec_idx).old_object_id||']'
1438: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1439: THEN
1440: fnd_log.string
1441: (
1442: fnd_log.level_statement,
1443: l_debug_module,
1444: 'Created new revisions of all associated JTF notes for ATA sequence ['||l_old_new_ata_tbl(l_ata_rec_idx).old_object_id||']'
1445: );
1446: END IF;
1505: l_mo_proc_rec.ATTRIBUTE15
1506: );
1507: END LOOP;
1508:
1509: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1510: THEN
1511: fnd_log.string
1512: (
1513: fnd_log.level_statement,
1507: END LOOP;
1508:
1509: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1510: THEN
1511: fnd_log.string
1512: (
1513: fnd_log.level_statement,
1514: l_debug_module,
1515: 'Created new revisions of all associated M and O procedures for ATA sequence ['||l_old_new_ata_tbl(l_ata_rec_idx).old_object_id||']'
1509: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1510: THEN
1511: fnd_log.string
1512: (
1513: fnd_log.level_statement,
1514: l_debug_module,
1515: 'Created new revisions of all associated M and O procedures for ATA sequence ['||l_old_new_ata_tbl(l_ata_rec_idx).old_object_id||']'
1516: );
1517: END IF;
1519: -- Create revisions of all inter-relationships of ATA sequences
1520: FOR l_ata_rel_rec IN get_ata_rel_details(l_old_new_ata_tbl(l_ata_rec_idx).old_object_id)
1521: LOOP
1522:
1523: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1524: THEN
1525: fnd_log.string
1526: (
1527: fnd_log.level_statement,
1521: LOOP
1522:
1523: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1524: THEN
1525: fnd_log.string
1526: (
1527: fnd_log.level_statement,
1528: l_debug_module,
1529: 'Inside Inter relationships'
1523: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1524: THEN
1525: fnd_log.string
1526: (
1527: fnd_log.level_statement,
1528: l_debug_module,
1529: 'Inside Inter relationships'
1530: );
1531: END IF;
1605: END IF ;
1606: END LOOP;
1607: END LOOP;
1608:
1609: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1610: THEN
1611: fnd_log.string
1612: (
1613: fnd_log.level_statement,
1607: END LOOP;
1608:
1609: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1610: THEN
1611: fnd_log.string
1612: (
1613: fnd_log.level_statement,
1614: l_debug_module,
1615: 'Created new revisions of all associated inter-relationships for ATA sequence ['||l_old_new_ata_tbl(l_ata_rec_idx).old_object_id||']'
1609: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1610: THEN
1611: fnd_log.string
1612: (
1613: fnd_log.level_statement,
1614: l_debug_module,
1615: 'Created new revisions of all associated inter-relationships for ATA sequence ['||l_old_new_ata_tbl(l_ata_rec_idx).old_object_id||']'
1616: );
1617: END IF;
1642: END IF;
1643: -- API body ends here
1644:
1645: -- Log API exit point
1646: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1647: THEN
1648: fnd_log.string
1649: (
1650: fnd_log.level_procedure,
1644:
1645: -- Log API exit point
1646: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1647: THEN
1648: fnd_log.string
1649: (
1650: fnd_log.level_procedure,
1651: l_debug_module||'.end',
1652: 'At the end of PLSQL procedure'
1646: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1647: THEN
1648: fnd_log.string
1649: (
1650: fnd_log.level_procedure,
1651: l_debug_module||'.end',
1652: 'At the end of PLSQL procedure'
1653: );
1654: END IF;
1816: FND_MSG_PUB.INITIALIZE;
1817: END IF;
1818:
1819: -- Log API entry point
1820: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1821: THEN
1822: fnd_log.string
1823: (
1824: fnd_log.level_procedure,
1818:
1819: -- Log API entry point
1820: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1821: THEN
1822: fnd_log.string
1823: (
1824: fnd_log.level_procedure,
1825: l_debug_module||'.begin',
1826: 'At the start of PLSQL procedure'
1820: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1821: THEN
1822: fnd_log.string
1823: (
1824: fnd_log.level_procedure,
1825: l_debug_module||'.begin',
1826: 'At the start of PLSQL procedure'
1827: );
1828: END IF;
1835: OPEN get_mel_cdl_details;
1836: FETCH get_mel_cdl_details INTO l_ovn, l_pc_node_id, l_mel_cdl_type, l_status, l_version, l_revision, l_revision_date;
1837: CLOSE get_mel_cdl_details;
1838:
1839: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1840: THEN
1841: fnd_log.string
1842: (
1843: fnd_log.level_statement,
1837: CLOSE get_mel_cdl_details;
1838:
1839: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1840: THEN
1841: fnd_log.string
1842: (
1843: fnd_log.level_statement,
1844: l_debug_module,
1845: 'l_ovn='||l_ovn||' - l_pc_node_id='||l_pc_node_id||' - l_mel_cdl_type='||l_mel_cdl_type||' - l_status='||l_status||' - l_version='||l_version||' - l_revision='||l_revision
1839: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1840: THEN
1841: fnd_log.string
1842: (
1843: fnd_log.level_statement,
1844: l_debug_module,
1845: 'l_ovn='||l_ovn||' - l_pc_node_id='||l_pc_node_id||' - l_mel_cdl_type='||l_mel_cdl_type||' - l_status='||l_status||' - l_version='||l_version||' - l_revision='||l_revision
1846: );
1847: END IF;
1866: FND_MSG_PUB.ADD;
1867: END IF;
1868: CLOSE check_dup_rev;
1869:
1870: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1871: THEN
1872: fnd_log.string
1873: (
1874: fnd_log.level_statement,
1868: CLOSE check_dup_rev;
1869:
1870: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1871: THEN
1872: fnd_log.string
1873: (
1874: fnd_log.level_statement,
1875: l_debug_module,
1876: 'Basic validations done'
1870: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1871: THEN
1872: fnd_log.string
1873: (
1874: fnd_log.level_statement,
1875: l_debug_module,
1876: 'Basic validations done'
1877: );
1878: END IF;
1888: x_msg_count => l_msg_count,
1889: x_msg_data => l_msg_data
1890: );
1891:
1892: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1893: THEN
1894: fnd_log.string
1895: (
1896: fnd_log.level_statement,
1890: );
1891:
1892: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1893: THEN
1894: fnd_log.string
1895: (
1896: fnd_log.level_statement,
1897: l_debug_module,
1898: 'ahl_utility_pvt.get_wf_process_name returns [l_active='||l_active||'][l_process_name='||l_process_name||'][l_item_type='||l_item_type||']'
1892: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1893: THEN
1894: fnd_log.string
1895: (
1896: fnd_log.level_statement,
1897: l_debug_module,
1898: 'ahl_utility_pvt.get_wf_process_name returns [l_active='||l_active||'][l_process_name='||l_process_name||'][l_item_type='||l_item_type||']'
1899: );
1900: END IF;
1908:
1909: IF (l_active = 'Y')
1910: THEN
1911: -- If workflow is active
1912: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1913: THEN
1914: fnd_log.string
1915: (
1916: fnd_log.level_statement,
1910: THEN
1911: -- If workflow is active
1912: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1913: THEN
1914: fnd_log.string
1915: (
1916: fnd_log.level_statement,
1917: l_debug_module,
1918: 'MEL_CDL approval process is active'
1912: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1913: THEN
1914: fnd_log.string
1915: (
1916: fnd_log.level_statement,
1917: l_debug_module,
1918: 'MEL_CDL approval process is active'
1919: );
1920: END IF;
1942: p_workflowprocess => l_process_name,
1943: p_item_type => null
1944: );
1945:
1946: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1947: THEN
1948: fnd_log.string
1949: (
1950: fnd_log.level_statement,
1944: );
1945:
1946: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1947: THEN
1948: fnd_log.string
1949: (
1950: fnd_log.level_statement,
1951: l_debug_module,
1952: 'Approval process for MEL/CDL ['||p_mel_cdl_header_id||']['||to_char(p_mel_cdl_object_version + 1)||'] has been initiated'
1946: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1947: THEN
1948: fnd_log.string
1949: (
1950: fnd_log.level_statement,
1951: l_debug_module,
1952: 'Approval process for MEL/CDL ['||p_mel_cdl_header_id||']['||to_char(p_mel_cdl_object_version + 1)||'] has been initiated'
1953: );
1954: END IF;
1953: );
1954: END IF;
1955: ELSE
1956: -- If wortkflow process is not active, then force complete the MEL/CDL
1957: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1958: THEN
1959: fnd_log.string
1960: (
1961: fnd_log.level_statement,
1955: ELSE
1956: -- If wortkflow process is not active, then force complete the MEL/CDL
1957: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1958: THEN
1959: fnd_log.string
1960: (
1961: fnd_log.level_statement,
1962: l_debug_module,
1963: 'MEL_CDL approval process is not active, hence force complete MEL/CDL'
1957: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1958: THEN
1959: fnd_log.string
1960: (
1961: fnd_log.level_statement,
1962: l_debug_module,
1963: 'MEL_CDL approval process is not active, hence force complete MEL/CDL'
1964: );
1965: END IF;
1998: END IF;
1999: -- API body ends here
2000:
2001: -- Log API exit point
2002: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
2003: THEN
2004: fnd_log.string
2005: (
2006: fnd_log.level_procedure,
2000:
2001: -- Log API exit point
2002: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
2003: THEN
2004: fnd_log.string
2005: (
2006: fnd_log.level_procedure,
2007: l_debug_module||'.end',
2008: 'At the end of PLSQL procedure'
2002: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
2003: THEN
2004: fnd_log.string
2005: (
2006: fnd_log.level_procedure,
2007: l_debug_module||'.end',
2008: 'At the end of PLSQL procedure'
2009: );
2010: END IF;