1: PACKAGE BODY rcv_roi_header
2: /* $Header: RCVPREHB.pls 120.10.12020000.2 2012/11/15 08:39:53 honwei ship $*/
3: AS
4: g_asn_debug VARCHAR2(1) := asn_debug.is_debug_on; -- Bug 9152790: rcv debug enhancement
5: x_interface_type VARCHAR2(25) := 'RCV-856';
207: -- Note.: the derive receipt source code was not done. DO we need it ??
208: --??? (RCVHISVB : lines 593 - 600)
209:
210: derive_vendor_info(p_header_record);
211: rcv_roi_header_common.derive_ship_to_org_info(p_header_record);
212: rcv_roi_header_common.derive_from_org_info(p_header_record);
213: derive_vendor_site_info(p_header_record);
214: rcv_roi_header_common.derive_location_info(p_header_record);
215: derive_payment_terms_info(p_header_record);
208: --??? (RCVHISVB : lines 593 - 600)
209:
210: derive_vendor_info(p_header_record);
211: rcv_roi_header_common.derive_ship_to_org_info(p_header_record);
212: rcv_roi_header_common.derive_from_org_info(p_header_record);
213: derive_vendor_site_info(p_header_record);
214: rcv_roi_header_common.derive_location_info(p_header_record);
215: derive_payment_terms_info(p_header_record);
216: rcv_roi_header_common.derive_receiver_info(p_header_record);
210: derive_vendor_info(p_header_record);
211: rcv_roi_header_common.derive_ship_to_org_info(p_header_record);
212: rcv_roi_header_common.derive_from_org_info(p_header_record);
213: derive_vendor_site_info(p_header_record);
214: rcv_roi_header_common.derive_location_info(p_header_record);
215: derive_payment_terms_info(p_header_record);
216: rcv_roi_header_common.derive_receiver_info(p_header_record);
217: derive_shipment_header_id(p_header_record);
218: END derive_vendor_header;
212: rcv_roi_header_common.derive_from_org_info(p_header_record);
213: derive_vendor_site_info(p_header_record);
214: rcv_roi_header_common.derive_location_info(p_header_record);
215: derive_payment_terms_info(p_header_record);
216: rcv_roi_header_common.derive_receiver_info(p_header_record);
217: derive_shipment_header_id(p_header_record);
218: END derive_vendor_header;
219:
220: PROCEDURE default_vendor_header(
220: PROCEDURE default_vendor_header(
221: p_header_record IN OUT NOCOPY rcv_roi_preprocessor.header_rec_type
222: ) IS
223: BEGIN
224: rcv_roi_header_common.default_last_update_info(p_header_record);
225: rcv_roi_header_common.default_creation_info(p_header_record);
226: rcv_roi_header_common.default_asn_type(p_header_record);
227: rcv_roi_header_common.default_ship_from_loc_info(p_header_record);
228: default_shipment_num(p_header_record);
221: p_header_record IN OUT NOCOPY rcv_roi_preprocessor.header_rec_type
222: ) IS
223: BEGIN
224: rcv_roi_header_common.default_last_update_info(p_header_record);
225: rcv_roi_header_common.default_creation_info(p_header_record);
226: rcv_roi_header_common.default_asn_type(p_header_record);
227: rcv_roi_header_common.default_ship_from_loc_info(p_header_record);
228: default_shipment_num(p_header_record);
229:
222: ) IS
223: BEGIN
224: rcv_roi_header_common.default_last_update_info(p_header_record);
225: rcv_roi_header_common.default_creation_info(p_header_record);
226: rcv_roi_header_common.default_asn_type(p_header_record);
227: rcv_roi_header_common.default_ship_from_loc_info(p_header_record);
228: default_shipment_num(p_header_record);
229:
230: IF (g_asn_debug = 'Y') THEN
223: BEGIN
224: rcv_roi_header_common.default_last_update_info(p_header_record);
225: rcv_roi_header_common.default_creation_info(p_header_record);
226: rcv_roi_header_common.default_asn_type(p_header_record);
227: rcv_roi_header_common.default_ship_from_loc_info(p_header_record);
228: default_shipment_num(p_header_record);
229:
230: IF (g_asn_debug = 'Y') THEN
231: asn_debug.put_line('asn_tyoe ' || NVL(p_header_record.header_record.asn_type, 'STD'));
241: asn_debug.put_line('Into default shipment info for an ASN receive');
242: END IF;
243:
244: default_shipment_info(p_header_record);
245: rcv_roi_header_common.default_receipt_info(p_header_record);
246: ELSE /* For all other txns except asn receive */
247: IF (g_asn_debug = 'Y') THEN
248: asn_debug.put_line('Into default shipment info for non ASN receive');
249: END IF;
248: asn_debug.put_line('Into default shipment info for non ASN receive');
249: END IF;
250:
251: default_vendor_site_id(p_header_record);
252: rcv_roi_header_common.default_shipment_header_id(p_header_record);
253: rcv_roi_header_common.default_receipt_info(p_header_record);
254: rcv_roi_header_common.default_ship_to_location_info(p_header_record);
255: END IF;
256:
249: END IF;
250:
251: default_vendor_site_id(p_header_record);
252: rcv_roi_header_common.default_shipment_header_id(p_header_record);
253: rcv_roi_header_common.default_receipt_info(p_header_record);
254: rcv_roi_header_common.default_ship_to_location_info(p_header_record);
255: END IF;
256:
257: -- added for support of cancel
250:
251: default_vendor_site_id(p_header_record);
252: rcv_roi_header_common.default_shipment_header_id(p_header_record);
253: rcv_roi_header_common.default_receipt_info(p_header_record);
254: rcv_roi_header_common.default_ship_to_location_info(p_header_record);
255: END IF;
256:
257: -- added for support of cancel
258: -- default any shipment info
276: PROCEDURE validate_vendor_header(
277: p_header_record IN OUT NOCOPY rcv_roi_preprocessor.header_rec_type
278: ) IS
279: BEGIN
280: rcv_roi_header_common.validate_trx_type(p_header_record);
281: validate_document_type(p_header_record);
282: validate_currency_code(p_header_record);
283: rcv_roi_header_common.validate_shipment_date(p_header_record);
284: validate_receipt_date(p_header_record);
279: BEGIN
280: rcv_roi_header_common.validate_trx_type(p_header_record);
281: validate_document_type(p_header_record);
282: validate_currency_code(p_header_record);
283: rcv_roi_header_common.validate_shipment_date(p_header_record);
284: validate_receipt_date(p_header_record);
285: rcv_roi_header_common.validate_expected_receipt_date(p_header_record);
286: rcv_roi_header_common.validate_receipt_num(p_header_record);
287: rcv_roi_header_common.validate_ship_from_loc_info(p_header_record);
281: validate_document_type(p_header_record);
282: validate_currency_code(p_header_record);
283: rcv_roi_header_common.validate_shipment_date(p_header_record);
284: validate_receipt_date(p_header_record);
285: rcv_roi_header_common.validate_expected_receipt_date(p_header_record);
286: rcv_roi_header_common.validate_receipt_num(p_header_record);
287: rcv_roi_header_common.validate_ship_from_loc_info(p_header_record);
288:
289: IF (p_header_record.header_record.receipt_source_code = 'VENDOR') THEN
282: validate_currency_code(p_header_record);
283: rcv_roi_header_common.validate_shipment_date(p_header_record);
284: validate_receipt_date(p_header_record);
285: rcv_roi_header_common.validate_expected_receipt_date(p_header_record);
286: rcv_roi_header_common.validate_receipt_num(p_header_record);
287: rcv_roi_header_common.validate_ship_from_loc_info(p_header_record);
288:
289: IF (p_header_record.header_record.receipt_source_code = 'VENDOR') THEN
290: validate_vendor_info(p_header_record);
283: rcv_roi_header_common.validate_shipment_date(p_header_record);
284: validate_receipt_date(p_header_record);
285: rcv_roi_header_common.validate_expected_receipt_date(p_header_record);
286: rcv_roi_header_common.validate_receipt_num(p_header_record);
287: rcv_roi_header_common.validate_ship_from_loc_info(p_header_record);
288:
289: IF (p_header_record.header_record.receipt_source_code = 'VENDOR') THEN
290: validate_vendor_info(p_header_record);
291: validate_vendor_site_info(p_header_record);
290: validate_vendor_info(p_header_record);
291: validate_vendor_site_info(p_header_record);
292: END IF;
293:
294: rcv_roi_header_common.validate_ship_to_org_info(p_header_record);
295: rcv_roi_header_common.validate_from_org_info(p_header_record);
296: rcv_roi_header_common.validate_location_info(p_header_record);
297: rcv_roi_header_common.validate_payment_terms_info(p_header_record);
298: rcv_roi_header_common.validate_receiver_info(p_header_record);
291: validate_vendor_site_info(p_header_record);
292: END IF;
293:
294: rcv_roi_header_common.validate_ship_to_org_info(p_header_record);
295: rcv_roi_header_common.validate_from_org_info(p_header_record);
296: rcv_roi_header_common.validate_location_info(p_header_record);
297: rcv_roi_header_common.validate_payment_terms_info(p_header_record);
298: rcv_roi_header_common.validate_receiver_info(p_header_record);
299: rcv_roi_header_common.validate_freight_carrier_info(p_header_record);
292: END IF;
293:
294: rcv_roi_header_common.validate_ship_to_org_info(p_header_record);
295: rcv_roi_header_common.validate_from_org_info(p_header_record);
296: rcv_roi_header_common.validate_location_info(p_header_record);
297: rcv_roi_header_common.validate_payment_terms_info(p_header_record);
298: rcv_roi_header_common.validate_receiver_info(p_header_record);
299: rcv_roi_header_common.validate_freight_carrier_info(p_header_record);
300:
293:
294: rcv_roi_header_common.validate_ship_to_org_info(p_header_record);
295: rcv_roi_header_common.validate_from_org_info(p_header_record);
296: rcv_roi_header_common.validate_location_info(p_header_record);
297: rcv_roi_header_common.validate_payment_terms_info(p_header_record);
298: rcv_roi_header_common.validate_receiver_info(p_header_record);
299: rcv_roi_header_common.validate_freight_carrier_info(p_header_record);
300:
301: /* Bug#4523892 */
294: rcv_roi_header_common.validate_ship_to_org_info(p_header_record);
295: rcv_roi_header_common.validate_from_org_info(p_header_record);
296: rcv_roi_header_common.validate_location_info(p_header_record);
297: rcv_roi_header_common.validate_payment_terms_info(p_header_record);
298: rcv_roi_header_common.validate_receiver_info(p_header_record);
299: rcv_roi_header_common.validate_freight_carrier_info(p_header_record);
300:
301: /* Bug#4523892 */
302: IF (NVL(p_header_record.header_record.asn_type, 'STD') = 'STD'
295: rcv_roi_header_common.validate_from_org_info(p_header_record);
296: rcv_roi_header_common.validate_location_info(p_header_record);
297: rcv_roi_header_common.validate_payment_terms_info(p_header_record);
298: rcv_roi_header_common.validate_receiver_info(p_header_record);
299: rcv_roi_header_common.validate_freight_carrier_info(p_header_record);
300:
301: /* Bug#4523892 */
302: IF (NVL(p_header_record.header_record.asn_type, 'STD') = 'STD'
303: AND g_txn_against_asn = 'Y') THEN
309: END IF;
310:
311: IF (p_header_record.header_record.receipt_source_code = 'VENDOR') THEN
312: validate_asbn_specific_info(p_header_record);
313: rcv_roi_header_common.validate_lcm_info(p_header_record); -- lcm changes
314: END IF;
315:
316: /* Validate gross_weight_uom_code */
317: /* Validate net_weight_uom_code */
1985: AND rti.transaction_type = 'CANCEL'
1986: AND rti.shipment_header_id = p_header_record.header_record.receipt_header_id);
1987: --
1988: END insert_cancelled_asn_lines;
1989: END rcv_roi_header;