[Home] [Help]
34: -- klou 01/04/99 created.
35: --
36: -- NOTES: If validations have been done in the precedent procedure from which this one is being called,
37: -- doing a full validation in this procedure is unnecessary. To avoid repeating the same validations,
38: -- you can set the p_validation_level to fnd_api.g_valid_level_none. However, it is your responsibility
39: -- to make sure all proper validations have been done if you decided not to use the validations in this
40: -- procedure. You are recommended to let this procedure handle the validations if you are in doubt.
41: --
42: -- CAUTIONS: This procedure *ALWAYS* calls other procedures with validation_level set to
39: -- to make sure all proper validations have been done if you decided not to use the validations in this
40: -- procedure. You are recommended to let this procedure handle the validations if you are in doubt.
41: --
42: -- CAUTIONS: This procedure *ALWAYS* calls other procedures with validation_level set to
43: -- FND_API.G_VALID_LEVEL_NONE. If you do not do your own validations before calling this procedure,
44: -- you should set the p_validation_level to FND_API.G_VALID_LEVEL_FULL when calling this procedure.
45: -- End of Comments
46:
47: P_Api_Version_Number IN NUMBER,
40: -- procedure. You are recommended to let this procedure handle the validations if you are in doubt.
41: --
42: -- CAUTIONS: This procedure *ALWAYS* calls other procedures with validation_level set to
43: -- FND_API.G_VALID_LEVEL_NONE. If you do not do your own validations before calling this procedure,
44: -- you should set the p_validation_level to FND_API.G_VALID_LEVEL_FULL when calling this procedure.
45: -- End of Comments
46:
47: P_Api_Version_Number IN NUMBER,
48: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
44: -- you should set the p_validation_level to FND_API.G_VALID_LEVEL_FULL when calling this procedure.
45: -- End of Comments
46:
47: P_Api_Version_Number IN NUMBER,
48: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
49: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
50: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
51: p_packlist_header_id IN NUMBER,
52: p_organization_id IN NUMBER,
45: -- End of Comments
46:
47: P_Api_Version_Number IN NUMBER,
48: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
49: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
50: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
51: p_packlist_header_id IN NUMBER,
52: p_organization_id IN NUMBER,
53: x_return_status OUT NOCOPY VARCHAR2,
46:
47: P_Api_Version_Number IN NUMBER,
48: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
49: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
50: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
51: p_packlist_header_id IN NUMBER,
52: p_organization_id IN NUMBER,
53: x_return_status OUT NOCOPY VARCHAR2,
54: x_msg_count OUT NOCOPY NUMBER,
61: l_msg_data VARCHAR2(300);
62: l_check_existence NUMBER := 0;
63: l_return_status VARCHAR2(1);
64: l_msg_count NUMBER := 0;
65: l_commit VARCHAR2(1) := FND_API.G_FALSE;
66: l_organization_id NUMBER;
67: l_picklist_line_id NUMBER := 0;
68: l_transaction_quantity NUMBER := 0;
69: l_transaction_temp_id NUMBER := 0;
71: --l_counter NUMBER := 0; -- used to test the loop. can be removed after debug.
72:
73: -- for inserting data, the validation_level should be none
74: -- because we do not want to call the core apps standard validations.
75: l_validation_level NUMBER := FND_API.G_VALID_LEVEL_NONE;
76: l_autoreceipt_flag csp_moveorder_headers.autoreceipt_flag%type;
77:
78: l_outcome BOOLEAN := TRUE;
79: l_error_code VARCHAR2(200);
188:
189:
190: BEGIN
191: SAVEPOINT Confirm_Ship_PUB;
192: IF fnd_api.to_boolean(P_Init_Msg_List) THEN
193: -- initialize message list
194: FND_MSG_PUB.initialize;
195: END IF;
196:
194: FND_MSG_PUB.initialize;
195: END IF;
196:
197: -- Standard call to check for call compatibility.
198: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
199: p_api_version_number,
200: l_api_name,
201: G_PKG_NAME)
202: THEN
199: p_api_version_number,
200: l_api_name,
201: G_PKG_NAME)
202: THEN
203: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
204: END IF;
205:
206:
207: IF p_validation_level = FND_API.G_VALID_LEVEL_FULL THEN
203: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
204: END IF;
205:
206:
207: IF p_validation_level = FND_API.G_VALID_LEVEL_FULL THEN
208: -- validate p_organization_id
209: IF p_organization_id IS NULL THEN
210: FND_MESSAGE.SET_NAME ('CSP', 'CSP_MISSING_PARAMETERS');
211: FND_MESSAGE.SET_TOKEN ('PARAMETER', 'p_organization_id', TRUE);
211: FND_MESSAGE.SET_TOKEN ('PARAMETER', 'p_organization_id', TRUE);
212: FND_MSG_PUB.ADD;
213: RAISE EXCP_USER_DEFINED;
214: ELSE
215: IF p_validation_level = fnd_api.g_valid_level_full THEN
216: BEGIN
217: select organization_id into l_check_existence
218: from mtl_parameters
219: where organization_id = p_organization_id;
240: FND_MESSAGE.SET_TOKEN ('PARAMETER', 'p_packlist_header_id', TRUE);
241: FND_MSG_PUB.ADD;
242: RAISE EXCP_USER_DEFINED;
243: ELSE
244: IF p_validation_level = fnd_api.g_valid_level_full THEN
245: BEGIN
246: select packlist_header_id into l_check_existence
247: from csp_packlist_headers
248: where organization_id = p_organization_id
274: CLOSE C_Get_Packlist_Headers;
275: fnd_message.set_name ('CSP', 'CSP_INVALID_PACKLIST_HEADER');
276: fnd_message.set_token ('HEADER_ID', to_char(p_packlist_header_id), TRUE);
277: fnd_msg_pub.add;
278: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
279: END IF;
280: CLOSE C_Get_Packlist_Headers;
281: l_packlist_headers_rec.date_shipped := sysdate;
282: l_packlist_headers_rec.packlist_status := '2';
282: l_packlist_headers_rec.packlist_status := '2';
283: l_packlist_headers_rec.last_update_date := sysdate;
284: /*update_packlist_header_sts (
285: P_Api_Version_Number => l_api_version_number,
286: P_Init_Msg_List => FND_API.G_true,
287: P_Commit => l_commit,
288: p_validation_level => l_validation_level,
289: p_packlist_header_id => p_packlist_header_id,
290: p_organization_id => p_organization_id,
296: -- call the CSP_Packlist_Headers_PVT.Update_packlist_headers to updat the packlist_status.
297: CSP_Packlist_Headers_PVT.Update_packlist_headers(
298: P_Api_Version_Number => l_api_version_number,
299: P_Init_Msg_List => p_init_msg_list,
300: P_Commit => FND_API.G_FALSE,
301: p_validation_level => l_validation_level,
302: P_Identity_Salesforce_Id => NULL,
303: P_PLH_Rec => l_packlist_headers_rec,
304: X_Return_Status => l_return_status,
305: X_Msg_Count => l_msg_count,
306: X_Msg_Data => l_msg_data
307: );
308:
309: IF l_return_status <> fnd_api.g_ret_sts_success THEN
310: --dbms_output.put_line('Failed in 1 ');
311: RAISE FND_API.G_EXC_ERROR;
312: END IF;
313:
307: );
308:
309: IF l_return_status <> fnd_api.g_ret_sts_success THEN
310: --dbms_output.put_line('Failed in 1 ');
311: RAISE FND_API.G_EXC_ERROR;
312: END IF;
313:
314: -- First we need to determine whether the move order associated with this packlist is an autoreceipt or
315: -- a manual receipt. If it is an autoreceipt, we need to initiate the material transactions. Else,
326:
327: -- Update the packlist status to 'shipped' and the quantity_shipped to p_quantity_shipped.
328: Update_Packlist_Sts_Qty (
329: P_Api_Version_Number => l_api_version_number,
330: P_Init_Msg_List => FND_API.G_true,
331: P_Commit => l_commit,
332: p_validation_level => l_validation_level,
333: p_organization_id => p_organization_id,
334: p_packlist_line_id => l_packlist_line_rec.packlist_line_id,
340: x_msg_count => l_msg_count,
341: x_msg_data => l_msg_data
342: );
343:
344: IF l_return_status <> fnd_api.g_ret_sts_success THEN
345: -- dbms_output.put_line('Failed in 2 ');
346:
347: RAISE FND_API.G_EXC_ERROR;
348: END IF;
343:
344: IF l_return_status <> fnd_api.g_ret_sts_success THEN
345: -- dbms_output.put_line('Failed in 2 ');
346:
347: RAISE FND_API.G_EXC_ERROR;
348: END IF;
349:
350: -- Update the quantity_shipped of the l_packlist_line_rec to quantity_packed.
351: l_packlist_line_rec.quantity_shipped := l_packlist_line_rec.quantity_packed;
393: IF l_autoreceipt_flag = 'Y' THEN
394: -- call the ccsp_mo_mtltxns_util.confirm_receipt with l_validation_level = none
395: csp_mo_mtltxns_util.confirm_receipt (
396: P_Api_Version_Number => l_api_version_number,
397: P_Init_Msg_List => FND_API.G_True,
398: P_Commit => l_commit,
399: p_validation_level => l_validation_level,
400: p_packlist_line_id => l_packlist_line_rec.packlist_line_id,
401: p_organization_id => p_organization_id,
401: p_organization_id => p_organization_id,
402: p_transaction_temp_id => l_temp_id,
403: p_quantity_received => l_packlist_line_rec.quantity_shipped,
404: px_transaction_header_id => l_transaction_header_id,
405: p_process_flag => FND_API.G_FALSE,
406: X_Return_Status => l_return_status,
407: X_Msg_Count => l_msg_count,
408: X_Msg_Data => l_msg_data
409: );
408: X_Msg_Data => l_msg_data
409: );
410:
411:
412: IF l_return_status <> fnd_api.g_ret_sts_success THEN
413: -- dbms_output.put_line('Failed in 3');
414:
415: Rollback to Confirm_Ship_PUB;
416: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
412: IF l_return_status <> fnd_api.g_ret_sts_success THEN
413: -- dbms_output.put_line('Failed in 3');
414:
415: Rollback to Confirm_Ship_PUB;
416: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
417: END IF;
418:
419: ELSIF l_autoreceipt_flag = 'N' THEN
420:
419: ELSIF l_autoreceipt_flag = 'N' THEN
420:
421: CSP_PC_FORM_MTLTXNS.CSP_MO_LINES_MANUAL_RECEIPT (
422: P_Api_Version_Number => l_api_version_number,
423: P_Init_Msg_List => FND_API.G_True,
424: P_Commit => l_commit,
425: p_validation_level => l_validation_level,
426: p_organization_id => p_organization_id,
427: p_transaction_temp_id => l_temp_id,
425: p_validation_level => l_validation_level,
426: p_organization_id => p_organization_id,
427: p_transaction_temp_id => l_temp_id,
428: px_transaction_header_id => l_transaction_header_id,
429: p_process_flag => FND_API.G_FALSE,
430: X_Return_Status => l_return_status,
431: X_Msg_Count => l_msg_count,
432: X_Msg_Data => l_msg_data
433: );
431: X_Msg_Count => l_msg_count,
432: X_Msg_Data => l_msg_data
433: );
434:
435: IF l_return_status <> fnd_api.g_ret_sts_success THEN
436: -- dbms_output.put_line('Failed in 4 ');
437:
438: Rollback to Confirm_Ship_PUB;
439: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
435: IF l_return_status <> fnd_api.g_ret_sts_success THEN
436: -- dbms_output.put_line('Failed in 4 ');
437:
438: Rollback to Confirm_Ship_PUB;
439: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
440: END IF;
441: ELSE
442: fnd_message.set_name ('CSP', 'CSP_INVALID_MO_RECEIPT_TYPE');
443: fnd_message.set_token ('HEADER_ID', to_char(l_header_id), TRUE);
485:
486: IF l_transaction_header_id IS NOT NULL THEN
487: IF NOT CSP_Mo_Mtltxns_Util.Call_Online (p_transaction_header_id => l_transaction_header_id) THEN
488: l_outcome := FALSE;
489: x_return_status := FND_API.G_RET_STS_SUCCESS;
490: fnd_msg_pub.count_and_get
491: ( p_count => x_msg_count
492: , p_data => x_msg_data);
493: Return;
493: Return;
494: END IF;
495: END IF;
496:
497: IF fnd_api.to_boolean(p_commit) THEN
498: commit work;
499: END IF;
500:
501: fnd_msg_pub.count_and_get
500:
501: fnd_msg_pub.count_and_get
502: ( p_count => x_msg_count
503: , p_data => x_msg_data);
504: x_return_status := fnd_api.g_ret_sts_success;
505:
506: EXCEPTION
507: WHEN EXCP_NOSAVEPOINT THEN
508: x_return_status := FND_API.G_RET_STS_ERROR;
504: x_return_status := fnd_api.g_ret_sts_success;
505:
506: EXCEPTION
507: WHEN EXCP_NOSAVEPOINT THEN
508: x_return_status := FND_API.G_RET_STS_ERROR;
509: fnd_msg_pub.count_and_get
510: ( p_count => x_msg_count
511: , p_data => x_msg_data);
512: WHEN EXCP_USER_DEFINED THEN
510: ( p_count => x_msg_count
511: , p_data => x_msg_data);
512: WHEN EXCP_USER_DEFINED THEN
513: Rollback to Confirm_Ship_PUB;
514: x_return_status := FND_API.G_RET_STS_ERROR;
515: fnd_msg_pub.count_and_get
516: ( p_count => x_msg_count
517: , p_data => x_msg_data);
518: WHEN FND_API.G_EXC_ERROR THEN
514: x_return_status := FND_API.G_RET_STS_ERROR;
515: fnd_msg_pub.count_and_get
516: ( p_count => x_msg_count
517: , p_data => x_msg_data);
518: WHEN FND_API.G_EXC_ERROR THEN
519: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
520: P_API_NAME => L_API_NAME
521: ,P_PKG_NAME => G_PKG_NAME
522: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
523: ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PUB
524: ,X_MSG_COUNT => X_MSG_COUNT
525: ,X_MSG_DATA => X_MSG_DATA
526: ,X_RETURN_STATUS => X_RETURN_STATUS);
527: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
528: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
529: P_API_NAME => L_API_NAME
530: ,P_PKG_NAME => G_PKG_NAME
531: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
541: fnd_msg_pub.add;
542: fnd_msg_pub.count_and_get
543: ( p_count => x_msg_count
544: , p_data => x_msg_data);
545: x_return_status := fnd_api.g_ret_sts_error;
546: END Confirm_Ship;
547:
548:
549: Procedure Update_Packlist_Sts_Qty(
547:
548:
549: Procedure Update_Packlist_Sts_Qty(
550: P_Api_Version_Number IN NUMBER,
551: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
552: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
553: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
554: p_organization_id IN NUMBER,
555: p_packlist_line_id IN NUMBER,
548:
549: Procedure Update_Packlist_Sts_Qty(
550: P_Api_Version_Number IN NUMBER,
551: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
552: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
553: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
554: p_organization_id IN NUMBER,
555: p_packlist_line_id IN NUMBER,
556: p_line_status IN VARCHAR2,
549: Procedure Update_Packlist_Sts_Qty(
550: P_Api_Version_Number IN NUMBER,
551: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
552: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
553: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
554: p_organization_id IN NUMBER,
555: p_packlist_line_id IN NUMBER,
556: p_line_status IN VARCHAR2,
557: p_quantity_packed IN NUMBER,
605:
606: l_api_version_number CONSTANT NUMBER := 1.0;
607: l_api_name CONSTANT VARCHAR2(50) := 'Update_Packlist_Sts_Qty';
608: l_msg_count NUMBER;
609: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
610: l_msg_data VARCHAR2(300);
611: l_check_existence NUMBER;
612: l_packlist_header_id NUMBER;
613: EXCP_USER_DEFINED EXCEPTION;
613: EXCP_USER_DEFINED EXCEPTION;
614: BEGIN
615:
616: SAVEPOINT Update_Packlist_Sts_Qty_PUB;
617: IF fnd_api.to_boolean(P_Init_Msg_List) THEN
618: -- initialize message list
619: FND_MSG_PUB.initialize;
620: END IF;
621:
619: FND_MSG_PUB.initialize;
620: END IF;
621:
622: -- Standard call to check for call compatibility.
623: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
624: p_api_version_number,
625: l_api_name,
626: G_PKG_NAME)
627: THEN
624: p_api_version_number,
625: l_api_name,
626: G_PKG_NAME)
627: THEN
628: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
629: END IF;
630:
631: -- validate p_organization_id
632: IF p_organization_id IS NULL THEN
634: FND_MESSAGE.SET_TOKEN ('PARAMETER', 'p_organization_id', TRUE);
635: FND_MSG_PUB.ADD;
636: RAISE EXCP_USER_DEFINED;
637: ELSE
638: IF p_validation_level = fnd_api.g_valid_level_full THEN
639: BEGIN
640: select organization_id into l_check_existence
641: from mtl_parameters
642: where organization_id = p_organization_id;
663: FND_MESSAGE.SET_TOKEN ('PARAMETER', 'p_packlist_line_id', TRUE);
664: FND_MSG_PUB.ADD;
665: RAISE EXCP_USER_DEFINED;
666: ELSE
667: IF p_validation_level = fnd_api.g_valid_level_full THEN
668: BEGIN
669: select packlist_line_id into l_check_existence
670: from csp_packlist_lines
671: where organization_id = p_organization_id
714:
715: l_packlist_line_rec.last_update_date := sysdate;
716: CSP_packlist_lines_PVT.Update_packlist_lines(
717: P_Api_Version_Number => l_api_version_number,
718: P_Init_Msg_List => FND_API.G_FALSE,
719: P_Commit => FND_API.G_FALSE,
720: p_validation_level => FND_API.G_VALID_LEVEL_NONE,
721: P_Identity_Salesforce_Id => NULL,
722: P_PLL_Rec => l_packlist_line_rec,
715: l_packlist_line_rec.last_update_date := sysdate;
716: CSP_packlist_lines_PVT.Update_packlist_lines(
717: P_Api_Version_Number => l_api_version_number,
718: P_Init_Msg_List => FND_API.G_FALSE,
719: P_Commit => FND_API.G_FALSE,
720: p_validation_level => FND_API.G_VALID_LEVEL_NONE,
721: P_Identity_Salesforce_Id => NULL,
722: P_PLL_Rec => l_packlist_line_rec,
723: X_Return_Status => l_return_status,
716: CSP_packlist_lines_PVT.Update_packlist_lines(
717: P_Api_Version_Number => l_api_version_number,
718: P_Init_Msg_List => FND_API.G_FALSE,
719: P_Commit => FND_API.G_FALSE,
720: p_validation_level => FND_API.G_VALID_LEVEL_NONE,
721: P_Identity_Salesforce_Id => NULL,
722: P_PLL_Rec => l_packlist_line_rec,
723: X_Return_Status => l_return_status,
724: X_Msg_Count => l_msg_count,
724: X_Msg_Count => l_msg_count,
725: X_Msg_Data => l_msg_data
726: );
727: END IF;
728: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
729: RAISE FND_API.G_EXC_ERROR;
730: END IF;
731: x_return_status := l_return_status;
732:
725: X_Msg_Data => l_msg_data
726: );
727: END IF;
728: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
729: RAISE FND_API.G_EXC_ERROR;
730: END IF;
731: x_return_status := l_return_status;
732:
733: EXCEPTION
732:
733: EXCEPTION
734: WHEN EXCP_USER_DEFINED THEN
735: Rollback to Update_Packlist_Sts_Qty_PUB;
736: x_return_status := FND_API.G_RET_STS_ERROR;
737: fnd_msg_pub.count_and_get
738: ( p_count => x_msg_count
739: , p_data => x_msg_data);
740: WHEN FND_API.G_EXC_ERROR THEN
736: x_return_status := FND_API.G_RET_STS_ERROR;
737: fnd_msg_pub.count_and_get
738: ( p_count => x_msg_count
739: , p_data => x_msg_data);
740: WHEN FND_API.G_EXC_ERROR THEN
741: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
742: P_API_NAME => L_API_NAME
743: ,P_PKG_NAME => G_PKG_NAME
744: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
745: ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PUB
746: ,X_MSG_COUNT => X_MSG_COUNT
747: ,X_MSG_DATA => X_MSG_DATA
748: ,X_RETURN_STATUS => X_RETURN_STATUS);
749: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
750: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
751: P_API_NAME => L_API_NAME
752: ,P_PKG_NAME => G_PKG_NAME
753: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
763: fnd_msg_pub.add;
764: fnd_msg_pub.count_and_get
765: ( p_count => x_msg_count
766: , p_data => x_msg_data);
767: x_return_status := fnd_api.g_ret_sts_error;
768:
769: END Update_Packlist_Sts_Qty;
770:
771:
772: FUNCTION validate_pl_line_status (
773: -- Start of Comments
774: -- Function name : validate_pl_line_status
775: -- Purpose : This function checks whether the statuses of all packlist lines of a packlist header have been closed.
776: -- It returns fnd_api.g_true if the statuses of all lines has been set to shipped.
777: -- Otherwise, it returns fnd_api.g_false.
778: -- History :
779: -- Person Date Descriptions
780: -- ------ -------- -----------------
773: -- Start of Comments
774: -- Function name : validate_pl_line_status
775: -- Purpose : This function checks whether the statuses of all packlist lines of a packlist header have been closed.
776: -- It returns fnd_api.g_true if the statuses of all lines has been set to shipped.
777: -- Otherwise, it returns fnd_api.g_false.
778: -- History :
779: -- Person Date Descriptions
780: -- ------ -------- -----------------
781: -- klou 12-Apr-2000 Add p_check_receipt_short. If true, check also whether the status is '4' when it is not
811: IF l_line_status <> p_status_to_be_validated THEN
812: IF p_check_receipt_short THEN
813: IF l_line_status <> '4' THEN
814: CLOSE C_Get_Packlist_Lines;
815: RETURN fnd_api.g_false;
816: END IF;
817: ELSE
818: RETURN fnd_api.g_false;
819: END IF;
814: CLOSE C_Get_Packlist_Lines;
815: RETURN fnd_api.g_false;
816: END IF;
817: ELSE
818: RETURN fnd_api.g_false;
819: END IF;
820: END IF;
821: EXCEPTION
822: WHEN OTHERS THEN
820: END IF;
821: EXCEPTION
822: WHEN OTHERS THEN
823: CLOSE C_Get_Packlist_Lines;
824: RETURN fnd_api.g_false;
825: END;
826:
827: END LOOP;
828:
829: IF C_Get_Packlist_Lines%rowcount = 0 THEN
830: IF C_Get_Packlist_Lines%ISOPEN THEN
831: CLOSE C_Get_Packlist_Lines;
832: END IF;
833: RETURN fnd_api.g_false;
834: END IF;
835:
836: IF C_Get_Packlist_Lines%ISOPEN THEN
837: CLOSE C_Get_Packlist_Lines;
836: IF C_Get_Packlist_Lines%ISOPEN THEN
837: CLOSE C_Get_Packlist_Lines;
838: END IF;
839:
840: RETURN fnd_api.g_true;
841:
842: END validate_pl_line_status;
843:
844:
843:
844:
845: Procedure update_packlist_header_sts (
846: P_Api_Version_Number IN NUMBER,
847: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
848: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
849: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
850: p_packlist_header_id IN NUMBER,
851: p_organization_id IN NUMBER,
844:
845: Procedure update_packlist_header_sts (
846: P_Api_Version_Number IN NUMBER,
847: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
848: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
849: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
850: p_packlist_header_id IN NUMBER,
851: p_organization_id IN NUMBER,
852: p_packlist_status IN VARCHAR2 := FND_API.G_MISS_CHAR,
845: Procedure update_packlist_header_sts (
846: P_Api_Version_Number IN NUMBER,
847: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
848: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
849: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
850: p_packlist_header_id IN NUMBER,
851: p_organization_id IN NUMBER,
852: p_packlist_status IN VARCHAR2 := FND_API.G_MISS_CHAR,
853: x_return_status OUT NOCOPY VARCHAR2,
848: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
849: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
850: p_packlist_header_id IN NUMBER,
851: p_organization_id IN NUMBER,
852: p_packlist_status IN VARCHAR2 := FND_API.G_MISS_CHAR,
853: x_return_status OUT NOCOPY VARCHAR2,
854: x_msg_count OUT NOCOPY NUMBER,
855: x_msg_data OUT NOCOPY VARCHAR2
856:
901: l_packlist_headers_rec CSP_packlist_headers_PVT.PLH_Rec_Type;
902: l_api_version_number CONSTANT NUMBER := 1.0;
903: l_api_name CONSTANT VARCHAR2(50) := 'Update_Packlist_Sts_Qty';
904: l_msg_count NUMBER;
905: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
906: l_msg_data VARCHAR2(300);
907: l_check_existence NUMBER;
908: l_packlist_header_id NUMBER;
909: l_validation_level NUMBER := FND_API.G_VALID_LEVEL_NONE;
905: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
906: l_msg_data VARCHAR2(300);
907: l_check_existence NUMBER;
908: l_packlist_header_id NUMBER;
909: l_validation_level NUMBER := FND_API.G_VALID_LEVEL_NONE;
910: EXCP_USER_DEFINED EXCEPTION;
911:
912: BEGIN
913: SAVEPOINT Update_Packlist_Sts_Qty_PUB;
911:
912: BEGIN
913: SAVEPOINT Update_Packlist_Sts_Qty_PUB;
914:
915: IF fnd_api.to_boolean(P_Init_Msg_List) THEN
916: -- initialize message list
917: FND_MSG_PUB.initialize;
918: END IF;
919:
917: FND_MSG_PUB.initialize;
918: END IF;
919:
920: -- Standard call to check for call compatibility.
921: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
922: p_api_version_number,
923: l_api_name,
924: G_PKG_NAME)
925: THEN
922: p_api_version_number,
923: l_api_name,
924: G_PKG_NAME)
925: THEN
926: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
927: END IF;
928:
929: IF p_validation_level = fnd_api.g_valid_level_full THEN
930: -- validate the p_organization_id
925: THEN
926: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
927: END IF;
928:
929: IF p_validation_level = fnd_api.g_valid_level_full THEN
930: -- validate the p_organization_id
931: IF p_organization_id IS NULL THEN
932: FND_MESSAGE.SET_NAME ('CSP', 'CSP_MISSING_PARAMETERS');
933: FND_MESSAGE.SET_TOKEN ('PARAMETER', 'p_organization_id', TRUE);
933: FND_MESSAGE.SET_TOKEN ('PARAMETER', 'p_organization_id', TRUE);
934: FND_MSG_PUB.ADD;
935: RAISE EXCP_USER_DEFINED;
936: ELSE
937: IF p_validation_level = fnd_api.g_valid_level_full THEN
938: BEGIN
939: select organization_id into l_check_existence
940: from mtl_parameters
941: where organization_id = p_organization_id;
961: FND_MESSAGE.SET_TOKEN ('PARAMETER', 'p_packlist_header_id', TRUE);
962: FND_MSG_PUB.ADD;
963: RAISE EXCP_USER_DEFINED;
964: ELSE
965: -- IF p_validation_level = fnd_api.g_valid_level_full THEN
966: BEGIN
967: select packlist_header_id into l_check_existence
968: from csp_packlist_headers
969: where organization_id = p_organization_id
993: CLOSE C_Get_Packlist_Headers;
994: fnd_message.set_name ('CSP', 'CSP_INVALID_PACKLIST_HEADER');
995: fnd_message.set_token ('HEADER_ID', to_char(p_packlist_header_id), TRUE);
996: fnd_msg_pub.add;
997: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
998: END IF;
999: CLOSE C_Get_Packlist_Headers;
1000:
1001: IF nvl(p_packlist_status, fnd_api.g_miss_char) <> fnd_api.g_miss_char THEN
997: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
998: END IF;
999: CLOSE C_Get_Packlist_Headers;
1000:
1001: IF nvl(p_packlist_status, fnd_api.g_miss_char) <> fnd_api.g_miss_char THEN
1002: l_packlist_headers_rec.packlist_status := p_packlist_status;
1003: ELSE
1004: l_packlist_headers_rec.packlist_status := '2';
1005: END IF;
1009: -- call the CSP_Packlist_Headers_PVT.Update_packlist_headers to updat the packlist_status.
1010: CSP_Packlist_Headers_PVT.Update_packlist_headers(
1011: P_Api_Version_Number => l_api_version_number,
1012: P_Init_Msg_List => p_init_msg_list,
1013: P_Commit => FND_API.G_FALSE,
1014: p_validation_level => l_validation_level,
1015: P_Identity_Salesforce_Id => NULL,
1016: P_PLH_Rec => l_packlist_headers_rec,
1017: X_Return_Status => l_return_status,
1018: X_Msg_Count => l_msg_count,
1019: X_Msg_Data => l_msg_data
1020: );
1021:
1022: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1023: RAISE FND_API.G_EXC_ERROR;
1024: END IF;
1025:
1026: IF fnd_api.to_boolean(p_commit) THEN
1019: X_Msg_Data => l_msg_data
1020: );
1021:
1022: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1023: RAISE FND_API.G_EXC_ERROR;
1024: END IF;
1025:
1026: IF fnd_api.to_boolean(p_commit) THEN
1027: commit WORK;
1022: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1023: RAISE FND_API.G_EXC_ERROR;
1024: END IF;
1025:
1026: IF fnd_api.to_boolean(p_commit) THEN
1027: commit WORK;
1028: END IF;
1029:
1030: x_return_status := fnd_api.g_ret_sts_success;
1026: IF fnd_api.to_boolean(p_commit) THEN
1027: commit WORK;
1028: END IF;
1029:
1030: x_return_status := fnd_api.g_ret_sts_success;
1031:
1032: EXCEPTION
1033: WHEN EXCP_USER_DEFINED THEN
1034: Rollback to Update_Packlist_Sts_Qty_PUB;
1031:
1032: EXCEPTION
1033: WHEN EXCP_USER_DEFINED THEN
1034: Rollback to Update_Packlist_Sts_Qty_PUB;
1035: x_return_status := FND_API.G_RET_STS_ERROR;
1036: fnd_msg_pub.count_and_get
1037: ( p_count => x_msg_count
1038: , p_data => x_msg_data);
1039:
1039:
1040: --for debugging purpose
1041: -- x_msg_data := l_msg_data;
1042:
1043: WHEN FND_API.G_EXC_ERROR THEN
1044: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
1045: P_API_NAME => L_API_NAME
1046: ,P_PKG_NAME => G_PKG_NAME
1047: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
1049: ,X_MSG_COUNT => X_MSG_COUNT
1050: ,X_MSG_DATA => X_MSG_DATA
1051: ,X_RETURN_STATUS => X_RETURN_STATUS);
1052:
1053: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1054: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
1055: P_API_NAME => L_API_NAME
1056: ,P_PKG_NAME => G_PKG_NAME
1057: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
1068: fnd_msg_pub.add;
1069: fnd_msg_pub.count_and_get
1070: ( p_count => x_msg_count
1071: , p_data => x_msg_data);
1072: x_return_status := fnd_api.g_ret_sts_error;
1073:
1074: END update_packlist_header_sts;
1075:
1076: END CSP_PL_SHIP_UTIL;