DBA Data[Home] [Help]

APPS.HZ_GNR_GEN_PKG dependencies on FND_API

Line 384: x_status := FND_API.G_RET_STS_SUCCESS;

380:
381:
382: BEGIN
383: -- initializing the retun value
384: x_status := FND_API.G_RET_STS_SUCCESS;
385:
386: l(' ');
387: l('BEGIN ');
388:

Line 795: li(' P_LOCK_FLAG IN VARCHAR2 DEFAULT FND_API.G_TRUE,');

791: li(' P_ATTRIBUTE7 IN VARCHAR2,');
792: li(' P_ATTRIBUTE8 IN VARCHAR2,');
793: li(' P_ATTRIBUTE9 IN VARCHAR2,');
794: li(' P_ATTRIBUTE10 IN VARCHAR2,');
795: li(' P_LOCK_FLAG IN VARCHAR2 DEFAULT FND_API.G_TRUE,');
796: li(' X_CALL_MAP IN OUT NOCOPY VARCHAR2,');
797: li(' P_CALLED_FROM IN VARCHAR2,');
798: li(' P_ADDR_VAL_LEVEL IN VARCHAR2,');
799: li(' X_ADDR_WARN_MSG OUT NOCOPY VARCHAR2,');

Line 840: x_status := FND_API.g_ret_sts_success;

836: i number;
837: j number;
838:
839: BEGIN
840: x_status := FND_API.g_ret_sts_success;
841: i := 0;
842: IF G_USAGE_TBL.COUNT > 0 THEN
843: i := G_USAGE_TBL.FIRST;
844: LOOP

Line 893: l(' x_status := FND_API.g_ret_sts_success;');

889:
890: l(' ');
891: li('BEGIN ');
892: li(' -- defaulting the sucess status');
893: l(' x_status := FND_API.g_ret_sts_success;');
894: l(' L_MDU_TBL := '||l_mdu_tbl_name||';');
895: l(' LL_MDU_TBL := '||l_mdu_tbl_name||';');
896: l(' --hk_debugl(''Validate HR Loc Start for the location_id :''||p_location_id);');
897: l(' --hk_debugl(''The MDU table structure'');');

Line 930: l(' x_status := FND_API.g_ret_sts_success;');

926: l(' IF P_LOCATION_ID IS NOT NULL THEN');
927: l(' HZ_GNR_UTIL_PKG.create_gnr(P_LOCATION_ID,G_MAP_REC.LOC_TBL_NAME,');
928: l(' ''TAX'',''S'',l_loc_components_rec,''T'',L_MDU_TBL,l_status);');
929: l(' END IF;');
930: l(' x_status := FND_API.g_ret_sts_success;');
931: l(' RETURN;');
932: l(' END IF;');
933: l(' --hk_debugl(''L_MDU_TBL has count count more than 1'');');
934: l(' ');

Line 958: l(' x_status := FND_API.g_ret_sts_error;');

954: l(' FROM HR_LOCATIONS_ALL ');
955: l(' WHERE LOCATION_ID = P_LOCATION_ID;');
956: l(' ');
957: l(' EXCEPTION WHEN OTHERS THEN ');
958: l(' x_status := FND_API.g_ret_sts_error;');
959: l(' END; ');
960: END IF;
961: l(' --hk_debugl(''The MDU table after location components populated`'');');
962: l(' --hk_debugt(L_MDU_TBL);');

Line 1025: l(' x_status := FND_API.G_RET_STS_ERROR;');

1021: l(' );');
1022: l(' END IF; ');
1023: l(' ');
1024: l(' HZ_GNR_UTIL_PKG.fix_no_match(LL_MDU_TBL,x_status);');
1025: l(' x_status := FND_API.G_RET_STS_ERROR;');
1026: l(' ELSE ');
1027: l(' --Fetching once more to see where there are multiple records');
1028: l(' ');
1029: l(' IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN ');

Line 1089: l(' x_status := FND_API.G_RET_STS_ERROR;');

1085: l(' );');
1086: l(' END IF; ');
1087: l(' ');
1088: l(' LL_MDU_TBL := L_MDU_TBL;');
1089: l(' x_status := FND_API.G_RET_STS_ERROR;');
1090: l(' END IF; ');
1091: l(' CLOSE c_getGeo1;');
1092: l(' ');
1093:

