[Home] [Help]
1: PACKAGE BODY AMS_EventOffer_PVT AS
2: /*$Header: amsvevob.pls 120.13 2006/10/26 01:06:17 batoleti ship $*/
3: g_pkg_name CONSTANT VARCHAR2(30):='AMS_EventOffer_PVT';
4:
5: AMS_DEBUG_HIGH_ON CONSTANT boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
1: PACKAGE BODY AMS_EventOffer_PVT AS
2: /*$Header: amsvevob.pls 120.13 2006/10/26 01:06:17 batoleti ship $*/
3: g_pkg_name CONSTANT VARCHAR2(30):='AMS_EventOffer_PVT';
4:
5: AMS_DEBUG_HIGH_ON CONSTANT boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
6: AMS_DEBUG_LOW_ON CONSTANT boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
7: AMS_DEBUG_MEDIUM_ON CONSTANT boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
251: p_setup_id IN NUMBER
252: );
253:
254: PROCEDURE check_evo_update(
255: p_evo_rec IN OUT NOCOPY AMS_EVENTOFFER_PVT.evo_rec_type,
256: x_return_status OUT NOCOPY VARCHAR2
257: );
258: PROCEDURE check_evo_inter_entity(
259: p_evo_rec IN evo_rec_type,
4398: -- HISTORY
4399: -- 03/31/00 sugupta Created.
4400: ---------------------------------------------------------------------
4401: PROCEDURE check_evo_update(
4402: p_evo_rec IN OUT NOCOPY AMS_EVENTOFFER_PVT.evo_rec_type,
4403: x_return_status OUT NOCOPY VARCHAR2
4404: )
4405: IS
4406: CURSOR c_evo IS
6119: l_name VARCHAR2(80);
6120: l_msg_count NUMBER; -- variables for the OUT parameters of the called create procedures
6121: l_msg_data VARCHAR2(512); -- variables for the OUT parameters of the called create procedures
6122:
6123: l_evo_rec ams_eventoffer_pvt.evo_rec_type := p_evo_rec;
6124:
6125: l_mesg_text VARCHAR2(2000);
6126: p_errmsg VARCHAR2(3000);
6127: l_eventheader_rec ams_event_headers_vl%ROWTYPE;
6467: l_errnum,
6468: l_errcode,
6469: l_errmsg);
6470:
6471: if (AMS_EventOffer_PVT.check_association_exists(l_object_type,l_object_id,'MESG',NULL)
6472: = FND_API.g_true) then
6473:
6474: AMS_ObjectAttribute_PVT.modify_object_attribute(
6475: p_api_version => p_api_version,
6500: l_errnum,
6501: l_errcode,
6502: l_errmsg);
6503:
6504: if (AMS_EventOffer_PVT.check_association_exists(l_object_type,l_object_id,'PROD',NULL)
6505: = FND_API.g_true) then
6506:
6507: AMS_ObjectAttribute_PVT.modify_object_attribute(
6508: p_api_version => p_api_version,
6536: l_errmsg);
6537: l_association_copied := l_association_copied + 1;
6538: end if;
6539: if l_obj_attr(i-1).OBJECT_ATTRIBUTE = 'CAMP' then
6540: if (AMS_EventOffer_PVT.check_association_exists(l_object_type,l_object_id,'CAMP',NULL)
6541: = FND_API.g_true) then
6542:
6543: AMS_ObjectAttribute_PVT.modify_object_attribute(
6544: p_api_version => p_api_version,
6556: p_attr_defined_flag => 'Y'
6557: );
6558: end if;
6559: elsif l_obj_attr(i-1).OBJECT_ATTRIBUTE = 'DELV' then
6560: if (AMS_EventOffer_PVT.check_association_exists(l_object_type,l_object_id,'DELV',NULL)
6561: = FND_API.g_true) then
6562:
6563: AMS_ObjectAttribute_PVT.modify_object_attribute(
6564: p_api_version => p_api_version,
6590: l_errnum,
6591: l_errcode,
6592: l_errmsg);
6593:
6594: if (AMS_EventOffer_PVT.check_association_exists(l_object_type,l_object_id,'ATCH',NULL)
6595: = FND_API.g_true) then
6596:
6597: AMS_ObjectAttribute_PVT.modify_object_attribute(
6598: p_api_version => p_api_version,
6624: l_errnum,
6625: l_errcode,
6626: l_errmsg);
6627:
6628: if (AMS_EventOffer_PVT.check_association_exists(l_object_type,l_object_id,'RESC',NULL)
6629: = FND_API.g_true) then
6630:
6631: AMS_ObjectAttribute_PVT.modify_object_attribute(
6632: p_api_version => p_api_version,
6658: l_errnum,
6659: l_errcode,
6660: l_errmsg);
6661:
6662: if (AMS_EventOffer_PVT.check_association_exists(l_object_type,l_object_id,'CELL',NULL)
6663: = FND_API.g_true) then
6664:
6665: AMS_ObjectAttribute_PVT.modify_object_attribute(
6666: p_api_version => p_api_version,
6795: PROCEDURE Unit_Test_Insert
6796: IS
6797:
6798: -- local variables
6799: l_evo_rec AMS_EVENTOFFER_PVT.evo_rec_type;
6800: l_return_status VARCHAR2(1);
6801: l_msg_count NUMBER;
6802: l_msg_data VARCHAR2(200);
6803: l_evo_id AMS_event_offers_all_b.event_offer_id%type;
6802: l_msg_data VARCHAR2(200);
6803: l_evo_id AMS_event_offers_all_b.event_offer_id%type;
6804:
6805: BEGIN
6806: --AMS_EVENTOFFER_PVT.init_evo_rec(l_evo_rec);
6807: -- l_evo_rec.source_code:= 'CAMP101';
6808: L_EVO_REC.EVENT_OFFER_NAME := 'HIJACK CRISIS OVER NO PARTY';
6809: l_evo_rec.event_level := 'MAIN';
6810: l_evo_rec.user_status_id := 100;
6822: l_evo_rec.priority_type_code := 'HIGH';
6823: -- l_evo_rec.object_version_number := 5;
6824: l_evo_rec.event_header_id := 1001;
6825:
6826: --dbms_output.put_line('Call AMS_EVENTOFFER_PVT.UPDATE_offer');
6827:
6828: AMS_EVENTOFFER_PVT.create_event_offer(
6829: p_api_version => 1.0 -- p_api_version
6830: ,p_init_msg_list => FND_API.G_FALSE
6824: l_evo_rec.event_header_id := 1001;
6825:
6826: --dbms_output.put_line('Call AMS_EVENTOFFER_PVT.UPDATE_offer');
6827:
6828: AMS_EVENTOFFER_PVT.create_event_offer(
6829: p_api_version => 1.0 -- p_api_version
6830: ,p_init_msg_list => FND_API.G_FALSE
6831: ,p_commit => FND_API.G_FALSE
6832: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
6840: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6841: --dbms_output.put_line(l_return_status);
6842: --dbms_output.put_line(l_msg_count);
6843: AMS_UTILITY_PVT.display_messages;
6844: --dbms_output.put_line('AMS_EVENTOFFER_PVT.update ERROR');
6845: ELSE
6846: commit work;
6847: --dbms_output.put_line(l_return_status);
6848: AMS_UTILITY_PVT.display_messages;
7535: -- End of Fulfillment VMODUR
7536:
7537: END fulfill_event_offer;
7538: ---------------------------------------------------------------------
7539: END AMS_EventOffer_PVT;