[Home] [Help]
94: END ;
95:
96: PROCEDURE Create_Act_Product
97: ( p_api_version IN NUMBER,
98: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
99: p_commit IN VARCHAR2 := FND_API.G_FALSE,
100: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
101: x_return_status OUT NOCOPY VARCHAR2,
102: x_msg_count OUT NOCOPY NUMBER,
95:
96: PROCEDURE Create_Act_Product
97: ( p_api_version IN NUMBER,
98: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
99: p_commit IN VARCHAR2 := FND_API.G_FALSE,
100: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
101: x_return_status OUT NOCOPY VARCHAR2,
102: x_msg_count OUT NOCOPY NUMBER,
103: x_msg_data OUT NOCOPY VARCHAR2,
96: PROCEDURE Create_Act_Product
97: ( p_api_version IN NUMBER,
98: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
99: p_commit IN VARCHAR2 := FND_API.G_FALSE,
100: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
101: x_return_status OUT NOCOPY VARCHAR2,
102: x_msg_count OUT NOCOPY NUMBER,
103: x_msg_data OUT NOCOPY VARCHAR2,
104: p_act_Product_rec IN act_Product_rec_type,
125: BEGIN
126: -- Standard Start of API savepoint
127: SAVEPOINT Create_Act_Product_PVT;
128: -- Standard call to check for call compatibility.
129: IF NOT FND_API.Compatible_API_Call ( l_api_version,
130: p_api_version,
131: l_api_name,
132: G_PACKAGE_NAME)
133: THEN
130: p_api_version,
131: l_api_name,
132: G_PACKAGE_NAME)
133: THEN
134: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
135: END IF;
136: -- Initialize message list IF p_init_msg_list is set to TRUE.
137: IF FND_API.to_Boolean( p_init_msg_list )
138: THEN
133: THEN
134: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
135: END IF;
136: -- Initialize message list IF p_init_msg_list is set to TRUE.
137: IF FND_API.to_Boolean( p_init_msg_list )
138: THEN
139: FND_MSG_PUB.initialize;
140: END IF;
141: -- Initialize API return status to success
138: THEN
139: FND_MSG_PUB.initialize;
140: END IF;
141: -- Initialize API return status to success
142: x_return_status := FND_API.G_RET_STS_SUCCESS;
143: --
144: -- API body
145: --
146: ----------------------- validate -----------------------
157: ,x_msg_data => x_msg_data
158: ,p_act_Product_rec => l_act_Product_rec
159: );
160: -- If any errors happen abort API.
161: IF l_return_status = FND_API.G_RET_STS_ERROR
162: THEN
163: RAISE FND_API.G_EXC_ERROR;
164: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
165: THEN
159: );
160: -- If any errors happen abort API.
161: IF l_return_status = FND_API.G_RET_STS_ERROR
162: THEN
163: RAISE FND_API.G_EXC_ERROR;
164: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
165: THEN
166: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
167: END IF;
160: -- If any errors happen abort API.
161: IF l_return_status = FND_API.G_RET_STS_ERROR
162: THEN
163: RAISE FND_API.G_EXC_ERROR;
164: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
165: THEN
166: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
167: END IF;
168: --------------- CHECK ACCESS FOR THE USER-------------------
162: THEN
163: RAISE FND_API.G_EXC_ERROR;
164: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
165: THEN
166: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
167: END IF;
168: --------------- CHECK ACCESS FOR THE USER-------------------
169: ----------added sugupta 07/25/2000
170: -- modified sugupta 09/05/2000 bug 1391106
193: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
194: FND_MESSAGE.set_name('AMS', 'AMS_EVO_NO_UPDATE_ACCESS'); --reusing message
195: FND_MSG_PUB.add;
196: END IF;
197: RAISE FND_API.g_exc_error;
198: end if;
199: END IF;
200: -------------------------------create---------------------------------
201: -- Get ID for activity product from sequence.
288: --l_act_Product_rec.security_group_id,
289: l_act_Product_rec.line_lumpsum_amount,
290: l_act_Product_rec.line_lumpsum_qty,
291: l_act_Product_rec.channel_id,
292: DECODE(l_act_Product_rec.uom_code, NULL, 'Ea', FND_API.G_MISS_CHAR, 'Ea', l_act_Product_rec.uom_code),
293: DECODE(l_act_Product_rec.quantity, NULL, 1, FND_API.G_MISS_NUM, 1, l_act_Product_rec.quantity),
294: l_act_Product_rec.scan_value,
295: l_act_Product_rec.scan_unit_forecast,
296: l_act_Product_rec.adjustment_flag);
289: l_act_Product_rec.line_lumpsum_amount,
290: l_act_Product_rec.line_lumpsum_qty,
291: l_act_Product_rec.channel_id,
292: DECODE(l_act_Product_rec.uom_code, NULL, 'Ea', FND_API.G_MISS_CHAR, 'Ea', l_act_Product_rec.uom_code),
293: DECODE(l_act_Product_rec.quantity, NULL, 1, FND_API.G_MISS_NUM, 1, l_act_Product_rec.quantity),
294: l_act_Product_rec.scan_value,
295: l_act_Product_rec.scan_unit_forecast,
296: l_act_Product_rec.adjustment_flag);
297: -- set OUT value
301: -- added by sugupta on 07/11/2000
302: -- indicate proiduct has been defined for the entity
303: AMS_ObjectAttribute_PVT.modify_object_attribute(
304: p_api_version => l_api_version,
305: p_init_msg_list => FND_API.g_false,
306: p_commit => FND_API.g_false,
307: p_validation_level => FND_API.g_valid_level_full,
308:
309: x_return_status => l_return_status,
302: -- indicate proiduct has been defined for the entity
303: AMS_ObjectAttribute_PVT.modify_object_attribute(
304: p_api_version => l_api_version,
305: p_init_msg_list => FND_API.g_false,
306: p_commit => FND_API.g_false,
307: p_validation_level => FND_API.g_valid_level_full,
308:
309: x_return_status => l_return_status,
310: x_msg_count => x_msg_count,
303: AMS_ObjectAttribute_PVT.modify_object_attribute(
304: p_api_version => l_api_version,
305: p_init_msg_list => FND_API.g_false,
306: p_commit => FND_API.g_false,
307: p_validation_level => FND_API.g_valid_level_full,
308:
309: x_return_status => l_return_status,
310: x_msg_count => x_msg_count,
311: x_msg_data => x_msg_data,
315: p_attr => 'PROD',
316: p_attr_defined_flag => 'Y'
317: );
318:
319: IF l_return_status = FND_API.g_ret_sts_error THEN
320: RAISE FND_API.g_exc_error;
321: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
322: RAISE FND_API.g_exc_unexpected_error;
323: END IF;
316: p_attr_defined_flag => 'Y'
317: );
318:
319: IF l_return_status = FND_API.g_ret_sts_error THEN
320: RAISE FND_API.g_exc_error;
321: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
322: RAISE FND_API.g_exc_unexpected_error;
323: END IF;
324: */
317: );
318:
319: IF l_return_status = FND_API.g_ret_sts_error THEN
320: RAISE FND_API.g_exc_error;
321: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
322: RAISE FND_API.g_exc_unexpected_error;
323: END IF;
324: */
325: --
318:
319: IF l_return_status = FND_API.g_ret_sts_error THEN
320: RAISE FND_API.g_exc_error;
321: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
322: RAISE FND_API.g_exc_unexpected_error;
323: END IF;
324: */
325: --
326: -- END of API body.
325: --
326: -- END of API body.
327: --
328: -- Standard check of p_commit.
329: IF FND_API.To_Boolean ( p_commit )
330: THEN
331: COMMIT WORK;
332: END IF;
333: -- Standard call to get message count AND IF count is 1, get message info.
333: -- Standard call to get message count AND IF count is 1, get message info.
334: FND_MSG_PUB.Count_AND_Get
335: ( p_count => x_msg_count,
336: p_data => x_msg_data,
337: p_encoded => FND_API.G_FALSE
338: );
339: EXCEPTION
340: WHEN FND_API.G_EXC_ERROR THEN
341: ROLLBACK TO Create_Act_Product_PVT;
336: p_data => x_msg_data,
337: p_encoded => FND_API.G_FALSE
338: );
339: EXCEPTION
340: WHEN FND_API.G_EXC_ERROR THEN
341: ROLLBACK TO Create_Act_Product_PVT;
342: x_return_status := FND_API.G_RET_STS_ERROR ;
343: FND_MSG_PUB.Count_AND_Get
344: ( p_count => x_msg_count,
338: );
339: EXCEPTION
340: WHEN FND_API.G_EXC_ERROR THEN
341: ROLLBACK TO Create_Act_Product_PVT;
342: x_return_status := FND_API.G_RET_STS_ERROR ;
343: FND_MSG_PUB.Count_AND_Get
344: ( p_count => x_msg_count,
345: p_data => x_msg_data,
346: p_encoded => FND_API.G_FALSE
342: x_return_status := FND_API.G_RET_STS_ERROR ;
343: FND_MSG_PUB.Count_AND_Get
344: ( p_count => x_msg_count,
345: p_data => x_msg_data,
346: p_encoded => FND_API.G_FALSE
347: );
348: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
349: ROLLBACK TO Create_Act_Product_PVT;
350: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
344: ( p_count => x_msg_count,
345: p_data => x_msg_data,
346: p_encoded => FND_API.G_FALSE
347: );
348: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
349: ROLLBACK TO Create_Act_Product_PVT;
350: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
351: FND_MSG_PUB.Count_AND_Get
352: ( p_count => x_msg_count,
346: p_encoded => FND_API.G_FALSE
347: );
348: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
349: ROLLBACK TO Create_Act_Product_PVT;
350: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
351: FND_MSG_PUB.Count_AND_Get
352: ( p_count => x_msg_count,
353: p_data => x_msg_data,
354: p_encoded => FND_API.G_FALSE
350: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
351: FND_MSG_PUB.Count_AND_Get
352: ( p_count => x_msg_count,
353: p_data => x_msg_data,
354: p_encoded => FND_API.G_FALSE
355: );
356: WHEN OTHERS THEN
357: IF (c_act_product_id%ISOPEN) THEN
358: CLOSE c_act_product_id;
357: IF (c_act_product_id%ISOPEN) THEN
358: CLOSE c_act_product_id;
359: END IF;
360: ROLLBACK TO Create_Act_Product_PVT;
361: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
362: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
363: THEN
364: FND_MSG_PUB.Add_Exc_Msg( G_PACKAGE_NAME,l_api_name);
365: END IF;
365: END IF;
366: FND_MSG_PUB.Count_AND_Get
367: ( p_count => x_msg_count,
368: p_data => x_msg_data,
369: p_encoded => FND_API.G_FALSE
370: );
371: END Create_Act_Product;
372: /*****************************************************************************************/
373: -- Start of Comments
382: -- 11/11/1999 rvaka created
383: -- End of Comments
384: PROCEDURE Update_Act_Product
385: ( p_api_version IN NUMBER,
386: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
387: p_commit IN VARCHAR2 := FND_API.G_FALSE,
388: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
389: x_return_status OUT NOCOPY VARCHAR2,
390: x_msg_count OUT NOCOPY NUMBER,
383: -- End of Comments
384: PROCEDURE Update_Act_Product
385: ( p_api_version IN NUMBER,
386: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
387: p_commit IN VARCHAR2 := FND_API.G_FALSE,
388: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
389: x_return_status OUT NOCOPY VARCHAR2,
390: x_msg_count OUT NOCOPY NUMBER,
391: x_msg_data OUT NOCOPY VARCHAR2,
384: PROCEDURE Update_Act_Product
385: ( p_api_version IN NUMBER,
386: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
387: p_commit IN VARCHAR2 := FND_API.G_FALSE,
388: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
389: x_return_status OUT NOCOPY VARCHAR2,
390: x_msg_count OUT NOCOPY NUMBER,
391: x_msg_data OUT NOCOPY VARCHAR2,
392: p_act_Product_rec IN act_Product_rec_type
408: BEGIN
409: -- Standard Start of API savepoint
410: SAVEPOINT Update_Act_Product_PVT;
411: -- Standard call to check for call compatibility.
412: IF NOT FND_API.Compatible_API_Call ( l_api_version,
413: p_api_version,
414: l_api_name,
415: G_PACKAGE_NAME)
416: THEN
413: p_api_version,
414: l_api_name,
415: G_PACKAGE_NAME)
416: THEN
417: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
418: END IF;
419: -- Initialize message list IF p_init_msg_list is set to TRUE.
420: IF FND_API.to_Boolean( p_init_msg_list ) THEN
421: FND_MSG_PUB.initialize;
416: THEN
417: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
418: END IF;
419: -- Initialize message list IF p_init_msg_list is set to TRUE.
420: IF FND_API.to_Boolean( p_init_msg_list ) THEN
421: FND_MSG_PUB.initialize;
422: END IF;
423: -- Initialize API return status to success
424: x_return_status := FND_API.G_RET_STS_SUCCESS;
420: IF FND_API.to_Boolean( p_init_msg_list ) THEN
421: FND_MSG_PUB.initialize;
422: END IF;
423: -- Initialize API return status to success
424: x_return_status := FND_API.G_RET_STS_SUCCESS;
425: --
426: -- API body
427: --
428: complete_act_Product_rec(
437: p_validation_mode => JTF_PLSQL_API.g_update,
438: x_return_status => l_return_status
439: );
440: -- If any errors happen abort API.
441: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
442: THEN
443: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
444: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
445: THEN
439: );
440: -- If any errors happen abort API.
441: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
442: THEN
443: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
444: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
445: THEN
446: RAISE FND_API.G_EXC_ERROR;
447: END IF;
440: -- If any errors happen abort API.
441: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
442: THEN
443: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
444: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
445: THEN
446: RAISE FND_API.G_EXC_ERROR;
447: END IF;
448: END IF;
442: THEN
443: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
444: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
445: THEN
446: RAISE FND_API.G_EXC_ERROR;
447: END IF;
448: END IF;
449:
450: --------------- CHECK ACCESS FOR THE USER-------------------
471: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
472: FND_MESSAGE.set_name('AMS', 'AMS_EVO_NO_UPDATE_ACCESS'); --reusing message
473: FND_MSG_PUB.add;
474: END IF;
475: RAISE FND_API.g_exc_error;
476: end if;
477: end if;
478: ---------------------------------update-----------------------------
479: -- Perform the database operation
514: --,security_group_id = l_act_product_rec.security_group_id
515: ,line_lumpsum_amount = l_act_product_rec.line_lumpsum_amount
516: ,line_lumpsum_qty = l_act_product_rec.line_lumpsum_qty
517: ,channel_id = l_act_Product_rec.channel_id
518: ,uom_code = DECODE(l_act_Product_rec.uom_code, NULL, 'Ea', FND_API.G_MISS_CHAR, 'Ea', l_act_Product_rec.uom_code)
519: ,quantity = DECODE(l_act_Product_rec.quantity, NULL, 1, FND_API.G_MISS_NUM, 1, l_act_Product_rec.quantity)
520: ,scan_value = l_act_Product_rec.scan_value
521: ,scan_unit_forecast = l_act_Product_rec.scan_unit_forecast
522: ,adjustment_flag = l_act_Product_rec.adjustment_flag
515: ,line_lumpsum_amount = l_act_product_rec.line_lumpsum_amount
516: ,line_lumpsum_qty = l_act_product_rec.line_lumpsum_qty
517: ,channel_id = l_act_Product_rec.channel_id
518: ,uom_code = DECODE(l_act_Product_rec.uom_code, NULL, 'Ea', FND_API.G_MISS_CHAR, 'Ea', l_act_Product_rec.uom_code)
519: ,quantity = DECODE(l_act_Product_rec.quantity, NULL, 1, FND_API.G_MISS_NUM, 1, l_act_Product_rec.quantity)
520: ,scan_value = l_act_Product_rec.scan_value
521: ,scan_unit_forecast = l_act_Product_rec.scan_unit_forecast
522: ,adjustment_flag = l_act_Product_rec.adjustment_flag
523: WHERE activity_product_id = l_act_Product_rec.activity_product_id
530: THEN -- MMSG
531: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
532: FND_MSG_PUB.Add;
533: END IF;
534: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
535: END IF;
536: --
537: -- END of API body.
538: --
536: --
537: -- END of API body.
538: --
539: -- Standard check of p_commit.
540: IF FND_API.To_Boolean ( p_commit )
541: THEN
542: COMMIT WORK;
543: END IF;
544: -- Standard call to get message count AND IF count is 1, get message info.
544: -- Standard call to get message count AND IF count is 1, get message info.
545: FND_MSG_PUB.Count_AND_Get
546: ( p_count => x_msg_count,
547: p_data => x_msg_data,
548: p_encoded => FND_API.G_FALSE
549: );
550: EXCEPTION
551: WHEN FND_API.G_EXC_ERROR THEN
552: ROLLBACK TO Update_Act_Product_PVT;
547: p_data => x_msg_data,
548: p_encoded => FND_API.G_FALSE
549: );
550: EXCEPTION
551: WHEN FND_API.G_EXC_ERROR THEN
552: ROLLBACK TO Update_Act_Product_PVT;
553: x_return_status := FND_API.G_RET_STS_ERROR ;
554: FND_MSG_PUB.Count_AND_Get
555: ( p_count => x_msg_count,
549: );
550: EXCEPTION
551: WHEN FND_API.G_EXC_ERROR THEN
552: ROLLBACK TO Update_Act_Product_PVT;
553: x_return_status := FND_API.G_RET_STS_ERROR ;
554: FND_MSG_PUB.Count_AND_Get
555: ( p_count => x_msg_count,
556: p_data => x_msg_data,
557: p_encoded => FND_API.G_FALSE
553: x_return_status := FND_API.G_RET_STS_ERROR ;
554: FND_MSG_PUB.Count_AND_Get
555: ( p_count => x_msg_count,
556: p_data => x_msg_data,
557: p_encoded => FND_API.G_FALSE
558: );
559: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
560: ROLLBACK TO Update_Act_Product_PVT;
561: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
555: ( p_count => x_msg_count,
556: p_data => x_msg_data,
557: p_encoded => FND_API.G_FALSE
558: );
559: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
560: ROLLBACK TO Update_Act_Product_PVT;
561: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
562: FND_MSG_PUB.Count_AND_Get
563: ( p_count => x_msg_count,
557: p_encoded => FND_API.G_FALSE
558: );
559: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
560: ROLLBACK TO Update_Act_Product_PVT;
561: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
562: FND_MSG_PUB.Count_AND_Get
563: ( p_count => x_msg_count,
564: p_data => x_msg_data,
565: p_encoded => FND_API.G_FALSE
561: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
562: FND_MSG_PUB.Count_AND_Get
563: ( p_count => x_msg_count,
564: p_data => x_msg_data,
565: p_encoded => FND_API.G_FALSE
566: );
567: WHEN OTHERS THEN
568: ROLLBACK TO Update_Act_Product_PVT;
569: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
565: p_encoded => FND_API.G_FALSE
566: );
567: WHEN OTHERS THEN
568: ROLLBACK TO Update_Act_Product_PVT;
569: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
570: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
571: THEN
572: FND_MSG_PUB.Add_Exc_Msg( G_PACKAGE_NAME,l_api_name);
573: END IF;
573: END IF;
574: FND_MSG_PUB.Count_AND_Get
575: ( p_count => x_msg_count,
576: p_data => x_msg_data,
577: p_encoded => FND_API.G_FALSE
578: );
579: END Update_Act_Product;
580: /*****************************************************************************************/
581: -- Start of Comments
590: -- 11/11/1999 rvaka created
591: -- End of Comments
592: PROCEDURE Delete_Act_Product
593: ( p_api_version IN NUMBER,
594: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
595: p_commit IN VARCHAR2 := FND_API.G_FALSE,
596: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
597: x_return_status OUT NOCOPY VARCHAR2,
598: x_msg_count OUT NOCOPY NUMBER,
591: -- End of Comments
592: PROCEDURE Delete_Act_Product
593: ( p_api_version IN NUMBER,
594: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
595: p_commit IN VARCHAR2 := FND_API.G_FALSE,
596: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
597: x_return_status OUT NOCOPY VARCHAR2,
598: x_msg_count OUT NOCOPY NUMBER,
599: x_msg_data OUT NOCOPY VARCHAR2,
592: PROCEDURE Delete_Act_Product
593: ( p_api_version IN NUMBER,
594: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
595: p_commit IN VARCHAR2 := FND_API.G_FALSE,
596: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
597: x_return_status OUT NOCOPY VARCHAR2,
598: x_msg_count OUT NOCOPY NUMBER,
599: x_msg_data OUT NOCOPY VARCHAR2,
600: p_act_product_id IN NUMBER,
640: BEGIN
641: -- Standard Start of API savepoint
642: SAVEPOINT Delete_Act_Product_PVT;
643: -- Standard call to check for call compatibility.
644: IF NOT FND_API.Compatible_API_Call ( l_api_version,
645: p_api_version,
646: l_api_name,
647: G_PACKAGE_NAME)
648: THEN
645: p_api_version,
646: l_api_name,
647: G_PACKAGE_NAME)
648: THEN
649: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
650: END IF;
651: -- Initialize message list IF p_init_msg_list is set to TRUE.
652: IF FND_API.to_Boolean( p_init_msg_list )
653: THEN
648: THEN
649: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
650: END IF;
651: -- Initialize message list IF p_init_msg_list is set to TRUE.
652: IF FND_API.to_Boolean( p_init_msg_list )
653: THEN
654: FND_MSG_PUB.initialize;
655: END IF;
656: -- Initialize API return status to success
653: THEN
654: FND_MSG_PUB.initialize;
655: END IF;
656: -- Initialize API return status to success
657: x_return_status := FND_API.G_RET_STS_SUCCESS;
658: --
659: -- API body
660: --
661: --------------- CHECK ACCESS FOR THE USER-------------------
682: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
683: FND_MESSAGE.set_name('AMS', 'AMS_EVO_NO_UPDATE_ACCESS'); --reusing message
684: FND_MSG_PUB.add;
685: END IF;
686: RAISE FND_API.g_exc_error;
687: end if;
688: */
689: -- End of commented part. GDEODHAR : Oct 06, 2000.
690: ---------------------delete-------------------------------------
705: THEN
706: FND_MESSAGE.set_name ('AMS', 'AMS_API_RECORD_NOT_FOUND');
707: FND_MSG_PUB.add;
708: END IF;
709: RAISE FND_API.G_EXC_ERROR;
710: END IF;
711:
712: /*
713: ----- Modify Object Attribute ---------------
722: -- and set attribute defined flag to N
723:
724: AMS_ObjectAttribute_PVT.modify_object_attribute(
725: p_api_version => l_api_version,
726: p_init_msg_list => FND_API.g_false,
727: p_commit => FND_API.g_false,
728: p_validation_level => FND_API.g_valid_level_full,
729:
730: x_return_status => x_return_status,
723:
724: AMS_ObjectAttribute_PVT.modify_object_attribute(
725: p_api_version => l_api_version,
726: p_init_msg_list => FND_API.g_false,
727: p_commit => FND_API.g_false,
728: p_validation_level => FND_API.g_valid_level_full,
729:
730: x_return_status => x_return_status,
731: x_msg_count => x_msg_count,
724: AMS_ObjectAttribute_PVT.modify_object_attribute(
725: p_api_version => l_api_version,
726: p_init_msg_list => FND_API.g_false,
727: p_commit => FND_API.g_false,
728: p_validation_level => FND_API.g_valid_level_full,
729:
730: x_return_status => x_return_status,
731: x_msg_count => x_msg_count,
732: x_msg_data => x_msg_data,
735: p_object_id => l_object_id,
736: p_attr => 'PROD',
737: p_attr_defined_flag => 'N'
738: );
739: IF x_return_status = FND_API.g_ret_sts_error THEN
740: RAISE FND_API.g_exc_error;
741: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
742: RAISE FND_API.g_exc_unexpected_error;
743: END IF;
736: p_attr => 'PROD',
737: p_attr_defined_flag => 'N'
738: );
739: IF x_return_status = FND_API.g_ret_sts_error THEN
740: RAISE FND_API.g_exc_error;
741: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
742: RAISE FND_API.g_exc_unexpected_error;
743: END IF;
744:
737: p_attr_defined_flag => 'N'
738: );
739: IF x_return_status = FND_API.g_ret_sts_error THEN
740: RAISE FND_API.g_exc_error;
741: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
742: RAISE FND_API.g_exc_unexpected_error;
743: END IF;
744:
745: end if;
738: );
739: IF x_return_status = FND_API.g_ret_sts_error THEN
740: RAISE FND_API.g_exc_error;
741: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
742: RAISE FND_API.g_exc_unexpected_error;
743: END IF;
744:
745: end if;
746:
750: --
751: -- END of API body.
752: --
753: -- Standard check of p_commit.
754: IF FND_API.To_Boolean ( p_commit )
755: THEN
756: COMMIT WORK;
757: END IF;
758: -- Standard call to get message count AND IF count is 1, get message info.
758: -- Standard call to get message count AND IF count is 1, get message info.
759: FND_MSG_PUB.Count_AND_Get
760: ( p_count => x_msg_count,
761: p_data => x_msg_data,
762: p_encoded => FND_API.G_FALSE
763: );
764: EXCEPTION
765: WHEN FND_API.G_EXC_ERROR THEN
766: ROLLBACK TO Delete_Act_Product_PVT;
761: p_data => x_msg_data,
762: p_encoded => FND_API.G_FALSE
763: );
764: EXCEPTION
765: WHEN FND_API.G_EXC_ERROR THEN
766: ROLLBACK TO Delete_Act_Product_PVT;
767: x_return_status := FND_API.G_RET_STS_ERROR ;
768: FND_MSG_PUB.Count_AND_Get
769: ( p_count => x_msg_count,
763: );
764: EXCEPTION
765: WHEN FND_API.G_EXC_ERROR THEN
766: ROLLBACK TO Delete_Act_Product_PVT;
767: x_return_status := FND_API.G_RET_STS_ERROR ;
768: FND_MSG_PUB.Count_AND_Get
769: ( p_count => x_msg_count,
770: p_data => x_msg_data,
771: p_encoded => FND_API.G_FALSE
767: x_return_status := FND_API.G_RET_STS_ERROR ;
768: FND_MSG_PUB.Count_AND_Get
769: ( p_count => x_msg_count,
770: p_data => x_msg_data,
771: p_encoded => FND_API.G_FALSE
772: );
773: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
774: ROLLBACK TO Delete_Act_Product_PVT;
775: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
769: ( p_count => x_msg_count,
770: p_data => x_msg_data,
771: p_encoded => FND_API.G_FALSE
772: );
773: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
774: ROLLBACK TO Delete_Act_Product_PVT;
775: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
776: FND_MSG_PUB.Count_AND_Get
777: ( p_count => x_msg_count,
771: p_encoded => FND_API.G_FALSE
772: );
773: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
774: ROLLBACK TO Delete_Act_Product_PVT;
775: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
776: FND_MSG_PUB.Count_AND_Get
777: ( p_count => x_msg_count,
778: p_data => x_msg_data,
779: p_encoded => FND_API.G_FALSE
775: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
776: FND_MSG_PUB.Count_AND_Get
777: ( p_count => x_msg_count,
778: p_data => x_msg_data,
779: p_encoded => FND_API.G_FALSE
780: );
781: WHEN OTHERS THEN
782: IF (get_association_info%ISOPEN) THEN
783: CLOSE get_association_info;
785: IF (get_count%ISOPEN) THEN
786: CLOSE get_count;
787: END IF;
788: ROLLBACK TO Delete_Act_Product_PVT;
789: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
790: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
791: THEN
792: FND_MSG_PUB.Add_Exc_Msg( G_PACKAGE_NAME,l_api_name);
793: END IF;
793: END IF;
794: FND_MSG_PUB.Count_AND_Get
795: ( p_count => x_msg_count,
796: p_data => x_msg_data,
797: p_encoded => FND_API.G_FALSE
798: );
799: END Delete_Act_Product;
800: /*****************************************************************************************/
801: -- Start of Comments
810: -- 11/11/1999 rvaka created
811: -- End of Comments
812: PROCEDURE Lock_Act_product
813: ( p_api_version IN NUMBER,
814: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
815: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
816: x_return_status OUT NOCOPY VARCHAR2,
817: x_msg_count OUT NOCOPY NUMBER,
818: x_msg_data OUT NOCOPY VARCHAR2,
811: -- End of Comments
812: PROCEDURE Lock_Act_product
813: ( p_api_version IN NUMBER,
814: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
815: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
816: x_return_status OUT NOCOPY VARCHAR2,
817: x_msg_count OUT NOCOPY NUMBER,
818: x_msg_data OUT NOCOPY VARCHAR2,
819: p_act_product_id IN NUMBER,
831: AND object_version_number = p_object_version
832: FOR UPDATE of activity_product_id NOWAIT;
833: BEGIN
834: -- Standard call to check for call compatibility.
835: IF NOT FND_API.Compatible_API_Call ( l_api_version,
836: p_api_version,
837: l_api_name,
838: G_PACKAGE_NAME)
839: THEN
836: p_api_version,
837: l_api_name,
838: G_PACKAGE_NAME)
839: THEN
840: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
841: END IF;
842: -- Initialize message list if p_init_msg_list is set to TRUE.
843: IF FND_API.to_Boolean( p_init_msg_list )
844: THEN
839: THEN
840: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
841: END IF;
842: -- Initialize message list if p_init_msg_list is set to TRUE.
843: IF FND_API.to_Boolean( p_init_msg_list )
844: THEN
845: FND_MSG_PUB.initialize;
846: END IF;
847: -- Initialize API return status to success
844: THEN
845: FND_MSG_PUB.initialize;
846: END IF;
847: -- Initialize API return status to success
848: x_return_status := FND_API.G_RET_STS_SUCCESS;
849: --
850: -- API body
851: --
852: -- Perform the database operation
860: THEN -- MMSG
861: FND_MESSAGE.Set_Name('AMS', 'AMS_API_RECORD_NOT_FOUND');
862: FND_MSG_PUB.Add;
863: END IF;
864: RAISE FND_API.G_EXC_ERROR;
865: END IF;
866: CLOSE c_act_product;
867: --
868: -- END of API body.
870: -- Standard call to get message count AND IF count is 1, get message info.
871: FND_MSG_PUB.Count_AND_Get
872: ( p_count => x_msg_count,
873: p_data => x_msg_data,
874: p_encoded => FND_API.G_FALSE
875: );
876: EXCEPTION
877: WHEN FND_API.G_EXC_ERROR THEN
878: x_return_status := FND_API.G_RET_STS_ERROR ;
873: p_data => x_msg_data,
874: p_encoded => FND_API.G_FALSE
875: );
876: EXCEPTION
877: WHEN FND_API.G_EXC_ERROR THEN
878: x_return_status := FND_API.G_RET_STS_ERROR ;
879: FND_MSG_PUB.Count_AND_Get
880: ( p_count => x_msg_count,
881: p_data => x_msg_data,
874: p_encoded => FND_API.G_FALSE
875: );
876: EXCEPTION
877: WHEN FND_API.G_EXC_ERROR THEN
878: x_return_status := FND_API.G_RET_STS_ERROR ;
879: FND_MSG_PUB.Count_AND_Get
880: ( p_count => x_msg_count,
881: p_data => x_msg_data,
882: p_encoded => FND_API.G_FALSE
878: x_return_status := FND_API.G_RET_STS_ERROR ;
879: FND_MSG_PUB.Count_AND_Get
880: ( p_count => x_msg_count,
881: p_data => x_msg_data,
882: p_encoded => FND_API.G_FALSE
883: );
884: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
885: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
886: FND_MSG_PUB.Count_AND_Get
880: ( p_count => x_msg_count,
881: p_data => x_msg_data,
882: p_encoded => FND_API.G_FALSE
883: );
884: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
885: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
886: FND_MSG_PUB.Count_AND_Get
887: ( p_count => x_msg_count,
888: p_data => x_msg_data,
881: p_data => x_msg_data,
882: p_encoded => FND_API.G_FALSE
883: );
884: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
885: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
886: FND_MSG_PUB.Count_AND_Get
887: ( p_count => x_msg_count,
888: p_data => x_msg_data,
889: p_encoded => FND_API.G_FALSE
885: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
886: FND_MSG_PUB.Count_AND_Get
887: ( p_count => x_msg_count,
888: p_data => x_msg_data,
889: p_encoded => FND_API.G_FALSE
890: );
891: WHEN AMS_Utility_PVT.resource_locked THEN
892: x_return_status := FND_API.g_ret_sts_error;
893: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
888: p_data => x_msg_data,
889: p_encoded => FND_API.G_FALSE
890: );
891: WHEN AMS_Utility_PVT.resource_locked THEN
892: x_return_status := FND_API.g_ret_sts_error;
893: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
894: FND_MESSAGE.set_name('AMS', 'AMS_API_RESOURCE_LOCKED');
895: FND_MSG_PUB.add;
896: END IF;
896: END IF;
897: FND_MSG_PUB.Count_AND_Get
898: ( p_count => x_msg_count,
899: p_data => x_msg_data,
900: p_encoded => FND_API.G_FALSE
901: );
902: WHEN OTHERS THEN
903: IF (c_act_product%ISOPEN) THEN
904: CLOSE c_act_product;
902: WHEN OTHERS THEN
903: IF (c_act_product%ISOPEN) THEN
904: CLOSE c_act_product;
905: END IF;
906: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
907: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
908: THEN
909: FND_MSG_PUB.Add_Exc_Msg( G_PACKAGE_NAME,l_api_name);
910: END IF;
910: END IF;
911: FND_MSG_PUB.Count_AND_Get
912: ( p_count => x_msg_count,
913: p_data => x_msg_data,
914: p_encoded => FND_API.G_FALSE
915: );
916: END Lock_Act_Product;
917: /*****************************************************************************************/
918: -- Start of Comments
927: -- 1/1/2000 rvaka created
928: -- End of Comments
929: PROCEDURE Validate_Act_Product
930: ( p_api_version IN NUMBER,
931: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
932: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
933: x_return_status OUT NOCOPY VARCHAR2,
934: x_msg_count OUT NOCOPY NUMBER,
935: x_msg_data OUT NOCOPY VARCHAR2,
928: -- End of Comments
929: PROCEDURE Validate_Act_Product
930: ( p_api_version IN NUMBER,
931: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
932: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
933: x_return_status OUT NOCOPY VARCHAR2,
934: x_msg_count OUT NOCOPY NUMBER,
935: x_msg_data OUT NOCOPY VARCHAR2,
936: p_act_Product_rec IN act_Product_rec_type
944: l_default_act_product_rec act_Product_rec_type;
945: l_act_product_id NUMBER;
946: BEGIN
947: -- Standard call to check for call compatibility.
948: IF NOT FND_API.Compatible_API_Call ( l_api_version,
949: p_api_version,
950: l_api_name,
951: G_PACKAGE_NAME)
952: THEN
949: p_api_version,
950: l_api_name,
951: G_PACKAGE_NAME)
952: THEN
953: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
954: END IF;
955: -- Initialize message list if p_init_msg_list is set to TRUE.
956: IF FND_API.to_Boolean( p_init_msg_list ) THEN
957: FND_MSG_PUB.initialize;
952: THEN
953: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
954: END IF;
955: -- Initialize message list if p_init_msg_list is set to TRUE.
956: IF FND_API.to_Boolean( p_init_msg_list ) THEN
957: FND_MSG_PUB.initialize;
958: END IF;
959: -- Initialize API return status to success
960: x_return_status := FND_API.G_RET_STS_SUCCESS;
956: IF FND_API.to_Boolean( p_init_msg_list ) THEN
957: FND_MSG_PUB.initialize;
958: END IF;
959: -- Initialize API return status to success
960: x_return_status := FND_API.G_RET_STS_SUCCESS;
961: --
962: -- API body
963: --
964: IF (AMS_DEBUG_HIGH_ON) THEN
972: p_validation_mode => JTF_PLSQL_API.g_create,
973: x_return_status => l_return_status
974: );
975: -- If any errors happen abort API.
976: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
977: THEN
978: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
979: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
980: THEN
974: );
975: -- If any errors happen abort API.
976: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
977: THEN
978: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
979: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
980: THEN
981: RAISE FND_API.G_EXC_ERROR;
982: END IF;
975: -- If any errors happen abort API.
976: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
977: THEN
978: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
979: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
980: THEN
981: RAISE FND_API.G_EXC_ERROR;
982: END IF;
983: END IF;
977: THEN
978: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
979: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
980: THEN
981: RAISE FND_API.G_EXC_ERROR;
982: END IF;
983: END IF;
984: -- Perform cross attribute validation and missing attribute checks. Record
985: -- level validation.
993: p_act_Product_rec => l_act_Product_rec,
994: x_return_status => l_return_status
995: );
996: -- If any errors happen abort API.
997: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
998: RAISE FND_API.G_EXC_ERROR;
999: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1000: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1001: END IF;
994: x_return_status => l_return_status
995: );
996: -- If any errors happen abort API.
997: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
998: RAISE FND_API.G_EXC_ERROR;
999: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1000: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1001: END IF;
1002: END IF;
995: );
996: -- If any errors happen abort API.
997: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
998: RAISE FND_API.G_EXC_ERROR;
999: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1000: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1001: END IF;
1002: END IF;
1003: --
996: -- If any errors happen abort API.
997: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
998: RAISE FND_API.G_EXC_ERROR;
999: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1000: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1001: END IF;
1002: END IF;
1003: --
1004: -- END of API body.
1004: -- END of API body.
1005: --
1006: -------------------- finish --------------------------
1007: FND_MSG_PUB.count_and_get(
1008: p_encoded => FND_API.g_false,
1009: p_count => x_msg_count,
1010: p_data => x_msg_data
1011: );
1012: EXCEPTION
1009: p_count => x_msg_count,
1010: p_data => x_msg_data
1011: );
1012: EXCEPTION
1013: WHEN FND_API.G_EXC_ERROR THEN
1014: x_return_status := FND_API.G_RET_STS_ERROR ;
1015: FND_MSG_PUB.Count_AND_Get
1016: ( p_count => x_msg_count,
1017: p_data => x_msg_data,
1010: p_data => x_msg_data
1011: );
1012: EXCEPTION
1013: WHEN FND_API.G_EXC_ERROR THEN
1014: x_return_status := FND_API.G_RET_STS_ERROR ;
1015: FND_MSG_PUB.Count_AND_Get
1016: ( p_count => x_msg_count,
1017: p_data => x_msg_data,
1018: p_encoded => FND_API.G_FALSE
1014: x_return_status := FND_API.G_RET_STS_ERROR ;
1015: FND_MSG_PUB.Count_AND_Get
1016: ( p_count => x_msg_count,
1017: p_data => x_msg_data,
1018: p_encoded => FND_API.G_FALSE
1019: );
1020: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1021: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1022: FND_MSG_PUB.Count_AND_Get
1016: ( p_count => x_msg_count,
1017: p_data => x_msg_data,
1018: p_encoded => FND_API.G_FALSE
1019: );
1020: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1021: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1022: FND_MSG_PUB.Count_AND_Get
1023: ( p_count => x_msg_count,
1024: p_data => x_msg_data,
1017: p_data => x_msg_data,
1018: p_encoded => FND_API.G_FALSE
1019: );
1020: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1021: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1022: FND_MSG_PUB.Count_AND_Get
1023: ( p_count => x_msg_count,
1024: p_data => x_msg_data,
1025: p_encoded => FND_API.G_FALSE
1021: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1022: FND_MSG_PUB.Count_AND_Get
1023: ( p_count => x_msg_count,
1024: p_data => x_msg_data,
1025: p_encoded => FND_API.G_FALSE
1026: );
1027: WHEN OTHERS THEN
1028: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1029: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1024: p_data => x_msg_data,
1025: p_encoded => FND_API.G_FALSE
1026: );
1027: WHEN OTHERS THEN
1028: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1029: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1030: THEN
1031: FND_MSG_PUB.Add_Exc_Msg( G_PACKAGE_NAME,l_api_name);
1032: END IF;
1032: END IF;
1033: FND_MSG_PUB.Count_AND_Get
1034: ( p_count => x_msg_count,
1035: p_data => x_msg_data,
1036: p_encoded => FND_API.G_FALSE
1037: );
1038: END Validate_Act_Product;
1039:
1040: -------------------------------------------------------------------------------------------
1062: l_primary_flag VARCHAR2(1) := 'N';
1063:
1064: BEGIN
1065:
1066: x_return_status := FND_API.g_ret_sts_success;
1067:
1068: IF (AMS_DEBUG_HIGH_ON) THEN
1069:
1070:
1072: AMS_UTILITY_PVT.debug_message('check_primary_flag: '|| p_act_product_rec.primary_product_flag);
1073:
1074: END IF;
1075:
1076: IF p_act_product_rec.primary_product_flag <> FND_API.G_MISS_CHAR
1077: AND p_act_product_rec.primary_product_flag = 'Y'
1078: THEN
1079: OPEN get_primary_flag(p_act_product_rec.category_set_id
1080: ,p_act_product_rec.act_product_used_by_id
1096: THEN
1097: FND_MESSAGE.set_name('AMS', 'AMS_CANNOT_UPD_PRIMARY_FLAG');
1098: FND_MSG_PUB.add;
1099: END IF;
1100: x_return_status := FND_API.g_ret_sts_error;
1101: RETURN;
1102: END IF;
1103: END IF;
1104:
1156: l_custom_setup_id NUMBER;
1157:
1158: BEGIN
1159: -- Initialize API/Procedure return status to success
1160: x_return_status := FND_API.G_RET_STS_SUCCESS;
1161: -- Check required parameters
1162: IF (p_act_Product_rec.act_product_used_by_id = FND_API.G_MISS_NUM OR
1163: p_act_Product_rec.act_product_used_by_id IS NULL)
1164: THEN
1158: BEGIN
1159: -- Initialize API/Procedure return status to success
1160: x_return_status := FND_API.G_RET_STS_SUCCESS;
1161: -- Check required parameters
1162: IF (p_act_Product_rec.act_product_used_by_id = FND_API.G_MISS_NUM OR
1163: p_act_Product_rec.act_product_used_by_id IS NULL)
1164: THEN
1165: -- missing required fields
1166: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1167: THEN -- MMSG
1168: FND_MESSAGE.set_name('AMS', 'AMS_ACT_PRD_NO_USEDBYID');
1169: FND_MSG_PUB.add;
1170: END IF;
1171: x_return_status := FND_API.G_RET_STS_ERROR;
1172: -- If any error happens abort API.
1173: RETURN;
1174: END IF;
1175:
1173: RETURN;
1174: END IF;
1175:
1176: -- arc_act_product_used_by
1177: IF (p_act_Product_rec.arc_act_product_used_by = FND_API.G_MISS_CHAR OR
1178: p_act_Product_rec.arc_act_product_used_by IS NULL)
1179: THEN
1180: -- missing required fields
1181: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1182: THEN -- MMSG
1183: FND_MESSAGE.set_name('AMS', 'AMS_ACT_PRD_NO_USEDBY');
1184: FND_MSG_PUB.add;
1185: END IF;
1186: x_return_status := FND_API.G_RET_STS_ERROR;
1187: -- If any error happens abort API.
1188: RETURN;
1189: END IF;
1190:
1188: RETURN;
1189: END IF;
1190:
1191: check_primary_flag(p_act_Product_rec,x_return_status);
1192: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
1193: THEN
1194: RETURN;
1195: END IF;
1196:
1196:
1197: -- category_id
1198: IF (p_act_Product_rec.level_type_code = 'FAMILY'
1199: AND (p_act_Product_rec.category_id IS NULL
1200: OR p_act_Product_rec.category_id = FND_API.G_MISS_NUM))
1201: THEN
1202: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN -- MMSG
1203: FND_MESSAGE.set_name('AMS', 'AMS_CAT_NAME_MISSING');
1204: FND_MSG_PUB.add;
1202: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN -- MMSG
1203: FND_MESSAGE.set_name('AMS', 'AMS_CAT_NAME_MISSING');
1204: FND_MSG_PUB.add;
1205: END IF;
1206: x_return_status := FND_API.G_RET_STS_ERROR;
1207: RETURN;
1208: END IF;
1209:
1210: --Category_set_id
1211: IF (p_act_Product_rec.level_type_code = 'FAMILY'
1212: AND (p_act_Product_rec.arc_act_product_used_by <> 'OFFR'
1213: AND p_act_Product_rec.arc_act_product_used_by <> 'FUND')
1214: AND (p_act_Product_rec.category_set_id IS NULL
1215: OR p_act_Product_rec.category_set_id = FND_API.G_MISS_NUM))
1216: THEN
1217: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1218: FND_MESSAGE.set_name('AMS', 'AMS_CAT_SET_ID_MISSING');
1219: FND_MSG_PUB.add;
1217: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1218: FND_MESSAGE.set_name('AMS', 'AMS_CAT_SET_ID_MISSING');
1219: FND_MSG_PUB.add;
1220: END IF;
1221: x_return_status := FND_API.G_RET_STS_ERROR;
1222: RETURN;
1223: END IF;
1224:
1225: --Inventory_item_id
1224:
1225: --Inventory_item_id
1226: IF (p_act_Product_rec.level_type_code = 'PRODUCT'
1227: AND (p_act_Product_rec.inventory_item_id IS NULL
1228: OR p_act_Product_rec.inventory_item_id = FND_API.G_MISS_NUM))
1229: THEN
1230: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1231: FND_MESSAGE.set_name('AMS', 'AMS_INVENTORY_ITEM_ID_MISSING');
1232: FND_MSG_PUB.add;
1230: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1231: FND_MESSAGE.set_name('AMS', 'AMS_INVENTORY_ITEM_ID_MISSING');
1232: FND_MSG_PUB.add;
1233: END IF;
1234: x_return_status := FND_API.G_RET_STS_ERROR;
1235: RETURN;
1236: END IF;
1237:
1238: IF p_act_Product_rec.arc_act_product_used_by = 'OFFR' THEN
1241: CLOSE c_offer_type;
1242:
1243: IF l_offer_type = 'SCAN_DATA' THEN
1244: IF p_act_Product_rec.level_type_code = 'PRODUCT' THEN -- category does not have uom
1245: IF p_act_Product_rec.uom_code = FND_API.G_MISS_CHAR
1246: OR p_act_Product_rec.uom_code IS NULL
1247: THEN
1248: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN -- MMSG
1249: FND_MESSAGE.set_name('AMS', 'AMS_ACT_PRD_NO_UOM');
1248: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN -- MMSG
1249: FND_MESSAGE.set_name('AMS', 'AMS_ACT_PRD_NO_UOM');
1250: FND_MSG_PUB.add;
1251: END IF;
1252: x_return_status := FND_API.G_RET_STS_ERROR;
1253: RETURN;
1254: END IF;
1255: END IF;
1256:
1253: RETURN;
1254: END IF;
1255: END IF;
1256:
1257: IF p_act_Product_rec.quantity = FND_API.G_MISS_NUM
1258: OR p_act_Product_rec.quantity IS NULL
1259: THEN
1260: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN -- MMSG
1261: FND_MESSAGE.set_name('AMS', 'AMS_ACT_PRD_NO_QUANTITY');
1260: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN -- MMSG
1261: FND_MESSAGE.set_name('AMS', 'AMS_ACT_PRD_NO_QUANTITY');
1262: FND_MSG_PUB.add;
1263: END IF;
1264: x_return_status := FND_API.G_RET_STS_ERROR;
1265: RETURN;
1266: END IF;
1267:
1268: IF l_custom_setup_id <> 117 THEN -- channel_id not mandatory for special pricing
1265: RETURN;
1266: END IF;
1267:
1268: IF l_custom_setup_id <> 117 THEN -- channel_id not mandatory for special pricing
1269: IF p_act_Product_rec.channel_id = FND_API.G_MISS_NUM
1270: OR p_act_Product_rec.channel_id IS NULL
1271: THEN
1272: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN -- MMSG
1273: FND_MESSAGE.set_name('AMS', 'AMS_ACT_PRD_NO_SCAN_TYPE');
1272: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN -- MMSG
1273: FND_MESSAGE.set_name('AMS', 'AMS_ACT_PRD_NO_SCAN_TYPE');
1274: FND_MSG_PUB.add;
1275: END IF;
1276: x_return_status := FND_API.G_RET_STS_ERROR;
1277: RETURN;
1278: END IF;
1279: END IF;
1280:
1277: RETURN;
1278: END IF;
1279: END IF;
1280:
1281: IF p_act_Product_rec.scan_value = FND_API.G_MISS_NUM
1282: OR p_act_Product_rec.scan_value IS NULL
1283: THEN
1284: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN -- MMSG
1285: FND_MESSAGE.set_name('AMS', 'AMS_ACT_PRD_NO_SCAN_VALUE');
1284: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN -- MMSG
1285: FND_MESSAGE.set_name('AMS', 'AMS_ACT_PRD_NO_SCAN_VALUE');
1286: FND_MSG_PUB.add;
1287: END IF;
1288: x_return_status := FND_API.G_RET_STS_ERROR;
1289: RETURN;
1290: END IF;
1291:
1292: IF p_act_Product_rec.scan_unit_forecast = FND_API.G_MISS_NUM
1288: x_return_status := FND_API.G_RET_STS_ERROR;
1289: RETURN;
1290: END IF;
1291:
1292: IF p_act_Product_rec.scan_unit_forecast = FND_API.G_MISS_NUM
1293: OR p_act_Product_rec.scan_unit_forecast IS NULL
1294: THEN
1295: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN -- MMSG
1296: FND_MESSAGE.set_name('AMS', 'AMS_ACT_PRD_NO_UNIT_FCST');
1295: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN -- MMSG
1296: FND_MESSAGE.set_name('AMS', 'AMS_ACT_PRD_NO_UNIT_FCST');
1297: FND_MSG_PUB.add;
1298: END IF;
1299: x_return_status := FND_API.G_RET_STS_ERROR;
1300: RETURN;
1301: END IF;
1302: END IF; -- end scan data
1303: END IF; -- end offer
1308: THEN
1309: IF AMS_Utility_PVT.check_uniqueness(
1310: 'ams_act_products',
1311: 'activity_product_id = ' || p_act_Product_rec.activity_product_id
1312: ) = FND_API.g_false
1313: THEN
1314: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
1315: THEN
1316: FND_MESSAGE.set_name('AMS', 'AMS_ACT_PRD_DUPLICATE_ID');
1315: THEN
1316: FND_MESSAGE.set_name('AMS', 'AMS_ACT_PRD_DUPLICATE_ID');
1317: FND_MSG_PUB.add;
1318: END IF;
1319: x_return_status := FND_API.g_ret_sts_error;
1320: RETURN;
1321: END IF;
1322: END IF;
1323: --
1322: END IF;
1323: --
1324: -- check for lookups....ARC_ACT_PRODUCT_USED_BY
1325: --
1326: IF p_act_Product_rec.arc_act_product_used_by <> FND_API.g_miss_char THEN
1327: IF AMS_Utility_PVT.check_lookup_exists(
1328: p_lookup_type => 'AMS_SYS_ARC_QUALIFIER',
1329: p_lookup_code => p_act_Product_rec.arc_act_product_used_by
1330: ) = FND_API.g_false
1326: IF p_act_Product_rec.arc_act_product_used_by <> FND_API.g_miss_char THEN
1327: IF AMS_Utility_PVT.check_lookup_exists(
1328: p_lookup_type => 'AMS_SYS_ARC_QUALIFIER',
1329: p_lookup_code => p_act_Product_rec.arc_act_product_used_by
1330: ) = FND_API.g_false
1331: THEN
1332: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
1333: THEN
1334: FND_MESSAGE.set_name('AMS', 'AMS_ACT_PRD_BAD_USEDBY');
1333: THEN
1334: FND_MESSAGE.set_name('AMS', 'AMS_ACT_PRD_BAD_USEDBY');
1335: FND_MSG_PUB.add;
1336: END IF;
1337: x_return_status := FND_API.g_ret_sts_error;
1338: RETURN;
1339: END IF;
1340: END IF;
1341: --
1340: END IF;
1341: --
1342: -- check for lookups....LEVEL_TYPE_CODE
1343: --
1344: IF p_act_Product_rec.LEVEL_TYPE_CODE <> FND_API.g_miss_char THEN
1345: IF AMS_Utility_PVT.check_lookup_exists(
1346: p_lookup_type => 'AMS_PRODUCT_LEVEL',
1347: p_lookup_code => p_act_Product_rec.LEVEL_TYPE_CODE
1348: ) = FND_API.g_false
1344: IF p_act_Product_rec.LEVEL_TYPE_CODE <> FND_API.g_miss_char THEN
1345: IF AMS_Utility_PVT.check_lookup_exists(
1346: p_lookup_type => 'AMS_PRODUCT_LEVEL',
1347: p_lookup_code => p_act_Product_rec.LEVEL_TYPE_CODE
1348: ) = FND_API.g_false
1349: THEN
1350: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
1351: THEN
1352: FND_MESSAGE.set_name('AMS', 'AMS_ACT_PRD_BAD_LEVELTYPE');
1351: THEN
1352: FND_MESSAGE.set_name('AMS', 'AMS_ACT_PRD_BAD_LEVELTYPE');
1353: FND_MSG_PUB.add;
1354: END IF;
1355: x_return_status := FND_API.g_ret_sts_error;
1356: RETURN;
1357: END IF;
1358: END IF;
1359:
1362: --
1363: /*************** Code added by ABHOLA ************/
1364:
1365:
1366: IF ((p_act_Product_rec.act_product_used_by_id <> FND_API.g_miss_num)
1367: AND
1368: (p_act_Product_rec.arc_act_product_used_by='FUND'))
1369: THEN
1370:
1378: THEN
1379: FND_MESSAGE.set_name('AMS', 'AMS_CANNOT_ASSOCIATE_PROD');
1380: FND_MSG_PUB.add;
1381: END IF;
1382: x_return_status := FND_API.G_RET_STS_ERROR;
1383: -- If any errors happen abort API/Procedure.
1384: RETURN;
1385:
1386: end if ;
1392: --
1393: -- Begin Validate Referential
1394: --
1395: -- Check FK parameter: act_product_used_by_id #1
1396: IF p_act_Product_rec.act_product_used_by_id <> FND_API.g_miss_num
1397: THEN
1398: IF p_act_Product_rec.arc_act_product_used_by='EVEH'
1399: THEN
1400: l_table_name := 'AMS_EVENT_HEADERS_VL';
1447: IF AMS_Utility_PVT.Check_FK_Exists (
1448: p_table_name => l_table_name
1449: ,p_pk_name => l_pk_name
1450: ,p_pk_value => l_pk_value
1451: ) = FND_API.G_FALSE
1452: THEN
1453: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1454: THEN
1455: FND_MESSAGE.set_name('AMS', 'AMS_ACT_PRD_INVALID_REFERENCE');
1454: THEN
1455: FND_MESSAGE.set_name('AMS', 'AMS_ACT_PRD_INVALID_REFERENCE');
1456: FND_MSG_PUB.add;
1457: END IF;
1458: x_return_status := FND_API.G_RET_STS_ERROR;
1459: -- If any errors happen abort API/Procedure.
1460: RETURN;
1461: END IF; -- check_fk_exists
1462: END IF;
1460: RETURN;
1461: END IF; -- check_fk_exists
1462: END IF;
1463: -- Check FK parameter: inventory_item_id
1464: IF p_act_Product_rec.inventory_item_id <> FND_API.g_miss_num
1465: THEN
1466: l_table_name := 'MTL_SYSTEM_ITEMS_VL';
1467: l_pk_name := 'inventory_item_id';
1468: l_pk_value := p_act_Product_rec.inventory_item_id;
1469: IF AMS_Utility_PVT.Check_FK_Exists (
1470: p_table_name => l_table_name
1471: ,p_pk_name => l_pk_name
1472: ,p_pk_value => l_pk_value
1473: ) = FND_API.G_FALSE
1474: THEN
1475: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1476: THEN
1477: FND_MESSAGE.set_name('AMS', 'AMS_ACT_PRD_INVALID_ITEM');
1476: THEN
1477: FND_MESSAGE.set_name('AMS', 'AMS_ACT_PRD_INVALID_ITEM');
1478: FND_MSG_PUB.add;
1479: END IF;
1480: x_return_status := FND_API.G_RET_STS_ERROR;
1481: -- If any errors happen abort API/Procedure.
1482: RETURN;
1483: END IF; -- check_fk_exists
1484: END IF;
1483: END IF; -- check_fk_exists
1484: END IF;
1485:
1486: -- Check FK parameter:organization_id
1487: IF p_act_Product_rec.organization_id <> FND_API.g_miss_num
1488: THEN
1489: l_table_name := 'MTL_SYSTEM_ITEMS_VL';
1490: l_pk_name := 'organization_id';
1491: l_pk_value := p_act_Product_rec.organization_id;
1492: IF AMS_Utility_PVT.Check_FK_Exists (
1493: p_table_name => l_table_name
1494: ,p_pk_name => l_pk_name
1495: ,p_pk_value => l_pk_value
1496: ) = FND_API.G_FALSE
1497: THEN
1498: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1499: THEN
1500: FND_MESSAGE.set_name('AMS', 'AMS_ACT_PRD_INVALID_ORG');
1499: THEN
1500: FND_MESSAGE.set_name('AMS', 'AMS_ACT_PRD_INVALID_ORG');
1501: FND_MSG_PUB.add;
1502: END IF;
1503: x_return_status := FND_API.G_RET_STS_ERROR;
1504: -- If any errors happen abort API/Procedure.
1505: RETURN;
1506: END IF; -- check_fk_exists
1507: END IF;
1505: RETURN;
1506: END IF; -- check_fk_exists
1507: END IF;
1508:
1509: IF p_act_Product_rec.category_id <> FND_API.g_miss_num
1510: THEN
1511: l_table_name := 'MTL_CATEGORIES';
1512: l_pk_name := 'category_id';
1513: l_pk_value := p_act_Product_rec.category_id;
1514: IF AMS_Utility_PVT.Check_FK_Exists (
1515: p_table_name => l_table_name
1516: ,p_pk_name => l_pk_name
1517: ,p_pk_value => l_pk_value
1518: ) = FND_API.G_FALSE
1519: THEN
1520: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1521: THEN
1522: FND_MESSAGE.set_name('AMS', 'AMS_ACT_PRD_INVALID_CAT');
1521: THEN
1522: FND_MESSAGE.set_name('AMS', 'AMS_ACT_PRD_INVALID_CAT');
1523: FND_MSG_PUB.add;
1524: END IF;
1525: x_return_status := FND_API.G_RET_STS_ERROR;
1526: -- If any errors happen abort API/Procedure.
1527: RETURN;
1528: END IF; -- check_fk_exists
1529: END IF;
1527: RETURN;
1528: END IF; -- check_fk_exists
1529: END IF;
1530:
1531: IF p_act_Product_rec.category_set_id <> FND_API.g_miss_num
1532: THEN
1533: l_table_name := 'MTL_CATEGORY_SETS';
1534: l_pk_name := 'category_set_id';
1535: l_pk_value := p_act_Product_rec.category_set_id;
1536: IF AMS_Utility_PVT.Check_FK_Exists (
1537: p_table_name => l_table_name
1538: ,p_pk_name => l_pk_name
1539: ,p_pk_value => l_pk_value
1540: ) = FND_API.G_FALSE
1541: THEN
1542: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1543: THEN
1544: FND_MESSAGE.set_name('AMS', 'AMS_ACT_PRD_INVALID_ITEMCAT');
1543: THEN
1544: FND_MESSAGE.set_name('AMS', 'AMS_ACT_PRD_INVALID_ITEMCAT');
1545: FND_MSG_PUB.add;
1546: END IF;
1547: x_return_status := FND_API.G_RET_STS_ERROR;
1548: -- If any errors happen abort API/Procedure.
1549: RETURN;
1550: END IF; -- check_fk_exists
1551: END IF;
1553:
1554: -- check for flags
1555:
1556: ----------------------- enabled_flag ------------------------
1557: IF p_act_Product_rec.enabled_flag <> FND_API.g_miss_char
1558: AND p_act_Product_rec.enabled_flag IS NOT NULL
1559: THEN
1560: IF AMS_Utility_PVT.is_Y_or_N(p_act_Product_rec.enabled_flag) = FND_API.g_false
1561: THEN
1556: ----------------------- enabled_flag ------------------------
1557: IF p_act_Product_rec.enabled_flag <> FND_API.g_miss_char
1558: AND p_act_Product_rec.enabled_flag IS NOT NULL
1559: THEN
1560: IF AMS_Utility_PVT.is_Y_or_N(p_act_Product_rec.enabled_flag) = FND_API.g_false
1561: THEN
1562: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
1563: THEN
1564: FND_MESSAGE.set_name('AMS', 'AMS_ACT_PRD_BAD_ENABLED_FLAG');
1563: THEN
1564: FND_MESSAGE.set_name('AMS', 'AMS_ACT_PRD_BAD_ENABLED_FLAG');
1565: FND_MSG_PUB.add;
1566: END IF;
1567: x_return_status := FND_API.g_ret_sts_error;
1568: RETURN;
1569: END IF;
1570: END IF;
1571: ----------------------- excluded_flag ------------------------
1568: RETURN;
1569: END IF;
1570: END IF;
1571: ----------------------- excluded_flag ------------------------
1572: IF p_act_Product_rec.excluded_flag <> FND_API.g_miss_char
1573: AND p_act_Product_rec.excluded_flag IS NOT NULL
1574: THEN
1575: IF AMS_Utility_PVT.is_Y_or_N(p_act_Product_rec.excluded_flag) = FND_API.g_false
1576: THEN
1571: ----------------------- excluded_flag ------------------------
1572: IF p_act_Product_rec.excluded_flag <> FND_API.g_miss_char
1573: AND p_act_Product_rec.excluded_flag IS NOT NULL
1574: THEN
1575: IF AMS_Utility_PVT.is_Y_or_N(p_act_Product_rec.excluded_flag) = FND_API.g_false
1576: THEN
1577: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
1578: THEN
1579: FND_MESSAGE.set_name('AMS', 'AMS_ACT_PRD_BAD_EXCLUDED_FLAG');
1578: THEN
1579: FND_MESSAGE.set_name('AMS', 'AMS_ACT_PRD_BAD_EXCLUDED_FLAG');
1580: FND_MSG_PUB.add;
1581: END IF;
1582: x_return_status := FND_API.g_ret_sts_error;
1583: RETURN;
1584: END IF;
1585: END IF;
1586:
1584: END IF;
1585: END IF;
1586:
1587: ----------------------- primary_product_flag ------------------------
1588: IF p_act_Product_rec.primary_product_flag <> FND_API.g_miss_char
1589: AND p_act_Product_rec.primary_product_flag IS NOT NULL
1590: THEN
1591: IF AMS_Utility_PVT.is_Y_or_N(p_act_Product_rec.primary_product_flag) = FND_API.g_false
1592: THEN
1587: ----------------------- primary_product_flag ------------------------
1588: IF p_act_Product_rec.primary_product_flag <> FND_API.g_miss_char
1589: AND p_act_Product_rec.primary_product_flag IS NOT NULL
1590: THEN
1591: IF AMS_Utility_PVT.is_Y_or_N(p_act_Product_rec.primary_product_flag) = FND_API.g_false
1592: THEN
1593: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
1594: THEN
1595: FND_MESSAGE.set_name('AMS', 'AMS_ACT_PRD_BAD_PRIMARY_FLAG');
1594: THEN
1595: FND_MESSAGE.set_name('AMS', 'AMS_ACT_PRD_BAD_PRIMARY_FLAG');
1596: FND_MSG_PUB.add;
1597: END IF;
1598: x_return_status := FND_API.g_ret_sts_error;
1599: RETURN;
1600: END IF;
1601: END IF;
1602:
1606: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1607: FND_MESSAGE.set_name('AMS', 'AMS_ACT_PRD_NO_PROD');
1608: FND_MSG_PUB.add;
1609: END IF;
1610: x_return_status := FND_API.g_ret_sts_error;
1611: END IF;
1612:
1613: -------------------------------------------------------------------------------
1614: -- added sugupta 06/06/2000
1631: THEN
1632: FND_MESSAGE.set_name('AMS', 'AMS_ACT_PRD_NO_MORE_ROWS');
1633: FND_MSG_PUB.add;
1634: END IF;
1635: x_return_status := FND_API.g_ret_sts_error;
1636: RETURN;
1637: ELSE
1638: -- either no rows exist or it exists for CAT
1639: -- if row exists for CAT and to be added one is include row, error out
1643: THEN
1644: FND_MESSAGE.set_name('AMS', 'AMS_ACT_PRD_NO_MORE_ROWS');
1645: FND_MSG_PUB.add;
1646: END IF;
1647: x_return_status := FND_API.g_ret_sts_error;
1648: RETURN;
1649: END IF;
1650: -- if no row exists, and exclusion row being added, error out
1651:
1654: THEN
1655: FND_MESSAGE.set_name('AMS', 'AMS_ACT_PRD_NO_INCLUDE_ROWS');
1656: FND_MSG_PUB.add;
1657: END IF;
1658: x_return_status := FND_API.g_ret_sts_error;
1659: RETURN;
1660: END IF;
1661: -- all other cases are allowed... which are:
1662: -- new row for inclusion (CAT or PROD)
1806: l_offer_type VARCHAR2(30);
1807:
1808: BEGIN
1809: -- Standard call to check for call compatibility.
1810: IF NOT FND_API.Compatible_API_Call ( l_api_version,
1811: l_api_version,
1812: l_api_name,
1813: G_PACKAGE_NAME)
1814: THEN
1811: l_api_version,
1812: l_api_name,
1813: G_PACKAGE_NAME)
1814: THEN
1815: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1816: END IF;
1817: -- Initialize API return status to success
1818: x_return_status := FND_API.G_RET_STS_SUCCESS;
1819: -- API body
1814: THEN
1815: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1816: END IF;
1817: -- Initialize API return status to success
1818: x_return_status := FND_API.G_RET_STS_SUCCESS;
1819: -- API body
1820: -- added sugupta 06/16/2000
1821: -- DO NOT ALLOW SAME PRODUCT / CATEGORY TO BE INCLUDED /EXCLUDED AGAIN...
1822: -- irrespective of excluded_Flag value... if same product/category appears.. error out..
1829:
1830: IF l_offer_type = 'SCAN_DATA' THEN
1831: IF p_act_Product_rec.level_type_code = 'PRODUCT' THEN
1832: --first check if duplicate item exists
1833: IF p_act_Product_rec.channel_id <> FND_API.G_MISS_NUM
1834: AND p_act_Product_rec.channel_id IS NOT NULL
1835: THEN
1836: OPEN c_scan_item_dup1;
1837: FETCH c_scan_item_dup1 INTO l_count1;
1847: FND_MESSAGE.set_name('AMS', 'AMS_ACT_PRD_DUP_ITEM');
1848: FND_MSG_PUB.add;
1849: END IF;
1850:
1851: x_return_status := FND_API.g_ret_sts_error;
1852: RETURN;
1853: END IF;
1854:
1855: -- check if item in existing categories
1852: RETURN;
1853: END IF;
1854:
1855: -- check if item in existing categories
1856: IF p_act_Product_rec.channel_id <> FND_API.G_MISS_NUM
1857: AND p_act_Product_rec.channel_id IS NOT NULL
1858: THEN
1859: FOR i IN c_all_cat1 LOOP
1860: OPEN c_check_item_in_cat(i.category_id, p_act_Product_rec.inventory_item_id);
1866: FND_MESSAGE.set_name('AMS', 'AMS_ACT_PRD_ITEM_IN_CAT');
1867: FND_MSG_PUB.add;
1868: END IF;
1869:
1870: x_return_status := FND_API.g_ret_sts_error;
1871: RETURN;
1872: END IF;
1873: END LOOP;
1874: ELSE
1882: FND_MESSAGE.set_name('AMS', 'AMS_ACT_PRD_ITEM_IN_CAT');
1883: FND_MSG_PUB.add;
1884: END IF;
1885:
1886: x_return_status := FND_API.g_ret_sts_error;
1887: RETURN;
1888: END IF;
1889: END LOOP;
1890: END IF;
1889: END LOOP;
1890: END IF;
1891: ELSIF p_act_Product_rec.level_type_code = 'FAMILY' THEN
1892: --first check if duplicate category exists
1893: IF p_act_Product_rec.channel_id <> FND_API.G_MISS_NUM
1894: AND p_act_Product_rec.channel_id IS NOT NULL
1895: THEN
1896: OPEN c_scan_cat_dup1;
1897: FETCH c_scan_cat_dup1 INTO l_count1;
1907: FND_MESSAGE.set_name('AMS', 'AMS_ACT_PRD_DUP_CAT');
1908: FND_MSG_PUB.add;
1909: END IF;
1910:
1911: x_return_status := FND_API.g_ret_sts_error;
1912: RETURN;
1913: END IF;
1914:
1915: -- check if new category containing existing items
1912: RETURN;
1913: END IF;
1914:
1915: -- check if new category containing existing items
1916: IF p_act_Product_rec.channel_id <> FND_API.G_MISS_NUM
1917: AND p_act_Product_rec.channel_id IS NOT NULL
1918: THEN
1919: FOR i IN c_all_item1 LOOP
1920: OPEN c_check_item_in_cat(p_act_Product_rec.category_id, i.inventory_item_id);
1926: FND_MESSAGE.set_name('AMS', 'AMS_ACT_PRD_CAT_HAS_ITEM');
1927: FND_MSG_PUB.add;
1928: END IF;
1929:
1930: x_return_status := FND_API.g_ret_sts_error;
1931: RETURN;
1932: END IF;
1933: END LOOP;
1934: ELSE
1942: FND_MESSAGE.set_name('AMS', 'AMS_ACT_PRD_CAT_HAS_ITEM');
1943: FND_MSG_PUB.add;
1944: END IF;
1945:
1946: x_return_status := FND_API.g_ret_sts_error;
1947: RETURN;
1948: END IF;
1949: END LOOP;
1950: END IF;
1965: THEN
1966: FND_MESSAGE.set_name('AMS', 'AMS_ACT_PRD_DUPE_CAT');
1967: FND_MSG_PUB.add;
1968: END IF;
1969: x_return_status := FND_API.g_ret_sts_error;
1970: CLOSE c_get_all_categories;
1971: RETURN;
1972: END IF;
1973: END LOOP;
1989: THEN
1990: FND_MESSAGE.set_name('AMS', 'AMS_ACT_PRD_DUPE_ITEM');
1991: FND_MSG_PUB.add;
1992: END IF;
1993: x_return_status := FND_API.g_ret_sts_error;
1994: CLOSE c_get_all_items;
1995: RETURN;
1996: END IF;
1997: END LOOP;
2005: THEN
2006: FND_MESSAGE.set_name('AMS', 'AMS_ACT_PRD_CANT_EXCLUDE_CAT');
2007: FND_MSG_PUB.add;
2008: END IF;
2009: x_return_status := FND_API.g_ret_sts_error;
2010: RETURN;
2011: END IF;
2012: **/
2013:
2036: THEN
2037: FND_MESSAGE.set_name('AMS', 'AMS_ACT_PRD_NOT_IN_CAT');
2038: FND_MSG_PUB.add;
2039: END IF;
2040: x_return_status := FND_API.g_ret_sts_error;
2041: RETURN;
2042: END IF;
2043:
2044: END IF;
2052: IF ( p_act_product_rec.arc_act_product_used_by = 'CSCH'
2053: OR p_act_product_rec.arc_act_product_used_by = 'CAMP')
2054: THEN
2055: check_product_val_for_csch(p_act_product_rec,x_return_status);
2056: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
2057: THEN
2058: RETURN;
2059: END IF;
2060: END IF;
2083: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2084: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
2085: FND_MSG_PUB.add;
2086: END IF;
2087: RAISE FND_API.g_exc_error;
2088: END IF;
2089: CLOSE c_product;
2090: IF p_act_Product_rec.act_product_used_by_id = FND_API.g_miss_num THEN
2091: x_act_Product_rec.act_product_used_by_id :=l_act_Product_rec.act_product_used_by_id;
2086: END IF;
2087: RAISE FND_API.g_exc_error;
2088: END IF;
2089: CLOSE c_product;
2090: IF p_act_Product_rec.act_product_used_by_id = FND_API.g_miss_num THEN
2091: x_act_Product_rec.act_product_used_by_id :=l_act_Product_rec.act_product_used_by_id;
2092: END IF;
2093: IF p_act_Product_rec.arc_act_product_used_by = FND_API.g_miss_char THEN
2094: x_act_Product_rec.arc_act_product_used_by := l_act_Product_rec.arc_act_product_used_by;
2089: CLOSE c_product;
2090: IF p_act_Product_rec.act_product_used_by_id = FND_API.g_miss_num THEN
2091: x_act_Product_rec.act_product_used_by_id :=l_act_Product_rec.act_product_used_by_id;
2092: END IF;
2093: IF p_act_Product_rec.arc_act_product_used_by = FND_API.g_miss_char THEN
2094: x_act_Product_rec.arc_act_product_used_by := l_act_Product_rec.arc_act_product_used_by;
2095: END IF;
2096: IF p_act_Product_rec.inventory_item_id = FND_API.g_miss_num THEN
2097: x_act_Product_rec.inventory_item_id := l_act_Product_rec.inventory_item_id;
2092: END IF;
2093: IF p_act_Product_rec.arc_act_product_used_by = FND_API.g_miss_char THEN
2094: x_act_Product_rec.arc_act_product_used_by := l_act_Product_rec.arc_act_product_used_by;
2095: END IF;
2096: IF p_act_Product_rec.inventory_item_id = FND_API.g_miss_num THEN
2097: x_act_Product_rec.inventory_item_id := l_act_Product_rec.inventory_item_id;
2098: END IF;
2099: IF p_act_Product_rec.ORGANIZATION_ID = FND_API.g_miss_num THEN
2100: x_act_Product_rec.ORGANIZATION_ID := l_act_Product_rec.ORGANIZATION_ID;
2095: END IF;
2096: IF p_act_Product_rec.inventory_item_id = FND_API.g_miss_num THEN
2097: x_act_Product_rec.inventory_item_id := l_act_Product_rec.inventory_item_id;
2098: END IF;
2099: IF p_act_Product_rec.ORGANIZATION_ID = FND_API.g_miss_num THEN
2100: x_act_Product_rec.ORGANIZATION_ID := l_act_Product_rec.ORGANIZATION_ID;
2101: END IF;
2102: IF p_act_Product_rec.CATEGORY_ID = FND_API.g_miss_num THEN
2103: x_act_Product_rec.CATEGORY_ID := l_act_Product_rec.CATEGORY_ID;
2098: END IF;
2099: IF p_act_Product_rec.ORGANIZATION_ID = FND_API.g_miss_num THEN
2100: x_act_Product_rec.ORGANIZATION_ID := l_act_Product_rec.ORGANIZATION_ID;
2101: END IF;
2102: IF p_act_Product_rec.CATEGORY_ID = FND_API.g_miss_num THEN
2103: x_act_Product_rec.CATEGORY_ID := l_act_Product_rec.CATEGORY_ID;
2104: END IF;
2105: IF p_act_Product_rec.CATEGORY_SET_ID = FND_API.g_miss_num THEN
2106: x_act_Product_rec.CATEGORY_SET_ID := l_act_Product_rec.CATEGORY_SET_ID;
2101: END IF;
2102: IF p_act_Product_rec.CATEGORY_ID = FND_API.g_miss_num THEN
2103: x_act_Product_rec.CATEGORY_ID := l_act_Product_rec.CATEGORY_ID;
2104: END IF;
2105: IF p_act_Product_rec.CATEGORY_SET_ID = FND_API.g_miss_num THEN
2106: x_act_Product_rec.CATEGORY_SET_ID := l_act_Product_rec.CATEGORY_SET_ID;
2107: END IF;
2108: IF p_act_Product_rec.LEVEL_TYPE_CODE = FND_API.g_miss_char THEN
2109: x_act_Product_rec.LEVEL_TYPE_CODE := l_act_Product_rec.LEVEL_TYPE_CODE;
2104: END IF;
2105: IF p_act_Product_rec.CATEGORY_SET_ID = FND_API.g_miss_num THEN
2106: x_act_Product_rec.CATEGORY_SET_ID := l_act_Product_rec.CATEGORY_SET_ID;
2107: END IF;
2108: IF p_act_Product_rec.LEVEL_TYPE_CODE = FND_API.g_miss_char THEN
2109: x_act_Product_rec.LEVEL_TYPE_CODE := l_act_Product_rec.LEVEL_TYPE_CODE;
2110: END IF;
2111: IF p_act_Product_rec.ENABLED_FLAG = FND_API.g_miss_char THEN
2112: x_act_Product_rec.ENABLED_FLAG := l_act_Product_rec.ENABLED_FLAG;
2107: END IF;
2108: IF p_act_Product_rec.LEVEL_TYPE_CODE = FND_API.g_miss_char THEN
2109: x_act_Product_rec.LEVEL_TYPE_CODE := l_act_Product_rec.LEVEL_TYPE_CODE;
2110: END IF;
2111: IF p_act_Product_rec.ENABLED_FLAG = FND_API.g_miss_char THEN
2112: x_act_Product_rec.ENABLED_FLAG := l_act_Product_rec.ENABLED_FLAG;
2113: END IF;
2114: IF p_act_Product_rec.EXCLUDED_FLAG = FND_API.g_miss_char THEN
2115: x_act_Product_rec.EXCLUDED_FLAG := l_act_Product_rec.EXCLUDED_FLAG;
2110: END IF;
2111: IF p_act_Product_rec.ENABLED_FLAG = FND_API.g_miss_char THEN
2112: x_act_Product_rec.ENABLED_FLAG := l_act_Product_rec.ENABLED_FLAG;
2113: END IF;
2114: IF p_act_Product_rec.EXCLUDED_FLAG = FND_API.g_miss_char THEN
2115: x_act_Product_rec.EXCLUDED_FLAG := l_act_Product_rec.EXCLUDED_FLAG;
2116: END IF;
2117: IF p_act_Product_rec.PRIMARY_PRODUCT_FLAG = FND_API.g_miss_char THEN
2118: x_act_Product_rec.PRIMARY_PRODUCT_FLAG := l_act_Product_rec.PRIMARY_PRODUCT_FLAG;
2113: END IF;
2114: IF p_act_Product_rec.EXCLUDED_FLAG = FND_API.g_miss_char THEN
2115: x_act_Product_rec.EXCLUDED_FLAG := l_act_Product_rec.EXCLUDED_FLAG;
2116: END IF;
2117: IF p_act_Product_rec.PRIMARY_PRODUCT_FLAG = FND_API.g_miss_char THEN
2118: x_act_Product_rec.PRIMARY_PRODUCT_FLAG := l_act_Product_rec.PRIMARY_PRODUCT_FLAG;
2119: END IF;
2120: IF p_act_Product_rec.PRODUCT_SALE_TYPE = FND_API.g_miss_char THEN
2121: x_act_Product_rec.PRODUCT_SALE_TYPE := l_act_Product_rec.PRODUCT_SALE_TYPE;
2116: END IF;
2117: IF p_act_Product_rec.PRIMARY_PRODUCT_FLAG = FND_API.g_miss_char THEN
2118: x_act_Product_rec.PRIMARY_PRODUCT_FLAG := l_act_Product_rec.PRIMARY_PRODUCT_FLAG;
2119: END IF;
2120: IF p_act_Product_rec.PRODUCT_SALE_TYPE = FND_API.g_miss_char THEN
2121: x_act_Product_rec.PRODUCT_SALE_TYPE := l_act_Product_rec.PRODUCT_SALE_TYPE;
2122: END IF;
2123: IF p_act_Product_rec.ATTRIBUTE_CATEGORY = FND_API.g_miss_char THEN
2124: x_act_Product_rec.ATTRIBUTE_CATEGORY := l_act_Product_rec.ATTRIBUTE_CATEGORY;
2119: END IF;
2120: IF p_act_Product_rec.PRODUCT_SALE_TYPE = FND_API.g_miss_char THEN
2121: x_act_Product_rec.PRODUCT_SALE_TYPE := l_act_Product_rec.PRODUCT_SALE_TYPE;
2122: END IF;
2123: IF p_act_Product_rec.ATTRIBUTE_CATEGORY = FND_API.g_miss_char THEN
2124: x_act_Product_rec.ATTRIBUTE_CATEGORY := l_act_Product_rec.ATTRIBUTE_CATEGORY;
2125: END IF;
2126: IF p_act_Product_rec.ATTRIBUTE1 = FND_API.g_miss_char THEN
2127: x_act_Product_rec.ATTRIBUTE1 := l_act_Product_rec.ATTRIBUTE1;
2122: END IF;
2123: IF p_act_Product_rec.ATTRIBUTE_CATEGORY = FND_API.g_miss_char THEN
2124: x_act_Product_rec.ATTRIBUTE_CATEGORY := l_act_Product_rec.ATTRIBUTE_CATEGORY;
2125: END IF;
2126: IF p_act_Product_rec.ATTRIBUTE1 = FND_API.g_miss_char THEN
2127: x_act_Product_rec.ATTRIBUTE1 := l_act_Product_rec.ATTRIBUTE1;
2128: END IF;
2129: IF p_act_Product_rec.ATTRIBUTE2 = FND_API.g_miss_char THEN
2130: x_act_Product_rec.ATTRIBUTE2 := l_act_Product_rec.ATTRIBUTE2;
2125: END IF;
2126: IF p_act_Product_rec.ATTRIBUTE1 = FND_API.g_miss_char THEN
2127: x_act_Product_rec.ATTRIBUTE1 := l_act_Product_rec.ATTRIBUTE1;
2128: END IF;
2129: IF p_act_Product_rec.ATTRIBUTE2 = FND_API.g_miss_char THEN
2130: x_act_Product_rec.ATTRIBUTE2 := l_act_Product_rec.ATTRIBUTE2;
2131: END IF;
2132: IF p_act_Product_rec.ATTRIBUTE3 = FND_API.g_miss_char THEN
2133: x_act_Product_rec.ATTRIBUTE3 := l_act_Product_rec.ATTRIBUTE3;
2128: END IF;
2129: IF p_act_Product_rec.ATTRIBUTE2 = FND_API.g_miss_char THEN
2130: x_act_Product_rec.ATTRIBUTE2 := l_act_Product_rec.ATTRIBUTE2;
2131: END IF;
2132: IF p_act_Product_rec.ATTRIBUTE3 = FND_API.g_miss_char THEN
2133: x_act_Product_rec.ATTRIBUTE3 := l_act_Product_rec.ATTRIBUTE3;
2134: END IF;
2135: IF p_act_Product_rec.ATTRIBUTE4 = FND_API.g_miss_char THEN
2136: x_act_Product_rec.ATTRIBUTE4 := l_act_Product_rec.ATTRIBUTE4;
2131: END IF;
2132: IF p_act_Product_rec.ATTRIBUTE3 = FND_API.g_miss_char THEN
2133: x_act_Product_rec.ATTRIBUTE3 := l_act_Product_rec.ATTRIBUTE3;
2134: END IF;
2135: IF p_act_Product_rec.ATTRIBUTE4 = FND_API.g_miss_char THEN
2136: x_act_Product_rec.ATTRIBUTE4 := l_act_Product_rec.ATTRIBUTE4;
2137: END IF;
2138: IF p_act_Product_rec.ATTRIBUTE5 = FND_API.g_miss_char THEN
2139: x_act_Product_rec.ATTRIBUTE5 := l_act_Product_rec.ATTRIBUTE5;
2134: END IF;
2135: IF p_act_Product_rec.ATTRIBUTE4 = FND_API.g_miss_char THEN
2136: x_act_Product_rec.ATTRIBUTE4 := l_act_Product_rec.ATTRIBUTE4;
2137: END IF;
2138: IF p_act_Product_rec.ATTRIBUTE5 = FND_API.g_miss_char THEN
2139: x_act_Product_rec.ATTRIBUTE5 := l_act_Product_rec.ATTRIBUTE5;
2140: END IF;
2141: IF p_act_Product_rec.ATTRIBUTE6 = FND_API.g_miss_char THEN
2142: x_act_Product_rec.ATTRIBUTE6 := l_act_Product_rec.ATTRIBUTE6;
2137: END IF;
2138: IF p_act_Product_rec.ATTRIBUTE5 = FND_API.g_miss_char THEN
2139: x_act_Product_rec.ATTRIBUTE5 := l_act_Product_rec.ATTRIBUTE5;
2140: END IF;
2141: IF p_act_Product_rec.ATTRIBUTE6 = FND_API.g_miss_char THEN
2142: x_act_Product_rec.ATTRIBUTE6 := l_act_Product_rec.ATTRIBUTE6;
2143: END IF;
2144: IF p_act_Product_rec.ATTRIBUTE7 = FND_API.g_miss_char THEN
2145: x_act_Product_rec.ATTRIBUTE7 := l_act_Product_rec.ATTRIBUTE7;
2140: END IF;
2141: IF p_act_Product_rec.ATTRIBUTE6 = FND_API.g_miss_char THEN
2142: x_act_Product_rec.ATTRIBUTE6 := l_act_Product_rec.ATTRIBUTE6;
2143: END IF;
2144: IF p_act_Product_rec.ATTRIBUTE7 = FND_API.g_miss_char THEN
2145: x_act_Product_rec.ATTRIBUTE7 := l_act_Product_rec.ATTRIBUTE7;
2146: END IF;
2147: IF p_act_Product_rec.ATTRIBUTE8 = FND_API.g_miss_char THEN
2148: x_act_Product_rec.ATTRIBUTE8 := l_act_Product_rec.ATTRIBUTE8;
2143: END IF;
2144: IF p_act_Product_rec.ATTRIBUTE7 = FND_API.g_miss_char THEN
2145: x_act_Product_rec.ATTRIBUTE7 := l_act_Product_rec.ATTRIBUTE7;
2146: END IF;
2147: IF p_act_Product_rec.ATTRIBUTE8 = FND_API.g_miss_char THEN
2148: x_act_Product_rec.ATTRIBUTE8 := l_act_Product_rec.ATTRIBUTE8;
2149: END IF;
2150: IF p_act_Product_rec.ATTRIBUTE9 = FND_API.g_miss_char THEN
2151: x_act_Product_rec.ATTRIBUTE9 := l_act_Product_rec.ATTRIBUTE9;
2146: END IF;
2147: IF p_act_Product_rec.ATTRIBUTE8 = FND_API.g_miss_char THEN
2148: x_act_Product_rec.ATTRIBUTE8 := l_act_Product_rec.ATTRIBUTE8;
2149: END IF;
2150: IF p_act_Product_rec.ATTRIBUTE9 = FND_API.g_miss_char THEN
2151: x_act_Product_rec.ATTRIBUTE9 := l_act_Product_rec.ATTRIBUTE9;
2152: END IF;
2153: IF p_act_Product_rec.ATTRIBUTE10 = FND_API.g_miss_char THEN
2154: x_act_Product_rec.ATTRIBUTE10 := l_act_Product_rec.ATTRIBUTE10;
2149: END IF;
2150: IF p_act_Product_rec.ATTRIBUTE9 = FND_API.g_miss_char THEN
2151: x_act_Product_rec.ATTRIBUTE9 := l_act_Product_rec.ATTRIBUTE9;
2152: END IF;
2153: IF p_act_Product_rec.ATTRIBUTE10 = FND_API.g_miss_char THEN
2154: x_act_Product_rec.ATTRIBUTE10 := l_act_Product_rec.ATTRIBUTE10;
2155: END IF;
2156: IF p_act_Product_rec.ATTRIBUTE11 = FND_API.g_miss_char THEN
2157: x_act_Product_rec.ATTRIBUTE11 := l_act_Product_rec.ATTRIBUTE11;
2152: END IF;
2153: IF p_act_Product_rec.ATTRIBUTE10 = FND_API.g_miss_char THEN
2154: x_act_Product_rec.ATTRIBUTE10 := l_act_Product_rec.ATTRIBUTE10;
2155: END IF;
2156: IF p_act_Product_rec.ATTRIBUTE11 = FND_API.g_miss_char THEN
2157: x_act_Product_rec.ATTRIBUTE11 := l_act_Product_rec.ATTRIBUTE11;
2158: END IF;
2159: IF p_act_Product_rec.ATTRIBUTE11 = FND_API.g_miss_char THEN
2160: x_act_Product_rec.ATTRIBUTE11 := l_act_Product_rec.ATTRIBUTE11;
2155: END IF;
2156: IF p_act_Product_rec.ATTRIBUTE11 = FND_API.g_miss_char THEN
2157: x_act_Product_rec.ATTRIBUTE11 := l_act_Product_rec.ATTRIBUTE11;
2158: END IF;
2159: IF p_act_Product_rec.ATTRIBUTE11 = FND_API.g_miss_char THEN
2160: x_act_Product_rec.ATTRIBUTE11 := l_act_Product_rec.ATTRIBUTE11;
2161: END IF;
2162: IF p_act_Product_rec.ATTRIBUTE12 = FND_API.g_miss_char THEN
2163: x_act_Product_rec.ATTRIBUTE12 := l_act_Product_rec.ATTRIBUTE12;
2158: END IF;
2159: IF p_act_Product_rec.ATTRIBUTE11 = FND_API.g_miss_char THEN
2160: x_act_Product_rec.ATTRIBUTE11 := l_act_Product_rec.ATTRIBUTE11;
2161: END IF;
2162: IF p_act_Product_rec.ATTRIBUTE12 = FND_API.g_miss_char THEN
2163: x_act_Product_rec.ATTRIBUTE12 := l_act_Product_rec.ATTRIBUTE12;
2164: END IF;
2165: IF p_act_Product_rec.ATTRIBUTE13 = FND_API.g_miss_char THEN
2166: x_act_Product_rec.ATTRIBUTE13 := l_act_Product_rec.ATTRIBUTE13;
2161: END IF;
2162: IF p_act_Product_rec.ATTRIBUTE12 = FND_API.g_miss_char THEN
2163: x_act_Product_rec.ATTRIBUTE12 := l_act_Product_rec.ATTRIBUTE12;
2164: END IF;
2165: IF p_act_Product_rec.ATTRIBUTE13 = FND_API.g_miss_char THEN
2166: x_act_Product_rec.ATTRIBUTE13 := l_act_Product_rec.ATTRIBUTE13;
2167: END IF;
2168: IF p_act_Product_rec.ATTRIBUTE14 = FND_API.g_miss_char THEN
2169: x_act_Product_rec.ATTRIBUTE14 := l_act_Product_rec.ATTRIBUTE14;
2164: END IF;
2165: IF p_act_Product_rec.ATTRIBUTE13 = FND_API.g_miss_char THEN
2166: x_act_Product_rec.ATTRIBUTE13 := l_act_Product_rec.ATTRIBUTE13;
2167: END IF;
2168: IF p_act_Product_rec.ATTRIBUTE14 = FND_API.g_miss_char THEN
2169: x_act_Product_rec.ATTRIBUTE14 := l_act_Product_rec.ATTRIBUTE14;
2170: END IF;
2171: IF p_act_Product_rec.ATTRIBUTE15 = FND_API.g_miss_char THEN
2172: x_act_Product_rec.ATTRIBUTE15 := l_act_Product_rec.ATTRIBUTE15;
2167: END IF;
2168: IF p_act_Product_rec.ATTRIBUTE14 = FND_API.g_miss_char THEN
2169: x_act_Product_rec.ATTRIBUTE14 := l_act_Product_rec.ATTRIBUTE14;
2170: END IF;
2171: IF p_act_Product_rec.ATTRIBUTE15 = FND_API.g_miss_char THEN
2172: x_act_Product_rec.ATTRIBUTE15 := l_act_Product_rec.ATTRIBUTE15;
2173: END IF;
2174: /*
2175: IF p_act_Product_rec.security_group_id = FND_API.g_miss_num THEN
2171: IF p_act_Product_rec.ATTRIBUTE15 = FND_API.g_miss_char THEN
2172: x_act_Product_rec.ATTRIBUTE15 := l_act_Product_rec.ATTRIBUTE15;
2173: END IF;
2174: /*
2175: IF p_act_Product_rec.security_group_id = FND_API.g_miss_num THEN
2176: x_act_Product_rec.security_group_id := l_act_Product_rec.security_group_id;
2177: END IF;
2178: */
2179: IF p_act_Product_rec.line_lumpsum_amount = FND_API.g_miss_num THEN
2175: IF p_act_Product_rec.security_group_id = FND_API.g_miss_num THEN
2176: x_act_Product_rec.security_group_id := l_act_Product_rec.security_group_id;
2177: END IF;
2178: */
2179: IF p_act_Product_rec.line_lumpsum_amount = FND_API.g_miss_num THEN
2180: x_act_Product_rec.line_lumpsum_amount := l_act_Product_rec.line_lumpsum_amount;
2181: END IF;
2182: IF p_act_Product_rec.line_lumpsum_qty = FND_API.g_miss_num THEN
2183: x_act_Product_rec.line_lumpsum_qty := l_act_Product_rec.line_lumpsum_qty;
2178: */
2179: IF p_act_Product_rec.line_lumpsum_amount = FND_API.g_miss_num THEN
2180: x_act_Product_rec.line_lumpsum_amount := l_act_Product_rec.line_lumpsum_amount;
2181: END IF;
2182: IF p_act_Product_rec.line_lumpsum_qty = FND_API.g_miss_num THEN
2183: x_act_Product_rec.line_lumpsum_qty := l_act_Product_rec.line_lumpsum_qty;
2184: END IF;
2185:
2186: IF p_act_Product_rec.scan_value = FND_API.g_miss_num THEN
2182: IF p_act_Product_rec.line_lumpsum_qty = FND_API.g_miss_num THEN
2183: x_act_Product_rec.line_lumpsum_qty := l_act_Product_rec.line_lumpsum_qty;
2184: END IF;
2185:
2186: IF p_act_Product_rec.scan_value = FND_API.g_miss_num THEN
2187: x_act_Product_rec.scan_value := l_act_Product_rec.scan_value;
2188: END IF;
2189:
2190: IF p_act_Product_rec.scan_unit_forecast = FND_API.g_miss_num THEN
2186: IF p_act_Product_rec.scan_value = FND_API.g_miss_num THEN
2187: x_act_Product_rec.scan_value := l_act_Product_rec.scan_value;
2188: END IF;
2189:
2190: IF p_act_Product_rec.scan_unit_forecast = FND_API.g_miss_num THEN
2191: x_act_Product_rec.scan_unit_forecast := l_act_Product_rec.scan_unit_forecast;
2192: END IF;
2193:
2194: IF p_act_Product_rec.channel_id = FND_API.g_miss_num THEN
2190: IF p_act_Product_rec.scan_unit_forecast = FND_API.g_miss_num THEN
2191: x_act_Product_rec.scan_unit_forecast := l_act_Product_rec.scan_unit_forecast;
2192: END IF;
2193:
2194: IF p_act_Product_rec.channel_id = FND_API.g_miss_num THEN
2195: x_act_Product_rec.channel_id := l_act_Product_rec.channel_id;
2196: END IF;
2197:
2198: IF p_act_Product_rec.adjustment_flag = FND_API.g_miss_char THEN
2194: IF p_act_Product_rec.channel_id = FND_API.g_miss_num THEN
2195: x_act_Product_rec.channel_id := l_act_Product_rec.channel_id;
2196: END IF;
2197:
2198: IF p_act_Product_rec.adjustment_flag = FND_API.g_miss_char THEN
2199: x_act_Product_rec.adjustment_flag := l_act_Product_rec.adjustment_flag;
2200: END IF;
2201:
2202: IF p_act_Product_rec.uom_code = FND_API.g_miss_char THEN
2198: IF p_act_Product_rec.adjustment_flag = FND_API.g_miss_char THEN
2199: x_act_Product_rec.adjustment_flag := l_act_Product_rec.adjustment_flag;
2200: END IF;
2201:
2202: IF p_act_Product_rec.uom_code = FND_API.g_miss_char THEN
2203: x_act_Product_rec.uom_code := l_act_Product_rec.uom_code;
2204: END IF;
2205:
2206: IF p_act_Product_rec.quantity = FND_API.g_miss_num THEN
2202: IF p_act_Product_rec.uom_code = FND_API.g_miss_char THEN
2203: x_act_Product_rec.uom_code := l_act_Product_rec.uom_code;
2204: END IF;
2205:
2206: IF p_act_Product_rec.quantity = FND_API.g_miss_num THEN
2207: x_act_Product_rec.quantity := l_act_Product_rec.quantity;
2208: END IF;
2209:
2210: END complete_act_Product_rec;
2615: and category_set_id = p_act_product_rec.category_set_id;
2616:
2617: BEGIN
2618:
2619: x_return_status := FND_API.g_ret_sts_success;
2620: -- checking if cat_id and inv id is passed,assoc exist.
2621: IF (AMS_LOG_PROCEDURE_ON) THEN
2622: AMS_UTILITY_PVT.debug_message(AMS_LOG_PROCEDURE,G_module_name,l_full_name||':Start');
2623: END IF;
2621: IF (AMS_LOG_PROCEDURE_ON) THEN
2622: AMS_UTILITY_PVT.debug_message(AMS_LOG_PROCEDURE,G_module_name,l_full_name||':Start');
2623: END IF;
2624:
2625: IF (( p_act_product_rec.inventory_item_id <> FND_API.G_MISS_NUM
2626: AND p_act_product_rec.category_id <> FND_API.G_MISS_NUM )
2627: AND p_act_product_rec.level_type_code = 'PRODUCT')
2628: THEN
2629: OPEN c_item_cat_check;
2622: AMS_UTILITY_PVT.debug_message(AMS_LOG_PROCEDURE,G_module_name,l_full_name||':Start');
2623: END IF;
2624:
2625: IF (( p_act_product_rec.inventory_item_id <> FND_API.G_MISS_NUM
2626: AND p_act_product_rec.category_id <> FND_API.G_MISS_NUM )
2627: AND p_act_product_rec.level_type_code = 'PRODUCT')
2628: THEN
2629: OPEN c_item_cat_check;
2630: FETCH c_item_cat_check into l_count;
2664:
2665: IF (l_usage is not null
2666: AND l_usage = 'LITE')
2667: THEN
2668: IF ( p_act_product_rec.inventory_item_id <> FND_API.G_MISS_NUM
2669: AND p_act_product_rec.organization_id <> FND_API.G_MISS_NUM )
2670: THEN
2671:
2672: IF (AMS_LOG_STATEMENT_ON) THEN
2665: IF (l_usage is not null
2666: AND l_usage = 'LITE')
2667: THEN
2668: IF ( p_act_product_rec.inventory_item_id <> FND_API.G_MISS_NUM
2669: AND p_act_product_rec.organization_id <> FND_API.G_MISS_NUM )
2670: THEN
2671:
2672: IF (AMS_LOG_STATEMENT_ON) THEN
2673: AMS_UTILITY_PVT.debug_message(AMS_LOG_STATEMENT,G_module_name,'checking if the product association exist in campaign');
2682: END IF;
2683: --- checking if the category, which is assigned to the product,direct assoc with camp
2684: -- or the category exists in its hierarchy association exist in campaign
2685: If ( p_act_product_rec.category_id IS NOT NULL
2686: AND p_Act_product_Rec.category_id <> FND_API.G_MISS_NUM) THEN
2687: IF (AMS_LOG_STATEMENT_ON) THEN
2688: AMS_UTILITY_PVT.debug_message(AMS_LOG_STATEMENT,G_module_name,'INSIDE Category, cat-set-id not null condn');
2689: END IF;
2690: --checking direct assoc
2705: THEN
2706: FND_MESSAGE.set_name('AMS', 'AMS_PROD_ASSOC_NOT_IN_CAMP');
2707: FND_MSG_PUB.add;
2708: END IF;
2709: x_return_status := FND_API.g_ret_sts_error;
2710: RETURN;
2711: END IF;
2712: END IF;
2713: ELSE --- if there is no category passed, which means the product assoc doesnot there in campaign
2715: THEN
2716: FND_MESSAGE.set_name('AMS', 'AMS_PROD_ASSOC_NOT_IN_CAMP');
2717: FND_MSG_PUB.add;
2718: END IF;
2719: x_return_status := FND_API.g_ret_sts_error;
2720: RETURN;
2721: END IF;
2722: END IF;
2723: --- checking if the category association exist. this we would need for just category
2721: END IF;
2722: END IF;
2723: --- checking if the category association exist. this we would need for just category
2724: -- association.
2725: ELSIF (p_act_product_rec.category_id <> FND_API.G_MISS_NUM
2726: AND p_act_product_rec.category_set_id <> FND_API.G_MISS_NUM)
2727: THEN
2728: OPEN check_cat_exist;
2729: FETCH check_cat_exist INTO l_count;
2722: END IF;
2723: --- checking if the category association exist. this we would need for just category
2724: -- association.
2725: ELSIF (p_act_product_rec.category_id <> FND_API.G_MISS_NUM
2726: AND p_act_product_rec.category_set_id <> FND_API.G_MISS_NUM)
2727: THEN
2728: OPEN check_cat_exist;
2729: FETCH check_cat_exist INTO l_count;
2730: CLOSE check_cat_exist;
2746: THEN
2747: FND_MESSAGE.set_name('AMS', 'AMS_CAT_ASSOC_NOT_IN_CAMP');
2748: FND_MSG_PUB.add;
2749: END IF;
2750: x_return_status := FND_API.g_ret_sts_error;
2751: RETURN;
2752: END IF;
2753: END IF;
2754: END IF; -- invId/cat Id chceck
2791: l_level_type_code varchar2(10):= 'FAMILY';
2792:
2793: BEGIN
2794: If p_inv_id is not null
2795: and p_inv_id <> FND_API.G_MISS_NUM
2796: THEN
2797: l_level_type_code := 'PRODUCT';
2798: End If;
2799: