[Home] [Help]
213: END IF; -- end of if:l_audit_procedure_id
214:
215: AMW_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
216:
217: -- Standard call to get message count and if count is 1, get message info.
218: FND_MSG_PUB.Count_And_Get(
219: p_count => x_msg_count,
220: p_data => x_msg_data);
221:
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 (
238: p_encoded => G_FALSE,
239: p_count => x_msg_count,
240: p_data => x_msg_data);
245: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
246: THEN
247: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
248: END IF;
249: -- Standard call to get message count and if count=1, get the message
250: FND_MSG_PUB.Count_And_Get (
251: p_encoded => G_FALSE,
252: p_count => x_msg_count,
253: p_data => x_msg_data);
475:
476:
477: AMW_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
478:
479: -- Standard call to get message count and if count is 1, get message info.
480: FND_MSG_PUB.Count_And_Get
481: (p_count => x_msg_count,
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,
500: p_count => x_msg_count,
501: p_data => x_msg_data);
506: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
507: THEN
508: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
509: END IF;
510: -- Standard call to get message count and if count=1, get the message
511: FND_MSG_PUB.Count_And_Get (
512: p_encoded => G_FALSE,
513: p_count => x_msg_count,
514: p_data => x_msg_data);
571: FROM amw_audit_procedures_b
572: WHERE audit_procedure_id = l_id;
573:
574: BEGIN
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,
574: BEGIN
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)
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 )
721: THEN
722: COMMIT WORK;
723: END IF;
724:
725:
726: AMW_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
727:
728: -- Standard call to get message count and if count is 1, get message info.
729: FND_MSG_PUB.Count_And_Get
730: (p_count => x_msg_count,
731: p_data => x_msg_data);
732:
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 (
752: p_encoded => G_FALSE,
753: p_count => x_msg_count,
754: p_data => x_msg_data);
759: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
760: THEN
761: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
762: END IF;
763: -- Standard call to get message count and if count=1, get the message
764: FND_MSG_PUB.Count_And_Get (
765: p_encoded => G_FALSE,
766: p_count => x_msg_count,
767: p_data => x_msg_data);
810: FROM amw_audit_procedures_b
811: WHERE audit_procedure_id = l_audit_procedure_id AND approval_status='D' AND latest_revision_flag='Y';
812:
813: BEGIN
814: -- Standard Start of API savepoint
815: SAVEPOINT UPDATE_AP_PVT;
816:
817:
818: -- Standard call to check for call compatibility.
814: -- Standard Start of API savepoint
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)
961: AND object_type = 'CTRL';
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:
971:
972: AMW_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
973:
974: -- Standard call to get message count and if count is 1, get message info.
975: FND_MSG_PUB.Count_And_Get
976: (p_count => x_msg_count,
977: p_data => x_msg_data);
978:
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 (
1000: p_encoded => G_FALSE,
1001: p_count => x_msg_count,
1002: p_data => x_msg_data);
1007: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1008: THEN
1009: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1010: END IF;
1011: -- Standard call to get message count and if count=1, get the message
1012: FND_MSG_PUB.Count_And_Get (
1013: p_encoded => G_FALSE,
1014: p_count => x_msg_count,
1015: p_data => x_msg_data);
1041: L_API_NAME CONSTANT VARCHAR2(30) := 'Delete_AP';
1042: L_API_VERSION_NUMBER CONSTANT NUMBER := 1.0;
1043:
1044: BEGIN
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,
1044: BEGIN
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)
1072: AMW_AUDIT_PROCEDURES_PKG.Delete_Row(
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:
1082:
1083: AMW_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
1084:
1085: -- Standard call to get message count and if count is 1, get message info.
1086: FND_MSG_PUB.Count_And_Get
1087: (p_count => x_msg_count,
1088: p_data => x_msg_data);
1089:
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 (
1110: p_encoded => G_FALSE,
1111: p_count => x_msg_count,
1112: p_data => x_msg_data);
1117: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1118: THEN
1119: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1120: END IF;
1121: -- Standard call to get message count and if count=1, get the message
1122: FND_MSG_PUB.Count_And_Get (
1123: p_encoded => G_FALSE,
1124: p_count => x_msg_count,
1125: p_data => x_msg_data);
1176: WHERE audit_procedure_id = l_audit_procedure_id AND ( approval_status='A' OR approval_status='R') AND latest_revision_flag='Y';
1177: target_revision c_target_revision%ROWTYPE;
1178:
1179: BEGIN
1180: -- Standard Start of API savepoint
1181: SAVEPOINT REVISE_AP_PVT;
1182:
1183:
1184: -- Initialize message list if p_init_msg_list is set to TRUE.
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 )
1317: THEN
1318: COMMIT WORK;
1319: END IF;
1319: END IF;
1320:
1321: AMW_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
1322:
1323: -- Standard call to get message count and if count is 1, get message info.
1324: FND_MSG_PUB.Count_And_Get
1325: (p_count => x_msg_count,
1326: p_data => x_msg_data);
1327:
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 (
1348: p_encoded => G_FALSE,
1349: p_count => x_msg_count,
1350: p_data => x_msg_data);
1355: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1356: THEN
1357: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1358: END IF;
1359: -- Standard call to get message count and if count=1, get the message
1360: FND_MSG_PUB.Count_And_Get (
1361: p_encoded => G_FALSE,
1362: p_count => x_msg_count,
1363: p_data => x_msg_data);
1411: -- Purpose
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.
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
1421: -- http://www-apps.us.oracle.com/atg/performance/
1422: -- Standards and Templates>Business Object API Coding Standards
1423: -- 2.3.1 Differentiating between Missing parameters and Null parameters
1424: -- ===============================================================
1425: PROCEDURE check_AP_req_items(
1426: p_operate_mode IN VARCHAR2,
1864: l_object_version_number NUMBER;
1865: l_audit_procedure_rec audit_procedure_rec_type;
1866:
1867: BEGIN
1868: -- Standard Start of API savepoint
1869: SAVEPOINT VALIDATE_AP_;
1870: AMW_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
1871:
1872: -- Initialize API return status to SUCCESS
1871:
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)
1930: x_audit_procedure_rec := l_audit_procedure_rec;
1931:
1932: AMW_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
1933:
1934: -- Standard call to get message count and if count is 1, get message info.
1935: FND_MSG_PUB.Count_And_Get
1936: (p_count => x_msg_count,
1937: p_data => x_msg_data);
1938:
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 (
1959: p_encoded => G_FALSE,
1960: p_count => x_msg_count,
1961: p_data => x_msg_data);
1966: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1967: THEN
1968: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1969: END IF;
1970: -- Standard call to get message count and if count=1, get the message
1971: FND_MSG_PUB.Count_And_Get (
1972: p_encoded => G_FALSE,
1973: p_count => x_msg_count,
1974: p_data => x_msg_data);
2073:
2074:
2075: AMW_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
2076:
2077: -- Standard call to get message count and if count is 1, get message info.
2078: FND_MSG_PUB.Count_And_Get
2079: (p_count => x_msg_count,
2080: p_data => x_msg_data);
2081:
2126: END IF;
2127:
2128: AMW_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
2129:
2130: -- Standard call to get message count and if count is 1, get message info.
2131: FND_MSG_PUB.Count_And_Get
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 (
2150: p_encoded => G_FALSE,
2151: p_count => x_msg_count,
2152: p_data => x_msg_data);
2157: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2158: THEN
2159: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2160: END IF;
2161: -- Standard call to get message count and if count=1, get the message
2162: FND_MSG_PUB.Count_And_Get (
2163: p_encoded => G_FALSE,
2164: p_count => x_msg_count,
2165: p_data => x_msg_data);
2228: END IF;
2229:
2230: AMW_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
2231:
2232: -- Standard call to get message count and if count is 1, get message info.
2233: FND_MSG_PUB.Count_And_Get
2234: (p_count => x_msg_count,
2235: p_data => x_msg_data);
2236:
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 (
2253: p_encoded => G_FALSE,
2254: p_count => x_msg_count,
2255: p_data => x_msg_data);
2260: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2261: THEN
2262: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2263: END IF;
2264: -- Standard call to get message count and if count=1, get the message
2265: FND_MSG_PUB.Count_And_Get (
2266: p_encoded => G_FALSE,
2267: p_count => x_msg_count,
2268: p_data => x_msg_data);
2320: END IF;
2321:
2322: AMW_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
2323:
2324: -- Standard call to get message count and if count is 1, get message info.
2325: FND_MSG_PUB.Count_And_Get
2326: (p_count => x_msg_count,
2327: p_data => x_msg_data);
2328:
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 (
2345: p_encoded => G_FALSE,
2346: p_count => x_msg_count,
2347: p_data => x_msg_data);
2352: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2353: THEN
2354: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2355: END IF;
2356: -- Standard call to get message count and if count=1, get the message
2357: FND_MSG_PUB.Count_And_Get (
2358: p_encoded => G_FALSE,
2359: p_count => x_msg_count,
2360: p_data => x_msg_data);
2406: END IF;
2407:
2408: AMW_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
2409:
2410: -- Standard call to get message count and if count is 1, get message info.
2411: FND_MSG_PUB.Count_And_Get
2412: (p_count => x_msg_count,
2413: p_data => x_msg_data);
2414:
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 (
2431: p_encoded => G_FALSE,
2432: p_count => x_msg_count,
2433: p_data => x_msg_data);
2438: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2439: THEN
2440: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2441: END IF;
2442: -- Standard call to get message count and if count=1, get the message
2443: FND_MSG_PUB.Count_And_Get (
2444: p_encoded => G_FALSE,
2445: p_count => x_msg_count,
2446: p_data => x_msg_data);
2515: ap.audit_procedure_rev_num < NVL ( step.to_rev_num, ap.audit_procedure_rev_num + 1) ;
2516:
2517:
2518: BEGIN
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,
2518: BEGIN
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)
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: );
2650: l_api_name CONSTANT VARCHAR2(30) := 'copy_tasks';
2651: l_api_version CONSTANT NUMBER := 1.0;
2652:
2653: BEGIN
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,
2653: BEGIN
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)
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: );
2810: l_api_name CONSTANT VARCHAR2(30) := 'copy_controls';
2811: l_api_version CONSTANT NUMBER := 1.0;
2812:
2813: BEGIN
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,
2813: BEGIN
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)
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: );
3019: l_ap_rev_num number;
3020: lx_step_rec c_step_exists%rowtype;
3021: lx_prev_step_rec c_step_exists_for_prev_rev%rowtype;
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,
3021: lx_prev_step_rec c_step_exists_for_prev_rev%rowtype;
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)
3215: X_TO_REV_NUM => null,
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;
3287: lx_assoc_rec c_assoc_exists%rowtype;
3288: lx_prev_assoc_rec c_prev_assoc_exists%rowtype;
3289: l_date date;
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,
3289: l_date date;
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)
3429: ,null
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;
3476: SELECT application_id
3477: FROM fnd_application
3478: WHERE application_short_name = 'AMW';
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,
3478: WHERE application_short_name = 'AMW';
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)
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
3549: FND_MSG_PUB.Count_And_Get (
3550: p_encoded => G_FALSE,
3551: p_count => x_msg_count,
3552: p_data => x_msg_data);
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
3559: FND_MSG_PUB.Count_And_Get (
3560: p_encoded => G_FALSE,
3561: p_count => x_msg_count,
3562: p_data => x_msg_data);
3568: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3569: THEN
3570: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
3571: END IF;
3572: -- Standard call to get message count and if count=1, get the message
3573: FND_MSG_PUB.Count_And_Get (
3574: p_encoded => G_FALSE,
3575: p_count => x_msg_count,
3576: p_data => x_msg_data);
3609: FROM dual;
3610: l_audit_procedure_rev_id NUMBER;
3611:
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,
3611:
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)
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
3780: FND_MSG_PUB.Count_And_Get (
3781: p_encoded => G_FALSE,
3782: p_count => x_msg_count,
3783: p_data => x_msg_data);
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
3790: FND_MSG_PUB.Count_And_Get (
3791: p_encoded => G_FALSE,
3792: p_count => x_msg_count,
3793: p_data => x_msg_data);
3799: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3800: THEN
3801: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
3802: END IF;
3803: -- Standard call to get message count and if count=1, get the message
3804: FND_MSG_PUB.Count_And_Get (
3805: p_encoded => G_FALSE,
3806: p_count => x_msg_count,
3807: p_data => x_msg_data);