[Home] [Help]
20:
21: -- Forward declare private procedure po_reschedule_req
22: PROCEDURE PO_RESCHEDULE_REQ (
23: p_line_location_id_tbl IN po_tbl_number,
24: p_estimated_pickup_dates IN po_tbl_date,
25: p_ship_methods IN po_tbl_varchar30,
26: x_return_status OUT NOCOPY VARCHAR2
27: ); -- Bug 5255550
28: --
38: p_estimated_pickup_date DATE,
39: p_ship_method VARCHAR2
40: ) Return boolean IS
41:
42: l_need_by_dates_old po_tbl_date;
43: l_need_by_dates po_tbl_date;
44: l_po_line_ids po_tbl_number;
45: l_shipment_nums po_tbl_number;
46: l_estimated_pickup_dates po_tbl_date;
39: p_ship_method VARCHAR2
40: ) Return boolean IS
41:
42: l_need_by_dates_old po_tbl_date;
43: l_need_by_dates po_tbl_date;
44: l_po_line_ids po_tbl_number;
45: l_shipment_nums po_tbl_number;
46: l_estimated_pickup_dates po_tbl_date;
47: l_ship_methods po_tbl_varchar30;
42: l_need_by_dates_old po_tbl_date;
43: l_need_by_dates po_tbl_date;
44: l_po_line_ids po_tbl_number;
45: l_shipment_nums po_tbl_number;
46: l_estimated_pickup_dates po_tbl_date;
47: l_ship_methods po_tbl_varchar30;
48: l_api_name CONSTANT VARCHAR2(30) := 'RESCHEDULE';
49: l_result BOOLEAN;
50:
73: END IF;
74:
75: IF p_estimated_pickup_date IS NOT NULL THEN
76: -- 5610714 Initialize the Collection with the parameter value
77: l_estimated_pickup_dates := po_tbl_date(p_estimated_pickup_date);
78: END IF;
79:
80: IF p_ship_method IS NOT NULL THEN
81: -- 5610714 Initialize the Collection with the parameter value
111: -- Now APS will pass all the lines/shipments for 1 PO/Release at once.
112:
113: -- 2279541 added new parameter x_shipment_num
114: Function RESCHEDULE (
115: X_need_by_dates_old po_tbl_date,
116: X_need_by_dates po_tbl_date,
117: X_po_header_id number,
118: X_po_line_ids po_tbl_number,
119: X_supply_number VARCHAR2,
112:
113: -- 2279541 added new parameter x_shipment_num
114: Function RESCHEDULE (
115: X_need_by_dates_old po_tbl_date,
116: X_need_by_dates po_tbl_date,
117: X_po_header_id number,
118: X_po_line_ids po_tbl_number,
119: X_supply_number VARCHAR2,
120: X_shipment_nums po_tbl_number,
117: X_po_header_id number,
118: X_po_line_ids po_tbl_number,
119: X_supply_number VARCHAR2,
120: X_shipment_nums po_tbl_number,
121: p_estimated_pickup_dates po_tbl_date,
122: p_ship_methods po_tbl_varchar30
123: ) Return boolean IS
124:
125: l_po_release_id number;
137: l_document_org_id NUMBER;
138: l_changes PO_CHANGES_REC_TYPE;
139: l_shipment_changes PO_SHIPMENTS_REC_TYPE;
140: l_line_location_id_tbl PO_TBL_NUMBER;
141: l_need_by_date_tbl PO_TBL_DATE;
142: l_nbd_validate_tbl PO_TBL_VARCHAR2000:=NULL;
143: l_return_status VARCHAR2(1);
144: l_api_errors PO_API_ERRORS_REC_TYPE;
145: l_release_type PO_RELEASES_ALL.RELEASE_TYPE%TYPE;
146: l_session_gt_key NUMBER;
147: l_api_name CONSTANT VARCHAR2(30) := 'RESCHEDULE';
148: l_log_head CONSTANT VARCHAR2(100):= g_module_prefix||l_api_name;
149: l_progress VARCHAR2(3):='000';
150: l_promised_by_date_tbl PO_TBL_DATE; --Bug5633563
151: l_need_by_promise_def_prf VARCHAR2(1); --Bug5633563
152: --
153:
154:
459: is set then new need_by_date must be copied to promised_by_date
460: */
461: fnd_profile.get('PO_NEED_BY_PROMISE_DEFAULTING', l_need_by_promise_def_prf);
462: IF nvl(l_need_by_promise_def_prf,'N') = 'Y' THEN
463: l_promised_by_date_tbl := PO_TBL_DATE();
464: select date2
465: bulk collect into l_promised_by_date_tbl
466: from po_session_gt SCRATCH
467: WHERE KEY = l_session_gt_key
596: --End of Comments
597: -------------------------------------------------------------------------------
598: PROCEDURE PO_RESCHEDULE_REQ (
599: p_line_location_id_tbl IN po_tbl_number,
600: p_estimated_pickup_dates IN po_tbl_date,
601: p_ship_methods IN po_tbl_varchar30,
602: x_return_status OUT NOCOPY VARCHAR2
603: ) IS
604: l_api_name CONSTANT VARCHAR2(30) := 'PO_RESCHEDULE_REQ';