447: if (FND_API.To_Boolean(p_init_msg_list)) then
448: FND_MSG_PUB.Initialize;
449: end if;
450:
451: FEM_ENGINES_PKG.Tech_Message (
452: p_severity => G_LOG_LEVEL_3
453: ,p_module => G_BLOCK||'.'||l_api_name
454: ,p_msg_text => 'BEGIN, p_object_type_code:' || p_object_type_code
455: || ' p_obj_def_id:' || p_obj_def_id
466:
467: -- Only perform the delete logic if the object definition exists
468: if (ObjectDefinitionExists(p_obj_def_id)) then
469:
470: FEM_ENGINES_PKG.Tech_Message (
471: p_severity => G_LOG_LEVEL_3
472: ,p_module => G_BLOCK||'.'||l_api_name
473: ,p_msg_text => 'ObjectDefinitionExists');
474:
474:
475: -- Get the Object Id
476: l_obj_id := GetObjectId(p_obj_def_id);
477:
478: FEM_ENGINES_PKG.Tech_Message (
479: p_severity => G_LOG_LEVEL_3
480: ,p_module => G_BLOCK||'.'||l_api_name
481: ,p_msg_text => 'l_obj_id:' || l_obj_id);
482:
484: -- if we can delete the parent Object. Otherwise simply check to see if we
485: -- can delete the Object Definition.
486: if ((l_obj_id is not null) and IsObjectEmpty(l_obj_id,p_obj_def_id)) then
487:
488: FEM_ENGINES_PKG.Tech_Message (
489: p_severity => G_LOG_LEVEL_3
490: ,p_module => G_BLOCK||'.'||l_api_name
491: ,p_msg_text => 'IsObjectEmpty');
492:
501: ,p_object_id => l_obj_id
502: ,p_process_type => p_process_type
503: ,x_can_delete_obj => l_can_delete
504: );
505: FEM_ENGINES_PKG.Tech_Message (
506: p_severity => G_LOG_LEVEL_3
507: ,p_module => G_BLOCK||'.'||l_api_name
508: ,p_msg_text => 'IsObjectEmpty 1');
509:
508: ,p_msg_text => 'IsObjectEmpty 1');
509:
510: else
511:
512: FEM_ENGINES_PKG.Tech_Message (
513: p_severity => G_LOG_LEVEL_3
514: ,p_module => G_BLOCK||'.'||l_api_name
515: ,p_msg_text => 'NOT IsObjectEmpty');
516:
525: ,p_process_type => p_process_type
526: ,x_can_delete_obj_def => l_can_delete
527: );
528:
529: FEM_ENGINES_PKG.Tech_Message (
530: p_severity => G_LOG_LEVEL_3
531: ,p_module => G_BLOCK||'.'||l_api_name
532: ,p_msg_text => 'NOT IsObjectEmpty 1');
533: end if;
539: elsif (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
540: raise FND_API.G_EXC_UNEXPECTED_ERROR;
541: end if;
542:
543: FEM_ENGINES_PKG.Tech_Message (
544: p_severity => G_LOG_LEVEL_3
545: ,p_module => G_BLOCK||'.'||l_api_name
546: ,p_msg_text => 'Before GetApprovalStatus');
547:
546: ,p_msg_text => 'Before GetApprovalStatus');
547:
548: l_approval_status_code := GetApprovalStatus(p_obj_def_id);
549:
550: FEM_ENGINES_PKG.Tech_Message (
551: p_severity => G_LOG_LEVEL_3
552: ,p_module => G_BLOCK||'.'||l_api_name
553: ,p_msg_text => 'After GetApprovalStatus');
554:
558:
559: -- If business rule has ever gone through an approval process, then we
560: -- must submit this business rule for deletion by raising a delete
561: -- business event
562: FEM_ENGINES_PKG.Tech_Message (
563: p_severity => G_LOG_LEVEL_3
564: ,p_module => G_BLOCK||'.'||l_api_name
565: ,p_msg_text => 'Before SetApprovalStatus');
566:
569: p_obj_def_id => p_obj_def_id
570: ,p_approval_status_code => G_SUBMIT_DELETE_STATUS
571: );
572:
573: FEM_ENGINES_PKG.Tech_Message (
574: p_severity => G_LOG_LEVEL_3
575: ,p_module => G_BLOCK||'.'||l_api_name
576: ,p_msg_text => 'After SetApprovalStatus');
577:
580: p_request_item_code => FEM_FEMAPPR_ITEM_TYPE.G_BUSINESS_RULE_ITEM
581: ,p_request_type_code => FEM_FEMAPPR_ITEM_TYPE.G_DELETE_TYPE
582: );
583:
584: FEM_ENGINES_PKG.Tech_Message (
585: p_severity => G_LOG_LEVEL_3
586: ,p_module => G_BLOCK||'.'||l_api_name
587: ,p_msg_text => 'After FEM_FEMAPPR_ITEM_TYPE.CreateWfRequestRow x_delete_request_id:' || x_delete_request_id);
588:
592: ,p_object_type_code => p_object_type_code
593: ,p_prev_approval_status_code => l_approval_status_code
594: );
595:
596: FEM_ENGINES_PKG.Tech_Message (
597: p_severity => G_LOG_LEVEL_3
598: ,p_module => G_BLOCK||'.'||l_api_name
599: ,p_msg_text => 'After CreateWfReqObjectDefRow, l_approval_status_code:' || l_approval_status_code);
600:
608: ,p_application_id => FND_GLOBAL.Resp_Appl_Id
609: ,p_org_id => FND_GLOBAL.Org_Id
610: );
611:
612: FEM_ENGINES_PKG.Tech_Message (
613: p_severity => G_LOG_LEVEL_3
614: ,p_module => G_BLOCK||'.'||l_api_name
615: ,p_msg_text => 'After FEM_FEMAPPR_ITEM_TYPE.RaiseEvent');
616:
615: ,p_msg_text => 'After FEM_FEMAPPR_ITEM_TYPE.RaiseEvent');
616:
617: else
618:
619: FEM_ENGINES_PKG.Tech_Message (
620: p_severity => G_LOG_LEVEL_3
621: ,p_module => G_BLOCK||'.'||l_api_name
622: ,p_msg_text => 'Before calling GetOldApprovedObjDefId ');
623:
625:
626: -- Get the Old Approved Copy before deleting the Current Copy
627: l_old_approved_obj_def_id := GetOldApprovedObjDefId(p_obj_def_id);
628:
629: FEM_ENGINES_PKG.Tech_Message (
630: p_severity => G_LOG_LEVEL_3
631: ,p_module => G_BLOCK||'.'||l_api_name
632: ,p_msg_text => 'After calling l_old_approved_obj_def_id: ' || l_old_approved_obj_def_id);
633:
638: ,p_obj_def_id => p_obj_def_id
639: );
640:
641:
642: FEM_ENGINES_PKG.Tech_Message (
643: p_severity => G_LOG_LEVEL_3
644: ,p_module => G_BLOCK||'.'||l_api_name
645: ,p_msg_text => 'After DeleteObjectDefinitionInternal');
646:
646:
647: -- Delete the Old Approved Copy
648: if (l_old_approved_obj_def_id is not null) then
649:
650: FEM_ENGINES_PKG.Tech_Message (
651: p_severity => G_LOG_LEVEL_3
652: ,p_module => G_BLOCK||'.'||l_api_name
653: ,p_msg_text => 'not null l_old_approved_obj_def_id Before DeleteObjectDefinitionInternal');
654:
657: ,p_obj_def_id => l_old_approved_obj_def_id
658: );
659:
660:
661: FEM_ENGINES_PKG.Tech_Message (
662: p_severity => G_LOG_LEVEL_3
663: ,p_module => G_BLOCK||'.'||l_api_name
664: ,p_msg_text => 'not null l_old_approved_obj_def_id After DeleteObjectDefinitionInternal');
665: end if;
666:
667: -- Delete the Object if it no longer has any Object Definitions
668: if ((l_obj_id is not null) and IsObjectEmpty(l_obj_id)) then
669:
670: FEM_ENGINES_PKG.Tech_Message (
671: p_severity => G_LOG_LEVEL_3
672: ,p_module => G_BLOCK||'.'||l_api_name
673: ,p_msg_text => 'IsObjectEmpty 1 Before DeleteObjectDefinitionInternal, l_obj_id:' || l_obj_id);
674:
678: ,p_obj_id => l_obj_id
679: );
680:
681:
682: FEM_ENGINES_PKG.Tech_Message (
683: p_severity => G_LOG_LEVEL_3
684: ,p_module => G_BLOCK||'.'||l_api_name
685: ,p_msg_text => 'IsObjectEmpty 1 After DeleteObjectDefinitionInternal, l_obj_id:' || l_obj_id);
686: -- Delete the Object record
685: ,p_msg_text => 'IsObjectEmpty 1 After DeleteObjectDefinitionInternal, l_obj_id:' || l_obj_id);
686: -- Delete the Object record
687: DeleteObjectRec(l_obj_id);
688:
689: FEM_ENGINES_PKG.Tech_Message (
690: p_severity => G_LOG_LEVEL_3
691: ,p_module => G_BLOCK||'.'||l_api_name
692: ,p_msg_text => 'After DeleteObjectRec');
693:
710: p_count => x_msg_count
711: ,p_data => x_msg_data
712: );
713:
714: FEM_ENGINES_PKG.Tech_Message (
715: p_severity => G_LOG_LEVEL_3
716: ,p_module => G_BLOCK||'.'||l_api_name
717: ,p_msg_text => 'END'
718: );
720: EXCEPTION
721:
722: when FND_API.G_EXC_ERROR then
723: l_callstack := DBMS_UTILITY.Format_Call_Stack;
724: FEM_ENGINES_PKG.Tech_Message (
725: p_severity => G_LOG_LEVEL_6
726: ,p_module => G_BLOCK||'.'||l_api_name
727: ,p_msg_text => 'G_EXC_ERROR, l_callstack:' || l_callstack
728: );
739: );
740:
741: when FND_API.G_EXC_UNEXPECTED_ERROR then
742: l_callstack := DBMS_UTILITY.Format_Call_Stack;
743: FEM_ENGINES_PKG.Tech_Message (
744: p_severity => G_LOG_LEVEL_6
745: ,p_module => G_BLOCK||'.'||l_api_name
746: ,p_msg_text => 'G_EXC_UNEXPECTED_ERROR, l_callstack:' || l_callstack
747: );
758:
759: when others then
760: l_callstack := DBMS_UTILITY.Format_Call_Stack;
761: l_prg_msg := SQLERRM;
762: FEM_ENGINES_PKG.Tech_Message (
763: p_severity => G_LOG_LEVEL_6
764: ,p_module => G_BLOCK||'.'||l_api_name
765: ,p_msg_text => 'others, l_callstack:' || l_callstack
766: );
763: p_severity => G_LOG_LEVEL_6
764: ,p_module => G_BLOCK||'.'||l_api_name
765: ,p_msg_text => 'others, l_callstack:' || l_callstack
766: );
767: FEM_ENGINES_PKG.Tech_Message (
768: p_severity => G_LOG_LEVEL_6
769: ,p_module => G_BLOCK||'.'||l_api_name
770: ,p_msg_text => 'others 1, l_prg_msg:' || l_prg_msg
771: );
847: if (FND_API.To_Boolean(p_init_msg_list)) then
848: FND_MSG_PUB.Initialize;
849: end if;
850:
851: FEM_ENGINES_PKG.Tech_Message (
852: p_severity => G_LOG_LEVEL_2
853: ,p_module => G_BLOCK||'.'||l_api_name
854: ,p_msg_text => 'BEGIN'
855: );
883: p_count => x_msg_count
884: ,p_data => x_msg_data
885: );
886:
887: FEM_ENGINES_PKG.Tech_Message (
888: p_severity => G_LOG_LEVEL_2
889: ,p_module => G_BLOCK||'.'||l_api_name
890: ,p_msg_text => 'END'
891: );
982: if (FND_API.To_Boolean(p_init_msg_list)) then
983: FND_MSG_PUB.Initialize;
984: end if;
985:
986: FEM_ENGINES_PKG.Tech_Message (
987: p_severity => G_LOG_LEVEL_2
988: ,p_module => G_BLOCK||'.'||l_api_name
989: ,p_msg_text => 'BEGIN'
990: );
1036: p_count => x_msg_count
1037: ,p_data => x_msg_data
1038: );
1039:
1040: FEM_ENGINES_PKG.Tech_Message (
1041: p_severity => G_LOG_LEVEL_2
1042: ,p_module => G_BLOCK||'.'||l_api_name
1043: ,p_msg_text => 'END'
1044: );
1138: if (FND_API.To_Boolean(p_init_msg_list)) then
1139: FND_MSG_PUB.Initialize;
1140: end if;
1141:
1142: FEM_ENGINES_PKG.Tech_Message (
1143: p_severity => G_LOG_LEVEL_2
1144: ,p_module => G_BLOCK||'.'||l_api_name
1145: ,p_msg_text => 'BEGIN'
1146: );
1233: p_count => x_msg_count
1234: ,p_data => x_msg_data
1235: );
1236:
1237: FEM_ENGINES_PKG.Tech_Message (
1238: p_severity => G_LOG_LEVEL_2
1239: ,p_module => G_BLOCK||'.'||l_api_name
1240: ,p_msg_text => 'END'
1241: );
1350: if (FND_API.To_Boolean(p_init_msg_list)) then
1351: FND_MSG_PUB.Initialize;
1352: end if;
1353:
1354: FEM_ENGINES_PKG.Tech_Message (
1355: p_severity => G_LOG_LEVEL_3
1356: ,p_module => G_BLOCK||'.'||l_api_name
1357: ,p_msg_text => 'BEGIN, p_object_type_code:' || p_object_type_code
1358: || ' p_obj_id:' || p_obj_id || ' p_process_type:' || p_process_type
1377: ,p_process_type => p_process_type
1378: ,x_can_delete_obj => l_can_delete_obj
1379: );
1380:
1381: FEM_ENGINES_PKG.Tech_Message (
1382: p_severity => G_LOG_LEVEL_3
1383: ,p_module => G_BLOCK||'.'|| l_api_name
1384: ,p_msg_text => 'After call FEM_PL_PKG.can_delete_object'
1385: );
1395: -- STEP 2: Loop through all object definitions and delete them
1396: ------------------------------------------------------------------------------
1397: for l_obj_defs_rec in l_obj_defs_cur loop
1398:
1399: FEM_ENGINES_PKG.Tech_Message (
1400: p_severity => G_LOG_LEVEL_3
1401: ,p_module => G_BLOCK||'.'|| l_api_name
1402: ,p_msg_text => 'Before call DeleteObjectDefinition'
1403: );
1411: ,x_msg_data => l_msg_data
1412: ,p_process_type => p_process_type
1413: );
1414:
1415: FEM_ENGINES_PKG.Tech_Message (
1416: p_severity => G_LOG_LEVEL_3
1417: ,p_module => G_BLOCK||'.'|| l_api_name
1418: ,p_msg_text => 'After call DeleteObjectDefinition'
1419: );
1430: -- STEP 3: Delete the Object
1431: ------------------------------------------------------------------------------
1432: if (IsObjectEmpty(p_obj_id)) then
1433:
1434: FEM_ENGINES_PKG.Tech_Message (
1435: p_severity => G_LOG_LEVEL_3
1436: ,p_module => G_BLOCK||'.'|| l_api_name
1437: ,p_msg_text => 'Before call DeleteObjectDetailsInternal'
1438: );
1441: p_object_type_code => p_object_type_code
1442: ,p_obj_id => p_obj_id
1443: );
1444:
1445: FEM_ENGINES_PKG.Tech_Message (
1446: p_severity => G_LOG_LEVEL_3
1447: ,p_module => G_BLOCK||'.'|| l_api_name
1448: ,p_msg_text => 'After call DeleteObjectDetailsInternal'
1449: );
1449: );
1450: -- Delete the Object record
1451: DeleteObjectRec(p_obj_id);
1452:
1453: FEM_ENGINES_PKG.Tech_Message (
1454: p_severity => G_LOG_LEVEL_3
1455: ,p_module => G_BLOCK||'.'|| l_api_name
1456: ,p_msg_text => 'After call DeleteObjectRec'
1457: );
1471: p_count => x_msg_count
1472: ,p_data => x_msg_data
1473: );
1474:
1475: FEM_ENGINES_PKG.Tech_Message (
1476: p_severity => G_LOG_LEVEL_3
1477: ,p_module => G_BLOCK||'.'||l_api_name
1478: ,p_msg_text => 'END'
1479: );
1631: if (FND_API.To_Boolean(p_init_msg_list)) then
1632: FND_MSG_PUB.Initialize;
1633: end if;
1634:
1635: FEM_ENGINES_PKG.Tech_Message (
1636: p_severity => G_LOG_LEVEL_2
1637: ,p_module => G_BLOCK||'.'||l_api_name
1638: ,p_msg_text => 'BEGIN'
1639: );
1785: p_count => x_msg_count
1786: ,p_data => x_msg_data
1787: );
1788:
1789: FEM_ENGINES_PKG.Tech_Message (
1790: p_severity => G_LOG_LEVEL_2
1791: ,p_module => G_BLOCK||'.'||l_api_name
1792: ,p_msg_text => 'END'
1793: );
1888: if (FND_API.To_Boolean(p_init_msg_list)) then
1889: FND_MSG_PUB.Initialize;
1890: end if;
1891:
1892: FEM_ENGINES_PKG.Tech_Message (
1893: p_severity => G_LOG_LEVEL_2
1894: ,p_module => G_BLOCK||'.'||l_api_name
1895: ,p_msg_text => 'BEGIN'
1896: );
1921: p_count => x_msg_count
1922: ,p_data => x_msg_data
1923: );
1924:
1925: FEM_ENGINES_PKG.Tech_Message (
1926: p_severity => G_LOG_LEVEL_2
1927: ,p_module => G_BLOCK||'.'||l_api_name
1928: ,p_msg_text => 'END'
1929: );
2017: if (FND_API.To_Boolean(p_init_msg_list)) then
2018: FND_MSG_PUB.Initialize;
2019: end if;
2020:
2021: FEM_ENGINES_PKG.Tech_Message (
2022: p_severity => G_LOG_LEVEL_2
2023: ,p_module => G_BLOCK||'.'||l_api_name
2024: ,p_msg_text => 'BEGIN'
2025: );
2046: p_count => x_msg_count
2047: ,p_data => x_msg_data
2048: );
2049:
2050: FEM_ENGINES_PKG.Tech_Message (
2051: p_severity => G_LOG_LEVEL_2
2052: ,p_module => G_BLOCK||'.'||l_api_name
2053: ,p_msg_text => 'END'
2054: );
2210: if (FND_API.To_Boolean(p_init_msg_list)) then
2211: FND_MSG_PUB.Initialize;
2212: end if;
2213:
2214: FEM_ENGINES_PKG.Tech_Message (
2215: p_severity => G_LOG_LEVEL_2
2216: ,p_module => G_BLOCK||'.'||l_api_name
2217: ,p_msg_text => 'BEGIN'
2218: );
2245: p_count => x_msg_count
2246: ,p_data => x_msg_data
2247: );
2248:
2249: FEM_ENGINES_PKG.Tech_Message (
2250: p_severity => G_LOG_LEVEL_2
2251: ,p_module => G_BLOCK||'.'||l_api_name
2252: ,p_msg_text => 'END'
2253: );
2348: if (FND_API.To_Boolean(p_init_msg_list)) then
2349: FND_MSG_PUB.Initialize;
2350: end if;
2351:
2352: FEM_ENGINES_PKG.Tech_Message (
2353: p_severity => G_LOG_LEVEL_2
2354: ,p_module => G_BLOCK||'.'||l_api_name
2355: ,p_msg_text => 'BEGIN'
2356: );
2381: p_count => x_msg_count
2382: ,p_data => x_msg_data
2383: );
2384:
2385: FEM_ENGINES_PKG.Tech_Message (
2386: p_severity => G_LOG_LEVEL_2
2387: ,p_module => G_BLOCK||'.'||l_api_name
2388: ,p_msg_text => 'END'
2389: );
2624: l_prg_msg VARCHAR2(2000);
2625: l_callstack VARCHAR2(2000);
2626:
2627: BEGIN
2628: FEM_ENGINES_PKG.Tech_Message (
2629: p_severity => G_LOG_LEVEL_3
2630: ,p_module => G_BLOCK||'.'|| l_api_name
2631: ,p_msg_text => 'BEGIN, p_obj_def_id:' || p_obj_def_id
2632: );
2636: from fem_object_definition_b
2637: where old_approved_copy_flag = G_CURRENT_COPY
2638: and object_definition_id = p_obj_def_id;
2639:
2640: FEM_ENGINES_PKG.Tech_Message (
2641: p_severity => G_LOG_LEVEL_3
2642: ,p_module => G_BLOCK||'.'|| l_api_name
2643: ,p_msg_text => 'END'
2644: );
2649:
2650: when others then
2651: l_callstack := DBMS_UTILITY.Format_Call_Stack;
2652: l_prg_msg := SQLERRM;
2653: FEM_ENGINES_PKG.Tech_Message (
2654: p_severity => G_LOG_LEVEL_6
2655: ,p_module => G_BLOCK||'.'||l_api_name
2656: ,p_msg_text => 'others, l_callstack:' || l_callstack
2657: );
2654: p_severity => G_LOG_LEVEL_6
2655: ,p_module => G_BLOCK||'.'||l_api_name
2656: ,p_msg_text => 'others, l_callstack:' || l_callstack
2657: );
2658: FEM_ENGINES_PKG.Tech_Message (
2659: p_severity => G_LOG_LEVEL_6
2660: ,p_module => G_BLOCK||'.'||l_api_name
2661: ,p_msg_text => 'others 1, l_prg_msg:' || l_prg_msg
2662: );
3208: l_prg_msg VARCHAR2(2000);
3209: l_callstack VARCHAR2(2000);
3210: BEGIN
3211:
3212: FEM_ENGINES_PKG.Tech_Message (
3213: p_severity => G_LOG_LEVEL_3
3214: ,p_module => G_BLOCK||'.'|| l_api_name
3215: ,p_msg_text => 'BEGIN, p_obj_def_id:' || p_obj_def_id
3216: || ' p_approval_status_code:' || p_approval_status_code
3235: ,last_update_date = sysdate
3236: ,last_update_login = FND_GLOBAL.login_id
3237: where object_definition_id = p_obj_def_id;
3238:
3239: FEM_ENGINES_PKG.Tech_Message (
3240: p_severity => G_LOG_LEVEL_3
3241: ,p_module => G_BLOCK||'.'|| l_api_name
3242: ,p_msg_text => 'END'
3243: );
3245: EXCEPTION
3246: when others then
3247: l_callstack := DBMS_UTILITY.Format_Call_Stack;
3248: l_prg_msg := SQLERRM;
3249: FEM_ENGINES_PKG.Tech_Message (
3250: p_severity => G_LOG_LEVEL_6
3251: ,p_module => G_BLOCK||'.'||l_api_name
3252: ,p_msg_text => 'others, l_callstack:' || l_callstack
3253: );
3250: p_severity => G_LOG_LEVEL_6
3251: ,p_module => G_BLOCK||'.'||l_api_name
3252: ,p_msg_text => 'others, l_callstack:' || l_callstack
3253: );
3254: FEM_ENGINES_PKG.Tech_Message (
3255: p_severity => G_LOG_LEVEL_6
3256: ,p_module => G_BLOCK||'.'||l_api_name
3257: ,p_msg_text => 'others 1, l_prg_msg:' || l_prg_msg
3258: );
3330: l_callstack VARCHAR2(2000);
3331:
3332: BEGIN
3333:
3334: FEM_ENGINES_PKG.Tech_Message (
3335: p_severity => G_LOG_LEVEL_3
3336: ,p_module => G_BLOCK||'.'|| l_api_name
3337: ,p_msg_text => 'BEGIN, p_object_type_code:' || p_object_type_code
3338: );
3340: into l_package_name
3341: from fem_object_types
3342: where object_type_code = p_object_type_code;
3343:
3344: FEM_ENGINES_PKG.Tech_Message (
3345: p_severity => G_LOG_LEVEL_3
3346: ,p_module => G_BLOCK||'.'|| l_api_name
3347: ,p_msg_text => 'END'
3348: );
3352: EXCEPTION
3353: when others then
3354: l_callstack := DBMS_UTILITY.Format_Call_Stack;
3355: l_prg_msg := SQLERRM;
3356: FEM_ENGINES_PKG.Tech_Message (
3357: p_severity => G_LOG_LEVEL_6
3358: ,p_module => G_BLOCK||'.'||l_api_name
3359: ,p_msg_text => 'others, l_callstack:' || l_callstack
3360: );
3357: p_severity => G_LOG_LEVEL_6
3358: ,p_module => G_BLOCK||'.'||l_api_name
3359: ,p_msg_text => 'others, l_callstack:' || l_callstack
3360: );
3361: FEM_ENGINES_PKG.Tech_Message (
3362: p_severity => G_LOG_LEVEL_6
3363: ,p_module => G_BLOCK||'.'||l_api_name
3364: ,p_msg_text => 'others 1, l_prg_msg:' || l_prg_msg
3365: );
3524: l_callstack VARCHAR2(2000);
3525:
3526: BEGIN
3527:
3528: FEM_ENGINES_PKG.Tech_Message (
3529: p_severity => G_LOG_LEVEL_3
3530: ,p_module => G_BLOCK||'.'|| l_api_name
3531: ,p_msg_text => 'BEGIN, p_object_type_code:' || p_object_type_code || ' p_obj_def_id:' || p_obj_def_id
3532: );
3535: -- calling delete on Detail Records, otherwise Backup/Revert will not be
3536: -- able to delete a Local Condition.
3537: DeleteObjectDependencyRecs(p_obj_def_id);
3538:
3539: FEM_ENGINES_PKG.Tech_Message (
3540: p_severity => G_LOG_LEVEL_3
3541: ,p_module => G_BLOCK||'.'|| l_api_name
3542: ,p_msg_text => 'BEGIN1'
3543: );
3543: );
3544:
3545: l_package_name := GetObjectPlsqlPkgName(p_object_type_code);
3546:
3547: FEM_ENGINES_PKG.Tech_Message (
3548: p_severity => G_LOG_LEVEL_3
3549: ,p_module => G_BLOCK||'.'|| l_api_name
3550: ,p_msg_text => 'BEGIN2, l_package_name:' || l_package_name
3551: );
3557: ' begin '||
3558: l_package_name||'.DeleteObjectDefinition(:p_obj_def_id);'||
3559: ' end;';
3560:
3561: FEM_ENGINES_PKG.Tech_Message (
3562: p_severity => G_LOG_LEVEL_3
3563: ,p_module => G_BLOCK||'.'|| l_api_name
3564: ,p_msg_text => 'BEGIN3, l_dynamic_query:' || l_dynamic_query
3565: );
3567: using p_obj_def_id;
3568:
3569: end if;
3570:
3571: FEM_ENGINES_PKG.Tech_Message (
3572: p_severity => G_LOG_LEVEL_3
3573: ,p_module => G_BLOCK||'.'|| l_api_name
3574: ,p_msg_text => 'BEGIN4'
3575: );
3575: );
3576: -- Delete the Visual Tracing Object Definition Attribute record (if it exists)
3577: DeleteVtObjDefAttrRec(p_obj_def_id);
3578:
3579: FEM_ENGINES_PKG.Tech_Message (
3580: p_severity => G_LOG_LEVEL_3
3581: ,p_module => G_BLOCK||'.'|| l_api_name
3582: ,p_msg_text => 'BEGIN5'
3583: );
3582: ,p_msg_text => 'BEGIN5'
3583: );
3584:
3585: DeleteObjectDefinitionRec(p_obj_def_id);
3586: FEM_ENGINES_PKG.Tech_Message (
3587: p_severity => G_LOG_LEVEL_3
3588: ,p_module => G_BLOCK||'.'|| l_api_name
3589: ,p_msg_text => 'END'
3590: );
3591: EXCEPTION
3592: when others then
3593: l_callstack := DBMS_UTILITY.Format_Call_Stack;
3594: l_prg_msg := SQLERRM;
3595: FEM_ENGINES_PKG.Tech_Message (
3596: p_severity => G_LOG_LEVEL_6
3597: ,p_module => G_BLOCK||'.'||l_api_name
3598: ,p_msg_text => 'others, l_callstack:' || l_callstack
3599: );
3596: p_severity => G_LOG_LEVEL_6
3597: ,p_module => G_BLOCK||'.'||l_api_name
3598: ,p_msg_text => 'others, l_callstack:' || l_callstack
3599: );
3600: FEM_ENGINES_PKG.Tech_Message (
3601: p_severity => G_LOG_LEVEL_6
3602: ,p_module => G_BLOCK||'.'||l_api_name
3603: ,p_msg_text => 'others 1, l_prg_msg:' || l_prg_msg
3604: );
3697: l_package_name t_plsql_pkg_name%TYPE;
3698: l_dynamic_query varchar2(2000);
3699:
3700: BEGIN
3701: FEM_ENGINES_PKG.Tech_Message (
3702: p_severity => G_LOG_LEVEL_3
3703: ,p_module => G_BLOCK||'.'|| 'DeleteObjectDetailsInternal'
3704: ,p_msg_text => 'BEGIN, p_object_type_code:' || p_object_type_code || ' p_obj_id:' || p_obj_id
3705: );
3705: );
3706:
3707: l_package_name := GetObjectPlsqlPkgName(p_object_type_code);
3708:
3709: FEM_ENGINES_PKG.Tech_Message (
3710: p_severity => G_LOG_LEVEL_3
3711: ,p_module => G_BLOCK||'.'|| 'DeleteObjectDetailsInternal'
3712: ,p_msg_text => 'l_package_name:' || l_package_name
3713: );
3717: ' begin '||
3718: l_package_name||'.DeleteObjectDetails(:p_obj_id);'||
3719: ' end;';
3720:
3721: FEM_ENGINES_PKG.Tech_Message (
3722: p_severity => G_LOG_LEVEL_3
3723: ,p_module => G_BLOCK||'.'|| 'DeleteObjectDetailsInternal'
3724: ,p_msg_text => 'l_dynamic_query:' || l_dynamic_query
3725: );
4300:
4301: l_prg_msg VARCHAR2(2000);
4302: l_callstack VARCHAR2(2000);
4303: BEGIN
4304: FEM_ENGINES_PKG.Tech_Message (
4305: p_severity => G_LOG_LEVEL_3
4306: ,p_module => G_BLOCK||'.'|| l_api_name
4307: ,p_msg_text => 'BEGIN, p_wf_request_id:' || p_wf_request_id
4308: || ' p_obj_def_id:' || p_obj_def_id || ' p_object_type_code:'
4332: ,FND_GLOBAL.Login_Id
4333: ,1
4334: );
4335:
4336: FEM_ENGINES_PKG.Tech_Message (
4337: p_severity => G_LOG_LEVEL_3
4338: ,p_module => G_BLOCK||'.'|| l_api_name
4339: ,p_msg_text => 'END'
4340: );
4341: EXCEPTION
4342: when others then
4343: l_callstack := DBMS_UTILITY.Format_Call_Stack;
4344: l_prg_msg := SQLERRM;
4345: FEM_ENGINES_PKG.Tech_Message (
4346: p_severity => G_LOG_LEVEL_6
4347: ,p_module => G_BLOCK||'.'||l_api_name
4348: ,p_msg_text => 'others, l_callstack:' || l_callstack
4349: );
4346: p_severity => G_LOG_LEVEL_6
4347: ,p_module => G_BLOCK||'.'||l_api_name
4348: ,p_msg_text => 'others, l_callstack:' || l_callstack
4349: );
4350: FEM_ENGINES_PKG.Tech_Message (
4351: p_severity => G_LOG_LEVEL_6
4352: ,p_module => G_BLOCK||'.'||l_api_name
4353: ,p_msg_text => 'others 1, l_prg_msg:' || l_prg_msg
4354: );