610: OPEN c_mon_vr;
611: FETCH c_mon_vr INTO dummy, specname, specvers;
612: IF c_mon_vr%FOUND THEN
613: CLOSE c_mon_vr;
614: FND_MESSAGE.SET_NAME('GMD', 'GMD_MON_VR_EXIST');
615: FND_MESSAGE.SET_TOKEN('spec', specname);
616: FND_MESSAGE.SET_TOKEN('vers', specvers);
617: FND_MSG_PUB.ADD;
618: RETURN TRUE;
611: FETCH c_mon_vr INTO dummy, specname, specvers;
612: IF c_mon_vr%FOUND THEN
613: CLOSE c_mon_vr;
614: FND_MESSAGE.SET_NAME('GMD', 'GMD_MON_VR_EXIST');
615: FND_MESSAGE.SET_TOKEN('spec', specname);
616: FND_MESSAGE.SET_TOKEN('vers', specvers);
617: FND_MSG_PUB.ADD;
618: RETURN TRUE;
619: ELSE
612: IF c_mon_vr%FOUND THEN
613: CLOSE c_mon_vr;
614: FND_MESSAGE.SET_NAME('GMD', 'GMD_MON_VR_EXIST');
615: FND_MESSAGE.SET_TOKEN('spec', specname);
616: FND_MESSAGE.SET_TOKEN('vers', specvers);
617: FND_MSG_PUB.ADD;
618: RETURN TRUE;
619: ELSE
620: CLOSE c_mon_vr;
625: -- Though there is no reason the program can reach
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:
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;
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;
635:
1027: RAISE FND_API.G_EXC_ERROR;
1028: END IF;
1029: CLOSE c_item_lot_number;
1030: ELSE --Item is not lot controlled
1031: FND_MESSAGE.SET_NAME('GMD','GMD_ITEM_NOT_LOT_CONTROL');
1032: FND_MSG_PUB.ADD;
1033: RAISE FND_API.G_EXC_ERROR;
1034: END IF;
1035: END IF;
1047: RAISE FND_API.G_EXC_ERROR;
1048: END IF;
1049: CLOSE c_item_parent_lot;
1050: ELSE --Item is not child lot controlled
1051: FND_MESSAGE.SET_NAME('GMD','GMD_ITEM_NOT_CHILD_LOT_CONTROL');
1052: FND_MSG_PUB.ADD;
1053: RAISE FND_API.G_EXC_ERROR;
1054: END IF;
1055: END IF;
1245: OPEN c_inv_vr;
1246: FETCH c_inv_vr INTO dummy, specname, specvers;
1247: IF c_inv_vr%FOUND THEN
1248: CLOSE c_inv_vr;
1249: FND_MESSAGE.SET_NAME('GMD', 'GMD_INV_VR_EXIST');
1250: FND_MESSAGE.SET_TOKEN('spec', specname);
1251: FND_MESSAGE.SET_TOKEN('vers', specvers);
1252: FND_MSG_PUB.ADD;
1253: RETURN TRUE;
1246: FETCH c_inv_vr INTO dummy, specname, specvers;
1247: IF c_inv_vr%FOUND THEN
1248: CLOSE c_inv_vr;
1249: FND_MESSAGE.SET_NAME('GMD', 'GMD_INV_VR_EXIST');
1250: FND_MESSAGE.SET_TOKEN('spec', specname);
1251: FND_MESSAGE.SET_TOKEN('vers', specvers);
1252: FND_MSG_PUB.ADD;
1253: RETURN TRUE;
1254: ELSE
1247: IF c_inv_vr%FOUND THEN
1248: CLOSE c_inv_vr;
1249: FND_MESSAGE.SET_NAME('GMD', 'GMD_INV_VR_EXIST');
1250: FND_MESSAGE.SET_TOKEN('spec', specname);
1251: FND_MESSAGE.SET_TOKEN('vers', specvers);
1252: FND_MSG_PUB.ADD;
1253: RETURN TRUE;
1254: ELSE
1255: CLOSE c_inv_vr;
1260: -- Though there is no reason the program can reach
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:
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;
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;
1270:
2469: OPEN c_wip_vr;
2470: FETCH c_wip_vr INTO dummy, specname, specvers;
2471: IF c_wip_vr%FOUND THEN
2472: CLOSE c_wip_vr;
2473: FND_MESSAGE.SET_NAME('GMD', 'GMD_WIP_VR_EXIST');
2474: FND_MESSAGE.SET_TOKEN('spec', specname);
2475: FND_MESSAGE.SET_TOKEN('vers', specvers);
2476: FND_MSG_PUB.ADD;
2477: RETURN TRUE;
2470: FETCH c_wip_vr INTO dummy, specname, specvers;
2471: IF c_wip_vr%FOUND THEN
2472: CLOSE c_wip_vr;
2473: FND_MESSAGE.SET_NAME('GMD', 'GMD_WIP_VR_EXIST');
2474: FND_MESSAGE.SET_TOKEN('spec', specname);
2475: FND_MESSAGE.SET_TOKEN('vers', specvers);
2476: FND_MSG_PUB.ADD;
2477: RETURN TRUE;
2478: ELSE
2471: IF c_wip_vr%FOUND THEN
2472: CLOSE c_wip_vr;
2473: FND_MESSAGE.SET_NAME('GMD', 'GMD_WIP_VR_EXIST');
2474: FND_MESSAGE.SET_TOKEN('spec', specname);
2475: FND_MESSAGE.SET_TOKEN('vers', specvers);
2476: FND_MSG_PUB.ADD;
2477: RETURN TRUE;
2478: ELSE
2479: CLOSE c_wip_vr;
2484: -- Though there is no reason the program can reach
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:
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;
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;
2494:
3116: OPEN c_cust_vr;
3117: FETCH c_cust_vr INTO dummy, specname, specvers;
3118: IF c_cust_vr%FOUND THEN
3119: CLOSE c_cust_vr;
3120: FND_MESSAGE.SET_NAME('GMD', 'GMD_CUST_VR_EXIST');
3121: FND_MESSAGE.SET_TOKEN('spec', specname);
3122: FND_MESSAGE.SET_TOKEN('vers', specvers);
3123: FND_MSG_PUB.ADD;
3124: RETURN TRUE;
3117: FETCH c_cust_vr INTO dummy, specname, specvers;
3118: IF c_cust_vr%FOUND THEN
3119: CLOSE c_cust_vr;
3120: FND_MESSAGE.SET_NAME('GMD', 'GMD_CUST_VR_EXIST');
3121: FND_MESSAGE.SET_TOKEN('spec', specname);
3122: FND_MESSAGE.SET_TOKEN('vers', specvers);
3123: FND_MSG_PUB.ADD;
3124: RETURN TRUE;
3125: ELSE
3118: IF c_cust_vr%FOUND THEN
3119: CLOSE c_cust_vr;
3120: FND_MESSAGE.SET_NAME('GMD', 'GMD_CUST_VR_EXIST');
3121: FND_MESSAGE.SET_TOKEN('spec', specname);
3122: FND_MESSAGE.SET_TOKEN('vers', specvers);
3123: FND_MSG_PUB.ADD;
3124: RETURN TRUE;
3125: ELSE
3126: CLOSE c_cust_vr;
3131: -- Though there is no reason the program can reach
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:
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;
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;
3141:
3494: INTO l_lot_ctl;
3495: IF (c_item_controls%NOTFOUND)
3496: THEN
3497: CLOSE c_item_controls;
3498: FND_MESSAGE.SET_NAME('GMD','GMD_NOTFOUND');
3499: FND_MESSAGE.SET_TOKEN('WHAT', 'INVENTORY_ITEM_ID');
3500: FND_MESSAGE.SET_TOKEN('VALUE', p_spec.inventory_item_id);
3501: FND_MSG_PUB.ADD;
3502: RAISE FND_API.G_EXC_ERROR;
3495: IF (c_item_controls%NOTFOUND)
3496: THEN
3497: CLOSE c_item_controls;
3498: FND_MESSAGE.SET_NAME('GMD','GMD_NOTFOUND');
3499: FND_MESSAGE.SET_TOKEN('WHAT', 'INVENTORY_ITEM_ID');
3500: FND_MESSAGE.SET_TOKEN('VALUE', p_spec.inventory_item_id);
3501: FND_MSG_PUB.ADD;
3502: RAISE FND_API.G_EXC_ERROR;
3503: END IF;
3496: THEN
3497: CLOSE c_item_controls;
3498: FND_MESSAGE.SET_NAME('GMD','GMD_NOTFOUND');
3499: FND_MESSAGE.SET_TOKEN('WHAT', 'INVENTORY_ITEM_ID');
3500: FND_MESSAGE.SET_TOKEN('VALUE', p_spec.inventory_item_id);
3501: FND_MSG_PUB.ADD;
3502: RAISE FND_API.G_EXC_ERROR;
3503: END IF;
3504: CLOSE c_item_controls;
3581: INTO dummy;
3582: IF (c_supplier_site%NOTFOUND)
3583: THEN
3584: CLOSE c_supplier_site;
3585: FND_MESSAGE.SET_NAME('GMD','GMD_NOTFOUND');
3586: FND_MESSAGE.SET_TOKEN('WHAT', 'SUPPLIER_SITE_ID');
3587: FND_MESSAGE.SET_TOKEN('VALUE', p_supp_vr.supplier_site_id);
3588: FND_MSG_PUB.ADD;
3589: RAISE FND_API.G_EXC_ERROR;
3582: IF (c_supplier_site%NOTFOUND)
3583: THEN
3584: CLOSE c_supplier_site;
3585: FND_MESSAGE.SET_NAME('GMD','GMD_NOTFOUND');
3586: FND_MESSAGE.SET_TOKEN('WHAT', 'SUPPLIER_SITE_ID');
3587: FND_MESSAGE.SET_TOKEN('VALUE', p_supp_vr.supplier_site_id);
3588: FND_MSG_PUB.ADD;
3589: RAISE FND_API.G_EXC_ERROR;
3590: END IF;
3583: THEN
3584: CLOSE c_supplier_site;
3585: FND_MESSAGE.SET_NAME('GMD','GMD_NOTFOUND');
3586: FND_MESSAGE.SET_TOKEN('WHAT', 'SUPPLIER_SITE_ID');
3587: FND_MESSAGE.SET_TOKEN('VALUE', p_supp_vr.supplier_site_id);
3588: FND_MSG_PUB.ADD;
3589: RAISE FND_API.G_EXC_ERROR;
3590: END IF;
3591: CLOSE c_supplier_site;
3744: OPEN c_supp_vr;
3745: FETCH c_supp_vr INTO dummy, specname, specvers;
3746: IF c_supp_vr%FOUND THEN
3747: CLOSE c_supp_vr;
3748: FND_MESSAGE.SET_NAME('GMD', 'GMD_SUPP_VR_EXIST');
3749: FND_MESSAGE.SET_TOKEN('spec', specname);
3750: FND_MESSAGE.SET_TOKEN('vers', specvers);
3751: FND_MSG_PUB.ADD;
3752: RETURN TRUE;
3745: FETCH c_supp_vr INTO dummy, specname, specvers;
3746: IF c_supp_vr%FOUND THEN
3747: CLOSE c_supp_vr;
3748: FND_MESSAGE.SET_NAME('GMD', 'GMD_SUPP_VR_EXIST');
3749: FND_MESSAGE.SET_TOKEN('spec', specname);
3750: FND_MESSAGE.SET_TOKEN('vers', specvers);
3751: FND_MSG_PUB.ADD;
3752: RETURN TRUE;
3753: ELSE
3746: IF c_supp_vr%FOUND THEN
3747: CLOSE c_supp_vr;
3748: FND_MESSAGE.SET_NAME('GMD', 'GMD_SUPP_VR_EXIST');
3749: FND_MESSAGE.SET_TOKEN('spec', specname);
3750: FND_MESSAGE.SET_TOKEN('vers', specvers);
3751: FND_MSG_PUB.ADD;
3752: RETURN TRUE;
3753: ELSE
3754: CLOSE c_supp_vr;
3759: -- Though there is no reason the program can reach
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:
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;
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;
3769:
3840: x_return_status := FND_API.G_RET_STS_ERROR ;
3841: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
3842:
3843: WHEN OTHERS THEN
3844: FND_MESSAGE.Set_Name('GMD','GMD_API_ERROR');
3845: FND_MESSAGE.Set_Token('PACKAGE','GMD_SPEC_GRP.VALIDATE_BEFORE_DELETE');
3846: FND_MESSAGE.Set_Token('ERROR', substr(sqlerrm,1,100));
3847: FND_MESSAGE.Set_Token('POSITION',l_progress );
3848: FND_MSG_PUB.ADD;
3841: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
3842:
3843: WHEN OTHERS THEN
3844: FND_MESSAGE.Set_Name('GMD','GMD_API_ERROR');
3845: FND_MESSAGE.Set_Token('PACKAGE','GMD_SPEC_GRP.VALIDATE_BEFORE_DELETE');
3846: FND_MESSAGE.Set_Token('ERROR', substr(sqlerrm,1,100));
3847: FND_MESSAGE.Set_Token('POSITION',l_progress );
3848: FND_MSG_PUB.ADD;
3849: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
3842:
3843: WHEN OTHERS THEN
3844: FND_MESSAGE.Set_Name('GMD','GMD_API_ERROR');
3845: FND_MESSAGE.Set_Token('PACKAGE','GMD_SPEC_GRP.VALIDATE_BEFORE_DELETE');
3846: FND_MESSAGE.Set_Token('ERROR', substr(sqlerrm,1,100));
3847: FND_MESSAGE.Set_Token('POSITION',l_progress );
3848: FND_MSG_PUB.ADD;
3849: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
3850: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3843: WHEN OTHERS THEN
3844: FND_MESSAGE.Set_Name('GMD','GMD_API_ERROR');
3845: FND_MESSAGE.Set_Token('PACKAGE','GMD_SPEC_GRP.VALIDATE_BEFORE_DELETE');
3846: FND_MESSAGE.Set_Token('ERROR', substr(sqlerrm,1,100));
3847: FND_MESSAGE.Set_Token('POSITION',l_progress );
3848: FND_MSG_PUB.ADD;
3849: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
3850: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3851:
3924: x_return_status := FND_API.G_RET_STS_ERROR ;
3925: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
3926:
3927: WHEN OTHERS THEN
3928: FND_MESSAGE.Set_Name('GMD','GMD_API_ERROR');
3929: FND_MESSAGE.Set_Token('PACKAGE','GMD_SPEC_GRP.VALIDATE_BEFORE_DELETE');
3930: FND_MESSAGE.Set_Token('ERROR', substr(sqlerrm,1,100));
3931: FND_MESSAGE.Set_Token('POSITION',l_progress );
3932: FND_MSG_PUB.ADD;
3925: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
3926:
3927: WHEN OTHERS THEN
3928: FND_MESSAGE.Set_Name('GMD','GMD_API_ERROR');
3929: FND_MESSAGE.Set_Token('PACKAGE','GMD_SPEC_GRP.VALIDATE_BEFORE_DELETE');
3930: FND_MESSAGE.Set_Token('ERROR', substr(sqlerrm,1,100));
3931: FND_MESSAGE.Set_Token('POSITION',l_progress );
3932: FND_MSG_PUB.ADD;
3933: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
3926:
3927: WHEN OTHERS THEN
3928: FND_MESSAGE.Set_Name('GMD','GMD_API_ERROR');
3929: FND_MESSAGE.Set_Token('PACKAGE','GMD_SPEC_GRP.VALIDATE_BEFORE_DELETE');
3930: FND_MESSAGE.Set_Token('ERROR', substr(sqlerrm,1,100));
3931: FND_MESSAGE.Set_Token('POSITION',l_progress );
3932: FND_MSG_PUB.ADD;
3933: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
3934: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3927: WHEN OTHERS THEN
3928: FND_MESSAGE.Set_Name('GMD','GMD_API_ERROR');
3929: FND_MESSAGE.Set_Token('PACKAGE','GMD_SPEC_GRP.VALIDATE_BEFORE_DELETE');
3930: FND_MESSAGE.Set_Token('ERROR', substr(sqlerrm,1,100));
3931: FND_MESSAGE.Set_Token('POSITION',l_progress );
3932: FND_MSG_PUB.ADD;
3933: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
3934: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3935:
4007: x_return_status := FND_API.G_RET_STS_ERROR ;
4008: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
4009:
4010: WHEN OTHERS THEN
4011: FND_MESSAGE.Set_Name('GMD','GMD_API_ERROR');
4012: FND_MESSAGE.Set_Token('PACKAGE','GMD_SPEC_GRP.VALIDATE_BEFORE_DELETE');
4013: FND_MESSAGE.Set_Token('ERROR', substr(sqlerrm,1,100));
4014: FND_MESSAGE.Set_Token('POSITION',l_progress );
4015: FND_MSG_PUB.ADD;
4008: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
4009:
4010: WHEN OTHERS THEN
4011: FND_MESSAGE.Set_Name('GMD','GMD_API_ERROR');
4012: FND_MESSAGE.Set_Token('PACKAGE','GMD_SPEC_GRP.VALIDATE_BEFORE_DELETE');
4013: FND_MESSAGE.Set_Token('ERROR', substr(sqlerrm,1,100));
4014: FND_MESSAGE.Set_Token('POSITION',l_progress );
4015: FND_MSG_PUB.ADD;
4016: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
4009:
4010: WHEN OTHERS THEN
4011: FND_MESSAGE.Set_Name('GMD','GMD_API_ERROR');
4012: FND_MESSAGE.Set_Token('PACKAGE','GMD_SPEC_GRP.VALIDATE_BEFORE_DELETE');
4013: FND_MESSAGE.Set_Token('ERROR', substr(sqlerrm,1,100));
4014: FND_MESSAGE.Set_Token('POSITION',l_progress );
4015: FND_MSG_PUB.ADD;
4016: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
4017: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4010: WHEN OTHERS THEN
4011: FND_MESSAGE.Set_Name('GMD','GMD_API_ERROR');
4012: FND_MESSAGE.Set_Token('PACKAGE','GMD_SPEC_GRP.VALIDATE_BEFORE_DELETE');
4013: FND_MESSAGE.Set_Token('ERROR', substr(sqlerrm,1,100));
4014: FND_MESSAGE.Set_Token('POSITION',l_progress );
4015: FND_MSG_PUB.ADD;
4016: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
4017: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4018:
4090: x_return_status := FND_API.G_RET_STS_ERROR ;
4091: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
4092:
4093: WHEN OTHERS THEN
4094: FND_MESSAGE.Set_Name('GMD','GMD_API_ERROR');
4095: FND_MESSAGE.Set_Token('PACKAGE','GMD_SPEC_GRP.VALIDATE_BEFORE_DELETE');
4096: FND_MESSAGE.Set_Token('ERROR', substr(sqlerrm,1,100));
4097: FND_MESSAGE.Set_Token('POSITION',l_progress );
4098: FND_MSG_PUB.ADD;
4091: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
4092:
4093: WHEN OTHERS THEN
4094: FND_MESSAGE.Set_Name('GMD','GMD_API_ERROR');
4095: FND_MESSAGE.Set_Token('PACKAGE','GMD_SPEC_GRP.VALIDATE_BEFORE_DELETE');
4096: FND_MESSAGE.Set_Token('ERROR', substr(sqlerrm,1,100));
4097: FND_MESSAGE.Set_Token('POSITION',l_progress );
4098: FND_MSG_PUB.ADD;
4099: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
4092:
4093: WHEN OTHERS THEN
4094: FND_MESSAGE.Set_Name('GMD','GMD_API_ERROR');
4095: FND_MESSAGE.Set_Token('PACKAGE','GMD_SPEC_GRP.VALIDATE_BEFORE_DELETE');
4096: FND_MESSAGE.Set_Token('ERROR', substr(sqlerrm,1,100));
4097: FND_MESSAGE.Set_Token('POSITION',l_progress );
4098: FND_MSG_PUB.ADD;
4099: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
4100: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4093: WHEN OTHERS THEN
4094: FND_MESSAGE.Set_Name('GMD','GMD_API_ERROR');
4095: FND_MESSAGE.Set_Token('PACKAGE','GMD_SPEC_GRP.VALIDATE_BEFORE_DELETE');
4096: FND_MESSAGE.Set_Token('ERROR', substr(sqlerrm,1,100));
4097: FND_MESSAGE.Set_Token('POSITION',l_progress );
4098: FND_MSG_PUB.ADD;
4099: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
4100: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4101:
4123: BEGIN
4124:
4125: IF (p_user_id IS NULL)
4126: THEN
4127: FND_MESSAGE.SET_NAME('GMD','GMD_WRONG_VALUE');
4128: FND_MESSAGE.SET_TOKEN('WHAT', 'USER_ID');
4129: FND_MSG_PUB.ADD;
4130: RAISE FND_API.G_EXC_ERROR;
4131: ELSE
4124:
4125: IF (p_user_id IS NULL)
4126: THEN
4127: FND_MESSAGE.SET_NAME('GMD','GMD_WRONG_VALUE');
4128: FND_MESSAGE.SET_TOKEN('WHAT', 'USER_ID');
4129: FND_MSG_PUB.ADD;
4130: RAISE FND_API.G_EXC_ERROR;
4131: ELSE
4132: OPEN c_who( p_user_id);
4135:
4136: IF (c_who%NOTFOUND)
4137: THEN
4138: CLOSE c_who;
4139: FND_MESSAGE.SET_NAME('GMD','GMD_NOTFOUND');
4140: FND_MESSAGE.SET_TOKEN('WHAT', 'USER_ID');
4141: FND_MESSAGE.SET_TOKEN('VALUE', p_user_id);
4142: FND_MSG_PUB.ADD;
4143: RAISE FND_API.G_EXC_ERROR;
4136: IF (c_who%NOTFOUND)
4137: THEN
4138: CLOSE c_who;
4139: FND_MESSAGE.SET_NAME('GMD','GMD_NOTFOUND');
4140: FND_MESSAGE.SET_TOKEN('WHAT', 'USER_ID');
4141: FND_MESSAGE.SET_TOKEN('VALUE', p_user_id);
4142: FND_MSG_PUB.ADD;
4143: RAISE FND_API.G_EXC_ERROR;
4144: END IF;
4137: THEN
4138: CLOSE c_who;
4139: FND_MESSAGE.SET_NAME('GMD','GMD_NOTFOUND');
4140: FND_MESSAGE.SET_TOKEN('WHAT', 'USER_ID');
4141: FND_MESSAGE.SET_TOKEN('VALUE', p_user_id);
4142: FND_MSG_PUB.ADD;
4143: RAISE FND_API.G_EXC_ERROR;
4144: END IF;
4145: CLOSE c_who;
4203: INTO dummy;
4204: IF (c_coa_type%NOTFOUND)
4205: THEN
4206: CLOSE c_coa_type;
4207: FND_MESSAGE.Set_Name('GMD','GMD_NOTFOUND');
4208: FND_MESSAGE.Set_Token('WHAT', 'COA_TYPE');
4209: FND_MESSAGE.Set_Token('VALUE', p_coa_type);
4210: FND_MSG_PUB.Add;
4211: RAISE FND_API.G_EXC_ERROR;
4204: IF (c_coa_type%NOTFOUND)
4205: THEN
4206: CLOSE c_coa_type;
4207: FND_MESSAGE.Set_Name('GMD','GMD_NOTFOUND');
4208: FND_MESSAGE.Set_Token('WHAT', 'COA_TYPE');
4209: FND_MESSAGE.Set_Token('VALUE', p_coa_type);
4210: FND_MSG_PUB.Add;
4211: RAISE FND_API.G_EXC_ERROR;
4212: END IF;
4205: THEN
4206: CLOSE c_coa_type;
4207: FND_MESSAGE.Set_Name('GMD','GMD_NOTFOUND');
4208: FND_MESSAGE.Set_Token('WHAT', 'COA_TYPE');
4209: FND_MESSAGE.Set_Token('VALUE', p_coa_type);
4210: FND_MSG_PUB.Add;
4211: RAISE FND_API.G_EXC_ERROR;
4212: END IF;
4213: CLOSE c_coa_type;
4476: FETCH c_lot_status INTO dummy;
4477: IF (c_lot_status%NOTFOUND)
4478: THEN
4479: CLOSE c_lot_status;
4480: FND_MESSAGE.SET_NAME('GMD','GMD_NOTFOUND');
4481: FND_MESSAGE.SET_TOKEN('WHAT', 'IN_SPEC_LOT_STATUS_ID');
4482: FND_MESSAGE.SET_TOKEN('VALUE', p_in_spec_lot_status_id);
4483: FND_MSG_PUB.ADD;
4484: RAISE FND_API.G_EXC_ERROR;
4477: IF (c_lot_status%NOTFOUND)
4478: THEN
4479: CLOSE c_lot_status;
4480: FND_MESSAGE.SET_NAME('GMD','GMD_NOTFOUND');
4481: FND_MESSAGE.SET_TOKEN('WHAT', 'IN_SPEC_LOT_STATUS_ID');
4482: FND_MESSAGE.SET_TOKEN('VALUE', p_in_spec_lot_status_id);
4483: FND_MSG_PUB.ADD;
4484: RAISE FND_API.G_EXC_ERROR;
4485: END IF;
4478: THEN
4479: CLOSE c_lot_status;
4480: FND_MESSAGE.SET_NAME('GMD','GMD_NOTFOUND');
4481: FND_MESSAGE.SET_TOKEN('WHAT', 'IN_SPEC_LOT_STATUS_ID');
4482: FND_MESSAGE.SET_TOKEN('VALUE', p_in_spec_lot_status_id);
4483: FND_MSG_PUB.ADD;
4484: RAISE FND_API.G_EXC_ERROR;
4485: END IF;
4486: CLOSE c_lot_status;
4496: FETCH c_lot_status INTO dummy;
4497: IF (c_lot_status%NOTFOUND)
4498: THEN
4499: CLOSE c_lot_status;
4500: FND_MESSAGE.SET_NAME('GMD','GMD_NOTFOUND');
4501: FND_MESSAGE.SET_TOKEN('WHAT', 'OUT_OF_SPEC_LOT_STATUS_ID');
4502: FND_MESSAGE.SET_TOKEN('VALUE', p_out_of_spec_lot_status_id);
4503: FND_MSG_PUB.ADD;
4504: RAISE FND_API.G_EXC_ERROR;
4497: IF (c_lot_status%NOTFOUND)
4498: THEN
4499: CLOSE c_lot_status;
4500: FND_MESSAGE.SET_NAME('GMD','GMD_NOTFOUND');
4501: FND_MESSAGE.SET_TOKEN('WHAT', 'OUT_OF_SPEC_LOT_STATUS_ID');
4502: FND_MESSAGE.SET_TOKEN('VALUE', p_out_of_spec_lot_status_id);
4503: FND_MSG_PUB.ADD;
4504: RAISE FND_API.G_EXC_ERROR;
4505: END IF;
4498: THEN
4499: CLOSE c_lot_status;
4500: FND_MESSAGE.SET_NAME('GMD','GMD_NOTFOUND');
4501: FND_MESSAGE.SET_TOKEN('WHAT', 'OUT_OF_SPEC_LOT_STATUS_ID');
4502: FND_MESSAGE.SET_TOKEN('VALUE', p_out_of_spec_lot_status_id);
4503: FND_MSG_PUB.ADD;
4504: RAISE FND_API.G_EXC_ERROR;
4505: END IF;
4506: CLOSE c_lot_status;