Line 1107: l(' IF l_multiple_parent_flag = ''Y'' AND x_status <> FND_API.G_RET_STS_ERROR THEN');

1103: l(' );');
1104: l(' END IF; ');
1105: l(' END IF;');
1106: l(' ');
1107: l(' IF l_multiple_parent_flag = ''Y'' AND x_status <> FND_API.G_RET_STS_ERROR THEN');
1108: l(' --hk_debugl(''Multiple Parent Match found for the usage level search'');');
1109: l(' IF HZ_GNR_UTIL_PKG.fix_multiparent(l_geography_id,LL_MDU_TBL) = TRUE THEN');
1110: l(' --hk_debugl(''Sucessfully Fixed the Multiple Parent Case '');');
1111: l(' NULL;');

Line 1125: l(' x_status := FND_API.G_RET_STS_ERROR;');

1121: l(' );');
1122: l(' END IF; ');
1123: l(' ');
1124: l(' --hk_debugl(''Unable to Fix the Multiple Parent Case '');');
1125: l(' x_status := FND_API.G_RET_STS_ERROR;');
1126: l(' END IF;');
1127: l(' ELSE -- a unique record is found');
1128: l(' --hk_debugl(''Successfully found a unique record '');');
1129: l(' ');

Line 1144: l(' IF x_status = FND_API.G_RET_STS_SUCCESS THEN ');

1140: l(' END IF;');
1141: l(' END IF;');
1142: l(' CLOSE c_getGeo;');
1143: l(' ');
1144: l(' IF x_status = FND_API.G_RET_STS_SUCCESS THEN ');
1145: l(' --Following call will try to derive missing lower level compoents ');
1146: l(' --hk_debugl(''LL_MDU Table before Fix_child '');');
1147: l(' --hk_debugt(LL_MDU_TBL);');
1148: l(' ');

Line 1183: l(' IF x_status = FND_API.g_ret_sts_success THEN');

1179: l(' HZ_GNR_UTIL_PKG.fill_values(LL_MDU_TBL);');
1180: l(' --hk_debugl(''LL_MDU Table after HZ_GNR_UTIL_PKG.fill_values '');');
1181: l(' --hk_debugt(LL_MDU_TBL);');
1182: l(' ');
1183: l(' IF x_status = FND_API.g_ret_sts_success THEN');
1184: l(' ');
1185: l(' IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN ');
1186: l(' hz_utility_v2pub.debug ');
1187: l(' (p_message => '' Calling create_gnr with map status S.'',');

Line 1258: x_status := FND_API.g_ret_sts_success;

1254: l_usage_code varchar2(30);
1255: l_mdu_tbl_name varchar2(30);
1256:
1257: BEGIN
1258: x_status := FND_API.g_ret_sts_success;
1259: l(' ');
1260: -- write the header comments, procedure name
1261: l_procName := 'validateForMap';
1262: procBegin(l_procName);

Line 1312: li(' x_status := FND_API.g_ret_sts_success;');

1308: l(' END IF; ');
1309: l(' ');
1310: l(' --hk_debugl(''Validate for Map Start'');');
1311: li(' -- defaulting the sucess status');
1312: li(' x_status := FND_API.g_ret_sts_success;');
1313: l(' ');
1314: l(' L_MAP_DTLS_TBL := X_MAP_DTLS_TBL;');
1315: l(' --hk_debugl(''The Map table passed in with loc comp values'');');
1316: l(' --hk_debugt(L_MAP_DTLS_TBL);');

Line 1321: l(' x_status := FND_API.g_ret_sts_success;');

1317: l(' ');
1318: l(' IF L_MAP_DTLS_TBL.COUNT = 1 THEN');
1319: l(' -- This means country is the only required mapped column for validation.');
1320: l(' -- and country is already populated in the L_MAP_DTLS_TBL in the initialization section of this package.');
1321: l(' x_status := FND_API.g_ret_sts_success;');
1322: l(' RETURN;');
1323: l(' END IF;');
1324: l(' ');
1325: l(' IF HZ_GNR_UTIL_PKG.getLocCompCount(L_MAP_DTLS_TBL) = 0 THEN');

Line 1354: l(' x_status := FND_API.G_RET_STS_ERROR;');

