1 PACKAGE inv_object_genealogy AUTHID CURRENT_USER AS
2 /* $Header: INVOGENS.pls 120.5.12020000.3 2013/03/21 07:18:00 gausriva ship $ */
3 FUNCTION getobjecttype(p_object_id IN NUMBER)
4 RETURN NUMBER;
5
6 FUNCTION getobjectnumber(
7 p_object_id IN NUMBER
8 , p_object_type IN NUMBER
9 , p_object_id2 IN NUMBER DEFAULT NULL
10 , p_object_type2 IN NUMBER DEFAULT NULL
11 )
12 RETURN VARCHAR2;
13
14 PROCEDURE getobjectinfo(
15 p_object_id IN NUMBER
16 , p_object_type IN NUMBER
17 , p_object_name OUT NOCOPY VARCHAR2
18 , p_object_description OUT NOCOPY VARCHAR2
19 , p_object_type_name OUT NOCOPY VARCHAR2
20 , p_expiration_date OUT NOCOPY DATE
21 , p_primary_uom OUT NOCOPY VARCHAR2
22 , p_inventory_item_id OUT NOCOPY NUMBER
23 , p_object_number OUT NOCOPY VARCHAR2
24 , p_material_status OUT NOCOPY VARCHAR2
25 , p_unit_number OUT NOCOPY VARCHAR2
26 );
27
28 /*Serial Tracking in WIP. Create an overloaded procedure getobjectinfo which returns 3
29 extra parameters- wip_entity_id, operation_seq_num and intraoperation_step_type */
30 /*R12 Lot Serial Genealogy Project : Added new parameter x_current_lot_number */
31 PROCEDURE getobjectinfo(
32 p_object_id IN NUMBER
33 , p_object_type IN NUMBER
34 , p_object_name OUT NOCOPY VARCHAR2
35 , p_object_description OUT NOCOPY VARCHAR2
36 , p_object_type_name OUT NOCOPY VARCHAR2
37 , p_expiration_date OUT NOCOPY DATE
38 , p_primary_uom OUT NOCOPY VARCHAR2
39 , p_inventory_item_id OUT NOCOPY NUMBER
40 , p_object_number OUT NOCOPY VARCHAR2
41 , p_material_status OUT NOCOPY VARCHAR2
42 , p_unit_number OUT NOCOPY VARCHAR2
43 , --Serial Tracking in WIP project. Return the wip_entity_id, operation_seq_number and intraoperation_step_type also.
44 x_wip_entity_id OUT NOCOPY NUMBER
45 , x_operation_seq_num OUT NOCOPY NUMBER
46 , x_intraoperation_step_type OUT NOCOPY NUMBER
47 , x_current_lot_number OUT NOCOPY VARCHAR2
48 );
49
50 /* Since we don't use it any more so comment out --------
51
52 CURSOR TXNRECS_CURSOR IS
53 SELECT TRANSACTION_ID,
54 TRANSACTION_DATE,
55 TRANSACTION_SOURCE_TYPE_NAME,
56 TRANSACTION_SOURCE_NAME,
57 TRANSACTION_TYPE_NAME,
58 ORGANIZATION_CODE,
59 CUSTOMER_NAME
60 FROM MTL_MATERIAL_TRANSACTIONS,
61 MTL_TXN_SOURCE_TYPES,
62 MTL_TRANSACTION_TYPES,
63 MTL_PARAMETERS,
64 RA_CUSTOMERS;
65
66 TYPE TXNRECS IS REF CURSOR RETURN TXNRECS_CURSOR%ROWTYPE;
67 */
68 FUNCTION getsource(p_org_id IN NUMBER, p_trx_src_type IN NUMBER, p_trx_src_id IN NUMBER)
69 RETURN VARCHAR2;
70
71 FUNCTION gettradingpartner(
72 p_org_id IN NUMBER
73 , p_trx_src_type IN NUMBER
74 , p_trx_src_id IN NUMBER
75 , p_trx_src_line_id IN NUMBER
76 , p_transfer_org_id IN NUMBER
77 )
78 RETURN VARCHAR2;
79
80 /*
81 PROCEDURE getTransactionInfo(p_object_id IN NUMBER,
82 p_object_type IN NUMBER,
83 p_txn_cursor IN OUT TXNRECS);
84 */
85 -- Added this package as part of Bug 4018721
86 PROCEDURE init;
87
88 --
89 -- Procedure to populate child tree
90 --
91 PROCEDURE inv_populate_child_tree(
92 p_object_id IN NUMBER
93 , p_related_object_id IN NUMBER
94 , p_object_type IN NUMBER DEFAULT NULL
95 , p_object_id2 IN NUMBER DEFAULT NULL
96 , p_object_type2 IN NUMBER DEFAULT NULL
97 , P_Genealogy_Order IN VARCHAR2 DEFAULT NULL ---added this parameter for the bug#16512538
98 );
99
100 --
101 -- Procedure to populate parent tree
102 --
103 PROCEDURE inv_populate_parent_tree(
104 p_object_id IN NUMBER
105 , p_related_object_id IN NUMBER
106 , p_object_type IN NUMBER DEFAULT NULL
107 , p_object_id2 IN NUMBER DEFAULT NULL
108 , p_object_type2 IN NUMBER DEFAULT NULL
109 );
110
111 FUNCTION getjData(
112 p_object_id IN NUMBER
113 , p_object_type IN NUMBER
114 , p_object_id2 IN NUMBER DEFAULT NULL
115 , p_object_type2 IN NUMBER DEFAULT NULL
116 )
117 RETURN NUMBER;
118
119 --Bug 8467584
120 PROCEDURE set_rowlimit(p_numrows IN NUMBER);
121
122
123 --
124 -- Global variables used
125 --
126 g_ind NUMBER := 0;
127 g_treeno NUMBER := 1;
128 g_depth NUMBER := 1;
129 g_jData NUMBER := -1;
130 --Bug 8467584
131 g_rowlimit NUMBER := 40000;
132
133 -- End Bug 4018721
134 END inv_object_genealogy;