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