[Home] [Help]
1: PACKAGE BODY GMD_SPEC_VRS_GRP AS
2: /* $Header: GMDGSVRB.pls 120.11.12010000.2 2008/11/13 19:34:43 asatpute ship $ */
3:
4: -- Start of comments
5: --+==========================================================================+
7: --| Redwood Shores, CA, USA |
8: --| All rights reserved. |
9: --+==========================================================================+
10: --| File Name : GMDGSVRB.pls |
11: --| Package Name : GMD_SPEC_VRS_GRP |
12: --| Type : Group |
13: --| |
14: --| Notes |
15: --| This package contains group layer APIs for Specification Validity |
85: --|==========================================================================+
86: -- End of comments
87:
88: -- Global variables
89: G_PKG_NAME CONSTANT VARCHAR2(30) := 'GMD_SPEC_VRS_GRP';
90:
91: -- Global Cursors
92:
93: CURSOR c_orgn ( p_organization_id NUMBER) IS
626: -- here, this is coded just for the reasons we can
627: -- not think of!
628: WHEN OTHERS THEN
629: FND_MESSAGE.SET_NAME('GMD', 'GMD_API_ERROR');
630: FND_MESSAGE.SET_TOKEN('PACKAGE', 'GMD_SPEC_VRS_GRP.MON_VR_EXIST' );
631: FND_MESSAGE.SET_TOKEN('ERROR', SUBSTR(SQLERRM,1,200));
632: FND_MSG_PUB.ADD;
633:
634: RETURN TRUE;
1261: -- here, this is coded just for the reasons we can
1262: -- not think of!
1263: WHEN OTHERS THEN
1264: FND_MESSAGE.SET_NAME('GMD', 'GMD_API_ERROR');
1265: FND_MESSAGE.SET_TOKEN('PACKAGE', 'GMD_SPEC_VRS_GRP.INV_VR_EXIST' );
1266: FND_MESSAGE.SET_TOKEN('ERROR', SUBSTR(SQLERRM,1,200));
1267: FND_MSG_PUB.ADD;
1268:
1269: RETURN TRUE;
1386: RAISE FND_API.G_EXC_ERROR;
1387: END IF;
1388: -- end 3439865
1389: -- Check for NULLs and Valid Foreign Keys in the input parameter
1390: GMD_SPEC_VRS_GRP.check_for_null_and_fks_in_wvr
1391: (
1392: p_wip_vr => p_wip_vr
1393: , p_spec => l_spec
1394: , x_wip_vr => l_wip_vr_tmp
2485: -- here, this is coded just for the reasons we can
2486: -- not think of!
2487: WHEN OTHERS THEN
2488: FND_MESSAGE.SET_NAME('GMD', 'GMD_API_ERROR');
2489: FND_MESSAGE.SET_TOKEN('PACKAGE', 'GMD_SPEC_VRS_GRP.WIP_VR_EXIST' );
2490: FND_MESSAGE.SET_TOKEN('ERROR', SUBSTR(SQLERRM,1,200));
2491: RETURN TRUE;
2492:
2493: END wip_vr_exist;
2583: END IF;
2584:
2585: IF (p_called_from = 'API') THEN
2586: -- Check for NULLs and Valid Foreign Keys in the input parameter
2587: GMD_SPEC_VRS_GRP.check_for_null_and_fks_in_cvr
2588: (
2589: p_cust_vr => p_cust_vr
2590: , p_spec => l_spec
2591: , x_return_status => l_return_status
3132: -- here, this is coded just for the reasons we can
3133: -- not think of!
3134: WHEN OTHERS THEN
3135: FND_MESSAGE.SET_NAME('GMD', 'GMD_API_ERROR');
3136: FND_MESSAGE.SET_TOKEN('PACKAGE', 'GMD_SPEC_VRS_GRP.CUST_VR_EXIST' );
3137: FND_MESSAGE.SET_TOKEN('ERROR', SUBSTR(SQLERRM,1,200));
3138: RETURN TRUE;
3139:
3140: END cust_vr_exist;
3240: RAISE FND_API.G_EXC_ERROR;
3241: END IF;
3242: -- end 3439865
3243: -- Check for NULLs and Valid Foreign Keys in the input parameter
3244: GMD_SPEC_VRS_GRP.check_for_null_and_fks_in_svr
3245: (
3246: p_supp_vr => p_supp_vr
3247: , p_spec => l_spec
3248: , x_return_status => l_return_status
3760: -- here, this is coded just for the reasons we can
3761: -- not think of!
3762: WHEN OTHERS THEN
3763: FND_MESSAGE.SET_NAME('GMD', 'GMD_API_ERROR');
3764: FND_MESSAGE.SET_TOKEN('PACKAGE', 'GMD_SPEC_VRS_GRP.SUPP_VR_EXIST' );
3765: FND_MESSAGE.SET_TOKEN('ERROR', SUBSTR(SQLERRM,1,200));
3766: RETURN TRUE;
3767:
3768: END supp_vr_exist;
4511: END IF; --- p_VR_type IN ('INVENTORY', 'WIP')
4512:
4513: END check_VR_controls;
4514:
4515: END GMD_SPEC_VRS_GRP;