[Home] [Help]
PACKAGE BODY: APPS.PO_NOTES_SV
Source
1 PACKAGE BODY PO_NOTES_SV AS
2 /* $Header: poxcenb.pls 115.1 99/09/24 16:18:55 porting ship $ */
3
4 FUNCTION get_entity_name (
5 p_table_name VARCHAR2
6 ) RETURN VARCHAR2 IS
7 x_entity_name VARCHAR2(40);
8 BEGIN
9
10 IF p_table_name='PO_HEADERS' THEN RETURN 'PO_HEADERS';
11 ELSIF p_table_name='PO_LINES' THEN RETURN 'PO_LINES';
12 ELSIF p_table_name='PO_LINE_LOCATIONS' THEN RETURN 'PO_SHIPMENTS';
13 ELSIF p_table_name='PO_RELEASES' THEN RETURN 'PO_RELEASES';
14 ELSIF p_table_name='PO_REQUISITION_HEADERS' THEN RETURN 'REQ_HEADERS';
15 ELSIF p_table_name='PO_REQUISITION_LINES' THEN RETURN 'REQ_LINES';
16 ELSIF p_table_name='RCV_SHIPMENT_HEADERS' THEN RETURN 'RCV_HEADERS';
17 ELSIF p_table_name='RCV_SHIPMENT_LINES' THEN RETURN 'RCV_LINES';
18 ELSIF p_table_name='RCV_TRANSACTIONS' THEN RETURN 'RCV_TRANSACTIONS';
19 ELSIF p_table_name='RCV_TRANSACTIONS_INTERFACE' THEN RETURN 'RCV_TRANSACTIONS_INTERFACE';
20 ELSIF p_table_name='MTL_SYSTEM_ITEMS' THEN RETURN 'MTL_SYSTEM_ITEMS';
21 ELSIF p_table_name = 'PO_VENDORS' THEN return 'PO_VENDORS';
22 ELSE RETURN 'NOT_PO_ENTITY';
23 END IF;
24
25 END;
26
27 /*===========================================================================
28
29 PROCEDURE NAME: copy_notes
30
31 ===========================================================================*/
32
33 PROCEDURE copy_notes(X_orig_id IN NUMBER,
34 X_orig_column IN VARCHAR2,
35 X_orig_table IN VARCHAR2,
36 X_add_on_title IN VARCHAR2,
37 X_new_id IN NUMBER,
38 X_new_column IN VARCHAR2,
39 X_new_table IN VARCHAR2,
40 X_last_updated_by IN NUMBER,
41 X_last_update_login IN NUMBER) IS
42
43 x_from_entity_name Varchar2(40);
44 x_to_entity_name Varchar2(40);
45
46 BEGIN
47 /* X_add_on_title is not useful here, but for consistence, leave it there */
48 x_from_entity_name := get_entity_name(X_orig_table);
49 x_to_entity_name := get_entity_name(X_new_table);
50 fnd_attached_documents2_pkg.copy_attachments(x_from_entity_name,
51 X_orig_id,
52 '',
53 '',
54 '',
55 '',
56 x_to_entity_name,
57 X_new_id,
58 '',
59 '',
60 '',
61 '',
62 X_last_updated_by,
63 X_last_update_login,
64 '',
65 '',
66 '');
67 /* If something fails then return a 0 as failure */
68 EXCEPTION
69 WHEN OTHERS THEN
70 raise;
71
72 END copy_notes;
73
74 END PO_NOTES_SV;
75