[Home] [Help]
271: NVL(draft_headers.end_date, txn_headers.end_date),
272: NVL(draft_headers.style_id, txn_headers.style_id),
273:
274: -- set initial value for error_flag
275: FND_API.g_FALSE
276: FROM po_line_locations_interface intf_locs,
277: po_lines_interface intf_lines,
278: po_headers_interface intf_headers,
279: po_lines_draft_all draft_lines,
616: p_validation_id => PO_VAL_CONSTANTS.c_ship_to_org_code_derv,
617: p_line_locs => x_line_locs
618: );
619:
620: x_line_locs.error_flag_tbl(i) := FND_API.g_TRUE;
621: END IF;
622:
623: -- check derivation error for ship_to_location_id
624: IF (x_line_locs.ship_to_loc_tbl(i) IS NOT NULL AND
644: p_validation_id => PO_VAL_CONSTANTS.c_ship_to_location_derv,
645: p_line_locs => x_line_locs
646: );
647:
648: x_line_locs.error_flag_tbl(i) := FND_API.g_TRUE;
649: END IF;
650:
651: -- check derivation error for terms_id
652: IF (x_line_locs.payment_terms_tbl(i) IS NOT NULL AND
670: p_token2_name => 'VALUE',
671: p_token2_value => x_line_locs.payment_terms_tbl(i)
672: );
673:
674: x_line_locs.error_flag_tbl(i) := FND_API.g_TRUE;
675: END IF;
676:
677: -- check derivation error for receiving_routing_id
678: IF (x_line_locs.receiving_routing_tbl(i) IS NOT NULL AND
696: p_token2_name => 'VALUE',
697: p_token2_value => x_line_locs.receiving_routing_tbl(i)
698: );
699:
700: x_line_locs.error_flag_tbl(i) := FND_API.g_TRUE;
701: END IF;
702:
703: -- check derivation error for tax_name
704: IF (PO_PDOI_PARAMS.g_request.document_type =
725: p_token2_name => 'VALUE',
726: p_token2_value => x_line_locs.tax_code_id_tbl(i)
727: );
728:
729: x_line_locs.error_flag_tbl(i) := FND_API.g_TRUE;
730: END IF;
731: END IF;
732: END LOOP;
733:
873: --x_line_locs
874: -- The record contains the values to be validated.
875: -- If there is error(s) on any attribute of the location row,
876: -- corresponding value in error_flag_tbl will be set with value
877: -- FND_API.g_TRUE.
878: --OUT:
879: --End of Comments
880: ------------------------------------------------------------------------
881: PROCEDURE validate_line_locs
1009: IF (PO_LOG.d_stmt) THEN
1010: PO_LOG.stmt(d_module, d_position, 'vaidate line locs return fatal');
1011: END IF;
1012:
1013: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1014: END IF;
1015:
1016: PO_TIMING_UTL.stop_time(PO_PDOI_CONSTANTS.g_T_LINE_LOC_VALIDATE);
1017:
1075: UPDATE po_line_locations_interface
1076: SET line_location_id = p_line_loc_id_tbl(i),
1077: process_code = PO_PDOI_CONSTANTS.g_PROCESS_CODE_ACCEPTED
1078: WHERE interface_line_location_id = p_intf_line_loc_id_tbl(i)
1079: AND p_error_flag_tbl(i) = FND_API.g_FALSE;
1080:
1081: IF (PO_LOG.d_proc) THEN
1082: PO_LOG.proc_end (d_module);
1083: END IF;
2939: PO_LOG.stmt(d_module, d_position, 'default expense accrual code',
2940: PO_PDOI_PARAMS.g_sys.expense_accrual_code);
2941: END IF;
2942:
2943: IF (PO_PDOI_PARAMS.g_product.inv_installed = FND_API.g_TRUE) then
2944: x_accrue_on_receipt_flag_tbl(l_index) := 'Y';
2945: ELSE
2946: IF (PO_PDOI_PARAMS.g_sys.expense_accrual_code = 'PERIOD END') then
2947: x_accrue_on_receipt_flag_tbl(l_index) := 'N';
3075: -----------------------------------------------------------------------
3076: --Start of Comments
3077: --Name: populate_error_flag
3078: --Function:
3079: -- corresponding value in error_flag_tbl will be set with value FND_API.G_FALSE.
3080: --Parameters:
3081: --IN:
3082: --p_results
3083: -- The validation results that contains the errored line information.
3085: --p_line_locs
3086: -- The record contains the values to be validated.
3087: -- If there is error(s) on any attribute of the price differential row,
3088: -- corresponding value in error_flag_tbl will be set with value
3089: -- FND_API.g_TRUE.
3090: --OUT:
3091: --End of Comments
3092: ------------------------------------------------------------------------
3093: PROCEDURE populate_error_flag
3126: -- hit for CATALOG UPLOAD
3127: IF (PO_PDOI_PARAMS.g_request.calling_module =
3128: PO_PDOI_CONSTANTS.g_call_mod_CATALOG_UPLOAD AND
3129: PO_PDOI_PARAMS.g_docs_info(PO_PDOI_PARAMS.g_request.interface_header_id)
3130: .err_tolerance_exceeded = FND_API.g_TRUE) THEN
3131: d_position := 20;
3132:
3133: IF (PO_LOG.d_stmt) THEN
3134: PO_LOG.stmt(d_module, d_position, 'after error tolerance exceeded, collect error on index', l_index);
3149: IF (PO_LOG.d_stmt) THEN
3150: PO_LOG.stmt(d_module, d_position, 'set error on index', l_index);
3151: END IF;
3152:
3153: x_line_locs.error_flag_tbl(l_index) := FND_API.g_TRUE;
3154:
3155: -- Bug 5215781:
3156: -- price break level errors will be counted in line errors and threshold will be
3157: -- checked; If threshold is hit, reject all price break records that are processed
3181: PO_LOG.stmt(d_module, d_position, 'threshold hit on line',
3182: x_line_locs.intf_line_id_tbl(l_index));
3183: END IF;
3184:
3185: PO_PDOI_PARAMS.g_docs_info(l_intf_header_id).err_tolerance_exceeded := FND_API.g_TRUE;
3186:
3187: -- reject all rows after this row
3188: FOR j IN l_index+1..x_line_locs.rec_count LOOP
3189: x_line_locs.error_flag_tbl(j) := FND_API.g_TRUE;
3185: PO_PDOI_PARAMS.g_docs_info(l_intf_header_id).err_tolerance_exceeded := FND_API.g_TRUE;
3186:
3187: -- reject all rows after this row
3188: FOR j IN l_index+1..x_line_locs.rec_count LOOP
3189: x_line_locs.error_flag_tbl(j) := FND_API.g_TRUE;
3190: END LOOP;
3191: END IF;
3192: END IF;
3193: END IF;