[Home] [Help]
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:
221: /*=======================================================================================================*/
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: /*
252: -- start date should not fall between any other transaction
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
305: IF g_debug=1 THEN
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
331: -- no overlaping transaction flow exists
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
361: RETURN TRUE;
388: IF g_debug=1 THEN
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:
405: /*
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
430: -- no overlap for end_date>=p_start_date and p_end_date is null
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
462: BEGIN
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
487: 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
520: IF g_debug=1 THEN
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
718: NULL;
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
784: debug('The value of l_start_date is'||l_start_date,'Get_Default_Dates');
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;
872: RETURN TRUE;
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;
898: RETURN TRUE;
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;
945: RETURN TRUE;
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
983: NULL;
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
1009: WHEN NO_DATA_FOUND THEN
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
1026: NULL;
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;
1058: --clear cache
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;
1071: X_RETURN_STATUS:=FND_API.G_RET_STS_SUCCESS;
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
1094: debug('Start node found'||l_num_recs,'Create_Sorted_Table');
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
1114: debug('End node found'||l_num_recs,'Create_Sorted_Table');
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
1145: END IF;
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
1161: IF ( l_out_table(l_out_table.count-1).to_org_id <> l_out_table(l_out_table.count).from_org_id )
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;
1173:
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;
1231: END IF;
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;
1245:
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;
1263:
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;
1273: END IF;
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
1291: -- failure
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
1297: debug('From/To Org validated','Validate_Trx_Flow_Lines');
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
1320: if g_debug=1 then
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
1337: FND_MESSAGE.SET_NAME('INV','INV_INVALID_TO_OU');
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
1342: IF l_index=1 OR l_index=l_lines_table.count THEN -- first or last line organization can be null
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;
1353: ELSIF p_flow_type=2 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;
1363: END IF;
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(
1373: P_ORGANIZATION_ID => l_lines_table(l_index).to_organization_id,
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;
1380: END LOOP;--l_lines_table.count
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;
1412: END IF;
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;
1430: END IF;
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;
1510: END IF;
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
1522: if g_debug=1 then
1593:
1594: EXCEPTION
1595: WHEN OTHERS THEN
1596: X_RETURN_STATUS := 'E';
1597: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1598:
1599: END Txn_Flow_Dff;
1600:
1601:
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
1723: debug(' The column is '||l_enabled_segs(l_loop_index).column_name,'Validate_Dff');
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
1773: debug(' The column is for context '||l_enabled_segs(l_loop_index).column_name,'Validate_Dff');
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;
1821: l_check_valid_seg := 0;
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;
1851: RETURN FALSE;
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: --
1978: IF NOT Validate_Operating_Unit(p_end_org_id) THEN
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),
1993: --you need INV J and Costing J and PO J
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
2005: IF NOT(po_j_installed AND inv_j_installed AND costing_j_installed) then
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;
2011: -- validate for single ou setup
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;
2019: if g_debug=1 then
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
2030: IF NOT Validate_Organization(p_organization_id,p_end_org_id) THEN
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;
2036: if g_debug=1 then
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
2046: IF NOT Validate_Qualifier_Value(p_qualifier_code,p_qualifier_value_id,p_flow_type) THEN
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
2052: debug('Qualifier Code and Value validated','Create_IC_Transaction_Flow');
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
2062: IF p_asset_item_pricing_option NOT IN(1,2) OR p_expense_item_pricing_option NOT IN (1,2) THEN
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;
2068: if g_debug=1 then
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
2107: debug('New Accounting Flag validated','Create_IC_Transaction_Flow');
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;
2193: if g_debug=1 then
2340: EXCEPTION
2341: WHEN FND_API.G_EXC_ERROR THEN
2342: x_return_status:=FND_API.G_RET_STS_ERROR;
2343: ROLLBACK TO CREATE_IC_TRX_FLOW_SP;
2344: FND_MSG_PUB.COUNT_AND_GET(
2345: P_ENCODED=>'T',
2346: P_COUNT=>X_MSG_COUNT,
2347: P_DATA=>X_MSG_DATA);
2348: WHEN OTHERS THEN
2347: P_DATA=>X_MSG_DATA);
2348: WHEN OTHERS THEN
2349: x_return_status:=FND_API.G_RET_STS_UNEXP_ERROR;
2350: ROLLBACK TO CREATE_IC_TRX_FLOW_SP;
2351: FND_MSG_PUB.COUNT_AND_GET(
2352: P_ENCODED=>'T',
2353: P_COUNT=>X_MSG_COUNT,
2354: P_DATA=>X_MSG_DATA);
2355: END Create_IC_Transaction_Flow;
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:
2438: -- accuire lock for lines
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
2460: -- do the validation
2621: EXCEPTION
2622: WHEN FND_API.G_EXC_ERROR THEN
2623: x_return_status:=FND_API.G_RET_STS_ERROR;
2624: ROLLBACK TO UPDATE_IC_TRX_FLOW_SP;
2625: FND_MSG_PUB.COUNT_AND_GET(
2626: P_ENCODED=>'T',
2627: P_COUNT=>X_MSG_COUNT,
2628: P_DATA=>X_MSG_DATA);
2629: WHEN OTHERS THEN
2628: P_DATA=>X_MSG_DATA);
2629: WHEN OTHERS THEN
2630: x_return_status:=FND_API.G_RET_STS_UNEXP_ERROR;
2631: ROLLBACK TO UPDATE_IC_TRX_FLOW_SP;
2632: FND_MSG_PUB.COUNT_AND_GET(
2633: P_ENCODED=>'T',
2634: P_COUNT=>X_MSG_COUNT,
2635: P_DATA=>X_MSG_DATA);
2636: END;
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:
2717: IF p_start_date <> l_start_date THEN
2816: EXCEPTION
2817: WHEN FND_API.G_EXC_ERROR THEN
2818: x_return_status:=FND_API.G_RET_STS_ERROR;
2819: ROLLBACK TO UPDATE_IC_TRX_FLOW_HDR_SP;
2820: FND_MSG_PUB.COUNT_AND_GET(
2821: P_ENCODED=>'T',
2822: P_COUNT=>X_MSG_COUNT,
2823: P_DATA=>X_MSG_DATA);
2824: WHEN OTHERS THEN
2823: P_DATA=>X_MSG_DATA);
2824: WHEN OTHERS THEN
2825: x_return_status:=FND_API.G_RET_STS_UNEXP_ERROR;
2826: ROLLBACK TO UPDATE_IC_TRX_FLOW_HDR_SP;
2827: FND_MSG_PUB.COUNT_AND_GET(
2828: P_ENCODED=>'T',
2829: P_COUNT=>X_MSG_COUNT,
2830: P_DATA=>X_MSG_DATA);
2831: END;
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:
2892: --
2952: EXCEPTION
2953: WHEN FND_API.G_EXC_ERROR THEN
2954: x_return_status:=FND_API.G_RET_STS_ERROR;
2955: ROLLBACK TO UPDATE_IC_TRX_FLOW_LINE_SP;
2956: FND_MSG_PUB.COUNT_AND_GET(
2957: P_ENCODED=>'T',
2958: P_COUNT=>X_MSG_COUNT,
2959: P_DATA=>X_MSG_DATA);
2960: WHEN OTHERS THEN
2959: P_DATA=>X_MSG_DATA);
2960: WHEN OTHERS THEN
2961: x_return_status:=FND_API.G_RET_STS_UNEXP_ERROR;
2962: ROLLBACK TO UPDATE_IC_TRX_FLOW_LINE_SP;
2963: FND_MSG_PUB.COUNT_AND_GET(
2964: P_ENCODED=>'T',
2965: P_COUNT=>X_MSG_COUNT,
2966: P_DATA=>X_MSG_DATA);
2967: END;
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;
3206:
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;
3292:
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;
3508:
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;
3578: