[Home] [Help]
1242: -- PROCEDURE add_language
1243: ---------------------------------------------------------------------------
1244: PROCEDURE add_language IS
1245: BEGIN
1246: DELETE FROM OKL_ASSET_CNDTN_LNS_TL T
1247: WHERE NOT EXISTS (
1248: SELECT NULL
1249: FROM OKL_AST_CNDTN_LNS_ALL_B B
1250: WHERE B.ID = T.ID
1249: FROM OKL_AST_CNDTN_LNS_ALL_B B
1250: WHERE B.ID = T.ID
1251: );
1252:
1253: UPDATE OKL_ASSET_CNDTN_LNS_TL T SET (
1254: DAMAGE_DESCRIPTION,
1255: CLAIM_DESCRIPTION,
1256: RECOMMENDED_REPAIR,
1257: PART_NAME) = (SELECT
1258: B.DAMAGE_DESCRIPTION,
1259: B.CLAIM_DESCRIPTION,
1260: B.RECOMMENDED_REPAIR,
1261: B.PART_NAME
1262: FROM OKL_ASSET_CNDTN_LNS_TL B
1263: WHERE B.ID = T.ID
1264: AND B.LANGUAGE = T.SOURCE_LANG)
1265: WHERE (
1266: T.ID,
1267: T.LANGUAGE)
1268: IN (SELECT
1269: SUBT.ID,
1270: SUBT.LANGUAGE
1271: FROM OKL_ASSET_CNDTN_LNS_TL SUBB, OKL_ASSET_CNDTN_LNS_TL SUBT
1272: WHERE SUBB.ID = SUBT.ID
1273: AND SUBB.LANGUAGE = SUBT.SOURCE_LANG
1274: AND (SUBB.DAMAGE_DESCRIPTION <> SUBT.DAMAGE_DESCRIPTION
1275: OR SUBB.CLAIM_DESCRIPTION <> SUBT.CLAIM_DESCRIPTION
1284: OR (SUBB.PART_NAME IS NULL AND SUBT.PART_NAME IS NOT NULL)
1285: OR (SUBB.PART_NAME IS NOT NULL AND SUBT.PART_NAME IS NULL)
1286: ));
1287:
1288: INSERT INTO OKL_ASSET_CNDTN_LNS_TL (
1289: ID,
1290: LANGUAGE,
1291: SOURCE_LANG,
1292: SFWT_FLAG,
1312: B.CREATION_DATE,
1313: B.LAST_UPDATED_BY,
1314: B.LAST_UPDATE_DATE,
1315: B.LAST_UPDATE_LOGIN
1316: FROM OKL_ASSET_CNDTN_LNS_TL B, FND_LANGUAGES L
1317: WHERE L.INSTALLED_FLAG IN ('I', 'B')
1318: AND B.LANGUAGE = USERENV('LANG')
1319: AND NOT EXISTS(
1320: SELECT NULL
1317: WHERE L.INSTALLED_FLAG IN ('I', 'B')
1318: AND B.LANGUAGE = USERENV('LANG')
1319: AND NOT EXISTS(
1320: SELECT NULL
1321: FROM OKL_ASSET_CNDTN_LNS_TL T
1322: WHERE T.ID = B.ID
1323: AND T.LANGUAGE = L.LANGUAGE_CODE
1324: );
1325:
1466: BEGIN
1467: RETURN(get_rec(p_acn_rec, l_row_notfound));
1468: END get_rec;
1469: ---------------------------------------------------------------------------
1470: -- FUNCTION get_rec for: OKL_ASSET_CNDTN_LNS_TL
1471: ---------------------------------------------------------------------------
1472: FUNCTION get_rec (
1473: p_okl_asset_cndtn_lns_tl_rec IN OklAssetCndtnLnsTlRecType,
1474: x_no_data_found OUT NOCOPY BOOLEAN
1469: ---------------------------------------------------------------------------
1470: -- FUNCTION get_rec for: OKL_ASSET_CNDTN_LNS_TL
1471: ---------------------------------------------------------------------------
1472: FUNCTION get_rec (
1473: p_okl_asset_cndtn_lns_tl_rec IN OklAssetCndtnLnsTlRecType,
1474: x_no_data_found OUT NOCOPY BOOLEAN
1475: ) RETURN OklAssetCndtnLnsTlRecType IS
1476: CURSOR okl_asset_cndtn_lns_tl_pk_csr (p_id IN NUMBER,
1477: p_language IN VARCHAR2) IS
1472: FUNCTION get_rec (
1473: p_okl_asset_cndtn_lns_tl_rec IN OklAssetCndtnLnsTlRecType,
1474: x_no_data_found OUT NOCOPY BOOLEAN
1475: ) RETURN OklAssetCndtnLnsTlRecType IS
1476: CURSOR okl_asset_cndtn_lns_tl_pk_csr (p_id IN NUMBER,
1477: p_language IN VARCHAR2) IS
1478: SELECT
1479: ID,
1480: LANGUAGE,
1488: CREATION_DATE,
1489: LAST_UPDATED_BY,
1490: LAST_UPDATE_DATE,
1491: LAST_UPDATE_LOGIN
1492: FROM Okl_Asset_Cndtn_Lns_Tl
1493: WHERE okl_asset_cndtn_lns_tl.id = p_id
1494: AND okl_asset_cndtn_lns_tl.language = p_language;
1495: l_okl_asset_cndtn_lns_tl_pk okl_asset_cndtn_lns_tl_pk_csr%ROWTYPE;
1496: l_okl_asset_cndtn_lns_tl_rec OklAssetCndtnLnsTlRecType;
1489: LAST_UPDATED_BY,
1490: LAST_UPDATE_DATE,
1491: LAST_UPDATE_LOGIN
1492: FROM Okl_Asset_Cndtn_Lns_Tl
1493: WHERE okl_asset_cndtn_lns_tl.id = p_id
1494: AND okl_asset_cndtn_lns_tl.language = p_language;
1495: l_okl_asset_cndtn_lns_tl_pk okl_asset_cndtn_lns_tl_pk_csr%ROWTYPE;
1496: l_okl_asset_cndtn_lns_tl_rec OklAssetCndtnLnsTlRecType;
1497: BEGIN
1490: LAST_UPDATE_DATE,
1491: LAST_UPDATE_LOGIN
1492: FROM Okl_Asset_Cndtn_Lns_Tl
1493: WHERE okl_asset_cndtn_lns_tl.id = p_id
1494: AND okl_asset_cndtn_lns_tl.language = p_language;
1495: l_okl_asset_cndtn_lns_tl_pk okl_asset_cndtn_lns_tl_pk_csr%ROWTYPE;
1496: l_okl_asset_cndtn_lns_tl_rec OklAssetCndtnLnsTlRecType;
1497: BEGIN
1498: x_no_data_found := TRUE;
1491: LAST_UPDATE_LOGIN
1492: FROM Okl_Asset_Cndtn_Lns_Tl
1493: WHERE okl_asset_cndtn_lns_tl.id = p_id
1494: AND okl_asset_cndtn_lns_tl.language = p_language;
1495: l_okl_asset_cndtn_lns_tl_pk okl_asset_cndtn_lns_tl_pk_csr%ROWTYPE;
1496: l_okl_asset_cndtn_lns_tl_rec OklAssetCndtnLnsTlRecType;
1497: BEGIN
1498: x_no_data_found := TRUE;
1499: -- Get current database values
1492: FROM Okl_Asset_Cndtn_Lns_Tl
1493: WHERE okl_asset_cndtn_lns_tl.id = p_id
1494: AND okl_asset_cndtn_lns_tl.language = p_language;
1495: l_okl_asset_cndtn_lns_tl_pk okl_asset_cndtn_lns_tl_pk_csr%ROWTYPE;
1496: l_okl_asset_cndtn_lns_tl_rec OklAssetCndtnLnsTlRecType;
1497: BEGIN
1498: x_no_data_found := TRUE;
1499: -- Get current database values
1500: OPEN okl_asset_cndtn_lns_tl_pk_csr (p_okl_asset_cndtn_lns_tl_rec.id,
1496: l_okl_asset_cndtn_lns_tl_rec OklAssetCndtnLnsTlRecType;
1497: BEGIN
1498: x_no_data_found := TRUE;
1499: -- Get current database values
1500: OPEN okl_asset_cndtn_lns_tl_pk_csr (p_okl_asset_cndtn_lns_tl_rec.id,
1501: p_okl_asset_cndtn_lns_tl_rec.language);
1502: FETCH okl_asset_cndtn_lns_tl_pk_csr INTO
1503: l_okl_asset_cndtn_lns_tl_rec.ID,
1504: l_okl_asset_cndtn_lns_tl_rec.LANGUAGE,
1497: BEGIN
1498: x_no_data_found := TRUE;
1499: -- Get current database values
1500: OPEN okl_asset_cndtn_lns_tl_pk_csr (p_okl_asset_cndtn_lns_tl_rec.id,
1501: p_okl_asset_cndtn_lns_tl_rec.language);
1502: FETCH okl_asset_cndtn_lns_tl_pk_csr INTO
1503: l_okl_asset_cndtn_lns_tl_rec.ID,
1504: l_okl_asset_cndtn_lns_tl_rec.LANGUAGE,
1505: l_okl_asset_cndtn_lns_tl_rec.SOURCE_LANG,
1498: x_no_data_found := TRUE;
1499: -- Get current database values
1500: OPEN okl_asset_cndtn_lns_tl_pk_csr (p_okl_asset_cndtn_lns_tl_rec.id,
1501: p_okl_asset_cndtn_lns_tl_rec.language);
1502: FETCH okl_asset_cndtn_lns_tl_pk_csr INTO
1503: l_okl_asset_cndtn_lns_tl_rec.ID,
1504: l_okl_asset_cndtn_lns_tl_rec.LANGUAGE,
1505: l_okl_asset_cndtn_lns_tl_rec.SOURCE_LANG,
1506: l_okl_asset_cndtn_lns_tl_rec.SFWT_FLAG,
1499: -- Get current database values
1500: OPEN okl_asset_cndtn_lns_tl_pk_csr (p_okl_asset_cndtn_lns_tl_rec.id,
1501: p_okl_asset_cndtn_lns_tl_rec.language);
1502: FETCH okl_asset_cndtn_lns_tl_pk_csr INTO
1503: l_okl_asset_cndtn_lns_tl_rec.ID,
1504: l_okl_asset_cndtn_lns_tl_rec.LANGUAGE,
1505: l_okl_asset_cndtn_lns_tl_rec.SOURCE_LANG,
1506: l_okl_asset_cndtn_lns_tl_rec.SFWT_FLAG,
1507: l_okl_asset_cndtn_lns_tl_rec.DAMAGE_DESCRIPTION,
1500: OPEN okl_asset_cndtn_lns_tl_pk_csr (p_okl_asset_cndtn_lns_tl_rec.id,
1501: p_okl_asset_cndtn_lns_tl_rec.language);
1502: FETCH okl_asset_cndtn_lns_tl_pk_csr INTO
1503: l_okl_asset_cndtn_lns_tl_rec.ID,
1504: l_okl_asset_cndtn_lns_tl_rec.LANGUAGE,
1505: l_okl_asset_cndtn_lns_tl_rec.SOURCE_LANG,
1506: l_okl_asset_cndtn_lns_tl_rec.SFWT_FLAG,
1507: l_okl_asset_cndtn_lns_tl_rec.DAMAGE_DESCRIPTION,
1508: l_okl_asset_cndtn_lns_tl_rec.CLAIM_DESCRIPTION,
1501: p_okl_asset_cndtn_lns_tl_rec.language);
1502: FETCH okl_asset_cndtn_lns_tl_pk_csr INTO
1503: l_okl_asset_cndtn_lns_tl_rec.ID,
1504: l_okl_asset_cndtn_lns_tl_rec.LANGUAGE,
1505: l_okl_asset_cndtn_lns_tl_rec.SOURCE_LANG,
1506: l_okl_asset_cndtn_lns_tl_rec.SFWT_FLAG,
1507: l_okl_asset_cndtn_lns_tl_rec.DAMAGE_DESCRIPTION,
1508: l_okl_asset_cndtn_lns_tl_rec.CLAIM_DESCRIPTION,
1509: l_okl_asset_cndtn_lns_tl_rec.RECOMMENDED_REPAIR,
1502: FETCH okl_asset_cndtn_lns_tl_pk_csr INTO
1503: l_okl_asset_cndtn_lns_tl_rec.ID,
1504: l_okl_asset_cndtn_lns_tl_rec.LANGUAGE,
1505: l_okl_asset_cndtn_lns_tl_rec.SOURCE_LANG,
1506: l_okl_asset_cndtn_lns_tl_rec.SFWT_FLAG,
1507: l_okl_asset_cndtn_lns_tl_rec.DAMAGE_DESCRIPTION,
1508: l_okl_asset_cndtn_lns_tl_rec.CLAIM_DESCRIPTION,
1509: l_okl_asset_cndtn_lns_tl_rec.RECOMMENDED_REPAIR,
1510: l_okl_asset_cndtn_lns_tl_rec.PART_NAME,
1503: l_okl_asset_cndtn_lns_tl_rec.ID,
1504: l_okl_asset_cndtn_lns_tl_rec.LANGUAGE,
1505: l_okl_asset_cndtn_lns_tl_rec.SOURCE_LANG,
1506: l_okl_asset_cndtn_lns_tl_rec.SFWT_FLAG,
1507: l_okl_asset_cndtn_lns_tl_rec.DAMAGE_DESCRIPTION,
1508: l_okl_asset_cndtn_lns_tl_rec.CLAIM_DESCRIPTION,
1509: l_okl_asset_cndtn_lns_tl_rec.RECOMMENDED_REPAIR,
1510: l_okl_asset_cndtn_lns_tl_rec.PART_NAME,
1511: l_okl_asset_cndtn_lns_tl_rec.CREATED_BY,
1504: l_okl_asset_cndtn_lns_tl_rec.LANGUAGE,
1505: l_okl_asset_cndtn_lns_tl_rec.SOURCE_LANG,
1506: l_okl_asset_cndtn_lns_tl_rec.SFWT_FLAG,
1507: l_okl_asset_cndtn_lns_tl_rec.DAMAGE_DESCRIPTION,
1508: l_okl_asset_cndtn_lns_tl_rec.CLAIM_DESCRIPTION,
1509: l_okl_asset_cndtn_lns_tl_rec.RECOMMENDED_REPAIR,
1510: l_okl_asset_cndtn_lns_tl_rec.PART_NAME,
1511: l_okl_asset_cndtn_lns_tl_rec.CREATED_BY,
1512: l_okl_asset_cndtn_lns_tl_rec.CREATION_DATE,
1505: l_okl_asset_cndtn_lns_tl_rec.SOURCE_LANG,
1506: l_okl_asset_cndtn_lns_tl_rec.SFWT_FLAG,
1507: l_okl_asset_cndtn_lns_tl_rec.DAMAGE_DESCRIPTION,
1508: l_okl_asset_cndtn_lns_tl_rec.CLAIM_DESCRIPTION,
1509: l_okl_asset_cndtn_lns_tl_rec.RECOMMENDED_REPAIR,
1510: l_okl_asset_cndtn_lns_tl_rec.PART_NAME,
1511: l_okl_asset_cndtn_lns_tl_rec.CREATED_BY,
1512: l_okl_asset_cndtn_lns_tl_rec.CREATION_DATE,
1513: l_okl_asset_cndtn_lns_tl_rec.LAST_UPDATED_BY,
1506: l_okl_asset_cndtn_lns_tl_rec.SFWT_FLAG,
1507: l_okl_asset_cndtn_lns_tl_rec.DAMAGE_DESCRIPTION,
1508: l_okl_asset_cndtn_lns_tl_rec.CLAIM_DESCRIPTION,
1509: l_okl_asset_cndtn_lns_tl_rec.RECOMMENDED_REPAIR,
1510: l_okl_asset_cndtn_lns_tl_rec.PART_NAME,
1511: l_okl_asset_cndtn_lns_tl_rec.CREATED_BY,
1512: l_okl_asset_cndtn_lns_tl_rec.CREATION_DATE,
1513: l_okl_asset_cndtn_lns_tl_rec.LAST_UPDATED_BY,
1514: l_okl_asset_cndtn_lns_tl_rec.LAST_UPDATE_DATE,
1507: l_okl_asset_cndtn_lns_tl_rec.DAMAGE_DESCRIPTION,
1508: l_okl_asset_cndtn_lns_tl_rec.CLAIM_DESCRIPTION,
1509: l_okl_asset_cndtn_lns_tl_rec.RECOMMENDED_REPAIR,
1510: l_okl_asset_cndtn_lns_tl_rec.PART_NAME,
1511: l_okl_asset_cndtn_lns_tl_rec.CREATED_BY,
1512: l_okl_asset_cndtn_lns_tl_rec.CREATION_DATE,
1513: l_okl_asset_cndtn_lns_tl_rec.LAST_UPDATED_BY,
1514: l_okl_asset_cndtn_lns_tl_rec.LAST_UPDATE_DATE,
1515: l_okl_asset_cndtn_lns_tl_rec.LAST_UPDATE_LOGIN;
1508: l_okl_asset_cndtn_lns_tl_rec.CLAIM_DESCRIPTION,
1509: l_okl_asset_cndtn_lns_tl_rec.RECOMMENDED_REPAIR,
1510: l_okl_asset_cndtn_lns_tl_rec.PART_NAME,
1511: l_okl_asset_cndtn_lns_tl_rec.CREATED_BY,
1512: l_okl_asset_cndtn_lns_tl_rec.CREATION_DATE,
1513: l_okl_asset_cndtn_lns_tl_rec.LAST_UPDATED_BY,
1514: l_okl_asset_cndtn_lns_tl_rec.LAST_UPDATE_DATE,
1515: l_okl_asset_cndtn_lns_tl_rec.LAST_UPDATE_LOGIN;
1516: x_no_data_found := okl_asset_cndtn_lns_tl_pk_csr%NOTFOUND;
1509: l_okl_asset_cndtn_lns_tl_rec.RECOMMENDED_REPAIR,
1510: l_okl_asset_cndtn_lns_tl_rec.PART_NAME,
1511: l_okl_asset_cndtn_lns_tl_rec.CREATED_BY,
1512: l_okl_asset_cndtn_lns_tl_rec.CREATION_DATE,
1513: l_okl_asset_cndtn_lns_tl_rec.LAST_UPDATED_BY,
1514: l_okl_asset_cndtn_lns_tl_rec.LAST_UPDATE_DATE,
1515: l_okl_asset_cndtn_lns_tl_rec.LAST_UPDATE_LOGIN;
1516: x_no_data_found := okl_asset_cndtn_lns_tl_pk_csr%NOTFOUND;
1517: CLOSE okl_asset_cndtn_lns_tl_pk_csr;
1510: l_okl_asset_cndtn_lns_tl_rec.PART_NAME,
1511: l_okl_asset_cndtn_lns_tl_rec.CREATED_BY,
1512: l_okl_asset_cndtn_lns_tl_rec.CREATION_DATE,
1513: l_okl_asset_cndtn_lns_tl_rec.LAST_UPDATED_BY,
1514: l_okl_asset_cndtn_lns_tl_rec.LAST_UPDATE_DATE,
1515: l_okl_asset_cndtn_lns_tl_rec.LAST_UPDATE_LOGIN;
1516: x_no_data_found := okl_asset_cndtn_lns_tl_pk_csr%NOTFOUND;
1517: CLOSE okl_asset_cndtn_lns_tl_pk_csr;
1518: RETURN(l_okl_asset_cndtn_lns_tl_rec);
1511: l_okl_asset_cndtn_lns_tl_rec.CREATED_BY,
1512: l_okl_asset_cndtn_lns_tl_rec.CREATION_DATE,
1513: l_okl_asset_cndtn_lns_tl_rec.LAST_UPDATED_BY,
1514: l_okl_asset_cndtn_lns_tl_rec.LAST_UPDATE_DATE,
1515: l_okl_asset_cndtn_lns_tl_rec.LAST_UPDATE_LOGIN;
1516: x_no_data_found := okl_asset_cndtn_lns_tl_pk_csr%NOTFOUND;
1517: CLOSE okl_asset_cndtn_lns_tl_pk_csr;
1518: RETURN(l_okl_asset_cndtn_lns_tl_rec);
1519: END get_rec;
1512: l_okl_asset_cndtn_lns_tl_rec.CREATION_DATE,
1513: l_okl_asset_cndtn_lns_tl_rec.LAST_UPDATED_BY,
1514: l_okl_asset_cndtn_lns_tl_rec.LAST_UPDATE_DATE,
1515: l_okl_asset_cndtn_lns_tl_rec.LAST_UPDATE_LOGIN;
1516: x_no_data_found := okl_asset_cndtn_lns_tl_pk_csr%NOTFOUND;
1517: CLOSE okl_asset_cndtn_lns_tl_pk_csr;
1518: RETURN(l_okl_asset_cndtn_lns_tl_rec);
1519: END get_rec;
1520:
1513: l_okl_asset_cndtn_lns_tl_rec.LAST_UPDATED_BY,
1514: l_okl_asset_cndtn_lns_tl_rec.LAST_UPDATE_DATE,
1515: l_okl_asset_cndtn_lns_tl_rec.LAST_UPDATE_LOGIN;
1516: x_no_data_found := okl_asset_cndtn_lns_tl_pk_csr%NOTFOUND;
1517: CLOSE okl_asset_cndtn_lns_tl_pk_csr;
1518: RETURN(l_okl_asset_cndtn_lns_tl_rec);
1519: END get_rec;
1520:
1521: FUNCTION get_rec (
1514: l_okl_asset_cndtn_lns_tl_rec.LAST_UPDATE_DATE,
1515: l_okl_asset_cndtn_lns_tl_rec.LAST_UPDATE_LOGIN;
1516: x_no_data_found := okl_asset_cndtn_lns_tl_pk_csr%NOTFOUND;
1517: CLOSE okl_asset_cndtn_lns_tl_pk_csr;
1518: RETURN(l_okl_asset_cndtn_lns_tl_rec);
1519: END get_rec;
1520:
1521: FUNCTION get_rec (
1522: p_okl_asset_cndtn_lns_tl_rec IN OklAssetCndtnLnsTlRecType
1518: RETURN(l_okl_asset_cndtn_lns_tl_rec);
1519: END get_rec;
1520:
1521: FUNCTION get_rec (
1522: p_okl_asset_cndtn_lns_tl_rec IN OklAssetCndtnLnsTlRecType
1523: ) RETURN OklAssetCndtnLnsTlRecType IS
1524: l_row_notfound BOOLEAN := TRUE;
1525: BEGIN
1526: RETURN(get_rec(p_okl_asset_cndtn_lns_tl_rec, l_row_notfound));
1522: p_okl_asset_cndtn_lns_tl_rec IN OklAssetCndtnLnsTlRecType
1523: ) RETURN OklAssetCndtnLnsTlRecType IS
1524: l_row_notfound BOOLEAN := TRUE;
1525: BEGIN
1526: RETURN(get_rec(p_okl_asset_cndtn_lns_tl_rec, l_row_notfound));
1527: END get_rec;
1528: ---------------------------------------------------------------------------
1529: -- FUNCTION get_rec for: OKL_ASSET_CNDTN_LNS_V
1530: ---------------------------------------------------------------------------
2296: l_api_name CONSTANT VARCHAR2(30) := 'V_validate_row';
2297: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2298: l_acnv_rec acnv_rec_type := p_acnv_rec;
2299: l_acn_rec acn_rec_type;
2300: l_okl_asset_cndtn_lns_tl_rec OklAssetCndtnLnsTlRecType;
2301: BEGIN
2302: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2303: G_PKG_NAME,
2304: p_init_msg_list,
2645: '_PVT'
2646: );
2647: END insert_row;
2648: -------------------------------------------
2649: -- insert_row for:OKL_ASSET_CNDTN_LNS_TL --
2650: -------------------------------------------
2651: PROCEDURE insert_row(
2652: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2653: x_return_status OUT NOCOPY VARCHAR2,
2652: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2653: x_return_status OUT NOCOPY VARCHAR2,
2654: x_msg_count OUT NOCOPY NUMBER,
2655: x_msg_data OUT NOCOPY VARCHAR2,
2656: p_okl_asset_cndtn_lns_tl_rec IN OklAssetCndtnLnsTlRecType,
2657: x_okl_asset_cndtn_lns_tl_rec OUT NOCOPY OklAssetCndtnLnsTlRecType) IS
2658:
2659: l_api_version CONSTANT NUMBER := 1;
2660: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
2653: x_return_status OUT NOCOPY VARCHAR2,
2654: x_msg_count OUT NOCOPY NUMBER,
2655: x_msg_data OUT NOCOPY VARCHAR2,
2656: p_okl_asset_cndtn_lns_tl_rec IN OklAssetCndtnLnsTlRecType,
2657: x_okl_asset_cndtn_lns_tl_rec OUT NOCOPY OklAssetCndtnLnsTlRecType) IS
2658:
2659: l_api_version CONSTANT NUMBER := 1;
2660: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
2661: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2658:
2659: l_api_version CONSTANT NUMBER := 1;
2660: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
2661: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2662: l_okl_asset_cndtn_lns_tl_rec OklAssetCndtnLnsTlRecType := p_okl_asset_cndtn_lns_tl_rec;
2663: ldefoklassetcndtnlnstlrec OklAssetCndtnLnsTlRecType;
2664: CURSOR get_languages IS
2665: SELECT *
2666: FROM FND_LANGUAGES
2665: SELECT *
2666: FROM FND_LANGUAGES
2667: WHERE INSTALLED_FLAG IN ('I', 'B');
2668: -----------------------------------------------
2669: -- Set_Attributes for:OKL_ASSET_CNDTN_LNS_TL --
2670: -----------------------------------------------
2671: FUNCTION Set_Attributes (
2672: p_okl_asset_cndtn_lns_tl_rec IN OklAssetCndtnLnsTlRecType,
2673: x_okl_asset_cndtn_lns_tl_rec OUT NOCOPY OklAssetCndtnLnsTlRecType
2668: -----------------------------------------------
2669: -- Set_Attributes for:OKL_ASSET_CNDTN_LNS_TL --
2670: -----------------------------------------------
2671: FUNCTION Set_Attributes (
2672: p_okl_asset_cndtn_lns_tl_rec IN OklAssetCndtnLnsTlRecType,
2673: x_okl_asset_cndtn_lns_tl_rec OUT NOCOPY OklAssetCndtnLnsTlRecType
2674: ) RETURN VARCHAR2 IS
2675: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2676: BEGIN
2669: -- Set_Attributes for:OKL_ASSET_CNDTN_LNS_TL --
2670: -----------------------------------------------
2671: FUNCTION Set_Attributes (
2672: p_okl_asset_cndtn_lns_tl_rec IN OklAssetCndtnLnsTlRecType,
2673: x_okl_asset_cndtn_lns_tl_rec OUT NOCOPY OklAssetCndtnLnsTlRecType
2674: ) RETURN VARCHAR2 IS
2675: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2676: BEGIN
2677: x_okl_asset_cndtn_lns_tl_rec := p_okl_asset_cndtn_lns_tl_rec;
2673: x_okl_asset_cndtn_lns_tl_rec OUT NOCOPY OklAssetCndtnLnsTlRecType
2674: ) RETURN VARCHAR2 IS
2675: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2676: BEGIN
2677: x_okl_asset_cndtn_lns_tl_rec := p_okl_asset_cndtn_lns_tl_rec;
2678: x_okl_asset_cndtn_lns_tl_rec.LANGUAGE := USERENV('LANG');
2679: x_okl_asset_cndtn_lns_tl_rec.SOURCE_LANG := USERENV('LANG');
2680: RETURN(l_return_status);
2681: END Set_Attributes;
2674: ) RETURN VARCHAR2 IS
2675: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2676: BEGIN
2677: x_okl_asset_cndtn_lns_tl_rec := p_okl_asset_cndtn_lns_tl_rec;
2678: x_okl_asset_cndtn_lns_tl_rec.LANGUAGE := USERENV('LANG');
2679: x_okl_asset_cndtn_lns_tl_rec.SOURCE_LANG := USERENV('LANG');
2680: RETURN(l_return_status);
2681: END Set_Attributes;
2682: BEGIN
2675: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2676: BEGIN
2677: x_okl_asset_cndtn_lns_tl_rec := p_okl_asset_cndtn_lns_tl_rec;
2678: x_okl_asset_cndtn_lns_tl_rec.LANGUAGE := USERENV('LANG');
2679: x_okl_asset_cndtn_lns_tl_rec.SOURCE_LANG := USERENV('LANG');
2680: RETURN(l_return_status);
2681: END Set_Attributes;
2682: BEGIN
2683: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2690: RAISE OKC_API.G_EXCEPTION_ERROR;
2691: END IF;
2692: --- Setting item attributes
2693: l_return_status := Set_Attributes(
2694: p_okl_asset_cndtn_lns_tl_rec, -- IN
2695: l_okl_asset_cndtn_lns_tl_rec); -- OUT
2696: --- If any errors happen abort API
2697: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2698: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2691: END IF;
2692: --- Setting item attributes
2693: l_return_status := Set_Attributes(
2694: p_okl_asset_cndtn_lns_tl_rec, -- IN
2695: l_okl_asset_cndtn_lns_tl_rec); -- OUT
2696: --- If any errors happen abort API
2697: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2698: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2699: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2699: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2700: RAISE OKC_API.G_EXCEPTION_ERROR;
2701: END IF;
2702: FOR l_lang_rec IN get_languages LOOP
2703: l_okl_asset_cndtn_lns_tl_rec.language := l_lang_rec.language_code;
2704: INSERT INTO OKL_ASSET_CNDTN_LNS_TL(
2705: id,
2706: language,
2707: source_lang,
2700: RAISE OKC_API.G_EXCEPTION_ERROR;
2701: END IF;
2702: FOR l_lang_rec IN get_languages LOOP
2703: l_okl_asset_cndtn_lns_tl_rec.language := l_lang_rec.language_code;
2704: INSERT INTO OKL_ASSET_CNDTN_LNS_TL(
2705: id,
2706: language,
2707: source_lang,
2708: sfwt_flag,
2715: last_updated_by,
2716: last_update_date,
2717: last_update_login)
2718: VALUES (
2719: l_okl_asset_cndtn_lns_tl_rec.id,
2720: l_okl_asset_cndtn_lns_tl_rec.language,
2721: l_okl_asset_cndtn_lns_tl_rec.source_lang,
2722: l_okl_asset_cndtn_lns_tl_rec.sfwt_flag,
2723: l_okl_asset_cndtn_lns_tl_rec.damage_description,
2716: last_update_date,
2717: last_update_login)
2718: VALUES (
2719: l_okl_asset_cndtn_lns_tl_rec.id,
2720: l_okl_asset_cndtn_lns_tl_rec.language,
2721: l_okl_asset_cndtn_lns_tl_rec.source_lang,
2722: l_okl_asset_cndtn_lns_tl_rec.sfwt_flag,
2723: l_okl_asset_cndtn_lns_tl_rec.damage_description,
2724: l_okl_asset_cndtn_lns_tl_rec.claim_description,
2717: last_update_login)
2718: VALUES (
2719: l_okl_asset_cndtn_lns_tl_rec.id,
2720: l_okl_asset_cndtn_lns_tl_rec.language,
2721: l_okl_asset_cndtn_lns_tl_rec.source_lang,
2722: l_okl_asset_cndtn_lns_tl_rec.sfwt_flag,
2723: l_okl_asset_cndtn_lns_tl_rec.damage_description,
2724: l_okl_asset_cndtn_lns_tl_rec.claim_description,
2725: l_okl_asset_cndtn_lns_tl_rec.recommended_repair,
2718: VALUES (
2719: l_okl_asset_cndtn_lns_tl_rec.id,
2720: l_okl_asset_cndtn_lns_tl_rec.language,
2721: l_okl_asset_cndtn_lns_tl_rec.source_lang,
2722: l_okl_asset_cndtn_lns_tl_rec.sfwt_flag,
2723: l_okl_asset_cndtn_lns_tl_rec.damage_description,
2724: l_okl_asset_cndtn_lns_tl_rec.claim_description,
2725: l_okl_asset_cndtn_lns_tl_rec.recommended_repair,
2726: l_okl_asset_cndtn_lns_tl_rec.part_name,
2719: l_okl_asset_cndtn_lns_tl_rec.id,
2720: l_okl_asset_cndtn_lns_tl_rec.language,
2721: l_okl_asset_cndtn_lns_tl_rec.source_lang,
2722: l_okl_asset_cndtn_lns_tl_rec.sfwt_flag,
2723: l_okl_asset_cndtn_lns_tl_rec.damage_description,
2724: l_okl_asset_cndtn_lns_tl_rec.claim_description,
2725: l_okl_asset_cndtn_lns_tl_rec.recommended_repair,
2726: l_okl_asset_cndtn_lns_tl_rec.part_name,
2727: l_okl_asset_cndtn_lns_tl_rec.created_by,
2720: l_okl_asset_cndtn_lns_tl_rec.language,
2721: l_okl_asset_cndtn_lns_tl_rec.source_lang,
2722: l_okl_asset_cndtn_lns_tl_rec.sfwt_flag,
2723: l_okl_asset_cndtn_lns_tl_rec.damage_description,
2724: l_okl_asset_cndtn_lns_tl_rec.claim_description,
2725: l_okl_asset_cndtn_lns_tl_rec.recommended_repair,
2726: l_okl_asset_cndtn_lns_tl_rec.part_name,
2727: l_okl_asset_cndtn_lns_tl_rec.created_by,
2728: l_okl_asset_cndtn_lns_tl_rec.creation_date,
2721: l_okl_asset_cndtn_lns_tl_rec.source_lang,
2722: l_okl_asset_cndtn_lns_tl_rec.sfwt_flag,
2723: l_okl_asset_cndtn_lns_tl_rec.damage_description,
2724: l_okl_asset_cndtn_lns_tl_rec.claim_description,
2725: l_okl_asset_cndtn_lns_tl_rec.recommended_repair,
2726: l_okl_asset_cndtn_lns_tl_rec.part_name,
2727: l_okl_asset_cndtn_lns_tl_rec.created_by,
2728: l_okl_asset_cndtn_lns_tl_rec.creation_date,
2729: l_okl_asset_cndtn_lns_tl_rec.last_updated_by,
2722: l_okl_asset_cndtn_lns_tl_rec.sfwt_flag,
2723: l_okl_asset_cndtn_lns_tl_rec.damage_description,
2724: l_okl_asset_cndtn_lns_tl_rec.claim_description,
2725: l_okl_asset_cndtn_lns_tl_rec.recommended_repair,
2726: l_okl_asset_cndtn_lns_tl_rec.part_name,
2727: l_okl_asset_cndtn_lns_tl_rec.created_by,
2728: l_okl_asset_cndtn_lns_tl_rec.creation_date,
2729: l_okl_asset_cndtn_lns_tl_rec.last_updated_by,
2730: l_okl_asset_cndtn_lns_tl_rec.last_update_date,
2723: l_okl_asset_cndtn_lns_tl_rec.damage_description,
2724: l_okl_asset_cndtn_lns_tl_rec.claim_description,
2725: l_okl_asset_cndtn_lns_tl_rec.recommended_repair,
2726: l_okl_asset_cndtn_lns_tl_rec.part_name,
2727: l_okl_asset_cndtn_lns_tl_rec.created_by,
2728: l_okl_asset_cndtn_lns_tl_rec.creation_date,
2729: l_okl_asset_cndtn_lns_tl_rec.last_updated_by,
2730: l_okl_asset_cndtn_lns_tl_rec.last_update_date,
2731: l_okl_asset_cndtn_lns_tl_rec.last_update_login);
2724: l_okl_asset_cndtn_lns_tl_rec.claim_description,
2725: l_okl_asset_cndtn_lns_tl_rec.recommended_repair,
2726: l_okl_asset_cndtn_lns_tl_rec.part_name,
2727: l_okl_asset_cndtn_lns_tl_rec.created_by,
2728: l_okl_asset_cndtn_lns_tl_rec.creation_date,
2729: l_okl_asset_cndtn_lns_tl_rec.last_updated_by,
2730: l_okl_asset_cndtn_lns_tl_rec.last_update_date,
2731: l_okl_asset_cndtn_lns_tl_rec.last_update_login);
2732: END LOOP;
2725: l_okl_asset_cndtn_lns_tl_rec.recommended_repair,
2726: l_okl_asset_cndtn_lns_tl_rec.part_name,
2727: l_okl_asset_cndtn_lns_tl_rec.created_by,
2728: l_okl_asset_cndtn_lns_tl_rec.creation_date,
2729: l_okl_asset_cndtn_lns_tl_rec.last_updated_by,
2730: l_okl_asset_cndtn_lns_tl_rec.last_update_date,
2731: l_okl_asset_cndtn_lns_tl_rec.last_update_login);
2732: END LOOP;
2733: -- Set OUT values
2726: l_okl_asset_cndtn_lns_tl_rec.part_name,
2727: l_okl_asset_cndtn_lns_tl_rec.created_by,
2728: l_okl_asset_cndtn_lns_tl_rec.creation_date,
2729: l_okl_asset_cndtn_lns_tl_rec.last_updated_by,
2730: l_okl_asset_cndtn_lns_tl_rec.last_update_date,
2731: l_okl_asset_cndtn_lns_tl_rec.last_update_login);
2732: END LOOP;
2733: -- Set OUT values
2734: x_okl_asset_cndtn_lns_tl_rec := l_okl_asset_cndtn_lns_tl_rec;
2727: l_okl_asset_cndtn_lns_tl_rec.created_by,
2728: l_okl_asset_cndtn_lns_tl_rec.creation_date,
2729: l_okl_asset_cndtn_lns_tl_rec.last_updated_by,
2730: l_okl_asset_cndtn_lns_tl_rec.last_update_date,
2731: l_okl_asset_cndtn_lns_tl_rec.last_update_login);
2732: END LOOP;
2733: -- Set OUT values
2734: x_okl_asset_cndtn_lns_tl_rec := l_okl_asset_cndtn_lns_tl_rec;
2735: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2730: l_okl_asset_cndtn_lns_tl_rec.last_update_date,
2731: l_okl_asset_cndtn_lns_tl_rec.last_update_login);
2732: END LOOP;
2733: -- Set OUT values
2734: x_okl_asset_cndtn_lns_tl_rec := l_okl_asset_cndtn_lns_tl_rec;
2735: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2736: EXCEPTION
2737: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2738: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2793: l_acnv_rec acnv_rec_type;
2794: l_def_acnv_rec acnv_rec_type;
2795: l_acn_rec acn_rec_type;
2796: lx_acn_rec acn_rec_type;
2797: l_okl_asset_cndtn_lns_tl_rec OklAssetCndtnLnsTlRecType;
2798: lx_okl_asset_cndtn_lns_tl_rec OklAssetCndtnLnsTlRecType;
2799: -------------------------------
2800: -- FUNCTION fill_who_columns --
2801: -------------------------------
2794: l_def_acnv_rec acnv_rec_type;
2795: l_acn_rec acn_rec_type;
2796: lx_acn_rec acn_rec_type;
2797: l_okl_asset_cndtn_lns_tl_rec OklAssetCndtnLnsTlRecType;
2798: lx_okl_asset_cndtn_lns_tl_rec OklAssetCndtnLnsTlRecType;
2799: -------------------------------
2800: -- FUNCTION fill_who_columns --
2801: -------------------------------
2802: FUNCTION fill_who_columns (
2896: --------------------------------------
2897: -- Move VIEW record to "Child" records
2898: --------------------------------------
2899: migrate(l_def_acnv_rec, l_acn_rec);
2900: migrate(l_def_acnv_rec, l_okl_asset_cndtn_lns_tl_rec);
2901: --------------------------------------------
2902: -- Call the INSERT_ROW for each child record
2903: --------------------------------------------
2904: insert_row(
2919: p_init_msg_list,
2920: x_return_status,
2921: x_msg_count,
2922: x_msg_data,
2923: l_okl_asset_cndtn_lns_tl_rec,
2924: lx_okl_asset_cndtn_lns_tl_rec
2925: );
2926: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2927: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2920: x_return_status,
2921: x_msg_count,
2922: x_msg_data,
2923: l_okl_asset_cndtn_lns_tl_rec,
2924: lx_okl_asset_cndtn_lns_tl_rec
2925: );
2926: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2927: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2928: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2927: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2928: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2929: RAISE OKC_API.G_EXCEPTION_ERROR;
2930: END IF;
2931: migrate(lx_okl_asset_cndtn_lns_tl_rec, l_def_acnv_rec);
2932: -- Set OUT values
2933: x_acnv_rec := l_def_acnv_rec;
2934: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2935: EXCEPTION
3156: '_PVT'
3157: );
3158: END lock_row;
3159: -----------------------------------------
3160: -- lock_row for:OKL_ASSET_CNDTN_LNS_TL --
3161: -----------------------------------------
3162: PROCEDURE lock_row(
3163: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3164: x_return_status OUT NOCOPY VARCHAR2,
3163: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3164: x_return_status OUT NOCOPY VARCHAR2,
3165: x_msg_count OUT NOCOPY NUMBER,
3166: x_msg_data OUT NOCOPY VARCHAR2,
3167: p_okl_asset_cndtn_lns_tl_rec IN OklAssetCndtnLnsTlRecType) IS
3168:
3169: E_Resource_Busy EXCEPTION;
3170: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
3171: CURSOR lock_csr (p_okl_asset_cndtn_lns_tl_rec IN OklAssetCndtnLnsTlRecType) IS
3167: p_okl_asset_cndtn_lns_tl_rec IN OklAssetCndtnLnsTlRecType) IS
3168:
3169: E_Resource_Busy EXCEPTION;
3170: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
3171: CURSOR lock_csr (p_okl_asset_cndtn_lns_tl_rec IN OklAssetCndtnLnsTlRecType) IS
3172: SELECT *
3173: FROM OKL_ASSET_CNDTN_LNS_TL
3174: WHERE ID = p_okl_asset_cndtn_lns_tl_rec.id
3175: FOR UPDATE NOWAIT;
3169: E_Resource_Busy EXCEPTION;
3170: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
3171: CURSOR lock_csr (p_okl_asset_cndtn_lns_tl_rec IN OklAssetCndtnLnsTlRecType) IS
3172: SELECT *
3173: FROM OKL_ASSET_CNDTN_LNS_TL
3174: WHERE ID = p_okl_asset_cndtn_lns_tl_rec.id
3175: FOR UPDATE NOWAIT;
3176:
3177: l_api_version CONSTANT NUMBER := 1;
3170: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
3171: CURSOR lock_csr (p_okl_asset_cndtn_lns_tl_rec IN OklAssetCndtnLnsTlRecType) IS
3172: SELECT *
3173: FROM OKL_ASSET_CNDTN_LNS_TL
3174: WHERE ID = p_okl_asset_cndtn_lns_tl_rec.id
3175: FOR UPDATE NOWAIT;
3176:
3177: l_api_version CONSTANT NUMBER := 1;
3178: l_api_name CONSTANT VARCHAR2(30) := 'TL_lock_row';
3190: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3191: RAISE OKC_API.G_EXCEPTION_ERROR;
3192: END IF;
3193: BEGIN
3194: OPEN lock_csr(p_okl_asset_cndtn_lns_tl_rec);
3195: FETCH lock_csr INTO l_lock_var;
3196: l_row_notfound := lock_csr%NOTFOUND;
3197: CLOSE lock_csr;
3198: EXCEPTION
3255: l_api_version CONSTANT NUMBER := 1;
3256: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
3257: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3258: l_acn_rec acn_rec_type;
3259: l_okl_asset_cndtn_lns_tl_rec OklAssetCndtnLnsTlRecType;
3260: BEGIN
3261: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3262: G_PKG_NAME,
3263: p_init_msg_list,
3273: --------------------------------------
3274: -- Move VIEW record to "Child" records
3275: --------------------------------------
3276: migrate(p_acnv_rec, l_acn_rec);
3277: migrate(p_acnv_rec, l_okl_asset_cndtn_lns_tl_rec);
3278: --------------------------------------------
3279: -- Call the LOCK_ROW for each child record
3280: --------------------------------------------
3281: lock_row(
3294: p_init_msg_list,
3295: x_return_status,
3296: x_msg_count,
3297: x_msg_data,
3298: l_okl_asset_cndtn_lns_tl_rec
3299: );
3300: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3301: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3302: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3784: '_PVT'
3785: );
3786: END update_row;
3787: -------------------------------------------
3788: -- update_row for:OKL_ASSET_CNDTN_LNS_TL --
3789: -------------------------------------------
3790: PROCEDURE update_row(
3791: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3792: x_return_status OUT NOCOPY VARCHAR2,
3791: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3792: x_return_status OUT NOCOPY VARCHAR2,
3793: x_msg_count OUT NOCOPY NUMBER,
3794: x_msg_data OUT NOCOPY VARCHAR2,
3795: p_okl_asset_cndtn_lns_tl_rec IN OklAssetCndtnLnsTlRecType,
3796: x_okl_asset_cndtn_lns_tl_rec OUT NOCOPY OklAssetCndtnLnsTlRecType) IS
3797:
3798: l_api_version CONSTANT NUMBER := 1;
3799: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
3792: x_return_status OUT NOCOPY VARCHAR2,
3793: x_msg_count OUT NOCOPY NUMBER,
3794: x_msg_data OUT NOCOPY VARCHAR2,
3795: p_okl_asset_cndtn_lns_tl_rec IN OklAssetCndtnLnsTlRecType,
3796: x_okl_asset_cndtn_lns_tl_rec OUT NOCOPY OklAssetCndtnLnsTlRecType) IS
3797:
3798: l_api_version CONSTANT NUMBER := 1;
3799: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
3800: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3797:
3798: l_api_version CONSTANT NUMBER := 1;
3799: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
3800: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3801: l_okl_asset_cndtn_lns_tl_rec OklAssetCndtnLnsTlRecType := p_okl_asset_cndtn_lns_tl_rec;
3802: ldefoklassetcndtnlnstlrec OklAssetCndtnLnsTlRecType;
3803: l_row_notfound BOOLEAN := TRUE;
3804: ----------------------------------
3805: -- FUNCTION populate_new_record --
3804: ----------------------------------
3805: -- FUNCTION populate_new_record --
3806: ----------------------------------
3807: FUNCTION populate_new_record (
3808: p_okl_asset_cndtn_lns_tl_rec IN OklAssetCndtnLnsTlRecType,
3809: x_okl_asset_cndtn_lns_tl_rec OUT NOCOPY OklAssetCndtnLnsTlRecType
3810: ) RETURN VARCHAR2 IS
3811: l_okl_asset_cndtn_lns_tl_rec OklAssetCndtnLnsTlRecType;
3812: l_row_notfound BOOLEAN := TRUE;
3805: -- FUNCTION populate_new_record --
3806: ----------------------------------
3807: FUNCTION populate_new_record (
3808: p_okl_asset_cndtn_lns_tl_rec IN OklAssetCndtnLnsTlRecType,
3809: x_okl_asset_cndtn_lns_tl_rec OUT NOCOPY OklAssetCndtnLnsTlRecType
3810: ) RETURN VARCHAR2 IS
3811: l_okl_asset_cndtn_lns_tl_rec OklAssetCndtnLnsTlRecType;
3812: l_row_notfound BOOLEAN := TRUE;
3813: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3807: FUNCTION populate_new_record (
3808: p_okl_asset_cndtn_lns_tl_rec IN OklAssetCndtnLnsTlRecType,
3809: x_okl_asset_cndtn_lns_tl_rec OUT NOCOPY OklAssetCndtnLnsTlRecType
3810: ) RETURN VARCHAR2 IS
3811: l_okl_asset_cndtn_lns_tl_rec OklAssetCndtnLnsTlRecType;
3812: l_row_notfound BOOLEAN := TRUE;
3813: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3814: BEGIN
3815: x_okl_asset_cndtn_lns_tl_rec := p_okl_asset_cndtn_lns_tl_rec;
3811: l_okl_asset_cndtn_lns_tl_rec OklAssetCndtnLnsTlRecType;
3812: l_row_notfound BOOLEAN := TRUE;
3813: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3814: BEGIN
3815: x_okl_asset_cndtn_lns_tl_rec := p_okl_asset_cndtn_lns_tl_rec;
3816: -- Get current database values
3817: l_okl_asset_cndtn_lns_tl_rec := get_rec(p_okl_asset_cndtn_lns_tl_rec, l_row_notfound);
3818: IF (l_row_notfound) THEN
3819: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
3813: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3814: BEGIN
3815: x_okl_asset_cndtn_lns_tl_rec := p_okl_asset_cndtn_lns_tl_rec;
3816: -- Get current database values
3817: l_okl_asset_cndtn_lns_tl_rec := get_rec(p_okl_asset_cndtn_lns_tl_rec, l_row_notfound);
3818: IF (l_row_notfound) THEN
3819: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
3820: END IF;
3821: IF (x_okl_asset_cndtn_lns_tl_rec.id = OKC_API.G_MISS_NUM)
3817: l_okl_asset_cndtn_lns_tl_rec := get_rec(p_okl_asset_cndtn_lns_tl_rec, l_row_notfound);
3818: IF (l_row_notfound) THEN
3819: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
3820: END IF;
3821: IF (x_okl_asset_cndtn_lns_tl_rec.id = OKC_API.G_MISS_NUM)
3822: THEN
3823: x_okl_asset_cndtn_lns_tl_rec.id := l_okl_asset_cndtn_lns_tl_rec.id;
3824: END IF;
3825: IF (x_okl_asset_cndtn_lns_tl_rec.language = OKC_API.G_MISS_CHAR)
3819: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
3820: END IF;
3821: IF (x_okl_asset_cndtn_lns_tl_rec.id = OKC_API.G_MISS_NUM)
3822: THEN
3823: x_okl_asset_cndtn_lns_tl_rec.id := l_okl_asset_cndtn_lns_tl_rec.id;
3824: END IF;
3825: IF (x_okl_asset_cndtn_lns_tl_rec.language = OKC_API.G_MISS_CHAR)
3826: THEN
3827: x_okl_asset_cndtn_lns_tl_rec.language := l_okl_asset_cndtn_lns_tl_rec.language;
3821: IF (x_okl_asset_cndtn_lns_tl_rec.id = OKC_API.G_MISS_NUM)
3822: THEN
3823: x_okl_asset_cndtn_lns_tl_rec.id := l_okl_asset_cndtn_lns_tl_rec.id;
3824: END IF;
3825: IF (x_okl_asset_cndtn_lns_tl_rec.language = OKC_API.G_MISS_CHAR)
3826: THEN
3827: x_okl_asset_cndtn_lns_tl_rec.language := l_okl_asset_cndtn_lns_tl_rec.language;
3828: END IF;
3829: IF (x_okl_asset_cndtn_lns_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
3823: x_okl_asset_cndtn_lns_tl_rec.id := l_okl_asset_cndtn_lns_tl_rec.id;
3824: END IF;
3825: IF (x_okl_asset_cndtn_lns_tl_rec.language = OKC_API.G_MISS_CHAR)
3826: THEN
3827: x_okl_asset_cndtn_lns_tl_rec.language := l_okl_asset_cndtn_lns_tl_rec.language;
3828: END IF;
3829: IF (x_okl_asset_cndtn_lns_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
3830: THEN
3831: x_okl_asset_cndtn_lns_tl_rec.source_lang := l_okl_asset_cndtn_lns_tl_rec.source_lang;
3825: IF (x_okl_asset_cndtn_lns_tl_rec.language = OKC_API.G_MISS_CHAR)
3826: THEN
3827: x_okl_asset_cndtn_lns_tl_rec.language := l_okl_asset_cndtn_lns_tl_rec.language;
3828: END IF;
3829: IF (x_okl_asset_cndtn_lns_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
3830: THEN
3831: x_okl_asset_cndtn_lns_tl_rec.source_lang := l_okl_asset_cndtn_lns_tl_rec.source_lang;
3832: END IF;
3833: IF (x_okl_asset_cndtn_lns_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
3827: x_okl_asset_cndtn_lns_tl_rec.language := l_okl_asset_cndtn_lns_tl_rec.language;
3828: END IF;
3829: IF (x_okl_asset_cndtn_lns_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
3830: THEN
3831: x_okl_asset_cndtn_lns_tl_rec.source_lang := l_okl_asset_cndtn_lns_tl_rec.source_lang;
3832: END IF;
3833: IF (x_okl_asset_cndtn_lns_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
3834: THEN
3835: x_okl_asset_cndtn_lns_tl_rec.sfwt_flag := l_okl_asset_cndtn_lns_tl_rec.sfwt_flag;
3829: IF (x_okl_asset_cndtn_lns_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
3830: THEN
3831: x_okl_asset_cndtn_lns_tl_rec.source_lang := l_okl_asset_cndtn_lns_tl_rec.source_lang;
3832: END IF;
3833: IF (x_okl_asset_cndtn_lns_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
3834: THEN
3835: x_okl_asset_cndtn_lns_tl_rec.sfwt_flag := l_okl_asset_cndtn_lns_tl_rec.sfwt_flag;
3836: END IF;
3837: IF (x_okl_asset_cndtn_lns_tl_rec.damage_description = OKC_API.G_MISS_CHAR)
3831: x_okl_asset_cndtn_lns_tl_rec.source_lang := l_okl_asset_cndtn_lns_tl_rec.source_lang;
3832: END IF;
3833: IF (x_okl_asset_cndtn_lns_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
3834: THEN
3835: x_okl_asset_cndtn_lns_tl_rec.sfwt_flag := l_okl_asset_cndtn_lns_tl_rec.sfwt_flag;
3836: END IF;
3837: IF (x_okl_asset_cndtn_lns_tl_rec.damage_description = OKC_API.G_MISS_CHAR)
3838: THEN
3839: x_okl_asset_cndtn_lns_tl_rec.damage_description := l_okl_asset_cndtn_lns_tl_rec.damage_description;
3833: IF (x_okl_asset_cndtn_lns_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
3834: THEN
3835: x_okl_asset_cndtn_lns_tl_rec.sfwt_flag := l_okl_asset_cndtn_lns_tl_rec.sfwt_flag;
3836: END IF;
3837: IF (x_okl_asset_cndtn_lns_tl_rec.damage_description = OKC_API.G_MISS_CHAR)
3838: THEN
3839: x_okl_asset_cndtn_lns_tl_rec.damage_description := l_okl_asset_cndtn_lns_tl_rec.damage_description;
3840: END IF;
3841: IF (x_okl_asset_cndtn_lns_tl_rec.claim_description = OKC_API.G_MISS_CHAR)
3835: x_okl_asset_cndtn_lns_tl_rec.sfwt_flag := l_okl_asset_cndtn_lns_tl_rec.sfwt_flag;
3836: END IF;
3837: IF (x_okl_asset_cndtn_lns_tl_rec.damage_description = OKC_API.G_MISS_CHAR)
3838: THEN
3839: x_okl_asset_cndtn_lns_tl_rec.damage_description := l_okl_asset_cndtn_lns_tl_rec.damage_description;
3840: END IF;
3841: IF (x_okl_asset_cndtn_lns_tl_rec.claim_description = OKC_API.G_MISS_CHAR)
3842: THEN
3843: x_okl_asset_cndtn_lns_tl_rec.claim_description := l_okl_asset_cndtn_lns_tl_rec.claim_description;
3837: IF (x_okl_asset_cndtn_lns_tl_rec.damage_description = OKC_API.G_MISS_CHAR)
3838: THEN
3839: x_okl_asset_cndtn_lns_tl_rec.damage_description := l_okl_asset_cndtn_lns_tl_rec.damage_description;
3840: END IF;
3841: IF (x_okl_asset_cndtn_lns_tl_rec.claim_description = OKC_API.G_MISS_CHAR)
3842: THEN
3843: x_okl_asset_cndtn_lns_tl_rec.claim_description := l_okl_asset_cndtn_lns_tl_rec.claim_description;
3844: END IF;
3845: IF (x_okl_asset_cndtn_lns_tl_rec.recommended_repair = OKC_API.G_MISS_CHAR)
3839: x_okl_asset_cndtn_lns_tl_rec.damage_description := l_okl_asset_cndtn_lns_tl_rec.damage_description;
3840: END IF;
3841: IF (x_okl_asset_cndtn_lns_tl_rec.claim_description = OKC_API.G_MISS_CHAR)
3842: THEN
3843: x_okl_asset_cndtn_lns_tl_rec.claim_description := l_okl_asset_cndtn_lns_tl_rec.claim_description;
3844: END IF;
3845: IF (x_okl_asset_cndtn_lns_tl_rec.recommended_repair = OKC_API.G_MISS_CHAR)
3846: THEN
3847: x_okl_asset_cndtn_lns_tl_rec.recommended_repair := l_okl_asset_cndtn_lns_tl_rec.recommended_repair;
3841: IF (x_okl_asset_cndtn_lns_tl_rec.claim_description = OKC_API.G_MISS_CHAR)
3842: THEN
3843: x_okl_asset_cndtn_lns_tl_rec.claim_description := l_okl_asset_cndtn_lns_tl_rec.claim_description;
3844: END IF;
3845: IF (x_okl_asset_cndtn_lns_tl_rec.recommended_repair = OKC_API.G_MISS_CHAR)
3846: THEN
3847: x_okl_asset_cndtn_lns_tl_rec.recommended_repair := l_okl_asset_cndtn_lns_tl_rec.recommended_repair;
3848: END IF;
3849: IF (x_okl_asset_cndtn_lns_tl_rec.part_name = OKC_API.G_MISS_CHAR)
3843: x_okl_asset_cndtn_lns_tl_rec.claim_description := l_okl_asset_cndtn_lns_tl_rec.claim_description;
3844: END IF;
3845: IF (x_okl_asset_cndtn_lns_tl_rec.recommended_repair = OKC_API.G_MISS_CHAR)
3846: THEN
3847: x_okl_asset_cndtn_lns_tl_rec.recommended_repair := l_okl_asset_cndtn_lns_tl_rec.recommended_repair;
3848: END IF;
3849: IF (x_okl_asset_cndtn_lns_tl_rec.part_name = OKC_API.G_MISS_CHAR)
3850: THEN
3851: x_okl_asset_cndtn_lns_tl_rec.part_name := l_okl_asset_cndtn_lns_tl_rec.part_name;
3845: IF (x_okl_asset_cndtn_lns_tl_rec.recommended_repair = OKC_API.G_MISS_CHAR)
3846: THEN
3847: x_okl_asset_cndtn_lns_tl_rec.recommended_repair := l_okl_asset_cndtn_lns_tl_rec.recommended_repair;
3848: END IF;
3849: IF (x_okl_asset_cndtn_lns_tl_rec.part_name = OKC_API.G_MISS_CHAR)
3850: THEN
3851: x_okl_asset_cndtn_lns_tl_rec.part_name := l_okl_asset_cndtn_lns_tl_rec.part_name;
3852: END IF;
3853: IF (x_okl_asset_cndtn_lns_tl_rec.created_by = OKC_API.G_MISS_NUM)
3847: x_okl_asset_cndtn_lns_tl_rec.recommended_repair := l_okl_asset_cndtn_lns_tl_rec.recommended_repair;
3848: END IF;
3849: IF (x_okl_asset_cndtn_lns_tl_rec.part_name = OKC_API.G_MISS_CHAR)
3850: THEN
3851: x_okl_asset_cndtn_lns_tl_rec.part_name := l_okl_asset_cndtn_lns_tl_rec.part_name;
3852: END IF;
3853: IF (x_okl_asset_cndtn_lns_tl_rec.created_by = OKC_API.G_MISS_NUM)
3854: THEN
3855: x_okl_asset_cndtn_lns_tl_rec.created_by := l_okl_asset_cndtn_lns_tl_rec.created_by;
3849: IF (x_okl_asset_cndtn_lns_tl_rec.part_name = OKC_API.G_MISS_CHAR)
3850: THEN
3851: x_okl_asset_cndtn_lns_tl_rec.part_name := l_okl_asset_cndtn_lns_tl_rec.part_name;
3852: END IF;
3853: IF (x_okl_asset_cndtn_lns_tl_rec.created_by = OKC_API.G_MISS_NUM)
3854: THEN
3855: x_okl_asset_cndtn_lns_tl_rec.created_by := l_okl_asset_cndtn_lns_tl_rec.created_by;
3856: END IF;
3857: IF (x_okl_asset_cndtn_lns_tl_rec.creation_date = OKC_API.G_MISS_DATE)
3851: x_okl_asset_cndtn_lns_tl_rec.part_name := l_okl_asset_cndtn_lns_tl_rec.part_name;
3852: END IF;
3853: IF (x_okl_asset_cndtn_lns_tl_rec.created_by = OKC_API.G_MISS_NUM)
3854: THEN
3855: x_okl_asset_cndtn_lns_tl_rec.created_by := l_okl_asset_cndtn_lns_tl_rec.created_by;
3856: END IF;
3857: IF (x_okl_asset_cndtn_lns_tl_rec.creation_date = OKC_API.G_MISS_DATE)
3858: THEN
3859: x_okl_asset_cndtn_lns_tl_rec.creation_date := l_okl_asset_cndtn_lns_tl_rec.creation_date;
3853: IF (x_okl_asset_cndtn_lns_tl_rec.created_by = OKC_API.G_MISS_NUM)
3854: THEN
3855: x_okl_asset_cndtn_lns_tl_rec.created_by := l_okl_asset_cndtn_lns_tl_rec.created_by;
3856: END IF;
3857: IF (x_okl_asset_cndtn_lns_tl_rec.creation_date = OKC_API.G_MISS_DATE)
3858: THEN
3859: x_okl_asset_cndtn_lns_tl_rec.creation_date := l_okl_asset_cndtn_lns_tl_rec.creation_date;
3860: END IF;
3861: IF (x_okl_asset_cndtn_lns_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
3855: x_okl_asset_cndtn_lns_tl_rec.created_by := l_okl_asset_cndtn_lns_tl_rec.created_by;
3856: END IF;
3857: IF (x_okl_asset_cndtn_lns_tl_rec.creation_date = OKC_API.G_MISS_DATE)
3858: THEN
3859: x_okl_asset_cndtn_lns_tl_rec.creation_date := l_okl_asset_cndtn_lns_tl_rec.creation_date;
3860: END IF;
3861: IF (x_okl_asset_cndtn_lns_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
3862: THEN
3863: x_okl_asset_cndtn_lns_tl_rec.last_updated_by := l_okl_asset_cndtn_lns_tl_rec.last_updated_by;
3857: IF (x_okl_asset_cndtn_lns_tl_rec.creation_date = OKC_API.G_MISS_DATE)
3858: THEN
3859: x_okl_asset_cndtn_lns_tl_rec.creation_date := l_okl_asset_cndtn_lns_tl_rec.creation_date;
3860: END IF;
3861: IF (x_okl_asset_cndtn_lns_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
3862: THEN
3863: x_okl_asset_cndtn_lns_tl_rec.last_updated_by := l_okl_asset_cndtn_lns_tl_rec.last_updated_by;
3864: END IF;
3865: IF (x_okl_asset_cndtn_lns_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
3859: x_okl_asset_cndtn_lns_tl_rec.creation_date := l_okl_asset_cndtn_lns_tl_rec.creation_date;
3860: END IF;
3861: IF (x_okl_asset_cndtn_lns_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
3862: THEN
3863: x_okl_asset_cndtn_lns_tl_rec.last_updated_by := l_okl_asset_cndtn_lns_tl_rec.last_updated_by;
3864: END IF;
3865: IF (x_okl_asset_cndtn_lns_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
3866: THEN
3867: x_okl_asset_cndtn_lns_tl_rec.last_update_date := l_okl_asset_cndtn_lns_tl_rec.last_update_date;
3861: IF (x_okl_asset_cndtn_lns_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
3862: THEN
3863: x_okl_asset_cndtn_lns_tl_rec.last_updated_by := l_okl_asset_cndtn_lns_tl_rec.last_updated_by;
3864: END IF;
3865: IF (x_okl_asset_cndtn_lns_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
3866: THEN
3867: x_okl_asset_cndtn_lns_tl_rec.last_update_date := l_okl_asset_cndtn_lns_tl_rec.last_update_date;
3868: END IF;
3869: IF (x_okl_asset_cndtn_lns_tl_rec.last_update_login = OKC_API.G_MISS_NUM)
3863: x_okl_asset_cndtn_lns_tl_rec.last_updated_by := l_okl_asset_cndtn_lns_tl_rec.last_updated_by;
3864: END IF;
3865: IF (x_okl_asset_cndtn_lns_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
3866: THEN
3867: x_okl_asset_cndtn_lns_tl_rec.last_update_date := l_okl_asset_cndtn_lns_tl_rec.last_update_date;
3868: END IF;
3869: IF (x_okl_asset_cndtn_lns_tl_rec.last_update_login = OKC_API.G_MISS_NUM)
3870: THEN
3871: x_okl_asset_cndtn_lns_tl_rec.last_update_login := l_okl_asset_cndtn_lns_tl_rec.last_update_login;
3865: IF (x_okl_asset_cndtn_lns_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
3866: THEN
3867: x_okl_asset_cndtn_lns_tl_rec.last_update_date := l_okl_asset_cndtn_lns_tl_rec.last_update_date;
3868: END IF;
3869: IF (x_okl_asset_cndtn_lns_tl_rec.last_update_login = OKC_API.G_MISS_NUM)
3870: THEN
3871: x_okl_asset_cndtn_lns_tl_rec.last_update_login := l_okl_asset_cndtn_lns_tl_rec.last_update_login;
3872: END IF;
3873: RETURN(l_return_status);
3867: x_okl_asset_cndtn_lns_tl_rec.last_update_date := l_okl_asset_cndtn_lns_tl_rec.last_update_date;
3868: END IF;
3869: IF (x_okl_asset_cndtn_lns_tl_rec.last_update_login = OKC_API.G_MISS_NUM)
3870: THEN
3871: x_okl_asset_cndtn_lns_tl_rec.last_update_login := l_okl_asset_cndtn_lns_tl_rec.last_update_login;
3872: END IF;
3873: RETURN(l_return_status);
3874: END populate_new_record;
3875: -----------------------------------------------
3872: END IF;
3873: RETURN(l_return_status);
3874: END populate_new_record;
3875: -----------------------------------------------
3876: -- Set_Attributes for:OKL_ASSET_CNDTN_LNS_TL --
3877: -----------------------------------------------
3878: FUNCTION Set_Attributes (
3879: p_okl_asset_cndtn_lns_tl_rec IN OklAssetCndtnLnsTlRecType,
3880: x_okl_asset_cndtn_lns_tl_rec OUT NOCOPY OklAssetCndtnLnsTlRecType
3875: -----------------------------------------------
3876: -- Set_Attributes for:OKL_ASSET_CNDTN_LNS_TL --
3877: -----------------------------------------------
3878: FUNCTION Set_Attributes (
3879: p_okl_asset_cndtn_lns_tl_rec IN OklAssetCndtnLnsTlRecType,
3880: x_okl_asset_cndtn_lns_tl_rec OUT NOCOPY OklAssetCndtnLnsTlRecType
3881: ) RETURN VARCHAR2 IS
3882: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3883: BEGIN
3876: -- Set_Attributes for:OKL_ASSET_CNDTN_LNS_TL --
3877: -----------------------------------------------
3878: FUNCTION Set_Attributes (
3879: p_okl_asset_cndtn_lns_tl_rec IN OklAssetCndtnLnsTlRecType,
3880: x_okl_asset_cndtn_lns_tl_rec OUT NOCOPY OklAssetCndtnLnsTlRecType
3881: ) RETURN VARCHAR2 IS
3882: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3883: BEGIN
3884: x_okl_asset_cndtn_lns_tl_rec := p_okl_asset_cndtn_lns_tl_rec;
3880: x_okl_asset_cndtn_lns_tl_rec OUT NOCOPY OklAssetCndtnLnsTlRecType
3881: ) RETURN VARCHAR2 IS
3882: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3883: BEGIN
3884: x_okl_asset_cndtn_lns_tl_rec := p_okl_asset_cndtn_lns_tl_rec;
3885: x_okl_asset_cndtn_lns_tl_rec.LANGUAGE := USERENV('LANG');
3886: x_okl_asset_cndtn_lns_tl_rec.SOURCE_LANG := USERENV('LANG');
3887: RETURN(l_return_status);
3888: END Set_Attributes;
3881: ) RETURN VARCHAR2 IS
3882: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3883: BEGIN
3884: x_okl_asset_cndtn_lns_tl_rec := p_okl_asset_cndtn_lns_tl_rec;
3885: x_okl_asset_cndtn_lns_tl_rec.LANGUAGE := USERENV('LANG');
3886: x_okl_asset_cndtn_lns_tl_rec.SOURCE_LANG := USERENV('LANG');
3887: RETURN(l_return_status);
3888: END Set_Attributes;
3889: BEGIN
3882: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3883: BEGIN
3884: x_okl_asset_cndtn_lns_tl_rec := p_okl_asset_cndtn_lns_tl_rec;
3885: x_okl_asset_cndtn_lns_tl_rec.LANGUAGE := USERENV('LANG');
3886: x_okl_asset_cndtn_lns_tl_rec.SOURCE_LANG := USERENV('LANG');
3887: RETURN(l_return_status);
3888: END Set_Attributes;
3889: BEGIN
3890: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3897: RAISE OKC_API.G_EXCEPTION_ERROR;
3898: END IF;
3899: --- Setting item attributes
3900: l_return_status := Set_Attributes(
3901: p_okl_asset_cndtn_lns_tl_rec, -- IN
3902: l_okl_asset_cndtn_lns_tl_rec); -- OUT
3903: --- If any errors happen abort API
3904: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3905: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3898: END IF;
3899: --- Setting item attributes
3900: l_return_status := Set_Attributes(
3901: p_okl_asset_cndtn_lns_tl_rec, -- IN
3902: l_okl_asset_cndtn_lns_tl_rec); -- OUT
3903: --- If any errors happen abort API
3904: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3905: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3906: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3905: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3906: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3907: RAISE OKC_API.G_EXCEPTION_ERROR;
3908: END IF;
3909: l_return_status := populate_new_record(l_okl_asset_cndtn_lns_tl_rec, ldefoklassetcndtnlnstlrec);
3910: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3911: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3912: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3913: RAISE OKC_API.G_EXCEPTION_ERROR;
3911: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3912: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3913: RAISE OKC_API.G_EXCEPTION_ERROR;
3914: END IF;
3915: UPDATE OKL_ASSET_CNDTN_LNS_TL
3916: SET DAMAGE_DESCRIPTION = ldefoklassetcndtnlnstlrec.damage_description,
3917: CLAIM_DESCRIPTION = ldefoklassetcndtnlnstlrec.claim_description,
3918: SOURCE_LANG = ldefoklassetcndtnlnstlrec.source_lang, --Added for fix 3637102
3919: RECOMMENDED_REPAIR = ldefoklassetcndtnlnstlrec.recommended_repair,
3926: WHERE ID = ldefoklassetcndtnlnstlrec.id
3927: AND USERENV('LANG') in (SOURCE_LANG,LANGUAGE); --Fix for 3637102
3928: --AND SOURCE_LANG = USERENV('LANG');
3929:
3930: UPDATE OKL_ASSET_CNDTN_LNS_TL
3931: SET SFWT_FLAG = 'Y'
3932: WHERE ID = ldefoklassetcndtnlnstlrec.id
3933: AND SOURCE_LANG <> USERENV('LANG');
3934:
3931: SET SFWT_FLAG = 'Y'
3932: WHERE ID = ldefoklassetcndtnlnstlrec.id
3933: AND SOURCE_LANG <> USERENV('LANG');
3934:
3935: x_okl_asset_cndtn_lns_tl_rec := ldefoklassetcndtnlnstlrec;
3936: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3937: EXCEPTION
3938: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3939: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3992: l_api_name CONSTANT VARCHAR2(30) := 'V_update_row';
3993: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3994: l_acnv_rec acnv_rec_type := p_acnv_rec;
3995: l_def_acnv_rec acnv_rec_type;
3996: l_okl_asset_cndtn_lns_tl_rec OklAssetCndtnLnsTlRecType;
3997: lx_okl_asset_cndtn_lns_tl_rec OklAssetCndtnLnsTlRecType;
3998: l_acn_rec acn_rec_type;
3999: lx_acn_rec acn_rec_type;
4000: -------------------------------
3993: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3994: l_acnv_rec acnv_rec_type := p_acnv_rec;
3995: l_def_acnv_rec acnv_rec_type;
3996: l_okl_asset_cndtn_lns_tl_rec OklAssetCndtnLnsTlRecType;
3997: lx_okl_asset_cndtn_lns_tl_rec OklAssetCndtnLnsTlRecType;
3998: l_acn_rec acn_rec_type;
3999: lx_acn_rec acn_rec_type;
4000: -------------------------------
4001: -- FUNCTION fill_who_columns --
4308:
4309: --------------------------------------
4310: -- Move VIEW record to "Child" records
4311: --------------------------------------
4312: migrate(l_def_acnv_rec, l_okl_asset_cndtn_lns_tl_rec);
4313: migrate(l_def_acnv_rec, l_acn_rec);
4314: --------------------------------------------
4315: -- Call the UPDATE_ROW for each child record
4316: --------------------------------------------
4318: p_init_msg_list,
4319: x_return_status,
4320: x_msg_count,
4321: x_msg_data,
4322: l_okl_asset_cndtn_lns_tl_rec,
4323: lx_okl_asset_cndtn_lns_tl_rec
4324: );
4325: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4326: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4319: x_return_status,
4320: x_msg_count,
4321: x_msg_data,
4322: l_okl_asset_cndtn_lns_tl_rec,
4323: lx_okl_asset_cndtn_lns_tl_rec
4324: );
4325: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4326: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4327: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4326: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4327: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4328: RAISE OKC_API.G_EXCEPTION_ERROR;
4329: END IF;
4330: migrate(lx_okl_asset_cndtn_lns_tl_rec, l_def_acnv_rec);
4331: update_row(
4332: p_init_msg_list,
4333: x_return_status,
4334: x_msg_count,
4523: '_PVT'
4524: );
4525: END delete_row;
4526: -------------------------------------------
4527: -- delete_row for:OKL_ASSET_CNDTN_LNS_TL --
4528: -------------------------------------------
4529: PROCEDURE delete_row(
4530: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
4531: x_return_status OUT NOCOPY VARCHAR2,
4530: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
4531: x_return_status OUT NOCOPY VARCHAR2,
4532: x_msg_count OUT NOCOPY NUMBER,
4533: x_msg_data OUT NOCOPY VARCHAR2,
4534: p_okl_asset_cndtn_lns_tl_rec IN OklAssetCndtnLnsTlRecType) IS
4535:
4536: l_api_version CONSTANT NUMBER := 1;
4537: l_api_name CONSTANT VARCHAR2(30) := 'TL_delete_row';
4538: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4535:
4536: l_api_version CONSTANT NUMBER := 1;
4537: l_api_name CONSTANT VARCHAR2(30) := 'TL_delete_row';
4538: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4539: l_okl_asset_cndtn_lns_tl_rec OklAssetCndtnLnsTlRecType:= p_okl_asset_cndtn_lns_tl_rec;
4540: l_row_notfound BOOLEAN := TRUE;
4541: -----------------------------------------------
4542: -- Set_Attributes for:OKL_ASSET_CNDTN_LNS_TL --
4543: -----------------------------------------------
4538: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4539: l_okl_asset_cndtn_lns_tl_rec OklAssetCndtnLnsTlRecType:= p_okl_asset_cndtn_lns_tl_rec;
4540: l_row_notfound BOOLEAN := TRUE;
4541: -----------------------------------------------
4542: -- Set_Attributes for:OKL_ASSET_CNDTN_LNS_TL --
4543: -----------------------------------------------
4544: FUNCTION Set_Attributes (
4545: p_okl_asset_cndtn_lns_tl_rec IN OklAssetCndtnLnsTlRecType,
4546: x_okl_asset_cndtn_lns_tl_rec OUT NOCOPY OklAssetCndtnLnsTlRecType
4541: -----------------------------------------------
4542: -- Set_Attributes for:OKL_ASSET_CNDTN_LNS_TL --
4543: -----------------------------------------------
4544: FUNCTION Set_Attributes (
4545: p_okl_asset_cndtn_lns_tl_rec IN OklAssetCndtnLnsTlRecType,
4546: x_okl_asset_cndtn_lns_tl_rec OUT NOCOPY OklAssetCndtnLnsTlRecType
4547: ) RETURN VARCHAR2 IS
4548: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4549: BEGIN
4542: -- Set_Attributes for:OKL_ASSET_CNDTN_LNS_TL --
4543: -----------------------------------------------
4544: FUNCTION Set_Attributes (
4545: p_okl_asset_cndtn_lns_tl_rec IN OklAssetCndtnLnsTlRecType,
4546: x_okl_asset_cndtn_lns_tl_rec OUT NOCOPY OklAssetCndtnLnsTlRecType
4547: ) RETURN VARCHAR2 IS
4548: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4549: BEGIN
4550: x_okl_asset_cndtn_lns_tl_rec := p_okl_asset_cndtn_lns_tl_rec;
4546: x_okl_asset_cndtn_lns_tl_rec OUT NOCOPY OklAssetCndtnLnsTlRecType
4547: ) RETURN VARCHAR2 IS
4548: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4549: BEGIN
4550: x_okl_asset_cndtn_lns_tl_rec := p_okl_asset_cndtn_lns_tl_rec;
4551: x_okl_asset_cndtn_lns_tl_rec.LANGUAGE := USERENV('LANG');
4552: RETURN(l_return_status);
4553: END Set_Attributes;
4554: BEGIN
4547: ) RETURN VARCHAR2 IS
4548: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4549: BEGIN
4550: x_okl_asset_cndtn_lns_tl_rec := p_okl_asset_cndtn_lns_tl_rec;
4551: x_okl_asset_cndtn_lns_tl_rec.LANGUAGE := USERENV('LANG');
4552: RETURN(l_return_status);
4553: END Set_Attributes;
4554: BEGIN
4555: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4562: RAISE OKC_API.G_EXCEPTION_ERROR;
4563: END IF;
4564: --- Setting item attributes
4565: l_return_status := Set_Attributes(
4566: p_okl_asset_cndtn_lns_tl_rec, -- IN
4567: l_okl_asset_cndtn_lns_tl_rec); -- OUT
4568: --- If any errors happen abort API
4569: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4570: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4563: END IF;
4564: --- Setting item attributes
4565: l_return_status := Set_Attributes(
4566: p_okl_asset_cndtn_lns_tl_rec, -- IN
4567: l_okl_asset_cndtn_lns_tl_rec); -- OUT
4568: --- If any errors happen abort API
4569: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4570: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4571: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4570: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4571: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4572: RAISE OKC_API.G_EXCEPTION_ERROR;
4573: END IF;
4574: DELETE FROM OKL_ASSET_CNDTN_LNS_TL
4575: WHERE ID = l_okl_asset_cndtn_lns_tl_rec.id;
4576:
4577: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4578: EXCEPTION
4571: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4572: RAISE OKC_API.G_EXCEPTION_ERROR;
4573: END IF;
4574: DELETE FROM OKL_ASSET_CNDTN_LNS_TL
4575: WHERE ID = l_okl_asset_cndtn_lns_tl_rec.id;
4576:
4577: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4578: EXCEPTION
4579: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4621: l_api_version CONSTANT NUMBER := 1;
4622: l_api_name CONSTANT VARCHAR2(30) := 'V_delete_row';
4623: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4624: l_acnv_rec acnv_rec_type := p_acnv_rec;
4625: l_okl_asset_cndtn_lns_tl_rec OklAssetCndtnLnsTlRecType;
4626: l_acn_rec acn_rec_type;
4627: BEGIN
4628: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4629: G_PKG_NAME,
4639: END IF;
4640: --------------------------------------
4641: -- Move VIEW record to "Child" records
4642: --------------------------------------
4643: migrate(l_acnv_rec, l_okl_asset_cndtn_lns_tl_rec);
4644: migrate(l_acnv_rec, l_acn_rec);
4645: --------------------------------------------
4646: -- Call the DELETE_ROW for each child record
4647: --------------------------------------------
4649: p_init_msg_list,
4650: x_return_status,
4651: x_msg_count,
4652: x_msg_data,
4653: l_okl_asset_cndtn_lns_tl_rec
4654: );
4655: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4656: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4657: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN