[Home] [Help]
1: PACKAGE BODY GMD_SPEC_VRS_GRP AS
2: /* $Header: GMDGSVRB.pls 120.18.12020000.2 2012/07/17 10:29:47 mtou 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 |
96: --|=================================================================================================+
97: -- End of comments
98:
99: -- Global variables
100: G_PKG_NAME CONSTANT VARCHAR2(30) := 'GMD_SPEC_VRS_GRP';
101:
102: -- Global Cursors
103:
104: CURSOR c_orgn ( p_organization_id NUMBER) IS
637: -- here, this is coded just for the reasons we can
638: -- not think of!
639: WHEN OTHERS THEN
640: FND_MESSAGE.SET_NAME('GMD', 'GMD_API_ERROR');
641: FND_MESSAGE.SET_TOKEN('PACKAGE', 'GMD_SPEC_VRS_GRP.MON_VR_EXIST' );
642: FND_MESSAGE.SET_TOKEN('ERROR', SUBSTR(SQLERRM,1,200));
643: FND_MSG_PUB.ADD;
644:
645: RETURN TRUE;
1286: -- here, this is coded just for the reasons we can
1287: -- not think of!
1288: WHEN OTHERS THEN
1289: FND_MESSAGE.SET_NAME('GMD', 'GMD_API_ERROR');
1290: FND_MESSAGE.SET_TOKEN('PACKAGE', 'GMD_SPEC_VRS_GRP.INV_VR_EXIST' );
1291: FND_MESSAGE.SET_TOKEN('ERROR', SUBSTR(SQLERRM,1,200));
1292: FND_MSG_PUB.ADD;
1293:
1294: RETURN TRUE;
1411: RAISE FND_API.G_EXC_ERROR;
1412: END IF;
1413: -- end 3439865
1414: -- Check for NULLs and Valid Foreign Keys in the input parameter
1415: GMD_SPEC_VRS_GRP.check_for_null_and_fks_in_wvr
1416: (
1417: p_wip_vr => p_wip_vr
1418: , p_spec => l_spec
1419: , x_wip_vr => l_wip_vr_tmp
2634: -- here, this is coded just for the reasons we can
2635: -- not think of!
2636: WHEN OTHERS THEN
2637: FND_MESSAGE.SET_NAME('GMD', 'GMD_API_ERROR');
2638: FND_MESSAGE.SET_TOKEN('PACKAGE', 'GMD_SPEC_VRS_GRP.WIP_VR_EXIST' );
2639: FND_MESSAGE.SET_TOKEN('ERROR', SUBSTR(SQLERRM,1,200));
2640: RETURN TRUE;
2641:
2642: END wip_vr_exist;
2732: END IF;
2733:
2734: IF (p_called_from = 'API') THEN
2735: -- Check for NULLs and Valid Foreign Keys in the input parameter
2736: GMD_SPEC_VRS_GRP.check_for_null_and_fks_in_cvr
2737: (
2738: p_cust_vr => p_cust_vr
2739: , p_spec => l_spec
2740: , x_return_status => l_return_status
3282: -- here, this is coded just for the reasons we can
3283: -- not think of!
3284: WHEN OTHERS THEN
3285: FND_MESSAGE.SET_NAME('GMD', 'GMD_API_ERROR');
3286: FND_MESSAGE.SET_TOKEN('PACKAGE', 'GMD_SPEC_VRS_GRP.CUST_VR_EXIST' );
3287: FND_MESSAGE.SET_TOKEN('ERROR', SUBSTR(SQLERRM,1,200));
3288: RETURN TRUE;
3289:
3290: END cust_vr_exist;
3390: RAISE FND_API.G_EXC_ERROR;
3391: END IF;
3392: -- end 3439865
3393: -- Check for NULLs and Valid Foreign Keys in the input parameter
3394: GMD_SPEC_VRS_GRP.check_for_null_and_fks_in_svr
3395: (
3396: p_supp_vr => p_supp_vr
3397: , p_spec => l_spec
3398: , x_return_status => l_return_status
3923: -- here, this is coded just for the reasons we can
3924: -- not think of!
3925: WHEN OTHERS THEN
3926: FND_MESSAGE.SET_NAME('GMD', 'GMD_API_ERROR');
3927: FND_MESSAGE.SET_TOKEN('PACKAGE', 'GMD_SPEC_VRS_GRP.SUPP_VR_EXIST' );
3928: FND_MESSAGE.SET_TOKEN('ERROR', SUBSTR(SQLERRM,1,200));
3929: RETURN TRUE;
3930:
3931: END supp_vr_exist;
4710: END IF;
4711:
4712: END check_wms_enabled;
4713:
4714: END GMD_SPEC_VRS_GRP;