116: ,x_return_status => l_log_return_status
117: ,x_error_mesg => l_errbuff
118: );
119:
120: IF (l_log_return_status <> FND_API.G_RET_STS_SUCCESS)
121: THEN
122: FND_FILE.put_line(FND_FILE.LOG, 'Unable to open error log file. Error => '||l_errbuff) ;
123: END IF;
124:
213: g_profile_debug_option := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'), TO_CHAR(0));
214: g_profile_debug_level := NVL(FND_PROFILE.VALUE('INV_DEBUG_LEVEL'), TO_CHAR(0));
215:
216: IF (g_profile_debug_option = '1' AND TO_NUMBER(g_profile_debug_level) >= 20)
217: OR FND_API.to_Boolean(p_debug_flag)
218: THEN
219:
220: ----------------------------------------------------------------------------------
221: -- Opens Error_Handler debug session, only if Debug session is not already open.
353: --
354: PROCEDURE Update_Approval_Status
355: (
356: p_api_version IN NUMBER --
357: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
358: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
359: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
360: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
361: ,p_output_dir IN VARCHAR2 := NULL
354: PROCEDURE Update_Approval_Status
355: (
356: p_api_version IN NUMBER --
357: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
358: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
359: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
360: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
361: ,p_output_dir IN VARCHAR2 := NULL
362: ,p_debug_filename IN VARCHAR2 := NULL
355: (
356: p_api_version IN NUMBER --
357: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
358: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
359: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
360: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
361: ,p_output_dir IN VARCHAR2 := NULL
362: ,p_debug_filename IN VARCHAR2 := NULL
363: ,x_return_status OUT NOCOPY VARCHAR2 --
356: p_api_version IN NUMBER --
357: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
358: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
359: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
360: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
361: ,p_output_dir IN VARCHAR2 := NULL
362: ,p_debug_filename IN VARCHAR2 := NULL
363: ,x_return_status OUT NOCOPY VARCHAR2 --
364: ,x_msg_count OUT NOCOPY NUMBER --
376: l_pls_block VARCHAR2(4000);
377:
378: BEGIN
379: --Commented this method as part of 12.2 DOM deprecation
380: x_return_status := FND_API.G_RET_STS_SUCCESS ;
381: x_msg_count := 0;
382: x_msg_data := NULL;
383: -- For Test/Debug
384: /* Check_And_Open_Debug_Session(p_debug, p_output_dir, p_debug_filename) ;
394: Write_Debug('Calling DOM_LIFECYCLE_UTIL.UPDATE_APPROVAL_STATUS');
395: END IF ;
396:
397:
398: l_return_status := FND_API.G_RET_STS_SUCCESS ;
399:
400: -- We always pass p_commit FND_API.G_FALSE
401: -- DOM API should NOT commit or rollback
402: l_pls_block := ' BEGIN '
396:
397:
398: l_return_status := FND_API.G_RET_STS_SUCCESS ;
399:
400: -- We always pass p_commit FND_API.G_FALSE
401: -- DOM API should NOT commit or rollback
402: l_pls_block := ' BEGIN '
403: || ' DOM_DOCUMENT_UTIL.UPDATE_APPROVAL_STATUS'
404: || ' ( p_api_version => :1 '
435:
436: -- Until DOM team implemented the logic indeed
437: IF x_return_status IS NULL
438: THEN
439: x_return_status := FND_API.G_RET_STS_SUCCESS ;
440: END IF ;
441:
442: IF g_debug_flag THEN
443: Write_Debug('After Calling DOM_DOCUMENT_UTIL.UPDATE_APPROVAL_STATUS: ' || l_return_status);
446:
447: EXCEPTION
448: WHEN PLSQL_COMPILE_ERROR THEN
449: -- Assuming DOM is not installed
450: x_return_status := FND_API.G_RET_STS_SUCCESS ;
451: x_msg_count := 0;
452: x_msg_data := NULL;
453:
454:
463: Write_Debug('Unexpected Exception Update_Approval_Status: ' || SQLERRM);
464: END IF ;
465:
466:
467: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
468:
469: FND_MSG_PUB.Add_Exc_Msg
470: ( p_pkg_name => 'DOM_DOCUMENT_UTIL' ,
471: p_procedure_name => 'UPDATE_APPROVAL_STATUS',
487: --
488: PROCEDURE Change_Doc_LC_Phase
489: (
490: p_api_version IN NUMBER --
491: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
492: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
493: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
494: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
495: ,p_output_dir IN VARCHAR2 := NULL
488: PROCEDURE Change_Doc_LC_Phase
489: (
490: p_api_version IN NUMBER --
491: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
492: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
493: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
494: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
495: ,p_output_dir IN VARCHAR2 := NULL
496: ,p_debug_filename IN VARCHAR2 := NULL
489: (
490: p_api_version IN NUMBER --
491: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
492: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
493: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
494: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
495: ,p_output_dir IN VARCHAR2 := NULL
496: ,p_debug_filename IN VARCHAR2 := NULL
497: ,x_return_status OUT NOCOPY VARCHAR2 --
490: p_api_version IN NUMBER --
491: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
492: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
493: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
494: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
495: ,p_output_dir IN VARCHAR2 := NULL
496: ,p_debug_filename IN VARCHAR2 := NULL
497: ,x_return_status OUT NOCOPY VARCHAR2 --
498: ,x_msg_count OUT NOCOPY NUMBER --
511: l_pls_block VARCHAR2(4000);*/
512:
513: BEGIN
514: --COmmented method as part of 12.2 DOM deprecation
515: x_return_status := FND_API.G_RET_STS_SUCCESS ;
516: x_msg_count := 0;
517: x_msg_data := NULL;
518:
519: -- For Test/Debug
529: Write_Debug('-----------------------------------------------------');
530: Write_Debug('Calling DOM_DOCUMENT_UTIL.CHANGE_DOC_LC_PHASE');
531: END IF ;
532:
533: l_return_status := FND_API.G_RET_STS_SUCCESS ;
534:
535:
536: -- We always pass p_commit FND_API.G_FALSE
537: -- DOM API should NOT commit or rollback
532:
533: l_return_status := FND_API.G_RET_STS_SUCCESS ;
534:
535:
536: -- We always pass p_commit FND_API.G_FALSE
537: -- DOM API should NOT commit or rollback
538: l_pls_block := ' BEGIN '
539: || ' DOM_DOCUMENT_UTIL.CHANGE_DOC_LC_PHASE'
540: || ' ( p_api_version => :1 '
572:
573: -- Until DOM team implemented the logic indeed
574: IF x_return_status IS NULL
575: THEN
576: x_return_status := FND_API.G_RET_STS_SUCCESS ;
577: END IF ;
578:
579:
580: IF g_debug_flag THEN
584:
585: EXCEPTION
586: WHEN PLSQL_COMPILE_ERROR THEN
587: -- Assuming DOM is not installed
588: x_return_status := FND_API.G_RET_STS_SUCCESS ;
589: x_msg_count := 0;
590: x_msg_data := NULL;
591:
592: IF g_debug_flag THEN
600: IF g_debug_flag THEN
601: Write_Debug('Unexpected Exception Change_Doc_LC_Phase: ' || SQLERRM);
602: END IF ;
603:
604: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
605:
606: FND_MSG_PUB.Add_Exc_Msg
607: ( p_pkg_name => 'DOM_DOCUMENT_UTIL' ,
608: p_procedure_name => 'CHANGE_DOC_LC_PHASE',
625: --
626: PROCEDURE Start_Doc_LC_Phase_WF
627: (
628: p_api_version IN NUMBER --
629: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
630: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
631: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
632: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
633: ,p_output_dir IN VARCHAR2 := NULL
626: PROCEDURE Start_Doc_LC_Phase_WF
627: (
628: p_api_version IN NUMBER --
629: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
630: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
631: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
632: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
633: ,p_output_dir IN VARCHAR2 := NULL
634: ,p_debug_filename IN VARCHAR2 := NULL
627: (
628: p_api_version IN NUMBER --
629: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
630: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
631: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
632: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
633: ,p_output_dir IN VARCHAR2 := NULL
634: ,p_debug_filename IN VARCHAR2 := NULL
635: ,x_return_status OUT NOCOPY VARCHAR2 --
628: p_api_version IN NUMBER --
629: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
630: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
631: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
632: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
633: ,p_output_dir IN VARCHAR2 := NULL
634: ,p_debug_filename IN VARCHAR2 := NULL
635: ,x_return_status OUT NOCOPY VARCHAR2 --
636: ,x_msg_count OUT NOCOPY NUMBER --
649: l_pls_block VARCHAR2(4000);*/
650:
651: BEGIN
652: --Commented this method as part of 12.2 DOM deprecation
653: x_return_status := FND_API.G_RET_STS_SUCCESS ;
654: x_msg_count := 0;
655: x_msg_data := NULL;
656: /*
657: -- For Test/Debug
667: Write_Debug('-----------------------------------------------------');
668: Write_Debug('Calling DOM_DOCUMENT_UTIL.Start_Doc_LC_Phase_WF');
669: END IF ;
670:
671: l_return_status := FND_API.G_RET_STS_SUCCESS ;
672:
673:
674: -- We always pass p_commit FND_API.G_FALSE
675: -- DOM API should NOT commit or rollback
670:
671: l_return_status := FND_API.G_RET_STS_SUCCESS ;
672:
673:
674: -- We always pass p_commit FND_API.G_FALSE
675: -- DOM API should NOT commit or rollback
676: l_pls_block := ' BEGIN '
677: || ' DOM_DOCUMENT_UTIL.Start_Doc_LC_Phase_WF'
678: || ' ( p_api_version => :1 '
710:
711: -- Until DOM team implemented the logic indeed
712: IF x_return_status IS NULL
713: THEN
714: x_return_status := FND_API.G_RET_STS_SUCCESS ;
715: END IF ;
716:
717:
718: IF g_debug_flag THEN
722:
723: EXCEPTION
724: WHEN PLSQL_COMPILE_ERROR THEN
725: -- Assuming DOM is not installed
726: x_return_status := FND_API.G_RET_STS_SUCCESS ;
727: x_msg_count := 0;
728: x_msg_data := NULL;
729:
730: IF g_debug_flag THEN
738: IF g_debug_flag THEN
739: Write_Debug('Unexpected Exception Start_Doc_LC_Phase_WF: ' || SQLERRM);
740: END IF ;
741:
742: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
743:
744: FND_MSG_PUB.Add_Exc_Msg
745: ( p_pkg_name => 'DOM_DOCUMENT_UTIL' ,
746: p_procedure_name => 'Start_Doc_LC_Phase_WF',
762: --
763: PROCEDURE Abort_Doc_LC_Phase_WF
764: (
765: p_api_version IN NUMBER --
766: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
767: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
768: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
769: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
770: ,p_output_dir IN VARCHAR2 := NULL
763: PROCEDURE Abort_Doc_LC_Phase_WF
764: (
765: p_api_version IN NUMBER --
766: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
767: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
768: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
769: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
770: ,p_output_dir IN VARCHAR2 := NULL
771: ,p_debug_filename IN VARCHAR2 := NULL
764: (
765: p_api_version IN NUMBER --
766: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
767: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
768: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
769: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
770: ,p_output_dir IN VARCHAR2 := NULL
771: ,p_debug_filename IN VARCHAR2 := NULL
772: ,x_return_status OUT NOCOPY VARCHAR2 --
765: p_api_version IN NUMBER --
766: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
767: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
768: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
769: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
770: ,p_output_dir IN VARCHAR2 := NULL
771: ,p_debug_filename IN VARCHAR2 := NULL
772: ,x_return_status OUT NOCOPY VARCHAR2 --
773: ,x_msg_count OUT NOCOPY NUMBER --
786: l_pls_block VARCHAR2(4000);*/
787:
788: BEGIN
789: --Commented this method as part of 12.2 DOM deprecation
790: x_return_status := FND_API.G_RET_STS_SUCCESS ;
791: x_msg_count := 0;
792: x_msg_data := NULL;
793:
794: -- For Test/Debug
804: Write_Debug('-----------------------------------------------------');
805: Write_Debug('Calling DOM_DOCUMENT_UTIL.Abort_Doc_LC_Phase_WF');
806: END IF ;
807:
808: l_return_status := FND_API.G_RET_STS_SUCCESS ;
809:
810:
811: -- We always pass p_commit FND_API.G_FALSE
812: -- DOM API should NOT commit or rollback
807:
808: l_return_status := FND_API.G_RET_STS_SUCCESS ;
809:
810:
811: -- We always pass p_commit FND_API.G_FALSE
812: -- DOM API should NOT commit or rollback
813: l_pls_block := ' BEGIN '
814: || ' DOM_DOCUMENT_UTIL.Abort_Doc_LC_Phase_WF'
815: || ' ( p_api_version => :1 '
847:
848: -- Until DOM team implemented the logic indeed
849: IF x_return_status IS NULL
850: THEN
851: x_return_status := FND_API.G_RET_STS_SUCCESS ;
852: END IF ;
853:
854: IF g_debug_flag THEN
855: Write_Debug('After Calling DOM_DOCUMENT_UTIL.Abort_Doc_LC_Phase_WF: ' || l_return_status);
858:
859: EXCEPTION
860: WHEN PLSQL_COMPILE_ERROR THEN
861: -- Assuming DOM is not installed
862: x_return_status := FND_API.G_RET_STS_SUCCESS ;
863: x_msg_count := 0;
864: x_msg_data := NULL;
865:
866: IF g_debug_flag THEN
874: IF g_debug_flag THEN
875: Write_Debug('Unexpected Exception Abort_Doc_LC_Phase_WF: ' || SQLERRM);
876: END IF ;
877:
878: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
879:
880: FND_MSG_PUB.Add_Exc_Msg
881: ( p_pkg_name => 'DOM_DOCUMENT_UTIL' ,
882: p_procedure_name => 'CHANGE_DOC_LC_PHASE',
897: --
898: PROCEDURE Grant_Document_Role
899: (
900: p_api_version IN NUMBER --
901: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
902: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
903: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
904: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
905: ,p_output_dir IN VARCHAR2 := NULL
898: PROCEDURE Grant_Document_Role
899: (
900: p_api_version IN NUMBER --
901: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
902: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
903: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
904: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
905: ,p_output_dir IN VARCHAR2 := NULL
906: ,p_debug_filename IN VARCHAR2 := NULL
899: (
900: p_api_version IN NUMBER --
901: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
902: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
903: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
904: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
905: ,p_output_dir IN VARCHAR2 := NULL
906: ,p_debug_filename IN VARCHAR2 := NULL
907: ,x_return_status OUT NOCOPY VARCHAR2 --
900: p_api_version IN NUMBER --
901: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
902: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
903: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
904: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
905: ,p_output_dir IN VARCHAR2 := NULL
906: ,p_debug_filename IN VARCHAR2 := NULL
907: ,x_return_status OUT NOCOPY VARCHAR2 --
908: ,x_msg_count OUT NOCOPY NUMBER --
925: l_pls_block VARCHAR2(4000);*/
926:
927: BEGIN
928: --Commented this method as part of 12.2 DOM deprecation
929: x_return_status := FND_API.G_RET_STS_SUCCESS ;
930: x_msg_count := 0;
931: x_msg_data := NULL;
932:
933: -- For Test/Debug
946: Write_Debug('Calling DOM_SECURITY_PUB.Grant_Document_Role');
947: END IF ;
948:
949:
950: l_return_status := FND_API.G_RET_STS_SUCCESS ;
951:
952: l_change_line_id := p_change_line_id ;
953:
954: IF l_change_line_id <= 0 THEN
961: Write_Debug('Param: Change Line Id : ' || TO_CHAR(l_change_line_id) );
962: END IF ;
963:
964:
965: -- We always pass p_commit FND_API.G_FALSE
966: -- DOM API should NOT commit or rollback
967:
968: /*
969: --
1047:
1048: -- Until DOM team implemented the logic indeed
1049: IF x_return_status IS NULL
1050: THEN
1051: x_return_status := FND_API.G_RET_STS_SUCCESS ;
1052: END IF ;
1053:
1054:
1055: IF g_debug_flag THEN
1058:
1059: EXCEPTION
1060: WHEN PLSQL_COMPILE_ERROR THEN
1061: -- Assuming DOM is not installed
1062: x_return_status := FND_API.G_RET_STS_SUCCESS ;
1063: x_msg_count := 0;
1064: x_msg_data := NULL;
1065:
1066: IF g_debug_flag THEN
1072: IF g_debug_flag THEN
1073: Write_Debug('Unexpected Exception Grant_Document_Role: ' || SQLERRM);
1074: END IF ;
1075:
1076: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1077:
1078: FND_MSG_PUB.Add_Exc_Msg
1079: ( p_pkg_name => 'DOM_SECURITY_PUB' ,
1080: p_procedure_name => 'Grant_Document_Role',
1097: --
1098: PROCEDURE Revoke_Document_Role
1099: (
1100: p_api_version IN NUMBER --
1101: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
1102: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
1103: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1104: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
1105: ,p_output_dir IN VARCHAR2 := NULL
1098: PROCEDURE Revoke_Document_Role
1099: (
1100: p_api_version IN NUMBER --
1101: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
1102: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
1103: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1104: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
1105: ,p_output_dir IN VARCHAR2 := NULL
1106: ,p_debug_filename IN VARCHAR2 := NULL
1099: (
1100: p_api_version IN NUMBER --
1101: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
1102: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
1103: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1104: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
1105: ,p_output_dir IN VARCHAR2 := NULL
1106: ,p_debug_filename IN VARCHAR2 := NULL
1107: ,x_return_status OUT NOCOPY VARCHAR2 --
1100: p_api_version IN NUMBER --
1101: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
1102: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
1103: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1104: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
1105: ,p_output_dir IN VARCHAR2 := NULL
1106: ,p_debug_filename IN VARCHAR2 := NULL
1107: ,x_return_status OUT NOCOPY VARCHAR2 --
1108: ,x_msg_count OUT NOCOPY NUMBER --
1124: l_pls_block VARCHAR2(4000);*/
1125:
1126: BEGIN
1127: --Commented this method as part of 12.2 DOM deprecation
1128: x_return_status := FND_API.G_RET_STS_SUCCESS ;
1129: x_msg_count := 0;
1130: x_msg_data := NULL;
1131: -- For Test/Debug
1132: /* Check_And_Open_Debug_Session(p_debug, p_output_dir, p_debug_filename) ;
1144: Write_Debug('Calling DOM_SECURITY_PUB.Revoke_Document_Role');
1145: END IF ;
1146:
1147:
1148: l_return_status := FND_API.G_RET_STS_SUCCESS ;
1149:
1150: l_change_line_id := p_change_line_id ;
1151:
1152: IF l_change_line_id <= 0 THEN
1161: END IF ;
1162:
1163:
1164:
1165: -- We always pass p_commit FND_API.G_FALSE
1166: -- DOM API should NOT commit or rollback
1167: -- We always pass p_commit FND_API.G_FALSE
1168: -- DOM API should NOT commit or rollback
1169: -- No need to pass p_role_id
1163:
1164:
1165: -- We always pass p_commit FND_API.G_FALSE
1166: -- DOM API should NOT commit or rollback
1167: -- We always pass p_commit FND_API.G_FALSE
1168: -- DOM API should NOT commit or rollback
1169: -- No need to pass p_role_id
1170:
1171: /*
1249:
1250: -- Until DOM team implemented the logic indeed
1251: IF x_return_status IS NULL
1252: THEN
1253: x_return_status := FND_API.G_RET_STS_SUCCESS ;
1254: END IF ;
1255:
1256:
1257: IF g_debug_flag THEN
1262:
1263: EXCEPTION
1264: WHEN PLSQL_COMPILE_ERROR THEN
1265: -- Assuming DOM is not installed
1266: x_return_status := FND_API.G_RET_STS_SUCCESS ;
1267: x_msg_count := 0;
1268: x_msg_data := NULL;
1269:
1270: IF g_debug_flag THEN
1277: Write_Debug('Unexpected Exception Revoke_Document_Role: ' || SQLERRM);
1278: END IF ;
1279:
1280:
1281: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1282:
1283: FND_MSG_PUB.Add_Exc_Msg
1284: ( p_pkg_name => 'DOM_SECURITY_PUB' ,
1285: p_procedure_name => 'Revoke_Document_Role',
1299: --
1300: PROCEDURE Grant_Attachments_OCSRole
1301: (
1302: p_api_version IN NUMBER --
1303: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
1304: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
1305: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1306: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
1307: ,p_output_dir IN VARCHAR2 := NULL
1300: PROCEDURE Grant_Attachments_OCSRole
1301: (
1302: p_api_version IN NUMBER --
1303: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
1304: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
1305: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1306: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
1307: ,p_output_dir IN VARCHAR2 := NULL
1308: ,p_debug_filename IN VARCHAR2 := NULL
1301: (
1302: p_api_version IN NUMBER --
1303: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
1304: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
1305: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1306: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
1307: ,p_output_dir IN VARCHAR2 := NULL
1308: ,p_debug_filename IN VARCHAR2 := NULL
1309: ,x_return_status OUT NOCOPY VARCHAR2 --
1302: p_api_version IN NUMBER --
1303: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
1304: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
1305: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1306: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
1307: ,p_output_dir IN VARCHAR2 := NULL
1308: ,p_debug_filename IN VARCHAR2 := NULL
1309: ,x_return_status OUT NOCOPY VARCHAR2 --
1310: ,x_msg_count OUT NOCOPY NUMBER --
1350: Write_Debug('Calling DOM_SECURITY_PUB.Grant_Attachments_OCSRole');
1351: END IF ;
1352:
1353:
1354: l_return_status := FND_API.G_RET_STS_SUCCESS ;
1355:
1356: -- We always pass p_commit FND_API.G_FALSE
1357: -- DOM API should NOT commit or rollback
1358:
1352:
1353:
1354: l_return_status := FND_API.G_RET_STS_SUCCESS ;
1355:
1356: -- We always pass p_commit FND_API.G_FALSE
1357: -- DOM API should NOT commit or rollback
1358:
1359: /*
1360: --
1425: );
1426:
1427: IF x_return_status IS NULL
1428: THEN
1429: x_return_status := FND_API.G_RET_STS_SUCCESS ;
1430: END IF ;
1431:
1432: if x_return_status = FND_API.G_RET_STS_SUCCESS
1433: AND p_source_media_id_tbl is not null and p_source_media_id_tbl.count > 0
1428: THEN
1429: x_return_status := FND_API.G_RET_STS_SUCCESS ;
1430: END IF ;
1431:
1432: if x_return_status = FND_API.G_RET_STS_SUCCESS
1433: AND p_source_media_id_tbl is not null and p_source_media_id_tbl.count > 0
1434: AND p_repository_id_tbl is not null and p_repository_id_tbl.count>0
1435: then
1436: for ind in p_source_media_id_tbl.first .. p_source_media_id_tbl.last
1469:
1470: -- Until DOM team implemented the logic indeed
1471: IF x_return_status IS NULL
1472: THEN
1473: x_return_status := FND_API.G_RET_STS_SUCCESS ;
1474: END IF ;
1475:
1476:
1477: IF g_debug_flag THEN
1480:
1481: EXCEPTION
1482: WHEN PLSQL_COMPILE_ERROR THEN
1483: -- Assuming DOM is not installed
1484: x_return_status := FND_API.G_RET_STS_SUCCESS ;
1485: x_msg_count := 0;
1486: x_msg_data := NULL;
1487:
1488:
1494: IF g_debug_flag THEN
1495: Write_Debug('Unexpected Exception Grant_Attachments_OCSRole: ' || SQLERRM);
1496: END IF ;
1497:
1498: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1499:
1500: FND_MSG_PUB.Add_Exc_Msg
1501: ( p_pkg_name => 'DOM_SECURITY_PUB' ,
1502: p_procedure_name => 'Grant_Attachments_OCSRole',
1518: --
1519: PROCEDURE Revoke_Attachments_OCSRole
1520: (
1521: p_api_version IN NUMBER --
1522: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
1523: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
1524: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1525: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
1526: ,p_output_dir IN VARCHAR2 := NULL
1519: PROCEDURE Revoke_Attachments_OCSRole
1520: (
1521: p_api_version IN NUMBER --
1522: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
1523: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
1524: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1525: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
1526: ,p_output_dir IN VARCHAR2 := NULL
1527: ,p_debug_filename IN VARCHAR2 := NULL
1520: (
1521: p_api_version IN NUMBER --
1522: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
1523: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
1524: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1525: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
1526: ,p_output_dir IN VARCHAR2 := NULL
1527: ,p_debug_filename IN VARCHAR2 := NULL
1528: ,x_return_status OUT NOCOPY VARCHAR2 --
1521: p_api_version IN NUMBER --
1522: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE --
1523: ,p_commit IN VARCHAR2 := FND_API.G_FALSE --
1524: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1525: ,p_debug IN VARCHAR2 := FND_API.G_FALSE --
1526: ,p_output_dir IN VARCHAR2 := NULL
1527: ,p_debug_filename IN VARCHAR2 := NULL
1528: ,x_return_status OUT NOCOPY VARCHAR2 --
1529: ,x_msg_count OUT NOCOPY NUMBER --
1564: Write_Debug('-----------------------------------------------------');
1565: Write_Debug('Calling DOM_SECURITY_PUB.Revoke_Attachments_OCSRole');
1566: END IF ;
1567:
1568: l_return_status := FND_API.G_RET_STS_SUCCESS ;
1569:
1570:
1571:
1572: -- We always pass p_commit FND_API.G_FALSE
1568: l_return_status := FND_API.G_RET_STS_SUCCESS ;
1569:
1570:
1571:
1572: -- We always pass p_commit FND_API.G_FALSE
1573: -- DOM API should NOT commit or rollback
1574: -- No need to pass p_ocs_role
1575:
1576: /*
1658:
1659: -- Until DOM team implemented the logic indeed
1660: IF x_return_status IS NULL
1661: THEN
1662: x_return_status := FND_API.G_RET_STS_SUCCESS ;
1663: END IF ;
1664:
1665:
1666:
1671:
1672: EXCEPTION
1673: WHEN PLSQL_COMPILE_ERROR THEN
1674: -- Assuming DOM is not installed
1675: x_return_status := FND_API.G_RET_STS_SUCCESS ;
1676: x_msg_count := 0;
1677: x_msg_data := NULL;
1678:
1679:
1686: IF g_debug_flag THEN
1687: Write_Debug('Unexpected Exception Grant_Attachments_OCSRole: ' || SQLERRM);
1688: END IF ;
1689:
1690: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1691:
1692: FND_MSG_PUB.Add_Exc_Msg
1693: ( p_pkg_name => 'DOM_SECURITY_PUB' ,
1694: p_procedure_name => 'Revoke_Attachments_OCSRole',