[Home] [Help]
1: PACKAGE BODY aso_apr_resource_handler AS
2: /* $Header: asoiarhb.pls 120.1 2005/06/29 12:32:21 appldev ship $ */
3: g_last_approver_group_id NUMBER := 0;
4: g_approval_type_id INTEGER := 0;
5:
409: approver.occurrence := NULL;
410: approver.SOURCE := NULL;
411: -- call the function to get the manager
412: l_manager_resource_id :=
413: aso_apr_resource_handler.get_manager (
414: g_last_approver_group_id
415: );
416: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
417: aso_debug_pub.ADD (
459: -- Store the group id in a global variable
460: g_last_approver_group_id := l_parent_group_id;
461: -- call the function to get the manager
462: l_manager_resource_id :=
463: aso_apr_resource_handler.get_manager (
464: l_parent_group_id
465: );
466: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
467: aso_debug_pub.ADD (
565: errorcode := -20001;
566: errormessage :=
567: 'This transaction''s requestor does not have a user id or group id';
568: ame_util.runtimeexception (
569: packagenamein => 'ASO_APR_RESOURCE_HANDLER',
570: routinenamein => 'getFirstApprover',
571: exceptionnumberin => errorcode,
572: exceptionstringin => errormessage,
573: transactionidin => ame_engine.temptransactionid,
601: || l_resource_name
602: || ' does not have a user id AND person id.'
603: || ' Unable to traverse heirarchy for this resource ';
604: ame_util.runtimeexception (
605: packagenamein => 'ASO_APR_RESOURCE_HANDLER',
606: routinenamein => 'getFirstApprover',
607: exceptionnumberin => errorcode,
608: exceptionstringin => errormessage,
609: transactionidin => ame_engine.temptransactionid,
637: || l_user_name
638: || ' ) does not have a resource id.'
639: || ' Unable to traverse heirarchy for this resource ';
640: ame_util.runtimeexception (
641: packagenamein => 'ASO_APR_RESOURCE_HANDLER',
642: routinenamein => 'getFirstApprover',
643: exceptionnumberin => errorcode,
644: exceptionstringin => errormessage,
645: transactionidin => ame_engine.temptransactionid,
671: errorcode := -20004;
672: errormessage := 'Cannot find parent group for group: '
673: || l_group_name;
674: ame_util.runtimeexception (
675: packagenamein => 'ASO_APR_RESOURCE_HANDLER',
676: routinenamein => 'getFirstApprover',
677: exceptionnumberin => errorcode,
678: exceptionstringin => errormessage,
679: transactionidin => ame_engine.temptransactionid,
699: END IF;
700: errorcode := -20005;
701: errormessage := 'Please check the group heirarchy';
702: ame_util.runtimeexception (
703: packagenamein => 'ASO_APR_RESOURCE_HANDLER',
704: routinenamein => 'getFirstApprover',
705: exceptionnumberin => SQLCODE,
706: exceptionstringin => SQLERRM,
707: transactionidin => ame_engine.temptransactionid,
725: 'N'
726: );
727: END IF;
728: ame_util.runtimeexception (
729: packagenamein => 'ASO_APR_RESOURCE_HANDLER',
730: routinenamein => 'getFirstApprover',
731: exceptionnumberin => SQLCODE,
732: exceptionstringin => SQLERRM,
733: transactionidin => ame_engine.temptransactionid,
935: -- Store the group id in a global variable
936: g_last_approver_group_id := l_parent_group_id;
937: -- call the function to get the manager
938: l_manager_resource_id :=
939: aso_apr_resource_handler.get_manager (
940: l_parent_group_id
941: );
942: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
943: aso_debug_pub.ADD (
1052: || l_resource_name
1053: || ' does not have a user id AND person id.'
1054: || ' Unable to traverse heirarchy for this resource ';
1055: ame_util.runtimeexception (
1056: packagenamein => 'ASO_APR_RESOURCE_HANDLER',
1057: routinenamein => 'getNextApprover',
1058: exceptionnumberin => errorcode,
1059: exceptionstringin => errormessage,
1060: transactionidin => ame_engine.temptransactionid,
1086: errorcode := -20001;
1087: errormessage := 'Cannot find parent group for group: '
1088: || l_group_name;
1089: ame_util.runtimeexception (
1090: packagenamein => 'ASO_APR_RESOURCE_HANDLER',
1091: routinenamein => 'getNextApprover',
1092: exceptionnumberin => errorcode,
1093: exceptionstringin => errormessage,
1094: transactionidin => ame_engine.temptransactionid,
1114: END IF;
1115: errorcode := -20003;
1116: errormessage := 'Please check the group heirarchy';
1117: ame_util.runtimeexception (
1118: packagenamein => 'ASO_APR_RESOURCE_HANDLER',
1119: routinenamein => 'getNextApprover',
1120: exceptionnumberin => SQLCODE,
1121: exceptionstringin => SQLERRM,
1122: transactionidin => ame_engine.temptransactionid,
1140: 'N'
1141: );
1142: END IF;
1143: ame_util.runtimeexception (
1144: packagenamein => 'ASO_APR_RESOURCE_HANDLER',
1145: routinenamein => 'getNextApprover',
1146: exceptionnumberin => SQLCODE,
1147: exceptionstringin => SQLERRM,
1148: transactionidin => ame_engine.temptransactionid,
1189: EXCEPTION
1190: WHEN OTHERS
1191: THEN
1192: ame_util.runtimeexception (
1193: packagenamein => 'ASO_APR_RESOURCE_HANDLER',
1194: routinenamein => 'getSurrogate',
1195: exceptionnumberin => SQLCODE,
1196: exceptionstringin => SQLERRM,
1197: transactionidin => ame_engine.temptransactionid,
1492: END IF;
1493: errorcode := -20001;
1494: errormessage := 'Parameters for approval IS wrong';
1495: ame_util.runtimeexception (
1496: packagenamein => 'ASO_APR_RESOURCE_HANDLER',
1497: routinenamein => 'hasFinalAuthority',
1498: exceptionnumberin => errorcode,
1499: exceptionstringin => errormessage,
1500: transactionidin => ame_engine.temptransactionid,
1523: errorcode := -20002;
1524: errormessage := 'Cannot get resource id for Username : '
1525: || l_user_name;
1526: ame_util.runtimeexception (
1527: packagenamein => 'ASO_APR_RESOURCE_HANDLER',
1528: routinenamein => 'hasFinalAuthority',
1529: exceptionnumberin => errorcode,
1530: exceptionstringin => errormessage,
1531: transactionidin => ame_engine.temptransactionid,
1546: 'N'
1547: );
1548: END IF;
1549: ame_util.runtimeexception (
1550: packagenamein => 'ASO_APR_RESOURCE_HANDLER',
1551: routinenamein => 'hasFinalAuthority',
1552: exceptionnumberin => SQLCODE,
1553: exceptionstringin => SQLERRM,
1554: transactionidin => ame_engine.temptransactionid,
1580: isasubordinateynout := ame_util.booleanfalse;
1581:
1582: */
1583: END isasubordinate;
1584: END aso_apr_resource_handler;