1: PACKAGE BODY PO_SUBINVENTORIES_S AS
2: /* $Header: POXCOS1B.pls 115.9 2002/11/25 23:38:39 sbull ship $*/
3:
4: /* create client package body */
5: /*
2: /* $Header: POXCOS1B.pls 115.9 2002/11/25 23:38:39 sbull ship $*/
3:
4: /* create client package body */
5: /*
6: PACKAGE BODY PO_SUBINVENTORIES_S IS
7: */
8:
9: /*===========================================================================
10:
148:
149: BEGIN
150: x_progress := '000';
151:
152: po_subinventories_s.get_locator_control (
153: x_organization_id,
154: x_subinventory,
155: x_item_id,
156: x_locator_control
621:
622: EXCEPTION
623: WHEN OTHERS THEN
624: -- dbms_output.put_line('In exception');
625: po_message_s.sql_error('po_subinventories_s.check_sub_transfer',
626: x_progress, sqlcode);
627: raise;
628:
629: END check_sub_transfer;
643: x_allow_expense_source VARCHAR2(1);
644:
645: BEGIN
646:
647: po_subinventories_s.check_sub_transfer (
648: x_source_organization_id,
649: x_destination_organization_id,
650: x_destination_subinventory,
651: x_item_id,
801: */
802:
803: x_progress := '060';
804:
805: po_subinventories_s.check_sub_transfer (
806: x_src_org_id,
807: x_dest_org_id,
808: x_dest_sub,
809: x_item_id,
859: /*
860: ** See if org/sub/item is under locator control
861: */
862: X_progress := '1220';
863: po_subinventories_s.get_locator_control
864: (X_to_organization_id,
865: X_subinventory,
866: X_item_id,
867: locator_control);
920:
921: EXCEPTION
922: WHEN OTHERS THEN
923: -- dbms_output.put_line('In exception');
924: po_message_s.sql_error('po_subinventories_s.get_subinventory_details',
925: x_progress, sqlcode);
926: raise;
927:
928: END get_subinventory_details;
927:
928: END get_subinventory_details;
929:
930:
931: END PO_SUBINVENTORIES_S;