29: fnd_message.set_name('OTA','OTA_13489_TFH_CANCEL_FLAG');
30: fnd_message.raise_error;
31: end if;
32: --
33: ota_tfh_api_business_rules.check_receivable_attributes
34: ( p_rec.type
35: , p_rec.customer_id
36: , p_rec.contact_id
37: , p_rec.address_id
41: , null
42: , null
43: , p_rec.receivable_type);
44: --
45: ota_tfh_api_business_rules.check_payable_attributes
46: ( p_rec.type
47: , p_rec.vendor_id
48: , p_rec.contact_id
49: , p_rec.address_id
53: , null
54: , null
55: , p_rec.receivable_type);
56: --
57: ota_tfh_api_business_rules.check_cancellation_attributes
58: ( p_rec.type
59: , p_rec.superceding_header_id
60: , p_rec.customer_id
61: , p_rec.contact_id
67: , null
68: , p_rec.payment_method
69: , p_rec.receivable_type);
70: --
71: ota_tfh_api_business_rules.check_status_unauthorized
72: ( p_rec.transfer_status
73: , p_rec.authorizer_person_id );
74: --
75: If p_rec.date_raised is null Then
73: , p_rec.authorizer_person_id );
74: --
75: If p_rec.date_raised is null Then
76: --
77: ota_tfh_api_business_rules.set_date_raised( p_rec.date_raised
78: , sysdate );
79: --
80: End if;
81: --
78: , sysdate );
79: --
80: End if;
81: --
82: ota_tfh_api_business_rules.check_authorized_by
83: ( p_rec.authorizer_person_id);
84:
85: --
86: ota_tfh_api_business_rules.check_customer_address
82: ota_tfh_api_business_rules.check_authorized_by
83: ( p_rec.authorizer_person_id);
84:
85: --
86: ota_tfh_api_business_rules.check_customer_address
87: ( p_rec.customer_id
88: , p_rec.address_id );
89: --
90: if p_rec.invoice_address is null and
88: , p_rec.address_id );
89: --
90: if p_rec.invoice_address is null and
91: p_rec.address_id is not null then
92: ota_tfh_api_business_rules.set_invoice_address
93: ( p_rec.customer_id
94: , p_rec.address_id
95: , p_rec.invoice_address );
96: end if;
94: , p_rec.address_id
95: , p_rec.invoice_address );
96: end if;
97: --
98: ota_tfh_api_business_rules.check_customer_contact
99: ( p_rec.customer_id
100: , p_rec.contact_id );
101: --
102: if p_rec.invoice_address is null and
100: , p_rec.contact_id );
101: --
102: if p_rec.invoice_address is null and
103: p_rec.address_id is not null then
104: ota_tfh_api_business_rules.set_invoice_contact
105: ( p_rec.customer_id
106: , p_rec.contact_id
107: , p_rec.invoice_contact );
108: end if;
106: , p_rec.contact_id
107: , p_rec.invoice_contact );
108: end if;
109: --
110: ota_tfh_api_business_rules.check_vendor_contact
111: ( p_rec.vendor_id
112: , p_rec.contact_id );
113: --
114: ota_tfh_api_business_rules.check_vendor_address
110: ota_tfh_api_business_rules.check_vendor_contact
111: ( p_rec.vendor_id
112: , p_rec.contact_id );
113: --
114: ota_tfh_api_business_rules.check_vendor_address
115: ( p_rec.vendor_id
116: , p_rec.address_id );
117: --
118: ota_tfh_api_business_rules.check_superseded_header
114: ota_tfh_api_business_rules.check_vendor_address
115: ( p_rec.vendor_id
116: , p_rec.address_id );
117: --
118: ota_tfh_api_business_rules.check_superseded_header
119: ( p_rec.type
120: , p_rec.superceding_header_id );
121: --
122: ota_tfh_api_business_rules.check_payment_method( p_rec.payment_method );
118: ota_tfh_api_business_rules.check_superseded_header
119: ( p_rec.type
120: , p_rec.superceding_header_id );
121: --
122: ota_tfh_api_business_rules.check_payment_method( p_rec.payment_method );
123: --
124: if p_rec.type <> 'CT' then
125: ota_tfh_api_business_rules.check_allow_transfer
126: ( p_rec.transfer_status
121: --
122: ota_tfh_api_business_rules.check_payment_method( p_rec.payment_method );
123: --
124: if p_rec.type <> 'CT' then
125: ota_tfh_api_business_rules.check_allow_transfer
126: ( p_rec.transfer_status
127: , p_rec.payment_method );
128: end if;
129: --
126: ( p_rec.transfer_status
127: , p_rec.payment_method );
128: end if;
129: --
130: ota_tfh_api_business_rules.check_administrator( p_rec.administrator );
131:
132: --
133: --
134: -- check_transfer_status( p_rec.transfer_status);
223: --
224: -- Call all supporting business operations
225: --
226: --
227: ota_tfh_api_business_rules.check_update_header
228: ( ota_tfh_api_shd.g_old_rec
229: , p_rec
230: , p_transaction_type);
231: --
236: end if;
237: --
238: -- If finance header has been superseded then no changes allowed
239: --
240: ota_tfh_api_business_rules.check_superseded (p_rec.finance_header_id);
241: --
242: If l_type_changed OR
243: l_customer_id_changed OR
244: l_address_id_changed OR
245: l_contact_id_changed OR
246: l_vendor_id_changed OR
247: l_cancelled_flag_changed Then
248: --
249: ota_tfh_api_business_rules.check_receivable_attributes
250: ( p_rec.type
251: , p_rec.customer_id
252: , p_rec.contact_id
253: , p_rec.address_id
257: , null
258: , null
259: , p_rec.receivable_type);
260: --
261: ota_tfh_api_business_rules.check_payable_attributes
262: ( p_rec.type
263: , p_rec.vendor_id
264: , p_rec.contact_id
265: , p_rec.address_id
278: l_address_id_changed OR
279: l_contact_id_changed OR
280: l_vendor_id_changed Then
281: --
282: ota_tfh_api_business_rules.check_cancellation_attributes
283: ( p_rec.type
284: , p_rec.superceding_header_id
285: , p_rec.customer_id
286: , p_rec.contact_id
296: End if;
297: --
298: If l_authorizer_person_id_changed or l_transfer_status_changed Then
299: --
300: ota_tfh_api_business_rules.check_status_unauthorized
301: ( p_rec.transfer_status
302: , p_rec.authorizer_person_id );
303: --
304: ota_tfh_api_business_rules.check_authorized_by
300: ota_tfh_api_business_rules.check_status_unauthorized
301: ( p_rec.transfer_status
302: , p_rec.authorizer_person_id );
303: --
304: ota_tfh_api_business_rules.check_authorized_by
305: ( p_rec.authorizer_person_id);
306: --
307: End if;
308: --
307: End if;
308: --
309: If l_customer_id_changed Then
310: --
311: ota_tfh_api_business_rules.check_update_customer_id
312: ( p_rec.customer_id
313: , p_rec.address_id
314: , p_rec.contact_id
315: , p_rec.vendor_id );
319: If l_address_id_changed Then
320: --
321: if p_rec.invoice_address is null and
322: p_rec.address_id is not null then
323: ota_tfh_api_business_rules.set_invoice_address
324: ( p_rec.customer_id
325: , p_rec.address_id
326: , p_rec.invoice_address );
327: end if;
331: If l_contact_id_changed Then
332: --
333: if p_rec.invoice_address is null and
334: p_rec.address_id is not null then
335: ota_tfh_api_business_rules.set_invoice_contact
336: ( p_rec.customer_id
337: , p_rec.contact_id
338: , p_rec.invoice_contact );
339: end if;
341: End if;
342: --
343: If l_vendor_id_changed Then
344: --
345: ota_tfh_api_business_rules.check_vendor_contact
346: ( p_rec.vendor_id
347: , p_rec.contact_id );
348: --
349: ota_tfh_api_business_rules.check_vendor_address
345: ota_tfh_api_business_rules.check_vendor_contact
346: ( p_rec.vendor_id
347: , p_rec.contact_id );
348: --
349: ota_tfh_api_business_rules.check_vendor_address
350: ( p_rec.vendor_id
351: , p_rec.address_id );
352: --
353: Else
353: Else
354: --
355: If l_address_id_changed Then
356: --
357: ota_tfh_api_business_rules.check_vendor_address
358: ( p_rec.vendor_id
359: , p_rec.address_id );
360: --
361: End if;
361: End if;
362: --
363: If l_contact_id_changed Then
364: --
365: ota_tfh_api_business_rules.check_vendor_contact
366: ( p_rec.vendor_id
367: , p_rec.contact_id );
368: --
369: End if;
372: --
373: If l_type_changed OR
374: l_supercedes_header_id_changed Then
375: --
376: ota_tfh_api_business_rules.check_superseded_header
377: ( p_rec.type
378: , p_rec.superceding_header_id );
379: --
380: End if;
380: End if;
381: --
382: If l_payment_method_changed Then
383: --
384: ota_tfh_api_business_rules.check_payment_method
385: ( p_rec.payment_method );
386: --
387: End if;
388: --
389: If p_rec.type <> 'CT' Then
390: If l_transfer_status_changed OR
391: l_payment_method_changed Then
392: --
393: ota_tfh_api_business_rules.check_allow_transfer
394: ( p_rec.transfer_status
395: , p_rec.payment_method );
396: End if;
397: --
397: --
398: End if;
399: --
400: If l_transfer_status_changed then
401: ota_tfh_api_business_rules.check_transfer_rules
402: (p_rec.transfer_status
403: ,ota_tfh_api_shd.g_old_rec.transfer_status);
404: End if;
405: --
404: End if;
405: --
406: If l_administrator_changed Then
407: --
408: ota_tfh_api_business_rules.check_administrator( p_rec.administrator );
409: --
410: End if;
411:
412: --
426: hr_utility.set_location('Entering:'||l_proc, 5);
427: --
428: -- Call all supporting business operations
429: --
430: ota_tfh_api_business_rules.check_deletion( p_rec.finance_header_id);
431: --
432: hr_utility.set_location(' Leaving:'||l_proc, 10);
433: End delete_validate;
434: --