[Home] [Help]
6:
7: G_USER_ID NUMBER := FND_GLOBAL.USER_ID;
8: G_LOGIN_ID NUMBER := FND_GLOBAL.CONC_LOGIN_ID;
9:
10: DPP_DEBUG_HIGH_ON BOOLEAN := FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_high);
11: DPP_UNEXP_ERROR_ON BOOLEAN :=FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error);
12: DPP_ERROR_ON BOOLEAN := FND_MSG_PUB.check_msg_level(fnd_msg_pub.g_msg_lvl_error);
13: G_DEBUG BOOLEAN := true ;
14:
7: G_USER_ID NUMBER := FND_GLOBAL.USER_ID;
8: G_LOGIN_ID NUMBER := FND_GLOBAL.CONC_LOGIN_ID;
9:
10: DPP_DEBUG_HIGH_ON BOOLEAN := FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_high);
11: DPP_UNEXP_ERROR_ON BOOLEAN :=FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error);
12: DPP_ERROR_ON BOOLEAN := FND_MSG_PUB.check_msg_level(fnd_msg_pub.g_msg_lvl_error);
13: G_DEBUG BOOLEAN := true ;
14:
15: --Defining Global Value as Update_user_status, parametes are already defined
8: G_LOGIN_ID NUMBER := FND_GLOBAL.CONC_LOGIN_ID;
9:
10: DPP_DEBUG_HIGH_ON BOOLEAN := FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_high);
11: DPP_UNEXP_ERROR_ON BOOLEAN :=FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error);
12: DPP_ERROR_ON BOOLEAN := FND_MSG_PUB.check_msg_level(fnd_msg_pub.g_msg_lvl_error);
13: G_DEBUG BOOLEAN := true ;
14:
15: --Defining Global Value as Update_user_status, parametes are already defined
16: G_FORWARD_USER NUMBER;
134: dpp_utility_pvt.debug_message( l_api_name||': Start');
135: END IF;
136: --Initialize message list if p_init_msg_list is TRUE.
137: IF FND_API.To_Boolean (p_init_msg_list) THEN
138: FND_MSG_PUB.initialize;
139: END IF;
140: -- Initialize API return status to sucess
141: x_return_status := FND_API.G_RET_STS_SUCCESS;
142:
306: IF G_DEBUG THEN
307: dpp_utility_pvt.debug_message( l_api_name||': End');
308: END IF;
309: --Standard call to get message count and if count=1, get the message
310: FND_MSG_PUB.Count_And_Get (
311: p_encoded => FND_API.G_FALSE,
312: p_count => x_msg_count,
313: p_data => x_msg_data
314: );
316: WHEN FND_API.G_EXC_ERROR THEN
317: ROLLBACK TO Update_User_Action_PVT;
318: x_return_status := FND_API.G_RET_STS_ERROR;
319: -- Standard call to get message count and if count=1, get the message
320: FND_MSG_PUB.Count_And_Get (
321: p_encoded => FND_API.G_FALSE,
322: p_count => x_msg_count,
323: p_data => x_msg_data
324: );
323: p_data => x_msg_data
324: );
325: IF x_msg_count > 1 THEN
326: FOR I IN 1..x_msg_count LOOP
327: x_msg_data := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 4000);
328: END LOOP;
329: END IF;
330: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
331: ROLLBACK TO Update_User_Action_PVT;
330: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
331: ROLLBACK TO Update_User_Action_PVT;
332: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
333: -- Standard call to get message count and if count=1, get the message
334: FND_MSG_PUB.Count_And_Get (
335: p_encoded => FND_API.G_FALSE,
336: p_count => x_msg_count,
337: p_data => x_msg_data
338: );
337: p_data => x_msg_data
338: );
339: IF x_msg_count > 1 THEN
340: FOR I IN 1..x_msg_count LOOP
341: x_msg_data := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 4000);
342: END LOOP;
343: END IF;
344: WHEN OTHERS THEN
345: ROLLBACK TO Update_User_Action_PVT;
345: ROLLBACK TO Update_User_Action_PVT;
346: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
347: IF DPP_UNEXP_ERROR_ON
348: THEN
349: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
350: END IF;
351: -- Standard call to get message count and if count=1, get the message
352: FND_MSG_PUB.Count_And_Get (
353: p_encoded => FND_API.G_FALSE,
348: THEN
349: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
350: END IF;
351: -- Standard call to get message count and if count=1, get the message
352: FND_MSG_PUB.Count_And_Get (
353: p_encoded => FND_API.G_FALSE,
354: p_count => x_msg_count,
355: p_data => x_msg_data
356: );
355: p_data => x_msg_data
356: );
357: IF x_msg_count > 1 THEN
358: FOR I IN 1..x_msg_count LOOP
359: x_msg_data := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 4000);
360: END LOOP;
361: END IF;
362: --
363: END Update_User_Action;
418: dpp_utility_pvt.debug_message( l_api_name||': Start');
419: END IF;
420: --Initialize message list if p_init_msg_list is TRUE.
421: IF FND_API.To_Boolean (p_init_msg_list) THEN
422: FND_MSG_PUB.initialize;
423: END IF;
424: -- Initialize API return status to sucess
425: x_return_status := FND_API.G_RET_STS_SUCCESS;
426:
494: x_approvers(1).approver_level := l_approver_level;
495: END IF;
496:
497: --Standard call to get message count and if count=1, get the message
498: FND_MSG_PUB.Count_And_Get (
499: p_encoded => FND_API.G_FALSE,
500: p_count => x_msg_count,
501: p_data => x_msg_data
502: );
504: WHEN FND_API.G_EXC_ERROR THEN
505: ROLLBACK TO Get_Approvers_PVT;
506: x_return_status := FND_API.G_RET_STS_ERROR;
507: -- Standard call to get message count and if count=1, get the message
508: FND_MSG_PUB.Count_And_Get (
509: p_encoded => FND_API.G_FALSE,
510: p_count => x_msg_count,
511: p_data => x_msg_data
512: );
511: p_data => x_msg_data
512: );
513: IF x_msg_count > 1 THEN
514: FOR I IN 1..x_msg_count LOOP
515: x_msg_data := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 4000);
516: END LOOP;
517: END IF;
518: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
519: ROLLBACK TO Get_Approvers_PVT;
518: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
519: ROLLBACK TO Get_Approvers_PVT;
520: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
521: -- Standard call to get message count and if count=1, get the message
522: FND_MSG_PUB.Count_And_Get (
523: p_encoded => FND_API.G_FALSE,
524: p_count => x_msg_count,
525: p_data => x_msg_data
526: );
525: p_data => x_msg_data
526: );
527: IF x_msg_count > 1 THEN
528: FOR I IN 1..x_msg_count LOOP
529: x_msg_data := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 4000);
530: END LOOP;
531: END IF;
532: WHEN OTHERS THEN
533: ROLLBACK TO Get_Approvers_PVT;
533: ROLLBACK TO Get_Approvers_PVT;
534: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
535: IF DPP_UNEXP_ERROR_ON
536: THEN
537: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
538: END IF;
539: -- Standard call to get message count and if count=1, get the message
540: FND_MSG_PUB.Count_And_Get (
541: p_encoded => FND_API.G_FALSE,
536: THEN
537: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
538: END IF;
539: -- Standard call to get message count and if count=1, get the message
540: FND_MSG_PUB.Count_And_Get (
541: p_encoded => FND_API.G_FALSE,
542: p_count => x_msg_count,
543: p_data => x_msg_data
544: );
543: p_data => x_msg_data
544: );
545: IF x_msg_count > 1 THEN
546: FOR I IN 1..x_msg_count LOOP
547: x_msg_data := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 4000);
548: END LOOP;
549: END IF;
550: --
551: END Get_Approvers;
598: dpp_utility_pvt.debug_message( l_api_name||': Start');
599: END IF;
600: --Initialize message list if p_init_msg_list is TRUE.
601: IF FND_API.To_Boolean (p_init_msg_list) THEN
602: FND_MSG_PUB.initialize;
603: END IF;
604: --Initialize API return status to sucess
605: x_return_status := FND_API.G_RET_STS_SUCCESS;
606:
634: AND rownum <2;
635: EXCEPTION
636: WHEN NO_DATA_FOUND THEN
637: FND_MESSAGE.set_name('DPP', 'DPP_AME_NO_APP');
638: FND_MSG_PUB.add;
639: RAISE FND_API.G_EXC_ERROR;
640: WHEN OTHERS THEN
641: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
642: fnd_message.set_token('ROUTINE', 'DPP_APPROVAL_PVT');
641: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
642: fnd_message.set_token('ROUTINE', 'DPP_APPROVAL_PVT');
643: fnd_message.set_token('ERRNO', sqlcode);
644: fnd_message.set_token('REASON', sqlerrm);
645: FND_MSG_PUB.add;
646: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
647: END;
648: p_approversOut(1).first_name := l_first_name;
649: p_approversOut(1).last_name := l_last_name;
648: p_approversOut(1).first_name := l_first_name;
649: p_approversOut(1).last_name := l_last_name;
650: ELSE
651: FND_MESSAGE.set_name('DPP', 'DPP_AME_NO_APP');
652: FND_MSG_PUB.add;
653: IF G_DEBUG THEN
654: dpp_utility_pvt.debug_message( 'No default approver set for the object type : '||p_approval_rec.object_type);
655: END IF;
656: END IF;
674: EXCEPTION
675: WHEN NO_DATA_FOUND THEN
676: l_approver_email := NULL;
677: FND_MESSAGE.set_name('DPP', 'DPP_NO_APP_DETAIL');
678: FND_MSG_PUB.add;
679: RAISE FND_API.G_EXC_ERROR;
680: WHEN OTHERS THEN
681: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
682: fnd_message.set_token('ROUTINE', 'DPP_APPROVAL_PVT');
681: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
682: fnd_message.set_token('ROUTINE', 'DPP_APPROVAL_PVT');
683: fnd_message.set_token('ERRNO', sqlcode);
684: fnd_message.set_token('REASON', sqlerrm);
685: FND_MSG_PUB.add;
686: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
687: END;
688: ELSIF l_approversOut(i).user_id IS NOT NULL THEN -- If person id is null then retrieve the user id
689: BEGIN
693: WHERE user_id = l_approversOut(i).user_id;
694: EXCEPTION
695: WHEN NO_DATA_FOUND THEN
696: FND_MESSAGE.set_name('DPP', 'DPP_NO_APP_DETAIL');
697: FND_MSG_PUB.add;
698: RAISE FND_API.G_EXC_ERROR;
699: WHEN OTHERS THEN
700: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
701: fnd_message.set_token('ROUTINE', 'DPP_APPROVAL_PVT');
700: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
701: fnd_message.set_token('ROUTINE', 'DPP_APPROVAL_PVT');
702: fnd_message.set_token('ERRNO', sqlcode);
703: fnd_message.set_token('REASON', sqlerrm);
704: FND_MSG_PUB.add;
705: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
706: END;
707: ELSE -- Both the person id and the user id are null
708: IF G_DEBUG THEN
708: IF G_DEBUG THEN
709: dpp_utility_pvt.debug_message( 'No details retrieved for the Approver ');
710: END IF;
711: FND_MESSAGE.set_name('DPP', 'DPP_NO_APP_DETAIL');
712: FND_MSG_PUB.add;
713: l_approver_email := NULL;
714: END IF; --l_approversOut(i).person_id IS NOT NULL
715: --Retrieve the approval group name
716: BEGIN
720: WHERE approval_group_id = l_approversOut(i).group_or_chain_id;
721: EXCEPTION
722: WHEN NO_DATA_FOUND THEN
723: FND_MESSAGE.set_name('DPP', 'DPP_NO_APP_GRP_DETAIL');
724: FND_MSG_PUB.add;
725: RAISE FND_API.G_EXC_ERROR;
726: WHEN OTHERS THEN
727: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
728: fnd_message.set_token('ROUTINE', 'DPP_APPROVAL_PVT');
727: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
728: fnd_message.set_token('ROUTINE', 'DPP_APPROVAL_PVT');
729: fnd_message.set_token('ERRNO', sqlcode);
730: fnd_message.set_token('REASON', sqlerrm);
731: FND_MSG_PUB.add;
732: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
733: END;
734: --Retrieve the order number
735: BEGIN
740: AND orig_system_id = nvl(l_approversOut(i).person_id,l_approversOut(i).user_id);
741: EXCEPTION
742: WHEN NO_DATA_FOUND THEN
743: FND_MESSAGE.set_name('DPP', 'DPP_NO_APP_SEQ');
744: FND_MSG_PUB.add;
745: RAISE FND_API.G_EXC_ERROR;
746: WHEN OTHERS THEN
747: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
748: fnd_message.set_token('ROUTINE', 'DPP_APPROVAL_PVT');
747: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
748: fnd_message.set_token('ROUTINE', 'DPP_APPROVAL_PVT');
749: fnd_message.set_token('ERRNO', sqlcode);
750: fnd_message.set_token('REASON', sqlerrm);
751: FND_MSG_PUB.add;
752: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
753: END;
754: --Assign the approver details to the out variable
755: p_approversOut(i).user_id := l_approversOut(i).user_id;
772: IF G_DEBUG THEN
773: dpp_utility_pvt.debug_message( l_api_name||': End');
774: END IF;
775: --Standard call to get message count and if count=1, get the message
776: FND_MSG_PUB.Count_And_Get (
777: p_encoded => FND_API.G_FALSE,
778: p_count => x_msg_count,
779: p_data => x_msg_data
780: );
782: WHEN FND_API.G_EXC_ERROR THEN
783: ROLLBACK TO Get_AllApprovers_PVT;
784: x_return_status := FND_API.G_RET_STS_ERROR;
785: -- Standard call to get message count and if count=1, get the message
786: FND_MSG_PUB.Count_And_Get (
787: p_encoded => FND_API.G_FALSE,
788: p_count => x_msg_count,
789: p_data => x_msg_data
790: );
789: p_data => x_msg_data
790: );
791: IF x_msg_count > 1 THEN
792: FOR I IN 1..x_msg_count LOOP
793: x_msg_data := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 4000);
794: END LOOP;
795: END IF;
796: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
797: ROLLBACK TO Get_AllApprovers_PVT;
796: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
797: ROLLBACK TO Get_AllApprovers_PVT;
798: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
799: -- Standard call to get message count and if count=1, get the message
800: FND_MSG_PUB.Count_And_Get (
801: p_encoded => FND_API.G_FALSE,
802: p_count => x_msg_count,
803: p_data => x_msg_data
804: );
803: p_data => x_msg_data
804: );
805: IF x_msg_count > 1 THEN
806: FOR I IN 1..x_msg_count LOOP
807: x_msg_data := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 4000);
808: END LOOP;
809: END IF;
810: WHEN OTHERS THEN
811: ROLLBACK TO Get_AllApprovers_PVT;
811: ROLLBACK TO Get_AllApprovers_PVT;
812: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
813: IF DPP_UNEXP_ERROR_ON
814: THEN
815: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
816: END IF;
817: -- Standard call to get message count and if count=1, get the message
818: FND_MSG_PUB.Count_And_Get (
819: p_encoded => FND_API.G_FALSE,
814: THEN
815: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
816: END IF;
817: -- Standard call to get message count and if count=1, get the message
818: FND_MSG_PUB.Count_And_Get (
819: p_encoded => FND_API.G_FALSE,
820: p_count => x_msg_count,
821: p_data => x_msg_data
822: );
821: p_data => x_msg_data
822: );
823: IF x_msg_count > 1 THEN
824: FOR I IN 1..x_msg_count LOOP
825: x_msg_data := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 4000);
826: END LOOP;
827: END IF;
828: --
829: END Get_AllApprovers;
877: dpp_utility_pvt.debug_message( l_api_name||': Start');
878: END IF;
879: --Initialize message list if p_init_msg_list is TRUE.
880: IF FND_API.To_Boolean (p_init_msg_list) THEN
881: FND_MSG_PUB.initialize;
882: END IF;
883: -- Initialize API return status to sucess
884: x_return_status := FND_API.G_RET_STS_SUCCESS;
885:
979: IF G_DEBUG THEN
980: dpp_utility_pvt.debug_message( l_api_name||': End');
981: END IF;
982: --Standard call to get message count and if count=1, get the message
983: FND_MSG_PUB.Count_And_Get (
984: p_encoded => FND_API.G_FALSE,
985: p_count => x_msg_count,
986: p_data => x_msg_data
987: );
989: WHEN FND_API.G_EXC_ERROR THEN
990: ROLLBACK TO Add_Access_PVT;
991: x_return_status := FND_API.G_RET_STS_ERROR;
992: -- Standard call to get message count and if count=1, get the message
993: FND_MSG_PUB.Count_And_Get (
994: p_encoded => FND_API.G_FALSE,
995: p_count => x_msg_count,
996: p_data => x_msg_data
997: );
996: p_data => x_msg_data
997: );
998: IF x_msg_count > 1 THEN
999: FOR I IN 1..x_msg_count LOOP
1000: x_msg_data := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 4000);
1001: END LOOP;
1002: END IF;
1003: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1004: ROLLBACK TO Add_Access_PVT;
1003: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1004: ROLLBACK TO Add_Access_PVT;
1005: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1006: -- Standard call to get message count and if count=1, get the message
1007: FND_MSG_PUB.Count_And_Get (
1008: p_encoded => FND_API.G_FALSE,
1009: p_count => x_msg_count,
1010: p_data => x_msg_data
1011: );
1010: p_data => x_msg_data
1011: );
1012: IF x_msg_count > 1 THEN
1013: FOR I IN 1..x_msg_count LOOP
1014: x_msg_data := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 4000);
1015: END LOOP;
1016: END IF;
1017: WHEN OTHERS THEN
1018: ROLLBACK TO Add_Access_PVT;
1018: ROLLBACK TO Add_Access_PVT;
1019: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1020: IF DPP_UNEXP_ERROR_ON
1021: THEN
1022: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1023: END IF;
1024: -- Standard call to get message count and if count=1, get the message
1025: FND_MSG_PUB.Count_And_Get (
1026: p_encoded => FND_API.G_FALSE,
1021: THEN
1022: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1023: END IF;
1024: -- Standard call to get message count and if count=1, get the message
1025: FND_MSG_PUB.Count_And_Get (
1026: p_encoded => FND_API.G_FALSE,
1027: p_count => x_msg_count,
1028: p_data => x_msg_data
1029: );
1028: p_data => x_msg_data
1029: );
1030: IF x_msg_count > 1 THEN
1031: FOR I IN 1..x_msg_count LOOP
1032: x_msg_data := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 4000);
1033: END LOOP;
1034: END IF;
1035: --
1036: END Add_Access;
1085: -- Debug Message
1086: IF G_DEBUG THEN
1087: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
1088: FND_MESSAGE.Set_Token('TEXT',l_api_name||': Start');
1089: FND_MSG_PUB.Add;
1090: END IF;
1091: --Initialize message list if p_init_msg_list is TRUE.
1092: IF FND_API.To_Boolean (p_init_msg_list) THEN
1093: FND_MSG_PUB.initialize;
1089: FND_MSG_PUB.Add;
1090: END IF;
1091: --Initialize message list if p_init_msg_list is TRUE.
1092: IF FND_API.To_Boolean (p_init_msg_list) THEN
1093: FND_MSG_PUB.initialize;
1094: END IF;
1095: -- Initialize API return status to sucess
1096: x_return_status := FND_API.G_RET_STS_SUCCESS;
1097:
1119: IF G_DEBUG THEN
1120: dpp_utility_pvt.debug_message( l_api_name||': End');
1121: END IF;
1122: --Standard call to get message count and if count=1, get the message
1123: FND_MSG_PUB.Count_And_Get (
1124: p_encoded => FND_API.G_FALSE,
1125: p_count => x_msg_count,
1126: p_data => x_msg_data
1127: );
1129: WHEN FND_API.G_EXC_ERROR THEN
1130: ROLLBACK TO Revoke_Access_PVT;
1131: x_return_status := FND_API.G_RET_STS_ERROR;
1132: -- Standard call to get message count and if count=1, get the message
1133: FND_MSG_PUB.Count_And_Get (
1134: p_encoded => FND_API.G_FALSE,
1135: p_count => x_msg_count,
1136: p_data => x_msg_data
1137: );
1136: p_data => x_msg_data
1137: );
1138: IF x_msg_count > 1 THEN
1139: FOR I IN 1..x_msg_count LOOP
1140: x_msg_data := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 4000);
1141: END LOOP;
1142: END IF;
1143: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1144: ROLLBACK TO Revoke_Access_PVT;
1143: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1144: ROLLBACK TO Revoke_Access_PVT;
1145: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1146: -- Standard call to get message count and if count=1, get the message
1147: FND_MSG_PUB.Count_And_Get (
1148: p_encoded => FND_API.G_FALSE,
1149: p_count => x_msg_count,
1150: p_data => x_msg_data
1151: );
1150: p_data => x_msg_data
1151: );
1152: IF x_msg_count > 1 THEN
1153: FOR I IN 1..x_msg_count LOOP
1154: x_msg_data := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 4000);
1155: END LOOP;
1156: END IF;
1157: WHEN OTHERS THEN
1158: ROLLBACK TO Revoke_Access_PVT;
1158: ROLLBACK TO Revoke_Access_PVT;
1159: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1160: IF DPP_UNEXP_ERROR_ON
1161: THEN
1162: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1163: END IF;
1164: -- Standard call to get message count and if count=1, get the message
1165: FND_MSG_PUB.Count_And_Get (
1166: p_encoded => FND_API.G_FALSE,
1161: THEN
1162: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1163: END IF;
1164: -- Standard call to get message count and if count=1, get the message
1165: FND_MSG_PUB.Count_And_Get (
1166: p_encoded => FND_API.G_FALSE,
1167: p_count => x_msg_count,
1168: p_data => x_msg_data
1169: );
1168: p_data => x_msg_data
1169: );
1170: IF x_msg_count > 1 THEN
1171: FOR I IN 1..x_msg_count LOOP
1172: x_msg_data := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 4000);
1173: END LOOP;
1174: END IF;
1175: --
1176: END Revoke_Access;
1362: WHEN FND_API.G_EXC_ERROR THEN
1363: ROLLBACK TO Raise_Event_PVT;
1364: x_return_status := FND_API.G_RET_STS_ERROR;
1365: -- Standard call to get message count and if count=1, get the message
1366: FND_MSG_PUB.Count_And_Get (
1367: p_encoded => FND_API.G_FALSE,
1368: p_count => x_msg_count,
1369: p_data => x_msg_data
1370: );
1369: p_data => x_msg_data
1370: );
1371: IF x_msg_count > 1 THEN
1372: FOR I IN 1..x_msg_count LOOP
1373: x_msg_data := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 4000);
1374: END LOOP;
1375: END IF;
1376: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1377: ROLLBACK TO Raise_Event_PVT;
1376: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1377: ROLLBACK TO Raise_Event_PVT;
1378: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1379: -- Standard call to get message count and if count=1, get the message
1380: FND_MSG_PUB.Count_And_Get (
1381: p_encoded => FND_API.G_FALSE,
1382: p_count => x_msg_count,
1383: p_data => x_msg_data
1384: );
1383: p_data => x_msg_data
1384: );
1385: IF x_msg_count > 1 THEN
1386: FOR I IN 1..x_msg_count LOOP
1387: x_msg_data := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 4000);
1388: END LOOP;
1389: END IF;
1390: WHEN OTHERS THEN
1391: ROLLBACK TO Raise_Event_PVT;
1391: ROLLBACK TO Raise_Event_PVT;
1392: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1393: IF DPP_UNEXP_ERROR_ON
1394: THEN
1395: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1396: END IF;
1397: -- Standard call to get message count and if count=1, get the message
1398: FND_MSG_PUB.Count_And_Get (
1399: p_encoded => FND_API.G_FALSE,
1394: THEN
1395: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1396: END IF;
1397: -- Standard call to get message count and if count=1, get the message
1398: FND_MSG_PUB.Count_And_Get (
1399: p_encoded => FND_API.G_FALSE,
1400: p_count => x_msg_count,
1401: p_data => x_msg_data
1402: );
1401: p_data => x_msg_data
1402: );
1403: IF x_msg_count > 1 THEN
1404: FOR I IN 1..x_msg_count LOOP
1405: x_msg_data := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 4000);
1406: END LOOP;
1407: END IF;
1408: --
1409: END Raise_Event;
1498: dpp_utility_pvt.debug_message( l_api_name||': Start');
1499: END IF;
1500: --Initialize message list if p_init_msg_list is TRUE.
1501: IF FND_API.To_Boolean (p_init_msg_list) THEN
1502: FND_MSG_PUB.initialize;
1503: END IF;
1504: -- Initialize API return status to sucess
1505: x_return_status := FND_API.G_RET_STS_SUCCESS;
1506:
1629: IF G_DEBUG THEN
1630: dpp_utility_pvt.debug_message( l_api_name||': End');
1631: END IF;
1632: --Standard call to get message count and if count=1, get the message
1633: FND_MSG_PUB.Count_And_Get (
1634: p_encoded => FND_API.G_FALSE,
1635: p_count => x_msg_count,
1636: p_data => x_msg_data
1637: );
1639: WHEN FND_API.G_EXC_ERROR THEN
1640: ROLLBACK TO Send_Notification_PVT;
1641: x_return_status := FND_API.G_RET_STS_ERROR;
1642: -- Standard call to get message count and if count=1, get the message
1643: FND_MSG_PUB.Count_And_Get (
1644: p_encoded => FND_API.G_FALSE,
1645: p_count => x_msg_count,
1646: p_data => x_msg_data
1647: );
1646: p_data => x_msg_data
1647: );
1648: IF x_msg_count > 1 THEN
1649: FOR I IN 1..x_msg_count LOOP
1650: x_msg_data := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 4000);
1651: END LOOP;
1652: END IF;
1653: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1654: ROLLBACK TO Send_Notification_PVT;
1653: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1654: ROLLBACK TO Send_Notification_PVT;
1655: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1656: -- Standard call to get message count and if count=1, get the message
1657: FND_MSG_PUB.Count_And_Get (
1658: p_encoded => FND_API.G_FALSE,
1659: p_count => x_msg_count,
1660: p_data => x_msg_data
1661: );
1660: p_data => x_msg_data
1661: );
1662: IF x_msg_count > 1 THEN
1663: FOR I IN 1..x_msg_count LOOP
1664: x_msg_data := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 4000);
1665: END LOOP;
1666: END IF;
1667: WHEN OTHERS THEN
1668: ROLLBACK TO Send_Notification_PVT;
1668: ROLLBACK TO Send_Notification_PVT;
1669: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1670: IF DPP_UNEXP_ERROR_ON
1671: THEN
1672: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1673: END IF;
1674: -- Standard call to get message count and if count=1, get the message
1675: FND_MSG_PUB.Count_And_Get (
1676: p_encoded => FND_API.G_FALSE,
1671: THEN
1672: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1673: END IF;
1674: -- Standard call to get message count and if count=1, get the message
1675: FND_MSG_PUB.Count_And_Get (
1676: p_encoded => FND_API.G_FALSE,
1677: p_count => x_msg_count,
1678: p_data => x_msg_data
1679: );
1678: p_data => x_msg_data
1679: );
1680: IF x_msg_count > 1 THEN
1681: FOR I IN 1..x_msg_count LOOP
1682: x_msg_data := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 4000);
1683: END LOOP;
1684: END IF;
1685: --
1686: END Send_Notification;
1747: dpp_utility_pvt.debug_message( l_api_name||': Start');
1748: END IF;
1749: --Initialize message list if p_init_msg_list is TRUE.
1750: IF FND_API.To_Boolean (p_init_msg_list) THEN
1751: FND_MSG_PUB.initialize;
1752: END IF;
1753: x_return_status := FND_API.G_RET_STS_SUCCESS;
1754:
1755: --Retrieve the details of the transaction
1767: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1768: fnd_message.set_token('ROUTINE', 'DPP_APPROVAL_PVT');
1769: fnd_message.set_token('ERRNO', sqlcode);
1770: fnd_message.set_token('REASON', 'Invalid Transaction Header ID');
1771: FND_MSG_PUB.add;
1772: RAISE FND_API.G_EXC_ERROR;
1773: WHEN OTHERS THEN
1774: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1775: fnd_message.set_token('ROUTINE', 'DPP_APPROVAL_PVT');
1774: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1775: fnd_message.set_token('ROUTINE', 'DPP_APPROVAL_PVT');
1776: fnd_message.set_token('ERRNO', sqlcode);
1777: fnd_message.set_token('REASON', sqlerrm);
1778: FND_MSG_PUB.add;
1779: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1780: END;
1781: -- Update AME/approval tbl of users action and revoke access to existing approvers
1782: IF p_approval_rec.action_code = 'APPROVE' OR
1925: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1926: fnd_message.set_token('ROUTINE', 'DPP_APPROVAL_PVT');
1927: fnd_message.set_token('ERRNO', sqlcode);
1928: fnd_message.set_token('REASON', sqlerrm);
1929: FND_MSG_PUB.add;
1930: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1931: END;
1932: --Call the Initiate execution process program to make the transaction Active
1933: DPP_EXECUTIONPROCESS_PUB.Initiate_ExecutionProcess(errbuff,
1962: IF G_DEBUG THEN
1963: dpp_utility_pvt.debug_message( l_api_name||': End');
1964: END IF;
1965: --Standard call to get message count and if count=1, get the message
1966: FND_MSG_PUB.Count_And_Get (
1967: p_encoded => FND_API.G_FALSE,
1968: p_count => x_msg_count,
1969: p_data => x_msg_data
1970: );
1973: WHEN FND_API.G_EXC_ERROR THEN
1974: ROLLBACK TO Process_User_Action_PVT;
1975: x_return_status := FND_API.G_RET_STS_ERROR;
1976: -- Standard call to get message count and if count=1, get the message
1977: FND_MSG_PUB.Count_And_Get (
1978: p_encoded => FND_API.G_FALSE,
1979: p_count => x_msg_count,
1980: p_data => x_msg_data
1981: );
1980: p_data => x_msg_data
1981: );
1982: IF x_msg_count > 1 THEN
1983: FOR I IN 1..x_msg_count LOOP
1984: x_msg_data := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 4000);
1985: END LOOP;
1986: END IF;
1987: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1988: ROLLBACK TO Process_User_Action_PVT;
1987: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1988: ROLLBACK TO Process_User_Action_PVT;
1989: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1990: -- Standard call to get message count and if count=1, get the message
1991: FND_MSG_PUB.Count_And_Get (
1992: p_encoded => FND_API.G_FALSE,
1993: p_count => x_msg_count,
1994: p_data => x_msg_data
1995: );
1994: p_data => x_msg_data
1995: );
1996: IF x_msg_count > 1 THEN
1997: FOR I IN 1..x_msg_count LOOP
1998: x_msg_data := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 4000);
1999: END LOOP;
2000: END IF;
2001: WHEN OTHERS THEN
2002: ROLLBACK TO Process_User_Action_PVT;
2002: ROLLBACK TO Process_User_Action_PVT;
2003: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2004: IF DPP_UNEXP_ERROR_ON
2005: THEN
2006: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2007: END IF;
2008: -- Standard call to get message count and if count=1, get the message
2009: FND_MSG_PUB.Count_And_Get (
2010: p_encoded => FND_API.G_FALSE,
2005: THEN
2006: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2007: END IF;
2008: -- Standard call to get message count and if count=1, get the message
2009: FND_MSG_PUB.Count_And_Get (
2010: p_encoded => FND_API.G_FALSE,
2011: p_count => x_msg_count,
2012: p_data => x_msg_data
2013: );
2012: p_data => x_msg_data
2013: );
2014: IF x_msg_count > 1 THEN
2015: FOR I IN 1..x_msg_count LOOP
2016: x_msg_data := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 4000);
2017: END LOOP;
2018: END IF;
2019: --
2020: END Process_User_Action;