78: IF (l_cmp_tran_rec.trans_id <= 0)
79: THEN
80: FND_MESSAGE.SET_NAME('GMI','IC_API_UNABLE_TO_GET_SURROGATE');
81: FND_MESSAGE.SET_TOKEN('SKEY','trans_id');
82: FND_MSG_PUB.Add;
83: RAISE FND_API.G_EXC_ERROR;
84: END IF;
85: END IF;
86:
114: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
115: RETURN FALSE;
116:
117: WHEN OTHERS THEN
118: -- IF FND_MSG_PUB.check_msg_level
119: -- (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
120: -- THEN
121:
122: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
115: RETURN FALSE;
116:
117: WHEN OTHERS THEN
118: -- IF FND_MSG_PUB.check_msg_level
119: -- (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
120: -- THEN
121:
122: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
123: , 'Update_Quantity_Transaction'
118: -- IF FND_MSG_PUB.check_msg_level
119: -- (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
120: -- THEN
121:
122: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
123: , 'Update_Quantity_Transaction'
124: );
125: -- END IF;
126: RETURN FALSE;
187: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
188: RETURN FALSE;
189:
190: WHEN OTHERS THEN
191: -- IF FND_MSG_PUB.check_msg_level
192: -- (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
193: -- THEN
194: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
195: , 'Update_Movement'
188: RETURN FALSE;
189:
190: WHEN OTHERS THEN
191: -- IF FND_MSG_PUB.check_msg_level
192: -- (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
193: -- THEN
194: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
195: , 'Update_Movement'
196: );
190: WHEN OTHERS THEN
191: -- IF FND_MSG_PUB.check_msg_level
192: -- (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
193: -- THEN
194: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
195: , 'Update_Movement'
196: );
197: -- END IF;
198: RETURN FALSE;
252: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
253: RETURN FALSE;
254:
255: WHEN OTHERS THEN
256: -- IF FND_MSG_PUB.check_msg_level
257: -- (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
258: -- THEN
259: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
260: , 'Update_Lot_Status'
253: RETURN FALSE;
254:
255: WHEN OTHERS THEN
256: -- IF FND_MSG_PUB.check_msg_level
257: -- (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
258: -- THEN
259: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
260: , 'Update_Lot_Status'
261: );
255: WHEN OTHERS THEN
256: -- IF FND_MSG_PUB.check_msg_level
257: -- (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
258: -- THEN
259: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
260: , 'Update_Lot_Status'
261: );
262: -- END IF;
263: RETURN FALSE;
331: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
332: RETURN FALSE;
333:
334: WHEN OTHERS THEN
335: -- IF FND_MSG_PUB.check_msg_level
336: -- (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
337: -- THEN
338: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
339: , 'Update_Qc_Grade'
332: RETURN FALSE;
333:
334: WHEN OTHERS THEN
335: -- IF FND_MSG_PUB.check_msg_level
336: -- (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
337: -- THEN
338: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
339: , 'Update_Qc_Grade'
340: );
334: WHEN OTHERS THEN
335: -- IF FND_MSG_PUB.check_msg_level
336: -- (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
337: -- THEN
338: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
339: , 'Update_Qc_Grade'
340: );
341: -- END IF;
342: RETURN FALSE;
439: RETURN TRUE;
440:
441: EXCEPTION
442: WHEN OTHERS THEN
443: -- IF FND_MSG_PUB.check_msg_level
444: -- (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
445: -- THEN
446:
447: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
440:
441: EXCEPTION
442: WHEN OTHERS THEN
443: -- IF FND_MSG_PUB.check_msg_level
444: -- (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
445: -- THEN
446:
447: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
448: , 'insert_ic_tran_cmp'
443: -- IF FND_MSG_PUB.check_msg_level
444: -- (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
445: -- THEN
446:
447: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
448: , 'insert_ic_tran_cmp'
449: );
450: -- END IF;
451: RETURN FALSE;
548: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
549: RETURN FALSE;
550:
551: WHEN OTHERS THEN
552: -- IF FND_MSG_PUB.check_msg_level
553: -- (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
554: -- THEN
555: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
556: , 'Update_ic_loct_inv'
549: RETURN FALSE;
550:
551: WHEN OTHERS THEN
552: -- IF FND_MSG_PUB.check_msg_level
553: -- (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
554: -- THEN
555: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
556: , 'Update_ic_loct_inv'
557: );
551: WHEN OTHERS THEN
552: -- IF FND_MSG_PUB.check_msg_level
553: -- (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
554: -- THEN
555: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
556: , 'Update_ic_loct_inv'
557: );
558: -- END IF;
559: RETURN FALSE;
627: RETURN TRUE;
628:
629: EXCEPTION
630: WHEN OTHERS THEN
631: -- IF FND_MSG_PUB.check_msg_level
632: -- (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
633: -- THEN
634:
635: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
628:
629: EXCEPTION
630: WHEN OTHERS THEN
631: -- IF FND_MSG_PUB.check_msg_level
632: -- (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
633: -- THEN
634:
635: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
636: , 'insert_ic_loct_inv'
631: -- IF FND_MSG_PUB.check_msg_level
632: -- (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
633: -- THEN
634:
635: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
636: , 'insert_ic_loct_inv'
637: );
638: -- END IF;
639: RETURN FALSE;
752: IF (l_summ_inv_id <= 0)
753: THEN
754: FND_MESSAGE.SET_NAME('GMI','IC_API_UNABLE_TO_GET_SURROGATE');
755: FND_MESSAGE.SET_TOKEN('SKEY','summ_inv_id');
756: FND_MSG_PUB.Add;
757: RAISE FND_API.G_EXC_ERROR;
758: ELSE
759: INSERT INTO ic_summ_inv
760: ( summ_inv_id
851: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
852: RETURN FALSE;
853:
854: WHEN OTHERS THEN
855: -- IF FND_MSG_PUB.check_msg_level
856: -- (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
857: -- THEN
858: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
859: , 'Update_ic_summ_inv'
852: RETURN FALSE;
853:
854: WHEN OTHERS THEN
855: -- IF FND_MSG_PUB.check_msg_level
856: -- (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
857: -- THEN
858: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
859: , 'Update_ic_summ_inv'
860: );
854: WHEN OTHERS THEN
855: -- IF FND_MSG_PUB.check_msg_level
856: -- (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
857: -- THEN
858: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
859: , 'Update_ic_summ_inv'
860: );
861: -- END IF;
862: RETURN FALSE;
967: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
968: RETURN FALSE;
969:
970: WHEN OTHERS THEN
971: -- IF FND_MSG_PUB.check_msg_level
972: -- (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
973: -- THEN
974: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
975: , 'Update_ic_loct_inv_Lot_Status'
968: RETURN FALSE;
969:
970: WHEN OTHERS THEN
971: -- IF FND_MSG_PUB.check_msg_level
972: -- (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
973: -- THEN
974: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
975: , 'Update_ic_loct_inv_Lot_Status'
976: );
970: WHEN OTHERS THEN
971: -- IF FND_MSG_PUB.check_msg_level
972: -- (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
973: -- THEN
974: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
975: , 'Update_ic_loct_inv_Lot_Status'
976: );
977: -- END IF;
978: RETURN FALSE;
1076: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1077: RETURN FALSE;
1078:
1079: WHEN OTHERS THEN
1080: -- IF FND_MSG_PUB.check_msg_level
1081: -- (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1082: -- THEN
1083: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
1084: , 'Update_ic_summ_inv_Qc_Grade'
1077: RETURN FALSE;
1078:
1079: WHEN OTHERS THEN
1080: -- IF FND_MSG_PUB.check_msg_level
1081: -- (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1082: -- THEN
1083: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
1084: , 'Update_ic_summ_inv_Qc_Grade'
1085: );
1079: WHEN OTHERS THEN
1080: -- IF FND_MSG_PUB.check_msg_level
1081: -- (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1082: -- THEN
1083: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
1084: , 'Update_ic_summ_inv_Qc_Grade'
1085: );
1086: -- END IF;
1087: RETURN FALSE;