[Home] [Help]
83:
84: --
85: -- Initialize API return status to success.
86: --
87: x_return_status := FND_API.G_RET_STS_SUCCESS;
88:
89:
90: IF(p_operator = 'PLUS')THEN
91: l_result := (p_left_value + p_right_value);
107:
108: ELSE
109: FND_MESSAGE.set_name('AMS', 'AMS_FML_ENT_INVALID_OP');
110: FND_MSG_PUB.add;
111: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
112: END IF;
113:
114: -------------------------------------------
115: --Assigning return value to OUT NOCOPY variable.--
116: -------------------------------------------
117: x_result := l_result;
118:
119: EXCEPTION
120: WHEN FND_API.G_EXC_ERROR THEN
121: x_return_status := FND_API.G_RET_STS_ERROR;
122: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
123: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, L_API_NAME);
124: END IF;
117: x_result := l_result;
118:
119: EXCEPTION
120: WHEN FND_API.G_EXC_ERROR THEN
121: x_return_status := FND_API.G_RET_STS_ERROR;
122: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
123: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, L_API_NAME);
124: END IF;
125:
122: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
123: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, L_API_NAME);
124: END IF;
125:
126: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
127: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
128: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
129: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, L_API_NAME);
130: END IF;
123: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, L_API_NAME);
124: END IF;
125:
126: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
127: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
128: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
129: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, L_API_NAME);
130: END IF;
131:
129: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, L_API_NAME);
130: END IF;
131:
132: WHEN OTHERS THEN
133: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
134: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
135: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, L_API_NAME);
136: END IF;
137:
174: -- End of comments
175:
176: PROCEDURE Execute_Formula (
177: p_api_version IN NUMBER,
178: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
179: p_commit IN VARCHAR2 := FND_API.G_FALSE,
180: p_validation_level IN NUMBER := FND_API.G_Valid_Level_Full,
181:
182: x_return_status OUT NOCOPY VARCHAR2,
175:
176: PROCEDURE Execute_Formula (
177: p_api_version IN NUMBER,
178: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
179: p_commit IN VARCHAR2 := FND_API.G_FALSE,
180: p_validation_level IN NUMBER := FND_API.G_Valid_Level_Full,
181:
182: x_return_status OUT NOCOPY VARCHAR2,
183: x_msg_count OUT NOCOPY NUMBER,
176: PROCEDURE Execute_Formula (
177: p_api_version IN NUMBER,
178: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
179: p_commit IN VARCHAR2 := FND_API.G_FALSE,
180: p_validation_level IN NUMBER := FND_API.G_Valid_Level_Full,
181:
182: x_return_status OUT NOCOPY VARCHAR2,
183: x_msg_count OUT NOCOPY NUMBER,
184: x_msg_data OUT NOCOPY VARCHAR2,
300:
301: --
302: -- Initialize message list if p_init_msg_list is set to TRUE.
303: --
304: IF FND_API.To_Boolean (p_init_msg_list) THEN
305: FND_MSG_PUB.Initialize;
306: END IF;
307:
308: --
307:
308: --
309: -- Standard check for API version compatibility.
310: --
311: IF NOT FND_API.Compatible_API_Call (L_API_VERSION,
312: p_api_version,
313: L_API_NAME,
314: G_PKG_NAME)
315: THEN
312: p_api_version,
313: L_API_NAME,
314: G_PKG_NAME)
315: THEN
316: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
317: END IF;
318:
319:
320:
320:
321: --
322: -- Initialize API return status to success.
323: --
324: x_return_status := FND_API.G_RET_STS_SUCCESS;
325:
326: --
327: -- Begin API Body.
328: --
333:
334: IF(C_FORMULA_DETS%NOTFOUND)THEN
335:
336: CLOSE C_Formula_dets;
337: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
338: ELSE
339: CLOSE C_Formula_dets;
340: END IF;
341:
373:
374: l_formula_entry_results(l_rec_counter).result := l_formula_entry_dets.formula_entry_value;
375: ELSE
376:
377: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
378: END IF;
379:
380: l_formula_entry_results(l_rec_counter).formula_entry_id := l_formula_entry_dets.formula_entry_id;
381: l_formula_entry_results(l_rec_counter).formula_entry_operator := l_formula_entry_dets.formula_entry_operator;
424: p_operator => l_formula_entry_results(i).formula_entry_operator,
425: x_return_status => l_return_status,
426: x_result => l_computation_result);
427:
428: IF(l_return_status = FND_API.G_RET_STS_SUCCESS)THEN
429: l_processed_value := l_computation_result;
430: ELSE
431: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
432: END IF;
427:
428: IF(l_return_status = FND_API.G_RET_STS_SUCCESS)THEN
429: l_processed_value := l_computation_result;
430: ELSE
431: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
432: END IF;
433: -----------------------------------------------------------------------------------
434: --The Current record has a different level to the processed result. --
435: -----------------------------------------------------------------------------------
452: p_operator => l_formula_entry_results(i).formula_entry_operator,
453: x_return_status => l_return_status,
454: x_result => l_computation_result);
455:
456: IF(l_return_status = FND_API.G_RET_STS_SUCCESS)THEN
457: l_current_value := l_computation_result;
458: ELSE
459: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
460: END IF;
455:
456: IF(l_return_status = FND_API.G_RET_STS_SUCCESS)THEN
457: l_current_value := l_computation_result;
458: ELSE
459: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
460: END IF;
461: -------------------------------------------------------------------------------------
462: --The Current record has a different level as the current_level_value. --
463: --Perform the computation between the processed_level_value and current_level_value--
469: p_operator => l_current_operator,
470: x_return_status => l_return_status,
471: x_result => l_computation_result);
472:
473: IF(l_return_status = FND_API.G_RET_STS_SUCCESS)THEN
474: l_processed_value := l_computation_result;
475: l_processed_level := l_current_level;
476: ELSE
477: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
473: IF(l_return_status = FND_API.G_RET_STS_SUCCESS)THEN
474: l_processed_value := l_computation_result;
475: l_processed_level := l_current_level;
476: ELSE
477: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
478: END IF;
479:
480: l_current_flag := TRUE;
481: l_current_operator := l_formula_entry_results(i).formula_entry_operator;
495: p_operator => l_current_operator,
496: x_return_status => l_return_status,
497: x_result => l_computation_result);
498:
499: IF(l_return_status = FND_API.G_RET_STS_SUCCESS)THEN
500: l_processed_value := l_computation_result;
501: l_processed_level := l_current_level;
502: ELSE
503: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
499: IF(l_return_status = FND_API.G_RET_STS_SUCCESS)THEN
500: l_processed_value := l_computation_result;
501: l_processed_level := l_current_level;
502: ELSE
503: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
504: END IF;
505: END IF;
506:
507: -------------------------------------
510: x_result := l_processed_value;
511:
512:
513: EXCEPTION
514: WHEN FND_API.G_EXC_ERROR THEN
515:
516:
517: ROLLBACK TO Execute_Formula_Pvt;
518: x_return_status := FND_API.G_RET_STS_ERROR;
514: WHEN FND_API.G_EXC_ERROR THEN
515:
516:
517: ROLLBACK TO Execute_Formula_Pvt;
518: x_return_status := FND_API.G_RET_STS_ERROR;
519: FND_MSG_PUB.Count_And_Get (
520: p_count => x_msg_count,
521: p_data => x_msg_data
522: );
519: FND_MSG_PUB.Count_And_Get (
520: p_count => x_msg_count,
521: p_data => x_msg_data
522: );
523: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
524:
525:
526:
527: ROLLBACK TO Execute_Formula_Pvt;
524:
525:
526:
527: ROLLBACK TO Execute_Formula_Pvt;
528: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
529: FND_MSG_PUB.Count_And_Get (
530: p_count => x_msg_count,
531: p_data => x_msg_data
532: );
533: WHEN OTHERS THEN
534:
535:
536: ROLLBACK TO Execute_Formula_Pvt;
537: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
538: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
539: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, L_API_NAME);
540: END IF;
541: FND_MSG_PUB.Count_And_Get (
563: --
564: -- End of comments
565:
566: PROCEDURE Default_Formula(
567: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
568: p_formula_rec IN ams_formula_rec_type,
569: p_validation_mode IN VARCHAR2 ,
570: x_complete_rec OUT NOCOPY ams_formula_rec_type,
571: x_return_status OUT NOCOPY VARCHAR2,
577: BEGIN
578: --
579: -- Initialize message list if p_init_msg_list is set to TRUE.
580: --
581: IF FND_API.To_Boolean (p_init_msg_list) THEN
582: FND_MSG_PUB.Initialize;
583: END IF;
584:
585: --
584:
585: --
586: -- Initialize API return status to success.
587: --
588: x_return_status := FND_API.G_RET_STS_SUCCESS;
589:
590: x_complete_rec := p_formula_rec;
591:
592: -- Insert Mode
612: --
613: -- End of comments
614:
615: PROCEDURE Default_Formula_Entry(
616: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
617: p_formula_entry_rec IN ams_formula_entry_rec_type,
618: p_validation_mode IN VARCHAR2 ,
619: x_complete_entry_rec OUT NOCOPY ams_formula_entry_rec_type,
620: x_return_status OUT NOCOPY VARCHAR2,
626: BEGIN
627: --
628: -- Initialize message list if p_init_msg_list is set to TRUE.
629: --
630: IF FND_API.To_Boolean (p_init_msg_list) THEN
631: FND_MSG_PUB.Initialize;
632: END IF;
633:
634: --
633:
634: --
635: -- Initialize API return status to success.
636: --
637: x_return_status := FND_API.G_RET_STS_SUCCESS;
638:
639: x_complete_entry_rec := p_formula_entry_rec;
640:
641: -- Insert Mode
669: )
670: IS
671: BEGIN
672: -- Initialize return status to success.
673: x_return_status := FND_API.G_RET_STS_SUCCESS;
674:
675:
676: --ACTIVITY_METRIC_ID
677:
683: FND_MESSAGE.Set_Name('AMS', 'AMS_FML_MISSING_ACT_METRIC_ID');
684: FND_MSG_PUB.Add;
685: END IF;
686:
687: x_return_status := FND_API.G_RET_STS_ERROR;
688:
689: -- If any error happens abort API.
690: RETURN;
691: END IF;
700: FND_MESSAGE.Set_Name('AMS', 'AMS_FML_MISSING_LEVEL_DEPTH');
701: FND_MSG_PUB.Add;
702: END IF;
703:
704: x_return_status := FND_API.G_RET_STS_ERROR;
705:
706: -- If any error happens abort API.
707: RETURN;
708: END IF;
735: )
736: IS
737: BEGIN
738: -- Initialize return status to success.
739: x_return_status := FND_API.G_RET_STS_SUCCESS;
740:
741:
742:
743: --FORMULA_ID
750: FND_MESSAGE.Set_Name('AMS', 'AMS_FML_MISSING_FORMULA_ID');
751: FND_MSG_PUB.Add;
752: END IF;
753:
754: x_return_status := FND_API.G_RET_STS_ERROR;
755:
756: -- If any error happens abort API.
757: RETURN;
758: END IF;
766: FND_MESSAGE.Set_Name('AMS', 'AMS_FML_MISSING_ORDER_NUM');
767: FND_MSG_PUB.Add;
768: END IF;
769:
770: x_return_status := FND_API.G_RET_STS_ERROR;
771:
772: -- If any error happens abort API.
773: RETURN;
774: END IF;
782: FND_MESSAGE.Set_Name('AMS', 'AMS_FML_MISSING_ENT_TYPE');
783: FND_MSG_PUB.Add;
784: END IF;
785:
786: x_return_status := FND_API.G_RET_STS_ERROR;
787:
788: -- If any error happens abort API.
789: RETURN;
790: END IF;
798: FND_MESSAGE.Set_Name('AMS', 'AMS_FML_MISSING_OBJ_NUM');
799: FND_MSG_PUB.Add;
800: END IF;
801:
802: x_return_status := FND_API.G_RET_STS_ERROR;
803:
804: -- If any error happens abort API.
805: RETURN;
806: END IF;
848:
849:
850: BEGIN
851:
852: x_return_status := FND_API.g_ret_sts_success;
853:
854: OPEN c_formula_type;
855: FETCH c_formula_type INTO l_formula_count;
856: CLOSE c_formula_type;
860:
861: FND_MESSAGE.set_name('AMS', 'AMS_FML_MAX_LEVEL');
862: FND_MSG_PUB.add;
863: END IF;
864: x_return_status := FND_API.g_ret_sts_error;
865: RETURN;
866: END IF;
867:
868: END Check_Formula_Uk_Items;
900:
901:
902: BEGIN
903:
904: x_return_status := FND_API.g_ret_sts_success;
905:
906: /*
907: OPEN c_formula_entry_type;
908: FETCH c_formula_entry_type INTO l_formula_entry_count;
913:
914: FND_MESSAGE.set_name('AMS', 'AMS_FML_ENT_DUP_ORDNUM');
915: FND_MSG_PUB.add;
916: END IF;
917: x_return_status := FND_API.g_ret_sts_error;
918: RETURN;
919: END IF;
920: */
921: END Check_Formula_Entry_Uk_Items;
949: l_return_status VARCHAR2(1);
950:
951: BEGIN
952: -- Initialize return status to success.
953: x_return_status := FND_API.G_RET_STS_SUCCESS;
954:
955: --FORMULA_TYPE
956:
957: IF l_formula_rec.formula_type <> FND_API.G_MISS_CHAR THEN
953: x_return_status := FND_API.G_RET_STS_SUCCESS;
954:
955: --FORMULA_TYPE
956:
957: IF l_formula_rec.formula_type <> FND_API.G_MISS_CHAR THEN
958:
959:
960: IF AMS_Utility_PVT.check_lookup_exists(p_lookup_type => 'AMS_FORMULA_TYPE',
961: p_lookup_code => l_formula_rec.formula_type) = FND_API.g_false THEN
957: IF l_formula_rec.formula_type <> FND_API.G_MISS_CHAR THEN
958:
959:
960: IF AMS_Utility_PVT.check_lookup_exists(p_lookup_type => 'AMS_FORMULA_TYPE',
961: p_lookup_code => l_formula_rec.formula_type) = FND_API.g_false THEN
962:
963: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
964: FND_MESSAGE.set_name('AMS', 'AMS_FML_INVALID_TYPE');
965: FND_MSG_PUB.add;
964: FND_MESSAGE.set_name('AMS', 'AMS_FML_INVALID_TYPE');
965: FND_MSG_PUB.add;
966: END IF;
967:
968: x_return_status := FND_API.g_ret_sts_error;
969: RETURN;
970: END IF;
971: END IF;
972:
971: END IF;
972:
973: EXCEPTION
974: WHEN OTHERS THEN
975: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
976: END Check_Formula_Items;
977:
978:
979: --
1004:
1005: BEGIN
1006:
1007: -- Initialize return status to success.
1008: x_return_status := FND_API.G_RET_STS_SUCCESS;
1009:
1010: --FORMULA_ENTRY_TYPE
1011:
1012: IF l_formula_entry_rec.formula_entry_type <> FND_API.G_MISS_CHAR THEN
1008: x_return_status := FND_API.G_RET_STS_SUCCESS;
1009:
1010: --FORMULA_ENTRY_TYPE
1011:
1012: IF l_formula_entry_rec.formula_entry_type <> FND_API.G_MISS_CHAR THEN
1013:
1014:
1015: IF AMS_Utility_PVT.check_lookup_exists(p_lookup_type => 'AMS_FORMULA_ENT_TYPE',
1016: p_lookup_code => l_formula_entry_rec.formula_entry_type) = FND_API.g_false THEN
1012: IF l_formula_entry_rec.formula_entry_type <> FND_API.G_MISS_CHAR THEN
1013:
1014:
1015: IF AMS_Utility_PVT.check_lookup_exists(p_lookup_type => 'AMS_FORMULA_ENT_TYPE',
1016: p_lookup_code => l_formula_entry_rec.formula_entry_type) = FND_API.g_false THEN
1017:
1018: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1019: FND_MESSAGE.set_name('AMS', 'AMS_FML_ENT_INVALID_TYPE');
1020: FND_MSG_PUB.add;
1019: FND_MESSAGE.set_name('AMS', 'AMS_FML_ENT_INVALID_TYPE');
1020: FND_MSG_PUB.add;
1021: END IF;
1022:
1023: x_return_status := FND_API.g_ret_sts_error;
1024: RETURN;
1025: END IF;
1026: END IF;
1027:
1026: END IF;
1027:
1028: --AMS_FORMULA_OPERATORS
1029:
1030: IF l_formula_entry_rec.formula_entry_operator IS NOT NULL AND l_formula_entry_rec.formula_entry_operator <> FND_API.G_MISS_CHAR THEN
1031:
1032:
1033: IF AMS_Utility_PVT.check_lookup_exists(p_lookup_type => 'AMS_FORMULA_OPERATOR',
1034: p_lookup_code => l_formula_entry_rec.formula_entry_operator) = FND_API.g_false THEN
1030: IF l_formula_entry_rec.formula_entry_operator IS NOT NULL AND l_formula_entry_rec.formula_entry_operator <> FND_API.G_MISS_CHAR THEN
1031:
1032:
1033: IF AMS_Utility_PVT.check_lookup_exists(p_lookup_type => 'AMS_FORMULA_OPERATOR',
1034: p_lookup_code => l_formula_entry_rec.formula_entry_operator) = FND_API.g_false THEN
1035:
1036: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1037: FND_MESSAGE.set_name('AMS', 'AMS_FML_ENT_INVALID_OP');
1038: FND_MSG_PUB.add;
1037: FND_MESSAGE.set_name('AMS', 'AMS_FML_ENT_INVALID_OP');
1038: FND_MSG_PUB.add;
1039: END IF;
1040:
1041: x_return_status := FND_API.g_ret_sts_error;
1042: RETURN;
1043: END IF;
1044: END IF;
1045:
1044: END IF;
1045:
1046: EXCEPTION
1047: WHEN OTHERS THEN
1048: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1049: END Check_Formula_Entry_Items;
1050:
1051:
1052:
1078:
1079:
1080: BEGIN
1081:
1082: x_return_status := FND_API.g_ret_sts_success;
1083:
1084: IF (l_formula_rec.activity_metric_id <> FND_API.G_MISS_NUM) THEN
1085:
1086: IF AMS_Utility_PVT.Check_FK_Exists (
1080: BEGIN
1081:
1082: x_return_status := FND_API.g_ret_sts_success;
1083:
1084: IF (l_formula_rec.activity_metric_id <> FND_API.G_MISS_NUM) THEN
1085:
1086: IF AMS_Utility_PVT.Check_FK_Exists (
1087: p_table_name => 'AMS_ACT_METRICS_ALL'
1088: ,p_pk_name => 'ACTIVITY_METRIC_ID'
1088: ,p_pk_name => 'ACTIVITY_METRIC_ID'
1089: ,p_pk_value => l_formula_rec.activity_metric_id
1090: ,p_pk_data_type => NULL
1091: ,p_additional_where_clause => NULL
1092: ) = FND_API.G_FALSE
1093: THEN
1094: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1095: FND_MESSAGE.Set_Name ('AMS', 'AMS_FML_INVALID_ACT_METRIC');
1096: FND_MSG_PUB.Add;
1095: FND_MESSAGE.Set_Name ('AMS', 'AMS_FML_INVALID_ACT_METRIC');
1096: FND_MSG_PUB.Add;
1097: END IF;
1098:
1099: x_return_status := FND_API.G_RET_STS_ERROR;
1100: RETURN;
1101: END IF;
1102: END IF;
1103:
1102: END IF;
1103:
1104: EXCEPTION
1105: WHEN OTHERS THEN
1106: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1107:
1108: END Validate_Formula_rec;
1109:
1110:
1136:
1137:
1138: BEGIN
1139:
1140: x_return_status := FND_API.g_ret_sts_success;
1141:
1142: IF (l_formula_entry_rec.formula_id <> FND_API.G_MISS_NUM) THEN
1143:
1144: IF AMS_Utility_PVT.Check_FK_Exists (
1138: BEGIN
1139:
1140: x_return_status := FND_API.g_ret_sts_success;
1141:
1142: IF (l_formula_entry_rec.formula_id <> FND_API.G_MISS_NUM) THEN
1143:
1144: IF AMS_Utility_PVT.Check_FK_Exists (
1145: p_table_name => 'AMS_ACT_METRIC_FORMULAS'
1146: ,p_pk_name => 'FORMULA_ID'
1146: ,p_pk_name => 'FORMULA_ID'
1147: ,p_pk_value => l_formula_entry_rec.formula_id
1148: ,p_pk_data_type => NULL
1149: ,p_additional_where_clause => NULL
1150: ) = FND_API.G_FALSE
1151: THEN
1152: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1153: FND_MESSAGE.Set_Name ('AMS', 'AMS_FML_INVALID_FORMULA_ID');
1154: FND_MSG_PUB.Add;
1153: FND_MESSAGE.Set_Name ('AMS', 'AMS_FML_INVALID_FORMULA_ID');
1154: FND_MSG_PUB.Add;
1155: END IF;
1156:
1157: x_return_status := FND_API.G_RET_STS_ERROR;
1158: RETURN;
1159: END IF;
1160: END IF;
1161:
1160: END IF;
1161:
1162: EXCEPTION
1163: WHEN OTHERS THEN
1164: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1165:
1166: END Validate_Form_ent_rec;
1167:
1168:
1195: Check_Req_Formula_Items(
1196: p_formula_rec => p_formula_rec,
1197: x_return_status => x_return_status
1198: );
1199: IF x_return_status <> FND_API.g_ret_sts_success THEN
1200: RETURN;
1201: END IF;
1202:
1203:
1206: p_validation_mode => p_validation_mode,
1207: x_return_status => x_return_status
1208: );
1209:
1210: IF x_return_status <> FND_API.g_ret_sts_success THEN
1211: RETURN;
1212: END IF;
1213:
1214:
1216: p_formula_rec => p_formula_rec,
1217: x_return_status => x_return_status
1218: );
1219:
1220: IF x_return_status <> FND_API.g_ret_sts_success THEN
1221: RETURN;
1222: END IF;
1223:
1224: END Validate_Formula_Items;
1253: Check_Req_Formula_Entry_Items(
1254: p_formula_entry_rec => p_formula_entry_rec,
1255: x_return_status => x_return_status
1256: );
1257: IF x_return_status <> FND_API.g_ret_sts_success THEN
1258: RETURN;
1259: END IF;
1260:
1261:
1264: p_validation_mode => p_validation_mode,
1265: x_return_status => x_return_status
1266: );
1267:
1268: IF x_return_status <> FND_API.g_ret_sts_success THEN
1269: RETURN;
1270: END IF;
1271:
1272:
1274: p_formula_entry_rec => p_formula_entry_rec,
1275: x_return_status => x_return_status
1276: );
1277:
1278: IF x_return_status <> FND_API.g_ret_sts_success THEN
1279: RETURN;
1280: END IF;
1281:
1282: END Validate_Form_Ent_Items;
1298: --
1299: -- End of comments
1300: PROCEDURE Validate_Formula (
1301: p_api_version IN NUMBER,
1302: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1303: p_validation_level IN NUMBER := FND_API.G_Valid_Level_Full,
1304:
1305: x_return_status OUT NOCOPY VARCHAR2,
1306: x_msg_count OUT NOCOPY NUMBER,
1299: -- End of comments
1300: PROCEDURE Validate_Formula (
1301: p_api_version IN NUMBER,
1302: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1303: p_validation_level IN NUMBER := FND_API.G_Valid_Level_Full,
1304:
1305: x_return_status OUT NOCOPY VARCHAR2,
1306: x_msg_count OUT NOCOPY NUMBER,
1307: x_msg_data OUT NOCOPY VARCHAR2,
1326:
1327: --
1328: -- Initialize message list if p_init_msg_list is set to TRUE.
1329: --
1330: IF FND_API.To_Boolean (p_init_msg_list) THEN
1331: FND_MSG_PUB.Initialize;
1332: END IF;
1333:
1334: --
1333:
1334: --
1335: -- Standard check for API version compatibility.
1336: --
1337: IF NOT FND_API.Compatible_API_Call (L_API_VERSION,
1338: p_api_version,
1339: L_API_NAME,
1340: G_PKG_NAME)
1341: THEN
1338: p_api_version,
1339: L_API_NAME,
1340: G_PKG_NAME)
1341: THEN
1342: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1343: END IF;
1344:
1345: --
1346: -- Initialize API return status to success.
1344:
1345: --
1346: -- Initialize API return status to success.
1347: --
1348: x_return_status := FND_API.G_RET_STS_SUCCESS;
1349:
1350: --
1351: -- Begin API Body.
1352: --
1364: x_return_status => l_return_status
1365: );
1366:
1367: -- If any errors happen abort API.
1368: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1369: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1370: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1371: RAISE FND_API.G_EXC_ERROR;
1372: END IF;
1365: );
1366:
1367: -- If any errors happen abort API.
1368: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1369: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1370: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1371: RAISE FND_API.G_EXC_ERROR;
1372: END IF;
1373: END IF;
1366:
1367: -- If any errors happen abort API.
1368: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1369: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1370: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1371: RAISE FND_API.G_EXC_ERROR;
1372: END IF;
1373: END IF;
1374:
1367: -- If any errors happen abort API.
1368: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1369: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1370: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1371: RAISE FND_API.G_EXC_ERROR;
1372: END IF;
1373: END IF;
1374:
1375: IF G_DEBUG THEN
1382: p_complete_formula_rec => NULL,
1383: x_return_status => l_return_status
1384: );
1385:
1386: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1387: IF G_DEBUG THEN
1388: AMS_Utility_PVT.debug_message(l_full_name||': error in check record');
1389: END IF;
1390: RAISE FND_API.g_exc_unexpected_error;
1386: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1387: IF G_DEBUG THEN
1388: AMS_Utility_PVT.debug_message(l_full_name||': error in check record');
1389: END IF;
1390: RAISE FND_API.g_exc_unexpected_error;
1391: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
1392: IF G_DEBUG THEN
1393: AMS_Utility_PVT.debug_message(l_full_name||': error in check record');
1394: END IF;
1387: IF G_DEBUG THEN
1388: AMS_Utility_PVT.debug_message(l_full_name||': error in check record');
1389: END IF;
1390: RAISE FND_API.g_exc_unexpected_error;
1391: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
1392: IF G_DEBUG THEN
1393: AMS_Utility_PVT.debug_message(l_full_name||': error in check record');
1394: END IF;
1395: RAISE FND_API.g_exc_error;
1391: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
1392: IF G_DEBUG THEN
1393: AMS_Utility_PVT.debug_message(l_full_name||': error in check record');
1394: END IF;
1395: RAISE FND_API.g_exc_error;
1396: END IF;
1397: END IF;
1398:
1399: IF G_DEBUG THEN
1411: --
1412: FND_MSG_PUB.Count_And_Get (
1413: p_count => x_msg_count,
1414: p_data => x_msg_data,
1415: p_encoded => FND_API.G_FALSE
1416: );
1417:
1418: IF G_DEBUG THEN
1419: AMS_Utility_PVT.debug_message(l_full_name ||': end');
1420: END IF;
1421:
1422:
1423: EXCEPTION
1424: WHEN FND_API.G_EXC_ERROR THEN
1425: x_return_status := FND_API.G_RET_STS_ERROR;
1426: FND_MSG_PUB.Count_And_Get (
1427: p_count => x_msg_count,
1428: p_data => x_msg_data
1421:
1422:
1423: EXCEPTION
1424: WHEN FND_API.G_EXC_ERROR THEN
1425: x_return_status := FND_API.G_RET_STS_ERROR;
1426: FND_MSG_PUB.Count_And_Get (
1427: p_count => x_msg_count,
1428: p_data => x_msg_data
1429: );
1426: FND_MSG_PUB.Count_And_Get (
1427: p_count => x_msg_count,
1428: p_data => x_msg_data
1429: );
1430: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1431: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1432: FND_MSG_PUB.Count_And_Get (
1433: p_count => x_msg_count,
1434: p_data => x_msg_data
1427: p_count => x_msg_count,
1428: p_data => x_msg_data
1429: );
1430: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1431: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1432: FND_MSG_PUB.Count_And_Get (
1433: p_count => x_msg_count,
1434: p_data => x_msg_data
1435: );
1433: p_count => x_msg_count,
1434: p_data => x_msg_data
1435: );
1436: WHEN OTHERS THEN
1437: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1438: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1439: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, L_API_NAME);
1440: END IF;
1441: FND_MSG_PUB.Count_And_Get (
1460: --
1461: -- End of comments
1462: PROCEDURE Validate_Formula_Entry (
1463: p_api_version IN NUMBER,
1464: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1465: p_validation_level IN NUMBER := FND_API.G_Valid_Level_Full,
1466:
1467: x_return_status OUT NOCOPY VARCHAR2,
1468: x_msg_count OUT NOCOPY NUMBER,
1461: -- End of comments
1462: PROCEDURE Validate_Formula_Entry (
1463: p_api_version IN NUMBER,
1464: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1465: p_validation_level IN NUMBER := FND_API.G_Valid_Level_Full,
1466:
1467: x_return_status OUT NOCOPY VARCHAR2,
1468: x_msg_count OUT NOCOPY NUMBER,
1469: x_msg_data OUT NOCOPY VARCHAR2,
1488:
1489: --
1490: -- Initialize message list if p_init_msg_list is set to TRUE.
1491: --
1492: IF FND_API.To_Boolean (p_init_msg_list) THEN
1493: FND_MSG_PUB.Initialize;
1494: END IF;
1495:
1496: --
1495:
1496: --
1497: -- Standard check for API version compatibility.
1498: --
1499: IF NOT FND_API.Compatible_API_Call (L_API_VERSION,
1500: p_api_version,
1501: L_API_NAME,
1502: G_PKG_NAME)
1503: THEN
1500: p_api_version,
1501: L_API_NAME,
1502: G_PKG_NAME)
1503: THEN
1504: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1505: END IF;
1506:
1507: --
1508: -- Initialize API return status to success.
1506:
1507: --
1508: -- Initialize API return status to success.
1509: --
1510: x_return_status := FND_API.G_RET_STS_SUCCESS;
1511:
1512: --
1513: -- Begin API Body.
1514: --
1526: x_return_status => l_return_status
1527: );
1528:
1529: -- If any errors happen abort API.
1530: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1531: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1532: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1533: RAISE FND_API.G_EXC_ERROR;
1534: END IF;
1527: );
1528:
1529: -- If any errors happen abort API.
1530: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1531: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1532: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1533: RAISE FND_API.G_EXC_ERROR;
1534: END IF;
1535: END IF;
1528:
1529: -- If any errors happen abort API.
1530: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1531: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1532: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1533: RAISE FND_API.G_EXC_ERROR;
1534: END IF;
1535: END IF;
1536:
1529: -- If any errors happen abort API.
1530: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1531: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1532: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1533: RAISE FND_API.G_EXC_ERROR;
1534: END IF;
1535: END IF;
1536:
1537: IF G_DEBUG THEN
1544: p_complete_formula_entry_rec => NULL,
1545: x_return_status => l_return_status
1546: );
1547:
1548: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1549: IF G_DEBUG THEN
1550: AMS_Utility_PVT.debug_message(l_full_name||': error in check record');
1551: END IF;
1552: RAISE FND_API.g_exc_unexpected_error;
1548: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1549: IF G_DEBUG THEN
1550: AMS_Utility_PVT.debug_message(l_full_name||': error in check record');
1551: END IF;
1552: RAISE FND_API.g_exc_unexpected_error;
1553: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
1554: IF G_DEBUG THEN
1555: AMS_Utility_PVT.debug_message(l_full_name||': error in check record');
1556: END IF;
1549: IF G_DEBUG THEN
1550: AMS_Utility_PVT.debug_message(l_full_name||': error in check record');
1551: END IF;
1552: RAISE FND_API.g_exc_unexpected_error;
1553: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
1554: IF G_DEBUG THEN
1555: AMS_Utility_PVT.debug_message(l_full_name||': error in check record');
1556: END IF;
1557: RAISE FND_API.g_exc_error;
1553: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
1554: IF G_DEBUG THEN
1555: AMS_Utility_PVT.debug_message(l_full_name||': error in check record');
1556: END IF;
1557: RAISE FND_API.g_exc_error;
1558: END IF;
1559: END IF;
1560:
1561: IF G_DEBUG THEN
1573: --
1574: FND_MSG_PUB.Count_And_Get (
1575: p_count => x_msg_count,
1576: p_data => x_msg_data,
1577: p_encoded => FND_API.G_FALSE
1578: );
1579:
1580: IF G_DEBUG THEN
1581: AMS_Utility_PVT.debug_message(l_full_name ||': end');
1582: END IF;
1583:
1584:
1585: EXCEPTION
1586: WHEN FND_API.G_EXC_ERROR THEN
1587: x_return_status := FND_API.G_RET_STS_ERROR;
1588: FND_MSG_PUB.Count_And_Get (
1589: p_count => x_msg_count,
1590: p_data => x_msg_data
1583:
1584:
1585: EXCEPTION
1586: WHEN FND_API.G_EXC_ERROR THEN
1587: x_return_status := FND_API.G_RET_STS_ERROR;
1588: FND_MSG_PUB.Count_And_Get (
1589: p_count => x_msg_count,
1590: p_data => x_msg_data
1591: );
1588: FND_MSG_PUB.Count_And_Get (
1589: p_count => x_msg_count,
1590: p_data => x_msg_data
1591: );
1592: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1593: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1594: FND_MSG_PUB.Count_And_Get (
1595: p_count => x_msg_count,
1596: p_data => x_msg_data
1589: p_count => x_msg_count,
1590: p_data => x_msg_data
1591: );
1592: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1593: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1594: FND_MSG_PUB.Count_And_Get (
1595: p_count => x_msg_count,
1596: p_data => x_msg_data
1597: );
1595: p_count => x_msg_count,
1596: p_data => x_msg_data
1597: );
1598: WHEN OTHERS THEN
1599: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1600: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1601: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, L_API_NAME);
1602: END IF;
1603: FND_MSG_PUB.Count_And_Get (
1626: -- End of comments
1627: -------------------------------------------------------------------------------
1628: PROCEDURE Create_Formula (
1629: p_api_version IN NUMBER,
1630: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1631: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1632: p_validation_level IN NUMBER := FND_API.G_Valid_Level_Full,
1633:
1634: x_return_status OUT NOCOPY VARCHAR2,
1627: -------------------------------------------------------------------------------
1628: PROCEDURE Create_Formula (
1629: p_api_version IN NUMBER,
1630: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1631: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1632: p_validation_level IN NUMBER := FND_API.G_Valid_Level_Full,
1633:
1634: x_return_status OUT NOCOPY VARCHAR2,
1635: x_msg_count OUT NOCOPY NUMBER,
1628: PROCEDURE Create_Formula (
1629: p_api_version IN NUMBER,
1630: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1631: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1632: p_validation_level IN NUMBER := FND_API.G_Valid_Level_Full,
1633:
1634: x_return_status OUT NOCOPY VARCHAR2,
1635: x_msg_count OUT NOCOPY NUMBER,
1636: x_msg_data OUT NOCOPY VARCHAR2,
1674:
1675: --
1676: -- Initialize message list if p_init_msg_list is set to TRUE.
1677: --
1678: IF FND_API.To_Boolean (p_init_msg_list) THEN
1679: FND_MSG_PUB.Initialize;
1680: END IF;
1681:
1682: --
1681:
1682: --
1683: -- Standard check for API version compatibility.
1684: --
1685: IF NOT FND_API.Compatible_API_Call (L_API_VERSION,
1686: p_api_version,
1687: L_API_NAME,
1688: G_PKG_NAME)
1689: THEN
1686: p_api_version,
1687: L_API_NAME,
1688: G_PKG_NAME)
1689: THEN
1690: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1691: END IF;
1692:
1693: --
1694: -- Initialize API return status to success.
1692:
1693: --
1694: -- Initialize API return status to success.
1695: --
1696: x_return_status := FND_API.G_RET_STS_SUCCESS;
1697:
1698: --
1699: -- Begin API Body.
1700: --
1710:
1711:
1712:
1713: -- If any errors happen abort API.
1714: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1715: RAISE FND_API.G_EXC_ERROR;
1716: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1717: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1718: END IF;
1711:
1712:
1713: -- If any errors happen abort API.
1714: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1715: RAISE FND_API.G_EXC_ERROR;
1716: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1717: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1718: END IF;
1719:
1712:
1713: -- If any errors happen abort API.
1714: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1715: RAISE FND_API.G_EXC_ERROR;
1716: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1717: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1718: END IF;
1719:
1720:
1713: -- If any errors happen abort API.
1714: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1715: RAISE FND_API.G_EXC_ERROR;
1716: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1717: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1718: END IF;
1719:
1720:
1721:
1752: p_formula_rec => l_formula_rec
1753: );
1754:
1755: -- If any errors happen abort API.
1756: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1757: RAISE FND_API.G_EXC_ERROR;
1758: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1759: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1760: END IF;
1753: );
1754:
1755: -- If any errors happen abort API.
1756: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1757: RAISE FND_API.G_EXC_ERROR;
1758: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1759: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1760: END IF;
1761:
1754:
1755: -- If any errors happen abort API.
1756: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1757: RAISE FND_API.G_EXC_ERROR;
1758: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1759: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1760: END IF;
1761:
1762:
1755: -- If any errors happen abort API.
1756: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1757: RAISE FND_API.G_EXC_ERROR;
1758: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1759: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1760: END IF;
1761:
1762:
1763: --
1800: );
1801:
1802:
1803: -- If any errors happen abort API.
1804: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1805: RAISE FND_API.G_EXC_ERROR;
1806: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1807: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1808: END IF;
1801:
1802:
1803: -- If any errors happen abort API.
1804: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1805: RAISE FND_API.G_EXC_ERROR;
1806: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1807: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1808: END IF;
1809:
1802:
1803: -- If any errors happen abort API.
1804: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1805: RAISE FND_API.G_EXC_ERROR;
1806: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1807: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1808: END IF;
1809:
1810:
1803: -- If any errors happen abort API.
1804: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1805: RAISE FND_API.G_EXC_ERROR;
1806: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1807: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1808: END IF;
1809:
1810:
1811: -- finish
1821:
1822: --
1823: -- Standard check for commit request.
1824: --
1825: IF FND_API.To_Boolean (p_commit) THEN
1826: COMMIT WORK;
1827: END IF;
1828:
1829: --
1832: --
1833: FND_MSG_PUB.Count_And_Get (
1834: p_count => x_msg_count,
1835: p_data => x_msg_data,
1836: p_encoded => FND_API.G_FALSE
1837: );
1838:
1839: --
1840: -- Add success message to message list.
1847:
1848:
1849:
1850: EXCEPTION
1851: WHEN FND_API.G_EXC_ERROR THEN
1852:
1853:
1854: ROLLBACK TO Create_Formula_Pvt;
1855: x_return_status := FND_API.G_RET_STS_ERROR;
1851: WHEN FND_API.G_EXC_ERROR THEN
1852:
1853:
1854: ROLLBACK TO Create_Formula_Pvt;
1855: x_return_status := FND_API.G_RET_STS_ERROR;
1856: FND_MSG_PUB.Count_And_Get (
1857: p_count => x_msg_count,
1858: p_data => x_msg_data
1859: );
1856: FND_MSG_PUB.Count_And_Get (
1857: p_count => x_msg_count,
1858: p_data => x_msg_data
1859: );
1860: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1861:
1862:
1863:
1864: ROLLBACK TO Create_Formula_Pvt;
1861:
1862:
1863:
1864: ROLLBACK TO Create_Formula_Pvt;
1865: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1866: FND_MSG_PUB.Count_And_Get (
1867: p_count => x_msg_count,
1868: p_data => x_msg_data
1869: );
1870: WHEN OTHERS THEN
1871:
1872:
1873: ROLLBACK TO Create_Formula_Pvt;
1874: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1875: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1876: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, L_API_NAME);
1877: END IF;
1878: FND_MSG_PUB.Count_And_Get (
1902: -- End of comments
1903: -------------------------------------------------------------------------------
1904: PROCEDURE Create_Formula_Entry (
1905: p_api_version IN NUMBER,
1906: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1907: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1908: p_validation_level IN NUMBER := FND_API.G_Valid_Level_Full,
1909:
1910: x_return_status OUT NOCOPY VARCHAR2,
1903: -------------------------------------------------------------------------------
1904: PROCEDURE Create_Formula_Entry (
1905: p_api_version IN NUMBER,
1906: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1907: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1908: p_validation_level IN NUMBER := FND_API.G_Valid_Level_Full,
1909:
1910: x_return_status OUT NOCOPY VARCHAR2,
1911: x_msg_count OUT NOCOPY NUMBER,
1904: PROCEDURE Create_Formula_Entry (
1905: p_api_version IN NUMBER,
1906: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1907: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1908: p_validation_level IN NUMBER := FND_API.G_Valid_Level_Full,
1909:
1910: x_return_status OUT NOCOPY VARCHAR2,
1911: x_msg_count OUT NOCOPY NUMBER,
1912: x_msg_data OUT NOCOPY VARCHAR2,
1950:
1951: --
1952: -- Initialize message list if p_init_msg_list is set to TRUE.
1953: --
1954: IF FND_API.To_Boolean (p_init_msg_list) THEN
1955: FND_MSG_PUB.Initialize;
1956: END IF;
1957:
1958: --
1957:
1958: --
1959: -- Standard check for API version compatibility.
1960: --
1961: IF NOT FND_API.Compatible_API_Call (L_API_VERSION,
1962: p_api_version,
1963: L_API_NAME,
1964: G_PKG_NAME)
1965: THEN
1962: p_api_version,
1963: L_API_NAME,
1964: G_PKG_NAME)
1965: THEN
1966: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1967: END IF;
1968:
1969: --
1970: -- Initialize API return status to success.
1968:
1969: --
1970: -- Initialize API return status to success.
1971: --
1972: x_return_status := FND_API.G_RET_STS_SUCCESS;
1973:
1974: --
1975: -- Begin API Body.
1976: --
1986:
1987:
1988:
1989: -- If any errors happen abort API.
1990: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1991: RAISE FND_API.G_EXC_ERROR;
1992: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1993: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1994: END IF;
1987:
1988:
1989: -- If any errors happen abort API.
1990: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1991: RAISE FND_API.G_EXC_ERROR;
1992: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1993: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1994: END IF;
1995:
1988:
1989: -- If any errors happen abort API.
1990: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1991: RAISE FND_API.G_EXC_ERROR;
1992: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1993: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1994: END IF;
1995:
1996:
1989: -- If any errors happen abort API.
1990: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1991: RAISE FND_API.G_EXC_ERROR;
1992: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1993: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1994: END IF;
1995:
1996:
1997:
2028: p_formula_entry_rec => l_formula_entry_rec
2029: );
2030:
2031: -- If any errors happen abort API.
2032: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2033: RAISE FND_API.G_EXC_ERROR;
2034: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2035: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2036: END IF;
2029: );
2030:
2031: -- If any errors happen abort API.
2032: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2033: RAISE FND_API.G_EXC_ERROR;
2034: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2035: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2036: END IF;
2037:
2030:
2031: -- If any errors happen abort API.
2032: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2033: RAISE FND_API.G_EXC_ERROR;
2034: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2035: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2036: END IF;
2037:
2038:
2031: -- If any errors happen abort API.
2032: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2033: RAISE FND_API.G_EXC_ERROR;
2034: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2035: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2036: END IF;
2037:
2038:
2039: --
2080: );
2081:
2082:
2083: -- If any errors happen abort API.
2084: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2085: RAISE FND_API.G_EXC_ERROR;
2086: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2087: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2088: END IF;
2081:
2082:
2083: -- If any errors happen abort API.
2084: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2085: RAISE FND_API.G_EXC_ERROR;
2086: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2087: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2088: END IF;
2089:
2082:
2083: -- If any errors happen abort API.
2084: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2085: RAISE FND_API.G_EXC_ERROR;
2086: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2087: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2088: END IF;
2089:
2090:
2083: -- If any errors happen abort API.
2084: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2085: RAISE FND_API.G_EXC_ERROR;
2086: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2087: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2088: END IF;
2089:
2090:
2091: -- finish
2101:
2102: --
2103: -- Standard check for commit request.
2104: --
2105: IF FND_API.To_Boolean (p_commit) THEN
2106: COMMIT WORK;
2107: END IF;
2108:
2109: --
2112: --
2113: FND_MSG_PUB.Count_And_Get (
2114: p_count => x_msg_count,
2115: p_data => x_msg_data,
2116: p_encoded => FND_API.G_FALSE
2117: );
2118:
2119: --
2120: -- Add success message to message list.
2127:
2128:
2129:
2130: EXCEPTION
2131: WHEN FND_API.G_EXC_ERROR THEN
2132:
2133:
2134: ROLLBACK TO Create_Formula_Entry_Pvt;
2135: x_return_status := FND_API.G_RET_STS_ERROR;
2131: WHEN FND_API.G_EXC_ERROR THEN
2132:
2133:
2134: ROLLBACK TO Create_Formula_Entry_Pvt;
2135: x_return_status := FND_API.G_RET_STS_ERROR;
2136: FND_MSG_PUB.Count_And_Get (
2137: p_count => x_msg_count,
2138: p_data => x_msg_data
2139: );
2136: FND_MSG_PUB.Count_And_Get (
2137: p_count => x_msg_count,
2138: p_data => x_msg_data
2139: );
2140: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2141:
2142:
2143:
2144: ROLLBACK TO Create_Formula_Entry_Pvt;
2141:
2142:
2143:
2144: ROLLBACK TO Create_Formula_Entry_Pvt;
2145: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2146: FND_MSG_PUB.Count_And_Get (
2147: p_count => x_msg_count,
2148: p_data => x_msg_data
2149: );
2150: WHEN OTHERS THEN
2151:
2152:
2153: ROLLBACK TO Create_Formula_Entry_Pvt;
2154: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2155: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2156: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, L_API_NAME);
2157: END IF;
2158: FND_MSG_PUB.Count_And_Get (
2179: -- End of comments
2180:
2181: PROCEDURE Update_Formula (
2182: p_api_version IN NUMBER,
2183: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2184: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2185: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2186:
2187: x_return_status OUT NOCOPY VARCHAR2,
2180:
2181: PROCEDURE Update_Formula (
2182: p_api_version IN NUMBER,
2183: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2184: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2185: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2186:
2187: x_return_status OUT NOCOPY VARCHAR2,
2188: x_msg_count OUT NOCOPY NUMBER,
2181: PROCEDURE Update_Formula (
2182: p_api_version IN NUMBER,
2183: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2184: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2185: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2186:
2187: x_return_status OUT NOCOPY VARCHAR2,
2188: x_msg_count OUT NOCOPY NUMBER,
2189: x_msg_data OUT NOCOPY VARCHAR2,
2215:
2216: --
2217: -- Initialize message list if p_init_msg_list is set to TRUE.
2218: --
2219: IF FND_API.To_Boolean (p_init_msg_list) THEN
2220: FND_MSG_PUB.Initialize;
2221: END IF;
2222:
2223: --
2222:
2223: --
2224: -- Standard check for API version compatibility.
2225: --
2226: IF NOT FND_API.Compatible_API_Call (L_API_VERSION,
2227: p_api_version,
2228: L_API_NAME,
2229: G_PKG_NAME)
2230: THEN
2227: p_api_version,
2228: L_API_NAME,
2229: G_PKG_NAME)
2230: THEN
2231: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2232: END IF;
2233:
2234: --
2235: -- Initialize API return status to success.
2233:
2234: --
2235: -- Initialize API return status to success.
2236: --
2237: x_return_status := FND_API.G_RET_STS_SUCCESS;
2238:
2239: --
2240: -- Begin API Body
2241: --
2251: x_msg_count => x_msg_count,
2252: x_msg_data => x_msg_data ) ;
2253:
2254: -- If any errors happen abort API.
2255: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2256: RAISE FND_API.G_EXC_ERROR;
2257: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2258: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2259: END IF;
2252: x_msg_data => x_msg_data ) ;
2253:
2254: -- If any errors happen abort API.
2255: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2256: RAISE FND_API.G_EXC_ERROR;
2257: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2258: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2259: END IF;
2260:
2253:
2254: -- If any errors happen abort API.
2255: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2256: RAISE FND_API.G_EXC_ERROR;
2257: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2258: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2259: END IF;
2260:
2261:
2254: -- If any errors happen abort API.
2255: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2256: RAISE FND_API.G_EXC_ERROR;
2257: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2258: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2259: END IF;
2260:
2261:
2262: IF G_DEBUG THEN
2270: p_formula_rec => l_formula_rec,
2271: p_validation_mode => JTF_PLSQL_API.g_update,
2272: x_return_status => l_return_status
2273: );
2274: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2275: RAISE FND_API.g_exc_unexpected_error;
2276: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
2277: RAISE FND_API.g_exc_error;
2278: END IF;
2271: p_validation_mode => JTF_PLSQL_API.g_update,
2272: x_return_status => l_return_status
2273: );
2274: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2275: RAISE FND_API.g_exc_unexpected_error;
2276: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
2277: RAISE FND_API.g_exc_error;
2278: END IF;
2279: END IF;
2272: x_return_status => l_return_status
2273: );
2274: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2275: RAISE FND_API.g_exc_unexpected_error;
2276: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
2277: RAISE FND_API.g_exc_error;
2278: END IF;
2279: END IF;
2280:
2273: );
2274: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2275: RAISE FND_API.g_exc_unexpected_error;
2276: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
2277: RAISE FND_API.g_exc_error;
2278: END IF;
2279: END IF;
2280:
2281:
2291: p_complete_formula_rec => l_formula_rec,
2292: x_return_status => l_return_status
2293: );
2294:
2295: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2296: RAISE FND_API.g_exc_unexpected_error;
2297: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
2298: RAISE FND_API.g_exc_error;
2299: END IF;
2292: x_return_status => l_return_status
2293: );
2294:
2295: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2296: RAISE FND_API.g_exc_unexpected_error;
2297: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
2298: RAISE FND_API.g_exc_error;
2299: END IF;
2300: END IF;
2293: );
2294:
2295: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2296: RAISE FND_API.g_exc_unexpected_error;
2297: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
2298: RAISE FND_API.g_exc_error;
2299: END IF;
2300: END IF;
2301:
2294:
2295: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2296: RAISE FND_API.g_exc_unexpected_error;
2297: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
2298: RAISE FND_API.g_exc_error;
2299: END IF;
2300: END IF;
2301:
2302:
2324: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2325: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
2326: FND_MSG_PUB.add;
2327: END IF;
2328: RAISE FND_API.g_exc_error;
2329: END IF;
2330:
2331:
2332: --
2332: --
2333: -- End API Body
2334: --
2335:
2336: IF FND_API.to_boolean(p_commit) THEN
2337: COMMIT;
2338: END IF;
2339:
2340: --
2343: --
2344: FND_MSG_PUB.Count_And_Get (
2345: p_count => x_msg_count,
2346: p_data => x_msg_data,
2347: p_encoded => FND_API.G_FALSE
2348: );
2349:
2350: --
2351: -- Debug message.
2355: END IF;
2356:
2357:
2358: EXCEPTION
2359: WHEN FND_API.G_EXC_ERROR THEN
2360:
2361: ROLLBACK TO Update_Formula_pvt;
2362: x_return_status := FND_API.G_RET_STS_ERROR;
2363: FND_MSG_PUB.Count_And_Get (
2358: EXCEPTION
2359: WHEN FND_API.G_EXC_ERROR THEN
2360:
2361: ROLLBACK TO Update_Formula_pvt;
2362: x_return_status := FND_API.G_RET_STS_ERROR;
2363: FND_MSG_PUB.Count_And_Get (
2364: p_count => x_msg_count,
2365: p_data => x_msg_data);
2366:
2363: FND_MSG_PUB.Count_And_Get (
2364: p_count => x_msg_count,
2365: p_data => x_msg_data);
2366:
2367: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2368:
2369: ROLLBACK TO Update_Formula_pvt;
2370: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2371: FND_MSG_PUB.Count_And_Get (
2366:
2367: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2368:
2369: ROLLBACK TO Update_Formula_pvt;
2370: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2371: FND_MSG_PUB.Count_And_Get (
2372: p_count => x_msg_count,
2373: p_data => x_msg_data
2374: );
2375:
2376: WHEN OTHERS THEN
2377:
2378: ROLLBACK TO Update_Formula_pvt;
2379: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2380: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2381: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, L_API_NAME);
2382: END IF;
2383: FND_MSG_PUB.Count_And_Get (
2404: -- End of comments
2405:
2406: PROCEDURE Update_Formula_Entry (
2407: p_api_version IN NUMBER,
2408: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2409: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2410: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2411:
2412: x_return_status OUT NOCOPY VARCHAR2,
2405:
2406: PROCEDURE Update_Formula_Entry (
2407: p_api_version IN NUMBER,
2408: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2409: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2410: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2411:
2412: x_return_status OUT NOCOPY VARCHAR2,
2413: x_msg_count OUT NOCOPY NUMBER,
2406: PROCEDURE Update_Formula_Entry (
2407: p_api_version IN NUMBER,
2408: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2409: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2410: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2411:
2412: x_return_status OUT NOCOPY VARCHAR2,
2413: x_msg_count OUT NOCOPY NUMBER,
2414: x_msg_data OUT NOCOPY VARCHAR2,
2440:
2441: --
2442: -- Initialize message list if p_init_msg_list is set to TRUE.
2443: --
2444: IF FND_API.To_Boolean (p_init_msg_list) THEN
2445: FND_MSG_PUB.Initialize;
2446: END IF;
2447:
2448: --
2447:
2448: --
2449: -- Standard check for API version compatibility.
2450: --
2451: IF NOT FND_API.Compatible_API_Call (L_API_VERSION,
2452: p_api_version,
2453: L_API_NAME,
2454: G_PKG_NAME)
2455: THEN
2452: p_api_version,
2453: L_API_NAME,
2454: G_PKG_NAME)
2455: THEN
2456: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2457: END IF;
2458:
2459: --
2460: -- Initialize API return status to success.
2458:
2459: --
2460: -- Initialize API return status to success.
2461: --
2462: x_return_status := FND_API.G_RET_STS_SUCCESS;
2463:
2464: --
2465: -- Begin API Body
2466: --
2476: x_msg_count => x_msg_count,
2477: x_msg_data => x_msg_data ) ;
2478:
2479: -- If any errors happen abort API.
2480: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2481: RAISE FND_API.G_EXC_ERROR;
2482: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2483: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2484: END IF;
2477: x_msg_data => x_msg_data ) ;
2478:
2479: -- If any errors happen abort API.
2480: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2481: RAISE FND_API.G_EXC_ERROR;
2482: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2483: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2484: END IF;
2485:
2478:
2479: -- If any errors happen abort API.
2480: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2481: RAISE FND_API.G_EXC_ERROR;
2482: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2483: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2484: END IF;
2485:
2486:
2479: -- If any errors happen abort API.
2480: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2481: RAISE FND_API.G_EXC_ERROR;
2482: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2483: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2484: END IF;
2485:
2486:
2487: IF G_DEBUG THEN
2496: p_validation_mode => JTF_PLSQL_API.g_update,
2497: x_return_status => l_return_status
2498: );
2499:
2500: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2501: RAISE FND_API.g_exc_unexpected_error;
2502: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
2503: RAISE FND_API.g_exc_error;
2504: END IF;
2497: x_return_status => l_return_status
2498: );
2499:
2500: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2501: RAISE FND_API.g_exc_unexpected_error;
2502: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
2503: RAISE FND_API.g_exc_error;
2504: END IF;
2505: END IF;
2498: );
2499:
2500: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2501: RAISE FND_API.g_exc_unexpected_error;
2502: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
2503: RAISE FND_API.g_exc_error;
2504: END IF;
2505: END IF;
2506:
2499:
2500: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2501: RAISE FND_API.g_exc_unexpected_error;
2502: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
2503: RAISE FND_API.g_exc_error;
2504: END IF;
2505: END IF;
2506:
2507: -- replace g_miss_char/num/date with current column values
2515: p_complete_formula_entry_rec => l_formula_entry_rec,
2516: x_return_status => l_return_status
2517: );
2518:
2519: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2520: RAISE FND_API.g_exc_unexpected_error;
2521: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
2522: RAISE FND_API.g_exc_error;
2523: END IF;
2516: x_return_status => l_return_status
2517: );
2518:
2519: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2520: RAISE FND_API.g_exc_unexpected_error;
2521: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
2522: RAISE FND_API.g_exc_error;
2523: END IF;
2524: END IF;
2517: );
2518:
2519: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2520: RAISE FND_API.g_exc_unexpected_error;
2521: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
2522: RAISE FND_API.g_exc_error;
2523: END IF;
2524: END IF;
2525:
2518:
2519: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2520: RAISE FND_API.g_exc_unexpected_error;
2521: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
2522: RAISE FND_API.g_exc_error;
2523: END IF;
2524: END IF;
2525:
2526:
2552: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2553: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
2554: FND_MSG_PUB.add;
2555: END IF;
2556: RAISE FND_API.g_exc_error;
2557: END IF;
2558:
2559:
2560: --
2560: --
2561: -- End API Body
2562: --
2563:
2564: IF FND_API.to_boolean(p_commit) THEN
2565: COMMIT;
2566: END IF;
2567:
2568: --
2571: --
2572: FND_MSG_PUB.Count_And_Get (
2573: p_count => x_msg_count,
2574: p_data => x_msg_data,
2575: p_encoded => FND_API.G_FALSE
2576: );
2577:
2578: --
2579: -- Debug message.
2583: END IF;
2584:
2585:
2586: EXCEPTION
2587: WHEN FND_API.G_EXC_ERROR THEN
2588: ROLLBACK TO Update_Formula_Entry_Pvt;
2589: x_return_status := FND_API.G_RET_STS_ERROR;
2590: FND_MSG_PUB.Count_And_Get (
2591: p_count => x_msg_count,
2585:
2586: EXCEPTION
2587: WHEN FND_API.G_EXC_ERROR THEN
2588: ROLLBACK TO Update_Formula_Entry_Pvt;
2589: x_return_status := FND_API.G_RET_STS_ERROR;
2590: FND_MSG_PUB.Count_And_Get (
2591: p_count => x_msg_count,
2592: p_data => x_msg_data);
2593:
2590: FND_MSG_PUB.Count_And_Get (
2591: p_count => x_msg_count,
2592: p_data => x_msg_data);
2593:
2594: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2595: ROLLBACK TO Update_Formula_Entry_Pvt;
2596: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2597: FND_MSG_PUB.Count_And_Get (
2598: p_count => x_msg_count,
2592: p_data => x_msg_data);
2593:
2594: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2595: ROLLBACK TO Update_Formula_Entry_Pvt;
2596: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2597: FND_MSG_PUB.Count_And_Get (
2598: p_count => x_msg_count,
2599: p_data => x_msg_data
2600: );
2600: );
2601:
2602: WHEN OTHERS THEN
2603: ROLLBACK TO Update_Formula_Entry_Pvt;
2604: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2605: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2606: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, L_API_NAME);
2607: END IF;
2608: FND_MSG_PUB.Count_And_Get (
2627: -- End of comments
2628:
2629: PROCEDURE Delete_Formula (
2630: p_api_version IN NUMBER,
2631: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2632: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2633:
2634: x_return_status OUT NOCOPY VARCHAR2,
2635: x_msg_count OUT NOCOPY NUMBER,
2628:
2629: PROCEDURE Delete_Formula (
2630: p_api_version IN NUMBER,
2631: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2632: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2633:
2634: x_return_status OUT NOCOPY VARCHAR2,
2635: x_msg_count OUT NOCOPY NUMBER,
2636: x_msg_data OUT NOCOPY VARCHAR2,
2660:
2661: --
2662: -- Initialize message list if p_init_msg_list is set to TRUE.
2663: --
2664: IF FND_API.To_Boolean (p_init_msg_list) THEN
2665: FND_MSG_PUB.Initialize;
2666: END IF;
2667:
2668: --
2667:
2668: --
2669: -- Standard check for API version compatibility.
2670: --
2671: IF NOT FND_API.Compatible_API_Call (L_API_VERSION,
2672: p_api_version,
2673: L_API_NAME,
2674: G_PKG_NAME)
2675: THEN
2672: p_api_version,
2673: L_API_NAME,
2674: G_PKG_NAME)
2675: THEN
2676: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2677: END IF;
2678:
2679: --
2680: -- Initialize API return status to success.
2678:
2679: --
2680: -- Initialize API return status to success.
2681: --
2682: x_return_status := FND_API.G_RET_STS_SUCCESS;
2683:
2684: --
2685: -- Begin API Body.
2686: --
2704: THEN
2705:
2706: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
2707: FND_MSG_PUB.add;
2708: RAISE FND_API.g_exc_error;
2709: END IF;
2710: END IF;
2711:
2712: DELETE
2716: --
2717: -- End API Body.
2718: --
2719:
2720: IF FND_API.To_Boolean (p_commit) THEN
2721: COMMIT WORK;
2722: END IF;
2723:
2724: --
2735: --
2736: FND_MSG_PUB.Count_And_Get (
2737: p_count => x_msg_count,
2738: p_data => x_msg_data,
2739: p_encoded => FND_API.G_FALSE
2740: );
2741:
2742: EXCEPTION
2743: WHEN FND_API.G_EXC_ERROR THEN
2739: p_encoded => FND_API.G_FALSE
2740: );
2741:
2742: EXCEPTION
2743: WHEN FND_API.G_EXC_ERROR THEN
2744: ROLLBACK TO Delete_Formula_pvt;
2745: x_return_status := FND_API.G_RET_STS_ERROR;
2746: FND_MSG_PUB.Count_And_Get (
2747: p_count => x_msg_count,
2741:
2742: EXCEPTION
2743: WHEN FND_API.G_EXC_ERROR THEN
2744: ROLLBACK TO Delete_Formula_pvt;
2745: x_return_status := FND_API.G_RET_STS_ERROR;
2746: FND_MSG_PUB.Count_And_Get (
2747: p_count => x_msg_count,
2748: p_data => x_msg_data
2749: );
2746: FND_MSG_PUB.Count_And_Get (
2747: p_count => x_msg_count,
2748: p_data => x_msg_data
2749: );
2750: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2751: ROLLBACK TO Delete_Formula_pvt;
2752: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2753: FND_MSG_PUB.Count_And_Get (
2754: p_count => x_msg_count,
2748: p_data => x_msg_data
2749: );
2750: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2751: ROLLBACK TO Delete_Formula_pvt;
2752: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2753: FND_MSG_PUB.Count_And_Get (
2754: p_count => x_msg_count,
2755: p_data => x_msg_data
2756: );
2755: p_data => x_msg_data
2756: );
2757: WHEN OTHERS THEN
2758: ROLLBACK TO Delete_Formula_pvt;
2759: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2760: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2761: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, L_API_NAME);
2762: END IF;
2763: FND_MSG_PUB.Count_And_Get (
2782: -- End of comments
2783:
2784: PROCEDURE Delete_Formula_Entry (
2785: p_api_version IN NUMBER,
2786: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2787: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2788:
2789: x_return_status OUT NOCOPY VARCHAR2,
2790: x_msg_count OUT NOCOPY NUMBER,
2783:
2784: PROCEDURE Delete_Formula_Entry (
2785: p_api_version IN NUMBER,
2786: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2787: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2788:
2789: x_return_status OUT NOCOPY VARCHAR2,
2790: x_msg_count OUT NOCOPY NUMBER,
2791: x_msg_data OUT NOCOPY VARCHAR2,
2815:
2816: --
2817: -- Initialize message list if p_init_msg_list is set to TRUE.
2818: --
2819: IF FND_API.To_Boolean (p_init_msg_list) THEN
2820: FND_MSG_PUB.Initialize;
2821: END IF;
2822:
2823: --
2822:
2823: --
2824: -- Standard check for API version compatibility.
2825: --
2826: IF NOT FND_API.Compatible_API_Call (L_API_VERSION,
2827: p_api_version,
2828: L_API_NAME,
2829: G_PKG_NAME)
2830: THEN
2827: p_api_version,
2828: L_API_NAME,
2829: G_PKG_NAME)
2830: THEN
2831: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2832: END IF;
2833:
2834: --
2835: -- Initialize API return status to success.
2833:
2834: --
2835: -- Initialize API return status to success.
2836: --
2837: x_return_status := FND_API.G_RET_STS_SUCCESS;
2838:
2839: --
2840: -- Begin API Body.
2841: --
2859: THEN
2860:
2861: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
2862: FND_MSG_PUB.add;
2863: RAISE FND_API.g_exc_error;
2864: END IF;
2865: END IF;
2866:
2867: --
2867: --
2868: -- End API Body.
2869: --
2870:
2871: IF FND_API.To_Boolean (p_commit) THEN
2872: COMMIT WORK;
2873: END IF;
2874:
2875: --
2886: --
2887: FND_MSG_PUB.Count_And_Get (
2888: p_count => x_msg_count,
2889: p_data => x_msg_data,
2890: p_encoded => FND_API.G_FALSE
2891: );
2892:
2893: EXCEPTION
2894: WHEN FND_API.G_EXC_ERROR THEN
2890: p_encoded => FND_API.G_FALSE
2891: );
2892:
2893: EXCEPTION
2894: WHEN FND_API.G_EXC_ERROR THEN
2895: ROLLBACK TO Delete_Formula_Entry_Pvt;
2896: x_return_status := FND_API.G_RET_STS_ERROR;
2897: FND_MSG_PUB.Count_And_Get (
2898: p_count => x_msg_count,
2892:
2893: EXCEPTION
2894: WHEN FND_API.G_EXC_ERROR THEN
2895: ROLLBACK TO Delete_Formula_Entry_Pvt;
2896: x_return_status := FND_API.G_RET_STS_ERROR;
2897: FND_MSG_PUB.Count_And_Get (
2898: p_count => x_msg_count,
2899: p_data => x_msg_data
2900: );
2897: FND_MSG_PUB.Count_And_Get (
2898: p_count => x_msg_count,
2899: p_data => x_msg_data
2900: );
2901: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2902: ROLLBACK TO Delete_Formula_Entry_Pvt;
2903: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2904: FND_MSG_PUB.Count_And_Get (
2905: p_count => x_msg_count,
2899: p_data => x_msg_data
2900: );
2901: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2902: ROLLBACK TO Delete_Formula_Entry_Pvt;
2903: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2904: FND_MSG_PUB.Count_And_Get (
2905: p_count => x_msg_count,
2906: p_data => x_msg_data
2907: );
2906: p_data => x_msg_data
2907: );
2908: WHEN OTHERS THEN
2909: ROLLBACK TO Delete_Formula_Entry_Pvt;
2910: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2911: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2912: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, L_API_NAME);
2913: END IF;
2914: FND_MSG_PUB.Count_And_Get (
2933: -- End of comments
2934:
2935: PROCEDURE Lock_Formula (
2936: p_api_version IN NUMBER,
2937: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2938:
2939: x_return_status OUT NOCOPY VARCHAR2,
2940: x_msg_count OUT NOCOPY NUMBER,
2941: x_msg_data OUT NOCOPY VARCHAR2,
2967:
2968: --
2969: -- Initialize message list if p_init_msg_list is set to TRUE.
2970: --
2971: IF FND_API.To_Boolean (p_init_msg_list) THEN
2972: FND_MSG_PUB.Initialize;
2973: END IF;
2974:
2975: --
2974:
2975: --
2976: -- Standard check for API version compatibility.
2977: --
2978: IF NOT FND_API.Compatible_API_Call (L_API_VERSION,
2979: p_api_version,
2980: L_API_NAME,
2981: G_PKG_NAME)
2982: THEN
2979: p_api_version,
2980: L_API_NAME,
2981: G_PKG_NAME)
2982: THEN
2983: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2984: END IF;
2985:
2986: --
2987: -- Initialize API return status to success.
2985:
2986: --
2987: -- Initialize API return status to success.
2988: --
2989: x_return_status := FND_API.G_RET_STS_SUCCESS;
2990:
2991: --
2992: -- Begin API Body
2993: --
3005: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3006: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
3007: FND_MSG_PUB.add;
3008: END IF;
3009: RAISE FND_API.g_exc_error;
3010: END IF;
3011: CLOSE c_formula_info;
3012:
3013:
3017: --
3018: FND_MSG_PUB.Count_And_Get (
3019: p_count => x_msg_count,
3020: p_data => x_msg_data,
3021: p_encoded => FND_API.G_FALSE
3022: );
3023:
3024: --
3025: -- Debug message.
3029: END IF;
3030:
3031:
3032: EXCEPTION
3033: WHEN FND_API.G_EXC_ERROR THEN
3034: x_return_status := FND_API.G_RET_STS_ERROR;
3035: FND_MSG_PUB.Count_And_Get (
3036: p_count => x_msg_count,
3037: p_data => x_msg_data
3030:
3031:
3032: EXCEPTION
3033: WHEN FND_API.G_EXC_ERROR THEN
3034: x_return_status := FND_API.G_RET_STS_ERROR;
3035: FND_MSG_PUB.Count_And_Get (
3036: p_count => x_msg_count,
3037: p_data => x_msg_data
3038: );
3035: FND_MSG_PUB.Count_And_Get (
3036: p_count => x_msg_count,
3037: p_data => x_msg_data
3038: );
3039: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3040: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3041: FND_MSG_PUB.Count_And_Get (
3042: p_count => x_msg_count,
3043: p_data => x_msg_data
3036: p_count => x_msg_count,
3037: p_data => x_msg_data
3038: );
3039: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3040: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3041: FND_MSG_PUB.Count_And_Get (
3042: p_count => x_msg_count,
3043: p_data => x_msg_data
3044: );
3042: p_count => x_msg_count,
3043: p_data => x_msg_data
3044: );
3045: WHEN AMS_Utility_PVT.RESOURCE_LOCKED THEN
3046: x_return_status := FND_API.G_RET_STS_ERROR ;
3047:
3048: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3049: FND_MESSAGE.set_name('AMS', 'AMS_API_RESOURCE_LOCKED');
3050: FND_MSG_PUB.add;
3052:
3053: FND_MSG_PUB.Count_And_Get (
3054: p_count => x_msg_count,
3055: p_data => x_msg_data,
3056: p_encoded => FND_API.G_FALSE
3057: );
3058: WHEN OTHERS THEN
3059: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3060: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3055: p_data => x_msg_data,
3056: p_encoded => FND_API.G_FALSE
3057: );
3058: WHEN OTHERS THEN
3059: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3060: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3061: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, L_API_NAME);
3062: END IF;
3063: FND_MSG_PUB.Count_And_Get (
3062: END IF;
3063: FND_MSG_PUB.Count_And_Get (
3064: p_count => x_msg_count,
3065: p_data => x_msg_data,
3066: p_encoded => FND_API.G_FALSE
3067: );
3068: END Lock_Formula;
3069:
3070:
3083: -- End of comments
3084:
3085: PROCEDURE Lock_Formula_Entry (
3086: p_api_version IN NUMBER,
3087: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3088:
3089: x_return_status OUT NOCOPY VARCHAR2,
3090: x_msg_count OUT NOCOPY NUMBER,
3091: x_msg_data OUT NOCOPY VARCHAR2,
3117:
3118: --
3119: -- Initialize message list if p_init_msg_list is set to TRUE.
3120: --
3121: IF FND_API.To_Boolean (p_init_msg_list) THEN
3122: FND_MSG_PUB.Initialize;
3123: END IF;
3124:
3125: --
3124:
3125: --
3126: -- Standard check for API version compatibility.
3127: --
3128: IF NOT FND_API.Compatible_API_Call (L_API_VERSION,
3129: p_api_version,
3130: L_API_NAME,
3131: G_PKG_NAME)
3132: THEN
3129: p_api_version,
3130: L_API_NAME,
3131: G_PKG_NAME)
3132: THEN
3133: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3134: END IF;
3135:
3136: --
3137: -- Initialize API return status to success.
3135:
3136: --
3137: -- Initialize API return status to success.
3138: --
3139: x_return_status := FND_API.G_RET_STS_SUCCESS;
3140:
3141: --
3142: -- Begin API Body
3143: --
3155: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3156: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
3157: FND_MSG_PUB.add;
3158: END IF;
3159: RAISE FND_API.g_exc_error;
3160: END IF;
3161: CLOSE c_formula_entry_info;
3162:
3163:
3167: --
3168: FND_MSG_PUB.Count_And_Get (
3169: p_count => x_msg_count,
3170: p_data => x_msg_data,
3171: p_encoded => FND_API.G_FALSE
3172: );
3173:
3174: --
3175: -- Debug message.
3179: END IF;
3180:
3181:
3182: EXCEPTION
3183: WHEN FND_API.G_EXC_ERROR THEN
3184: x_return_status := FND_API.G_RET_STS_ERROR;
3185: FND_MSG_PUB.Count_And_Get (
3186: p_count => x_msg_count,
3187: p_data => x_msg_data
3180:
3181:
3182: EXCEPTION
3183: WHEN FND_API.G_EXC_ERROR THEN
3184: x_return_status := FND_API.G_RET_STS_ERROR;
3185: FND_MSG_PUB.Count_And_Get (
3186: p_count => x_msg_count,
3187: p_data => x_msg_data
3188: );
3185: FND_MSG_PUB.Count_And_Get (
3186: p_count => x_msg_count,
3187: p_data => x_msg_data
3188: );
3189: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3190: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3191: FND_MSG_PUB.Count_And_Get (
3192: p_count => x_msg_count,
3193: p_data => x_msg_data
3186: p_count => x_msg_count,
3187: p_data => x_msg_data
3188: );
3189: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3190: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3191: FND_MSG_PUB.Count_And_Get (
3192: p_count => x_msg_count,
3193: p_data => x_msg_data
3194: );
3192: p_count => x_msg_count,
3193: p_data => x_msg_data
3194: );
3195: WHEN AMS_Utility_PVT.RESOURCE_LOCKED THEN
3196: x_return_status := FND_API.G_RET_STS_ERROR ;
3197:
3198: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3199: FND_MESSAGE.set_name('AMS', 'AMS_API_RESOURCE_LOCKED');
3200: FND_MSG_PUB.add;
3202:
3203: FND_MSG_PUB.Count_And_Get (
3204: p_count => x_msg_count,
3205: p_data => x_msg_data,
3206: p_encoded => FND_API.G_FALSE
3207: );
3208: WHEN OTHERS THEN
3209: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3210: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3205: p_data => x_msg_data,
3206: p_encoded => FND_API.G_FALSE
3207: );
3208: WHEN OTHERS THEN
3209: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3210: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3211: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, L_API_NAME);
3212: END IF;
3213: FND_MSG_PUB.Count_And_Get (
3212: END IF;
3213: FND_MSG_PUB.Count_And_Get (
3214: p_count => x_msg_count,
3215: p_data => x_msg_data,
3216: p_encoded => FND_API.G_FALSE
3217: );
3218: END Lock_Formula_Entry;
3219:
3220: -------------------------------------------------------------------------------
3255: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3256: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
3257: FND_MSG_PUB.add;
3258: END IF;
3259: RAISE FND_API.g_exc_error;
3260: END IF;
3261: CLOSE c_formula;
3262:
3263:
3261: CLOSE c_formula;
3262:
3263:
3264:
3265: IF p_formula_rec.formula_id = FND_API.G_MISS_NUM THEN
3266: x_complete_formula_rec.formula_id := l_formula_rec.formula_id;
3267: END IF;
3268:
3269: IF p_formula_rec.activity_metric_id = FND_API.G_MISS_NUM THEN
3265: IF p_formula_rec.formula_id = FND_API.G_MISS_NUM THEN
3266: x_complete_formula_rec.formula_id := l_formula_rec.formula_id;
3267: END IF;
3268:
3269: IF p_formula_rec.activity_metric_id = FND_API.G_MISS_NUM THEN
3270: x_complete_formula_rec.activity_metric_id := l_formula_rec.activity_metric_id;
3271: END IF;
3272:
3273: IF p_formula_rec.level_depth = FND_API.G_MISS_NUM THEN
3269: IF p_formula_rec.activity_metric_id = FND_API.G_MISS_NUM THEN
3270: x_complete_formula_rec.activity_metric_id := l_formula_rec.activity_metric_id;
3271: END IF;
3272:
3273: IF p_formula_rec.level_depth = FND_API.G_MISS_NUM THEN
3274: x_complete_formula_rec.level_depth := l_formula_rec.level_depth;
3275: END IF;
3276:
3277: IF p_formula_rec.parent_formula_id = FND_API.G_MISS_NUM THEN
3273: IF p_formula_rec.level_depth = FND_API.G_MISS_NUM THEN
3274: x_complete_formula_rec.level_depth := l_formula_rec.level_depth;
3275: END IF;
3276:
3277: IF p_formula_rec.parent_formula_id = FND_API.G_MISS_NUM THEN
3278: x_complete_formula_rec.parent_formula_id := l_formula_rec.parent_formula_id;
3279: END IF;
3280:
3281: IF p_formula_rec.last_update_date = FND_API.G_MISS_DATE THEN
3277: IF p_formula_rec.parent_formula_id = FND_API.G_MISS_NUM THEN
3278: x_complete_formula_rec.parent_formula_id := l_formula_rec.parent_formula_id;
3279: END IF;
3280:
3281: IF p_formula_rec.last_update_date = FND_API.G_MISS_DATE THEN
3282: x_complete_formula_rec.last_update_date := l_formula_rec.last_update_date;
3283: END IF;
3284:
3285: IF p_formula_rec.last_updated_by = FND_API.G_MISS_NUM THEN
3281: IF p_formula_rec.last_update_date = FND_API.G_MISS_DATE THEN
3282: x_complete_formula_rec.last_update_date := l_formula_rec.last_update_date;
3283: END IF;
3284:
3285: IF p_formula_rec.last_updated_by = FND_API.G_MISS_NUM THEN
3286: x_complete_formula_rec.last_updated_by := l_formula_rec.last_updated_by ;
3287: END IF;
3288:
3289: IF p_formula_rec.creation_date = FND_API.G_MISS_DATE THEN
3285: IF p_formula_rec.last_updated_by = FND_API.G_MISS_NUM THEN
3286: x_complete_formula_rec.last_updated_by := l_formula_rec.last_updated_by ;
3287: END IF;
3288:
3289: IF p_formula_rec.creation_date = FND_API.G_MISS_DATE THEN
3290: x_complete_formula_rec.creation_date := l_formula_rec.creation_date;
3291: END IF;
3292:
3293: IF p_formula_rec.created_by = FND_API.G_MISS_NUM THEN
3289: IF p_formula_rec.creation_date = FND_API.G_MISS_DATE THEN
3290: x_complete_formula_rec.creation_date := l_formula_rec.creation_date;
3291: END IF;
3292:
3293: IF p_formula_rec.created_by = FND_API.G_MISS_NUM THEN
3294: x_complete_formula_rec.last_updated_by := l_formula_rec.last_updated_by ;
3295: END IF;
3296:
3297: IF p_formula_rec.last_update_login = FND_API.G_MISS_NUM THEN
3293: IF p_formula_rec.created_by = FND_API.G_MISS_NUM THEN
3294: x_complete_formula_rec.last_updated_by := l_formula_rec.last_updated_by ;
3295: END IF;
3296:
3297: IF p_formula_rec.last_update_login = FND_API.G_MISS_NUM THEN
3298: x_complete_formula_rec.last_updated_by := l_formula_rec.last_updated_by ;
3299: END IF;
3300:
3301: IF p_formula_rec.formula_type = FND_API.G_MISS_CHAR THEN
3297: IF p_formula_rec.last_update_login = FND_API.G_MISS_NUM THEN
3298: x_complete_formula_rec.last_updated_by := l_formula_rec.last_updated_by ;
3299: END IF;
3300:
3301: IF p_formula_rec.formula_type = FND_API.G_MISS_CHAR THEN
3302: x_complete_formula_rec.formula_type := l_formula_rec.formula_type;
3303: END IF;
3304:
3305: END Complete_Formula_Rec ;
3343: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3344: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
3345: FND_MSG_PUB.add;
3346: END IF;
3347: RAISE FND_API.g_exc_error;
3348: END IF;
3349: CLOSE c_formula_entry;
3350:
3351:
3348: END IF;
3349: CLOSE c_formula_entry;
3350:
3351:
3352: IF p_formula_entry_rec.formula_entry_id = FND_API.G_MISS_NUM THEN
3353: x_complete_formula_entry_rec.formula_entry_id := l_formula_entry_rec.formula_entry_id;
3354: END IF;
3355:
3356: IF p_formula_entry_rec.formula_id = FND_API.G_MISS_NUM THEN
3352: IF p_formula_entry_rec.formula_entry_id = FND_API.G_MISS_NUM THEN
3353: x_complete_formula_entry_rec.formula_entry_id := l_formula_entry_rec.formula_entry_id;
3354: END IF;
3355:
3356: IF p_formula_entry_rec.formula_id = FND_API.G_MISS_NUM THEN
3357: x_complete_formula_entry_rec.formula_id := l_formula_entry_rec.formula_id;
3358: END IF;
3359:
3360: IF p_formula_entry_rec.order_number = FND_API.G_MISS_NUM THEN
3356: IF p_formula_entry_rec.formula_id = FND_API.G_MISS_NUM THEN
3357: x_complete_formula_entry_rec.formula_id := l_formula_entry_rec.formula_id;
3358: END IF;
3359:
3360: IF p_formula_entry_rec.order_number = FND_API.G_MISS_NUM THEN
3361: x_complete_formula_entry_rec.order_number := l_formula_entry_rec.order_number;
3362: END IF;
3363:
3364: IF p_formula_entry_rec.formula_entry_type = FND_API.G_MISS_CHAR THEN
3360: IF p_formula_entry_rec.order_number = FND_API.G_MISS_NUM THEN
3361: x_complete_formula_entry_rec.order_number := l_formula_entry_rec.order_number;
3362: END IF;
3363:
3364: IF p_formula_entry_rec.formula_entry_type = FND_API.G_MISS_CHAR THEN
3365: x_complete_formula_entry_rec.formula_entry_type := l_formula_entry_rec.formula_entry_type;
3366: END IF;
3367:
3368: IF p_formula_entry_rec.formula_entry_value = FND_API.G_MISS_CHAR THEN
3364: IF p_formula_entry_rec.formula_entry_type = FND_API.G_MISS_CHAR THEN
3365: x_complete_formula_entry_rec.formula_entry_type := l_formula_entry_rec.formula_entry_type;
3366: END IF;
3367:
3368: IF p_formula_entry_rec.formula_entry_value = FND_API.G_MISS_CHAR THEN
3369: x_complete_formula_entry_rec.formula_entry_value := l_formula_entry_rec.formula_entry_value;
3370: END IF;
3371:
3372: IF p_formula_entry_rec.metric_column_value = FND_API.G_MISS_CHAR THEN
3368: IF p_formula_entry_rec.formula_entry_value = FND_API.G_MISS_CHAR THEN
3369: x_complete_formula_entry_rec.formula_entry_value := l_formula_entry_rec.formula_entry_value;
3370: END IF;
3371:
3372: IF p_formula_entry_rec.metric_column_value = FND_API.G_MISS_CHAR THEN
3373: x_complete_formula_entry_rec.metric_column_value := l_formula_entry_rec.metric_column_value;
3374: END IF;
3375:
3376: IF p_formula_entry_rec.formula_entry_operator = FND_API.G_MISS_CHAR THEN
3372: IF p_formula_entry_rec.metric_column_value = FND_API.G_MISS_CHAR THEN
3373: x_complete_formula_entry_rec.metric_column_value := l_formula_entry_rec.metric_column_value;
3374: END IF;
3375:
3376: IF p_formula_entry_rec.formula_entry_operator = FND_API.G_MISS_CHAR THEN
3377: x_complete_formula_entry_rec.formula_entry_operator := l_formula_entry_rec.formula_entry_operator;
3378: END IF;
3379:
3380: IF p_formula_entry_rec.formula_entry_operator = FND_API.G_MISS_CHAR THEN
3376: IF p_formula_entry_rec.formula_entry_operator = FND_API.G_MISS_CHAR THEN
3377: x_complete_formula_entry_rec.formula_entry_operator := l_formula_entry_rec.formula_entry_operator;
3378: END IF;
3379:
3380: IF p_formula_entry_rec.formula_entry_operator = FND_API.G_MISS_CHAR THEN
3381: x_complete_formula_entry_rec.formula_entry_operator := l_formula_entry_rec.formula_entry_operator;
3382: END IF;
3383:
3384: IF p_formula_entry_rec.last_update_date = FND_API.G_MISS_DATE THEN
3380: IF p_formula_entry_rec.formula_entry_operator = FND_API.G_MISS_CHAR THEN
3381: x_complete_formula_entry_rec.formula_entry_operator := l_formula_entry_rec.formula_entry_operator;
3382: END IF;
3383:
3384: IF p_formula_entry_rec.last_update_date = FND_API.G_MISS_DATE THEN
3385: x_complete_formula_entry_rec.last_update_date := l_formula_entry_rec.last_update_date;
3386: END IF;
3387:
3388: IF p_formula_entry_rec.last_updated_by = FND_API.G_MISS_NUM THEN
3384: IF p_formula_entry_rec.last_update_date = FND_API.G_MISS_DATE THEN
3385: x_complete_formula_entry_rec.last_update_date := l_formula_entry_rec.last_update_date;
3386: END IF;
3387:
3388: IF p_formula_entry_rec.last_updated_by = FND_API.G_MISS_NUM THEN
3389: x_complete_formula_entry_rec.last_updated_by := l_formula_entry_rec.last_updated_by;
3390: END IF;
3391:
3392: IF p_formula_entry_rec.creation_date = FND_API.G_MISS_DATE THEN
3388: IF p_formula_entry_rec.last_updated_by = FND_API.G_MISS_NUM THEN
3389: x_complete_formula_entry_rec.last_updated_by := l_formula_entry_rec.last_updated_by;
3390: END IF;
3391:
3392: IF p_formula_entry_rec.creation_date = FND_API.G_MISS_DATE THEN
3393: x_complete_formula_entry_rec.creation_date := l_formula_entry_rec.creation_date;
3394: END IF;
3395:
3396: IF p_formula_entry_rec.created_by = FND_API.G_MISS_NUM THEN
3392: IF p_formula_entry_rec.creation_date = FND_API.G_MISS_DATE THEN
3393: x_complete_formula_entry_rec.creation_date := l_formula_entry_rec.creation_date;
3394: END IF;
3395:
3396: IF p_formula_entry_rec.created_by = FND_API.G_MISS_NUM THEN
3397: x_complete_formula_entry_rec.created_by := l_formula_entry_rec.created_by;
3398: END IF;
3399:
3400: IF p_formula_entry_rec.last_update_login = FND_API.G_MISS_NUM THEN
3396: IF p_formula_entry_rec.created_by = FND_API.G_MISS_NUM THEN
3397: x_complete_formula_entry_rec.created_by := l_formula_entry_rec.created_by;
3398: END IF;
3399:
3400: IF p_formula_entry_rec.last_update_login = FND_API.G_MISS_NUM THEN
3401: x_complete_formula_entry_rec.last_update_login := l_formula_entry_rec.last_update_login;
3402: END IF;
3403:
3404: IF p_formula_entry_rec.object_version_number = FND_API.G_MISS_NUM THEN
3400: IF p_formula_entry_rec.last_update_login = FND_API.G_MISS_NUM THEN
3401: x_complete_formula_entry_rec.last_update_login := l_formula_entry_rec.last_update_login;
3402: END IF;
3403:
3404: IF p_formula_entry_rec.object_version_number = FND_API.G_MISS_NUM THEN
3405: x_complete_formula_entry_rec.object_version_number := l_formula_entry_rec.object_version_number;
3406: END IF;
3407:
3408: END Complete_Form_Ent_Rec ;