40: -- PROCEDURE add_language
41: ---------------------------------------------------------------------------
42: PROCEDURE add_language IS
43: BEGIN
44: DELETE FROM OKL_FNCTN_PRMTRS_TL T
45: WHERE NOT EXISTS (
46: SELECT NULL
47: FROM OKL_FNCTN_PRMTRS_B B --fixed bug 3321017 by kmotepal
48: WHERE B.ID = T.ID
47: FROM OKL_FNCTN_PRMTRS_B B --fixed bug 3321017 by kmotepal
48: WHERE B.ID = T.ID
49: );
50:
51: UPDATE OKL_FNCTN_PRMTRS_TL T SET (
52: VALUE,
53: INSTRUCTIONS) = (SELECT
54: B.VALUE,
55: B.INSTRUCTIONS
52: VALUE,
53: INSTRUCTIONS) = (SELECT
54: B.VALUE,
55: B.INSTRUCTIONS
56: FROM OKL_FNCTN_PRMTRS_TL B
57: WHERE B.ID = T.ID
58: AND B.LANGUAGE = T.SOURCE_LANG)
59: WHERE (
60: T.ID,
61: T.LANGUAGE)
62: IN (SELECT
63: SUBT.ID,
64: SUBT.LANGUAGE
65: FROM OKL_FNCTN_PRMTRS_TL SUBB, OKL_FNCTN_PRMTRS_TL SUBT
66: WHERE SUBB.ID = SUBT.ID
67: AND SUBB.LANGUAGE = SUBT.SOURCE_LANG
68: AND (SUBB.VALUE <> SUBT.VALUE
69: OR SUBB.INSTRUCTIONS <> SUBT.INSTRUCTIONS
72: OR (SUBB.INSTRUCTIONS IS NULL AND SUBT.INSTRUCTIONS IS NOT NULL)
73: OR (SUBB.INSTRUCTIONS IS NOT NULL AND SUBT.INSTRUCTIONS IS NULL)
74: ));
75:
76: INSERT INTO OKL_FNCTN_PRMTRS_TL (
77: ID,
78: LANGUAGE,
79: SOURCE_LANG,
80: SFWT_FLAG,
96: B.CREATION_DATE,
97: B.LAST_UPDATED_BY,
98: B.LAST_UPDATE_DATE,
99: B.LAST_UPDATE_LOGIN
100: FROM OKL_FNCTN_PRMTRS_TL B, FND_LANGUAGES L
101: WHERE L.INSTALLED_FLAG IN ('I', 'B')
102: AND B.LANGUAGE = USERENV('LANG')
103: AND NOT EXISTS(
104: SELECT NULL
101: WHERE L.INSTALLED_FLAG IN ('I', 'B')
102: AND B.LANGUAGE = USERENV('LANG')
103: AND NOT EXISTS(
104: SELECT NULL
105: FROM OKL_FNCTN_PRMTRS_TL T
106: WHERE T.ID = B.ID
107: AND T.LANGUAGE = L.LANGUAGE_CODE
108: );
109:
161: BEGIN
162: RETURN(get_rec(p_fpr_rec, l_row_notfound));
163: END get_rec;
164: ---------------------------------------------------------------------------
165: -- FUNCTION get_rec for: OKL_FNCTN_PRMTRS_TL
166: ---------------------------------------------------------------------------
167: FUNCTION get_rec (
168: p_okl_fnctn_prmtrs_tl_rec IN okl_fnctn_prmtrs_tl_rec_type,
169: x_no_data_found OUT NOCOPY BOOLEAN
164: ---------------------------------------------------------------------------
165: -- FUNCTION get_rec for: OKL_FNCTN_PRMTRS_TL
166: ---------------------------------------------------------------------------
167: FUNCTION get_rec (
168: p_okl_fnctn_prmtrs_tl_rec IN okl_fnctn_prmtrs_tl_rec_type,
169: x_no_data_found OUT NOCOPY BOOLEAN
170: ) RETURN okl_fnctn_prmtrs_tl_rec_type IS
171: CURSOR okl_fnctn_prmtrs_tl_pk_csr (p_id IN NUMBER,
172: p_language IN VARCHAR2) IS
166: ---------------------------------------------------------------------------
167: FUNCTION get_rec (
168: p_okl_fnctn_prmtrs_tl_rec IN okl_fnctn_prmtrs_tl_rec_type,
169: x_no_data_found OUT NOCOPY BOOLEAN
170: ) RETURN okl_fnctn_prmtrs_tl_rec_type IS
171: CURSOR okl_fnctn_prmtrs_tl_pk_csr (p_id IN NUMBER,
172: p_language IN VARCHAR2) IS
173: SELECT
174: ID,
167: FUNCTION get_rec (
168: p_okl_fnctn_prmtrs_tl_rec IN okl_fnctn_prmtrs_tl_rec_type,
169: x_no_data_found OUT NOCOPY BOOLEAN
170: ) RETURN okl_fnctn_prmtrs_tl_rec_type IS
171: CURSOR okl_fnctn_prmtrs_tl_pk_csr (p_id IN NUMBER,
172: p_language IN VARCHAR2) IS
173: SELECT
174: ID,
175: LANGUAGE,
181: CREATION_DATE,
182: LAST_UPDATED_BY,
183: LAST_UPDATE_DATE,
184: LAST_UPDATE_LOGIN
185: FROM Okl_Fnctn_Prmtrs_Tl
186: WHERE okl_fnctn_prmtrs_tl.id = p_id
187: AND okl_fnctn_prmtrs_tl.LANGUAGE = p_language;
188: l_okl_fnctn_prmtrs_tl_pk okl_fnctn_prmtrs_tl_pk_csr%ROWTYPE;
189: l_okl_fnctn_prmtrs_tl_rec okl_fnctn_prmtrs_tl_rec_type;
182: LAST_UPDATED_BY,
183: LAST_UPDATE_DATE,
184: LAST_UPDATE_LOGIN
185: FROM Okl_Fnctn_Prmtrs_Tl
186: WHERE okl_fnctn_prmtrs_tl.id = p_id
187: AND okl_fnctn_prmtrs_tl.LANGUAGE = p_language;
188: l_okl_fnctn_prmtrs_tl_pk okl_fnctn_prmtrs_tl_pk_csr%ROWTYPE;
189: l_okl_fnctn_prmtrs_tl_rec okl_fnctn_prmtrs_tl_rec_type;
190: BEGIN
183: LAST_UPDATE_DATE,
184: LAST_UPDATE_LOGIN
185: FROM Okl_Fnctn_Prmtrs_Tl
186: WHERE okl_fnctn_prmtrs_tl.id = p_id
187: AND okl_fnctn_prmtrs_tl.LANGUAGE = p_language;
188: l_okl_fnctn_prmtrs_tl_pk okl_fnctn_prmtrs_tl_pk_csr%ROWTYPE;
189: l_okl_fnctn_prmtrs_tl_rec okl_fnctn_prmtrs_tl_rec_type;
190: BEGIN
191: x_no_data_found := TRUE;
184: LAST_UPDATE_LOGIN
185: FROM Okl_Fnctn_Prmtrs_Tl
186: WHERE okl_fnctn_prmtrs_tl.id = p_id
187: AND okl_fnctn_prmtrs_tl.LANGUAGE = p_language;
188: l_okl_fnctn_prmtrs_tl_pk okl_fnctn_prmtrs_tl_pk_csr%ROWTYPE;
189: l_okl_fnctn_prmtrs_tl_rec okl_fnctn_prmtrs_tl_rec_type;
190: BEGIN
191: x_no_data_found := TRUE;
192: -- Get current database values
185: FROM Okl_Fnctn_Prmtrs_Tl
186: WHERE okl_fnctn_prmtrs_tl.id = p_id
187: AND okl_fnctn_prmtrs_tl.LANGUAGE = p_language;
188: l_okl_fnctn_prmtrs_tl_pk okl_fnctn_prmtrs_tl_pk_csr%ROWTYPE;
189: l_okl_fnctn_prmtrs_tl_rec okl_fnctn_prmtrs_tl_rec_type;
190: BEGIN
191: x_no_data_found := TRUE;
192: -- Get current database values
193: OPEN okl_fnctn_prmtrs_tl_pk_csr (p_okl_fnctn_prmtrs_tl_rec.id,
189: l_okl_fnctn_prmtrs_tl_rec okl_fnctn_prmtrs_tl_rec_type;
190: BEGIN
191: x_no_data_found := TRUE;
192: -- Get current database values
193: OPEN okl_fnctn_prmtrs_tl_pk_csr (p_okl_fnctn_prmtrs_tl_rec.id,
194: p_okl_fnctn_prmtrs_tl_rec.LANGUAGE);
195: FETCH okl_fnctn_prmtrs_tl_pk_csr INTO
196: l_okl_fnctn_prmtrs_tl_rec.ID,
197: l_okl_fnctn_prmtrs_tl_rec.LANGUAGE,
190: BEGIN
191: x_no_data_found := TRUE;
192: -- Get current database values
193: OPEN okl_fnctn_prmtrs_tl_pk_csr (p_okl_fnctn_prmtrs_tl_rec.id,
194: p_okl_fnctn_prmtrs_tl_rec.LANGUAGE);
195: FETCH okl_fnctn_prmtrs_tl_pk_csr INTO
196: l_okl_fnctn_prmtrs_tl_rec.ID,
197: l_okl_fnctn_prmtrs_tl_rec.LANGUAGE,
198: l_okl_fnctn_prmtrs_tl_rec.SOURCE_LANG,
191: x_no_data_found := TRUE;
192: -- Get current database values
193: OPEN okl_fnctn_prmtrs_tl_pk_csr (p_okl_fnctn_prmtrs_tl_rec.id,
194: p_okl_fnctn_prmtrs_tl_rec.LANGUAGE);
195: FETCH okl_fnctn_prmtrs_tl_pk_csr INTO
196: l_okl_fnctn_prmtrs_tl_rec.ID,
197: l_okl_fnctn_prmtrs_tl_rec.LANGUAGE,
198: l_okl_fnctn_prmtrs_tl_rec.SOURCE_LANG,
199: l_okl_fnctn_prmtrs_tl_rec.SFWT_FLAG,
192: -- Get current database values
193: OPEN okl_fnctn_prmtrs_tl_pk_csr (p_okl_fnctn_prmtrs_tl_rec.id,
194: p_okl_fnctn_prmtrs_tl_rec.LANGUAGE);
195: FETCH okl_fnctn_prmtrs_tl_pk_csr INTO
196: l_okl_fnctn_prmtrs_tl_rec.ID,
197: l_okl_fnctn_prmtrs_tl_rec.LANGUAGE,
198: l_okl_fnctn_prmtrs_tl_rec.SOURCE_LANG,
199: l_okl_fnctn_prmtrs_tl_rec.SFWT_FLAG,
200: l_okl_fnctn_prmtrs_tl_rec.VALUE,
193: OPEN okl_fnctn_prmtrs_tl_pk_csr (p_okl_fnctn_prmtrs_tl_rec.id,
194: p_okl_fnctn_prmtrs_tl_rec.LANGUAGE);
195: FETCH okl_fnctn_prmtrs_tl_pk_csr INTO
196: l_okl_fnctn_prmtrs_tl_rec.ID,
197: l_okl_fnctn_prmtrs_tl_rec.LANGUAGE,
198: l_okl_fnctn_prmtrs_tl_rec.SOURCE_LANG,
199: l_okl_fnctn_prmtrs_tl_rec.SFWT_FLAG,
200: l_okl_fnctn_prmtrs_tl_rec.VALUE,
201: l_okl_fnctn_prmtrs_tl_rec.INSTRUCTIONS,
194: p_okl_fnctn_prmtrs_tl_rec.LANGUAGE);
195: FETCH okl_fnctn_prmtrs_tl_pk_csr INTO
196: l_okl_fnctn_prmtrs_tl_rec.ID,
197: l_okl_fnctn_prmtrs_tl_rec.LANGUAGE,
198: l_okl_fnctn_prmtrs_tl_rec.SOURCE_LANG,
199: l_okl_fnctn_prmtrs_tl_rec.SFWT_FLAG,
200: l_okl_fnctn_prmtrs_tl_rec.VALUE,
201: l_okl_fnctn_prmtrs_tl_rec.INSTRUCTIONS,
202: l_okl_fnctn_prmtrs_tl_rec.CREATED_BY,
195: FETCH okl_fnctn_prmtrs_tl_pk_csr INTO
196: l_okl_fnctn_prmtrs_tl_rec.ID,
197: l_okl_fnctn_prmtrs_tl_rec.LANGUAGE,
198: l_okl_fnctn_prmtrs_tl_rec.SOURCE_LANG,
199: l_okl_fnctn_prmtrs_tl_rec.SFWT_FLAG,
200: l_okl_fnctn_prmtrs_tl_rec.VALUE,
201: l_okl_fnctn_prmtrs_tl_rec.INSTRUCTIONS,
202: l_okl_fnctn_prmtrs_tl_rec.CREATED_BY,
203: l_okl_fnctn_prmtrs_tl_rec.CREATION_DATE,
196: l_okl_fnctn_prmtrs_tl_rec.ID,
197: l_okl_fnctn_prmtrs_tl_rec.LANGUAGE,
198: l_okl_fnctn_prmtrs_tl_rec.SOURCE_LANG,
199: l_okl_fnctn_prmtrs_tl_rec.SFWT_FLAG,
200: l_okl_fnctn_prmtrs_tl_rec.VALUE,
201: l_okl_fnctn_prmtrs_tl_rec.INSTRUCTIONS,
202: l_okl_fnctn_prmtrs_tl_rec.CREATED_BY,
203: l_okl_fnctn_prmtrs_tl_rec.CREATION_DATE,
204: l_okl_fnctn_prmtrs_tl_rec.LAST_UPDATED_BY,
197: l_okl_fnctn_prmtrs_tl_rec.LANGUAGE,
198: l_okl_fnctn_prmtrs_tl_rec.SOURCE_LANG,
199: l_okl_fnctn_prmtrs_tl_rec.SFWT_FLAG,
200: l_okl_fnctn_prmtrs_tl_rec.VALUE,
201: l_okl_fnctn_prmtrs_tl_rec.INSTRUCTIONS,
202: l_okl_fnctn_prmtrs_tl_rec.CREATED_BY,
203: l_okl_fnctn_prmtrs_tl_rec.CREATION_DATE,
204: l_okl_fnctn_prmtrs_tl_rec.LAST_UPDATED_BY,
205: l_okl_fnctn_prmtrs_tl_rec.LAST_UPDATE_DATE,
198: l_okl_fnctn_prmtrs_tl_rec.SOURCE_LANG,
199: l_okl_fnctn_prmtrs_tl_rec.SFWT_FLAG,
200: l_okl_fnctn_prmtrs_tl_rec.VALUE,
201: l_okl_fnctn_prmtrs_tl_rec.INSTRUCTIONS,
202: l_okl_fnctn_prmtrs_tl_rec.CREATED_BY,
203: l_okl_fnctn_prmtrs_tl_rec.CREATION_DATE,
204: l_okl_fnctn_prmtrs_tl_rec.LAST_UPDATED_BY,
205: l_okl_fnctn_prmtrs_tl_rec.LAST_UPDATE_DATE,
206: l_okl_fnctn_prmtrs_tl_rec.LAST_UPDATE_LOGIN;
199: l_okl_fnctn_prmtrs_tl_rec.SFWT_FLAG,
200: l_okl_fnctn_prmtrs_tl_rec.VALUE,
201: l_okl_fnctn_prmtrs_tl_rec.INSTRUCTIONS,
202: l_okl_fnctn_prmtrs_tl_rec.CREATED_BY,
203: l_okl_fnctn_prmtrs_tl_rec.CREATION_DATE,
204: l_okl_fnctn_prmtrs_tl_rec.LAST_UPDATED_BY,
205: l_okl_fnctn_prmtrs_tl_rec.LAST_UPDATE_DATE,
206: l_okl_fnctn_prmtrs_tl_rec.LAST_UPDATE_LOGIN;
207: x_no_data_found := okl_fnctn_prmtrs_tl_pk_csr%NOTFOUND;
200: l_okl_fnctn_prmtrs_tl_rec.VALUE,
201: l_okl_fnctn_prmtrs_tl_rec.INSTRUCTIONS,
202: l_okl_fnctn_prmtrs_tl_rec.CREATED_BY,
203: l_okl_fnctn_prmtrs_tl_rec.CREATION_DATE,
204: l_okl_fnctn_prmtrs_tl_rec.LAST_UPDATED_BY,
205: l_okl_fnctn_prmtrs_tl_rec.LAST_UPDATE_DATE,
206: l_okl_fnctn_prmtrs_tl_rec.LAST_UPDATE_LOGIN;
207: x_no_data_found := okl_fnctn_prmtrs_tl_pk_csr%NOTFOUND;
208: CLOSE okl_fnctn_prmtrs_tl_pk_csr;
201: l_okl_fnctn_prmtrs_tl_rec.INSTRUCTIONS,
202: l_okl_fnctn_prmtrs_tl_rec.CREATED_BY,
203: l_okl_fnctn_prmtrs_tl_rec.CREATION_DATE,
204: l_okl_fnctn_prmtrs_tl_rec.LAST_UPDATED_BY,
205: l_okl_fnctn_prmtrs_tl_rec.LAST_UPDATE_DATE,
206: l_okl_fnctn_prmtrs_tl_rec.LAST_UPDATE_LOGIN;
207: x_no_data_found := okl_fnctn_prmtrs_tl_pk_csr%NOTFOUND;
208: CLOSE okl_fnctn_prmtrs_tl_pk_csr;
209: RETURN(l_okl_fnctn_prmtrs_tl_rec);
202: l_okl_fnctn_prmtrs_tl_rec.CREATED_BY,
203: l_okl_fnctn_prmtrs_tl_rec.CREATION_DATE,
204: l_okl_fnctn_prmtrs_tl_rec.LAST_UPDATED_BY,
205: l_okl_fnctn_prmtrs_tl_rec.LAST_UPDATE_DATE,
206: l_okl_fnctn_prmtrs_tl_rec.LAST_UPDATE_LOGIN;
207: x_no_data_found := okl_fnctn_prmtrs_tl_pk_csr%NOTFOUND;
208: CLOSE okl_fnctn_prmtrs_tl_pk_csr;
209: RETURN(l_okl_fnctn_prmtrs_tl_rec);
210: END get_rec;
203: l_okl_fnctn_prmtrs_tl_rec.CREATION_DATE,
204: l_okl_fnctn_prmtrs_tl_rec.LAST_UPDATED_BY,
205: l_okl_fnctn_prmtrs_tl_rec.LAST_UPDATE_DATE,
206: l_okl_fnctn_prmtrs_tl_rec.LAST_UPDATE_LOGIN;
207: x_no_data_found := okl_fnctn_prmtrs_tl_pk_csr%NOTFOUND;
208: CLOSE okl_fnctn_prmtrs_tl_pk_csr;
209: RETURN(l_okl_fnctn_prmtrs_tl_rec);
210: END get_rec;
211:
204: l_okl_fnctn_prmtrs_tl_rec.LAST_UPDATED_BY,
205: l_okl_fnctn_prmtrs_tl_rec.LAST_UPDATE_DATE,
206: l_okl_fnctn_prmtrs_tl_rec.LAST_UPDATE_LOGIN;
207: x_no_data_found := okl_fnctn_prmtrs_tl_pk_csr%NOTFOUND;
208: CLOSE okl_fnctn_prmtrs_tl_pk_csr;
209: RETURN(l_okl_fnctn_prmtrs_tl_rec);
210: END get_rec;
211:
212: FUNCTION get_rec (
205: l_okl_fnctn_prmtrs_tl_rec.LAST_UPDATE_DATE,
206: l_okl_fnctn_prmtrs_tl_rec.LAST_UPDATE_LOGIN;
207: x_no_data_found := okl_fnctn_prmtrs_tl_pk_csr%NOTFOUND;
208: CLOSE okl_fnctn_prmtrs_tl_pk_csr;
209: RETURN(l_okl_fnctn_prmtrs_tl_rec);
210: END get_rec;
211:
212: FUNCTION get_rec (
213: p_okl_fnctn_prmtrs_tl_rec IN okl_fnctn_prmtrs_tl_rec_type
209: RETURN(l_okl_fnctn_prmtrs_tl_rec);
210: END get_rec;
211:
212: FUNCTION get_rec (
213: p_okl_fnctn_prmtrs_tl_rec IN okl_fnctn_prmtrs_tl_rec_type
214: ) RETURN okl_fnctn_prmtrs_tl_rec_type IS
215: l_row_notfound BOOLEAN := TRUE;
216: BEGIN
217: RETURN(get_rec(p_okl_fnctn_prmtrs_tl_rec, l_row_notfound));
210: END get_rec;
211:
212: FUNCTION get_rec (
213: p_okl_fnctn_prmtrs_tl_rec IN okl_fnctn_prmtrs_tl_rec_type
214: ) RETURN okl_fnctn_prmtrs_tl_rec_type IS
215: l_row_notfound BOOLEAN := TRUE;
216: BEGIN
217: RETURN(get_rec(p_okl_fnctn_prmtrs_tl_rec, l_row_notfound));
218: END get_rec;
213: p_okl_fnctn_prmtrs_tl_rec IN okl_fnctn_prmtrs_tl_rec_type
214: ) RETURN okl_fnctn_prmtrs_tl_rec_type IS
215: l_row_notfound BOOLEAN := TRUE;
216: BEGIN
217: RETURN(get_rec(p_okl_fnctn_prmtrs_tl_rec, l_row_notfound));
218: END get_rec;
219: ---------------------------------------------------------------------------
220: -- FUNCTION get_rec for: OKL_FNCTN_PRMTRS_V
221: ---------------------------------------------------------------------------
1155: p_to.last_update_login := p_from.last_update_login;
1156: END migrate;
1157: PROCEDURE migrate (
1158: p_from IN fprv_rec_type,
1159: p_to OUT NOCOPY okl_fnctn_prmtrs_tl_rec_type
1160: ) IS
1161: BEGIN
1162: p_to.id := p_from.id;
1163: p_to.sfwt_flag := p_from.sfwt_flag;
1169: p_to.last_update_date := p_from.last_update_date;
1170: p_to.last_update_login := p_from.last_update_login;
1171: END migrate;
1172: PROCEDURE migrate (
1173: p_from IN okl_fnctn_prmtrs_tl_rec_type,
1174: p_to OUT NOCOPY fprv_rec_type
1175: ) IS
1176: BEGIN
1177: p_to.id := p_from.id;
1203: l_api_name CONSTANT VARCHAR2(30) := 'V_validate_row';
1204: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1205: l_fprv_rec fprv_rec_type := p_fprv_rec;
1206: l_fpr_rec fpr_rec_type;
1207: l_okl_fnctn_prmtrs_tl_rec okl_fnctn_prmtrs_tl_rec_type;
1208: BEGIN
1209: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
1210: G_PKG_NAME,
1211: p_init_msg_list,
1457: '_PVT'
1458: );
1459: END insert_row;
1460: ----------------------------------------
1461: -- insert_row for:OKL_FNCTN_PRMTRS_TL --
1462: ----------------------------------------
1463: PROCEDURE insert_row(
1464: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
1465: x_return_status OUT NOCOPY VARCHAR2,
1464: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
1465: x_return_status OUT NOCOPY VARCHAR2,
1466: x_msg_count OUT NOCOPY NUMBER,
1467: x_msg_data OUT NOCOPY VARCHAR2,
1468: p_okl_fnctn_prmtrs_tl_rec IN okl_fnctn_prmtrs_tl_rec_type,
1469: x_okl_fnctn_prmtrs_tl_rec OUT NOCOPY okl_fnctn_prmtrs_tl_rec_type) IS
1470:
1471: l_api_version CONSTANT NUMBER := 1;
1472: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
1465: x_return_status OUT NOCOPY VARCHAR2,
1466: x_msg_count OUT NOCOPY NUMBER,
1467: x_msg_data OUT NOCOPY VARCHAR2,
1468: p_okl_fnctn_prmtrs_tl_rec IN okl_fnctn_prmtrs_tl_rec_type,
1469: x_okl_fnctn_prmtrs_tl_rec OUT NOCOPY okl_fnctn_prmtrs_tl_rec_type) IS
1470:
1471: l_api_version CONSTANT NUMBER := 1;
1472: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
1473: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1470:
1471: l_api_version CONSTANT NUMBER := 1;
1472: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
1473: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1474: l_okl_fnctn_prmtrs_tl_rec okl_fnctn_prmtrs_tl_rec_type := p_okl_fnctn_prmtrs_tl_rec;
1475: ldefoklfnctnprmtrstlrec okl_fnctn_prmtrs_tl_rec_type;
1476: CURSOR get_languages IS
1477: SELECT *
1478: FROM FND_LANGUAGES
1471: l_api_version CONSTANT NUMBER := 1;
1472: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
1473: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1474: l_okl_fnctn_prmtrs_tl_rec okl_fnctn_prmtrs_tl_rec_type := p_okl_fnctn_prmtrs_tl_rec;
1475: ldefoklfnctnprmtrstlrec okl_fnctn_prmtrs_tl_rec_type;
1476: CURSOR get_languages IS
1477: SELECT *
1478: FROM FND_LANGUAGES
1479: WHERE INSTALLED_FLAG IN ('I', 'B');
1477: SELECT *
1478: FROM FND_LANGUAGES
1479: WHERE INSTALLED_FLAG IN ('I', 'B');
1480: --------------------------------------------
1481: -- Set_Attributes for:OKL_FNCTN_PRMTRS_TL --
1482: --------------------------------------------
1483: FUNCTION Set_Attributes (
1484: p_okl_fnctn_prmtrs_tl_rec IN okl_fnctn_prmtrs_tl_rec_type,
1485: x_okl_fnctn_prmtrs_tl_rec OUT NOCOPY okl_fnctn_prmtrs_tl_rec_type
1480: --------------------------------------------
1481: -- Set_Attributes for:OKL_FNCTN_PRMTRS_TL --
1482: --------------------------------------------
1483: FUNCTION Set_Attributes (
1484: p_okl_fnctn_prmtrs_tl_rec IN okl_fnctn_prmtrs_tl_rec_type,
1485: x_okl_fnctn_prmtrs_tl_rec OUT NOCOPY okl_fnctn_prmtrs_tl_rec_type
1486: ) RETURN VARCHAR2 IS
1487: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1488: BEGIN
1481: -- Set_Attributes for:OKL_FNCTN_PRMTRS_TL --
1482: --------------------------------------------
1483: FUNCTION Set_Attributes (
1484: p_okl_fnctn_prmtrs_tl_rec IN okl_fnctn_prmtrs_tl_rec_type,
1485: x_okl_fnctn_prmtrs_tl_rec OUT NOCOPY okl_fnctn_prmtrs_tl_rec_type
1486: ) RETURN VARCHAR2 IS
1487: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1488: BEGIN
1489: x_okl_fnctn_prmtrs_tl_rec := p_okl_fnctn_prmtrs_tl_rec;
1485: x_okl_fnctn_prmtrs_tl_rec OUT NOCOPY okl_fnctn_prmtrs_tl_rec_type
1486: ) RETURN VARCHAR2 IS
1487: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1488: BEGIN
1489: x_okl_fnctn_prmtrs_tl_rec := p_okl_fnctn_prmtrs_tl_rec;
1490: x_okl_fnctn_prmtrs_tl_rec.LANGUAGE := USERENV('LANG');
1491: x_okl_fnctn_prmtrs_tl_rec.SOURCE_LANG := USERENV('LANG');
1492: RETURN(l_return_status);
1493: END Set_Attributes;
1486: ) RETURN VARCHAR2 IS
1487: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1488: BEGIN
1489: x_okl_fnctn_prmtrs_tl_rec := p_okl_fnctn_prmtrs_tl_rec;
1490: x_okl_fnctn_prmtrs_tl_rec.LANGUAGE := USERENV('LANG');
1491: x_okl_fnctn_prmtrs_tl_rec.SOURCE_LANG := USERENV('LANG');
1492: RETURN(l_return_status);
1493: END Set_Attributes;
1494: BEGIN
1487: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1488: BEGIN
1489: x_okl_fnctn_prmtrs_tl_rec := p_okl_fnctn_prmtrs_tl_rec;
1490: x_okl_fnctn_prmtrs_tl_rec.LANGUAGE := USERENV('LANG');
1491: x_okl_fnctn_prmtrs_tl_rec.SOURCE_LANG := USERENV('LANG');
1492: RETURN(l_return_status);
1493: END Set_Attributes;
1494: BEGIN
1495: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
1502: RAISE Okc_Api.G_EXCEPTION_ERROR;
1503: END IF;
1504: --- Setting item attributes
1505: l_return_status := Set_Attributes(
1506: p_okl_fnctn_prmtrs_tl_rec, -- IN
1507: l_okl_fnctn_prmtrs_tl_rec); -- OUT
1508: --- If any errors happen abort API
1509: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1510: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1503: END IF;
1504: --- Setting item attributes
1505: l_return_status := Set_Attributes(
1506: p_okl_fnctn_prmtrs_tl_rec, -- IN
1507: l_okl_fnctn_prmtrs_tl_rec); -- OUT
1508: --- If any errors happen abort API
1509: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1510: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1511: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1511: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1512: RAISE Okc_Api.G_EXCEPTION_ERROR;
1513: END IF;
1514: FOR l_lang_rec IN get_languages LOOP
1515: l_okl_fnctn_prmtrs_tl_rec.LANGUAGE := l_lang_rec.language_code;
1516: INSERT INTO OKL_FNCTN_PRMTRS_TL(
1517: id,
1518: LANGUAGE,
1519: source_lang,
1512: RAISE Okc_Api.G_EXCEPTION_ERROR;
1513: END IF;
1514: FOR l_lang_rec IN get_languages LOOP
1515: l_okl_fnctn_prmtrs_tl_rec.LANGUAGE := l_lang_rec.language_code;
1516: INSERT INTO OKL_FNCTN_PRMTRS_TL(
1517: id,
1518: LANGUAGE,
1519: source_lang,
1520: sfwt_flag,
1525: last_updated_by,
1526: last_update_date,
1527: last_update_login)
1528: VALUES (
1529: l_okl_fnctn_prmtrs_tl_rec.id,
1530: l_okl_fnctn_prmtrs_tl_rec.LANGUAGE,
1531: l_okl_fnctn_prmtrs_tl_rec.source_lang,
1532: l_okl_fnctn_prmtrs_tl_rec.sfwt_flag,
1533: l_okl_fnctn_prmtrs_tl_rec.value,
1526: last_update_date,
1527: last_update_login)
1528: VALUES (
1529: l_okl_fnctn_prmtrs_tl_rec.id,
1530: l_okl_fnctn_prmtrs_tl_rec.LANGUAGE,
1531: l_okl_fnctn_prmtrs_tl_rec.source_lang,
1532: l_okl_fnctn_prmtrs_tl_rec.sfwt_flag,
1533: l_okl_fnctn_prmtrs_tl_rec.value,
1534: l_okl_fnctn_prmtrs_tl_rec.instructions,
1527: last_update_login)
1528: VALUES (
1529: l_okl_fnctn_prmtrs_tl_rec.id,
1530: l_okl_fnctn_prmtrs_tl_rec.LANGUAGE,
1531: l_okl_fnctn_prmtrs_tl_rec.source_lang,
1532: l_okl_fnctn_prmtrs_tl_rec.sfwt_flag,
1533: l_okl_fnctn_prmtrs_tl_rec.value,
1534: l_okl_fnctn_prmtrs_tl_rec.instructions,
1535: l_okl_fnctn_prmtrs_tl_rec.created_by,
1528: VALUES (
1529: l_okl_fnctn_prmtrs_tl_rec.id,
1530: l_okl_fnctn_prmtrs_tl_rec.LANGUAGE,
1531: l_okl_fnctn_prmtrs_tl_rec.source_lang,
1532: l_okl_fnctn_prmtrs_tl_rec.sfwt_flag,
1533: l_okl_fnctn_prmtrs_tl_rec.value,
1534: l_okl_fnctn_prmtrs_tl_rec.instructions,
1535: l_okl_fnctn_prmtrs_tl_rec.created_by,
1536: l_okl_fnctn_prmtrs_tl_rec.creation_date,
1529: l_okl_fnctn_prmtrs_tl_rec.id,
1530: l_okl_fnctn_prmtrs_tl_rec.LANGUAGE,
1531: l_okl_fnctn_prmtrs_tl_rec.source_lang,
1532: l_okl_fnctn_prmtrs_tl_rec.sfwt_flag,
1533: l_okl_fnctn_prmtrs_tl_rec.value,
1534: l_okl_fnctn_prmtrs_tl_rec.instructions,
1535: l_okl_fnctn_prmtrs_tl_rec.created_by,
1536: l_okl_fnctn_prmtrs_tl_rec.creation_date,
1537: l_okl_fnctn_prmtrs_tl_rec.last_updated_by,
1530: l_okl_fnctn_prmtrs_tl_rec.LANGUAGE,
1531: l_okl_fnctn_prmtrs_tl_rec.source_lang,
1532: l_okl_fnctn_prmtrs_tl_rec.sfwt_flag,
1533: l_okl_fnctn_prmtrs_tl_rec.value,
1534: l_okl_fnctn_prmtrs_tl_rec.instructions,
1535: l_okl_fnctn_prmtrs_tl_rec.created_by,
1536: l_okl_fnctn_prmtrs_tl_rec.creation_date,
1537: l_okl_fnctn_prmtrs_tl_rec.last_updated_by,
1538: l_okl_fnctn_prmtrs_tl_rec.last_update_date,
1531: l_okl_fnctn_prmtrs_tl_rec.source_lang,
1532: l_okl_fnctn_prmtrs_tl_rec.sfwt_flag,
1533: l_okl_fnctn_prmtrs_tl_rec.value,
1534: l_okl_fnctn_prmtrs_tl_rec.instructions,
1535: l_okl_fnctn_prmtrs_tl_rec.created_by,
1536: l_okl_fnctn_prmtrs_tl_rec.creation_date,
1537: l_okl_fnctn_prmtrs_tl_rec.last_updated_by,
1538: l_okl_fnctn_prmtrs_tl_rec.last_update_date,
1539: l_okl_fnctn_prmtrs_tl_rec.last_update_login);
1532: l_okl_fnctn_prmtrs_tl_rec.sfwt_flag,
1533: l_okl_fnctn_prmtrs_tl_rec.value,
1534: l_okl_fnctn_prmtrs_tl_rec.instructions,
1535: l_okl_fnctn_prmtrs_tl_rec.created_by,
1536: l_okl_fnctn_prmtrs_tl_rec.creation_date,
1537: l_okl_fnctn_prmtrs_tl_rec.last_updated_by,
1538: l_okl_fnctn_prmtrs_tl_rec.last_update_date,
1539: l_okl_fnctn_prmtrs_tl_rec.last_update_login);
1540: END LOOP;
1533: l_okl_fnctn_prmtrs_tl_rec.value,
1534: l_okl_fnctn_prmtrs_tl_rec.instructions,
1535: l_okl_fnctn_prmtrs_tl_rec.created_by,
1536: l_okl_fnctn_prmtrs_tl_rec.creation_date,
1537: l_okl_fnctn_prmtrs_tl_rec.last_updated_by,
1538: l_okl_fnctn_prmtrs_tl_rec.last_update_date,
1539: l_okl_fnctn_prmtrs_tl_rec.last_update_login);
1540: END LOOP;
1541: -- Set OUT values
1534: l_okl_fnctn_prmtrs_tl_rec.instructions,
1535: l_okl_fnctn_prmtrs_tl_rec.created_by,
1536: l_okl_fnctn_prmtrs_tl_rec.creation_date,
1537: l_okl_fnctn_prmtrs_tl_rec.last_updated_by,
1538: l_okl_fnctn_prmtrs_tl_rec.last_update_date,
1539: l_okl_fnctn_prmtrs_tl_rec.last_update_login);
1540: END LOOP;
1541: -- Set OUT values
1542: x_okl_fnctn_prmtrs_tl_rec := l_okl_fnctn_prmtrs_tl_rec;
1535: l_okl_fnctn_prmtrs_tl_rec.created_by,
1536: l_okl_fnctn_prmtrs_tl_rec.creation_date,
1537: l_okl_fnctn_prmtrs_tl_rec.last_updated_by,
1538: l_okl_fnctn_prmtrs_tl_rec.last_update_date,
1539: l_okl_fnctn_prmtrs_tl_rec.last_update_login);
1540: END LOOP;
1541: -- Set OUT values
1542: x_okl_fnctn_prmtrs_tl_rec := l_okl_fnctn_prmtrs_tl_rec;
1543: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1538: l_okl_fnctn_prmtrs_tl_rec.last_update_date,
1539: l_okl_fnctn_prmtrs_tl_rec.last_update_login);
1540: END LOOP;
1541: -- Set OUT values
1542: x_okl_fnctn_prmtrs_tl_rec := l_okl_fnctn_prmtrs_tl_rec;
1543: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1544: EXCEPTION
1545: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1546: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1591: l_fprv_rec fprv_rec_type;
1592: l_def_fprv_rec fprv_rec_type;
1593: l_fpr_rec fpr_rec_type;
1594: lx_fpr_rec fpr_rec_type;
1595: l_okl_fnctn_prmtrs_tl_rec okl_fnctn_prmtrs_tl_rec_type;
1596: lx_okl_fnctn_prmtrs_tl_rec okl_fnctn_prmtrs_tl_rec_type;
1597: -------------------------------
1598: -- FUNCTION fill_who_columns --
1599: -------------------------------
1592: l_def_fprv_rec fprv_rec_type;
1593: l_fpr_rec fpr_rec_type;
1594: lx_fpr_rec fpr_rec_type;
1595: l_okl_fnctn_prmtrs_tl_rec okl_fnctn_prmtrs_tl_rec_type;
1596: lx_okl_fnctn_prmtrs_tl_rec okl_fnctn_prmtrs_tl_rec_type;
1597: -------------------------------
1598: -- FUNCTION fill_who_columns --
1599: -------------------------------
1600: FUNCTION fill_who_columns (
1667: --------------------------------------
1668: -- Move VIEW record to "Child" records
1669: --------------------------------------
1670: migrate(l_def_fprv_rec, l_fpr_rec);
1671: migrate(l_def_fprv_rec, l_okl_fnctn_prmtrs_tl_rec);
1672: --------------------------------------------
1673: -- Call the INSERT_ROW for each child record
1674: --------------------------------------------
1675: insert_row(
1690: p_init_msg_list,
1691: x_return_status,
1692: x_msg_count,
1693: x_msg_data,
1694: l_okl_fnctn_prmtrs_tl_rec,
1695: lx_okl_fnctn_prmtrs_tl_rec
1696: );
1697: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1698: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1691: x_return_status,
1692: x_msg_count,
1693: x_msg_data,
1694: l_okl_fnctn_prmtrs_tl_rec,
1695: lx_okl_fnctn_prmtrs_tl_rec
1696: );
1697: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1698: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1699: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1698: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1699: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1700: RAISE Okc_Api.G_EXCEPTION_ERROR;
1701: END IF;
1702: migrate(lx_okl_fnctn_prmtrs_tl_rec, l_def_fprv_rec);
1703: -- Set OUT values
1704: x_fprv_rec := l_def_fprv_rec;
1705: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1706: EXCEPTION
1927: '_PVT'
1928: );
1929: END lock_row;
1930: --------------------------------------
1931: -- lock_row for:OKL_FNCTN_PRMTRS_TL --
1932: --------------------------------------
1933: PROCEDURE lock_row(
1934: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
1935: x_return_status OUT NOCOPY VARCHAR2,
1934: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
1935: x_return_status OUT NOCOPY VARCHAR2,
1936: x_msg_count OUT NOCOPY NUMBER,
1937: x_msg_data OUT NOCOPY VARCHAR2,
1938: p_okl_fnctn_prmtrs_tl_rec IN okl_fnctn_prmtrs_tl_rec_type) IS
1939:
1940: E_Resource_Busy EXCEPTION;
1941: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
1942: CURSOR lock_csr (p_okl_fnctn_prmtrs_tl_rec IN okl_fnctn_prmtrs_tl_rec_type) IS
1938: p_okl_fnctn_prmtrs_tl_rec IN okl_fnctn_prmtrs_tl_rec_type) IS
1939:
1940: E_Resource_Busy EXCEPTION;
1941: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
1942: CURSOR lock_csr (p_okl_fnctn_prmtrs_tl_rec IN okl_fnctn_prmtrs_tl_rec_type) IS
1943: SELECT *
1944: FROM OKL_FNCTN_PRMTRS_TL
1945: WHERE ID = p_okl_fnctn_prmtrs_tl_rec.id
1946: FOR UPDATE NOWAIT;
1940: E_Resource_Busy EXCEPTION;
1941: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
1942: CURSOR lock_csr (p_okl_fnctn_prmtrs_tl_rec IN okl_fnctn_prmtrs_tl_rec_type) IS
1943: SELECT *
1944: FROM OKL_FNCTN_PRMTRS_TL
1945: WHERE ID = p_okl_fnctn_prmtrs_tl_rec.id
1946: FOR UPDATE NOWAIT;
1947:
1948: l_api_version CONSTANT NUMBER := 1;
1941: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
1942: CURSOR lock_csr (p_okl_fnctn_prmtrs_tl_rec IN okl_fnctn_prmtrs_tl_rec_type) IS
1943: SELECT *
1944: FROM OKL_FNCTN_PRMTRS_TL
1945: WHERE ID = p_okl_fnctn_prmtrs_tl_rec.id
1946: FOR UPDATE NOWAIT;
1947:
1948: l_api_version CONSTANT NUMBER := 1;
1949: l_api_name CONSTANT VARCHAR2(30) := 'TL_lock_row';
1961: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1962: RAISE Okc_Api.G_EXCEPTION_ERROR;
1963: END IF;
1964: BEGIN
1965: OPEN lock_csr(p_okl_fnctn_prmtrs_tl_rec);
1966: FETCH lock_csr INTO l_lock_var;
1967: l_row_notfound := lock_csr%NOTFOUND;
1968: CLOSE lock_csr;
1969: EXCEPTION
2026: l_api_version CONSTANT NUMBER := 1;
2027: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
2028: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2029: l_fpr_rec fpr_rec_type;
2030: l_okl_fnctn_prmtrs_tl_rec okl_fnctn_prmtrs_tl_rec_type;
2031: BEGIN
2032: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
2033: G_PKG_NAME,
2034: p_init_msg_list,
2044: --------------------------------------
2045: -- Move VIEW record to "Child" records
2046: --------------------------------------
2047: migrate(p_fprv_rec, l_fpr_rec);
2048: migrate(p_fprv_rec, l_okl_fnctn_prmtrs_tl_rec);
2049: --------------------------------------------
2050: -- Call the LOCK_ROW for each child record
2051: --------------------------------------------
2052: lock_row(
2065: p_init_msg_list,
2066: x_return_status,
2067: x_msg_count,
2068: x_msg_data,
2069: l_okl_fnctn_prmtrs_tl_rec
2070: );
2071: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2072: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2073: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2355: '_PVT'
2356: );
2357: END update_row;
2358: ----------------------------------------
2359: -- update_row for:OKL_FNCTN_PRMTRS_TL --
2360: ----------------------------------------
2361: PROCEDURE update_row(
2362: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
2363: x_return_status OUT NOCOPY VARCHAR2,
2362: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
2363: x_return_status OUT NOCOPY VARCHAR2,
2364: x_msg_count OUT NOCOPY NUMBER,
2365: x_msg_data OUT NOCOPY VARCHAR2,
2366: p_okl_fnctn_prmtrs_tl_rec IN okl_fnctn_prmtrs_tl_rec_type,
2367: x_okl_fnctn_prmtrs_tl_rec OUT NOCOPY okl_fnctn_prmtrs_tl_rec_type) IS
2368:
2369: l_api_version CONSTANT NUMBER := 1;
2370: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
2363: x_return_status OUT NOCOPY VARCHAR2,
2364: x_msg_count OUT NOCOPY NUMBER,
2365: x_msg_data OUT NOCOPY VARCHAR2,
2366: p_okl_fnctn_prmtrs_tl_rec IN okl_fnctn_prmtrs_tl_rec_type,
2367: x_okl_fnctn_prmtrs_tl_rec OUT NOCOPY okl_fnctn_prmtrs_tl_rec_type) IS
2368:
2369: l_api_version CONSTANT NUMBER := 1;
2370: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
2371: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2368:
2369: l_api_version CONSTANT NUMBER := 1;
2370: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
2371: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2372: l_okl_fnctn_prmtrs_tl_rec okl_fnctn_prmtrs_tl_rec_type := p_okl_fnctn_prmtrs_tl_rec;
2373: ldefoklfnctnprmtrstlrec okl_fnctn_prmtrs_tl_rec_type;
2374: l_row_notfound BOOLEAN := TRUE;
2375: ----------------------------------
2376: -- FUNCTION populate_new_record --
2369: l_api_version CONSTANT NUMBER := 1;
2370: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
2371: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2372: l_okl_fnctn_prmtrs_tl_rec okl_fnctn_prmtrs_tl_rec_type := p_okl_fnctn_prmtrs_tl_rec;
2373: ldefoklfnctnprmtrstlrec okl_fnctn_prmtrs_tl_rec_type;
2374: l_row_notfound BOOLEAN := TRUE;
2375: ----------------------------------
2376: -- FUNCTION populate_new_record --
2377: ----------------------------------
2375: ----------------------------------
2376: -- FUNCTION populate_new_record --
2377: ----------------------------------
2378: FUNCTION populate_new_record (
2379: p_okl_fnctn_prmtrs_tl_rec IN okl_fnctn_prmtrs_tl_rec_type,
2380: x_okl_fnctn_prmtrs_tl_rec OUT NOCOPY okl_fnctn_prmtrs_tl_rec_type
2381: ) RETURN VARCHAR2 IS
2382: l_okl_fnctn_prmtrs_tl_rec okl_fnctn_prmtrs_tl_rec_type;
2383: l_row_notfound BOOLEAN := TRUE;
2376: -- FUNCTION populate_new_record --
2377: ----------------------------------
2378: FUNCTION populate_new_record (
2379: p_okl_fnctn_prmtrs_tl_rec IN okl_fnctn_prmtrs_tl_rec_type,
2380: x_okl_fnctn_prmtrs_tl_rec OUT NOCOPY okl_fnctn_prmtrs_tl_rec_type
2381: ) RETURN VARCHAR2 IS
2382: l_okl_fnctn_prmtrs_tl_rec okl_fnctn_prmtrs_tl_rec_type;
2383: l_row_notfound BOOLEAN := TRUE;
2384: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2378: FUNCTION populate_new_record (
2379: p_okl_fnctn_prmtrs_tl_rec IN okl_fnctn_prmtrs_tl_rec_type,
2380: x_okl_fnctn_prmtrs_tl_rec OUT NOCOPY okl_fnctn_prmtrs_tl_rec_type
2381: ) RETURN VARCHAR2 IS
2382: l_okl_fnctn_prmtrs_tl_rec okl_fnctn_prmtrs_tl_rec_type;
2383: l_row_notfound BOOLEAN := TRUE;
2384: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2385: BEGIN
2386: x_okl_fnctn_prmtrs_tl_rec := p_okl_fnctn_prmtrs_tl_rec;
2382: l_okl_fnctn_prmtrs_tl_rec okl_fnctn_prmtrs_tl_rec_type;
2383: l_row_notfound BOOLEAN := TRUE;
2384: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2385: BEGIN
2386: x_okl_fnctn_prmtrs_tl_rec := p_okl_fnctn_prmtrs_tl_rec;
2387: -- Get current database values
2388: l_okl_fnctn_prmtrs_tl_rec := get_rec(p_okl_fnctn_prmtrs_tl_rec, l_row_notfound);
2389: IF (l_row_notfound) THEN
2390: l_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
2384: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2385: BEGIN
2386: x_okl_fnctn_prmtrs_tl_rec := p_okl_fnctn_prmtrs_tl_rec;
2387: -- Get current database values
2388: l_okl_fnctn_prmtrs_tl_rec := get_rec(p_okl_fnctn_prmtrs_tl_rec, l_row_notfound);
2389: IF (l_row_notfound) THEN
2390: l_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
2391: END IF;
2392: IF (x_okl_fnctn_prmtrs_tl_rec.id = Okc_Api.G_MISS_NUM)
2388: l_okl_fnctn_prmtrs_tl_rec := get_rec(p_okl_fnctn_prmtrs_tl_rec, l_row_notfound);
2389: IF (l_row_notfound) THEN
2390: l_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
2391: END IF;
2392: IF (x_okl_fnctn_prmtrs_tl_rec.id = Okc_Api.G_MISS_NUM)
2393: THEN
2394: x_okl_fnctn_prmtrs_tl_rec.id := l_okl_fnctn_prmtrs_tl_rec.id;
2395: END IF;
2396: IF (x_okl_fnctn_prmtrs_tl_rec.LANGUAGE = Okc_Api.G_MISS_CHAR)
2390: l_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
2391: END IF;
2392: IF (x_okl_fnctn_prmtrs_tl_rec.id = Okc_Api.G_MISS_NUM)
2393: THEN
2394: x_okl_fnctn_prmtrs_tl_rec.id := l_okl_fnctn_prmtrs_tl_rec.id;
2395: END IF;
2396: IF (x_okl_fnctn_prmtrs_tl_rec.LANGUAGE = Okc_Api.G_MISS_CHAR)
2397: THEN
2398: x_okl_fnctn_prmtrs_tl_rec.LANGUAGE := l_okl_fnctn_prmtrs_tl_rec.LANGUAGE;
2392: IF (x_okl_fnctn_prmtrs_tl_rec.id = Okc_Api.G_MISS_NUM)
2393: THEN
2394: x_okl_fnctn_prmtrs_tl_rec.id := l_okl_fnctn_prmtrs_tl_rec.id;
2395: END IF;
2396: IF (x_okl_fnctn_prmtrs_tl_rec.LANGUAGE = Okc_Api.G_MISS_CHAR)
2397: THEN
2398: x_okl_fnctn_prmtrs_tl_rec.LANGUAGE := l_okl_fnctn_prmtrs_tl_rec.LANGUAGE;
2399: END IF;
2400: IF (x_okl_fnctn_prmtrs_tl_rec.source_lang = Okc_Api.G_MISS_CHAR)
2394: x_okl_fnctn_prmtrs_tl_rec.id := l_okl_fnctn_prmtrs_tl_rec.id;
2395: END IF;
2396: IF (x_okl_fnctn_prmtrs_tl_rec.LANGUAGE = Okc_Api.G_MISS_CHAR)
2397: THEN
2398: x_okl_fnctn_prmtrs_tl_rec.LANGUAGE := l_okl_fnctn_prmtrs_tl_rec.LANGUAGE;
2399: END IF;
2400: IF (x_okl_fnctn_prmtrs_tl_rec.source_lang = Okc_Api.G_MISS_CHAR)
2401: THEN
2402: x_okl_fnctn_prmtrs_tl_rec.source_lang := l_okl_fnctn_prmtrs_tl_rec.source_lang;
2396: IF (x_okl_fnctn_prmtrs_tl_rec.LANGUAGE = Okc_Api.G_MISS_CHAR)
2397: THEN
2398: x_okl_fnctn_prmtrs_tl_rec.LANGUAGE := l_okl_fnctn_prmtrs_tl_rec.LANGUAGE;
2399: END IF;
2400: IF (x_okl_fnctn_prmtrs_tl_rec.source_lang = Okc_Api.G_MISS_CHAR)
2401: THEN
2402: x_okl_fnctn_prmtrs_tl_rec.source_lang := l_okl_fnctn_prmtrs_tl_rec.source_lang;
2403: END IF;
2404: IF (x_okl_fnctn_prmtrs_tl_rec.sfwt_flag = Okc_Api.G_MISS_CHAR)
2398: x_okl_fnctn_prmtrs_tl_rec.LANGUAGE := l_okl_fnctn_prmtrs_tl_rec.LANGUAGE;
2399: END IF;
2400: IF (x_okl_fnctn_prmtrs_tl_rec.source_lang = Okc_Api.G_MISS_CHAR)
2401: THEN
2402: x_okl_fnctn_prmtrs_tl_rec.source_lang := l_okl_fnctn_prmtrs_tl_rec.source_lang;
2403: END IF;
2404: IF (x_okl_fnctn_prmtrs_tl_rec.sfwt_flag = Okc_Api.G_MISS_CHAR)
2405: THEN
2406: x_okl_fnctn_prmtrs_tl_rec.sfwt_flag := l_okl_fnctn_prmtrs_tl_rec.sfwt_flag;
2400: IF (x_okl_fnctn_prmtrs_tl_rec.source_lang = Okc_Api.G_MISS_CHAR)
2401: THEN
2402: x_okl_fnctn_prmtrs_tl_rec.source_lang := l_okl_fnctn_prmtrs_tl_rec.source_lang;
2403: END IF;
2404: IF (x_okl_fnctn_prmtrs_tl_rec.sfwt_flag = Okc_Api.G_MISS_CHAR)
2405: THEN
2406: x_okl_fnctn_prmtrs_tl_rec.sfwt_flag := l_okl_fnctn_prmtrs_tl_rec.sfwt_flag;
2407: END IF;
2408: IF (x_okl_fnctn_prmtrs_tl_rec.value = Okc_Api.G_MISS_CHAR)
2402: x_okl_fnctn_prmtrs_tl_rec.source_lang := l_okl_fnctn_prmtrs_tl_rec.source_lang;
2403: END IF;
2404: IF (x_okl_fnctn_prmtrs_tl_rec.sfwt_flag = Okc_Api.G_MISS_CHAR)
2405: THEN
2406: x_okl_fnctn_prmtrs_tl_rec.sfwt_flag := l_okl_fnctn_prmtrs_tl_rec.sfwt_flag;
2407: END IF;
2408: IF (x_okl_fnctn_prmtrs_tl_rec.value = Okc_Api.G_MISS_CHAR)
2409: THEN
2410: x_okl_fnctn_prmtrs_tl_rec.value := l_okl_fnctn_prmtrs_tl_rec.value;
2404: IF (x_okl_fnctn_prmtrs_tl_rec.sfwt_flag = Okc_Api.G_MISS_CHAR)
2405: THEN
2406: x_okl_fnctn_prmtrs_tl_rec.sfwt_flag := l_okl_fnctn_prmtrs_tl_rec.sfwt_flag;
2407: END IF;
2408: IF (x_okl_fnctn_prmtrs_tl_rec.value = Okc_Api.G_MISS_CHAR)
2409: THEN
2410: x_okl_fnctn_prmtrs_tl_rec.value := l_okl_fnctn_prmtrs_tl_rec.value;
2411: END IF;
2412: IF (x_okl_fnctn_prmtrs_tl_rec.instructions = Okc_Api.G_MISS_CHAR)
2406: x_okl_fnctn_prmtrs_tl_rec.sfwt_flag := l_okl_fnctn_prmtrs_tl_rec.sfwt_flag;
2407: END IF;
2408: IF (x_okl_fnctn_prmtrs_tl_rec.value = Okc_Api.G_MISS_CHAR)
2409: THEN
2410: x_okl_fnctn_prmtrs_tl_rec.value := l_okl_fnctn_prmtrs_tl_rec.value;
2411: END IF;
2412: IF (x_okl_fnctn_prmtrs_tl_rec.instructions = Okc_Api.G_MISS_CHAR)
2413: THEN
2414: x_okl_fnctn_prmtrs_tl_rec.instructions := l_okl_fnctn_prmtrs_tl_rec.instructions;
2408: IF (x_okl_fnctn_prmtrs_tl_rec.value = Okc_Api.G_MISS_CHAR)
2409: THEN
2410: x_okl_fnctn_prmtrs_tl_rec.value := l_okl_fnctn_prmtrs_tl_rec.value;
2411: END IF;
2412: IF (x_okl_fnctn_prmtrs_tl_rec.instructions = Okc_Api.G_MISS_CHAR)
2413: THEN
2414: x_okl_fnctn_prmtrs_tl_rec.instructions := l_okl_fnctn_prmtrs_tl_rec.instructions;
2415: END IF;
2416: IF (x_okl_fnctn_prmtrs_tl_rec.created_by = Okc_Api.G_MISS_NUM)
2410: x_okl_fnctn_prmtrs_tl_rec.value := l_okl_fnctn_prmtrs_tl_rec.value;
2411: END IF;
2412: IF (x_okl_fnctn_prmtrs_tl_rec.instructions = Okc_Api.G_MISS_CHAR)
2413: THEN
2414: x_okl_fnctn_prmtrs_tl_rec.instructions := l_okl_fnctn_prmtrs_tl_rec.instructions;
2415: END IF;
2416: IF (x_okl_fnctn_prmtrs_tl_rec.created_by = Okc_Api.G_MISS_NUM)
2417: THEN
2418: x_okl_fnctn_prmtrs_tl_rec.created_by := l_okl_fnctn_prmtrs_tl_rec.created_by;
2412: IF (x_okl_fnctn_prmtrs_tl_rec.instructions = Okc_Api.G_MISS_CHAR)
2413: THEN
2414: x_okl_fnctn_prmtrs_tl_rec.instructions := l_okl_fnctn_prmtrs_tl_rec.instructions;
2415: END IF;
2416: IF (x_okl_fnctn_prmtrs_tl_rec.created_by = Okc_Api.G_MISS_NUM)
2417: THEN
2418: x_okl_fnctn_prmtrs_tl_rec.created_by := l_okl_fnctn_prmtrs_tl_rec.created_by;
2419: END IF;
2420: IF (x_okl_fnctn_prmtrs_tl_rec.creation_date = Okc_Api.G_MISS_DATE)
2414: x_okl_fnctn_prmtrs_tl_rec.instructions := l_okl_fnctn_prmtrs_tl_rec.instructions;
2415: END IF;
2416: IF (x_okl_fnctn_prmtrs_tl_rec.created_by = Okc_Api.G_MISS_NUM)
2417: THEN
2418: x_okl_fnctn_prmtrs_tl_rec.created_by := l_okl_fnctn_prmtrs_tl_rec.created_by;
2419: END IF;
2420: IF (x_okl_fnctn_prmtrs_tl_rec.creation_date = Okc_Api.G_MISS_DATE)
2421: THEN
2422: x_okl_fnctn_prmtrs_tl_rec.creation_date := l_okl_fnctn_prmtrs_tl_rec.creation_date;
2416: IF (x_okl_fnctn_prmtrs_tl_rec.created_by = Okc_Api.G_MISS_NUM)
2417: THEN
2418: x_okl_fnctn_prmtrs_tl_rec.created_by := l_okl_fnctn_prmtrs_tl_rec.created_by;
2419: END IF;
2420: IF (x_okl_fnctn_prmtrs_tl_rec.creation_date = Okc_Api.G_MISS_DATE)
2421: THEN
2422: x_okl_fnctn_prmtrs_tl_rec.creation_date := l_okl_fnctn_prmtrs_tl_rec.creation_date;
2423: END IF;
2424: IF (x_okl_fnctn_prmtrs_tl_rec.last_updated_by = Okc_Api.G_MISS_NUM)
2418: x_okl_fnctn_prmtrs_tl_rec.created_by := l_okl_fnctn_prmtrs_tl_rec.created_by;
2419: END IF;
2420: IF (x_okl_fnctn_prmtrs_tl_rec.creation_date = Okc_Api.G_MISS_DATE)
2421: THEN
2422: x_okl_fnctn_prmtrs_tl_rec.creation_date := l_okl_fnctn_prmtrs_tl_rec.creation_date;
2423: END IF;
2424: IF (x_okl_fnctn_prmtrs_tl_rec.last_updated_by = Okc_Api.G_MISS_NUM)
2425: THEN
2426: x_okl_fnctn_prmtrs_tl_rec.last_updated_by := l_okl_fnctn_prmtrs_tl_rec.last_updated_by;
2420: IF (x_okl_fnctn_prmtrs_tl_rec.creation_date = Okc_Api.G_MISS_DATE)
2421: THEN
2422: x_okl_fnctn_prmtrs_tl_rec.creation_date := l_okl_fnctn_prmtrs_tl_rec.creation_date;
2423: END IF;
2424: IF (x_okl_fnctn_prmtrs_tl_rec.last_updated_by = Okc_Api.G_MISS_NUM)
2425: THEN
2426: x_okl_fnctn_prmtrs_tl_rec.last_updated_by := l_okl_fnctn_prmtrs_tl_rec.last_updated_by;
2427: END IF;
2428: IF (x_okl_fnctn_prmtrs_tl_rec.last_update_date = Okc_Api.G_MISS_DATE)
2422: x_okl_fnctn_prmtrs_tl_rec.creation_date := l_okl_fnctn_prmtrs_tl_rec.creation_date;
2423: END IF;
2424: IF (x_okl_fnctn_prmtrs_tl_rec.last_updated_by = Okc_Api.G_MISS_NUM)
2425: THEN
2426: x_okl_fnctn_prmtrs_tl_rec.last_updated_by := l_okl_fnctn_prmtrs_tl_rec.last_updated_by;
2427: END IF;
2428: IF (x_okl_fnctn_prmtrs_tl_rec.last_update_date = Okc_Api.G_MISS_DATE)
2429: THEN
2430: x_okl_fnctn_prmtrs_tl_rec.last_update_date := l_okl_fnctn_prmtrs_tl_rec.last_update_date;
2424: IF (x_okl_fnctn_prmtrs_tl_rec.last_updated_by = Okc_Api.G_MISS_NUM)
2425: THEN
2426: x_okl_fnctn_prmtrs_tl_rec.last_updated_by := l_okl_fnctn_prmtrs_tl_rec.last_updated_by;
2427: END IF;
2428: IF (x_okl_fnctn_prmtrs_tl_rec.last_update_date = Okc_Api.G_MISS_DATE)
2429: THEN
2430: x_okl_fnctn_prmtrs_tl_rec.last_update_date := l_okl_fnctn_prmtrs_tl_rec.last_update_date;
2431: END IF;
2432: IF (x_okl_fnctn_prmtrs_tl_rec.last_update_login = Okc_Api.G_MISS_NUM)
2426: x_okl_fnctn_prmtrs_tl_rec.last_updated_by := l_okl_fnctn_prmtrs_tl_rec.last_updated_by;
2427: END IF;
2428: IF (x_okl_fnctn_prmtrs_tl_rec.last_update_date = Okc_Api.G_MISS_DATE)
2429: THEN
2430: x_okl_fnctn_prmtrs_tl_rec.last_update_date := l_okl_fnctn_prmtrs_tl_rec.last_update_date;
2431: END IF;
2432: IF (x_okl_fnctn_prmtrs_tl_rec.last_update_login = Okc_Api.G_MISS_NUM)
2433: THEN
2434: x_okl_fnctn_prmtrs_tl_rec.last_update_login := l_okl_fnctn_prmtrs_tl_rec.last_update_login;
2428: IF (x_okl_fnctn_prmtrs_tl_rec.last_update_date = Okc_Api.G_MISS_DATE)
2429: THEN
2430: x_okl_fnctn_prmtrs_tl_rec.last_update_date := l_okl_fnctn_prmtrs_tl_rec.last_update_date;
2431: END IF;
2432: IF (x_okl_fnctn_prmtrs_tl_rec.last_update_login = Okc_Api.G_MISS_NUM)
2433: THEN
2434: x_okl_fnctn_prmtrs_tl_rec.last_update_login := l_okl_fnctn_prmtrs_tl_rec.last_update_login;
2435: END IF;
2436: RETURN(l_return_status);
2430: x_okl_fnctn_prmtrs_tl_rec.last_update_date := l_okl_fnctn_prmtrs_tl_rec.last_update_date;
2431: END IF;
2432: IF (x_okl_fnctn_prmtrs_tl_rec.last_update_login = Okc_Api.G_MISS_NUM)
2433: THEN
2434: x_okl_fnctn_prmtrs_tl_rec.last_update_login := l_okl_fnctn_prmtrs_tl_rec.last_update_login;
2435: END IF;
2436: RETURN(l_return_status);
2437: END populate_new_record;
2438: --------------------------------------------
2435: END IF;
2436: RETURN(l_return_status);
2437: END populate_new_record;
2438: --------------------------------------------
2439: -- Set_Attributes for:OKL_FNCTN_PRMTRS_TL --
2440: --------------------------------------------
2441: FUNCTION Set_Attributes (
2442: p_okl_fnctn_prmtrs_tl_rec IN okl_fnctn_prmtrs_tl_rec_type,
2443: x_okl_fnctn_prmtrs_tl_rec OUT NOCOPY okl_fnctn_prmtrs_tl_rec_type
2438: --------------------------------------------
2439: -- Set_Attributes for:OKL_FNCTN_PRMTRS_TL --
2440: --------------------------------------------
2441: FUNCTION Set_Attributes (
2442: p_okl_fnctn_prmtrs_tl_rec IN okl_fnctn_prmtrs_tl_rec_type,
2443: x_okl_fnctn_prmtrs_tl_rec OUT NOCOPY okl_fnctn_prmtrs_tl_rec_type
2444: ) RETURN VARCHAR2 IS
2445: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2446: BEGIN
2439: -- Set_Attributes for:OKL_FNCTN_PRMTRS_TL --
2440: --------------------------------------------
2441: FUNCTION Set_Attributes (
2442: p_okl_fnctn_prmtrs_tl_rec IN okl_fnctn_prmtrs_tl_rec_type,
2443: x_okl_fnctn_prmtrs_tl_rec OUT NOCOPY okl_fnctn_prmtrs_tl_rec_type
2444: ) RETURN VARCHAR2 IS
2445: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2446: BEGIN
2447: x_okl_fnctn_prmtrs_tl_rec := p_okl_fnctn_prmtrs_tl_rec;
2443: x_okl_fnctn_prmtrs_tl_rec OUT NOCOPY okl_fnctn_prmtrs_tl_rec_type
2444: ) RETURN VARCHAR2 IS
2445: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2446: BEGIN
2447: x_okl_fnctn_prmtrs_tl_rec := p_okl_fnctn_prmtrs_tl_rec;
2448: x_okl_fnctn_prmtrs_tl_rec.LANGUAGE := USERENV('LANG');
2449: x_okl_fnctn_prmtrs_tl_rec.SOURCE_LANG := USERENV('LANG');
2450: RETURN(l_return_status);
2451: END Set_Attributes;
2444: ) RETURN VARCHAR2 IS
2445: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2446: BEGIN
2447: x_okl_fnctn_prmtrs_tl_rec := p_okl_fnctn_prmtrs_tl_rec;
2448: x_okl_fnctn_prmtrs_tl_rec.LANGUAGE := USERENV('LANG');
2449: x_okl_fnctn_prmtrs_tl_rec.SOURCE_LANG := USERENV('LANG');
2450: RETURN(l_return_status);
2451: END Set_Attributes;
2452: BEGIN
2445: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2446: BEGIN
2447: x_okl_fnctn_prmtrs_tl_rec := p_okl_fnctn_prmtrs_tl_rec;
2448: x_okl_fnctn_prmtrs_tl_rec.LANGUAGE := USERENV('LANG');
2449: x_okl_fnctn_prmtrs_tl_rec.SOURCE_LANG := USERENV('LANG');
2450: RETURN(l_return_status);
2451: END Set_Attributes;
2452: BEGIN
2453: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
2460: RAISE Okc_Api.G_EXCEPTION_ERROR;
2461: END IF;
2462: --- Setting item attributes
2463: l_return_status := Set_Attributes(
2464: p_okl_fnctn_prmtrs_tl_rec, -- IN
2465: l_okl_fnctn_prmtrs_tl_rec); -- OUT
2466: --- If any errors happen abort API
2467: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2468: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2461: END IF;
2462: --- Setting item attributes
2463: l_return_status := Set_Attributes(
2464: p_okl_fnctn_prmtrs_tl_rec, -- IN
2465: l_okl_fnctn_prmtrs_tl_rec); -- OUT
2466: --- If any errors happen abort API
2467: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2468: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2469: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2468: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2469: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2470: RAISE Okc_Api.G_EXCEPTION_ERROR;
2471: END IF;
2472: l_return_status := populate_new_record(l_okl_fnctn_prmtrs_tl_rec, ldefoklfnctnprmtrstlrec);
2473: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2474: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2475: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2476: RAISE Okc_Api.G_EXCEPTION_ERROR;
2474: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2475: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2476: RAISE Okc_Api.G_EXCEPTION_ERROR;
2477: END IF;
2478: UPDATE OKL_FNCTN_PRMTRS_TL
2479: SET VALUE = ldefoklfnctnprmtrstlrec.value,
2480: INSTRUCTIONS = ldefoklfnctnprmtrstlrec.instructions,
2481: CREATED_BY = ldefoklfnctnprmtrstlrec.created_by,
2482: SOURCE_LANG = ldefoklfnctnprmtrstlrec.source_lang,
2487: WHERE ID = ldefoklfnctnprmtrstlrec.id
2488: AND USERENV('LANG') in (SOURCE_LANG, LANGUAGE);
2489: --AND SOURCE_LANG = USERENV('LANG');
2490:
2491: UPDATE OKL_FNCTN_PRMTRS_TL
2492: SET SFWT_FLAG = 'Y'
2493: WHERE ID = ldefoklfnctnprmtrstlrec.id
2494: AND SOURCE_LANG <> USERENV('LANG');
2495:
2492: SET SFWT_FLAG = 'Y'
2493: WHERE ID = ldefoklfnctnprmtrstlrec.id
2494: AND SOURCE_LANG <> USERENV('LANG');
2495:
2496: x_okl_fnctn_prmtrs_tl_rec := ldefoklfnctnprmtrstlrec;
2497: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2498: EXCEPTION
2499: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2500: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2543: l_api_name CONSTANT VARCHAR2(30) := 'V_update_row';
2544: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2545: l_fprv_rec fprv_rec_type := p_fprv_rec;
2546: l_def_fprv_rec fprv_rec_type;
2547: l_okl_fnctn_prmtrs_tl_rec okl_fnctn_prmtrs_tl_rec_type;
2548: lx_okl_fnctn_prmtrs_tl_rec okl_fnctn_prmtrs_tl_rec_type;
2549: l_fpr_rec fpr_rec_type;
2550: lx_fpr_rec fpr_rec_type;
2551: -------------------------------
2544: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2545: l_fprv_rec fprv_rec_type := p_fprv_rec;
2546: l_def_fprv_rec fprv_rec_type;
2547: l_okl_fnctn_prmtrs_tl_rec okl_fnctn_prmtrs_tl_rec_type;
2548: lx_okl_fnctn_prmtrs_tl_rec okl_fnctn_prmtrs_tl_rec_type;
2549: l_fpr_rec fpr_rec_type;
2550: lx_fpr_rec fpr_rec_type;
2551: -------------------------------
2552: -- FUNCTION fill_who_columns --
2696:
2697: --------------------------------------
2698: -- Move VIEW record to "Child" records
2699: --------------------------------------
2700: migrate(l_def_fprv_rec, l_okl_fnctn_prmtrs_tl_rec);
2701: migrate(l_def_fprv_rec, l_fpr_rec);
2702: --------------------------------------------
2703: -- Call the UPDATE_ROW for each child record
2704: --------------------------------------------
2706: p_init_msg_list,
2707: x_return_status,
2708: x_msg_count,
2709: x_msg_data,
2710: l_okl_fnctn_prmtrs_tl_rec,
2711: lx_okl_fnctn_prmtrs_tl_rec
2712: );
2713: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2714: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2707: x_return_status,
2708: x_msg_count,
2709: x_msg_data,
2710: l_okl_fnctn_prmtrs_tl_rec,
2711: lx_okl_fnctn_prmtrs_tl_rec
2712: );
2713: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2714: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2715: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2714: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2715: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2716: RAISE Okc_Api.G_EXCEPTION_ERROR;
2717: END IF;
2718: migrate(lx_okl_fnctn_prmtrs_tl_rec, l_def_fprv_rec);
2719: update_row(
2720: p_init_msg_list,
2721: x_return_status,
2722: x_msg_count,
2911: '_PVT'
2912: );
2913: END delete_row;
2914: ----------------------------------------
2915: -- delete_row for:OKL_FNCTN_PRMTRS_TL --
2916: ----------------------------------------
2917: PROCEDURE delete_row(
2918: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
2919: x_return_status OUT NOCOPY VARCHAR2,
2918: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
2919: x_return_status OUT NOCOPY VARCHAR2,
2920: x_msg_count OUT NOCOPY NUMBER,
2921: x_msg_data OUT NOCOPY VARCHAR2,
2922: p_okl_fnctn_prmtrs_tl_rec IN okl_fnctn_prmtrs_tl_rec_type) IS
2923:
2924: l_api_version CONSTANT NUMBER := 1;
2925: l_api_name CONSTANT VARCHAR2(30) := 'TL_delete_row';
2926: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2923:
2924: l_api_version CONSTANT NUMBER := 1;
2925: l_api_name CONSTANT VARCHAR2(30) := 'TL_delete_row';
2926: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2927: l_okl_fnctn_prmtrs_tl_rec okl_fnctn_prmtrs_tl_rec_type:= p_okl_fnctn_prmtrs_tl_rec;
2928: l_row_notfound BOOLEAN := TRUE;
2929: --------------------------------------------
2930: -- Set_Attributes for:OKL_FNCTN_PRMTRS_TL --
2931: --------------------------------------------
2926: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2927: l_okl_fnctn_prmtrs_tl_rec okl_fnctn_prmtrs_tl_rec_type:= p_okl_fnctn_prmtrs_tl_rec;
2928: l_row_notfound BOOLEAN := TRUE;
2929: --------------------------------------------
2930: -- Set_Attributes for:OKL_FNCTN_PRMTRS_TL --
2931: --------------------------------------------
2932: FUNCTION Set_Attributes (
2933: p_okl_fnctn_prmtrs_tl_rec IN okl_fnctn_prmtrs_tl_rec_type,
2934: x_okl_fnctn_prmtrs_tl_rec OUT NOCOPY okl_fnctn_prmtrs_tl_rec_type
2929: --------------------------------------------
2930: -- Set_Attributes for:OKL_FNCTN_PRMTRS_TL --
2931: --------------------------------------------
2932: FUNCTION Set_Attributes (
2933: p_okl_fnctn_prmtrs_tl_rec IN okl_fnctn_prmtrs_tl_rec_type,
2934: x_okl_fnctn_prmtrs_tl_rec OUT NOCOPY okl_fnctn_prmtrs_tl_rec_type
2935: ) RETURN VARCHAR2 IS
2936: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2937: BEGIN
2930: -- Set_Attributes for:OKL_FNCTN_PRMTRS_TL --
2931: --------------------------------------------
2932: FUNCTION Set_Attributes (
2933: p_okl_fnctn_prmtrs_tl_rec IN okl_fnctn_prmtrs_tl_rec_type,
2934: x_okl_fnctn_prmtrs_tl_rec OUT NOCOPY okl_fnctn_prmtrs_tl_rec_type
2935: ) RETURN VARCHAR2 IS
2936: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2937: BEGIN
2938: x_okl_fnctn_prmtrs_tl_rec := p_okl_fnctn_prmtrs_tl_rec;
2934: x_okl_fnctn_prmtrs_tl_rec OUT NOCOPY okl_fnctn_prmtrs_tl_rec_type
2935: ) RETURN VARCHAR2 IS
2936: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2937: BEGIN
2938: x_okl_fnctn_prmtrs_tl_rec := p_okl_fnctn_prmtrs_tl_rec;
2939: x_okl_fnctn_prmtrs_tl_rec.LANGUAGE := USERENV('LANG');
2940: RETURN(l_return_status);
2941: END Set_Attributes;
2942: BEGIN
2935: ) RETURN VARCHAR2 IS
2936: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2937: BEGIN
2938: x_okl_fnctn_prmtrs_tl_rec := p_okl_fnctn_prmtrs_tl_rec;
2939: x_okl_fnctn_prmtrs_tl_rec.LANGUAGE := USERENV('LANG');
2940: RETURN(l_return_status);
2941: END Set_Attributes;
2942: BEGIN
2943: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
2950: RAISE Okc_Api.G_EXCEPTION_ERROR;
2951: END IF;
2952: --- Setting item attributes
2953: l_return_status := Set_Attributes(
2954: p_okl_fnctn_prmtrs_tl_rec, -- IN
2955: l_okl_fnctn_prmtrs_tl_rec); -- OUT
2956: --- If any errors happen abort API
2957: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2958: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2951: END IF;
2952: --- Setting item attributes
2953: l_return_status := Set_Attributes(
2954: p_okl_fnctn_prmtrs_tl_rec, -- IN
2955: l_okl_fnctn_prmtrs_tl_rec); -- OUT
2956: --- If any errors happen abort API
2957: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2958: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2959: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2958: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2959: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2960: RAISE Okc_Api.G_EXCEPTION_ERROR;
2961: END IF;
2962: DELETE FROM OKL_FNCTN_PRMTRS_TL
2963: WHERE ID = l_okl_fnctn_prmtrs_tl_rec.id;
2964:
2965: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2966: EXCEPTION
2959: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2960: RAISE Okc_Api.G_EXCEPTION_ERROR;
2961: END IF;
2962: DELETE FROM OKL_FNCTN_PRMTRS_TL
2963: WHERE ID = l_okl_fnctn_prmtrs_tl_rec.id;
2964:
2965: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2966: EXCEPTION
2967: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
3009: l_api_version CONSTANT NUMBER := 1;
3010: l_api_name CONSTANT VARCHAR2(30) := 'V_delete_row';
3011: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
3012: l_fprv_rec fprv_rec_type := p_fprv_rec;
3013: l_okl_fnctn_prmtrs_tl_rec okl_fnctn_prmtrs_tl_rec_type;
3014: l_fpr_rec fpr_rec_type;
3015: BEGIN
3016: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
3017: G_PKG_NAME,
3027: END IF;
3028: --------------------------------------
3029: -- Move VIEW record to "Child" records
3030: --------------------------------------
3031: migrate(l_fprv_rec, l_okl_fnctn_prmtrs_tl_rec);
3032: migrate(l_fprv_rec, l_fpr_rec);
3033: --------------------------------------------
3034: -- Call the DELETE_ROW for each child record
3035: --------------------------------------------
3037: p_init_msg_list,
3038: x_return_status,
3039: x_msg_count,
3040: x_msg_data,
3041: l_okl_fnctn_prmtrs_tl_rec
3042: );
3043: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3044: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3045: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3193: f_ludate := nvl(to_date(p_last_update_date, 'YYYY/MM/DD'), sysdate);
3194:
3195: SELECT LAST_UPDATED_BY, LAST_UPDATE_DATE
3196: INTO db_luby, db_ludate
3197: FROM OKL_FNCTN_PRMTRS_TL
3198: where ID = to_number(p_fprv_rec.id)
3199: and USERENV('LANG') =language;
3200:
3201: IF(fnd_load_util.upload_test(f_luby, f_ludate, db_luby,
3200:
3201: IF(fnd_load_util.upload_test(f_luby, f_ludate, db_luby,
3202: db_ludate, '')) then
3203:
3204: UPDATE OKL_FNCTN_PRMTRS_TL
3205: SET VALUE = p_fprv_rec.value,
3206: INSTRUCTIONS = p_fprv_rec.instructions,
3207: LAST_UPDATE_DATE = f_ludate,
3208: LAST_UPDATED_BY = f_luby,
3251: LAST_UPDATE_LOGIN = 0
3252: WHERE ID = to_number(p_fprv_rec.id);
3253: --Update _TL
3254:
3255: UPDATE OKL_FNCTN_PRMTRS_TL
3256: SET VALUE = p_fprv_rec.value,
3257: INSTRUCTIONS = p_fprv_rec.instructions,
3258: LAST_UPDATE_DATE = f_ludate,
3259: LAST_UPDATED_BY = f_luby,
3262: WHERE ID = to_number(p_fprv_rec.id)
3263: AND USERENV('LANG') IN (language,source_lang);
3264:
3265: IF(sql%notfound) THEN
3266: INSERT INTO OKL_FNCTN_PRMTRS_TL
3267: (
3268: ID,
3269: LANGUAGE,
3270: SOURCE_LANG,
3292: FROM FND_LANGUAGES L
3293: WHERE L.INSTALLED_FLAG IN ('I','B')
3294: AND NOT EXISTS
3295: (SELECT NULL
3296: FROM OKL_FNCTN_PRMTRS_TL TL
3297: WHERE TL.ID = TO_NUMBER(p_fprv_rec.id)
3298: AND TL.LANGUAGE = L.LANGUAGE_CODE);
3299: END IF;
3300: END IF;
3327: f_luby,
3328: f_ludate,
3329: 0);
3330:
3331: INSERT INTO OKL_FNCTN_PRMTRS_TL
3332: (
3333: ID,
3334: LANGUAGE,
3335: SOURCE_LANG,
3357: FROM FND_LANGUAGES L
3358: WHERE L.INSTALLED_FLAG IN ('I','B')
3359: AND NOT EXISTS
3360: (SELECT NULL
3361: FROM OKL_FNCTN_PRMTRS_TL TL
3362: WHERE TL.ID = TO_NUMBER(p_fprv_rec.id)
3363: AND TL.LANGUAGE = L.LANGUAGE_CODE);
3364: END LOAD_ROW;
3365: