[Home] [Help]
1: PACKAGE BODY PO_VAL_SHIPMENTS2 AS
2: -- $Header: PO_VAL_SHIPMENTS2.plb 120.22.12020000.2 2013/03/19 06:01:30 srpantha ship $
3: c_entity_type_line_location CONSTANT VARCHAR2(30) := PO_VALIDATIONS.c_entity_type_LINE_LOCATION;
4: -- The module base for this package.
5: d_package_base CONSTANT VARCHAR2(50) := po_log.get_package_base('PO_VAL_SHIPMENTS2');
6:
7: -- The module base for the subprogram.
54: IF (x_results IS NULL) THEN
55: x_results := po_validation_results_type.new_instance();
56: END IF;
57:
58: x_result_type := po_validations.c_result_type_success;
59:
60: IF po_log.d_proc THEN
61: po_log.proc_begin(d_mod, 'p_id_tbl', p_id_tbl);
62: po_log.proc_begin(d_mod, 'p_purchase_basis_tbl', p_purchase_basis_tbl);
72: p_column_name => 'NEED_BY_DATE',
73: p_column_val => p_need_by_date_tbl(i),
74: p_message_name => 'PO_SVC_NO_NEED_PROMISE_DATE',
75: p_validation_id => PO_VAL_CONSTANTS.c_loc_need_by_date);
76: x_result_type := po_validations.c_result_type_failure;
77: END IF;
78: END LOOP;
79:
80: IF po_log.d_proc THEN
105: IF (x_results IS NULL) THEN
106: x_results := po_validation_results_type.new_instance();
107: END IF;
108:
109: x_result_type := po_validations.c_result_type_success;
110:
111: IF po_log.d_proc THEN
112: po_log.proc_begin(d_mod, 'p_id_tbl', p_id_tbl);
113: po_log.proc_begin(d_mod, 'p_purchase_basis_tbl', p_purchase_basis_tbl);
123: p_column_name => 'PROMISE_DATE',
124: p_column_val => p_promised_date_tbl(i),
125: p_message_name => 'PO_SVC_NO_NEED_PROMISE_DATE',
126: p_validation_id => PO_VAL_CONSTANTS.c_loc_promised_date);
127: x_result_type := po_validations.c_result_type_failure;
128: END IF;
129: END LOOP;
130:
131: IF po_log.d_proc THEN
158: IF (x_results IS NULL) THEN
159: x_results := po_validation_results_type.new_instance();
160: END IF;
161:
162: x_result_type := po_validations.c_result_type_success;
163:
164: IF po_log.d_proc THEN
165: po_log.proc_begin(d_mod, 'p_id_tbl', p_id_tbl);
166: po_log.proc_begin(d_mod, 'p_shipment_type_tbl', p_shipment_type_tbl);
182: p_column_name => 'SHIPMENT_TYPE',
183: p_column_val => p_shipment_type_tbl(i),
184: p_message_name => 'PO_PDOI_COLUMN_NOT_NULL',
185: p_validation_id => PO_VAL_CONSTANTS.c_shipment_type_not_null);
186: x_result_type := po_validations.c_result_type_failure;
187: ELSIF (p_doc_type = 'QUOTATION' AND p_shipment_type_tbl(i) <> 'QUOTATION')
188: OR (p_doc_type = 'BLANKET' AND p_shipment_type_tbl(i) <> 'PRICE BREAK')
189: OR (p_doc_type = 'STANDARD' AND l_is_complex_work_style = FALSE AND p_shipment_type_tbl(i) <> 'STANDARD') THEN
190: /* PDOI for Complex PO Project: Allow Other Shipment Types for Complex PO */
193: p_column_name => 'SHIPMENT_TYPE',
194: p_column_val => p_shipment_type_tbl(i),
195: p_message_name => 'PO_PDOI_INVALID_SHIPMENT_TYPE',
196: p_validation_id => PO_VAL_CONSTANTS.c_shipment_type_valid);
197: x_result_type := po_validations.c_result_type_failure;
198: END IF;
199: END LOOP;
200:
201: IF po_log.d_proc THEN
240: IF (x_results IS NULL) THEN
241: x_results := po_validation_results_type.new_instance();
242: END IF;
243:
244: x_result_type := po_validations.c_result_type_success;
245:
246: IF po_log.d_proc THEN
247: po_log.proc_begin(d_mod, 'p_id_tbl', p_id_tbl);
248: po_log.proc_begin(d_mod, 'po_line_id_tbl', po_line_id_tbl);
277: p_message_name => 'PO_PDOI_ADVANCE_NOT_ALLOWED',
278: p_token1_name => 'STYLE_ID',
279: p_token1_value => p_style_id_tbl(i),
280: p_validation_id => PO_VAL_CONSTANTS.c_loc_payment_type);
281: x_result_type := po_validations.c_result_type_failure;
282: ELSIF (l_financing_payments_flag = 'N' AND Nvl(p_payment_type_tbl(i),'MILESTONE') = 'DELIVERY') THEN
283: -- If Financing is not allowed for the style, DELIVERY shipment is not allowed.
284: x_results.add_result(p_entity_type => c_entity_type_line_location,
285: p_entity_id => p_id_tbl(i),
288: p_message_name => 'PO_PDOI_DELIVERY_NOT_ALLOWED',
289: p_token1_name => 'STYLE_ID',
290: p_token1_value => p_style_id_tbl(i),
291: p_validation_id => PO_VAL_CONSTANTS.c_loc_payment_type);
292: x_result_type := po_validations.c_result_type_failure;
293: ELSIF (l_complex_work_flag = 'Y' AND
294: ((Nvl(p_payment_type_tbl(i),'MILESTONE') = 'ADVANCE' AND Nvl(p_shipment_type_tbl(i),'STANDARD') <> 'PREPAYMENT') OR
295: (Nvl(p_payment_type_tbl(i),'MILESTONE') = 'DELIVERY' AND Nvl(p_shipment_type_tbl(i),'PREPAYMENT') <> 'STANDARD'))) THEN
296: -- For a Complex PO shipment, if Payment type is ADVANCE, then Shipment type should be PREPAYMENT.
304: p_token1_value => p_shipment_type_tbl(i),
305: p_token2_name => 'VALUE',
306: p_token2_value => p_payment_type_tbl(i),
307: p_validation_id => PO_VAL_CONSTANTS.c_shipment_type_valid);
308: x_result_type := po_validations.c_result_type_failure;
309: ELSIF (l_complex_work_flag = 'Y' AND (p_payment_type_tbl(i) IS NULL OR
310: p_payment_type_tbl(i) NOT IN ('ADVANCE','DELIVERY','MILESTONE','LUMPSUM','RATE'))) THEN
311: -- For a Complex PO shipment, Payment type should not be NULL.
312: -- For a Complex PO shipment, Payment type should be one of ADVANCE, DELIVERY, MILESTONE, LUMPSUM and RATE.
317: p_message_name => 'PO_PDOI_INVALID_PAYMENT_TYPE',
318: p_token1_name => 'STYLE_ID',
319: p_token1_value => p_style_id_tbl(i),
320: p_validation_id => PO_VAL_CONSTANTS.c_loc_payment_type);
321: x_result_type := po_validations.c_result_type_failure;
322: END IF;
323:
324: IF l_complex_work_flag = 'Y' THEN
325: -- If a PO Line belongs to complex style, there should be atleast one Pay item corresponding to that line.
341: p_message_name => 'PO_PDOI_PAY_ITEM_NOT_PRESENT',
342: p_token1_name => 'STYLE_ID',
343: p_token1_value => p_style_id_tbl(i),
344: p_validation_id => PO_VAL_CONSTANTS.c_loc_payment_type);
345: x_result_type := po_validations.c_result_type_failure;
346: END IF;
347: END IF;
348:
349: IF l_financing_payments_flag = 'Y' AND Nvl(p_payment_type_tbl(i),'MILESTONE') <> 'DELIVERY' THEN
364: p_message_name => 'PO_PDOI_DELIVERY_NOT_PRESENT',
365: p_token1_name => 'STYLE_ID',
366: p_token1_value => p_style_id_tbl(i),
367: p_validation_id => PO_VAL_CONSTANTS.c_loc_payment_type);
368: x_result_type := po_validations.c_result_type_failure;
369: END IF;
370: END IF;
371:
372: IF Nvl(p_payment_type_tbl(i),'MILESTONE') = 'DELIVERY' THEN
383: p_message_name => 'PO_PDOI_DUP_DELIVERY_DISALLOW',
384: p_token1_name => 'STYLE_ID',
385: p_token1_value => p_style_id_tbl(i),
386: p_validation_id => PO_VAL_CONSTANTS.c_loc_payment_type);
387: x_result_type := po_validations.c_result_type_failure;
388: END IF;
389: END LOOP;
390: ELSIF Nvl(p_payment_type_tbl(i),'MILESTONE') = 'ADVANCE' THEN
391: -- For a Complex PO Line more than one ADVANCE shipment is not allowed.
401: p_message_name => 'PO_PDOI_DUP_ADVANCE_DISALLOW',
402: p_token1_name => 'STYLE_ID',
403: p_token1_value => p_style_id_tbl(i),
404: p_validation_id => PO_VAL_CONSTANTS.c_loc_payment_type);
405: x_result_type := po_validations.c_result_type_failure;
406: END IF;
407: END LOOP;
408: END IF;
409:
441: d_mod CONSTANT VARCHAR2(100) := d_shipment_num;
442: l_is_complex_work_style BOOLEAN; -- PDOI for Complex PO Project
443: BEGIN
444: IF x_result_set_id IS NULL THEN
445: x_result_set_id := po_validations.next_result_set_id();
446: END IF;
447:
448: IF (x_results IS NULL) THEN
449: x_results := po_validation_results_type.new_instance();
460: po_log.LOG(po_log.c_proc_begin, d_mod, NULL, 'x_results', x_results);
461: po_log.proc_begin(d_mod, 'x_result_set_id', x_result_set_id);
462: END IF;
463:
464: x_result_type := po_validations.c_result_type_success;
465:
466: -- if shipment_type is Null
467: FOR i IN 1 .. p_id_tbl.COUNT LOOP
468: /* PDOI for Complex PO Project: Allow Shipment Num zero for Complex PO -- START */
478: p_message_name => 'PO_PDOI_COLUMN_NOT_NULL',
479: p_token1_name => 'COLUMN_NAME',
480: p_token1_value => 'SHIPMENT_NUM',
481: p_validation_id => PO_VAL_CONSTANTS.c_shipment_num_not_null);
482: x_result_type := po_validations.c_result_type_failure;
483: /* PDOI for Complex PO Project: Allow Shipment Num zero for Complex PO */
484: ELSIF ((l_is_complex_work_style = FALSE AND p_shipment_num_tbl(i) <= 0)
485: OR (l_is_complex_work_style = TRUE AND p_shipment_num_tbl(i) < 0))THEN
486: x_results.add_result(p_entity_type => c_entity_type_line_location,
492: p_token1_value => 'SHIPMENT_NUM',
493: p_token2_name => 'VALUE',
494: p_token2_value => p_shipment_num_tbl(i),
495: p_validation_id => PO_VAL_CONSTANTS.c_shipment_num_gt_zero);
496: x_result_type := po_validations.c_result_type_failure;
497: END IF;
498: END LOOP;
499:
500: -- Validate shipment number is unique
510: token1_name,
511: token1_value,
512: validation_id)
513: SELECT x_result_set_id,
514: po_validations.c_result_type_failure,
515: 'PO_LINE_LOCATIONS_DRAFT_ALL',
516: p_id_tbl(i),
517: 'PO_PDOI_SHIPMENT_NUM_UNIQUE',
518: 'SHIPMENT_NUM',
541: AND NVL(delete_flag, 'N') = 'N')); -- bug 4642348
542:
543:
544: IF (SQL%ROWCOUNT > 0) THEN
545: x_result_type := po_validations.c_result_type_failure;
546: END IF;
547:
548: IF po_log.d_proc THEN
549: po_validations.log_validation_results_gt(d_mod, 9, x_result_set_id);
545: x_result_type := po_validations.c_result_type_failure;
546: END IF;
547:
548: IF po_log.d_proc THEN
549: po_validations.log_validation_results_gt(d_mod, 9, x_result_set_id);
550: po_log.proc_end(d_mod, 'x_result_type', x_result_type);
551: po_log.proc_end(d_mod, 'x_result_set_id', x_result_set_id);
552: po_log.LOG(po_log.c_proc_end, d_mod, NULL, 'x_results', x_results);
553: END IF;
582: IF (x_results IS NULL) THEN
583: x_results := po_validation_results_type.new_instance();
584: END IF;
585:
586: x_result_type := po_validations.c_result_type_success;
587:
588: IF po_log.d_proc THEN
589: po_log.proc_begin(d_mod, 'p_id_tbl', p_id_tbl);
590: po_log.proc_begin(d_mod, 'p_quantity_tbl', p_quantity_tbl);
613: p_column_name => 'QUANTITY',
614: p_column_val => p_quantity_tbl(i),
615: p_message_name => 'PO_PDOI_SVC_PB_NO_QTY',
616: p_validation_id => PO_VAL_CONSTANTS.c_loc_quantity);
617: x_result_type := po_validations.c_result_type_failure;
618: ELSIF (p_order_type_lookup_code_tbl(i) NOT IN ('FIXED PRICE', 'RATE')
619: AND p_quantity_tbl(i) IS NOT NULL
620: AND p_quantity_tbl(i) < 0) THEN
621: x_results.add_result(p_entity_type => c_entity_type_line_location,
627: p_token1_value => 'QUANTITY',
628: p_token2_name => 'VALUE',
629: p_token2_value => p_quantity_tbl(i),
630: p_validation_id => PO_VAL_CONSTANTS.c_loc_quantity_ge_zero);
631: x_result_type := po_validations.c_result_type_failure;
632: --
633: ELSIF (l_is_financing_style AND Nvl(p_shipment_type_tbl(i),'PREPAYMENT') = 'STANDARD'
634: AND Nvl(p_payment_type_tbl(i),'MILESTONE') = 'DELIVERY'
635: AND Nvl(p_quantity_tbl(i),0) <> Nvl(p_line_quantity_tbl(i),0)) THEN
642: p_token1_value => 'QUANTITY',
643: p_token2_name => 'VALUE',
644: p_token2_value => p_quantity_tbl(i),
645: p_validation_id => PO_VAL_CONSTANTS.c_loc_quantity);
646: x_result_type := po_validations.c_result_type_failure;
647: --
648: END IF;
649: END LOOP;
650:
681: IF (x_results IS NULL) THEN
682: x_results := po_validation_results_type.new_instance();
683: END IF;
684:
685: x_result_type := po_validations.c_result_type_success;
686:
687: IF po_log.d_proc THEN
688: po_log.proc_begin(d_mod, 'p_id_tbl', p_id_tbl);
689: po_log.proc_begin(d_mod, 'p_amount_tbl', p_amount_tbl);
711: p_token1_value => 'AMOUNT',
712: p_token2_name => 'VALUE',
713: p_token2_value => p_amount_tbl(i),
714: p_validation_id => PO_VAL_CONSTANTS.c_loc_amount);
715: x_result_type := po_validations.c_result_type_failure;
716: END IF;
717: END LOOP;
718:
719: IF po_log.d_proc THEN
749: IF (x_results IS NULL) THEN
750: x_results := po_validation_results_type.new_instance();
751: END IF;
752:
753: x_result_type := po_validations.c_result_type_success;
754:
755: IF po_log.d_proc THEN
756: po_log.proc_begin(d_mod, 'p_id_tbl', p_id_tbl);
757: po_log.proc_begin(d_mod, 'p_price_override_tbl', p_price_override_tbl);
779: p_message_name => 'PO_PDOI_COLUMN_NOT_NULL',
780: p_token1_name => 'COLUMN_NAME',
781: p_token1_value => 'PRICE_OVERRIDE',
782: p_validation_id => PO_VAL_CONSTANTS.c_loc_price_override_not_null);
783: x_result_type := po_validations.c_result_type_failure;
784: ELSIF p_price_override_tbl(i) < 0 THEN
785: x_results.add_result(p_entity_type => c_entity_type_line_location,
786: p_entity_id => p_id_tbl(i),
787: p_column_name => 'PRICE_OVERRIDE',
791: p_token1_value => 'PRICE_OVERRIDE',
792: p_token2_name => 'VALUE',
793: p_token2_value => p_price_override_tbl(i),
794: p_validation_id => PO_VAL_CONSTANTS.c_loc_price_override_ge_zero);
795: x_result_type := po_validations.c_result_type_failure;
796: --
797: ELSIF (l_is_financing_style AND Nvl(p_shipment_type_tbl(i),'PREPAYMENT') = 'STANDARD'
798: AND Nvl(p_payment_type_tbl(i),'MILESTONE') = 'DELIVERY'
799: AND Nvl(p_price_override_tbl(i),0) <> Nvl(p_line_unit_price_tbl(i),0)) THEN
806: p_token1_value => 'PRICE_OVERRIDE',
807: p_token2_name => 'VALUE',
808: p_token2_value => p_price_override_tbl(i),
809: p_validation_id => PO_VAL_CONSTANTS.c_loc_price_override_not_null);
810: x_result_type := po_validations.c_result_type_failure;
811: --
812: END IF;
813: END LOOP;
814:
842: IF (x_results IS NULL) THEN
843: x_results := po_validation_results_type.new_instance();
844: END IF;
845:
846: x_result_type := po_validations.c_result_type_success;
847:
848: IF po_log.d_proc THEN
849: po_log.proc_begin(d_mod, 'p_id_tbl', p_id_tbl);
850: po_log.proc_begin(d_mod, 'p_price_discount_tbl', p_price_discount_tbl);
865: p_message_name => 'PO_PDOI_COLUMN_NOT_NULL',
866: p_token1_name => 'COLUMN_NAME',
867: p_token1_value => 'PRICE_DISCOUNT',
868: p_validation_id => PO_VAL_CONSTANTS.c_loc_price_discount_not_null);
869: x_result_type := po_validations.c_result_type_failure;
870:
871: -- Bug 6614819 -- Commented the code below --
872: -- Since negative price break discount is allowed from the form,
873: -- now it is allowed from PDOI also.
881: p_message_name => 'PO_PDOI_INVALID_DISCOUNT',
882: p_token1_name => 'VALUE',
883: p_token1_value => p_price_discount_tbl(i),
884: p_validation_id => PO_VAL_CONSTANTS.c_loc_price_discount_valid);
885: x_result_type := po_validations.c_result_type_failure;
886: END IF;
887: END LOOP;
888:
889: IF po_log.d_proc THEN
913: IS
914: d_mod CONSTANT VARCHAR2(100) := d_ship_to_organization_id;
915: BEGIN
916: IF x_result_set_id IS NULL THEN
917: x_result_set_id := po_validations.next_result_set_id();
918: END IF;
919:
920: x_result_type := po_validations.c_result_type_success;
921:
916: IF x_result_set_id IS NULL THEN
917: x_result_set_id := po_validations.next_result_set_id();
918: END IF;
919:
920: x_result_type := po_validations.c_result_type_success;
921:
922: IF po_log.d_proc THEN
923: po_log.proc_begin(d_mod, 'p_id_tbl', p_id_tbl);
924: po_log.proc_begin(d_mod, 'p_ship_to_organization_id_tbl', p_ship_to_organization_id_tbl);
942: token1_name,
943: token1_value,
944: validation_id)
945: SELECT x_result_set_id,
946: po_validations.c_result_type_failure,
947: c_entity_type_line_location,
948: p_id_tbl(i),
949: 'PO_PDOI_INVALID_SHIP_TO_ORG_ID',
950: 'SHIP_TO_ORGANIZATION_ID',
963: AND mir.revision = p_item_revision_tbl(i)
964: AND mir.organization_id = p_ship_to_organization_id_tbl(i));
965:
966: IF (SQL%ROWCOUNT > 0) THEN
967: x_result_type := po_validations.c_result_type_failure;
968: END IF;
969:
970: -- If item_id is not null and ship_to_organization_id is not null, and
971: -- item_revision is null, and no record exists in mtl_system_items.
983: token1_name,
984: token1_value,
985: validation_id)
986: SELECT x_result_set_id,
987: po_validations.c_result_type_failure,
988: c_entity_type_line_location,
989: p_id_tbl(i),
990: 'PO_PDOI_INVALID_SHIP_TO_ORG_ID',
991: 'SHIP_TO_ORGANIZATION_ID',
1003: AND msi.organization_id = p_ship_to_organization_id_tbl(i));
1004:
1005:
1006: IF (SQL%ROWCOUNT > 0) THEN
1007: x_result_type := po_validations.c_result_type_failure;
1008: END IF;
1009:
1010: -- If item_id is null, and ship_to_organization_id is not null,
1011: -- validate ship_to_organization_id against org_organization_definitions
1021: token1_name,
1022: token1_value,
1023: validation_id)
1024: SELECT x_result_set_id,
1025: po_validations.c_result_type_failure,
1026: c_entity_type_line_location,
1027: p_id_tbl(i),
1028: 'PO_PDOI_INVALID_SHIP_TO_ORG_ID',
1029: 'SHIP_TO_ORGANIZATION_ID',
1041: AND SYSDATE < NVL(ood.disable_date, SYSDATE + 1)
1042: AND ood.inventory_enabled_flag = 'Y');
1043:
1044: IF (SQL%ROWCOUNT > 0) THEN
1045: x_result_type := po_validations.c_result_type_failure;
1046: END IF;
1047:
1048: -- If ship_to_location_id is not null, check if record exists in
1049: -- po_locations_val_v by ship_to_location_id and ship_to_organization_id.
1060: token1_name,
1061: token1_value,
1062: validation_id)
1063: SELECT x_result_set_id,
1064: po_validations.c_result_type_failure,
1065: c_entity_type_line_location,
1066: p_id_tbl(i),
1067: 'PO_PDOI_INVALID_SHIP_TO_LOC_ID',
1068: 'SHIP_TO_LOCATION_ID',
1081: OR PLV.inventory_organization_id = p_ship_to_organization_id_tbl(i)
1082: OR p_ship_to_organization_id_tbl(i) IS NULL));
1083:
1084: IF (SQL%ROWCOUNT > 0) THEN
1085: x_result_type := po_validations.c_result_type_failure;
1086: END IF;
1087:
1088: IF po_log.d_proc THEN
1089: po_validations.log_validation_results_gt(d_mod, 9, x_result_set_id);
1085: x_result_type := po_validations.c_result_type_failure;
1086: END IF;
1087:
1088: IF po_log.d_proc THEN
1089: po_validations.log_validation_results_gt(d_mod, 9, x_result_set_id);
1090: po_log.proc_end(d_mod, 'x_result_type', x_result_type);
1091: po_log.proc_end(d_mod, 'x_result_set_id', x_result_set_id);
1092: END IF;
1093: EXCEPTION
1117: IF (x_results IS NULL) THEN
1118: x_results := po_validation_results_type.new_instance();
1119: END IF;
1120:
1121: x_result_type := po_validations.c_result_type_success;
1122:
1123: IF po_log.d_proc THEN
1124: po_log.proc_begin(d_mod, 'p_id_tbl', p_id_tbl);
1125: po_log.proc_begin(d_mod, 'p_from_date_tbl', p_from_date_tbl);
1140: x_results.add_result(p_entity_type => c_entity_type_line_location,
1141: p_entity_id => p_id_tbl(i),
1142: p_column_name => 'PRICE_BREAK_ATTRIBUTES',
1143: p_message_name => 'POX_PRICEBREAK_ITEM_FAILED');
1144: x_result_type := po_validations.c_result_type_failure;
1145: END IF;
1146: END LOOP;
1147:
1148: IF po_log.d_proc THEN
1177: IF (x_results IS NULL) THEN
1178: x_results := po_validation_results_type.new_instance();
1179: END IF;
1180:
1181: x_result_type := po_validations.c_result_type_success;
1182:
1183: IF po_log.d_proc THEN
1184: po_log.proc_begin(d_mod, 'p_id_tbl', p_id_tbl);
1185: po_log.proc_begin(d_mod, 'p_line_expiration_date_tbl', p_line_expiration_date_tbl);
1199: p_column_name => 'EFFECTIVE_DATE',
1200: p_column_val => p_from_date_tbl(i),
1201: p_message_name => 'POX_EFFECTIVE_DATES1',
1202: p_validation_id => PO_VAL_CONSTANTS.c_loc_from_date_ge_hdr_start);
1203: x_result_type := po_validations.c_result_type_failure;
1204: END IF;
1205:
1206: -- Pricebreak effective from date cannot be later than blanket
1207: -- agreement header end date
1211: p_column_name => 'EFFECTIVE_DATE',
1212: p_column_val => p_from_date_tbl(i),
1213: p_message_name => 'POX_EFFECTIVE_DATES4',
1214: p_validation_id => PO_VAL_CONSTANTS.c_loc_from_date_le_hdr_end);
1215: x_result_type := po_validations.c_result_type_failure;
1216: END IF;
1217:
1218: -- Pricebreak effective From Date cannot be later than pricebreak
1219: -- effective To Date
1224: p_column_name => 'EFFECTIVE_DATE',
1225: p_column_val => p_from_date_tbl(i),
1226: p_message_name => 'POX_EFFECTIVE_DATES3',
1227: p_validation_id => PO_VAL_CONSTANTS.c_loc_from_date_le_loc_end);
1228: x_result_type := po_validations.c_result_type_failure;
1229: END IF;
1230:
1231: -- Pricebreak From Date cannot be greater than the pricebreak line
1232: -- expiration Date
1236: p_column_name => 'EFFECTIVE_DATE',
1237: p_column_val => p_from_date_tbl(i),
1238: p_message_name => 'POX_EFFECTIVE_DATES6',
1239: p_validation_id => PO_VAL_CONSTANTS.c_loc_from_date_le_line_end);
1240: x_result_type := po_validations.c_result_type_failure;
1241: END IF;
1242:
1243: -- Pricebreak effective To Date cannot be later than
1244: -- expiration Date, if expiration date exists
1248: p_column_name => 'EXPIRATION_DATE',
1249: p_column_val => p_line_expiration_date_tbl(i),
1250: p_message_name => 'POX_EFFECTIVE_DATES2',
1251: p_validation_id => PO_VAL_CONSTANTS.c_loc_end_date_le_line_end);
1252: x_result_type := po_validations.c_result_type_failure;
1253: END IF;
1254:
1255: -- Pricebreak To Date is greater than Header End date
1256: IF (p_header_end_date_tbl(i) IS NOT NULL AND p_to_date_tbl(i) > p_header_end_date_tbl(i)) THEN
1259: p_column_name => 'EXPIRATION_DATE',
1260: p_column_val => p_line_expiration_date_tbl(i),
1261: p_message_name => 'POX_EFFECTIVE_DATES',
1262: p_validation_id => PO_VAL_CONSTANTS.c_loc_end_date_le_hdr_end);
1263: x_result_type := po_validations.c_result_type_failure;
1264: END IF;
1265:
1266: -- Pricebreak To Date cannot be earlier than Header Start date
1267: IF (p_header_start_date_tbl(i) IS NOT NULL AND p_to_date_tbl(i) < p_header_start_date_tbl(i)) THEN
1270: p_column_name => 'START_DATE',
1271: p_column_val => p_header_start_date_tbl(i),
1272: p_message_name => 'POX_EFFECTIVE_DATES5',
1273: p_validation_id => PO_VAL_CONSTANTS.c_loc_end_date_ge_hdr_start);
1274: x_result_type := po_validations.c_result_type_failure;
1275: END IF;
1276:
1277: -- Pricebreak effective To Date cannot be earlier than Pricebreak
1278: -- effective From Date
1283: p_column_name => 'EFFECTIVE_DATE',
1284: p_column_val => p_to_date_tbl(i),
1285: p_message_name => 'POX_EFFECTIVE_DATES3',
1286: p_validation_id => PO_VAL_CONSTANTS.c_loc_from_date_le_loc_end);
1287: x_result_type := po_validations.c_result_type_failure;
1288: END IF;
1289:
1290: -- bug5016163
1291: -- Time phased pricing cannot go with cumulative pricing
1302: p_column_val => p_from_date_tbl(i),
1303: p_message_name => 'PO_PDOI_CUMULATIVE_FAILED',
1304: p_validation_id => PO_VAL_CONSTANTS.c_dates_cumulative_failed);
1305:
1306: x_result_type := po_validations.c_result_type_failure;
1307:
1308: ELSIF (p_to_date_tbl(i) IS NOT NULL) THEN
1309:
1310: -- bug5262146
1317: p_column_val => p_to_date_tbl(i),
1318: p_message_name => 'PO_PDOI_CUMULATIVE_FAILED',
1319: p_validation_id => PO_VAL_CONSTANTS.c_dates_cumulative_failed);
1320:
1321: x_result_type := po_validations.c_result_type_failure;
1322: END IF;
1323: END IF;
1324:
1325: END LOOP;
1348: IS
1349: d_mod CONSTANT VARCHAR2(100) := d_qty_rcv_exception_code;
1350: BEGIN
1351: IF x_result_set_id IS NULL THEN
1352: x_result_set_id := po_validations.next_result_set_id();
1353: END IF;
1354:
1355: x_result_type := po_validations.c_result_type_success;
1356:
1351: IF x_result_set_id IS NULL THEN
1352: x_result_set_id := po_validations.next_result_set_id();
1353: END IF;
1354:
1355: x_result_type := po_validations.c_result_type_success;
1356:
1357: IF po_log.d_proc THEN
1358: po_log.proc_begin(d_mod, 'p_id_tbl', p_id_tbl);
1359: po_log.proc_begin(d_mod, 'p_qty_rcv_exception_code_tbl', p_qty_rcv_exception_code_tbl);
1372: token1_name,
1373: token1_value,
1374: validation_id)
1375: SELECT x_result_set_id,
1376: po_validations.c_result_type_failure,
1377: c_entity_type_line_location,
1378: p_id_tbl(i),
1379: 'PO_PDOI_INVALID_RCV_EXCEP_CD',
1380: 'QTY_RCV_EXCEPTION_CODE',
1391: AND plc.lookup_type = 'RECEIVING CONTROL LEVEL'
1392: AND SYSDATE < NVL(plc.inactive_date, SYSDATE + 1));
1393:
1394: IF (SQL%ROWCOUNT > 0) THEN
1395: x_result_type := po_validations.c_result_type_failure;
1396: ELSE
1397: x_result_type := po_validations.c_result_type_success;
1398: END IF;
1399:
1393:
1394: IF (SQL%ROWCOUNT > 0) THEN
1395: x_result_type := po_validations.c_result_type_failure;
1396: ELSE
1397: x_result_type := po_validations.c_result_type_success;
1398: END IF;
1399:
1400: IF po_log.d_proc THEN
1401: po_validations.log_validation_results_gt(d_mod, 9, x_result_set_id);
1397: x_result_type := po_validations.c_result_type_success;
1398: END IF;
1399:
1400: IF po_log.d_proc THEN
1401: po_validations.log_validation_results_gt(d_mod, 9, x_result_set_id);
1402: po_log.proc_end(d_mod, 'x_result_type', x_result_type);
1403: po_log.proc_end(d_mod, 'x_result_set_id', x_result_set_id);
1404: END IF;
1405: EXCEPTION
1427: IF (x_results IS NULL) THEN
1428: x_results := po_validation_results_type.new_instance();
1429: END IF;
1430:
1431: x_result_type := po_validations.c_result_type_success;
1432:
1433: IF po_log.d_proc THEN
1434: po_log.proc_begin(d_mod, 'p_id_tbl', p_id_tbl);
1435: po_log.proc_begin(d_mod, 'p_enforce_ship_to_loc_code_tbl', p_enforce_ship_to_loc_code_tbl);
1448: p_column_name => 'ENFORCE_SHIP_TO_LOC_CODE',
1449: p_column_val => p_enforce_ship_to_loc_code_tbl(i),
1450: p_message_name => 'PO_PDOI_INVALID_EN_SH_LOC_CODE'
1451: );
1452: x_result_type := po_validations.c_result_type_failure;
1453: END IF;
1454: END LOOP;
1455:
1456: IF po_log.d_proc THEN
1482: IF (x_results IS NULL) THEN
1483: x_results := po_validation_results_type.new_instance();
1484: END IF;
1485:
1486: x_result_type := po_validations.c_result_type_success;
1487:
1488: IF po_log.d_proc THEN
1489: po_log.proc_begin(d_mod, 'p_id_tbl', p_id_tbl);
1490: po_log.proc_begin(d_mod, 'p_shipment_type_tbl', p_shipment_type_tbl);
1501: p_entity_id => p_id_tbl(i),
1502: p_column_name => 'ALLOW_SUB_RECEIPTS_FLAG',
1503: p_column_val => p_allow_sub_receipts_flag_tbl(i),
1504: p_message_name => 'PO_PDOI_ALLOW_SUB_REC_FLAG');
1505: x_result_type := po_validations.c_result_type_failure;
1506: END IF;
1507: END LOOP;
1508:
1509: IF po_log.d_proc THEN
1535: IF (x_results IS NULL) THEN
1536: x_results := po_validation_results_type.new_instance();
1537: END IF;
1538:
1539: x_result_type := po_validations.c_result_type_success;
1540:
1541: IF po_log.d_proc THEN
1542: po_log.proc_begin(d_mod, 'p_id_tbl', p_id_tbl);
1543: po_log.proc_begin(d_mod, 'p_shipment_type_tbl', p_shipment_type_tbl);
1555: p_entity_id => p_id_tbl(i),
1556: p_column_name => 'DAYS_EARLY_RECEIPT_ALLOWED',
1557: p_column_val => p_days_early_rcpt_allowed_tbl(i),
1558: p_message_name => 'PO_PDOI_DAYS_EARLY_REC_ALLOWED');
1559: x_result_type := po_validations.c_result_type_failure;
1560: END IF;
1561: END LOOP;
1562:
1563: IF po_log.d_proc THEN
1589: IF (x_results IS NULL) THEN
1590: x_results := po_validation_results_type.new_instance();
1591: END IF;
1592:
1593: x_result_type := po_validations.c_result_type_success;
1594:
1595: IF po_log.d_proc THEN
1596: po_log.proc_begin(d_mod, 'p_id_tbl', p_id_tbl);
1597: po_log.proc_begin(d_mod, 'p_shipment_type_tbl', p_shipment_type_tbl);
1609: p_entity_id => p_id_tbl(i),
1610: p_column_name => 'RECEIPT_DAYS_EXPECTION_CODE',
1611: p_column_val => p_rcpt_days_exception_code_tbl(i),
1612: p_message_name => 'PO_PDOI_INV_REC_DAYS_EX_CODE');
1613: x_result_type := po_validations.c_result_type_failure;
1614: END IF;
1615: END LOOP;
1616:
1617: IF po_log.d_proc THEN
1643: IF (x_results IS NULL) THEN
1644: x_results := po_validation_results_type.new_instance();
1645: END IF;
1646:
1647: x_result_type := po_validations.c_result_type_success;
1648:
1649: IF po_log.d_proc THEN
1650: po_log.proc_begin(d_mod, 'p_id_tbl', p_id_tbl);
1651: po_log.proc_begin(d_mod, 'p_shipment_type_tbl', p_shipment_type_tbl);
1663: p_entity_id => p_invoice_close_tolerance_tbl(i),
1664: p_column_name => 'INVOICE_CLOSE_TOLERANCE',
1665: p_column_val => p_invoice_close_tolerance_tbl(i),
1666: p_message_name => 'PO_PDOI_INV_CLOSE_TOLERANCE');
1667: x_result_type := po_validations.c_result_type_failure;
1668: END IF;
1669: END LOOP;
1670:
1671: IF po_log.d_proc THEN
1697: IF (x_results IS NULL) THEN
1698: x_results := po_validation_results_type.new_instance();
1699: END IF;
1700:
1701: x_result_type := po_validations.c_result_type_success;
1702:
1703: IF po_log.d_proc THEN
1704: po_log.proc_begin(d_mod, 'p_id_tbl', p_id_tbl);
1705: po_log.proc_begin(d_mod, 'p_shipment_type_tbl', p_shipment_type_tbl);
1717: p_entity_id => p_id_tbl(i),
1718: p_column_name => 'RECEIVE_CLOSE_TOLERANCE',
1719: p_column_val => p_receive_close_tolerance_tbl(i),
1720: p_message_name => 'PO_PDOI_RCT_CLOSE_TOLERANCE');
1721: x_result_type := po_validations.c_result_type_failure;
1722: END IF;
1723: END LOOP;
1724:
1725: IF po_log.d_proc THEN
1747: IS
1748: d_mod CONSTANT VARCHAR2(100) := d_receiving_routing_id;
1749: BEGIN
1750: IF x_result_set_id IS NULL THEN
1751: x_result_set_id := po_validations.next_result_set_id();
1752: END IF;
1753:
1754: x_result_type := po_validations.c_result_type_success;
1755:
1750: IF x_result_set_id IS NULL THEN
1751: x_result_set_id := po_validations.next_result_set_id();
1752: END IF;
1753:
1754: x_result_type := po_validations.c_result_type_success;
1755:
1756: IF po_log.d_proc THEN
1757: po_log.proc_begin(d_mod, 'p_id_tbl', p_id_tbl);
1758: po_log.proc_begin(d_mod, 'p_shipment_type_tbl', p_shipment_type_tbl);
1772: column_val,
1773: token1_name,
1774: token1_value)
1775: SELECT x_result_set_id,
1776: po_validations.c_result_type_failure,
1777: 'PO_LINE_LOCATIONS_DRAFT_ALL',
1778: p_id_tbl(i),
1779: 'PO_PDOI_INVALID_ROUTING_ID',
1780: 'RECEIVING_ROUTING_ID',
1788: FROM rcv_routing_headers rrh
1789: WHERE rrh.routing_header_id = p_receiving_routing_id_tbl(i));
1790:
1791: IF (SQL%ROWCOUNT > 0) THEN
1792: x_result_type := po_validations.c_result_type_failure;
1793: END IF;
1794:
1795: IF po_log.d_proc THEN
1796: po_validations.log_validation_results_gt(d_mod, 9, x_result_set_id);
1792: x_result_type := po_validations.c_result_type_failure;
1793: END IF;
1794:
1795: IF po_log.d_proc THEN
1796: po_validations.log_validation_results_gt(d_mod, 9, x_result_set_id);
1797: po_log.proc_end(d_mod, 'x_result_type', x_result_type);
1798: po_log.proc_end(d_mod, 'x_result_set_id', x_result_set_id);
1799: END IF;
1800: EXCEPTION
1820: IF (x_results IS NULL) THEN
1821: x_results := po_validation_results_type.new_instance();
1822: END IF;
1823:
1824: x_result_type := po_validations.c_result_type_success;
1825:
1826: IF po_log.d_proc THEN
1827: po_log.proc_begin(d_mod, 'p_id_tbl', p_id_tbl);
1828: po_log.proc_begin(d_mod, 'p_accrue_on_receipt_flag_tbl', p_accrue_on_receipt_flag_tbl);
1835: p_entity_id => p_id_tbl(i),
1836: p_column_name => 'ACCRUE_ON_RECEIPT_FLAG',
1837: p_column_val => p_accrue_on_receipt_flag_tbl(i),
1838: p_message_name => 'PO_PDOI_INVALID_VALUE');
1839: x_result_type := po_validations.c_result_type_failure;
1840: END IF;
1841: END LOOP;
1842:
1843: IF po_log.d_proc THEN
1871: IF (x_results IS NULL) THEN
1872: x_results := po_validation_results_type.new_instance();
1873: END IF;
1874:
1875: x_result_type := po_validations.c_result_type_success;
1876:
1877: IF po_log.d_proc THEN
1878: po_log.proc_begin(d_mod, 'p_id_tbl', p_id_tbl);
1879: po_log.proc_begin(d_mod, 'p_payment_type_tbl', p_payment_type_tbl);
1893: , p_column_name => 'AMOUNT'
1894: , p_column_val => p_advance_tbl(i)
1895: , p_message_name => PO_MESSAGE_S.PO_ADVANCE_GT_LINE_AMOUNT
1896: );
1897: x_result_type := PO_VALIDATIONS.c_result_type_FAILURE;
1898: END IF;
1899: END IF;
1900: END LOOP;
1901:
1923: IS
1924: d_mod CONSTANT VARCHAR2(100) := d_style_related_info;
1925: BEGIN
1926: IF x_result_set_id IS NULL THEN
1927: x_result_set_id := po_validations.next_result_set_id();
1928: END IF;
1929:
1930: IF po_log.d_proc THEN
1931: po_log.proc_begin(d_mod, 'p_id_tbl', p_id_tbl);
1932: po_log.proc_begin(d_mod, 'p_style_id_tbl', p_style_id_tbl);
1933: po_log.proc_begin(d_mod, 'x_result_set_id', x_result_set_id);
1934: END IF;
1935:
1936: x_result_type := po_validations.c_result_type_success;
1937:
1938: -- bug5262146
1939: -- Added NVL() around pdsh.price_breaks_flag
1940:
1950: token1_name,
1951: token1_value,
1952: validation_id)
1953: SELECT x_result_set_id,
1954: po_validations.c_result_type_failure,
1955: c_entity_type_line_location,
1956: p_id_tbl(i),
1957: 'PO_PDOI_PRICE_BREAK_STYLE',
1958: 'STYLE_ID',
1966: WHERE pdsh.style_id = p_style_id_tbl(i) AND
1967: NVL(pdsh.price_breaks_flag, 'N') = 'N');
1968:
1969: IF (SQL%ROWCOUNT > 0) THEN
1970: x_result_type := po_validations.c_result_type_failure;
1971: END IF;
1972:
1973: IF po_log.d_proc THEN
1974: po_validations.log_validation_results_gt(d_mod, 9, x_result_set_id);
1970: x_result_type := po_validations.c_result_type_failure;
1971: END IF;
1972:
1973: IF po_log.d_proc THEN
1974: po_validations.log_validation_results_gt(d_mod, 9, x_result_set_id);
1975: po_log.proc_end(d_mod, 'x_result_type', x_result_type);
1976: po_log.proc_end(d_mod, 'x_result_set_id', x_result_set_id);
1977: END IF;
1978: EXCEPTION
2001: IS
2002: d_mod CONSTANT VARCHAR2(100) := d_tax_name;
2003: BEGIN
2004: IF x_result_set_id IS NULL THEN
2005: x_result_set_id := po_validations.next_result_set_id();
2006: END IF;
2007:
2008: IF po_log.d_proc THEN
2009: po_log.proc_begin(d_mod, 'p_id_tbl', p_id_tbl);
2011: po_log.proc_begin(d_mod, 'p_tax_name_tbl', p_tax_name_tbl);
2012: po_log.proc_begin(d_mod, 'x_result_set_id', x_result_set_id);
2013: END IF;
2014:
2015: x_result_type := po_validations.c_result_type_success;
2016:
2017: -- Bug 4965755. Modified both queries to include -99 as valid orgs in zx
2018: -- tax_name must be valid if not null
2019: FORALL i IN 1 .. p_id_tbl.COUNT
2028: token1_name,
2029: token1_value,
2030: validation_id)
2031: SELECT x_result_set_id,
2032: po_validations.c_result_type_failure,
2033: c_entity_type_line_location,
2034: p_id_tbl(i),
2035: 'PO_PDOI_INVALID_TAX_NAME',
2036: 'TAX_NAME',
2053: SYSDATE)
2054: AND p_allow_tax_code_override = 'Y');
2055:
2056: IF (SQL%ROWCOUNT > 0) THEN
2057: x_result_type := po_validations.c_result_type_failure;
2058: END IF;
2059:
2060: -- tax_code_id and tax_name must be a valid combination in zx_id_tcc_mapping
2061: -- if both are not null
2071: token1_name,
2072: token1_value,
2073: validation_id)
2074: SELECT x_result_set_id,
2075: po_validations.c_result_type_failure,
2076: c_entity_type_line_location,
2077: p_id_tbl(i),
2078: 'PO_PDOI_INVALID_TAX_NAME',
2079: 'TAX_NAME',
2099: AND active_flag = 'Y'
2100: AND p_allow_tax_code_override = 'Y');
2101:
2102: IF (SQL%ROWCOUNT > 0) THEN
2103: x_result_type := po_validations.c_result_type_failure;
2104: END IF;
2105:
2106: IF po_log.d_proc THEN
2107: po_validations.log_validation_results_gt(d_mod, 9, x_result_set_id);
2103: x_result_type := po_validations.c_result_type_failure;
2104: END IF;
2105:
2106: IF po_log.d_proc THEN
2107: po_validations.log_validation_results_gt(d_mod, 9, x_result_set_id);
2108: po_log.proc_end(d_mod, 'x_result_type', x_result_type);
2109: po_log.proc_end(d_mod, 'x_result_set_id', x_result_set_id);
2110: END IF;
2111: EXCEPTION
2127: IS
2128: d_mod CONSTANT VARCHAR2(100) := d_fob_lookup_code;
2129: BEGIN
2130: IF x_result_set_id IS NULL THEN
2131: x_result_set_id := po_validations.next_result_set_id();
2132: END IF;
2133:
2134: IF po_log.d_proc THEN
2135: po_log.proc_begin(d_mod, 'p_id_tbl', p_id_tbl);
2136: po_log.proc_begin(d_mod, 'p_fob_lookup_code_tbl', p_fob_lookup_code_tbl);
2137: po_log.proc_begin(d_mod, 'x_result_set_id', x_result_set_id);
2138: END IF;
2139:
2140: x_result_type := po_validations.c_result_type_success;
2141:
2142: -- fob_lookup_code must be valid if not null
2143: FORALL i IN 1 .. p_id_tbl.COUNT
2144: INSERT INTO po_validation_results_gt
2152: token1_name,
2153: token1_value,
2154: validation_id)
2155: SELECT x_result_set_id,
2156: po_validations.c_result_type_failure,
2157: c_entity_type_line_location,
2158: p_id_tbl(i),
2159: 'PO_PDOI_INVALID_FOB',
2160: 'FOB_LOOKUP_CODE',
2170: sysdate < nvl(inactive_date, sysdate + 1) AND
2171: lookup_code = p_fob_lookup_code_tbl(i));
2172:
2173: IF (SQL%ROWCOUNT > 0) THEN
2174: x_result_type := po_validations.c_result_type_failure;
2175: END IF;
2176:
2177: IF po_log.d_proc THEN
2178: po_validations.log_validation_results_gt(d_mod, 9, x_result_set_id);
2174: x_result_type := po_validations.c_result_type_failure;
2175: END IF;
2176:
2177: IF po_log.d_proc THEN
2178: po_validations.log_validation_results_gt(d_mod, 9, x_result_set_id);
2179: po_log.proc_end(d_mod, 'x_result_type', x_result_type);
2180: po_log.proc_end(d_mod, 'x_result_set_id', x_result_set_id);
2181: END IF;
2182: EXCEPTION
2198: IS
2199: d_mod CONSTANT VARCHAR2(100) := d_freight_terms;
2200: BEGIN
2201: IF x_result_set_id IS NULL THEN
2202: x_result_set_id := po_validations.next_result_set_id();
2203: END IF;
2204:
2205: IF po_log.d_proc THEN
2206: po_log.proc_begin(d_mod, 'p_id_tbl', p_id_tbl);
2207: po_log.proc_begin(d_mod, 'p_freight_terms_tbl', p_freight_terms_tbl);
2208: po_log.proc_begin(d_mod, 'x_result_set_id', x_result_set_id);
2209: END IF;
2210:
2211: x_result_type := po_validations.c_result_type_success;
2212:
2213: -- freight_terms must be valid if not null
2214: FORALL i IN 1 .. p_id_tbl.COUNT
2215: INSERT INTO po_validation_results_gt
2223: token1_name,
2224: token1_value,
2225: validation_id)
2226: SELECT x_result_set_id,
2227: po_validations.c_result_type_failure,
2228: c_entity_type_line_location,
2229: p_id_tbl(i),
2230: 'PO_PDOI_INVALID_FREIGHT_TERMS',
2231: 'FREIGHT_TERMS',
2241: sysdate < nvl(inactive_date, sysdate + 1) AND
2242: lookup_code = p_freight_terms_tbl(i));
2243:
2244: IF (SQL%ROWCOUNT > 0) THEN
2245: x_result_type := po_validations.c_result_type_failure;
2246: END IF;
2247:
2248: IF po_log.d_proc THEN
2249: po_validations.log_validation_results_gt(d_mod, 9, x_result_set_id);
2245: x_result_type := po_validations.c_result_type_failure;
2246: END IF;
2247:
2248: IF po_log.d_proc THEN
2249: po_validations.log_validation_results_gt(d_mod, 9, x_result_set_id);
2250: po_log.proc_end(d_mod, 'x_result_type', x_result_type);
2251: po_log.proc_end(d_mod, 'x_result_set_id', x_result_set_id);
2252: END IF;
2253: EXCEPTION
2270: IS
2271: d_mod CONSTANT VARCHAR2(100) := d_freight_carrier;
2272: BEGIN
2273: IF x_result_set_id IS NULL THEN
2274: x_result_set_id := po_validations.next_result_set_id();
2275: END IF;
2276:
2277: IF po_log.d_proc THEN
2278: po_log.proc_begin(d_mod, 'p_id_tbl', p_id_tbl);
2280: po_log.proc_begin(d_mod, 'p_inventory_org_id', p_inventory_org_id);
2281: po_log.proc_begin(d_mod, 'x_result_set_id', x_result_set_id);
2282: END IF;
2283:
2284: x_result_type := po_validations.c_result_type_success;
2285:
2286: -- freight_carrier must be valid if not null
2287: FORALL i IN 1 .. p_id_tbl.COUNT
2288: INSERT INTO po_validation_results_gt
2296: token1_name,
2297: token1_value,
2298: validation_id)
2299: SELECT x_result_set_id,
2300: po_validations.c_result_type_failure,
2301: c_entity_type_line_location,
2302: p_id_tbl(i),
2303: 'PO_PDOI_INVALID_FREIGHT_CARR',
2304: 'FREIGHT_CARRIER',
2314: organization_id = p_inventory_org_id AND
2315: nvl(disable_date, sysdate + 1) > sysdate);
2316:
2317: IF (SQL%ROWCOUNT > 0) THEN
2318: x_result_type := po_validations.c_result_type_failure;
2319: END IF;
2320:
2321: IF po_log.d_proc THEN
2322: po_validations.log_validation_results_gt(d_mod, 9, x_result_set_id);
2318: x_result_type := po_validations.c_result_type_failure;
2319: END IF;
2320:
2321: IF po_log.d_proc THEN
2322: po_validations.log_validation_results_gt(d_mod, 9, x_result_set_id);
2323: po_log.proc_end(d_mod, 'x_result_type', x_result_type);
2324: po_log.proc_end(d_mod, 'x_result_set_id', x_result_set_id);
2325: END IF;
2326: EXCEPTION
2347: IF (x_results IS NULL) THEN
2348: x_results := po_validation_results_type.new_instance();
2349: END IF;
2350:
2351: x_result_type := po_validations.c_result_type_success;
2352:
2353: IF po_log.d_proc THEN
2354: po_log.proc_begin(d_mod, 'p_id_tbl', p_id_tbl);
2355: po_log.proc_begin(d_mod, 'p_order_type_lookup_code_tbl', p_order_type_lookup_code_tbl);
2363: p_column_name => NULL,
2364: p_column_val => NULL,
2365: p_message_name => 'PO_PDOI_PRICE_BRK_AMT_BASED_LN',
2366: p_validation_id => PO_VAL_CONSTANTS.c_price_break_not_allowed);
2367: x_result_type := po_validations.c_result_type_failure;
2368: END IF;
2369: END LOOP;
2370:
2371: IF po_log.d_proc THEN