43: hr_utility.set_location ('Constrint Name = '||p_constraint_name,5);
44: --
45: -- Key constraints
46: --
47: If (p_constraint_name = 'OTA_EVENTS_FK1') Then
48: FND_MESSAGE.SET_NAME('OTA','OTA_13429_EVT_NO_TAV');
49: fnd_message.raise_error;
50: ElsIf (p_constraint_name = 'OTA_EVENTS_FK2') Then
51: FND_MESSAGE.SET_NAME('OTA','OTA_13430_EVT_NO_BUS');
46: --
47: If (p_constraint_name = 'OTA_EVENTS_FK1') Then
48: FND_MESSAGE.SET_NAME('OTA','OTA_13429_EVT_NO_TAV');
49: fnd_message.raise_error;
50: ElsIf (p_constraint_name = 'OTA_EVENTS_FK2') Then
51: FND_MESSAGE.SET_NAME('OTA','OTA_13430_EVT_NO_BUS');
52: fnd_message.raise_error;
53: ElsIf (p_constraint_name = 'OTA_EVENTS_FK3') Then
54: FND_MESSAGE.SET_NAME('OTA','OTA_13431_EVT_NO_BUD');
49: fnd_message.raise_error;
50: ElsIf (p_constraint_name = 'OTA_EVENTS_FK2') Then
51: FND_MESSAGE.SET_NAME('OTA','OTA_13430_EVT_NO_BUS');
52: fnd_message.raise_error;
53: ElsIf (p_constraint_name = 'OTA_EVENTS_FK3') Then
54: FND_MESSAGE.SET_NAME('OTA','OTA_13431_EVT_NO_BUD');
55: fnd_message.raise_error;
56: ElsIf (p_constraint_name = 'OTA_EVENTS_FK4') Then
57: FND_MESSAGE.SET_NAME('OTA','OTA_13432_EVT_NO_ORG');
52: fnd_message.raise_error;
53: ElsIf (p_constraint_name = 'OTA_EVENTS_FK3') Then
54: FND_MESSAGE.SET_NAME('OTA','OTA_13431_EVT_NO_BUD');
55: fnd_message.raise_error;
56: ElsIf (p_constraint_name = 'OTA_EVENTS_FK4') Then
57: FND_MESSAGE.SET_NAME('OTA','OTA_13432_EVT_NO_ORG');
58: fnd_message.raise_error;
59: ElsIf (p_constraint_name = 'OTA_EVENTS_FK5') Then
60: FND_MESSAGE.SET_NAME('OTA','OTA_13433_EVT_NO_PAR');
55: fnd_message.raise_error;
56: ElsIf (p_constraint_name = 'OTA_EVENTS_FK4') Then
57: FND_MESSAGE.SET_NAME('OTA','OTA_13432_EVT_NO_ORG');
58: fnd_message.raise_error;
59: ElsIf (p_constraint_name = 'OTA_EVENTS_FK5') Then
60: FND_MESSAGE.SET_NAME('OTA','OTA_13433_EVT_NO_PAR');
61: fnd_message.raise_error;
62: /* 3803613 */
63: ElsIf (p_constraint_name = 'OTA_PROGRAM_MEMBERSHIPS_FK1') Then
63: ElsIf (p_constraint_name = 'OTA_PROGRAM_MEMBERSHIPS_FK1') Then
64: FND_MESSAGE.SET_NAME('OTA','OTA_13681_EVT_PMM_EXISTS');
65: fnd_message.raise_error;
66: /* 3803613 */
67: ElsIf (p_constraint_name = 'OTA_EVENTS_PK') Then
68: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
69: hr_utility.set_message_token('PROCEDURE', W_PROC);
70: hr_utility.set_message_token('STEP','30');
71: hr_utility.raise_error;
68: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
69: hr_utility.set_message_token('PROCEDURE', W_PROC);
70: hr_utility.set_message_token('STEP','30');
71: hr_utility.raise_error;
72: ElsIf (p_constraint_name = 'OTA_EVENTS_UK2') Then
73: fnd_message.set_name('OTA','OTA_13471_SES_EXISTS');
74: fnd_message.raise_error;
75: ElsIf (p_constraint_name = 'OTA_EVENT_UK3') Then
76: fnd_message.set_name('OTA','OTA_13889_EVT_LINE_DUPLICATE');
187: fnd_message.raise_error;
188: ElsIf (p_constraint_name = 'OTA_EVT_VENDOR_NULL') Then
189: fnd_message.set_name('OTA','OTA_13453_EVT_VENDOR');
190: fnd_message.raise_error;
191: ElsIf (p_constraint_name = 'OTA_EVENTS_UK4') Then
192: fnd_message.set_name('OTA', 'OTA_EVT_DUPLICATE_OFFERING');
193: fnd_message.raise_error;
194: --
195: -- ?
285: offering_id,
286: timezone,
287: parent_offering_id,
288: data_source
289: from ota_events
290: where event_id = p_event_id;
291: --
292: l_proc varchar2(72) := g_package||'api_updating';
293: l_fct_ret boolean;
417: offering_id,
418: timezone,
419: parent_offering_id,
420: data_source
421: from ota_events
422: where event_id = p_event_id
423: for update nowait;
424: --
425: l_proc varchar2(72) := g_package||'lck';
460: -- The object is locked therefore we need to supply a meaningful
461: -- error message.
462: --
463: hr_utility.set_message(801, 'HR_7165_OBJECT_LOCKED');
464: hr_utility.set_message_token('TABLE_NAME', 'ota_events');
465: hr_utility.raise_error;
466: End lck;
467: -- ----------------------------------------------------------------------------
468: -- |-----------------------------< convert_args >-----------------------------|
706: , offering_id
707: , timezone
708: , parent_offering_id
709: , data_source
710: from OTA_EVENTS_VL
711: where EVENT_ID = P_EVENT_ID;
712: --
713: begin
714: --
747: --
748: cursor c1 is
749: select null
750: from ota_program_memberships mem,
751: ota_events evt
752: where mem.program_event_id = p_event_id
753: and mem.event_id = evt.event_id
754: and evt.event_status = 'P';
755: --
846: -- ----------------------------------------------------------------------------
847: -- -----------------------< CHECK_EVENT_IS_VALID >-----------------------------
848: -- ----------------------------------------------------------------------------
849: --
850: -- Raises an error if the event ID used does not exist on OTA_EVENTS.
851: --
852: procedure CHECK_EVENT_IS_VALID (
853: P_EVENT_ID in number
854: ) is
976:
977: cursor C2 is
978: select ol.unit_selling_price,
979: ol.line_id
980: from ota_events evt,
981: oe_order_lines_all ol
982: where evt.event_id = p_event_id and
983: ol.line_id = evt.line_id;
984:
982: where evt.event_id = p_event_id and
983: ol.line_id = evt.line_id;
984:
985: --
986: w_line_id ota_events.line_id%type;
987: W_TOTAL number;
988: --
989: begin
990: --