[Home] [Help]
2442: /* as a quick workaround to fix the time-consuming table handler issue */
2443: /* Eventually we'll need to turn them into a separate fix_language procedure */
2444: /*
2445:
2446: DELETE FROM OKC_K_HEADERS_TL T
2447: WHERE NOT EXISTS (
2448: SELECT NULL
2449: FROM OKC_K_HEADERS_B B
2450: WHERE B.ID = T.ID
2449: FROM OKC_K_HEADERS_B B
2450: WHERE B.ID = T.ID
2451: );
2452:
2453: UPDATE OKC_K_HEADERS_TL T SET (
2454: SHORT_DESCRIPTION,
2455: COMMENTS,
2456: DESCRIPTION,
2457: COGNOMEN,
2464: B.COGNOMEN,
2465: B.NON_RESPONSE_REASON,
2466: B.NON_RESPONSE_EXPLAIN,
2467: B.SET_ASIDE_REASON
2468: FROM OKC_K_HEADERS_TL B
2469: WHERE B.ID = T.ID
2470: AND B.LANGUAGE = T.SOURCE_LANG)
2471: WHERE (
2472: T.ID,
2473: T.LANGUAGE)
2474: IN (SELECT
2475: SUBT.ID,
2476: SUBT.LANGUAGE
2477: FROM OKC_K_HEADERS_TL SUBB, OKC_K_HEADERS_TL SUBT
2478: WHERE SUBB.ID = SUBT.ID
2479: AND SUBB.LANGUAGE = SUBT.SOURCE_LANG
2480: AND (SUBB.SHORT_DESCRIPTION <> SUBT.SHORT_DESCRIPTION
2481: OR SUBB.COMMENTS <> SUBT.COMMENTS
2501: ));
2502: */
2503: /* Modifying Insert as per performance guidelines given in bug 3723874 */
2504:
2505: INSERT /*+ append parallel(tt) */ INTO OKC_K_HEADERS_TL tt(
2506: ID,
2507: LANGUAGE,
2508: SOURCE_LANG,
2509: SFWT_FLAG,
2536: B.CREATION_DATE,
2537: B.LAST_UPDATED_BY,
2538: B.LAST_UPDATE_DATE,
2539: B.LAST_UPDATE_LOGIN
2540: FROM OKC_K_HEADERS_TL B, FND_LANGUAGES L
2541: WHERE L.INSTALLED_FLAG IN ('I', 'B')
2542: AND B.LANGUAGE = USERENV('LANG')
2543: ) v, OKC_K_HEADERS_TL t
2544: WHERE t.ID( + ) = v.ID
2539: B.LAST_UPDATE_LOGIN
2540: FROM OKC_K_HEADERS_TL B, FND_LANGUAGES L
2541: WHERE L.INSTALLED_FLAG IN ('I', 'B')
2542: AND B.LANGUAGE = USERENV('LANG')
2543: ) v, OKC_K_HEADERS_TL t
2544: WHERE t.ID( + ) = v.ID
2545: AND t.language( + ) = v.LANGUAGE_CODE
2546: AND t.id IS NULL;
2547:
2547:
2548:
2549: /* Commenting delete and update for bug 3723874 */
2550: /*
2551: DELETE FROM OKC_K_HEADERS_TLH T
2552: WHERE NOT EXISTS (
2553: SELECT NULL
2554: FROM OKC_K_HEADERS_BH B
2555: WHERE B.ID = T.ID
2555: WHERE B.ID = T.ID
2556: AND B.MAJOR_VERSION = T.MAJOR_VERSION
2557: );
2558:
2559: UPDATE OKC_K_HEADERS_TLH T SET (
2560: SHORT_DESCRIPTION,
2561: COMMENTS,
2562: DESCRIPTION,
2563: COGNOMEN,
2570: B.COGNOMEN,
2571: B.NON_RESPONSE_REASON,
2572: B.NON_RESPONSE_EXPLAIN,
2573: B.SET_ASIDE_REASON
2574: FROM OKC_K_HEADERS_TLH B
2575: WHERE B.ID = T.ID
2576: AND B.MAJOR_VERSION = T.MAJOR_VERSION
2577: AND B.LANGUAGE = T.SOURCE_LANG)
2578: WHERE (
2582: IN (SELECT
2583: SUBT.ID,
2584: SUBT.MAJOR_VERSION,
2585: SUBT.LANGUAGE
2586: FROM OKC_K_HEADERS_TLH SUBB, OKC_K_HEADERS_TLH SUBT
2587: WHERE SUBB.ID = SUBT.ID
2588: AND SUBB.MAJOR_VERSION = SUBT.MAJOR_VERSION
2589: AND SUBB.LANGUAGE = SUBT.SOURCE_LANG
2590: AND (SUBB.SHORT_DESCRIPTION <> SUBT.SHORT_DESCRIPTION
2611: ));
2612:
2613: */
2614: /* Modifying Insert as per performance guidelines given in bug 3723874 */
2615: INSERT /*+ append parallel(tt) */ INTO OKC_K_HEADERS_TLH tt(
2616: ID,
2617: LANGUAGE,
2618: MAJOR_VERSION,
2619: SOURCE_LANG,
2648: B.CREATION_DATE,
2649: B.LAST_UPDATED_BY,
2650: B.LAST_UPDATE_DATE,
2651: B.LAST_UPDATE_LOGIN
2652: FROM OKC_K_HEADERS_TLH B, FND_LANGUAGES L
2653: WHERE L.INSTALLED_FLAG IN ('I', 'B')
2654: AND B.LANGUAGE = USERENV('LANG')
2655: ) v, OKC_K_HEADERS_TLH t
2656: WHERE T.ID( + ) = v.ID
2651: B.LAST_UPDATE_LOGIN
2652: FROM OKC_K_HEADERS_TLH B, FND_LANGUAGES L
2653: WHERE L.INSTALLED_FLAG IN ('I', 'B')
2654: AND B.LANGUAGE = USERENV('LANG')
2655: ) v, OKC_K_HEADERS_TLH t
2656: WHERE T.ID( + ) = v.ID
2657: AND T.MAJOR_VERSION( + ) = v.MAJOR_VERSION
2658: AND T.LANGUAGE( + ) = v.LANGUAGE_CODE
2659: AND t.id IS NULL;
2911: RETURN(get_rec(p_chr_rec, l_row_notfound));
2912:
2913: END get_rec;
2914: ---------------------------------------------------------------------------
2915: -- FUNCTION get_rec for: OKC_K_HEADERS_TL
2916: ---------------------------------------------------------------------------
2917: FUNCTION get_rec (
2918: p_okc_k_headers_tl_rec IN okc_k_headers_tl_rec_type,
2919: x_no_data_found OUT NOCOPY BOOLEAN
2914: ---------------------------------------------------------------------------
2915: -- FUNCTION get_rec for: OKC_K_HEADERS_TL
2916: ---------------------------------------------------------------------------
2917: FUNCTION get_rec (
2918: p_okc_k_headers_tl_rec IN okc_k_headers_tl_rec_type,
2919: x_no_data_found OUT NOCOPY BOOLEAN
2920: ) RETURN okc_k_headers_tl_rec_type IS
2921: CURSOR chr_pktl_csr (p_id IN NUMBER,
2922: p_language IN VARCHAR2) IS
2916: ---------------------------------------------------------------------------
2917: FUNCTION get_rec (
2918: p_okc_k_headers_tl_rec IN okc_k_headers_tl_rec_type,
2919: x_no_data_found OUT NOCOPY BOOLEAN
2920: ) RETURN okc_k_headers_tl_rec_type IS
2921: CURSOR chr_pktl_csr (p_id IN NUMBER,
2922: p_language IN VARCHAR2) IS
2923: SELECT
2924: ID,
2936: CREATION_DATE,
2937: LAST_UPDATED_BY,
2938: LAST_UPDATE_DATE,
2939: LAST_UPDATE_LOGIN
2940: FROM Okc_K_Headers_Tl
2941: WHERE okc_k_headers_tl.id = p_id
2942: AND okc_k_headers_tl.language = p_language;
2943: l_chr_pktl chr_pktl_csr%ROWTYPE;
2944: l_okc_k_headers_tl_rec okc_k_headers_tl_rec_type;
2937: LAST_UPDATED_BY,
2938: LAST_UPDATE_DATE,
2939: LAST_UPDATE_LOGIN
2940: FROM Okc_K_Headers_Tl
2941: WHERE okc_k_headers_tl.id = p_id
2942: AND okc_k_headers_tl.language = p_language;
2943: l_chr_pktl chr_pktl_csr%ROWTYPE;
2944: l_okc_k_headers_tl_rec okc_k_headers_tl_rec_type;
2945: BEGIN
2938: LAST_UPDATE_DATE,
2939: LAST_UPDATE_LOGIN
2940: FROM Okc_K_Headers_Tl
2941: WHERE okc_k_headers_tl.id = p_id
2942: AND okc_k_headers_tl.language = p_language;
2943: l_chr_pktl chr_pktl_csr%ROWTYPE;
2944: l_okc_k_headers_tl_rec okc_k_headers_tl_rec_type;
2945: BEGIN
2946:
2940: FROM Okc_K_Headers_Tl
2941: WHERE okc_k_headers_tl.id = p_id
2942: AND okc_k_headers_tl.language = p_language;
2943: l_chr_pktl chr_pktl_csr%ROWTYPE;
2944: l_okc_k_headers_tl_rec okc_k_headers_tl_rec_type;
2945: BEGIN
2946:
2947: IF (l_debug = 'Y') THEN
2948: okc_debug.Set_Indentation('OKC_CHR_PVT');
2950: END IF;
2951:
2952: x_no_data_found := TRUE;
2953: -- Get current database values
2954: OPEN chr_pktl_csr (p_okc_k_headers_tl_rec.id,
2955: p_okc_k_headers_tl_rec.language);
2956: FETCH chr_pktl_csr INTO
2957: l_okc_k_headers_tl_rec.ID,
2958: l_okc_k_headers_tl_rec.LANGUAGE,
2951:
2952: x_no_data_found := TRUE;
2953: -- Get current database values
2954: OPEN chr_pktl_csr (p_okc_k_headers_tl_rec.id,
2955: p_okc_k_headers_tl_rec.language);
2956: FETCH chr_pktl_csr INTO
2957: l_okc_k_headers_tl_rec.ID,
2958: l_okc_k_headers_tl_rec.LANGUAGE,
2959: l_okc_k_headers_tl_rec.SOURCE_LANG,
2953: -- Get current database values
2954: OPEN chr_pktl_csr (p_okc_k_headers_tl_rec.id,
2955: p_okc_k_headers_tl_rec.language);
2956: FETCH chr_pktl_csr INTO
2957: l_okc_k_headers_tl_rec.ID,
2958: l_okc_k_headers_tl_rec.LANGUAGE,
2959: l_okc_k_headers_tl_rec.SOURCE_LANG,
2960: l_okc_k_headers_tl_rec.SFWT_FLAG,
2961: l_okc_k_headers_tl_rec.SHORT_DESCRIPTION,
2954: OPEN chr_pktl_csr (p_okc_k_headers_tl_rec.id,
2955: p_okc_k_headers_tl_rec.language);
2956: FETCH chr_pktl_csr INTO
2957: l_okc_k_headers_tl_rec.ID,
2958: l_okc_k_headers_tl_rec.LANGUAGE,
2959: l_okc_k_headers_tl_rec.SOURCE_LANG,
2960: l_okc_k_headers_tl_rec.SFWT_FLAG,
2961: l_okc_k_headers_tl_rec.SHORT_DESCRIPTION,
2962: l_okc_k_headers_tl_rec.COMMENTS,
2955: p_okc_k_headers_tl_rec.language);
2956: FETCH chr_pktl_csr INTO
2957: l_okc_k_headers_tl_rec.ID,
2958: l_okc_k_headers_tl_rec.LANGUAGE,
2959: l_okc_k_headers_tl_rec.SOURCE_LANG,
2960: l_okc_k_headers_tl_rec.SFWT_FLAG,
2961: l_okc_k_headers_tl_rec.SHORT_DESCRIPTION,
2962: l_okc_k_headers_tl_rec.COMMENTS,
2963: l_okc_k_headers_tl_rec.DESCRIPTION,
2956: FETCH chr_pktl_csr INTO
2957: l_okc_k_headers_tl_rec.ID,
2958: l_okc_k_headers_tl_rec.LANGUAGE,
2959: l_okc_k_headers_tl_rec.SOURCE_LANG,
2960: l_okc_k_headers_tl_rec.SFWT_FLAG,
2961: l_okc_k_headers_tl_rec.SHORT_DESCRIPTION,
2962: l_okc_k_headers_tl_rec.COMMENTS,
2963: l_okc_k_headers_tl_rec.DESCRIPTION,
2964: l_okc_k_headers_tl_rec.COGNOMEN,
2957: l_okc_k_headers_tl_rec.ID,
2958: l_okc_k_headers_tl_rec.LANGUAGE,
2959: l_okc_k_headers_tl_rec.SOURCE_LANG,
2960: l_okc_k_headers_tl_rec.SFWT_FLAG,
2961: l_okc_k_headers_tl_rec.SHORT_DESCRIPTION,
2962: l_okc_k_headers_tl_rec.COMMENTS,
2963: l_okc_k_headers_tl_rec.DESCRIPTION,
2964: l_okc_k_headers_tl_rec.COGNOMEN,
2965: l_okc_k_headers_tl_rec.NON_RESPONSE_REASON,
2958: l_okc_k_headers_tl_rec.LANGUAGE,
2959: l_okc_k_headers_tl_rec.SOURCE_LANG,
2960: l_okc_k_headers_tl_rec.SFWT_FLAG,
2961: l_okc_k_headers_tl_rec.SHORT_DESCRIPTION,
2962: l_okc_k_headers_tl_rec.COMMENTS,
2963: l_okc_k_headers_tl_rec.DESCRIPTION,
2964: l_okc_k_headers_tl_rec.COGNOMEN,
2965: l_okc_k_headers_tl_rec.NON_RESPONSE_REASON,
2966: l_okc_k_headers_tl_rec.NON_RESPONSE_EXPLAIN,
2959: l_okc_k_headers_tl_rec.SOURCE_LANG,
2960: l_okc_k_headers_tl_rec.SFWT_FLAG,
2961: l_okc_k_headers_tl_rec.SHORT_DESCRIPTION,
2962: l_okc_k_headers_tl_rec.COMMENTS,
2963: l_okc_k_headers_tl_rec.DESCRIPTION,
2964: l_okc_k_headers_tl_rec.COGNOMEN,
2965: l_okc_k_headers_tl_rec.NON_RESPONSE_REASON,
2966: l_okc_k_headers_tl_rec.NON_RESPONSE_EXPLAIN,
2967: l_okc_k_headers_tl_rec.SET_ASIDE_REASON,
2960: l_okc_k_headers_tl_rec.SFWT_FLAG,
2961: l_okc_k_headers_tl_rec.SHORT_DESCRIPTION,
2962: l_okc_k_headers_tl_rec.COMMENTS,
2963: l_okc_k_headers_tl_rec.DESCRIPTION,
2964: l_okc_k_headers_tl_rec.COGNOMEN,
2965: l_okc_k_headers_tl_rec.NON_RESPONSE_REASON,
2966: l_okc_k_headers_tl_rec.NON_RESPONSE_EXPLAIN,
2967: l_okc_k_headers_tl_rec.SET_ASIDE_REASON,
2968: l_okc_k_headers_tl_rec.CREATED_BY,
2961: l_okc_k_headers_tl_rec.SHORT_DESCRIPTION,
2962: l_okc_k_headers_tl_rec.COMMENTS,
2963: l_okc_k_headers_tl_rec.DESCRIPTION,
2964: l_okc_k_headers_tl_rec.COGNOMEN,
2965: l_okc_k_headers_tl_rec.NON_RESPONSE_REASON,
2966: l_okc_k_headers_tl_rec.NON_RESPONSE_EXPLAIN,
2967: l_okc_k_headers_tl_rec.SET_ASIDE_REASON,
2968: l_okc_k_headers_tl_rec.CREATED_BY,
2969: l_okc_k_headers_tl_rec.CREATION_DATE,
2962: l_okc_k_headers_tl_rec.COMMENTS,
2963: l_okc_k_headers_tl_rec.DESCRIPTION,
2964: l_okc_k_headers_tl_rec.COGNOMEN,
2965: l_okc_k_headers_tl_rec.NON_RESPONSE_REASON,
2966: l_okc_k_headers_tl_rec.NON_RESPONSE_EXPLAIN,
2967: l_okc_k_headers_tl_rec.SET_ASIDE_REASON,
2968: l_okc_k_headers_tl_rec.CREATED_BY,
2969: l_okc_k_headers_tl_rec.CREATION_DATE,
2970: l_okc_k_headers_tl_rec.LAST_UPDATED_BY,
2963: l_okc_k_headers_tl_rec.DESCRIPTION,
2964: l_okc_k_headers_tl_rec.COGNOMEN,
2965: l_okc_k_headers_tl_rec.NON_RESPONSE_REASON,
2966: l_okc_k_headers_tl_rec.NON_RESPONSE_EXPLAIN,
2967: l_okc_k_headers_tl_rec.SET_ASIDE_REASON,
2968: l_okc_k_headers_tl_rec.CREATED_BY,
2969: l_okc_k_headers_tl_rec.CREATION_DATE,
2970: l_okc_k_headers_tl_rec.LAST_UPDATED_BY,
2971: l_okc_k_headers_tl_rec.LAST_UPDATE_DATE,
2964: l_okc_k_headers_tl_rec.COGNOMEN,
2965: l_okc_k_headers_tl_rec.NON_RESPONSE_REASON,
2966: l_okc_k_headers_tl_rec.NON_RESPONSE_EXPLAIN,
2967: l_okc_k_headers_tl_rec.SET_ASIDE_REASON,
2968: l_okc_k_headers_tl_rec.CREATED_BY,
2969: l_okc_k_headers_tl_rec.CREATION_DATE,
2970: l_okc_k_headers_tl_rec.LAST_UPDATED_BY,
2971: l_okc_k_headers_tl_rec.LAST_UPDATE_DATE,
2972: l_okc_k_headers_tl_rec.LAST_UPDATE_LOGIN;
2965: l_okc_k_headers_tl_rec.NON_RESPONSE_REASON,
2966: l_okc_k_headers_tl_rec.NON_RESPONSE_EXPLAIN,
2967: l_okc_k_headers_tl_rec.SET_ASIDE_REASON,
2968: l_okc_k_headers_tl_rec.CREATED_BY,
2969: l_okc_k_headers_tl_rec.CREATION_DATE,
2970: l_okc_k_headers_tl_rec.LAST_UPDATED_BY,
2971: l_okc_k_headers_tl_rec.LAST_UPDATE_DATE,
2972: l_okc_k_headers_tl_rec.LAST_UPDATE_LOGIN;
2973: x_no_data_found := chr_pktl_csr%NOTFOUND;
2966: l_okc_k_headers_tl_rec.NON_RESPONSE_EXPLAIN,
2967: l_okc_k_headers_tl_rec.SET_ASIDE_REASON,
2968: l_okc_k_headers_tl_rec.CREATED_BY,
2969: l_okc_k_headers_tl_rec.CREATION_DATE,
2970: l_okc_k_headers_tl_rec.LAST_UPDATED_BY,
2971: l_okc_k_headers_tl_rec.LAST_UPDATE_DATE,
2972: l_okc_k_headers_tl_rec.LAST_UPDATE_LOGIN;
2973: x_no_data_found := chr_pktl_csr%NOTFOUND;
2974: CLOSE chr_pktl_csr;
2967: l_okc_k_headers_tl_rec.SET_ASIDE_REASON,
2968: l_okc_k_headers_tl_rec.CREATED_BY,
2969: l_okc_k_headers_tl_rec.CREATION_DATE,
2970: l_okc_k_headers_tl_rec.LAST_UPDATED_BY,
2971: l_okc_k_headers_tl_rec.LAST_UPDATE_DATE,
2972: l_okc_k_headers_tl_rec.LAST_UPDATE_LOGIN;
2973: x_no_data_found := chr_pktl_csr%NOTFOUND;
2974: CLOSE chr_pktl_csr;
2975: RETURN(l_okc_k_headers_tl_rec);
2968: l_okc_k_headers_tl_rec.CREATED_BY,
2969: l_okc_k_headers_tl_rec.CREATION_DATE,
2970: l_okc_k_headers_tl_rec.LAST_UPDATED_BY,
2971: l_okc_k_headers_tl_rec.LAST_UPDATE_DATE,
2972: l_okc_k_headers_tl_rec.LAST_UPDATE_LOGIN;
2973: x_no_data_found := chr_pktl_csr%NOTFOUND;
2974: CLOSE chr_pktl_csr;
2975: RETURN(l_okc_k_headers_tl_rec);
2976:
2971: l_okc_k_headers_tl_rec.LAST_UPDATE_DATE,
2972: l_okc_k_headers_tl_rec.LAST_UPDATE_LOGIN;
2973: x_no_data_found := chr_pktl_csr%NOTFOUND;
2974: CLOSE chr_pktl_csr;
2975: RETURN(l_okc_k_headers_tl_rec);
2976:
2977: END get_rec;
2978:
2979: FUNCTION get_rec (
2976:
2977: END get_rec;
2978:
2979: FUNCTION get_rec (
2980: p_okc_k_headers_tl_rec IN okc_k_headers_tl_rec_type
2981: ) RETURN okc_k_headers_tl_rec_type IS
2982: l_row_notfound BOOLEAN := TRUE;
2983: BEGIN
2984:
2977: END get_rec;
2978:
2979: FUNCTION get_rec (
2980: p_okc_k_headers_tl_rec IN okc_k_headers_tl_rec_type
2981: ) RETURN okc_k_headers_tl_rec_type IS
2982: l_row_notfound BOOLEAN := TRUE;
2983: BEGIN
2984:
2985: IF (l_debug = 'Y') THEN
2986: okc_debug.Set_Indentation('OKC_CHR_PVT');
2987: okc_debug.LOG('10500: Entered get_rec', 2);
2988: END IF;
2989:
2990: RETURN(get_rec(p_okc_k_headers_tl_rec, l_row_notfound));
2991:
2992: END get_rec;
2993: ---------------------------------------------------------------------------
2994: -- FUNCTION get_rec for: OKC_K_HEADERS_V
3108: ORG_ID, --mmadhavi added for MOAC
3109: CANCELLED_AMOUNT -- LLC
3110: -- R12 Data Model Changes 4485150 End
3111: FROM OKC_K_HEADERS_ALL_B CHRB,
3112: OKC_K_HEADERS_TL CHRT
3113: WHERE CHRB.ID = p_id
3114: AND CHRB.ID = CHRT.ID
3115: AND CHRT.LANGUAGE = USERENV('LANG');
3116: /* FROM Okc_K_Headers_V
4474:
4475: END migrate;
4476: PROCEDURE migrate (
4477: p_from IN chrv_rec_type,
4478: p_to IN OUT NOCOPY okc_k_headers_tl_rec_type
4479: ) IS
4480: BEGIN
4481:
4482: IF (l_debug = 'Y') THEN
4500: p_to.last_update_login := p_from.last_update_login;
4501:
4502: END migrate;
4503: PROCEDURE migrate (
4504: p_from IN okc_k_headers_tl_rec_type,
4505: p_to IN OUT NOCOPY chrv_rec_type
4506: ) IS
4507: BEGIN
4508:
4546: l_api_name CONSTANT VARCHAR2(30) := 'V_validate_row';
4547: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4548: l_chrv_rec chrv_rec_type := p_chrv_rec;
4549: l_chr_rec chr_rec_type;
4550: l_okc_k_headers_tl_rec okc_k_headers_tl_rec_type;
4551: BEGIN
4552:
4553: IF (l_debug = 'Y') THEN
4554: okc_debug.Set_Indentation('OKC_CHR_PVT');
5081: );
5082:
5083: END insert_row;
5084: -------------------------------------
5085: -- insert_row for:OKC_K_HEADERS_TL --
5086: -------------------------------------
5087: PROCEDURE insert_row(
5088: p_init_msg_list IN VARCHAR2,
5089: x_return_status OUT NOCOPY VARCHAR2,
5088: p_init_msg_list IN VARCHAR2,
5089: x_return_status OUT NOCOPY VARCHAR2,
5090: x_msg_count OUT NOCOPY NUMBER,
5091: x_msg_data OUT NOCOPY VARCHAR2,
5092: p_okc_k_headers_tl_rec IN okc_k_headers_tl_rec_type,
5093: x_okc_k_headers_tl_rec OUT NOCOPY okc_k_headers_tl_rec_type) IS
5094:
5095: l_api_version CONSTANT NUMBER := 1;
5096: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
5089: x_return_status OUT NOCOPY VARCHAR2,
5090: x_msg_count OUT NOCOPY NUMBER,
5091: x_msg_data OUT NOCOPY VARCHAR2,
5092: p_okc_k_headers_tl_rec IN okc_k_headers_tl_rec_type,
5093: x_okc_k_headers_tl_rec OUT NOCOPY okc_k_headers_tl_rec_type) IS
5094:
5095: l_api_version CONSTANT NUMBER := 1;
5096: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
5097: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5094:
5095: l_api_version CONSTANT NUMBER := 1;
5096: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
5097: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5098: l_okc_k_headers_tl_rec okc_k_headers_tl_rec_type := p_okc_k_headers_tl_rec;
5099: l_def_okc_k_headers_tl_rec okc_k_headers_tl_rec_type;
5100: CURSOR get_languages IS
5101: SELECT *
5102: FROM FND_LANGUAGES
5095: l_api_version CONSTANT NUMBER := 1;
5096: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
5097: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5098: l_okc_k_headers_tl_rec okc_k_headers_tl_rec_type := p_okc_k_headers_tl_rec;
5099: l_def_okc_k_headers_tl_rec okc_k_headers_tl_rec_type;
5100: CURSOR get_languages IS
5101: SELECT *
5102: FROM FND_LANGUAGES
5103: WHERE INSTALLED_FLAG IN ('I', 'B');
5101: SELECT *
5102: FROM FND_LANGUAGES
5103: WHERE INSTALLED_FLAG IN ('I', 'B');
5104: -----------------------------------------
5105: -- Set_Attributes for:OKC_K_HEADERS_TL --
5106: -----------------------------------------
5107: FUNCTION Set_Attributes (
5108: p_okc_k_headers_tl_rec IN okc_k_headers_tl_rec_type,
5109: x_okc_k_headers_tl_rec OUT NOCOPY okc_k_headers_tl_rec_type
5104: -----------------------------------------
5105: -- Set_Attributes for:OKC_K_HEADERS_TL --
5106: -----------------------------------------
5107: FUNCTION Set_Attributes (
5108: p_okc_k_headers_tl_rec IN okc_k_headers_tl_rec_type,
5109: x_okc_k_headers_tl_rec OUT NOCOPY okc_k_headers_tl_rec_type
5110: ) RETURN VARCHAR2 IS
5111: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5112: BEGIN
5105: -- Set_Attributes for:OKC_K_HEADERS_TL --
5106: -----------------------------------------
5107: FUNCTION Set_Attributes (
5108: p_okc_k_headers_tl_rec IN okc_k_headers_tl_rec_type,
5109: x_okc_k_headers_tl_rec OUT NOCOPY okc_k_headers_tl_rec_type
5110: ) RETURN VARCHAR2 IS
5111: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5112: BEGIN
5113:
5115: okc_debug.Set_Indentation('OKC_CHR_PVT');
5116: okc_debug.LOG('14200: Entered Set_Attributes', 2);
5117: END IF;
5118:
5119: x_okc_k_headers_tl_rec := p_okc_k_headers_tl_rec;
5120: x_okc_k_headers_tl_rec.LANGUAGE := okc_util.get_userenv_lang;
5121: x_okc_k_headers_tl_rec.SOURCE_LANG := okc_util.get_userenv_lang;
5122: RETURN(l_return_status);
5123:
5116: okc_debug.LOG('14200: Entered Set_Attributes', 2);
5117: END IF;
5118:
5119: x_okc_k_headers_tl_rec := p_okc_k_headers_tl_rec;
5120: x_okc_k_headers_tl_rec.LANGUAGE := okc_util.get_userenv_lang;
5121: x_okc_k_headers_tl_rec.SOURCE_LANG := okc_util.get_userenv_lang;
5122: RETURN(l_return_status);
5123:
5124: END Set_Attributes;
5117: END IF;
5118:
5119: x_okc_k_headers_tl_rec := p_okc_k_headers_tl_rec;
5120: x_okc_k_headers_tl_rec.LANGUAGE := okc_util.get_userenv_lang;
5121: x_okc_k_headers_tl_rec.SOURCE_LANG := okc_util.get_userenv_lang;
5122: RETURN(l_return_status);
5123:
5124: END Set_Attributes;
5125: BEGIN
5139: RAISE OKC_API.G_EXCEPTION_ERROR;
5140: END IF;
5141: --- Setting item attributes
5142: l_return_status := Set_Attributes(
5143: p_okc_k_headers_tl_rec, -- IN
5144: l_okc_k_headers_tl_rec); -- OUT
5145: --- If any errors happen abort API
5146: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5147: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5140: END IF;
5141: --- Setting item attributes
5142: l_return_status := Set_Attributes(
5143: p_okc_k_headers_tl_rec, -- IN
5144: l_okc_k_headers_tl_rec); -- OUT
5145: --- If any errors happen abort API
5146: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5147: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5148: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5148: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5149: RAISE OKC_API.G_EXCEPTION_ERROR;
5150: END IF;
5151: FOR l_lang_rec IN get_languages LOOP
5152: l_okc_k_headers_tl_rec.language := l_lang_rec.language_code;
5153: INSERT INTO OKC_K_HEADERS_TL(
5154: id,
5155: language,
5156: source_lang,
5149: RAISE OKC_API.G_EXCEPTION_ERROR;
5150: END IF;
5151: FOR l_lang_rec IN get_languages LOOP
5152: l_okc_k_headers_tl_rec.language := l_lang_rec.language_code;
5153: INSERT INTO OKC_K_HEADERS_TL(
5154: id,
5155: language,
5156: source_lang,
5157: sfwt_flag,
5167: last_updated_by,
5168: last_update_date,
5169: last_update_login)
5170: VALUES (
5171: l_okc_k_headers_tl_rec.id,
5172: l_okc_k_headers_tl_rec.language,
5173: l_okc_k_headers_tl_rec.source_lang,
5174: l_okc_k_headers_tl_rec.sfwt_flag,
5175: l_okc_k_headers_tl_rec.short_description,
5168: last_update_date,
5169: last_update_login)
5170: VALUES (
5171: l_okc_k_headers_tl_rec.id,
5172: l_okc_k_headers_tl_rec.language,
5173: l_okc_k_headers_tl_rec.source_lang,
5174: l_okc_k_headers_tl_rec.sfwt_flag,
5175: l_okc_k_headers_tl_rec.short_description,
5176: l_okc_k_headers_tl_rec.comments,
5169: last_update_login)
5170: VALUES (
5171: l_okc_k_headers_tl_rec.id,
5172: l_okc_k_headers_tl_rec.language,
5173: l_okc_k_headers_tl_rec.source_lang,
5174: l_okc_k_headers_tl_rec.sfwt_flag,
5175: l_okc_k_headers_tl_rec.short_description,
5176: l_okc_k_headers_tl_rec.comments,
5177: l_okc_k_headers_tl_rec.description,
5170: VALUES (
5171: l_okc_k_headers_tl_rec.id,
5172: l_okc_k_headers_tl_rec.language,
5173: l_okc_k_headers_tl_rec.source_lang,
5174: l_okc_k_headers_tl_rec.sfwt_flag,
5175: l_okc_k_headers_tl_rec.short_description,
5176: l_okc_k_headers_tl_rec.comments,
5177: l_okc_k_headers_tl_rec.description,
5178: l_okc_k_headers_tl_rec.cognomen,
5171: l_okc_k_headers_tl_rec.id,
5172: l_okc_k_headers_tl_rec.language,
5173: l_okc_k_headers_tl_rec.source_lang,
5174: l_okc_k_headers_tl_rec.sfwt_flag,
5175: l_okc_k_headers_tl_rec.short_description,
5176: l_okc_k_headers_tl_rec.comments,
5177: l_okc_k_headers_tl_rec.description,
5178: l_okc_k_headers_tl_rec.cognomen,
5179: l_okc_k_headers_tl_rec.non_response_reason,
5172: l_okc_k_headers_tl_rec.language,
5173: l_okc_k_headers_tl_rec.source_lang,
5174: l_okc_k_headers_tl_rec.sfwt_flag,
5175: l_okc_k_headers_tl_rec.short_description,
5176: l_okc_k_headers_tl_rec.comments,
5177: l_okc_k_headers_tl_rec.description,
5178: l_okc_k_headers_tl_rec.cognomen,
5179: l_okc_k_headers_tl_rec.non_response_reason,
5180: l_okc_k_headers_tl_rec.non_response_explain,
5173: l_okc_k_headers_tl_rec.source_lang,
5174: l_okc_k_headers_tl_rec.sfwt_flag,
5175: l_okc_k_headers_tl_rec.short_description,
5176: l_okc_k_headers_tl_rec.comments,
5177: l_okc_k_headers_tl_rec.description,
5178: l_okc_k_headers_tl_rec.cognomen,
5179: l_okc_k_headers_tl_rec.non_response_reason,
5180: l_okc_k_headers_tl_rec.non_response_explain,
5181: l_okc_k_headers_tl_rec.set_aside_reason,
5174: l_okc_k_headers_tl_rec.sfwt_flag,
5175: l_okc_k_headers_tl_rec.short_description,
5176: l_okc_k_headers_tl_rec.comments,
5177: l_okc_k_headers_tl_rec.description,
5178: l_okc_k_headers_tl_rec.cognomen,
5179: l_okc_k_headers_tl_rec.non_response_reason,
5180: l_okc_k_headers_tl_rec.non_response_explain,
5181: l_okc_k_headers_tl_rec.set_aside_reason,
5182: l_okc_k_headers_tl_rec.created_by,
5175: l_okc_k_headers_tl_rec.short_description,
5176: l_okc_k_headers_tl_rec.comments,
5177: l_okc_k_headers_tl_rec.description,
5178: l_okc_k_headers_tl_rec.cognomen,
5179: l_okc_k_headers_tl_rec.non_response_reason,
5180: l_okc_k_headers_tl_rec.non_response_explain,
5181: l_okc_k_headers_tl_rec.set_aside_reason,
5182: l_okc_k_headers_tl_rec.created_by,
5183: l_okc_k_headers_tl_rec.creation_date,
5176: l_okc_k_headers_tl_rec.comments,
5177: l_okc_k_headers_tl_rec.description,
5178: l_okc_k_headers_tl_rec.cognomen,
5179: l_okc_k_headers_tl_rec.non_response_reason,
5180: l_okc_k_headers_tl_rec.non_response_explain,
5181: l_okc_k_headers_tl_rec.set_aside_reason,
5182: l_okc_k_headers_tl_rec.created_by,
5183: l_okc_k_headers_tl_rec.creation_date,
5184: l_okc_k_headers_tl_rec.last_updated_by,
5177: l_okc_k_headers_tl_rec.description,
5178: l_okc_k_headers_tl_rec.cognomen,
5179: l_okc_k_headers_tl_rec.non_response_reason,
5180: l_okc_k_headers_tl_rec.non_response_explain,
5181: l_okc_k_headers_tl_rec.set_aside_reason,
5182: l_okc_k_headers_tl_rec.created_by,
5183: l_okc_k_headers_tl_rec.creation_date,
5184: l_okc_k_headers_tl_rec.last_updated_by,
5185: l_okc_k_headers_tl_rec.last_update_date,
5178: l_okc_k_headers_tl_rec.cognomen,
5179: l_okc_k_headers_tl_rec.non_response_reason,
5180: l_okc_k_headers_tl_rec.non_response_explain,
5181: l_okc_k_headers_tl_rec.set_aside_reason,
5182: l_okc_k_headers_tl_rec.created_by,
5183: l_okc_k_headers_tl_rec.creation_date,
5184: l_okc_k_headers_tl_rec.last_updated_by,
5185: l_okc_k_headers_tl_rec.last_update_date,
5186: l_okc_k_headers_tl_rec.last_update_login);
5179: l_okc_k_headers_tl_rec.non_response_reason,
5180: l_okc_k_headers_tl_rec.non_response_explain,
5181: l_okc_k_headers_tl_rec.set_aside_reason,
5182: l_okc_k_headers_tl_rec.created_by,
5183: l_okc_k_headers_tl_rec.creation_date,
5184: l_okc_k_headers_tl_rec.last_updated_by,
5185: l_okc_k_headers_tl_rec.last_update_date,
5186: l_okc_k_headers_tl_rec.last_update_login);
5187: END LOOP;
5180: l_okc_k_headers_tl_rec.non_response_explain,
5181: l_okc_k_headers_tl_rec.set_aside_reason,
5182: l_okc_k_headers_tl_rec.created_by,
5183: l_okc_k_headers_tl_rec.creation_date,
5184: l_okc_k_headers_tl_rec.last_updated_by,
5185: l_okc_k_headers_tl_rec.last_update_date,
5186: l_okc_k_headers_tl_rec.last_update_login);
5187: END LOOP;
5188: -- Set OUT values
5181: l_okc_k_headers_tl_rec.set_aside_reason,
5182: l_okc_k_headers_tl_rec.created_by,
5183: l_okc_k_headers_tl_rec.creation_date,
5184: l_okc_k_headers_tl_rec.last_updated_by,
5185: l_okc_k_headers_tl_rec.last_update_date,
5186: l_okc_k_headers_tl_rec.last_update_login);
5187: END LOOP;
5188: -- Set OUT values
5189: x_okc_k_headers_tl_rec := l_okc_k_headers_tl_rec;
5182: l_okc_k_headers_tl_rec.created_by,
5183: l_okc_k_headers_tl_rec.creation_date,
5184: l_okc_k_headers_tl_rec.last_updated_by,
5185: l_okc_k_headers_tl_rec.last_update_date,
5186: l_okc_k_headers_tl_rec.last_update_login);
5187: END LOOP;
5188: -- Set OUT values
5189: x_okc_k_headers_tl_rec := l_okc_k_headers_tl_rec;
5190: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5185: l_okc_k_headers_tl_rec.last_update_date,
5186: l_okc_k_headers_tl_rec.last_update_login);
5187: END LOOP;
5188: -- Set OUT values
5189: x_okc_k_headers_tl_rec := l_okc_k_headers_tl_rec;
5190: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5191: IF (l_debug = 'Y') THEN
5192: okc_debug.LOG('14400: Exiting insert_row', 2);
5193: okc_debug.Reset_Indentation;
5263: l_chrv_rec chrv_rec_type;
5264: l_def_chrv_rec chrv_rec_type;
5265: l_chr_rec chr_rec_type;
5266: lx_chr_rec chr_rec_type;
5267: l_okc_k_headers_tl_rec okc_k_headers_tl_rec_type;
5268: lx_okc_k_headers_tl_rec okc_k_headers_tl_rec_type;
5269: -------------------------------
5270: -- FUNCTION fill_who_columns --
5271: -------------------------------
5264: l_def_chrv_rec chrv_rec_type;
5265: l_chr_rec chr_rec_type;
5266: lx_chr_rec chr_rec_type;
5267: l_okc_k_headers_tl_rec okc_k_headers_tl_rec_type;
5268: lx_okc_k_headers_tl_rec okc_k_headers_tl_rec_type;
5269: -------------------------------
5270: -- FUNCTION fill_who_columns --
5271: -------------------------------
5272: FUNCTION fill_who_columns (
5401: --------------------------------------
5402: -- Move VIEW record to "Child" records
5403: --------------------------------------
5404: migrate(l_def_chrv_rec, l_chr_rec);
5405: migrate(l_def_chrv_rec, l_okc_k_headers_tl_rec);
5406:
5407: --------------------------------------------
5408: -- Call the INSERT_ROW for each child record
5409: --------------------------------------------
5425: p_init_msg_list,
5426: x_return_status,
5427: x_msg_count,
5428: x_msg_data,
5429: l_okc_k_headers_tl_rec,
5430: lx_okc_k_headers_tl_rec
5431: );
5432: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5433: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5426: x_return_status,
5427: x_msg_count,
5428: x_msg_data,
5429: l_okc_k_headers_tl_rec,
5430: lx_okc_k_headers_tl_rec
5431: );
5432: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5433: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5434: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5433: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5434: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5435: RAISE OKC_API.G_EXCEPTION_ERROR;
5436: END IF;
5437: migrate(lx_okc_k_headers_tl_rec, l_def_chrv_rec);
5438: -- Set OUT values
5439: x_chrv_rec := l_def_chrv_rec;
5440: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5441: IF (l_debug = 'Y') THEN
5789: );
5790:
5791: END lock_row;
5792: -----------------------------------
5793: -- lock_row for:OKC_K_HEADERS_TL --
5794: -----------------------------------
5795: PROCEDURE lock_row(
5796: p_init_msg_list IN VARCHAR2,
5797: x_return_status OUT NOCOPY VARCHAR2,
5796: p_init_msg_list IN VARCHAR2,
5797: x_return_status OUT NOCOPY VARCHAR2,
5798: x_msg_count OUT NOCOPY NUMBER,
5799: x_msg_data OUT NOCOPY VARCHAR2,
5800: p_okc_k_headers_tl_rec IN okc_k_headers_tl_rec_type) IS
5801:
5802: E_Resource_Busy EXCEPTION;
5803: PRAGMA EXCEPTION_INIT(E_Resource_Busy, - 00054);
5804: CURSOR lock_csr (p_okc_k_headers_tl_rec IN okc_k_headers_tl_rec_type) IS
5800: p_okc_k_headers_tl_rec IN okc_k_headers_tl_rec_type) IS
5801:
5802: E_Resource_Busy EXCEPTION;
5803: PRAGMA EXCEPTION_INIT(E_Resource_Busy, - 00054);
5804: CURSOR lock_csr (p_okc_k_headers_tl_rec IN okc_k_headers_tl_rec_type) IS
5805: SELECT *
5806: FROM OKC_K_HEADERS_TL
5807: WHERE ID = p_okc_k_headers_tl_rec.id
5808: FOR UPDATE NOWAIT;
5802: E_Resource_Busy EXCEPTION;
5803: PRAGMA EXCEPTION_INIT(E_Resource_Busy, - 00054);
5804: CURSOR lock_csr (p_okc_k_headers_tl_rec IN okc_k_headers_tl_rec_type) IS
5805: SELECT *
5806: FROM OKC_K_HEADERS_TL
5807: WHERE ID = p_okc_k_headers_tl_rec.id
5808: FOR UPDATE NOWAIT;
5809:
5810: l_api_version CONSTANT NUMBER := 1;
5803: PRAGMA EXCEPTION_INIT(E_Resource_Busy, - 00054);
5804: CURSOR lock_csr (p_okc_k_headers_tl_rec IN okc_k_headers_tl_rec_type) IS
5805: SELECT *
5806: FROM OKC_K_HEADERS_TL
5807: WHERE ID = p_okc_k_headers_tl_rec.id
5808: FOR UPDATE NOWAIT;
5809:
5810: l_api_version CONSTANT NUMBER := 1;
5811: l_api_name CONSTANT VARCHAR2(30) := 'TL_lock_row';
5835: okc_debug.Set_Indentation('OKC_CHR_PVT');
5836: okc_debug.LOG('16900: Entered lock_row', 2);
5837: END IF;
5838:
5839: OPEN lock_csr(p_okc_k_headers_tl_rec);
5840: FETCH lock_csr INTO l_lock_var;
5841: l_row_notfound := lock_csr%NOTFOUND;
5842: CLOSE lock_csr;
5843: IF (l_debug = 'Y') THEN
5937: l_api_version CONSTANT NUMBER := 1;
5938: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
5939: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5940: l_chr_rec chr_rec_type;
5941: l_okc_k_headers_tl_rec okc_k_headers_tl_rec_type;
5942: BEGIN
5943:
5944: IF (l_debug = 'Y') THEN
5945: okc_debug.Set_Indentation('OKC_CHR_PVT');
5961: --------------------------------------
5962: -- Move VIEW record to "Child" records
5963: --------------------------------------
5964: migrate(p_chrv_rec, l_chr_rec);
5965: migrate(p_chrv_rec, l_okc_k_headers_tl_rec);
5966: --------------------------------------------
5967: -- Call the LOCK_ROW for each child record
5968: --------------------------------------------
5969: lock_row(
5982: p_init_msg_list,
5983: x_return_status,
5984: x_msg_count,
5985: x_msg_data,
5986: l_okc_k_headers_tl_rec
5987: );
5988: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5989: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5990: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6794: );
6795:
6796: END update_row;
6797: -------------------------------------
6798: -- update_row for:OKC_K_HEADERS_TL --
6799: -------------------------------------
6800: PROCEDURE update_row(
6801: p_init_msg_list IN VARCHAR2,
6802: x_return_status OUT NOCOPY VARCHAR2,
6801: p_init_msg_list IN VARCHAR2,
6802: x_return_status OUT NOCOPY VARCHAR2,
6803: x_msg_count OUT NOCOPY NUMBER,
6804: x_msg_data OUT NOCOPY VARCHAR2,
6805: p_okc_k_headers_tl_rec IN okc_k_headers_tl_rec_type,
6806: x_okc_k_headers_tl_rec OUT NOCOPY okc_k_headers_tl_rec_type) IS
6807:
6808: l_api_version CONSTANT NUMBER := 1;
6809: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
6802: x_return_status OUT NOCOPY VARCHAR2,
6803: x_msg_count OUT NOCOPY NUMBER,
6804: x_msg_data OUT NOCOPY VARCHAR2,
6805: p_okc_k_headers_tl_rec IN okc_k_headers_tl_rec_type,
6806: x_okc_k_headers_tl_rec OUT NOCOPY okc_k_headers_tl_rec_type) IS
6807:
6808: l_api_version CONSTANT NUMBER := 1;
6809: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
6810: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
6807:
6808: l_api_version CONSTANT NUMBER := 1;
6809: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
6810: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
6811: l_okc_k_headers_tl_rec okc_k_headers_tl_rec_type := p_okc_k_headers_tl_rec;
6812: l_def_okc_k_headers_tl_rec okc_k_headers_tl_rec_type;
6813: l_row_notfound BOOLEAN := TRUE;
6814: ----------------------------------
6815: -- FUNCTION populate_new_record --
6808: l_api_version CONSTANT NUMBER := 1;
6809: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
6810: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
6811: l_okc_k_headers_tl_rec okc_k_headers_tl_rec_type := p_okc_k_headers_tl_rec;
6812: l_def_okc_k_headers_tl_rec okc_k_headers_tl_rec_type;
6813: l_row_notfound BOOLEAN := TRUE;
6814: ----------------------------------
6815: -- FUNCTION populate_new_record --
6816: ----------------------------------
6814: ----------------------------------
6815: -- FUNCTION populate_new_record --
6816: ----------------------------------
6817: FUNCTION populate_new_record (
6818: p_okc_k_headers_tl_rec IN okc_k_headers_tl_rec_type,
6819: x_okc_k_headers_tl_rec OUT NOCOPY okc_k_headers_tl_rec_type
6820: ) RETURN VARCHAR2 IS
6821: l_okc_k_headers_tl_rec okc_k_headers_tl_rec_type;
6822: l_row_notfound BOOLEAN := TRUE;
6815: -- FUNCTION populate_new_record --
6816: ----------------------------------
6817: FUNCTION populate_new_record (
6818: p_okc_k_headers_tl_rec IN okc_k_headers_tl_rec_type,
6819: x_okc_k_headers_tl_rec OUT NOCOPY okc_k_headers_tl_rec_type
6820: ) RETURN VARCHAR2 IS
6821: l_okc_k_headers_tl_rec okc_k_headers_tl_rec_type;
6822: l_row_notfound BOOLEAN := TRUE;
6823: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
6817: FUNCTION populate_new_record (
6818: p_okc_k_headers_tl_rec IN okc_k_headers_tl_rec_type,
6819: x_okc_k_headers_tl_rec OUT NOCOPY okc_k_headers_tl_rec_type
6820: ) RETURN VARCHAR2 IS
6821: l_okc_k_headers_tl_rec okc_k_headers_tl_rec_type;
6822: l_row_notfound BOOLEAN := TRUE;
6823: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
6824: BEGIN
6825:
6827: okc_debug.Set_Indentation('OKC_CHR_PVT');
6828: okc_debug.LOG('19300: Entered populate_new_record', 2);
6829: END IF;
6830:
6831: x_okc_k_headers_tl_rec := p_okc_k_headers_tl_rec;
6832: -- Get current database values
6833: l_okc_k_headers_tl_rec := get_rec(p_okc_k_headers_tl_rec, l_row_notfound);
6834: IF (l_row_notfound) THEN
6835: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
6829: END IF;
6830:
6831: x_okc_k_headers_tl_rec := p_okc_k_headers_tl_rec;
6832: -- Get current database values
6833: l_okc_k_headers_tl_rec := get_rec(p_okc_k_headers_tl_rec, l_row_notfound);
6834: IF (l_row_notfound) THEN
6835: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
6836: END IF;
6837: IF (x_okc_k_headers_tl_rec.id = OKC_API.G_MISS_NUM)
6833: l_okc_k_headers_tl_rec := get_rec(p_okc_k_headers_tl_rec, l_row_notfound);
6834: IF (l_row_notfound) THEN
6835: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
6836: END IF;
6837: IF (x_okc_k_headers_tl_rec.id = OKC_API.G_MISS_NUM)
6838: THEN
6839: x_okc_k_headers_tl_rec.id := l_okc_k_headers_tl_rec.id;
6840: END IF;
6841: IF (x_okc_k_headers_tl_rec.language = OKC_API.G_MISS_CHAR)
6835: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
6836: END IF;
6837: IF (x_okc_k_headers_tl_rec.id = OKC_API.G_MISS_NUM)
6838: THEN
6839: x_okc_k_headers_tl_rec.id := l_okc_k_headers_tl_rec.id;
6840: END IF;
6841: IF (x_okc_k_headers_tl_rec.language = OKC_API.G_MISS_CHAR)
6842: THEN
6843: x_okc_k_headers_tl_rec.language := l_okc_k_headers_tl_rec.language;
6837: IF (x_okc_k_headers_tl_rec.id = OKC_API.G_MISS_NUM)
6838: THEN
6839: x_okc_k_headers_tl_rec.id := l_okc_k_headers_tl_rec.id;
6840: END IF;
6841: IF (x_okc_k_headers_tl_rec.language = OKC_API.G_MISS_CHAR)
6842: THEN
6843: x_okc_k_headers_tl_rec.language := l_okc_k_headers_tl_rec.language;
6844: END IF;
6845: IF (x_okc_k_headers_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
6839: x_okc_k_headers_tl_rec.id := l_okc_k_headers_tl_rec.id;
6840: END IF;
6841: IF (x_okc_k_headers_tl_rec.language = OKC_API.G_MISS_CHAR)
6842: THEN
6843: x_okc_k_headers_tl_rec.language := l_okc_k_headers_tl_rec.language;
6844: END IF;
6845: IF (x_okc_k_headers_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
6846: THEN
6847: x_okc_k_headers_tl_rec.source_lang := l_okc_k_headers_tl_rec.source_lang;
6841: IF (x_okc_k_headers_tl_rec.language = OKC_API.G_MISS_CHAR)
6842: THEN
6843: x_okc_k_headers_tl_rec.language := l_okc_k_headers_tl_rec.language;
6844: END IF;
6845: IF (x_okc_k_headers_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
6846: THEN
6847: x_okc_k_headers_tl_rec.source_lang := l_okc_k_headers_tl_rec.source_lang;
6848: END IF;
6849: IF (x_okc_k_headers_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
6843: x_okc_k_headers_tl_rec.language := l_okc_k_headers_tl_rec.language;
6844: END IF;
6845: IF (x_okc_k_headers_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
6846: THEN
6847: x_okc_k_headers_tl_rec.source_lang := l_okc_k_headers_tl_rec.source_lang;
6848: END IF;
6849: IF (x_okc_k_headers_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
6850: THEN
6851: x_okc_k_headers_tl_rec.sfwt_flag := l_okc_k_headers_tl_rec.sfwt_flag;
6845: IF (x_okc_k_headers_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
6846: THEN
6847: x_okc_k_headers_tl_rec.source_lang := l_okc_k_headers_tl_rec.source_lang;
6848: END IF;
6849: IF (x_okc_k_headers_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
6850: THEN
6851: x_okc_k_headers_tl_rec.sfwt_flag := l_okc_k_headers_tl_rec.sfwt_flag;
6852: END IF;
6853: IF (x_okc_k_headers_tl_rec.short_description = OKC_API.G_MISS_CHAR)
6847: x_okc_k_headers_tl_rec.source_lang := l_okc_k_headers_tl_rec.source_lang;
6848: END IF;
6849: IF (x_okc_k_headers_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
6850: THEN
6851: x_okc_k_headers_tl_rec.sfwt_flag := l_okc_k_headers_tl_rec.sfwt_flag;
6852: END IF;
6853: IF (x_okc_k_headers_tl_rec.short_description = OKC_API.G_MISS_CHAR)
6854: THEN
6855: x_okc_k_headers_tl_rec.short_description := l_okc_k_headers_tl_rec.short_description;
6849: IF (x_okc_k_headers_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
6850: THEN
6851: x_okc_k_headers_tl_rec.sfwt_flag := l_okc_k_headers_tl_rec.sfwt_flag;
6852: END IF;
6853: IF (x_okc_k_headers_tl_rec.short_description = OKC_API.G_MISS_CHAR)
6854: THEN
6855: x_okc_k_headers_tl_rec.short_description := l_okc_k_headers_tl_rec.short_description;
6856: END IF;
6857: IF (x_okc_k_headers_tl_rec.comments = OKC_API.G_MISS_CHAR)
6851: x_okc_k_headers_tl_rec.sfwt_flag := l_okc_k_headers_tl_rec.sfwt_flag;
6852: END IF;
6853: IF (x_okc_k_headers_tl_rec.short_description = OKC_API.G_MISS_CHAR)
6854: THEN
6855: x_okc_k_headers_tl_rec.short_description := l_okc_k_headers_tl_rec.short_description;
6856: END IF;
6857: IF (x_okc_k_headers_tl_rec.comments = OKC_API.G_MISS_CHAR)
6858: THEN
6859: x_okc_k_headers_tl_rec.comments := l_okc_k_headers_tl_rec.comments;
6853: IF (x_okc_k_headers_tl_rec.short_description = OKC_API.G_MISS_CHAR)
6854: THEN
6855: x_okc_k_headers_tl_rec.short_description := l_okc_k_headers_tl_rec.short_description;
6856: END IF;
6857: IF (x_okc_k_headers_tl_rec.comments = OKC_API.G_MISS_CHAR)
6858: THEN
6859: x_okc_k_headers_tl_rec.comments := l_okc_k_headers_tl_rec.comments;
6860: END IF;
6861: IF (x_okc_k_headers_tl_rec.description = OKC_API.G_MISS_CHAR)
6855: x_okc_k_headers_tl_rec.short_description := l_okc_k_headers_tl_rec.short_description;
6856: END IF;
6857: IF (x_okc_k_headers_tl_rec.comments = OKC_API.G_MISS_CHAR)
6858: THEN
6859: x_okc_k_headers_tl_rec.comments := l_okc_k_headers_tl_rec.comments;
6860: END IF;
6861: IF (x_okc_k_headers_tl_rec.description = OKC_API.G_MISS_CHAR)
6862: THEN
6863: x_okc_k_headers_tl_rec.description := l_okc_k_headers_tl_rec.description;
6857: IF (x_okc_k_headers_tl_rec.comments = OKC_API.G_MISS_CHAR)
6858: THEN
6859: x_okc_k_headers_tl_rec.comments := l_okc_k_headers_tl_rec.comments;
6860: END IF;
6861: IF (x_okc_k_headers_tl_rec.description = OKC_API.G_MISS_CHAR)
6862: THEN
6863: x_okc_k_headers_tl_rec.description := l_okc_k_headers_tl_rec.description;
6864: END IF;
6865: IF (x_okc_k_headers_tl_rec.cognomen = OKC_API.G_MISS_CHAR)
6859: x_okc_k_headers_tl_rec.comments := l_okc_k_headers_tl_rec.comments;
6860: END IF;
6861: IF (x_okc_k_headers_tl_rec.description = OKC_API.G_MISS_CHAR)
6862: THEN
6863: x_okc_k_headers_tl_rec.description := l_okc_k_headers_tl_rec.description;
6864: END IF;
6865: IF (x_okc_k_headers_tl_rec.cognomen = OKC_API.G_MISS_CHAR)
6866: THEN
6867: x_okc_k_headers_tl_rec.cognomen := l_okc_k_headers_tl_rec.cognomen;
6861: IF (x_okc_k_headers_tl_rec.description = OKC_API.G_MISS_CHAR)
6862: THEN
6863: x_okc_k_headers_tl_rec.description := l_okc_k_headers_tl_rec.description;
6864: END IF;
6865: IF (x_okc_k_headers_tl_rec.cognomen = OKC_API.G_MISS_CHAR)
6866: THEN
6867: x_okc_k_headers_tl_rec.cognomen := l_okc_k_headers_tl_rec.cognomen;
6868: END IF;
6869: IF (x_okc_k_headers_tl_rec.non_response_reason = OKC_API.G_MISS_CHAR)
6863: x_okc_k_headers_tl_rec.description := l_okc_k_headers_tl_rec.description;
6864: END IF;
6865: IF (x_okc_k_headers_tl_rec.cognomen = OKC_API.G_MISS_CHAR)
6866: THEN
6867: x_okc_k_headers_tl_rec.cognomen := l_okc_k_headers_tl_rec.cognomen;
6868: END IF;
6869: IF (x_okc_k_headers_tl_rec.non_response_reason = OKC_API.G_MISS_CHAR)
6870: THEN
6871: x_okc_k_headers_tl_rec.non_response_reason := l_okc_k_headers_tl_rec.non_response_reason;
6865: IF (x_okc_k_headers_tl_rec.cognomen = OKC_API.G_MISS_CHAR)
6866: THEN
6867: x_okc_k_headers_tl_rec.cognomen := l_okc_k_headers_tl_rec.cognomen;
6868: END IF;
6869: IF (x_okc_k_headers_tl_rec.non_response_reason = OKC_API.G_MISS_CHAR)
6870: THEN
6871: x_okc_k_headers_tl_rec.non_response_reason := l_okc_k_headers_tl_rec.non_response_reason;
6872: END IF;
6873: IF (x_okc_k_headers_tl_rec.non_response_explain = OKC_API.G_MISS_CHAR)
6867: x_okc_k_headers_tl_rec.cognomen := l_okc_k_headers_tl_rec.cognomen;
6868: END IF;
6869: IF (x_okc_k_headers_tl_rec.non_response_reason = OKC_API.G_MISS_CHAR)
6870: THEN
6871: x_okc_k_headers_tl_rec.non_response_reason := l_okc_k_headers_tl_rec.non_response_reason;
6872: END IF;
6873: IF (x_okc_k_headers_tl_rec.non_response_explain = OKC_API.G_MISS_CHAR)
6874: THEN
6875: x_okc_k_headers_tl_rec.non_response_explain := l_okc_k_headers_tl_rec.non_response_explain;
6869: IF (x_okc_k_headers_tl_rec.non_response_reason = OKC_API.G_MISS_CHAR)
6870: THEN
6871: x_okc_k_headers_tl_rec.non_response_reason := l_okc_k_headers_tl_rec.non_response_reason;
6872: END IF;
6873: IF (x_okc_k_headers_tl_rec.non_response_explain = OKC_API.G_MISS_CHAR)
6874: THEN
6875: x_okc_k_headers_tl_rec.non_response_explain := l_okc_k_headers_tl_rec.non_response_explain;
6876: END IF;
6877: IF (x_okc_k_headers_tl_rec.set_aside_reason = OKC_API.G_MISS_CHAR)
6871: x_okc_k_headers_tl_rec.non_response_reason := l_okc_k_headers_tl_rec.non_response_reason;
6872: END IF;
6873: IF (x_okc_k_headers_tl_rec.non_response_explain = OKC_API.G_MISS_CHAR)
6874: THEN
6875: x_okc_k_headers_tl_rec.non_response_explain := l_okc_k_headers_tl_rec.non_response_explain;
6876: END IF;
6877: IF (x_okc_k_headers_tl_rec.set_aside_reason = OKC_API.G_MISS_CHAR)
6878: THEN
6879: x_okc_k_headers_tl_rec.set_aside_reason := l_okc_k_headers_tl_rec.set_aside_reason;
6873: IF (x_okc_k_headers_tl_rec.non_response_explain = OKC_API.G_MISS_CHAR)
6874: THEN
6875: x_okc_k_headers_tl_rec.non_response_explain := l_okc_k_headers_tl_rec.non_response_explain;
6876: END IF;
6877: IF (x_okc_k_headers_tl_rec.set_aside_reason = OKC_API.G_MISS_CHAR)
6878: THEN
6879: x_okc_k_headers_tl_rec.set_aside_reason := l_okc_k_headers_tl_rec.set_aside_reason;
6880: END IF;
6881: IF (x_okc_k_headers_tl_rec.created_by = OKC_API.G_MISS_NUM)
6875: x_okc_k_headers_tl_rec.non_response_explain := l_okc_k_headers_tl_rec.non_response_explain;
6876: END IF;
6877: IF (x_okc_k_headers_tl_rec.set_aside_reason = OKC_API.G_MISS_CHAR)
6878: THEN
6879: x_okc_k_headers_tl_rec.set_aside_reason := l_okc_k_headers_tl_rec.set_aside_reason;
6880: END IF;
6881: IF (x_okc_k_headers_tl_rec.created_by = OKC_API.G_MISS_NUM)
6882: THEN
6883: x_okc_k_headers_tl_rec.created_by := l_okc_k_headers_tl_rec.created_by;
6877: IF (x_okc_k_headers_tl_rec.set_aside_reason = OKC_API.G_MISS_CHAR)
6878: THEN
6879: x_okc_k_headers_tl_rec.set_aside_reason := l_okc_k_headers_tl_rec.set_aside_reason;
6880: END IF;
6881: IF (x_okc_k_headers_tl_rec.created_by = OKC_API.G_MISS_NUM)
6882: THEN
6883: x_okc_k_headers_tl_rec.created_by := l_okc_k_headers_tl_rec.created_by;
6884: END IF;
6885: IF (x_okc_k_headers_tl_rec.creation_date = OKC_API.G_MISS_DATE)
6879: x_okc_k_headers_tl_rec.set_aside_reason := l_okc_k_headers_tl_rec.set_aside_reason;
6880: END IF;
6881: IF (x_okc_k_headers_tl_rec.created_by = OKC_API.G_MISS_NUM)
6882: THEN
6883: x_okc_k_headers_tl_rec.created_by := l_okc_k_headers_tl_rec.created_by;
6884: END IF;
6885: IF (x_okc_k_headers_tl_rec.creation_date = OKC_API.G_MISS_DATE)
6886: THEN
6887: x_okc_k_headers_tl_rec.creation_date := l_okc_k_headers_tl_rec.creation_date;
6881: IF (x_okc_k_headers_tl_rec.created_by = OKC_API.G_MISS_NUM)
6882: THEN
6883: x_okc_k_headers_tl_rec.created_by := l_okc_k_headers_tl_rec.created_by;
6884: END IF;
6885: IF (x_okc_k_headers_tl_rec.creation_date = OKC_API.G_MISS_DATE)
6886: THEN
6887: x_okc_k_headers_tl_rec.creation_date := l_okc_k_headers_tl_rec.creation_date;
6888: END IF;
6889: IF (x_okc_k_headers_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
6883: x_okc_k_headers_tl_rec.created_by := l_okc_k_headers_tl_rec.created_by;
6884: END IF;
6885: IF (x_okc_k_headers_tl_rec.creation_date = OKC_API.G_MISS_DATE)
6886: THEN
6887: x_okc_k_headers_tl_rec.creation_date := l_okc_k_headers_tl_rec.creation_date;
6888: END IF;
6889: IF (x_okc_k_headers_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
6890: THEN
6891: x_okc_k_headers_tl_rec.last_updated_by := l_okc_k_headers_tl_rec.last_updated_by;
6885: IF (x_okc_k_headers_tl_rec.creation_date = OKC_API.G_MISS_DATE)
6886: THEN
6887: x_okc_k_headers_tl_rec.creation_date := l_okc_k_headers_tl_rec.creation_date;
6888: END IF;
6889: IF (x_okc_k_headers_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
6890: THEN
6891: x_okc_k_headers_tl_rec.last_updated_by := l_okc_k_headers_tl_rec.last_updated_by;
6892: END IF;
6893: IF (x_okc_k_headers_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
6887: x_okc_k_headers_tl_rec.creation_date := l_okc_k_headers_tl_rec.creation_date;
6888: END IF;
6889: IF (x_okc_k_headers_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
6890: THEN
6891: x_okc_k_headers_tl_rec.last_updated_by := l_okc_k_headers_tl_rec.last_updated_by;
6892: END IF;
6893: IF (x_okc_k_headers_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
6894: THEN
6895: x_okc_k_headers_tl_rec.last_update_date := l_okc_k_headers_tl_rec.last_update_date;
6889: IF (x_okc_k_headers_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
6890: THEN
6891: x_okc_k_headers_tl_rec.last_updated_by := l_okc_k_headers_tl_rec.last_updated_by;
6892: END IF;
6893: IF (x_okc_k_headers_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
6894: THEN
6895: x_okc_k_headers_tl_rec.last_update_date := l_okc_k_headers_tl_rec.last_update_date;
6896: END IF;
6897: IF (x_okc_k_headers_tl_rec.last_update_login = OKC_API.G_MISS_NUM)
6891: x_okc_k_headers_tl_rec.last_updated_by := l_okc_k_headers_tl_rec.last_updated_by;
6892: END IF;
6893: IF (x_okc_k_headers_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
6894: THEN
6895: x_okc_k_headers_tl_rec.last_update_date := l_okc_k_headers_tl_rec.last_update_date;
6896: END IF;
6897: IF (x_okc_k_headers_tl_rec.last_update_login = OKC_API.G_MISS_NUM)
6898: THEN
6899: x_okc_k_headers_tl_rec.last_update_login := l_okc_k_headers_tl_rec.last_update_login;
6893: IF (x_okc_k_headers_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
6894: THEN
6895: x_okc_k_headers_tl_rec.last_update_date := l_okc_k_headers_tl_rec.last_update_date;
6896: END IF;
6897: IF (x_okc_k_headers_tl_rec.last_update_login = OKC_API.G_MISS_NUM)
6898: THEN
6899: x_okc_k_headers_tl_rec.last_update_login := l_okc_k_headers_tl_rec.last_update_login;
6900: END IF;
6901: RETURN(l_return_status);
6895: x_okc_k_headers_tl_rec.last_update_date := l_okc_k_headers_tl_rec.last_update_date;
6896: END IF;
6897: IF (x_okc_k_headers_tl_rec.last_update_login = OKC_API.G_MISS_NUM)
6898: THEN
6899: x_okc_k_headers_tl_rec.last_update_login := l_okc_k_headers_tl_rec.last_update_login;
6900: END IF;
6901: RETURN(l_return_status);
6902:
6903: END populate_new_record;
6901: RETURN(l_return_status);
6902:
6903: END populate_new_record;
6904: -----------------------------------------
6905: -- Set_Attributes for:OKC_K_HEADERS_TL --
6906: -----------------------------------------
6907: FUNCTION Set_Attributes (
6908: p_okc_k_headers_tl_rec IN okc_k_headers_tl_rec_type,
6909: x_okc_k_headers_tl_rec OUT NOCOPY okc_k_headers_tl_rec_type
6904: -----------------------------------------
6905: -- Set_Attributes for:OKC_K_HEADERS_TL --
6906: -----------------------------------------
6907: FUNCTION Set_Attributes (
6908: p_okc_k_headers_tl_rec IN okc_k_headers_tl_rec_type,
6909: x_okc_k_headers_tl_rec OUT NOCOPY okc_k_headers_tl_rec_type
6910: ) RETURN VARCHAR2 IS
6911: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
6912: BEGIN
6905: -- Set_Attributes for:OKC_K_HEADERS_TL --
6906: -----------------------------------------
6907: FUNCTION Set_Attributes (
6908: p_okc_k_headers_tl_rec IN okc_k_headers_tl_rec_type,
6909: x_okc_k_headers_tl_rec OUT NOCOPY okc_k_headers_tl_rec_type
6910: ) RETURN VARCHAR2 IS
6911: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
6912: BEGIN
6913:
6915: okc_debug.Set_Indentation('OKC_CHR_PVT');
6916: okc_debug.LOG('19400: Entered Set_Attributes', 2);
6917: END IF;
6918:
6919: x_okc_k_headers_tl_rec := p_okc_k_headers_tl_rec;
6920: x_okc_k_headers_tl_rec.LANGUAGE := okc_util.get_userenv_lang;
6921: x_okc_k_headers_tl_rec.SOURCE_LANG := okc_util.get_userenv_lang;
6922: RETURN(l_return_status);
6923:
6916: okc_debug.LOG('19400: Entered Set_Attributes', 2);
6917: END IF;
6918:
6919: x_okc_k_headers_tl_rec := p_okc_k_headers_tl_rec;
6920: x_okc_k_headers_tl_rec.LANGUAGE := okc_util.get_userenv_lang;
6921: x_okc_k_headers_tl_rec.SOURCE_LANG := okc_util.get_userenv_lang;
6922: RETURN(l_return_status);
6923:
6924: END Set_Attributes;
6917: END IF;
6918:
6919: x_okc_k_headers_tl_rec := p_okc_k_headers_tl_rec;
6920: x_okc_k_headers_tl_rec.LANGUAGE := okc_util.get_userenv_lang;
6921: x_okc_k_headers_tl_rec.SOURCE_LANG := okc_util.get_userenv_lang;
6922: RETURN(l_return_status);
6923:
6924: END Set_Attributes;
6925: BEGIN
6939: RAISE OKC_API.G_EXCEPTION_ERROR;
6940: END IF;
6941: --- Setting item attributes
6942: l_return_status := Set_Attributes(
6943: p_okc_k_headers_tl_rec, -- IN
6944: l_okc_k_headers_tl_rec); -- OUT
6945: --- If any errors happen abort API
6946: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6947: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6940: END IF;
6941: --- Setting item attributes
6942: l_return_status := Set_Attributes(
6943: p_okc_k_headers_tl_rec, -- IN
6944: l_okc_k_headers_tl_rec); -- OUT
6945: --- If any errors happen abort API
6946: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6947: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6948: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6947: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6948: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6949: RAISE OKC_API.G_EXCEPTION_ERROR;
6950: END IF;
6951: l_return_status := populate_new_record(l_okc_k_headers_tl_rec, l_def_okc_k_headers_tl_rec);
6952: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6953: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6954: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6955: RAISE OKC_API.G_EXCEPTION_ERROR;
6953: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6954: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6955: RAISE OKC_API.G_EXCEPTION_ERROR;
6956: END IF;
6957: UPDATE OKC_K_HEADERS_TL
6958: SET SHORT_DESCRIPTION = l_def_okc_k_headers_tl_rec.short_description,
6959: COMMENTS = l_def_okc_k_headers_tl_rec.comments,
6960: DESCRIPTION = l_def_okc_k_headers_tl_rec.description,
6961: COGNOMEN = l_def_okc_k_headers_tl_rec.cognomen,
6954: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6955: RAISE OKC_API.G_EXCEPTION_ERROR;
6956: END IF;
6957: UPDATE OKC_K_HEADERS_TL
6958: SET SHORT_DESCRIPTION = l_def_okc_k_headers_tl_rec.short_description,
6959: COMMENTS = l_def_okc_k_headers_tl_rec.comments,
6960: DESCRIPTION = l_def_okc_k_headers_tl_rec.description,
6961: COGNOMEN = l_def_okc_k_headers_tl_rec.cognomen,
6962: NON_RESPONSE_REASON = l_def_okc_k_headers_tl_rec.non_response_reason,
6955: RAISE OKC_API.G_EXCEPTION_ERROR;
6956: END IF;
6957: UPDATE OKC_K_HEADERS_TL
6958: SET SHORT_DESCRIPTION = l_def_okc_k_headers_tl_rec.short_description,
6959: COMMENTS = l_def_okc_k_headers_tl_rec.comments,
6960: DESCRIPTION = l_def_okc_k_headers_tl_rec.description,
6961: COGNOMEN = l_def_okc_k_headers_tl_rec.cognomen,
6962: NON_RESPONSE_REASON = l_def_okc_k_headers_tl_rec.non_response_reason,
6963: NON_RESPONSE_EXPLAIN = l_def_okc_k_headers_tl_rec.non_response_explain,
6956: END IF;
6957: UPDATE OKC_K_HEADERS_TL
6958: SET SHORT_DESCRIPTION = l_def_okc_k_headers_tl_rec.short_description,
6959: COMMENTS = l_def_okc_k_headers_tl_rec.comments,
6960: DESCRIPTION = l_def_okc_k_headers_tl_rec.description,
6961: COGNOMEN = l_def_okc_k_headers_tl_rec.cognomen,
6962: NON_RESPONSE_REASON = l_def_okc_k_headers_tl_rec.non_response_reason,
6963: NON_RESPONSE_EXPLAIN = l_def_okc_k_headers_tl_rec.non_response_explain,
6964: SET_ASIDE_REASON = l_def_okc_k_headers_tl_rec.set_aside_reason,
6957: UPDATE OKC_K_HEADERS_TL
6958: SET SHORT_DESCRIPTION = l_def_okc_k_headers_tl_rec.short_description,
6959: COMMENTS = l_def_okc_k_headers_tl_rec.comments,
6960: DESCRIPTION = l_def_okc_k_headers_tl_rec.description,
6961: COGNOMEN = l_def_okc_k_headers_tl_rec.cognomen,
6962: NON_RESPONSE_REASON = l_def_okc_k_headers_tl_rec.non_response_reason,
6963: NON_RESPONSE_EXPLAIN = l_def_okc_k_headers_tl_rec.non_response_explain,
6964: SET_ASIDE_REASON = l_def_okc_k_headers_tl_rec.set_aside_reason,
6965: SOURCE_LANG = l_def_okc_k_headers_tl_rec.source_lang,
6958: SET SHORT_DESCRIPTION = l_def_okc_k_headers_tl_rec.short_description,
6959: COMMENTS = l_def_okc_k_headers_tl_rec.comments,
6960: DESCRIPTION = l_def_okc_k_headers_tl_rec.description,
6961: COGNOMEN = l_def_okc_k_headers_tl_rec.cognomen,
6962: NON_RESPONSE_REASON = l_def_okc_k_headers_tl_rec.non_response_reason,
6963: NON_RESPONSE_EXPLAIN = l_def_okc_k_headers_tl_rec.non_response_explain,
6964: SET_ASIDE_REASON = l_def_okc_k_headers_tl_rec.set_aside_reason,
6965: SOURCE_LANG = l_def_okc_k_headers_tl_rec.source_lang,
6966: --CREATED_BY = l_def_okc_k_headers_tl_rec.created_by,
6959: COMMENTS = l_def_okc_k_headers_tl_rec.comments,
6960: DESCRIPTION = l_def_okc_k_headers_tl_rec.description,
6961: COGNOMEN = l_def_okc_k_headers_tl_rec.cognomen,
6962: NON_RESPONSE_REASON = l_def_okc_k_headers_tl_rec.non_response_reason,
6963: NON_RESPONSE_EXPLAIN = l_def_okc_k_headers_tl_rec.non_response_explain,
6964: SET_ASIDE_REASON = l_def_okc_k_headers_tl_rec.set_aside_reason,
6965: SOURCE_LANG = l_def_okc_k_headers_tl_rec.source_lang,
6966: --CREATED_BY = l_def_okc_k_headers_tl_rec.created_by,
6967: --CREATION_DATE = l_def_okc_k_headers_tl_rec.creation_date,
6960: DESCRIPTION = l_def_okc_k_headers_tl_rec.description,
6961: COGNOMEN = l_def_okc_k_headers_tl_rec.cognomen,
6962: NON_RESPONSE_REASON = l_def_okc_k_headers_tl_rec.non_response_reason,
6963: NON_RESPONSE_EXPLAIN = l_def_okc_k_headers_tl_rec.non_response_explain,
6964: SET_ASIDE_REASON = l_def_okc_k_headers_tl_rec.set_aside_reason,
6965: SOURCE_LANG = l_def_okc_k_headers_tl_rec.source_lang,
6966: --CREATED_BY = l_def_okc_k_headers_tl_rec.created_by,
6967: --CREATION_DATE = l_def_okc_k_headers_tl_rec.creation_date,
6968: LAST_UPDATED_BY = l_def_okc_k_headers_tl_rec.last_updated_by,
6961: COGNOMEN = l_def_okc_k_headers_tl_rec.cognomen,
6962: NON_RESPONSE_REASON = l_def_okc_k_headers_tl_rec.non_response_reason,
6963: NON_RESPONSE_EXPLAIN = l_def_okc_k_headers_tl_rec.non_response_explain,
6964: SET_ASIDE_REASON = l_def_okc_k_headers_tl_rec.set_aside_reason,
6965: SOURCE_LANG = l_def_okc_k_headers_tl_rec.source_lang,
6966: --CREATED_BY = l_def_okc_k_headers_tl_rec.created_by,
6967: --CREATION_DATE = l_def_okc_k_headers_tl_rec.creation_date,
6968: LAST_UPDATED_BY = l_def_okc_k_headers_tl_rec.last_updated_by,
6969: LAST_UPDATE_DATE = l_def_okc_k_headers_tl_rec.last_update_date,
6962: NON_RESPONSE_REASON = l_def_okc_k_headers_tl_rec.non_response_reason,
6963: NON_RESPONSE_EXPLAIN = l_def_okc_k_headers_tl_rec.non_response_explain,
6964: SET_ASIDE_REASON = l_def_okc_k_headers_tl_rec.set_aside_reason,
6965: SOURCE_LANG = l_def_okc_k_headers_tl_rec.source_lang,
6966: --CREATED_BY = l_def_okc_k_headers_tl_rec.created_by,
6967: --CREATION_DATE = l_def_okc_k_headers_tl_rec.creation_date,
6968: LAST_UPDATED_BY = l_def_okc_k_headers_tl_rec.last_updated_by,
6969: LAST_UPDATE_DATE = l_def_okc_k_headers_tl_rec.last_update_date,
6970: LAST_UPDATE_LOGIN = l_def_okc_k_headers_tl_rec.last_update_login
6963: NON_RESPONSE_EXPLAIN = l_def_okc_k_headers_tl_rec.non_response_explain,
6964: SET_ASIDE_REASON = l_def_okc_k_headers_tl_rec.set_aside_reason,
6965: SOURCE_LANG = l_def_okc_k_headers_tl_rec.source_lang,
6966: --CREATED_BY = l_def_okc_k_headers_tl_rec.created_by,
6967: --CREATION_DATE = l_def_okc_k_headers_tl_rec.creation_date,
6968: LAST_UPDATED_BY = l_def_okc_k_headers_tl_rec.last_updated_by,
6969: LAST_UPDATE_DATE = l_def_okc_k_headers_tl_rec.last_update_date,
6970: LAST_UPDATE_LOGIN = l_def_okc_k_headers_tl_rec.last_update_login
6971: WHERE ID = l_def_okc_k_headers_tl_rec.id
6964: SET_ASIDE_REASON = l_def_okc_k_headers_tl_rec.set_aside_reason,
6965: SOURCE_LANG = l_def_okc_k_headers_tl_rec.source_lang,
6966: --CREATED_BY = l_def_okc_k_headers_tl_rec.created_by,
6967: --CREATION_DATE = l_def_okc_k_headers_tl_rec.creation_date,
6968: LAST_UPDATED_BY = l_def_okc_k_headers_tl_rec.last_updated_by,
6969: LAST_UPDATE_DATE = l_def_okc_k_headers_tl_rec.last_update_date,
6970: LAST_UPDATE_LOGIN = l_def_okc_k_headers_tl_rec.last_update_login
6971: WHERE ID = l_def_okc_k_headers_tl_rec.id
6972: AND USERENV('LANG') IN (SOURCE_LANG, LANGUAGE);
6965: SOURCE_LANG = l_def_okc_k_headers_tl_rec.source_lang,
6966: --CREATED_BY = l_def_okc_k_headers_tl_rec.created_by,
6967: --CREATION_DATE = l_def_okc_k_headers_tl_rec.creation_date,
6968: LAST_UPDATED_BY = l_def_okc_k_headers_tl_rec.last_updated_by,
6969: LAST_UPDATE_DATE = l_def_okc_k_headers_tl_rec.last_update_date,
6970: LAST_UPDATE_LOGIN = l_def_okc_k_headers_tl_rec.last_update_login
6971: WHERE ID = l_def_okc_k_headers_tl_rec.id
6972: AND USERENV('LANG') IN (SOURCE_LANG, LANGUAGE);
6973:
6966: --CREATED_BY = l_def_okc_k_headers_tl_rec.created_by,
6967: --CREATION_DATE = l_def_okc_k_headers_tl_rec.creation_date,
6968: LAST_UPDATED_BY = l_def_okc_k_headers_tl_rec.last_updated_by,
6969: LAST_UPDATE_DATE = l_def_okc_k_headers_tl_rec.last_update_date,
6970: LAST_UPDATE_LOGIN = l_def_okc_k_headers_tl_rec.last_update_login
6971: WHERE ID = l_def_okc_k_headers_tl_rec.id
6972: AND USERENV('LANG') IN (SOURCE_LANG, LANGUAGE);
6973:
6974: UPDATE OKC_K_HEADERS_TL
6967: --CREATION_DATE = l_def_okc_k_headers_tl_rec.creation_date,
6968: LAST_UPDATED_BY = l_def_okc_k_headers_tl_rec.last_updated_by,
6969: LAST_UPDATE_DATE = l_def_okc_k_headers_tl_rec.last_update_date,
6970: LAST_UPDATE_LOGIN = l_def_okc_k_headers_tl_rec.last_update_login
6971: WHERE ID = l_def_okc_k_headers_tl_rec.id
6972: AND USERENV('LANG') IN (SOURCE_LANG, LANGUAGE);
6973:
6974: UPDATE OKC_K_HEADERS_TL
6975: SET SFWT_FLAG = 'Y'
6970: LAST_UPDATE_LOGIN = l_def_okc_k_headers_tl_rec.last_update_login
6971: WHERE ID = l_def_okc_k_headers_tl_rec.id
6972: AND USERENV('LANG') IN (SOURCE_LANG, LANGUAGE);
6973:
6974: UPDATE OKC_K_HEADERS_TL
6975: SET SFWT_FLAG = 'Y'
6976: WHERE ID = l_def_okc_k_headers_tl_rec.id
6977: AND SOURCE_LANG <> USERENV('LANG');
6978:
6972: AND USERENV('LANG') IN (SOURCE_LANG, LANGUAGE);
6973:
6974: UPDATE OKC_K_HEADERS_TL
6975: SET SFWT_FLAG = 'Y'
6976: WHERE ID = l_def_okc_k_headers_tl_rec.id
6977: AND SOURCE_LANG <> USERENV('LANG');
6978:
6979: x_okc_k_headers_tl_rec := l_def_okc_k_headers_tl_rec;
6980: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
6975: SET SFWT_FLAG = 'Y'
6976: WHERE ID = l_def_okc_k_headers_tl_rec.id
6977: AND SOURCE_LANG <> USERENV('LANG');
6978:
6979: x_okc_k_headers_tl_rec := l_def_okc_k_headers_tl_rec;
6980: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
6981: IF (l_debug = 'Y') THEN
6982: okc_debug.LOG('19600: Exiting update_row', 2);
6983: okc_debug.Reset_Indentation;
7052: l_api_name CONSTANT VARCHAR2(30) := 'V_update_row';
7053: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
7054: l_chrv_rec chrv_rec_type := p_chrv_rec;
7055: l_def_chrv_rec chrv_rec_type;
7056: l_okc_k_headers_tl_rec okc_k_headers_tl_rec_type;
7057: lx_okc_k_headers_tl_rec okc_k_headers_tl_rec_type;
7058: l_chr_rec chr_rec_type;
7059: lx_chr_rec chr_rec_type;
7060: -------------------------------
7053: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
7054: l_chrv_rec chrv_rec_type := p_chrv_rec;
7055: l_def_chrv_rec chrv_rec_type;
7056: l_okc_k_headers_tl_rec okc_k_headers_tl_rec_type;
7057: lx_okc_k_headers_tl_rec okc_k_headers_tl_rec_type;
7058: l_chr_rec chr_rec_type;
7059: lx_chr_rec chr_rec_type;
7060: -------------------------------
7061: -- FUNCTION fill_who_columns --
7615:
7616: --------------------------------------
7617: -- Move VIEW record to "Child" records
7618: --------------------------------------
7619: migrate(l_def_chrv_rec, l_okc_k_headers_tl_rec);
7620: migrate(l_def_chrv_rec, l_chr_rec);
7621: --------------------------------------------
7622: -- Call the UPDATE_ROW for each child record
7623: --------------------------------------------
7625: p_init_msg_list,
7626: x_return_status,
7627: x_msg_count,
7628: x_msg_data,
7629: l_okc_k_headers_tl_rec,
7630: lx_okc_k_headers_tl_rec
7631: );
7632: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7633: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7626: x_return_status,
7627: x_msg_count,
7628: x_msg_data,
7629: l_okc_k_headers_tl_rec,
7630: lx_okc_k_headers_tl_rec
7631: );
7632: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7633: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7634: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7633: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7634: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7635: RAISE OKC_API.G_EXCEPTION_ERROR;
7636: END IF;
7637: migrate(lx_okc_k_headers_tl_rec, l_def_chrv_rec);
7638: update_row(
7639: p_init_msg_list,
7640: x_return_status,
7641: x_msg_count,
7915: );
7916:
7917: END delete_row;
7918: -------------------------------------
7919: -- delete_row for:OKC_K_HEADERS_TL --
7920: -------------------------------------
7921: PROCEDURE delete_row(
7922: p_init_msg_list IN VARCHAR2,
7923: x_return_status OUT NOCOPY VARCHAR2,
7922: p_init_msg_list IN VARCHAR2,
7923: x_return_status OUT NOCOPY VARCHAR2,
7924: x_msg_count OUT NOCOPY NUMBER,
7925: x_msg_data OUT NOCOPY VARCHAR2,
7926: p_okc_k_headers_tl_rec IN okc_k_headers_tl_rec_type) IS
7927:
7928: l_api_version CONSTANT NUMBER := 1;
7929: l_api_name CONSTANT VARCHAR2(30) := 'TL_delete_row';
7930: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
7927:
7928: l_api_version CONSTANT NUMBER := 1;
7929: l_api_name CONSTANT VARCHAR2(30) := 'TL_delete_row';
7930: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
7931: l_okc_k_headers_tl_rec okc_k_headers_tl_rec_type := p_okc_k_headers_tl_rec;
7932: l_row_notfound BOOLEAN := TRUE;
7933: -----------------------------------------
7934: -- Set_Attributes for:OKC_K_HEADERS_TL --
7935: -----------------------------------------
7930: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
7931: l_okc_k_headers_tl_rec okc_k_headers_tl_rec_type := p_okc_k_headers_tl_rec;
7932: l_row_notfound BOOLEAN := TRUE;
7933: -----------------------------------------
7934: -- Set_Attributes for:OKC_K_HEADERS_TL --
7935: -----------------------------------------
7936: FUNCTION Set_Attributes (
7937: p_okc_k_headers_tl_rec IN okc_k_headers_tl_rec_type,
7938: x_okc_k_headers_tl_rec OUT NOCOPY okc_k_headers_tl_rec_type
7933: -----------------------------------------
7934: -- Set_Attributes for:OKC_K_HEADERS_TL --
7935: -----------------------------------------
7936: FUNCTION Set_Attributes (
7937: p_okc_k_headers_tl_rec IN okc_k_headers_tl_rec_type,
7938: x_okc_k_headers_tl_rec OUT NOCOPY okc_k_headers_tl_rec_type
7939: ) RETURN VARCHAR2 IS
7940: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
7941: BEGIN
7934: -- Set_Attributes for:OKC_K_HEADERS_TL --
7935: -----------------------------------------
7936: FUNCTION Set_Attributes (
7937: p_okc_k_headers_tl_rec IN okc_k_headers_tl_rec_type,
7938: x_okc_k_headers_tl_rec OUT NOCOPY okc_k_headers_tl_rec_type
7939: ) RETURN VARCHAR2 IS
7940: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
7941: BEGIN
7942:
7944: okc_debug.Set_Indentation('OKC_CHR_PVT');
7945: okc_debug.LOG('21800: Entered Set_Attributes', 2);
7946: END IF;
7947:
7948: x_okc_k_headers_tl_rec := p_okc_k_headers_tl_rec;
7949: x_okc_k_headers_tl_rec.LANGUAGE := okc_util.get_userenv_lang;
7950: RETURN(l_return_status);
7951:
7952: END Set_Attributes;
7945: okc_debug.LOG('21800: Entered Set_Attributes', 2);
7946: END IF;
7947:
7948: x_okc_k_headers_tl_rec := p_okc_k_headers_tl_rec;
7949: x_okc_k_headers_tl_rec.LANGUAGE := okc_util.get_userenv_lang;
7950: RETURN(l_return_status);
7951:
7952: END Set_Attributes;
7953: BEGIN
7967: RAISE OKC_API.G_EXCEPTION_ERROR;
7968: END IF;
7969: --- Setting item attributes
7970: l_return_status := Set_Attributes(
7971: p_okc_k_headers_tl_rec, -- IN
7972: l_okc_k_headers_tl_rec); -- OUT
7973: --- If any errors happen abort API
7974: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7975: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7968: END IF;
7969: --- Setting item attributes
7970: l_return_status := Set_Attributes(
7971: p_okc_k_headers_tl_rec, -- IN
7972: l_okc_k_headers_tl_rec); -- OUT
7973: --- If any errors happen abort API
7974: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7975: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7976: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7975: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7976: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7977: RAISE OKC_API.G_EXCEPTION_ERROR;
7978: END IF;
7979: DELETE FROM OKC_K_HEADERS_TL
7980: WHERE ID = l_okc_k_headers_tl_rec.id;
7981:
7982: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
7983: IF (l_debug = 'Y') THEN
7976: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7977: RAISE OKC_API.G_EXCEPTION_ERROR;
7978: END IF;
7979: DELETE FROM OKC_K_HEADERS_TL
7980: WHERE ID = l_okc_k_headers_tl_rec.id;
7981:
7982: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
7983: IF (l_debug = 'Y') THEN
7984: okc_debug.LOG('22000: Exiting delete_row', 2);
8051: l_api_version CONSTANT NUMBER := 1;
8052: l_api_name CONSTANT VARCHAR2(30) := 'V_delete_row';
8053: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
8054: l_chrv_rec chrv_rec_type := p_chrv_rec;
8055: l_okc_k_headers_tl_rec okc_k_headers_tl_rec_type;
8056: l_chr_rec chr_rec_type;
8057: BEGIN
8058:
8059: IF (l_debug = 'Y') THEN
8075: END IF;
8076: --------------------------------------
8077: -- Move VIEW record to "Child" records
8078: --------------------------------------
8079: migrate(l_chrv_rec, l_okc_k_headers_tl_rec);
8080: migrate(l_chrv_rec, l_chr_rec);
8081: --------------------------------------------
8082: -- Call the DELETE_ROW for each child record
8083: --------------------------------------------
8085: p_init_msg_list,
8086: x_return_status,
8087: x_msg_count,
8088: x_msg_data,
8089: l_okc_k_headers_tl_rec
8090: );
8091: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
8092: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
8093: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
8777: );
8778:
8779: FOR lang_i IN OKC_UTIL.g_language_code.FIRST..OKC_UTIL.g_language_code.LAST LOOP
8780: FORALL i IN 1..l_tabsize
8781: INSERT INTO OKC_K_HEADERS_TL(
8782: id,
8783: language,
8784: source_lang,
8785: sfwt_flag,
9103: --------------------------------
9104: -- Versioning TL Table
9105: --------------------------------
9106:
9107: INSERT INTO okc_k_headers_tlh
9108: (
9109: major_version,
9110: id,
9111: language,
9141: creation_date,
9142: last_updated_by,
9143: last_update_date,
9144: last_update_login
9145: FROM okc_k_headers_tl
9146: WHERE id = p_chr_id;
9147:
9148: RETURN l_return_status;
9149: IF (l_debug = 'Y') THEN
9193: okc_debug.Set_Indentation('OKC_CHR_PVT');
9194: okc_debug.LOG('24000: Entered restore_version', 2);
9195: END IF;
9196:
9197: INSERT INTO okc_k_headers_tl
9198: (
9199: id,
9200: language,
9201: source_lang,
9229: creation_date,
9230: last_updated_by,
9231: last_update_date,
9232: last_update_login
9233: FROM okc_k_headers_tlh
9234: WHERE id = p_chr_id
9235: AND major_version = p_major_version;
9236:
9237: --------------------------------------