[Home] [Help]
61: PROCEDURE debug_message(p_message IN VARCHAR2)
62: IS
63: BEGIN
64: IF (OZF_DEBUG_HIGH_ON) THEN
65: ozf_utility_pvt.debug_message(p_message);
66: END IF;
67: END debug_message;
68:
69:
109:
110: IF p_validation_mode = JTF_PLSQL_API.g_create
111: AND p_vo_disc_rec.offer_discount_line_id IS NOT NULL
112: THEN
113: IF OZF_Utility_PVT.check_uniqueness('ozf_offer_discount_lines','offer_discount_line_id = ''' || p_vo_disc_rec.offer_discount_line_id ||'''') = FND_API.g_false THEN
114: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_DISC_LINE_ID_DUP');
115: x_return_status := FND_API.g_ret_sts_error;
116: END IF;
117: END IF;
110: IF p_validation_mode = JTF_PLSQL_API.g_create
111: AND p_vo_disc_rec.offer_discount_line_id IS NOT NULL
112: THEN
113: IF OZF_Utility_PVT.check_uniqueness('ozf_offer_discount_lines','offer_discount_line_id = ''' || p_vo_disc_rec.offer_discount_line_id ||'''') = FND_API.g_false THEN
114: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_DISC_LINE_ID_DUP');
115: x_return_status := FND_API.g_ret_sts_error;
116: END IF;
117: END IF;
118:
118:
119: IF p_validation_mode = JTF_PLSQL_API.g_create
120: AND p_vo_disc_rec.offr_disc_struct_name_id IS NOT NULL
121: THEN
122: IF OZF_Utility_PVT.check_uniqueness('ozf_offr_disc_struct_name_b','OFFR_DISC_STRUCT_NAME_ID = ''' || p_vo_disc_rec.offr_disc_struct_name_id ||'''') = FND_API.g_false THEN
123: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_DISC_NAME_ID_DUP');
124: x_return_status := FND_API.g_ret_sts_error;
125: END IF;
126: END IF;
119: IF p_validation_mode = JTF_PLSQL_API.g_create
120: AND p_vo_disc_rec.offr_disc_struct_name_id IS NOT NULL
121: THEN
122: IF OZF_Utility_PVT.check_uniqueness('ozf_offr_disc_struct_name_b','OFFR_DISC_STRUCT_NAME_ID = ''' || p_vo_disc_rec.offr_disc_struct_name_id ||'''') = FND_API.g_false THEN
123: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_DISC_NAME_ID_DUP');
124: x_return_status := FND_API.g_ret_sts_error;
125: END IF;
126: END IF;
127:
132: FETCH c_name INTO l_name;
133: If ( c_name%NOTFOUND) THEN
134: NULL;
135: ELSE
136: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_DISC_NAME_DUP');
137: x_return_status := FND_API.g_ret_sts_error;
138: END IF;
139: END IF;
140:
187:
188: x_return_status := FND_API.g_ret_sts_success;
189: -- volume type required
190: IF p_vo_disc_rec.volume_type = FND_API.G_MISS_CHAR OR p_vo_disc_rec.volume_type IS NULL THEN
191: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', OZF_UTILITY_PVT.getAttributeName(p_attributeCode => 'OZF_TIERS_BY') );
192: x_return_status := FND_API.g_ret_sts_error;
193: END IF;
194: -- volume_break_type required
195: IF p_vo_disc_rec.volume_break_type = FND_API.G_MISS_CHAR OR p_vo_disc_rec.volume_break_type IS NULL THEN
192: x_return_status := FND_API.g_ret_sts_error;
193: END IF;
194: -- volume_break_type required
195: IF p_vo_disc_rec.volume_break_type = FND_API.G_MISS_CHAR OR p_vo_disc_rec.volume_break_type IS NULL THEN
196: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'VOLUME_BREAK_TYPE' );
197: x_return_status := FND_API.g_ret_sts_error;
198: END IF;
199: -- discount type required
200: IF p_vo_disc_rec.discount_type = FND_API.G_MISS_CHAR OR p_vo_disc_rec.discount_type IS NULL THEN
197: x_return_status := FND_API.g_ret_sts_error;
198: END IF;
199: -- discount type required
200: IF p_vo_disc_rec.discount_type = FND_API.G_MISS_CHAR OR p_vo_disc_rec.discount_type IS NULL THEN
201: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', OZF_UTILITY_PVT.getAttributeName(p_attributeCode => 'OZF_DISCOUNT_BY') );
202: x_return_status := FND_API.g_ret_sts_error;
203: END IF;
204:
205:
203: END IF;
204:
205:
206: IF p_vo_disc_rec.name = FND_API.G_MISS_CHAR OR p_vo_disc_rec.name IS NULL THEN
207: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', OZF_UTILITY_PVT.getAttributeName(p_attributeCode => 'OZF_OFFER_DISC_TBL_NAME') );
208: x_return_status := FND_API.g_ret_sts_error;
209: END IF;
210:
211: -- get volume_type for the discount line
226:
227: -- if volume_type = quantity (PRICING_ATTRIBUTE10) UOM CODE is required
228: IF l_volume_type = 'PRICING_ATTRIBUTE10' THEN
229: IF p_vo_disc_rec.uom_code = FND_API.G_MISS_CHAR OR p_vo_disc_rec.uom_code IS NULL THEN
230: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', OZF_UTILITY_PVT.getAttributeName(p_attributeCode => 'OZF_UOM') );
231: x_return_status := FND_API.g_ret_sts_error;
232: END IF;
233: END IF;
234:
273: BEGIN
274: --initialize
275: OZF_Offer_Adj_Line_PVT.debug_message('Private API: ' || l_api_name || 'start');
276: x_return_status := FND_API.g_ret_sts_success;
277: l_discStr := OZF_UTILITY_PVT.getAttributeName(p_attributeCode => 'OZF_DISCOUNT' );
278: l_discStr := l_discStr || ' ' || OZF_UTILITY_PVT.getAttributeName(p_attributeCode =>'IEC_ALG_OR' , p_applicationId => 545) ;
279: l_discStr := l_discStr || ' '|| OZF_UTILITY_PVT.getAttributeName(p_attributeCode => 'OZF_FORMULA');
280:
281: IF p_validation_mode = jtf_plsql_api.g_create THEN
274: --initialize
275: OZF_Offer_Adj_Line_PVT.debug_message('Private API: ' || l_api_name || 'start');
276: x_return_status := FND_API.g_ret_sts_success;
277: l_discStr := OZF_UTILITY_PVT.getAttributeName(p_attributeCode => 'OZF_DISCOUNT' );
278: l_discStr := l_discStr || ' ' || OZF_UTILITY_PVT.getAttributeName(p_attributeCode =>'IEC_ALG_OR' , p_applicationId => 545) ;
279: l_discStr := l_discStr || ' '|| OZF_UTILITY_PVT.getAttributeName(p_attributeCode => 'OZF_FORMULA');
280:
281: IF p_validation_mode = jtf_plsql_api.g_create THEN
282: --parent discount line id is required
275: OZF_Offer_Adj_Line_PVT.debug_message('Private API: ' || l_api_name || 'start');
276: x_return_status := FND_API.g_ret_sts_success;
277: l_discStr := OZF_UTILITY_PVT.getAttributeName(p_attributeCode => 'OZF_DISCOUNT' );
278: l_discStr := l_discStr || ' ' || OZF_UTILITY_PVT.getAttributeName(p_attributeCode =>'IEC_ALG_OR' , p_applicationId => 545) ;
279: l_discStr := l_discStr || ' '|| OZF_UTILITY_PVT.getAttributeName(p_attributeCode => 'OZF_FORMULA');
280:
281: IF p_validation_mode = jtf_plsql_api.g_create THEN
282: --parent discount line id is required
283: IF p_vo_disc_rec.parent_discount_line_id = FND_API.G_MISS_NUM OR p_vo_disc_rec.parent_discount_line_id IS NULL THEN
280:
281: IF p_validation_mode = jtf_plsql_api.g_create THEN
282: --parent discount line id is required
283: IF p_vo_disc_rec.parent_discount_line_id = FND_API.G_MISS_NUM OR p_vo_disc_rec.parent_discount_line_id IS NULL THEN
284: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'PARENT_DISCOUNT_LINE_ID' );
285: x_return_status := FND_API.g_ret_sts_error;
286: return;
287: END IF;
288: -- volume_from is required
286: return;
287: END IF;
288: -- volume_from is required
289: IF p_vo_disc_rec.VOLUME_FROM = FND_API.G_MISS_NUM OR p_vo_disc_rec.VOLUME_FROM IS NULL THEN
290: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', OZF_UTILITY_PVT.getAttributeName(p_attributeCode =>'OZF_FROM') );
291: x_return_status := FND_API.g_ret_sts_error;
292: return;
293: END IF;
294: -- volume_to is required
292: return;
293: END IF;
294: -- volume_to is required
295: IF p_vo_disc_rec.volume_to = FND_API.G_MISS_NUM OR p_vo_disc_rec.volume_to IS NULL THEN
296: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', OZF_UTILITY_PVT.getAttributeName(p_attributeCode =>'OZF_SCREEN_TO') );
297: x_return_status := FND_API.g_ret_sts_error;
298: return;
299: END IF;
300: --volume_operator is required
298: return;
299: END IF;
300: --volume_operator is required
301: IF p_vo_disc_rec.volume_operator = FND_API.G_MISS_CHAR OR p_vo_disc_rec.volume_operator IS NULL THEN
302: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'VOLUME_OPERATOR' );
303: x_return_status := FND_API.g_ret_sts_error;
304: RETURN;
305: END IF;
306: -- formula_id or discount are required. Both cannot be null
307: IF (p_vo_disc_rec.discount = FND_API.G_MISS_NUM OR p_vo_disc_rec.discount IS NULL)
308: AND
309: (p_vo_disc_rec.formula_id = FND_API.G_MISS_NUM OR p_vo_disc_rec.formula_id IS NULL)
310: THEN
311: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD'
312: , l_discStr
313: );
314: x_return_status := FND_API.g_ret_sts_error;
315: return;
315: return;
316: END IF;
317: ELSE
318: IF p_vo_disc_rec.offer_discount_line_id = FND_API.G_MISS_NUM THEN
319: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD','MISS_FIELD','OFFER_DISCOUNT_LINE_ID');
320: x_return_status := FND_API.g_ret_sts_error;
321: return;
322: END IF;
323: IF p_vo_disc_rec.object_version_number = FND_API.G_MISS_NUM THEN
320: x_return_status := FND_API.g_ret_sts_error;
321: return;
322: END IF;
323: IF p_vo_disc_rec.object_version_number = FND_API.G_MISS_NUM THEN
324: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD','MISS_FIELD','object_version_number');
325: x_return_status := FND_API.g_ret_sts_error;
326: return;
327: END IF;
328:
326: return;
327: END IF;
328:
329: IF p_vo_disc_rec.parent_discount_line_id = FND_API.G_MISS_NUM THEN
330: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'PARENT_DISCOUNT_LINE_ID' );
331: x_return_status := FND_API.g_ret_sts_error;
332: return;
333: END IF;
334: -- volume_from is required
332: return;
333: END IF;
334: -- volume_from is required
335: IF p_vo_disc_rec.VOLUME_FROM = FND_API.G_MISS_NUM THEN
336: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', OZF_UTILITY_PVT.getAttributeName(p_attributeCode =>'OZF_FROM') );
337: x_return_status := FND_API.g_ret_sts_error;
338: return;
339: END IF;
340: -- volume_to is required
338: return;
339: END IF;
340: -- volume_to is required
341: IF p_vo_disc_rec.volume_to = FND_API.G_MISS_NUM THEN
342: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', OZF_UTILITY_PVT.getAttributeName(p_attributeCode =>'OZF_SCREEN_TO') );
343: x_return_status := FND_API.g_ret_sts_error;
344: return;
345: END IF;
346: --volume_operator is required
344: return;
345: END IF;
346: --volume_operator is required
347: IF p_vo_disc_rec.volume_operator = FND_API.G_MISS_CHAR THEN
348: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'VOLUME_OPERATOR' );
349: x_return_status := FND_API.g_ret_sts_error;
350: RETURN;
351: END IF;
352: -- formula_id or discount are required. Both cannot be null
353: IF (p_vo_disc_rec.discount = FND_API.G_MISS_NUM )
354: AND
355: (p_vo_disc_rec.formula_id = FND_API.G_MISS_NUM )
356: THEN
357: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD'
358: , l_discStr
359: );
360: x_return_status := FND_API.g_ret_sts_error;
361: return;
363:
364: END IF;
365:
366: IF p_vo_disc_rec.offer_discount_line_id = -1 THEN
367: OZF_Utility_PVT.Error_Message('OZF_DIS_LINE_NO_PARENT' );
368: x_return_status := FND_API.g_ret_sts_error;
369: return;
370: END IF;
371:
521: -- check required items
522: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
523: /*
524: IF p_vo_disc_rec.offer_discount_line_id = FND_API.G_MISS_NUM OR p_vo_disc_rec.offer_discount_line_id IS NULL THEN
525: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'OFFER_DISCOUNT_LINE_ID' );
526: x_return_status := FND_API.g_ret_sts_error;
527: return;
528: END IF;
529: */
527: return;
528: END IF;
529: */
530: IF p_vo_disc_rec.offer_id = FND_API.G_MISS_NUM OR p_vo_disc_rec.offer_id IS NULL THEN
531: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'OFFER_ID' );
532: x_return_status := FND_API.g_ret_sts_error;
533: return;
534: END IF;
535:
537:
538: ELSE
539:
540: IF p_vo_disc_rec.offer_discount_line_id = FND_API.G_MISS_NUM THEN
541: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'OFFER_DISCOUNT_LINE_ID' );
542: x_return_status := FND_API.g_ret_sts_error;
543: return;
544: END IF;
545:
543: return;
544: END IF;
545:
546: IF p_vo_disc_rec.offer_id = FND_API.G_MISS_NUM THEN
547: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'OFFER_ID' );
548: x_return_status := FND_API.g_ret_sts_error;
549: return;
550: END IF;
551:
605: -- Enter custom code here
606:
607: IF p_vo_disc_rec.offer_id IS NOT NULL AND p_vo_disc_rec.offer_id <> FND_API.G_MISS_NUM
608: THEN
609: IF ozf_utility_pvt.check_fk_exists('OZF_OFFERS','OFFER_ID',to_char(p_vo_disc_rec.offer_id)) = FND_API.g_false THEN
610: OZF_Utility_PVT.Error_Message('OZF_INVALID_OFFER_ID' );
611: x_return_status := FND_API.g_ret_sts_error;
612: return;
613: END IF;
606:
607: IF p_vo_disc_rec.offer_id IS NOT NULL AND p_vo_disc_rec.offer_id <> FND_API.G_MISS_NUM
608: THEN
609: IF ozf_utility_pvt.check_fk_exists('OZF_OFFERS','OFFER_ID',to_char(p_vo_disc_rec.offer_id)) = FND_API.g_false THEN
610: OZF_Utility_PVT.Error_Message('OZF_INVALID_OFFER_ID' );
611: x_return_status := FND_API.g_ret_sts_error;
612: return;
613: END IF;
614: END IF;
615:
616: IF p_vo_disc_rec.parent_discount_line_id IS NOT NULL AND p_vo_disc_rec.PARENT_DISCOUNT_LINE_ID <> FND_API.G_MISS_NUM
617: THEN
618: OZF_Offer_Adj_Line_PVT.debug_message('Parent Id is :'||p_vo_disc_rec.parent_discount_line_id);
619: IF ozf_utility_pvt.check_fk_exists('OZF_OFFER_DISCOUNT_LINES','OFFER_DISCOUNT_LINE_ID',to_char(p_vo_disc_rec.parent_discount_line_id)) = FND_API.g_false THEN
620: OZF_Utility_PVT.Error_Message('OZF_INVALID_PARENT_ID' );
621: x_return_status := FND_API.g_ret_sts_error;
622: return;
623: END IF;
616: IF p_vo_disc_rec.parent_discount_line_id IS NOT NULL AND p_vo_disc_rec.PARENT_DISCOUNT_LINE_ID <> FND_API.G_MISS_NUM
617: THEN
618: OZF_Offer_Adj_Line_PVT.debug_message('Parent Id is :'||p_vo_disc_rec.parent_discount_line_id);
619: IF ozf_utility_pvt.check_fk_exists('OZF_OFFER_DISCOUNT_LINES','OFFER_DISCOUNT_LINE_ID',to_char(p_vo_disc_rec.parent_discount_line_id)) = FND_API.g_false THEN
620: OZF_Utility_PVT.Error_Message('OZF_INVALID_PARENT_ID' );
621: x_return_status := FND_API.g_ret_sts_error;
622: return;
623: END IF;
624: END IF;
624: END IF;
625:
626: IF p_vo_disc_rec.formula_id IS NOT NULL AND p_vo_disc_rec.formula_id <> FND_API.G_MISS_NUM
627: THEN
628: IF ozf_utility_pvt.check_fk_exists('QP_PRICE_FORMULAS_B','PRICE_FORMULA_ID',to_char(p_vo_disc_rec.formula_id)) = FND_API.g_false THEN
629: OZF_Utility_PVT.Error_Message('OZF_INVALID_FORMULA' );
630: x_return_status := FND_API.g_ret_sts_error;
631: return;
632: END IF;
625:
626: IF p_vo_disc_rec.formula_id IS NOT NULL AND p_vo_disc_rec.formula_id <> FND_API.G_MISS_NUM
627: THEN
628: IF ozf_utility_pvt.check_fk_exists('QP_PRICE_FORMULAS_B','PRICE_FORMULA_ID',to_char(p_vo_disc_rec.formula_id)) = FND_API.g_false THEN
629: OZF_Utility_PVT.Error_Message('OZF_INVALID_FORMULA' );
630: x_return_status := FND_API.g_ret_sts_error;
631: return;
632: END IF;
633: END IF;
633: END IF;
634:
635: IF p_vo_disc_rec.uom_code IS NOT NULL AND p_vo_disc_rec.uom_code <> FND_API.G_MISS_CHAR
636: THEN
637: IF ozf_utility_pvt.check_fk_exists('MTL_UNITS_OF_MEASURE','UOM_CODE',to_char(p_vo_disc_rec.uom_code)) = FND_API.g_false THEN
638: OZF_Utility_PVT.Error_Message('OZF_INVALID_UOM' );
639: x_return_status := FND_API.g_ret_sts_error;
640: return;
641: END IF;
634:
635: IF p_vo_disc_rec.uom_code IS NOT NULL AND p_vo_disc_rec.uom_code <> FND_API.G_MISS_CHAR
636: THEN
637: IF ozf_utility_pvt.check_fk_exists('MTL_UNITS_OF_MEASURE','UOM_CODE',to_char(p_vo_disc_rec.uom_code)) = FND_API.g_false THEN
638: OZF_Utility_PVT.Error_Message('OZF_INVALID_UOM' );
639: x_return_status := FND_API.g_ret_sts_error;
640: return;
641: END IF;
642: END IF;
680: x_return_status := FND_API.g_ret_sts_success;
681:
682: IF p_vo_disc_rec.volume_type IS NOT NULL AND p_vo_disc_rec.volume_type <> FND_API.G_MISS_CHAR
683: THEN
684: IF OZF_UTILITY_PVT.check_lookup_exists('OZF_LOOKUPS', 'OZF_QP_VOLUME_TYPE', p_vo_disc_rec.volume_type) = FND_API.g_false THEN
685: OZF_Utility_PVT.Error_Message('OZF_INVALID_VOLUME_TYPE' );
686: x_return_status := FND_API.g_ret_sts_error;
687: return;
688: END IF;
681:
682: IF p_vo_disc_rec.volume_type IS NOT NULL AND p_vo_disc_rec.volume_type <> FND_API.G_MISS_CHAR
683: THEN
684: IF OZF_UTILITY_PVT.check_lookup_exists('OZF_LOOKUPS', 'OZF_QP_VOLUME_TYPE', p_vo_disc_rec.volume_type) = FND_API.g_false THEN
685: OZF_Utility_PVT.Error_Message('OZF_INVALID_VOLUME_TYPE' );
686: x_return_status := FND_API.g_ret_sts_error;
687: return;
688: END IF;
689: END IF;
689: END IF;
690:
691: IF p_vo_disc_rec.discount_type IS NOT NULL AND p_vo_disc_rec.discount_type <> FND_API.G_MISS_CHAR
692: THEN
693: IF OZF_UTILITY_PVT.check_lookup_exists('QP_LOOKUPS', 'ARITHMETIC_OPERATOR', p_vo_disc_rec.discount_type) = FND_API.g_false THEN
694: OZF_Utility_PVT.Error_Message('OZF_INVALID_DISCOUNT_TYPE' );
695: x_return_status := FND_API.g_ret_sts_error;
696: return;
697: END IF;
690:
691: IF p_vo_disc_rec.discount_type IS NOT NULL AND p_vo_disc_rec.discount_type <> FND_API.G_MISS_CHAR
692: THEN
693: IF OZF_UTILITY_PVT.check_lookup_exists('QP_LOOKUPS', 'ARITHMETIC_OPERATOR', p_vo_disc_rec.discount_type) = FND_API.g_false THEN
694: OZF_Utility_PVT.Error_Message('OZF_INVALID_DISCOUNT_TYPE' );
695: x_return_status := FND_API.g_ret_sts_error;
696: return;
697: END IF;
698: END IF;
699:
700:
701: IF p_vo_disc_rec.volume_operator IS NOT NULL AND p_vo_disc_rec.volume_operator <> FND_API.G_MISS_CHAR
702: THEN
703: IF OZF_UTILITY_PVT.check_lookup_exists('QP_LOOKUPS', 'COMPARISON_OPERATOR', p_vo_disc_rec.volume_operator) = FND_API.g_false THEN
704: OZF_Utility_PVT.Error_Message('OZF_INVALID_OPERATOR' );
705: x_return_status := FND_API.g_ret_sts_error;
706: return;
707: END IF;
700:
701: IF p_vo_disc_rec.volume_operator IS NOT NULL AND p_vo_disc_rec.volume_operator <> FND_API.G_MISS_CHAR
702: THEN
703: IF OZF_UTILITY_PVT.check_lookup_exists('QP_LOOKUPS', 'COMPARISON_OPERATOR', p_vo_disc_rec.volume_operator) = FND_API.g_false THEN
704: OZF_Utility_PVT.Error_Message('OZF_INVALID_OPERATOR' );
705: x_return_status := FND_API.g_ret_sts_error;
706: return;
707: END IF;
708: END IF;
708: END IF;
709:
710: IF p_vo_disc_rec.volume_break_type IS NOT NULL AND p_vo_disc_rec.volume_break_type <> FND_API.G_MISS_CHAR
711: THEN
712: IF OZF_UTILITY_PVT.check_lookup_exists('QP_LOOKUPS', 'PRICE_BREAK_TYPE_CODE', p_vo_disc_rec.volume_break_type) = FND_API.g_false THEN
713: OZF_Utility_PVT.Error_Message('OZF_INVALID_BREAK_TYPE' );
714: x_return_status := FND_API.g_ret_sts_error;
715: return;
716: END IF;
709:
710: IF p_vo_disc_rec.volume_break_type IS NOT NULL AND p_vo_disc_rec.volume_break_type <> FND_API.G_MISS_CHAR
711: THEN
712: IF OZF_UTILITY_PVT.check_lookup_exists('QP_LOOKUPS', 'PRICE_BREAK_TYPE_CODE', p_vo_disc_rec.volume_break_type) = FND_API.g_false THEN
713: OZF_Utility_PVT.Error_Message('OZF_INVALID_BREAK_TYPE' );
714: x_return_status := FND_API.g_ret_sts_error;
715: return;
716: END IF;
717: END IF;
717: END IF;
718:
719: IF p_vo_disc_rec.tier_type IS NOT NULL AND p_vo_disc_rec.tier_type <> FND_API.G_MISS_CHAR
720: THEN
721: IF OZF_UTILITY_PVT.check_lookup_exists('OZF_LOOKUPS', 'OZF_OFFER_TIER_TYPE', p_vo_disc_rec.tier_type) = FND_API.g_false THEN
722: OZF_Utility_PVT.Error_Message('OZF_INVALID_TIER_TYPE' );
723: x_return_status := FND_API.g_ret_sts_error;
724: return;
725: END IF;
718:
719: IF p_vo_disc_rec.tier_type IS NOT NULL AND p_vo_disc_rec.tier_type <> FND_API.G_MISS_CHAR
720: THEN
721: IF OZF_UTILITY_PVT.check_lookup_exists('OZF_LOOKUPS', 'OZF_OFFER_TIER_TYPE', p_vo_disc_rec.tier_type) = FND_API.g_false THEN
722: OZF_Utility_PVT.Error_Message('OZF_INVALID_TIER_TYPE' );
723: x_return_status := FND_API.g_ret_sts_error;
724: return;
725: END IF;
726: END IF;
761: BEGIN
762: x_return_status := FND_API.G_RET_STS_SUCCESS;
763: IF p_vo_disc_rec.volume_from IS NOT NULL AND p_vo_disc_rec.volume_from <> FND_API.G_MISS_NUM THEN
764: IF p_vo_disc_rec.volume_from < 0 THEN
765: OZF_Utility_PVT.Error_Message('OZF_NEGATIVE_QTY' );
766: x_return_status := FND_API.g_ret_sts_error;
767: return;
768: END IF;
769: END IF;
768: END IF;
769: END IF;
770: IF p_vo_disc_rec.volume_to IS NOT NULL AND p_vo_disc_rec.volume_to <> FND_API.G_MISS_NUM THEN
771: IF p_vo_disc_rec.volume_to < 0 THEN
772: OZF_Utility_PVT.Error_Message('OZF_NEGATIVE_QTY' );
773: x_return_status := FND_API.g_ret_sts_error;
774: return;
775: END IF;
776: END IF;
774: return;
775: END IF;
776: END IF;
777: IF p_vo_disc_rec.parent_discount_line_id = -1 THEN
778: OZF_Utility_PVT.Error_Message('OZF_DIS_LINE_NO_PARENT' );
779: x_return_status := FND_API.g_ret_sts_error;
780: return;
781: END IF;
782: END check_vo_discounts_attr;
818: AND
819: (p_vo_disc_rec.volume_to IS NOT NULL AND p_vo_disc_rec.volume_to <> FND_API.G_MISS_NUM )
820: THEN
821: IF p_vo_disc_rec.volume_to < p_vo_disc_rec.volume_from THEN
822: OZF_Utility_PVT.Error_Message('OZF_FROM_GT_TO' );
823: x_return_status := FND_API.g_ret_sts_error;
824: return;
825: END IF;
826: END IF;
969: THEN
970: IF
971: (p_vo_disc_rec.tier_type = 'PBH' AND p_vo_disc_rec.discount_type <> '%' )
972: THEN
973: OZF_Utility_PVT.error_message('OZF_OFFR_OPT_CURR_PCNT');
974: x_return_status := FND_API.G_RET_STS_ERROR;
975: RAISE FND_API.g_exc_error;
976: END IF;
977: END IF;
1011: BEGIN
1012: x_return_status := FND_API.G_RET_STS_SUCCESS;
1013: OZF_Offer_Adj_Line_PVT.debug_message('uom is ' || p_vo_disc_rec.uom_code);
1014: IF p_vo_disc_rec.uom_code IS NOT NULL AND p_vo_disc_rec.uom_code <> fnd_api.g_miss_char AND p_vo_disc_rec.volume_type <> 'PRICING_ATTRIBUTE10' THEN
1015: OZF_Utility_PVT.Error_Message('OZF_VO_UOM_INV' );
1016: x_return_status := FND_API.g_ret_sts_error;
1017: RETURN;
1018: END IF;
1019:
1022: WHERE OFFER_DISCOUNT_LINE_ID = p_vo_disc_rec.parent_discount_line_id;
1023: OZF_Offer_Adj_Line_PVT.debug_message('Discount is :'||p_vo_disc_rec.discount);
1024: IF p_vo_disc_rec.discount IS NOT NULL AND p_vo_disc_rec.discount <> FND_API.G_MISS_NUM THEN
1025: IF l_discount_type ='%' AND p_vo_disc_rec.discount > 100 THEN
1026: OZF_Utility_PVT.Error_Message('OZF_PER_DISC_INV' );
1027: x_return_status := FND_API.g_ret_sts_error;
1028: return;
1029: END IF;
1030: END IF;
1035: AND
1036: (p_vo_disc_rec.volume_to IS NOT NULL AND p_vo_disc_rec.volume_to <> FND_API.G_MISS_NUM )
1037: THEN
1038: IF p_vo_disc_rec.volume_to < p_vo_disc_rec.volume_from THEN
1039: OZF_Utility_PVT.Error_Message('OZF_FROM_GT_TO' );
1040: x_return_status := FND_API.g_ret_sts_error;
1041: return;
1042: END IF;
1043: END IF;
1056: , p_vo_disc_rec.offer_id
1057: , p_vo_disc_rec.parent_discount_line_id
1058: , p_vo_disc_rec.offer_discount_line_id
1059: ) = 'Y' THEN
1060: OZF_Utility_PVT.Error_Message('OZF_VO_INVALID_TIERS' );
1061: x_return_status := FND_API.g_ret_sts_error;
1062: return;
1063: END IF;
1064: */
1067: , p_vo_disc_rec.volume_to
1068: , p_vo_disc_rec.offer_id
1069: , p_vo_disc_rec.parent_discount_line_id
1070: ) = 'Y' THEN
1071: OZF_Utility_PVT.Error_Message('OZF_VO_DISCNT_TIERS' );
1072: x_return_status := FND_API.g_ret_sts_error;
1073: return;
1074: END IF;
1075: */
1478: p_data => x_msg_data
1479: );
1480: EXCEPTION
1481:
1482: WHEN OZF_Utility_PVT.resource_locked THEN
1483: x_return_status := FND_API.g_ret_sts_error;
1484: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
1485:
1486: WHEN FND_API.G_EXC_ERROR THEN
1480: EXCEPTION
1481:
1482: WHEN OZF_Utility_PVT.resource_locked THEN
1483: x_return_status := FND_API.g_ret_sts_error;
1484: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
1485:
1486: WHEN FND_API.G_EXC_ERROR THEN
1487: ROLLBACK TO Validate_vo_discounts_pvt;
1488: x_return_status := FND_API.G_RET_STS_ERROR;
1662: p_data => x_msg_data
1663: );
1664: EXCEPTION
1665:
1666: WHEN OZF_Utility_PVT.resource_locked THEN
1667: x_return_status := FND_API.g_ret_sts_error;
1668: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
1669:
1670: WHEN FND_API.G_EXC_ERROR THEN
1664: EXCEPTION
1665:
1666: WHEN OZF_Utility_PVT.resource_locked THEN
1667: x_return_status := FND_API.g_ret_sts_error;
1668: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
1669:
1670: WHEN FND_API.G_EXC_ERROR THEN
1671: ROLLBACK TO Delete_vo_discount_PVT;
1672: x_return_status := FND_API.G_RET_STS_ERROR;
1806: -- =========================================================================
1807:
1808: IF FND_GLOBAL.USER_ID IS NULL
1809: THEN
1810: OZF_Utility_PVT.Error_Message(p_message_name => 'USER_PROFILE_MISSING');
1811: RAISE FND_API.G_EXC_ERROR;
1812: END IF;
1813: OZF_Offer_Adj_Line_PVT.debug_message('OfferDiscountLineId is : '||p_discount_line_id);
1814:
1815:
1816: OPEN c_get_vo_disc_line( p_vo_disc_rec.offer_discount_line_id,p_vo_disc_rec.object_version_number);
1817: FETCH c_get_vo_disc_line INTO l_get_vo_disc_line ;
1818: If ( c_get_vo_disc_line%NOTFOUND) THEN
1819: OZF_Utility_PVT.Error_Message(p_message_name => 'API_MISSING_UPDATE_TARGET'
1820: , p_token_name => 'INFO'
1821: , p_token_value => 'DISCOUNT LINE') ;
1822: RAISE FND_API.G_EXC_ERROR;
1823: END IF;
1824: CLOSE c_get_vo_disc_line;
1825:
1826: If (p_vo_disc_rec.object_version_number is NULL or
1827: p_vo_disc_rec.object_version_number = FND_API.G_MISS_NUM ) Then
1828: OZF_Utility_PVT.Error_Message(p_message_name => 'API_VERSION_MISSING'
1829: , p_token_name => 'COLUMN'
1830: , p_token_value => 'Last_Update_Date') ;
1831: RAISE FND_API.G_EXC_ERROR;
1832: End if;
1831: RAISE FND_API.G_EXC_ERROR;
1832: End if;
1833: -- Check Whether record has been changed by someone else
1834: If (p_vo_disc_rec.object_version_number <> l_get_vo_disc_line.object_version_number) Then
1835: OZF_Utility_PVT.Error_Message(p_message_name => 'API_RECORD_CHANGED'
1836: , p_token_name => 'INFO'
1837: , p_token_value => 'DISCOUNT LINE') ;
1838: RAISE FND_API.G_EXC_ERROR;
1839: End if;
2050: -- =========================================================================
2051:
2052: IF FND_GLOBAL.USER_ID IS NULL
2053: THEN
2054: OZF_Utility_PVT.Error_Message(p_message_name => 'USER_PROFILE_MISSING');
2055: RAISE FND_API.G_EXC_ERROR;
2056: END IF;
2057:
2058: l_vo_discount_rec := p_vo_disc_rec;
2333: OZF_Offer_Adj_Line_PVT.debug_message('INputs : '|| l_tar_vo_disc_line_rec.offer_discount_line_id || ' : ' || l_tar_vo_disc_line_rec.object_version_number);
2334: OPEN c_get_vo_disc_line( l_tar_vo_disc_line_rec.offer_discount_line_id,l_tar_vo_disc_line_rec.object_version_number);
2335: FETCH c_get_vo_disc_line INTO l_ref_vo_disc_line_rec ;
2336: If ( c_get_vo_disc_line%NOTFOUND) THEN
2337: OZF_Utility_PVT.Error_Message(p_message_name => 'API_MISSING_UPDATE_TARGET'
2338: , p_token_name => 'INFO'
2339: , p_token_value => 'Ozf_Disc_Line') ;
2340: RAISE FND_API.G_EXC_ERROR;
2341: END IF;
2342: CLOSE c_get_vo_disc_line;
2343:
2344: If (l_tar_vo_disc_line_rec.object_version_number is NULL or
2345: l_tar_vo_disc_line_rec.object_version_number = FND_API.G_MISS_NUM ) Then
2346: OZF_Utility_PVT.Error_Message(p_message_name => 'API_VERSION_MISSING'
2347: , p_token_name => 'COLUMN'
2348: , p_token_value => 'Last_Update_Date') ;
2349: RAISE FND_API.G_EXC_ERROR;
2350: End if;
2349: RAISE FND_API.G_EXC_ERROR;
2350: End if;
2351: -- Check Whether record has been changed by someone else
2352: If (l_tar_vo_disc_line_rec.object_version_number <> l_ref_vo_disc_line_rec.object_version_number) Then
2353: OZF_Utility_PVT.Error_Message(p_message_name => 'API_RECORD_CHANGED'
2354: , p_token_name => 'INFO'
2355: , p_token_value => 'Ozf_Disc_Line') ;
2356: RAISE FND_API.G_EXC_ERROR;
2357: End if;
2460: );
2461: -- exception handling
2462: EXCEPTION
2463:
2464: WHEN OZF_Utility_PVT.resource_locked THEN
2465: x_return_status := FND_API.g_ret_sts_error;
2466: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
2467:
2468: WHEN FND_API.G_EXC_ERROR THEN
2462: EXCEPTION
2463:
2464: WHEN OZF_Utility_PVT.resource_locked THEN
2465: x_return_status := FND_API.g_ret_sts_error;
2466: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
2467:
2468: WHEN FND_API.G_EXC_ERROR THEN
2469: ROLLBACK TO UPDATE_Ozf_Disc_Line_PVT;
2470: x_return_status := FND_API.G_RET_STS_ERROR;
2540: x_return_status := FND_API.g_ret_sts_success;
2541: IF p_validation_mode = JTF_PLSQL_API.g_create
2542: AND (p_vo_prod_rec.off_discount_product_id IS NOT NULL AND p_vo_prod_rec.off_discount_product_id <> FND_API.g_miss_num)
2543: THEN
2544: l_valid_flag := OZF_Utility_PVT.check_uniqueness(
2545: 'ozf_offer_discount_products',
2546: 'OFF_DISCOUNT_PRODUCT_ID = ''' || p_vo_prod_rec.off_discount_product_id ||''''
2547: );
2548: OZF_Offer_Adj_Line_PVT.debug_message('Off Discount Product Id is '||p_vo_prod_rec.off_discount_product_id);
2546: 'OFF_DISCOUNT_PRODUCT_ID = ''' || p_vo_prod_rec.off_discount_product_id ||''''
2547: );
2548: OZF_Offer_Adj_Line_PVT.debug_message('Off Discount Product Id is '||p_vo_prod_rec.off_discount_product_id);
2549: IF l_valid_flag = FND_API.g_false THEN
2550: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_PROD_LINE_ID_DUP');
2551: x_return_status := FND_API.g_ret_sts_error;
2552: return;
2553: END IF;
2554: END IF;
2558: l_attr2 varchar2(500):= ''' AND apply_discount_flag = '''||p_vo_prod_rec.apply_discount_flag || ''' AND offer_id = '|| p_vo_prod_rec.offer_id;
2559: begin
2560: IF (p_vo_prod_rec.product_attr_value IS NOT NULL AND p_vo_prod_rec.product_attr_value <> FND_API.g_miss_char) THEN
2561:
2562: l_valid_flag := OZF_Utility_PVT.check_uniqueness(
2563: 'ozf_offer_discount_products',
2564: l_attr || l_attr2
2565: );
2566: OZF_Offer_Adj_Line_PVT.debug_message('Valid Flag for duplicate products is:'||l_valid_flag);
2564: l_attr || l_attr2
2565: );
2566: OZF_Offer_Adj_Line_PVT.debug_message('Valid Flag for duplicate products is:'||l_valid_flag);
2567: IF l_valid_flag = FND_API.g_false THEN
2568: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_VO_PROD_DUP');
2569: x_return_status := FND_API.g_ret_sts_error;
2570: return;
2571: END IF;
2572:
2614: OZF_Offer_Adj_Line_PVT.debug_message('Validation Mode is : ' || p_validation_mode || ' '|| JTF_PLSQL_API.g_create);
2615: x_return_status := FND_API.g_ret_sts_success;
2616: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
2617: IF p_vo_prod_rec.off_discount_product_id = FND_API.G_MISS_NUM OR p_vo_prod_rec.off_discount_product_id IS NULL THEN
2618: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'off_discount_product_id' );
2619: x_return_status := FND_API.g_ret_sts_error;
2620: return;
2621: END IF;
2622:
2620: return;
2621: END IF;
2622:
2623: IF p_vo_prod_rec.offer_discount_line_id = FND_API.G_MISS_NUM OR p_vo_prod_rec.offer_discount_line_id IS NULL THEN
2624: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'OFFER_DISCOUNT_LINE_ID' );
2625: x_return_status := FND_API.g_ret_sts_error;
2626: return;
2627: END IF;
2628:
2626: return;
2627: END IF;
2628:
2629: IF p_vo_prod_rec.offer_id = FND_API.G_MISS_NUM OR p_vo_prod_rec.offer_id IS NULL THEN
2630: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'OFFER_ID' );
2631: x_return_status := FND_API.g_ret_sts_error;
2632: return;
2633: END IF;
2634:
2632: return;
2633: END IF;
2634:
2635: IF p_vo_prod_rec.product_context = FND_API.G_MISS_CHAR OR p_vo_prod_rec.product_context IS NULL THEN
2636: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'PRODUCT_CONTEXT' );
2637: x_return_status := FND_API.g_ret_sts_error;
2638: return;
2639: END IF;
2640:
2638: return;
2639: END IF;
2640:
2641: IF p_vo_prod_rec.product_attr_value = FND_API.G_MISS_CHAR OR p_vo_prod_rec.product_attr_value IS NULL THEN
2642: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', OZF_UTILITY_PVT.getAttributeName(p_attributeCode => 'OZF_NAME') );
2643: x_return_status := FND_API.g_ret_sts_error;
2644: return;
2645: END IF;
2646:
2644: return;
2645: END IF;
2646:
2647: IF p_vo_prod_rec.product_attribute = FND_API.G_MISS_CHAR OR p_vo_prod_rec.product_attribute IS NULL THEN
2648: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', OZF_UTILITY_PVT.getAttributeName(p_attributeCode => 'OZF_PROD_LEVEL') );
2649: x_return_status := FND_API.g_ret_sts_error;
2650: return;
2651: END IF;
2652:
2650: return;
2651: END IF;
2652:
2653: IF p_vo_prod_rec.apply_discount_flag = FND_API.G_MISS_CHAR OR p_vo_prod_rec.apply_discount_flag IS NULL THEN
2654: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', OZF_UTILITY_PVT.getAttributeName(p_attributeCode => 'OZF_OFFR_APPLY_DISC') );
2655: x_return_status := FND_API.g_ret_sts_error;
2656: return;
2657: END IF;
2658:
2656: return;
2657: END IF;
2658:
2659: IF p_vo_prod_rec.include_volume_flag = FND_API.G_MISS_CHAR OR p_vo_prod_rec.include_volume_flag IS NULL THEN
2660: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', OZF_UTILITY_PVT.getAttributeName(p_attributeCode => 'OZF_OFFR_INCL_VOL') );
2661: x_return_status := FND_API.g_ret_sts_error;
2662: return;
2663: END IF;
2664:
2664:
2665: ELSE
2666: OZF_Offer_Adj_Line_PVT.debug_message('In Update Mode');
2667: IF p_vo_prod_rec.off_discount_product_id = FND_API.G_MISS_NUM THEN
2668: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'off_discount_product_id' );
2669: x_return_status := FND_API.g_ret_sts_error;
2670: return;
2671: END IF;
2672:
2670: return;
2671: END IF;
2672:
2673: IF p_vo_prod_rec.offer_discount_line_id = FND_API.G_MISS_NUM THEN
2674: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'OFFER_DISCOUNT_LINE_ID' );
2675: x_return_status := FND_API.g_ret_sts_error;
2676: return;
2677: END IF;
2678: OZF_Offer_Adj_Line_PVT.debug_message('OFFER_ID IS '||p_vo_prod_rec.offer_id);
2676: return;
2677: END IF;
2678: OZF_Offer_Adj_Line_PVT.debug_message('OFFER_ID IS '||p_vo_prod_rec.offer_id);
2679: IF p_vo_prod_rec.offer_id = FND_API.G_MISS_NUM THEN
2680: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'OFFER_ID' );
2681: x_return_status := FND_API.g_ret_sts_error;
2682: return;
2683: END IF;
2684:
2684:
2685: END IF;
2686:
2687: IF p_vo_prod_rec.offer_discount_line_id = -1 THEN
2688: OZF_Utility_PVT.Error_Message('OZF_DIS_LINE_NO_PARENT' );
2689: x_return_status := FND_API.g_ret_sts_error;
2690: return;
2691: END IF;
2692:
2728: OZF_Offer_Adj_Line_PVT.debug_message('Private API: ' || l_api_name || 'start');
2729: x_return_status := FND_API.G_RET_STS_SUCCESS;
2730: IF p_vo_prod_rec.offer_id IS NOT NULL AND p_vo_prod_rec.offer_id <> FND_API.G_MISS_NUM
2731: THEN
2732: IF ozf_utility_pvt.check_fk_exists('OZF_OFFERS','OFFER_ID',to_char(p_vo_prod_rec.offer_id)) = FND_API.g_false THEN
2733: OZF_Utility_PVT.Error_Message('OZF_INVALID_OFFER_ID' );
2734: x_return_status := FND_API.g_ret_sts_error;
2735: return;
2736: END IF;
2729: x_return_status := FND_API.G_RET_STS_SUCCESS;
2730: IF p_vo_prod_rec.offer_id IS NOT NULL AND p_vo_prod_rec.offer_id <> FND_API.G_MISS_NUM
2731: THEN
2732: IF ozf_utility_pvt.check_fk_exists('OZF_OFFERS','OFFER_ID',to_char(p_vo_prod_rec.offer_id)) = FND_API.g_false THEN
2733: OZF_Utility_PVT.Error_Message('OZF_INVALID_OFFER_ID' );
2734: x_return_status := FND_API.g_ret_sts_error;
2735: return;
2736: END IF;
2737: END IF;
2737: END IF;
2738: OZF_Offer_Adj_Line_PVT.debug_message('Offer Discount LIne Id is: ' || p_vo_prod_rec.offer_discount_line_id || 'end');
2739: IF p_vo_prod_rec.offer_discount_line_id IS NOT NULL AND p_vo_prod_rec.offer_discount_line_id <> FND_API.G_MISS_NUM
2740: THEN
2741: IF ozf_utility_pvt.check_fk_exists('OZF_OFFER_DISCOUNT_LINES','OFFER_DISCOUNT_LINE_ID',to_char(p_vo_prod_rec.offer_discount_line_id)) = FND_API.g_false THEN
2742: OZF_Utility_PVT.Error_Message('OZF_INVALID_DISCOUNT_ID' );
2743: x_return_status := FND_API.g_ret_sts_error;
2744: return;
2745: END IF;
2738: OZF_Offer_Adj_Line_PVT.debug_message('Offer Discount LIne Id is: ' || p_vo_prod_rec.offer_discount_line_id || 'end');
2739: IF p_vo_prod_rec.offer_discount_line_id IS NOT NULL AND p_vo_prod_rec.offer_discount_line_id <> FND_API.G_MISS_NUM
2740: THEN
2741: IF ozf_utility_pvt.check_fk_exists('OZF_OFFER_DISCOUNT_LINES','OFFER_DISCOUNT_LINE_ID',to_char(p_vo_prod_rec.offer_discount_line_id)) = FND_API.g_false THEN
2742: OZF_Utility_PVT.Error_Message('OZF_INVALID_DISCOUNT_ID' );
2743: x_return_status := FND_API.g_ret_sts_error;
2744: return;
2745: END IF;
2746: END IF;
2812:
2813: FETCH c_uom_code INTO l_uom_code;
2814:
2815: IF ( c_uom_code%NOTFOUND) THEN
2816: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_INVALID_DISCOUNT_ID') ;
2817: x_return_status := FND_API.G_RET_STS_ERROR;
2818: END IF;
2819:
2820: CLOSE c_uom_code;
3264: p_data => x_msg_data
3265: );
3266: EXCEPTION
3267:
3268: WHEN OZF_Utility_PVT.resource_locked THEN
3269: x_return_status := FND_API.g_ret_sts_error;
3270: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
3271:
3272: WHEN FND_API.G_EXC_ERROR THEN
3266: EXCEPTION
3267:
3268: WHEN OZF_Utility_PVT.resource_locked THEN
3269: x_return_status := FND_API.g_ret_sts_error;
3270: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
3271:
3272: WHEN FND_API.G_EXC_ERROR THEN
3273: ROLLBACK TO Validate_vo_products_pvt;
3274: x_return_status := FND_API.G_RET_STS_ERROR;
3397: -- =========================================================================
3398:
3399: IF FND_GLOBAL.USER_ID IS NULL
3400: THEN
3401: OZF_Utility_PVT.Error_Message(p_message_name => 'USER_PROFILE_MISSING');
3402: RAISE FND_API.G_EXC_ERROR;
3403: END IF;
3404:
3405: l_vo_prod_rec := p_vo_prod_rec;
3595: OZF_Offer_Adj_Line_PVT.debug_message('Private API: - Open Cursor to Select');
3596: OPEN c_get_vo_prod_line( l_tar_vo_prod_rec.OFF_DISCOUNT_PRODUCT_ID,l_tar_vo_prod_rec.object_version_number);
3597: FETCH c_get_vo_prod_line INTO l_ref_vo_prod_rec ;
3598: If ( c_get_vo_prod_line%NOTFOUND) THEN
3599: OZF_Utility_PVT.Error_Message(p_message_name => 'API_MISSING_UPDATE_TARGET'
3600: , p_token_name => 'INFO'
3601: , p_token_value => 'VO_PRODUCT_LINE') ;
3602: RAISE FND_API.G_EXC_ERROR;
3603: END IF;
3604: CLOSE c_get_vo_prod_line;
3605:
3606: If (l_tar_vo_prod_rec.object_version_number is NULL or
3607: l_tar_vo_prod_rec.object_version_number = FND_API.G_MISS_NUM ) Then
3608: OZF_Utility_PVT.Error_Message(p_message_name => 'API_VERSION_MISSING'
3609: , p_token_name => 'COLUMN'
3610: , p_token_value => 'Last_Update_Date') ;
3611: RAISE FND_API.G_EXC_ERROR;
3612: End if;
3611: RAISE FND_API.G_EXC_ERROR;
3612: End if;
3613: -- Check Whether record has been changed by someone else
3614: If (l_tar_vo_prod_rec.object_version_number <> l_ref_vo_prod_rec.object_version_number) Then
3615: OZF_Utility_PVT.Error_Message(p_message_name => 'API_RECORD_CHANGED'
3616: , p_token_name => 'INFO'
3617: , p_token_value => 'VO_PRODUCT_LINE') ;
3618: RAISE FND_API.G_EXC_ERROR;
3619: End if;
3678: );
3679: -- exception handling
3680: EXCEPTION
3681:
3682: WHEN OZF_Utility_PVT.resource_locked THEN
3683: x_return_status := FND_API.g_ret_sts_error;
3684: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
3685:
3686: WHEN FND_API.G_EXC_ERROR THEN
3680: EXCEPTION
3681:
3682: WHEN OZF_Utility_PVT.resource_locked THEN
3683: x_return_status := FND_API.g_ret_sts_error;
3684: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
3685:
3686: WHEN FND_API.G_EXC_ERROR THEN
3687: ROLLBACK TO update_vo_prod_pvt;
3688: x_return_status := FND_API.G_RET_STS_ERROR;
3817: p_data => x_msg_data
3818: );
3819: EXCEPTION
3820:
3821: WHEN OZF_Utility_PVT.resource_locked THEN
3822: x_return_status := FND_API.g_ret_sts_error;
3823: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
3824:
3825: WHEN FND_API.G_EXC_ERROR THEN
3819: EXCEPTION
3820:
3821: WHEN OZF_Utility_PVT.resource_locked THEN
3822: x_return_status := FND_API.g_ret_sts_error;
3823: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
3824:
3825: WHEN FND_API.G_EXC_ERROR THEN
3826: ROLLBACK TO Delete_vo_Product_PVT;
3827: x_return_status := FND_API.G_RET_STS_ERROR;