54: X_valid_deliver_to_person BOOLEAN;
55: X_valid_subinventory BOOLEAN;
56:
57: --
58: l_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
59: l_code_combination_id PO_DISTRIBUTIONS.code_combination_id%TYPE;
60: --
61:
62: /* Bug 3816908 : Variable added */
348: x_dest_subinv => x_deliver_to_sub,
349: x_rate => x_rate,
350: x_rate_date => x_rate_date);
351:
352: IF (l_status <> FND_API.G_RET_STS_SUCCESS) THEN
353: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
354: END IF;
355: --
356:
349: x_rate => x_rate,
350: x_rate_date => x_rate_date);
351:
352: IF (l_status <> FND_API.G_RET_STS_SUCCESS) THEN
353: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
354: END IF;
355: --
356:
357: X_destination_type_code := 'MULTIPLE';
522: * po_distribution_id is given, then return distribution information
523: * based on that distribution id.
524: * Returns:
525: * x_return_status:
526: * FND_API.G_RET_STS_SUCCESS if no error occurs
527: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs (e.g.,
528: * line_location_id does not exist in PO_LINE_LOCATIONS)
529: * x_kanban_card_number:
530: * Kanban Card Number. NULL if distribution does not contain kanban card info
523: * based on that distribution id.
524: * Returns:
525: * x_return_status:
526: * FND_API.G_RET_STS_SUCCESS if no error occurs
527: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs (e.g.,
528: * line_location_id does not exist in PO_LINE_LOCATIONS)
529: * x_kanban_card_number:
530: * Kanban Card Number. NULL if distribution does not contain kanban card info
531: * x_project_number:
590: l_wip_operation_seq_num PO_DISTRIBUTIONS.wip_operation_seq_num%TYPE;
591: l_wip_resource_seq_num PO_DISTRIBUTIONS.wip_resource_seq_num%TYPE;
592: l_to_organization_id PO_DISTRIBUTIONS.destination_organization_id%TYPE;
593:
594: l_multi_distr VARCHAR2(1) := FND_API.G_FALSE;
595: l_multiple_msg VARCHAR2(2000);
596:
597: l_progress VARCHAR2(3);
598:
597: l_progress VARCHAR2(3);
598:
599: BEGIN
600:
601: x_return_status := FND_API.G_RET_STS_SUCCESS;
602:
603: l_progress := '000';
604:
605: IF (p_line_location_id IS NULL) THEN
633: IF (l_num_distributions > 1) THEN
634:
635: l_progress := '010';
636:
637: l_multi_distr := FND_API.G_TRUE;
638:
639: FND_MESSAGE.set_name('PO', 'PO_MULTI_DEST_INFO');
640: l_multiple_msg := FND_MESSAGE.get;
641:
668: END IF;
669: END IF;
670: END IF;
671:
672: IF (l_multi_distr = FND_API.G_FALSE) THEN
673:
674: l_progress := '020';
675:
676: --SQL What: Retreive Distribution Information by distribution_id
785: END IF;
786:
787: EXCEPTION
788: WHEN OTHERS THEN
789: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
790: PO_MESSAGE_S.sql_error (l_api_name, l_progress, SQLCODE);
791: END get_misc_distr_info;
792:
793:
799: * Effects: get kanban card information from req line, project, task and
800: * charge account information from req distribution
801: * Returns:
802: * x_return_status:
803: * FND_API.G_RET_STS_SUCCESS if no error occurs
804: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs (e.g.,
805: * line_location_id does not exist in PO_LINE_LOCATIONS)
806: * x_kanban_card_number:
807: * Kanban Card Number. NULL if distribution does not contain kanban card info
800: * charge account information from req distribution
801: * Returns:
802: * x_return_status:
803: * FND_API.G_RET_STS_SUCCESS if no error occurs
804: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs (e.g.,
805: * line_location_id does not exist in PO_LINE_LOCATIONS)
806: * x_kanban_card_number:
807: * Kanban Card Number. NULL if distribution does not contain kanban card info
808: * x_project_number:
832: l_progress VARCHAR2(3) := '000';
833: x_project_id PO_REQ_DISTRIBUTIONS.project_id%type; -- bug 3867151
834: x_task_id PO_REQ_DISTRIBUTIONS.task_id%type; -- bug 3867151
835: BEGIN
836: x_return_status := FND_API.G_RET_STS_SUCCESS;
837:
838: IF (p_requisition_line_id IS NOT NULL) THEN
839: l_progress := '010';
840:
928: /* Bug 3867151 END */
929:
930: EXCEPTION
931: WHEN OTHERS THEN
932: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
933: PO_MESSAGE_S.sql_error (l_api_name, l_progress, SQLCODE);
934: END get_misc_req_distr_info;
935:
936: --