[Home] [Help]
50: is
51: --
52: cursor csr_evt_type is
53: select event_type
54: from ota_events
55: where event_id = p_evt_id;
56: --
57: l_evt_type OTA_EVENTS.event_type%TYPE;
58: l_parent_exists boolean;
53: select event_type
54: from ota_events
55: where event_id = p_evt_id;
56: --
57: l_evt_type OTA_EVENTS.event_type%TYPE;
58: l_parent_exists boolean;
59: --
60: -------------
61: begin
74: --
75: if not l_parent_exists then
76: fnd_message.set_name('OTA','OTA_13202_GEN_INVALID_KEY');
77: fnd_message.set_token('COLUMN_NAME','Event_id');
78: fnd_message.set_token('TABLE_NAME','OTA_EVENTS');
79: fnd_message.raise_error;
80: end if;
81: --
82: if not l_evt_type in ('AD-HOC','SCHEDULED','PROGRAMME') then
188: ) is
189: --
190: l_exists varchar2(1);
191: --l_cross_business_group varchar2(1):= fnd_profile.value('HR_CROSS_BUSINESS_GROUP') ;
192: l_business_group_id ota_events.business_group_id%type := fnd_profile.value('OTA_HR_GLOBAL_BUSINESS_GROUP_ID');
193: --
194: cursor c_get_customer_association is
195: select 'X'
196: from ota_event_associations
215: or event_association_id <> p_event_association_id);
216: --
217: cursor check_org_job_pos is
218: select null
219: from ota_events evt
220: where event_id = p_event_id
221: and (p_organization_id is null or exists
222: (select null
223: from hr_organization_units
236:
237: /* For Globalization */
238: cursor check_org_job_pos_cross is
239: select null
240: from ota_events evt
241: where event_id = p_event_id
242: and (p_organization_id is null or exists
243: (select null
244: from hr_all_organization_units
448: l_public_event_flag varchar2(30);
449: --
450: cursor get_event is
451: select public_event_flag
452: from ota_events
453: where event_id = p_event_id;
454: --
455: begin
456: open get_event;
490: cursor get_internal_enrollments is
491: select asg.organization_id,asg.job_id,asg.position_id
492: from ota_delegate_bookings tdb
493: , per_assignments_f asg
494: , ota_events evt
495: where evt.event_id = p_event_id
496: and evt.event_id = tdb.event_id
497: and tdb.delegate_assignment_id = asg.assignment_id
498: and tdb.date_booking_placed between
622: cursor csr_price is
623: select ple.price
624: from ota_price_lists tpl,
625: ota_price_list_entries ple,
626: ota_events evt,
627: ota_vendor_supplies vsp
628: where
629: evt.event_id = p_event_id
630: and tpl.business_group_id = p_business_group_id
736: --
737: cursor c1 is
738: select null
739: from ota_price_list_entries ple,
740: ota_events evt,
741: ota_price_lists_v tpl
742: where evt.event_id = p_event_id
743: and tpl.business_group_id = p_business_group_id
744: and tpl.currency_code = evt.currency_code
804: Procedure insert_validate(p_rec in ota_tea_shd.g_rec_type
805: ,p_association_type in varchar2) is
806: --
807: l_proc varchar2(72) := g_package||'insert_validate';
808: l_price_basis ota_events.price_basis%type; /* bug no 3476078 */
809: --
810: Begin
811: hr_utility.set_location('Entering:'||l_proc, 5);
812: --
818: ,p_cus_id => p_rec.customer_id);
819: --
820: else
821: /* bug no 3476078 */
822: select price_basis into l_price_basis from ota_events where event_id = p_rec.event_id;
823: if p_rec.customer_id is null and l_price_basis = 'C' then
824: fnd_message.set_name('OTA','OTA_443659_ASG_LRNR_CUST_ERR');
825: fnd_message.raise_error;
826: end if;
845: Procedure update_validate(p_rec in ota_tea_shd.g_rec_type
846: ,p_association_type in varchar2) is
847: --
848: l_proc varchar2(72) := g_package||'update_validate';
849: l_price_basis ota_events.price_basis%type; /* bug no 3476078 */
850: --
851: l_customer_changed boolean :=
852: ota_general.value_changed( ota_tea_shd.g_old_rec.customer_id
853: , p_rec.customer_id );
877: ,p_customer_id => p_rec.customer_id);
878: end if;
879: else
880: /* bug no 3476078 */
881: select price_basis into l_price_basis from ota_events where event_id = p_rec.event_id;
882: if p_rec.customer_id is null and l_price_basis = 'C' then
883: fnd_message.set_name('OTA','OTA_443659_ASG_LRNR_CUST_ERR');
884: fnd_message.raise_error;
885: end if;