[Home] [Help]
69: IF p_audit_procedure_rec.approval_status ='P' THEN
70: AMW_UTILITY_PVT.Error_Message(p_message_name => 'AMW_INVALID_STATUS',
71: p_token_name => 'OBJ_TYPE',
72: p_token_value => G_OBJ_TYPE);
73: RAISE FND_API.G_EXC_ERROR;
74: ELSIF p_audit_procedure_rec.approval_status ='R' THEN
75: AMW_UTILITY_PVT.Error_Message(p_message_name => 'AMW_INVALID_STATUS',
76: p_token_name => 'OBJ_TYPE',
77: p_token_value => G_OBJ_TYPE);
74: ELSIF p_audit_procedure_rec.approval_status ='R' THEN
75: AMW_UTILITY_PVT.Error_Message(p_message_name => 'AMW_INVALID_STATUS',
76: p_token_name => 'OBJ_TYPE',
77: p_token_value => G_OBJ_TYPE);
78: RAISE FND_API.G_EXC_ERROR;
79: ELSIF p_audit_procedure_rec.approval_status IS NOT NULL AND p_audit_procedure_rec.approval_status <> 'A' AND p_audit_procedure_rec.approval_status <> 'D' THEN
80: -- if it's null, the default will be 'D' , other pass-in unwanted data will be Invalid
81: AMW_UTILITY_PVT.Error_Message(p_message_name => 'AMW_INVALID_STATUS',
82: p_token_name => 'OBJ_TYPE',
80: -- if it's null, the default will be 'D' , other pass-in unwanted data will be Invalid
81: AMW_UTILITY_PVT.Error_Message(p_message_name => 'AMW_INVALID_STATUS',
82: p_token_name => 'OBJ_TYPE',
83: p_token_value => G_OBJ_TYPE);
84: RAISE FND_API.G_EXC_ERROR;
85: END IF;
86:
87: l_approval_date := p_approval_date;
88: l_audit_procedure_id := NULL;
113: IF x_return_status<>G_RET_STS_SUCCESS THEN
114: AMW_UTILITY_PVT.Error_Message(p_message_name => 'AMW_EXE_ERROR',
115: p_token_name => 'OBJ_TYPE',
116: p_token_value => G_OBJ_TYPE);
117: RAISE FND_API.G_EXC_ERROR;
118: END IF;
119:
120: ELSE
121: l_dummy_audit_procedure_rec := p_audit_procedure_rec;
129: -- no corresponding audit_procedure_id in AMW_AUDIT_PROCEDURES_B is wrong
130: AMW_UTILITY_PVT.Error_Message(p_message_name => 'AMW_UNEXPECT_ERROR',
131: p_token_name => 'OBJ_TYPE',
132: p_token_value => G_OBJ_TYPE);
133: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
134: ELSIF l_dummy = 1 THEN
135: -- has only one record for audit_procedure_id in AMW_AUDIT_PROCEDURES_B with pass-in name
136: OPEN c_approval_status(l_audit_procedure_id);
137: FETCH c_approval_status INTO l_approval_status;
141: -- this record is Pending Approval, cannot do G_OP_UPDATE or G_OP_REVISE
142: AMW_UTILITY_PVT.Error_Message(p_message_name => 'AMW_PENDING_CHANGE_ERROR',
143: p_token_name => 'OBJ_TYPE',
144: p_token_value => G_OBJ_TYPE);
145: RAISE FND_API.G_EXC_ERROR;
146: ELSIF l_approval_status.approval_status='D' THEN
147: Operate_AP(
148: p_operate_mode => G_OP_UPDATE,
149: p_api_version_number => p_api_version_number,
160: IF x_return_status<>G_RET_STS_SUCCESS THEN
161: AMW_UTILITY_PVT.Error_Message(p_message_name => 'AMW_EXE_ERROR',
162: p_token_name => 'OBJ_TYPE',
163: p_token_value => G_OBJ_TYPE);
164: RAISE FND_API.G_EXC_ERROR;
165: END IF;
166:
167: ELSIF l_approval_status.approval_status='A' OR l_approval_status.approval_status='R' THEN
168: Operate_AP(
181: IF x_return_status<>G_RET_STS_SUCCESS THEN
182: AMW_UTILITY_PVT.Error_Message(p_message_name => 'AMW_EXE_ERROR',
183: p_token_name => 'OBJ_TYPE',
184: p_token_value => G_OBJ_TYPE);
185: RAISE FND_API.G_EXC_ERROR;
186: END IF;
187:
188: END IF; -- end of if:l_approval_status.approval_status
189: ELSE
204: IF x_return_status<>G_RET_STS_SUCCESS THEN
205: AMW_UTILITY_PVT.Error_Message(p_message_name => 'AMW_EXE_ERROR',
206: p_token_name => 'OBJ_TYPE',
207: p_token_value => G_OBJ_TYPE);
208: RAISE FND_API.G_EXC_ERROR;
209: END IF;
210:
211: END IF; -- end of if:l_dummy
212:
220: p_data => x_msg_data);
221:
222: EXCEPTION
223:
224: WHEN FND_API.G_EXC_ERROR THEN
225:
226: x_return_status := G_RET_STS_ERROR;
227: -- Standard call to get message count and if count=1, get the message
228: FND_MSG_PUB.Count_And_Get (
229: p_encoded => G_FALSE,
230: p_count => x_msg_count,
231: p_data => x_msg_data);
232:
233: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
234:
235: x_return_status := G_RET_STS_UNEXP_ERROR;
236: -- Standard call to get message count and if count=1, get the message
237: FND_MSG_PUB.Count_And_Get (
296: WHERE audit_procedure_id = l_audit_procedure_id AND approval_status='D' AND latest_revision_flag='Y';
297:
298: BEGIN
299: -- Initialize message list if p_init_msg_list is set to TRUE.
300: IF FND_API.to_Boolean( p_init_msg_list )
301: THEN
302: FND_MSG_PUB.initialize;
303: END IF;
304:
336: IF x_return_status<>G_RET_STS_SUCCESS THEN
337: AMW_UTILITY_PVT.Error_Message(p_message_name => 'AMW_EXE_ERROR',
338: p_token_name => 'OBJ_TYPE',
339: p_token_value => G_OBJ_TYPE);
340: RAISE FND_API.G_EXC_ERROR;
341: END IF;
342:
343: ELSIF p_operate_mode = G_OP_UPDATE THEN
344: l_dummy_audit_procedure_rec := p_audit_procedure_rec;
373: IF x_return_status<>G_RET_STS_SUCCESS THEN
374: AMW_UTILITY_PVT.Error_Message(p_message_name => 'AMW_EXE_ERROR',
375: p_token_name => 'OBJ_TYPE',
376: p_token_value => G_OBJ_TYPE);
377: RAISE FND_API.G_EXC_ERROR;
378: END IF;
379:
380: ELSIF p_operate_mode = G_OP_REVISE THEN
381: l_audit_procedure_rev_id := NULL;
415: IF x_return_status<>G_RET_STS_SUCCESS THEN
416: AMW_UTILITY_PVT.Error_Message(p_message_name => 'AMW_EXE_ERROR',
417: p_token_name => 'OBJ_TYPE',
418: p_token_value => G_OBJ_TYPE);
419: RAISE FND_API.G_EXC_ERROR;
420: END IF;
421:
422:
423: ELSE
440: IF x_return_status<>G_RET_STS_SUCCESS THEN
441: AMW_UTILITY_PVT.Error_Message(p_message_name => 'AMW_EXE_ERROR',
442: p_token_name => 'OBJ_TYPE',
443: p_token_value => G_OBJ_TYPE);
444: RAISE FND_API.G_EXC_ERROR;
445: END IF;
446:
447: END IF;
448: ELSIF p_operate_mode = G_OP_DELETE THEN
462: IF x_return_status<>G_RET_STS_SUCCESS THEN
463: AMW_UTILITY_PVT.Error_Message(p_message_name => 'AMW_EXE_ERROR',
464: p_token_name => 'OBJ_TYPE',
465: p_token_value => G_OBJ_TYPE);
466: RAISE FND_API.G_EXC_ERROR;
467: END IF;
468:
469: ELSE
470: AMW_UTILITY_PVT.Error_Message(p_message_name => 'AMW_UNEXPECT_ERROR',
469: ELSE
470: AMW_UTILITY_PVT.Error_Message(p_message_name => 'AMW_UNEXPECT_ERROR',
471: p_token_name => 'OBJ_TYPE',
472: p_token_value => G_OBJ_TYPE);
473: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
474: END IF;
475:
476:
477: AMW_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
482: p_data => x_msg_data);
483:
484: EXCEPTION
485:
486: WHEN FND_API.G_EXC_ERROR THEN
487: x_return_status := G_RET_STS_ERROR;
488: -- Standard call to get message count and if count=1, get the message
489: FND_MSG_PUB.Count_And_Get (
490: p_encoded => G_FALSE,
491: p_count => x_msg_count,
492: p_data => x_msg_data
493: );
494:
495: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
496: x_return_status := G_RET_STS_UNEXP_ERROR;
497: -- Standard call to get message count and if count=1, get the message
498: FND_MSG_PUB.Count_And_Get (
499: p_encoded => G_FALSE,
575: -- Standard Start of API savepoint
576: SAVEPOINT CREATE_AP_PVT;
577:
578: -- Standard call to check for call compatibility.
579: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
580: p_api_version_number,
581: l_api_name,
582: G_PKG_NAME)
583: THEN
580: p_api_version_number,
581: l_api_name,
582: G_PKG_NAME)
583: THEN
584: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
585: END IF;
586:
587: -- Initialize message list if p_init_msg_list is set to TRUE.
588: IF FND_API.to_Boolean( p_init_msg_list )
584: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
585: END IF;
586:
587: -- Initialize message list if p_init_msg_list is set to TRUE.
588: IF FND_API.to_Boolean( p_init_msg_list )
589: THEN
590: FND_MSG_PUB.initialize;
591: END IF;
592:
595: AMW_UTILITY_PVT.debug_message('p_operate_mode: ' || p_operate_mode);
596: -- Initialize API return status to SUCCESS
597: x_return_status := G_RET_STS_SUCCESS;
598:
599: IF p_audit_procedure_rec.audit_procedure_rev_id IS NULL OR p_audit_procedure_rec.audit_procedure_rev_id = FND_API.g_miss_num THEN
600: LOOP
601: l_dummy := NULL;
602: OPEN c_rev_id;
603: FETCH c_rev_id INTO l_audit_procedure_rev_id;
611: ELSE
612: l_audit_procedure_rev_id := p_audit_procedure_rec.audit_procedure_rev_id;
613: END IF;
614:
615: IF p_audit_procedure_rec.audit_procedure_id IS NULL OR p_audit_procedure_rec.audit_procedure_id = FND_API.g_miss_num THEN
616: LOOP
617: l_dummy := NULL;
618: OPEN c_id;
619: FETCH c_id INTO l_audit_procedure_id;
637:
638:
639: IF FND_GLOBAL.User_Id IS NULL THEN
640: AMW_UTILITY_PVT.Error_Message(p_message_name => 'USER_PROFILE_MISSING');
641: RAISE FND_API.G_EXC_ERROR;
642: END IF;
643:
644: IF (P_validation_level >= G_VALID_LEVEL_FULL) THEN
645: AMW_UTILITY_PVT.debug_message('Private API: Validate_AP');
660: IF x_return_status<>G_RET_STS_SUCCESS THEN
661: AMW_UTILITY_PVT.Error_Message(p_message_name => 'AMW_EXE_ERROR',
662: p_token_name => 'OBJ_TYPE',
663: p_token_value => G_OBJ_TYPE);
664: RAISE FND_API.G_EXC_ERROR;
665: END IF;
666:
667:
668: AMW_UTILITY_PVT.debug_message( 'Private API: Calling create table handler');
712: IF x_return_status <> G_RET_STS_SUCCESS THEN
713: AMW_UTILITY_PVT.Error_Message(p_message_name => 'AMW_EXE_ERROR',
714: p_token_name => 'OBJ_TYPE',
715: p_token_value => G_OBJ_TYPE);
716: RAISE FND_API.G_EXC_ERROR;
717: END IF;
718:
719: -- Standard check for p_commit
720: IF FND_API.to_Boolean( p_commit )
716: RAISE FND_API.G_EXC_ERROR;
717: END IF;
718:
719: -- Standard check for p_commit
720: IF FND_API.to_Boolean( p_commit )
721: THEN
722: COMMIT WORK;
723: END IF;
724:
734: WHEN AMW_UTILITY_PVT.resource_locked THEN
735: x_return_status := G_RET_STS_ERROR;
736: AMW_UTILITY_PVT.Error_Message(p_message_name => 'AMW_API_RESOURCE_LOCKED');
737:
738: WHEN FND_API.G_EXC_ERROR THEN
739: ROLLBACK TO CREATE_AP_PVT;
740: x_return_status := G_RET_STS_ERROR;
741: -- Standard call to get message count and if count=1, get the message
742: FND_MSG_PUB.Count_And_Get (
743: p_encoded => G_FALSE,
744: p_count => x_msg_count,
745: p_data => x_msg_data);
746:
747: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
748: ROLLBACK TO CREATE_AP_PVT;
749: x_return_status := G_RET_STS_UNEXP_ERROR;
750: -- Standard call to get message count and if count=1, get the message
751: FND_MSG_PUB.Count_And_Get (
815: SAVEPOINT UPDATE_AP_PVT;
816:
817:
818: -- Standard call to check for call compatibility.
819: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
820: p_api_version_number,
821: l_api_name,
822: G_PKG_NAME)
823: THEN
820: p_api_version_number,
821: l_api_name,
822: G_PKG_NAME)
823: THEN
824: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
825: END IF;
826:
827: -- Initialize message list if p_init_msg_list is set to TRUE.
828: IF FND_API.to_Boolean( p_init_msg_list )
824: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
825: END IF;
826:
827: -- Initialize message list if p_init_msg_list is set to TRUE.
828: IF FND_API.to_Boolean( p_init_msg_list )
829: THEN
830: FND_MSG_PUB.initialize;
831: END IF;
832:
839: AMW_UTILITY_PVT.debug_message('Private API: - Open Cursor to Select');
840:
841:
842: -- if no specified target audit_procedure_rev_id, find if from audit_procedure_id
843: IF p_audit_procedure_rec.audit_procedure_rev_id IS NULL OR p_audit_procedure_rec.audit_procedure_rev_id = FND_API.g_miss_num THEN
844: l_audit_procedure_rev_id := NULL;
845: OPEN c_target_revision(p_audit_procedure_rec.audit_procedure_id);
846: FETCH c_target_revision INTO l_audit_procedure_rev_id;
847: CLOSE c_target_revision;
847: CLOSE c_target_revision;
848: IF l_audit_procedure_rev_id IS NULL THEN
849: x_return_status := G_RET_STS_ERROR;
850: AMW_UTILITY_PVT.debug_message('l_audit_procedure_rev_id in Update_AP is NULL');
851: RAISE FND_API.G_EXC_ERROR;
852: END IF;
853: ELSE
854: l_audit_procedure_rev_id := p_audit_procedure_rec.audit_procedure_rev_id;
855: END IF; -- end of if:p_audit_procedure_rec.audit_procedure_rev_id
885: IF x_return_status<>G_RET_STS_SUCCESS THEN
886: AMW_UTILITY_PVT.Error_Message(p_message_name => 'AMW_EXE_ERROR',
887: p_token_name => 'OBJ_TYPE',
888: p_token_value => G_OBJ_TYPE);
889: RAISE FND_API.G_EXC_ERROR;
890: END IF;
891:
892:
893: -- check if the AP has a classification already
962: end if;
963:
964:
965: -- Standard check for p_commit
966: IF FND_API.to_Boolean( p_commit )
967: THEN
968: COMMIT WORK;
969: END IF;
970:
982: WHEN AMW_UTILITY_PVT.resource_locked THEN
983: x_return_status := G_RET_STS_ERROR;
984: AMW_UTILITY_PVT.Error_Message(p_message_name => 'AMW_API_RESOURCE_LOCKED');
985:
986: WHEN FND_API.G_EXC_ERROR THEN
987: ROLLBACK TO UPDATE_AP_PVT;
988: x_return_status := G_RET_STS_ERROR;
989: -- Standard call to get message count and if count=1, get the message
990: FND_MSG_PUB.Count_And_Get (
991: p_encoded => G_FALSE,
992: p_count => x_msg_count,
993: p_data => x_msg_data);
994:
995: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
996: ROLLBACK TO UPDATE_AP_PVT;
997: x_return_status := G_RET_STS_UNEXP_ERROR;
998: -- Standard call to get message count and if count=1, get the message
999: FND_MSG_PUB.Count_And_Get (
1045: -- Standard Start of API savepoint
1046: SAVEPOINT DELETE_AP_PVT;
1047:
1048: -- Standard call to check for call compatibility.
1049: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1050: p_api_version_number,
1051: l_api_name,
1052: G_PKG_NAME)
1053: THEN
1050: p_api_version_number,
1051: l_api_name,
1052: G_PKG_NAME)
1053: THEN
1054: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1055: END IF;
1056:
1057: -- Initialize message list if p_init_msg_list is set to TRUE.
1058: IF FND_API.to_Boolean( p_init_msg_list )
1054: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1055: END IF;
1056:
1057: -- Initialize message list if p_init_msg_list is set to TRUE.
1058: IF FND_API.to_Boolean( p_init_msg_list )
1059: THEN
1060: FND_MSG_PUB.initialize;
1061: END IF;
1062:
1073: x_audit_procedure_rev_id => p_audit_procedure_rev_id);
1074:
1075:
1076: -- Standard check for p_commit
1077: IF FND_API.to_Boolean( p_commit )
1078: THEN
1079: COMMIT WORK;
1080: END IF;
1081:
1092: WHEN AMW_UTILITY_PVT.resource_locked THEN
1093: x_return_status := G_RET_STS_ERROR;
1094: AMW_UTILITY_PVT.Error_Message(p_message_name => 'AMW_API_RESOURCE_LOCKED');
1095:
1096: WHEN FND_API.G_EXC_ERROR THEN
1097: ROLLBACK TO DELETE_AP_PVT;
1098: x_return_status := G_RET_STS_ERROR;
1099: -- Standard call to get message count and if count=1, get the message
1100: FND_MSG_PUB.Count_And_Get (
1101: p_encoded => G_FALSE,
1102: p_count => x_msg_count,
1103: p_data => x_msg_data);
1104:
1105: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1106: ROLLBACK TO DELETE_AP_PVT;
1107: x_return_status := G_RET_STS_UNEXP_ERROR;
1108: -- Standard call to get message count and if count=1, get the message
1109: FND_MSG_PUB.Count_And_Get (
1181: SAVEPOINT REVISE_AP_PVT;
1182:
1183:
1184: -- Initialize message list if p_init_msg_list is set to TRUE.
1185: IF FND_API.to_Boolean( p_init_msg_list )
1186: THEN
1187: FND_MSG_PUB.initialize;
1188: END IF;
1189:
1240:
1241: AMW_UTILITY_PVT.Error_Message(p_message_name => 'AMW_EXE_ERROR',
1242: p_token_name => 'OBJ_TYPE',
1243: p_token_value => G_OBJ_TYPE);
1244: RAISE FND_API.G_EXC_ERROR;
1245: END IF;
1246:
1247:
1248: x_audit_procedure_id := p_audit_procedure_rec.audit_procedure_id;
1308: IF x_return_status <> G_RET_STS_SUCCESS THEN
1309: AMW_UTILITY_PVT.Error_Message(p_message_name => 'AMW_EXE_ERROR',
1310: p_token_name => 'OBJ_TYPE',
1311: p_token_value => G_OBJ_TYPE);
1312: RAISE FND_API.G_EXC_ERROR;
1313: END IF;
1314:
1315: -- Standard check for p_commit
1316: IF FND_API.to_Boolean( p_commit )
1312: RAISE FND_API.G_EXC_ERROR;
1313: END IF;
1314:
1315: -- Standard check for p_commit
1316: IF FND_API.to_Boolean( p_commit )
1317: THEN
1318: COMMIT WORK;
1319: END IF;
1320:
1330: WHEN AMW_UTILITY_PVT.resource_locked THEN
1331: x_return_status := G_RET_STS_ERROR;
1332: AMW_UTILITY_PVT.Error_Message(p_message_name => 'AMW_API_RESOURCE_LOCKED');
1333:
1334: WHEN FND_API.G_EXC_ERROR THEN
1335: ROLLBACK TO REVISE_AP_PVT;
1336: x_return_status := G_RET_STS_ERROR;
1337: -- Standard call to get message count and if count=1, get the message
1338: FND_MSG_PUB.Count_And_Get (
1339: p_encoded => G_FALSE,
1340: p_count => x_msg_count,
1341: p_data => x_msg_data);
1342:
1343: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1344: ROLLBACK TO REVISE_AP_PVT;
1345: x_return_status := G_RET_STS_UNEXP_ERROR;
1346: -- Standard call to get message count and if count=1, get the message
1347: FND_MSG_PUB.Count_And_Get (
1412: -- check the requireness of the items which have been marked
1413: -- as NOT NULL in table
1414: -- Note
1415: -- since the standard default with
1416: -- FND_API.G_MISS_XXX v.s. NULL has been changed to:
1417: -- if user want to update to Null, pass in G_MISS_XXX
1418: -- else if user want to update to some value, pass in value
1419: -- else if user doesn't want to update, pass in NULL.
1420: -- Reference
1437: AMW_UTILITY_PVT.Error_Message(p_message_name => 'AMW_REQUIRE_ITEM_ERROR',
1438: p_token_name => 'ITEM',
1439: p_token_value => 'audit_procedure_rev_num');
1440: x_return_status := G_RET_STS_ERROR;
1441: RAISE FND_API.G_EXC_ERROR;
1442: END IF;
1443:
1444: IF p_audit_procedure_rec.latest_revision_flag IS NULL THEN
1445: AMW_UTILITY_PVT.Error_Message(p_message_name => 'AMW_REQUIRE_ITEM_ERROR',
1445: AMW_UTILITY_PVT.Error_Message(p_message_name => 'AMW_REQUIRE_ITEM_ERROR',
1446: p_token_name => 'ITEM',
1447: p_token_value => 'latest_revision_flag');
1448: x_return_status := G_RET_STS_ERROR;
1449: RAISE FND_API.G_EXC_ERROR;
1450: END IF;
1451:
1452: IF p_audit_procedure_rec.curr_approved_flag IS NULL THEN
1453: AMW_UTILITY_PVT.Error_Message(p_message_name => 'AMW_REQUIRE_ITEM_ERROR',
1453: AMW_UTILITY_PVT.Error_Message(p_message_name => 'AMW_REQUIRE_ITEM_ERROR',
1454: p_token_name => 'ITEM',
1455: p_token_value => 'curr_approved_flag');
1456: x_return_status := G_RET_STS_ERROR;
1457: RAISE FND_API.G_EXC_ERROR;
1458: END IF;
1459:
1460: ELSE
1461: IF p_audit_procedure_rec.audit_procedure_rev_id = FND_API.g_miss_num THEN
1457: RAISE FND_API.G_EXC_ERROR;
1458: END IF;
1459:
1460: ELSE
1461: IF p_audit_procedure_rec.audit_procedure_rev_id = FND_API.g_miss_num THEN
1462: AMW_UTILITY_PVT.Error_Message(p_message_name => 'AMW_REQUIRE_ITEM_ERROR',
1463: p_token_name => 'ITEM',
1464: p_token_value => 'audit_procedure_rev_id');
1465: x_return_status := G_RET_STS_ERROR;
1462: AMW_UTILITY_PVT.Error_Message(p_message_name => 'AMW_REQUIRE_ITEM_ERROR',
1463: p_token_name => 'ITEM',
1464: p_token_value => 'audit_procedure_rev_id');
1465: x_return_status := G_RET_STS_ERROR;
1466: RAISE FND_API.G_EXC_ERROR;
1467: END IF;
1468:
1469: IF p_audit_procedure_rec.audit_procedure_id = FND_API.g_miss_num THEN
1470: AMW_UTILITY_PVT.Error_Message(p_message_name => 'AMW_REQUIRE_ITEM_ERROR',
1465: x_return_status := G_RET_STS_ERROR;
1466: RAISE FND_API.G_EXC_ERROR;
1467: END IF;
1468:
1469: IF p_audit_procedure_rec.audit_procedure_id = FND_API.g_miss_num THEN
1470: AMW_UTILITY_PVT.Error_Message(p_message_name => 'AMW_REQUIRE_ITEM_ERROR',
1471: p_token_name => 'ITEM',
1472: p_token_value => 'audit_procedure_id');
1473: x_return_status := G_RET_STS_ERROR;
1470: AMW_UTILITY_PVT.Error_Message(p_message_name => 'AMW_REQUIRE_ITEM_ERROR',
1471: p_token_name => 'ITEM',
1472: p_token_value => 'audit_procedure_id');
1473: x_return_status := G_RET_STS_ERROR;
1474: RAISE FND_API.G_EXC_ERROR;
1475: END IF;
1476:
1477: IF p_audit_procedure_rec.audit_procedure_rev_num = FND_API.g_miss_num THEN
1478: AMW_UTILITY_PVT.Error_Message(p_message_name => 'AMW_REQUIRE_ITEM_ERROR',
1473: x_return_status := G_RET_STS_ERROR;
1474: RAISE FND_API.G_EXC_ERROR;
1475: END IF;
1476:
1477: IF p_audit_procedure_rec.audit_procedure_rev_num = FND_API.g_miss_num THEN
1478: AMW_UTILITY_PVT.Error_Message(p_message_name => 'AMW_REQUIRE_ITEM_ERROR',
1479: p_token_name => 'ITEM',
1480: p_token_value => 'audit_procedure_rev_num');
1481: x_return_status := G_RET_STS_ERROR;
1478: AMW_UTILITY_PVT.Error_Message(p_message_name => 'AMW_REQUIRE_ITEM_ERROR',
1479: p_token_name => 'ITEM',
1480: p_token_value => 'audit_procedure_rev_num');
1481: x_return_status := G_RET_STS_ERROR;
1482: RAISE FND_API.G_EXC_ERROR;
1483: END IF;
1484:
1485: IF p_audit_procedure_rec.latest_revision_flag = FND_API.g_miss_char THEN
1486: AMW_UTILITY_PVT.Error_Message(p_message_name => 'AMW_REQUIRE_ITEM_ERROR',
1481: x_return_status := G_RET_STS_ERROR;
1482: RAISE FND_API.G_EXC_ERROR;
1483: END IF;
1484:
1485: IF p_audit_procedure_rec.latest_revision_flag = FND_API.g_miss_char THEN
1486: AMW_UTILITY_PVT.Error_Message(p_message_name => 'AMW_REQUIRE_ITEM_ERROR',
1487: p_token_name => 'ITEM',
1488: p_token_value => 'latest_revision_flag');
1489: x_return_status := G_RET_STS_ERROR;
1486: AMW_UTILITY_PVT.Error_Message(p_message_name => 'AMW_REQUIRE_ITEM_ERROR',
1487: p_token_name => 'ITEM',
1488: p_token_value => 'latest_revision_flag');
1489: x_return_status := G_RET_STS_ERROR;
1490: RAISE FND_API.G_EXC_ERROR;
1491: END IF;
1492:
1493: IF p_audit_procedure_rec.curr_approved_flag = FND_API.g_miss_char THEN
1494: AMW_UTILITY_PVT.Error_Message(p_message_name => 'AMW_REQUIRE_ITEM_ERROR',
1489: x_return_status := G_RET_STS_ERROR;
1490: RAISE FND_API.G_EXC_ERROR;
1491: END IF;
1492:
1493: IF p_audit_procedure_rec.curr_approved_flag = FND_API.g_miss_char THEN
1494: AMW_UTILITY_PVT.Error_Message(p_message_name => 'AMW_REQUIRE_ITEM_ERROR',
1495: p_token_name => 'ITEM',
1496: p_token_value => 'curr_approved_flag');
1497: x_return_status := G_RET_STS_ERROR;
1494: AMW_UTILITY_PVT.Error_Message(p_message_name => 'AMW_REQUIRE_ITEM_ERROR',
1495: p_token_name => 'ITEM',
1496: p_token_value => 'curr_approved_flag');
1497: x_return_status := G_RET_STS_ERROR;
1498: RAISE FND_API.G_EXC_ERROR;
1499: END IF;
1500:
1501: END IF; -- end of if:p_operate_mode
1502:
1566: IF x_return_status <> G_RET_STS_SUCCESS THEN
1567: AMW_UTILITY_PVT.Error_Message(p_message_name => 'AMW_EXE_ERROR',
1568: p_token_name => 'OBJ_TYPE',
1569: p_token_value => G_OBJ_TYPE);
1570: RAISE FND_API.G_EXC_ERROR;
1571: END IF;
1572:
1573: -- Check Items Required/NOT NULL API calls
1574: check_AP_req_items(
1578: IF x_return_status <> G_RET_STS_SUCCESS THEN
1579: AMW_UTILITY_PVT.Error_Message(p_message_name => 'AMW_EXE_ERROR',
1580: p_token_name => 'OBJ_TYPE',
1581: p_token_value => G_OBJ_TYPE);
1582: RAISE FND_API.G_EXC_ERROR;
1583: END IF;
1584:
1585: -- Check Items Foreign Keys API calls
1586: check_AP_FK_items(
1590: IF x_return_status <> G_RET_STS_SUCCESS THEN
1591: AMW_UTILITY_PVT.Error_Message(p_message_name => 'AMW_EXE_ERROR',
1592: p_token_name => 'OBJ_TYPE',
1593: p_token_value => G_OBJ_TYPE);
1594: RAISE FND_API.G_EXC_ERROR;
1595: END IF;
1596:
1597: -- Check Items Lookups
1598: check_AP_Lookup_items(
1602: IF x_return_status <> G_RET_STS_SUCCESS THEN
1603: AMW_UTILITY_PVT.Error_Message(p_message_name => 'AMW_EXE_ERROR',
1604: p_token_name => 'OBJ_TYPE',
1605: p_token_value => G_OBJ_TYPE);
1606: RAISE FND_API.G_EXC_ERROR;
1607: END IF;
1608:
1609: END Check_AP_Items;
1610:
1657: IF p_audit_procedure_rec.audit_procedure_rev_id IS NULL THEN
1658: AMW_UTILITY_PVT.Error_Message(p_message_name => 'AMW_UNEXPECT_ERROR',
1659: p_token_name => 'OBJ_TYPE',
1660: p_token_value => G_OBJ_TYPE);
1661: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1662: END IF;
1663:
1664: -- audit_procedure_id
1665: IF p_audit_procedure_rec.audit_procedure_id IS NULL THEN
1872: -- Initialize API return status to SUCCESS
1873: x_return_status := G_RET_STS_SUCCESS;
1874:
1875: -- Standard call to check for call compatibility.
1876: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1877: p_api_version_number,
1878: l_api_name,
1879: G_PKG_NAME)
1880: THEN
1877: p_api_version_number,
1878: l_api_name,
1879: G_PKG_NAME)
1880: THEN
1881: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1882: END IF;
1883:
1884: -- Initialize message list if p_init_msg_list is set to TRUE.
1885: IF FND_API.to_Boolean( p_init_msg_list )
1881: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1882: END IF;
1883:
1884: -- Initialize message list if p_init_msg_list is set to TRUE.
1885: IF FND_API.to_Boolean( p_init_msg_list )
1886: THEN
1887: FND_MSG_PUB.initialize;
1888: END IF;
1889:
1902: p_audit_procedure_rec => l_audit_procedure_rec,
1903: x_return_status => x_return_status);
1904:
1905: IF x_return_status = G_RET_STS_ERROR THEN
1906: RAISE FND_API.G_EXC_ERROR;
1907: ELSIF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1908: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1909: END IF;
1910: END IF;
1904:
1905: IF x_return_status = G_RET_STS_ERROR THEN
1906: RAISE FND_API.G_EXC_ERROR;
1907: ELSIF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1908: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1909: END IF;
1910: END IF;
1911:
1912:
1920: x_msg_data => x_msg_data,
1921: p_audit_procedure_rec => l_audit_procedure_rec);
1922:
1923: IF x_return_status = G_RET_STS_ERROR THEN
1924: RAISE FND_API.G_EXC_ERROR;
1925: ELSIF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1926: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1927: END IF;
1928: END IF;
1922:
1923: IF x_return_status = G_RET_STS_ERROR THEN
1924: RAISE FND_API.G_EXC_ERROR;
1925: ELSIF x_return_status = G_RET_STS_UNEXP_ERROR THEN
1926: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1927: END IF;
1928: END IF;
1929:
1930: x_audit_procedure_rec := l_audit_procedure_rec;
1941: WHEN AMW_UTILITY_PVT.resource_locked THEN
1942: x_return_status := G_RET_STS_ERROR;
1943: AMW_UTILITY_PVT.Error_Message(p_message_name => 'AMW_API_RESOURCE_LOCKED');
1944:
1945: WHEN FND_API.G_EXC_ERROR THEN
1946: ROLLBACK TO VALIDATE_AP_;
1947: x_return_status := G_RET_STS_ERROR;
1948: -- Standard call to get message count and if count=1, get the message
1949: FND_MSG_PUB.Count_And_Get (
1950: p_encoded => G_FALSE,
1951: p_count => x_msg_count,
1952: p_data => x_msg_data);
1953:
1954: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1955: ROLLBACK TO VALIDATE_AP_;
1956: x_return_status := G_RET_STS_UNEXP_ERROR;
1957: -- Standard call to get message count and if count=1, get the message
1958: FND_MSG_PUB.Count_And_Get (
2001: l_api_name CONSTANT VARCHAR2(30) := 'Validate_AP_Rec';
2002:
2003: BEGIN
2004: -- Initialize message list if p_init_msg_list is set to TRUE.
2005: IF FND_API.to_Boolean( p_init_msg_list )
2006: THEN
2007: FND_MSG_PUB.initialize;
2008: END IF;
2009:
2021: IF x_return_status<>G_RET_STS_SUCCESS THEN
2022: AMW_UTILITY_PVT.Error_Message(p_message_name => 'AMW_EXE_ERROR',
2023: p_token_name => 'OBJ_TYPE',
2024: p_token_value => G_OBJ_TYPE);
2025: RAISE FND_API.G_EXC_ERROR;
2026: END IF;
2027:
2028: ELSIF p_operate_mode = G_OP_UPDATE THEN
2029: Validate_update_AP_rec(
2034: IF x_return_status<>G_RET_STS_SUCCESS THEN
2035: AMW_UTILITY_PVT.Error_Message(p_message_name => 'AMW_EXE_ERROR',
2036: p_token_name => 'OBJ_TYPE',
2037: p_token_value => G_OBJ_TYPE);
2038: RAISE FND_API.G_EXC_ERROR;
2039: END IF;
2040:
2041: ELSIF p_operate_mode = G_OP_REVISE THEN
2042: Validate_revise_AP_rec(
2047: IF x_return_status<>G_RET_STS_SUCCESS THEN
2048: AMW_UTILITY_PVT.Error_Message(p_message_name => 'AMW_EXE_ERROR',
2049: p_token_name => 'OBJ_TYPE',
2050: p_token_value => G_OBJ_TYPE);
2051: RAISE FND_API.G_EXC_ERROR;
2052: END IF;
2053:
2054: ELSIF p_operate_mode = G_OP_DELETE THEN
2055: Validate_delete_AP_rec(
2060: IF x_return_status<>G_RET_STS_SUCCESS THEN
2061: AMW_UTILITY_PVT.Error_Message(p_message_name => 'AMW_EXE_ERROR',
2062: p_token_name => 'OBJ_TYPE',
2063: p_token_value => G_OBJ_TYPE);
2064: RAISE FND_API.G_EXC_ERROR;
2065: END IF;
2066:
2067: ELSE
2068: AMW_UTILITY_PVT.Error_Message(p_message_name => 'AMW_UNEXPECT_ERROR',
2067: ELSE
2068: AMW_UTILITY_PVT.Error_Message(p_message_name => 'AMW_UNEXPECT_ERROR',
2069: p_token_name => 'OBJ_TYPE',
2070: p_token_value => G_OBJ_TYPE);
2071: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2072: END IF;
2073:
2074:
2075: AMW_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
2121: AMW_UTILITY_PVT.Error_Message(p_message_name => 'AMW_UNIQUE_ITEM_ERROR',
2122: p_token_name => 'ITEM',
2123: p_token_value => 'audit_procedure_name');
2124: x_return_status := G_RET_STS_ERROR;
2125: RAISE FND_API.G_EXC_ERROR;
2126: END IF;
2127:
2128: AMW_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
2129:
2132: (p_count => x_msg_count,
2133: p_data => x_msg_data);
2134:
2135: EXCEPTION
2136: WHEN FND_API.G_EXC_ERROR THEN
2137:
2138: x_return_status := G_RET_STS_ERROR;
2139: -- Standard call to get message count and if count=1, get the message
2140: FND_MSG_PUB.Count_And_Get (
2141: p_encoded => G_FALSE,
2142: p_count => x_msg_count,
2143: p_data => x_msg_data);
2144:
2145: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2146:
2147: x_return_status := G_RET_STS_UNEXP_ERROR;
2148: -- Standard call to get message count and if count=1, get the message
2149: FND_MSG_PUB.Count_And_Get (
2223: AMW_UTILITY_PVT.Error_Message(p_message_name => 'AMW_UNIQUE_ITEM_ERROR',
2224: p_token_name => 'ITEM',
2225: p_token_value => 'audit_procedure_name');
2226: x_return_status := G_RET_STS_ERROR;
2227: RAISE FND_API.G_EXC_ERROR;
2228: END IF;
2229:
2230: AMW_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
2231:
2235: p_data => x_msg_data);
2236:
2237: EXCEPTION
2238:
2239: WHEN FND_API.G_EXC_ERROR THEN
2240:
2241: x_return_status := G_RET_STS_ERROR;
2242: -- Standard call to get message count and if count=1, get the message
2243: FND_MSG_PUB.Count_And_Get (
2244: p_encoded => G_FALSE,
2245: p_count => x_msg_count,
2246: p_data => x_msg_data);
2247:
2248: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2249:
2250: x_return_status := G_RET_STS_UNEXP_ERROR;
2251: -- Standard call to get message count and if count=1, get the message
2252: FND_MSG_PUB.Count_And_Get (
2315: x_return_status := G_RET_STS_ERROR;
2316: AMW_UTILITY_PVT.Error_Message(p_message_name => 'AMW_EXE_ERROR',
2317: p_token_name => 'OBJ_TYPE',
2318: p_token_value => G_OBJ_TYPE);
2319: RAISE FND_API.G_EXC_ERROR;
2320: END IF;
2321:
2322: AMW_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
2323:
2327: p_data => x_msg_data);
2328:
2329: EXCEPTION
2330:
2331: WHEN FND_API.G_EXC_ERROR THEN
2332:
2333: x_return_status := G_RET_STS_ERROR;
2334: -- Standard call to get message count and if count=1, get the message
2335: FND_MSG_PUB.Count_And_Get (
2336: p_encoded => G_FALSE,
2337: p_count => x_msg_count,
2338: p_data => x_msg_data);
2339:
2340: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2341:
2342: x_return_status := G_RET_STS_UNEXP_ERROR;
2343: -- Standard call to get message count and if count=1, get the message
2344: FND_MSG_PUB.Count_And_Get (
2401: AMW_UTILITY_PVT.Error_Message(p_message_name => 'AMW_EXE_ERROR',
2402: p_token_name => 'OBJ_TYPE',
2403: p_token_value => G_OBJ_TYPE);
2404: x_return_status := G_RET_STS_ERROR;
2405: RAISE FND_API.G_EXC_ERROR;
2406: END IF;
2407:
2408: AMW_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
2409:
2413: p_data => x_msg_data);
2414:
2415: EXCEPTION
2416:
2417: WHEN FND_API.G_EXC_ERROR THEN
2418:
2419: x_return_status := G_RET_STS_ERROR;
2420: -- Standard call to get message count and if count=1, get the message
2421: FND_MSG_PUB.Count_And_Get (
2422: p_encoded => G_FALSE,
2423: p_count => x_msg_count,
2424: p_data => x_msg_data);
2425:
2426: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2427:
2428: x_return_status := G_RET_STS_UNEXP_ERROR;
2429: -- Standard call to get message count and if count=1, get the message
2430: FND_MSG_PUB.Count_And_Get (
2458: --
2459: -- ===============================================================
2460: PROCEDURE copy_audit_steps(
2461: p_api_version IN NUMBER,
2462: p_init_msg_list IN VARCHAR2, -- default FND_API.G_FALSE,
2463: p_commit IN VARCHAR2, -- default FND_API.G_FALSE,
2464: p_validation_level IN NUMBER, -- default FND_API.G_VALID_LEVEL_FULL,
2465: x_return_status OUT NOCOPY VARCHAR2,
2466: x_msg_count OUT NOCOPY NUMBER,
2459: -- ===============================================================
2460: PROCEDURE copy_audit_steps(
2461: p_api_version IN NUMBER,
2462: p_init_msg_list IN VARCHAR2, -- default FND_API.G_FALSE,
2463: p_commit IN VARCHAR2, -- default FND_API.G_FALSE,
2464: p_validation_level IN NUMBER, -- default FND_API.G_VALID_LEVEL_FULL,
2465: x_return_status OUT NOCOPY VARCHAR2,
2466: x_msg_count OUT NOCOPY NUMBER,
2467: x_msg_data OUT NOCOPY VARCHAR2,
2460: PROCEDURE copy_audit_steps(
2461: p_api_version IN NUMBER,
2462: p_init_msg_list IN VARCHAR2, -- default FND_API.G_FALSE,
2463: p_commit IN VARCHAR2, -- default FND_API.G_FALSE,
2464: p_validation_level IN NUMBER, -- default FND_API.G_VALID_LEVEL_FULL,
2465: x_return_status OUT NOCOPY VARCHAR2,
2466: x_msg_count OUT NOCOPY NUMBER,
2467: x_msg_data OUT NOCOPY VARCHAR2,
2468: x_from_ap_rev_id IN NUMBER,
2519: -- Standard Start of API savepoint
2520: SAVEPOINT COPY_AUDIT_STEPS_SAVEPT;
2521:
2522: -- Standard call to check for call compatibility.
2523: IF NOT FND_API.Compatible_API_Call (l_api_version,
2524: p_api_version,
2525: l_api_name,
2526: G_PKG_NAME)
2527: THEN
2524: p_api_version,
2525: l_api_name,
2526: G_PKG_NAME)
2527: THEN
2528: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2529: END IF;
2530:
2531: -- Initialize message list if p_init_msg_list is set to TRUE.
2532: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2528: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2529: END IF;
2530:
2531: -- Initialize message list if p_init_msg_list is set to TRUE.
2532: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2533: FND_MSG_PUB.initialize;
2534: END IF;
2535: -- Initialize API return status to success
2536: x_return_status := FND_API.G_RET_STS_SUCCESS;
2532: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2533: FND_MSG_PUB.initialize;
2534: END IF;
2535: -- Initialize API return status to success
2536: x_return_status := FND_API.G_RET_STS_SUCCESS;
2537:
2538: IF x_to_ap_id IS NULL OR x_to_ap_id = FND_API.G_MISS_NUM
2539: THEN
2540: -- missing or NULL required parameter
2534: END IF;
2535: -- Initialize API return status to success
2536: x_return_status := FND_API.G_RET_STS_SUCCESS;
2537:
2538: IF x_to_ap_id IS NULL OR x_to_ap_id = FND_API.G_MISS_NUM
2539: THEN
2540: -- missing or NULL required parameter
2541: -- 1. Set the return status to error
2542: -- 2. Write a message to the message list.
2540: -- missing or NULL required parameter
2541: -- 1. Set the return status to error
2542: -- 2. Write a message to the message list.
2543: -- 3. Return to the caller.
2544: x_return_status := FND_API.G_RET_STS_ERROR ;
2545: FND_MESSAGE.SET_NAME ('AMW', 'AMW_MISS_TO_AP_ID');
2546: FND_MSG_PUB.Add;
2547: RETURN;
2548: END IF;
2585: X_FROM_REV_NUM => l_from_rev_num,
2586: X_TO_REV_NUM => NULL,
2587: X_CSEQNUM => steprec.CSEQNUM);
2588: END LOOP;
2589: IF FND_API.To_Boolean( p_commit ) THEN
2590: COMMIT WORK;
2591: END IF;
2592: -- Standard call to get message count and if count is 1, get message info.
2593: FND_MSG_PUB.Count_And_Get
2594: ( p_count => x_msg_count ,
2595: p_data => x_msg_data
2596: );
2597: EXCEPTION
2598: WHEN FND_API.G_EXC_ERROR THEN
2599: ROLLBACK TO COPY_AUDIT_STEPS_SAVEPT;
2600: x_return_status := FND_API.G_RET_STS_ERROR ;
2601: FND_MSG_PUB.Count_And_Get
2602: ( p_count => x_msg_count ,
2596: );
2597: EXCEPTION
2598: WHEN FND_API.G_EXC_ERROR THEN
2599: ROLLBACK TO COPY_AUDIT_STEPS_SAVEPT;
2600: x_return_status := FND_API.G_RET_STS_ERROR ;
2601: FND_MSG_PUB.Count_And_Get
2602: ( p_count => x_msg_count ,
2603: p_data => x_msg_data
2604: );
2601: FND_MSG_PUB.Count_And_Get
2602: ( p_count => x_msg_count ,
2603: p_data => x_msg_data
2604: );
2605: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2606: ROLLBACK TO COPY_AUDIT_STEPS_SAVEPT;
2607: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2608: FND_MSG_PUB.Count_And_Get
2609: ( p_count => x_msg_count ,
2603: p_data => x_msg_data
2604: );
2605: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2606: ROLLBACK TO COPY_AUDIT_STEPS_SAVEPT;
2607: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2608: FND_MSG_PUB.Count_And_Get
2609: ( p_count => x_msg_count ,
2610: p_data => x_msg_data
2611: );
2610: p_data => x_msg_data
2611: );
2612: WHEN OTHERS THEN
2613: ROLLBACK TO COPY_AUDIT_STEPS_SAVEPT;
2614: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2615: IF FND_MSG_PUB.Check_Msg_Level
2616: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2617: THEN
2618: FND_MSG_PUB.Add_Exc_Msg
2636: --
2637: -- ===============================================================
2638: PROCEDURE copy_tasks(
2639: p_api_version IN NUMBER,
2640: p_init_msg_list IN VARCHAR2, -- default FND_API.G_FALSE,
2641: p_commit IN VARCHAR2, -- default FND_API.G_FALSE,
2642: p_validation_level IN NUMBER, -- default FND_API.G_VALID_LEVEL_FULL,
2643: x_return_status OUT NOCOPY VARCHAR2,
2644: x_msg_count OUT NOCOPY NUMBER,
2637: -- ===============================================================
2638: PROCEDURE copy_tasks(
2639: p_api_version IN NUMBER,
2640: p_init_msg_list IN VARCHAR2, -- default FND_API.G_FALSE,
2641: p_commit IN VARCHAR2, -- default FND_API.G_FALSE,
2642: p_validation_level IN NUMBER, -- default FND_API.G_VALID_LEVEL_FULL,
2643: x_return_status OUT NOCOPY VARCHAR2,
2644: x_msg_count OUT NOCOPY NUMBER,
2645: x_msg_data OUT NOCOPY VARCHAR2,
2638: PROCEDURE copy_tasks(
2639: p_api_version IN NUMBER,
2640: p_init_msg_list IN VARCHAR2, -- default FND_API.G_FALSE,
2641: p_commit IN VARCHAR2, -- default FND_API.G_FALSE,
2642: p_validation_level IN NUMBER, -- default FND_API.G_VALID_LEVEL_FULL,
2643: x_return_status OUT NOCOPY VARCHAR2,
2644: x_msg_count OUT NOCOPY NUMBER,
2645: x_msg_data OUT NOCOPY VARCHAR2,
2646: x_from_ap_id IN NUMBER,
2654: -- Standard Start of API savepoint
2655: SAVEPOINT COPY_TASKS_SAVEPT;
2656:
2657: -- Standard call to check for call compatibility.
2658: IF NOT FND_API.Compatible_API_Call (l_api_version,
2659: p_api_version,
2660: l_api_name,
2661: G_PKG_NAME)
2662: THEN
2659: p_api_version,
2660: l_api_name,
2661: G_PKG_NAME)
2662: THEN
2663: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2664: END IF;
2665:
2666: -- Initialize message list if p_init_msg_list is set to TRUE.
2667: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2663: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2664: END IF;
2665:
2666: -- Initialize message list if p_init_msg_list is set to TRUE.
2667: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2668: FND_MSG_PUB.initialize;
2669: END IF;
2670: -- Initialize API return status to success
2671: x_return_status := FND_API.G_RET_STS_SUCCESS;
2667: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2668: FND_MSG_PUB.initialize;
2669: END IF;
2670: -- Initialize API return status to success
2671: x_return_status := FND_API.G_RET_STS_SUCCESS;
2672:
2673: IF x_to_ap_id IS NULL OR x_to_ap_id = FND_API.G_MISS_NUM
2674: THEN
2675: -- missing or NULL required parameter
2669: END IF;
2670: -- Initialize API return status to success
2671: x_return_status := FND_API.G_RET_STS_SUCCESS;
2672:
2673: IF x_to_ap_id IS NULL OR x_to_ap_id = FND_API.G_MISS_NUM
2674: THEN
2675: -- missing or NULL required parameter
2676: -- 1. Set the return status to error
2677: -- 2. Write a message to the message list.
2675: -- missing or NULL required parameter
2676: -- 1. Set the return status to error
2677: -- 2. Write a message to the message list.
2678: -- 3. Return to the caller.
2679: x_return_status := FND_API.G_RET_STS_ERROR ;
2680: FND_MESSAGE.SET_NAME ('AMW', 'AMW_MISS_TO_AP_ID');
2681: FND_MSG_PUB.Add;
2682: RETURN;
2683: END IF;
2745: taskrec.REQUESTOR_ID
2746: FROM AMW_AP_TASKS taskrec
2747: WHERE audit_procedure_id = x_from_ap_id);
2748: --END LOOP;
2749: IF FND_API.To_Boolean( p_commit ) THEN
2750: COMMIT WORK;
2751: END IF;
2752: -- Standard call to get message count and if count is 1, get message info.
2753: FND_MSG_PUB.Count_And_Get
2754: ( p_count => x_msg_count ,
2755: p_data => x_msg_data
2756: );
2757: EXCEPTION
2758: WHEN FND_API.G_EXC_ERROR THEN
2759: ROLLBACK TO COPY_TASKS_SAVEPT;
2760: x_return_status := FND_API.G_RET_STS_ERROR ;
2761: FND_MSG_PUB.Count_And_Get
2762: ( p_count => x_msg_count ,
2756: );
2757: EXCEPTION
2758: WHEN FND_API.G_EXC_ERROR THEN
2759: ROLLBACK TO COPY_TASKS_SAVEPT;
2760: x_return_status := FND_API.G_RET_STS_ERROR ;
2761: FND_MSG_PUB.Count_And_Get
2762: ( p_count => x_msg_count ,
2763: p_data => x_msg_data
2764: );
2761: FND_MSG_PUB.Count_And_Get
2762: ( p_count => x_msg_count ,
2763: p_data => x_msg_data
2764: );
2765: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2766: ROLLBACK TO COPY_TASKS_SAVEPT;
2767: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2768: FND_MSG_PUB.Count_And_Get
2769: ( p_count => x_msg_count ,
2763: p_data => x_msg_data
2764: );
2765: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2766: ROLLBACK TO COPY_TASKS_SAVEPT;
2767: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2768: FND_MSG_PUB.Count_And_Get
2769: ( p_count => x_msg_count ,
2770: p_data => x_msg_data
2771: );
2770: p_data => x_msg_data
2771: );
2772: WHEN OTHERS THEN
2773: ROLLBACK TO COPY_TASKS_SAVEPT;
2774: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2775: IF FND_MSG_PUB.Check_Msg_Level
2776: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2777: THEN
2778: FND_MSG_PUB.Add_Exc_Msg
2796: --
2797: -- ===============================================================
2798: PROCEDURE copy_controls(
2799: p_api_version IN NUMBER,
2800: p_init_msg_list IN VARCHAR2, -- default FND_API.G_FALSE,
2801: p_commit IN VARCHAR2, -- default FND_API.G_FALSE,
2802: p_validation_level IN NUMBER, -- default FND_API.G_VALID_LEVEL_FULL,
2803: x_return_status OUT NOCOPY VARCHAR2,
2804: x_msg_count OUT NOCOPY NUMBER,
2797: -- ===============================================================
2798: PROCEDURE copy_controls(
2799: p_api_version IN NUMBER,
2800: p_init_msg_list IN VARCHAR2, -- default FND_API.G_FALSE,
2801: p_commit IN VARCHAR2, -- default FND_API.G_FALSE,
2802: p_validation_level IN NUMBER, -- default FND_API.G_VALID_LEVEL_FULL,
2803: x_return_status OUT NOCOPY VARCHAR2,
2804: x_msg_count OUT NOCOPY NUMBER,
2805: x_msg_data OUT NOCOPY VARCHAR2,
2798: PROCEDURE copy_controls(
2799: p_api_version IN NUMBER,
2800: p_init_msg_list IN VARCHAR2, -- default FND_API.G_FALSE,
2801: p_commit IN VARCHAR2, -- default FND_API.G_FALSE,
2802: p_validation_level IN NUMBER, -- default FND_API.G_VALID_LEVEL_FULL,
2803: x_return_status OUT NOCOPY VARCHAR2,
2804: x_msg_count OUT NOCOPY NUMBER,
2805: x_msg_data OUT NOCOPY VARCHAR2,
2806: x_from_ap_id IN NUMBER,
2814: -- Standard Start of API savepoint
2815: SAVEPOINT COPY_CONTROLS_SAVEPT;
2816:
2817: -- Standard call to check for call compatibility.
2818: IF NOT FND_API.Compatible_API_Call (l_api_version,
2819: p_api_version,
2820: l_api_name,
2821: G_PKG_NAME)
2822: THEN
2819: p_api_version,
2820: l_api_name,
2821: G_PKG_NAME)
2822: THEN
2823: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2824: END IF;
2825:
2826: -- Initialize message list if p_init_msg_list is set to TRUE.
2827: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2823: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2824: END IF;
2825:
2826: -- Initialize message list if p_init_msg_list is set to TRUE.
2827: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2828: FND_MSG_PUB.initialize;
2829: END IF;
2830: -- Initialize API return status to success
2831: x_return_status := FND_API.G_RET_STS_SUCCESS;
2827: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2828: FND_MSG_PUB.initialize;
2829: END IF;
2830: -- Initialize API return status to success
2831: x_return_status := FND_API.G_RET_STS_SUCCESS;
2832:
2833: IF x_to_ap_id IS NULL OR x_to_ap_id = FND_API.G_MISS_NUM
2834: THEN
2835: -- missing or NULL required parameter
2829: END IF;
2830: -- Initialize API return status to success
2831: x_return_status := FND_API.G_RET_STS_SUCCESS;
2832:
2833: IF x_to_ap_id IS NULL OR x_to_ap_id = FND_API.G_MISS_NUM
2834: THEN
2835: -- missing or NULL required parameter
2836: -- 1. Set the return status to error
2837: -- 2. Write a message to the message list.
2835: -- missing or NULL required parameter
2836: -- 1. Set the return status to error
2837: -- 2. Write a message to the message list.
2838: -- 3. Return to the caller.
2839: x_return_status := FND_API.G_RET_STS_ERROR ;
2840: FND_MESSAGE.SET_NAME ('AMW', 'AMW_MISS_TO_AP_ID');
2841: FND_MSG_PUB.Add;
2842: RETURN;
2843: END IF;
2913: ctrlrec.OP_EFFECTIVENESS
2914: FROM AMW_AP_ASSOCIATIONS ctrlrec
2915: WHERE audit_procedure_id = x_from_ap_id);
2916: --END LOOP;
2917: IF FND_API.To_Boolean( p_commit ) THEN
2918: COMMIT WORK;
2919: END IF;
2920: -- Standard call to get message count and if count is 1, get message info.
2921: FND_MSG_PUB.Count_And_Get
2922: ( p_count => x_msg_count ,
2923: p_data => x_msg_data
2924: );
2925: EXCEPTION
2926: WHEN FND_API.G_EXC_ERROR THEN
2927: ROLLBACK TO COPY_CONTROLS_SAVEPT;
2928: x_return_status := FND_API.G_RET_STS_ERROR ;
2929: FND_MSG_PUB.Count_And_Get
2930: ( p_count => x_msg_count ,
2924: );
2925: EXCEPTION
2926: WHEN FND_API.G_EXC_ERROR THEN
2927: ROLLBACK TO COPY_CONTROLS_SAVEPT;
2928: x_return_status := FND_API.G_RET_STS_ERROR ;
2929: FND_MSG_PUB.Count_And_Get
2930: ( p_count => x_msg_count ,
2931: p_data => x_msg_data
2932: );
2929: FND_MSG_PUB.Count_And_Get
2930: ( p_count => x_msg_count ,
2931: p_data => x_msg_data
2932: );
2933: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2934: ROLLBACK TO COPY_CONTROLS_SAVEPT;
2935: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2936: FND_MSG_PUB.Count_And_Get
2937: ( p_count => x_msg_count ,
2931: p_data => x_msg_data
2932: );
2933: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2934: ROLLBACK TO COPY_CONTROLS_SAVEPT;
2935: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2936: FND_MSG_PUB.Count_And_Get
2937: ( p_count => x_msg_count ,
2938: p_data => x_msg_data
2939: );
2938: p_data => x_msg_data
2939: );
2940: WHEN OTHERS THEN
2941: ROLLBACK TO COPY_CONTROLS_SAVEPT;
2942: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2943: IF FND_MSG_PUB.Check_Msg_Level
2944: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2945: THEN
2946: FND_MSG_PUB.Add_Exc_Msg
3022: begin
3023: -- Standard Start of API savepoint
3024: SAVEPOINT INSERT_AP_STEP_PVT;
3025: -- Standard call to check for call compatibility.
3026: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
3027: p_api_version_number,
3028: l_api_name,
3029: G_PKG_NAME)
3030: THEN
3027: p_api_version_number,
3028: l_api_name,
3029: G_PKG_NAME)
3030: THEN
3031: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3032: END IF;
3033:
3034: -- Initialize message list if p_init_msg_list is set to TRUE.
3035: IF FND_API.to_Boolean( p_init_msg_list )
3031: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3032: END IF;
3033:
3034: -- Initialize message list if p_init_msg_list is set to TRUE.
3035: IF FND_API.to_Boolean( p_init_msg_list )
3036: THEN
3037: FND_MSG_PUB.initialize;
3038: END IF;
3039:
3037: FND_MSG_PUB.initialize;
3038: END IF;
3039:
3040: -- added npanandi 11/08/2004
3041: x_return_status := fnd_api.g_ret_sts_success;
3042:
3043: fnd_file.put_line(fnd_file.LOG,'Inside insert_ap_step --> x_return_status: '||x_return_status);
3044:
3045: open c_get_rev_num(p_audit_procedure_rev_id);
3050: then
3051: AMW_UTILITY_PVT.Error_Message(p_message_name => 'AMW_UNEXPECT_ERROR',
3052: p_token_name => 'OBJ_TYPE',
3053: p_token_value => G_OBJ_TYPE);
3054: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3055: end if;
3056:
3057: -- check if a step with the same p_seqnum exists with from_rev_num = l_rev_num. If it does then update
3058: -- it. Check if a step with the same p_seqnum exists with to_rev_num = null. If it does then set
3216: X_CSEQNUM => p_seqnum);
3217: end if;
3218:
3219: -- Standard check for p_commit
3220: IF FND_API.to_Boolean( p_commit )
3221: THEN
3222: COMMIT WORK;
3223: END IF;
3224:
3226:
3227: exception
3228: WHEN OTHERS THEN
3229: ROLLBACK TO INSERT_AP_STEP_PVT;
3230: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3231: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
3232: p_count => x_msg_count,
3233: p_data => x_msg_data);
3234:
3227: exception
3228: WHEN OTHERS THEN
3229: ROLLBACK TO INSERT_AP_STEP_PVT;
3230: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3231: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
3232: p_count => x_msg_count,
3233: p_data => x_msg_data);
3234:
3235: end insert_ap_step;
3290: begin
3291: -- Standard Start of API savepoint
3292: SAVEPOINT INSERT_AP_CONTROL_ASSOC_PVT;
3293: -- Standard call to check for call compatibility.
3294: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
3295: p_api_version_number,
3296: l_api_name,
3297: G_PKG_NAME)
3298: THEN
3295: p_api_version_number,
3296: l_api_name,
3297: G_PKG_NAME)
3298: THEN
3299: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3300: END IF;
3301:
3302: -- Initialize message list if p_init_msg_list is set to TRUE.
3303: IF FND_API.to_Boolean( p_init_msg_list )
3299: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3300: END IF;
3301:
3302: -- Initialize message list if p_init_msg_list is set to TRUE.
3303: IF FND_API.to_Boolean( p_init_msg_list )
3304: THEN
3305: FND_MSG_PUB.initialize;
3306: END IF;
3307: x_return_status := fnd_api.g_ret_sts_success;
3303: IF FND_API.to_Boolean( p_init_msg_list )
3304: THEN
3305: FND_MSG_PUB.initialize;
3306: END IF;
3307: x_return_status := fnd_api.g_ret_sts_success;
3308:
3309: fnd_file.put_line(fnd_file.LOG,'Inside insert_ap_control_assoc --> x_return_status: '||x_return_status);
3310:
3311: if(p_control_id is null OR p_audit_procedure_id is null)
3312: then
3313: AMW_UTILITY_PVT.Error_Message(p_message_name => 'AMW_UNEXPECT_ERROR',
3314: p_token_name => 'OBJ_TYPE',
3315: p_token_value => G_OBJ_TYPE);
3316: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3317: end if;
3318: if(p_des_eff = 'N' AND p_op_eff = 'N') then
3319: AMW_UTILITY_PVT.Error_Message(p_message_name => 'AMW_ASSOC_AP_EFF_WEBADI_MSG');
3320: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3316: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3317: end if;
3318: if(p_des_eff = 'N' AND p_op_eff = 'N') then
3319: AMW_UTILITY_PVT.Error_Message(p_message_name => 'AMW_ASSOC_AP_EFF_WEBADI_MSG');
3320: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3321: end if;
3322:
3323: if(p_approval_date is null)
3324: then
3430: );
3431: end if;
3432:
3433: -- Standard check for p_commit
3434: IF FND_API.to_Boolean( p_commit )
3435: THEN
3436: COMMIT WORK;
3437: END IF;
3438:
3440:
3441: exception
3442: WHEN OTHERS THEN
3443: ROLLBACK TO INSERT_AP_CONTROL_ASSOC_PVT;
3444: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3445: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
3446: p_count => x_msg_count,
3447: p_data => x_msg_data);
3448:
3441: exception
3442: WHEN OTHERS THEN
3443: ROLLBACK TO INSERT_AP_CONTROL_ASSOC_PVT;
3444: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3445: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
3446: p_count => x_msg_count,
3447: p_data => x_msg_data);
3448:
3449: end insert_ap_control_assoc;
3479: begin
3480: -- Standard Start of API savepoint
3481: SAVEPOINT COPY_EXT_ATTR;
3482: -- Standard call to check for call compatibility.
3483: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
3484: p_api_version_number,
3485: l_api_name,
3486: G_PKG_NAME)
3487: THEN
3484: p_api_version_number,
3485: l_api_name,
3486: G_PKG_NAME)
3487: THEN
3488: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3489: END IF;
3490:
3491: -- Initialize message list if p_init_msg_list is set to TRUE.
3492: IF FND_API.to_Boolean( p_init_msg_list )
3488: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3489: END IF;
3490:
3491: -- Initialize message list if p_init_msg_list is set to TRUE.
3492: IF FND_API.to_Boolean( p_init_msg_list )
3493: THEN
3494: FND_MSG_PUB.initialize;
3495: END IF;
3496: x_return_status := fnd_api.g_ret_sts_success;
3492: IF FND_API.to_Boolean( p_init_msg_list )
3493: THEN
3494: FND_MSG_PUB.initialize;
3495: END IF;
3496: x_return_status := fnd_api.g_ret_sts_success;
3497:
3498: fnd_file.put_line(fnd_file.LOG,'Inside copy_ext_attr --> x_return_status: '||x_return_status);
3499:
3500: if(p_from_audit_procedure_id is null OR p_to_audit_procedure_id is null)
3501: then
3502: AMW_UTILITY_PVT.Error_Message(p_message_name => 'AMW_UNEXPECT_ERROR',
3503: p_token_name => 'OBJ_TYPE',
3504: p_token_value => G_OBJ_TYPE);
3505: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3506: end if;
3507: OPEN c_fnd_object_id (cp_object_name => 'AMW_AUDIT_PROCEDURE');
3508: FETCH c_fnd_object_id INTO l_object_id;
3509: IF c_fnd_object_id%NOTFOUND THEN
3532: ,p_old_dtlevel_col_value_pairs => NULL
3533: ,p_new_pk_col_value_pairs => l_new_item_pk_value_pairs
3534: ,p_new_dtlevel_col_value_pairs => NULL
3535: ,p_new_cc_col_value_pairs => NULL
3536: ,p_commit => FND_API.G_FALSE
3537: ,x_return_status => x_return_status
3538: ,x_errorcode => l_error_code
3539: ,x_msg_count => x_msg_count
3540: ,x_msg_data => x_msg_data
3540: ,x_msg_data => x_msg_data
3541: );
3542: EXCEPTION
3543:
3544: WHEN FND_API.G_EXC_ERROR THEN
3545:
3546: ROLLBACK TO COPY_EXT_ATTR;
3547: x_return_status := G_RET_STS_ERROR;
3548: -- Standard call to get message count and if count=1, get the message
3550: p_encoded => G_FALSE,
3551: p_count => x_msg_count,
3552: p_data => x_msg_data);
3553:
3554: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3555:
3556: ROLLBACK TO COPY_EXT_ATTR;
3557: x_return_status := G_RET_STS_UNEXP_ERROR;
3558: -- Standard call to get message count and if count=1, get the message
3612: BEGIN
3613: -- Standard Start of API savepoint
3614: SAVEPOINT REVISE_AP_IF_NECESSARY;
3615: -- Standard call to check for call compatibility.
3616: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
3617: p_api_version_number,
3618: l_api_name,
3619: G_PKG_NAME)
3620: THEN
3617: p_api_version_number,
3618: l_api_name,
3619: G_PKG_NAME)
3620: THEN
3621: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3622: END IF;
3623:
3624: -- Initialize message list if p_init_msg_list is set to TRUE.
3625: IF FND_API.to_Boolean( p_init_msg_list )
3621: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3622: END IF;
3623:
3624: -- Initialize message list if p_init_msg_list is set to TRUE.
3625: IF FND_API.to_Boolean( p_init_msg_list )
3626: THEN
3627: FND_MSG_PUB.initialize;
3628: END IF;
3629: x_return_status := fnd_api.g_ret_sts_success;
3625: IF FND_API.to_Boolean( p_init_msg_list )
3626: THEN
3627: FND_MSG_PUB.initialize;
3628: END IF;
3629: x_return_status := fnd_api.g_ret_sts_success;
3630:
3631: OPEN c_revision_exists(p_audit_procedure_id);
3632: FETCH c_revision_exists INTO l_dummy;
3633: CLOSE c_revision_exists;
3637: -- no corresponding audit_procedure_id in AMW_AUDIT_PROCEDURES_B is wrong
3638: AMW_UTILITY_PVT.Error_Message(p_message_name => 'AMW_UNEXPECT_ERROR',
3639: p_token_name => 'OBJ_TYPE',
3640: p_token_value => G_OBJ_TYPE);
3641: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3642: ELSIF l_dummy >= 1
3643: THEN
3644: -- has only one record for audit_procedure_id in AMW_AUDIT_PROCEDURES_B with pass-in name
3645: OPEN c_approval_status(p_audit_procedure_id);
3651: -- this record is Pending Approval, cannot do G_OP_UPDATE or G_OP_REVISE
3652: AMW_UTILITY_PVT.Error_Message(p_message_name => 'AMW_PENDING_CHANGE_ERROR',
3653: p_token_name => 'OBJ_TYPE',
3654: p_token_value => G_OBJ_TYPE);
3655: RAISE FND_API.G_EXC_ERROR;
3656: ELSIF l_approval_status.approval_status='A' OR l_approval_status.approval_status='R'
3657: THEN
3658: OPEN c_get_rev_id;
3659: FETCH c_get_rev_id INTO l_audit_procedure_rev_id;
3771: END IF; -- end of if:l_approval_status.approval_status
3772: END IF;
3773: EXCEPTION
3774:
3775: WHEN FND_API.G_EXC_ERROR THEN
3776:
3777: ROLLBACK TO REVISE_AP_IF_NECESSARY;
3778: x_return_status := G_RET_STS_ERROR;
3779: -- Standard call to get message count and if count=1, get the message
3781: p_encoded => G_FALSE,
3782: p_count => x_msg_count,
3783: p_data => x_msg_data);
3784:
3785: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3786:
3787: ROLLBACK TO REVISE_AP_IF_NECESSARY;
3788: x_return_status := G_RET_STS_UNEXP_ERROR;
3789: -- Standard call to get message count and if count=1, get the message