1350: l(' );');
1351: l(' END IF; ');
1352: l(' ');
1353: -- l(' HZ_GNR_UTIL_PKG.fill_values(L_MAP_DTLS_TBL);');
1354: l(' x_status := FND_API.G_RET_STS_ERROR;');
1355: l(' X_MAP_DTLS_TBL := L_MAP_DTLS_TBL;');
1356: l(' RETURN;');
1357: l(' ELSE');
1358: l(' ');

Line 1370: l(' x_status := FND_API.G_RET_STS_SUCCESS;');

1366: l(' );');
1367: l(' END IF; ');
1368: l(' ');
1369: -- l(' HZ_GNR_UTIL_PKG.fill_values(L_MAP_DTLS_TBL);');
1370: l(' x_status := FND_API.G_RET_STS_SUCCESS;');
1371: l(' X_MAP_DTLS_TBL := L_MAP_DTLS_TBL;');
1372: l(' RETURN;');
1373: l(' END IF;');
1374: l(' END IF;');

Line 1454: l(' x_status := FND_API.G_RET_STS_ERROR;');

1450: l(' x_cause := ''NO_MATCH'';');
1451: l(' HZ_GNR_UTIL_PKG.fix_no_match(L_MAP_DTLS_TBL,x_status);');
1452: l(' --hk_debugl(''Map_loc table after Fix'');');
1453: l(' --hk_debugt(L_MAP_DTLS_TBL);');
1454: l(' x_status := FND_API.G_RET_STS_ERROR;');
1455: l(' ELSE ');
1456: l(' --Fetching once more to see where there are multiple records');
1457: l(' ');
1458: l(' IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN ');

Line 1522: l(' x_status := FND_API.G_RET_STS_ERROR; ');

1518: l(' ); ');
1519: l(' END IF; ');
1520: l(' ');
1521: l(' x_cause := ''MULTIPLE_MATCH''; ');
1522: l(' x_status := FND_API.G_RET_STS_ERROR; ');
1523: l(' RETURN; ');
1524: l(' END IF; ');
1525: l(' ');
1526: -------

Line 1540: l(' x_status := FND_API.G_RET_STS_ERROR;');

1536: l(' p_module => l_module');
1537: l(' );');
1538: l(' END IF; ');
1539: l(' ');
1540: l(' x_status := FND_API.G_RET_STS_ERROR;');
1541: l(' RETURN;');
1542: l(' END IF; ');
1543: l(' CLOSE c_getGeo1;');
1544: l(' ');

Line 1576: l(' x_status := FND_API.G_RET_STS_ERROR;');

1572: l(' END IF; ');
1573: l(' ');
1574: l(' x_cause := ''MULTIPLE_PARENT'';');
1575: l(' X_MAP_DTLS_TBL := L_MAP_DTLS_TBL;');
1576: l(' x_status := FND_API.G_RET_STS_ERROR;');
1577: l(' ');
1578: l(' IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN ');
1579: l(' hz_utility_v2pub.debug ');
1580: l(' (p_message => '' x_cause : ''||x_cause,');

Line 1635: l(' x_status := FND_API.G_RET_STS_ERROR;');

1631: l(' );');
1632: l(' END IF; ');
1633: l(' ');
1634: -- l(' HZ_GNR_UTIL_PKG.fill_values(L_MAP_DTLS_TBL);');
1635: l(' x_status := FND_API.G_RET_STS_ERROR;');
1636: l(' X_MAP_DTLS_TBL := L_MAP_DTLS_TBL;');
1637: l(' RETURN;');
1638: l(' END IF;');
1639: -- l(' HZ_GNR_UTIL_PKG.fill_values(L_MAP_DTLS_TBL);');

Line 1747: li(' x_status := FND_API.g_ret_sts_success;');

1743: -- procedure body
1744: li('BEGIN ');
1745: l(' ');
1746: li(' -- defaulting the sucess status');
1747: li(' x_status := FND_API.g_ret_sts_success;');
1748: l(' --hk_debugl(''Processing Location record with location_id :- ''||nvl(to_char(p_location_id),''NULL_LOCATION_ID''));');
1749: li(' l_loc_components_rec.COUNTRY := P_COUNTRY;');
1750: li(' l_loc_components_rec.STATE := P_STATE;');
1751: li(' l_loc_components_rec.PROVINCE := P_PROVINCE;');

Line 1800: l(' x_status := FND_API.g_ret_sts_success;');

