[Home] [Help]
36: -- PROCEDURE add_language
37: ---------------------------------------------------------------------------
38: PROCEDURE add_language IS
39: BEGIN
40: DELETE FROM OKL_SERVICE_FEES_TL T
41: WHERE NOT EXISTS (
42: SELECT NULL
43: FROM OKL_SERVICE_FEES_ALL_B B --changed _TL to _B by rvaduri for MLS compliance.
44: WHERE B.ID = T.ID
43: FROM OKL_SERVICE_FEES_ALL_B B --changed _TL to _B by rvaduri for MLS compliance.
44: WHERE B.ID = T.ID
45: );
46:
47: UPDATE OKL_SERVICE_FEES_TL T SET (
48: NAME,
49: DESCRIPTION) = (SELECT
50: B.NAME,
51: B.DESCRIPTION
48: NAME,
49: DESCRIPTION) = (SELECT
50: B.NAME,
51: B.DESCRIPTION
52: FROM OKL_SERVICE_FEES_TL B
53: WHERE B.ID = T.ID
54: AND B.LANGUAGE = T.SOURCE_LANG)
55: WHERE (
56: T.ID,
57: T.LANGUAGE)
58: IN (SELECT
59: SUBT.ID,
60: SUBT.LANGUAGE
61: FROM OKL_SERVICE_FEES_TL SUBB, OKL_SERVICE_FEES_TL SUBT
62: WHERE SUBB.ID = SUBT.ID
63: AND SUBB.LANGUAGE = SUBT.SOURCE_LANG
64: AND (SUBB.NAME <> SUBT.NAME
65: OR SUBB.DESCRIPTION <> SUBT.DESCRIPTION
68: OR (SUBB.DESCRIPTION IS NULL AND SUBT.DESCRIPTION IS NOT NULL)
69: OR (SUBB.DESCRIPTION IS NOT NULL AND SUBT.DESCRIPTION IS NULL)
70: ));
71:
72: INSERT INTO OKL_SERVICE_FEES_TL (
73: ID,
74: LANGUAGE,
75: SOURCE_LANG,
76: SFWT_FLAG,
92: B.CREATION_DATE,
93: B.LAST_UPDATED_BY,
94: B.LAST_UPDATE_DATE,
95: B.LAST_UPDATE_LOGIN
96: FROM OKL_SERVICE_FEES_TL B, FND_LANGUAGES L
97: WHERE L.INSTALLED_FLAG IN ('I', 'B')
98: AND B.LANGUAGE = USERENV('LANG')
99: AND NOT EXISTS(
100: SELECT NULL
97: WHERE L.INSTALLED_FLAG IN ('I', 'B')
98: AND B.LANGUAGE = USERENV('LANG')
99: AND NOT EXISTS(
100: SELECT NULL
101: FROM OKL_SERVICE_FEES_TL T
102: WHERE T.ID = B.ID
103: AND T.LANGUAGE = L.LANGUAGE_CODE
104: );
105:
193: BEGIN
194: RETURN(get_rec(p_svf_rec, l_row_notfound));
195: END get_rec;
196: ---------------------------------------------------------------------------
197: -- FUNCTION get_rec for: OKL_SERVICE_FEES_TL
198: ---------------------------------------------------------------------------
199: FUNCTION get_rec (
200: p_okl_service_fees_tl_rec IN okl_service_fees_tl_rec_type,
201: x_no_data_found OUT NOCOPY BOOLEAN
196: ---------------------------------------------------------------------------
197: -- FUNCTION get_rec for: OKL_SERVICE_FEES_TL
198: ---------------------------------------------------------------------------
199: FUNCTION get_rec (
200: p_okl_service_fees_tl_rec IN okl_service_fees_tl_rec_type,
201: x_no_data_found OUT NOCOPY BOOLEAN
202: ) RETURN okl_service_fees_tl_rec_type IS
203: CURSOR okl_service_fees_tl_pk_csr (p_id IN NUMBER,
204: p_language IN VARCHAR2) IS
198: ---------------------------------------------------------------------------
199: FUNCTION get_rec (
200: p_okl_service_fees_tl_rec IN okl_service_fees_tl_rec_type,
201: x_no_data_found OUT NOCOPY BOOLEAN
202: ) RETURN okl_service_fees_tl_rec_type IS
203: CURSOR okl_service_fees_tl_pk_csr (p_id IN NUMBER,
204: p_language IN VARCHAR2) IS
205: SELECT
206: ID,
199: FUNCTION get_rec (
200: p_okl_service_fees_tl_rec IN okl_service_fees_tl_rec_type,
201: x_no_data_found OUT NOCOPY BOOLEAN
202: ) RETURN okl_service_fees_tl_rec_type IS
203: CURSOR okl_service_fees_tl_pk_csr (p_id IN NUMBER,
204: p_language IN VARCHAR2) IS
205: SELECT
206: ID,
207: LANGUAGE,
213: CREATION_DATE,
214: LAST_UPDATED_BY,
215: LAST_UPDATE_DATE,
216: LAST_UPDATE_LOGIN
217: FROM Okl_Service_Fees_Tl
218: WHERE okl_service_fees_tl.id = p_id
219: AND okl_service_fees_tl.LANGUAGE = p_language;
220: l_okl_service_fees_tl_pk okl_service_fees_tl_pk_csr%ROWTYPE;
221: l_okl_service_fees_tl_rec okl_service_fees_tl_rec_type;
214: LAST_UPDATED_BY,
215: LAST_UPDATE_DATE,
216: LAST_UPDATE_LOGIN
217: FROM Okl_Service_Fees_Tl
218: WHERE okl_service_fees_tl.id = p_id
219: AND okl_service_fees_tl.LANGUAGE = p_language;
220: l_okl_service_fees_tl_pk okl_service_fees_tl_pk_csr%ROWTYPE;
221: l_okl_service_fees_tl_rec okl_service_fees_tl_rec_type;
222: BEGIN
215: LAST_UPDATE_DATE,
216: LAST_UPDATE_LOGIN
217: FROM Okl_Service_Fees_Tl
218: WHERE okl_service_fees_tl.id = p_id
219: AND okl_service_fees_tl.LANGUAGE = p_language;
220: l_okl_service_fees_tl_pk okl_service_fees_tl_pk_csr%ROWTYPE;
221: l_okl_service_fees_tl_rec okl_service_fees_tl_rec_type;
222: BEGIN
223: x_no_data_found := TRUE;
216: LAST_UPDATE_LOGIN
217: FROM Okl_Service_Fees_Tl
218: WHERE okl_service_fees_tl.id = p_id
219: AND okl_service_fees_tl.LANGUAGE = p_language;
220: l_okl_service_fees_tl_pk okl_service_fees_tl_pk_csr%ROWTYPE;
221: l_okl_service_fees_tl_rec okl_service_fees_tl_rec_type;
222: BEGIN
223: x_no_data_found := TRUE;
224: -- Get current database values
217: FROM Okl_Service_Fees_Tl
218: WHERE okl_service_fees_tl.id = p_id
219: AND okl_service_fees_tl.LANGUAGE = p_language;
220: l_okl_service_fees_tl_pk okl_service_fees_tl_pk_csr%ROWTYPE;
221: l_okl_service_fees_tl_rec okl_service_fees_tl_rec_type;
222: BEGIN
223: x_no_data_found := TRUE;
224: -- Get current database values
225: OPEN okl_service_fees_tl_pk_csr (p_okl_service_fees_tl_rec.id,
221: l_okl_service_fees_tl_rec okl_service_fees_tl_rec_type;
222: BEGIN
223: x_no_data_found := TRUE;
224: -- Get current database values
225: OPEN okl_service_fees_tl_pk_csr (p_okl_service_fees_tl_rec.id,
226: p_okl_service_fees_tl_rec.LANGUAGE);
227: FETCH okl_service_fees_tl_pk_csr INTO
228: l_okl_service_fees_tl_rec.ID,
229: l_okl_service_fees_tl_rec.LANGUAGE,
222: BEGIN
223: x_no_data_found := TRUE;
224: -- Get current database values
225: OPEN okl_service_fees_tl_pk_csr (p_okl_service_fees_tl_rec.id,
226: p_okl_service_fees_tl_rec.LANGUAGE);
227: FETCH okl_service_fees_tl_pk_csr INTO
228: l_okl_service_fees_tl_rec.ID,
229: l_okl_service_fees_tl_rec.LANGUAGE,
230: l_okl_service_fees_tl_rec.SOURCE_LANG,
223: x_no_data_found := TRUE;
224: -- Get current database values
225: OPEN okl_service_fees_tl_pk_csr (p_okl_service_fees_tl_rec.id,
226: p_okl_service_fees_tl_rec.LANGUAGE);
227: FETCH okl_service_fees_tl_pk_csr INTO
228: l_okl_service_fees_tl_rec.ID,
229: l_okl_service_fees_tl_rec.LANGUAGE,
230: l_okl_service_fees_tl_rec.SOURCE_LANG,
231: l_okl_service_fees_tl_rec.SFWT_FLAG,
224: -- Get current database values
225: OPEN okl_service_fees_tl_pk_csr (p_okl_service_fees_tl_rec.id,
226: p_okl_service_fees_tl_rec.LANGUAGE);
227: FETCH okl_service_fees_tl_pk_csr INTO
228: l_okl_service_fees_tl_rec.ID,
229: l_okl_service_fees_tl_rec.LANGUAGE,
230: l_okl_service_fees_tl_rec.SOURCE_LANG,
231: l_okl_service_fees_tl_rec.SFWT_FLAG,
232: l_okl_service_fees_tl_rec.NAME,
225: OPEN okl_service_fees_tl_pk_csr (p_okl_service_fees_tl_rec.id,
226: p_okl_service_fees_tl_rec.LANGUAGE);
227: FETCH okl_service_fees_tl_pk_csr INTO
228: l_okl_service_fees_tl_rec.ID,
229: l_okl_service_fees_tl_rec.LANGUAGE,
230: l_okl_service_fees_tl_rec.SOURCE_LANG,
231: l_okl_service_fees_tl_rec.SFWT_FLAG,
232: l_okl_service_fees_tl_rec.NAME,
233: l_okl_service_fees_tl_rec.DESCRIPTION,
226: p_okl_service_fees_tl_rec.LANGUAGE);
227: FETCH okl_service_fees_tl_pk_csr INTO
228: l_okl_service_fees_tl_rec.ID,
229: l_okl_service_fees_tl_rec.LANGUAGE,
230: l_okl_service_fees_tl_rec.SOURCE_LANG,
231: l_okl_service_fees_tl_rec.SFWT_FLAG,
232: l_okl_service_fees_tl_rec.NAME,
233: l_okl_service_fees_tl_rec.DESCRIPTION,
234: l_okl_service_fees_tl_rec.CREATED_BY,
227: FETCH okl_service_fees_tl_pk_csr INTO
228: l_okl_service_fees_tl_rec.ID,
229: l_okl_service_fees_tl_rec.LANGUAGE,
230: l_okl_service_fees_tl_rec.SOURCE_LANG,
231: l_okl_service_fees_tl_rec.SFWT_FLAG,
232: l_okl_service_fees_tl_rec.NAME,
233: l_okl_service_fees_tl_rec.DESCRIPTION,
234: l_okl_service_fees_tl_rec.CREATED_BY,
235: l_okl_service_fees_tl_rec.CREATION_DATE,
228: l_okl_service_fees_tl_rec.ID,
229: l_okl_service_fees_tl_rec.LANGUAGE,
230: l_okl_service_fees_tl_rec.SOURCE_LANG,
231: l_okl_service_fees_tl_rec.SFWT_FLAG,
232: l_okl_service_fees_tl_rec.NAME,
233: l_okl_service_fees_tl_rec.DESCRIPTION,
234: l_okl_service_fees_tl_rec.CREATED_BY,
235: l_okl_service_fees_tl_rec.CREATION_DATE,
236: l_okl_service_fees_tl_rec.LAST_UPDATED_BY,
229: l_okl_service_fees_tl_rec.LANGUAGE,
230: l_okl_service_fees_tl_rec.SOURCE_LANG,
231: l_okl_service_fees_tl_rec.SFWT_FLAG,
232: l_okl_service_fees_tl_rec.NAME,
233: l_okl_service_fees_tl_rec.DESCRIPTION,
234: l_okl_service_fees_tl_rec.CREATED_BY,
235: l_okl_service_fees_tl_rec.CREATION_DATE,
236: l_okl_service_fees_tl_rec.LAST_UPDATED_BY,
237: l_okl_service_fees_tl_rec.LAST_UPDATE_DATE,
230: l_okl_service_fees_tl_rec.SOURCE_LANG,
231: l_okl_service_fees_tl_rec.SFWT_FLAG,
232: l_okl_service_fees_tl_rec.NAME,
233: l_okl_service_fees_tl_rec.DESCRIPTION,
234: l_okl_service_fees_tl_rec.CREATED_BY,
235: l_okl_service_fees_tl_rec.CREATION_DATE,
236: l_okl_service_fees_tl_rec.LAST_UPDATED_BY,
237: l_okl_service_fees_tl_rec.LAST_UPDATE_DATE,
238: l_okl_service_fees_tl_rec.LAST_UPDATE_LOGIN;
231: l_okl_service_fees_tl_rec.SFWT_FLAG,
232: l_okl_service_fees_tl_rec.NAME,
233: l_okl_service_fees_tl_rec.DESCRIPTION,
234: l_okl_service_fees_tl_rec.CREATED_BY,
235: l_okl_service_fees_tl_rec.CREATION_DATE,
236: l_okl_service_fees_tl_rec.LAST_UPDATED_BY,
237: l_okl_service_fees_tl_rec.LAST_UPDATE_DATE,
238: l_okl_service_fees_tl_rec.LAST_UPDATE_LOGIN;
239: x_no_data_found := okl_service_fees_tl_pk_csr%NOTFOUND;
232: l_okl_service_fees_tl_rec.NAME,
233: l_okl_service_fees_tl_rec.DESCRIPTION,
234: l_okl_service_fees_tl_rec.CREATED_BY,
235: l_okl_service_fees_tl_rec.CREATION_DATE,
236: l_okl_service_fees_tl_rec.LAST_UPDATED_BY,
237: l_okl_service_fees_tl_rec.LAST_UPDATE_DATE,
238: l_okl_service_fees_tl_rec.LAST_UPDATE_LOGIN;
239: x_no_data_found := okl_service_fees_tl_pk_csr%NOTFOUND;
240: CLOSE okl_service_fees_tl_pk_csr;
233: l_okl_service_fees_tl_rec.DESCRIPTION,
234: l_okl_service_fees_tl_rec.CREATED_BY,
235: l_okl_service_fees_tl_rec.CREATION_DATE,
236: l_okl_service_fees_tl_rec.LAST_UPDATED_BY,
237: l_okl_service_fees_tl_rec.LAST_UPDATE_DATE,
238: l_okl_service_fees_tl_rec.LAST_UPDATE_LOGIN;
239: x_no_data_found := okl_service_fees_tl_pk_csr%NOTFOUND;
240: CLOSE okl_service_fees_tl_pk_csr;
241: RETURN(l_okl_service_fees_tl_rec);
234: l_okl_service_fees_tl_rec.CREATED_BY,
235: l_okl_service_fees_tl_rec.CREATION_DATE,
236: l_okl_service_fees_tl_rec.LAST_UPDATED_BY,
237: l_okl_service_fees_tl_rec.LAST_UPDATE_DATE,
238: l_okl_service_fees_tl_rec.LAST_UPDATE_LOGIN;
239: x_no_data_found := okl_service_fees_tl_pk_csr%NOTFOUND;
240: CLOSE okl_service_fees_tl_pk_csr;
241: RETURN(l_okl_service_fees_tl_rec);
242: END get_rec;
235: l_okl_service_fees_tl_rec.CREATION_DATE,
236: l_okl_service_fees_tl_rec.LAST_UPDATED_BY,
237: l_okl_service_fees_tl_rec.LAST_UPDATE_DATE,
238: l_okl_service_fees_tl_rec.LAST_UPDATE_LOGIN;
239: x_no_data_found := okl_service_fees_tl_pk_csr%NOTFOUND;
240: CLOSE okl_service_fees_tl_pk_csr;
241: RETURN(l_okl_service_fees_tl_rec);
242: END get_rec;
243:
236: l_okl_service_fees_tl_rec.LAST_UPDATED_BY,
237: l_okl_service_fees_tl_rec.LAST_UPDATE_DATE,
238: l_okl_service_fees_tl_rec.LAST_UPDATE_LOGIN;
239: x_no_data_found := okl_service_fees_tl_pk_csr%NOTFOUND;
240: CLOSE okl_service_fees_tl_pk_csr;
241: RETURN(l_okl_service_fees_tl_rec);
242: END get_rec;
243:
244: FUNCTION get_rec (
237: l_okl_service_fees_tl_rec.LAST_UPDATE_DATE,
238: l_okl_service_fees_tl_rec.LAST_UPDATE_LOGIN;
239: x_no_data_found := okl_service_fees_tl_pk_csr%NOTFOUND;
240: CLOSE okl_service_fees_tl_pk_csr;
241: RETURN(l_okl_service_fees_tl_rec);
242: END get_rec;
243:
244: FUNCTION get_rec (
245: p_okl_service_fees_tl_rec IN okl_service_fees_tl_rec_type
241: RETURN(l_okl_service_fees_tl_rec);
242: END get_rec;
243:
244: FUNCTION get_rec (
245: p_okl_service_fees_tl_rec IN okl_service_fees_tl_rec_type
246: ) RETURN okl_service_fees_tl_rec_type IS
247: l_row_notfound BOOLEAN := TRUE;
248: BEGIN
249: RETURN(get_rec(p_okl_service_fees_tl_rec, l_row_notfound));
242: END get_rec;
243:
244: FUNCTION get_rec (
245: p_okl_service_fees_tl_rec IN okl_service_fees_tl_rec_type
246: ) RETURN okl_service_fees_tl_rec_type IS
247: l_row_notfound BOOLEAN := TRUE;
248: BEGIN
249: RETURN(get_rec(p_okl_service_fees_tl_rec, l_row_notfound));
250: END get_rec;
245: p_okl_service_fees_tl_rec IN okl_service_fees_tl_rec_type
246: ) RETURN okl_service_fees_tl_rec_type IS
247: l_row_notfound BOOLEAN := TRUE;
248: BEGIN
249: RETURN(get_rec(p_okl_service_fees_tl_rec, l_row_notfound));
250: END get_rec;
251: ---------------------------------------------------------------------------
252: -- FUNCTION get_rec for: OKL_SERVICE_FEES_V
253: ---------------------------------------------------------------------------
844: p_to.last_update_login := p_from.last_update_login;
845: END migrate;
846: PROCEDURE migrate (
847: p_from IN svfv_rec_type,
848: p_to OUT NOCOPY okl_service_fees_tl_rec_type
849: ) IS
850: BEGIN
851: p_to.id := p_from.id;
852: p_to.sfwt_flag := p_from.sfwt_flag;
858: p_to.last_update_date := p_from.last_update_date;
859: p_to.last_update_login := p_from.last_update_login;
860: END migrate;
861: PROCEDURE migrate (
862: p_from IN okl_service_fees_tl_rec_type,
863: p_to OUT NOCOPY svfv_rec_type
864: ) IS
865: BEGIN
866: p_to.id := p_from.id;
892: l_api_name CONSTANT VARCHAR2(30) := 'V_validate_row';
893: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
894: l_svfv_rec svfv_rec_type := p_svfv_rec;
895: l_svf_rec svf_rec_type;
896: l_okl_service_fees_tl_rec okl_service_fees_tl_rec_type;
897: BEGIN
898: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
899: G_PKG_NAME,
900: p_init_msg_list,
1165: '_PVT'
1166: );
1167: END insert_row;
1168: ----------------------------------------
1169: -- insert_row for:OKL_SERVICE_FEES_TL --
1170: ----------------------------------------
1171: PROCEDURE insert_row(
1172: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1173: x_return_status OUT NOCOPY VARCHAR2,
1172: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1173: x_return_status OUT NOCOPY VARCHAR2,
1174: x_msg_count OUT NOCOPY NUMBER,
1175: x_msg_data OUT NOCOPY VARCHAR2,
1176: p_okl_service_fees_tl_rec IN okl_service_fees_tl_rec_type,
1177: x_okl_service_fees_tl_rec OUT NOCOPY okl_service_fees_tl_rec_type) IS
1178:
1179: l_api_version CONSTANT NUMBER := 1;
1180: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
1173: x_return_status OUT NOCOPY VARCHAR2,
1174: x_msg_count OUT NOCOPY NUMBER,
1175: x_msg_data OUT NOCOPY VARCHAR2,
1176: p_okl_service_fees_tl_rec IN okl_service_fees_tl_rec_type,
1177: x_okl_service_fees_tl_rec OUT NOCOPY okl_service_fees_tl_rec_type) IS
1178:
1179: l_api_version CONSTANT NUMBER := 1;
1180: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
1181: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1178:
1179: l_api_version CONSTANT NUMBER := 1;
1180: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
1181: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1182: l_okl_service_fees_tl_rec okl_service_fees_tl_rec_type := p_okl_service_fees_tl_rec;
1183: ldefoklservicefeestlrec okl_service_fees_tl_rec_type;
1184: CURSOR get_languages IS
1185: SELECT *
1186: FROM FND_LANGUAGES
1179: l_api_version CONSTANT NUMBER := 1;
1180: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
1181: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1182: l_okl_service_fees_tl_rec okl_service_fees_tl_rec_type := p_okl_service_fees_tl_rec;
1183: ldefoklservicefeestlrec okl_service_fees_tl_rec_type;
1184: CURSOR get_languages IS
1185: SELECT *
1186: FROM FND_LANGUAGES
1187: WHERE INSTALLED_FLAG IN ('I', 'B');
1185: SELECT *
1186: FROM FND_LANGUAGES
1187: WHERE INSTALLED_FLAG IN ('I', 'B');
1188: --------------------------------------------
1189: -- Set_Attributes for:OKL_SERVICE_FEES_TL --
1190: --------------------------------------------
1191: FUNCTION Set_Attributes (
1192: p_okl_service_fees_tl_rec IN okl_service_fees_tl_rec_type,
1193: x_okl_service_fees_tl_rec OUT NOCOPY okl_service_fees_tl_rec_type
1188: --------------------------------------------
1189: -- Set_Attributes for:OKL_SERVICE_FEES_TL --
1190: --------------------------------------------
1191: FUNCTION Set_Attributes (
1192: p_okl_service_fees_tl_rec IN okl_service_fees_tl_rec_type,
1193: x_okl_service_fees_tl_rec OUT NOCOPY okl_service_fees_tl_rec_type
1194: ) RETURN VARCHAR2 IS
1195: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1196: BEGIN
1189: -- Set_Attributes for:OKL_SERVICE_FEES_TL --
1190: --------------------------------------------
1191: FUNCTION Set_Attributes (
1192: p_okl_service_fees_tl_rec IN okl_service_fees_tl_rec_type,
1193: x_okl_service_fees_tl_rec OUT NOCOPY okl_service_fees_tl_rec_type
1194: ) RETURN VARCHAR2 IS
1195: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1196: BEGIN
1197: x_okl_service_fees_tl_rec := p_okl_service_fees_tl_rec;
1193: x_okl_service_fees_tl_rec OUT NOCOPY okl_service_fees_tl_rec_type
1194: ) RETURN VARCHAR2 IS
1195: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1196: BEGIN
1197: x_okl_service_fees_tl_rec := p_okl_service_fees_tl_rec;
1198: x_okl_service_fees_tl_rec.LANGUAGE := USERENV('LANG');
1199: x_okl_service_fees_tl_rec.SOURCE_LANG := USERENV('LANG');
1200: RETURN(l_return_status);
1201: END Set_Attributes;
1194: ) RETURN VARCHAR2 IS
1195: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1196: BEGIN
1197: x_okl_service_fees_tl_rec := p_okl_service_fees_tl_rec;
1198: x_okl_service_fees_tl_rec.LANGUAGE := USERENV('LANG');
1199: x_okl_service_fees_tl_rec.SOURCE_LANG := USERENV('LANG');
1200: RETURN(l_return_status);
1201: END Set_Attributes;
1202: BEGIN
1195: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1196: BEGIN
1197: x_okl_service_fees_tl_rec := p_okl_service_fees_tl_rec;
1198: x_okl_service_fees_tl_rec.LANGUAGE := USERENV('LANG');
1199: x_okl_service_fees_tl_rec.SOURCE_LANG := USERENV('LANG');
1200: RETURN(l_return_status);
1201: END Set_Attributes;
1202: BEGIN
1203: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
1210: RAISE OKL_API.G_EXCEPTION_ERROR;
1211: END IF;
1212: --- Setting item attributes
1213: l_return_status := Set_Attributes(
1214: p_okl_service_fees_tl_rec, -- IN
1215: l_okl_service_fees_tl_rec); -- OUT
1216: --- If any errors happen abort API
1217: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1218: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1211: END IF;
1212: --- Setting item attributes
1213: l_return_status := Set_Attributes(
1214: p_okl_service_fees_tl_rec, -- IN
1215: l_okl_service_fees_tl_rec); -- OUT
1216: --- If any errors happen abort API
1217: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1218: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1219: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1219: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1220: RAISE OKL_API.G_EXCEPTION_ERROR;
1221: END IF;
1222: FOR l_lang_rec IN get_languages LOOP
1223: l_okl_service_fees_tl_rec.LANGUAGE := l_lang_rec.language_code;
1224: INSERT INTO OKL_SERVICE_FEES_TL(
1225: id,
1226: LANGUAGE,
1227: source_lang,
1220: RAISE OKL_API.G_EXCEPTION_ERROR;
1221: END IF;
1222: FOR l_lang_rec IN get_languages LOOP
1223: l_okl_service_fees_tl_rec.LANGUAGE := l_lang_rec.language_code;
1224: INSERT INTO OKL_SERVICE_FEES_TL(
1225: id,
1226: LANGUAGE,
1227: source_lang,
1228: sfwt_flag,
1233: last_updated_by,
1234: last_update_date,
1235: last_update_login)
1236: VALUES (
1237: l_okl_service_fees_tl_rec.id,
1238: l_okl_service_fees_tl_rec.LANGUAGE,
1239: l_okl_service_fees_tl_rec.source_lang,
1240: l_okl_service_fees_tl_rec.sfwt_flag,
1241: l_okl_service_fees_tl_rec.name,
1234: last_update_date,
1235: last_update_login)
1236: VALUES (
1237: l_okl_service_fees_tl_rec.id,
1238: l_okl_service_fees_tl_rec.LANGUAGE,
1239: l_okl_service_fees_tl_rec.source_lang,
1240: l_okl_service_fees_tl_rec.sfwt_flag,
1241: l_okl_service_fees_tl_rec.name,
1242: l_okl_service_fees_tl_rec.description,
1235: last_update_login)
1236: VALUES (
1237: l_okl_service_fees_tl_rec.id,
1238: l_okl_service_fees_tl_rec.LANGUAGE,
1239: l_okl_service_fees_tl_rec.source_lang,
1240: l_okl_service_fees_tl_rec.sfwt_flag,
1241: l_okl_service_fees_tl_rec.name,
1242: l_okl_service_fees_tl_rec.description,
1243: l_okl_service_fees_tl_rec.created_by,
1236: VALUES (
1237: l_okl_service_fees_tl_rec.id,
1238: l_okl_service_fees_tl_rec.LANGUAGE,
1239: l_okl_service_fees_tl_rec.source_lang,
1240: l_okl_service_fees_tl_rec.sfwt_flag,
1241: l_okl_service_fees_tl_rec.name,
1242: l_okl_service_fees_tl_rec.description,
1243: l_okl_service_fees_tl_rec.created_by,
1244: l_okl_service_fees_tl_rec.creation_date,
1237: l_okl_service_fees_tl_rec.id,
1238: l_okl_service_fees_tl_rec.LANGUAGE,
1239: l_okl_service_fees_tl_rec.source_lang,
1240: l_okl_service_fees_tl_rec.sfwt_flag,
1241: l_okl_service_fees_tl_rec.name,
1242: l_okl_service_fees_tl_rec.description,
1243: l_okl_service_fees_tl_rec.created_by,
1244: l_okl_service_fees_tl_rec.creation_date,
1245: l_okl_service_fees_tl_rec.last_updated_by,
1238: l_okl_service_fees_tl_rec.LANGUAGE,
1239: l_okl_service_fees_tl_rec.source_lang,
1240: l_okl_service_fees_tl_rec.sfwt_flag,
1241: l_okl_service_fees_tl_rec.name,
1242: l_okl_service_fees_tl_rec.description,
1243: l_okl_service_fees_tl_rec.created_by,
1244: l_okl_service_fees_tl_rec.creation_date,
1245: l_okl_service_fees_tl_rec.last_updated_by,
1246: l_okl_service_fees_tl_rec.last_update_date,
1239: l_okl_service_fees_tl_rec.source_lang,
1240: l_okl_service_fees_tl_rec.sfwt_flag,
1241: l_okl_service_fees_tl_rec.name,
1242: l_okl_service_fees_tl_rec.description,
1243: l_okl_service_fees_tl_rec.created_by,
1244: l_okl_service_fees_tl_rec.creation_date,
1245: l_okl_service_fees_tl_rec.last_updated_by,
1246: l_okl_service_fees_tl_rec.last_update_date,
1247: l_okl_service_fees_tl_rec.last_update_login);
1240: l_okl_service_fees_tl_rec.sfwt_flag,
1241: l_okl_service_fees_tl_rec.name,
1242: l_okl_service_fees_tl_rec.description,
1243: l_okl_service_fees_tl_rec.created_by,
1244: l_okl_service_fees_tl_rec.creation_date,
1245: l_okl_service_fees_tl_rec.last_updated_by,
1246: l_okl_service_fees_tl_rec.last_update_date,
1247: l_okl_service_fees_tl_rec.last_update_login);
1248: END LOOP;
1241: l_okl_service_fees_tl_rec.name,
1242: l_okl_service_fees_tl_rec.description,
1243: l_okl_service_fees_tl_rec.created_by,
1244: l_okl_service_fees_tl_rec.creation_date,
1245: l_okl_service_fees_tl_rec.last_updated_by,
1246: l_okl_service_fees_tl_rec.last_update_date,
1247: l_okl_service_fees_tl_rec.last_update_login);
1248: END LOOP;
1249: -- Set OUT values
1242: l_okl_service_fees_tl_rec.description,
1243: l_okl_service_fees_tl_rec.created_by,
1244: l_okl_service_fees_tl_rec.creation_date,
1245: l_okl_service_fees_tl_rec.last_updated_by,
1246: l_okl_service_fees_tl_rec.last_update_date,
1247: l_okl_service_fees_tl_rec.last_update_login);
1248: END LOOP;
1249: -- Set OUT values
1250: x_okl_service_fees_tl_rec := l_okl_service_fees_tl_rec;
1243: l_okl_service_fees_tl_rec.created_by,
1244: l_okl_service_fees_tl_rec.creation_date,
1245: l_okl_service_fees_tl_rec.last_updated_by,
1246: l_okl_service_fees_tl_rec.last_update_date,
1247: l_okl_service_fees_tl_rec.last_update_login);
1248: END LOOP;
1249: -- Set OUT values
1250: x_okl_service_fees_tl_rec := l_okl_service_fees_tl_rec;
1251: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1246: l_okl_service_fees_tl_rec.last_update_date,
1247: l_okl_service_fees_tl_rec.last_update_login);
1248: END LOOP;
1249: -- Set OUT values
1250: x_okl_service_fees_tl_rec := l_okl_service_fees_tl_rec;
1251: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1252: EXCEPTION
1253: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1254: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1299: l_svfv_rec svfv_rec_type;
1300: l_def_svfv_rec svfv_rec_type;
1301: l_svf_rec svf_rec_type;
1302: lx_svf_rec svf_rec_type;
1303: l_okl_service_fees_tl_rec okl_service_fees_tl_rec_type;
1304: lx_okl_service_fees_tl_rec okl_service_fees_tl_rec_type;
1305: -------------------------------
1306: -- FUNCTION fill_who_columns --
1307: -------------------------------
1300: l_def_svfv_rec svfv_rec_type;
1301: l_svf_rec svf_rec_type;
1302: lx_svf_rec svf_rec_type;
1303: l_okl_service_fees_tl_rec okl_service_fees_tl_rec_type;
1304: lx_okl_service_fees_tl_rec okl_service_fees_tl_rec_type;
1305: -------------------------------
1306: -- FUNCTION fill_who_columns --
1307: -------------------------------
1308: FUNCTION fill_who_columns (
1423: --------------------------------------
1424: -- Move VIEW record to "Child" records
1425: --------------------------------------
1426: migrate(l_def_svfv_rec, l_svf_rec);
1427: migrate(l_def_svfv_rec, l_okl_service_fees_tl_rec);
1428: --------------------------------------------
1429: -- Call the INSERT_ROW for each child record
1430: --------------------------------------------
1431: insert_row(
1446: p_init_msg_list,
1447: x_return_status,
1448: x_msg_count,
1449: x_msg_data,
1450: l_okl_service_fees_tl_rec,
1451: lx_okl_service_fees_tl_rec
1452: );
1453: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1454: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1447: x_return_status,
1448: x_msg_count,
1449: x_msg_data,
1450: l_okl_service_fees_tl_rec,
1451: lx_okl_service_fees_tl_rec
1452: );
1453: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1454: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1455: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1454: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1455: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1456: RAISE OKL_API.G_EXCEPTION_ERROR;
1457: END IF;
1458: migrate(lx_okl_service_fees_tl_rec, l_def_svfv_rec);
1459: -- Set OUT values
1460: x_svfv_rec := l_def_svfv_rec;
1461: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1462: EXCEPTION
1667: '_PVT'
1668: );
1669: END lock_row;
1670: --------------------------------------
1671: -- lock_row for:OKL_SERVICE_FEES_TL --
1672: --------------------------------------
1673: PROCEDURE lock_row(
1674: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1675: x_return_status OUT NOCOPY VARCHAR2,
1674: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1675: x_return_status OUT NOCOPY VARCHAR2,
1676: x_msg_count OUT NOCOPY NUMBER,
1677: x_msg_data OUT NOCOPY VARCHAR2,
1678: p_okl_service_fees_tl_rec IN okl_service_fees_tl_rec_type) IS
1679:
1680: E_Resource_Busy EXCEPTION;
1681: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
1682: CURSOR lock_csr (p_okl_service_fees_tl_rec IN okl_service_fees_tl_rec_type) IS
1678: p_okl_service_fees_tl_rec IN okl_service_fees_tl_rec_type) IS
1679:
1680: E_Resource_Busy EXCEPTION;
1681: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
1682: CURSOR lock_csr (p_okl_service_fees_tl_rec IN okl_service_fees_tl_rec_type) IS
1683: SELECT *
1684: FROM OKL_SERVICE_FEES_TL
1685: WHERE ID = p_okl_service_fees_tl_rec.id
1686: FOR UPDATE NOWAIT;
1680: E_Resource_Busy EXCEPTION;
1681: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
1682: CURSOR lock_csr (p_okl_service_fees_tl_rec IN okl_service_fees_tl_rec_type) IS
1683: SELECT *
1684: FROM OKL_SERVICE_FEES_TL
1685: WHERE ID = p_okl_service_fees_tl_rec.id
1686: FOR UPDATE NOWAIT;
1687:
1688: l_api_version CONSTANT NUMBER := 1;
1681: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
1682: CURSOR lock_csr (p_okl_service_fees_tl_rec IN okl_service_fees_tl_rec_type) IS
1683: SELECT *
1684: FROM OKL_SERVICE_FEES_TL
1685: WHERE ID = p_okl_service_fees_tl_rec.id
1686: FOR UPDATE NOWAIT;
1687:
1688: l_api_version CONSTANT NUMBER := 1;
1689: l_api_name CONSTANT VARCHAR2(30) := 'TL_lock_row';
1701: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1702: RAISE OKL_API.G_EXCEPTION_ERROR;
1703: END IF;
1704: BEGIN
1705: OPEN lock_csr(p_okl_service_fees_tl_rec);
1706: FETCH lock_csr INTO l_lock_var;
1707: l_row_notfound := lock_csr%NOTFOUND;
1708: CLOSE lock_csr;
1709: EXCEPTION
1766: l_api_version CONSTANT NUMBER := 1;
1767: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
1768: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1769: l_svf_rec svf_rec_type;
1770: l_okl_service_fees_tl_rec okl_service_fees_tl_rec_type;
1771: BEGIN
1772: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
1773: G_PKG_NAME,
1774: p_init_msg_list,
1784: --------------------------------------
1785: -- Move VIEW record to "Child" records
1786: --------------------------------------
1787: migrate(p_svfv_rec, l_svf_rec);
1788: migrate(p_svfv_rec, l_okl_service_fees_tl_rec);
1789: --------------------------------------------
1790: -- Call the LOCK_ROW for each child record
1791: --------------------------------------------
1792: lock_row(
1805: p_init_msg_list,
1806: x_return_status,
1807: x_msg_count,
1808: x_msg_data,
1809: l_okl_service_fees_tl_rec
1810: );
1811: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1812: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1813: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2171: '_PVT'
2172: );
2173: END update_row;
2174: ----------------------------------------
2175: -- update_row for:OKL_SERVICE_FEES_TL --
2176: ----------------------------------------
2177: PROCEDURE update_row(
2178: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2179: x_return_status OUT NOCOPY VARCHAR2,
2178: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2179: x_return_status OUT NOCOPY VARCHAR2,
2180: x_msg_count OUT NOCOPY NUMBER,
2181: x_msg_data OUT NOCOPY VARCHAR2,
2182: p_okl_service_fees_tl_rec IN okl_service_fees_tl_rec_type,
2183: x_okl_service_fees_tl_rec OUT NOCOPY okl_service_fees_tl_rec_type) IS
2184:
2185: l_api_version CONSTANT NUMBER := 1;
2186: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
2179: x_return_status OUT NOCOPY VARCHAR2,
2180: x_msg_count OUT NOCOPY NUMBER,
2181: x_msg_data OUT NOCOPY VARCHAR2,
2182: p_okl_service_fees_tl_rec IN okl_service_fees_tl_rec_type,
2183: x_okl_service_fees_tl_rec OUT NOCOPY okl_service_fees_tl_rec_type) IS
2184:
2185: l_api_version CONSTANT NUMBER := 1;
2186: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
2187: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2184:
2185: l_api_version CONSTANT NUMBER := 1;
2186: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
2187: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2188: l_okl_service_fees_tl_rec okl_service_fees_tl_rec_type := p_okl_service_fees_tl_rec;
2189: ldefoklservicefeestlrec okl_service_fees_tl_rec_type;
2190: l_row_notfound BOOLEAN := TRUE;
2191: ----------------------------------
2192: -- FUNCTION populate_new_record --
2185: l_api_version CONSTANT NUMBER := 1;
2186: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
2187: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2188: l_okl_service_fees_tl_rec okl_service_fees_tl_rec_type := p_okl_service_fees_tl_rec;
2189: ldefoklservicefeestlrec okl_service_fees_tl_rec_type;
2190: l_row_notfound BOOLEAN := TRUE;
2191: ----------------------------------
2192: -- FUNCTION populate_new_record --
2193: ----------------------------------
2191: ----------------------------------
2192: -- FUNCTION populate_new_record --
2193: ----------------------------------
2194: FUNCTION populate_new_record (
2195: p_okl_service_fees_tl_rec IN okl_service_fees_tl_rec_type,
2196: x_okl_service_fees_tl_rec OUT NOCOPY okl_service_fees_tl_rec_type
2197: ) RETURN VARCHAR2 IS
2198: l_okl_service_fees_tl_rec okl_service_fees_tl_rec_type;
2199: l_row_notfound BOOLEAN := TRUE;
2192: -- FUNCTION populate_new_record --
2193: ----------------------------------
2194: FUNCTION populate_new_record (
2195: p_okl_service_fees_tl_rec IN okl_service_fees_tl_rec_type,
2196: x_okl_service_fees_tl_rec OUT NOCOPY okl_service_fees_tl_rec_type
2197: ) RETURN VARCHAR2 IS
2198: l_okl_service_fees_tl_rec okl_service_fees_tl_rec_type;
2199: l_row_notfound BOOLEAN := TRUE;
2200: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2194: FUNCTION populate_new_record (
2195: p_okl_service_fees_tl_rec IN okl_service_fees_tl_rec_type,
2196: x_okl_service_fees_tl_rec OUT NOCOPY okl_service_fees_tl_rec_type
2197: ) RETURN VARCHAR2 IS
2198: l_okl_service_fees_tl_rec okl_service_fees_tl_rec_type;
2199: l_row_notfound BOOLEAN := TRUE;
2200: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2201: BEGIN
2202: x_okl_service_fees_tl_rec := p_okl_service_fees_tl_rec;
2198: l_okl_service_fees_tl_rec okl_service_fees_tl_rec_type;
2199: l_row_notfound BOOLEAN := TRUE;
2200: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2201: BEGIN
2202: x_okl_service_fees_tl_rec := p_okl_service_fees_tl_rec;
2203: -- Get current database values
2204: l_okl_service_fees_tl_rec := get_rec(p_okl_service_fees_tl_rec, l_row_notfound);
2205: IF (l_row_notfound) THEN
2206: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2200: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2201: BEGIN
2202: x_okl_service_fees_tl_rec := p_okl_service_fees_tl_rec;
2203: -- Get current database values
2204: l_okl_service_fees_tl_rec := get_rec(p_okl_service_fees_tl_rec, l_row_notfound);
2205: IF (l_row_notfound) THEN
2206: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2207: END IF;
2208: IF (x_okl_service_fees_tl_rec.id = OKL_API.G_MISS_NUM)
2204: l_okl_service_fees_tl_rec := get_rec(p_okl_service_fees_tl_rec, l_row_notfound);
2205: IF (l_row_notfound) THEN
2206: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2207: END IF;
2208: IF (x_okl_service_fees_tl_rec.id = OKL_API.G_MISS_NUM)
2209: THEN
2210: x_okl_service_fees_tl_rec.id := l_okl_service_fees_tl_rec.id;
2211: END IF;
2212: IF (x_okl_service_fees_tl_rec.LANGUAGE = OKL_API.G_MISS_CHAR)
2206: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2207: END IF;
2208: IF (x_okl_service_fees_tl_rec.id = OKL_API.G_MISS_NUM)
2209: THEN
2210: x_okl_service_fees_tl_rec.id := l_okl_service_fees_tl_rec.id;
2211: END IF;
2212: IF (x_okl_service_fees_tl_rec.LANGUAGE = OKL_API.G_MISS_CHAR)
2213: THEN
2214: x_okl_service_fees_tl_rec.LANGUAGE := l_okl_service_fees_tl_rec.LANGUAGE;
2208: IF (x_okl_service_fees_tl_rec.id = OKL_API.G_MISS_NUM)
2209: THEN
2210: x_okl_service_fees_tl_rec.id := l_okl_service_fees_tl_rec.id;
2211: END IF;
2212: IF (x_okl_service_fees_tl_rec.LANGUAGE = OKL_API.G_MISS_CHAR)
2213: THEN
2214: x_okl_service_fees_tl_rec.LANGUAGE := l_okl_service_fees_tl_rec.LANGUAGE;
2215: END IF;
2216: IF (x_okl_service_fees_tl_rec.source_lang = OKL_API.G_MISS_CHAR)
2210: x_okl_service_fees_tl_rec.id := l_okl_service_fees_tl_rec.id;
2211: END IF;
2212: IF (x_okl_service_fees_tl_rec.LANGUAGE = OKL_API.G_MISS_CHAR)
2213: THEN
2214: x_okl_service_fees_tl_rec.LANGUAGE := l_okl_service_fees_tl_rec.LANGUAGE;
2215: END IF;
2216: IF (x_okl_service_fees_tl_rec.source_lang = OKL_API.G_MISS_CHAR)
2217: THEN
2218: x_okl_service_fees_tl_rec.source_lang := l_okl_service_fees_tl_rec.source_lang;
2212: IF (x_okl_service_fees_tl_rec.LANGUAGE = OKL_API.G_MISS_CHAR)
2213: THEN
2214: x_okl_service_fees_tl_rec.LANGUAGE := l_okl_service_fees_tl_rec.LANGUAGE;
2215: END IF;
2216: IF (x_okl_service_fees_tl_rec.source_lang = OKL_API.G_MISS_CHAR)
2217: THEN
2218: x_okl_service_fees_tl_rec.source_lang := l_okl_service_fees_tl_rec.source_lang;
2219: END IF;
2220: IF (x_okl_service_fees_tl_rec.sfwt_flag = OKL_API.G_MISS_CHAR)
2214: x_okl_service_fees_tl_rec.LANGUAGE := l_okl_service_fees_tl_rec.LANGUAGE;
2215: END IF;
2216: IF (x_okl_service_fees_tl_rec.source_lang = OKL_API.G_MISS_CHAR)
2217: THEN
2218: x_okl_service_fees_tl_rec.source_lang := l_okl_service_fees_tl_rec.source_lang;
2219: END IF;
2220: IF (x_okl_service_fees_tl_rec.sfwt_flag = OKL_API.G_MISS_CHAR)
2221: THEN
2222: x_okl_service_fees_tl_rec.sfwt_flag := l_okl_service_fees_tl_rec.sfwt_flag;
2216: IF (x_okl_service_fees_tl_rec.source_lang = OKL_API.G_MISS_CHAR)
2217: THEN
2218: x_okl_service_fees_tl_rec.source_lang := l_okl_service_fees_tl_rec.source_lang;
2219: END IF;
2220: IF (x_okl_service_fees_tl_rec.sfwt_flag = OKL_API.G_MISS_CHAR)
2221: THEN
2222: x_okl_service_fees_tl_rec.sfwt_flag := l_okl_service_fees_tl_rec.sfwt_flag;
2223: END IF;
2224: IF (x_okl_service_fees_tl_rec.name = OKL_API.G_MISS_CHAR)
2218: x_okl_service_fees_tl_rec.source_lang := l_okl_service_fees_tl_rec.source_lang;
2219: END IF;
2220: IF (x_okl_service_fees_tl_rec.sfwt_flag = OKL_API.G_MISS_CHAR)
2221: THEN
2222: x_okl_service_fees_tl_rec.sfwt_flag := l_okl_service_fees_tl_rec.sfwt_flag;
2223: END IF;
2224: IF (x_okl_service_fees_tl_rec.name = OKL_API.G_MISS_CHAR)
2225: THEN
2226: x_okl_service_fees_tl_rec.name := l_okl_service_fees_tl_rec.name;
2220: IF (x_okl_service_fees_tl_rec.sfwt_flag = OKL_API.G_MISS_CHAR)
2221: THEN
2222: x_okl_service_fees_tl_rec.sfwt_flag := l_okl_service_fees_tl_rec.sfwt_flag;
2223: END IF;
2224: IF (x_okl_service_fees_tl_rec.name = OKL_API.G_MISS_CHAR)
2225: THEN
2226: x_okl_service_fees_tl_rec.name := l_okl_service_fees_tl_rec.name;
2227: END IF;
2228: IF (x_okl_service_fees_tl_rec.description = OKL_API.G_MISS_CHAR)
2222: x_okl_service_fees_tl_rec.sfwt_flag := l_okl_service_fees_tl_rec.sfwt_flag;
2223: END IF;
2224: IF (x_okl_service_fees_tl_rec.name = OKL_API.G_MISS_CHAR)
2225: THEN
2226: x_okl_service_fees_tl_rec.name := l_okl_service_fees_tl_rec.name;
2227: END IF;
2228: IF (x_okl_service_fees_tl_rec.description = OKL_API.G_MISS_CHAR)
2229: THEN
2230: x_okl_service_fees_tl_rec.description := l_okl_service_fees_tl_rec.description;
2224: IF (x_okl_service_fees_tl_rec.name = OKL_API.G_MISS_CHAR)
2225: THEN
2226: x_okl_service_fees_tl_rec.name := l_okl_service_fees_tl_rec.name;
2227: END IF;
2228: IF (x_okl_service_fees_tl_rec.description = OKL_API.G_MISS_CHAR)
2229: THEN
2230: x_okl_service_fees_tl_rec.description := l_okl_service_fees_tl_rec.description;
2231: END IF;
2232: IF (x_okl_service_fees_tl_rec.created_by = OKL_API.G_MISS_NUM)
2226: x_okl_service_fees_tl_rec.name := l_okl_service_fees_tl_rec.name;
2227: END IF;
2228: IF (x_okl_service_fees_tl_rec.description = OKL_API.G_MISS_CHAR)
2229: THEN
2230: x_okl_service_fees_tl_rec.description := l_okl_service_fees_tl_rec.description;
2231: END IF;
2232: IF (x_okl_service_fees_tl_rec.created_by = OKL_API.G_MISS_NUM)
2233: THEN
2234: x_okl_service_fees_tl_rec.created_by := l_okl_service_fees_tl_rec.created_by;
2228: IF (x_okl_service_fees_tl_rec.description = OKL_API.G_MISS_CHAR)
2229: THEN
2230: x_okl_service_fees_tl_rec.description := l_okl_service_fees_tl_rec.description;
2231: END IF;
2232: IF (x_okl_service_fees_tl_rec.created_by = OKL_API.G_MISS_NUM)
2233: THEN
2234: x_okl_service_fees_tl_rec.created_by := l_okl_service_fees_tl_rec.created_by;
2235: END IF;
2236: IF (x_okl_service_fees_tl_rec.creation_date = OKL_API.G_MISS_DATE)
2230: x_okl_service_fees_tl_rec.description := l_okl_service_fees_tl_rec.description;
2231: END IF;
2232: IF (x_okl_service_fees_tl_rec.created_by = OKL_API.G_MISS_NUM)
2233: THEN
2234: x_okl_service_fees_tl_rec.created_by := l_okl_service_fees_tl_rec.created_by;
2235: END IF;
2236: IF (x_okl_service_fees_tl_rec.creation_date = OKL_API.G_MISS_DATE)
2237: THEN
2238: x_okl_service_fees_tl_rec.creation_date := l_okl_service_fees_tl_rec.creation_date;
2232: IF (x_okl_service_fees_tl_rec.created_by = OKL_API.G_MISS_NUM)
2233: THEN
2234: x_okl_service_fees_tl_rec.created_by := l_okl_service_fees_tl_rec.created_by;
2235: END IF;
2236: IF (x_okl_service_fees_tl_rec.creation_date = OKL_API.G_MISS_DATE)
2237: THEN
2238: x_okl_service_fees_tl_rec.creation_date := l_okl_service_fees_tl_rec.creation_date;
2239: END IF;
2240: IF (x_okl_service_fees_tl_rec.last_updated_by = OKL_API.G_MISS_NUM)
2234: x_okl_service_fees_tl_rec.created_by := l_okl_service_fees_tl_rec.created_by;
2235: END IF;
2236: IF (x_okl_service_fees_tl_rec.creation_date = OKL_API.G_MISS_DATE)
2237: THEN
2238: x_okl_service_fees_tl_rec.creation_date := l_okl_service_fees_tl_rec.creation_date;
2239: END IF;
2240: IF (x_okl_service_fees_tl_rec.last_updated_by = OKL_API.G_MISS_NUM)
2241: THEN
2242: x_okl_service_fees_tl_rec.last_updated_by := l_okl_service_fees_tl_rec.last_updated_by;
2236: IF (x_okl_service_fees_tl_rec.creation_date = OKL_API.G_MISS_DATE)
2237: THEN
2238: x_okl_service_fees_tl_rec.creation_date := l_okl_service_fees_tl_rec.creation_date;
2239: END IF;
2240: IF (x_okl_service_fees_tl_rec.last_updated_by = OKL_API.G_MISS_NUM)
2241: THEN
2242: x_okl_service_fees_tl_rec.last_updated_by := l_okl_service_fees_tl_rec.last_updated_by;
2243: END IF;
2244: IF (x_okl_service_fees_tl_rec.last_update_date = OKL_API.G_MISS_DATE)
2238: x_okl_service_fees_tl_rec.creation_date := l_okl_service_fees_tl_rec.creation_date;
2239: END IF;
2240: IF (x_okl_service_fees_tl_rec.last_updated_by = OKL_API.G_MISS_NUM)
2241: THEN
2242: x_okl_service_fees_tl_rec.last_updated_by := l_okl_service_fees_tl_rec.last_updated_by;
2243: END IF;
2244: IF (x_okl_service_fees_tl_rec.last_update_date = OKL_API.G_MISS_DATE)
2245: THEN
2246: x_okl_service_fees_tl_rec.last_update_date := l_okl_service_fees_tl_rec.last_update_date;
2240: IF (x_okl_service_fees_tl_rec.last_updated_by = OKL_API.G_MISS_NUM)
2241: THEN
2242: x_okl_service_fees_tl_rec.last_updated_by := l_okl_service_fees_tl_rec.last_updated_by;
2243: END IF;
2244: IF (x_okl_service_fees_tl_rec.last_update_date = OKL_API.G_MISS_DATE)
2245: THEN
2246: x_okl_service_fees_tl_rec.last_update_date := l_okl_service_fees_tl_rec.last_update_date;
2247: END IF;
2248: IF (x_okl_service_fees_tl_rec.last_update_login = OKL_API.G_MISS_NUM)
2242: x_okl_service_fees_tl_rec.last_updated_by := l_okl_service_fees_tl_rec.last_updated_by;
2243: END IF;
2244: IF (x_okl_service_fees_tl_rec.last_update_date = OKL_API.G_MISS_DATE)
2245: THEN
2246: x_okl_service_fees_tl_rec.last_update_date := l_okl_service_fees_tl_rec.last_update_date;
2247: END IF;
2248: IF (x_okl_service_fees_tl_rec.last_update_login = OKL_API.G_MISS_NUM)
2249: THEN
2250: x_okl_service_fees_tl_rec.last_update_login := l_okl_service_fees_tl_rec.last_update_login;
2244: IF (x_okl_service_fees_tl_rec.last_update_date = OKL_API.G_MISS_DATE)
2245: THEN
2246: x_okl_service_fees_tl_rec.last_update_date := l_okl_service_fees_tl_rec.last_update_date;
2247: END IF;
2248: IF (x_okl_service_fees_tl_rec.last_update_login = OKL_API.G_MISS_NUM)
2249: THEN
2250: x_okl_service_fees_tl_rec.last_update_login := l_okl_service_fees_tl_rec.last_update_login;
2251: END IF;
2252: RETURN(l_return_status);
2246: x_okl_service_fees_tl_rec.last_update_date := l_okl_service_fees_tl_rec.last_update_date;
2247: END IF;
2248: IF (x_okl_service_fees_tl_rec.last_update_login = OKL_API.G_MISS_NUM)
2249: THEN
2250: x_okl_service_fees_tl_rec.last_update_login := l_okl_service_fees_tl_rec.last_update_login;
2251: END IF;
2252: RETURN(l_return_status);
2253: END populate_new_record;
2254: --------------------------------------------
2251: END IF;
2252: RETURN(l_return_status);
2253: END populate_new_record;
2254: --------------------------------------------
2255: -- Set_Attributes for:OKL_SERVICE_FEES_TL --
2256: --------------------------------------------
2257: FUNCTION Set_Attributes (
2258: p_okl_service_fees_tl_rec IN okl_service_fees_tl_rec_type,
2259: x_okl_service_fees_tl_rec OUT NOCOPY okl_service_fees_tl_rec_type
2254: --------------------------------------------
2255: -- Set_Attributes for:OKL_SERVICE_FEES_TL --
2256: --------------------------------------------
2257: FUNCTION Set_Attributes (
2258: p_okl_service_fees_tl_rec IN okl_service_fees_tl_rec_type,
2259: x_okl_service_fees_tl_rec OUT NOCOPY okl_service_fees_tl_rec_type
2260: ) RETURN VARCHAR2 IS
2261: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2262: BEGIN
2255: -- Set_Attributes for:OKL_SERVICE_FEES_TL --
2256: --------------------------------------------
2257: FUNCTION Set_Attributes (
2258: p_okl_service_fees_tl_rec IN okl_service_fees_tl_rec_type,
2259: x_okl_service_fees_tl_rec OUT NOCOPY okl_service_fees_tl_rec_type
2260: ) RETURN VARCHAR2 IS
2261: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2262: BEGIN
2263: x_okl_service_fees_tl_rec := p_okl_service_fees_tl_rec;
2259: x_okl_service_fees_tl_rec OUT NOCOPY okl_service_fees_tl_rec_type
2260: ) RETURN VARCHAR2 IS
2261: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2262: BEGIN
2263: x_okl_service_fees_tl_rec := p_okl_service_fees_tl_rec;
2264: x_okl_service_fees_tl_rec.LANGUAGE := USERENV('LANG');
2265: x_okl_service_fees_tl_rec.SOURCE_LANG := USERENV('LANG');
2266: RETURN(l_return_status);
2267: END Set_Attributes;
2260: ) RETURN VARCHAR2 IS
2261: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2262: BEGIN
2263: x_okl_service_fees_tl_rec := p_okl_service_fees_tl_rec;
2264: x_okl_service_fees_tl_rec.LANGUAGE := USERENV('LANG');
2265: x_okl_service_fees_tl_rec.SOURCE_LANG := USERENV('LANG');
2266: RETURN(l_return_status);
2267: END Set_Attributes;
2268: BEGIN
2261: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2262: BEGIN
2263: x_okl_service_fees_tl_rec := p_okl_service_fees_tl_rec;
2264: x_okl_service_fees_tl_rec.LANGUAGE := USERENV('LANG');
2265: x_okl_service_fees_tl_rec.SOURCE_LANG := USERENV('LANG');
2266: RETURN(l_return_status);
2267: END Set_Attributes;
2268: BEGIN
2269: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
2276: RAISE OKL_API.G_EXCEPTION_ERROR;
2277: END IF;
2278: --- Setting item attributes
2279: l_return_status := Set_Attributes(
2280: p_okl_service_fees_tl_rec, -- IN
2281: l_okl_service_fees_tl_rec); -- OUT
2282: --- If any errors happen abort API
2283: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2284: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2277: END IF;
2278: --- Setting item attributes
2279: l_return_status := Set_Attributes(
2280: p_okl_service_fees_tl_rec, -- IN
2281: l_okl_service_fees_tl_rec); -- OUT
2282: --- If any errors happen abort API
2283: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2284: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2285: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2284: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2285: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2286: RAISE OKL_API.G_EXCEPTION_ERROR;
2287: END IF;
2288: l_return_status := populate_new_record(l_okl_service_fees_tl_rec, ldefoklservicefeestlrec);
2289: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2290: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2291: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2292: RAISE OKL_API.G_EXCEPTION_ERROR;
2290: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2291: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2292: RAISE OKL_API.G_EXCEPTION_ERROR;
2293: END IF;
2294: UPDATE OKL_SERVICE_FEES_TL
2295: SET NAME = ldefoklservicefeestlrec.name,
2296: DESCRIPTION = ldefoklservicefeestlrec.description,
2297: SOURCE_LANG = ldefoklservicefeestlrec.source_lang,--Fix for 3637102
2298: CREATED_BY = ldefoklservicefeestlrec.created_by,
2303: WHERE ID = ldefoklservicefeestlrec.id
2304: AND USERENV('LANG') in (SOURCE_LANG,LANGUAGE);--Fix for bug 3637102
2305: --AND SOURCE_LANG = USERENV('LANG');
2306:
2307: UPDATE OKL_SERVICE_FEES_TL
2308: SET SFWT_FLAG = 'Y'
2309: WHERE ID = ldefoklservicefeestlrec.id
2310: AND SOURCE_LANG <> USERENV('LANG');
2311:
2308: SET SFWT_FLAG = 'Y'
2309: WHERE ID = ldefoklservicefeestlrec.id
2310: AND SOURCE_LANG <> USERENV('LANG');
2311:
2312: x_okl_service_fees_tl_rec := ldefoklservicefeestlrec;
2313: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2314: EXCEPTION
2315: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2316: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2359: l_api_name CONSTANT VARCHAR2(30) := 'V_update_row';
2360: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2361: l_svfv_rec svfv_rec_type := p_svfv_rec;
2362: l_def_svfv_rec svfv_rec_type;
2363: l_okl_service_fees_tl_rec okl_service_fees_tl_rec_type;
2364: lx_okl_service_fees_tl_rec okl_service_fees_tl_rec_type;
2365: l_svf_rec svf_rec_type;
2366: lx_svf_rec svf_rec_type;
2367: -------------------------------
2360: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2361: l_svfv_rec svfv_rec_type := p_svfv_rec;
2362: l_def_svfv_rec svfv_rec_type;
2363: l_okl_service_fees_tl_rec okl_service_fees_tl_rec_type;
2364: lx_okl_service_fees_tl_rec okl_service_fees_tl_rec_type;
2365: l_svf_rec svf_rec_type;
2366: lx_svf_rec svf_rec_type;
2367: -------------------------------
2368: -- FUNCTION fill_who_columns --
2583:
2584: --------------------------------------
2585: -- Move VIEW record to "Child" records
2586: --------------------------------------
2587: migrate(l_def_svfv_rec, l_okl_service_fees_tl_rec);
2588: migrate(l_def_svfv_rec, l_svf_rec);
2589: --------------------------------------------
2590: -- Call the UPDATE_ROW for each child record
2591: --------------------------------------------
2593: p_init_msg_list,
2594: x_return_status,
2595: x_msg_count,
2596: x_msg_data,
2597: l_okl_service_fees_tl_rec,
2598: lx_okl_service_fees_tl_rec
2599: );
2600: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2601: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2594: x_return_status,
2595: x_msg_count,
2596: x_msg_data,
2597: l_okl_service_fees_tl_rec,
2598: lx_okl_service_fees_tl_rec
2599: );
2600: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2601: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2602: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2601: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2602: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2603: RAISE OKL_API.G_EXCEPTION_ERROR;
2604: END IF;
2605: migrate(lx_okl_service_fees_tl_rec, l_def_svfv_rec);
2606: update_row(
2607: p_init_msg_list,
2608: x_return_status,
2609: x_msg_count,
2782: '_PVT'
2783: );
2784: END delete_row;
2785: ----------------------------------------
2786: -- delete_row for:OKL_SERVICE_FEES_TL --
2787: ----------------------------------------
2788: PROCEDURE delete_row(
2789: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2790: x_return_status OUT NOCOPY VARCHAR2,
2789: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2790: x_return_status OUT NOCOPY VARCHAR2,
2791: x_msg_count OUT NOCOPY NUMBER,
2792: x_msg_data OUT NOCOPY VARCHAR2,
2793: p_okl_service_fees_tl_rec IN okl_service_fees_tl_rec_type) IS
2794:
2795: l_api_version CONSTANT NUMBER := 1;
2796: l_api_name CONSTANT VARCHAR2(30) := 'TL_delete_row';
2797: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2794:
2795: l_api_version CONSTANT NUMBER := 1;
2796: l_api_name CONSTANT VARCHAR2(30) := 'TL_delete_row';
2797: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2798: l_okl_service_fees_tl_rec okl_service_fees_tl_rec_type:= p_okl_service_fees_tl_rec;
2799: l_row_notfound BOOLEAN := TRUE;
2800: --------------------------------------------
2801: -- Set_Attributes for:OKL_SERVICE_FEES_TL --
2802: --------------------------------------------
2797: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2798: l_okl_service_fees_tl_rec okl_service_fees_tl_rec_type:= p_okl_service_fees_tl_rec;
2799: l_row_notfound BOOLEAN := TRUE;
2800: --------------------------------------------
2801: -- Set_Attributes for:OKL_SERVICE_FEES_TL --
2802: --------------------------------------------
2803: FUNCTION Set_Attributes (
2804: p_okl_service_fees_tl_rec IN okl_service_fees_tl_rec_type,
2805: x_okl_service_fees_tl_rec OUT NOCOPY okl_service_fees_tl_rec_type
2800: --------------------------------------------
2801: -- Set_Attributes for:OKL_SERVICE_FEES_TL --
2802: --------------------------------------------
2803: FUNCTION Set_Attributes (
2804: p_okl_service_fees_tl_rec IN okl_service_fees_tl_rec_type,
2805: x_okl_service_fees_tl_rec OUT NOCOPY okl_service_fees_tl_rec_type
2806: ) RETURN VARCHAR2 IS
2807: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2808: BEGIN
2801: -- Set_Attributes for:OKL_SERVICE_FEES_TL --
2802: --------------------------------------------
2803: FUNCTION Set_Attributes (
2804: p_okl_service_fees_tl_rec IN okl_service_fees_tl_rec_type,
2805: x_okl_service_fees_tl_rec OUT NOCOPY okl_service_fees_tl_rec_type
2806: ) RETURN VARCHAR2 IS
2807: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2808: BEGIN
2809: x_okl_service_fees_tl_rec := p_okl_service_fees_tl_rec;
2805: x_okl_service_fees_tl_rec OUT NOCOPY okl_service_fees_tl_rec_type
2806: ) RETURN VARCHAR2 IS
2807: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2808: BEGIN
2809: x_okl_service_fees_tl_rec := p_okl_service_fees_tl_rec;
2810: x_okl_service_fees_tl_rec.LANGUAGE := USERENV('LANG');
2811: RETURN(l_return_status);
2812: END Set_Attributes;
2813: BEGIN
2806: ) RETURN VARCHAR2 IS
2807: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2808: BEGIN
2809: x_okl_service_fees_tl_rec := p_okl_service_fees_tl_rec;
2810: x_okl_service_fees_tl_rec.LANGUAGE := USERENV('LANG');
2811: RETURN(l_return_status);
2812: END Set_Attributes;
2813: BEGIN
2814: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
2821: RAISE OKL_API.G_EXCEPTION_ERROR;
2822: END IF;
2823: --- Setting item attributes
2824: l_return_status := Set_Attributes(
2825: p_okl_service_fees_tl_rec, -- IN
2826: l_okl_service_fees_tl_rec); -- OUT
2827: --- If any errors happen abort API
2828: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2829: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2822: END IF;
2823: --- Setting item attributes
2824: l_return_status := Set_Attributes(
2825: p_okl_service_fees_tl_rec, -- IN
2826: l_okl_service_fees_tl_rec); -- OUT
2827: --- If any errors happen abort API
2828: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2829: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2830: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2829: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2830: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2831: RAISE OKL_API.G_EXCEPTION_ERROR;
2832: END IF;
2833: DELETE FROM OKL_SERVICE_FEES_TL
2834: WHERE ID = l_okl_service_fees_tl_rec.id;
2835:
2836: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2837: EXCEPTION
2830: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2831: RAISE OKL_API.G_EXCEPTION_ERROR;
2832: END IF;
2833: DELETE FROM OKL_SERVICE_FEES_TL
2834: WHERE ID = l_okl_service_fees_tl_rec.id;
2835:
2836: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2837: EXCEPTION
2838: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2880: l_api_version CONSTANT NUMBER := 1;
2881: l_api_name CONSTANT VARCHAR2(30) := 'V_delete_row';
2882: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2883: l_svfv_rec svfv_rec_type := p_svfv_rec;
2884: l_okl_service_fees_tl_rec okl_service_fees_tl_rec_type;
2885: l_svf_rec svf_rec_type;
2886: BEGIN
2887: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
2888: G_PKG_NAME,
2898: END IF;
2899: --------------------------------------
2900: -- Move VIEW record to "Child" records
2901: --------------------------------------
2902: migrate(l_svfv_rec, l_okl_service_fees_tl_rec);
2903: migrate(l_svfv_rec, l_svf_rec);
2904: --------------------------------------------
2905: -- Call the DELETE_ROW for each child record
2906: --------------------------------------------
2908: p_init_msg_list,
2909: x_return_status,
2910: x_msg_count,
2911: x_msg_data,
2912: l_okl_service_fees_tl_rec
2913: );
2914: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2915: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2916: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN