[Home] [Help]
34: l_msg_index NUMBER ;
35: l_cnt NUMBER := 0 ;
36:
37: BEGIN
38: -- Retriveing Error Message from FND_MSG_PUB
39: -- Called by most of the procedures if it encounter error
40: WHILE l_cnt < p_msg_count
41: LOOP
42: Fnd_Msg_Pub.Get
38: -- Retriveing Error Message from FND_MSG_PUB
39: -- Called by most of the procedures if it encounter error
40: WHILE l_cnt < p_msg_count
41: LOOP
42: Fnd_Msg_Pub.Get
43: (p_msg_index => l_cnt + 1,
44: p_encoded => Fnd_Api.G_FALSE,
45: p_data => l_msg_data,
46: p_msg_index_out => l_msg_index );
240: IF c_resource%NOTFOUND THEN
241: CLOSE c_resource ;
242: Fnd_Message.Set_Name('AMS','AMS_API_DEBUG_MESSAGE');
243: Fnd_Message.Set_Token('ROW', SQLERRM );
244: Fnd_Msg_Pub.ADD;
245: x_return_status := Fnd_Api.G_RET_STS_ERROR;
246: RETURN;
247: END IF;
248: CLOSE c_resource ;
250: -- Handle error when no user is associated with the approver's resource id.
251: IF l_user IS NULL THEN
252: Fnd_Message.Set_Name('AMS','AMS_RESOURCE_HAS_NO_USER');
253: Fnd_Message.Set_Token('RESOURCE', l_resource_name );
254: Fnd_Msg_Pub.ADD;
255: x_return_status := Fnd_Api.G_RET_STS_ERROR;
256: RETURN;
257: END IF;
258:
272: );
273: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
274: FND_MESSAGE.Set_Name('AMS','AMS_API_DEBUG_MESSAGE');
275: FND_MESSAGE.Set_Token('ROW', SQLERRM );
276: FND_MSG_PUB.Add;
277: x_return_status := FND_API.G_RET_STS_ERROR;
278: return;
279: END IF;
280: */
297: p_creation_date => SYSDATE ) ;
298: IF x_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
299: Fnd_Message.Set_Name('AMS','AMS_API_DEBUG_MESSAGE');
300: Fnd_Message.Set_Token('ROW', SQLERRM );
301: Fnd_Msg_Pub.ADD;
302: x_return_status := Fnd_Api.G_RET_STS_ERROR;
303: RETURN;
304: END IF;
305: /*AMS_Utility_PVT.create_log(x_return_status => l_return_stat,
347: IF c_resource%NOTFOUND THEN
348: CLOSE c_resource ;
349: Fnd_Message.Set_Name('AMS','AMS_API_DEBUG_MESSAGE');
350: Fnd_Message.Set_Token('ROW', SQLERRM );
351: Fnd_Msg_Pub.ADD;
352: x_return_status := Fnd_Api.G_RET_STS_ERROR;
353: RETURN;
354: END IF;
355: CLOSE c_resource ;
369: );
370: IF x_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
371: Fnd_Message.Set_Name('AMS','AMS_API_DEBUG_MESSAGE');
372: Fnd_Message.Set_Token('ROW', SQLERRM );
373: Fnd_Msg_Pub.ADD;
374: x_return_status := Fnd_Api.G_RET_STS_ERROR;
375: RETURN;
376: END IF;
377:
393: p_creation_date => SYSDATE ) ;
394: IF x_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
395: Fnd_Message.Set_Name('AMS','AMS_API_DEBUG_MESSAGE');
396: Fnd_Message.Set_Token('ROW', SQLERRM );
397: Fnd_Msg_Pub.ADD;
398: x_return_status := Fnd_Api.G_RET_STS_ERROR;
399: RETURN;
400: END IF;
401: /*AMS_Utility_PVT.create_log(x_return_status => l_return_stat,
443: IF c_resource%NOTFOUND THEN
444: CLOSE c_resource ;
445: x_return_status := Fnd_Api.G_RET_STS_ERROR;
446: Fnd_Message.Set_Name('AMS','AMS_APPR_INVALID_RESOURCE_ID');
447: Fnd_Msg_Pub.ADD;
448: RETURN;
449: END IF;
450: CLOSE c_resource ;
451: EXCEPTION
598: IF c_resource%NOTFOUND THEN
599: CLOSE c_resource ;
600: x_return_status := Fnd_Api.G_RET_STS_ERROR;
601: Fnd_Message.Set_Name('AMS','AMS_APPR_INVALID_RESOURCE_ID');
602: Fnd_Msg_Pub.ADD;
603: RETURN;
604: END IF;
605: CLOSE c_resource ;
606: -- Pass the Employee ID to get the Role
612: p_display_name => x_role_display_name );
613: IF x_role_name IS NULL THEN
614: x_return_status := Fnd_Api.G_RET_STS_ERROR;
615: Fnd_Message.Set_Name('AMS','AMS_APPR_INVALID_ROLE');
616: Fnd_Msg_Pub.ADD;
617: RETURN;
618: END IF;
619: ELSE
620: Wf_Directory.getrolename
624: p_display_name => x_role_display_name );
625: IF x_role_name IS NULL THEN
626: x_return_status := Fnd_Api.G_RET_STS_ERROR;
627: Fnd_Message.Set_Name('AMS','AMS_APPR_INVALID_ROLE');
628: Fnd_Msg_Pub.ADD;
629: RETURN;
630: END IF;
631: END IF;
632: EXCEPTION
853: FROM ams_deliverables_vl
854: WHERE deliverable_id = p_activity_id;
855: ELSE
856: Fnd_Message.Set_Name('AMS','AMS_BAD_APPROVAL_OBJECT_TYPE');
857: Fnd_Msg_Pub.ADD;
858: x_return_status := Fnd_Api.G_RET_STS_ERROR;
859: RETURN;
860: END IF ;
861:
862: FETCH l_obj_details INTO x_object_details;
863: IF l_obj_details%NOTFOUND THEN
864: CLOSE l_obj_details;
865: Fnd_Message.Set_Name('AMS','AMS_APPR_BAD_DETAILS');
866: Fnd_Msg_Pub.ADD;
867: x_return_status := Fnd_Api.G_RET_STS_ERROR;
868: RETURN;
869: END IF;
870: CLOSE l_obj_details;
879: l_meaning
880: );
881:
882: IF x_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
883: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
884: Fnd_Message.set_name('AMS', 'AMS_BAD_PRIORITY');
885: Fnd_Msg_Pub.ADD;
886: x_return_status := Fnd_Api.G_RET_STS_ERROR;
887: RETURN;
881:
882: IF x_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
883: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
884: Fnd_Message.set_name('AMS', 'AMS_BAD_PRIORITY');
885: Fnd_Msg_Pub.ADD;
886: x_return_status := Fnd_Api.G_RET_STS_ERROR;
887: RETURN;
888: END IF;
889: END IF;
1144: FETCH c_rule_name INTO l_rule_name;
1145: CLOSE c_rule_name;
1146: Fnd_Message.Set_Name('AMS','AMS_NO_APPR_FOR_RULE');
1147: Fnd_Message.Set_Token('RULE_NAME',l_rule_name);
1148: Fnd_Msg_Pub.ADD;
1149: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1150: RETURN;
1151: END IF;
1152:
1157: IF c_default_role_info%NOTFOUND THEN
1158: CLOSE c_default_role_info ;
1159: Fnd_Message.Set_Name('AMS','AMS_NO_DEFAULT_ROLE'); -- VMODUR added
1160: --Fnd_Message.Set_Name('AMS','AMS_APPR_INVALID_ROLE');
1161: Fnd_Msg_Pub.ADD;
1162: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1163: RETURN;
1164: END IF;
1165: CLOSE c_default_role_info ;
1170: IF l_count > 1 THEN
1171: CLOSE c_role_info_count;
1172: Fnd_Message.Set_Name('AMS','AMS_MANY_DEFAULT_ROLE'); -- VMODUR added
1173: --Fnd_Message.Set_Name('AMS','AMS_APPR_INVALID_ROLE');
1174: Fnd_Msg_Pub.ADD;
1175: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1176: RETURN;
1177: END IF;
1178: CLOSE c_role_info_count;
1180: FETCH c_role_info INTO x_object_approver_id, x_role_name;
1181: IF c_role_info%NOTFOUND THEN
1182: CLOSE c_role_info;
1183: Fnd_Message.Set_Name('AMS','AMS_APPR_INVALID_ROLE');
1184: Fnd_Msg_Pub.ADD;
1185: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1186: RETURN;
1187: END IF;
1188: CLOSE c_role_info;
1490: FETCH c_approver_def INTO x_approval_detail_id;
1491: IF c_approver_def%NOTFOUND THEN
1492: CLOSE c_approver_def ;
1493: FND_MESSAGE.Set_Name('AMS','AMS_NO_DEFAULT_ROLE');
1494: FND_MSG_PUB.Add;
1495: x_return_status := FND_API.G_RET_STS_ERROR;
1496: return;
1497: END IF;
1498: CLOSE c_approver_def ;
1560: FETCH c_approver_def INTO x_approval_detail_id;
1561: IF c_approver_def%NOTFOUND THEN
1562: CLOSE c_approver_def ;
1563: FND_MESSAGE.Set_Name('AMS','AMS_NO_DEFAULT_ROLE');
1564: FND_MSG_PUB.Add;
1565: x_return_status := FND_API.G_RET_STS_ERROR;
1566: return;
1567: END IF;
1568: CLOSE c_approver_def ;
1574: FETCH c_approver_seq INTO x_approver_seq ;
1575: IF c_approver_seq%NOTFOUND THEN
1576: CLOSE c_approver_seq;
1577: FND_MESSAGE.Set_Name('AMS','AMS_NO_APPROVER_SEQUENCE');
1578: FND_MSG_PUB.Add;
1579: x_return_status := FND_API.G_RET_STS_ERROR;
1580: return;
1581: END IF;
1582: CLOSE c_approver_seq;
1665: SELECT resource_id ,employee_id source_id,full_name resource_name
1666: FROM ams_jtf_rs_emp_v
1667: WHERE user_id = x_resource_id ;
1668: BEGIN
1669: Fnd_Msg_Pub.initialize();
1670:
1671: /* Delete any previous history rows for this object and approval type Bug 2761026*/
1672:
1673: AMS_Appr_Hist_PVT.Delete_Appr_Hist(
1806: l_appr_meaning
1807: );
1808: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
1809: Fnd_Message.Set_Name('AMS','AMS_BAD_APPROVAL_OBJECT_TYPE');
1810: Fnd_Msg_Pub.ADD;
1811: RAISE Fnd_Api.G_EXC_ERROR;
1812: END IF;
1813:
1814: -- set description of activity
1884:
1885: EXCEPTION
1886: WHEN Fnd_Api.G_EXC_ERROR THEN
1887: -- wf_engine.threshold := l_save_threshold ;
1888: Fnd_Msg_Pub.Count_And_Get (
1889: p_encoded => Fnd_Api.G_FALSE,
1890: p_count => l_msg_count,
1891: p_data => l_msg_data);
1892: Handle_Err
1900: ,p_activity_id ,l_error_msg);
1901: RAISE;
1902: WHEN OTHERS THEN
1903: -- wf_engine.threshold := l_save_threshold ;
1904: Fnd_Msg_Pub.Count_And_Get (
1905: p_encoded => Fnd_Api.G_FALSE,
1906: p_count => l_msg_count,
1907: p_data => l_msg_data);
1908: Handle_Err
1957: cursor c_get_function_id (c_func_name varchar2) is
1958: select function_id from fnd_form_functions where function_name = c_func_name ;
1959:
1960: BEGIN
1961: Fnd_Msg_Pub.initialize();
1962: IF (funcmode = 'RUN') THEN
1963: -- get the acitvity id
1964: l_activity_id := Wf_Engine.GetItemAttrNumber(
1965: itemtype => itemtype,
2093: x_return_status => l_return_status );
2094:
2095: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
2096:
2097: Fnd_Msg_Pub.Count_And_Get (
2098: p_encoded => Fnd_Api.G_FALSE,
2099: p_count => l_msg_count,
2100: p_data => l_msg_data);
2101:
2119: resultout := 'COMPLETE:SUCCESS';
2120: RETURN;
2121:
2122: ELSE
2123: Fnd_Msg_Pub.Count_And_Get (
2124: p_encoded => Fnd_Api.G_FALSE,
2125: p_count => l_msg_count,
2126: p_data => l_msg_data
2127: );
2162: --
2163:
2164: EXCEPTION
2165: WHEN Fnd_Api.G_EXC_ERROR THEN
2166: Fnd_Msg_Pub.Count_And_Get (
2167: p_encoded => Fnd_Api.G_FALSE,
2168: p_count => l_msg_count,
2169: p_data => l_msg_data
2170: );
2180: /*wf_core.context('Ams_Approval_Pvt','Set_Activity_Details',
2181: itemtype,itemkey,actid,funcmode,l_error_msg);
2182: raise; */
2183: WHEN OTHERS THEN
2184: Fnd_Msg_Pub.Count_And_Get (
2185: p_encoded => Fnd_Api.G_FALSE,
2186: p_count => l_msg_count,
2187: p_data => l_msg_data
2188: );
2222: AND act_budget_used_by_id = l_activity_id
2223: AND status_code NOT IN ('APPROVED','REJECTED','CANCELLED','PENDING')
2224: AND ROWNUM < 2;
2225: BEGIN
2226: Fnd_Msg_Pub.initialize();
2227:
2228: --
2229: -- RUN mode
2230: --
2270:
2271:
2272: EXCEPTION
2273: WHEN OTHERS THEN
2274: Fnd_Msg_Pub.Count_And_Get (
2275: p_encoded => Fnd_Api.G_FALSE,
2276: p_count => l_msg_count,
2277: p_data => l_msg_data
2278: );
2305: SELECT offer_type
2306: FROM ozf_offers
2307: WHERE qp_list_header_id = p_activity_id;
2308: BEGIN
2309: Fnd_Msg_Pub.initialize();
2310: -- Change for Offers Team for Bug 2861942
2311:
2312: IF p_activity_type = 'OFFR' THEN
2313: OPEN c_offer_type;
2370: l_msg_data VARCHAR2(4000);
2371: l_error_msg VARCHAR2(4000);
2372: l_save_threshold NUMBER := Wf_Engine.threshold;
2373: BEGIN
2374: Fnd_Msg_Pub.initialize();
2375: IF (funcmode = 'RUN') THEN
2376: Wf_Engine.threshold := -1;
2377: -- get the acitvity id
2378: l_activity_id := Wf_Engine.GetItemAttrNumber(
2398:
2399: IF l_approved_flag = Fnd_Api.G_TRUE THEN
2400: resultout := 'COMPLETE:SUCCESS';
2401: ELSE
2402: Fnd_Msg_Pub.Count_And_Get (
2403: p_encoded => Fnd_Api.G_FALSE,
2404: p_count => l_msg_count,
2405: p_data => l_msg_data
2406: );
2434: RETURN;
2435: END IF;
2436: EXCEPTION
2437: WHEN OTHERS THEN
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: );
2466: funcmode IN VARCHAR2,
2467: resultout OUT NOCOPY VARCHAR2 )
2468: IS
2469: BEGIN
2470: Fnd_Msg_Pub.initialize();
2471: IF (funcmode = 'RUN') THEN
2472: resultout := 'COMPLETE:SUCCESS';
2473: END IF;
2474:
2544: AND active_flag = 'Y'
2545: AND TRUNC(SYSDATE) BETWEEN TRUNC(NVL(start_date_active,SYSDATE -1 ))
2546: AND TRUNC(NVL(end_date_active,SYSDATE + 1));
2547: BEGIN
2548: Fnd_Msg_Pub.initialize();
2549: IF (funcmode = 'RUN') THEN
2550: l_approval_detail_id := Wf_Engine.GetItemAttrNumber(
2551: itemtype => itemtype,
2552: itemkey => itemkey,
2629: p_appr_hist_rec => l_appr_hist_rec
2630: );
2631:
2632: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
2633: Fnd_Msg_Pub.Count_And_Get (
2634: p_encoded => Fnd_Api.G_FALSE,
2635: p_count => l_msg_count,
2636: p_data => l_msg_data
2637: );
2660:
2661: IF(l_return_status = 'S') THEN
2662: l_object_approver_id := l_appr_id;
2663: ELSE
2664: Fnd_Msg_Pub.Count_And_Get (
2665: p_encoded => Fnd_Api.G_FALSE,
2666: p_count => l_msg_count,
2667: p_data => l_msg_data
2668: );
2793: RETURN;
2794: END IF;
2795: EXCEPTION
2796: WHEN Fnd_Api.G_EXC_ERROR THEN
2797: Fnd_Msg_Pub.Count_And_Get (
2798: p_encoded => Fnd_Api.G_FALSE,
2799: p_count => l_msg_count,
2800: p_data => l_msg_data
2801: );
2812: 'set_approval_rules',
2813: itemtype, itemkey,to_char(actid),l_error_msg);
2814: RAISE; */
2815: WHEN OTHERS THEN
2816: Fnd_Msg_Pub.Count_And_Get (
2817: p_encoded => Fnd_Api.G_FALSE,
2818: p_count => l_msg_count,
2819: p_data => l_msg_data
2820: );
2861: l_approval_type VARCHAR2(30);
2862: l_appr_hist_rec AMS_Appr_Hist_Pvt.Appr_Hist_Rec_Type;
2863: l_new_approver_id NUMBER;
2864: BEGIN
2865: Fnd_Msg_Pub.initialize();
2866: IF (funcmode = 'RUN') THEN
2867: l_approval_detail_id := Wf_Engine.GetItemAttrNumber(
2868: itemtype => itemtype,
2869: itemkey => itemkey,
3031: RETURN;
3032: END IF;
3033: EXCEPTION
3034: WHEN Fnd_Api.G_EXC_ERROR THEN
3035: Fnd_Msg_Pub.Count_And_Get (
3036: p_encoded => Fnd_Api.G_FALSE,
3037: p_count => l_msg_count,
3038: p_data => l_msg_data
3039: );
3049: 'set_further_approvals',
3050: itemtype, itemkey,TO_CHAR(actid),l_error_msg);
3051: RAISE;
3052: WHEN OTHERS THEN
3053: Fnd_Msg_Pub.Count_And_Get (
3054: p_encoded => Fnd_Api.G_FALSE,
3055: p_count => l_msg_count,
3056: p_data => l_msg_data
3057: );
3092: l_version NUMBER;
3093: l_approval_type VARCHAR2(30);
3094:
3095: BEGIN
3096: Fnd_Msg_Pub.initialize();
3097: --
3098: -- RUN mode
3099: --
3100: IF (funcmode = 'RUN') THEN
3183: --
3184:
3185: EXCEPTION
3186: WHEN Fnd_Api.G_EXC_ERROR THEN
3187: Fnd_Msg_Pub.Count_And_Get (
3188: p_encoded => Fnd_Api.G_FALSE,
3189: p_count => l_msg_count,
3190: p_data => l_msg_data
3191: );
3199: ) ;
3200: resultout := 'COMPLETE:FAILURE';
3201:
3202: WHEN OTHERS THEN
3203: Fnd_Msg_Pub.Count_And_Get (
3204: p_encoded => Fnd_Api.G_FALSE,
3205: p_count => l_msg_count,
3206: p_data => l_msg_data
3207: );
3292:
3293:
3294: EXCEPTION
3295: WHEN Fnd_Api.G_EXC_ERROR THEN
3296: Fnd_Msg_Pub.Count_And_Get (
3297: p_encoded => Fnd_Api.G_FALSE,
3298: p_count => l_msg_count,
3299: p_data => l_msg_data
3300: );
3308: ) ;
3309: resultout := 'COMPLETE:ERROR';
3310:
3311: WHEN OTHERS THEN
3312: Fnd_Msg_Pub.Count_And_Get (
3313: p_encoded => Fnd_Api.G_FALSE,
3314: p_count => l_msg_count,
3315: p_data => l_msg_data
3316: );
3504:
3505: EXCEPTION
3506:
3507: WHEN Fnd_Api.G_EXC_ERROR THEN
3508: Fnd_Msg_Pub.Count_And_Get (
3509: p_encoded => Fnd_Api.G_FALSE,
3510: p_count => l_msg_count,
3511: p_data => l_msg_data
3512: );
3519: x_error_msg => l_error_msg
3520: ) ;
3521: resultout := 'COMPLETE:ERROR';
3522: WHEN OTHERS THEN
3523: Fnd_Msg_Pub.Count_And_Get (
3524: p_encoded => Fnd_Api.G_FALSE,
3525: p_count => l_msg_count,
3526: p_data => l_msg_data
3527: );
3805: AND source_object_id = id_in;
3806:
3807: BEGIN
3808:
3809: Fnd_Msg_Pub.initialize();
3810:
3811: -- Delete any previous approval history rows Bug 2761026
3812:
3813: AMS_Appr_Hist_PVT.Delete_Appr_Hist(
4121: EXCEPTION
4122: WHEN OTHERS THEN
4123: Fnd_Message.Set_Name('AMS','AMS_API_DEBUG_MESSAGE');
4124: Fnd_Message.Set_Token('ROW', SQLERRM );
4125: Fnd_Msg_Pub.ADD;
4126: RAISE Fnd_Api.G_EXC_ERROR;
4127: END;
4128:
4129: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
4276:
4277: EXCEPTION
4278: WHEN Fnd_Api.G_EXC_ERROR THEN
4279: -- raise error if not able to get the budget line
4280: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
4281: Fnd_Message.set_name('AMS', 'AMS_BUDGET_LINE_START_ERROR');
4282: Fnd_Msg_Pub.ADD;
4283: END IF;
4284:
4278: WHEN Fnd_Api.G_EXC_ERROR THEN
4279: -- raise error if not able to get the budget line
4280: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
4281: Fnd_Message.set_name('AMS', 'AMS_BUDGET_LINE_START_ERROR');
4282: Fnd_Msg_Pub.ADD;
4283: END IF;
4284:
4285: Fnd_Msg_Pub.Count_And_Get (
4286: p_encoded => Fnd_Api.G_FALSE,
4281: Fnd_Message.set_name('AMS', 'AMS_BUDGET_LINE_START_ERROR');
4282: Fnd_Msg_Pub.ADD;
4283: END IF;
4284:
4285: Fnd_Msg_Pub.Count_And_Get (
4286: p_encoded => Fnd_Api.G_FALSE,
4287: p_count => l_msg_count,
4288: p_data => l_msg_data);
4289: Handle_Err
4296: Wf_Core.context ('Ams_Approval_Pvt', 'Start_Process',
4297: l_budget_type ,l_budget_id ,l_error_msg);
4298: RAISE;
4299: WHEN OTHERS THEN
4300: IF Fnd_Msg_Pub.Check_Msg_Level ( Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
4301: THEN
4302: Fnd_Msg_Pub.Add_Exc_Msg( G_PKG_NAME,l_api_name);
4303: END IF;
4304: Fnd_Msg_Pub.Count_And_Get (
4298: RAISE;
4299: WHEN OTHERS THEN
4300: IF Fnd_Msg_Pub.Check_Msg_Level ( Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
4301: THEN
4302: Fnd_Msg_Pub.Add_Exc_Msg( G_PKG_NAME,l_api_name);
4303: END IF;
4304: Fnd_Msg_Pub.Count_And_Get (
4305: p_encoded => Fnd_Api.G_FALSE,
4306: p_count => l_msg_count,
4300: IF Fnd_Msg_Pub.Check_Msg_Level ( Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
4301: THEN
4302: Fnd_Msg_Pub.Add_Exc_Msg( G_PKG_NAME,l_api_name);
4303: END IF;
4304: Fnd_Msg_Pub.Count_And_Get (
4305: p_encoded => Fnd_Api.G_FALSE,
4306: p_count => l_msg_count,
4307: p_data => l_msg_data);
4308: Handle_Err
4380: THEN
4381: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4382: END IF;
4383: -- Debug Message
4384: IF Fnd_Msg_Pub.Check_Msg_level (Fnd_Msg_Pub.G_MSG_LVL_DEBUG_LOW) THEN
4385: Fnd_Message.Set_Name('AMS','AMS_API_DEBUG_MESSAGE');
4386: Fnd_Message.Set_Token('ROW',l_full_name||': START');
4387: Fnd_Msg_Pub.ADD;
4388: END IF;
4383: -- Debug Message
4384: IF Fnd_Msg_Pub.Check_Msg_level (Fnd_Msg_Pub.G_MSG_LVL_DEBUG_LOW) THEN
4385: Fnd_Message.Set_Name('AMS','AMS_API_DEBUG_MESSAGE');
4386: Fnd_Message.Set_Token('ROW',l_full_name||': START');
4387: Fnd_Msg_Pub.ADD;
4388: END IF;
4389: --Initialize message list if p_init_msg_list is TRUE.
4390: IF Fnd_Api.To_Boolean (p_init_msg_list) THEN
4391: Fnd_Msg_Pub.initialize;
4387: Fnd_Msg_Pub.ADD;
4388: END IF;
4389: --Initialize message list if p_init_msg_list is TRUE.
4390: IF Fnd_Api.To_Boolean (p_init_msg_list) THEN
4391: Fnd_Msg_Pub.initialize;
4392: END IF;
4393: -- Initialize API return status to sucess
4394: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
4395:
4409: EXCEPTION
4410: WHEN OTHERS THEN
4411: Fnd_Message.Set_Name('AMS','AMS_API_DEBUG_MESSAGE');
4412: Fnd_Message.Set_Token('ROW',SQLERRM);
4413: Fnd_Msg_Pub.ADD;
4414: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4415: END;
4416:
4417: --Standard check of commit
4418: IF Fnd_Api.To_Boolean ( p_commit ) THEN
4419: COMMIT WORK;
4420: END IF;
4421: -- Debug Message
4422: IF Fnd_Msg_Pub.Check_Msg_level (Fnd_Msg_Pub.G_MSG_LVL_DEBUG_LOW) THEN
4423: Fnd_Message.Set_Name('AMS','AMS_API_DEBUG_MESSAGE');
4424: Fnd_Message.Set_Token('ROW',l_full_name||': END');
4425: Fnd_Msg_Pub.ADD;
4426: END IF;
4421: -- Debug Message
4422: IF Fnd_Msg_Pub.Check_Msg_level (Fnd_Msg_Pub.G_MSG_LVL_DEBUG_LOW) THEN
4423: Fnd_Message.Set_Name('AMS','AMS_API_DEBUG_MESSAGE');
4424: Fnd_Message.Set_Token('ROW',l_full_name||': END');
4425: Fnd_Msg_Pub.ADD;
4426: END IF;
4427: --Standard call to get message count and if count=1, get the message
4428: Fnd_Msg_Pub.Count_And_Get (
4429: p_encoded => Fnd_Api.G_FALSE,
4424: Fnd_Message.Set_Token('ROW',l_full_name||': END');
4425: Fnd_Msg_Pub.ADD;
4426: END IF;
4427: --Standard call to get message count and if count=1, get the message
4428: Fnd_Msg_Pub.Count_And_Get (
4429: p_encoded => Fnd_Api.G_FALSE,
4430: p_count => x_msg_count,
4431: p_data => x_msg_data
4432: );
4434: WHEN Fnd_Api.G_EXC_ERROR THEN
4435: ROLLBACK TO Start_LineApproval_PVT;
4436: x_return_status := Fnd_Api.G_RET_STS_ERROR;
4437: -- Standard call to get message count and if count=1, get the message
4438: Fnd_Msg_Pub.Count_And_Get (
4439: p_encoded => Fnd_Api.G_FALSE,
4440: p_count => x_msg_count,
4441: p_data => x_msg_data
4442: );
4443: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
4444: ROLLBACK TO Start_LineApproval_PVT;
4445: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
4446: -- Standard call to get message count and if count=1, get the message
4447: Fnd_Msg_Pub.Count_And_Get (
4448: p_encoded => Fnd_Api.G_FALSE,
4449: p_count => x_msg_count,
4450: p_data => x_msg_data
4451: );
4451: );
4452: WHEN OTHERS THEN
4453: ROLLBACK TO Start_LineApproval_PVT;
4454: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
4455: IF Fnd_Msg_Pub.Check_Msg_Level ( Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
4456: THEN
4457: Fnd_Msg_Pub.Add_Exc_Msg( G_PKG_NAME,l_api_name);
4458: END IF;
4459: -- Standard call to get message count and if count=1, get the message
4453: ROLLBACK TO Start_LineApproval_PVT;
4454: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
4455: IF Fnd_Msg_Pub.Check_Msg_Level ( Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
4456: THEN
4457: Fnd_Msg_Pub.Add_Exc_Msg( G_PKG_NAME,l_api_name);
4458: END IF;
4459: -- Standard call to get message count and if count=1, get the message
4460: Fnd_Msg_Pub.Count_And_Get (
4461: p_encoded => Fnd_Api.G_FALSE,
4456: THEN
4457: Fnd_Msg_Pub.Add_Exc_Msg( G_PKG_NAME,l_api_name);
4458: END IF;
4459: -- Standard call to get message count and if count=1, get the message
4460: Fnd_Msg_Pub.Count_And_Get (
4461: p_encoded => Fnd_Api.G_FALSE,
4462: p_count => x_msg_count,
4463: p_data => x_msg_data
4464: );
4617: WHEN OTHERS THEN
4618: -- Commented for Bug 2485371
4619: --Fnd_Message.Set_Name('AMS','AMS_API_DEBUG_MESSAGE');
4620: --Fnd_Message.Set_Token('ROW', SQLERRM );
4621: --Fnd_Msg_Pub.ADD;
4622: RAISE Fnd_Api.G_EXC_ERROR;
4623: Fnd_Msg_Pub.Count_And_Get (
4624: p_encoded => Fnd_Api.G_FALSE,
4625: p_count => l_msg_count,
4619: --Fnd_Message.Set_Name('AMS','AMS_API_DEBUG_MESSAGE');
4620: --Fnd_Message.Set_Token('ROW', SQLERRM );
4621: --Fnd_Msg_Pub.ADD;
4622: RAISE Fnd_Api.G_EXC_ERROR;
4623: Fnd_Msg_Pub.Count_And_Get (
4624: p_encoded => Fnd_Api.G_FALSE,
4625: p_count => l_msg_count,
4626: p_data => l_msg_data);
4627: Handle_Err
4662: EXCEPTION
4663: WHEN Fnd_Api.G_EXC_ERROR THEN
4664: -- raise error if not able to get the budget line
4665: -- Commented for Bug 2485371
4666: --IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
4667: -- Fnd_Message.set_name('AMS', 'AMS_BUDGET_LINE_UPDATE_ERROR');
4668: -- Fnd_Msg_Pub.ADD;
4669: --END IF;
4670: Fnd_Msg_Pub.Count_And_Get (
4664: -- raise error if not able to get the budget line
4665: -- Commented for Bug 2485371
4666: --IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
4667: -- Fnd_Message.set_name('AMS', 'AMS_BUDGET_LINE_UPDATE_ERROR');
4668: -- Fnd_Msg_Pub.ADD;
4669: --END IF;
4670: Fnd_Msg_Pub.Count_And_Get (
4671: p_encoded => Fnd_Api.G_FALSE,
4672: p_count => l_msg_count,
4666: --IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
4667: -- Fnd_Message.set_name('AMS', 'AMS_BUDGET_LINE_UPDATE_ERROR');
4668: -- Fnd_Msg_Pub.ADD;
4669: --END IF;
4670: Fnd_Msg_Pub.Count_And_Get (
4671: p_encoded => Fnd_Api.G_FALSE,
4672: p_count => l_msg_count,
4673: p_data => l_msg_data);
4674: Handle_Err
4684: itemtype, itemkey,to_char(actid),l_error_msg);
4685: RAISE;
4686: */
4687: WHEN OTHERS THEN
4688: Fnd_Msg_Pub.Count_And_Get (
4689: p_encoded => Fnd_Api.G_FALSE,
4690: p_count => l_msg_count,
4691: p_data => l_msg_data);
4692: Handle_Err
4808: );
4809:
4810: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
4811: -- raise error
4812: Fnd_Msg_Pub.Count_And_Get(p_encoded => Fnd_Api.G_FALSE,
4813: p_count => l_msg_count,
4814: p_data => l_msg_data);
4815:
4816: Handle_Err (p_itemtype => itemtype ,
4894:
4895: IF (l_return_status = 'S') THEN
4896: l_object_approver_id := l_appr_id;
4897: ELSE
4898: FND_MSG_PUB.Count_And_Get (
4899: p_encoded => FND_API.G_FALSE,
4900: p_count => l_msg_count,
4901: p_data => l_msg_data
4902: );
5071: --
5072:
5073: EXCEPTION
5074: WHEN Fnd_Api.G_EXC_ERROR THEN
5075: Fnd_Msg_Pub.Count_And_Get (
5076: p_encoded => Fnd_Api.G_FALSE,
5077: p_count => l_msg_count,
5078: p_data => l_msg_data);
5079: Handle_Err
5085: x_error_msg => l_error_msg);
5086: resultout := 'COMPLETE:ERROR';
5087:
5088: WHEN OTHERS THEN
5089: Fnd_Msg_Pub.Count_And_Get (
5090: p_encoded => Fnd_Api.G_FALSE,
5091: p_count => l_msg_count,
5092: p_data => l_msg_data);
5093: Handle_Err
5291: --
5292:
5293: EXCEPTION
5294: WHEN Fnd_Api.G_EXC_ERROR THEN
5295: Fnd_Msg_Pub.Count_And_Get (
5296: p_encoded => Fnd_Api.G_FALSE,
5297: p_count => l_msg_count,
5298: p_data => l_msg_data);
5299: Handle_Err
5307: 'Check_Line_Further_Approval',
5308: itemtype, itemkey,TO_CHAR(actid),l_error_msg);
5309: RAISE;
5310: WHEN OTHERS THEN
5311: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
5312: Fnd_Message.Set_Name('AMS','AMS_API_DEBUG_MESSAGE');
5313: Fnd_Message.Set_Token('ROW',SQLERRM);
5314: Fnd_Msg_Pub.ADD;
5315: END IF;
5310: WHEN OTHERS THEN
5311: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
5312: Fnd_Message.Set_Name('AMS','AMS_API_DEBUG_MESSAGE');
5313: Fnd_Message.Set_Token('ROW',SQLERRM);
5314: Fnd_Msg_Pub.ADD;
5315: END IF;
5316: Fnd_Msg_Pub.Count_And_Get (
5317: p_encoded => Fnd_Api.G_FALSE,
5318: p_count => l_msg_count,
5312: Fnd_Message.Set_Name('AMS','AMS_API_DEBUG_MESSAGE');
5313: Fnd_Message.Set_Token('ROW',SQLERRM);
5314: Fnd_Msg_Pub.ADD;
5315: END IF;
5316: Fnd_Msg_Pub.Count_And_Get (
5317: p_encoded => Fnd_Api.G_FALSE,
5318: p_count => l_msg_count,
5319: p_data => l_msg_data);
5320: Handle_Err
5457: p_approved_currency => l_approved_currency,
5458: p_comment => l_comment);
5459:
5460: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
5461: Fnd_Msg_Pub.Count_And_Get (
5462: p_encoded => Fnd_Api.G_FALSE,
5463: p_count => l_msg_count,
5464: p_data => l_msg_data);
5465: Handle_Err
5476: EXCEPTION
5477: WHEN OTHERS THEN
5478: Fnd_Message.Set_Name('AMS','AMS_API_DEBUG_MESSAGE');
5479: Fnd_Message.Set_Token('ROW', SQLERRM );
5480: Fnd_Msg_Pub.ADD;
5481: RAISE Fnd_Api.G_EXC_ERROR;
5482: END;
5483:
5484: resultout := 'COMPLETE:SUCCESS';
5504: --
5505:
5506: EXCEPTION
5507: WHEN Fnd_Api.G_EXC_ERROR THEN
5508: Fnd_Msg_Pub.Count_And_Get (
5509: p_encoded => Fnd_Api.G_FALSE,
5510: p_count => l_msg_count,
5511: p_data => l_msg_data);
5512: Handle_Err
5520: 'Approve_Budget_Line',
5521: itemtype, itemkey,TO_CHAR(actid),l_error_msg);
5522: RAISE;
5523: WHEN OTHERS THEN
5524: Fnd_Msg_Pub.Count_And_Get (
5525: p_encoded => Fnd_Api.G_FALSE,
5526: p_count => l_msg_count,
5527: p_data => l_msg_data);
5528: Handle_Err
5683: p_approved_currency => l_approved_currency,
5684: p_comment => l_comment);
5685:
5686: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
5687: Fnd_Msg_Pub.Count_And_Get (
5688: p_encoded => Fnd_Api.G_FALSE,
5689: p_count => l_msg_count,
5690: p_data => l_msg_data);
5691: Handle_Err
5702: EXCEPTION
5703: WHEN OTHERS THEN
5704: Fnd_Message.Set_Name('AMS','AMS_API_DEBUG_MESSAGE');
5705: Fnd_Message.Set_Token('ROW', SQLERRM );
5706: Fnd_Msg_Pub.ADD;
5707: RAISE Fnd_Api.G_EXC_ERROR;
5708: END;
5709: -- Commented for bug 3150550
5710: -- Start of addition for forward/reassign notification
5795: --
5796:
5797: EXCEPTION
5798: WHEN Fnd_Api.G_EXC_ERROR THEN
5799: Fnd_Msg_Pub.Count_And_Get (
5800: p_encoded => Fnd_Api.G_FALSE,
5801: p_count => l_msg_count,
5802: p_data => l_msg_data);
5803: Handle_Err
5811: 'Reject_Budget_Line',
5812: itemtype, itemkey,TO_CHAR(actid),l_error_msg);
5813: RAISE;
5814: WHEN OTHERS THEN
5815: Fnd_Msg_Pub.Count_And_Get (
5816: p_encoded => Fnd_Api.G_FALSE,
5817: p_count => l_msg_count,
5818: p_data => l_msg_data);
5819: Handle_Err
5933:
5934: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
5935: Fnd_Message.Set_Name('AMS','AMS_API_DEBUG_MESSAGE');
5936: --Fnd_Message.Set_Token('ROW', SQLERRM );
5937: Fnd_Msg_Pub.ADD;
5938:
5939: Fnd_Msg_Pub.Count_And_Get (
5940: p_encoded => Fnd_Api.G_FALSE,
5941: p_count => l_msg_count,
5935: Fnd_Message.Set_Name('AMS','AMS_API_DEBUG_MESSAGE');
5936: --Fnd_Message.Set_Token('ROW', SQLERRM );
5937: Fnd_Msg_Pub.ADD;
5938:
5939: Fnd_Msg_Pub.Count_And_Get (
5940: p_encoded => Fnd_Api.G_FALSE,
5941: p_count => l_msg_count,
5942: p_data => l_msg_data);
5943: Handle_Err
5955: EXCEPTION
5956: WHEN OTHERS THEN
5957: Fnd_Message.Set_Name('AMS','AMS_API_DEBUG_MESSAGE');
5958: Fnd_Message.Set_Token('ROW', SQLERRM );
5959: Fnd_Msg_Pub.ADD;
5960: RAISE Fnd_Api.G_EXC_ERROR;
5961: END;
5962:
5963: -- 11.5.9 addition
6010: --
6011:
6012: EXCEPTION
6013: WHEN Fnd_Api.G_EXC_ERROR THEN
6014: Fnd_Msg_Pub.Count_And_Get (
6015: p_encoded => Fnd_Api.G_FALSE,
6016: p_count => l_msg_count,
6017: p_data => l_msg_data);
6018: Handle_Err
6026: 'Revert_Budget_Line',
6027: itemtype, itemkey,TO_CHAR(actid),l_error_msg);
6028: RAISE;
6029: WHEN OTHERS THEN
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
6115: --
6116:
6117: EXCEPTION
6118: WHEN OTHERS THEN
6119: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
6120: Fnd_Message.Set_Name('AMS','AMS_API_DEBUG_MESSAGE');
6121: Fnd_Message.Set_Token('ROW',SQLERRM);
6122: Fnd_Msg_Pub.ADD;
6123: END IF;
6118: WHEN OTHERS THEN
6119: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
6120: Fnd_Message.Set_Name('AMS','AMS_API_DEBUG_MESSAGE');
6121: Fnd_Message.Set_Token('ROW',SQLERRM);
6122: Fnd_Msg_Pub.ADD;
6123: END IF;
6124: Fnd_Msg_Pub.Count_And_Get (
6125: p_encoded => Fnd_Api.G_FALSE,
6126: p_count => l_msg_count,
6120: Fnd_Message.Set_Name('AMS','AMS_API_DEBUG_MESSAGE');
6121: Fnd_Message.Set_Token('ROW',SQLERRM);
6122: Fnd_Msg_Pub.ADD;
6123: END IF;
6124: Fnd_Msg_Pub.Count_And_Get (
6125: p_encoded => Fnd_Api.G_FALSE,
6126: p_count => l_msg_count,
6127: p_data => l_msg_data);
6128: Handle_Err
6263: --
6264:
6265: EXCEPTION
6266: WHEN OTHERS THEN
6267: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
6268: Fnd_Message.Set_Name('AMS','AMS_API_DEBUG_MESSAGE');
6269: Fnd_Message.Set_Token('ROW',SQLERRM);
6270: Fnd_Msg_Pub.ADD;
6271: END IF;
6266: WHEN OTHERS THEN
6267: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
6268: Fnd_Message.Set_Name('AMS','AMS_API_DEBUG_MESSAGE');
6269: Fnd_Message.Set_Token('ROW',SQLERRM);
6270: Fnd_Msg_Pub.ADD;
6271: END IF;
6272: Fnd_Msg_Pub.Count_And_Get (
6273: p_encoded => Fnd_Api.G_FALSE,
6274: p_count => l_msg_count,
6268: Fnd_Message.Set_Name('AMS','AMS_API_DEBUG_MESSAGE');
6269: Fnd_Message.Set_Token('ROW',SQLERRM);
6270: Fnd_Msg_Pub.ADD;
6271: END IF;
6272: Fnd_Msg_Pub.Count_And_Get (
6273: p_encoded => Fnd_Api.G_FALSE,
6274: p_count => l_msg_count,
6275: p_data => l_msg_data);
6276: Handle_Err
6393: --
6394:
6395: EXCEPTION
6396: WHEN OTHERS THEN
6397: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
6398: Fnd_Message.Set_Name('AMS','AMS_API_DEBUG_MESSAGE');
6399: Fnd_Message.Set_Token('ROW',SQLERRM);
6400: Fnd_Msg_Pub.ADD;
6401: END IF;
6396: WHEN OTHERS THEN
6397: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
6398: Fnd_Message.Set_Name('AMS','AMS_API_DEBUG_MESSAGE');
6399: Fnd_Message.Set_Token('ROW',SQLERRM);
6400: Fnd_Msg_Pub.ADD;
6401: END IF;
6402: Fnd_Msg_Pub.Count_And_Get (
6403: p_encoded => Fnd_Api.G_FALSE,
6404: p_count => l_msg_count,
6398: Fnd_Message.Set_Name('AMS','AMS_API_DEBUG_MESSAGE');
6399: Fnd_Message.Set_Token('ROW',SQLERRM);
6400: Fnd_Msg_Pub.ADD;
6401: END IF;
6402: Fnd_Msg_Pub.Count_And_Get (
6403: p_encoded => Fnd_Api.G_FALSE,
6404: p_count => l_msg_count,
6405: p_data => l_msg_data);
6406: Handle_Err
6544: --
6545:
6546: EXCEPTION
6547: WHEN OTHERS THEN
6548: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
6549: Fnd_Message.Set_Name('AMS','AMS_API_DEBUG_MESSAGE');
6550: Fnd_Message.Set_Token('ROW',SQLERRM);
6551: Fnd_Msg_Pub.ADD;
6552: END IF;
6547: WHEN OTHERS THEN
6548: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
6549: Fnd_Message.Set_Name('AMS','AMS_API_DEBUG_MESSAGE');
6550: Fnd_Message.Set_Token('ROW',SQLERRM);
6551: Fnd_Msg_Pub.ADD;
6552: END IF;
6553: Fnd_Msg_Pub.Count_And_Get (
6554: p_encoded => Fnd_Api.G_FALSE,
6555: p_count => l_msg_count,
6549: Fnd_Message.Set_Name('AMS','AMS_API_DEBUG_MESSAGE');
6550: Fnd_Message.Set_Token('ROW',SQLERRM);
6551: Fnd_Msg_Pub.ADD;
6552: END IF;
6553: Fnd_Msg_Pub.Count_And_Get (
6554: p_encoded => Fnd_Api.G_FALSE,
6555: p_count => l_msg_count,
6556: p_data => l_msg_data);
6557: Handle_Err
6647: --
6648:
6649: EXCEPTION
6650: WHEN OTHERS THEN
6651: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
6652: Fnd_Message.Set_Name('AMS','AMS_API_DEBUG_MESSAGE');
6653: Fnd_Message.Set_Token('ROW',SQLERRM);
6654: Fnd_Msg_Pub.ADD;
6655: END IF;
6650: WHEN OTHERS THEN
6651: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
6652: Fnd_Message.Set_Name('AMS','AMS_API_DEBUG_MESSAGE');
6653: Fnd_Message.Set_Token('ROW',SQLERRM);
6654: Fnd_Msg_Pub.ADD;
6655: END IF;
6656: Fnd_Msg_Pub.Count_And_Get (
6657: p_encoded => Fnd_Api.G_FALSE,
6658: p_count => l_msg_count,
6652: Fnd_Message.Set_Name('AMS','AMS_API_DEBUG_MESSAGE');
6653: Fnd_Message.Set_Token('ROW',SQLERRM);
6654: Fnd_Msg_Pub.ADD;
6655: END IF;
6656: Fnd_Msg_Pub.Count_And_Get (
6657: p_encoded => Fnd_Api.G_FALSE,
6658: p_count => l_msg_count,
6659: p_data => l_msg_data);
6660: Handle_Err
6876: END IF;
6877: EXCEPTION
6878: WHEN Fnd_Api.G_EXC_ERROR THEN
6879: -- wf_engine.threshold := l_save_threshold ;
6880: Fnd_Msg_Pub.Count_And_Get (
6881: p_encoded => Fnd_Api.G_FALSE,
6882: p_count => l_msg_count,
6883: p_data => l_msg_data);
6884: Handle_Err
6910: l_act_budget_id NUMBER;
6911:
6912:
6913: BEGIN
6914: Fnd_Msg_Pub.initialize();
6915:
6916: --
6917: -- RUN mode
6918: --
6992: END IF;
6993: --
6994: EXCEPTION
6995: WHEN Fnd_Api.G_EXC_ERROR THEN
6996: Fnd_Msg_Pub.Count_And_Get (
6997: p_encoded => Fnd_Api.G_FALSE,
6998: p_count => l_msg_count,
6999: p_data => l_msg_data
7000: );
7011: itemtype, itemkey,TO_CHAR(actid),l_error_msg);
7012: RAISE;
7013: --resultout := 'COMPLETE:ERROR';
7014: WHEN OTHERS THEN
7015: Fnd_Msg_Pub.Count_And_Get (
7016: p_encoded => Fnd_Api.G_FALSE,
7017: p_count => l_msg_count,
7018: p_data => l_msg_data);
7019: Handle_Err
7053: l_approver NUMBER;
7054:
7055:
7056: BEGIN
7057: Fnd_Msg_Pub.initialize();
7058: --
7059: -- RUN mode
7060: --
7061: IF (funcmode = 'RUN') THEN
7132: --
7133: -- RUN mode
7134: --
7135: IF (funcmode = 'RUN') THEN
7136: Fnd_Msg_Pub.initialize();
7137:
7138: -- Get the Approver Id
7139: l_approver_id := Wf_Engine.GetItemAttrNumber( itemtype => itemtype,
7140: itemkey => itemkey,
7408:
7409: END IF;
7410: EXCEPTION
7411: WHEN Fnd_Api.G_EXC_ERROR THEN
7412: Fnd_Msg_Pub.Count_And_Get (
7413: p_encoded => Fnd_Api.G_FALSE,
7414: p_count => l_msg_count,
7415: p_data => l_msg_data
7416: );
7448: --l_act_budget_id NUMBER;
7449:
7450:
7451: BEGIN
7452: Fnd_Msg_Pub.initialize();
7453:
7454: --
7455: -- RUN mode
7456: --
7529: END IF;
7530: --
7531: EXCEPTION
7532: WHEN Fnd_Api.G_EXC_ERROR THEN
7533: Fnd_Msg_Pub.Count_And_Get (
7534: p_encoded => Fnd_Api.G_FALSE,
7535: p_count => l_msg_count,
7536: p_data => l_msg_data
7537: );
7548: itemtype, itemkey,TO_CHAR(actid),l_error_msg);
7549: RAISE;
7550: --resultout := 'COMPLETE:ERROR';
7551: WHEN OTHERS THEN
7552: Fnd_Msg_Pub.Count_And_Get (
7553: p_encoded => Fnd_Api.G_FALSE,
7554: p_count => l_msg_count,
7555: p_data => l_msg_data);
7556: Handle_Err
7580: SELECT custom_setup_id
7581: FROM ozf_offers
7582: WHERE qp_list_header_id = id;
7583: BEGIN
7584: Fnd_Msg_Pub.initialize();
7585: --
7586: -- RUN mode
7587: --
7588: IF (funcmode = 'RUN') THEN