19: -- Modified to handle it's own sequence
20: if fnd_global.user_id = 1 then -- DATAMERGE user
21: select min(LSE1.id + 1)
22: into l_number
23: from okc_line_styles_b LSE1
24: where id < 1000
25: and NOT EXISTS (select 'x'
26: from okc_line_styles_b LSE2
27: where LSE2.id = LSE1.id +1);
22: into l_number
23: from okc_line_styles_b LSE1
24: where id < 1000
25: and NOT EXISTS (select 'x'
26: from okc_line_styles_b LSE2
27: where LSE2.id = LSE1.id +1);
28: else
29: select okc_line_styles_s1.nextval
30: into l_number
66: BEGIN
67: DELETE FROM OKC_LINE_STYLES_TL T
68: WHERE NOT EXISTS (
69: SELECT NULL
70: FROM OKC_LINE_STYLES_B B
71: WHERE B.ID = T.ID
72: );
73:
74: UPDATE OKC_LINE_STYLES_TL T SET (
132:
133: END add_language;
134:
135: ---------------------------------------------------------------------------
136: -- FUNCTION get_rec for: OKC_LINE_STYLES_B
137: ---------------------------------------------------------------------------
138: FUNCTION get_rec (
139: p_lse_rec IN lse_rec_type,
140: x_no_data_found OUT NOCOPY BOOLEAN
174: ITEM_TO_PRICE_YN,
175: PRICE_BASIS_YN,
176: ACCESS_LEVEL,
177: SERVICE_ITEM_YN
178: FROM Okc_Line_Styles_B
179: WHERE okc_line_styles_b.id = p_id;
180: l_lse_pk lse_pk_csr%ROWTYPE;
181: l_lse_rec lse_rec_type;
182: BEGIN
175: PRICE_BASIS_YN,
176: ACCESS_LEVEL,
177: SERVICE_ITEM_YN
178: FROM Okc_Line_Styles_B
179: WHERE okc_line_styles_b.id = p_id;
180: l_lse_pk lse_pk_csr%ROWTYPE;
181: l_lse_rec lse_rec_type;
182: BEGIN
183: x_no_data_found := TRUE;
522: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
523: l_col_tbl okc_util.unq_tbl_type;
524: l_id NUMBER:=OKC_API.G_MISS_NUM;
525: CURSOR loc_top_csr (p_id IN NUMBER) is
526: select id, lse_type from okc_line_styles_b
527: connect by prior lse_parent_id = id
528: start with id = p_id;
529:
530: CURSOR loc_bot_csr (p_id IN NUMBER) is
527: connect by prior lse_parent_id = id
528: start with id = p_id;
529:
530: CURSOR loc_bot_csr (p_id IN NUMBER) is
531: select id, lse_type from okc_line_styles_b
532: connect by prior id = lse_parent_id
533: start with id = p_id;
534:
535: CURSOR par_name_csr(p_id IN NUMBER) is
611: item_not_found_error EXCEPTION;
612: l_row_notfound BOOLEAN := TRUE;
613: CURSOR lse_pk_csr (p_lse_id IN number) IS
614: SELECT '1'
615: FROM OKC_LINE_STYLES_B
616: WHERE id = p_lse_id;
617: l_lse_pk lse_pk_csr%ROWTYPE;
618: BEGIN
619: x_return_status := OKC_API.G_RET_STS_SUCCESS;
879: l_lsev_rec OKC_LINE_STYLES_PUB.lsev_rec_type;
880: lx_lsev_rec OKC_LINE_STYLES_PUB.lsev_rec_type;
881:
882: CURSOR loc_bot_csr (p_id IN NUMBER) is
883: select id, priced_yn, item_to_price_yn, price_basis_yn from okc_line_styles_b
884: Connect by prior id = lse_parent_id
885: start with id = p_id;
886:
887: CURSOR loc_top_csr (p_id IN NUMBER) is
884: Connect by prior id = lse_parent_id
885: start with id = p_id;
886:
887: CURSOR loc_top_csr (p_id IN NUMBER) is
888: select id, priced_yn,item_to_price_yn, price_basis_yn from okc_line_styles_b
889: connect by prior lse_parent_id = id
890: start with id = p_id;
891:
892: BEGIN
1612: ---------------------------------------------------------------------------
1613: -- PROCEDURE insert_row
1614: ---------------------------------------------------------------------------
1615: --------------------------------------
1616: -- insert_row for:OKC_LINE_STYLES_B --
1617: --------------------------------------
1618: PROCEDURE insert_row(
1619: p_init_msg_list IN VARCHAR2 ,
1620: x_return_status OUT NOCOPY VARCHAR2,
1628: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1629: l_lse_rec lse_rec_type := p_lse_rec;
1630: l_def_lse_rec lse_rec_type;
1631: ------------------------------------------
1632: -- Set_Attributes for:OKC_LINE_STYLES_B --
1633: ------------------------------------------
1634: FUNCTION Set_Attributes (
1635: p_lse_rec IN lse_rec_type,
1636: x_lse_rec OUT NOCOPY lse_rec_type
1659: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1660: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1661: RAISE OKC_API.G_EXCEPTION_ERROR;
1662: END IF;
1663: INSERT INTO OKC_LINE_STYLES_B(
1664: id,
1665: lty_code,
1666: priced_yn,
1667: RECURSIVE_YN,
2113: ---------------------------------------------------------------------------
2114: -- PROCEDURE lock_row
2115: ---------------------------------------------------------------------------
2116: ------------------------------------
2117: -- lock_row for:OKC_LINE_STYLES_B --
2118: ------------------------------------
2119: PROCEDURE lock_row(
2120: p_init_msg_list IN VARCHAR2 ,
2121: x_return_status OUT NOCOPY VARCHAR2,
2126: E_Resource_Busy EXCEPTION;
2127: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
2128: CURSOR lock_csr (p_lse_rec IN lse_rec_type) IS
2129: SELECT OBJECT_VERSION_NUMBER
2130: FROM OKC_LINE_STYLES_B
2131: WHERE ID = p_lse_rec.id
2132: AND OBJECT_VERSION_NUMBER = p_lse_rec.object_version_number
2133: FOR UPDATE OF OBJECT_VERSION_NUMBER NOWAIT;
2134:
2133: FOR UPDATE OF OBJECT_VERSION_NUMBER NOWAIT;
2134:
2135: CURSOR lchk_csr (p_lse_rec IN lse_rec_type) IS
2136: SELECT OBJECT_VERSION_NUMBER
2137: FROM OKC_LINE_STYLES_B
2138: WHERE ID = p_lse_rec.id;
2139: l_api_version CONSTANT NUMBER := 1;
2140: l_api_name CONSTANT VARCHAR2(30) := 'B_lock_row';
2141: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2138: WHERE ID = p_lse_rec.id;
2139: l_api_version CONSTANT NUMBER := 1;
2140: l_api_name CONSTANT VARCHAR2(30) := 'B_lock_row';
2141: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2142: l_object_version_number OKC_LINE_STYLES_B.OBJECT_VERSION_NUMBER%TYPE;
2143: lc_object_version_number OKC_LINE_STYLES_B.OBJECT_VERSION_NUMBER%TYPE;
2144: l_row_notfound BOOLEAN := FALSE;
2145: lc_row_notfound BOOLEAN := FALSE;
2146: BEGIN
2139: l_api_version CONSTANT NUMBER := 1;
2140: l_api_name CONSTANT VARCHAR2(30) := 'B_lock_row';
2141: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2142: l_object_version_number OKC_LINE_STYLES_B.OBJECT_VERSION_NUMBER%TYPE;
2143: lc_object_version_number OKC_LINE_STYLES_B.OBJECT_VERSION_NUMBER%TYPE;
2144: l_row_notfound BOOLEAN := FALSE;
2145: lc_row_notfound BOOLEAN := FALSE;
2146: BEGIN
2147: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2466: ---------------------------------------------------------------------------
2467: -- PROCEDURE update_row
2468: ---------------------------------------------------------------------------
2469: --------------------------------------
2470: -- update_row for:OKC_LINE_STYLES_B --
2471: --------------------------------------
2472: PROCEDURE update_row(
2473: p_init_msg_list IN VARCHAR2 ,
2474: x_return_status OUT NOCOPY VARCHAR2,
2638: END IF;
2639: RETURN(l_return_status);
2640: END populate_new_record;
2641: ------------------------------------------
2642: -- Set_Attributes for:OKC_LINE_STYLES_B --
2643: ------------------------------------------
2644: FUNCTION Set_Attributes (
2645: p_lse_rec IN lse_rec_type,
2646: x_lse_rec OUT NOCOPY lse_rec_type
2675: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2676: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2677: RAISE OKC_API.G_EXCEPTION_ERROR;
2678: END IF;
2679: UPDATE OKC_LINE_STYLES_B
2680: SET LTY_CODE = l_def_lse_rec.lty_code,
2681: PRICED_YN = l_def_lse_rec.PRICED_YN,
2682: RECURSIVE_YN = l_def_lse_rec.RECURSIVE_YN,
2683: LSE_PARENT_ID = l_def_lse_rec.lse_parent_id,
3310: ---------------------------------------------------------------------------
3311: -- PROCEDURE delete_row
3312: ---------------------------------------------------------------------------
3313: --------------------------------------
3314: -- delete_row for:OKC_LINE_STYLES_B --
3315: --------------------------------------
3316: PROCEDURE delete_row(
3317: p_init_msg_list IN VARCHAR2 ,
3318: x_return_status OUT NOCOPY VARCHAR2,
3335: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3336: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3337: RAISE OKC_API.G_EXCEPTION_ERROR;
3338: END IF;
3339: DELETE FROM OKC_LINE_STYLES_B
3340: WHERE ID = l_lse_rec.id;
3341:
3342: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3343: EXCEPTION
3472: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3473: l_lsev_rec lsev_rec_type := p_lsev_rec;
3474: l_okc_line_styles_tl_rec okc_line_styles_tl_rec_type;
3475: l_lse_rec lse_rec_type;
3476: cursor c1(p_id number) is select created_by from OKC_LINE_STYLES_B
3477: where ID=p_id;
3478: l_created_by number:=OKC_API.G_MISS_NUM;
3479: BEGIN
3480: l_return_status := OKC_API.START_ACTIVITY(l_api_name,