[Home] [Help]
28: -- 08-jun-1999 choang@us Added dummy procedure for defaulting values.
29: -- Completed lock and delete API's for activity
30: -- metrics. Completed procedure for item level
31: -- validation for activity metrics. Changed order of
32: -- parameter list for API standards.
33: -- 10-jun-1999 choang@us Corrected validate API for metrics and activity
34: -- metrics to return the rec as an OUT variable --
35: -- this allows default values to be set properly.
36: -- Modified case of packages, procedures and functions
33: -- 10-jun-1999 choang@us Corrected validate API for metrics and activity
34: -- metrics to return the rec as an OUT variable --
35: -- this allows default values to be set properly.
36: -- Modified case of packages, procedures and functions
37: -- to conform to standards.
38: -- 14-jun-1999 choang@us Updated all case standards for procedure
39: -- references.
40: -- 22-jun-1999 choang@us Moved activity metrics to common objects package.
41: -- 17-jul-1999 choang@us Added validation for delete and update of seed
34: -- metrics to return the rec as an OUT variable --
35: -- this allows default values to be set properly.
36: -- Modified case of packages, procedures and functions
37: -- to conform to standards.
38: -- 14-jun-1999 choang@us Updated all case standards for procedure
39: -- references.
40: -- 22-jun-1999 choang@us Moved activity metrics to common objects package.
41: -- 17-jul-1999 choang@us Added validation for delete and update of seed
42: -- data. Added 'get' API's for metric values and
58: -- 04-Oct-1999 ptendulk@us Added Changed Metric Refresh Engine(UOM and
59: -- Currency Conversion)
60: -- 09-Oct-1999 ptendulk@us Seperated Metric package with Refresh Engine
61: -- Package and made changes according to new
62: -- standards.
63: -- 01/18/2000 bgeorge Reviewed code, made UOM non-required, removed
64: -- function ISSEEDED from the specs.
65: -- 17-Apr-2000 tdonohoe@us Added columns to metric_rec_type to support
66: -- 11.5.2 release.
282: -- NOTES
283: --
284: -- HISTORY
285: -- 05/26/1999 choang Created.
286: -- 10/9/1999 ptendulk Modified According to new Standards
287: -- 17-Apr-2000 tdonohoe Added columns to support 11.5.2 release.
288: --
289: -- End of comments
290:
302: x_metric_id OUT NOCOPY NUMBER
303: )
304: IS
305: --
306: -- Standard API information constants.
307: --
308: L_API_VERSION CONSTANT NUMBER := 1.0;
309: L_API_NAME CONSTANT VARCHAR2(30) := 'CREATE_METRIC';
310: L_FULL_NAME CONSTANT VARCHAR2(60) := G_PKG_NAME ||'.'|| L_API_NAME;
346: FND_MSG_PUB.Initialize;
347: END IF;
348:
349: --
350: -- Standard check for API version compatibility.
351: --
352: IF NOT FND_API.Compatible_API_Call (L_API_VERSION,
353: p_api_version,
354: L_API_NAME,
554: -- End API Body.
555: --
556:
557: --
558: -- Standard check for commit request.
559: --
560: IF FND_API.To_Boolean (p_commit) THEN
561: COMMIT WORK;
562: END IF;
561: COMMIT WORK;
562: END IF;
563:
564: --
565: -- Standard API to get message count, and if 1,
566: -- set the message data OUT variable.
567: --
568: FND_MSG_PUB.Count_And_Get (
569: p_count => x_msg_count,
618: -- NOTES
619: --
620: -- HISTORY
621: -- 05/26/1999 choang Created.
622: -- 10/9/1999 ptendulk Modified According to new Standards
623: -- 17-Apr-2000 tdonohoe Added columns to support 11.5.2 release.
624: --
625: -- End of comments
626:
666: FND_MSG_PUB.Initialize;
667: END IF;
668:
669: --
670: -- Standard check for API version compatibility.
671: --
672: IF NOT FND_API.Compatible_API_Call (L_API_VERSION,
673: p_api_version,
674: L_API_NAME,
869: COMMIT;
870: END IF;
871:
872: --
873: -- Standard API to get message count, and if 1,
874: -- set the message data OUT variable.
875: --
876: FND_MSG_PUB.Count_And_Get (
877: p_count => x_msg_count,
926: -- NOTES
927: --
928: -- HISTORY
929: -- 05/26/1999 choang Created.
930: -- 10/9/1999 ptendulk Modified according to new standards
931: --
932: -- End of comments
933:
934: PROCEDURE Delete_Metric (
987: FND_MSG_PUB.Initialize;
988: END IF;
989:
990: --
991: -- Standard check for API version compatibility.
992: --
993: IF NOT FND_API.Compatible_API_Call (L_API_VERSION,
994: p_api_version,
995: L_API_NAME,
1131: Ams_Utility_Pvt.debug_message(l_full_name ||': End');
1132:
1133:
1134: --
1135: -- Standard API to get message count, and if 1,
1136: -- set the message data OUT variable.
1137: --
1138: FND_MSG_PUB.Count_And_Get (
1139: p_count => x_msg_count,
1182: -- NOTES
1183: --
1184: -- HISTORY
1185: -- 05/26/1999 choang Created.
1186: -- 10/9/1999 ptendulk Modified according to new standards
1187: --
1188: -- End of comments
1189:
1190: PROCEDURE Lock_Metric (
1231: FND_MSG_PUB.Initialize;
1232: END IF;
1233:
1234: --
1235: -- Standard check for API version compatibility.
1236: --
1237: IF NOT FND_API.Compatible_API_Call (L_API_VERSION,
1238: p_api_version,
1239: L_API_NAME,
1271: OPEN c_language;
1272: CLOSE c_language;
1273:
1274: --
1275: -- Standard API to get message count, and if 1,
1276: -- set the message data OUT variable.
1277: --
1278: FND_MSG_PUB.Count_And_Get (
1279: p_count => x_msg_count,
1337: -- NOTES
1338: --
1339: -- HISTORY
1340: -- 05/26/1999 choang Created.
1341: -- 10/9/1999 ptendulk Modified according to new standards
1342: --
1343: -- End of comments
1344:
1345: PROCEDURE Validate_Metric (
1374: FND_MSG_PUB.Initialize;
1375: END IF;
1376:
1377: --
1378: -- Standard check for API version compatibility.
1379: --
1380: IF NOT FND_API.Compatible_API_Call (L_API_VERSION,
1381: p_api_version,
1382: L_API_NAME,
1435: -- End API Body.
1436: --
1437:
1438: --
1439: -- Standard API to get message count, and if 1,
1440: -- set the message data OUT variable.
1441: --
1442: FND_MSG_PUB.Count_And_Get (
1443: p_count => x_msg_count,
1492: -- NOTES
1493: --
1494: -- HISTORY
1495: -- 05/26/1999 choang Created.
1496: -- 10/9/1999 ptendulk Modified According to new standards
1497: --
1498: -- End of comments.
1499:
1500: PROCEDURE Check_Req_Metrics_Items (
1870: -- NOTES
1871: --
1872: -- HISTORY
1873: -- 05/26/1999 choang Created.
1874: -- 10/9/1999 ptendulk Modified According to new Standards
1875: --
1876: -- End of comments.
1877:
1878: PROCEDURE Check_Metric_Items (
1879: p_metric_rec IN metric_rec_type,
1880: x_return_status OUT NOCOPY VARCHAR2
1881: )
1882: IS
1883: l_item_name VARCHAR2(30); -- Used to standardize error messages.
1884: l_metrics_rec metric_rec_type := p_metric_rec;
1885: l_return_status VARCHAR2(1);
1886:
1887: l_table_name VARCHAR2(30);
3156: p_metric_id IN NUMBER,
3157: x_return_status OUT NOCOPY VARCHAR2
3158: )
3159: IS
3160: -- l_item_name VARCHAR2(30); -- Used to standardize error messages.
3161: l_metric_id NUMBER := p_metric_id;
3162: l_return_status VARCHAR2(1);
3163:
3164: CURSOR c_check_metric_id(p_metric_id number) IS