1796: l(' p_module => l_module');
1797: l(' );');
1798: l(' END IF; ');
1799: l(' ');
1800: l(' x_status := FND_API.g_ret_sts_success;');
1801: l(' X_ADDR_VAL_STATUS := x_status;');
1802: l(' RETURN;');
1803: l(' END IF;');
1804: l(' END IF;');

Line 1857: l(' IF (x_status = FND_API.g_ret_sts_error) THEN ');

1853: l(' ');
1854: -- Check added on 19-APR-2006 (Part of fix for bug 5011366 ) by Nishant
1855: l(' -- This usage level check is required upfront because usage level validation will ignore ');
1856: l(' -- some of the passed in parameters for the complete mapping and may result in wrong status ');
1857: l(' IF (x_status = FND_API.g_ret_sts_error) THEN ');
1858: l(' ');
1859: l(' -- hk_debugl(''Trying to check if usage level validation is success even with map validation as error..''); ');
1860: l(' -- hk_debugl(''TABLE that is returned by Validate For Map''); ');
1861: l(' -- hk_debugt(LL_MAP_DTLS_TBL); ');

Line 1865: l(' IF HZ_GNR_UTIL_PKG.get_usage_val_status(LL_MAP_DTLS_TBL,L_MDU_TBL) = FND_API.G_RET_STS_SUCCESS THEN ');

1861: l(' -- hk_debugt(LL_MAP_DTLS_TBL); ');
1862: l(' -- hk_debugl(''Usage Map Table With loc comp values''); ');
1863: l(' -- hk_debugt(L_MDU_TBL); ');
1864: l(' ');
1865: l(' IF HZ_GNR_UTIL_PKG.get_usage_val_status(LL_MAP_DTLS_TBL,L_MDU_TBL) = FND_API.G_RET_STS_SUCCESS THEN ');
1866: l(' -- hk_debugl(''COMPLETE mapping is error but is sufficient for passed usage. So setting X_STATUS to success''); ');
1867: l(' x_status := FND_API.g_ret_sts_success; ');
1868: l(' ');
1869: l(' IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN ');

Line 1867: l(' x_status := FND_API.g_ret_sts_success; ');

1863: l(' -- hk_debugt(L_MDU_TBL); ');
1864: l(' ');
1865: l(' IF HZ_GNR_UTIL_PKG.get_usage_val_status(LL_MAP_DTLS_TBL,L_MDU_TBL) = FND_API.G_RET_STS_SUCCESS THEN ');
1866: l(' -- hk_debugl(''COMPLETE mapping is error but is sufficient for passed usage. So setting X_STATUS to success''); ');
1867: l(' x_status := FND_API.g_ret_sts_success; ');
1868: l(' ');
1869: l(' IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN ');
1870: l(' hz_utility_v2pub.debug ');
1871: l(' (p_message => ''COMPLETE mapping is error but is sufficient for passed usage. So setting X_STATUS to success'',');

Line 1884: l(' IF x_status = FND_API.g_ret_sts_success THEN');

1880: l(' END IF; ');
1881: l(' -------End of status check for usage level ----------+ ');
1882: l(' ');
1883: -- end of check addition (bug 5011366)
1884: l(' IF x_status = FND_API.g_ret_sts_success THEN');
1885: l(' --hk_debugt(LL_MAP_DTLS_TBL); ----- Code to display the output.');
1886: l(' -- Set the address validation status to success since x_statusis success ');
1887: l(' X_ADDR_VAL_STATUS := x_status;');
1888: l(' IF P_LOCATION_ID IS NOT NULL THEN');

Line 1928: l(' IF HZ_GNR_UTIL_PKG.get_usage_val_status(LL_MAP_DTLS_TBL,L_MDU_TBL) = FND_API.G_RET_STS_ERROR THEN');

1924: l(' );');
1925: l(' END IF; ');
1926: l(' ');
1927: l(' -- This means no usage level validation is required');
1928: l(' IF HZ_GNR_UTIL_PKG.get_usage_val_status(LL_MAP_DTLS_TBL,L_MDU_TBL) = FND_API.G_RET_STS_ERROR THEN');
1929: l(' ');
1930: l(' HZ_GNR_UTIL_PKG.fill_values(LL_MAP_DTLS_TBL);');
1931: l(' -- This below call is to derive the address validation status and set the message ');
1932: l(' X_ADDR_VAL_STATUS := HZ_GNR_UTIL_PKG.getAddrValStatus(LL_MAP_DTLS_TBL,L_MDU_TBL,P_CALLED_FROM,P_ADDR_VAL_LEVEL,x_addr_warn_msg,''E'',x_status);');

Line 1968: l(' x_status := FND_API.g_ret_sts_success;');

1964: l(' ');
1965: l(' HZ_GNR_UTIL_PKG.create_gnr(P_LOCATION_ID,G_MAP_REC.LOC_TBL_NAME,');
1966: l(' L_USAGE_CODE,''S'',L_LOC_COMPONENTS_REC,p_lock_flag,LL_MAP_DTLS_TBL,l_status);');
1967: l(' --hk_debugl(''Status after create_gnr : ''||l_status);');
1968: l(' x_status := FND_API.g_ret_sts_success;');
1969: l(' END IF;');
1970: l(' ');
1971: l(' X_CALL_MAP := ''N'';');
1972: l(' RETURN;');

Line 2009: l(' x_status := FND_API.g_ret_sts_success;');

2005: l(' HZ_GNR_UTIL_PKG.create_gnr(P_LOCATION_ID,G_MAP_REC.LOC_TBL_NAME,');
2006: l(' L_USAGE_CODE,''S'',L_LOC_COMPONENTS_REC,p_lock_flag,L_MDU_TBL,l_status);');
2007: l(' END IF;');
2008: l(' ');
2009: l(' x_status := FND_API.g_ret_sts_success;');
2010: l(' RETURN;');
2011: l(' END IF;');
2012: l(' --hk_debugl(''L_MDU_TBL has count count more than 1'');');
2013: l(' ');

Line 2088: l(' x_status := FND_API.G_RET_STS_ERROR;');

2084: l(' );');
2085: l(' END IF; ');
2086: l(' ');
2087: l(' HZ_GNR_UTIL_PKG.fix_no_match(LL_MAP_DTLS_TBL,x_status);');
2088: l(' x_status := FND_API.G_RET_STS_ERROR;');
2089: l(' ELSE ');
2090: l(' --Fetching once more to see where there are multiple records');
2091: l(' ');
2092: l(' IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN ');

Line 2157: l(' x_status := FND_API.G_RET_STS_ERROR; ');

2153: l(' END IF; ');
2154: l(' ');
2155: l(' LL_MAP_DTLS_TBL := L_MAP_DTLS_TBL; ');
2156: l(' HZ_GNR_UTIL_PKG.fix_no_match(LL_MAP_DTLS_TBL,x_status); ');
2157: l(' x_status := FND_API.G_RET_STS_ERROR; ');
2158: l(' END IF; ');
2159: l(' ');
2160: ----- End of fix for Bug 5011366 (Nishant)
2161: l(' ELSE -- Not able to found a unique record with identifier type as NAME');

Line 2174: l(' x_status := FND_API.G_RET_STS_ERROR;');

2170: l(' );');
2171: l(' END IF; ');
2172: l(' ');
2173: l(' LL_MAP_DTLS_TBL := L_MAP_DTLS_TBL;');
2174: l(' x_status := FND_API.G_RET_STS_ERROR;');
2175: l(' END IF; ');
2176: l(' CLOSE c_getGeo1;');
2177: l(' ');
2178: l(' ELSE -- a unique record or a record with multiple parent flag = Y is found');

Line 2192: l(' IF l_multiple_parent_flag = ''Y'' AND x_status <> FND_API.G_RET_STS_ERROR THEN');

2188: l(' END IF; ');
2189: l(' ');
2190: l(' END IF;');
2191: l(' ');
2192: l(' IF l_multiple_parent_flag = ''Y'' AND x_status <> FND_API.G_RET_STS_ERROR THEN');
2193: l(' IF HZ_GNR_UTIL_PKG.fix_multiparent(l_geography_id,LL_MAP_DTLS_TBL) = TRUE THEN');
2194: l(' NULL;');
2195: l(' ELSE -- Multiple parent case not able to find a unique record ');
2196: l(' ');

Line 2207: l(' x_status := FND_API.G_RET_STS_ERROR;');

2203: l(' p_module => l_module');
2204: l(' );');
2205: l(' END IF; ');
2206: l(' ');
2207: l(' x_status := FND_API.G_RET_STS_ERROR;');
2208: l(' END IF;');
2209: l(' ');
2210: l(' ELSE -- a unique record is found');
2211: l(' ');

Line 2269: l(' IF x_status = FND_API.g_ret_sts_success THEN');

2265: l(' HZ_GNR_UTIL_PKG.fill_values(LL_MAP_DTLS_TBL);');
2266: l(' --hk_debugl(''LL_MAP_DTLS_TBL after fill_values'');');
2267: l(' --hk_debugt(LL_MAP_DTLS_TBL);');
2268: l(' ');
2269: l(' IF x_status = FND_API.g_ret_sts_success THEN');
2270: l(' -- We need to call the getAddrValStatus only once. All other cases we are looking into x_call_map ');
2271: l(' -- In some case the below code will execute with the x_call_map as N ');
2272: l(' IF l_get_addr_val = ''Y'' THEN');
2273: l(' -- This below call is to derive the address validation status and set the message ');

Line 2353: x_status := FND_API.G_RET_STS_SUCCESS;

2349: -- 3. create the package tail
2350: --
2351:
2352: -- initializing the retun value
2353: x_status := FND_API.G_RET_STS_SUCCESS;
2354:
2355: genPkgSpecHdr(g_pkgName);
2356: -- known caveat: for srchGeoSpec - the procedure comments do not have all the
2357: -- input variables.

Line 2387: x_status := FND_API.G_RET_STS_SUCCESS;

2383: 3. generate the package tail
2384: */
2385:
2386: -- initializing the retun value
2387: x_status := FND_API.G_RET_STS_SUCCESS;
2388:
2389: -- package header
2390: genPkgBdyHdr(g_pkgName);
2391:

Line 2489: x_status := FND_API.G_RET_STS_SUCCESS;

2485:
2486: -- Hari 2 Lines
2487: g_type := 'S';
2488: -- initializing the retun value
2489: x_status := FND_API.G_RET_STS_SUCCESS;
2490:
2491: -- prepare the packge name
2492: x_pkgName := 'HZ_GNR_MAP'||p_map_rec.map_id;
2493: g_map_rec := p_map_rec;

Line 2500: IF x_status <> FND_API.G_RET_STS_SUCCESS THEN

2496: g_usage_dtls_tbl := p_usage_dtls_tbl;
2497: g_pkgName := x_pkgName;
2498:
2499: genSpec(x_status);
2500: IF x_status <> FND_API.G_RET_STS_SUCCESS THEN
2501: --dbms_output.put_line('genSpec in genPkg'||sqlerrm);
2502: RAISE FND_API.G_EXC_ERROR;
2503: END IF;
2504:

Line 2502: RAISE FND_API.G_EXC_ERROR;

2498:
2499: genSpec(x_status);
2500: IF x_status <> FND_API.G_RET_STS_SUCCESS THEN
2501: --dbms_output.put_line('genSpec in genPkg'||sqlerrm);
2502: RAISE FND_API.G_EXC_ERROR;
2503: END IF;
2504:
2505: -- Hari 1 Line
2506: g_type := 'B';

Line 2508: IF x_status <> FND_API.G_RET_STS_SUCCESS THEN

2504:
2505: -- Hari 1 Line
2506: g_type := 'B';
2507: genBody(x_status);
2508: IF x_status <> FND_API.G_RET_STS_SUCCESS THEN
2509: --dbms_output.put_line('genBody in genPkg'||sqlerrm);
2510: RAISE FND_API.G_EXC_ERROR;
2511: END IF;
2512:

Line 2510: RAISE FND_API.G_EXC_ERROR;

2506: g_type := 'B';
2507: genBody(x_status);
2508: IF x_status <> FND_API.G_RET_STS_SUCCESS THEN
2509: --dbms_output.put_line('genBody in genPkg'||sqlerrm);
2510: RAISE FND_API.G_EXC_ERROR;
2511: END IF;
2512:
2513: END genPkg;
2514: --------------------------------------

Line 2558: x_status := FND_API.G_RET_STS_SUCCESS;

2554: l_usage_dtls_exists varchar2(1);
2555:
2556: BEGIN
2557: -- initializing the retun value
2558: x_status := FND_API.G_RET_STS_SUCCESS;
2559: l_map_exists := 'N';
2560: FOR l_c_map IN c_map(p_map_id) LOOP -- only one record will be fetched
2561: l_map_exists := 'Y';
2562: l_map_rec.MAP_ID := l_c_map.MAP_ID;

