1 PACKAGE inv_object_genealogy AS
2 /* $Header: INVOGENS.pls 120.4 2006/01/12 04:18:02 sbitra noship $ */
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 );
98
99 --
100 -- Procedure to populate parent tree
101 --
102 PROCEDURE inv_populate_parent_tree(
103 p_object_id IN NUMBER
104 , p_related_object_id IN NUMBER
105 , p_object_type IN NUMBER DEFAULT NULL
106 , p_object_id2 IN NUMBER DEFAULT NULL
107 , p_object_type2 IN NUMBER DEFAULT NULL
108 );
109
110 FUNCTION getjData(
111 p_object_id IN NUMBER
112 , p_object_type IN NUMBER
113 , p_object_id2 IN NUMBER DEFAULT NULL
114 , p_object_type2 IN NUMBER DEFAULT NULL
115 )
116 RETURN NUMBER;
117
118
119 --
120 -- Global variables used
121 --
122 g_ind NUMBER := 0;
123 g_treeno NUMBER := 1;
124 g_depth NUMBER := 1;
125 g_jData NUMBER := -1;
126
127 -- End Bug 4018721
128 END inv_object_genealogy;