1 PACKAGE AHL_CMP_PVT AUTHID CURRENT_USER AS
2 /* $Header: AHLVCMPS.pls 120.0.12020000.2 2012/12/14 07:46:28 shnatu noship $ */
3
4 -- Operations
5 G_OP_CREATE CONSTANT VARCHAR2(1) := 'C';
6 G_OP_UPDATE CONSTANT VARCHAR2(1) := 'U';
7 G_OP_DELETE CONSTANT VARCHAR2(1) := 'D';
8
9 -- Material Statuses
10 G_AHL_SERVICEABLE_CONDITION CONSTANT NUMBER := FND_PROFILE.VALUE('AHL_MTL_MAT_STATUS_SERVICABLE');
11 G_AHL_UNSERVICEABLE_CONDITION CONSTANT NUMBER := FND_PROFILE.VALUE('AHL_MTL_MAT_STATUS_UNSERVICABLE');
12 G_AHL_MRB_CONDITION CONSTANT NUMBER := FND_PROFILE.VALUE('AHL_MTL_MAT_STATUS_MRB');
13
14 -- Record Structure corresponding to INV table MTL_TRANSACTIONS_INTERFACE used for Material Transfers
15 Type Ahl_Mtlxfr_Rec_Type Is Record (
16 Inventory_Item_Id NUMBER,
17 Revision VARCHAR2(3),
18 Organization_Id NUMBER,
19 Src_Subinv_Name VARCHAR2(10),
20 Src_Locator_Id NUMBER,
21 Dst_SubInv_Name VARCHAR2(10),
22 Dst_Locator_Id NUMBER,
23 Dst_Locator_Segments VARCHAR2(240),
24 Quantity NUMBER,
25 Uom VARCHAR2(3),
26 Transaction_Type_Id NUMBER,
27 Transaction_Reference VARCHAR2(240),
28 Serial_Number VARCHAR2(30),
29 Lot_Number VARCHAR2(80)
30 );
31
32
33 Type Ahl_Mtlxfr_Tbl_Type Is Table of Ahl_Mtlxfr_Rec_Type index by BINARY_INTEGER;
34
35 -- Record Structure used for Material Returns
36 Type Ahl_MtlRtn_Rec_Type Is Record (
37 Repair_Batch_Id NUMBER,
38 Repair_Batch_Name VARCHAR2(240),
39 Inventory_Item_Id NUMBER,
40 Revision VARCHAR2(3),
41 Organization_Id NUMBER,
42 Src_Subinv_Name VARCHAR2(10),
43 Src_Locator_Id NUMBER,
44 Dst_SubInv_Name VARCHAR2(10),
45 Dst_Locator_Id NUMBER,
46 Dst_Locator_Segments VARCHAR2(240),
47 Instance_Qty NUMBER,
48 Return_Qty NUMBER,
49 Uom VARCHAR2(3),
50 Serial_Number VARCHAR2(30),
51 Lot_Number VARCHAR2(80),
52 Instance_Id NUMBER,
53 Return_Condition NUMBER
54 );
55
56
57 Type Ahl_MtlRtn_Tbl_Type Is Table of Ahl_MtlRtn_Rec_Type index by BINARY_INTEGER;
58
59 ------------------------------------------------------------------------------------------------------
60 -- Start of Comments
61 -- Procedure name : Perform_Mtl_Xfr
62 -- Type : Public
63 -- Function : This procedure will transfer materials between different sub-inventory locators
64 -- Pre-reqs :
65 -- Parameters :
66 --
67 -- Perform_Mtl_Xfr Parameters
68 -- p_x_ahl_mtlxfr_tbl IN Table of Material Transfer Records Required
69 --
70 -- End of Comments
71 -------------------------------------------------------------------------------------------------------
72 PROCEDURE Perform_Mtl_Xfr
73 (
74 p_api_version IN NUMBER := 1.0,
75 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
76 p_commit IN VARCHAR2 := FND_API.G_FALSE,
77 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
78 p_x_ahl_mtlxfr_tbl IN OUT NOCOPY Ahl_Mtlxfr_Tbl_Type,
79 x_return_status OUT NOCOPY VARCHAR2,
80 x_msg_count OUT NOCOPY NUMBER,
81 x_msg_data OUT NOCOPY VARCHAR2
82 );
83
84 ------------------------------------------------------------------------------------
85 -- Start of Comments
86 -- Procedure name : Process_Repair_Item
87 -- Type : Public
88 -- Function : Procedure to process repair item by moving it from a sub-inventory / repair batch
89 -- to a new / existing repair batch.
90 --
91 -- Pre-reqs :
92 -- Parameters :
93 --
94 -- Process_Repair_Item Parameters:
95 -- p_inv_item_id IN Repair item id. Required
96 -- p_item_mstr_org_id IN Repair item's master org id. Required
97 -- p_item_inv_org_id IN Repair item's inventory org id. Required
98 -- p_instance_id IN Repair item's instance id. Required
99 -- p_repair_qty IN Repair item quantity. Required
100 -- p_opr_flag IN To indicate whether to create a destination Required
101 -- repair batch or update an existing one.
102 -- p_src_subinv_name IN Source sub-inventory code if the repair item Required
103 -- item resides in it.
104 -- p_src_locator_id IN Source sub-inventory locator id if the repair Required
105 -- item resides in it.
106 -- p_src_rpr_batch_name IN Source repair batch name if the repair item Required
107 -- resides in it.
108 -- p_x_dst_rpr_batch_name IN OUT Destination repair batch name. Required
109 --
110 -- End of Comments
111 -------------------------------------------------------------------------------------------------------
112
113 PROCEDURE Process_Repair_Item (
114 p_api_version IN NUMBER := 1.0,
115 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
116 p_commit IN VARCHAR2 := FND_API.G_FALSE,
117 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
118 p_inv_item_id IN NUMBER,
119 p_item_mstr_org_id IN NUMBER,
120 p_item_inv_org_id IN NUMBER,
121 p_instance_id IN NUMBER,
122 p_repair_qty IN NUMBER,
123 p_opr_flag IN VARCHAR2,
124 p_src_subinv_name IN VARCHAR2,
125 p_src_locator_id IN NUMBER,
126 p_src_rpr_batch_name IN VARCHAR2,
127 p_x_dst_rpr_batch_name IN OUT NOCOPY VARCHAR2,
128 x_return_status OUT NOCOPY VARCHAR2,
129 x_msg_count OUT NOCOPY NUMBER,
130 x_msg_data OUT NOCOPY VARCHAR2
131 );
132 ------------------------------------------------------------------------------------
133
134 ------------------------------------------------------------------------------------------------------
135 -- Start of Comments
136 -- Procedure name : Close_Repair_Batch
137 -- Type : Public
138 -- Function : This procedure will Close a given Repair Batch
139 -- Pre-reqs :
140 -- Parameters :
141 --
142 -- Close_Repair_Batch
143 -- p_repair_batch_id IN Repair Batch Id Required
144 -- p_x_cost_session_id IN OUT Cost Session Param Required
145 -- p_x_mr_session_id IN OUT Mr Session Param Required
146 --
147 -- End of Comments
148 -------------------------------------------------------------------------------------------------------
149 PROCEDURE Close_Repair_Batch
150 (
151 P_API_VERSION IN NUMBER := 1.0,
152 P_INIT_MSG_LIST IN VARCHAR2 := FND_API.G_FALSE,
153 P_COMMIT IN VARCHAR2 := FND_API.G_FALSE,
154 P_VALIDATION_LEVEL IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
155 P_MODULE_TYPE IN VARCHAR2 := NULL,
156 P_REPAIR_BATCH_ID IN NUMBER,
157 P_X_COST_SESSION_ID IN OUT NOCOPY NUMBER,
158 P_X_MR_SESSION_ID IN OUT NOCOPY NUMBER,
159 X_RETURN_STATUS OUT NOCOPY VARCHAR2,
160 X_MSG_COUNT OUT NOCOPY NUMBER,
161 X_MSG_DATA OUT NOCOPY VARCHAR2
162 );
163 -------------------------------------------------------------------------------------------------------
164
165 ------------------------------------------------------------------------------------------------------
166 -- Start of Comments
167 -- Procedure name : Move_To_InRepair_Locator
168 -- Type : Public
169 -- Function : This procedure move the selected instance from planning to in-repair locator
170 -- when a RTS workorder is added to the repair batch through addition of MRs.
171 -- Pre-reqs :
172 -- Parameters :
173 --
174 -- Move_To_InRepair_Locator
175 -- p_wip_entity_id IN WIP Entity ID of the first RTS workorder Required
176 -- p_repair_batch_name IN Repair batch name Required
177 -- p_instance_id IN Instance ID Required
178 --
179 -- End of Comments
180 -------------------------------------------------------------------------------------------------------
181 PROCEDURE Move_To_InRepair_Locator
182 (
183 p_api_version IN NUMBER := 1.0,
184 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
185 p_commit IN VARCHAR2 := FND_API.G_FALSE,
186 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
187 p_wip_entity_id IN NUMBER,
188 p_repair_batch_name IN VARCHAR2,
189 p_instance_id IN NUMBER,
190 x_return_status OUT NOCOPY VARCHAR2,
191 x_msg_count OUT NOCOPY NUMBER,
192 x_msg_data OUT NOCOPY VARCHAR2
193 );
194 ----------------------------------------------------------------------------------------------------------
195
196 ---------------------------------------------------------------------------------------------------------
197 -- Start of Comments
198 -- Procedure name : Perform_Return_Txn
199 -- Type : Public
200 -- Function : This procedure will transfer materials from Planning/In-Repair Locators of a Repair Batch
201 -- to a Serviceable/Un-Serviceable Sub Inventory.
202 -- Pre-reqs :
203 -- Parameters :
204 --
205 -- Perform_Return_Txn Parameters
206 -- p_x_ahl_mtlrtn_tbl IN Table of Material Return Records Required
207 --
208 -- End of Comments
209 ----------------------------------------------------------------------------------------------------------
210 PROCEDURE PERFORM_RETURN_TXN
211 (
212 p_api_version IN NUMBER := 1.0,
213 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
214 p_commit IN VARCHAR2 := FND_API.G_FALSE,
215 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
216 p_x_ahl_mtlrtn_tbl IN OUT NOCOPY Ahl_MtlRtn_Tbl_Type,
217 x_return_status OUT NOCOPY VARCHAR2,
218 x_msg_count OUT NOCOPY NUMBER,
219 x_msg_data OUT NOCOPY VARCHAR2
220 );
221 ------------------------------------------------------------------------------------------------------------
222
223 END AHL_CMP_PVT;