[Home] [Help]
69: l_msg_index NUMBER ;
70: l_cnt NUMBER := 0 ;
71:
72: BEGIN
73: -- Retriveing Error Message from FND_MSG_PUB
74: -- Called by most of the procedures if it encounter error
75: WHILE l_cnt < p_msg_count
76: LOOP
77: Fnd_Msg_Pub.Get
73: -- Retriveing Error Message from FND_MSG_PUB
74: -- Called by most of the procedures if it encounter error
75: WHILE l_cnt < p_msg_count
76: LOOP
77: Fnd_Msg_Pub.Get
78: (p_msg_index => l_cnt + 1,
79: p_encoded => Fnd_Api.G_FALSE,
80: p_data => l_msg_data,
81: p_msg_index_out => l_msg_index );
275: IF c_resource%NOTFOUND THEN
276: CLOSE c_resource ;
277: Fnd_Message.Set_Name('AMS','AMS_API_DEBUG_MESSAGE');
278: Fnd_Message.Set_Token('ROW', SQLERRM );
279: Fnd_Msg_Pub.ADD;
280: x_return_status := Fnd_Api.G_RET_STS_ERROR;
281: RETURN;
282: END IF;
283: CLOSE c_resource ;
285: -- Handle error when no user is associated with the approver's resource id.
286: IF l_user IS NULL THEN
287: Fnd_Message.Set_Name('AMS','AMS_RESOURCE_HAS_NO_USER');
288: Fnd_Message.Set_Token('RESOURCE', l_resource_name );
289: Fnd_Msg_Pub.ADD;
290: x_return_status := Fnd_Api.G_RET_STS_ERROR;
291: RETURN;
292: END IF;
293:
307: );
308: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
309: FND_MESSAGE.Set_Name('AMS','AMS_API_DEBUG_MESSAGE');
310: FND_MESSAGE.Set_Token('ROW', SQLERRM );
311: FND_MSG_PUB.Add;
312: x_return_status := FND_API.G_RET_STS_ERROR;
313: return;
314: END IF;
315: */
332: p_creation_date => SYSDATE ) ;
333: IF x_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
334: Fnd_Message.Set_Name('AMS','AMS_API_DEBUG_MESSAGE');
335: Fnd_Message.Set_Token('ROW', SQLERRM );
336: Fnd_Msg_Pub.ADD;
337: x_return_status := Fnd_Api.G_RET_STS_ERROR;
338: RETURN;
339: END IF;
340: /*AMS_Utility_PVT.create_log(x_return_status => l_return_stat,
382: IF c_resource%NOTFOUND THEN
383: CLOSE c_resource ;
384: Fnd_Message.Set_Name('AMS','AMS_API_DEBUG_MESSAGE');
385: Fnd_Message.Set_Token('ROW', SQLERRM );
386: Fnd_Msg_Pub.ADD;
387: x_return_status := Fnd_Api.G_RET_STS_ERROR;
388: RETURN;
389: END IF;
390: CLOSE c_resource ;
404: );
405: IF x_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
406: Fnd_Message.Set_Name('AMS','AMS_API_DEBUG_MESSAGE');
407: Fnd_Message.Set_Token('ROW', SQLERRM );
408: Fnd_Msg_Pub.ADD;
409: x_return_status := Fnd_Api.G_RET_STS_ERROR;
410: RETURN;
411: END IF;
412:
428: p_creation_date => SYSDATE ) ;
429: IF x_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
430: Fnd_Message.Set_Name('AMS','AMS_API_DEBUG_MESSAGE');
431: Fnd_Message.Set_Token('ROW', SQLERRM );
432: Fnd_Msg_Pub.ADD;
433: x_return_status := Fnd_Api.G_RET_STS_ERROR;
434: RETURN;
435: END IF;
436: /*AMS_Utility_PVT.create_log(x_return_status => l_return_stat,
478: IF c_resource%NOTFOUND THEN
479: CLOSE c_resource ;
480: x_return_status := Fnd_Api.G_RET_STS_ERROR;
481: Fnd_Message.Set_Name('AMS','AMS_APPR_INVALID_RESOURCE_ID');
482: Fnd_Msg_Pub.ADD;
483: RETURN;
484: END IF;
485: CLOSE c_resource ;
486: EXCEPTION
633: IF c_resource%NOTFOUND THEN
634: CLOSE c_resource ;
635: x_return_status := Fnd_Api.G_RET_STS_ERROR;
636: Fnd_Message.Set_Name('AMS','AMS_APPR_INVALID_RESOURCE_ID');
637: Fnd_Msg_Pub.ADD;
638: RETURN;
639: END IF;
640: CLOSE c_resource ;
641: -- Pass the Employee ID to get the Role
647: p_display_name => x_role_display_name );
648: IF x_role_name IS NULL THEN
649: x_return_status := Fnd_Api.G_RET_STS_ERROR;
650: Fnd_Message.Set_Name('AMS','AMS_APPR_INVALID_ROLE');
651: Fnd_Msg_Pub.ADD;
652: RETURN;
653: END IF;
654: ELSE
655: Wf_Directory.getrolename
659: p_display_name => x_role_display_name );
660: IF x_role_name IS NULL THEN
661: x_return_status := Fnd_Api.G_RET_STS_ERROR;
662: Fnd_Message.Set_Name('AMS','AMS_APPR_INVALID_ROLE');
663: Fnd_Msg_Pub.ADD;
664: RETURN;
665: END IF;
666: END IF;
667: EXCEPTION
889: FROM ams_deliverables_vl
890: WHERE deliverable_id = p_activity_id;
891: ELSE
892: Fnd_Message.Set_Name('AMS','AMS_BAD_APPROVAL_OBJECT_TYPE');
893: Fnd_Msg_Pub.ADD;
894: x_return_status := Fnd_Api.G_RET_STS_ERROR;
895: RETURN;
896: END IF ;
897:
898: FETCH l_obj_details INTO x_object_details;
899: IF l_obj_details%NOTFOUND THEN
900: CLOSE l_obj_details;
901: Fnd_Message.Set_Name('AMS','AMS_APPR_BAD_DETAILS');
902: Fnd_Msg_Pub.ADD;
903: x_return_status := Fnd_Api.G_RET_STS_ERROR;
904: RETURN;
905: END IF;
906: CLOSE l_obj_details;
915: l_meaning
916: );
917:
918: IF x_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
919: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
920: Fnd_Message.set_name('AMS', 'AMS_BAD_PRIORITY');
921: Fnd_Msg_Pub.ADD;
922: x_return_status := Fnd_Api.G_RET_STS_ERROR;
923: RETURN;
917:
918: IF x_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
919: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
920: Fnd_Message.set_name('AMS', 'AMS_BAD_PRIORITY');
921: Fnd_Msg_Pub.ADD;
922: x_return_status := Fnd_Api.G_RET_STS_ERROR;
923: RETURN;
924: END IF;
925: END IF;
1180: FETCH c_rule_name INTO l_rule_name;
1181: CLOSE c_rule_name;
1182: Fnd_Message.Set_Name('AMS','AMS_NO_APPR_FOR_RULE');
1183: Fnd_Message.Set_Token('RULE_NAME',l_rule_name);
1184: Fnd_Msg_Pub.ADD;
1185: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1186: RETURN;
1187: END IF;
1188:
1193: IF c_default_role_info%NOTFOUND THEN
1194: CLOSE c_default_role_info ;
1195: Fnd_Message.Set_Name('AMS','AMS_NO_DEFAULT_ROLE'); -- VMODUR added
1196: --Fnd_Message.Set_Name('AMS','AMS_APPR_INVALID_ROLE');
1197: Fnd_Msg_Pub.ADD;
1198: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1199: RETURN;
1200: END IF;
1201: CLOSE c_default_role_info ;
1206: IF l_count > 1 THEN
1207: CLOSE c_role_info_count;
1208: Fnd_Message.Set_Name('AMS','AMS_MANY_DEFAULT_ROLE'); -- VMODUR added
1209: --Fnd_Message.Set_Name('AMS','AMS_APPR_INVALID_ROLE');
1210: Fnd_Msg_Pub.ADD;
1211: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1212: RETURN;
1213: END IF;
1214: CLOSE c_role_info_count;
1216: FETCH c_role_info INTO x_object_approver_id, x_role_name;
1217: IF c_role_info%NOTFOUND THEN
1218: CLOSE c_role_info;
1219: Fnd_Message.Set_Name('AMS','AMS_APPR_INVALID_ROLE');
1220: Fnd_Msg_Pub.ADD;
1221: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1222: RETURN;
1223: END IF;
1224: CLOSE c_role_info;
1526: FETCH c_approver_def INTO x_approval_detail_id;
1527: IF c_approver_def%NOTFOUND THEN
1528: CLOSE c_approver_def ;
1529: FND_MESSAGE.Set_Name('AMS','AMS_NO_DEFAULT_ROLE');
1530: FND_MSG_PUB.Add;
1531: x_return_status := FND_API.G_RET_STS_ERROR;
1532: return;
1533: END IF;
1534: CLOSE c_approver_def ;
1596: FETCH c_approver_def INTO x_approval_detail_id;
1597: IF c_approver_def%NOTFOUND THEN
1598: CLOSE c_approver_def ;
1599: FND_MESSAGE.Set_Name('AMS','AMS_NO_DEFAULT_ROLE');
1600: FND_MSG_PUB.Add;
1601: x_return_status := FND_API.G_RET_STS_ERROR;
1602: return;
1603: END IF;
1604: CLOSE c_approver_def ;
1610: FETCH c_approver_seq INTO x_approver_seq ;
1611: IF c_approver_seq%NOTFOUND THEN
1612: CLOSE c_approver_seq;
1613: FND_MESSAGE.Set_Name('AMS','AMS_NO_APPROVER_SEQUENCE');
1614: FND_MSG_PUB.Add;
1615: x_return_status := FND_API.G_RET_STS_ERROR;
1616: return;
1617: END IF;
1618: CLOSE c_approver_seq;
1701: SELECT resource_id ,employee_id source_id,full_name resource_name
1702: FROM ams_jtf_rs_emp_v
1703: WHERE user_id = x_resource_id ;
1704: BEGIN
1705: Fnd_Msg_Pub.initialize();
1706:
1707: /* Delete any previous history rows for this object and approval type Bug 2761026*/
1708:
1709: AMS_Appr_Hist_PVT.Delete_Appr_Hist(
1842: l_appr_meaning
1843: );
1844: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
1845: Fnd_Message.Set_Name('AMS','AMS_BAD_APPROVAL_OBJECT_TYPE');
1846: Fnd_Msg_Pub.ADD;
1847: RAISE Fnd_Api.G_EXC_ERROR;
1848: END IF;
1849:
1850: -- set description of activity
1920:
1921: EXCEPTION
1922: WHEN Fnd_Api.G_EXC_ERROR THEN
1923: -- wf_engine.threshold := l_save_threshold ;
1924: Fnd_Msg_Pub.Count_And_Get (
1925: p_encoded => Fnd_Api.G_FALSE,
1926: p_count => l_msg_count,
1927: p_data => l_msg_data);
1928: Handle_Err
1936: ,p_activity_id ,l_error_msg);
1937: RAISE;
1938: WHEN OTHERS THEN
1939: -- wf_engine.threshold := l_save_threshold ;
1940: Fnd_Msg_Pub.Count_And_Get (
1941: p_encoded => Fnd_Api.G_FALSE,
1942: p_count => l_msg_count,
1943: p_data => l_msg_data);
1944: Handle_Err
1993: cursor c_get_function_id (c_func_name varchar2) is
1994: select function_id from fnd_form_functions where function_name = c_func_name ;
1995:
1996: BEGIN
1997: Fnd_Msg_Pub.initialize();
1998: IF (funcmode = 'RUN') THEN
1999: -- get the acitvity id
2000: l_activity_id := Wf_Engine.GetItemAttrNumber(
2001: itemtype => itemtype,
2129: x_return_status => l_return_status );
2130:
2131: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
2132:
2133: Fnd_Msg_Pub.Count_And_Get (
2134: p_encoded => Fnd_Api.G_FALSE,
2135: p_count => l_msg_count,
2136: p_data => l_msg_data);
2137:
2155: resultout := 'COMPLETE:SUCCESS';
2156: RETURN;
2157:
2158: ELSE
2159: Fnd_Msg_Pub.Count_And_Get (
2160: p_encoded => Fnd_Api.G_FALSE,
2161: p_count => l_msg_count,
2162: p_data => l_msg_data
2163: );
2198: --
2199:
2200: EXCEPTION
2201: WHEN Fnd_Api.G_EXC_ERROR THEN
2202: Fnd_Msg_Pub.Count_And_Get (
2203: p_encoded => Fnd_Api.G_FALSE,
2204: p_count => l_msg_count,
2205: p_data => l_msg_data
2206: );
2216: /*wf_core.context('Ams_Approval_Pvt','Set_Activity_Details',
2217: itemtype,itemkey,actid,funcmode,l_error_msg);
2218: raise; */
2219: WHEN OTHERS THEN
2220: Fnd_Msg_Pub.Count_And_Get (
2221: p_encoded => Fnd_Api.G_FALSE,
2222: p_count => l_msg_count,
2223: p_data => l_msg_data
2224: );
2258: AND act_budget_used_by_id = l_activity_id
2259: AND status_code NOT IN ('APPROVED','REJECTED','CANCELLED','PENDING')
2260: AND ROWNUM < 2;
2261: BEGIN
2262: Fnd_Msg_Pub.initialize();
2263:
2264: --
2265: -- RUN mode
2266: --
2306:
2307:
2308: EXCEPTION
2309: WHEN OTHERS THEN
2310: Fnd_Msg_Pub.Count_And_Get (
2311: p_encoded => Fnd_Api.G_FALSE,
2312: p_count => l_msg_count,
2313: p_data => l_msg_data
2314: );
2341: SELECT offer_type
2342: FROM ozf_offers
2343: WHERE qp_list_header_id = p_activity_id;
2344: BEGIN
2345: Fnd_Msg_Pub.initialize();
2346: -- Change for Offers Team for Bug 2861942
2347:
2348: IF p_activity_type = 'OFFR' THEN
2349: OPEN c_offer_type;
2406: l_msg_data VARCHAR2(4000);
2407: l_error_msg VARCHAR2(4000);
2408: l_save_threshold NUMBER := Wf_Engine.threshold;
2409: BEGIN
2410: Fnd_Msg_Pub.initialize();
2411: IF (funcmode = 'RUN') THEN
2412: Wf_Engine.threshold := -1;
2413: -- get the acitvity id
2414: l_activity_id := Wf_Engine.GetItemAttrNumber(
2434:
2435: IF l_approved_flag = Fnd_Api.G_TRUE THEN
2436: resultout := 'COMPLETE:SUCCESS';
2437: ELSE
2438: Fnd_Msg_Pub.Count_And_Get (
2439: p_encoded => Fnd_Api.G_FALSE,
2440: p_count => l_msg_count,
2441: p_data => l_msg_data
2442: );
2470: RETURN;
2471: END IF;
2472: EXCEPTION
2473: WHEN OTHERS THEN
2474: Fnd_Msg_Pub.Count_And_Get (
2475: p_encoded => Fnd_Api.G_FALSE,
2476: p_count => l_msg_count,
2477: p_data => l_msg_data
2478: );
2502: funcmode IN VARCHAR2,
2503: resultout OUT NOCOPY VARCHAR2 )
2504: IS
2505: BEGIN
2506: Fnd_Msg_Pub.initialize();
2507: IF (funcmode = 'RUN') THEN
2508: resultout := 'COMPLETE:SUCCESS';
2509: END IF;
2510:
2580: AND active_flag = 'Y'
2581: AND TRUNC(SYSDATE) BETWEEN TRUNC(NVL(start_date_active,SYSDATE -1 ))
2582: AND TRUNC(NVL(end_date_active,SYSDATE + 1));
2583: BEGIN
2584: Fnd_Msg_Pub.initialize();
2585: IF (funcmode = 'RUN') THEN
2586: l_approval_detail_id := Wf_Engine.GetItemAttrNumber(
2587: itemtype => itemtype,
2588: itemkey => itemkey,
2665: p_appr_hist_rec => l_appr_hist_rec
2666: );
2667:
2668: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
2669: Fnd_Msg_Pub.Count_And_Get (
2670: p_encoded => Fnd_Api.G_FALSE,
2671: p_count => l_msg_count,
2672: p_data => l_msg_data
2673: );
2696:
2697: IF(l_return_status = 'S') THEN
2698: l_object_approver_id := l_appr_id;
2699: ELSE
2700: Fnd_Msg_Pub.Count_And_Get (
2701: p_encoded => Fnd_Api.G_FALSE,
2702: p_count => l_msg_count,
2703: p_data => l_msg_data
2704: );
2829: RETURN;
2830: END IF;
2831: EXCEPTION
2832: WHEN Fnd_Api.G_EXC_ERROR THEN
2833: Fnd_Msg_Pub.Count_And_Get (
2834: p_encoded => Fnd_Api.G_FALSE,
2835: p_count => l_msg_count,
2836: p_data => l_msg_data
2837: );
2848: 'set_approval_rules',
2849: itemtype, itemkey,to_char(actid),l_error_msg);
2850: RAISE; */
2851: WHEN OTHERS THEN
2852: Fnd_Msg_Pub.Count_And_Get (
2853: p_encoded => Fnd_Api.G_FALSE,
2854: p_count => l_msg_count,
2855: p_data => l_msg_data
2856: );
2897: l_approval_type VARCHAR2(30);
2898: l_appr_hist_rec AMS_Appr_Hist_Pvt.Appr_Hist_Rec_Type;
2899: l_new_approver_id NUMBER;
2900: BEGIN
2901: Fnd_Msg_Pub.initialize();
2902: IF (funcmode = 'RUN') THEN
2903: l_approval_detail_id := Wf_Engine.GetItemAttrNumber(
2904: itemtype => itemtype,
2905: itemkey => itemkey,
3067: RETURN;
3068: END IF;
3069: EXCEPTION
3070: WHEN Fnd_Api.G_EXC_ERROR THEN
3071: Fnd_Msg_Pub.Count_And_Get (
3072: p_encoded => Fnd_Api.G_FALSE,
3073: p_count => l_msg_count,
3074: p_data => l_msg_data
3075: );
3085: 'set_further_approvals',
3086: itemtype, itemkey,TO_CHAR(actid),l_error_msg);
3087: RAISE;
3088: WHEN OTHERS THEN
3089: Fnd_Msg_Pub.Count_And_Get (
3090: p_encoded => Fnd_Api.G_FALSE,
3091: p_count => l_msg_count,
3092: p_data => l_msg_data
3093: );
3128: l_version NUMBER;
3129: l_approval_type VARCHAR2(30);
3130:
3131: BEGIN
3132: Fnd_Msg_Pub.initialize();
3133: --
3134: -- RUN mode
3135: --
3136: IF (funcmode = 'RUN') THEN
3219: --
3220:
3221: EXCEPTION
3222: WHEN Fnd_Api.G_EXC_ERROR THEN
3223: Fnd_Msg_Pub.Count_And_Get (
3224: p_encoded => Fnd_Api.G_FALSE,
3225: p_count => l_msg_count,
3226: p_data => l_msg_data
3227: );
3235: ) ;
3236: resultout := 'COMPLETE:FAILURE';
3237:
3238: WHEN OTHERS THEN
3239: Fnd_Msg_Pub.Count_And_Get (
3240: p_encoded => Fnd_Api.G_FALSE,
3241: p_count => l_msg_count,
3242: p_data => l_msg_data
3243: );
3379:
3380:
3381: EXCEPTION
3382: WHEN Fnd_Api.G_EXC_ERROR THEN
3383: Fnd_Msg_Pub.Count_And_Get (
3384: p_encoded => Fnd_Api.G_FALSE,
3385: p_count => l_msg_count,
3386: p_data => l_msg_data
3387: );
3395: ) ;
3396: resultout := 'COMPLETE:ERROR';
3397:
3398: WHEN OTHERS THEN
3399: Fnd_Msg_Pub.Count_And_Get (
3400: p_encoded => Fnd_Api.G_FALSE,
3401: p_count => l_msg_count,
3402: p_data => l_msg_data
3403: );
3591:
3592: EXCEPTION
3593:
3594: WHEN Fnd_Api.G_EXC_ERROR THEN
3595: Fnd_Msg_Pub.Count_And_Get (
3596: p_encoded => Fnd_Api.G_FALSE,
3597: p_count => l_msg_count,
3598: p_data => l_msg_data
3599: );
3606: x_error_msg => l_error_msg
3607: ) ;
3608: resultout := 'COMPLETE:ERROR';
3609: WHEN OTHERS THEN
3610: Fnd_Msg_Pub.Count_And_Get (
3611: p_encoded => Fnd_Api.G_FALSE,
3612: p_count => l_msg_count,
3613: p_data => l_msg_data
3614: );
3892: AND source_object_id = id_in;
3893:
3894: BEGIN
3895:
3896: Fnd_Msg_Pub.initialize();
3897:
3898: -- Delete any previous approval history rows Bug 2761026
3899:
3900: AMS_Appr_Hist_PVT.Delete_Appr_Hist(
4212: EXCEPTION
4213: WHEN OTHERS THEN
4214: Fnd_Message.Set_Name('AMS','AMS_API_DEBUG_MESSAGE');
4215: Fnd_Message.Set_Token('ROW', SQLERRM );
4216: Fnd_Msg_Pub.ADD;
4217: RAISE Fnd_Api.G_EXC_ERROR;
4218: END;
4219:
4220: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
4367:
4368: EXCEPTION
4369: WHEN Fnd_Api.G_EXC_ERROR THEN
4370: -- raise error if not able to get the budget line
4371: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
4372: Fnd_Message.set_name('AMS', 'AMS_BUDGET_LINE_START_ERROR');
4373: Fnd_Msg_Pub.ADD;
4374: END IF;
4375:
4369: WHEN Fnd_Api.G_EXC_ERROR THEN
4370: -- raise error if not able to get the budget line
4371: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
4372: Fnd_Message.set_name('AMS', 'AMS_BUDGET_LINE_START_ERROR');
4373: Fnd_Msg_Pub.ADD;
4374: END IF;
4375:
4376: Fnd_Msg_Pub.Count_And_Get (
4377: p_encoded => Fnd_Api.G_FALSE,
4372: Fnd_Message.set_name('AMS', 'AMS_BUDGET_LINE_START_ERROR');
4373: Fnd_Msg_Pub.ADD;
4374: END IF;
4375:
4376: Fnd_Msg_Pub.Count_And_Get (
4377: p_encoded => Fnd_Api.G_FALSE,
4378: p_count => l_msg_count,
4379: p_data => l_msg_data);
4380: Handle_Err
4387: Wf_Core.context ('Ams_Approval_Pvt', 'Start_Process',
4388: l_budget_type ,l_budget_id ,l_error_msg);
4389: RAISE;
4390: WHEN OTHERS THEN
4391: IF Fnd_Msg_Pub.Check_Msg_Level ( Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
4392: THEN
4393: Fnd_Msg_Pub.Add_Exc_Msg( G_PKG_NAME,l_api_name);
4394: END IF;
4395: Fnd_Msg_Pub.Count_And_Get (
4389: RAISE;
4390: WHEN OTHERS THEN
4391: IF Fnd_Msg_Pub.Check_Msg_Level ( Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
4392: THEN
4393: Fnd_Msg_Pub.Add_Exc_Msg( G_PKG_NAME,l_api_name);
4394: END IF;
4395: Fnd_Msg_Pub.Count_And_Get (
4396: p_encoded => Fnd_Api.G_FALSE,
4397: p_count => l_msg_count,
4391: IF Fnd_Msg_Pub.Check_Msg_Level ( Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
4392: THEN
4393: Fnd_Msg_Pub.Add_Exc_Msg( G_PKG_NAME,l_api_name);
4394: END IF;
4395: Fnd_Msg_Pub.Count_And_Get (
4396: p_encoded => Fnd_Api.G_FALSE,
4397: p_count => l_msg_count,
4398: p_data => l_msg_data);
4399: Handle_Err
4471: THEN
4472: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4473: END IF;
4474: -- Debug Message
4475: IF Fnd_Msg_Pub.Check_Msg_level (Fnd_Msg_Pub.G_MSG_LVL_DEBUG_LOW) THEN
4476: Fnd_Message.Set_Name('AMS','AMS_API_DEBUG_MESSAGE');
4477: Fnd_Message.Set_Token('ROW',l_full_name||': START');
4478: Fnd_Msg_Pub.ADD;
4479: END IF;
4474: -- Debug Message
4475: IF Fnd_Msg_Pub.Check_Msg_level (Fnd_Msg_Pub.G_MSG_LVL_DEBUG_LOW) THEN
4476: Fnd_Message.Set_Name('AMS','AMS_API_DEBUG_MESSAGE');
4477: Fnd_Message.Set_Token('ROW',l_full_name||': START');
4478: Fnd_Msg_Pub.ADD;
4479: END IF;
4480: --Initialize message list if p_init_msg_list is TRUE.
4481: IF Fnd_Api.To_Boolean (p_init_msg_list) THEN
4482: Fnd_Msg_Pub.initialize;
4478: Fnd_Msg_Pub.ADD;
4479: END IF;
4480: --Initialize message list if p_init_msg_list is TRUE.
4481: IF Fnd_Api.To_Boolean (p_init_msg_list) THEN
4482: Fnd_Msg_Pub.initialize;
4483: END IF;
4484: -- Initialize API return status to sucess
4485: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
4486:
4500: EXCEPTION
4501: WHEN OTHERS THEN
4502: Fnd_Message.Set_Name('AMS','AMS_API_DEBUG_MESSAGE');
4503: Fnd_Message.Set_Token('ROW',SQLERRM);
4504: Fnd_Msg_Pub.ADD;
4505: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4506: END;
4507:
4508: --Standard check of commit
4509: IF Fnd_Api.To_Boolean ( p_commit ) THEN
4510: COMMIT WORK;
4511: END IF;
4512: -- Debug Message
4513: IF Fnd_Msg_Pub.Check_Msg_level (Fnd_Msg_Pub.G_MSG_LVL_DEBUG_LOW) THEN
4514: Fnd_Message.Set_Name('AMS','AMS_API_DEBUG_MESSAGE');
4515: Fnd_Message.Set_Token('ROW',l_full_name||': END');
4516: Fnd_Msg_Pub.ADD;
4517: END IF;
4512: -- Debug Message
4513: IF Fnd_Msg_Pub.Check_Msg_level (Fnd_Msg_Pub.G_MSG_LVL_DEBUG_LOW) THEN
4514: Fnd_Message.Set_Name('AMS','AMS_API_DEBUG_MESSAGE');
4515: Fnd_Message.Set_Token('ROW',l_full_name||': END');
4516: Fnd_Msg_Pub.ADD;
4517: END IF;
4518: --Standard call to get message count and if count=1, get the message
4519: Fnd_Msg_Pub.Count_And_Get (
4520: p_encoded => Fnd_Api.G_FALSE,
4515: Fnd_Message.Set_Token('ROW',l_full_name||': END');
4516: Fnd_Msg_Pub.ADD;
4517: END IF;
4518: --Standard call to get message count and if count=1, get the message
4519: Fnd_Msg_Pub.Count_And_Get (
4520: p_encoded => Fnd_Api.G_FALSE,
4521: p_count => x_msg_count,
4522: p_data => x_msg_data
4523: );
4525: WHEN Fnd_Api.G_EXC_ERROR THEN
4526: ROLLBACK TO Start_LineApproval_PVT;
4527: x_return_status := Fnd_Api.G_RET_STS_ERROR;
4528: -- Standard call to get message count and if count=1, get the message
4529: Fnd_Msg_Pub.Count_And_Get (
4530: p_encoded => Fnd_Api.G_FALSE,
4531: p_count => x_msg_count,
4532: p_data => x_msg_data
4533: );
4534: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
4535: ROLLBACK TO Start_LineApproval_PVT;
4536: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
4537: -- Standard call to get message count and if count=1, get the message
4538: Fnd_Msg_Pub.Count_And_Get (
4539: p_encoded => Fnd_Api.G_FALSE,
4540: p_count => x_msg_count,
4541: p_data => x_msg_data
4542: );
4542: );
4543: WHEN OTHERS THEN
4544: ROLLBACK TO Start_LineApproval_PVT;
4545: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
4546: IF Fnd_Msg_Pub.Check_Msg_Level ( Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
4547: THEN
4548: Fnd_Msg_Pub.Add_Exc_Msg( G_PKG_NAME,l_api_name);
4549: END IF;
4550: -- Standard call to get message count and if count=1, get the message
4544: ROLLBACK TO Start_LineApproval_PVT;
4545: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
4546: IF Fnd_Msg_Pub.Check_Msg_Level ( Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
4547: THEN
4548: Fnd_Msg_Pub.Add_Exc_Msg( G_PKG_NAME,l_api_name);
4549: END IF;
4550: -- Standard call to get message count and if count=1, get the message
4551: Fnd_Msg_Pub.Count_And_Get (
4552: p_encoded => Fnd_Api.G_FALSE,
4547: THEN
4548: Fnd_Msg_Pub.Add_Exc_Msg( G_PKG_NAME,l_api_name);
4549: END IF;
4550: -- Standard call to get message count and if count=1, get the message
4551: Fnd_Msg_Pub.Count_And_Get (
4552: p_encoded => Fnd_Api.G_FALSE,
4553: p_count => x_msg_count,
4554: p_data => x_msg_data
4555: );
4708: WHEN OTHERS THEN
4709: -- Commented for Bug 2485371
4710: --Fnd_Message.Set_Name('AMS','AMS_API_DEBUG_MESSAGE');
4711: --Fnd_Message.Set_Token('ROW', SQLERRM );
4712: --Fnd_Msg_Pub.ADD;
4713: RAISE Fnd_Api.G_EXC_ERROR;
4714: Fnd_Msg_Pub.Count_And_Get (
4715: p_encoded => Fnd_Api.G_FALSE,
4716: p_count => l_msg_count,
4710: --Fnd_Message.Set_Name('AMS','AMS_API_DEBUG_MESSAGE');
4711: --Fnd_Message.Set_Token('ROW', SQLERRM );
4712: --Fnd_Msg_Pub.ADD;
4713: RAISE Fnd_Api.G_EXC_ERROR;
4714: Fnd_Msg_Pub.Count_And_Get (
4715: p_encoded => Fnd_Api.G_FALSE,
4716: p_count => l_msg_count,
4717: p_data => l_msg_data);
4718: Handle_Err
4753: EXCEPTION
4754: WHEN Fnd_Api.G_EXC_ERROR THEN
4755: -- raise error if not able to get the budget line
4756: -- Commented for Bug 2485371
4757: --IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
4758: -- Fnd_Message.set_name('AMS', 'AMS_BUDGET_LINE_UPDATE_ERROR');
4759: -- Fnd_Msg_Pub.ADD;
4760: --END IF;
4761: Fnd_Msg_Pub.Count_And_Get (
4755: -- raise error if not able to get the budget line
4756: -- Commented for Bug 2485371
4757: --IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
4758: -- Fnd_Message.set_name('AMS', 'AMS_BUDGET_LINE_UPDATE_ERROR');
4759: -- Fnd_Msg_Pub.ADD;
4760: --END IF;
4761: Fnd_Msg_Pub.Count_And_Get (
4762: p_encoded => Fnd_Api.G_FALSE,
4763: p_count => l_msg_count,
4757: --IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
4758: -- Fnd_Message.set_name('AMS', 'AMS_BUDGET_LINE_UPDATE_ERROR');
4759: -- Fnd_Msg_Pub.ADD;
4760: --END IF;
4761: Fnd_Msg_Pub.Count_And_Get (
4762: p_encoded => Fnd_Api.G_FALSE,
4763: p_count => l_msg_count,
4764: p_data => l_msg_data);
4765: Handle_Err
4775: itemtype, itemkey,to_char(actid),l_error_msg);
4776: RAISE;
4777: */
4778: WHEN OTHERS THEN
4779: Fnd_Msg_Pub.Count_And_Get (
4780: p_encoded => Fnd_Api.G_FALSE,
4781: p_count => l_msg_count,
4782: p_data => l_msg_data);
4783: Handle_Err
4899: );
4900:
4901: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
4902: -- raise error
4903: Fnd_Msg_Pub.Count_And_Get(p_encoded => Fnd_Api.G_FALSE,
4904: p_count => l_msg_count,
4905: p_data => l_msg_data);
4906:
4907: Handle_Err (p_itemtype => itemtype ,
4985:
4986: IF (l_return_status = 'S') THEN
4987: l_object_approver_id := l_appr_id;
4988: ELSE
4989: FND_MSG_PUB.Count_And_Get (
4990: p_encoded => FND_API.G_FALSE,
4991: p_count => l_msg_count,
4992: p_data => l_msg_data
4993: );
5162: --
5163:
5164: EXCEPTION
5165: WHEN Fnd_Api.G_EXC_ERROR THEN
5166: Fnd_Msg_Pub.Count_And_Get (
5167: p_encoded => Fnd_Api.G_FALSE,
5168: p_count => l_msg_count,
5169: p_data => l_msg_data);
5170: Handle_Err
5176: x_error_msg => l_error_msg);
5177: resultout := 'COMPLETE:ERROR';
5178:
5179: WHEN OTHERS THEN
5180: Fnd_Msg_Pub.Count_And_Get (
5181: p_encoded => Fnd_Api.G_FALSE,
5182: p_count => l_msg_count,
5183: p_data => l_msg_data);
5184: Handle_Err
5382: --
5383:
5384: EXCEPTION
5385: WHEN Fnd_Api.G_EXC_ERROR THEN
5386: Fnd_Msg_Pub.Count_And_Get (
5387: p_encoded => Fnd_Api.G_FALSE,
5388: p_count => l_msg_count,
5389: p_data => l_msg_data);
5390: Handle_Err
5398: 'Check_Line_Further_Approval',
5399: itemtype, itemkey,TO_CHAR(actid),l_error_msg);
5400: RAISE;
5401: WHEN OTHERS THEN
5402: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
5403: Fnd_Message.Set_Name('AMS','AMS_API_DEBUG_MESSAGE');
5404: Fnd_Message.Set_Token('ROW',SQLERRM);
5405: Fnd_Msg_Pub.ADD;
5406: END IF;
5401: WHEN OTHERS THEN
5402: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
5403: Fnd_Message.Set_Name('AMS','AMS_API_DEBUG_MESSAGE');
5404: Fnd_Message.Set_Token('ROW',SQLERRM);
5405: Fnd_Msg_Pub.ADD;
5406: END IF;
5407: Fnd_Msg_Pub.Count_And_Get (
5408: p_encoded => Fnd_Api.G_FALSE,
5409: p_count => l_msg_count,
5403: Fnd_Message.Set_Name('AMS','AMS_API_DEBUG_MESSAGE');
5404: Fnd_Message.Set_Token('ROW',SQLERRM);
5405: Fnd_Msg_Pub.ADD;
5406: END IF;
5407: Fnd_Msg_Pub.Count_And_Get (
5408: p_encoded => Fnd_Api.G_FALSE,
5409: p_count => l_msg_count,
5410: p_data => l_msg_data);
5411: Handle_Err
5548: p_approved_currency => l_approved_currency,
5549: p_comment => l_comment);
5550:
5551: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
5552: Fnd_Msg_Pub.Count_And_Get (
5553: p_encoded => Fnd_Api.G_FALSE,
5554: p_count => l_msg_count,
5555: p_data => l_msg_data);
5556: Handle_Err
5567: EXCEPTION
5568: WHEN OTHERS THEN
5569: Fnd_Message.Set_Name('AMS','AMS_API_DEBUG_MESSAGE');
5570: Fnd_Message.Set_Token('ROW', SQLERRM );
5571: Fnd_Msg_Pub.ADD;
5572: RAISE Fnd_Api.G_EXC_ERROR;
5573: END;
5574:
5575: resultout := 'COMPLETE:SUCCESS';
5595: --
5596:
5597: EXCEPTION
5598: WHEN Fnd_Api.G_EXC_ERROR THEN
5599: Fnd_Msg_Pub.Count_And_Get (
5600: p_encoded => Fnd_Api.G_FALSE,
5601: p_count => l_msg_count,
5602: p_data => l_msg_data);
5603: Handle_Err
5611: 'Approve_Budget_Line',
5612: itemtype, itemkey,TO_CHAR(actid),l_error_msg);
5613: RAISE;
5614: WHEN OTHERS THEN
5615: Fnd_Msg_Pub.Count_And_Get (
5616: p_encoded => Fnd_Api.G_FALSE,
5617: p_count => l_msg_count,
5618: p_data => l_msg_data);
5619: Handle_Err
5774: p_approved_currency => l_approved_currency,
5775: p_comment => l_comment);
5776:
5777: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
5778: Fnd_Msg_Pub.Count_And_Get (
5779: p_encoded => Fnd_Api.G_FALSE,
5780: p_count => l_msg_count,
5781: p_data => l_msg_data);
5782: Handle_Err
5793: EXCEPTION
5794: WHEN OTHERS THEN
5795: Fnd_Message.Set_Name('AMS','AMS_API_DEBUG_MESSAGE');
5796: Fnd_Message.Set_Token('ROW', SQLERRM );
5797: Fnd_Msg_Pub.ADD;
5798: RAISE Fnd_Api.G_EXC_ERROR;
5799: END;
5800: -- Commented for bug 3150550
5801: -- Start of addition for forward/reassign notification
5886: --
5887:
5888: EXCEPTION
5889: WHEN Fnd_Api.G_EXC_ERROR THEN
5890: Fnd_Msg_Pub.Count_And_Get (
5891: p_encoded => Fnd_Api.G_FALSE,
5892: p_count => l_msg_count,
5893: p_data => l_msg_data);
5894: Handle_Err
5902: 'Reject_Budget_Line',
5903: itemtype, itemkey,TO_CHAR(actid),l_error_msg);
5904: RAISE;
5905: WHEN OTHERS THEN
5906: Fnd_Msg_Pub.Count_And_Get (
5907: p_encoded => Fnd_Api.G_FALSE,
5908: p_count => l_msg_count,
5909: p_data => l_msg_data);
5910: Handle_Err
6024:
6025: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
6026: Fnd_Message.Set_Name('AMS','AMS_API_DEBUG_MESSAGE');
6027: --Fnd_Message.Set_Token('ROW', SQLERRM );
6028: Fnd_Msg_Pub.ADD;
6029:
6030: Fnd_Msg_Pub.Count_And_Get (
6031: p_encoded => Fnd_Api.G_FALSE,
6032: p_count => l_msg_count,
6026: Fnd_Message.Set_Name('AMS','AMS_API_DEBUG_MESSAGE');
6027: --Fnd_Message.Set_Token('ROW', SQLERRM );
6028: Fnd_Msg_Pub.ADD;
6029:
6030: Fnd_Msg_Pub.Count_And_Get (
6031: p_encoded => Fnd_Api.G_FALSE,
6032: p_count => l_msg_count,
6033: p_data => l_msg_data);
6034: Handle_Err
6046: EXCEPTION
6047: WHEN OTHERS THEN
6048: Fnd_Message.Set_Name('AMS','AMS_API_DEBUG_MESSAGE');
6049: Fnd_Message.Set_Token('ROW', SQLERRM );
6050: Fnd_Msg_Pub.ADD;
6051: RAISE Fnd_Api.G_EXC_ERROR;
6052: END;
6053:
6054: -- 11.5.9 addition
6101: --
6102:
6103: EXCEPTION
6104: WHEN Fnd_Api.G_EXC_ERROR THEN
6105: Fnd_Msg_Pub.Count_And_Get (
6106: p_encoded => Fnd_Api.G_FALSE,
6107: p_count => l_msg_count,
6108: p_data => l_msg_data);
6109: Handle_Err
6117: 'Revert_Budget_Line',
6118: itemtype, itemkey,TO_CHAR(actid),l_error_msg);
6119: RAISE;
6120: WHEN OTHERS THEN
6121: Fnd_Msg_Pub.Count_And_Get (
6122: p_encoded => Fnd_Api.G_FALSE,
6123: p_count => l_msg_count,
6124: p_data => l_msg_data);
6125: Handle_Err
6206: --
6207:
6208: EXCEPTION
6209: WHEN OTHERS THEN
6210: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
6211: Fnd_Message.Set_Name('AMS','AMS_API_DEBUG_MESSAGE');
6212: Fnd_Message.Set_Token('ROW',SQLERRM);
6213: Fnd_Msg_Pub.ADD;
6214: END IF;
6209: WHEN OTHERS THEN
6210: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
6211: Fnd_Message.Set_Name('AMS','AMS_API_DEBUG_MESSAGE');
6212: Fnd_Message.Set_Token('ROW',SQLERRM);
6213: Fnd_Msg_Pub.ADD;
6214: END IF;
6215: Fnd_Msg_Pub.Count_And_Get (
6216: p_encoded => Fnd_Api.G_FALSE,
6217: p_count => l_msg_count,
6211: Fnd_Message.Set_Name('AMS','AMS_API_DEBUG_MESSAGE');
6212: Fnd_Message.Set_Token('ROW',SQLERRM);
6213: Fnd_Msg_Pub.ADD;
6214: END IF;
6215: Fnd_Msg_Pub.Count_And_Get (
6216: p_encoded => Fnd_Api.G_FALSE,
6217: p_count => l_msg_count,
6218: p_data => l_msg_data);
6219: Handle_Err
6354: --
6355:
6356: EXCEPTION
6357: WHEN OTHERS THEN
6358: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
6359: Fnd_Message.Set_Name('AMS','AMS_API_DEBUG_MESSAGE');
6360: Fnd_Message.Set_Token('ROW',SQLERRM);
6361: Fnd_Msg_Pub.ADD;
6362: END IF;
6357: WHEN OTHERS THEN
6358: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
6359: Fnd_Message.Set_Name('AMS','AMS_API_DEBUG_MESSAGE');
6360: Fnd_Message.Set_Token('ROW',SQLERRM);
6361: Fnd_Msg_Pub.ADD;
6362: END IF;
6363: Fnd_Msg_Pub.Count_And_Get (
6364: p_encoded => Fnd_Api.G_FALSE,
6365: p_count => l_msg_count,
6359: Fnd_Message.Set_Name('AMS','AMS_API_DEBUG_MESSAGE');
6360: Fnd_Message.Set_Token('ROW',SQLERRM);
6361: Fnd_Msg_Pub.ADD;
6362: END IF;
6363: Fnd_Msg_Pub.Count_And_Get (
6364: p_encoded => Fnd_Api.G_FALSE,
6365: p_count => l_msg_count,
6366: p_data => l_msg_data);
6367: Handle_Err
6484: --
6485:
6486: EXCEPTION
6487: WHEN OTHERS THEN
6488: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
6489: Fnd_Message.Set_Name('AMS','AMS_API_DEBUG_MESSAGE');
6490: Fnd_Message.Set_Token('ROW',SQLERRM);
6491: Fnd_Msg_Pub.ADD;
6492: END IF;
6487: WHEN OTHERS THEN
6488: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
6489: Fnd_Message.Set_Name('AMS','AMS_API_DEBUG_MESSAGE');
6490: Fnd_Message.Set_Token('ROW',SQLERRM);
6491: Fnd_Msg_Pub.ADD;
6492: END IF;
6493: Fnd_Msg_Pub.Count_And_Get (
6494: p_encoded => Fnd_Api.G_FALSE,
6495: p_count => l_msg_count,
6489: Fnd_Message.Set_Name('AMS','AMS_API_DEBUG_MESSAGE');
6490: Fnd_Message.Set_Token('ROW',SQLERRM);
6491: Fnd_Msg_Pub.ADD;
6492: END IF;
6493: Fnd_Msg_Pub.Count_And_Get (
6494: p_encoded => Fnd_Api.G_FALSE,
6495: p_count => l_msg_count,
6496: p_data => l_msg_data);
6497: Handle_Err
6635: --
6636:
6637: EXCEPTION
6638: WHEN OTHERS THEN
6639: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
6640: Fnd_Message.Set_Name('AMS','AMS_API_DEBUG_MESSAGE');
6641: Fnd_Message.Set_Token('ROW',SQLERRM);
6642: Fnd_Msg_Pub.ADD;
6643: END IF;
6638: WHEN OTHERS THEN
6639: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
6640: Fnd_Message.Set_Name('AMS','AMS_API_DEBUG_MESSAGE');
6641: Fnd_Message.Set_Token('ROW',SQLERRM);
6642: Fnd_Msg_Pub.ADD;
6643: END IF;
6644: Fnd_Msg_Pub.Count_And_Get (
6645: p_encoded => Fnd_Api.G_FALSE,
6646: p_count => l_msg_count,
6640: Fnd_Message.Set_Name('AMS','AMS_API_DEBUG_MESSAGE');
6641: Fnd_Message.Set_Token('ROW',SQLERRM);
6642: Fnd_Msg_Pub.ADD;
6643: END IF;
6644: Fnd_Msg_Pub.Count_And_Get (
6645: p_encoded => Fnd_Api.G_FALSE,
6646: p_count => l_msg_count,
6647: p_data => l_msg_data);
6648: Handle_Err
6738: --
6739:
6740: EXCEPTION
6741: WHEN OTHERS THEN
6742: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
6743: Fnd_Message.Set_Name('AMS','AMS_API_DEBUG_MESSAGE');
6744: Fnd_Message.Set_Token('ROW',SQLERRM);
6745: Fnd_Msg_Pub.ADD;
6746: END IF;
6741: WHEN OTHERS THEN
6742: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
6743: Fnd_Message.Set_Name('AMS','AMS_API_DEBUG_MESSAGE');
6744: Fnd_Message.Set_Token('ROW',SQLERRM);
6745: Fnd_Msg_Pub.ADD;
6746: END IF;
6747: Fnd_Msg_Pub.Count_And_Get (
6748: p_encoded => Fnd_Api.G_FALSE,
6749: p_count => l_msg_count,
6743: Fnd_Message.Set_Name('AMS','AMS_API_DEBUG_MESSAGE');
6744: Fnd_Message.Set_Token('ROW',SQLERRM);
6745: Fnd_Msg_Pub.ADD;
6746: END IF;
6747: Fnd_Msg_Pub.Count_And_Get (
6748: p_encoded => Fnd_Api.G_FALSE,
6749: p_count => l_msg_count,
6750: p_data => l_msg_data);
6751: Handle_Err
6967: END IF;
6968: EXCEPTION
6969: WHEN Fnd_Api.G_EXC_ERROR THEN
6970: -- wf_engine.threshold := l_save_threshold ;
6971: Fnd_Msg_Pub.Count_And_Get (
6972: p_encoded => Fnd_Api.G_FALSE,
6973: p_count => l_msg_count,
6974: p_data => l_msg_data);
6975: Handle_Err
7001: l_act_budget_id NUMBER;
7002:
7003:
7004: BEGIN
7005: Fnd_Msg_Pub.initialize();
7006:
7007: --
7008: -- RUN mode
7009: --
7083: END IF;
7084: --
7085: EXCEPTION
7086: WHEN Fnd_Api.G_EXC_ERROR THEN
7087: Fnd_Msg_Pub.Count_And_Get (
7088: p_encoded => Fnd_Api.G_FALSE,
7089: p_count => l_msg_count,
7090: p_data => l_msg_data
7091: );
7102: itemtype, itemkey,TO_CHAR(actid),l_error_msg);
7103: RAISE;
7104: --resultout := 'COMPLETE:ERROR';
7105: WHEN OTHERS THEN
7106: Fnd_Msg_Pub.Count_And_Get (
7107: p_encoded => Fnd_Api.G_FALSE,
7108: p_count => l_msg_count,
7109: p_data => l_msg_data);
7110: Handle_Err
7144: l_approver NUMBER;
7145:
7146:
7147: BEGIN
7148: Fnd_Msg_Pub.initialize();
7149: --
7150: -- RUN mode
7151: --
7152: IF (funcmode = 'RUN') THEN
7223: --
7224: -- RUN mode
7225: --
7226: IF (funcmode = 'RUN') THEN
7227: Fnd_Msg_Pub.initialize();
7228:
7229: -- Get the Approver Id
7230: l_approver_id := Wf_Engine.GetItemAttrNumber( itemtype => itemtype,
7231: itemkey => itemkey,
7499:
7500: END IF;
7501: EXCEPTION
7502: WHEN Fnd_Api.G_EXC_ERROR THEN
7503: Fnd_Msg_Pub.Count_And_Get (
7504: p_encoded => Fnd_Api.G_FALSE,
7505: p_count => l_msg_count,
7506: p_data => l_msg_data
7507: );
7539: --l_act_budget_id NUMBER;
7540:
7541:
7542: BEGIN
7543: Fnd_Msg_Pub.initialize();
7544:
7545: --
7546: -- RUN mode
7547: --
7620: END IF;
7621: --
7622: EXCEPTION
7623: WHEN Fnd_Api.G_EXC_ERROR THEN
7624: Fnd_Msg_Pub.Count_And_Get (
7625: p_encoded => Fnd_Api.G_FALSE,
7626: p_count => l_msg_count,
7627: p_data => l_msg_data
7628: );
7639: itemtype, itemkey,TO_CHAR(actid),l_error_msg);
7640: RAISE;
7641: --resultout := 'COMPLETE:ERROR';
7642: WHEN OTHERS THEN
7643: Fnd_Msg_Pub.Count_And_Get (
7644: p_encoded => Fnd_Api.G_FALSE,
7645: p_count => l_msg_count,
7646: p_data => l_msg_data);
7647: Handle_Err
7671: SELECT custom_setup_id
7672: FROM ozf_offers
7673: WHERE qp_list_header_id = id;
7674: BEGIN
7675: Fnd_Msg_Pub.initialize();
7676: --
7677: -- RUN mode
7678: --
7679: IF (funcmode = 'RUN') THEN