[Home] [Help]
212: -- No duplicate transaction flow exists
213: RETURN TRUE;
214: END;
215: -- if control coming to this place then duplicate transaction flow exists
216: FND_MESSAGE.SET_NAME('INV','INV_DUPLICATE_TRX_FLOW');
217: FND_MSG_PUB.ADD;
218: RETURN FALSE;
219: END Validate_Header;*/
220:
243: IF p_start_date < p_ref_date THEN
244: IF g_debug=1 THEN
245: debug('p_start_date is less than p_ref_date','Validate_Start_Date');
246: END IF;
247: FND_MESSAGE.SET_NAME('INV','INV_INVALID_START_DATE');
248: FND_MSG_PUB.ADD;
249: RETURN FALSE;
250: END IF;
251: /*
296: --
297: IF g_debug=1 THEN
298: debug('Overlap found for start_date
300: FND_MESSAGE.SET_NAME('INV','INV_OVERLAPING_TRX_FLOW');
301: FND_MSG_PUB.ADD;
302: RETURN FALSE;
303: EXCEPTION
304: WHEN NO_DATA_FOUND THEN
322: -- overlap found
323: IF g_debug=1 THEN
324: debug('Overlap found for start_date
325: END IF;
326: FND_MESSAGE.SET_NAME('INV','INV_OVERLAPING_TRX_FLOW');
327: FND_MSG_PUB.ADD;
328: RETURN FALSE;
329: EXCEPTION
330: WHEN NO_DATA_FOUND THEN
351: AND NVL(END_DATE,g_miss_date)>=P_START_DATE );
352: IF g_debug=1 THEN
353: debug('Overlap found for start date','Validate_Start_Date');
354: END IF;
355: FND_MESSAGE.SET_NAME('INV','INV_OVERLAPING_TRX_FLOW');
356: FND_MESSAGE.SET_TOKEN('START_END','START_DATE_CAP',TRUE);
357: FND_MSG_PUB.ADD;
358: RETURN FALSE;
359: EXCEPTION
352: IF g_debug=1 THEN
353: debug('Overlap found for start date','Validate_Start_Date');
354: END IF;
355: FND_MESSAGE.SET_NAME('INV','INV_OVERLAPING_TRX_FLOW');
356: FND_MESSAGE.SET_TOKEN('START_END','START_DATE_CAP',TRUE);
357: FND_MSG_PUB.ADD;
358: RETURN FALSE;
359: EXCEPTION
360: WHEN NO_DATA_FOUND THEN
387: IF p_end_date
389: debug('I am in if when the end date is < p_ref_date','Validate_End_Date');
390: END IF;
391: FND_MESSAGE.SET_NAME('INV','INV_NOT_CUR_END_DATE');
392: FND_MSG_PUB.ADD;
393: RETURN FALSE;
394: END IF;
395: -- end date should not be <= start date
396: IF p_end_date <=p_start_date THEN
397: IF g_debug=1 THEN
398: debug('p_end_date is <= p_ref_date','Validate_End_Date');
399: END IF;
400: FND_MESSAGE.SET_NAME('INV','INV_END_DATE_INVALID');
401: FND_MSG_PUB.ADD;
402: RETURN FALSE;
403: END IF;
404:
421: AND END_DATE>=P_START_DATE);
422: IF g_debug=1 THEN
423: debug('Overlap found for end_date>=p_start_date and p_end_date is null','Validate_End_Date');
424: END IF;
425: FND_MESSAGE.SET_NAME('INV','INV_OVERLAPING_TRX_FLOW');
426: FND_MSG_PUB.ADD;
427: RETURN FALSE;
428: EXCEPTION
429: WHEN NO_DATA_FOUND THEN
453: -- overlap found
454: IF g_debug=1 THEN
455: debug('Overlap found for start_date<=p_end_date and end_date is null','Validate_End_Date');
456: END IF;
457: FND_MESSAGE.SET_NAME('INV','INV_OVERLAPING_TRX_FLOW');
458: FND_MSG_PUB.ADD;
459: RETURN FALSE;
460: EXCEPTION
461: WHEN NO_DATA_FOUND THEN
478: -- overlap found
479: IF g_debug=1 THEN
480: debug('Overlap found for start_date<=p_end_date and start_date>=p_start_date','Validate_End_Date');
481: END IF;
482: FND_MESSAGE.SET_NAME('INV','INV_OVERLAPING_TRX_FLOW');
483: FND_MSG_PUB.ADD;
484: RETURN FALSE;
485: EXCEPTION
486: WHEN NO_DATA_FOUND THEN
510: -- overlap found
511: IF g_debug=1 THEN
512: debug('Overlap found end date','Validate_End_Date');
513: END IF;
514: FND_MESSAGE.SET_NAME('INV','INV_OVERLAPING_TRX_FLOW');
515: FND_MESSAGE.SET_TOKEN('START_END','END_DATE_CAP',TRUE);
516: FND_MSG_PUB.ADD;
517: RETURN FALSE;
518: EXCEPTION
511: IF g_debug=1 THEN
512: debug('Overlap found end date','Validate_End_Date');
513: END IF;
514: FND_MESSAGE.SET_NAME('INV','INV_OVERLAPING_TRX_FLOW');
515: FND_MESSAGE.SET_TOKEN('START_END','END_DATE_CAP',TRUE);
516: FND_MSG_PUB.ADD;
517: RETURN FALSE;
518: EXCEPTION
519: WHEN NO_DATA_FOUND THEN
709: x_return_code:=0;
710: IF g_debug=1 THEN
711: debug('Null end date case','Get_Default_Dates');
712: END IF;
713: FND_MESSAGE.SET_NAME('INV','INV_NULL_END_DATE');
714: FND_MSG_PUB.ADD;
715: RETURN;
716: EXCEPTION
717: WHEN NO_DATA_FOUND THEN
775: debug('The value of l_return_status is'||l_return_status,'Get_Default_Dates');
776: END IF;
777: IF l_return_status=1 THEN
778: x_return_code:=0;
779: FND_MESSAGE.SET_NAME('INV','INV_NULL_END_DATE');
780: FND_MSG_PUB.ADD;
781: RETURN;
782: END IF;--no further processing to be done
783: IF g_debug=1 THEN
863: RETURN FALSE;
864: EXCEPTION
865: WHEN NO_DATA_FOUND THEN
866: -- gap created
867: FND_MESSAGE.SET_NAME('INV','INV_GAP_CREATED');
868: FND_MSG_PUB.ADD;
869: if g_debug=1 then
870: debug('Gap created for condition p_start_date>p_ref_date','New_Gap_Created');
871: end if;
889: AND END_DATE=P_START_DATE-(1/(24*60*60));
890: EXCEPTION
891: WHEN NO_DATA_FOUND THEN
892: -- gap created
893: FND_MESSAGE.SET_NAME('INV','INV_GAP_CREATED');
894: FND_MSG_PUB.ADD;
895: if g_debug=1 then
896: debug('Gap created for start date when p_start_date>p_ref_date','New_Gap_Created');
897: end if;
936: RETURN FALSE;
937: EXCEPTION
938: WHEN NO_DATA_FOUND THEN
939: -- gap created
940: FND_MESSAGE.SET_NAME('INV','INV_GAP_CREATED');
941: FND_MSG_PUB.ADD;
942: if g_debug=1 then
943: debug('Gap created for condition p_end_date > start_date+1sec','New_Gap_Created');
944: end if;
974: WHERE ORGANIZATION_ID=P_ORGANIZATION_IDS(l_index)
975: AND PROCESS_ENABLED_FLAG='Y';
976: -- if a record is found then its a failure condition
977: -- process enabled orgs are not supported for global procuring transaction
978: FND_MESSAGE.SET_NAME('INV','INV_PROCESS_ORG_NOT_ALLOWED');
979: FND_MSG_PUB.ADD;
980: RETURN FALSE;
981: EXCEPTION
982: WHEN NO_DATA_FOUND THEN
1000: IF l_count=1 and l_count_disc=1 THEN
1001: -- failure condition
1002: -- both falgs can be 1 only if some orgs are process
1003: -- and some orgs are discrete
1004: FND_MESSAGE.SET_NAME('INV','INV_MIXED_ORG_NOT_ALLOWED');--ACTION
1005: FND_MSG_PUB.ADD;
1006: RETURN FALSE;
1007: END IF;
1008: EXCEPTION
1017: WHERE ORGANIZATION_ID=P_ORGANIZATION_IDS(l_index)
1018: AND PROCESS_ENABLED_FLAG='Y';
1019: -- if a record is found then its a failure condition
1020: -- process enabled orgs are not supported for global procuring transaction
1021: FND_MESSAGE.SET_NAME('INV','INV_PROCESS_ORG_DISALLOWED');--ACTION
1022: FND_MSG_PUB.ADD;
1023: RETURN FALSE;
1024: EXCEPTION
1025: WHEN NO_DATA_FOUND THEN
1049: IF g_debug=1 THEN
1050: debug('l_num_recs= '||l_num_recs,'Create_Sorted_Table');
1051: END IF;
1052: IF l_num_recs=0 THEN
1053: FND_MESSAGE.SET_NAME('INV','INV_NO_TRX_FLOW_LINE');
1054: FND_MSG_PUB.ADD;
1055: X_RETURN_STATUS:=FND_API.G_RET_STS_ERROR;
1056: RETURN ;
1057: END IF;
1062: -- get the first record
1063: IF l_num_recs=1 THEN
1064: IF(p_lines_table(1).to_org_id <> p_end_org_id)then
1065: X_RETURN_STATUS:=FND_API.G_RET_STS_ERROR;
1066: FND_MESSAGE.SET_NAME('INV','INV_NO_START_NODE');
1067: FND_MSG_PUB.ADD;
1068: RETURN;
1069: ELSE
1070: x_sorted_table:=p_lines_table;
1085: END LOOP;
1086: IF l_out_table.count=0 THEN
1087: -- start node not found
1088: X_RETURN_STATUS:=FND_API.G_RET_STS_ERROR;
1089: FND_MESSAGE.SET_NAME('INV','INV_NO_START_NODE');
1090: FND_MSG_PUB.ADD;
1091: RETURN;
1092: END IF;
1093: IF g_debug=1 THEN
1105: END LOOP;
1106: IF l_out_table.count <> 2 THEN
1107: -- end node not found
1108: X_RETURN_STATUS:=FND_API.G_RET_STS_ERROR;
1109: FND_MESSAGE.SET_NAME('INV','INV_INCOMPLETE_FLOW');
1110: FND_MSG_PUB.ADD;
1111: RETURN;
1112: END IF;
1113: IF g_debug=1 THEN
1136: END LOOP;
1137: IF l_out_table.count <> (l_index_out+1) THEN
1138: -- connecting node not found
1139: X_RETURN_STATUS:=FND_API.G_RET_STS_ERROR;
1140: FND_MESSAGE.SET_NAME('INV','INV_INCOMPLETE_FLOW'); --ACTION SET TOKEN
1141: FND_MSG_PUB.ADD;
1142: RETURN;
1143: END IF;
1144: END LOOP;--l_index_out IN 2..l_num_recs-1
1152: IF g_debug=1 THEN
1153: debug('Cross validation for org/organizations failed','Create_Sorted_Table');
1154: END IF;
1155: X_RETURN_STATUS:=FND_API.G_RET_STS_ERROR;
1156: FND_MESSAGE.SET_NAME('INV','INV_INCOMPLETE_FLOW'); --ACTION SET TOKEN
1157: FND_MSG_PUB.ADD;
1158: RETURN;
1159: END IF;
1160: ELSIF l_num_recs>2 THEN -- if more than two nodes then validated connecting org/organizations for last and second last nodes
1164: IF g_debug=1 THEN
1165: debug('Cross validation for org/organizations failed','Create_Sorted_Table');
1166: END IF;
1167: X_RETURN_STATUS:=FND_API.G_RET_STS_ERROR;
1168: FND_MESSAGE.SET_NAME('INV','INV_INCOMPLETE_FLOW'); --ACTION SET TOKEN
1169: FND_MSG_PUB.ADD;
1170: RETURN;
1171: END IF;
1172: END IF;
1222: IF(l_lines_table.count>1)THEN
1223: FOR l_index IN 2..l_lines_table.count
1224: LOOP
1225: IF(l_lines_table(l_index).from_organization_id IS NULL)THEN
1226: FND_MESSAGE.SET_NAME('INV','INV_INVALID_SETUP');
1227: FND_MSG_PUB.ADD;
1228: RETURN FALSE;
1229: END IF;
1230: END LOOP;
1236: -- For Bug 4428974
1237: -- Added condition of P_NEW_ACCOUNTING_FLAG = 'Y' in the IF statement.
1238: --
1239: IF(l_lines_table(l_index).to_organization_id IS NULL) AND P_NEW_ACCOUNTING_FLAG = 'Y' THEN
1240: FND_MESSAGE.SET_NAME('INV','INV_INVALID_SETUP');
1241: FND_MSG_PUB.ADD;
1242: RETURN FALSE;
1243: END IF;
1244: END LOOP;
1254: if g_debug=1 then
1255: debug('1.1'||l_index,'Validate_Trx_Flow_Lines');
1256: end if;
1257: IF(l_lines_table(l_index).from_organization_id IS NULL)THEN
1258: FND_MESSAGE.SET_NAME('INV','INV_INVALID_SETUP');
1259: FND_MSG_PUB.ADD;
1260: RETURN FALSE;
1261: END IF;
1262: END LOOP;
1264: IF(l_lines_table.count>1)THEN
1265: FOR l_index IN 1..l_lines_table.count-1
1266: LOOP
1267: IF(l_lines_table(l_index).to_organization_id IS NULL)THEN
1268: FND_MESSAGE.SET_NAME('INV','INV_INVALID_SETUP');
1269: FND_MSG_PUB.ADD;
1270: RETURN FALSE;
1271: END IF;
1272: END LOOP;
1282: debug('VALUE OF FROM_ORG_ID'||l_lines_table(1).from_org_id,'Validate_Trx_Flow_Lines');
1283: end if;
1284: IF p_start_org_id <> l_lines_table(1).from_org_id THEN
1285: -- failure
1286: FND_MESSAGE.SET_NAME('INV','INV_INVALID_FROM_OU');
1287: FND_MSG_PUB.ADD;
1288: RETURN FALSE;
1289: END IF;
1290: IF p_end_org_id<> l_lines_table(l_lines_table.count).to_org_id THEN
1288: RETURN FALSE;
1289: END IF;
1290: IF p_end_org_id<> l_lines_table(l_lines_table.count).to_org_id THEN
1291: -- failure
1292: FND_MESSAGE.SET_NAME('INV','INV_INVALID_TO_OU');
1293: FND_MSG_PUB.ADD;
1294: RETURN FALSE;
1295: END IF;
1296: if g_debug=1 then
1302: -- from organization of first line should be equal to ship_from organization
1303: -- it can be null also
1304: IF nvl(p_ship_from_to_organization_id,-999)<>nvl(l_lines_table(1).from_organization_id,-999) THEN
1305: -- failure
1306: FND_MESSAGE.SET_NAME('INV','INV_INVALID_FROM_ORGANIZATION');
1307: FND_MSG_PUB.ADD;
1308: RETURN FALSE;
1309: END IF;
1310: ELSIF p_flow_type=2 THEN
1311: -- to organization of last line should be equal to ship_to organization
1312: -- it can be null also
1313: IF nvl(p_ship_from_to_organization_id,-999)<>nvl(l_lines_table(l_lines_table.count).to_organization_id,-999) THEN
1314: -- failure
1315: FND_MESSAGE.SET_NAME('INV','INV_INVALID_TO_ORGANIZATION');
1316: FND_MSG_PUB.ADD;
1317: RETURN FALSE;
1318: END IF;
1319: END IF;-- flow_type
1328: debug('BEFORE VALIDATING OPERATING UNIT','Validate_Trx_Flow_Lines');
1329: end if;
1330: -- validate orgs
1331: IF NOT Validate_Operating_Unit(l_lines_table(l_index).from_org_id) THEN
1332: FND_MESSAGE.SET_NAME('INV','INV_INVALID_FROM_OU');
1333: FND_MSG_PUB.ADD;
1334: RETURN FALSE;
1335: END IF;
1336: IF NOT Validate_Operating_Unit(l_lines_table(l_index).to_org_id) THEN
1333: FND_MSG_PUB.ADD;
1334: RETURN FALSE;
1335: END IF;
1336: IF NOT Validate_Operating_Unit(l_lines_table(l_index).to_org_id) THEN
1337: FND_MESSAGE.SET_NAME('INV','INV_INVALID_TO_OU');
1338: FND_MSG_PUB.ADD;
1339: RETURN FALSE;
1340: END IF;
1341: -- validate organizations
1344: IF l_lines_table(l_index).from_organization_id IS NOT NULL THEN
1345: IF NOT Validate_Organization(
1346: P_ORGANIZATION_ID => l_lines_table(l_index).from_organization_id,
1347: P_ORG_ID => l_lines_table(l_index).from_org_id) THEN
1348: FND_MESSAGE.SET_NAME('INV','INV_INVALID_FROM_ORGANIZATION');
1349: FND_MSG_PUB.ADD;
1350: RETURN FALSE;
1351: END IF;
1352: END IF;
1354: IF l_lines_table(l_index).to_organization_id IS NOT NULL THEN
1355: IF NOT Validate_Organization(
1356: P_ORGANIZATION_ID => l_lines_table(l_index).to_organization_id,
1357: P_ORG_ID => l_lines_table(l_index).to_org_id) THEN
1358: FND_MESSAGE.SET_NAME('INV','INV_INVALID_TO_ORGANIZATION');
1359: FND_MSG_PUB.ADD;
1360: RETURN FALSE;
1361: END IF;
1362: END IF;
1364: ELSE -- l_index
1365: IF NOT Validate_Organization(
1366: P_ORGANIZATION_ID => l_lines_table(l_index).from_organization_id,
1367: P_ORG_ID => l_lines_table(l_index).from_org_id) THEN
1368: FND_MESSAGE.SET_NAME('INV','INV_INVALID_FROM_ORGANIZATION');
1369: FND_MSG_PUB.ADD;
1370: RETURN FALSE;
1371: END IF;
1372: IF NOT Validate_Organization(
1371: END IF;
1372: IF NOT Validate_Organization(
1373: P_ORGANIZATION_ID => l_lines_table(l_index).to_organization_id,
1374: P_ORG_ID => l_lines_table(l_index).to_org_id) THEN
1375: FND_MESSAGE.SET_NAME('INV','INV_INVALID_TO_ORGANIZATION');
1376: FND_MSG_PUB.ADD;
1377: RETURN FALSE;
1378: END IF;
1379: END IF;
1401: Exception
1402: WHEN NO_DATA_FOUND THEN
1403: NULL;
1404: End;
1405: FND_MESSAGE.SET_NAME('INV','INV_DUPLICATE_OU');
1406: FND_MESSAGE.SET_TOKEN('FROM_TO','INV_FROM',TRUE);
1407: FND_MESSAGE.SET_TOKEN('OU',from_org_name,TRUE);
1408: FND_MSG_PUB.ADD;
1409: RETURN FALSE;
1402: WHEN NO_DATA_FOUND THEN
1403: NULL;
1404: End;
1405: FND_MESSAGE.SET_NAME('INV','INV_DUPLICATE_OU');
1406: FND_MESSAGE.SET_TOKEN('FROM_TO','INV_FROM',TRUE);
1407: FND_MESSAGE.SET_TOKEN('OU',from_org_name,TRUE);
1408: FND_MSG_PUB.ADD;
1409: RETURN FALSE;
1410: ELSE
1403: NULL;
1404: End;
1405: FND_MESSAGE.SET_NAME('INV','INV_DUPLICATE_OU');
1406: FND_MESSAGE.SET_TOKEN('FROM_TO','INV_FROM',TRUE);
1407: FND_MESSAGE.SET_TOKEN('OU',from_org_name,TRUE);
1408: FND_MSG_PUB.ADD;
1409: RETURN FALSE;
1410: ELSE
1411: l_from_orgs_tab(l_lines_table(l_index).from_org_id):=1;
1419: Exception
1420: WHEN NO_DATA_FOUND THEN
1421: NULL;
1422: End;
1423: FND_MESSAGE.SET_NAME('INV','INV_DUPLICATE_OU');
1424: FND_MESSAGE.SET_TOKEN('FROM_TO','INV_TO',TRUE);
1425: FND_MESSAGE.SET_TOKEN('OU',to_org_name,TRUE);
1426: FND_MSG_PUB.ADD;
1427: RETURN FALSE;
1420: WHEN NO_DATA_FOUND THEN
1421: NULL;
1422: End;
1423: FND_MESSAGE.SET_NAME('INV','INV_DUPLICATE_OU');
1424: FND_MESSAGE.SET_TOKEN('FROM_TO','INV_TO',TRUE);
1425: FND_MESSAGE.SET_TOKEN('OU',to_org_name,TRUE);
1426: FND_MSG_PUB.ADD;
1427: RETURN FALSE;
1428: ELSE
1421: NULL;
1422: End;
1423: FND_MESSAGE.SET_NAME('INV','INV_DUPLICATE_OU');
1424: FND_MESSAGE.SET_TOKEN('FROM_TO','INV_TO',TRUE);
1425: FND_MESSAGE.SET_TOKEN('OU',to_org_name,TRUE);
1426: FND_MSG_PUB.ADD;
1427: RETURN FALSE;
1428: ELSE
1429: l_to_orgs_tab(l_lines_table(l_index).from_org_id):=1;
1501: END;
1502:
1503: IF(l_count1=1)THEN
1504: --failure
1505: FND_MESSAGE.SET_NAME('INV','INV_NO_IC_RELATIONS');
1506: FND_MSG_PUB.ADD;
1507: RETURN FALSE;
1508: END IF;
1509: END IF;
1513:
1514: EXCEPTION
1515: WHEN NO_DATA_FOUND THEN
1516: -- failure
1517: FND_MESSAGE.SET_NAME('INV','INV_NO_IC_RELATIONS');
1518: FND_MSG_PUB.ADD;
1519: RETURN FALSE;
1520: END;
1521: END LOOP;--ic relations
1713: /* Check if the column is required and input column has been populated */
1714: IF l_enabled_segs(l_loop_index).required ='TRUE' and
1715: NOT l_txn_hdr_attr.exists(TO_NUMBER(substr(l_enabled_segs(l_loop_index).column_name,
1716: instr(l_enabled_segs(l_loop_index).column_name,'ATTRIBUTE')+9))) THEN
1717: FND_MESSAGE.SET_NAME('INV','INV_REQ_SEG_MISS');
1718: FND_MESSAGE.SET_TOKEN('SEGMENT',l_enabled_segs(l_loop_index).column_name,TRUE);
1719: FND_MSG_PUB.ADD;
1720: RETURN FALSE;
1721: END IF;
1714: IF l_enabled_segs(l_loop_index).required ='TRUE' and
1715: NOT l_txn_hdr_attr.exists(TO_NUMBER(substr(l_enabled_segs(l_loop_index).column_name,
1716: instr(l_enabled_segs(l_loop_index).column_name,'ATTRIBUTE')+9))) THEN
1717: FND_MESSAGE.SET_NAME('INV','INV_REQ_SEG_MISS');
1718: FND_MESSAGE.SET_TOKEN('SEGMENT',l_enabled_segs(l_loop_index).column_name,TRUE);
1719: FND_MSG_PUB.ADD;
1720: RETURN FALSE;
1721: END IF;
1722: if g_debug=1 then
1763: loop
1764: IF l_enabled_segs(l_loop_index).required ='TRUE' and
1765: NOT l_txn_hdr_attr.exists(TO_NUMBER(substr(l_enabled_segs(l_loop_index).column_name,
1766: instr(l_enabled_segs(l_loop_index).column_name,'ATTRIBUTE')+9))) THEN
1767: FND_MESSAGE.SET_NAME('INV','INV_REQ_SEG_MISS');
1768: FND_MESSAGE.SET_TOKEN('SEGMENT',l_enabled_segs(l_loop_index).column_name,TRUE);
1769: FND_MSG_PUB.ADD;
1770: RETURN FALSE;
1771: END IF;
1764: IF l_enabled_segs(l_loop_index).required ='TRUE' and
1765: NOT l_txn_hdr_attr.exists(TO_NUMBER(substr(l_enabled_segs(l_loop_index).column_name,
1766: instr(l_enabled_segs(l_loop_index).column_name,'ATTRIBUTE')+9))) THEN
1767: FND_MESSAGE.SET_NAME('INV','INV_REQ_SEG_MISS');
1768: FND_MESSAGE.SET_TOKEN('SEGMENT',l_enabled_segs(l_loop_index).column_name,TRUE);
1769: FND_MSG_PUB.ADD;
1770: RETURN FALSE;
1771: END IF;
1772: if g_debug=1 then
1810: END IF;
1811: l_index1 := l_txn_hdr_dff.next(l_index1);
1812: end loop;
1813: IF l_check_valid_seg <>1 THEN
1814: FND_MESSAGE.SET_NAME('INV','INV_WRONG_SEG_POPULATE');
1815: FND_MESSAGE.SET_TOKEN('SEGMENT',l_txn_hdr_attr(l_index),TRUE);
1816: FND_MESSAGE.SET_TOKEN('CONTEXT',P_ATTRIBUTE_CATEGORY,TRUE);
1817: FND_MSG_PUB.ADD;
1818: RETURN FALSE;
1811: l_index1 := l_txn_hdr_dff.next(l_index1);
1812: end loop;
1813: IF l_check_valid_seg <>1 THEN
1814: FND_MESSAGE.SET_NAME('INV','INV_WRONG_SEG_POPULATE');
1815: FND_MESSAGE.SET_TOKEN('SEGMENT',l_txn_hdr_attr(l_index),TRUE);
1816: FND_MESSAGE.SET_TOKEN('CONTEXT',P_ATTRIBUTE_CATEGORY,TRUE);
1817: FND_MSG_PUB.ADD;
1818: RETURN FALSE;
1819: END IF;
1812: end loop;
1813: IF l_check_valid_seg <>1 THEN
1814: FND_MESSAGE.SET_NAME('INV','INV_WRONG_SEG_POPULATE');
1815: FND_MESSAGE.SET_TOKEN('SEGMENT',l_txn_hdr_attr(l_index),TRUE);
1816: FND_MESSAGE.SET_TOKEN('CONTEXT',P_ATTRIBUTE_CATEGORY,TRUE);
1817: FND_MSG_PUB.ADD;
1818: RETURN FALSE;
1819: END IF;
1820: end if;
1841: error_msg := fnd_flex_descval.error_message;
1842: s := 1;
1843: e := 200;
1844: WHILE e < 5001 AND SUBSTR(error_msg, s, e) IS NOT NULL LOOP
1845: FND_MESSAGE.SET_NAME('INV','INV_FND_GENERIC_MSG');
1846: FND_MESSAGE.SET_TOKEN('MSG',SUBSTR(error_msg, s, e));
1847: FND_MSG_PUB.ADD;
1848: s := s + 200;
1849: e := e + 200;
1842: s := 1;
1843: e := 200;
1844: WHILE e < 5001 AND SUBSTR(error_msg, s, e) IS NOT NULL LOOP
1845: FND_MESSAGE.SET_NAME('INV','INV_FND_GENERIC_MSG');
1846: FND_MESSAGE.SET_TOKEN('MSG',SUBSTR(error_msg, s, e));
1847: FND_MSG_PUB.ADD;
1848: s := s + 200;
1849: e := e + 200;
1850: END LOOP;
1969: end if;
1970:
1971: -- validate operating units
1972: IF NOT Validate_Operating_Unit(p_start_org_id) THEN
1973: FND_MESSAGE.SET_NAME('INV','INV_INVALID_START_ORG');
1974: FND_MSG_PUB.ADD;
1975: RAISE FND_API.G_EXC_ERROR;
1976: END IF;
1977: --
1975: RAISE FND_API.G_EXC_ERROR;
1976: END IF;
1977: --
1978: IF NOT Validate_Operating_Unit(p_end_org_id) THEN
1979: FND_MESSAGE.SET_NAME('INV','INV_INVALID_END_ORG');
1980: FND_MSG_PUB.ADD;
1981: RAISE FND_API.G_EXC_ERROR;
1982: END IF;
1983: if g_debug=1 then
1984: debug('Start/End OU validated','Create_IC_Transaction_Flow');
1985: end if;
1986: -- Validate Flow Type
1987: IF p_flow_type NOT IN (1,2) THEN
1988: FND_MESSAGE.SET_NAME('INV','INV_INVALID_TRX_FLOW_TYPE');
1989: FND_MSG_PUB.ADD;
1990: RAISE FND_API.G_EXC_ERROR;
1991: --Bug 3439577 fix. Inline branching checks
1992: --For Procuring Flow with new accounting (we do not support old accounting for this type),
1996: --supported regardless of what patchset of Costing and INV is present
1997: ELSIF p_flow_type = 1 THEN --shipping
1998: IF p_new_accounting_flag IN ('Y','y')
1999: AND NOT(om_j_installed AND inv_j_installed AND costing_j_installed) THEN
2000: FND_MESSAGE.SET_NAME('INV','INV_NO_NEW_ACCT_FLOW');
2001: FND_MSG_PUB.ADD;
2002: RAISE FND_API.G_EXC_ERROR;
2003: END IF;
2004: ELSIF p_flow_type = 2 THEN --procuring
2002: RAISE FND_API.G_EXC_ERROR;
2003: END IF;
2004: ELSIF p_flow_type = 2 THEN --procuring
2005: IF NOT(po_j_installed AND inv_j_installed AND costing_j_installed) then
2006: FND_MESSAGE.SET_NAME('INV','INV_PROCURING_FLOW_NOT_ALLOWED');
2007: FND_MSG_PUB.ADD;
2008: RAISE FND_API.G_EXC_ERROR;
2009: END IF;
2010: END IF;
2010: END IF;
2011: -- validate for single ou setup
2012: IF p_start_org_id=p_end_org_id THEN
2013: IF p_flow_type<> 1 THEN
2014: FND_MESSAGE.SET_NAME('INV','INV_INVALID_TRX_FLOW_TYPE');
2015: FND_MSG_PUB.ADD;
2016: RAISE FND_API.G_EXC_ERROR;
2017: END IF;
2018: END IF;
2021: end if;
2022: -- Validate Organization
2023: IF p_flow_type=1 AND p_organization_id IS NOT NULL THEN
2024: IF NOT Validate_Organization(p_organization_id,p_start_org_id) THEN
2025: FND_MESSAGE.SET_NAME('INV','INV_INVALID_DOC_ORGANIZATION');
2026: FND_MSG_PUB.ADD;
2027: RAISE FND_API.G_EXC_ERROR;
2028: END IF;
2029: ELSIF p_flow_type=2 AND p_organization_id IS NOT NULL THEN
2027: RAISE FND_API.G_EXC_ERROR;
2028: END IF;
2029: ELSIF p_flow_type=2 AND p_organization_id IS NOT NULL THEN
2030: IF NOT Validate_Organization(p_organization_id,p_end_org_id) THEN
2031: FND_MESSAGE.SET_NAME('INV','INV_INVALID_DOC_ORGANIZATION');
2032: FND_MSG_PUB.ADD;
2033: RAISE FND_API.G_EXC_ERROR;
2034: END IF;
2035: END IF;
2037: debug('From/To Organization validated','Create_IC_Transaction_Flow');
2038: end if;
2039: -- Validate Qualifier Code
2040: IF NOT Validate_Qualifier_Code(p_qualifier_code) THEN
2041: FND_MESSAGE.SET_NAME('INV','INV_INVALID_QUALIFIER');
2042: FND_MSG_PUB.ADD;
2043: RAISE FND_API.G_EXC_ERROR;
2044: END IF;
2045: -- Validate Qualifier Value
2043: RAISE FND_API.G_EXC_ERROR;
2044: END IF;
2045: -- Validate Qualifier Value
2046: IF NOT Validate_Qualifier_Value(p_qualifier_code,p_qualifier_value_id,p_flow_type) THEN
2047: FND_MESSAGE.SET_NAME('INV','INV_INVALID_QUALIFIER_VALUE');
2048: FND_MSG_PUB.ADD;
2049: RAISE FND_API.G_EXC_ERROR;
2050: END IF;
2051: if g_debug=1 then
2053: end if;
2054: -- validate pricing options
2055: IF p_flow_type=1 THEN
2056: IF p_asset_item_pricing_option IS NOT NULL OR p_expense_item_pricing_option IS NOT NULL THEN
2057: FND_MESSAGE.SET_NAME('INV','INV_INVALID_PRICING_OPTION');
2058: FND_MSG_PUB.ADD;
2059: RAISE FND_API.G_EXC_ERROR;
2060: END IF;
2061: ELSE
2059: RAISE FND_API.G_EXC_ERROR;
2060: END IF;
2061: ELSE
2062: IF p_asset_item_pricing_option NOT IN(1,2) OR p_expense_item_pricing_option NOT IN (1,2) THEN
2063: FND_MESSAGE.SET_NAME('INV','INV_INVALID_PRICING_OPTION');
2064: FND_MSG_PUB.ADD;
2065: RAISE FND_API.G_EXC_ERROR;
2066: END IF;
2067: END IF;
2098: P_NEW_ACCOUNTING_FLAG => p_new_accounting_flag,
2099: P_NUM_LINES => p_lines_tab.count
2100: )
2101: THEN
2102: FND_MESSAGE.SET_NAME('INV','INV_INVALID_NEW_ACCT_FLAG');
2103: FND_MSG_PUB.ADD;
2104: RAISE FND_API.G_EXC_ERROR;
2105: END IF;
2106: if g_debug=1 then
2184: END IF;
2185: ELSE
2186: -- nodes cannot be created for single ou setups
2187: IF p_lines_tab.count>0 THEN
2188: FND_MESSAGE.SET_NAME('INV','INV_TRX_NODE_NOT_ALLOWED');
2189: FND_MSG_PUB.ADD;
2190: RAISE FND_API.G_EXC_ERROR;
2191: END IF;
2192: END IF;
2429: -- ACTION
2430: if g_debug=1 then
2431: debug('Failed to accuire lock for header','Update_IC_Transaction_Flow');
2432: end if;
2433: FND_MESSAGE.SET_NAME('INV','INV_LOCK_FAILED');
2434: FND_MSG_PUB.ADD;
2435: RAISE FND_API.G_EXC_ERROR;
2436: END;
2437:
2451: -- ACTION
2452: if g_debug=1 then
2453: debug('Failed to accuire lock for lines','Update_IC_Transaction_Flow');
2454: end if;
2455: FND_MESSAGE.SET_NAME('INV','INV_LOCK_FAILED');
2456: FND_MSG_PUB.ADD;
2457: RAISE FND_API.G_EXC_ERROR;
2458: END;
2459: IF p_start_date <> l_start_date THEN
2708: -- ACTION
2709: if g_debug=1 then
2710: debug('Failed to accuire lock for header','Update_IC_Txn_Flow_hdr');
2711: end if;
2712: FND_MESSAGE.SET_NAME('INV','INV_LOCK_FAILED');
2713: FND_MSG_PUB.ADD;
2714: RAISE FND_API.G_EXC_ERROR;
2715: END;
2716:
2883: -- ACTION
2884: if g_debug=1 then
2885: debug('Failed to accuire lock for lines','Update_IC_Txn_Flow_line');
2886: end if;
2887: FND_MESSAGE.SET_NAME('INV','INV_LOCK_FAILED');
2888: FND_MSG_PUB.ADD;
2889: RAISE FND_API.G_EXC_ERROR;
2890: END;
2891:
3197: OPEN C;
3198: FETCH C INTO Recinfo;
3199: if (C%NOTFOUND) then
3200: CLOSE C;
3201: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
3202: FND_MSG_PUB.ADD;
3203: APP_EXCEPTION.Raise_Exception;
3204: end if;
3205: CLOSE C;
3283:
3284: ) then
3285: return;
3286: else
3287: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
3288: FND_MSG_PUB.ADD;
3289: APP_EXCEPTION.Raise_Exception;
3290: end if;
3291: END Lock_Trx_Flow_Header;
3499: OPEN C;
3500: FETCH C INTO Recinfo;
3501: if (C%NOTFOUND) then
3502: CLOSE C;
3503: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
3504: FND_MSG_PUB.ADD;
3505: APP_EXCEPTION.Raise_Exception;
3506: end if;
3507: CLOSE C;
3569:
3570: ) then
3571: return;
3572: else
3573: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
3574: FND_MSG_PUB.ADD;
3575: APP_EXCEPTION.Raise_Exception;
3576: end if;
3577: END Lock_Trx_Flow_Lines;