Line 2578: x_status := FND_API.G_RET_STS_ERROR;

2574: l_map_dtls_tbl(m).loc_compval := null;
2575: l_map_dtls_tbl(m).geography_id := null;
2576: END LOOP;
2577: IF l_map_dtls_exists = 'N' THEN
2578: x_status := FND_API.G_RET_STS_ERROR;
2579: RAISE FND_API.G_EXC_ERROR;
2580: END IF;
2581: m :=0;
2582: l_usage_exists := 'N';

Line 2579: RAISE FND_API.G_EXC_ERROR;

2575: l_map_dtls_tbl(m).geography_id := null;
2576: END LOOP;
2577: IF l_map_dtls_exists = 'N' THEN
2578: x_status := FND_API.G_RET_STS_ERROR;
2579: RAISE FND_API.G_EXC_ERROR;
2580: END IF;
2581: m :=0;
2582: l_usage_exists := 'N';
2583: FOR l_c_usage in c_usage(p_map_id) LOOP

Line 2597: x_status := FND_API.G_RET_STS_ERROR;

2593: l_usage_dtls_tbl(n).USAGE_ID := l_c_usage_dtls.USAGE_ID;
2594: l_usage_dtls_tbl(n).GEOGRAPHY_TYPE := l_c_usage_dtls.GEOGRAPHY_TYPE;
2595: END LOOP;
2596: IF l_usage_dtls_exists = 'N' THEN
2597: x_status := FND_API.G_RET_STS_ERROR;
2598: RAISE FND_API.G_EXC_ERROR;
2599: END IF;
2600: END LOOP;
2601: IF l_usage_exists = 'N' THEN

Line 2598: RAISE FND_API.G_EXC_ERROR;

2594: l_usage_dtls_tbl(n).GEOGRAPHY_TYPE := l_c_usage_dtls.GEOGRAPHY_TYPE;
2595: END LOOP;
2596: IF l_usage_dtls_exists = 'N' THEN
2597: x_status := FND_API.G_RET_STS_ERROR;
2598: RAISE FND_API.G_EXC_ERROR;
2599: END IF;
2600: END LOOP;
2601: IF l_usage_exists = 'N' THEN
2602: x_status := FND_API.G_RET_STS_ERROR;

Line 2602: x_status := FND_API.G_RET_STS_ERROR;

2598: RAISE FND_API.G_EXC_ERROR;
2599: END IF;
2600: END LOOP;
2601: IF l_usage_exists = 'N' THEN
2602: x_status := FND_API.G_RET_STS_ERROR;
2603: RAISE FND_API.G_EXC_ERROR;
2604: END IF;
2605: END LOOP;
2606: IF l_map_exists = 'N' THEN

Line 2603: RAISE FND_API.G_EXC_ERROR;

2599: END IF;
2600: END LOOP;
2601: IF l_usage_exists = 'N' THEN
2602: x_status := FND_API.G_RET_STS_ERROR;
2603: RAISE FND_API.G_EXC_ERROR;
2604: END IF;
2605: END LOOP;
2606: IF l_map_exists = 'N' THEN
2607: x_status := FND_API.G_RET_STS_ERROR;

Line 2607: x_status := FND_API.G_RET_STS_ERROR;

2603: RAISE FND_API.G_EXC_ERROR;
2604: END IF;
2605: END LOOP;
2606: IF l_map_exists = 'N' THEN
2607: x_status := FND_API.G_RET_STS_ERROR;
2608: RAISE FND_API.G_EXC_ERROR;
2609: END IF;
2610:
2611: genpkg(l_map_rec,l_map_dtls_tbl,l_usage_tbl,l_usage_dtls_tbl,x_pkgname,x_status);

Line 2608: RAISE FND_API.G_EXC_ERROR;

2604: END IF;
2605: END LOOP;
2606: IF l_map_exists = 'N' THEN
2607: x_status := FND_API.G_RET_STS_ERROR;
2608: RAISE FND_API.G_EXC_ERROR;
2609: END IF;
2610:
2611: genpkg(l_map_rec,l_map_dtls_tbl,l_usage_tbl,l_usage_dtls_tbl,x_pkgname,x_status);
2612: END genPkg;