[Home] [Help]
1: PACKAGE BODY po_val_distributions2 AS
2: -- $Header: PO_VAL_DISTRIBUTIONS2.plb 120.20.12020000.2 2013/02/10 14:17:09 vegajula ship $
3: c_entity_type_distribution CONSTANT VARCHAR2(30) := PO_VALIDATIONS.c_entity_type_DISTRIBUTION;
4: -- The module base for this package.
5: d_package_base CONSTANT VARCHAR2(50) := po_log.get_package_base('PO_VAL_DISTRIBUTIONS2');
6:
7: -- The module base for the subprogram.
49: IF (x_results IS NULL) THEN
50: x_results := po_validation_results_type.new_instance();
51: END IF;
52:
53: x_result_type := po_validations.c_result_type_success;
54:
55: IF po_log.d_proc THEN
56: po_log.proc_begin(d_mod, 'p_id_tbl', p_id_tbl);
57: po_log.proc_begin(d_mod, 'p_amount_ordered_tbl', p_amount_ordered_tbl);
68: p_entity_id => p_id_tbl(i),
69: p_column_name => 'AMOUNT_ORDERED',
70: p_column_val => p_amount_ordered_tbl(i),
71: p_message_name => 'PO_PDOI_SVC_MUST_AMT');
72: x_result_type := po_validations.c_result_type_failure;
73: END IF;
74: ELSE
75: IF (NVL(p_amount_ordered_tbl(i), 0) <> 0) THEN
76: x_results.add_result(p_entity_type => c_entity_type_distribution,
77: p_entity_id => p_id_tbl(i),
78: p_column_name => 'AMOUNT_ORDERED',
79: p_column_val => p_amount_ordered_tbl(i),
80: p_message_name => 'PO_SVC_NO_AMT');
81: x_result_type := po_validations.c_result_type_failure;
82: END IF;
83: END IF;
84: END IF;
85: END LOOP;
117: IF (x_results IS NULL) THEN
118: x_results := po_validation_results_type.new_instance();
119: END IF;
120:
121: x_result_type := po_validations.c_result_type_success;
122:
123: IF po_log.d_proc THEN
124: po_log.proc_begin(d_mod, 'p_id_tbl', p_id_tbl);
125: po_log.proc_begin(d_mod, 'p_quantity_ordered_tbl', p_quantity_ordered_tbl);
136: p_entity_id => p_id_tbl(i),
137: p_column_name => 'QUANTITY_ORDERED',
138: p_column_val => p_quantity_ordered_tbl(i),
139: p_message_name => 'PO_SVC_NO_QTY');
140: x_result_type := po_validations.c_result_type_failure;
141: END IF;
142: ELSE
143: IF (NVL(p_quantity_ordered_tbl(i), 0) <= 0) THEN
144: x_results.add_result(p_entity_type => c_entity_type_distribution,
145: p_entity_id => p_id_tbl(i),
146: p_column_name => 'QUANTITY_ORDERED',
147: p_column_val => p_quantity_ordered_tbl(i),
148: p_message_name => 'PO_PDOI_INVALID_QTY');
149: x_result_type := po_validations.c_result_type_failure;
150: END IF;
151: END IF;
152: END IF;
153: END LOOP;
181: IF (x_results IS NULL) THEN
182: x_results := po_validation_results_type.new_instance();
183: END IF;
184:
185: x_result_type := po_validations.c_result_type_success;
186:
187: IF po_log.d_proc THEN
188: po_log.proc_begin(d_mod, 'p_id_tbl', p_id_tbl);
189: po_log.proc_begin(d_mod, 'p_dest_org_id_tbl', p_dest_org_id_tbl);
199: p_column_val => p_dest_org_id_tbl(i),
200: p_message_name => 'PO_PDOI_INVALID_DEST_ORG',
201: p_token1_name => 'DESTINATION_ORGANIZATION',
202: p_token1_value => p_dest_org_id_tbl(i));
203: x_result_type := po_validations.c_result_type_failure;
204: END IF;
205: END LOOP;
206:
207: IF po_log.d_proc THEN
231: IS
232: d_mod CONSTANT VARCHAR2(100) := d_deliver_to_location_id;
233: BEGIN
234: IF x_result_set_id IS NULL THEN
235: x_result_set_id := po_validations.next_result_set_id();
236: END IF;
237:
238: x_result_type := po_validations.c_result_type_success;
239:
234: IF x_result_set_id IS NULL THEN
235: x_result_set_id := po_validations.next_result_set_id();
236: END IF;
237:
238: x_result_type := po_validations.c_result_type_success;
239:
240: IF po_log.d_proc THEN
241: po_log.proc_begin(d_mod, 'p_id_tbl', p_id_tbl);
242: po_log.proc_begin(d_mod, 'p_ship_to_org_id_tbl', p_ship_to_org_id_tbl);
255: column_val,
256: token1_name,
257: token1_value)
258: SELECT x_result_set_id,
259: po_validations.c_result_type_failure,
260: c_entity_type_distribution,
261: p_id_tbl(i),
262: 'PO_PDOI_INVALID_DEL_LOCATION',
263: 'DELIVER_TO_LOCATION_ID',
278: WHERE NVL(address_expiration_date, TRUNC(SYSDATE + 1)) > TRUNC(SYSDATE)
279: AND location_id = p_deliver_to_location_id_tbl(i));
280:
281: IF (SQL%ROWCOUNT > 0) THEN
282: x_result_type := po_validations.c_result_type_failure;
283: END IF;
284:
285: IF po_log.d_proc THEN
286: po_validations.log_validation_results_gt(d_mod, 9, x_result_set_id);
282: x_result_type := po_validations.c_result_type_failure;
283: END IF;
284:
285: IF po_log.d_proc THEN
286: po_validations.log_validation_results_gt(d_mod, 9, x_result_set_id);
287: po_log.proc_end(d_mod, 'x_result_type', x_result_type);
288: po_log.proc_end(d_mod, 'x_result_set_id', x_result_set_id);
289: END IF;
290: EXCEPTION
317: BEGIN
318: d_position := 0;
319:
320: IF x_result_set_id IS NULL THEN
321: x_result_set_id := po_validations.next_result_set_id();
322: END IF;
323:
324: x_result_type := po_validations.c_result_type_success;
325:
320: IF x_result_set_id IS NULL THEN
321: x_result_set_id := po_validations.next_result_set_id();
322: END IF;
323:
324: x_result_type := po_validations.c_result_type_success;
325:
326: IF po_log.d_proc THEN
327: po_log.proc_begin(d_mod, 'p_id_tbl', p_id_tbl);
328: po_log.proc_begin(d_mod, 'p_deliver_to_person_id_tbl', p_deliver_to_person_id_tbl);
370: column_val,
371: token1_name,
372: token1_value)
373: SELECT x_result_set_id,
374: po_validations.c_result_type_failure,
375: c_entity_type_distribution,
376: p_id_tbl(i),
377: 'PO_PDOI_INVALID_DEL_PERSON',
378: 'DELIVER_TO_PERSON_ID',
396: AND Decode(hr_general.get_xbg_profile,'Y',p.business_group_id,
397: l_fsp_business_group_id) = p.business_group_id /* 9034751 */ AND A.assignment_type IN ('E',l_assignment_type));
398:
399: IF (SQL%ROWCOUNT > 0) THEN
400: x_result_type := po_validations.c_result_type_failure;
401: END IF;
402:
403: IF po_log.d_proc THEN
404: po_validations.log_validation_results_gt(d_mod, 9, x_result_set_id);
400: x_result_type := po_validations.c_result_type_failure;
401: END IF;
402:
403: IF po_log.d_proc THEN
404: po_validations.log_validation_results_gt(d_mod, 9, x_result_set_id);
405: po_log.proc_end(d_mod, 'x_result_type', x_result_type);
406: po_log.proc_end(d_mod, 'x_result_set_id', x_result_set_id);
407: END IF;
408: EXCEPTION
468:
469: d_position := 0;
470:
471: IF x_result_set_id IS NULL THEN
472: x_result_set_id := po_validations.next_result_set_id();
473: END IF;
474:
475: IF (x_results IS NULL) THEN
476: x_results := po_validation_results_type.new_instance();
475: IF (x_results IS NULL) THEN
476: x_results := po_validation_results_type.new_instance();
477: END IF;
478:
479: x_result_type := po_validations.c_result_type_success;
480:
481: d_position := 10;
482:
483: IF po_log.d_proc THEN
505: p_column_val => p_dest_type_code_tbl(i),
506: p_message_name => 'PO_PDOI_INVALID_DEST_TYPE',
507: p_token1_name => 'DESTINATION_TYPE',
508: p_token1_value => p_dest_type_code_tbl(i));
509: x_result_type := po_validations.c_result_type_failure;
510: END IF;
511: -- If SHIKYU item, destination type must be INVENTORY.
512: IF (p_dest_type_code_tbl(i) <> 'INVENTORY' AND p_loc_outsourced_assembly_tbl(i) = 1) THEN
513: x_results.add_result(p_entity_type => c_entity_type_distribution,
514: p_entity_id => p_id_tbl(i),
515: p_column_name => 'DESTINATION_TYPE_CODE',
516: p_column_val => p_dest_type_code_tbl(i),
517: p_message_name => 'PO_PDOI_SHIKYU_DEST_TYPE');
518: x_result_type := po_validations.c_result_type_failure;
519: END IF;
520: END LOOP;
521:
522: d_position := 30;
588: column_val,
589: token1_name,
590: token1_value)
591: SELECT x_result_set_id,
592: po_validations.c_result_type_failure,
593: c_entity_type_distribution,
594: p_id_tbl(i),
595: 'PO_PDOI_INVALID_DEST_TYPE',
596: 'DESTINATION_TYPE_CODE',
625: )
626: AND lookup_code= p_dest_type_code_tbl(i));
627:
628: IF (SQL%ROWCOUNT > 0) THEN
629: x_result_type := po_validations.c_result_type_failure;
630: END IF;
631:
632: d_position := 80;
633:
631:
632: d_position := 80;
633:
634: IF po_log.d_proc THEN
635: po_validations.log_validation_results_gt(d_mod, 9, x_result_set_id);
636: po_log.proc_end(d_mod, 'x_result_type', x_result_type);
637: po_log.proc_end(d_mod, 'x_result_set_id', x_result_set_id);
638: po_log.LOG(po_log.c_proc_end, d_mod, NULL, 'x_results', x_results);
639: END IF;
667: IS
668: d_mod CONSTANT VARCHAR2(100) := d_destination_subinv;
669: BEGIN
670: IF x_result_set_id IS NULL THEN
671: x_result_set_id := po_validations.next_result_set_id();
672: END IF;
673:
674: IF (x_results IS NULL) THEN
675: x_results := po_validation_results_type.new_instance();
674: IF (x_results IS NULL) THEN
675: x_results := po_validation_results_type.new_instance();
676: END IF;
677:
678: x_result_type := po_validations.c_result_type_success;
679:
680: IF po_log.d_proc THEN
681: po_log.proc_begin(d_mod, 'p_id_tbl', p_id_tbl);
682: po_log.proc_begin(d_mod, 'p_destination_subinv_tbl', p_destination_subinv_tbl);
694: p_entity_id => p_id_tbl(i),
695: p_column_name => 'DESTINATION_SUBINVENTORY',
696: p_column_val => p_destination_subinv_tbl(i),
697: p_message_name => 'PO_PDOI_INVALID_DEST_SUBINV');
698: x_result_type := po_validations.c_result_type_failure;
699: END IF;
700: END LOOP;
701:
702: FORALL i IN 1 .. p_id_tbl.COUNT
710: column_val,
711: token1_name,
712: token1_value)
713: SELECT x_result_set_id,
714: po_validations.c_result_type_failure,
715: c_entity_type_distribution,
716: p_id_tbl(i),
717: 'PO_PDOI_INVALID_DEST_SUBINV',
718: 'DESTINATION_SUBINVENTORY',
745: AND mis.secondary_inventory = msub.secondary_inventory_name))))))
746: AND msub.secondary_inventory_name = p_destination_subinv_tbl(i));
747:
748: IF (SQL%ROWCOUNT > 0) THEN
749: x_result_type := po_validations.c_result_type_failure;
750: END IF;
751:
752: -- Need to validate that SHIKYU item can only have asset subinventory (inventory_asset = 1).
753: FORALL i IN 1 .. p_id_tbl.COUNT
761: column_val,
762: token1_name,
763: token1_value)
764: SELECT x_result_set_id,
765: po_validations.c_result_type_failure,
766: c_entity_type_distribution,
767: p_id_tbl(i),
768: 'PO_PDOI_SHIKYU_DEST_SUBINV',
769: 'DESTINATION_SUBINVENTORY',
782: AND msub.asset_inventory = 2 /* Not asset subinventory */
783: AND msub.secondary_inventory_name = p_destination_subinv_tbl(i));
784:
785: IF (SQL%ROWCOUNT > 0) THEN
786: x_result_type := po_validations.c_result_type_failure;
787: END IF;
788:
789: IF po_log.d_proc THEN
790: po_validations.log_validation_results_gt(d_mod, 9, x_result_set_id);
786: x_result_type := po_validations.c_result_type_failure;
787: END IF;
788:
789: IF po_log.d_proc THEN
790: po_validations.log_validation_results_gt(d_mod, 9, x_result_set_id);
791: po_log.proc_end(d_mod, 'x_result_type', x_result_type);
792: po_log.proc_end(d_mod, 'x_result_set_id', x_result_set_id);
793: po_log.LOG(po_log.c_proc_end, d_mod, NULL, 'x_results', x_results);
794: END IF;
828: IS
829: d_mod CONSTANT VARCHAR2(100) := d_wip_entity_id;
830: BEGIN
831: IF x_result_set_id IS NULL THEN
832: x_result_set_id := po_validations.next_result_set_id();
833: END IF;
834:
835: IF (x_results IS NULL) THEN
836: x_results := po_validation_results_type.new_instance();
835: IF (x_results IS NULL) THEN
836: x_results := po_validation_results_type.new_instance();
837: END IF;
838:
839: x_result_type := po_validations.c_result_type_success;
840:
841: IF po_log.d_proc THEN
842: po_log.proc_begin(d_mod, 'p_id_tbl', p_id_tbl);
843: po_log.proc_begin(d_mod, 'p_wip_entity_id_tbl', p_wip_entity_id_tbl);
856: p_column_val => p_wip_entity_id_tbl(i),
857: p_message_name => 'PO_PDOI_COLUMN_NOT_NULL',
858: p_token1_name => 'COLUMN_NAME',
859: p_token1_value => 'WIP_ENTITY_ID');
860: x_result_type := po_validations.c_result_type_failure;
861: END IF;
862: END LOOP;
863:
864: FORALL i IN 1 .. p_id_tbl.COUNT
872: column_val,
873: token1_name,
874: token1_value)
875: SELECT x_result_set_id,
876: po_validations.c_result_type_failure,
877: c_entity_type_distribution,
878: p_id_tbl(i),
879: 'PO_PDOI_INVALID_WIP_SCHED',
880: 'WIP_REPETITIVE_SCHEDULE_ID',
893: AND wrs.repetitive_schedule_id = p_wip_rep_schedule_id_tbl(i)
894: AND wrs.status_type IN(3, 4, 6));
895:
896: IF (SQL%ROWCOUNT > 0) THEN
897: x_result_type := po_validations.c_result_type_failure;
898: END IF;
899:
900: FORALL i IN 1 .. p_id_tbl.COUNT
901: INSERT INTO po_validation_results_gt
908: column_val,
909: token1_name,
910: token1_value)
911: SELECT x_result_set_id,
912: po_validations.c_result_type_failure,
913: c_entity_type_distribution,
914: p_id_tbl(i),
915: 'PO_PDOI_INVALID_WIP_ENTITY',
916: 'WIP_ENTITY_ID',
928: AND wdj.wip_entity_id = p_wip_entity_id_tbl(i)
929: AND wdj.status_type IN(3, 4, 6));
930:
931: IF (SQL%ROWCOUNT > 0) THEN
932: x_result_type := po_validations.c_result_type_failure;
933: END IF;
934:
935: IF po_log.d_proc THEN
936: po_validations.log_validation_results_gt(d_mod, 9, x_result_set_id);
932: x_result_type := po_validations.c_result_type_failure;
933: END IF;
934:
935: IF po_log.d_proc THEN
936: po_validations.log_validation_results_gt(d_mod, 9, x_result_set_id);
937: po_log.proc_end(d_mod, 'x_result_type', x_result_type);
938: po_log.proc_end(d_mod, 'x_result_set_id', x_result_set_id);
939: po_log.LOG(po_log.c_proc_end, d_mod, NULL, 'x_results', x_results);
940: END IF;
967: IF (x_results IS NULL) THEN
968: x_results := po_validation_results_type.new_instance();
969: END IF;
970:
971: x_result_type := po_validations.c_result_type_success;
972:
973: IF po_log.d_proc THEN
974: po_log.proc_begin(d_mod, 'p_id_tbl', p_id_tbl);
975: po_log.proc_begin(d_mod, 'p_prevent_encum_flag_tbl', p_prevent_encum_flag_tbl);
1003: p_entity_id => p_id_tbl(i),
1004: p_column_name => 'PREVENT_ENCUMBERANCE_FLAG',
1005: p_column_val => p_prevent_encum_flag_tbl(i),
1006: p_message_name => 'PO_PDOI_INV_PREV_ENCUM_FLAG');
1007: x_result_type := po_validations.c_result_type_failure;
1008: END IF;
1009: END LOOP;
1010:
1011: IF po_log.d_proc THEN
1036: IS
1037: d_mod CONSTANT VARCHAR2(100) := d_charge_account_id;
1038: BEGIN
1039: IF x_result_set_id IS NULL THEN
1040: x_result_set_id := po_validations.next_result_set_id();
1041: END IF;
1042:
1043: x_result_type := po_validations.c_result_type_success;
1044:
1039: IF x_result_set_id IS NULL THEN
1040: x_result_set_id := po_validations.next_result_set_id();
1041: END IF;
1042:
1043: x_result_type := po_validations.c_result_type_success;
1044:
1045: IF po_log.d_proc THEN
1046: po_log.proc_begin(d_mod, 'p_id_tbl', p_id_tbl);
1047: po_log.proc_begin(d_mod, 'p_charge_account_id_tbl', p_charge_account_id_tbl);
1061: column_val,
1062: token1_name,
1063: token1_value)
1064: SELECT x_result_set_id,
1065: po_validations.c_result_type_failure,
1066: c_entity_type_distribution,
1067: p_id_tbl(i),
1068: decode(p_charge_account_id_tbl(i), NULL, 'PO_PDOI_NO_CHG_ACCT', 'PO_PDOI_INVALID_CHG_ACCOUNT'),
1069: 'CHARGE_ACCOUNT_ID',
1086: AND gcc.chart_of_accounts_id = p_chart_of_account_id
1087: AND gcc.summary_flag = 'N')));
1088:
1089: IF (SQL%ROWCOUNT > 0) THEN
1090: x_result_type := po_validations.c_result_type_failure;
1091: END IF;
1092:
1093: IF po_log.d_proc THEN
1094: po_validations.log_validation_results_gt(d_mod, 9, x_result_set_id);
1090: x_result_type := po_validations.c_result_type_failure;
1091: END IF;
1092:
1093: IF po_log.d_proc THEN
1094: po_validations.log_validation_results_gt(d_mod, 9, x_result_set_id);
1095: po_log.proc_end(d_mod, 'x_result_type', x_result_type);
1096: po_log.proc_end(d_mod, 'x_result_set_id', x_result_set_id);
1097: END IF;
1098: EXCEPTION
1125: d_mod CONSTANT VARCHAR2(100) := d_budget_account_id;
1126: l_wip_entity_type number := NULL ;
1127: BEGIN
1128: IF x_result_set_id IS NULL THEN
1129: x_result_set_id := po_validations.next_result_set_id();
1130: END IF;
1131:
1132: x_result_type := po_validations.c_result_type_success;
1133:
1128: IF x_result_set_id IS NULL THEN
1129: x_result_set_id := po_validations.next_result_set_id();
1130: END IF;
1131:
1132: x_result_type := po_validations.c_result_type_success;
1133:
1134: IF po_log.d_proc THEN
1135: po_log.proc_begin(d_mod, 'p_id_tbl', p_id_tbl);
1136: po_log.proc_begin(d_mod, 'p_budget_account_id_tbl', p_budget_account_id_tbl);
1157: column_val,
1158: token1_name,
1159: token1_value)
1160: SELECT x_result_set_id,
1161: po_validations.c_result_type_failure,
1162: c_entity_type_distribution,
1163: p_id_tbl(i),
1164: 'PO_PDOI_INVALID_BUDGET_ACCT',
1165: 'BUDGET_ACCOUNT_ID',
1187: AND gcc.chart_of_accounts_id = p_chart_of_account_id
1188: AND gcc.summary_flag = 'N'));
1189:
1190: IF (SQL%ROWCOUNT > 0) THEN
1191: x_result_type := po_validations.c_result_type_failure;
1192: END IF;
1193:
1194: IF po_log.d_proc THEN
1195: po_validations.log_validation_results_gt(d_mod, 9, x_result_set_id);
1191: x_result_type := po_validations.c_result_type_failure;
1192: END IF;
1193:
1194: IF po_log.d_proc THEN
1195: po_validations.log_validation_results_gt(d_mod, 9, x_result_set_id);
1196: po_log.proc_end(d_mod, 'x_result_type', x_result_type);
1197: po_log.proc_end(d_mod, 'x_result_set_id', x_result_set_id);
1198: END IF;
1199: EXCEPTION
1223: IS
1224: d_mod CONSTANT VARCHAR2(100) := d_account_id;
1225: BEGIN
1226: IF x_result_set_id IS NULL THEN
1227: x_result_set_id := po_validations.next_result_set_id();
1228: END IF;
1229:
1230: x_result_type := po_validations.c_result_type_success;
1231:
1226: IF x_result_set_id IS NULL THEN
1227: x_result_set_id := po_validations.next_result_set_id();
1228: END IF;
1229:
1230: x_result_type := po_validations.c_result_type_success;
1231:
1232: IF po_log.d_proc THEN
1233: po_log.proc_begin(d_mod, 'p_id_tbl', p_id_tbl);
1234: po_log.proc_begin(d_mod, 'p_account_id_tbl', p_account_id_tbl);
1251: column_val,
1252: token1_name,
1253: token1_value)
1254: SELECT x_result_set_id,
1255: po_validations.c_result_type_failure,
1256: c_entity_type_distribution,
1257: p_id_tbl(i),
1258: p_message_name,
1259: p_column_name,
1275: AND gcc.chart_of_accounts_id = p_chart_of_account_id
1276: AND gcc.summary_flag = 'N');
1277:
1278: IF (SQL%ROWCOUNT > 0) THEN
1279: x_result_type := po_validations.c_result_type_failure;
1280: END IF;
1281:
1282: IF po_log.d_proc THEN
1283: po_validations.log_validation_results_gt(d_mod, 9, x_result_set_id);
1279: x_result_type := po_validations.c_result_type_failure;
1280: END IF;
1281:
1282: IF po_log.d_proc THEN
1283: po_validations.log_validation_results_gt(d_mod, 9, x_result_set_id);
1284: po_log.proc_end(d_mod, 'x_result_type', x_result_type);
1285: po_log.proc_end(d_mod, 'x_result_set_id', x_result_set_id);
1286: END IF;
1287: EXCEPTION
1313: IF (x_results IS NULL) THEN
1314: x_results := po_validation_results_type.new_instance();
1315: END IF;
1316:
1317: x_result_type := po_validations.c_result_type_success;
1318:
1319: IF po_log.d_proc THEN
1320: po_log.proc_begin(d_mod, 'p_id_tbl', p_id_tbl);
1321: po_log.proc_begin(d_mod, 'p_project_acct_ctx_tbl', p_project_acct_ctx_tbl);
1336: p_entity_id => p_id_tbl(i),
1337: p_column_name => 'PROJECT_ACCOUNT_CONTEXT',
1338: p_column_val => p_project_acct_ctx_tbl(i),
1339: p_message_name => 'PO_PDOI_PROJECT_ACCT_CONTEXT');
1340: x_result_type := po_validations.c_result_type_failure;
1341: END IF;
1342: END LOOP;
1343:
1344: IF po_log.d_proc THEN
1395: IF (x_results IS NULL) THEN
1396: x_results := po_validation_results_type.new_instance();
1397: END IF;
1398:
1399: x_result_type := po_validations.c_result_type_success;
1400:
1401: IF po_log.d_proc THEN
1402: po_log.proc_begin(d_mod, 'p_id_tbl', p_id_tbl);
1403: po_log.proc_begin(d_mod, 'p_project_acct_ctx_tbl', p_project_acct_ctx_tbl);
1453: p_token1_value => FND_MESSAGE.GET_STRING('PA',l_msg_name)
1454: );
1455: end if;
1456:
1457: x_result_type := po_validations.c_result_type_failure;
1458: END IF;
1459: END IF;
1460:
1461: IF (p_dest_type_code_tbl(i) = 'EXPENSE' AND p_project_id_tbl(i) IS NOT NULL
1464: p_entity_id => p_id_tbl(i),
1465: p_column_name => 'PROJECT_ID',
1466: p_column_val => p_project_id_tbl(i),
1467: p_message_name => 'PO_CROSS_OU_PA_PROJECT_CHECK');
1468: x_result_type := po_validations.c_result_type_failure;
1469: END IF;
1470: END LOOP;
1471:
1472: IF po_log.d_proc THEN
1498: IF (x_results IS NULL) THEN
1499: x_results := po_validation_results_type.new_instance();
1500: END IF;
1501:
1502: x_result_type := po_validations.c_result_type_success;
1503:
1504: IF po_log.d_proc THEN
1505: po_log.proc_begin(d_mod, 'p_id_tbl', p_id_tbl);
1506: po_log.proc_begin(d_mod, 'p_recovery_override_flag_tbl', p_recovery_override_flag_tbl);
1515: p_entity_id => p_id_tbl(i),
1516: p_column_name => 'TAX_RECOVERY_OVERRIDE_FLAG',
1517: p_column_val => p_recovery_override_flag_tbl(i),
1518: p_message_name => 'PO_PDOI_NO_TAX_RATE_OVERRIDE');
1519: x_result_type := po_validations.c_result_type_failure;
1520: END IF;
1521: END LOOP;
1522: END IF;
1523:
1563: IF (x_results IS NULL) THEN
1564: x_results := PO_VALIDATION_RESULTS_TYPE.new_instance();
1565: END IF;
1566:
1567: x_result_type := po_validations.c_result_type_success;
1568:
1569: FOR I IN 1..p_dist_id_tbl.COUNT LOOP
1570: -- CLM Controls Project changes
1571: BEGIN
1596: , p_column_name => 'ACRN'
1597: , p_column_val => p_ACRN_tbl(i)
1598: , p_message_name => X_RETURN_MESSAGE
1599: );
1600: x_result_type := po_validations.c_result_type_failure;
1601:
1602: END if;
1603:
1604: END;
1651: IF (x_results IS NULL) THEN
1652: x_results := po_validation_results_type.new_instance();
1653: END IF;
1654:
1655: x_result_type := po_validations.c_result_type_success;
1656:
1657: IF po_log.d_proc THEN
1658: po_log.proc_begin(d_mod, 'p_id_tbl', p_id_tbl);
1659: po_log.proc_begin(d_mod, 'p_partial_funded_flag_tbl', p_partial_funded_flag_tbl);
1677: p_entity_id => p_id_tbl(i),
1678: p_column_name => 'PARTIAL_FUNDED_FLAG',
1679: p_column_val => p_partial_funded_flag_tbl(i),
1680: p_message_name => 'PO_PDOI_PF_FLAG_ENC');
1681: x_result_type := po_validations.c_result_type_failure;
1682: ELSIF (p_partial_funded_flag_tbl(i) = 'Y' AND p_po_encumberance_flag = 'Y') THEN
1683:
1684: d_position := 30;
1685:
1705: p_entity_id => p_id_tbl(i),
1706: p_column_name => 'PARTIAL_FUNDED_FLAG',
1707: p_column_val => p_partial_funded_flag_tbl(i),
1708: p_message_name => 'PO_PDOI_PF_FLAG_CLM');
1709: x_result_type := po_validations.c_result_type_failure;
1710: ELSIF (p_funded_value_tbl(i) < 0) THEN
1711: d_position := 50;
1712: IF po_log.d_proc THEN
1713: po_log.proc_begin(d_mod, 'Negative Funded Value ', p_funded_value_tbl(i));
1716: p_entity_id => p_id_tbl(i),
1717: p_column_name => 'PARTIAL_FUNDED_FLAG',
1718: p_column_val => p_partial_funded_flag_tbl(i),
1719: p_message_name => 'PO_PDOI_INVALID_FUND_VAL');
1720: x_result_type := po_validations.c_result_type_failure;
1721: END IF;
1722: END IF;
1723: END LOOP;
1724: IF po_log.d_proc THEN