[Home] [Help]
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 );
47: l_final_data := l_final_data ||l_msg_index||': '
48: ||l_msg_data||Fnd_Global.local_chr(10) ;
103: FROM ams_user_statuses_vl
104: WHERE user_status_id = l_user_stat_id ;
105:
106: BEGIN
107: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
108: OPEN c_sys_stat(p_next_stat_id) ;
109: FETCH c_sys_stat INTO p_next_stat_code ;
110: CLOSE c_sys_stat ;
111: /*AMS_Utility_PVT.create_log(x_return_status => l_return_stat,
233: FROM ams_jtf_rs_emp_v
234: WHERE resource_id = p_user ;
235:
236: BEGIN
237: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
238: OPEN c_resource ;
239: FETCH c_resource INTO l_user, l_resource_name ;
240: IF c_resource%NOTFOUND THEN
241: CLOSE c_resource ;
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 ;
249:
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:
259: -- Note API to Update Approval Notes
258:
259: -- Note API to Update Approval Notes
260: /*AMS_ObjectAttribute_PVT.modify_object_attribute(
261: p_api_version => 1.0,
262: p_init_msg_list => FND_API.g_false,
263: p_commit => FND_API.g_false,
264: p_validation_level => FND_API.g_valid_level_full,
265: x_return_status => x_return_status,
266: x_msg_count => x_msg_count,
259: -- Note API to Update Approval Notes
260: /*AMS_ObjectAttribute_PVT.modify_object_attribute(
261: p_api_version => 1.0,
262: p_init_msg_list => FND_API.g_false,
263: p_commit => FND_API.g_false,
264: p_validation_level => FND_API.g_valid_level_full,
265: x_return_status => x_return_status,
266: x_msg_count => x_msg_count,
267: x_msg_data => x_msg_data,
260: /*AMS_ObjectAttribute_PVT.modify_object_attribute(
261: p_api_version => 1.0,
262: p_init_msg_list => FND_API.g_false,
263: p_commit => FND_API.g_false,
264: p_validation_level => FND_API.g_valid_level_full,
265: x_return_status => x_return_status,
266: x_msg_count => x_msg_count,
267: x_msg_data => x_msg_data,
268: p_object_type => p_activity_type,
269: p_object_id => p_activity_id ,
270: p_attr => 'NOTE',
271: p_attr_defined_flag => 'Y'
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;
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: */
281:
294: x_jtf_note_id => l_id ,
295: p_note_type => 'AMS_APPROVAL' ,
296: p_last_update_date => SYSDATE ,
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;
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,
306: p_arc_log_used_by => 'AMS Markeing Approval',
340: FROM ams_jtf_rs_emp_v
341: WHERE resource_id = p_user ;
342:
343: BEGIN
344: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
345: OPEN c_resource ;
346: FETCH c_resource INTO l_user ;
347: IF c_resource%NOTFOUND THEN
348: CLOSE c_resource ;
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 ;
356: -- Note API to Update Approval Notes
355: CLOSE c_resource ;
356: -- Note API to Update Approval Notes
357: Ams_Objectattribute_Pvt.modify_object_attribute(
358: p_api_version => 1.0,
359: p_init_msg_list => Fnd_Api.g_false,
360: p_commit => Fnd_Api.g_false,
361: p_validation_level => Fnd_Api.g_valid_level_full,
362: x_return_status => x_return_status,
363: x_msg_count => x_msg_count,
356: -- Note API to Update Approval Notes
357: Ams_Objectattribute_Pvt.modify_object_attribute(
358: p_api_version => 1.0,
359: p_init_msg_list => Fnd_Api.g_false,
360: p_commit => Fnd_Api.g_false,
361: p_validation_level => Fnd_Api.g_valid_level_full,
362: x_return_status => x_return_status,
363: x_msg_count => x_msg_count,
364: x_msg_data => x_msg_data,
357: Ams_Objectattribute_Pvt.modify_object_attribute(
358: p_api_version => 1.0,
359: p_init_msg_list => Fnd_Api.g_false,
360: p_commit => Fnd_Api.g_false,
361: p_validation_level => Fnd_Api.g_valid_level_full,
362: x_return_status => x_return_status,
363: x_msg_count => x_msg_count,
364: x_msg_data => x_msg_data,
365: p_object_type => p_activity_type,
366: p_object_id => p_activity_id ,
367: p_attr => 'NOTE',
368: p_attr_defined_flag => 'Y'
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;
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:
378: Jtf_Notes_Pub.Create_note
390: x_jtf_note_id => l_id ,
391: p_note_type => 'AMS_FREQ' ,
392: p_last_update_date => SYSDATE ,
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;
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,
402: p_arc_log_used_by => 'AMS Markeing Approval',
436: p_arc_log_used_by => 'AMS Markeing Approval',
437: p_log_used_by_id => 0,
438: p_msg_data => 'Get_User_Name: p_user_id' || p_user_id); */
439:
440: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
441: OPEN c_resource ;
442: FETCH c_resource INTO x_full_name ;
443: IF c_resource%NOTFOUND THEN
444: CLOSE c_resource ;
441: OPEN c_resource ;
442: FETCH c_resource INTO x_full_name ;
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;
464: x_resource_disp_name OUT NOCOPY VARCHAR2,
465: x_return_status OUT NOCOPY VARCHAR2)
466:
467: IS
468: l_return_status VARCHAR2(1) := Fnd_Api.G_RET_STS_SUCCESS;
469: l_email VARCHAR2(360);
470: l_notif_pref VARCHAR2(30);
471: l_language VARCHAR2(30);
472: l_territory VARCHAR2(30);
489:
490: OPEN c_res_details(p_responder);
491: FETCH c_res_details INTO x_resource_id;
492: IF c_res_details%NOTFOUND THEN
493: l_return_status := Fnd_Api.G_RET_STS_ERROR;
494: END IF;
495: CLOSE c_res_details;
496:
497: x_return_status := l_return_status;
505: l_forward_nid NUMBER;
506: l_responder VARCHAR2(320);
507: l_approver_id NUMBER;
508: l_appr_display_name VARCHAR2(360);
509: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
510:
511: BEGIN
512:
513: l_forward_nid := Wf_Engine.GetItemAttrNumber(
523: x_resource_id => l_approver_id,
524: x_resource_disp_name => l_appr_display_name,
525: x_return_status => l_return_status);
526:
527: IF l_return_status = Fnd_Api.G_RET_STS_SUCCESS THEN
528:
529: -- Set the WF Attributes
530: wf_engine.SetItemAttrText( itemtype => itemtype,
531: itemkey => itemkey,
591: l_person_id NUMBER;
592: l_user_id NUMBER;
593: l_category VARCHAR2(30);
594: BEGIN
595: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
596: OPEN c_resource ;
597: FETCH c_resource INTO l_person_id , l_user_id, l_category;
598: IF c_resource%NOTFOUND THEN
599: CLOSE c_resource ;
596: OPEN c_resource ;
597: FETCH c_resource INTO l_person_id , l_user_id, l_category;
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;
610: p_orig_system_id => l_user_id ,
611: p_name => x_role_name,
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;
622: p_orig_system_id => l_person_id ,
623: p_name => x_role_name,
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;
655: l_msg_data VARCHAR2(4000);
656: l_error_msg VARCHAR2(4000);
657:
658: BEGIN
659: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
660: IF p_activity_type = 'CAMP' THEN
661:
662: OPEN l_obj_details FOR
663: SELECT A.campaign_name,
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;
871:
878: x_return_status,
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;
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;
890: x_object_details.priority_desc := l_meaning;
1015: BEGIN
1016: OPEN c_check_app;
1017: FETCH c_check_app INTO x_next_seq;
1018: IF c_check_app%NOTFOUND THEN
1019: x_required_flag := Fnd_Api.G_FALSE;
1020: ELSE
1021: x_required_flag := Fnd_Api.G_TRUE;
1022: END IF;
1023: CLOSE c_check_app;
1017: FETCH c_check_app INTO x_next_seq;
1018: IF c_check_app%NOTFOUND THEN
1019: x_required_flag := Fnd_Api.G_FALSE;
1020: ELSE
1021: x_required_flag := Fnd_Api.G_TRUE;
1022: END IF;
1023: CLOSE c_check_app;
1024: EXCEPTION
1025: WHEN OTHERS THEN
1129:
1130: l_count NUMBER;
1131:
1132: BEGIN
1133: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1134: OPEN c_approver_info;
1135: FETCH c_approver_info INTO x_approver_id,
1136: x_approver_type,
1137: x_object_approver_id,
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:
1153: IF x_approver_type = 'ROLE' 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 ;
1166: END IF;
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;
1179: OPEN c_role_info;
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;
1189: END IF;
1235: l_msg_data VARCHAR2(4000);
1236: l_error_msg VARCHAR2(4000);
1237:
1238: l_amount NUMBER;
1239: l_business_unit_id NUMBER := Fnd_Api.G_MISS_NUM;
1240: l_org_id NUMBER := Fnd_Api.G_MISS_NUM;
1241: l_setup_type_id NUMBER := Fnd_Api.G_MISS_NUM;
1242: l_object_type VARCHAR2(30) := Fnd_Api.G_MISS_CHAR;
1243: l_priority VARCHAR2(30) := Fnd_Api.G_MISS_CHAR;
1236: l_error_msg VARCHAR2(4000);
1237:
1238: l_amount NUMBER;
1239: l_business_unit_id NUMBER := Fnd_Api.G_MISS_NUM;
1240: l_org_id NUMBER := Fnd_Api.G_MISS_NUM;
1241: l_setup_type_id NUMBER := Fnd_Api.G_MISS_NUM;
1242: l_object_type VARCHAR2(30) := Fnd_Api.G_MISS_CHAR;
1243: l_priority VARCHAR2(30) := Fnd_Api.G_MISS_CHAR;
1244: l_country_code VARCHAR2(30) := Fnd_Api.G_MISS_CHAR;
1237:
1238: l_amount NUMBER;
1239: l_business_unit_id NUMBER := Fnd_Api.G_MISS_NUM;
1240: l_org_id NUMBER := Fnd_Api.G_MISS_NUM;
1241: l_setup_type_id NUMBER := Fnd_Api.G_MISS_NUM;
1242: l_object_type VARCHAR2(30) := Fnd_Api.G_MISS_CHAR;
1243: l_priority VARCHAR2(30) := Fnd_Api.G_MISS_CHAR;
1244: l_country_code VARCHAR2(30) := Fnd_Api.G_MISS_CHAR;
1245: l_approver_id NUMBER;
1238: l_amount NUMBER;
1239: l_business_unit_id NUMBER := Fnd_Api.G_MISS_NUM;
1240: l_org_id NUMBER := Fnd_Api.G_MISS_NUM;
1241: l_setup_type_id NUMBER := Fnd_Api.G_MISS_NUM;
1242: l_object_type VARCHAR2(30) := Fnd_Api.G_MISS_CHAR;
1243: l_priority VARCHAR2(30) := Fnd_Api.G_MISS_CHAR;
1244: l_country_code VARCHAR2(30) := Fnd_Api.G_MISS_CHAR;
1245: l_approver_id NUMBER;
1246: l_object_details ObjRecTyp;
1239: l_business_unit_id NUMBER := Fnd_Api.G_MISS_NUM;
1240: l_org_id NUMBER := Fnd_Api.G_MISS_NUM;
1241: l_setup_type_id NUMBER := Fnd_Api.G_MISS_NUM;
1242: l_object_type VARCHAR2(30) := Fnd_Api.G_MISS_CHAR;
1243: l_priority VARCHAR2(30) := Fnd_Api.G_MISS_CHAR;
1244: l_country_code VARCHAR2(30) := Fnd_Api.G_MISS_CHAR;
1245: l_approver_id NUMBER;
1246: l_object_details ObjRecTyp;
1247: l_activity_type VARCHAR2(30);
1240: l_org_id NUMBER := Fnd_Api.G_MISS_NUM;
1241: l_setup_type_id NUMBER := Fnd_Api.G_MISS_NUM;
1242: l_object_type VARCHAR2(30) := Fnd_Api.G_MISS_CHAR;
1243: l_priority VARCHAR2(30) := Fnd_Api.G_MISS_CHAR;
1244: l_country_code VARCHAR2(30) := Fnd_Api.G_MISS_CHAR;
1245: l_approver_id NUMBER;
1246: l_object_details ObjRecTyp;
1247: l_activity_type VARCHAR2(30);
1248: l_activity_id NUMBER;
1354: ACT_BUDGET_USED_BY_ID
1355: FROM ozf_act_budgets
1356: WHERE ACTIVITY_BUDGET_ID = p_act_budget_id;
1357: BEGIN
1358: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1359:
1360:
1361: Get_Activity_Details
1362: ( p_activity_type => p_activity_type,
1363: p_activity_id => p_activity_id,
1364: x_object_details => x_object_details,
1365: x_return_status => x_return_status);
1366:
1367: IF x_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
1368: RETURN;
1369: END IF;
1370:
1371: l_business_unit_id := NVL(x_object_details.business_unit_id,l_business_unit_id);
1376: l_country_code := NVL(x_object_details.country_code,l_country_code);
1377: l_curr_code := nvl(x_object_details.currency, 'USD');
1378:
1379:
1380: IF p_act_budget_id = Fnd_Api.G_MISS_NUM OR
1381: p_act_budget_id IS NULL THEN -- Important for JAVA call
1382: -- This amount is in the objects currency
1383: l_amount := NVL(x_object_details.total_header_amount, 0);
1384: ELSE
1403:
1404: l_priority := NVL(l_object_details.priority,l_priority);
1405: l_obj_curr_code := nvl(l_object_details.currency,'USD');
1406:
1407: IF x_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
1408: RETURN;
1409: END IF;
1410: END IF;
1411:
1422: p_from_amount => l_amount,
1423: x_to_amount => l_budget_amount,
1424: x_return_status => x_return_status );
1425:
1426: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1427: return;
1428: END IF;
1429:
1430: OPEN c_approver_detail_id(l_budget_amount);
1458: p_from_amount => l_budget_amount,
1459: x_to_amount => l_appr_amount,
1460: x_return_status => l_return_status );
1461:
1462: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
1463:
1464: -- Added following condition to account for upper limit
1465: -- being null in which case it will be initialized as
1466: -- zero. reopned 3655122 fix
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 ;
1499: END IF;
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 ;
1569: END IF;
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;
1583: END Get_Approval_Details;
1671: /* Delete any previous history rows for this object and approval type Bug 2761026*/
1672:
1673: AMS_Appr_Hist_PVT.Delete_Appr_Hist(
1674: p_api_version_number => 1.0,
1675: p_init_msg_list => FND_API.G_FALSE,
1676: p_commit => FND_API.G_FALSE,
1677: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1678: x_return_status => l_return_status,
1679: x_msg_count => l_msg_count,
1672:
1673: AMS_Appr_Hist_PVT.Delete_Appr_Hist(
1674: p_api_version_number => 1.0,
1675: p_init_msg_list => FND_API.G_FALSE,
1676: p_commit => FND_API.G_FALSE,
1677: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1678: x_return_status => l_return_status,
1679: x_msg_count => l_msg_count,
1680: x_msg_data => l_msg_data,
1673: AMS_Appr_Hist_PVT.Delete_Appr_Hist(
1674: p_api_version_number => 1.0,
1675: p_init_msg_list => FND_API.G_FALSE,
1676: p_commit => FND_API.G_FALSE,
1677: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1678: x_return_status => l_return_status,
1679: x_msg_count => l_msg_count,
1680: x_msg_data => l_msg_data,
1681: p_object_id => p_activity_id,
1684: p_action_code => null,
1685: p_object_version_num => null,
1686: p_approval_type => p_approval_type);
1687:
1688: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
1689: RAISE Fnd_Api.G_EXC_ERROR;
1690: END IF;
1691:
1692: Ams_Utility_Pvt.debug_message('START :Item TYPE : '||itemtype
1685: p_object_version_num => null,
1686: p_approval_type => p_approval_type);
1687:
1688: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
1689: RAISE Fnd_Api.G_EXC_ERROR;
1690: END IF;
1691:
1692: Ams_Utility_Pvt.debug_message('START :Item TYPE : '||itemtype
1693: ||' Item KEY : '||itemkey);
1796: itemkey => itemkey,
1797: aname => 'AMS_REQUESTER_ID',
1798: avalue => p_requester_userid );
1799:
1800: l_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1801:
1802: -- check for description of activity For ex. CAMP Campaign
1803: Ams_Utility_Pvt.get_lookup_meaning( 'AMS_SYS_ARC_QUALIFIER',
1804: p_activity_type,
1804: p_activity_type,
1805: l_return_status,
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;
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
1815: Wf_Engine.SetItemAttrText(itemtype => itemtype ,
1827: x_role_name => l_requester_role,
1828: x_role_display_name => l_display_name,
1829: x_return_status => l_return_status);
1830:
1831: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
1832: RAISE Fnd_Api.G_EXC_ERROR;
1833: END IF;
1834:
1835:
1828: x_role_display_name => l_display_name,
1829: x_return_status => l_return_status);
1830:
1831: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
1832: RAISE Fnd_Api.G_EXC_ERROR;
1833: END IF;
1834:
1835:
1836: Wf_Engine.SetItemAttrText(itemtype => itemtype,
1866: l_appr_hist_rec.approver_type := 'USER'; -- User always submits
1867: --
1868: AMS_Appr_Hist_PVT.Create_Appr_Hist(
1869: p_api_version_number => 1.0,
1870: p_init_msg_list => FND_API.G_FALSE,
1871: p_commit => FND_API.G_FALSE,
1872: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1873: x_return_status => l_return_status,
1874: x_msg_count => l_msg_count,
1867: --
1868: AMS_Appr_Hist_PVT.Create_Appr_Hist(
1869: p_api_version_number => 1.0,
1870: p_init_msg_list => FND_API.G_FALSE,
1871: p_commit => FND_API.G_FALSE,
1872: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1873: x_return_status => l_return_status,
1874: x_msg_count => l_msg_count,
1875: x_msg_data => l_msg_data,
1868: AMS_Appr_Hist_PVT.Create_Appr_Hist(
1869: p_api_version_number => 1.0,
1870: p_init_msg_list => FND_API.G_FALSE,
1871: p_commit => FND_API.G_FALSE,
1872: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1873: x_return_status => l_return_status,
1874: x_msg_count => l_msg_count,
1875: x_msg_data => l_msg_data,
1876: p_appr_hist_rec => l_appr_hist_rec
1875: x_msg_data => l_msg_data,
1876: p_appr_hist_rec => l_appr_hist_rec
1877: );
1878:
1879: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
1880: RAISE Fnd_Api.G_EXC_ERROR;
1881: END IF;
1882:
1883: -- wf_engine.threshold := l_save_threshold ;
1876: p_appr_hist_rec => l_appr_hist_rec
1877: );
1878:
1879: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
1880: RAISE Fnd_Api.G_EXC_ERROR;
1881: END IF;
1882:
1883: -- wf_engine.threshold := l_save_threshold ;
1884:
1882:
1883: -- wf_engine.threshold := l_save_threshold ;
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,
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
1893: (p_itemtype => itemtype ,
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
1909: (p_itemtype => itemtype ,
1988: x_approver_seq => l_approver_seq,
1989: x_return_status => l_return_status
1990: );
1991:
1992: IF l_return_status = Fnd_Api.G_RET_STS_SUCCESS THEN
1993:
1994: IF l_activity_type IN ('CAMP','CSCH') THEN
1995: IF l_activity_type = 'CAMP' THEN
1996: l_func_name := 'AMS_WB_CAMP_DETL';
2091: ( p_user_id => l_object_details.owner_id,
2092: x_full_name => l_full_name,
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,
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:
2102: Handle_Err
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: );
2128:
2137:
2138: /*
2139: wf_core.context('Ams_Approval_Pvt','Set_Activity_Details',
2140: itemtype,itemkey,actid,l_error_msg); */
2141: -- RAISE FND_API.G_EXC_ERROR;
2142: resultout := 'COMPLETE:ERROR';
2143: RETURN;
2144: END IF;
2145: END IF;
2161: END IF;
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
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: );
2171: Handle_Err
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: );
2189: Handle_Err
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: );
2279: Handle_Err
2330: p_activity_type => p_activity_type,
2331: p_act_budget_id => null,
2332: x_amount => l_amount);
2333: IF ( NVL(l_amount,0) >= NVL(p_activity_amount,0) * l_percent ) THEN
2334: x_approved_flag := Fnd_Api.G_TRUE;
2335: ELSE
2336: x_approved_flag := Fnd_Api.G_FALSE ;
2337: END IF;
2338: END Get_Approval_Rules ;
2332: x_amount => l_amount);
2333: IF ( NVL(l_amount,0) >= NVL(p_activity_amount,0) * l_percent ) THEN
2334: x_approved_flag := Fnd_Api.G_TRUE;
2335: ELSE
2336: x_approved_flag := Fnd_Api.G_FALSE ;
2337: END IF;
2338: END Get_Approval_Rules ;
2339: /*============================================================================*/
2340: PROCEDURE local_dummy IS
2395: p_activity_id => l_activity_id,
2396: p_activity_amount => l_activity_amount,
2397: x_approved_flag => l_approved_flag );
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,
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: );
2407: Handle_Err
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: );
2443: Handle_Err
2589: x_notification_type => l_notification_type,
2590: x_notification_timeout => l_notification_type,
2591: x_return_status => l_return_status);
2592:
2593: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
2594: -- Bug 2745031
2595: RAISE Fnd_Api.G_EXC_ERROR;
2596: END IF;
2597:
2591: x_return_status => l_return_status);
2592:
2593: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
2594: -- Bug 2745031
2595: RAISE Fnd_Api.G_EXC_ERROR;
2596: END IF;
2597:
2598: -- Bug 2729108 Fix
2599: IF l_current_seq = 1 OR
2619: l_appr_hist_rec.approver_id := l_obj_appr_id;
2620:
2621: AMS_Appr_Hist_PVT.Create_Appr_Hist(
2622: p_api_version_number => 1.0,
2623: p_init_msg_list => FND_API.G_FALSE,
2624: p_commit => FND_API.G_FALSE,
2625: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2626: x_return_status => l_return_status,
2627: x_msg_count => l_msg_count,
2620:
2621: AMS_Appr_Hist_PVT.Create_Appr_Hist(
2622: p_api_version_number => 1.0,
2623: p_init_msg_list => FND_API.G_FALSE,
2624: p_commit => FND_API.G_FALSE,
2625: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2626: x_return_status => l_return_status,
2627: x_msg_count => l_msg_count,
2628: x_msg_data => l_msg_data,
2621: AMS_Appr_Hist_PVT.Create_Appr_Hist(
2622: p_api_version_number => 1.0,
2623: p_init_msg_list => FND_API.G_FALSE,
2624: p_commit => FND_API.G_FALSE,
2625: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2626: x_return_status => l_return_status,
2627: x_msg_count => l_msg_count,
2628: x_msg_data => l_msg_data,
2629: p_appr_hist_rec => l_appr_hist_rec
2628: x_msg_data => l_msg_data,
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
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: );
2638: Handle_Err
2649: END LOOP;
2650: CLOSE c_approver;
2651: END IF;
2652:
2653: IF l_return_status = Fnd_Api.G_RET_STS_SUCCESS THEN
2654: IF (l_approver_type = 'FUNCTION') THEN -- was l_role_name Bug 2346128
2655: OPEN c_API_Name(l_object_approver_id);
2656: FETCH c_API_Name INTO l_pkg_name, l_proc_name;
2657: IF (c_Api_Name%FOUND) THEN
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: );
2669: Handle_Err
2684: x_role_name => l_approver,
2685: x_role_display_name => l_approver_display_name,
2686: x_return_status => l_return_status);
2687:
2688: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
2689: RAISE Fnd_Api.G_EXC_ERROR;
2690: END IF;
2691:
2692: l_prev_approver := Wf_Engine.GetItemAttrText(
2685: x_role_display_name => l_approver_display_name,
2686: x_return_status => l_return_status);
2687:
2688: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
2689: RAISE Fnd_Api.G_EXC_ERROR;
2690: END IF;
2691:
2692: l_prev_approver := Wf_Engine.GetItemAttrText(
2693: itemtype => itemtype,
2756: l_appr_hist_rec.approver_id := l_object_approver_id;
2757:
2758: AMS_Appr_Hist_PVT.Update_Appr_Hist(
2759: p_api_version_number => 1.0,
2760: p_init_msg_list => FND_API.G_FALSE,
2761: p_commit => FND_API.G_FALSE,
2762: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2763: x_return_status => l_return_status,
2764: x_msg_count => l_msg_count,
2757:
2758: AMS_Appr_Hist_PVT.Update_Appr_Hist(
2759: p_api_version_number => 1.0,
2760: p_init_msg_list => FND_API.G_FALSE,
2761: p_commit => FND_API.G_FALSE,
2762: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2763: x_return_status => l_return_status,
2764: x_msg_count => l_msg_count,
2765: x_msg_data => l_msg_data,
2758: AMS_Appr_Hist_PVT.Update_Appr_Hist(
2759: p_api_version_number => 1.0,
2760: p_init_msg_list => FND_API.G_FALSE,
2761: p_commit => FND_API.G_FALSE,
2762: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2763: x_return_status => l_return_status,
2764: x_msg_count => l_msg_count,
2765: x_msg_data => l_msg_data,
2766: p_appr_hist_rec => l_appr_hist_rec
2766: p_appr_hist_rec => l_appr_hist_rec
2767: );
2768:
2769:
2770: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
2771: RAISE Fnd_Api.G_EXC_ERROR;
2772: END IF;
2773:
2774: resultout := 'COMPLETE:SUCCESS';
2767: );
2768:
2769:
2770: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
2771: RAISE Fnd_Api.G_EXC_ERROR;
2772: END IF;
2773:
2774: resultout := 'COMPLETE:SUCCESS';
2775: ELSE
2772: END IF;
2773:
2774: resultout := 'COMPLETE:SUCCESS';
2775: ELSE
2776: RAISE Fnd_Api.G_EXC_ERROR;
2777: END IF;
2778: END IF;
2779:
2780: --
2792: resultout := 'COMPLETE:';
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
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: );
2802: Handle_Err
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: );
2821: Handle_Err
2904: x_msg_data => l_msg_data,
2905: x_return_status => l_return_status);
2906: END IF;
2907:
2908: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
2909: RAISE Fnd_Api.G_EXC_ERROR;
2910: END IF;
2911: -- Added for 11.5.9
2912: l_version := Wf_Engine.GetItemAttrNumber(
2905: x_return_status => l_return_status);
2906: END IF;
2907:
2908: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
2909: RAISE Fnd_Api.G_EXC_ERROR;
2910: END IF;
2911: -- Added for 11.5.9
2912: l_version := Wf_Engine.GetItemAttrNumber(
2913: itemtype => itemtype,
2926: x_approver_id => l_new_approver_id,
2927: x_return_status => l_return_status);
2928:
2929:
2930: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
2931: RAISE Fnd_Api.G_EXC_ERROR;
2932: END IF;
2933:
2934:
2927: x_return_status => l_return_status);
2928:
2929:
2930: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
2931: RAISE Fnd_Api.G_EXC_ERROR;
2932: END IF;
2933:
2934:
2935: IF l_new_approver_id IS NOT NULL THEN
2957: l_appr_hist_rec.action_date := sysdate;
2958:
2959: AMS_Appr_Hist_PVT.Update_Appr_Hist(
2960: p_api_version_number => 1.0,
2961: p_init_msg_list => FND_API.G_FALSE,
2962: p_commit => FND_API.G_FALSE,
2963: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2964: x_return_status => l_return_status,
2965: x_msg_count => l_msg_count,
2958:
2959: AMS_Appr_Hist_PVT.Update_Appr_Hist(
2960: p_api_version_number => 1.0,
2961: p_init_msg_list => FND_API.G_FALSE,
2962: p_commit => FND_API.G_FALSE,
2963: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2964: x_return_status => l_return_status,
2965: x_msg_count => l_msg_count,
2966: x_msg_data => l_msg_data,
2959: AMS_Appr_Hist_PVT.Update_Appr_Hist(
2960: p_api_version_number => 1.0,
2961: p_init_msg_list => FND_API.G_FALSE,
2962: p_commit => FND_API.G_FALSE,
2963: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2964: x_return_status => l_return_status,
2965: x_msg_count => l_msg_count,
2966: x_msg_data => l_msg_data,
2967: p_appr_hist_rec => l_appr_hist_rec
2966: x_msg_data => l_msg_data,
2967: p_appr_hist_rec => l_appr_hist_rec
2968: );
2969:
2970: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
2971: RAISE Fnd_Api.G_EXC_ERROR;
2972: END IF;
2973:
2974: END IF;
2967: p_appr_hist_rec => l_appr_hist_rec
2968: );
2969:
2970: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
2971: RAISE Fnd_Api.G_EXC_ERROR;
2972: END IF;
2973:
2974: END IF;
2975:
3030: resultout := 'COMPLETE:';
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
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: );
3040: Handle_Err
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: );
3058: Handle_Err
3135: p_next_stat_id => l_orig_status_id,
3136: x_return_status => l_return_status);
3137:
3138:
3139: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
3140: RAISE Fnd_Api.G_EXC_ERROR;
3141: -- Delete all history rows
3142: ELSE
3143:
3136: x_return_status => l_return_status);
3137:
3138:
3139: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
3140: RAISE Fnd_Api.G_EXC_ERROR;
3141: -- Delete all history rows
3142: ELSE
3143:
3144: -- Delete all rows
3143:
3144: -- Delete all rows
3145: AMS_Appr_Hist_PVT.Delete_Appr_Hist(
3146: p_api_version_number => 1.0,
3147: p_init_msg_list => FND_API.G_FALSE,
3148: p_commit => FND_API.G_FALSE,
3149: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3150: x_return_status => l_return_status,
3151: x_msg_count => l_msg_count,
3144: -- Delete all rows
3145: AMS_Appr_Hist_PVT.Delete_Appr_Hist(
3146: p_api_version_number => 1.0,
3147: p_init_msg_list => FND_API.G_FALSE,
3148: p_commit => FND_API.G_FALSE,
3149: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3150: x_return_status => l_return_status,
3151: x_msg_count => l_msg_count,
3152: x_msg_data => l_msg_data,
3145: AMS_Appr_Hist_PVT.Delete_Appr_Hist(
3146: p_api_version_number => 1.0,
3147: p_init_msg_list => FND_API.G_FALSE,
3148: p_commit => FND_API.G_FALSE,
3149: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3150: x_return_status => l_return_status,
3151: x_msg_count => l_msg_count,
3152: x_msg_data => l_msg_data,
3153: p_object_id => l_activity_id,
3156: p_action_code => null,
3157: p_object_version_num => l_version,
3158: p_approval_type => l_approval_type);
3159:
3160: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
3161: RAISE Fnd_Api.G_EXC_ERROR;
3162: END IF;
3163:
3164: resultout := 'COMPLETE:SUCCESS';
3157: p_object_version_num => l_version,
3158: p_approval_type => l_approval_type);
3159:
3160: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
3161: RAISE Fnd_Api.G_EXC_ERROR;
3162: END IF;
3163:
3164: resultout := 'COMPLETE:SUCCESS';
3165: END IF;
3182: END IF;
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
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: );
3192: Handle_Err
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: );
3208: Handle_Err
3263: Update_Status(p_activity_type => l_activity_type,
3264: p_activity_id => l_activity_id,
3265: p_next_stat_id => l_orig_status_id,
3266: x_return_status => l_return_status);
3267: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
3268: RAISE Fnd_Api.G_EXC_ERROR;
3269: ELSE
3270: resultout := 'COMPLETE:SUCCESS';
3271: END IF;
3264: p_activity_id => l_activity_id,
3265: p_next_stat_id => l_orig_status_id,
3266: x_return_status => l_return_status);
3267: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
3268: RAISE Fnd_Api.G_EXC_ERROR;
3269: ELSE
3270: resultout := 'COMPLETE:SUCCESS';
3271: END IF;
3272:
3291: --
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
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: );
3301: Handle_Err
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: );
3317: Handle_Err
3409: p_activity_id => l_activity_id,
3410: p_next_stat_id => l_orig_status_id,
3411: x_return_status => l_return_status);
3412:
3413: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
3414: RAISE Fnd_Api.G_EXC_ERROR;
3415: ELSE
3416: -- Commented for bug 3150550
3417: -- Start of addition for forward/reassign notification
3410: p_next_stat_id => l_orig_status_id,
3411: x_return_status => l_return_status);
3412:
3413: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
3414: RAISE Fnd_Api.G_EXC_ERROR;
3415: ELSE
3416: -- Commented for bug 3150550
3417: -- Start of addition for forward/reassign notification
3418: /*
3420: itemkey => itemkey,
3421: x_approver_id => l_new_approver_id,
3422: x_return_status => l_return_status);
3423:
3424: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
3425: RAISE Fnd_Api.G_EXC_ERROR;
3426: END IF;
3427:
3428: IF l_new_approver_id IS NOT NULL THEN
3421: x_approver_id => l_new_approver_id,
3422: x_return_status => l_return_status);
3423:
3424: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
3425: RAISE Fnd_Api.G_EXC_ERROR;
3426: END IF;
3427:
3428: IF l_new_approver_id IS NOT NULL THEN
3429: l_approver_id := l_new_approver_id;
3446: l_appr_hist_rec.approver_id := l_approver_id;
3447:
3448: AMS_Appr_Hist_PVT.Update_Appr_Hist(
3449: p_api_version_number => 1.0,
3450: p_init_msg_list => FND_API.G_FALSE,
3451: p_commit => FND_API.G_FALSE,
3452: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3453: x_return_status => l_return_status,
3454: x_msg_count => l_msg_count,
3447:
3448: AMS_Appr_Hist_PVT.Update_Appr_Hist(
3449: p_api_version_number => 1.0,
3450: p_init_msg_list => FND_API.G_FALSE,
3451: p_commit => FND_API.G_FALSE,
3452: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3453: x_return_status => l_return_status,
3454: x_msg_count => l_msg_count,
3455: x_msg_data => l_msg_data,
3448: AMS_Appr_Hist_PVT.Update_Appr_Hist(
3449: p_api_version_number => 1.0,
3450: p_init_msg_list => FND_API.G_FALSE,
3451: p_commit => FND_API.G_FALSE,
3452: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3453: x_return_status => l_return_status,
3454: x_msg_count => l_msg_count,
3455: x_msg_data => l_msg_data,
3456: p_appr_hist_rec => l_appr_hist_rec
3455: x_msg_data => l_msg_data,
3456: p_appr_hist_rec => l_appr_hist_rec
3457: );
3458:
3459: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
3460: RAISE Fnd_Api.G_EXC_ERROR;
3461: END IF;
3462:
3463: -- Delete any 'OPEN' rows
3456: p_appr_hist_rec => l_appr_hist_rec
3457: );
3458:
3459: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
3460: RAISE Fnd_Api.G_EXC_ERROR;
3461: END IF;
3462:
3463: -- Delete any 'OPEN' rows
3464: AMS_Appr_Hist_PVT.Delete_Appr_Hist(
3462:
3463: -- Delete any 'OPEN' rows
3464: AMS_Appr_Hist_PVT.Delete_Appr_Hist(
3465: p_api_version_number => 1.0,
3466: p_init_msg_list => FND_API.G_FALSE,
3467: p_commit => FND_API.G_FALSE,
3468: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3469: x_return_status => l_return_status,
3470: x_msg_count => l_msg_count,
3463: -- Delete any 'OPEN' rows
3464: AMS_Appr_Hist_PVT.Delete_Appr_Hist(
3465: p_api_version_number => 1.0,
3466: p_init_msg_list => FND_API.G_FALSE,
3467: p_commit => FND_API.G_FALSE,
3468: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3469: x_return_status => l_return_status,
3470: x_msg_count => l_msg_count,
3471: x_msg_data => l_msg_data,
3464: AMS_Appr_Hist_PVT.Delete_Appr_Hist(
3465: p_api_version_number => 1.0,
3466: p_init_msg_list => FND_API.G_FALSE,
3467: p_commit => FND_API.G_FALSE,
3468: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3469: x_return_status => l_return_status,
3470: x_msg_count => l_msg_count,
3471: x_msg_data => l_msg_data,
3472: p_object_id => l_activity_id,
3475: p_action_code => 'OPEN',
3476: p_object_version_num => l_version,
3477: p_approval_type => l_approval_type);
3478:
3479: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
3480: RAISE Fnd_Api.G_EXC_ERROR;
3481: END IF;
3482:
3483: resultout := 'COMPLETE:SUCCESS';
3476: p_object_version_num => l_version,
3477: p_approval_type => l_approval_type);
3478:
3479: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
3480: RAISE Fnd_Api.G_EXC_ERROR;
3481: END IF;
3482:
3483: resultout := 'COMPLETE:SUCCESS';
3484: END IF;
3503:
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
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: );
3513: Handle_Err
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: );
3528: Handle_Err
3635: FETCH c_campaign INTO l_currency_code;
3636: IF c_campaign%NOTFOUND THEN
3637: CLOSE c_campaign;
3638: Ams_Utility_Pvt.error_message ('AMS_BUDGET_NO_OWNER');
3639: RAISE Fnd_Api.g_exc_error;
3640: END IF;
3641: CLOSE c_campaign;
3642: /* code added by murali code done by ravi start*/
3643: -- Campaign Schedule
3646: FETCH c_schedule INTO l_currency_code;
3647: IF c_schedule%NOTFOUND THEN
3648: CLOSE c_schedule;
3649: Ams_Utility_Pvt.error_message ('AMS_BUDGET_NO_OWNER');
3650: RAISE Fnd_Api.g_exc_error;
3651: END IF;
3652: CLOSE c_schedule;
3653: -- Offer
3654: ELSIF p_object = 'OFFR' THEN
3656: FETCH c_offer INTO l_currency_code;
3657: IF c_offer%NOTFOUND THEN
3658: CLOSE c_offer;
3659: Ams_Utility_Pvt.error_message ('AMS_BUDGET_NO_OWNER');
3660: RAISE Fnd_Api.g_exc_error;
3661: END IF;
3662: CLOSE c_offer;
3663: /* code added by murali code done by ravi end*/
3664: -- Event Header/Rollup Event
3667: FETCH c_eheader INTO l_currency_code;
3668: IF c_eheader%NOTFOUND THEN
3669: CLOSE c_eheader;
3670: Ams_Utility_Pvt.error_message ('AMS_BUDGET_NO_OWNER');
3671: RAISE Fnd_Api.g_exc_error;
3672: END IF;
3673: CLOSE c_eheader;
3674: -- Event Offer/Execution Event
3675: ELSIF (p_object = 'EVEO' OR p_object = 'EONE')THEN
3677: FETCH c_eoffer INTO l_currency_code;
3678: IF c_eoffer%NOTFOUND THEN
3679: CLOSE c_eoffer;
3680: Ams_Utility_Pvt.error_message ('AMS_BUDGET_NO_OWNER');
3681: RAISE Fnd_Api.g_exc_error;
3682: END IF;
3683: CLOSE c_eoffer;
3684: -- Deliverable
3685: ELSIF p_object = 'DELV' THEN
3687: FETCH c_deliverable INTO l_currency_code;
3688: IF c_deliverable%NOTFOUND THEN
3689: CLOSE c_deliverable;
3690: Ams_Utility_Pvt.error_message ('AMS_ACT_BUDG_NO_OWNER');
3691: RAISE Fnd_Api.g_exc_error;
3692: END IF;
3693: CLOSE c_deliverable;
3694: ELSIF p_object = 'FUND' THEN
3695: OPEN c_fund;
3696: FETCH c_fund INTO l_currency_code;
3697: IF c_fund%NOTFOUND THEN
3698: CLOSE c_fund;
3699: Ams_Utility_Pvt.error_message ('AMS_ACT_BUDG_NO_OWNER');
3700: RAISE Fnd_Api.g_exc_error;
3701: END IF;
3702: CLOSE c_fund;
3703: ELSE
3704: RAISE Fnd_Api.g_exc_unexpected_error;
3700: RAISE Fnd_Api.g_exc_error;
3701: END IF;
3702: CLOSE c_fund;
3703: ELSE
3704: RAISE Fnd_Api.g_exc_unexpected_error;
3705: END IF;
3706:
3707: RETURN l_currency_code;
3708: EXCEPTION
3811: -- Delete any previous approval history rows Bug 2761026
3812:
3813: AMS_Appr_Hist_PVT.Delete_Appr_Hist(
3814: p_api_version_number => 1.0,
3815: p_init_msg_list => FND_API.G_FALSE,
3816: p_commit => FND_API.G_FALSE,
3817: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3818: x_return_status => l_return_status,
3819: x_msg_count => l_msg_count,
3812:
3813: AMS_Appr_Hist_PVT.Delete_Appr_Hist(
3814: p_api_version_number => 1.0,
3815: p_init_msg_list => FND_API.G_FALSE,
3816: p_commit => FND_API.G_FALSE,
3817: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3818: x_return_status => l_return_status,
3819: x_msg_count => l_msg_count,
3820: x_msg_data => l_msg_data,
3813: AMS_Appr_Hist_PVT.Delete_Appr_Hist(
3814: p_api_version_number => 1.0,
3815: p_init_msg_list => FND_API.G_FALSE,
3816: p_commit => FND_API.G_FALSE,
3817: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3818: x_return_status => l_return_status,
3819: x_msg_count => l_msg_count,
3820: x_msg_data => l_msg_data,
3821: p_object_id => p_act_budget_id,
3824: p_action_code => null,
3825: p_object_version_num => null,
3826: p_approval_type => 'BUDGET');
3827:
3828: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
3829: RAISE Fnd_Api.G_EXC_ERROR;
3830: END IF;
3831:
3832: -- get the budget line ids
3825: p_object_version_num => null,
3826: p_approval_type => 'BUDGET');
3827:
3828: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
3829: RAISE Fnd_Api.G_EXC_ERROR;
3830: END IF;
3831:
3832: -- get the budget line ids
3833: OPEN budget_lines_csr;
3836: l_request_amount, l_request_currency,
3837: l_version, l_budget_amount;
3838: IF budget_lines_csr%NOTFOUND THEN
3839: CLOSE budget_lines_csr;
3840: RAISE Fnd_Api.G_EXC_ERROR;
3841: END IF;
3842: CLOSE budget_lines_csr;
3843:
3844: -- set the itemkey and itemuserkey
3841: END IF;
3842: CLOSE budget_lines_csr;
3843:
3844: -- set the itemkey and itemuserkey
3845: IF p_parent_process_flag = Fnd_Api.G_TRUE THEN
3846: -- for process started from a parent process
3847: l_itemkey := p_act_budget_id||'_'||p_parent_process_key;
3848: l_itemuserkey := l_activity_id||'_'||l_budget_id||'_'||p_parent_process_key;
3849: ELSE
3900: -- [END OF BUG2741039 FIXING]
3901:
3902: -- set the parent item
3903: --
3904: IF p_parent_process_flag = Fnd_Api.G_TRUE THEN
3905: -- set parent
3906: Wf_Engine.SetItemParent(itemtype =>l_itemtype,
3907: itemkey => l_itemkey,
3908: parent_itemtype => l_itemtype,
3936: ( p_activity_type => l_activity_type,
3937: p_activity_id => l_activity_id,
3938: x_object_details => l_parent_object_details,
3939: x_return_status => l_return_status);
3940: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
3941: RAISE Fnd_Api.G_EXC_ERROR;
3942: END IF;
3943: Wf_Engine.SetItemAttrText(itemtype => l_itemtype,
3944: itemkey => l_itemkey,
3937: p_activity_id => l_activity_id,
3938: x_object_details => l_parent_object_details,
3939: x_return_status => l_return_status);
3940: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
3941: RAISE Fnd_Api.G_EXC_ERROR;
3942: END IF;
3943: Wf_Engine.SetItemAttrText(itemtype => l_itemtype,
3944: itemkey => l_itemkey,
3945: aname => 'AMS_ACT_NAME',
4015: itemkey => l_itemkey,
4016: aname => 'AMS_ACTIVITY_OWNER',
4017: avalue => l_full_name );
4018:
4019: IF p_parent_approval_flag = Fnd_Api.G_TRUE THEN
4020: --
4021: Wf_Engine.SetItemAttrText(itemtype => l_itemtype,
4022: itemkey => l_itemkey,
4023: aname => 'AMS_CONTINUEFLOW',
4091: x_role_name => l_requestor_name,
4092: x_role_display_name => l_requestor_display_name ,
4093: x_return_status => l_return_status);
4094:
4095: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
4096: RAISE Fnd_Api.G_EXC_ERROR;
4097: END IF;
4098:
4099: --
4092: x_role_display_name => l_requestor_display_name ,
4093: x_return_status => l_return_status);
4094:
4095: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
4096: RAISE Fnd_Api.G_EXC_ERROR;
4097: END IF;
4098:
4099: --
4100: Wf_Engine.SetItemAttrNumber( itemtype => l_itemtype,
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
4130: RAISE Fnd_Api.G_EXC_ERROR;
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
4130: RAISE Fnd_Api.G_EXC_ERROR;
4131: END IF;
4132:
4133: l_budget_currency := get_object_currency(l_budget_type, l_budget_id);
4126: RAISE Fnd_Api.G_EXC_ERROR;
4127: END;
4128:
4129: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
4130: RAISE Fnd_Api.G_EXC_ERROR;
4131: END IF;
4132:
4133: l_budget_currency := get_object_currency(l_budget_type, l_budget_id);
4134:
4147: x_return_status => l_return_status );
4148:
4149: END IF;
4150:
4151: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
4152: RAISE Fnd_Api.G_EXC_ERROR;
4153: END IF;
4154:
4155: --
4148:
4149: END IF;
4150:
4151: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
4152: RAISE Fnd_Api.G_EXC_ERROR;
4153: END IF;
4154:
4155: --
4156: /*
4260: l_appr_hist_rec.approver_type := 'USER';
4261: --
4262: AMS_Appr_Hist_PVT.Create_Appr_Hist(
4263: p_api_version_number => 1.0,
4264: p_init_msg_list => FND_API.G_FALSE,
4265: p_commit => FND_API.G_FALSE,
4266: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4267: x_return_status => l_return_status,
4268: x_msg_count => l_msg_count,
4261: --
4262: AMS_Appr_Hist_PVT.Create_Appr_Hist(
4263: p_api_version_number => 1.0,
4264: p_init_msg_list => FND_API.G_FALSE,
4265: p_commit => FND_API.G_FALSE,
4266: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4267: x_return_status => l_return_status,
4268: x_msg_count => l_msg_count,
4269: x_msg_data => l_msg_data,
4262: AMS_Appr_Hist_PVT.Create_Appr_Hist(
4263: p_api_version_number => 1.0,
4264: p_init_msg_list => FND_API.G_FALSE,
4265: p_commit => FND_API.G_FALSE,
4266: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4267: x_return_status => l_return_status,
4268: x_msg_count => l_msg_count,
4269: x_msg_data => l_msg_data,
4270: p_appr_hist_rec => l_appr_hist_rec
4269: x_msg_data => l_msg_data,
4270: p_appr_hist_rec => l_appr_hist_rec
4271: );
4272:
4273: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
4274: RAISE Fnd_Api.G_EXC_ERROR;
4275: END IF;
4276:
4277: EXCEPTION
4270: p_appr_hist_rec => l_appr_hist_rec
4271: );
4272:
4273: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
4274: RAISE Fnd_Api.G_EXC_ERROR;
4275: END IF;
4276:
4277: EXCEPTION
4278: WHEN Fnd_Api.G_EXC_ERROR THEN
4274: RAISE Fnd_Api.G_EXC_ERROR;
4275: END IF;
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;
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
4290: (p_itemtype => l_itemtype ,
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
4309: (p_itemtype => l_itemtype ,
4335: /*============================================================================*/
4336:
4337: PROCEDURE Start_LineApproval(
4338: p_api_version IN NUMBER
4339: ,p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE
4340: ,p_commit IN VARCHAR2 := Fnd_Api.G_FALSE
4341: ,p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL
4342:
4343: ,x_return_status OUT NOCOPY VARCHAR2
4336:
4337: PROCEDURE Start_LineApproval(
4338: p_api_version IN NUMBER
4339: ,p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE
4340: ,p_commit IN VARCHAR2 := Fnd_Api.G_FALSE
4341: ,p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL
4342:
4343: ,x_return_status OUT NOCOPY VARCHAR2
4344: ,x_msg_data OUT NOCOPY VARCHAR2
4337: PROCEDURE Start_LineApproval(
4338: p_api_version IN NUMBER
4339: ,p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE
4340: ,p_commit IN VARCHAR2 := Fnd_Api.G_FALSE
4341: ,p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL
4342:
4343: ,x_return_status OUT NOCOPY VARCHAR2
4344: ,x_msg_data OUT NOCOPY VARCHAR2
4345: ,x_msg_count OUT NOCOPY NUMBER
4348: ,p_act_budget_id IN NUMBER
4349: ,p_orig_status_id IN NUMBER
4350: ,p_new_status_id IN NUMBER
4351: ,p_rejected_status_id IN NUMBER
4352: ,p_parent_process_flag IN VARCHAR2 := Fnd_Api.G_FALSE
4353: ,p_parent_process_key IN VARCHAR2 -- was g_miss_char
4354: ,p_parent_context IN VARCHAR2 -- was g_miss_char
4355: ,p_parent_approval_flag IN VARCHAR2 := Fnd_Api.G_FALSE
4356: ,p_continue_flow IN VARCHAR2 := Fnd_Api.G_FALSE
4351: ,p_rejected_status_id IN NUMBER
4352: ,p_parent_process_flag IN VARCHAR2 := Fnd_Api.G_FALSE
4353: ,p_parent_process_key IN VARCHAR2 -- was g_miss_char
4354: ,p_parent_context IN VARCHAR2 -- was g_miss_char
4355: ,p_parent_approval_flag IN VARCHAR2 := Fnd_Api.G_FALSE
4356: ,p_continue_flow IN VARCHAR2 := Fnd_Api.G_FALSE
4357: )
4358: IS
4359: l_api_name CONSTANT VARCHAR2(30) := 'Start_LineApproval';
4352: ,p_parent_process_flag IN VARCHAR2 := Fnd_Api.G_FALSE
4353: ,p_parent_process_key IN VARCHAR2 -- was g_miss_char
4354: ,p_parent_context IN VARCHAR2 -- was g_miss_char
4355: ,p_parent_approval_flag IN VARCHAR2 := Fnd_Api.G_FALSE
4356: ,p_continue_flow IN VARCHAR2 := Fnd_Api.G_FALSE
4357: )
4358: IS
4359: l_api_name CONSTANT VARCHAR2(30) := 'Start_LineApproval';
4360: l_api_version CONSTANT NUMBER := 1.0;
4371: BEGIN
4372: -- Standard begin of API savepoint
4373: SAVEPOINT Start_LineApproval_PVT;
4374: -- Standard call to check for call compatibility.
4375: IF NOT Fnd_Api.Compatible_API_Call (
4376: l_api_version,
4377: p_api_version,
4378: l_api_name,
4379: G_PKG_NAME)
4377: p_api_version,
4378: l_api_name,
4379: G_PKG_NAME)
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;
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;
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:
4396: BEGIN
4397: -- kickoff workflow processes for a line
4398: Start_Process (
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
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
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: );
4433: EXCEPTION
4430: p_count => x_msg_count,
4431: p_data => x_msg_data
4432: );
4433: EXCEPTION
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 (
4432: );
4433: EXCEPTION
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,
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
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 (
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,
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: );
4452: WHEN OTHERS THEN
4450: p_data => x_msg_data
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;
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: );
4465: --
4560: -- set the parent context
4561: l_context := itemtype||':'||itemkey||':'||actid;
4562:
4563: -- set continue to true for first line if approval rule already met
4564: IF l_approval_flag = Fnd_Api.G_TRUE THEN
4565: l_continue_flow := Fnd_Api.G_TRUE;
4566: ELSE
4567: l_continue_flow := Fnd_Api.G_FALSE;
4568: END IF;
4561: l_context := itemtype||':'||itemkey||':'||actid;
4562:
4563: -- set continue to true for first line if approval rule already met
4564: IF l_approval_flag = Fnd_Api.G_TRUE THEN
4565: l_continue_flow := Fnd_Api.G_TRUE;
4566: ELSE
4567: l_continue_flow := Fnd_Api.G_FALSE;
4568: END IF;
4569:
4563: -- set continue to true for first line if approval rule already met
4564: IF l_approval_flag = Fnd_Api.G_TRUE THEN
4565: l_continue_flow := Fnd_Api.G_TRUE;
4566: ELSE
4567: l_continue_flow := Fnd_Api.G_FALSE;
4568: END IF;
4569:
4570: -- get all planned budget lines
4571: OPEN planned_lines_csr(l_activity_id, l_activity_type);
4593: */
4594: -- start process for each lines activity lines for approval
4595: Ozf_Actbudgets_Pvt.Update_Act_Budgets (
4596: p_api_version => 1.0,
4597: p_init_msg_list => Fnd_Api.G_FALSE,
4598: p_commit => Fnd_Api.G_FALSE,
4599: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
4600: x_return_status => l_return_status,
4601: x_msg_count => l_msg_count,
4594: -- start process for each lines activity lines for approval
4595: Ozf_Actbudgets_Pvt.Update_Act_Budgets (
4596: p_api_version => 1.0,
4597: p_init_msg_list => Fnd_Api.G_FALSE,
4598: p_commit => Fnd_Api.G_FALSE,
4599: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
4600: x_return_status => l_return_status,
4601: x_msg_count => l_msg_count,
4602: x_msg_data => l_msg_data,
4595: Ozf_Actbudgets_Pvt.Update_Act_Budgets (
4596: p_api_version => 1.0,
4597: p_init_msg_list => Fnd_Api.G_FALSE,
4598: p_commit => Fnd_Api.G_FALSE,
4599: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
4600: x_return_status => l_return_status,
4601: x_msg_count => l_msg_count,
4602: x_msg_data => l_msg_data,
4603: p_act_Budgets_rec => l_budget_rec,
4600: x_return_status => l_return_status,
4601: x_msg_count => l_msg_count,
4602: x_msg_data => l_msg_data,
4603: p_act_Budgets_rec => l_budget_rec,
4604: p_parent_process_flag => Fnd_Api.G_TRUE,
4605: p_parent_process_key => itemkey,
4606: p_parent_context => l_context,
4607: p_parent_approval_flag => l_approval_flag,
4608: p_continue_flow => l_continue_flow );
4606: p_parent_context => l_context,
4607: p_parent_approval_flag => l_approval_flag,
4608: p_continue_flow => l_continue_flow );
4609:
4610: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
4611: --resultout := 'COMPLETE:ERROR';
4612: -- raise exception
4613: RAISE Fnd_Api.G_EXC_ERROR;
4614: END IF;
4609:
4610: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
4611: --resultout := 'COMPLETE:ERROR';
4612: -- raise exception
4613: RAISE Fnd_Api.G_EXC_ERROR;
4614: END IF;
4615:
4616: EXCEPTION
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,
4626: p_data => l_msg_data);
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
4628: (p_itemtype => itemtype ,
4633: x_error_msg => l_error_msg);
4634: END;
4635:
4636: -- set continue flow for consequtive lines to false
4637: l_continue_flow := Fnd_Api.G_FALSE;
4638: END LOOP;
4639: CLOSE planned_lines_csr;
4640:
4641: resultout := 'COMPLETE:SUCCESS';
4659: END IF;
4660: --
4661:
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');
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
4675: (p_itemtype => itemtype ,
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
4693: (p_itemtype => itemtype ,
4806: x_notification_timeout => l_notification_timeout,
4807: x_return_status => l_return_status
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);
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 ,
4861: l_appr_hist_rec.approver_id := l_obj_appr_id;
4862:
4863: AMS_Appr_Hist_PVT.Create_Appr_Hist(
4864: p_api_version_number => 1.0,
4865: p_init_msg_list => FND_API.G_FALSE,
4866: p_commit => FND_API.G_FALSE,
4867: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4868: x_return_status => l_return_status,
4869: x_msg_count => l_msg_count,
4862:
4863: AMS_Appr_Hist_PVT.Create_Appr_Hist(
4864: p_api_version_number => 1.0,
4865: p_init_msg_list => FND_API.G_FALSE,
4866: p_commit => FND_API.G_FALSE,
4867: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4868: x_return_status => l_return_status,
4869: x_msg_count => l_msg_count,
4870: x_msg_data => l_msg_data,
4863: AMS_Appr_Hist_PVT.Create_Appr_Hist(
4864: p_api_version_number => 1.0,
4865: p_init_msg_list => FND_API.G_FALSE,
4866: p_commit => FND_API.G_FALSE,
4867: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4868: x_return_status => l_return_status,
4869: x_msg_count => l_msg_count,
4870: x_msg_data => l_msg_data,
4871: p_appr_hist_rec => l_appr_hist_rec
4870: x_msg_data => l_msg_data,
4871: p_appr_hist_rec => l_appr_hist_rec
4872: );
4873:
4874: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
4875: CLOSE c_approver;
4876: RAISE Fnd_Api.G_EXC_ERROR;
4877: END IF;
4878:
4872: );
4873:
4874: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
4875: CLOSE c_approver;
4876: RAISE Fnd_Api.G_EXC_ERROR;
4877: END IF;
4878:
4879: END LOOP;
4880: CLOSE c_approver;
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: );
4903: Handle_Err
4923: x_role_display_name => l_approver_display_name,
4924: x_return_status => l_return_status
4925: );
4926:
4927: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
4928: RAISE Fnd_Api.G_EXC_ERROR;
4929: END IF;
4930:
4931: l_prev_role_name := Wf_Engine.GetItemAttrText(
4924: x_return_status => l_return_status
4925: );
4926:
4927: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
4928: RAISE Fnd_Api.G_EXC_ERROR;
4929: END IF;
4930:
4931: l_prev_role_name := Wf_Engine.GetItemAttrText(
4932: itemtype => itemtype,
4966: x_msg_data => l_msg_data,
4967: x_return_status => l_return_status);
4968: END IF;
4969:
4970: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
4971: RAISE Fnd_Api.G_EXC_ERROR;
4972: END IF;
4973:
4974: -- get all the budget line notes
4967: x_return_status => l_return_status);
4968: END IF;
4969:
4970: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
4971: RAISE Fnd_Api.G_EXC_ERROR;
4972: END IF;
4973:
4974: -- get all the budget line notes
4975: l_all_note := Wf_Engine.GetItemAttrText(
5035:
5036:
5037: AMS_Appr_Hist_PVT.Update_Appr_Hist(
5038: p_api_version_number => 1.0,
5039: p_init_msg_list => FND_API.G_FALSE,
5040: p_commit => FND_API.G_FALSE,
5041: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5042: x_return_status => l_return_status,
5043: x_msg_count => l_msg_count,
5036:
5037: AMS_Appr_Hist_PVT.Update_Appr_Hist(
5038: p_api_version_number => 1.0,
5039: p_init_msg_list => FND_API.G_FALSE,
5040: p_commit => FND_API.G_FALSE,
5041: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5042: x_return_status => l_return_status,
5043: x_msg_count => l_msg_count,
5044: x_msg_data => l_msg_data,
5037: AMS_Appr_Hist_PVT.Update_Appr_Hist(
5038: p_api_version_number => 1.0,
5039: p_init_msg_list => FND_API.G_FALSE,
5040: p_commit => FND_API.G_FALSE,
5041: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5042: x_return_status => l_return_status,
5043: x_msg_count => l_msg_count,
5044: x_msg_data => l_msg_data,
5045: p_appr_hist_rec => l_appr_hist_rec
5044: x_msg_data => l_msg_data,
5045: p_appr_hist_rec => l_appr_hist_rec
5046: );
5047:
5048: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
5049: RAISE Fnd_Api.G_EXC_ERROR;
5050: END IF;
5051:
5052: resultout := 'COMPLETE:SUCCESS';
5045: p_appr_hist_rec => l_appr_hist_rec
5046: );
5047:
5048: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
5049: RAISE Fnd_Api.G_EXC_ERROR;
5050: END IF;
5051:
5052: resultout := 'COMPLETE:SUCCESS';
5053: RETURN;
5070: END IF;
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);
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
5080: (p_itemtype => itemtype ,
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
5094: (p_itemtype => itemtype ,
5217: itemkey => itemkey,
5218: x_approver_id => l_new_approver_id,
5219: x_return_status => l_return_status);
5220:
5221: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
5222: RAISE Fnd_Api.G_EXC_ERROR;
5223: END IF;
5224:
5225: IF l_new_approver_id IS NOT NULL THEN
5218: x_approver_id => l_new_approver_id,
5219: x_return_status => l_return_status);
5220:
5221: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
5222: RAISE Fnd_Api.G_EXC_ERROR;
5223: END IF;
5224:
5225: IF l_new_approver_id IS NOT NULL THEN
5226: l_approver_id := l_new_approver_id;
5243:
5244:
5245: AMS_Appr_Hist_PVT.Update_Appr_Hist(
5246: p_api_version_number => 1.0,
5247: p_init_msg_list => FND_API.G_FALSE,
5248: p_commit => FND_API.G_FALSE,
5249: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5250: x_return_status => l_return_status,
5251: x_msg_count => l_msg_count,
5244:
5245: AMS_Appr_Hist_PVT.Update_Appr_Hist(
5246: p_api_version_number => 1.0,
5247: p_init_msg_list => FND_API.G_FALSE,
5248: p_commit => FND_API.G_FALSE,
5249: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5250: x_return_status => l_return_status,
5251: x_msg_count => l_msg_count,
5252: x_msg_data => l_msg_data,
5245: AMS_Appr_Hist_PVT.Update_Appr_Hist(
5246: p_api_version_number => 1.0,
5247: p_init_msg_list => FND_API.G_FALSE,
5248: p_commit => FND_API.G_FALSE,
5249: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5250: x_return_status => l_return_status,
5251: x_msg_count => l_msg_count,
5252: x_msg_data => l_msg_data,
5253: p_appr_hist_rec => l_appr_hist_rec
5252: x_msg_data => l_msg_data,
5253: p_appr_hist_rec => l_appr_hist_rec
5254: );
5255:
5256: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
5257: RAISE Fnd_Api.G_EXC_ERROR;
5258: END IF;
5259:
5260: --IF l_required_flag = FND_API.G_TRUE THEN
5253: p_appr_hist_rec => l_appr_hist_rec
5254: );
5255:
5256: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
5257: RAISE Fnd_Api.G_EXC_ERROR;
5258: END IF;
5259:
5260: --IF l_required_flag = FND_API.G_TRUE THEN
5261: IF l_next_seq IS NOT NULL THEN
5256: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
5257: RAISE Fnd_Api.G_EXC_ERROR;
5258: END IF;
5259:
5260: --IF l_required_flag = FND_API.G_TRUE THEN
5261: IF l_next_seq IS NOT NULL THEN
5262: --
5263: Wf_Engine.SetItemAttrNumber(itemtype => itemtype,
5264: itemkey => itemkey,
5290: END IF;
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);
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
5300: (p_itemtype => itemtype ,
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
5321: (p_itemtype => itemtype ,
5443: -- update to approved
5444: -- Changed Hard code form USD l_approved_currency
5445: Ozf_Budgetapproval_Pvt.WF_Respond (
5446: p_api_version => 1.0,
5447: p_init_msg_list => Fnd_Api.G_FALSE,
5448: p_commit => Fnd_Api.G_TRUE,
5449: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
5450: x_return_status => l_return_status,
5451: x_msg_count => l_msg_count,
5444: -- Changed Hard code form USD l_approved_currency
5445: Ozf_Budgetapproval_Pvt.WF_Respond (
5446: p_api_version => 1.0,
5447: p_init_msg_list => Fnd_Api.G_FALSE,
5448: p_commit => Fnd_Api.G_TRUE,
5449: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
5450: x_return_status => l_return_status,
5451: x_msg_count => l_msg_count,
5452: x_msg_data => l_msg_data,
5445: Ozf_Budgetapproval_Pvt.WF_Respond (
5446: p_api_version => 1.0,
5447: p_init_msg_list => Fnd_Api.G_FALSE,
5448: p_commit => Fnd_Api.G_TRUE,
5449: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
5450: x_return_status => l_return_status,
5451: x_msg_count => l_msg_count,
5452: x_msg_data => l_msg_data,
5453: p_respond_status_id => l_approved_status_id,
5456: p_approved_amount => l_approved_amount,
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);
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
5466: (p_itemtype => itemtype ,
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';
5485: RETURN;
5503: END IF;
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);
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
5513: (p_itemtype => itemtype ,
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
5529: (p_itemtype => itemtype ,
5669: BEGIN
5670: -- update to rejected
5671: Ozf_Budgetapproval_Pvt.WF_Respond (
5672: p_api_version => 1.0,
5673: p_init_msg_list => Fnd_Api.G_FALSE,
5674: p_commit => Fnd_Api.G_TRUE,
5675: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
5676: x_return_status => l_return_status,
5677: x_msg_count => l_msg_count,
5670: -- update to rejected
5671: Ozf_Budgetapproval_Pvt.WF_Respond (
5672: p_api_version => 1.0,
5673: p_init_msg_list => Fnd_Api.G_FALSE,
5674: p_commit => Fnd_Api.G_TRUE,
5675: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
5676: x_return_status => l_return_status,
5677: x_msg_count => l_msg_count,
5678: x_msg_data => l_msg_data,
5671: Ozf_Budgetapproval_Pvt.WF_Respond (
5672: p_api_version => 1.0,
5673: p_init_msg_list => Fnd_Api.G_FALSE,
5674: p_commit => Fnd_Api.G_TRUE,
5675: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
5676: x_return_status => l_return_status,
5677: x_msg_count => l_msg_count,
5678: x_msg_data => l_msg_data,
5679: p_respond_status_id => l_rejected_status_id,
5682: p_approved_amount => l_approved_amount,
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);
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
5692: (p_itemtype => itemtype ,
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
5711: /*
5713: itemkey => itemkey,
5714: x_approver_id => l_new_approver_id,
5715: x_return_status => l_return_status);
5716:
5717: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
5718: RAISE Fnd_Api.G_EXC_ERROR;
5719: END IF;
5720:
5721: IF l_new_approver_id IS NOT NULL THEN
5714: x_approver_id => l_new_approver_id,
5715: x_return_status => l_return_status);
5716:
5717: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
5718: RAISE Fnd_Api.G_EXC_ERROR;
5719: END IF;
5720:
5721: IF l_new_approver_id IS NOT NULL THEN
5722: l_approver_id := l_new_approver_id;
5738: l_appr_hist_rec.approver_id := l_approver_id;
5739:
5740: AMS_Appr_Hist_PVT.Update_Appr_Hist(
5741: p_api_version_number => 1.0,
5742: p_init_msg_list => FND_API.G_FALSE,
5743: p_commit => FND_API.G_FALSE,
5744: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5745: x_return_status => l_return_status,
5746: x_msg_count => l_msg_count,
5739:
5740: AMS_Appr_Hist_PVT.Update_Appr_Hist(
5741: p_api_version_number => 1.0,
5742: p_init_msg_list => FND_API.G_FALSE,
5743: p_commit => FND_API.G_FALSE,
5744: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5745: x_return_status => l_return_status,
5746: x_msg_count => l_msg_count,
5747: x_msg_data => l_msg_data,
5740: AMS_Appr_Hist_PVT.Update_Appr_Hist(
5741: p_api_version_number => 1.0,
5742: p_init_msg_list => FND_API.G_FALSE,
5743: p_commit => FND_API.G_FALSE,
5744: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5745: x_return_status => l_return_status,
5746: x_msg_count => l_msg_count,
5747: x_msg_data => l_msg_data,
5748: p_appr_hist_rec => l_appr_hist_rec
5747: x_msg_data => l_msg_data,
5748: p_appr_hist_rec => l_appr_hist_rec
5749: );
5750:
5751: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
5752: RAISE Fnd_Api.G_EXC_ERROR;
5753: END IF;
5754:
5755: -- Delete any 'OPEN' rows
5748: p_appr_hist_rec => l_appr_hist_rec
5749: );
5750:
5751: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
5752: RAISE Fnd_Api.G_EXC_ERROR;
5753: END IF;
5754:
5755: -- Delete any 'OPEN' rows
5756: AMS_Appr_Hist_PVT.Delete_Appr_Hist(
5754:
5755: -- Delete any 'OPEN' rows
5756: AMS_Appr_Hist_PVT.Delete_Appr_Hist(
5757: p_api_version_number => 1.0,
5758: p_init_msg_list => FND_API.G_FALSE,
5759: p_commit => FND_API.G_FALSE,
5760: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5761: x_return_status => l_return_status,
5762: x_msg_count => l_msg_count,
5755: -- Delete any 'OPEN' rows
5756: AMS_Appr_Hist_PVT.Delete_Appr_Hist(
5757: p_api_version_number => 1.0,
5758: p_init_msg_list => FND_API.G_FALSE,
5759: p_commit => FND_API.G_FALSE,
5760: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5761: x_return_status => l_return_status,
5762: x_msg_count => l_msg_count,
5763: x_msg_data => l_msg_data,
5756: AMS_Appr_Hist_PVT.Delete_Appr_Hist(
5757: p_api_version_number => 1.0,
5758: p_init_msg_list => FND_API.G_FALSE,
5759: p_commit => FND_API.G_FALSE,
5760: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5761: x_return_status => l_return_status,
5762: x_msg_count => l_msg_count,
5763: x_msg_data => l_msg_data,
5764: p_object_id => l_act_budget_id,
5767: p_action_code => 'OPEN',
5768: p_object_version_num => l_version,
5769: p_approval_type => 'BUDGET');
5770:
5771: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
5772: RAISE Fnd_Api.G_EXC_ERROR;
5773: END IF;
5774:
5775: resultout := 'COMPLETE:SUCCESS';
5768: p_object_version_num => l_version,
5769: p_approval_type => 'BUDGET');
5770:
5771: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
5772: RAISE Fnd_Api.G_EXC_ERROR;
5773: END IF;
5774:
5775: resultout := 'COMPLETE:SUCCESS';
5776: RETURN;
5794: END IF;
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);
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
5804: (p_itemtype => itemtype ,
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
5820: (p_itemtype => itemtype ,
5917: -- even during revert
5918:
5919: Ozf_Budgetapproval_Pvt.WF_Respond (
5920: p_api_version => 1.0,
5921: p_init_msg_list => Fnd_Api.G_FALSE,
5922: p_commit => Fnd_Api.G_TRUE,
5923: p_validation_level => Fnd_Api.G_VALID_LEVEL_NONE,
5924: x_return_status => l_return_status,
5925: x_msg_count => l_msg_count,
5918:
5919: Ozf_Budgetapproval_Pvt.WF_Respond (
5920: p_api_version => 1.0,
5921: p_init_msg_list => Fnd_Api.G_FALSE,
5922: p_commit => Fnd_Api.G_TRUE,
5923: p_validation_level => Fnd_Api.G_VALID_LEVEL_NONE,
5924: x_return_status => l_return_status,
5925: x_msg_count => l_msg_count,
5926: x_msg_data => l_msg_data,
5919: Ozf_Budgetapproval_Pvt.WF_Respond (
5920: p_api_version => 1.0,
5921: p_init_msg_list => Fnd_Api.G_FALSE,
5922: p_commit => Fnd_Api.G_TRUE,
5923: p_validation_level => Fnd_Api.G_VALID_LEVEL_NONE,
5924: x_return_status => l_return_status,
5925: x_msg_count => l_msg_count,
5926: x_msg_data => l_msg_data,
5927: p_respond_status_id => NULL,
5930: p_approved_amount => l_approved_amount,
5931: p_approved_currency => l_approved_currency,
5932: p_comment => l_comment);
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:
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
5944: (p_itemtype => itemtype ,
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
5964: l_version := Wf_Engine.GetItemAttrNumber(
5968:
5969: -- Delete all rows
5970: AMS_Appr_Hist_PVT.Delete_Appr_Hist(
5971: p_api_version_number => 1.0,
5972: p_init_msg_list => FND_API.G_FALSE,
5973: p_commit => FND_API.G_FALSE,
5974: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5975: x_return_status => l_return_status,
5976: x_msg_count => l_msg_count,
5969: -- Delete all rows
5970: AMS_Appr_Hist_PVT.Delete_Appr_Hist(
5971: p_api_version_number => 1.0,
5972: p_init_msg_list => FND_API.G_FALSE,
5973: p_commit => FND_API.G_FALSE,
5974: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5975: x_return_status => l_return_status,
5976: x_msg_count => l_msg_count,
5977: x_msg_data => l_msg_data,
5970: AMS_Appr_Hist_PVT.Delete_Appr_Hist(
5971: p_api_version_number => 1.0,
5972: p_init_msg_list => FND_API.G_FALSE,
5973: p_commit => FND_API.G_FALSE,
5974: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5975: x_return_status => l_return_status,
5976: x_msg_count => l_msg_count,
5977: x_msg_data => l_msg_data,
5978: p_object_id => l_act_budget_id,
5981: p_action_code => null,
5982: p_object_version_num => l_version,
5983: p_approval_type => 'BUDGET');
5984:
5985: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
5986: RAISE Fnd_Api.G_EXC_ERROR;
5987: END IF;
5988:
5989: -- end 11.5.9 addition
5982: p_object_version_num => l_version,
5983: p_approval_type => 'BUDGET');
5984:
5985: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
5986: RAISE Fnd_Api.G_EXC_ERROR;
5987: END IF;
5988:
5989: -- end 11.5.9 addition
5990: resultout := 'COMPLETE:SUCCESS';
6009: END IF;
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);
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
6019: (p_itemtype => itemtype ,
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
6035: (p_itemtype => itemtype ,
6086: itemtype => itemtype,
6087: itemkey => itemkey,
6088: aname => 'AMS_PARENT_WAITING' );
6089:
6090: IF l_parent_waiting_flag = Fnd_Api.G_TRUE THEN
6091: resultout := 'COMPLETE:Y';
6092: RETURN;
6093: ELSE
6094: resultout := 'COMPLETE:N';
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
6129: (p_itemtype => itemtype ,
6211: aname => 'AMS_CONTINUEFLOW',
6212: avalue => 'CONTINUEFLOW');
6213:
6214: -- check condition for approval flag coming from parent
6215: IF l_parent_approval_flag = Fnd_Api.G_FALSE THEN
6216: -- check if activity meets the approval condition
6217: Get_Approval_Rules(p_activity_type => l_activity_type ,
6218: p_activity_id => l_activity_id,
6219: p_activity_amount => l_approval_amount,
6218: p_activity_id => l_activity_id,
6219: p_activity_amount => l_approval_amount,
6220: x_approved_flag => l_approval_flag );
6221:
6222: IF l_approval_flag = Fnd_Api.G_TRUE THEN
6223: -- set continue to true
6224: l_continue_flag := Fnd_Api.G_TRUE;
6225:
6226: Wf_Engine.SetItemAttrText(itemtype => itemtype,
6220: x_approved_flag => l_approval_flag );
6221:
6222: IF l_approval_flag = Fnd_Api.G_TRUE THEN
6223: -- set continue to true
6224: l_continue_flag := Fnd_Api.G_TRUE;
6225:
6226: Wf_Engine.SetItemAttrText(itemtype => itemtype,
6227: itemkey => itemkey,
6228: aname => 'AMS_CONTINUE_FLOW',
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
6277: (p_itemtype => itemtype ,
6351: FETCH lines_due_csr INTO l_line_id;
6352: CLOSE lines_due_csr;
6353:
6354: IF l_line_id IS NOT NULL THEN
6355: l_remaining_flag := Fnd_Api.G_TRUE;
6356: ELSE
6357: l_remaining_flag := Fnd_Api.G_FALSE;
6358: END IF;
6359:
6353:
6354: IF l_line_id IS NOT NULL THEN
6355: l_remaining_flag := Fnd_Api.G_TRUE;
6356: ELSE
6357: l_remaining_flag := Fnd_Api.G_FALSE;
6358: END IF;
6359:
6360: -- continue to parent if no more lines remain
6361: IF l_remaining_flag = Fnd_Api.G_FALSE THEN
6357: l_remaining_flag := Fnd_Api.G_FALSE;
6358: END IF;
6359:
6360: -- continue to parent if no more lines remain
6361: IF l_remaining_flag = Fnd_Api.G_FALSE THEN
6362: -- set continue to true
6363: l_continue_flag := Fnd_Api.G_TRUE;
6364:
6365: Wf_Engine.SetItemAttrText(itemtype => itemtype,
6359:
6360: -- continue to parent if no more lines remain
6361: IF l_remaining_flag = Fnd_Api.G_FALSE THEN
6362: -- set continue to true
6363: l_continue_flag := Fnd_Api.G_TRUE;
6364:
6365: Wf_Engine.SetItemAttrText(itemtype => itemtype,
6366: itemkey => itemkey,
6367: aname => 'AMS_CONTINUE_FLOW',
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
6407: (p_itemtype => itemtype ,
6472: itemtype => itemtype,
6473: itemkey => itemkey,
6474: aname => 'AMS_CONTINUE_FLOW' );
6475:
6476: IF l_continue_flag = Fnd_Api.G_TRUE THEN
6477: -- get the activity id
6478: l_activity_id := Wf_Engine.GetItemAttrNumber(
6479: itemtype => itemtype,
6480: itemkey => itemkey,
6493: aname => 'AMS_PARENT_ITEMKEY' );
6494:
6495: -- set continue flow to FALSE for other lines in the same activity
6496: --
6497: l_continue_flag := Fnd_Api.G_FALSE;
6498: l_parent_approved := Fnd_Api.G_TRUE;
6499:
6500: OPEN pending_lines_csr(l_activity_id, l_activity_type);
6501: LOOP
6494:
6495: -- set continue flow to FALSE for other lines in the same activity
6496: --
6497: l_continue_flag := Fnd_Api.G_FALSE;
6498: l_parent_approved := Fnd_Api.G_TRUE;
6499:
6500: OPEN pending_lines_csr(l_activity_id, l_activity_type);
6501: LOOP
6502: FETCH pending_lines_csr INTO l_line_id, l_version;
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
6558: (p_itemtype => itemtype ,
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
6661: (p_itemtype => itemtype ,
6751: avalue => p_usedby_object_type_name );
6752:
6753:
6754:
6755: -- l_return_status := FND_API.G_RET_STS_SUCCESS;
6756:
6757: -- check for description of activity
6758:
6759: -- Setting up the role
6761: x_role_name => l_delv_user_role,
6762: x_role_display_name => l_delv_user_name,
6763: x_return_status => l_return_status);
6764:
6765: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
6766: RAISE Fnd_Api.G_EXC_ERROR;
6767: END IF;
6768:
6769:
6762: x_role_display_name => l_delv_user_name,
6763: x_return_status => l_return_status);
6764:
6765: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
6766: RAISE Fnd_Api.G_EXC_ERROR;
6767: END IF;
6768:
6769:
6770: Wf_Engine.SetItemAttrText(itemtype => itemtype,
6776: x_role_name => l_requester_role,
6777: x_role_display_name => l_delv_requester_name,
6778: x_return_status => l_return_status);
6779:
6780: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
6781: RAISE Fnd_Api.G_EXC_ERROR;
6782: END IF;
6783:
6784:
6777: x_role_display_name => l_delv_requester_name,
6778: x_return_status => l_return_status);
6779:
6780: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
6781: RAISE Fnd_Api.G_EXC_ERROR;
6782: END IF;
6783:
6784:
6785: Wf_Engine.SetItemOwner(itemtype => itemtype,
6792: itemkey => itemkey);
6793:
6794:
6795: EXCEPTION
6796: WHEN Fnd_Api.G_EXC_ERROR THEN
6797: Wf_Core.context ('ams_approval_pvt', 'DelvStartProcess'
6798: ,p_deliverable_id ,p_workflowprocess);
6799: RAISE;
6800: WHEN OTHERS THEN
6849: p_budget_used_by_id => l_activity_id
6850: ,p_budget_used_by_type => l_activity_type
6851: ,p_object_currency => l_approved_currency
6852: ,p_api_version => 1.0
6853: ,p_init_msg_list => Fnd_Api.g_false
6854: ,p_commit => Fnd_Api.g_false
6855: ,p_validation_level => Fnd_Api.g_valid_level_full
6856: ,x_return_status => l_return_status
6857: ,x_msg_count => l_msg_count
6850: ,p_budget_used_by_type => l_activity_type
6851: ,p_object_currency => l_approved_currency
6852: ,p_api_version => 1.0
6853: ,p_init_msg_list => Fnd_Api.g_false
6854: ,p_commit => Fnd_Api.g_false
6855: ,p_validation_level => Fnd_Api.g_valid_level_full
6856: ,x_return_status => l_return_status
6857: ,x_msg_count => l_msg_count
6858: ,x_msg_data => l_msg_data
6851: ,p_object_currency => l_approved_currency
6852: ,p_api_version => 1.0
6853: ,p_init_msg_list => Fnd_Api.g_false
6854: ,p_commit => Fnd_Api.g_false
6855: ,p_validation_level => Fnd_Api.g_valid_level_full
6856: ,x_return_status => l_return_status
6857: ,x_msg_count => l_msg_count
6858: ,x_msg_data => l_msg_data
6859: );
6856: ,x_return_status => l_return_status
6857: ,x_msg_count => l_msg_count
6858: ,x_msg_data => l_msg_data
6859: );
6860: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
6861: RAISE Fnd_Api.G_EXC_ERROR;
6862: ELSE
6863: OPEN c_find_child(itemkey, itemtype);
6864: FETCH c_find_child INTO l_child_item_type, l_child_item_key;
6857: ,x_msg_count => l_msg_count
6858: ,x_msg_data => l_msg_data
6859: );
6860: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
6861: RAISE Fnd_Api.G_EXC_ERROR;
6862: ELSE
6863: OPEN c_find_child(itemkey, itemtype);
6864: FETCH c_find_child INTO l_child_item_type, l_child_item_key;
6865: IF c_find_child%FOUND THEN
6874: END IF;
6875: CLOSE c_find_child;
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,
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
6885: (p_itemtype => itemtype ,
6948: x_msg_data => l_msg_data);
6949:
6950: -- After Call to API
6951:
6952: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
6953:
6954: Handle_Err
6955: (p_itemtype => itemtype,
6956: p_itemkey => itemkey,
6991: RETURN;
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
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: );
7001: Handle_Err
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
7020: (p_itemtype => itemtype ,
7321: x_resource_id => l_new_approver_id,
7322: x_resource_disp_name => l_appr_display_name,
7323: x_return_status => l_return_status);
7324:
7325: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
7326: RAISE Fnd_Api.G_EXC_ERROR;
7327: END IF;
7328:
7329: -- Set the WF Attributes
7322: x_resource_disp_name => l_appr_display_name,
7323: x_return_status => l_return_status);
7324:
7325: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
7326: RAISE Fnd_Api.G_EXC_ERROR;
7327: END IF;
7328:
7329: -- Set the WF Attributes
7330: wf_engine.SetItemAttrText( itemtype => itemtype,
7390: l_appr_hist_rec.approver_id := l_new_approver_id;
7391:
7392: AMS_Appr_Hist_PVT.Update_Appr_Hist(
7393: p_api_version_number => 1.0,
7394: p_init_msg_list => FND_API.G_FALSE,
7395: p_commit => FND_API.G_FALSE,
7396: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
7397: x_return_status => l_return_status,
7398: x_msg_count => l_msg_count,
7391:
7392: AMS_Appr_Hist_PVT.Update_Appr_Hist(
7393: p_api_version_number => 1.0,
7394: p_init_msg_list => FND_API.G_FALSE,
7395: p_commit => FND_API.G_FALSE,
7396: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
7397: x_return_status => l_return_status,
7398: x_msg_count => l_msg_count,
7399: x_msg_data => l_msg_data,
7392: AMS_Appr_Hist_PVT.Update_Appr_Hist(
7393: p_api_version_number => 1.0,
7394: p_init_msg_list => FND_API.G_FALSE,
7395: p_commit => FND_API.G_FALSE,
7396: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
7397: x_return_status => l_return_status,
7398: x_msg_count => l_msg_count,
7399: x_msg_data => l_msg_data,
7400: p_appr_hist_rec => l_appr_hist_rec
7399: x_msg_data => l_msg_data,
7400: p_appr_hist_rec => l_appr_hist_rec
7401: );
7402:
7403: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
7404: RAISE Fnd_Api.G_EXC_ERROR;
7405: END IF;
7406:
7407: resultout := 'COMPLETE';
7400: p_appr_hist_rec => l_appr_hist_rec
7401: );
7402:
7403: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
7404: RAISE Fnd_Api.G_EXC_ERROR;
7405: END IF;
7406:
7407: resultout := 'COMPLETE';
7408:
7407: resultout := 'COMPLETE';
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
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: );
7417: Handle_Err
7485: x_msg_data => l_msg_data);
7486:
7487: -- After Call to API
7488:
7489: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
7490:
7491: Handle_Err
7492: (p_itemtype => itemtype,
7493: p_itemkey => itemkey,
7528: RETURN;
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
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: );
7538: Handle_Err
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
7557: (p_itemtype => itemtype ,
7681: AND rr.role_id = l_obj_approver_id
7682: AND rr.role_resource_id = p_requestor_id;
7683:
7684: BEGIN
7685: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
7686: x_must_preview := 'Y'; -- Default is must preview
7687: Get_Approval_Rule ( p_activity_id => p_activity_id,
7688: p_activity_type => p_activity_type,
7689: p_approval_type => p_approval_type,
7690: p_act_budget_id => p_act_budget_id,
7691: x_approval_detail_Id => l_approval_detail_id,
7692: x_return_status => l_return_status);
7693:
7694: IF l_return_status = Fnd_Api.G_RET_STS_SUCCESS
7695: AND l_approval_detail_id IS NOT NULL THEN
7696:
7697: OPEN c_is_only_approver(l_approval_detail_id);
7698: FETCH c_is_only_approver INTO l_approver_type, l_obj_approver_id;