[Home] [Help]
1: PACKAGE BODY gmd_api_grp AS
2: /* $Header: GMDGAPIB.pls 120.32 2008/01/29 19:55:26 rnalla noship $ */
3:
4:
5: l_package_name CONSTANT VARCHAR2 (30) := 'GMD_API_GRP';
1: PACKAGE BODY gmd_api_grp AS
2: /* $Header: GMDGAPIB.pls 120.32 2008/01/29 19:55:26 rnalla noship $ */
3:
4:
5: l_package_name CONSTANT VARCHAR2 (30) := 'GMD_API_GRP';
6: l_resp_id NUMBER := FND_PROFILE.VALUE('RESP_ID');
7: --Bug 3222090, NSRIVAST 20-FEB-2004, BEGIN
8: --Forward declaration.
9: FUNCTION set_debug_flag RETURN VARCHAR2;
56:
57: fnd_msg_pub.ADD;
58: EXCEPTION
59: WHEN OTHERS THEN
60: gmd_debug.put_line ('GMD_API_GRP.log_message: When others exception: '||SQLERRM);
61: END log_message;
62:
63: /*======================================================================
64: -- PROCEDURE :
76: FUNCTION setup
77: RETURN BOOLEAN IS
78: missing_profile_option EXCEPTION;
79: BEGIN
80: gmd_api_grp.login_id := TO_NUMBER (fnd_profile.VALUE ('LOGIN_ID'));
81: gmd_api_grp.user_id := TO_NUMBER (fnd_profile.VALUE ('USER_ID'));
82: gmd_api_grp.resp_id := TO_NUMBER (fnd_profile.VALUE ('RESP_ID'));
83:
84: IF NVL (gmd_api_grp.user_id, 0) = 0 THEN
77: RETURN BOOLEAN IS
78: missing_profile_option EXCEPTION;
79: BEGIN
80: gmd_api_grp.login_id := TO_NUMBER (fnd_profile.VALUE ('LOGIN_ID'));
81: gmd_api_grp.user_id := TO_NUMBER (fnd_profile.VALUE ('USER_ID'));
82: gmd_api_grp.resp_id := TO_NUMBER (fnd_profile.VALUE ('RESP_ID'));
83:
84: IF NVL (gmd_api_grp.user_id, 0) = 0 THEN
85: log_message (
78: missing_profile_option EXCEPTION;
79: BEGIN
80: gmd_api_grp.login_id := TO_NUMBER (fnd_profile.VALUE ('LOGIN_ID'));
81: gmd_api_grp.user_id := TO_NUMBER (fnd_profile.VALUE ('USER_ID'));
82: gmd_api_grp.resp_id := TO_NUMBER (fnd_profile.VALUE ('RESP_ID'));
83:
84: IF NVL (gmd_api_grp.user_id, 0) = 0 THEN
85: log_message (
86: 'GMD_API_INVALID_USER_ID'
80: gmd_api_grp.login_id := TO_NUMBER (fnd_profile.VALUE ('LOGIN_ID'));
81: gmd_api_grp.user_id := TO_NUMBER (fnd_profile.VALUE ('USER_ID'));
82: gmd_api_grp.resp_id := TO_NUMBER (fnd_profile.VALUE ('RESP_ID'));
83:
84: IF NVL (gmd_api_grp.user_id, 0) = 0 THEN
85: log_message (
86: 'GMD_API_INVALID_USER_ID'
87: ,'USER_ID'
88: ,gmd_api_grp.user_id);
84: IF NVL (gmd_api_grp.user_id, 0) = 0 THEN
85: log_message (
86: 'GMD_API_INVALID_USER_ID'
87: ,'USER_ID'
88: ,gmd_api_grp.user_id);
89: RAISE missing_profile_option;
90: END IF;
91:
92: RETURN TRUE;
308: END IF; /* IF p_field_name = pkg_context_column_name */
309: EXCEPTION
310: WHEN flex_not_enabled THEN
311: x_return_status := FND_API.G_RET_STS_ERROR;
312: gmd_api_grp.log_message (
313: 'GMD_FLEX_NOT_ENABLED'
314: ,'FLEX_NAME'
315: ,p_flex_field_name);
316: WHEN context_value_required THEN
313: 'GMD_FLEX_NOT_ENABLED'
314: ,'FLEX_NAME'
315: ,p_flex_field_name);
316: WHEN context_value_required THEN
317: gmd_api_grp.log_message (
318: 'GMD_CONTEXT_VALUE_REQD'
319: ,'CONTEXT_NAME'
320: ,pkg_context_column_name);
321: x_return_status := FND_API.G_RET_STS_ERROR;
319: ,'CONTEXT_NAME'
320: ,pkg_context_column_name);
321: x_return_status := FND_API.G_RET_STS_ERROR;
322: WHEN context_not_existing THEN
323: gmd_api_grp.log_message (
324: 'GMD_NON_EXISTING_CONTEXT'
325: ,'CONTEXT_VALUE'
326: ,p_field_value);
327: x_return_status := FND_API.G_RET_STS_ERROR;
326: ,p_field_value);
327: x_return_status := FND_API.G_RET_STS_ERROR;
328: WHEN column_not_defined THEN
329: x_return_status := FND_API.G_RET_STS_ERROR;
330: gmd_api_grp.log_message (
331: 'GMD_FLEX_COL_NOT_DEF'
332: ,'FLEX_NAME'
333: ,p_flex_field_name
334: ,'COLUMN_NAME'
334: ,'COLUMN_NAME'
335: ,p_field_name);
336: WHEN field_value_required THEN
337: x_return_status := FND_API.G_RET_STS_ERROR;
338: gmd_api_grp.log_message (
339: 'GMD_FIELD_VALUE_REQUIRED'
340: ,'FIELD_NAME'
341: ,p_field_name);
342: WHEN validation_failure THEN
353: *************************************************************/
354:
355: PROCEDURE validate_flex_field (
356: p_table_name IN VARCHAR2 ,
357: p_flex_record IN gmd_api_grp.flex,
358: p_field_name IN VARCHAR2 ,
359: x_flex_record IN OUT NOCOPY gmd_api_grp.flex,
360: x_return_status OUT NOCOPY VARCHAR2
361: ) IS
355: PROCEDURE validate_flex_field (
356: p_table_name IN VARCHAR2 ,
357: p_flex_record IN gmd_api_grp.flex,
358: p_field_name IN VARCHAR2 ,
359: x_flex_record IN OUT NOCOPY gmd_api_grp.flex,
360: x_return_status OUT NOCOPY VARCHAR2
361: ) IS
362: l_field_value VARCHAR2 (240);
363: l_storage_value VARCHAR2 (240);
436: RAISE flexfield_not_found_exception;
437: END IF;
438: CLOSE get_desc_flex_name;
439:
440: gmd_api_grp.validate_flex_field (
441: p_application_short_name => l_appl_name,
442: p_flex_field_name => l_flex_name,
443: p_field_name => p_field_name,
444: p_field_value => l_field_value,
534: *************************************************************/
535:
536: PROCEDURE validate_flex (
537: p_table_name IN VARCHAR2 ,
538: p_flex_record IN gmd_api_grp.flex,
539: x_flex_record IN OUT NOCOPY gmd_api_grp.flex,
540: x_return_status OUT NOCOPY VARCHAR2
541: ) IS
542: validation_failure EXCEPTION;
535:
536: PROCEDURE validate_flex (
537: p_table_name IN VARCHAR2 ,
538: p_flex_record IN gmd_api_grp.flex,
539: x_flex_record IN OUT NOCOPY gmd_api_grp.flex,
540: x_return_status OUT NOCOPY VARCHAR2
541: ) IS
542: validation_failure EXCEPTION;
543: BEGIN
600: WHERE a.formula_id = Entity_id
601: AND a.owner_organization_id = b.organization_id;
602:
603: /* Check if user has access to this formula orgn */
604: IF NOT (gmd_api_grp.OrgnAccessible(l_orgn_id)) THEN
605: FND_MESSAGE.SET_NAME('GMD','GMD_FORMULA_NOT_UPDATEABLE');
606: FND_MESSAGE.SET_TOKEN('RESP_NAME',l_resp_name);
607: FND_MESSAGE.SET_TOKEN('ORGN_CODE',l_Owner_orgn_code);
608: FND_MSG_PUB.ADD;
616: WHERE recipe_id = Entity_id
617: AND a.owner_organization_id = b.organization_id;
618:
619: /* Check if user has access to this Recipe orgn */
620: IF NOT (gmd_api_grp.OrgnAccessible(l_orgn_id)) THEN
621: FND_MESSAGE.SET_NAME('GMD','GMD_RECIPE_NOT_UPDATEABLE');
622: FND_MESSAGE.SET_TOKEN('RESP_NAME',l_resp_name);
623: FND_MESSAGE.SET_TOKEN('ORGN_CODE',l_Owner_orgn_code);
624: FND_MSG_PUB.ADD;
635:
636: -- Check if user has access to this Recipe orgn
637: IF (l_owner_orgn_code IS NOT NULL) THEN
638: /* Check if user resp has access to this VR orgn */
639: IF NOT (gmd_api_grp.OrgnAccessible(l_orgn_id)) THEN
640: FND_MESSAGE.SET_NAME('GMD','GMD_RECIPE_NOT_UPDATEABLE');
641: FND_MESSAGE.SET_TOKEN('RESP_NAME',l_resp_name);
642: FND_MESSAGE.SET_TOKEN('ORGN_CODE',l_Owner_orgn_code);
643: FND_MSG_PUB.ADD;
654: WHERE a.routing_id = Entity_id
655: AND a.owner_organization_id = b.organization_id;
656:
657: /* Check if user has access to this formula orgn */
658: IF NOT (gmd_api_grp.OrgnAccessible(l_orgn_id)) THEN
659: FND_MESSAGE.SET_NAME('GMD','GMD_ROUTING_NOT_UPDATEABLE');
660: FND_MESSAGE.SET_TOKEN('RESP_NAME',l_resp_name);
661: FND_MESSAGE.SET_TOKEN('ORGN_CODE',l_Owner_orgn_code);
662: FND_MSG_PUB.ADD;
669: WHERE a.oprn_id = Entity_id
670: AND a.owner_organization_id = b.organization_id;
671:
672: /* Check if user has access to this formula orgn */
673: IF NOT (gmd_api_grp.OrgnAccessible(l_orgn_id)) THEN
674: FND_MESSAGE.SET_NAME('GMD','GMD_OPERATION_NOT_UPDATEABLE');
675: FND_MESSAGE.SET_TOKEN('RESP_NAME',l_resp_name);
676: FND_MESSAGE.SET_TOKEN('ORGN_CODE',l_Owner_orgn_code);
677: FND_MSG_PUB.ADD;
872: RETURN;
873: END IF;
874:
875: IF (l_debug = 'Y') THEN
876: gmd_debug.put_line('In GMD_API_GRP.validate_with_dep_entities - '||
877: 'v_entity_id = '||v_entity_Id||' and entity type = '||v_type);
878: END IF;
879:
880: IF (v_entity_id IS NOT NULL) THEN
881: IF (V_type = 'RECIPE') THEN
882: OPEN Cur_get_recp_sts(v_entity_id);
883: FETCH Cur_get_recp_sts INTO l_status;
884: IF (l_debug = 'Y') THEN
885: gmd_debug.put_line('In GMD_API_GRP.validate_with_dep_entities - '||
886: 'About to check for Recipe - Vr dep status = '||l_status);
887: END IF;
888: IF (Cur_get_recp_sts%FOUND) THEN
889: IF (NOT gmd_status_code.check_parent_status(v_type,v_entity_id)) THEN
887: END IF;
888: IF (Cur_get_recp_sts%FOUND) THEN
889: IF (NOT gmd_status_code.check_parent_status(v_type,v_entity_id)) THEN
890: IF (l_debug = 'Y') THEN
891: gmd_debug.put_line('In GMD_API_GRP.validate_with_dep_entities - '||
892: ' There is VR dependency for this Recipe = '||v_entity_Id);
893: END IF;
894:
895: l_parent_check := TRUE;
1213: --kkiallms 01-DEC-2004 Modified w.r.t. 4004501
1214: -------------------------------------------------------------------
1215: PROCEDURE get_status_details (V_entity_type IN VARCHAR2,
1216: V_orgn_id IN NUMBER,
1217: X_entity_status OUT NOCOPY GMD_API_GRP.status_rec_type) IS
1218:
1219: CURSOR cur_def_status(cp_orgn_id NUMBER,
1220: cp_parameter_name gmd_parameters_dtl.parameter_name%TYPE)IS
1221: SELECT st.status_code
1502: l_start_date DATE;
1503: l_end_date DATE;
1504: x_end_date DATE;
1505:
1506: l_default_vr_status GMD_API_GRP.status_rec_type;
1507: BEGIN
1508:
1509: OPEN c_get_vr_id;
1510: FETCH c_get_vr_id INTO l_vr_id;
1719: l_recipe_no VARCHAR2(32);
1720: l_orgn_ID NUMBER;
1721: l_item_id NUMBER;
1722: l_recipe_description VARCHAR2(70);
1723: l_default_recipe_status gmd_api_grp.status_rec_type;
1724:
1725: l_routing_no VARCHAR2(32) := NULL;
1726: l_routing_vers NUMBER := NULL;
1727: -- Exceptions
2181:
2182: EXCEPTION
2183: WHEN formula_missing THEN
2184: X_return_status := FND_API.g_ret_sts_error;
2185: gmd_api_grp.log_message('GMD_MISSING', 'FORMULA_ID');
2186: WHEN item_missing THEN
2187: X_return_status := FND_API.g_ret_sts_error;
2188: WHEN orgn_missing THEN
2189: X_return_status := FND_API.g_ret_sts_error;
2186: WHEN item_missing THEN
2187: X_return_status := FND_API.g_ret_sts_error;
2188: WHEN orgn_missing THEN
2189: X_return_status := FND_API.g_ret_sts_error;
2190: gmd_api_grp.log_message('GMD_MISSING', 'ORGN_CODE');
2191: WHEN OTHERS THEN
2192: X_return_status := FND_API.g_ret_sts_unexp_error;
2193: fnd_msg_pub.add_exc_msg (l_package_name, 'CHECK_ITEM_EXISTS');
2194: END check_item_exists;
2580: FROM mtl_parameters
2581: WHERE master_organization_id = p_organization_id);
2582: BEGIN
2583: /* First lets check if there is a value setup at org parameters level */
2584: GMD_API_GRP.fetch_parm_values(p_orgn_id => p_organization_id
2585: ,p_parm_name => 'GMD_RECIPE_TYPE'
2586: ,p_parm_value => l_recipe_type
2587: ,x_return_status => l_return_status);
2588: IF l_recipe_type IS NOT NULL THEN
2616: --===================================================================== */
2617: FUNCTION get_def_status_code(p_entity_type varchar2,
2618: p_orgn_id NUMBER)
2619: RETURN NUMBER is
2620: l_entity_status gmd_api_grp.status_rec_type;
2621: BEGIN
2622: get_status_details(V_entity_type => p_entity_type,
2623: V_orgn_id =>p_orgn_id,
2624: X_entity_status => l_entity_status);
2708: x_enable_revision := 'N';
2709: END IF;
2710: END validity_revision_check;
2711:
2712: END gmd_api_grp;