[Home] [Help]
153: * DESCRIPTION
154: * This procedure will check if given id or name exist in OP_CUST_MST.
155: * If name provided, id will be returned.
156: * Currently used by recipes and QC
157: * PARAMETERS standard + customer_id, customer_no
158: * RETURN VALUES standard + customer_id
159: *
160: * LrJackson 27Dec2000 Copied from recipe_exists
161: * Raju Added new cursors to check siteid and orgid exists for that customer.
154: * This procedure will check if given id or name exist in OP_CUST_MST.
155: * If name provided, id will be returned.
156: * Currently used by recipes and QC
157: * PARAMETERS standard + customer_id, customer_no
158: * RETURN VALUES standard + customer_id
159: *
160: * LrJackson 27Dec2000 Copied from recipe_exists
161: * Raju Added new cursors to check siteid and orgid exists for that customer.
162: **************************************************************************** */
275: END IF;
276: CLOSE get_orgid;
277: END IF;
278:
279: /* no standard check of p_commit because no insert/update/delete */
280:
281: /* standard call to get msge cnt, and if cnt is 1, get mesg info */
282: FND_MSG_PUB.Count_And_Get(p_count=>x_msg_count, p_data=>x_msg_data);
283:
277: END IF;
278:
279: /* no standard check of p_commit because no insert/update/delete */
280:
281: /* standard call to get msge cnt, and if cnt is 1, get mesg info */
282: FND_MSG_PUB.Count_And_Get(p_count=>x_msg_count, p_data=>x_msg_data);
283:
284: EXCEPTION
285: WHEN FND_API.G_EXC_ERROR THEN
349: * NAME
350: * action_code
351: * DESCRIPTION
352: * This procedure will check that given action code is valid. I, U, D
353: * PARAMETERS - standard +
354: * p_action_code
355: * RETURN VALUES - standard
356: * MODIFICATION HISTORY
357: * Person Date Comments
351: * DESCRIPTION
352: * This procedure will check that given action code is valid. I, U, D
353: * PARAMETERS - standard +
354: * p_action_code
355: * RETURN VALUES - standard
356: * MODIFICATION HISTORY
357: * Person Date Comments
358: *
359: **************************************************************************** */
387: IF p_action_code is null or p_action_code not in ('I', 'U', 'D') THEN
388: RAISE fnd_api.g_exc_error;
389: END IF;
390:
391: /* no standard check of p_commit because no insert/update/delete */
392:
393: /* standard call to get msge cnt, and if cnt is 1, get mesg info */
394: FND_MSG_PUB.Count_And_Get(p_count=>x_msg_count, p_data=>x_msg_data);
395:
389: END IF;
390:
391: /* no standard check of p_commit because no insert/update/delete */
392:
393: /* standard call to get msge cnt, and if cnt is 1, get mesg info */
394: FND_MSG_PUB.Count_And_Get(p_count=>x_msg_count, p_data=>x_msg_data);
395:
396: EXCEPTION
397: WHEN FND_API.G_EXC_ERROR THEN
2087: *
2088: * 12-FEB-2002 Shyam Created an NVL ststement for routing_id that is returned after
2089: * the recipe table is updated. Recipe can have null routing_ids and
2090: * returning a NULL routing_id into variable l_routing_id can cause issues.
2091: * 01-MAR-2002 Shyam Added validation for Run_status_Updtae to check if the cost method is 'Standard'
2092: * and period status is 1.
2093: * 01/16/2003 Shyam UPdate made on status that are not obsoleted or on-hold
2094: *
2095: * *********************************************************************** */
2136: CURSOR Get_FmRout_id(vRecipe_id NUMBER) IS
2137: SELECT formula_id, routing_id From gmd_recipes_b
2138: WHERE recipe_id = vRecipe_id;
2139:
2140: Standard_costing_exception EXCEPTION;
2141: Period_status_exception EXCEPTION;
2142:
2143: BEGIN
2144: SAVEPOINT update_status;
2154: OPEN Get_Cost_type;
2155: FETCH Get_Cost_type INTO l_cost_type;
2156: IF ((Get_Cost_type%NOTFOUND) OR (l_cost_type = 1)) THEN
2157: CLOSE Get_Cost_type;
2158: Raise Standard_costing_exception;
2159: END IF;
2160: CLOSE Get_Cost_Type;
2161:
2162: OPEN FROZEN_EFF_CUR;
2224: /* sets the context for formula security */
2225: gmd_p_fs_context.set_additional_attr;
2226:
2227: EXCEPTION
2228: WHEN Standard_costing_exception THEN
2229: p_retcode := 3;
2230: p_errbuf := NULL;
2231: set_conc_program_Status('ERROR','Invalid cost method only standard cost methods are allowed ' );
2232: ROLLBACK to update_status;
2227: EXCEPTION
2228: WHEN Standard_costing_exception THEN
2229: p_retcode := 3;
2230: p_errbuf := NULL;
2231: set_conc_program_Status('ERROR','Invalid cost method only standard cost methods are allowed ' );
2232: ROLLBACK to update_status;
2233: WHEN Period_status_exception THEN
2234: p_retcode := 3;
2235: p_errbuf := NULL;
2963: CURSOR Get_FmRout_id(vRecipe_id NUMBER) IS
2964: SELECT formula_id, routing_id From gmd_recipes_b
2965: WHERE recipe_id = vRecipe_id;
2966:
2967: Standard_costing_exception EXCEPTION;
2968: Period_status_exception EXCEPTION;
2969: Period_id_exception EXCEPTION;
2970:
2971: BEGIN
2990: OPEN Get_Cost_type;
2991: FETCH Get_Cost_type INTO l_cost_type;
2992: IF ((Get_Cost_type%NOTFOUND) OR (l_cost_type = 1)) THEN
2993: CLOSE Get_Cost_type;
2994: Raise Standard_costing_exception;
2995: END IF;
2996: CLOSE Get_Cost_Type;
2997:
2998: OPEN FROZEN_EFF_CUR;
3060: /* sets the context for formula security */
3061: gmd_p_fs_context.set_additional_attr;
3062:
3063: EXCEPTION
3064: WHEN Standard_costing_exception THEN
3065: p_retcode := 3;
3066: p_errbuf := NULL;
3067: set_conc_program_Status('ERROR','Invalid cost method only standard cost methods are allowed ' );
3068: ROLLBACK to update_status;
3063: EXCEPTION
3064: WHEN Standard_costing_exception THEN
3065: p_retcode := 3;
3066: p_errbuf := NULL;
3067: set_conc_program_Status('ERROR','Invalid cost method only standard cost methods are allowed ' );
3068: ROLLBACK to update_status;
3069: WHEN Period_status_exception THEN
3070: p_retcode := 3;
3071: p_errbuf := NULL;