348: , X_Return_Status OUT NOCOPY VARCHAR2
349: , X_Msg_Count OUT NOCOPY NUMBER
350: , X_Msg_Data OUT NOCOPY VARCHAR2 ) IS
351:
352: L_Return_Status VARCHAR2(1) := OKE_API.G_Ret_Sts_Success;
353: L_API_Version CONSTANT NUMBER := 1;
354: L_API_Name CONSTANT VARCHAR2(30) := 'CREATE_DEMAND';
355: L_Quantity NUMBER;
356: L_ID NUMBER;
367: WHERE mps_transaction_id = l_id;
368:
369: BEGIN
370:
371: L_Return_Status := OKE_API.Start_Activity (
372: L_API_Name
373: , P_Init_Msg_List
374: , '_PKG'
375: , X_Return_Status );
372: L_API_Name
373: , P_Init_Msg_List
374: , '_PKG'
375: , X_Return_Status );
376: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
377: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
378: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
379: RAISE OKE_API.G_EXCEPTION_ERROR;
380: END IF;
373: , P_Init_Msg_List
374: , '_PKG'
375: , X_Return_Status );
376: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
377: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
378: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
379: RAISE OKE_API.G_EXCEPTION_ERROR;
380: END IF;
381:
374: , '_PKG'
375: , X_Return_Status );
376: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
377: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
378: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
379: RAISE OKE_API.G_EXCEPTION_ERROR;
380: END IF;
381:
382: OPEN c1;
375: , X_Return_Status );
376: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
377: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
378: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
379: RAISE OKE_API.G_EXCEPTION_ERROR;
380: END IF;
381:
382: OPEN c1;
383: FETCH c1 INTO L_ID;
408: END IF;
409:
410: X_Return_Status := L_Return_Status;
411: -- Commit;
412: OKE_API.End_Activity ( X_Msg_Count, X_Msg_Data );
413:
414: EXCEPTION
415: WHEN OKE_API.G_EXCEPTION_ERROR THEN
416:
411: -- Commit;
412: OKE_API.End_Activity ( X_Msg_Count, X_Msg_Data );
413:
414: EXCEPTION
415: WHEN OKE_API.G_EXCEPTION_ERROR THEN
416:
417: x_return_status := OKE_API.HANDLE_EXCEPTIONS
418: (
419: l_api_name,
413:
414: EXCEPTION
415: WHEN OKE_API.G_EXCEPTION_ERROR THEN
416:
417: x_return_status := OKE_API.HANDLE_EXCEPTIONS
418: (
419: l_api_name,
420: G_PKG_NAME,
421: 'OKE_API.G_RET_STS_ERROR',
417: x_return_status := OKE_API.HANDLE_EXCEPTIONS
418: (
419: l_api_name,
420: G_PKG_NAME,
421: 'OKE_API.G_RET_STS_ERROR',
422: x_msg_count,
423: x_msg_data,
424: '_PKG');
425: WHEN OKE_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
421: 'OKE_API.G_RET_STS_ERROR',
422: x_msg_count,
423: x_msg_data,
424: '_PKG');
425: WHEN OKE_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
426: x_return_status := OKE_API.HANDLE_EXCEPTIONS
427: (
428: l_api_name,
429: G_PKG_NAME,
422: x_msg_count,
423: x_msg_data,
424: '_PKG');
425: WHEN OKE_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
426: x_return_status := OKE_API.HANDLE_EXCEPTIONS
427: (
428: l_api_name,
429: G_PKG_NAME,
430: 'OKE_API.G_RET_STS_UNEXP_ERROR',
426: x_return_status := OKE_API.HANDLE_EXCEPTIONS
427: (
428: l_api_name,
429: G_PKG_NAME,
430: 'OKE_API.G_RET_STS_UNEXP_ERROR',
431: x_msg_count,
432: x_msg_data,
433: '_PKG');
434:
432: x_msg_data,
433: '_PKG');
434:
435: WHEN OTHERS THEN
436: x_return_status := OKE_API.HANDLE_EXCEPTIONS
437: (
438: l_api_name,
439: G_PKG_NAME,
440: 'OTHERS',
450: , X_ID OUT NOCOPY NUMBER
451: , X_Return_Status OUT NOCOPY VARCHAR2
452: , X_Msg_Count OUT NOCOPY NUMBER
453: , X_Msg_Data OUT NOCOPY VARCHAR2 ) IS
454: L_Return_Status VARCHAR2(1) := OKE_API.G_Ret_Sts_Success;
455: L_API_Version CONSTANT NUMBER := 1;
456: L_API_Name CONSTANT VARCHAR2(30) := 'CREATE_SHIPMENT';
457: L_Quantity NUMBER;
458: L_ID NUMBER;
518: and inventory_item_id = p_item_id;
519:
520: BEGIN
521:
522: L_Return_Status := OKE_API.Start_Activity (
523: L_API_Name
524: , P_Init_Msg_List
525: , '_PKG'
526: , X_Return_Status );
523: L_API_Name
524: , P_Init_Msg_List
525: , '_PKG'
526: , X_Return_Status );
527: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
528: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
529: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
530: RAISE OKE_API.G_EXCEPTION_ERROR;
531: END IF;
524: , P_Init_Msg_List
525: , '_PKG'
526: , X_Return_Status );
527: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
528: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
529: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
530: RAISE OKE_API.G_EXCEPTION_ERROR;
531: END IF;
532:
525: , '_PKG'
526: , X_Return_Status );
527: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
528: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
529: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
530: RAISE OKE_API.G_EXCEPTION_ERROR;
531: END IF;
532:
533: OPEN c1;
526: , X_Return_Status );
527: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
528: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
529: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
530: RAISE OKE_API.G_EXCEPTION_ERROR;
531: END IF;
532:
533: OPEN c1;
534: FETCH c1 INTO c1info;
613: , L_ID
614: , L_Return_Status );
615:
616:
617: IF L_Return_Status = OKE_API.G_Ret_Sts_Success THEN
618: UPDATE oke_deliverable_actions
619: SET reference1 = l_id
620: , in_process_flag = 'Y'
621: , initiate_date = sysdate
623:
624: X_Return_Status := L_Return_Status;
625: -- Commit;
626: ELSE
627: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
628: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
629: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
630: RAISE OKE_API.G_EXCEPTION_ERROR;
631: END IF;
624: X_Return_Status := L_Return_Status;
625: -- Commit;
626: ELSE
627: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
628: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
629: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
630: RAISE OKE_API.G_EXCEPTION_ERROR;
631: END IF;
632: END IF;
625: -- Commit;
626: ELSE
627: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
628: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
629: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
630: RAISE OKE_API.G_EXCEPTION_ERROR;
631: END IF;
632: END IF;
633:
626: ELSE
627: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
628: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
629: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
630: RAISE OKE_API.G_EXCEPTION_ERROR;
631: END IF;
632: END IF;
633:
634: OKE_API.END_ACTIVITY(x_msg_count, x_msg_data);
630: RAISE OKE_API.G_EXCEPTION_ERROR;
631: END IF;
632: END IF;
633:
634: OKE_API.END_ACTIVITY(x_msg_count, x_msg_data);
635:
636: EXCEPTION
637: WHEN OKE_API.G_EXCEPTION_ERROR THEN
638:
633:
634: OKE_API.END_ACTIVITY(x_msg_count, x_msg_data);
635:
636: EXCEPTION
637: WHEN OKE_API.G_EXCEPTION_ERROR THEN
638:
639: x_return_status := OKE_API.HANDLE_EXCEPTIONS
640: (
641: l_api_name,
635:
636: EXCEPTION
637: WHEN OKE_API.G_EXCEPTION_ERROR THEN
638:
639: x_return_status := OKE_API.HANDLE_EXCEPTIONS
640: (
641: l_api_name,
642: G_PKG_NAME,
643: 'OKE_API.G_RET_STS_ERROR',
639: x_return_status := OKE_API.HANDLE_EXCEPTIONS
640: (
641: l_api_name,
642: G_PKG_NAME,
643: 'OKE_API.G_RET_STS_ERROR',
644: x_msg_count,
645: x_msg_data,
646: '_PKG');
647: WHEN OKE_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
643: 'OKE_API.G_RET_STS_ERROR',
644: x_msg_count,
645: x_msg_data,
646: '_PKG');
647: WHEN OKE_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
648: x_return_status := OKE_API.HANDLE_EXCEPTIONS
649: (
650: l_api_name,
651: G_PKG_NAME,
644: x_msg_count,
645: x_msg_data,
646: '_PKG');
647: WHEN OKE_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
648: x_return_status := OKE_API.HANDLE_EXCEPTIONS
649: (
650: l_api_name,
651: G_PKG_NAME,
652: 'OKE_API.G_RET_STS_UNEXP_ERROR',
648: x_return_status := OKE_API.HANDLE_EXCEPTIONS
649: (
650: l_api_name,
651: G_PKG_NAME,
652: 'OKE_API.G_RET_STS_UNEXP_ERROR',
653: x_msg_count,
654: x_msg_data,
655: '_PKG');
656:
654: x_msg_data,
655: '_PKG');
656:
657: WHEN OTHERS THEN
658: x_return_status := OKE_API.HANDLE_EXCEPTIONS
659: (
660: l_api_name,
661: G_PKG_NAME,
662: 'OTHERS',
672: , X_Return_Status OUT NOCOPY VARCHAR2
673: , X_Msg_Count OUT NOCOPY NUMBER
674: , X_Msg_Data OUT NOCOPY VARCHAR2 ) IS
675:
676: L_Return_Status VARCHAR2(1) := OKE_API.G_Ret_Sts_Success;
677: L_API_Version CONSTANT NUMBER := 1;
678: L_API_Name CONSTANT VARCHAR2(30) := 'CREATE_REQUISITION';
679: L_Quantity NUMBER;
680: L_ID NUMBER;
735:
736: l_allow_item_desc_upd_flag VARCHAR2(1);
737:
738: BEGIN
739: L_Return_Status := OKE_API.Start_Activity (
740: L_API_Name
741: , P_Init_Msg_List
742: , '_PKG'
743: , X_Return_Status );
740: L_API_Name
741: , P_Init_Msg_List
742: , '_PKG'
743: , X_Return_Status );
744: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
745: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
746: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
747: RAISE OKE_API.G_EXCEPTION_ERROR;
748: END IF;
741: , P_Init_Msg_List
742: , '_PKG'
743: , X_Return_Status );
744: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
745: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
746: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
747: RAISE OKE_API.G_EXCEPTION_ERROR;
748: END IF;
749:
742: , '_PKG'
743: , X_Return_Status );
744: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
745: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
746: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
747: RAISE OKE_API.G_EXCEPTION_ERROR;
748: END IF;
749:
750: OPEN c2;
743: , X_Return_Status );
744: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
745: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
746: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
747: RAISE OKE_API.G_EXCEPTION_ERROR;
748: END IF;
749:
750: OPEN c2;
751: FETCH c2 INTO c2info;
877: -- COMMIT;
878:
879: X_ID := P_Action_ID;
880: X_Return_Status := L_Return_Status;
881: OKE_API.END_ACTIVITY(x_msg_count, x_msg_data);
882:
883: EXCEPTION
884: WHEN OKE_API.G_EXCEPTION_ERROR THEN
885:
880: X_Return_Status := L_Return_Status;
881: OKE_API.END_ACTIVITY(x_msg_count, x_msg_data);
882:
883: EXCEPTION
884: WHEN OKE_API.G_EXCEPTION_ERROR THEN
885:
886: x_return_status := OKE_API.HANDLE_EXCEPTIONS
887: (
888: l_api_name,
882:
883: EXCEPTION
884: WHEN OKE_API.G_EXCEPTION_ERROR THEN
885:
886: x_return_status := OKE_API.HANDLE_EXCEPTIONS
887: (
888: l_api_name,
889: G_PKG_NAME,
890: 'OKE_API.G_RET_STS_ERROR',
886: x_return_status := OKE_API.HANDLE_EXCEPTIONS
887: (
888: l_api_name,
889: G_PKG_NAME,
890: 'OKE_API.G_RET_STS_ERROR',
891: x_msg_count,
892: x_msg_data,
893: '_PKG');
894: WHEN OKE_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
890: 'OKE_API.G_RET_STS_ERROR',
891: x_msg_count,
892: x_msg_data,
893: '_PKG');
894: WHEN OKE_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
895: x_return_status := OKE_API.HANDLE_EXCEPTIONS
896: (
897: l_api_name,
898: G_PKG_NAME,
891: x_msg_count,
892: x_msg_data,
893: '_PKG');
894: WHEN OKE_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
895: x_return_status := OKE_API.HANDLE_EXCEPTIONS
896: (
897: l_api_name,
898: G_PKG_NAME,
899: 'OKE_API.G_RET_STS_UNEXP_ERROR',
895: x_return_status := OKE_API.HANDLE_EXCEPTIONS
896: (
897: l_api_name,
898: G_PKG_NAME,
899: 'OKE_API.G_RET_STS_UNEXP_ERROR',
900: x_msg_count,
901: x_msg_data,
902: '_PKG');
903:
901: x_msg_data,
902: '_PKG');
903:
904: WHEN OTHERS THEN
905: x_return_status := OKE_API.HANDLE_EXCEPTIONS
906: (
907: l_api_name,
908: G_PKG_NAME,
909: 'OTHERS',