1 Package Body ota_ap_delete as
2 /* $Header: otdap01t.pkb 115.0 99/07/16 00:51:04 porting ship $ */
3 --
4 g_package varchar2(33) := ' ota_ap_delete.'; -- Global package name
5 --
6 Procedure check_delete(p_vendor_id number default null
7 ,p_contact_id number default null
8 ,p_vendor_site_id number default null) is
9 --
10 l_proc varchar2(72) := g_package||'check_delete';
11 l_exists varchar2(1);
12 --
13 cursor c_events is
14 select null
15 from ota_events
16 where vendor_id = p_vendor_id;
17 --
18 cursor c_activity_versions is
19 select null
20 from ota_activity_versions
21 where vendor_id = p_vendor_id;
22 --
23 cursor c_suppliable_resources is
24 select null
25 from ota_suppliable_resources
26 where vendor_id = p_vendor_id;
27 --
28 cursor c_finance_headers1 is
29 select null
30 from ota_finance_headers
31 where vendor_id = p_vendor_id;
32 --
33 cursor c_finance_headers2 is
34 select null
35 from ota_finance_headers
36 where contact_id = p_contact_id
37 and vendor_id is not null;
38 --
39 cursor c_finance_headers3 is
40 select null
41 from ota_finance_headers
42 where address_id = p_vendor_site_id
43 and vendor_id is not null;
44 --
45 begin
46 hr_utility.set_location('Entering:'||l_proc, 5);
47 --
48 if p_vendor_id is not null then
49 --
50 hr_utility.set_location('Entering:'||l_proc, 15);
51 open c_events;
52 fetch c_events into l_exists;
53 if c_events%found then
54 close c_events;
55 fnd_message.set_name('OTA','OTA_13543_VENDOR_DELETE');
56 fnd_message.set_token('TABLE','OTA_EVENTS');
57 fnd_message.set_token('COLUMN','VENDOR_ID');
58 fnd_message.raise_error;
59 end if;
60 close c_events;
61 --
62 hr_utility.set_location('Entering:'||l_proc, 20);
63 open c_activity_versions;
64 fetch c_activity_versions into l_exists;
65 if c_activity_versions%found then
66 close c_activity_versions;
67 fnd_message.set_name('OTA','OTA_13543_VENDOR_DELETE');
68 fnd_message.set_token('TABLE','OTA_BOOKING_DEALS');
69 fnd_message.set_token('COLUMN','CUSTOMER_ID');
70 fnd_message.raise_error;
71 end if;
72 close c_activity_versions;
73 --
74 hr_utility.set_location('Entering:'||l_proc, 25);
75 open c_suppliable_resources;
76 fetch c_suppliable_resources into l_exists;
77 if c_suppliable_resources%found then
78 close c_suppliable_resources;
79 fnd_message.set_name('OTA','OTA_13543_VENDOR_DELETE');
80 fnd_message.set_token('TABLE','OTA_DELEGATE_BOOKINGS');
81 fnd_message.set_token('COLUMN','THIRD_PARTY_CUSTOMER_ID');
82 fnd_message.raise_error;
83 end if;
84 close c_suppliable_resources;
85 --
86 hr_utility.set_location('Entering:'||l_proc, 35);
87 open c_finance_headers1;
88 fetch c_finance_headers1 into l_exists;
89 if c_finance_headers1%found then
90 close c_finance_headers1;
91 fnd_message.set_name('OTA','OTA_13543_VENDOR_DELETE');
92 fnd_message.set_token('TABLE','OTA_FINANCE_HEADERS');
93 fnd_message.set_token('COLUMN','CUSTOMER_ID');
94 fnd_message.raise_error;
95 end if;
96 close c_finance_headers1;
97 --
98 elsif p_contact_id is not null then
99 --
100 hr_utility.set_location('Entering:'||l_proc, 55);
101 open c_finance_headers2;
102 fetch c_finance_headers2 into l_exists;
103 if c_finance_headers2%found then
104 close c_finance_headers2;
105 fnd_message.set_name('OTA','OTA_13544_VEND_CONTACT_DELETE');
106 fnd_message.set_token('TABLE','OTA_FINANCE_HEADERS');
107 fnd_message.set_token('COLUMN','CONTACT_ID');
108 fnd_message.raise_error;
109 end if;
110 close c_finance_headers2;
111 --
112 elsif p_vendor_site_id is not null then
113 --
114 hr_utility.set_location('Entering:'||l_proc, 70);
115 open c_finance_headers3;
116 fetch c_finance_headers3 into l_exists;
117 if c_finance_headers3%found then
118 close c_finance_headers3;
119 fnd_message.set_name('OTA','OTA_13545_VEND_SITE_DELETE');
120 fnd_message.set_token('TABLE','OTA_FINANCE_HEADERS');
121 fnd_message.set_token('COLUMN','ADDRESS_ID');
122 fnd_message.raise_error;
123 end if;
124 close c_finance_headers3;
125 --
126 end if;
127 --
128 hr_utility.set_location(' Leaving:'||l_proc, 75);
129 end;
130 --
131 end ota_ap_delete;