32: NULL;
33: END api_copy;
34:
35: ---------------------------------------------------------------------------
36: -- FUNCTION get_rec for: OKL_PRODUCTS
37: ---------------------------------------------------------------------------
38: FUNCTION get_rec (
39: p_pdt_rec IN pdt_rec_type,
40: x_no_data_found OUT NOCOPY BOOLEAN
38: FUNCTION get_rec (
39: p_pdt_rec IN pdt_rec_type,
40: x_no_data_found OUT NOCOPY BOOLEAN
41: ) RETURN pdt_rec_type IS
42: CURSOR okl_products_pk_csr (p_id IN NUMBER) IS
43: SELECT
44: ID,
45: NAME,
46: AES_ID,
73: CREATION_DATE,
74: LAST_UPDATED_BY,
75: LAST_UPDATE_DATE,
76: LAST_UPDATE_LOGIN
77: FROM Okl_Products
78: WHERE okl_products.id = p_id;
79: l_okl_products_pk okl_products_pk_csr%ROWTYPE;
80: l_pdt_rec pdt_rec_type;
81: BEGIN
74: LAST_UPDATED_BY,
75: LAST_UPDATE_DATE,
76: LAST_UPDATE_LOGIN
77: FROM Okl_Products
78: WHERE okl_products.id = p_id;
79: l_okl_products_pk okl_products_pk_csr%ROWTYPE;
80: l_pdt_rec pdt_rec_type;
81: BEGIN
82: x_no_data_found := TRUE;
75: LAST_UPDATE_DATE,
76: LAST_UPDATE_LOGIN
77: FROM Okl_Products
78: WHERE okl_products.id = p_id;
79: l_okl_products_pk okl_products_pk_csr%ROWTYPE;
80: l_pdt_rec pdt_rec_type;
81: BEGIN
82: x_no_data_found := TRUE;
83: -- Get current database values
80: l_pdt_rec pdt_rec_type;
81: BEGIN
82: x_no_data_found := TRUE;
83: -- Get current database values
84: OPEN okl_products_pk_csr (p_pdt_rec.id);
85: FETCH okl_products_pk_csr INTO
86: l_pdt_rec.ID,
87: l_pdt_rec.NAME,
88: l_pdt_rec.AES_ID,
81: BEGIN
82: x_no_data_found := TRUE;
83: -- Get current database values
84: OPEN okl_products_pk_csr (p_pdt_rec.id);
85: FETCH okl_products_pk_csr INTO
86: l_pdt_rec.ID,
87: l_pdt_rec.NAME,
88: l_pdt_rec.AES_ID,
89: l_pdt_rec.PTL_ID,
115: l_pdt_rec.CREATION_DATE,
116: l_pdt_rec.LAST_UPDATED_BY,
117: l_pdt_rec.LAST_UPDATE_DATE,
118: l_pdt_rec.LAST_UPDATE_LOGIN;
119: x_no_data_found := okl_products_pk_csr%NOTFOUND;
120: CLOSE okl_products_pk_csr;
121: RETURN(l_pdt_rec);
122: END get_rec;
123:
116: l_pdt_rec.LAST_UPDATED_BY,
117: l_pdt_rec.LAST_UPDATE_DATE,
118: l_pdt_rec.LAST_UPDATE_LOGIN;
119: x_no_data_found := okl_products_pk_csr%NOTFOUND;
120: CLOSE okl_products_pk_csr;
121: RETURN(l_pdt_rec);
122: END get_rec;
123:
124: FUNCTION get_rec (
128: BEGIN
129: RETURN(get_rec(p_pdt_rec, l_row_notfound));
130: END get_rec;
131: ---------------------------------------------------------------------------
132: -- FUNCTION get_rec for: OKL_PRODUCTS_V
133: ---------------------------------------------------------------------------
134: FUNCTION get_rec (
135: p_pdtv_rec IN pdtv_rec_type,
136: x_no_data_found OUT NOCOPY BOOLEAN
169: CREATION_DATE,
170: LAST_UPDATED_BY,
171: LAST_UPDATE_DATE,
172: LAST_UPDATE_LOGIN
173: FROM Okl_Products_V
174: WHERE okl_products_v.id = p_id;
175: l_okl_pdtv_pk okl_pdtv_pk_csr%ROWTYPE;
176: l_pdtv_rec pdtv_rec_type;
177: BEGIN
170: LAST_UPDATED_BY,
171: LAST_UPDATE_DATE,
172: LAST_UPDATE_LOGIN
173: FROM Okl_Products_V
174: WHERE okl_products_v.id = p_id;
175: l_okl_pdtv_pk okl_pdtv_pk_csr%ROWTYPE;
176: l_pdtv_rec pdtv_rec_type;
177: BEGIN
178: x_no_data_found := TRUE;
225: RETURN(get_rec(p_pdtv_rec, l_row_notfound));
226: END get_rec;
227:
228: ----------------------------------------------------
229: -- FUNCTION null_out_defaults for: OKL_PRODUCTS_V --
230: ----------------------------------------------------
231: FUNCTION null_out_defaults (
232: p_pdtv_rec IN pdtv_rec_type
233: ) RETURN pdtv_rec_type IS
338: ---------------------------------------------------------------------------
339: -- PROCEDURE Validate_Attributes
340: ---------------------------------------------------------------------------
341: --------------------------------------------
342: -- Validate_Attributes for:OKL_PRODUCTS_V --
343: --------------------------------------------
344: FUNCTION Validate_Attributes (
345: p_pdtv_rec IN pdtv_rec_type
346: ) RETURN VARCHAR2 IS
388: ---------------------------------------------------------------------------
389: -- PROCEDURE Validate_Record
390: ---------------------------------------------------------------------------
391: ----------------------------------------
392: -- Validate_Record for:OKL_PRODUCTS_V --
393: ----------------------------------------
394: FUNCTION Validate_Record (
395: p_pdtv_rec IN pdtv_rec_type
396: ) RETURN VARCHAR2 IS
689: l_ptl_status VARCHAR2(1);
690: l_row_notfound BOOLEAN := TRUE;
691: CURSOR okl_pdtv_pk_csr1 (p_rep_pdt_id IN NUMBER) IS
692: SELECT '1'
693: FROM okl_products_v pdt
694: WHERE pdt.id = p_rep_pdt_id;
695:
696: BEGIN
697: -- initialize return status
1249: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1250: l_unq_tbl OKC_UTIL.unq_tbl_type;
1251: l_pdt_status VARCHAR2(1);
1252: l_row_found BOOLEAN := FALSE;
1253: CURSOR c1(p_name okl_products_v.name%TYPE,
1254: p_version okl_products_v.version%TYPE) IS
1255: SELECT '1'
1256: FROM okl_products_v
1257: WHERE name = p_name
1250: l_unq_tbl OKC_UTIL.unq_tbl_type;
1251: l_pdt_status VARCHAR2(1);
1252: l_row_found BOOLEAN := FALSE;
1253: CURSOR c1(p_name okl_products_v.name%TYPE,
1254: p_version okl_products_v.version%TYPE) IS
1255: SELECT '1'
1256: FROM okl_products_v
1257: WHERE name = p_name
1258: AND version = p_version
1252: l_row_found BOOLEAN := FALSE;
1253: CURSOR c1(p_name okl_products_v.name%TYPE,
1254: p_version okl_products_v.version%TYPE) IS
1255: SELECT '1'
1256: FROM okl_products_v
1257: WHERE name = p_name
1258: AND version = p_version
1259: AND id <> NVL(p_pdtv_rec.id,-9999);
1260: BEGIN
1266: FETCH c1 INTO l_pdt_status;
1267: l_row_found := c1%FOUND;
1268: CLOSE c1;
1269: IF l_row_found THEN
1270: OKC_API.set_message('OKL',G_UNQS, G_TABLE_TOKEN, 'Okl_Products_V');
1271: x_return_status := OKC_API.G_RET_STS_ERROR;
1272: END IF;
1273: EXCEPTION
1274: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1443: ---------------------------------------------------------------------------
1444: -- PROCEDURE validate_row
1445: ---------------------------------------------------------------------------
1446: -------------------------------------
1447: -- validate_row for:OKL_PRODUCTS_V --
1448: -------------------------------------
1449: PROCEDURE validate_row(
1450: p_api_version IN NUMBER,
1451: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1599: ---------------------------------------------------------------------------
1600: -- PROCEDURE insert_row
1601: ---------------------------------------------------------------------------
1602: ---------------------------------
1603: -- insert_row for:OKL_PRODUCTS --
1604: ---------------------------------
1605: PROCEDURE insert_row(
1606: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1607: x_return_status OUT NOCOPY VARCHAR2,
1615: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1616: l_pdt_rec pdt_rec_type := p_pdt_rec;
1617: l_def_pdt_rec pdt_rec_type;
1618: -------------------------------------
1619: -- Set_Attributes for:OKL_PRODUCTS --
1620: -------------------------------------
1621: FUNCTION Set_Attributes (
1622: p_pdt_rec IN pdt_rec_type,
1623: x_pdt_rec OUT NOCOPY pdt_rec_type
1646: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1647: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1648: RAISE OKC_API.G_EXCEPTION_ERROR;
1649: END IF;
1650: INSERT INTO OKL_PRODUCTS(
1651: id,
1652: name,
1653: aes_id,
1654: ptl_id,
1751: '_PVT'
1752: );
1753: END insert_row;
1754: -----------------------------------
1755: -- insert_row for:OKL_PRODUCTS_V --
1756: -----------------------------------
1757: PROCEDURE insert_row(
1758: p_api_version IN NUMBER,
1759: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1786: l_pdtv_rec.LAST_UPDATE_LOGIN := FND_GLOBAL.LOGIN_ID;
1787: RETURN(l_pdtv_rec);
1788: END fill_who_columns;
1789: ---------------------------------------
1790: -- Set_Attributes for:OKL_PRODUCTS_V --
1791: ---------------------------------------
1792: FUNCTION Set_Attributes (
1793: p_pdtv_rec IN pdtv_rec_type,
1794: x_pdtv_rec OUT NOCOPY pdtv_rec_type
1977: ---------------------------------------------------------------------------
1978: -- PROCEDURE lock_row
1979: ---------------------------------------------------------------------------
1980: -------------------------------
1981: -- lock_row for:OKL_PRODUCTS --
1982: -------------------------------
1983: PROCEDURE lock_row(
1984: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1985:
1991: E_Resource_Busy EXCEPTION;
1992: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
1993: CURSOR lock_csr (p_pdt_rec IN pdt_rec_type) IS
1994: SELECT OBJECT_VERSION_NUMBER
1995: FROM OKL_PRODUCTS
1996: WHERE ID = p_pdt_rec.id
1997: AND OBJECT_VERSION_NUMBER = p_pdt_rec.object_version_number
1998: FOR UPDATE OF OBJECT_VERSION_NUMBER NOWAIT;
1999:
1998: FOR UPDATE OF OBJECT_VERSION_NUMBER NOWAIT;
1999:
2000: CURSOR lchk_csr (p_pdt_rec IN pdt_rec_type) IS
2001: SELECT OBJECT_VERSION_NUMBER
2002: FROM OKL_PRODUCTS
2003: WHERE ID = p_pdt_rec.id;
2004: l_api_version CONSTANT NUMBER := 1;
2005: l_api_name CONSTANT VARCHAR2(30) := 'PRODUCTS_lock_row';
2006: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2003: WHERE ID = p_pdt_rec.id;
2004: l_api_version CONSTANT NUMBER := 1;
2005: l_api_name CONSTANT VARCHAR2(30) := 'PRODUCTS_lock_row';
2006: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2007: l_object_version_number OKL_PRODUCTS.OBJECT_VERSION_NUMBER%TYPE;
2008: lc_object_version_number OKL_PRODUCTS.OBJECT_VERSION_NUMBER%TYPE;
2009: l_row_notfound BOOLEAN := FALSE;
2010: lc_row_notfound BOOLEAN := FALSE;
2011: BEGIN
2004: l_api_version CONSTANT NUMBER := 1;
2005: l_api_name CONSTANT VARCHAR2(30) := 'PRODUCTS_lock_row';
2006: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2007: l_object_version_number OKL_PRODUCTS.OBJECT_VERSION_NUMBER%TYPE;
2008: lc_object_version_number OKL_PRODUCTS.OBJECT_VERSION_NUMBER%TYPE;
2009: l_row_notfound BOOLEAN := FALSE;
2010: lc_row_notfound BOOLEAN := FALSE;
2011: BEGIN
2012: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2085:
2086: );
2087: END lock_row;
2088: ---------------------------------
2089: -- lock_row for:OKL_PRODUCTS_V --
2090: ---------------------------------
2091: PROCEDURE lock_row(
2092: p_api_version IN NUMBER,
2093: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2244: ---------------------------------------------------------------------------
2245: -- PROCEDURE update_row
2246: ---------------------------------------------------------------------------
2247: ---------------------------------
2248: -- update_row for:OKL_PRODUCTS --
2249: ---------------------------------
2250: PROCEDURE update_row(
2251: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2252: x_return_status OUT NOCOPY VARCHAR2,
2416: END IF;
2417: RETURN(l_return_status);
2418: END populate_new_record;
2419: -------------------------------------
2420: -- Set_Attributes for:OKL_PRODUCTS --
2421: -------------------------------------
2422: FUNCTION Set_Attributes (
2423: p_pdt_rec IN pdt_rec_type,
2424: x_pdt_rec OUT NOCOPY pdt_rec_type
2453: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2454: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2455: RAISE OKC_API.G_EXCEPTION_ERROR;
2456: END IF;
2457: UPDATE OKL_PRODUCTS
2458: SET NAME = l_def_pdt_rec.name,
2459: AES_ID = l_def_pdt_rec.aes_id,
2460: PTL_ID = l_def_pdt_rec.ptl_id,
2461: LEGACY_PRODUCT_YN = l_def_pdt_rec.legacy_product_yn,
2525: '_PVT'
2526: );
2527: END update_row;
2528: -----------------------------------
2529: -- update_row for:OKL_PRODUCTS_V --
2530: -----------------------------------
2531: PROCEDURE update_row(
2532: p_api_version IN NUMBER,
2533: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2713: END IF;
2714: RETURN(l_return_status);
2715: END populate_new_record;
2716: ---------------------------------------
2717: -- Set_Attributes for:OKL_PRODUCTS_V --
2718: ---------------------------------------
2719: FUNCTION Set_Attributes (
2720: p_pdtv_rec IN pdtv_rec_type,
2721: x_pdtv_rec OUT NOCOPY pdtv_rec_type
2908: ---------------------------------------------------------------------------
2909: -- PROCEDURE delete_row
2910: ---------------------------------------------------------------------------
2911: ---------------------------------
2912: -- delete_row for:OKL_PRODUCTS --
2913: ---------------------------------
2914: PROCEDURE delete_row(
2915: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2916: x_return_status OUT NOCOPY VARCHAR2,
2932: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2933: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2934: RAISE OKC_API.G_EXCEPTION_ERROR;
2935: END IF;
2936: DELETE FROM OKL_PRODUCTS
2937: WHERE ID = l_pdt_rec.id;
2938:
2939: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2940: EXCEPTION
2969: '_PVT'
2970: );
2971: END delete_row;
2972: -----------------------------------
2973: -- delete_row for:OKL_PRODUCTS_V --
2974: -----------------------------------
2975: PROCEDURE delete_row(
2976: p_api_version IN NUMBER,
2977: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,