[Home] [Help]
21:
22: begin
23: inv_mo_admin_pub.Close_Order(
24: p_api_version => 1.0,
25: p_init_msg_list => fnd_api.g_false,
26: p_commit => fnd_api.g_false,
27: p_validation_level => fnd_api.g_valid_level_full,
28: p_header_Id => p_header_id,
29: x_msg_count => x_msg_count,
22: begin
23: inv_mo_admin_pub.Close_Order(
24: p_api_version => 1.0,
25: p_init_msg_list => fnd_api.g_false,
26: p_commit => fnd_api.g_false,
27: p_validation_level => fnd_api.g_valid_level_full,
28: p_header_Id => p_header_id,
29: x_msg_count => x_msg_count,
30: x_msg_data => x_msg_data,
23: inv_mo_admin_pub.Close_Order(
24: p_api_version => 1.0,
25: p_init_msg_list => fnd_api.g_false,
26: p_commit => fnd_api.g_false,
27: p_validation_level => fnd_api.g_valid_level_full,
28: p_header_Id => p_header_id,
29: x_msg_count => x_msg_count,
30: x_msg_data => x_msg_data,
31: x_return_status => x_return_status);
53:
54: if l_quantity_delivered = 0 then
55: inv_mo_admin_pub.cancel_line(
56: p_api_version => 1.0,
57: p_init_msg_list => fnd_api.g_false,
58: p_commit => fnd_api.g_false,
59: p_validation_level => fnd_api.g_valid_level_full,
60: p_line_id => p_line_id,
61: x_msg_count => x_msg_count,
54: if l_quantity_delivered = 0 then
55: inv_mo_admin_pub.cancel_line(
56: p_api_version => 1.0,
57: p_init_msg_list => fnd_api.g_false,
58: p_commit => fnd_api.g_false,
59: p_validation_level => fnd_api.g_valid_level_full,
60: p_line_id => p_line_id,
61: x_msg_count => x_msg_count,
62: x_msg_data => x_msg_data,
55: inv_mo_admin_pub.cancel_line(
56: p_api_version => 1.0,
57: p_init_msg_list => fnd_api.g_false,
58: p_commit => fnd_api.g_false,
59: p_validation_level => fnd_api.g_valid_level_full,
60: p_line_id => p_line_id,
61: x_msg_count => x_msg_count,
62: x_msg_data => x_msg_data,
63: x_return_status => x_return_status);
63: x_return_status => x_return_status);
64: else
65: inv_mo_admin_pub.close_line(
66: p_api_version => 1.0,
67: p_init_msg_list => fnd_api.g_false,
68: p_commit => fnd_api.g_false,
69: p_validation_level => fnd_api.g_valid_level_full,
70: p_line_id => p_line_id,
71: x_msg_count => x_msg_count,
64: else
65: inv_mo_admin_pub.close_line(
66: p_api_version => 1.0,
67: p_init_msg_list => fnd_api.g_false,
68: p_commit => fnd_api.g_false,
69: p_validation_level => fnd_api.g_valid_level_full,
70: p_line_id => p_line_id,
71: x_msg_count => x_msg_count,
72: x_msg_data => x_msg_data,
65: inv_mo_admin_pub.close_line(
66: p_api_version => 1.0,
67: p_init_msg_list => fnd_api.g_false,
68: p_commit => fnd_api.g_false,
69: p_validation_level => fnd_api.g_valid_level_full,
70: p_line_id => p_line_id,
71: x_msg_count => x_msg_count,
72: x_msg_data => x_msg_data,
73: x_return_status => x_return_status);
141: l_header_id number;
142:
143: l_api_version_number CONSTANT NUMBER := 1.0;
144: l_api_name CONSTANT VARCHAR2(30) := 'Create_Move_Order_Header';
145: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
146: l_msg_count NUMBER;
147: l_msg_data VARCHAR2(240);
148: l_commit VARCHAR2(1) := FND_API.G_FALSE;
149: EXCP_USER_DEFINED EXCEPTION;
144: l_api_name CONSTANT VARCHAR2(30) := 'Create_Move_Order_Header';
145: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
146: l_msg_count NUMBER;
147: l_msg_data VARCHAR2(240);
148: l_commit VARCHAR2(1) := FND_API.G_FALSE;
149: EXCP_USER_DEFINED EXCEPTION;
150:
151: BEGIN
152: SAVEPOINT Create_Move_Order_Header_PUB;
150:
151: BEGIN
152: SAVEPOINT Create_Move_Order_Header_PUB;
153:
154: IF fnd_api.to_boolean(P_Init_Msg_List) THEN
155: -- initialize message list
156: FND_MSG_PUB.initialize;
157: END IF;
158:
156: FND_MSG_PUB.initialize;
157: END IF;
158:
159: -- Standard call to check for call compatibility.
160: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
161: p_api_version,
162: l_api_name,
163: G_PKG_NAME)
164: THEN
161: p_api_version,
162: l_api_name,
163: G_PKG_NAME)
164: THEN
165: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
166: END IF;
167:
168: -- initialize return status
169: x_return_status := FND_API.G_RET_STS_SUCCESS;
165: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
166: END IF;
167:
168: -- initialize return status
169: x_return_status := FND_API.G_RET_STS_SUCCESS;
170:
171: -- check organization
172: IF p_organization_id IS NULL THEN
173: FND_MESSAGE.SET_NAME ('CSP', 'CSP_MISSING_PARAMETERS');
196: END;
197: END IF;
198:
199: -- initialize move order header record type
200: l_mohdr_rec.header_id := nvl(px_header_id, FND_API.G_MISS_NUM);
201: l_mohdr_rec.request_number := nvl(p_request_number, FND_API.G_MISS_CHAR);
202: l_mohdr_rec.created_by := nvl(fnd_global.user_id,1);
203: l_mohdr_rec.creation_date := sysdate;
204: l_mohdr_rec.date_required := p_date_required;
197: END IF;
198:
199: -- initialize move order header record type
200: l_mohdr_rec.header_id := nvl(px_header_id, FND_API.G_MISS_NUM);
201: l_mohdr_rec.request_number := nvl(p_request_number, FND_API.G_MISS_CHAR);
202: l_mohdr_rec.created_by := nvl(fnd_global.user_id,1);
203: l_mohdr_rec.creation_date := sysdate;
204: l_mohdr_rec.date_required := p_date_required;
205: l_mohdr_rec.from_subinventory_code:= p_from_subinventory_code;
211: l_mohdr_rec.status_date := sysdate;
212: l_mohdr_rec.to_subinventory_code := p_to_subinventory_code;
213: l_mohdr_rec.transaction_type_id := INV_GLOBALS.G_TYPE_TRANSFER_ORDER_SUBXFR;
214: l_mohdr_rec.move_order_type := INV_GLOBALS.G_MOVE_ORDER_REQUISITION;
215: l_mohdr_rec.db_flag := FND_API.G_TRUE;
216: l_mohdr_rec.operation := INV_GLOBALS.G_OPR_CREATE;
217:
218: -- call public api to create a record for move order header in Oracle Inventory
219: INV_Move_Order_PUB.Create_Move_order_Header(
218: -- call public api to create a record for move order header in Oracle Inventory
219: INV_Move_Order_PUB.Create_Move_order_Header(
220: p_api_version_number => 1,
221: p_init_msg_list => p_init_msg_list,
222: p_return_values => FND_API.G_TRUE,
223: p_commit => l_commit,
224: x_return_status => l_return_status,
225: x_msg_count => l_msg_count,
226: x_msg_data => l_msg_data,
229: x_trohdr_rec => l_mohdr_rec,
230: x_trohdr_val_rec => l_mohdr_val_rec
231: );
232:
233: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
234: RAISE FND_API.G_EXC_ERROR;
235: ELSE
236: /* call table handlers for inserting into csp_move_order_header table*/
237: csp_to_form_moheaders.Validate_and_Write(
230: x_trohdr_val_rec => l_mohdr_val_rec
231: );
232:
233: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
234: RAISE FND_API.G_EXC_ERROR;
235: ELSE
236: /* call table handlers for inserting into csp_move_order_header table*/
237: csp_to_form_moheaders.Validate_and_Write(
238: P_Api_Version_Number => 1.0
279: ,X_Msg_Count => l_msg_count
280: ,X_Msg_Data => l_msg_data
281: );
282:
283: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
284: RAISE FND_API.G_EXC_ERROR;
285: END IF;
286:
287: px_header_id := l_mohdr_rec.header_id;
280: ,X_Msg_Data => l_msg_data
281: );
282:
283: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
284: RAISE FND_API.G_EXC_ERROR;
285: END IF;
286:
287: px_header_id := l_mohdr_rec.header_id;
288: END IF;
286:
287: px_header_id := l_mohdr_rec.header_id;
288: END IF;
289:
290: IF fnd_api.to_boolean(p_commit) THEN
291: commit work;
292: END IF;
293:
294: fnd_msg_pub.count_and_get
297: /* Exception Block */
298: EXCEPTION
299: WHEN EXCP_USER_DEFINED THEN
300: Rollback to Create_Move_Order_Header_PUB;
301: x_return_status := FND_API.G_RET_STS_ERROR;
302: fnd_msg_pub.count_and_get
303: ( p_count => x_msg_count
304: , p_data => x_msg_data);
305: WHEN FND_API.G_EXC_ERROR THEN
301: x_return_status := FND_API.G_RET_STS_ERROR;
302: fnd_msg_pub.count_and_get
303: ( p_count => x_msg_count
304: , p_data => x_msg_data);
305: WHEN FND_API.G_EXC_ERROR THEN
306: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
307: P_API_NAME => L_API_NAME
308: ,P_PKG_NAME => G_PKG_NAME
309: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
310: ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PUB
311: ,X_MSG_COUNT => X_MSG_COUNT
312: ,X_MSG_DATA => X_MSG_DATA
313: ,X_RETURN_STATUS => X_RETURN_STATUS);
314: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
315: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
316: P_API_NAME => L_API_NAME
317: ,P_PKG_NAME => G_PKG_NAME
318: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
328: FND_MSG_PUB.ADD;
329: fnd_msg_pub.count_and_get
330: ( p_count => x_msg_count
331: , p_data => x_msg_data);
332: x_return_status := FND_API.G_RET_STS_ERROR;
333:
334: END CREATE_MOVE_ORDER_HEADER;
335:
336:
344: -- End of comments
345:
346: PROCEDURE CREATE_MOVE_ORDER_LINE
347: (p_api_version IN NUMBER
348: ,p_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE
349: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
350: ,px_line_id IN OUT NOCOPY NUMBER
351: ,p_header_id IN NUMBER
352: ,p_organization_id IN NUMBER
345:
346: PROCEDURE CREATE_MOVE_ORDER_LINE
347: (p_api_version IN NUMBER
348: ,p_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE
349: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
350: ,px_line_id IN OUT NOCOPY NUMBER
351: ,p_header_id IN NUMBER
352: ,p_organization_id IN NUMBER
353: ,p_from_subinventory_code IN VARCHAR2
377: l_trolin_val_tbl INV_Move_Order_PUB.Trolin_Val_Tbl_Type;
378:
379: l_api_version_number CONSTANT NUMBER := 1.0;
380: l_api_name CONSTANT VARCHAR2(30) := 'Create_Move_Order_Line';
381: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
382: l_msg_count NUMBER;
383: l_msg_data VARCHAR2(240);
384: l_commit VARCHAR2(1) := FND_API.G_FALSE;
385: EXCP_USER_DEFINED EXCEPTION;
380: l_api_name CONSTANT VARCHAR2(30) := 'Create_Move_Order_Line';
381: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
382: l_msg_count NUMBER;
383: l_msg_data VARCHAR2(240);
384: l_commit VARCHAR2(1) := FND_API.G_FALSE;
385: EXCP_USER_DEFINED EXCEPTION;
386:
387: l_line_num NUMBER := 0;
388: l_line_id NUMBER;
390:
391: BEGIN
392: SAVEPOINT Create_Move_Order_Line_PUB;
393:
394: IF fnd_api.to_boolean(P_Init_Msg_List) THEN
395: -- initialize message list
396: FND_MSG_PUB.initialize;
397: END IF;
398:
396: FND_MSG_PUB.initialize;
397: END IF;
398:
399: -- Standard call to check for call compatibility.
400: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
401: p_api_version,
402: l_api_name,
403: G_PKG_NAME)
404: THEN
401: p_api_version,
402: l_api_name,
403: G_PKG_NAME)
404: THEN
405: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
406: END IF;
407:
408: -- Initialize return_status
409: x_return_status := FND_API.G_RET_STS_SUCCESS;
405: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
406: END IF;
407:
408: -- Initialize return_status
409: x_return_status := FND_API.G_RET_STS_SUCCESS;
410:
411: -- check organization
412: IF p_organization_id IS NULL THEN
413: FND_MESSAGE.SET_NAME ('CSP', 'CSP_MISSING_PARAMETERS');
462: l_trolin_tbl(l_order_count).serial_number_end := p_serial_number_end;
463: l_trolin_tbl(l_order_count).last_updated_by := nvl(FND_GLOBAL.USER_ID,1);
464: l_trolin_tbl(l_order_count).last_update_date := sysdate;
465: l_trolin_tbl(l_order_count).last_update_login := nvl(FND_GLOBAL.LOGIN_ID, -1);
466: l_trolin_tbl(l_order_count).line_id := nvl(px_line_id,FND_API.G_MISS_NUM);
467: l_trolin_tbl(l_order_count).line_number := l_line_num;
468: l_trolin_tbl(l_order_count).line_status := INV_Globals.G_TO_STATUS_PREAPPROVED;
469: l_trolin_tbl(l_order_count).transaction_type_id := INV_GLOBALS.G_TYPE_TRANSFER_ORDER_SUBXFR;
470: l_trolin_tbl(l_order_count).organization_id := p_organization_id;
474: l_trolin_tbl(l_order_count).status_date := sysdate;
475: l_trolin_tbl(l_order_count).to_subinventory_code := p_to_subinventory_code;
476: l_trolin_tbl(l_order_count).to_locator_id := p_to_locator_id;
477: l_trolin_tbl(l_order_count).uom_code := p_uom_code;
478: l_trolin_tbl(l_order_count).db_flag := FND_API.G_TRUE;
479: l_trolin_tbl(l_order_count).operation := INV_GLOBALS.G_OPR_CREATE;
480:
481: INV_Move_Order_Pub.Create_Move_Order_Lines
482: ( p_api_version_number => 1.0 ,
481: INV_Move_Order_Pub.Create_Move_Order_Lines
482: ( p_api_version_number => 1.0 ,
483: p_init_msg_list => p_init_msg_list,
484: p_commit => l_commit,
485: p_return_values => FND_API.G_TRUE,
486: x_return_status => l_return_status,
487: x_msg_count => l_msg_count,
488: x_msg_data => l_msg_data,
489: p_trolin_tbl => l_trolin_tbl,
493: );
494:
495: px_line_id := l_trolin_tbl(l_order_count).line_id;
496:
497: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
498: RAISE FND_API.G_EXC_ERROR;
499: ELSE
500: /* call table handlers for inserting into csp_move_order_lines table*/
501: csp_to_form_molines.Validate_and_Write(
494:
495: px_line_id := l_trolin_tbl(l_order_count).line_id;
496:
497: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
498: RAISE FND_API.G_EXC_ERROR;
499: ELSE
500: /* call table handlers for inserting into csp_move_order_lines table*/
501: csp_to_form_molines.Validate_and_Write(
502: P_Api_Version_Number => 1.0
536: ,X_Msg_Count => l_msg_count
537: ,X_Msg_Data => l_msg_data
538: );
539:
540: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
541: RAISE FND_API.G_EXC_ERROR;
542: END IF;
543:
544: px_line_id := l_trolin_tbl(l_order_count).line_id;
537: ,X_Msg_Data => l_msg_data
538: );
539:
540: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
541: RAISE FND_API.G_EXC_ERROR;
542: END IF;
543:
544: px_line_id := l_trolin_tbl(l_order_count).line_id;
545: END IF;
543:
544: px_line_id := l_trolin_tbl(l_order_count).line_id;
545: END IF;
546:
547: IF fnd_api.to_boolean(p_commit) THEN
548: commit work;
549: END IF;
550: fnd_msg_pub.count_and_get
551: ( p_count => x_msg_count
553: /* Exception Block */
554: EXCEPTION
555: WHEN EXCP_USER_DEFINED THEN
556: Rollback to Create_Move_Order_Line_PUB;
557: x_return_status := FND_API.G_RET_STS_ERROR;
558: fnd_msg_pub.count_and_get
559: ( p_count => x_msg_count
560: , p_data => x_msg_data);
561: WHEN FND_API.G_EXC_ERROR THEN
557: x_return_status := FND_API.G_RET_STS_ERROR;
558: fnd_msg_pub.count_and_get
559: ( p_count => x_msg_count
560: , p_data => x_msg_data);
561: WHEN FND_API.G_EXC_ERROR THEN
562: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
563: P_API_NAME => L_API_NAME
564: ,P_PKG_NAME => G_PKG_NAME
565: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
566: ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PUB
567: ,X_MSG_COUNT => X_MSG_COUNT
568: ,X_MSG_DATA => X_MSG_DATA
569: ,X_RETURN_STATUS => X_RETURN_STATUS);
570: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
571: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
572: P_API_NAME => L_API_NAME
573: ,P_PKG_NAME => G_PKG_NAME
574: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
584: FND_MSG_PUB.ADD;
585: fnd_msg_pub.count_and_get
586: ( p_count => x_msg_count
587: , p_data => x_msg_data);
588: x_return_status := FND_API.G_RET_STS_ERROR;
589:
590:
591: END CREATE_MOVE_ORDER_LINE;
592:
602: -- End of comments
603:
604: PROCEDURE TRANSACT_MATERIAL
605: (p_api_version IN NUMBER
606: ,p_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE
607: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
608: ,px_transaction_id IN OUT NOCOPY NUMBER
609: ,px_transaction_header_id IN OUT NOCOPY NUMBER
610: ,p_inventory_item_id IN NUMBER
603:
604: PROCEDURE TRANSACT_MATERIAL
605: (p_api_version IN NUMBER
606: ,p_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE
607: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
608: ,px_transaction_id IN OUT NOCOPY NUMBER
609: ,px_transaction_header_id IN OUT NOCOPY NUMBER
610: ,p_inventory_item_id IN NUMBER
611: ,p_organization_id IN NUMBER
727:
728: BEGIN
729: Savepoint Transact_Material_PUB;
730:
731: IF fnd_api.to_boolean(P_Init_Msg_List) THEN
732: -- initialize message list
733: FND_MSG_PUB.initialize;
734: END IF;
735:
733: FND_MSG_PUB.initialize;
734: END IF;
735:
736: -- Standard call to check for call compatibility.
737: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
738: p_api_version,
739: l_api_name,
740: G_PKG_NAME)
741: THEN
738: p_api_version,
739: l_api_name,
740: G_PKG_NAME)
741: THEN
742: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
743: END IF;
744:
745: -- validating transaction_type_id
746: IF p_transaction_type_id IS NULL THEN
867: CLOSE l_acct_period_csr;
868:
869: IF l_acct_period_id is null THEN
870: x_msg_data := 'Cannot find open accounting period';
871: x_return_status := FND_API.G_RET_STS_ERROR;
872: END IF;
873:
874: IF p_transaction_type_id in (21,32,02,01,93,35) THEN
875: l_quantity := p_quantity * (-1);
1173: ---------------------------------------------------
1174: --- Added for bug 3608969
1175: Begin
1176: l_retval := INV_TXN_MANAGER_PUB.process_Transactions(p_api_version => 1,
1177: p_init_msg_list => fnd_api.g_false ,
1178: p_commit => fnd_api.g_false ,
1179: p_validation_level => fnd_api.g_valid_level_full ,
1180: x_return_status => l_return_status,
1181: x_msg_count => l_msg_cnt,
1174: --- Added for bug 3608969
1175: Begin
1176: l_retval := INV_TXN_MANAGER_PUB.process_Transactions(p_api_version => 1,
1177: p_init_msg_list => fnd_api.g_false ,
1178: p_commit => fnd_api.g_false ,
1179: p_validation_level => fnd_api.g_valid_level_full ,
1180: x_return_status => l_return_status,
1181: x_msg_count => l_msg_cnt,
1182: x_msg_data => l_msg_data,
1175: Begin
1176: l_retval := INV_TXN_MANAGER_PUB.process_Transactions(p_api_version => 1,
1177: p_init_msg_list => fnd_api.g_false ,
1178: p_commit => fnd_api.g_false ,
1179: p_validation_level => fnd_api.g_valid_level_full ,
1180: x_return_status => l_return_status,
1181: x_msg_count => l_msg_cnt,
1182: x_msg_data => l_msg_data,
1183: x_trans_count => l_trans_count,
1233: RAISE EXCP_USER_DEFINED;
1234: END IF;
1235: END IF;
1236:
1237: IF fnd_api.to_boolean(p_commit) THEN
1238: commit work;
1239: END IF;
1240:
1241: x_return_status := FND_API.G_RET_STS_SUCCESS;
1237: IF fnd_api.to_boolean(p_commit) THEN
1238: commit work;
1239: END IF;
1240:
1241: x_return_status := FND_API.G_RET_STS_SUCCESS;
1242: -- dbms_output.put_line('TRANSACT_MATERIAL: returning successfully');
1243: fnd_msg_pub.count_and_get
1244: ( p_count => x_msg_count
1245: , p_data => x_msg_data);
1247: WHEN EXCP_USER_DEFINED THEN
1248: If l_outcome = true then -- i.e. process_online has not been called.
1249: Rollback to Transact_Material_Pub;
1250: end if;
1251: x_return_status := FND_API.G_RET_STS_ERROR;
1252: fnd_msg_pub.count_and_get
1253: ( p_count => x_msg_count
1254: , p_data => x_msg_data);
1255: WHEN FND_API.G_EXC_ERROR THEN
1251: x_return_status := FND_API.G_RET_STS_ERROR;
1252: fnd_msg_pub.count_and_get
1253: ( p_count => x_msg_count
1254: , p_data => x_msg_data);
1255: WHEN FND_API.G_EXC_ERROR THEN
1256: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
1257: P_API_NAME => L_API_NAME
1258: ,P_PKG_NAME => G_PKG_NAME
1259: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
1260: ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PUB
1261: ,X_MSG_COUNT => X_MSG_COUNT
1262: ,X_MSG_DATA => X_MSG_DATA
1263: ,X_RETURN_STATUS => X_RETURN_STATUS);
1264: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1265: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
1266: P_API_NAME => L_API_NAME
1267: ,P_PKG_NAME => G_PKG_NAME
1268: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
1280: fnd_msg_pub.add;
1281: fnd_msg_pub.count_and_get
1282: ( p_count => x_msg_count
1283: , p_data => x_msg_data);
1284: x_return_status := fnd_api.g_ret_sts_error;
1285:
1286: END TRANSACT_MATERIAL;
1287:
1288:
1303: -- klou 27-Mar-2000 created.
1304: --
1305: -- NOTES: If validations have been done in the precedent procedure from which this one is being called, doing a
1306: -- full validation here is unnecessary. To avoid repeating the same validations, you can set the
1307: -- p_validation_level to fnd_api.g_valid_level_none when making the procedure call. However, it is your
1308: -- responsibility to make sure all proper validations have been done before calling this procedure.
1309: -- You are recommended to let this procedure handle the validations if you are not sure.
1310: --
1311: -- CAUTIONS: This procedure *ALWAYS* calls other procedures with validation_level set to FND_API.G_VALID_LEVEL_NONE.
1307: -- p_validation_level to fnd_api.g_valid_level_none when making the procedure call. However, it is your
1308: -- responsibility to make sure all proper validations have been done before calling this procedure.
1309: -- You are recommended to let this procedure handle the validations if you are not sure.
1310: --
1311: -- CAUTIONS: This procedure *ALWAYS* calls other procedures with validation_level set to FND_API.G_VALID_LEVEL_NONE.
1312: -- If you do not do your own validations before calling this procedure, you should set the p_validation_level
1313: -- to FND_API.G_VALID_LEVEL_FULL when making the call.
1314: -- End of Comments
1315:
1309: -- You are recommended to let this procedure handle the validations if you are not sure.
1310: --
1311: -- CAUTIONS: This procedure *ALWAYS* calls other procedures with validation_level set to FND_API.G_VALID_LEVEL_NONE.
1312: -- If you do not do your own validations before calling this procedure, you should set the p_validation_level
1313: -- to FND_API.G_VALID_LEVEL_FULL when making the call.
1314: -- End of Comments
1315:
1316: P_Api_Version_Number IN NUMBER,
1317: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1313: -- to FND_API.G_VALID_LEVEL_FULL when making the call.
1314: -- End of Comments
1315:
1316: P_Api_Version_Number IN NUMBER,
1317: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1318: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
1319: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1320: p_transaction_temp_id IN NUMBER,
1321: px_transaction_header_id IN OUT NOCOPY NUMBER,
1314: -- End of Comments
1315:
1316: P_Api_Version_Number IN NUMBER,
1317: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1318: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
1319: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1320: p_transaction_temp_id IN NUMBER,
1321: px_transaction_header_id IN OUT NOCOPY NUMBER,
1322: p_online_process_flag IN BOOLEAN := FALSE,
1315:
1316: P_Api_Version_Number IN NUMBER,
1317: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1318: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
1319: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1320: p_transaction_temp_id IN NUMBER,
1321: px_transaction_header_id IN OUT NOCOPY NUMBER,
1322: p_online_process_flag IN BOOLEAN := FALSE,
1323: X_Return_Status OUT NOCOPY VARCHAR2,
1419: l_msg_data VARCHAR2(300);
1420: l_check_existence NUMBER := 0;
1421: l_return_status VARCHAR2(1);
1422: l_msg_count NUMBER := 0;
1423: l_commit VARCHAR2(1) := FND_API.G_FALSE;
1424: l_transaction_header_id number := px_transaction_header_id;
1425: l_lot_number VARCHAR2(80);
1426: l_lot_expiration_date DATE;
1427: l_fm_serial_number VARCHAR2(30);
1432:
1433: BEGIN
1434: Savepoint transact_temp_record_pub;
1435:
1436: IF fnd_api.to_boolean(P_Init_Msg_List) THEN
1437: -- initialize message list
1438: FND_MSG_PUB.initialize;
1439: END IF;
1440:
1438: FND_MSG_PUB.initialize;
1439: END IF;
1440:
1441: -- Standard call to check for call compatibility.
1442: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1443: p_api_version_number,
1444: l_api_name,
1445: G_PKG_NAME)
1446: THEN
1443: p_api_version_number,
1444: l_api_name,
1445: G_PKG_NAME)
1446: THEN
1447: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1448: END IF;
1449:
1450: IF p_validation_level = fnd_api.g_valid_level_full THEN
1451: IF p_transaction_temp_id IS NULL THEN
1446: THEN
1447: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1448: END IF;
1449:
1450: IF p_validation_level = fnd_api.g_valid_level_full THEN
1451: IF p_transaction_temp_id IS NULL THEN
1452: FND_MESSAGE.SET_NAME ('CSP', 'CSP_MISSING_PARAMETERS');
1453: FND_MESSAGE.SET_TOKEN ('PARAMETER', 'p_transaction_temp_id', FALSE);
1454: FND_MSG_PUB.ADD;
1554: ,x_msg_count => l_msg_count
1555: ,x_msg_data => l_msg_data
1556: );
1557:
1558: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1559: Close l_Get_Lot_Temp_Csr;
1560: RAISE FND_API.G_EXC_ERROR;
1561: END IF;
1562: l_qty_processed := l_qty_processed + l_lot_temp_rec.transaction_quantity;
1556: );
1557:
1558: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1559: Close l_Get_Lot_Temp_Csr;
1560: RAISE FND_API.G_EXC_ERROR;
1561: END IF;
1562: l_qty_processed := l_qty_processed + l_lot_temp_rec.transaction_quantity;
1563: End If;
1564: End Loop; -- <
1625: ,x_msg_count => l_msg_count
1626: ,x_msg_data => l_msg_data
1627: );
1628:
1629: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1630: Close l_Get_Lot_Temp_Csr;
1631: Close l_Get_Serial_Temp_Csr;
1632: RAISE FND_API.G_EXC_ERROR;
1633: END IF;
1628:
1629: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1630: Close l_Get_Lot_Temp_Csr;
1631: Close l_Get_Serial_Temp_Csr;
1632: RAISE FND_API.G_EXC_ERROR;
1633: END IF;
1634: l_qty_processed := l_qty_processed + nvl(l_serial_temp_rec.serial_prefix, 1);
1635: End If;
1636: End Loop; -- <
1696: ,x_msg_count => l_msg_count
1697: ,x_msg_data => l_msg_data
1698: );
1699:
1700: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1701: Close l_Get_Serial_Temp_Csr;
1702: RAISE FND_API.G_EXC_ERROR;
1703: END IF;
1704: l_qty_processed := l_qty_processed + l_serial_temp_rec.serial_prefix;
1698: );
1699:
1700: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1701: Close l_Get_Serial_Temp_Csr;
1702: RAISE FND_API.G_EXC_ERROR;
1703: END IF;
1704: l_qty_processed := l_qty_processed + l_serial_temp_rec.serial_prefix;
1705: End If;
1706: End Loop; --<
1742: ,x_msg_count => l_msg_count
1743: ,x_msg_data => l_msg_data
1744: );
1745:
1746: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1747: Close l_Get_Serial_Temp_Csr;
1748: RAISE FND_API.G_EXC_ERROR;
1749: END IF;
1750: End if;
1744: );
1745:
1746: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1747: Close l_Get_Serial_Temp_Csr;
1748: RAISE FND_API.G_EXC_ERROR;
1749: END IF;
1750: End if;
1751:
1752: IF fnd_api.to_boolean(p_commit) THEN
1748: RAISE FND_API.G_EXC_ERROR;
1749: END IF;
1750: End if;
1751:
1752: IF fnd_api.to_boolean(p_commit) THEN
1753: commit work;
1754: END IF;
1755: x_return_status := l_return_status;
1756: fnd_msg_pub.count_and_get
1758: , p_data => x_msg_data);
1759: EXCEPTION
1760: WHEN EXCP_USER_DEFINED THEN
1761: Rollback to transact_temp_record_pub;
1762: x_return_status := FND_API.G_RET_STS_ERROR;
1763: fnd_msg_pub.count_and_get
1764: ( p_count => x_msg_count
1765: , p_data => x_msg_data);
1766: WHEN FND_API.G_EXC_ERROR THEN
1762: x_return_status := FND_API.G_RET_STS_ERROR;
1763: fnd_msg_pub.count_and_get
1764: ( p_count => x_msg_count
1765: , p_data => x_msg_data);
1766: WHEN FND_API.G_EXC_ERROR THEN
1767: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
1768: P_API_NAME => L_API_NAME
1769: ,P_PKG_NAME => G_PKG_NAME
1770: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
1771: ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PUB
1772: ,X_MSG_COUNT => X_MSG_COUNT
1773: ,X_MSG_DATA => X_MSG_DATA
1774: ,X_RETURN_STATUS => X_RETURN_STATUS);
1775: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1776: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
1777: P_API_NAME => L_API_NAME
1778: ,P_PKG_NAME => G_PKG_NAME
1779: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
1789: fnd_msg_pub.add;
1790: fnd_msg_pub.count_and_get
1791: ( p_count => x_msg_count
1792: , p_data => x_msg_data);
1793: x_return_status := fnd_api.g_ret_sts_error;
1794: END transact_temp_record;
1795: END csp_transactions_pub;