877: RETURN FALSE;
878: EXCEPTION
879: WHEN OTHERS THEN
880: ROLLBACK to Savepoint check_vr_required;
881: FND_MESSAGE.SET_NAME('GMD', 'GMD_UNEXPECTED_ERROR');
882: FND_MESSAGE.SET_TOKEN('ERROR', sqlerrm);
883: FND_MSG_PUB.ADD;
884: RETURN TRUE;
885: END check_recipe_validity_eres;
878: EXCEPTION
879: WHEN OTHERS THEN
880: ROLLBACK to Savepoint check_vr_required;
881: FND_MESSAGE.SET_NAME('GMD', 'GMD_UNEXPECTED_ERROR');
882: FND_MESSAGE.SET_TOKEN('ERROR', sqlerrm);
883: FND_MSG_PUB.ADD;
884: RETURN TRUE;
885: END check_recipe_validity_eres;
886:
977: BEGIN
978: SAVEPOINT update_formula;
979: X_return_status := FND_API.g_ret_sts_success;
980:
981: FND_MESSAGE.SET_NAME('GMD', 'GMD_FORMULA');
982: l_object_type := FND_MESSAGE.GET;
983:
984: SELECT 'x'
985: INTO l_text
978: SAVEPOINT update_formula;
979: X_return_status := FND_API.g_ret_sts_success;
980:
981: FND_MESSAGE.SET_NAME('GMD', 'GMD_FORMULA');
982: l_object_type := FND_MESSAGE.GET;
983:
984: SELECT 'x'
985: INTO l_text
986: FROM fm_form_mst
1003: --Get the access type of the formula
1004: l_access_type_ind := GMD_API_GRP.GET_FORMULA_ACCESS_TYPE(p_formula_id => p_formula_id,
1005: p_owner_organization_id => l_owner_organization_id);
1006: IF (l_access_type_ind ='V') THEN
1007: FND_MESSAGE.SET_NAME('GMD', 'GMD_FORM_UPD_NO_ACCESS');
1008: FND_MSG_PUB.ADD;
1009: RAISE STATUS_UPDATE_FAILURE;
1010: END IF;
1011:
1031: FETCH Cur_get_status_desc INTO l_to_status_desc;
1032: CLOSE Cur_get_status_desc;
1033:
1034: IF p_pending_status IS NULL THEN
1035: FND_MESSAGE.SET_NAME('GMD', 'GMD_ERES_PEND_STAT_REQD');
1036: RAISE PENDING_STATUS_ERR;
1037: END IF;
1038: IF p_rework_status IS NULL THEN
1039: FND_MESSAGE.SET_NAME('GMD', 'GMD_ERES_REWK_STAT_REQD');
1035: FND_MESSAGE.SET_NAME('GMD', 'GMD_ERES_PEND_STAT_REQD');
1036: RAISE PENDING_STATUS_ERR;
1037: END IF;
1038: IF p_rework_status IS NULL THEN
1039: FND_MESSAGE.SET_NAME('GMD', 'GMD_ERES_REWK_STAT_REQD');
1040: RAISE REWORK_STATUS_ERR;
1041: END IF;
1042: END IF; /* IF (l_esig_reqd) */
1043:
1042: END IF; /* IF (l_esig_reqd) */
1043:
1044: END IF; /* IF (l_esig_reqd OR l_erec_reqd) */
1045:
1046: FND_MESSAGE.SET_NAME('GMD', 'GMD_ERES_FORM_USR_LBL');
1047: l_user_key_label := FND_MESSAGE.GET;
1048: GMD_EDR_STANDARD.raise_event (p_event_name => 'oracle.apps.gmd.formula.sts'
1049: ,p_event_key => p_formula_id
1050: ,p_parameter_name1 => 'DEFERRED'
1043:
1044: END IF; /* IF (l_esig_reqd OR l_erec_reqd) */
1045:
1046: FND_MESSAGE.SET_NAME('GMD', 'GMD_ERES_FORM_USR_LBL');
1047: l_user_key_label := FND_MESSAGE.GET;
1048: GMD_EDR_STANDARD.raise_event (p_event_name => 'oracle.apps.gmd.formula.sts'
1049: ,p_event_key => p_formula_id
1050: ,p_parameter_name1 => 'DEFERRED'
1051: ,p_parameter_value1 => 'Y'
1070: UPDATE fm_form_mst
1071: SET formula_status = p_pending_status
1072: WHERE formula_id = p_formula_id;
1073: IF p_called_from_form = 'F' THEN
1074: FND_MESSAGE.SET_NAME('GMD','GMD_ERES_PEND_STAT_UPD');
1075: FND_MESSAGE.SET_TOKEN('TO_STATUS', l_to_status_desc);
1076: FND_FILE.PUT(FND_FILE.LOG,
1077: FND_MESSAGE.GET||' ( '||l_object_type||' :'||p_object_name||' '||l_version_lbl
1078: ||' :'||p_object_version||')');
1071: SET formula_status = p_pending_status
1072: WHERE formula_id = p_formula_id;
1073: IF p_called_from_form = 'F' THEN
1074: FND_MESSAGE.SET_NAME('GMD','GMD_ERES_PEND_STAT_UPD');
1075: FND_MESSAGE.SET_TOKEN('TO_STATUS', l_to_status_desc);
1076: FND_FILE.PUT(FND_FILE.LOG,
1077: FND_MESSAGE.GET||' ( '||l_object_type||' :'||p_object_name||' '||l_version_lbl
1078: ||' :'||p_object_version||')');
1079: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
1073: IF p_called_from_form = 'F' THEN
1074: FND_MESSAGE.SET_NAME('GMD','GMD_ERES_PEND_STAT_UPD');
1075: FND_MESSAGE.SET_TOKEN('TO_STATUS', l_to_status_desc);
1076: FND_FILE.PUT(FND_FILE.LOG,
1077: FND_MESSAGE.GET||' ( '||l_object_type||' :'||p_object_name||' '||l_version_lbl
1078: ||' :'||p_object_version||')');
1079: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
1080: END IF;
1081: END IF; /* IF l_esig_reqd */
1084: WHEN PENDING_STATUS_ERR OR
1085: REWORK_STATUS_ERR THEN
1086: ROLLBACK TO SAVEPOINT update_formula;
1087: X_return_status := FND_API.g_ret_sts_error;
1088: FND_MESSAGE.SET_TOKEN('FROM_STATUS', SUBSTR(l_from_status_desc,1, 80));
1089: FND_MESSAGE.SET_TOKEN('TO_STATUS', SUBSTR(l_to_status_desc, 1, 80));
1090: l_text := FND_MESSAGE.GET;
1091: FND_MESSAGE.SET_NAME('GMD','GMD_CONC_VERSION');
1092: l_version_lbl := FND_MESSAGE.GET;
1085: REWORK_STATUS_ERR THEN
1086: ROLLBACK TO SAVEPOINT update_formula;
1087: X_return_status := FND_API.g_ret_sts_error;
1088: FND_MESSAGE.SET_TOKEN('FROM_STATUS', SUBSTR(l_from_status_desc,1, 80));
1089: FND_MESSAGE.SET_TOKEN('TO_STATUS', SUBSTR(l_to_status_desc, 1, 80));
1090: l_text := FND_MESSAGE.GET;
1091: FND_MESSAGE.SET_NAME('GMD','GMD_CONC_VERSION');
1092: l_version_lbl := FND_MESSAGE.GET;
1093: l_text := l_text||' ( '||l_object_type||' :'||p_object_name||' '||l_version_lbl
1086: ROLLBACK TO SAVEPOINT update_formula;
1087: X_return_status := FND_API.g_ret_sts_error;
1088: FND_MESSAGE.SET_TOKEN('FROM_STATUS', SUBSTR(l_from_status_desc,1, 80));
1089: FND_MESSAGE.SET_TOKEN('TO_STATUS', SUBSTR(l_to_status_desc, 1, 80));
1090: l_text := FND_MESSAGE.GET;
1091: FND_MESSAGE.SET_NAME('GMD','GMD_CONC_VERSION');
1092: l_version_lbl := FND_MESSAGE.GET;
1093: l_text := l_text||' ( '||l_object_type||' :'||p_object_name||' '||l_version_lbl
1094: ||' :'||p_object_version||')';
1087: X_return_status := FND_API.g_ret_sts_error;
1088: FND_MESSAGE.SET_TOKEN('FROM_STATUS', SUBSTR(l_from_status_desc,1, 80));
1089: FND_MESSAGE.SET_TOKEN('TO_STATUS', SUBSTR(l_to_status_desc, 1, 80));
1090: l_text := FND_MESSAGE.GET;
1091: FND_MESSAGE.SET_NAME('GMD','GMD_CONC_VERSION');
1092: l_version_lbl := FND_MESSAGE.GET;
1093: l_text := l_text||' ( '||l_object_type||' :'||p_object_name||' '||l_version_lbl
1094: ||' :'||p_object_version||')';
1095: IF p_called_from_form = 'F' THEN
1088: FND_MESSAGE.SET_TOKEN('FROM_STATUS', SUBSTR(l_from_status_desc,1, 80));
1089: FND_MESSAGE.SET_TOKEN('TO_STATUS', SUBSTR(l_to_status_desc, 1, 80));
1090: l_text := FND_MESSAGE.GET;
1091: FND_MESSAGE.SET_NAME('GMD','GMD_CONC_VERSION');
1092: l_version_lbl := FND_MESSAGE.GET;
1093: l_text := l_text||' ( '||l_object_type||' :'||p_object_name||' '||l_version_lbl
1094: ||' :'||p_object_version||')';
1095: IF p_called_from_form = 'F' THEN
1096: FND_FILE.PUT(FND_FILE.LOG, l_text);
1095: IF p_called_from_form = 'F' THEN
1096: FND_FILE.PUT(FND_FILE.LOG, l_text);
1097: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
1098: ELSE
1099: FND_MESSAGE.SET_NAME ('FND', 'FND_GENERIC_MESSAGE');
1100: FND_MESSAGE.SET_TOKEN('MESSAGE', l_text);
1101: FND_MSG_PUB.add;
1102: END IF;
1103: WHEN app_exception.record_lock_exception THEN
1096: FND_FILE.PUT(FND_FILE.LOG, l_text);
1097: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
1098: ELSE
1099: FND_MESSAGE.SET_NAME ('FND', 'FND_GENERIC_MESSAGE');
1100: FND_MESSAGE.SET_TOKEN('MESSAGE', l_text);
1101: FND_MSG_PUB.add;
1102: END IF;
1103: WHEN app_exception.record_lock_exception THEN
1104: ROLLBACK TO SAVEPOINT update_formula;
1130: OPEN Cur_get_desc;
1131: FETCH Cur_get_desc INTO l_replace_type_desc;
1132: CLOSE Cur_get_desc;
1133:
1134: FND_MESSAGE.SET_NAME('GMD', 'GMD_STATUS');
1135: l_status := FND_MESSAGE.GET;
1136:
1137: FND_MESSAGE.SET_NAME('GMD','GMD_CONC_UPDATE_OBJECT_FAILED');
1138: FND_MESSAGE.SET_TOKEN('REPLACE_TYPE',l_replace_type_desc);
1131: FETCH Cur_get_desc INTO l_replace_type_desc;
1132: CLOSE Cur_get_desc;
1133:
1134: FND_MESSAGE.SET_NAME('GMD', 'GMD_STATUS');
1135: l_status := FND_MESSAGE.GET;
1136:
1137: FND_MESSAGE.SET_NAME('GMD','GMD_CONC_UPDATE_OBJECT_FAILED');
1138: FND_MESSAGE.SET_TOKEN('REPLACE_TYPE',l_replace_type_desc);
1139: FND_MESSAGE.SET_TOKEN('REPLACE_VALUE',l_status);
1133:
1134: FND_MESSAGE.SET_NAME('GMD', 'GMD_STATUS');
1135: l_status := FND_MESSAGE.GET;
1136:
1137: FND_MESSAGE.SET_NAME('GMD','GMD_CONC_UPDATE_OBJECT_FAILED');
1138: FND_MESSAGE.SET_TOKEN('REPLACE_TYPE',l_replace_type_desc);
1139: FND_MESSAGE.SET_TOKEN('REPLACE_VALUE',l_status);
1140: FND_MESSAGE.SET_TOKEN('OBJECT_NAME',p_object_name);
1141: FND_MESSAGE.SET_TOKEN('OBJECT_TYPE',l_object_type);
1134: FND_MESSAGE.SET_NAME('GMD', 'GMD_STATUS');
1135: l_status := FND_MESSAGE.GET;
1136:
1137: FND_MESSAGE.SET_NAME('GMD','GMD_CONC_UPDATE_OBJECT_FAILED');
1138: FND_MESSAGE.SET_TOKEN('REPLACE_TYPE',l_replace_type_desc);
1139: FND_MESSAGE.SET_TOKEN('REPLACE_VALUE',l_status);
1140: FND_MESSAGE.SET_TOKEN('OBJECT_NAME',p_object_name);
1141: FND_MESSAGE.SET_TOKEN('OBJECT_TYPE',l_object_type);
1142: FND_MESSAGE.SET_TOKEN('OBJECT_VERS',p_object_version);
1135: l_status := FND_MESSAGE.GET;
1136:
1137: FND_MESSAGE.SET_NAME('GMD','GMD_CONC_UPDATE_OBJECT_FAILED');
1138: FND_MESSAGE.SET_TOKEN('REPLACE_TYPE',l_replace_type_desc);
1139: FND_MESSAGE.SET_TOKEN('REPLACE_VALUE',l_status);
1140: FND_MESSAGE.SET_TOKEN('OBJECT_NAME',p_object_name);
1141: FND_MESSAGE.SET_TOKEN('OBJECT_TYPE',l_object_type);
1142: FND_MESSAGE.SET_TOKEN('OBJECT_VERS',p_object_version);
1143: FND_MESSAGE.SET_TOKEN('ERRMSG',SQLERRM);
1136:
1137: FND_MESSAGE.SET_NAME('GMD','GMD_CONC_UPDATE_OBJECT_FAILED');
1138: FND_MESSAGE.SET_TOKEN('REPLACE_TYPE',l_replace_type_desc);
1139: FND_MESSAGE.SET_TOKEN('REPLACE_VALUE',l_status);
1140: FND_MESSAGE.SET_TOKEN('OBJECT_NAME',p_object_name);
1141: FND_MESSAGE.SET_TOKEN('OBJECT_TYPE',l_object_type);
1142: FND_MESSAGE.SET_TOKEN('OBJECT_VERS',p_object_version);
1143: FND_MESSAGE.SET_TOKEN('ERRMSG',SQLERRM);
1144: IF p_called_from_form = 'F' THEN
1137: FND_MESSAGE.SET_NAME('GMD','GMD_CONC_UPDATE_OBJECT_FAILED');
1138: FND_MESSAGE.SET_TOKEN('REPLACE_TYPE',l_replace_type_desc);
1139: FND_MESSAGE.SET_TOKEN('REPLACE_VALUE',l_status);
1140: FND_MESSAGE.SET_TOKEN('OBJECT_NAME',p_object_name);
1141: FND_MESSAGE.SET_TOKEN('OBJECT_TYPE',l_object_type);
1142: FND_MESSAGE.SET_TOKEN('OBJECT_VERS',p_object_version);
1143: FND_MESSAGE.SET_TOKEN('ERRMSG',SQLERRM);
1144: IF p_called_from_form = 'F' THEN
1145: FND_FILE.PUT(FND_FILE.LOG,FND_MESSAGE.GET);
1138: FND_MESSAGE.SET_TOKEN('REPLACE_TYPE',l_replace_type_desc);
1139: FND_MESSAGE.SET_TOKEN('REPLACE_VALUE',l_status);
1140: FND_MESSAGE.SET_TOKEN('OBJECT_NAME',p_object_name);
1141: FND_MESSAGE.SET_TOKEN('OBJECT_TYPE',l_object_type);
1142: FND_MESSAGE.SET_TOKEN('OBJECT_VERS',p_object_version);
1143: FND_MESSAGE.SET_TOKEN('ERRMSG',SQLERRM);
1144: IF p_called_from_form = 'F' THEN
1145: FND_FILE.PUT(FND_FILE.LOG,FND_MESSAGE.GET);
1146: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
1139: FND_MESSAGE.SET_TOKEN('REPLACE_VALUE',l_status);
1140: FND_MESSAGE.SET_TOKEN('OBJECT_NAME',p_object_name);
1141: FND_MESSAGE.SET_TOKEN('OBJECT_TYPE',l_object_type);
1142: FND_MESSAGE.SET_TOKEN('OBJECT_VERS',p_object_version);
1143: FND_MESSAGE.SET_TOKEN('ERRMSG',SQLERRM);
1144: IF p_called_from_form = 'F' THEN
1145: FND_FILE.PUT(FND_FILE.LOG,FND_MESSAGE.GET);
1146: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
1147: ELSE
1141: FND_MESSAGE.SET_TOKEN('OBJECT_TYPE',l_object_type);
1142: FND_MESSAGE.SET_TOKEN('OBJECT_VERS',p_object_version);
1143: FND_MESSAGE.SET_TOKEN('ERRMSG',SQLERRM);
1144: IF p_called_from_form = 'F' THEN
1145: FND_FILE.PUT(FND_FILE.LOG,FND_MESSAGE.GET);
1146: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
1147: ELSE
1148: FND_MSG_PUB.add;
1149: END IF;
1196: BEGIN
1197: SAVEPOINT update_operation;
1198: X_return_status := FND_API.g_ret_sts_success;
1199:
1200: FND_MESSAGE.SET_NAME('GMD', 'GMD_OPERATION');
1201: l_object_type := FND_MESSAGE.GET;
1202:
1203: SELECT 'x'
1204: INTO l_text
1197: SAVEPOINT update_operation;
1198: X_return_status := FND_API.g_ret_sts_success;
1199:
1200: FND_MESSAGE.SET_NAME('GMD', 'GMD_OPERATION');
1201: l_object_type := FND_MESSAGE.GET;
1202:
1203: SELECT 'x'
1204: INTO l_text
1205: FROM gmd_operations_b
1231: FETCH Cur_get_status_desc INTO l_to_status_desc;
1232: CLOSE Cur_get_status_desc;
1233:
1234: IF p_pending_status IS NULL THEN
1235: FND_MESSAGE.SET_NAME('GMD', 'GMD_ERES_PEND_STAT_REQD');
1236: RAISE PENDING_STATUS_ERR;
1237: END IF;
1238: IF p_rework_status IS NULL THEN
1239: FND_MESSAGE.SET_NAME('GMD', 'GMD_ERES_REWK_STAT_REQD');
1235: FND_MESSAGE.SET_NAME('GMD', 'GMD_ERES_PEND_STAT_REQD');
1236: RAISE PENDING_STATUS_ERR;
1237: END IF;
1238: IF p_rework_status IS NULL THEN
1239: FND_MESSAGE.SET_NAME('GMD', 'GMD_ERES_REWK_STAT_REQD');
1240: RAISE REWORK_STATUS_ERR;
1241: END IF;
1242: END IF; /* IF (l_esig_reqd) */
1243:
1242: END IF; /* IF (l_esig_reqd) */
1243:
1244: END IF; /* IF (l_esig_reqd OR l_erec_reqd) */
1245:
1246: FND_MESSAGE.SET_NAME('GMD', 'GMD_ERES_OPER_USR_LBL');
1247: l_user_key_label := FND_MESSAGE.GET;
1248:
1249: GMD_EDR_STANDARD.raise_event (p_event_name => 'oracle.apps.gmd.operation.sts'
1250: ,p_event_key => p_oprn_id
1243:
1244: END IF; /* IF (l_esig_reqd OR l_erec_reqd) */
1245:
1246: FND_MESSAGE.SET_NAME('GMD', 'GMD_ERES_OPER_USR_LBL');
1247: l_user_key_label := FND_MESSAGE.GET;
1248:
1249: GMD_EDR_STANDARD.raise_event (p_event_name => 'oracle.apps.gmd.operation.sts'
1250: ,p_event_key => p_oprn_id
1251: ,p_parameter_name1 => 'DEFERRED'
1273: SET operation_status = p_pending_status
1274: WHERE oprn_id = p_oprn_id;
1275:
1276: IF p_called_from_form = 'F' THEN
1277: FND_MESSAGE.SET_NAME('GMD','GMD_ERES_PEND_STAT_UPD');
1278: FND_MESSAGE.SET_TOKEN('TO_STATUS', l_to_status_desc);
1279: FND_FILE.PUT(FND_FILE.LOG,
1280: FND_MESSAGE.GET||' ( '||l_object_type||' :'||p_object_name||' '||l_version_lbl
1281: ||' :'||p_object_version||')');
1274: WHERE oprn_id = p_oprn_id;
1275:
1276: IF p_called_from_form = 'F' THEN
1277: FND_MESSAGE.SET_NAME('GMD','GMD_ERES_PEND_STAT_UPD');
1278: FND_MESSAGE.SET_TOKEN('TO_STATUS', l_to_status_desc);
1279: FND_FILE.PUT(FND_FILE.LOG,
1280: FND_MESSAGE.GET||' ( '||l_object_type||' :'||p_object_name||' '||l_version_lbl
1281: ||' :'||p_object_version||')');
1282: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
1276: IF p_called_from_form = 'F' THEN
1277: FND_MESSAGE.SET_NAME('GMD','GMD_ERES_PEND_STAT_UPD');
1278: FND_MESSAGE.SET_TOKEN('TO_STATUS', l_to_status_desc);
1279: FND_FILE.PUT(FND_FILE.LOG,
1280: FND_MESSAGE.GET||' ( '||l_object_type||' :'||p_object_name||' '||l_version_lbl
1281: ||' :'||p_object_version||')');
1282: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
1283: END IF;
1284: END IF; /* IF l_esig_reqd */
1286: WHEN PENDING_STATUS_ERR OR
1287: REWORK_STATUS_ERR THEN
1288: ROLLBACK TO SAVEPOINT update_operation;
1289: X_return_status := FND_API.g_ret_sts_error;
1290: FND_MESSAGE.SET_TOKEN('FROM_STATUS', SUBSTR(l_from_status_desc,1, 80));
1291: FND_MESSAGE.SET_TOKEN('TO_STATUS', SUBSTR(l_to_status_desc, 1, 80));
1292: l_text := FND_MESSAGE.GET;
1293: FND_MESSAGE.SET_NAME('GMD','GMD_CONC_VERSION');
1294: l_version_lbl := FND_MESSAGE.GET;
1287: REWORK_STATUS_ERR THEN
1288: ROLLBACK TO SAVEPOINT update_operation;
1289: X_return_status := FND_API.g_ret_sts_error;
1290: FND_MESSAGE.SET_TOKEN('FROM_STATUS', SUBSTR(l_from_status_desc,1, 80));
1291: FND_MESSAGE.SET_TOKEN('TO_STATUS', SUBSTR(l_to_status_desc, 1, 80));
1292: l_text := FND_MESSAGE.GET;
1293: FND_MESSAGE.SET_NAME('GMD','GMD_CONC_VERSION');
1294: l_version_lbl := FND_MESSAGE.GET;
1295: l_text := l_text||' ( '||l_object_type||' :'||p_object_name||' '||l_version_lbl
1288: ROLLBACK TO SAVEPOINT update_operation;
1289: X_return_status := FND_API.g_ret_sts_error;
1290: FND_MESSAGE.SET_TOKEN('FROM_STATUS', SUBSTR(l_from_status_desc,1, 80));
1291: FND_MESSAGE.SET_TOKEN('TO_STATUS', SUBSTR(l_to_status_desc, 1, 80));
1292: l_text := FND_MESSAGE.GET;
1293: FND_MESSAGE.SET_NAME('GMD','GMD_CONC_VERSION');
1294: l_version_lbl := FND_MESSAGE.GET;
1295: l_text := l_text||' ( '||l_object_type||' :'||p_object_name||' '||l_version_lbl
1296: ||' :'||p_object_version||')';
1289: X_return_status := FND_API.g_ret_sts_error;
1290: FND_MESSAGE.SET_TOKEN('FROM_STATUS', SUBSTR(l_from_status_desc,1, 80));
1291: FND_MESSAGE.SET_TOKEN('TO_STATUS', SUBSTR(l_to_status_desc, 1, 80));
1292: l_text := FND_MESSAGE.GET;
1293: FND_MESSAGE.SET_NAME('GMD','GMD_CONC_VERSION');
1294: l_version_lbl := FND_MESSAGE.GET;
1295: l_text := l_text||' ( '||l_object_type||' :'||p_object_name||' '||l_version_lbl
1296: ||' :'||p_object_version||')';
1297: IF p_called_from_form = 'F' THEN
1290: FND_MESSAGE.SET_TOKEN('FROM_STATUS', SUBSTR(l_from_status_desc,1, 80));
1291: FND_MESSAGE.SET_TOKEN('TO_STATUS', SUBSTR(l_to_status_desc, 1, 80));
1292: l_text := FND_MESSAGE.GET;
1293: FND_MESSAGE.SET_NAME('GMD','GMD_CONC_VERSION');
1294: l_version_lbl := FND_MESSAGE.GET;
1295: l_text := l_text||' ( '||l_object_type||' :'||p_object_name||' '||l_version_lbl
1296: ||' :'||p_object_version||')';
1297: IF p_called_from_form = 'F' THEN
1298: FND_FILE.PUT(FND_FILE.LOG, l_text);
1297: IF p_called_from_form = 'F' THEN
1298: FND_FILE.PUT(FND_FILE.LOG, l_text);
1299: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
1300: ELSE
1301: FND_MESSAGE.SET_NAME ('FND', 'FND_GENERIC_MESSAGE');
1302: FND_MESSAGE.SET_TOKEN('MESSAGE', l_text);
1303: FND_MSG_PUB.add;
1304: END IF;
1305: WHEN app_exception.record_lock_exception THEN
1298: FND_FILE.PUT(FND_FILE.LOG, l_text);
1299: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
1300: ELSE
1301: FND_MESSAGE.SET_NAME ('FND', 'FND_GENERIC_MESSAGE');
1302: FND_MESSAGE.SET_TOKEN('MESSAGE', l_text);
1303: FND_MSG_PUB.add;
1304: END IF;
1305: WHEN app_exception.record_lock_exception THEN
1306: ROLLBACK TO SAVEPOINT update_operation;
1322: OPEN Cur_get_desc;
1323: FETCH Cur_get_desc INTO l_replace_type_desc;
1324: CLOSE Cur_get_desc;
1325:
1326: FND_MESSAGE.SET_NAME('GMD', 'GMD_STATUS');
1327: l_status := FND_MESSAGE.GET;
1328:
1329: FND_MESSAGE.SET_NAME('GMD','GMD_CONC_UPDATE_OBJECT_FAILED');
1330: FND_MESSAGE.SET_TOKEN('REPLACE_TYPE',l_replace_type_desc);
1323: FETCH Cur_get_desc INTO l_replace_type_desc;
1324: CLOSE Cur_get_desc;
1325:
1326: FND_MESSAGE.SET_NAME('GMD', 'GMD_STATUS');
1327: l_status := FND_MESSAGE.GET;
1328:
1329: FND_MESSAGE.SET_NAME('GMD','GMD_CONC_UPDATE_OBJECT_FAILED');
1330: FND_MESSAGE.SET_TOKEN('REPLACE_TYPE',l_replace_type_desc);
1331: FND_MESSAGE.SET_TOKEN('REPLACE_VALUE',l_status);
1325:
1326: FND_MESSAGE.SET_NAME('GMD', 'GMD_STATUS');
1327: l_status := FND_MESSAGE.GET;
1328:
1329: FND_MESSAGE.SET_NAME('GMD','GMD_CONC_UPDATE_OBJECT_FAILED');
1330: FND_MESSAGE.SET_TOKEN('REPLACE_TYPE',l_replace_type_desc);
1331: FND_MESSAGE.SET_TOKEN('REPLACE_VALUE',l_status);
1332: FND_MESSAGE.SET_TOKEN('OBJECT_NAME',p_object_name);
1333: FND_MESSAGE.SET_TOKEN('OBJECT_TYPE',l_object_type);
1326: FND_MESSAGE.SET_NAME('GMD', 'GMD_STATUS');
1327: l_status := FND_MESSAGE.GET;
1328:
1329: FND_MESSAGE.SET_NAME('GMD','GMD_CONC_UPDATE_OBJECT_FAILED');
1330: FND_MESSAGE.SET_TOKEN('REPLACE_TYPE',l_replace_type_desc);
1331: FND_MESSAGE.SET_TOKEN('REPLACE_VALUE',l_status);
1332: FND_MESSAGE.SET_TOKEN('OBJECT_NAME',p_object_name);
1333: FND_MESSAGE.SET_TOKEN('OBJECT_TYPE',l_object_type);
1334: FND_MESSAGE.SET_TOKEN('OBJECT_VERS',p_object_version);
1327: l_status := FND_MESSAGE.GET;
1328:
1329: FND_MESSAGE.SET_NAME('GMD','GMD_CONC_UPDATE_OBJECT_FAILED');
1330: FND_MESSAGE.SET_TOKEN('REPLACE_TYPE',l_replace_type_desc);
1331: FND_MESSAGE.SET_TOKEN('REPLACE_VALUE',l_status);
1332: FND_MESSAGE.SET_TOKEN('OBJECT_NAME',p_object_name);
1333: FND_MESSAGE.SET_TOKEN('OBJECT_TYPE',l_object_type);
1334: FND_MESSAGE.SET_TOKEN('OBJECT_VERS',p_object_version);
1335: FND_MESSAGE.SET_TOKEN('ERRMSG',SQLERRM);
1328:
1329: FND_MESSAGE.SET_NAME('GMD','GMD_CONC_UPDATE_OBJECT_FAILED');
1330: FND_MESSAGE.SET_TOKEN('REPLACE_TYPE',l_replace_type_desc);
1331: FND_MESSAGE.SET_TOKEN('REPLACE_VALUE',l_status);
1332: FND_MESSAGE.SET_TOKEN('OBJECT_NAME',p_object_name);
1333: FND_MESSAGE.SET_TOKEN('OBJECT_TYPE',l_object_type);
1334: FND_MESSAGE.SET_TOKEN('OBJECT_VERS',p_object_version);
1335: FND_MESSAGE.SET_TOKEN('ERRMSG',SQLERRM);
1336: IF p_called_from_form = 'F' THEN
1329: FND_MESSAGE.SET_NAME('GMD','GMD_CONC_UPDATE_OBJECT_FAILED');
1330: FND_MESSAGE.SET_TOKEN('REPLACE_TYPE',l_replace_type_desc);
1331: FND_MESSAGE.SET_TOKEN('REPLACE_VALUE',l_status);
1332: FND_MESSAGE.SET_TOKEN('OBJECT_NAME',p_object_name);
1333: FND_MESSAGE.SET_TOKEN('OBJECT_TYPE',l_object_type);
1334: FND_MESSAGE.SET_TOKEN('OBJECT_VERS',p_object_version);
1335: FND_MESSAGE.SET_TOKEN('ERRMSG',SQLERRM);
1336: IF p_called_from_form = 'F' THEN
1337: FND_FILE.PUT(FND_FILE.LOG,FND_MESSAGE.GET);
1330: FND_MESSAGE.SET_TOKEN('REPLACE_TYPE',l_replace_type_desc);
1331: FND_MESSAGE.SET_TOKEN('REPLACE_VALUE',l_status);
1332: FND_MESSAGE.SET_TOKEN('OBJECT_NAME',p_object_name);
1333: FND_MESSAGE.SET_TOKEN('OBJECT_TYPE',l_object_type);
1334: FND_MESSAGE.SET_TOKEN('OBJECT_VERS',p_object_version);
1335: FND_MESSAGE.SET_TOKEN('ERRMSG',SQLERRM);
1336: IF p_called_from_form = 'F' THEN
1337: FND_FILE.PUT(FND_FILE.LOG,FND_MESSAGE.GET);
1338: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
1331: FND_MESSAGE.SET_TOKEN('REPLACE_VALUE',l_status);
1332: FND_MESSAGE.SET_TOKEN('OBJECT_NAME',p_object_name);
1333: FND_MESSAGE.SET_TOKEN('OBJECT_TYPE',l_object_type);
1334: FND_MESSAGE.SET_TOKEN('OBJECT_VERS',p_object_version);
1335: FND_MESSAGE.SET_TOKEN('ERRMSG',SQLERRM);
1336: IF p_called_from_form = 'F' THEN
1337: FND_FILE.PUT(FND_FILE.LOG,FND_MESSAGE.GET);
1338: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
1339: ELSE
1333: FND_MESSAGE.SET_TOKEN('OBJECT_TYPE',l_object_type);
1334: FND_MESSAGE.SET_TOKEN('OBJECT_VERS',p_object_version);
1335: FND_MESSAGE.SET_TOKEN('ERRMSG',SQLERRM);
1336: IF p_called_from_form = 'F' THEN
1337: FND_FILE.PUT(FND_FILE.LOG,FND_MESSAGE.GET);
1338: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
1339: ELSE
1340: FND_MSG_PUB.add;
1341: END IF;
1386: BEGIN
1387: SAVEPOINT update_routing;
1388: X_return_status := FND_API.g_ret_sts_success;
1389:
1390: FND_MESSAGE.SET_NAME('GMD', 'GMD_ROUTING');
1391: l_object_type := FND_MESSAGE.GET;
1392:
1393: SELECT 'x'
1394: INTO l_text
1387: SAVEPOINT update_routing;
1388: X_return_status := FND_API.g_ret_sts_success;
1389:
1390: FND_MESSAGE.SET_NAME('GMD', 'GMD_ROUTING');
1391: l_object_type := FND_MESSAGE.GET;
1392:
1393: SELECT 'x'
1394: INTO l_text
1395: FROM gmd_routings_b
1421: FETCH Cur_get_status_desc INTO l_to_status_desc;
1422: CLOSE Cur_get_status_desc;
1423:
1424: IF p_pending_status IS NULL THEN
1425: FND_MESSAGE.SET_NAME('GMD', 'GMD_ERES_PEND_STAT_REQD');
1426: RAISE PENDING_STATUS_ERR;
1427: END IF;
1428: IF p_rework_status IS NULL THEN
1429: FND_MESSAGE.SET_NAME('GMD', 'GMD_ERES_REWK_STAT_REQD');
1425: FND_MESSAGE.SET_NAME('GMD', 'GMD_ERES_PEND_STAT_REQD');
1426: RAISE PENDING_STATUS_ERR;
1427: END IF;
1428: IF p_rework_status IS NULL THEN
1429: FND_MESSAGE.SET_NAME('GMD', 'GMD_ERES_REWK_STAT_REQD');
1430: RAISE REWORK_STATUS_ERR;
1431: END IF;
1432: END IF; /* IF (l_esig_reqd) */
1433:
1432: END IF; /* IF (l_esig_reqd) */
1433:
1434: END IF; /* IF (l_esig_reqd OR l_erec_reqd) */
1435:
1436: FND_MESSAGE.SET_NAME('GMD', 'GMD_ERES_ROUT_USR_LBL');
1437: l_user_key_label := FND_MESSAGE.GET;
1438: GMD_EDR_STANDARD.raise_event (p_event_name => 'oracle.apps.gmd.routing.sts'
1439: ,p_event_key => p_routing_id
1440: ,p_parameter_name1 => 'DEFERRED'
1433:
1434: END IF; /* IF (l_esig_reqd OR l_erec_reqd) */
1435:
1436: FND_MESSAGE.SET_NAME('GMD', 'GMD_ERES_ROUT_USR_LBL');
1437: l_user_key_label := FND_MESSAGE.GET;
1438: GMD_EDR_STANDARD.raise_event (p_event_name => 'oracle.apps.gmd.routing.sts'
1439: ,p_event_key => p_routing_id
1440: ,p_parameter_name1 => 'DEFERRED'
1441: ,p_parameter_value1 => 'Y'
1459: UPDATE gmd_routings_b
1460: SET routing_status = p_pending_status
1461: WHERE routing_id = p_routing_id;
1462: IF p_called_from_form = 'F' THEN
1463: FND_MESSAGE.SET_NAME('GMD','GMD_ERES_PEND_STAT_UPD');
1464: FND_MESSAGE.SET_TOKEN('TO_STATUS', l_to_status_desc);
1465: FND_FILE.PUT(FND_FILE.LOG,
1466: FND_MESSAGE.GET||' ( '||l_object_type||' :'||p_object_name||' '||l_version_lbl
1467: ||' :'||p_object_version||')');
1460: SET routing_status = p_pending_status
1461: WHERE routing_id = p_routing_id;
1462: IF p_called_from_form = 'F' THEN
1463: FND_MESSAGE.SET_NAME('GMD','GMD_ERES_PEND_STAT_UPD');
1464: FND_MESSAGE.SET_TOKEN('TO_STATUS', l_to_status_desc);
1465: FND_FILE.PUT(FND_FILE.LOG,
1466: FND_MESSAGE.GET||' ( '||l_object_type||' :'||p_object_name||' '||l_version_lbl
1467: ||' :'||p_object_version||')');
1468: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
1462: IF p_called_from_form = 'F' THEN
1463: FND_MESSAGE.SET_NAME('GMD','GMD_ERES_PEND_STAT_UPD');
1464: FND_MESSAGE.SET_TOKEN('TO_STATUS', l_to_status_desc);
1465: FND_FILE.PUT(FND_FILE.LOG,
1466: FND_MESSAGE.GET||' ( '||l_object_type||' :'||p_object_name||' '||l_version_lbl
1467: ||' :'||p_object_version||')');
1468: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
1469: END IF;
1470: END IF; /* IF l_esig_reqd */
1472: WHEN PENDING_STATUS_ERR OR
1473: REWORK_STATUS_ERR THEN
1474: ROLLBACK TO SAVEPOINT update_routing;
1475: X_return_status := FND_API.g_ret_sts_error;
1476: FND_MESSAGE.SET_TOKEN('FROM_STATUS', SUBSTR(l_from_status_desc,1, 80));
1477: FND_MESSAGE.SET_TOKEN('TO_STATUS', SUBSTR(l_to_status_desc, 1, 80));
1478: l_text := FND_MESSAGE.GET;
1479: FND_MESSAGE.SET_NAME('GMD','GMD_CONC_VERSION');
1480: l_version_lbl := FND_MESSAGE.GET;
1473: REWORK_STATUS_ERR THEN
1474: ROLLBACK TO SAVEPOINT update_routing;
1475: X_return_status := FND_API.g_ret_sts_error;
1476: FND_MESSAGE.SET_TOKEN('FROM_STATUS', SUBSTR(l_from_status_desc,1, 80));
1477: FND_MESSAGE.SET_TOKEN('TO_STATUS', SUBSTR(l_to_status_desc, 1, 80));
1478: l_text := FND_MESSAGE.GET;
1479: FND_MESSAGE.SET_NAME('GMD','GMD_CONC_VERSION');
1480: l_version_lbl := FND_MESSAGE.GET;
1481: l_text := l_text||' ( '||l_object_type||' :'||p_object_name||' '||l_version_lbl
1474: ROLLBACK TO SAVEPOINT update_routing;
1475: X_return_status := FND_API.g_ret_sts_error;
1476: FND_MESSAGE.SET_TOKEN('FROM_STATUS', SUBSTR(l_from_status_desc,1, 80));
1477: FND_MESSAGE.SET_TOKEN('TO_STATUS', SUBSTR(l_to_status_desc, 1, 80));
1478: l_text := FND_MESSAGE.GET;
1479: FND_MESSAGE.SET_NAME('GMD','GMD_CONC_VERSION');
1480: l_version_lbl := FND_MESSAGE.GET;
1481: l_text := l_text||' ( '||l_object_type||' :'||p_object_name||' '||l_version_lbl
1482: ||' :'||p_object_version||')';
1475: X_return_status := FND_API.g_ret_sts_error;
1476: FND_MESSAGE.SET_TOKEN('FROM_STATUS', SUBSTR(l_from_status_desc,1, 80));
1477: FND_MESSAGE.SET_TOKEN('TO_STATUS', SUBSTR(l_to_status_desc, 1, 80));
1478: l_text := FND_MESSAGE.GET;
1479: FND_MESSAGE.SET_NAME('GMD','GMD_CONC_VERSION');
1480: l_version_lbl := FND_MESSAGE.GET;
1481: l_text := l_text||' ( '||l_object_type||' :'||p_object_name||' '||l_version_lbl
1482: ||' :'||p_object_version||')';
1483: IF p_called_from_form = 'F' THEN
1476: FND_MESSAGE.SET_TOKEN('FROM_STATUS', SUBSTR(l_from_status_desc,1, 80));
1477: FND_MESSAGE.SET_TOKEN('TO_STATUS', SUBSTR(l_to_status_desc, 1, 80));
1478: l_text := FND_MESSAGE.GET;
1479: FND_MESSAGE.SET_NAME('GMD','GMD_CONC_VERSION');
1480: l_version_lbl := FND_MESSAGE.GET;
1481: l_text := l_text||' ( '||l_object_type||' :'||p_object_name||' '||l_version_lbl
1482: ||' :'||p_object_version||')';
1483: IF p_called_from_form = 'F' THEN
1484: FND_FILE.PUT(FND_FILE.LOG, l_text);
1483: IF p_called_from_form = 'F' THEN
1484: FND_FILE.PUT(FND_FILE.LOG, l_text);
1485: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
1486: ELSE
1487: FND_MESSAGE.SET_NAME ('FND', 'FND_GENERIC_MESSAGE');
1488: FND_MESSAGE.SET_TOKEN('MESSAGE', l_text);
1489: FND_MSG_PUB.add;
1490: END IF;
1491: WHEN app_exception.record_lock_exception THEN
1484: FND_FILE.PUT(FND_FILE.LOG, l_text);
1485: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
1486: ELSE
1487: FND_MESSAGE.SET_NAME ('FND', 'FND_GENERIC_MESSAGE');
1488: FND_MESSAGE.SET_TOKEN('MESSAGE', l_text);
1489: FND_MSG_PUB.add;
1490: END IF;
1491: WHEN app_exception.record_lock_exception THEN
1492: ROLLBACK TO SAVEPOINT update_routing;
1508: OPEN Cur_get_desc;
1509: FETCH Cur_get_desc INTO l_replace_type_desc;
1510: CLOSE Cur_get_desc;
1511:
1512: FND_MESSAGE.SET_NAME('GMD', 'GMD_STATUS');
1513: l_status := FND_MESSAGE.GET;
1514:
1515: FND_MESSAGE.SET_NAME('GMD','GMD_CONC_UPDATE_OBJECT_FAILED');
1516: FND_MESSAGE.SET_TOKEN('REPLACE_TYPE',l_replace_type_desc);
1509: FETCH Cur_get_desc INTO l_replace_type_desc;
1510: CLOSE Cur_get_desc;
1511:
1512: FND_MESSAGE.SET_NAME('GMD', 'GMD_STATUS');
1513: l_status := FND_MESSAGE.GET;
1514:
1515: FND_MESSAGE.SET_NAME('GMD','GMD_CONC_UPDATE_OBJECT_FAILED');
1516: FND_MESSAGE.SET_TOKEN('REPLACE_TYPE',l_replace_type_desc);
1517: FND_MESSAGE.SET_TOKEN('REPLACE_VALUE',l_status);
1511:
1512: FND_MESSAGE.SET_NAME('GMD', 'GMD_STATUS');
1513: l_status := FND_MESSAGE.GET;
1514:
1515: FND_MESSAGE.SET_NAME('GMD','GMD_CONC_UPDATE_OBJECT_FAILED');
1516: FND_MESSAGE.SET_TOKEN('REPLACE_TYPE',l_replace_type_desc);
1517: FND_MESSAGE.SET_TOKEN('REPLACE_VALUE',l_status);
1518: FND_MESSAGE.SET_TOKEN('OBJECT_NAME',p_object_name);
1519: FND_MESSAGE.SET_TOKEN('OBJECT_TYPE',l_object_type);
1512: FND_MESSAGE.SET_NAME('GMD', 'GMD_STATUS');
1513: l_status := FND_MESSAGE.GET;
1514:
1515: FND_MESSAGE.SET_NAME('GMD','GMD_CONC_UPDATE_OBJECT_FAILED');
1516: FND_MESSAGE.SET_TOKEN('REPLACE_TYPE',l_replace_type_desc);
1517: FND_MESSAGE.SET_TOKEN('REPLACE_VALUE',l_status);
1518: FND_MESSAGE.SET_TOKEN('OBJECT_NAME',p_object_name);
1519: FND_MESSAGE.SET_TOKEN('OBJECT_TYPE',l_object_type);
1520: FND_MESSAGE.SET_TOKEN('OBJECT_VERS',p_object_version);
1513: l_status := FND_MESSAGE.GET;
1514:
1515: FND_MESSAGE.SET_NAME('GMD','GMD_CONC_UPDATE_OBJECT_FAILED');
1516: FND_MESSAGE.SET_TOKEN('REPLACE_TYPE',l_replace_type_desc);
1517: FND_MESSAGE.SET_TOKEN('REPLACE_VALUE',l_status);
1518: FND_MESSAGE.SET_TOKEN('OBJECT_NAME',p_object_name);
1519: FND_MESSAGE.SET_TOKEN('OBJECT_TYPE',l_object_type);
1520: FND_MESSAGE.SET_TOKEN('OBJECT_VERS',p_object_version);
1521: FND_MESSAGE.SET_TOKEN('ERRMSG',SQLERRM);
1514:
1515: FND_MESSAGE.SET_NAME('GMD','GMD_CONC_UPDATE_OBJECT_FAILED');
1516: FND_MESSAGE.SET_TOKEN('REPLACE_TYPE',l_replace_type_desc);
1517: FND_MESSAGE.SET_TOKEN('REPLACE_VALUE',l_status);
1518: FND_MESSAGE.SET_TOKEN('OBJECT_NAME',p_object_name);
1519: FND_MESSAGE.SET_TOKEN('OBJECT_TYPE',l_object_type);
1520: FND_MESSAGE.SET_TOKEN('OBJECT_VERS',p_object_version);
1521: FND_MESSAGE.SET_TOKEN('ERRMSG',SQLERRM);
1522: IF p_called_from_form = 'F' THEN
1515: FND_MESSAGE.SET_NAME('GMD','GMD_CONC_UPDATE_OBJECT_FAILED');
1516: FND_MESSAGE.SET_TOKEN('REPLACE_TYPE',l_replace_type_desc);
1517: FND_MESSAGE.SET_TOKEN('REPLACE_VALUE',l_status);
1518: FND_MESSAGE.SET_TOKEN('OBJECT_NAME',p_object_name);
1519: FND_MESSAGE.SET_TOKEN('OBJECT_TYPE',l_object_type);
1520: FND_MESSAGE.SET_TOKEN('OBJECT_VERS',p_object_version);
1521: FND_MESSAGE.SET_TOKEN('ERRMSG',SQLERRM);
1522: IF p_called_from_form = 'F' THEN
1523: FND_FILE.PUT(FND_FILE.LOG,FND_MESSAGE.GET);
1516: FND_MESSAGE.SET_TOKEN('REPLACE_TYPE',l_replace_type_desc);
1517: FND_MESSAGE.SET_TOKEN('REPLACE_VALUE',l_status);
1518: FND_MESSAGE.SET_TOKEN('OBJECT_NAME',p_object_name);
1519: FND_MESSAGE.SET_TOKEN('OBJECT_TYPE',l_object_type);
1520: FND_MESSAGE.SET_TOKEN('OBJECT_VERS',p_object_version);
1521: FND_MESSAGE.SET_TOKEN('ERRMSG',SQLERRM);
1522: IF p_called_from_form = 'F' THEN
1523: FND_FILE.PUT(FND_FILE.LOG,FND_MESSAGE.GET);
1524: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
1517: FND_MESSAGE.SET_TOKEN('REPLACE_VALUE',l_status);
1518: FND_MESSAGE.SET_TOKEN('OBJECT_NAME',p_object_name);
1519: FND_MESSAGE.SET_TOKEN('OBJECT_TYPE',l_object_type);
1520: FND_MESSAGE.SET_TOKEN('OBJECT_VERS',p_object_version);
1521: FND_MESSAGE.SET_TOKEN('ERRMSG',SQLERRM);
1522: IF p_called_from_form = 'F' THEN
1523: FND_FILE.PUT(FND_FILE.LOG,FND_MESSAGE.GET);
1524: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
1525: ELSE
1519: FND_MESSAGE.SET_TOKEN('OBJECT_TYPE',l_object_type);
1520: FND_MESSAGE.SET_TOKEN('OBJECT_VERS',p_object_version);
1521: FND_MESSAGE.SET_TOKEN('ERRMSG',SQLERRM);
1522: IF p_called_from_form = 'F' THEN
1523: FND_FILE.PUT(FND_FILE.LOG,FND_MESSAGE.GET);
1524: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
1525: ELSE
1526: FND_MSG_PUB.add;
1527: END IF;
1581: BEGIN
1582: SAVEPOINT update_recipe;
1583: X_return_status := FND_API.g_ret_sts_success;
1584:
1585: FND_MESSAGE.SET_NAME('GMD', 'GMD_RECIPE');
1586: l_object_type := FND_MESSAGE.GET;
1587:
1588: /* Get the sttaus type */
1589: OPEN Cur_get_status_type (p_to_status);
1582: SAVEPOINT update_recipe;
1583: X_return_status := FND_API.g_ret_sts_success;
1584:
1585: FND_MESSAGE.SET_NAME('GMD', 'GMD_RECIPE');
1586: l_object_type := FND_MESSAGE.GET;
1587:
1588: /* Get the sttaus type */
1589: OPEN Cur_get_status_type (p_to_status);
1590: FETCH Cur_get_status_type INTO l_status_type, l_to_status_desc;
1687: FETCH Cur_get_status_desc INTO l_to_status_desc;
1688: CLOSE Cur_get_status_desc;
1689:
1690: IF p_pending_status IS NULL THEN
1691: FND_MESSAGE.SET_NAME('GMD', 'GMD_ERES_PEND_STAT_REQD');
1692: RAISE PENDING_STATUS_ERR;
1693: END IF;
1694: IF p_rework_status IS NULL THEN
1695: FND_MESSAGE.SET_NAME('GMD', 'GMD_ERES_REWK_STAT_REQD');
1691: FND_MESSAGE.SET_NAME('GMD', 'GMD_ERES_PEND_STAT_REQD');
1692: RAISE PENDING_STATUS_ERR;
1693: END IF;
1694: IF p_rework_status IS NULL THEN
1695: FND_MESSAGE.SET_NAME('GMD', 'GMD_ERES_REWK_STAT_REQD');
1696: RAISE REWORK_STATUS_ERR;
1697: END IF;
1698: END IF; /* IF (l_esig_reqd) */
1699:
1703: gmd_debug.put_line('In GMD_ERES_UTILS.update_receip_status : '||
1704: 'Raising Esig event ');
1705: END IF;
1706:
1707: FND_MESSAGE.SET_NAME('GMD', 'GMD_ERES_RECP_USR_LBL');
1708: l_user_key_label := FND_MESSAGE.GET;
1709: l_post_operation_api := 'GMD_ERES_POST_OPERATION.set_recipe_status('||
1710: p_recipe_id||', '||
1711: p_from_status||', '||
1704: 'Raising Esig event ');
1705: END IF;
1706:
1707: FND_MESSAGE.SET_NAME('GMD', 'GMD_ERES_RECP_USR_LBL');
1708: l_user_key_label := FND_MESSAGE.GET;
1709: l_post_operation_api := 'GMD_ERES_POST_OPERATION.set_recipe_status('||
1710: p_recipe_id||', '||
1711: p_from_status||', '||
1712: p_to_status;
1741: UPDATE gmd_recipes_b
1742: SET recipe_status = p_pending_status
1743: WHERE recipe_id = p_recipe_id;
1744: IF p_called_from_form = 'F' THEN
1745: FND_MESSAGE.SET_NAME('GMD','GMD_ERES_PEND_STAT_UPD');
1746: FND_MESSAGE.SET_TOKEN('TO_STATUS', l_to_status_desc);
1747: FND_FILE.PUT(FND_FILE.LOG,
1748: FND_MESSAGE.GET||' ( '||l_object_type||' :'||p_object_name||' '||l_version_lbl
1749: ||' :'||p_object_version||')');
1742: SET recipe_status = p_pending_status
1743: WHERE recipe_id = p_recipe_id;
1744: IF p_called_from_form = 'F' THEN
1745: FND_MESSAGE.SET_NAME('GMD','GMD_ERES_PEND_STAT_UPD');
1746: FND_MESSAGE.SET_TOKEN('TO_STATUS', l_to_status_desc);
1747: FND_FILE.PUT(FND_FILE.LOG,
1748: FND_MESSAGE.GET||' ( '||l_object_type||' :'||p_object_name||' '||l_version_lbl
1749: ||' :'||p_object_version||')');
1750: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
1744: IF p_called_from_form = 'F' THEN
1745: FND_MESSAGE.SET_NAME('GMD','GMD_ERES_PEND_STAT_UPD');
1746: FND_MESSAGE.SET_TOKEN('TO_STATUS', l_to_status_desc);
1747: FND_FILE.PUT(FND_FILE.LOG,
1748: FND_MESSAGE.GET||' ( '||l_object_type||' :'||p_object_name||' '||l_version_lbl
1749: ||' :'||p_object_version||')');
1750: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
1751: END IF;
1752: END IF; /* IF l_esig_reqd */
1754: WHEN PENDING_STATUS_ERR OR
1755: REWORK_STATUS_ERR THEN
1756: ROLLBACK TO SAVEPOINT update_recipe;
1757: X_return_status := FND_API.g_ret_sts_error;
1758: FND_MESSAGE.SET_TOKEN('FROM_STATUS', SUBSTR(l_from_status_desc,1, 80));
1759: FND_MESSAGE.SET_TOKEN('TO_STATUS', SUBSTR(l_to_status_desc, 1, 80));
1760: l_text := FND_MESSAGE.GET;
1761: FND_MESSAGE.SET_NAME('GMD','GMD_CONC_VERSION');
1762: l_version_lbl := FND_MESSAGE.GET;
1755: REWORK_STATUS_ERR THEN
1756: ROLLBACK TO SAVEPOINT update_recipe;
1757: X_return_status := FND_API.g_ret_sts_error;
1758: FND_MESSAGE.SET_TOKEN('FROM_STATUS', SUBSTR(l_from_status_desc,1, 80));
1759: FND_MESSAGE.SET_TOKEN('TO_STATUS', SUBSTR(l_to_status_desc, 1, 80));
1760: l_text := FND_MESSAGE.GET;
1761: FND_MESSAGE.SET_NAME('GMD','GMD_CONC_VERSION');
1762: l_version_lbl := FND_MESSAGE.GET;
1763: l_text := l_text||' ( '||l_object_type||' :'||p_object_name||' '||l_version_lbl
1756: ROLLBACK TO SAVEPOINT update_recipe;
1757: X_return_status := FND_API.g_ret_sts_error;
1758: FND_MESSAGE.SET_TOKEN('FROM_STATUS', SUBSTR(l_from_status_desc,1, 80));
1759: FND_MESSAGE.SET_TOKEN('TO_STATUS', SUBSTR(l_to_status_desc, 1, 80));
1760: l_text := FND_MESSAGE.GET;
1761: FND_MESSAGE.SET_NAME('GMD','GMD_CONC_VERSION');
1762: l_version_lbl := FND_MESSAGE.GET;
1763: l_text := l_text||' ( '||l_object_type||' :'||p_object_name||' '||l_version_lbl
1764: ||' :'||p_object_version||')';
1757: X_return_status := FND_API.g_ret_sts_error;
1758: FND_MESSAGE.SET_TOKEN('FROM_STATUS', SUBSTR(l_from_status_desc,1, 80));
1759: FND_MESSAGE.SET_TOKEN('TO_STATUS', SUBSTR(l_to_status_desc, 1, 80));
1760: l_text := FND_MESSAGE.GET;
1761: FND_MESSAGE.SET_NAME('GMD','GMD_CONC_VERSION');
1762: l_version_lbl := FND_MESSAGE.GET;
1763: l_text := l_text||' ( '||l_object_type||' :'||p_object_name||' '||l_version_lbl
1764: ||' :'||p_object_version||')';
1765: IF p_called_from_form = 'F' THEN
1758: FND_MESSAGE.SET_TOKEN('FROM_STATUS', SUBSTR(l_from_status_desc,1, 80));
1759: FND_MESSAGE.SET_TOKEN('TO_STATUS', SUBSTR(l_to_status_desc, 1, 80));
1760: l_text := FND_MESSAGE.GET;
1761: FND_MESSAGE.SET_NAME('GMD','GMD_CONC_VERSION');
1762: l_version_lbl := FND_MESSAGE.GET;
1763: l_text := l_text||' ( '||l_object_type||' :'||p_object_name||' '||l_version_lbl
1764: ||' :'||p_object_version||')';
1765: IF p_called_from_form = 'F' THEN
1766: FND_FILE.PUT(FND_FILE.LOG, l_text);
1765: IF p_called_from_form = 'F' THEN
1766: FND_FILE.PUT(FND_FILE.LOG, l_text);
1767: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
1768: ELSE
1769: FND_MESSAGE.SET_NAME ('FND', 'FND_GENERIC_MESSAGE');
1770: FND_MESSAGE.SET_TOKEN('MESSAGE', l_text);
1771: FND_MSG_PUB.add;
1772: END IF;
1773: WHEN VR_ERES_REQ THEN
1766: FND_FILE.PUT(FND_FILE.LOG, l_text);
1767: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
1768: ELSE
1769: FND_MESSAGE.SET_NAME ('FND', 'FND_GENERIC_MESSAGE');
1770: FND_MESSAGE.SET_TOKEN('MESSAGE', l_text);
1771: FND_MSG_PUB.add;
1772: END IF;
1773: WHEN VR_ERES_REQ THEN
1774: ROLLBACK TO SAVEPOINT update_recipe;
1772: END IF;
1773: WHEN VR_ERES_REQ THEN
1774: ROLLBACK TO SAVEPOINT update_recipe;
1775: X_return_status := FND_API.g_ret_sts_error;
1776: FND_MESSAGE.SET_NAME('GMD', 'GMD_VLDT_APPR_REQD');
1777: FND_MESSAGE.SET_TOKEN('STATUS', l_to_status_desc);
1778: l_text := FND_MESSAGE.GET;
1779:
1780: FND_MESSAGE.SET_NAME('GMD','GMD_CONC_UPDATE_OBJECT_FAILED');
1773: WHEN VR_ERES_REQ THEN
1774: ROLLBACK TO SAVEPOINT update_recipe;
1775: X_return_status := FND_API.g_ret_sts_error;
1776: FND_MESSAGE.SET_NAME('GMD', 'GMD_VLDT_APPR_REQD');
1777: FND_MESSAGE.SET_TOKEN('STATUS', l_to_status_desc);
1778: l_text := FND_MESSAGE.GET;
1779:
1780: FND_MESSAGE.SET_NAME('GMD','GMD_CONC_UPDATE_OBJECT_FAILED');
1781: FND_MESSAGE.SET_TOKEN('REPLACE_TYPE',l_replace_type_desc);
1774: ROLLBACK TO SAVEPOINT update_recipe;
1775: X_return_status := FND_API.g_ret_sts_error;
1776: FND_MESSAGE.SET_NAME('GMD', 'GMD_VLDT_APPR_REQD');
1777: FND_MESSAGE.SET_TOKEN('STATUS', l_to_status_desc);
1778: l_text := FND_MESSAGE.GET;
1779:
1780: FND_MESSAGE.SET_NAME('GMD','GMD_CONC_UPDATE_OBJECT_FAILED');
1781: FND_MESSAGE.SET_TOKEN('REPLACE_TYPE',l_replace_type_desc);
1782: FND_MESSAGE.SET_TOKEN('REPLACE_VALUE',l_status);
1776: FND_MESSAGE.SET_NAME('GMD', 'GMD_VLDT_APPR_REQD');
1777: FND_MESSAGE.SET_TOKEN('STATUS', l_to_status_desc);
1778: l_text := FND_MESSAGE.GET;
1779:
1780: FND_MESSAGE.SET_NAME('GMD','GMD_CONC_UPDATE_OBJECT_FAILED');
1781: FND_MESSAGE.SET_TOKEN('REPLACE_TYPE',l_replace_type_desc);
1782: FND_MESSAGE.SET_TOKEN('REPLACE_VALUE',l_status);
1783: FND_MESSAGE.SET_TOKEN('OBJECT_NAME',p_object_name);
1784: FND_MESSAGE.SET_TOKEN('OBJECT_TYPE',l_object_type);
1777: FND_MESSAGE.SET_TOKEN('STATUS', l_to_status_desc);
1778: l_text := FND_MESSAGE.GET;
1779:
1780: FND_MESSAGE.SET_NAME('GMD','GMD_CONC_UPDATE_OBJECT_FAILED');
1781: FND_MESSAGE.SET_TOKEN('REPLACE_TYPE',l_replace_type_desc);
1782: FND_MESSAGE.SET_TOKEN('REPLACE_VALUE',l_status);
1783: FND_MESSAGE.SET_TOKEN('OBJECT_NAME',p_object_name);
1784: FND_MESSAGE.SET_TOKEN('OBJECT_TYPE',l_object_type);
1785: FND_MESSAGE.SET_TOKEN('OBJECT_VERS',p_object_version);
1778: l_text := FND_MESSAGE.GET;
1779:
1780: FND_MESSAGE.SET_NAME('GMD','GMD_CONC_UPDATE_OBJECT_FAILED');
1781: FND_MESSAGE.SET_TOKEN('REPLACE_TYPE',l_replace_type_desc);
1782: FND_MESSAGE.SET_TOKEN('REPLACE_VALUE',l_status);
1783: FND_MESSAGE.SET_TOKEN('OBJECT_NAME',p_object_name);
1784: FND_MESSAGE.SET_TOKEN('OBJECT_TYPE',l_object_type);
1785: FND_MESSAGE.SET_TOKEN('OBJECT_VERS',p_object_version);
1786: FND_MESSAGE.SET_TOKEN('ERRMSG',l_text);
1779:
1780: FND_MESSAGE.SET_NAME('GMD','GMD_CONC_UPDATE_OBJECT_FAILED');
1781: FND_MESSAGE.SET_TOKEN('REPLACE_TYPE',l_replace_type_desc);
1782: FND_MESSAGE.SET_TOKEN('REPLACE_VALUE',l_status);
1783: FND_MESSAGE.SET_TOKEN('OBJECT_NAME',p_object_name);
1784: FND_MESSAGE.SET_TOKEN('OBJECT_TYPE',l_object_type);
1785: FND_MESSAGE.SET_TOKEN('OBJECT_VERS',p_object_version);
1786: FND_MESSAGE.SET_TOKEN('ERRMSG',l_text);
1787: IF p_called_from_form = 'F' THEN
1780: FND_MESSAGE.SET_NAME('GMD','GMD_CONC_UPDATE_OBJECT_FAILED');
1781: FND_MESSAGE.SET_TOKEN('REPLACE_TYPE',l_replace_type_desc);
1782: FND_MESSAGE.SET_TOKEN('REPLACE_VALUE',l_status);
1783: FND_MESSAGE.SET_TOKEN('OBJECT_NAME',p_object_name);
1784: FND_MESSAGE.SET_TOKEN('OBJECT_TYPE',l_object_type);
1785: FND_MESSAGE.SET_TOKEN('OBJECT_VERS',p_object_version);
1786: FND_MESSAGE.SET_TOKEN('ERRMSG',l_text);
1787: IF p_called_from_form = 'F' THEN
1788: FND_FILE.PUT(FND_FILE.LOG,FND_MESSAGE.GET);
1781: FND_MESSAGE.SET_TOKEN('REPLACE_TYPE',l_replace_type_desc);
1782: FND_MESSAGE.SET_TOKEN('REPLACE_VALUE',l_status);
1783: FND_MESSAGE.SET_TOKEN('OBJECT_NAME',p_object_name);
1784: FND_MESSAGE.SET_TOKEN('OBJECT_TYPE',l_object_type);
1785: FND_MESSAGE.SET_TOKEN('OBJECT_VERS',p_object_version);
1786: FND_MESSAGE.SET_TOKEN('ERRMSG',l_text);
1787: IF p_called_from_form = 'F' THEN
1788: FND_FILE.PUT(FND_FILE.LOG,FND_MESSAGE.GET);
1789: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
1782: FND_MESSAGE.SET_TOKEN('REPLACE_VALUE',l_status);
1783: FND_MESSAGE.SET_TOKEN('OBJECT_NAME',p_object_name);
1784: FND_MESSAGE.SET_TOKEN('OBJECT_TYPE',l_object_type);
1785: FND_MESSAGE.SET_TOKEN('OBJECT_VERS',p_object_version);
1786: FND_MESSAGE.SET_TOKEN('ERRMSG',l_text);
1787: IF p_called_from_form = 'F' THEN
1788: FND_FILE.PUT(FND_FILE.LOG,FND_MESSAGE.GET);
1789: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
1790: ELSE
1784: FND_MESSAGE.SET_TOKEN('OBJECT_TYPE',l_object_type);
1785: FND_MESSAGE.SET_TOKEN('OBJECT_VERS',p_object_version);
1786: FND_MESSAGE.SET_TOKEN('ERRMSG',l_text);
1787: IF p_called_from_form = 'F' THEN
1788: FND_FILE.PUT(FND_FILE.LOG,FND_MESSAGE.GET);
1789: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
1790: ELSE
1791: FND_MSG_PUB.add;
1792: END IF;
1810: OPEN Cur_get_desc;
1811: FETCH Cur_get_desc INTO l_replace_type_desc;
1812: CLOSE Cur_get_desc;
1813:
1814: FND_MESSAGE.SET_NAME('GMD', 'GMD_STATUS');
1815: l_status := FND_MESSAGE.GET;
1816:
1817: FND_MESSAGE.SET_NAME('GMD','GMD_CONC_UPDATE_OBJECT_FAILED');
1818: FND_MESSAGE.SET_TOKEN('REPLACE_TYPE',l_replace_type_desc);
1811: FETCH Cur_get_desc INTO l_replace_type_desc;
1812: CLOSE Cur_get_desc;
1813:
1814: FND_MESSAGE.SET_NAME('GMD', 'GMD_STATUS');
1815: l_status := FND_MESSAGE.GET;
1816:
1817: FND_MESSAGE.SET_NAME('GMD','GMD_CONC_UPDATE_OBJECT_FAILED');
1818: FND_MESSAGE.SET_TOKEN('REPLACE_TYPE',l_replace_type_desc);
1819: FND_MESSAGE.SET_TOKEN('REPLACE_VALUE',l_status);
1813:
1814: FND_MESSAGE.SET_NAME('GMD', 'GMD_STATUS');
1815: l_status := FND_MESSAGE.GET;
1816:
1817: FND_MESSAGE.SET_NAME('GMD','GMD_CONC_UPDATE_OBJECT_FAILED');
1818: FND_MESSAGE.SET_TOKEN('REPLACE_TYPE',l_replace_type_desc);
1819: FND_MESSAGE.SET_TOKEN('REPLACE_VALUE',l_status);
1820: FND_MESSAGE.SET_TOKEN('OBJECT_NAME',p_object_name);
1821: FND_MESSAGE.SET_TOKEN('OBJECT_TYPE',l_object_type);
1814: FND_MESSAGE.SET_NAME('GMD', 'GMD_STATUS');
1815: l_status := FND_MESSAGE.GET;
1816:
1817: FND_MESSAGE.SET_NAME('GMD','GMD_CONC_UPDATE_OBJECT_FAILED');
1818: FND_MESSAGE.SET_TOKEN('REPLACE_TYPE',l_replace_type_desc);
1819: FND_MESSAGE.SET_TOKEN('REPLACE_VALUE',l_status);
1820: FND_MESSAGE.SET_TOKEN('OBJECT_NAME',p_object_name);
1821: FND_MESSAGE.SET_TOKEN('OBJECT_TYPE',l_object_type);
1822: FND_MESSAGE.SET_TOKEN('OBJECT_VERS',p_object_version);
1815: l_status := FND_MESSAGE.GET;
1816:
1817: FND_MESSAGE.SET_NAME('GMD','GMD_CONC_UPDATE_OBJECT_FAILED');
1818: FND_MESSAGE.SET_TOKEN('REPLACE_TYPE',l_replace_type_desc);
1819: FND_MESSAGE.SET_TOKEN('REPLACE_VALUE',l_status);
1820: FND_MESSAGE.SET_TOKEN('OBJECT_NAME',p_object_name);
1821: FND_MESSAGE.SET_TOKEN('OBJECT_TYPE',l_object_type);
1822: FND_MESSAGE.SET_TOKEN('OBJECT_VERS',p_object_version);
1823: FND_MESSAGE.SET_TOKEN('ERRMSG',SQLERRM);
1816:
1817: FND_MESSAGE.SET_NAME('GMD','GMD_CONC_UPDATE_OBJECT_FAILED');
1818: FND_MESSAGE.SET_TOKEN('REPLACE_TYPE',l_replace_type_desc);
1819: FND_MESSAGE.SET_TOKEN('REPLACE_VALUE',l_status);
1820: FND_MESSAGE.SET_TOKEN('OBJECT_NAME',p_object_name);
1821: FND_MESSAGE.SET_TOKEN('OBJECT_TYPE',l_object_type);
1822: FND_MESSAGE.SET_TOKEN('OBJECT_VERS',p_object_version);
1823: FND_MESSAGE.SET_TOKEN('ERRMSG',SQLERRM);
1824: IF p_called_from_form = 'F' THEN
1817: FND_MESSAGE.SET_NAME('GMD','GMD_CONC_UPDATE_OBJECT_FAILED');
1818: FND_MESSAGE.SET_TOKEN('REPLACE_TYPE',l_replace_type_desc);
1819: FND_MESSAGE.SET_TOKEN('REPLACE_VALUE',l_status);
1820: FND_MESSAGE.SET_TOKEN('OBJECT_NAME',p_object_name);
1821: FND_MESSAGE.SET_TOKEN('OBJECT_TYPE',l_object_type);
1822: FND_MESSAGE.SET_TOKEN('OBJECT_VERS',p_object_version);
1823: FND_MESSAGE.SET_TOKEN('ERRMSG',SQLERRM);
1824: IF p_called_from_form = 'F' THEN
1825: FND_FILE.PUT(FND_FILE.LOG,FND_MESSAGE.GET);
1818: FND_MESSAGE.SET_TOKEN('REPLACE_TYPE',l_replace_type_desc);
1819: FND_MESSAGE.SET_TOKEN('REPLACE_VALUE',l_status);
1820: FND_MESSAGE.SET_TOKEN('OBJECT_NAME',p_object_name);
1821: FND_MESSAGE.SET_TOKEN('OBJECT_TYPE',l_object_type);
1822: FND_MESSAGE.SET_TOKEN('OBJECT_VERS',p_object_version);
1823: FND_MESSAGE.SET_TOKEN('ERRMSG',SQLERRM);
1824: IF p_called_from_form = 'F' THEN
1825: FND_FILE.PUT(FND_FILE.LOG,FND_MESSAGE.GET);
1826: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
1819: FND_MESSAGE.SET_TOKEN('REPLACE_VALUE',l_status);
1820: FND_MESSAGE.SET_TOKEN('OBJECT_NAME',p_object_name);
1821: FND_MESSAGE.SET_TOKEN('OBJECT_TYPE',l_object_type);
1822: FND_MESSAGE.SET_TOKEN('OBJECT_VERS',p_object_version);
1823: FND_MESSAGE.SET_TOKEN('ERRMSG',SQLERRM);
1824: IF p_called_from_form = 'F' THEN
1825: FND_FILE.PUT(FND_FILE.LOG,FND_MESSAGE.GET);
1826: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
1827: ELSE
1821: FND_MESSAGE.SET_TOKEN('OBJECT_TYPE',l_object_type);
1822: FND_MESSAGE.SET_TOKEN('OBJECT_VERS',p_object_version);
1823: FND_MESSAGE.SET_TOKEN('ERRMSG',SQLERRM);
1824: IF p_called_from_form = 'F' THEN
1825: FND_FILE.PUT(FND_FILE.LOG,FND_MESSAGE.GET);
1826: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
1827: ELSE
1828: FND_MSG_PUB.add;
1829: END IF;
1889: BEGIN
1890: SAVEPOINT update_validity;
1891: X_return_status := FND_API.g_ret_sts_success;
1892:
1893: FND_MESSAGE.SET_NAME('GMD', 'GMD_VALIDITY');
1894: l_object_type := FND_MESSAGE.GET;
1895:
1896: SELECT 'x'
1897: INTO l_text
1890: SAVEPOINT update_validity;
1891: X_return_status := FND_API.g_ret_sts_success;
1892:
1893: FND_MESSAGE.SET_NAME('GMD', 'GMD_VALIDITY');
1894: l_object_type := FND_MESSAGE.GET;
1895:
1896: SELECT 'x'
1897: INTO l_text
1898: FROM gmd_recipe_validity_rules
1924: FETCH Cur_get_status_desc INTO l_to_status_desc;
1925: CLOSE Cur_get_status_desc;
1926:
1927: IF p_pending_status IS NULL THEN
1928: FND_MESSAGE.SET_NAME('GMD', 'GMD_ERES_PEND_STAT_REQD');
1929: RAISE PENDING_STATUS_ERR;
1930: END IF;
1931: IF p_rework_status IS NULL THEN
1932: FND_MESSAGE.SET_NAME('GMD', 'GMD_ERES_REWK_STAT_REQD');
1928: FND_MESSAGE.SET_NAME('GMD', 'GMD_ERES_PEND_STAT_REQD');
1929: RAISE PENDING_STATUS_ERR;
1930: END IF;
1931: IF p_rework_status IS NULL THEN
1932: FND_MESSAGE.SET_NAME('GMD', 'GMD_ERES_REWK_STAT_REQD');
1933: RAISE REWORK_STATUS_ERR;
1934: END IF;
1935: END IF; /* IF (l_esig_reqd) */
1936: END IF; /* IF (l_esig_reqd OR l_erec_reqd) */
1952: l_user_key_value := l_recipe_no||', '||l_recipe_version||', '||l_recipe_use_meaning;
1953: END IF;
1954: CLOSE Cur_get_recipe_info;
1955:
1956: FND_MESSAGE.SET_NAME('GMD', 'GMD_ERES_VLD_USR_LBL');
1957: l_user_key_label := FND_MESSAGE.GET;
1958: GMD_EDR_STANDARD.raise_event (p_event_name => 'oracle.apps.gmd.validity.sts'
1959: ,p_event_key => P_validity_rule_id
1960: ,p_parameter_name1 => 'DEFERRED'
1953: END IF;
1954: CLOSE Cur_get_recipe_info;
1955:
1956: FND_MESSAGE.SET_NAME('GMD', 'GMD_ERES_VLD_USR_LBL');
1957: l_user_key_label := FND_MESSAGE.GET;
1958: GMD_EDR_STANDARD.raise_event (p_event_name => 'oracle.apps.gmd.validity.sts'
1959: ,p_event_key => P_validity_rule_id
1960: ,p_parameter_name1 => 'DEFERRED'
1961: ,p_parameter_value1 => 'Y'
1980: SET validity_rule_status = p_pending_status
1981: WHERE recipe_validity_rule_id = P_validity_rule_id;
1982:
1983: IF p_called_from_form = 'F' THEN
1984: FND_MESSAGE.SET_NAME('GMD','GMD_ERES_PEND_STAT_UPD');
1985: FND_MESSAGE.SET_TOKEN('TO_STATUS', l_to_status_desc);
1986: FND_FILE.PUT(FND_FILE.LOG, FND_MESSAGE.GET);
1987: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
1988: END IF;
1981: WHERE recipe_validity_rule_id = P_validity_rule_id;
1982:
1983: IF p_called_from_form = 'F' THEN
1984: FND_MESSAGE.SET_NAME('GMD','GMD_ERES_PEND_STAT_UPD');
1985: FND_MESSAGE.SET_TOKEN('TO_STATUS', l_to_status_desc);
1986: FND_FILE.PUT(FND_FILE.LOG, FND_MESSAGE.GET);
1987: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
1988: END IF;
1989: END IF; /* IF l_esig_reqd */
1982:
1983: IF p_called_from_form = 'F' THEN
1984: FND_MESSAGE.SET_NAME('GMD','GMD_ERES_PEND_STAT_UPD');
1985: FND_MESSAGE.SET_TOKEN('TO_STATUS', l_to_status_desc);
1986: FND_FILE.PUT(FND_FILE.LOG, FND_MESSAGE.GET);
1987: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
1988: END IF;
1989: END IF; /* IF l_esig_reqd */
1990: EXCEPTION
1991: WHEN PENDING_STATUS_ERR OR
1992: REWORK_STATUS_ERR THEN
1993: ROLLBACK TO SAVEPOINT update_validity;
1994: X_return_status := FND_API.g_ret_sts_error;
1995: FND_MESSAGE.SET_TOKEN('FROM_STATUS', SUBSTR(l_from_status_desc,1, 80));
1996: FND_MESSAGE.SET_TOKEN('TO_STATUS', SUBSTR(l_to_status_desc, 1, 80));
1997:
1998: l_text := FND_MESSAGE.GET;
1999: FND_MESSAGE.SET_NAME ('FND', 'FND_GENERIC_MESSAGE');
1992: REWORK_STATUS_ERR THEN
1993: ROLLBACK TO SAVEPOINT update_validity;
1994: X_return_status := FND_API.g_ret_sts_error;
1995: FND_MESSAGE.SET_TOKEN('FROM_STATUS', SUBSTR(l_from_status_desc,1, 80));
1996: FND_MESSAGE.SET_TOKEN('TO_STATUS', SUBSTR(l_to_status_desc, 1, 80));
1997:
1998: l_text := FND_MESSAGE.GET;
1999: FND_MESSAGE.SET_NAME ('FND', 'FND_GENERIC_MESSAGE');
2000: FND_MESSAGE.SET_TOKEN('MESSAGE', l_text);
1994: X_return_status := FND_API.g_ret_sts_error;
1995: FND_MESSAGE.SET_TOKEN('FROM_STATUS', SUBSTR(l_from_status_desc,1, 80));
1996: FND_MESSAGE.SET_TOKEN('TO_STATUS', SUBSTR(l_to_status_desc, 1, 80));
1997:
1998: l_text := FND_MESSAGE.GET;
1999: FND_MESSAGE.SET_NAME ('FND', 'FND_GENERIC_MESSAGE');
2000: FND_MESSAGE.SET_TOKEN('MESSAGE', l_text);
2001: FND_MSG_PUB.add;
2002: WHEN RECIPE_IS_INVALID THEN
1995: FND_MESSAGE.SET_TOKEN('FROM_STATUS', SUBSTR(l_from_status_desc,1, 80));
1996: FND_MESSAGE.SET_TOKEN('TO_STATUS', SUBSTR(l_to_status_desc, 1, 80));
1997:
1998: l_text := FND_MESSAGE.GET;
1999: FND_MESSAGE.SET_NAME ('FND', 'FND_GENERIC_MESSAGE');
2000: FND_MESSAGE.SET_TOKEN('MESSAGE', l_text);
2001: FND_MSG_PUB.add;
2002: WHEN RECIPE_IS_INVALID THEN
2003: ROLLBACK TO SAVEPOINT update_validity;
1996: FND_MESSAGE.SET_TOKEN('TO_STATUS', SUBSTR(l_to_status_desc, 1, 80));
1997:
1998: l_text := FND_MESSAGE.GET;
1999: FND_MESSAGE.SET_NAME ('FND', 'FND_GENERIC_MESSAGE');
2000: FND_MESSAGE.SET_TOKEN('MESSAGE', l_text);
2001: FND_MSG_PUB.add;
2002: WHEN RECIPE_IS_INVALID THEN
2003: ROLLBACK TO SAVEPOINT update_validity;
2004: X_return_status := FND_API.g_ret_sts_error;
2001: FND_MSG_PUB.add;
2002: WHEN RECIPE_IS_INVALID THEN
2003: ROLLBACK TO SAVEPOINT update_validity;
2004: X_return_status := FND_API.g_ret_sts_error;
2005: FND_MESSAGE.SET_NAME ('GMD', 'GMD_RECIPE_INFO');
2006: FND_MSG_PUB.ADD;
2007: WHEN app_exception.record_lock_exception THEN
2008: ROLLBACK TO SAVEPOINT update_validity;
2009: X_return_status := FND_API.g_ret_sts_error;
2102: FETCH Cur_get_status_desc INTO l_to_status_desc;
2103: CLOSE Cur_get_status_desc;
2104:
2105: IF p_pending_status IS NULL THEN
2106: FND_MESSAGE.SET_NAME('GMD', 'GMD_ERES_PEND_STAT_REQD');
2107: RAISE PENDING_STATUS_ERR;
2108: END IF;
2109: IF p_rework_status IS NULL THEN
2110: FND_MESSAGE.SET_NAME('GMD', 'GMD_ERES_REWK_STAT_REQD');
2106: FND_MESSAGE.SET_NAME('GMD', 'GMD_ERES_PEND_STAT_REQD');
2107: RAISE PENDING_STATUS_ERR;
2108: END IF;
2109: IF p_rework_status IS NULL THEN
2110: FND_MESSAGE.SET_NAME('GMD', 'GMD_ERES_REWK_STAT_REQD');
2111: RAISE REWORK_STATUS_ERR;
2112: END IF;
2113: END IF; /* IF (l_esig_reqd) */
2114: END IF; /* IF (l_esig_reqd OR l_erec_reqd) */
2116: OPEN Cur_subs_details;
2117: FETCH Cur_subs_details INTO l_subs_details;
2118: CLOSE Cur_subs_details;
2119:
2120: FND_MESSAGE.SET_NAME('GMD', 'GMD_ERES_SUBSTITUTION_USR_LBL');
2121: l_user_key_label := FND_MESSAGE.GET;
2122:
2123: GMD_EDR_STANDARD.raise_event (p_event_name => 'oracle.apps.gmd.itemsub.sts'
2124: ,p_event_key => p_substitution_id
2117: FETCH Cur_subs_details INTO l_subs_details;
2118: CLOSE Cur_subs_details;
2119:
2120: FND_MESSAGE.SET_NAME('GMD', 'GMD_ERES_SUBSTITUTION_USR_LBL');
2121: l_user_key_label := FND_MESSAGE.GET;
2122:
2123: GMD_EDR_STANDARD.raise_event (p_event_name => 'oracle.apps.gmd.itemsub.sts'
2124: ,p_event_key => p_substitution_id
2125: ,p_parameter_name1 => 'DEFERRED'
2146: SET substitution_status = p_pending_status
2147: WHERE substitution_id = p_substitution_id;
2148:
2149: IF p_called_from_form = 'F' THEN
2150: FND_MESSAGE.SET_NAME('GMD','GMD_ERES_PEND_STAT_UPD');
2151: FND_MESSAGE.SET_TOKEN('TO_STATUS', l_to_status_desc);
2152: FND_FILE.PUT(FND_FILE.LOG, FND_MESSAGE.GET);
2153: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
2154: END IF;
2147: WHERE substitution_id = p_substitution_id;
2148:
2149: IF p_called_from_form = 'F' THEN
2150: FND_MESSAGE.SET_NAME('GMD','GMD_ERES_PEND_STAT_UPD');
2151: FND_MESSAGE.SET_TOKEN('TO_STATUS', l_to_status_desc);
2152: FND_FILE.PUT(FND_FILE.LOG, FND_MESSAGE.GET);
2153: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
2154: END IF;
2155: END IF; /* IF l_esig_reqd */
2148:
2149: IF p_called_from_form = 'F' THEN
2150: FND_MESSAGE.SET_NAME('GMD','GMD_ERES_PEND_STAT_UPD');
2151: FND_MESSAGE.SET_TOKEN('TO_STATUS', l_to_status_desc);
2152: FND_FILE.PUT(FND_FILE.LOG, FND_MESSAGE.GET);
2153: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
2154: END IF;
2155: END IF; /* IF l_esig_reqd */
2156: EXCEPTION
2157: WHEN PENDING_STATUS_ERR OR
2158: REWORK_STATUS_ERR THEN
2159: ROLLBACK TO SAVEPOINT update_substitution;
2160: X_return_status := FND_API.g_ret_sts_error;
2161: FND_MESSAGE.SET_TOKEN('FROM_STATUS', SUBSTR(l_from_status_desc,1, 80));
2162: FND_MESSAGE.SET_TOKEN('TO_STATUS', SUBSTR(l_to_status_desc, 1, 80));
2163:
2164: l_text := FND_MESSAGE.GET;
2165: FND_MESSAGE.SET_NAME ('FND', 'FND_GENERIC_MESSAGE');
2158: REWORK_STATUS_ERR THEN
2159: ROLLBACK TO SAVEPOINT update_substitution;
2160: X_return_status := FND_API.g_ret_sts_error;
2161: FND_MESSAGE.SET_TOKEN('FROM_STATUS', SUBSTR(l_from_status_desc,1, 80));
2162: FND_MESSAGE.SET_TOKEN('TO_STATUS', SUBSTR(l_to_status_desc, 1, 80));
2163:
2164: l_text := FND_MESSAGE.GET;
2165: FND_MESSAGE.SET_NAME ('FND', 'FND_GENERIC_MESSAGE');
2166: FND_MESSAGE.SET_TOKEN('MESSAGE', l_text);
2160: X_return_status := FND_API.g_ret_sts_error;
2161: FND_MESSAGE.SET_TOKEN('FROM_STATUS', SUBSTR(l_from_status_desc,1, 80));
2162: FND_MESSAGE.SET_TOKEN('TO_STATUS', SUBSTR(l_to_status_desc, 1, 80));
2163:
2164: l_text := FND_MESSAGE.GET;
2165: FND_MESSAGE.SET_NAME ('FND', 'FND_GENERIC_MESSAGE');
2166: FND_MESSAGE.SET_TOKEN('MESSAGE', l_text);
2167: FND_MSG_PUB.add;
2168: WHEN app_exception.record_lock_exception THEN
2161: FND_MESSAGE.SET_TOKEN('FROM_STATUS', SUBSTR(l_from_status_desc,1, 80));
2162: FND_MESSAGE.SET_TOKEN('TO_STATUS', SUBSTR(l_to_status_desc, 1, 80));
2163:
2164: l_text := FND_MESSAGE.GET;
2165: FND_MESSAGE.SET_NAME ('FND', 'FND_GENERIC_MESSAGE');
2166: FND_MESSAGE.SET_TOKEN('MESSAGE', l_text);
2167: FND_MSG_PUB.add;
2168: WHEN app_exception.record_lock_exception THEN
2169: ROLLBACK TO SAVEPOINT update_substitution;
2162: FND_MESSAGE.SET_TOKEN('TO_STATUS', SUBSTR(l_to_status_desc, 1, 80));
2163:
2164: l_text := FND_MESSAGE.GET;
2165: FND_MESSAGE.SET_NAME ('FND', 'FND_GENERIC_MESSAGE');
2166: FND_MESSAGE.SET_TOKEN('MESSAGE', l_text);
2167: FND_MSG_PUB.add;
2168: WHEN app_exception.record_lock_exception THEN
2169: ROLLBACK TO SAVEPOINT update_substitution;
2170: X_return_status := FND_API.g_ret_sts_error;