[Home] [Help]
40: CLOSE c_resource ;
41: -- Note API to Update Approval Notes
42: AMS_ObjectAttribute_PVT.modify_object_attribute(
43: p_api_version => 1.0,
44: p_init_msg_list => FND_API.g_false,
45: p_commit => FND_API.g_false,
46: p_validation_level => FND_API.g_valid_level_full,
47: x_return_status => x_return_status,
48: x_msg_count => x_msg_count,
41: -- Note API to Update Approval Notes
42: AMS_ObjectAttribute_PVT.modify_object_attribute(
43: p_api_version => 1.0,
44: p_init_msg_list => FND_API.g_false,
45: p_commit => FND_API.g_false,
46: p_validation_level => FND_API.g_valid_level_full,
47: x_return_status => x_return_status,
48: x_msg_count => x_msg_count,
49: x_msg_data => x_msg_data,
42: AMS_ObjectAttribute_PVT.modify_object_attribute(
43: p_api_version => 1.0,
44: p_init_msg_list => FND_API.g_false,
45: p_commit => FND_API.g_false,
46: p_validation_level => FND_API.g_valid_level_full,
47: x_return_status => x_return_status,
48: x_msg_count => x_msg_count,
49: x_msg_data => x_msg_data,
50: p_object_type => p_activity_type,
51: p_object_id => p_activity_id ,
52: p_attr => 'NOTE',
53: p_attr_defined_flag => 'Y'
54: );
55: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
56: FND_MESSAGE.Set_Name('AMS','AMS_API_DEBUG_MESSAGE');
57: FND_MESSAGE.Set_Token('ROW', sqlerrm );
58: FND_MSG_PUB.Add;
59: END IF;
73: x_jtf_note_id => l_id ,
74: p_note_type => 'AMS_APPROVAL' ,
75: p_last_update_date => SYSDATE ,
76: p_creation_date => SYSDATE ) ;
77: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
78: FND_MESSAGE.Set_Name('AMS','AMS_API_DEBUG_MESSAGE');
79: FND_MESSAGE.Set_Token('ROW', sqlerrm );
80: FND_MSG_PUB.Add;
81: END IF;
104: FROM ams_jtf_rs_emp_v
105: WHERE resource_id = p_user_id ;
106: l_person_id number;
107: BEGIN
108: x_return_status := FND_API.G_RET_STS_SUCCESS;
109: OPEN c_resource ;
110: FETCH c_resource INTO l_person_id ;
111: IF c_resource%NOTFOUND THEN
112: x_return_status := FND_API.G_RET_STS_ERROR;
108: x_return_status := FND_API.G_RET_STS_SUCCESS;
109: OPEN c_resource ;
110: FETCH c_resource INTO l_person_id ;
111: IF c_resource%NOTFOUND THEN
112: x_return_status := FND_API.G_RET_STS_ERROR;
113: FND_MESSAGE.Set_Name('AMS','AMS_APPR_INVALID_RESOURCE_ID');
114: FND_MSG_PUB.Add;
115: END IF;
116: CLOSE c_resource ;
120: p_orig_system_id => l_person_id ,
121: p_name => x_role_name,
122: p_display_name => x_role_display_name );
123: IF x_role_name is null then
124: x_return_status := FND_API.G_RET_STS_ERROR;
125: FND_MESSAGE.Set_Name('AMS','AMS_APPR_INVALID_ROLE');
126: FND_MSG_PUB.Add;
127: END IF;
128: END Get_User_Role;
134: x_resource_disp_name OUT NOCOPY VARCHAR2,
135: x_return_status OUT NOCOPY VARCHAR2)
136:
137: IS
138: l_return_status VARCHAR2(1) := Fnd_Api.G_RET_STS_SUCCESS;
139: l_email VARCHAR2(360);
140: l_notif_pref VARCHAR2(30);
141: l_language VARCHAR2(30);
142: l_territory VARCHAR2(30);
159:
160: OPEN c_res_details(p_responder);
161: FETCH c_res_details INTO x_resource_id;
162: IF c_res_details%NOTFOUND THEN
163: l_return_status := Fnd_Api.G_RET_STS_ERROR;
164: END IF;
165: CLOSE c_res_details;
166:
167: x_return_status := l_return_status;
192: OPEN c_check_app;
193: FETCH c_check_app
194: INTO x_next_seq;
195: IF c_check_app%NOTFOUND THEN
196: x_required_flag := FND_API.G_FALSE;
197: ELSE
198: x_required_flag := FND_API.G_TRUE;
199: END IF;
200: CLOSE c_check_app;
194: INTO x_next_seq;
195: IF c_check_app%NOTFOUND THEN
196: x_required_flag := FND_API.G_FALSE;
197: ELSE
198: x_required_flag := FND_API.G_TRUE;
199: END IF;
200: CLOSE c_check_app;
201: END Check_Approval_Required;
202:
303: FROM ams_object_rules_b
304: WHERE OBJECT_RULE_ID = id_in;
305:
306: BEGIN
307: x_return_status := FND_API.G_RET_STS_SUCCESS;
308: OPEN c_approver_info;
309: FETCH c_approver_info
310: INTO x_approver_id,
311: x_approver_type,
320: CLOSE c_rule_name;
321: Fnd_Message.Set_Name('AMS','AMS_NO_APPR_FOR_RULE');
322: Fnd_Message.Set_Token('RULE_NAME',l_rule_name);
323: FND_MSG_PUB.Add;
324: x_return_status := FND_API.G_RET_STS_ERROR;
325: return;
326: END IF;
327:
328: /*
333: CLOSE c_API_Name;
334: --dbms_output.put_line('In Role Check 2');
335: FND_MESSAGE.Set_Name('AMS','AMS_APPR_INVALID_API_NAME');
336: FND_MSG_PUB.Add;
337: x_return_status := FND_API.G_RET_STS_ERROR;
338: return;
339: END IF;
340: CLOSE c_API_Name;
341: dml_str := 'BEGIN ' || l_pkg_name||'.'||l_proc_name||'(:x_approver_id,:x_approver_type,:x_msg_count, x_msg_data,:x_return_status); END;';
339: END IF;
340: CLOSE c_API_Name;
341: dml_str := 'BEGIN ' || l_pkg_name||'.'||l_proc_name||'(:x_approver_id,:x_approver_type,:x_msg_count, x_msg_data,:x_return_status); END;';
342: EXECUTE IMMEDIATE dml_str USING OUT x_approver_id,OUT x_approver_type, OUT x_msg_count, OUT x_msg_data,OUT x_return_status;
343: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
344: FND_MESSAGE.Set_Name('AMS','AMS_APPR_FUNCTION_API_FAIL');
345: FND_MSG_PUB.Add;
346: x_return_status := FND_API.G_RET_STS_ERROR;
347: return;
342: EXECUTE IMMEDIATE dml_str USING OUT x_approver_id,OUT x_approver_type, OUT x_msg_count, OUT x_msg_data,OUT x_return_status;
343: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
344: FND_MESSAGE.Set_Name('AMS','AMS_APPR_FUNCTION_API_FAIL');
345: FND_MSG_PUB.Add;
346: x_return_status := FND_API.G_RET_STS_ERROR;
347: return;
348: END IF;
349: END IF;
350: */
358: CLOSE c_default_role_info ;
359: Fnd_Message.Set_Name('AMS','AMS_NO_DEFAULT_ROLE'); -- VMODUR added
360: --FND_MESSAGE.Set_Name('AMS','AMS_APPR_INVALID_ROLE');
361: FND_MSG_PUB.Add;
362: x_return_status := FND_API.G_RET_STS_ERROR;
363: return;
364: END IF;
365: CLOSE c_default_role_info ;
366: end if;
373: --dbms_output.put_line('In Role Check 2');
374: Fnd_Message.Set_Name('AMS','AMS_MANY_DEFAULT_ROLE'); -- VMODUR added
375: --FND_MESSAGE.Set_Name('AMS','AMS_APPR_INVALID_ROLE');
376: FND_MSG_PUB.Add;
377: x_return_status := FND_API.G_RET_STS_ERROR;
378: return;
379: END IF;
380: CLOSE c_role_info_count;
381: OPEN c_role_info;
385: CLOSE c_role_info;
386: --dbms_output.put_line('In Role Check 3');
387: FND_MESSAGE.Set_Name('AMS','AMS_APPR_INVALID_ROLE');
388: FND_MSG_PUB.Add;
389: x_return_status := FND_API.G_RET_STS_ERROR;
390: return;
391: END IF;
392: CLOSE c_role_info;
393: END IF; --x_approval_type = ROLE;
465: WHILE l_cnt < p_msg_count
466: LOOP
467: FND_MSG_PUB.Get
468: (p_msg_index => l_cnt + 1,
469: p_encoded => FND_API.G_FALSE,
470: p_data => l_msg_data,
471: p_msg_index_out => l_msg_index ) ;
472: l_final_data := l_final_data ||l_msg_index||': '
473: ||l_msg_data||fnd_global.local_chr(10) ;
537: x_approver_seq OUT NOCOPY NUMBER,
538: x_return_status OUT NOCOPY VARCHAR2)
539: IS
540:
541: l_amount NUMBER := 0; -- FND_API.G_MISS_NUM
542: l_business_unit_id NUMBER := -9999; -- FND_API.G_MISS_NUM
543: l_country_code VARCHAR2(30) := '-9999'; -- FND_API.G_MISS_CHAR
544: l_org_id NUMBER := -9999; -- FND_API.G_MISS_NUM
545: l_setup_type_id NUMBER := -9999; -- FND_API.G_MISS_NUM
538: x_return_status OUT NOCOPY VARCHAR2)
539: IS
540:
541: l_amount NUMBER := 0; -- FND_API.G_MISS_NUM
542: l_business_unit_id NUMBER := -9999; -- FND_API.G_MISS_NUM
543: l_country_code VARCHAR2(30) := '-9999'; -- FND_API.G_MISS_CHAR
544: l_org_id NUMBER := -9999; -- FND_API.G_MISS_NUM
545: l_setup_type_id NUMBER := -9999; -- FND_API.G_MISS_NUM
546: l_object_type VARCHAR2(30) := '-9999'; -- FND_API.G_MISS_CHAR
539: IS
540:
541: l_amount NUMBER := 0; -- FND_API.G_MISS_NUM
542: l_business_unit_id NUMBER := -9999; -- FND_API.G_MISS_NUM
543: l_country_code VARCHAR2(30) := '-9999'; -- FND_API.G_MISS_CHAR
544: l_org_id NUMBER := -9999; -- FND_API.G_MISS_NUM
545: l_setup_type_id NUMBER := -9999; -- FND_API.G_MISS_NUM
546: l_object_type VARCHAR2(30) := '-9999'; -- FND_API.G_MISS_CHAR
547: l_priority VARCHAR2(30) := '-9999'; -- FND_API.G_MISS_CHAR
540:
541: l_amount NUMBER := 0; -- FND_API.G_MISS_NUM
542: l_business_unit_id NUMBER := -9999; -- FND_API.G_MISS_NUM
543: l_country_code VARCHAR2(30) := '-9999'; -- FND_API.G_MISS_CHAR
544: l_org_id NUMBER := -9999; -- FND_API.G_MISS_NUM
545: l_setup_type_id NUMBER := -9999; -- FND_API.G_MISS_NUM
546: l_object_type VARCHAR2(30) := '-9999'; -- FND_API.G_MISS_CHAR
547: l_priority VARCHAR2(30) := '-9999'; -- FND_API.G_MISS_CHAR
548: l_approver_id NUMBER;
541: l_amount NUMBER := 0; -- FND_API.G_MISS_NUM
542: l_business_unit_id NUMBER := -9999; -- FND_API.G_MISS_NUM
543: l_country_code VARCHAR2(30) := '-9999'; -- FND_API.G_MISS_CHAR
544: l_org_id NUMBER := -9999; -- FND_API.G_MISS_NUM
545: l_setup_type_id NUMBER := -9999; -- FND_API.G_MISS_NUM
546: l_object_type VARCHAR2(30) := '-9999'; -- FND_API.G_MISS_CHAR
547: l_priority VARCHAR2(30) := '-9999'; -- FND_API.G_MISS_CHAR
548: l_approver_id NUMBER;
549: l_object_details ObjRecTyp;
542: l_business_unit_id NUMBER := -9999; -- FND_API.G_MISS_NUM
543: l_country_code VARCHAR2(30) := '-9999'; -- FND_API.G_MISS_CHAR
544: l_org_id NUMBER := -9999; -- FND_API.G_MISS_NUM
545: l_setup_type_id NUMBER := -9999; -- FND_API.G_MISS_NUM
546: l_object_type VARCHAR2(30) := '-9999'; -- FND_API.G_MISS_CHAR
547: l_priority VARCHAR2(30) := '-9999'; -- FND_API.G_MISS_CHAR
548: l_approver_id NUMBER;
549: l_object_details ObjRecTyp;
550: l_activity_type VARCHAR2(30);
543: l_country_code VARCHAR2(30) := '-9999'; -- FND_API.G_MISS_CHAR
544: l_org_id NUMBER := -9999; -- FND_API.G_MISS_NUM
545: l_setup_type_id NUMBER := -9999; -- FND_API.G_MISS_NUM
546: l_object_type VARCHAR2(30) := '-9999'; -- FND_API.G_MISS_CHAR
547: l_priority VARCHAR2(30) := '-9999'; -- FND_API.G_MISS_CHAR
548: l_approver_id NUMBER;
549: l_object_details ObjRecTyp;
550: l_activity_type VARCHAR2(30);
551: l_activity_id NUMBER;
664:
665:
666:
667: BEGIN
668: x_return_status := FND_API.G_RET_STS_SUCCESS;
669:
670:
671:
672:
768: IF c_approver_def%NOTFOUND THEN
769: CLOSE c_approver_def ;
770: FND_MESSAGE.Set_Name('AMS','AMS_NO_APPROVAL_DETAIL_ID');
771: FND_MSG_PUB.Add;
772: x_return_status := FND_API.G_RET_STS_ERROR;
773: return;
774: END IF;
775: CLOSE c_approver_def ;
776: ELSE
788: IF c_approver_def%NOTFOUND THEN
789: CLOSE c_approver_def ;
790: FND_MESSAGE.Set_Name('AMS','AMS_NO_APPROVAL_DETAIL_ID');
791: FND_MSG_PUB.Add;
792: x_return_status := FND_API.G_RET_STS_ERROR;
793: return;
794: END IF;
795: CLOSE c_approver_def ;
796: ELSE
804: CLOSE c_approver_seq;
805: IF l_seeded_flag = 'Y' THEN
806: FND_MESSAGE.Set_Name('AMS','AMS_NO_APPROVER_SEQUENCE');
807: FND_MSG_PUB.Add;
808: x_return_status := FND_API.G_RET_STS_ERROR;
809: return;
810: else
811: OPEN c_approver_def ;
812: FETCH c_approver_def INTO x_approval_detail_id, l_seeded_flag;
813: IF c_approver_def%NOTFOUND THEN
814: CLOSE c_approver_def ;
815: FND_MESSAGE.Set_Name('AMS','AMS_NO_APPROVAL_DETAIL_ID');
816: FND_MSG_PUB.Add;
817: x_return_status := FND_API.G_RET_STS_ERROR;
818: return;
819: END IF;
820: CLOSE c_approver_def ;
821: OPEN c_approver_seq ;
823: IF c_approver_seq%NOTFOUND THEN
824: CLOSE c_approver_seq;
825: FND_MESSAGE.Set_Name('AMS','AMS_NO_APPROVER_SEQUENCE');
826: FND_MSG_PUB.Add;
827: x_return_status := FND_API.G_RET_STS_ERROR;
828: return;
829: END IF;
830: END IF;
831: END IF;
922: -- Delete any previous approval history
923:
924: AMS_Appr_Hist_PVT.Delete_Appr_Hist(
925: p_api_version_number => 1.0,
926: p_init_msg_list => FND_API.G_FALSE,
927: p_commit => FND_API.G_FALSE,
928: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
929: x_return_status => l_return_status,
930: x_msg_count => l_msg_count,
923:
924: AMS_Appr_Hist_PVT.Delete_Appr_Hist(
925: p_api_version_number => 1.0,
926: p_init_msg_list => FND_API.G_FALSE,
927: p_commit => FND_API.G_FALSE,
928: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
929: x_return_status => l_return_status,
930: x_msg_count => l_msg_count,
931: x_msg_data => l_msg_data,
924: AMS_Appr_Hist_PVT.Delete_Appr_Hist(
925: p_api_version_number => 1.0,
926: p_init_msg_list => FND_API.G_FALSE,
927: p_commit => FND_API.G_FALSE,
928: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
929: x_return_status => l_return_status,
930: x_msg_count => l_msg_count,
931: x_msg_data => l_msg_data,
932: p_object_id => p_activity_id,
935: p_action_code => null,
936: p_object_version_num => null,
937: p_approval_type => p_approval_type);
938:
939: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
940: RAISE Fnd_Api.G_EXC_ERROR;
941: END IF;
942:
943:
936: p_object_version_num => null,
937: p_approval_type => p_approval_type);
938:
939: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
940: RAISE Fnd_Api.G_EXC_ERROR;
941: END IF;
942:
943:
944: AMS_Utility_PVT.debug_message('Start :Item Type : '||itemtype
1049: itemkey => itemkey,
1050: aname => 'AMS_REQUESTER_ID',
1051: avalue => p_requester_userid );
1052:
1053: l_return_status := FND_API.G_RET_STS_SUCCESS;
1054:
1055:
1056: WF_ENGINE.SetItemAttrText(itemtype => itemtype ,
1057: itemkey => itemkey,
1063: x_role_name => l_requester_role,
1064: x_role_display_name => l_display_name,
1065: x_return_status => l_return_status);
1066:
1067: IF l_return_status <> FND_API.G_RET_STS_SUCCESS then
1068: RAISE FND_API.G_EXC_ERROR;
1069: END IF;
1070:
1071:
1064: x_role_display_name => l_display_name,
1065: x_return_status => l_return_status);
1066:
1067: IF l_return_status <> FND_API.G_RET_STS_SUCCESS then
1068: RAISE FND_API.G_EXC_ERROR;
1069: END IF;
1070:
1071:
1072: WF_ENGINE.SetItemAttrText(itemtype => itemtype,
1104: l_appr_hist_rec.approver_type := 'USER'; -- User always submits
1105: --
1106: AMS_Appr_Hist_PVT.Create_Appr_Hist(
1107: p_api_version_number => 1.0,
1108: p_init_msg_list => FND_API.G_FALSE,
1109: p_commit => FND_API.G_FALSE,
1110: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1111: x_return_status => l_return_status,
1112: x_msg_count => l_msg_count,
1105: --
1106: AMS_Appr_Hist_PVT.Create_Appr_Hist(
1107: p_api_version_number => 1.0,
1108: p_init_msg_list => FND_API.G_FALSE,
1109: p_commit => FND_API.G_FALSE,
1110: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1111: x_return_status => l_return_status,
1112: x_msg_count => l_msg_count,
1113: x_msg_data => l_msg_data,
1106: AMS_Appr_Hist_PVT.Create_Appr_Hist(
1107: p_api_version_number => 1.0,
1108: p_init_msg_list => FND_API.G_FALSE,
1109: p_commit => FND_API.G_FALSE,
1110: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1111: x_return_status => l_return_status,
1112: x_msg_count => l_msg_count,
1113: x_msg_data => l_msg_data,
1114: p_appr_hist_rec => l_appr_hist_rec
1113: x_msg_data => l_msg_data,
1114: p_appr_hist_rec => l_appr_hist_rec
1115: );
1116:
1117: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
1118: RAISE Fnd_Api.G_EXC_ERROR;
1119: END IF;
1120: -- wf_engine.threshold := l_save_threshold ;
1121: EXCEPTION
1114: p_appr_hist_rec => l_appr_hist_rec
1115: );
1116:
1117: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
1118: RAISE Fnd_Api.G_EXC_ERROR;
1119: END IF;
1120: -- wf_engine.threshold := l_save_threshold ;
1121: EXCEPTION
1122:
1119: END IF;
1120: -- wf_engine.threshold := l_save_threshold ;
1121: EXCEPTION
1122:
1123: WHEN FND_API.G_EXC_ERROR THEN
1124: -- wf_engine.threshold := l_save_threshold ;
1125: FND_MSG_PUB.Count_And_Get (
1126: p_encoded => FND_API.G_FALSE,
1127: p_count => l_msg_count,
1122:
1123: WHEN FND_API.G_EXC_ERROR THEN
1124: -- wf_engine.threshold := l_save_threshold ;
1125: FND_MSG_PUB.Count_And_Get (
1126: p_encoded => FND_API.G_FALSE,
1127: p_count => l_msg_count,
1128: p_data => l_msg_data);
1129:
1130: Handle_Err
1140: if(l_msg_count > 0)then
1141: for I in 1 .. l_msg_count LOOP
1142: fnd_msg_pub.Get
1143: (p_msg_index => FND_MSG_PUB.G_NEXT,
1144: p_encoded => FND_API.G_FALSE,
1145: p_data => l_msg_data,
1146: p_msg_index_out => l_index);
1147: dbms_output.put_line('message :'||l_msg_data);
1148: end loop;
1153: RAISE;
1154: WHEN OTHERS THEN
1155: -- wf_engine.threshold := l_save_threshold ;
1156: FND_MSG_PUB.Count_And_Get (
1157: p_encoded => FND_API.G_FALSE,
1158: p_count => l_msg_count,
1159: p_data => l_msg_data);
1160:
1161:
1162: if(l_msg_count > 0)then
1163: for I in 1 .. l_msg_count LOOP
1164: fnd_msg_pub.Get
1165: (p_msg_index => FND_MSG_PUB.G_NEXT,
1166: p_encoded => FND_API.G_FALSE,
1167: p_data => l_msg_data,
1168: p_msg_index_out => l_index);
1169: dbms_output.put_line('message :'||l_msg_data);
1170: end loop;
1244: EXECUTE IMMEDIATE dml_str USING IN itemtype,IN itemkey,IN actid,IN funcmode, OUT resultout;
1245:
1246: -- [BEGIN OF BUG2540804 FIXING 08/29/2002 - mchnag]
1247: ELSE
1248: RAISE FND_API.G_EXC_ERROR;
1249: END IF;
1250:
1251: --resultout := 'COMPLETE:SUCCESS';
1252: -- [END OF BUG2540804 FIXING]
1271: END IF;
1272: --
1273:
1274: EXCEPTION
1275: WHEN FND_API.G_EXC_ERROR THEN
1276: wf_core.context('ams_gen_approval_pvt','Set_Activity_Details',
1277: itemtype,itemkey,actid,funcmode,l_error_msg);
1278: raise;
1279: WHEN OTHERS THEN
1277: itemtype,itemkey,actid,funcmode,l_error_msg);
1278: raise;
1279: WHEN OTHERS THEN
1280: FND_MSG_PUB.Count_And_Get (
1281: p_encoded => FND_API.G_FALSE,
1282: p_count => l_msg_count,
1283: p_data => l_msg_data
1284: );
1285: Handle_Err
1435: x_notification_type => l_notification_type,
1436: x_notification_timeout => l_notification_type,
1437: x_return_status => l_return_status);
1438:
1439: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
1440: RAISE FND_API.G_EXC_ERROR;
1441: --RETURN;
1442: END IF;
1443:
1436: x_notification_timeout => l_notification_type,
1437: x_return_status => l_return_status);
1438:
1439: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
1440: RAISE FND_API.G_EXC_ERROR;
1441: --RETURN;
1442: END IF;
1443:
1444: -- Bug 2729108 Fix
1466: l_appr_hist_rec.approver_id := l_obj_appr_id;
1467:
1468: AMS_Appr_Hist_PVT.Create_Appr_Hist(
1469: p_api_version_number => 1.0,
1470: p_init_msg_list => FND_API.G_FALSE,
1471: p_commit => FND_API.G_FALSE,
1472: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1473: x_return_status => l_return_status,
1474: x_msg_count => l_msg_count,
1467:
1468: AMS_Appr_Hist_PVT.Create_Appr_Hist(
1469: p_api_version_number => 1.0,
1470: p_init_msg_list => FND_API.G_FALSE,
1471: p_commit => FND_API.G_FALSE,
1472: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1473: x_return_status => l_return_status,
1474: x_msg_count => l_msg_count,
1475: x_msg_data => l_msg_data,
1468: AMS_Appr_Hist_PVT.Create_Appr_Hist(
1469: p_api_version_number => 1.0,
1470: p_init_msg_list => FND_API.G_FALSE,
1471: p_commit => FND_API.G_FALSE,
1472: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1473: x_return_status => l_return_status,
1474: x_msg_count => l_msg_count,
1475: x_msg_data => l_msg_data,
1476: p_appr_hist_rec => l_appr_hist_rec
1475: x_msg_data => l_msg_data,
1476: p_appr_hist_rec => l_appr_hist_rec
1477: );
1478:
1479: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
1480: RAISE FND_API.G_EXC_ERROR;
1481: END IF;
1482:
1483: END LOOP;
1476: p_appr_hist_rec => l_appr_hist_rec
1477: );
1478:
1479: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
1480: RAISE FND_API.G_EXC_ERROR;
1481: END IF;
1482:
1483: END LOOP;
1484: CLOSE c_approver;
1483: END LOOP;
1484: CLOSE c_approver;
1485: END IF;
1486:
1487: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
1488: IF (l_approver_type = 'FUNCTION') THEN
1489: open c_API_Name(l_object_approver_id);
1490: fetch c_API_Name into l_pkg_name, l_proc_name;
1491: IF (c_Api_Name%FOUND) THEN
1499: END IF;
1500: close c_API_Name;
1501: END IF;
1502: ELSE
1503: RAISE FND_API.G_EXC_ERROR;
1504: END IF;
1505:
1506:
1507: Get_User_Role(p_user_id => l_object_approver_id ,
1508: x_role_name => l_approver,
1509: x_role_display_name => l_approver_display_name,
1510: x_return_status => l_return_status);
1511:
1512: IF l_return_status <> FND_API.G_RET_STS_SUCCESS then
1513: RAISE FND_API.G_EXC_ERROR;
1514: END IF;
1515: -- Change for Bug 2535600
1516: l_prev_approver_disp_name := wf_engine.GetItemAttrText(
1509: x_role_display_name => l_approver_display_name,
1510: x_return_status => l_return_status);
1511:
1512: IF l_return_status <> FND_API.G_RET_STS_SUCCESS then
1513: RAISE FND_API.G_EXC_ERROR;
1514: END IF;
1515: -- Change for Bug 2535600
1516: l_prev_approver_disp_name := wf_engine.GetItemAttrText(
1517: itemtype => itemtype,
1569: l_appr_hist_rec.approver_id := l_object_approver_id;
1570:
1571: AMS_Appr_Hist_PVT.Update_Appr_Hist(
1572: p_api_version_number => 1.0,
1573: p_init_msg_list => FND_API.G_FALSE,
1574: p_commit => FND_API.G_FALSE,
1575: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1576: x_return_status => l_return_status,
1577: x_msg_count => l_msg_count,
1570:
1571: AMS_Appr_Hist_PVT.Update_Appr_Hist(
1572: p_api_version_number => 1.0,
1573: p_init_msg_list => FND_API.G_FALSE,
1574: p_commit => FND_API.G_FALSE,
1575: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1576: x_return_status => l_return_status,
1577: x_msg_count => l_msg_count,
1578: x_msg_data => l_msg_data,
1571: AMS_Appr_Hist_PVT.Update_Appr_Hist(
1572: p_api_version_number => 1.0,
1573: p_init_msg_list => FND_API.G_FALSE,
1574: p_commit => FND_API.G_FALSE,
1575: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1576: x_return_status => l_return_status,
1577: x_msg_count => l_msg_count,
1578: x_msg_data => l_msg_data,
1579: p_appr_hist_rec => l_appr_hist_rec
1578: x_msg_data => l_msg_data,
1579: p_appr_hist_rec => l_appr_hist_rec
1580: );
1581:
1582: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
1583: RAISE Fnd_Api.G_EXC_ERROR;
1584: END IF;
1585:
1586: resultout := 'COMPLETE:SUCCESS';
1579: p_appr_hist_rec => l_appr_hist_rec
1580: );
1581:
1582: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
1583: RAISE Fnd_Api.G_EXC_ERROR;
1584: END IF;
1585:
1586: resultout := 'COMPLETE:SUCCESS';
1587: END IF;
1602: return;
1603: END IF;
1604:
1605: EXCEPTION
1606: WHEN FND_API.G_EXC_ERROR THEN
1607: FND_MSG_PUB.Count_And_Get (
1608: p_encoded => FND_API.G_FALSE,
1609: p_count => l_msg_count,
1610: p_data => l_msg_data
1604:
1605: EXCEPTION
1606: WHEN FND_API.G_EXC_ERROR THEN
1607: FND_MSG_PUB.Count_And_Get (
1608: p_encoded => FND_API.G_FALSE,
1609: p_count => l_msg_count,
1610: p_data => l_msg_data
1611: );
1612: Handle_Err
1623: resultout := 'COMPLETE:ERROR';
1624: --RAISE;
1625: WHEN OTHERS THEN
1626: FND_MSG_PUB.Count_And_Get (
1627: p_encoded => FND_API.G_FALSE,
1628: p_count => l_msg_count,
1629: p_data => l_msg_data
1630: );
1631: Handle_Err
1742: x_resource_id => l_approver_id,
1743: x_resource_disp_name => l_appr_display_name,
1744: x_return_status => l_return_status);
1745:
1746: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
1747: RAISE Fnd_Api.G_EXC_ERROR;
1748: END IF;
1749:
1750: -- Set the WF Attributes
1743: x_resource_disp_name => l_appr_display_name,
1744: x_return_status => l_return_status);
1745:
1746: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
1747: RAISE Fnd_Api.G_EXC_ERROR;
1748: END IF;
1749:
1750: -- Set the WF Attributes
1751: wf_engine.SetItemAttrText( itemtype => itemtype,
1787: l_appr_hist_rec.action_date := sysdate;
1788:
1789: AMS_Appr_Hist_PVT.Update_Appr_Hist(
1790: p_api_version_number => 1.0,
1791: p_init_msg_list => FND_API.G_FALSE,
1792: p_commit => FND_API.G_FALSE,
1793: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1794: x_return_status => l_return_status,
1795: x_msg_count => l_msg_count,
1788:
1789: AMS_Appr_Hist_PVT.Update_Appr_Hist(
1790: p_api_version_number => 1.0,
1791: p_init_msg_list => FND_API.G_FALSE,
1792: p_commit => FND_API.G_FALSE,
1793: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1794: x_return_status => l_return_status,
1795: x_msg_count => l_msg_count,
1796: x_msg_data => l_msg_data,
1789: AMS_Appr_Hist_PVT.Update_Appr_Hist(
1790: p_api_version_number => 1.0,
1791: p_init_msg_list => FND_API.G_FALSE,
1792: p_commit => FND_API.G_FALSE,
1793: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1794: x_return_status => l_return_status,
1795: x_msg_count => l_msg_count,
1796: x_msg_data => l_msg_data,
1797: p_appr_hist_rec => l_appr_hist_rec
1796: x_msg_data => l_msg_data,
1797: p_appr_hist_rec => l_appr_hist_rec
1798: );
1799:
1800: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
1801: RAISE Fnd_Api.G_EXC_ERROR;
1802: END IF;
1803:
1804: Check_Approval_Required
1797: p_appr_hist_rec => l_appr_hist_rec
1798: );
1799:
1800: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
1801: RAISE Fnd_Api.G_EXC_ERROR;
1802: END IF;
1803:
1804: Check_Approval_Required
1805: ( p_approval_detail_id => l_approval_detail_id,
1832: resultout := 'COMPLETE:';
1833: return;
1834: END IF;
1835: EXCEPTION
1836: WHEN FND_API.G_EXC_ERROR THEN
1837: FND_MSG_PUB.Count_And_Get (
1838: p_encoded => FND_API.G_FALSE,
1839: p_count => l_msg_count,
1840: p_data => l_msg_data
1834: END IF;
1835: EXCEPTION
1836: WHEN FND_API.G_EXC_ERROR THEN
1837: FND_MSG_PUB.Count_And_Get (
1838: p_encoded => FND_API.G_FALSE,
1839: p_count => l_msg_count,
1840: p_data => l_msg_data
1841: );
1842: Handle_Err
1852: itemtype, itemkey,to_char(actid),l_error_msg);
1853: RAISE;
1854: WHEN OTHERS THEN
1855: FND_MSG_PUB.Count_And_Get (
1856: p_encoded => FND_API.G_FALSE,
1857: p_count => l_msg_count,
1858: p_data => l_msg_data
1859: );
1860: Handle_Err
1950:
1951: IF resultout = 'COMPLETE:ERROR' then -- added VMODUR 10-Jun-2002
1952:
1953: FND_MSG_PUB.Count_And_Get (
1954: p_encoded => FND_API.G_FALSE,
1955: p_count => l_msg_count,
1956: p_data => l_msg_data
1957: );
1958: Handle_Err
1966: ELSE
1967: -- Delete all rows
1968: AMS_Appr_Hist_PVT.Delete_Appr_Hist(
1969: p_api_version_number => 1.0,
1970: p_init_msg_list => FND_API.G_FALSE,
1971: p_commit => FND_API.G_FALSE,
1972: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1973: x_return_status => l_return_status,
1974: x_msg_count => l_msg_count,
1967: -- Delete all rows
1968: AMS_Appr_Hist_PVT.Delete_Appr_Hist(
1969: p_api_version_number => 1.0,
1970: p_init_msg_list => FND_API.G_FALSE,
1971: p_commit => FND_API.G_FALSE,
1972: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1973: x_return_status => l_return_status,
1974: x_msg_count => l_msg_count,
1975: x_msg_data => l_msg_data,
1968: AMS_Appr_Hist_PVT.Delete_Appr_Hist(
1969: p_api_version_number => 1.0,
1970: p_init_msg_list => FND_API.G_FALSE,
1971: p_commit => FND_API.G_FALSE,
1972: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1973: x_return_status => l_return_status,
1974: x_msg_count => l_msg_count,
1975: x_msg_data => l_msg_data,
1976: p_object_id => l_activity_id,
1979: p_action_code => null,
1980: p_object_version_num => l_version,
1981: p_approval_type => l_approval_type);
1982:
1983: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
1984: RAISE Fnd_Api.G_EXC_ERROR;
1985: END IF;
1986:
1987: END IF; -- VM
1980: p_object_version_num => l_version,
1981: p_approval_type => l_approval_type);
1982:
1983: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
1984: RAISE Fnd_Api.G_EXC_ERROR;
1985: END IF;
1986:
1987: END IF; -- VM
1988:
2006: END IF;
2007: --
2008:
2009: EXCEPTION
2010: WHEN FND_API.G_EXC_ERROR THEN
2011: FND_MSG_PUB.Count_And_Get (
2012: p_encoded => FND_API.G_FALSE,
2013: p_count => l_msg_count,
2014: p_data => l_msg_data
2008:
2009: EXCEPTION
2010: WHEN FND_API.G_EXC_ERROR THEN
2011: FND_MSG_PUB.Count_And_Get (
2012: p_encoded => FND_API.G_FALSE,
2013: p_count => l_msg_count,
2014: p_data => l_msg_data
2015: );
2016: Handle_Err
2027: resultout := 'COMPLETE:ERROR';
2028: --RAISE;
2029: WHEN OTHERS THEN
2030: FND_MSG_PUB.Count_And_Get (
2031: p_encoded => FND_API.G_FALSE,
2032: p_count => l_msg_count,
2033: p_data => l_msg_data
2034: );
2035: Handle_Err
2173: /*
2174: EXCEPTION
2175: WHEN OTHERS THEN
2176: FND_MSG_PUB.Count_And_Get (
2177: p_encoded => FND_API.G_FALSE,
2178: p_count => l_msg_count,
2179: p_data => l_msg_data
2180: );
2181: Handle_Err
2241: /*
2242: EXCEPTION
2243: WHEN OTHERS THEN
2244: FND_MSG_PUB.Count_And_Get (
2245: p_encoded => FND_API.G_FALSE,
2246: p_count => l_msg_count,
2247: p_data => l_msg_data
2248: );
2249: Handle_Err
2311: /*
2312: EXCEPTION
2313: WHEN OTHERS THEN
2314: FND_MSG_PUB.Count_And_Get (
2315: p_encoded => FND_API.G_FALSE,
2316: p_count => l_msg_count,
2317: p_data => l_msg_data
2318: );
2319: Handle_Err
2380: /*
2381: EXCEPTION
2382: WHEN OTHERS THEN
2383: FND_MSG_PUB.Count_And_Get (
2384: p_encoded => FND_API.G_FALSE,
2385: p_count => l_msg_count,
2386: p_data => l_msg_data
2387: );
2388: Handle_Err
2448: /*
2449: EXCEPTION
2450: WHEN OTHERS THEN
2451: FND_MSG_PUB.Count_And_Get (
2452: p_encoded => FND_API.G_FALSE,
2453: p_count => l_msg_count,
2454: p_data => l_msg_data
2455: );
2456: Handle_Err
2718: x_resource_id => l_approver_id,
2719: x_resource_disp_name => l_appr_display_name,
2720: x_return_status => l_return_status);
2721:
2722: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
2723: RAISE Fnd_Api.G_EXC_ERROR;
2724: END IF;
2725:
2726: -- Set the WF Attributes
2719: x_resource_disp_name => l_appr_display_name,
2720: x_return_status => l_return_status);
2721:
2722: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
2723: RAISE Fnd_Api.G_EXC_ERROR;
2724: END IF;
2725:
2726: -- Set the WF Attributes
2727: wf_engine.SetItemAttrText( itemtype => itemtype,
2766: l_appr_hist_rec.approver_id := l_approver_id;
2767:
2768: AMS_Appr_Hist_PVT.Update_Appr_Hist(
2769: p_api_version_number => 1.0,
2770: p_init_msg_list => FND_API.G_FALSE,
2771: p_commit => FND_API.G_FALSE,
2772: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2773: x_return_status => l_return_status,
2774: x_msg_count => l_msg_count,
2767:
2768: AMS_Appr_Hist_PVT.Update_Appr_Hist(
2769: p_api_version_number => 1.0,
2770: p_init_msg_list => FND_API.G_FALSE,
2771: p_commit => FND_API.G_FALSE,
2772: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2773: x_return_status => l_return_status,
2774: x_msg_count => l_msg_count,
2775: x_msg_data => l_msg_data,
2768: AMS_Appr_Hist_PVT.Update_Appr_Hist(
2769: p_api_version_number => 1.0,
2770: p_init_msg_list => FND_API.G_FALSE,
2771: p_commit => FND_API.G_FALSE,
2772: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2773: x_return_status => l_return_status,
2774: x_msg_count => l_msg_count,
2775: x_msg_data => l_msg_data,
2776: p_appr_hist_rec => l_appr_hist_rec
2775: x_msg_data => l_msg_data,
2776: p_appr_hist_rec => l_appr_hist_rec
2777: );
2778:
2779: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
2780: RAISE Fnd_Api.G_EXC_ERROR;
2781: END IF;
2782:
2783: -- Delete any 'OPEN' rows
2776: p_appr_hist_rec => l_appr_hist_rec
2777: );
2778:
2779: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
2780: RAISE Fnd_Api.G_EXC_ERROR;
2781: END IF;
2782:
2783: -- Delete any 'OPEN' rows
2784: AMS_Appr_Hist_PVT.Delete_Appr_Hist(
2782:
2783: -- Delete any 'OPEN' rows
2784: AMS_Appr_Hist_PVT.Delete_Appr_Hist(
2785: p_api_version_number => 1.0,
2786: p_init_msg_list => FND_API.G_FALSE,
2787: p_commit => FND_API.G_FALSE,
2788: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2789: x_return_status => l_return_status,
2790: x_msg_count => l_msg_count,
2783: -- Delete any 'OPEN' rows
2784: AMS_Appr_Hist_PVT.Delete_Appr_Hist(
2785: p_api_version_number => 1.0,
2786: p_init_msg_list => FND_API.G_FALSE,
2787: p_commit => FND_API.G_FALSE,
2788: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2789: x_return_status => l_return_status,
2790: x_msg_count => l_msg_count,
2791: x_msg_data => l_msg_data,
2784: AMS_Appr_Hist_PVT.Delete_Appr_Hist(
2785: p_api_version_number => 1.0,
2786: p_init_msg_list => FND_API.G_FALSE,
2787: p_commit => FND_API.G_FALSE,
2788: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2789: x_return_status => l_return_status,
2790: x_msg_count => l_msg_count,
2791: x_msg_data => l_msg_data,
2792: p_object_id => l_activity_id,
2795: p_action_code => 'OPEN',
2796: p_object_version_num => l_version,
2797: p_approval_type => l_approval_type);
2798:
2799: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
2800: RAISE Fnd_Api.G_EXC_ERROR;
2801: END IF;
2802:
2803: -- This needs to be last as it would change version number
2796: p_object_version_num => l_version,
2797: p_approval_type => l_approval_type);
2798:
2799: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
2800: RAISE Fnd_Api.G_EXC_ERROR;
2801: END IF;
2802:
2803: -- This needs to be last as it would change version number
2804: Update_Status(itemtype => itemtype,
2807: funcmode => funcmode,
2808: resultout => resultout);
2809:
2810: EXCEPTION
2811: WHEN FND_API.G_EXC_ERROR THEN
2812: FND_MSG_PUB.Count_And_Get (
2813: p_encoded => FND_API.G_FALSE,
2814: p_count => l_msg_count,
2815: p_data => l_msg_data
2809:
2810: EXCEPTION
2811: WHEN FND_API.G_EXC_ERROR THEN
2812: FND_MSG_PUB.Count_And_Get (
2813: p_encoded => FND_API.G_FALSE,
2814: p_count => l_msg_count,
2815: p_data => l_msg_data
2816: );
2817: Handle_Err
2828: resultout := 'COMPLETE:ERROR';
2829: --RAISE;
2830: WHEN OTHERS THEN
2831: FND_MSG_PUB.Count_And_Get (
2832: p_encoded => FND_API.G_FALSE,
2833: p_count => l_msg_count,
2834: p_data => l_msg_data
2835: );
2836: Handle_Err
3029: l_msg_data VARCHAR2(4000);
3030: l_error_msg VARCHAR2(4000);
3031:
3032: BEGIN
3033: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
3034: IF p_activity_type = 'PRIC' THEN
3035:
3036: OPEN l_obj_details FOR
3037: SELECT name -- name
3121: ELSE
3122: -- add exception
3123: Fnd_Message.Set_Name('AMS','AMS_BAD_APPROVAL_OBJECT_TYPE');
3124: Fnd_Msg_Pub.ADD;
3125: x_return_status := Fnd_Api.G_RET_STS_ERROR;
3126: END IF ;
3127:
3128: -- check here
3129: FETCH l_obj_details INTO x_object_details;
3130: IF l_obj_details%NOTFOUND THEN
3131: CLOSE l_obj_details;
3132: Fnd_Message.Set_Name('AMS','AMS_APPR_BAD_DETAILS');
3133: Fnd_Msg_Pub.ADD;
3134: x_return_status := Fnd_Api.G_RET_STS_ERROR;
3135: RETURN;
3136: END IF;
3137: CLOSE l_obj_details;
3138: EXCEPTION
3137: CLOSE l_obj_details;
3138: EXCEPTION
3139: WHEN OTHERS THEN
3140: FND_MSG_PUB.Count_And_Get (
3141: p_encoded => FND_API.G_FALSE,
3142: p_count => l_msg_count,
3143: p_data => l_msg_data
3144: );
3145:
3267: x_resource_id => l_new_approver_id,
3268: x_resource_disp_name => l_appr_display_name,
3269: x_return_status => l_return_status);
3270:
3271: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
3272: RAISE Fnd_Api.G_EXC_ERROR;
3273: END IF;
3274:
3275: -- Set the WF Attributes
3268: x_resource_disp_name => l_appr_display_name,
3269: x_return_status => l_return_status);
3270:
3271: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
3272: RAISE Fnd_Api.G_EXC_ERROR;
3273: END IF;
3274:
3275: -- Set the WF Attributes
3276: wf_engine.SetItemAttrText( itemtype => itemtype,
3325: l_appr_hist_rec.approver_id := l_new_approver_id;
3326:
3327: AMS_Appr_Hist_PVT.Update_Appr_Hist(
3328: p_api_version_number => 1.0,
3329: p_init_msg_list => FND_API.G_FALSE,
3330: p_commit => FND_API.G_FALSE,
3331: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3332: x_return_status => l_return_status,
3333: x_msg_count => l_msg_count,
3326:
3327: AMS_Appr_Hist_PVT.Update_Appr_Hist(
3328: p_api_version_number => 1.0,
3329: p_init_msg_list => FND_API.G_FALSE,
3330: p_commit => FND_API.G_FALSE,
3331: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3332: x_return_status => l_return_status,
3333: x_msg_count => l_msg_count,
3334: x_msg_data => l_msg_data,
3327: AMS_Appr_Hist_PVT.Update_Appr_Hist(
3328: p_api_version_number => 1.0,
3329: p_init_msg_list => FND_API.G_FALSE,
3330: p_commit => FND_API.G_FALSE,
3331: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3332: x_return_status => l_return_status,
3333: x_msg_count => l_msg_count,
3334: x_msg_data => l_msg_data,
3335: p_appr_hist_rec => l_appr_hist_rec
3334: x_msg_data => l_msg_data,
3335: p_appr_hist_rec => l_appr_hist_rec
3336: );
3337:
3338: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
3339: RAISE Fnd_Api.G_EXC_ERROR;
3340: END IF;
3341:
3342: resultout := 'COMPLETE';
3335: p_appr_hist_rec => l_appr_hist_rec
3336: );
3337:
3338: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
3339: RAISE Fnd_Api.G_EXC_ERROR;
3340: END IF;
3341:
3342: resultout := 'COMPLETE';
3343:
3342: resultout := 'COMPLETE';
3343:
3344: END IF;
3345: EXCEPTION
3346: WHEN Fnd_Api.G_EXC_ERROR THEN
3347: Fnd_Msg_Pub.Count_And_Get (
3348: p_encoded => Fnd_Api.G_FALSE,
3349: p_count => l_msg_count,
3350: p_data => l_msg_data
3344: END IF;
3345: EXCEPTION
3346: WHEN Fnd_Api.G_EXC_ERROR THEN
3347: Fnd_Msg_Pub.Count_And_Get (
3348: p_encoded => Fnd_Api.G_FALSE,
3349: p_count => l_msg_count,
3350: p_data => l_msg_data
3351: );
3352: Handle_Err