38: -- PROCEDURE add_language
39: ---------------------------------------------------------------------------
40: PROCEDURE add_language IS
41: BEGIN
42: DELETE FROM OKC_TIME_CODE_UNITS_TL T
43: WHERE NOT EXISTS (
44: SELECT NULL
45: FROM OKC_TIME_CODE_UNITS_B B
46: WHERE B.uom_code = T.uom_code
46: WHERE B.uom_code = T.uom_code
47: AND B.TCE_CODE = T.TCE_CODE
48: );
49:
50: UPDATE OKC_TIME_CODE_UNITS_TL T SET (
51: SHORT_DESCRIPTION,
52: DESCRIPTION,
53: COMMENTS) = (SELECT
54: B.SHORT_DESCRIPTION,
53: COMMENTS) = (SELECT
54: B.SHORT_DESCRIPTION,
55: B.DESCRIPTION,
56: B.COMMENTS
57: FROM OKC_TIME_CODE_UNITS_TL B
58: WHERE B.uom_code = T.uom_code
59: AND B.TCE_CODE = T.TCE_CODE
60: AND B.LANGUAGE = T.SOURCE_LANG)
61: WHERE (
65: IN (SELECT
66: SUBT.uom_code,
67: SUBT.TCE_CODE,
68: SUBT.LANGUAGE
69: FROM OKC_TIME_CODE_UNITS_TL SUBB, OKC_TIME_CODE_UNITS_TL SUBT
70: WHERE SUBB.uom_code = SUBT.uom_code
71: AND SUBB.TCE_CODE = SUBT.TCE_CODE
72: AND SUBB.LANGUAGE = SUBT.SOURCE_LANG
73: AND (SUBB.SHORT_DESCRIPTION <> SUBT.SHORT_DESCRIPTION
80: OR (SUBB.COMMENTS IS NULL AND SUBT.COMMENTS IS NOT NULL)
81: OR (SUBB.COMMENTS IS NOT NULL AND SUBT.COMMENTS IS NULL)
82: ));
83:
84: INSERT INTO OKC_TIME_CODE_UNITS_TL (
85: uom_code,
86: TCE_CODE,
87: LANGUAGE,
88: SOURCE_LANG,
108: B.CREATION_DATE,
109: B.LAST_UPDATED_BY,
110: B.LAST_UPDATE_DATE,
111: B.LAST_UPDATE_LOGIN
112: FROM OKC_TIME_CODE_UNITS_TL B, FND_LANGUAGES L
113: WHERE L.INSTALLED_FLAG IN ('I', 'B')
114: AND B.LANGUAGE = USERENV('LANG')
115: AND NOT EXISTS(
116: SELECT NULL
113: WHERE L.INSTALLED_FLAG IN ('I', 'B')
114: AND B.LANGUAGE = USERENV('LANG')
115: AND NOT EXISTS(
116: SELECT NULL
117: FROM OKC_TIME_CODE_UNITS_TL T
118: WHERE T.uom_code = B.uom_code
119: AND T.TCE_CODE = B.TCE_CODE
120: AND T.LANGUAGE = L.LANGUAGE_CODE
121: );
207: BEGIN
208: RETURN(get_rec(p_tcu_rec, l_row_notfound));
209: END get_rec;
210: ---------------------------------------------------------------------------
211: -- FUNCTION get_rec for: OKC_TIME_CODE_UNITS_TL
212: ---------------------------------------------------------------------------
213: FUNCTION get_rec (
214: p_okc_time_code_units_tl_rec IN OkcTimeCodeUnitsTlRecType,
215: x_no_data_found OUT NOCOPY BOOLEAN
210: ---------------------------------------------------------------------------
211: -- FUNCTION get_rec for: OKC_TIME_CODE_UNITS_TL
212: ---------------------------------------------------------------------------
213: FUNCTION get_rec (
214: p_okc_time_code_units_tl_rec IN OkcTimeCodeUnitsTlRecType,
215: x_no_data_found OUT NOCOPY BOOLEAN
216: ) RETURN OkcTimeCodeUnitsTlRecType IS
217: CURSOR tcu_pktl_csr (p_uom_code IN VARCHAR2,
218: p_tce_code IN VARCHAR2,
230: CREATION_DATE,
231: LAST_UPDATED_BY,
232: LAST_UPDATE_DATE,
233: LAST_UPDATE_LOGIN
234: FROM Okc_Time_Code_Units_Tl
235: WHERE okc_time_code_units_tl.uom_code = p_uom_code
236: AND okc_time_code_units_tl.tce_code = p_tce_code
237: AND okc_time_code_units_tl.language = p_language;
238: l_tcu_pktl tcu_pktl_csr%ROWTYPE;
231: LAST_UPDATED_BY,
232: LAST_UPDATE_DATE,
233: LAST_UPDATE_LOGIN
234: FROM Okc_Time_Code_Units_Tl
235: WHERE okc_time_code_units_tl.uom_code = p_uom_code
236: AND okc_time_code_units_tl.tce_code = p_tce_code
237: AND okc_time_code_units_tl.language = p_language;
238: l_tcu_pktl tcu_pktl_csr%ROWTYPE;
239: l_okc_time_code_units_tl_rec OkcTimeCodeUnitsTlRecType;
232: LAST_UPDATE_DATE,
233: LAST_UPDATE_LOGIN
234: FROM Okc_Time_Code_Units_Tl
235: WHERE okc_time_code_units_tl.uom_code = p_uom_code
236: AND okc_time_code_units_tl.tce_code = p_tce_code
237: AND okc_time_code_units_tl.language = p_language;
238: l_tcu_pktl tcu_pktl_csr%ROWTYPE;
239: l_okc_time_code_units_tl_rec OkcTimeCodeUnitsTlRecType;
240: BEGIN
233: LAST_UPDATE_LOGIN
234: FROM Okc_Time_Code_Units_Tl
235: WHERE okc_time_code_units_tl.uom_code = p_uom_code
236: AND okc_time_code_units_tl.tce_code = p_tce_code
237: AND okc_time_code_units_tl.language = p_language;
238: l_tcu_pktl tcu_pktl_csr%ROWTYPE;
239: l_okc_time_code_units_tl_rec OkcTimeCodeUnitsTlRecType;
240: BEGIN
241: x_no_data_found := TRUE;
235: WHERE okc_time_code_units_tl.uom_code = p_uom_code
236: AND okc_time_code_units_tl.tce_code = p_tce_code
237: AND okc_time_code_units_tl.language = p_language;
238: l_tcu_pktl tcu_pktl_csr%ROWTYPE;
239: l_okc_time_code_units_tl_rec OkcTimeCodeUnitsTlRecType;
240: BEGIN
241: x_no_data_found := TRUE;
242: -- Get current database values
243: OPEN tcu_pktl_csr (p_okc_time_code_units_tl_rec.uom_code,
239: l_okc_time_code_units_tl_rec OkcTimeCodeUnitsTlRecType;
240: BEGIN
241: x_no_data_found := TRUE;
242: -- Get current database values
243: OPEN tcu_pktl_csr (p_okc_time_code_units_tl_rec.uom_code,
244: p_okc_time_code_units_tl_rec.tce_code,
245: p_okc_time_code_units_tl_rec.language);
246: FETCH tcu_pktl_csr INTO
247: l_okc_time_code_units_tl_rec.uom_code,
240: BEGIN
241: x_no_data_found := TRUE;
242: -- Get current database values
243: OPEN tcu_pktl_csr (p_okc_time_code_units_tl_rec.uom_code,
244: p_okc_time_code_units_tl_rec.tce_code,
245: p_okc_time_code_units_tl_rec.language);
246: FETCH tcu_pktl_csr INTO
247: l_okc_time_code_units_tl_rec.uom_code,
248: l_okc_time_code_units_tl_rec.TCE_CODE,
241: x_no_data_found := TRUE;
242: -- Get current database values
243: OPEN tcu_pktl_csr (p_okc_time_code_units_tl_rec.uom_code,
244: p_okc_time_code_units_tl_rec.tce_code,
245: p_okc_time_code_units_tl_rec.language);
246: FETCH tcu_pktl_csr INTO
247: l_okc_time_code_units_tl_rec.uom_code,
248: l_okc_time_code_units_tl_rec.TCE_CODE,
249: l_okc_time_code_units_tl_rec.LANGUAGE,
243: OPEN tcu_pktl_csr (p_okc_time_code_units_tl_rec.uom_code,
244: p_okc_time_code_units_tl_rec.tce_code,
245: p_okc_time_code_units_tl_rec.language);
246: FETCH tcu_pktl_csr INTO
247: l_okc_time_code_units_tl_rec.uom_code,
248: l_okc_time_code_units_tl_rec.TCE_CODE,
249: l_okc_time_code_units_tl_rec.LANGUAGE,
250: l_okc_time_code_units_tl_rec.SOURCE_LANG,
251: l_okc_time_code_units_tl_rec.SFWT_FLAG,
244: p_okc_time_code_units_tl_rec.tce_code,
245: p_okc_time_code_units_tl_rec.language);
246: FETCH tcu_pktl_csr INTO
247: l_okc_time_code_units_tl_rec.uom_code,
248: l_okc_time_code_units_tl_rec.TCE_CODE,
249: l_okc_time_code_units_tl_rec.LANGUAGE,
250: l_okc_time_code_units_tl_rec.SOURCE_LANG,
251: l_okc_time_code_units_tl_rec.SFWT_FLAG,
252: l_okc_time_code_units_tl_rec.SHORT_DESCRIPTION,
245: p_okc_time_code_units_tl_rec.language);
246: FETCH tcu_pktl_csr INTO
247: l_okc_time_code_units_tl_rec.uom_code,
248: l_okc_time_code_units_tl_rec.TCE_CODE,
249: l_okc_time_code_units_tl_rec.LANGUAGE,
250: l_okc_time_code_units_tl_rec.SOURCE_LANG,
251: l_okc_time_code_units_tl_rec.SFWT_FLAG,
252: l_okc_time_code_units_tl_rec.SHORT_DESCRIPTION,
253: l_okc_time_code_units_tl_rec.DESCRIPTION,
246: FETCH tcu_pktl_csr INTO
247: l_okc_time_code_units_tl_rec.uom_code,
248: l_okc_time_code_units_tl_rec.TCE_CODE,
249: l_okc_time_code_units_tl_rec.LANGUAGE,
250: l_okc_time_code_units_tl_rec.SOURCE_LANG,
251: l_okc_time_code_units_tl_rec.SFWT_FLAG,
252: l_okc_time_code_units_tl_rec.SHORT_DESCRIPTION,
253: l_okc_time_code_units_tl_rec.DESCRIPTION,
254: l_okc_time_code_units_tl_rec.COMMENTS,
247: l_okc_time_code_units_tl_rec.uom_code,
248: l_okc_time_code_units_tl_rec.TCE_CODE,
249: l_okc_time_code_units_tl_rec.LANGUAGE,
250: l_okc_time_code_units_tl_rec.SOURCE_LANG,
251: l_okc_time_code_units_tl_rec.SFWT_FLAG,
252: l_okc_time_code_units_tl_rec.SHORT_DESCRIPTION,
253: l_okc_time_code_units_tl_rec.DESCRIPTION,
254: l_okc_time_code_units_tl_rec.COMMENTS,
255: l_okc_time_code_units_tl_rec.CREATED_BY,
248: l_okc_time_code_units_tl_rec.TCE_CODE,
249: l_okc_time_code_units_tl_rec.LANGUAGE,
250: l_okc_time_code_units_tl_rec.SOURCE_LANG,
251: l_okc_time_code_units_tl_rec.SFWT_FLAG,
252: l_okc_time_code_units_tl_rec.SHORT_DESCRIPTION,
253: l_okc_time_code_units_tl_rec.DESCRIPTION,
254: l_okc_time_code_units_tl_rec.COMMENTS,
255: l_okc_time_code_units_tl_rec.CREATED_BY,
256: l_okc_time_code_units_tl_rec.CREATION_DATE,
249: l_okc_time_code_units_tl_rec.LANGUAGE,
250: l_okc_time_code_units_tl_rec.SOURCE_LANG,
251: l_okc_time_code_units_tl_rec.SFWT_FLAG,
252: l_okc_time_code_units_tl_rec.SHORT_DESCRIPTION,
253: l_okc_time_code_units_tl_rec.DESCRIPTION,
254: l_okc_time_code_units_tl_rec.COMMENTS,
255: l_okc_time_code_units_tl_rec.CREATED_BY,
256: l_okc_time_code_units_tl_rec.CREATION_DATE,
257: l_okc_time_code_units_tl_rec.LAST_UPDATED_BY,
250: l_okc_time_code_units_tl_rec.SOURCE_LANG,
251: l_okc_time_code_units_tl_rec.SFWT_FLAG,
252: l_okc_time_code_units_tl_rec.SHORT_DESCRIPTION,
253: l_okc_time_code_units_tl_rec.DESCRIPTION,
254: l_okc_time_code_units_tl_rec.COMMENTS,
255: l_okc_time_code_units_tl_rec.CREATED_BY,
256: l_okc_time_code_units_tl_rec.CREATION_DATE,
257: l_okc_time_code_units_tl_rec.LAST_UPDATED_BY,
258: l_okc_time_code_units_tl_rec.LAST_UPDATE_DATE,
251: l_okc_time_code_units_tl_rec.SFWT_FLAG,
252: l_okc_time_code_units_tl_rec.SHORT_DESCRIPTION,
253: l_okc_time_code_units_tl_rec.DESCRIPTION,
254: l_okc_time_code_units_tl_rec.COMMENTS,
255: l_okc_time_code_units_tl_rec.CREATED_BY,
256: l_okc_time_code_units_tl_rec.CREATION_DATE,
257: l_okc_time_code_units_tl_rec.LAST_UPDATED_BY,
258: l_okc_time_code_units_tl_rec.LAST_UPDATE_DATE,
259: l_okc_time_code_units_tl_rec.LAST_UPDATE_LOGIN;
252: l_okc_time_code_units_tl_rec.SHORT_DESCRIPTION,
253: l_okc_time_code_units_tl_rec.DESCRIPTION,
254: l_okc_time_code_units_tl_rec.COMMENTS,
255: l_okc_time_code_units_tl_rec.CREATED_BY,
256: l_okc_time_code_units_tl_rec.CREATION_DATE,
257: l_okc_time_code_units_tl_rec.LAST_UPDATED_BY,
258: l_okc_time_code_units_tl_rec.LAST_UPDATE_DATE,
259: l_okc_time_code_units_tl_rec.LAST_UPDATE_LOGIN;
260: x_no_data_found := tcu_pktl_csr%NOTFOUND;
253: l_okc_time_code_units_tl_rec.DESCRIPTION,
254: l_okc_time_code_units_tl_rec.COMMENTS,
255: l_okc_time_code_units_tl_rec.CREATED_BY,
256: l_okc_time_code_units_tl_rec.CREATION_DATE,
257: l_okc_time_code_units_tl_rec.LAST_UPDATED_BY,
258: l_okc_time_code_units_tl_rec.LAST_UPDATE_DATE,
259: l_okc_time_code_units_tl_rec.LAST_UPDATE_LOGIN;
260: x_no_data_found := tcu_pktl_csr%NOTFOUND;
261: CLOSE tcu_pktl_csr;
254: l_okc_time_code_units_tl_rec.COMMENTS,
255: l_okc_time_code_units_tl_rec.CREATED_BY,
256: l_okc_time_code_units_tl_rec.CREATION_DATE,
257: l_okc_time_code_units_tl_rec.LAST_UPDATED_BY,
258: l_okc_time_code_units_tl_rec.LAST_UPDATE_DATE,
259: l_okc_time_code_units_tl_rec.LAST_UPDATE_LOGIN;
260: x_no_data_found := tcu_pktl_csr%NOTFOUND;
261: CLOSE tcu_pktl_csr;
262: RETURN(l_okc_time_code_units_tl_rec);
255: l_okc_time_code_units_tl_rec.CREATED_BY,
256: l_okc_time_code_units_tl_rec.CREATION_DATE,
257: l_okc_time_code_units_tl_rec.LAST_UPDATED_BY,
258: l_okc_time_code_units_tl_rec.LAST_UPDATE_DATE,
259: l_okc_time_code_units_tl_rec.LAST_UPDATE_LOGIN;
260: x_no_data_found := tcu_pktl_csr%NOTFOUND;
261: CLOSE tcu_pktl_csr;
262: RETURN(l_okc_time_code_units_tl_rec);
263: END get_rec;
258: l_okc_time_code_units_tl_rec.LAST_UPDATE_DATE,
259: l_okc_time_code_units_tl_rec.LAST_UPDATE_LOGIN;
260: x_no_data_found := tcu_pktl_csr%NOTFOUND;
261: CLOSE tcu_pktl_csr;
262: RETURN(l_okc_time_code_units_tl_rec);
263: END get_rec;
264:
265: FUNCTION get_rec (
266: p_okc_time_code_units_tl_rec IN OkcTimeCodeUnitsTlRecType
262: RETURN(l_okc_time_code_units_tl_rec);
263: END get_rec;
264:
265: FUNCTION get_rec (
266: p_okc_time_code_units_tl_rec IN OkcTimeCodeUnitsTlRecType
267: ) RETURN OkcTimeCodeUnitsTlRecType IS
268: l_row_notfound BOOLEAN := TRUE;
269: BEGIN
270: RETURN(get_rec(p_okc_time_code_units_tl_rec, l_row_notfound));
266: p_okc_time_code_units_tl_rec IN OkcTimeCodeUnitsTlRecType
267: ) RETURN OkcTimeCodeUnitsTlRecType IS
268: l_row_notfound BOOLEAN := TRUE;
269: BEGIN
270: RETURN(get_rec(p_okc_time_code_units_tl_rec, l_row_notfound));
271: END get_rec;
272: ---------------------------------------------------------------------------
273: -- FUNCTION get_rec for: OKC_TIME_CODE_UNITS_V
274: ---------------------------------------------------------------------------
883: l_api_name CONSTANT VARCHAR2(30) := 'V_validate_row';
884: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
885: l_tcuv_rec tcuv_rec_type := p_tcuv_rec;
886: l_tcu_rec tcu_rec_type;
887: l_okc_time_code_units_tl_rec OkcTimeCodeUnitsTlRecType;
888: BEGIN
889: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
890: G_PKG_NAME,
891: p_init_msg_list,
1151: '_PVT'
1152: );
1153: END insert_row;
1154: -------------------------------------------
1155: -- insert_row for:OKC_TIME_CODE_UNITS_TL --
1156: -------------------------------------------
1157: PROCEDURE insert_row(
1158: p_init_msg_list IN VARCHAR2,
1159: x_return_status OUT NOCOPY VARCHAR2,
1158: p_init_msg_list IN VARCHAR2,
1159: x_return_status OUT NOCOPY VARCHAR2,
1160: x_msg_count OUT NOCOPY NUMBER,
1161: x_msg_data OUT NOCOPY VARCHAR2,
1162: p_okc_time_code_units_tl_rec IN OkcTimeCodeUnitsTlRecType,
1163: x_okc_time_code_units_tl_rec OUT NOCOPY OkcTimeCodeUnitsTlRecType) IS
1164:
1165: l_api_version CONSTANT NUMBER := 1;
1166: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
1159: x_return_status OUT NOCOPY VARCHAR2,
1160: x_msg_count OUT NOCOPY NUMBER,
1161: x_msg_data OUT NOCOPY VARCHAR2,
1162: p_okc_time_code_units_tl_rec IN OkcTimeCodeUnitsTlRecType,
1163: x_okc_time_code_units_tl_rec OUT NOCOPY OkcTimeCodeUnitsTlRecType) IS
1164:
1165: l_api_version CONSTANT NUMBER := 1;
1166: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
1167: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1164:
1165: l_api_version CONSTANT NUMBER := 1;
1166: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
1167: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1168: l_okc_time_code_units_tl_rec OkcTimeCodeUnitsTlRecType := p_okc_time_code_units_tl_rec;
1169: ldefokctimecodeunitstlrec OkcTimeCodeUnitsTlRecType;
1170: CURSOR get_languages IS
1171: SELECT *
1172: FROM FND_LANGUAGES
1171: SELECT *
1172: FROM FND_LANGUAGES
1173: WHERE INSTALLED_FLAG IN ('I', 'B');
1174: -----------------------------------------------
1175: -- Set_Attributes for:OKC_TIME_CODE_UNITS_TL --
1176: -----------------------------------------------
1177: FUNCTION Set_Attributes (
1178: p_okc_time_code_units_tl_rec IN OkcTimeCodeUnitsTlRecType,
1179: x_okc_time_code_units_tl_rec OUT NOCOPY OkcTimeCodeUnitsTlRecType
1174: -----------------------------------------------
1175: -- Set_Attributes for:OKC_TIME_CODE_UNITS_TL --
1176: -----------------------------------------------
1177: FUNCTION Set_Attributes (
1178: p_okc_time_code_units_tl_rec IN OkcTimeCodeUnitsTlRecType,
1179: x_okc_time_code_units_tl_rec OUT NOCOPY OkcTimeCodeUnitsTlRecType
1180: ) RETURN VARCHAR2 IS
1181: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1182: BEGIN
1175: -- Set_Attributes for:OKC_TIME_CODE_UNITS_TL --
1176: -----------------------------------------------
1177: FUNCTION Set_Attributes (
1178: p_okc_time_code_units_tl_rec IN OkcTimeCodeUnitsTlRecType,
1179: x_okc_time_code_units_tl_rec OUT NOCOPY OkcTimeCodeUnitsTlRecType
1180: ) RETURN VARCHAR2 IS
1181: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1182: BEGIN
1183: x_okc_time_code_units_tl_rec := p_okc_time_code_units_tl_rec;
1179: x_okc_time_code_units_tl_rec OUT NOCOPY OkcTimeCodeUnitsTlRecType
1180: ) RETURN VARCHAR2 IS
1181: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1182: BEGIN
1183: x_okc_time_code_units_tl_rec := p_okc_time_code_units_tl_rec;
1184: x_okc_time_code_units_tl_rec.LANGUAGE := okc_util.get_userenv_lang;
1185: x_okc_time_code_units_tl_rec.SOURCE_LANG := okc_util.get_userenv_lang;
1186: RETURN(l_return_status);
1187: END Set_Attributes;
1180: ) RETURN VARCHAR2 IS
1181: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1182: BEGIN
1183: x_okc_time_code_units_tl_rec := p_okc_time_code_units_tl_rec;
1184: x_okc_time_code_units_tl_rec.LANGUAGE := okc_util.get_userenv_lang;
1185: x_okc_time_code_units_tl_rec.SOURCE_LANG := okc_util.get_userenv_lang;
1186: RETURN(l_return_status);
1187: END Set_Attributes;
1188: BEGIN
1181: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1182: BEGIN
1183: x_okc_time_code_units_tl_rec := p_okc_time_code_units_tl_rec;
1184: x_okc_time_code_units_tl_rec.LANGUAGE := okc_util.get_userenv_lang;
1185: x_okc_time_code_units_tl_rec.SOURCE_LANG := okc_util.get_userenv_lang;
1186: RETURN(l_return_status);
1187: END Set_Attributes;
1188: BEGIN
1189: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1196: RAISE OKC_API.G_EXCEPTION_ERROR;
1197: END IF;
1198: --- Setting item attributes
1199: l_return_status := Set_Attributes(
1200: p_okc_time_code_units_tl_rec, -- IN
1201: l_okc_time_code_units_tl_rec); -- OUT
1202: --- If any errors happen abort API
1203: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1204: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1197: END IF;
1198: --- Setting item attributes
1199: l_return_status := Set_Attributes(
1200: p_okc_time_code_units_tl_rec, -- IN
1201: l_okc_time_code_units_tl_rec); -- OUT
1202: --- If any errors happen abort API
1203: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1204: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1205: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1205: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1206: RAISE OKC_API.G_EXCEPTION_ERROR;
1207: END IF;
1208: FOR l_lang_rec IN get_languages LOOP
1209: l_okc_time_code_units_tl_rec.language := l_lang_rec.language_code;
1210: INSERT INTO OKC_TIME_CODE_UNITS_TL(
1211: uom_code,
1212: tce_code,
1213: language,
1206: RAISE OKC_API.G_EXCEPTION_ERROR;
1207: END IF;
1208: FOR l_lang_rec IN get_languages LOOP
1209: l_okc_time_code_units_tl_rec.language := l_lang_rec.language_code;
1210: INSERT INTO OKC_TIME_CODE_UNITS_TL(
1211: uom_code,
1212: tce_code,
1213: language,
1214: source_lang,
1221: last_updated_by,
1222: last_update_date,
1223: last_update_login)
1224: VALUES (
1225: l_okc_time_code_units_tl_rec.uom_code,
1226: l_okc_time_code_units_tl_rec.tce_code,
1227: l_okc_time_code_units_tl_rec.language,
1228: l_okc_time_code_units_tl_rec.source_lang,
1229: l_okc_time_code_units_tl_rec.sfwt_flag,
1222: last_update_date,
1223: last_update_login)
1224: VALUES (
1225: l_okc_time_code_units_tl_rec.uom_code,
1226: l_okc_time_code_units_tl_rec.tce_code,
1227: l_okc_time_code_units_tl_rec.language,
1228: l_okc_time_code_units_tl_rec.source_lang,
1229: l_okc_time_code_units_tl_rec.sfwt_flag,
1230: l_okc_time_code_units_tl_rec.short_description,
1223: last_update_login)
1224: VALUES (
1225: l_okc_time_code_units_tl_rec.uom_code,
1226: l_okc_time_code_units_tl_rec.tce_code,
1227: l_okc_time_code_units_tl_rec.language,
1228: l_okc_time_code_units_tl_rec.source_lang,
1229: l_okc_time_code_units_tl_rec.sfwt_flag,
1230: l_okc_time_code_units_tl_rec.short_description,
1231: l_okc_time_code_units_tl_rec.description,
1224: VALUES (
1225: l_okc_time_code_units_tl_rec.uom_code,
1226: l_okc_time_code_units_tl_rec.tce_code,
1227: l_okc_time_code_units_tl_rec.language,
1228: l_okc_time_code_units_tl_rec.source_lang,
1229: l_okc_time_code_units_tl_rec.sfwt_flag,
1230: l_okc_time_code_units_tl_rec.short_description,
1231: l_okc_time_code_units_tl_rec.description,
1232: l_okc_time_code_units_tl_rec.comments,
1225: l_okc_time_code_units_tl_rec.uom_code,
1226: l_okc_time_code_units_tl_rec.tce_code,
1227: l_okc_time_code_units_tl_rec.language,
1228: l_okc_time_code_units_tl_rec.source_lang,
1229: l_okc_time_code_units_tl_rec.sfwt_flag,
1230: l_okc_time_code_units_tl_rec.short_description,
1231: l_okc_time_code_units_tl_rec.description,
1232: l_okc_time_code_units_tl_rec.comments,
1233: l_okc_time_code_units_tl_rec.created_by,
1226: l_okc_time_code_units_tl_rec.tce_code,
1227: l_okc_time_code_units_tl_rec.language,
1228: l_okc_time_code_units_tl_rec.source_lang,
1229: l_okc_time_code_units_tl_rec.sfwt_flag,
1230: l_okc_time_code_units_tl_rec.short_description,
1231: l_okc_time_code_units_tl_rec.description,
1232: l_okc_time_code_units_tl_rec.comments,
1233: l_okc_time_code_units_tl_rec.created_by,
1234: l_okc_time_code_units_tl_rec.creation_date,
1227: l_okc_time_code_units_tl_rec.language,
1228: l_okc_time_code_units_tl_rec.source_lang,
1229: l_okc_time_code_units_tl_rec.sfwt_flag,
1230: l_okc_time_code_units_tl_rec.short_description,
1231: l_okc_time_code_units_tl_rec.description,
1232: l_okc_time_code_units_tl_rec.comments,
1233: l_okc_time_code_units_tl_rec.created_by,
1234: l_okc_time_code_units_tl_rec.creation_date,
1235: l_okc_time_code_units_tl_rec.last_updated_by,
1228: l_okc_time_code_units_tl_rec.source_lang,
1229: l_okc_time_code_units_tl_rec.sfwt_flag,
1230: l_okc_time_code_units_tl_rec.short_description,
1231: l_okc_time_code_units_tl_rec.description,
1232: l_okc_time_code_units_tl_rec.comments,
1233: l_okc_time_code_units_tl_rec.created_by,
1234: l_okc_time_code_units_tl_rec.creation_date,
1235: l_okc_time_code_units_tl_rec.last_updated_by,
1236: l_okc_time_code_units_tl_rec.last_update_date,
1229: l_okc_time_code_units_tl_rec.sfwt_flag,
1230: l_okc_time_code_units_tl_rec.short_description,
1231: l_okc_time_code_units_tl_rec.description,
1232: l_okc_time_code_units_tl_rec.comments,
1233: l_okc_time_code_units_tl_rec.created_by,
1234: l_okc_time_code_units_tl_rec.creation_date,
1235: l_okc_time_code_units_tl_rec.last_updated_by,
1236: l_okc_time_code_units_tl_rec.last_update_date,
1237: l_okc_time_code_units_tl_rec.last_update_login);
1230: l_okc_time_code_units_tl_rec.short_description,
1231: l_okc_time_code_units_tl_rec.description,
1232: l_okc_time_code_units_tl_rec.comments,
1233: l_okc_time_code_units_tl_rec.created_by,
1234: l_okc_time_code_units_tl_rec.creation_date,
1235: l_okc_time_code_units_tl_rec.last_updated_by,
1236: l_okc_time_code_units_tl_rec.last_update_date,
1237: l_okc_time_code_units_tl_rec.last_update_login);
1238: END LOOP;
1231: l_okc_time_code_units_tl_rec.description,
1232: l_okc_time_code_units_tl_rec.comments,
1233: l_okc_time_code_units_tl_rec.created_by,
1234: l_okc_time_code_units_tl_rec.creation_date,
1235: l_okc_time_code_units_tl_rec.last_updated_by,
1236: l_okc_time_code_units_tl_rec.last_update_date,
1237: l_okc_time_code_units_tl_rec.last_update_login);
1238: END LOOP;
1239: -- Set OUT values
1232: l_okc_time_code_units_tl_rec.comments,
1233: l_okc_time_code_units_tl_rec.created_by,
1234: l_okc_time_code_units_tl_rec.creation_date,
1235: l_okc_time_code_units_tl_rec.last_updated_by,
1236: l_okc_time_code_units_tl_rec.last_update_date,
1237: l_okc_time_code_units_tl_rec.last_update_login);
1238: END LOOP;
1239: -- Set OUT values
1240: x_okc_time_code_units_tl_rec := l_okc_time_code_units_tl_rec;
1233: l_okc_time_code_units_tl_rec.created_by,
1234: l_okc_time_code_units_tl_rec.creation_date,
1235: l_okc_time_code_units_tl_rec.last_updated_by,
1236: l_okc_time_code_units_tl_rec.last_update_date,
1237: l_okc_time_code_units_tl_rec.last_update_login);
1238: END LOOP;
1239: -- Set OUT values
1240: x_okc_time_code_units_tl_rec := l_okc_time_code_units_tl_rec;
1241: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1236: l_okc_time_code_units_tl_rec.last_update_date,
1237: l_okc_time_code_units_tl_rec.last_update_login);
1238: END LOOP;
1239: -- Set OUT values
1240: x_okc_time_code_units_tl_rec := l_okc_time_code_units_tl_rec;
1241: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1242: EXCEPTION
1243: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1244: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1289: l_tcuv_rec tcuv_rec_type;
1290: l_def_tcuv_rec tcuv_rec_type;
1291: l_tcu_rec tcu_rec_type;
1292: lx_tcu_rec tcu_rec_type;
1293: l_okc_time_code_units_tl_rec OkcTimeCodeUnitsTlRecType;
1294: lx_okc_time_code_units_tl_rec OkcTimeCodeUnitsTlRecType;
1295: -------------------------------
1296: -- FUNCTION fill_who_columns --
1297: -------------------------------
1290: l_def_tcuv_rec tcuv_rec_type;
1291: l_tcu_rec tcu_rec_type;
1292: lx_tcu_rec tcu_rec_type;
1293: l_okc_time_code_units_tl_rec OkcTimeCodeUnitsTlRecType;
1294: lx_okc_time_code_units_tl_rec OkcTimeCodeUnitsTlRecType;
1295: -------------------------------
1296: -- FUNCTION fill_who_columns --
1297: -------------------------------
1298: FUNCTION fill_who_columns (
1366: --------------------------------------
1367: -- Move VIEW record to "Child" records
1368: --------------------------------------
1369: migrate(l_def_tcuv_rec, l_tcu_rec);
1370: migrate(l_def_tcuv_rec, l_okc_time_code_units_tl_rec);
1371: --------------------------------------------
1372: -- Call the INSERT_ROW for each child record
1373: --------------------------------------------
1374: insert_row(
1389: p_init_msg_list,
1390: x_return_status,
1391: x_msg_count,
1392: x_msg_data,
1393: l_okc_time_code_units_tl_rec,
1394: lx_okc_time_code_units_tl_rec
1395: );
1396: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1397: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1390: x_return_status,
1391: x_msg_count,
1392: x_msg_data,
1393: l_okc_time_code_units_tl_rec,
1394: lx_okc_time_code_units_tl_rec
1395: );
1396: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1397: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1398: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1397: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1398: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1399: RAISE OKC_API.G_EXCEPTION_ERROR;
1400: END IF;
1401: migrate(lx_okc_time_code_units_tl_rec, l_def_tcuv_rec);
1402: -- Set OUT values
1403: x_tcuv_rec := l_def_tcuv_rec;
1404: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1405: EXCEPTION
1612: '_PVT'
1613: );
1614: END lock_row;
1615: -----------------------------------------
1616: -- lock_row for:OKC_TIME_CODE_UNITS_TL --
1617: -----------------------------------------
1618: PROCEDURE lock_row(
1619: p_init_msg_list IN VARCHAR2,
1620: x_return_status OUT NOCOPY VARCHAR2,
1619: p_init_msg_list IN VARCHAR2,
1620: x_return_status OUT NOCOPY VARCHAR2,
1621: x_msg_count OUT NOCOPY NUMBER,
1622: x_msg_data OUT NOCOPY VARCHAR2,
1623: p_okc_time_code_units_tl_rec IN OkcTimeCodeUnitsTlRecType) IS
1624:
1625: E_Resource_Busy EXCEPTION;
1626: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
1627: CURSOR lock_csr (p_okc_time_code_units_tl_rec IN OkcTimeCodeUnitsTlRecType) IS
1623: p_okc_time_code_units_tl_rec IN OkcTimeCodeUnitsTlRecType) IS
1624:
1625: E_Resource_Busy EXCEPTION;
1626: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
1627: CURSOR lock_csr (p_okc_time_code_units_tl_rec IN OkcTimeCodeUnitsTlRecType) IS
1628: SELECT uom_code
1629: FROM OKC_TIME_CODE_UNITS_TL
1630: WHERE uom_code = p_okc_time_code_units_tl_rec.uom_code
1631: AND TCE_CODE = p_okc_time_code_units_tl_rec.tce_code
1625: E_Resource_Busy EXCEPTION;
1626: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
1627: CURSOR lock_csr (p_okc_time_code_units_tl_rec IN OkcTimeCodeUnitsTlRecType) IS
1628: SELECT uom_code
1629: FROM OKC_TIME_CODE_UNITS_TL
1630: WHERE uom_code = p_okc_time_code_units_tl_rec.uom_code
1631: AND TCE_CODE = p_okc_time_code_units_tl_rec.tce_code
1632: FOR UPDATE NOWAIT;
1633:
1626: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
1627: CURSOR lock_csr (p_okc_time_code_units_tl_rec IN OkcTimeCodeUnitsTlRecType) IS
1628: SELECT uom_code
1629: FROM OKC_TIME_CODE_UNITS_TL
1630: WHERE uom_code = p_okc_time_code_units_tl_rec.uom_code
1631: AND TCE_CODE = p_okc_time_code_units_tl_rec.tce_code
1632: FOR UPDATE NOWAIT;
1633:
1634: l_api_version CONSTANT NUMBER := 1;
1627: CURSOR lock_csr (p_okc_time_code_units_tl_rec IN OkcTimeCodeUnitsTlRecType) IS
1628: SELECT uom_code
1629: FROM OKC_TIME_CODE_UNITS_TL
1630: WHERE uom_code = p_okc_time_code_units_tl_rec.uom_code
1631: AND TCE_CODE = p_okc_time_code_units_tl_rec.tce_code
1632: FOR UPDATE NOWAIT;
1633:
1634: l_api_version CONSTANT NUMBER := 1;
1635: l_api_name CONSTANT VARCHAR2(30) := 'TL_lock_row';
1647: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1648: RAISE OKC_API.G_EXCEPTION_ERROR;
1649: END IF;
1650: BEGIN
1651: OPEN lock_csr(p_okc_time_code_units_tl_rec);
1652: FETCH lock_csr INTO l_lock_var;
1653: l_row_notfound := lock_csr%NOTFOUND;
1654: CLOSE lock_csr;
1655: EXCEPTION
1712: l_api_version CONSTANT NUMBER := 1;
1713: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
1714: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1715: l_tcu_rec tcu_rec_type;
1716: l_okc_time_code_units_tl_rec OkcTimeCodeUnitsTlRecType;
1717: BEGIN
1718: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1719: G_PKG_NAME,
1720: p_init_msg_list,
1730: --------------------------------------
1731: -- Move VIEW record to "Child" records
1732: --------------------------------------
1733: migrate(p_tcuv_rec, l_tcu_rec);
1734: migrate(p_tcuv_rec, l_okc_time_code_units_tl_rec);
1735: --------------------------------------------
1736: -- Call the LOCK_ROW for each child record
1737: --------------------------------------------
1738: lock_row(
1751: p_init_msg_list,
1752: x_return_status,
1753: x_msg_count,
1754: x_msg_data,
1755: l_okc_time_code_units_tl_rec
1756: );
1757: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1758: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1759: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2100: '_PVT'
2101: );
2102: END update_row;
2103: -------------------------------------------
2104: -- update_row for:OKC_TIME_CODE_UNITS_TL --
2105: -------------------------------------------
2106: PROCEDURE update_row(
2107: p_init_msg_list IN VARCHAR2,
2108: x_return_status OUT NOCOPY VARCHAR2,
2107: p_init_msg_list IN VARCHAR2,
2108: x_return_status OUT NOCOPY VARCHAR2,
2109: x_msg_count OUT NOCOPY NUMBER,
2110: x_msg_data OUT NOCOPY VARCHAR2,
2111: p_okc_time_code_units_tl_rec IN OkcTimeCodeUnitsTlRecType,
2112: x_okc_time_code_units_tl_rec OUT NOCOPY OkcTimeCodeUnitsTlRecType) IS
2113:
2114: l_api_version CONSTANT NUMBER := 1;
2115: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
2108: x_return_status OUT NOCOPY VARCHAR2,
2109: x_msg_count OUT NOCOPY NUMBER,
2110: x_msg_data OUT NOCOPY VARCHAR2,
2111: p_okc_time_code_units_tl_rec IN OkcTimeCodeUnitsTlRecType,
2112: x_okc_time_code_units_tl_rec OUT NOCOPY OkcTimeCodeUnitsTlRecType) IS
2113:
2114: l_api_version CONSTANT NUMBER := 1;
2115: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
2116: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2113:
2114: l_api_version CONSTANT NUMBER := 1;
2115: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
2116: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2117: l_okc_time_code_units_tl_rec OkcTimeCodeUnitsTlRecType := p_okc_time_code_units_tl_rec;
2118: ldefokctimecodeunitstlrec OkcTimeCodeUnitsTlRecType;
2119: l_row_notfound BOOLEAN := TRUE;
2120: ----------------------------------
2121: -- FUNCTION populate_new_record --
2120: ----------------------------------
2121: -- FUNCTION populate_new_record --
2122: ----------------------------------
2123: FUNCTION populate_new_record (
2124: p_okc_time_code_units_tl_rec IN OkcTimeCodeUnitsTlRecType,
2125: x_okc_time_code_units_tl_rec OUT NOCOPY OkcTimeCodeUnitsTlRecType
2126: ) RETURN VARCHAR2 IS
2127: l_okc_time_code_units_tl_rec OkcTimeCodeUnitsTlRecType;
2128: l_row_notfound BOOLEAN := TRUE;
2121: -- FUNCTION populate_new_record --
2122: ----------------------------------
2123: FUNCTION populate_new_record (
2124: p_okc_time_code_units_tl_rec IN OkcTimeCodeUnitsTlRecType,
2125: x_okc_time_code_units_tl_rec OUT NOCOPY OkcTimeCodeUnitsTlRecType
2126: ) RETURN VARCHAR2 IS
2127: l_okc_time_code_units_tl_rec OkcTimeCodeUnitsTlRecType;
2128: l_row_notfound BOOLEAN := TRUE;
2129: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2123: FUNCTION populate_new_record (
2124: p_okc_time_code_units_tl_rec IN OkcTimeCodeUnitsTlRecType,
2125: x_okc_time_code_units_tl_rec OUT NOCOPY OkcTimeCodeUnitsTlRecType
2126: ) RETURN VARCHAR2 IS
2127: l_okc_time_code_units_tl_rec OkcTimeCodeUnitsTlRecType;
2128: l_row_notfound BOOLEAN := TRUE;
2129: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2130: BEGIN
2131: x_okc_time_code_units_tl_rec := p_okc_time_code_units_tl_rec;
2127: l_okc_time_code_units_tl_rec OkcTimeCodeUnitsTlRecType;
2128: l_row_notfound BOOLEAN := TRUE;
2129: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2130: BEGIN
2131: x_okc_time_code_units_tl_rec := p_okc_time_code_units_tl_rec;
2132: -- Get current database values
2133: l_okc_time_code_units_tl_rec := get_rec(p_okc_time_code_units_tl_rec, l_row_notfound);
2134: IF (l_row_notfound) THEN
2135: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2129: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2130: BEGIN
2131: x_okc_time_code_units_tl_rec := p_okc_time_code_units_tl_rec;
2132: -- Get current database values
2133: l_okc_time_code_units_tl_rec := get_rec(p_okc_time_code_units_tl_rec, l_row_notfound);
2134: IF (l_row_notfound) THEN
2135: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2136: END IF;
2137: IF (x_okc_time_code_units_tl_rec.uom_code = OKC_API.G_MISS_CHAR)
2133: l_okc_time_code_units_tl_rec := get_rec(p_okc_time_code_units_tl_rec, l_row_notfound);
2134: IF (l_row_notfound) THEN
2135: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2136: END IF;
2137: IF (x_okc_time_code_units_tl_rec.uom_code = OKC_API.G_MISS_CHAR)
2138: THEN
2139: x_okc_time_code_units_tl_rec.uom_code := l_okc_time_code_units_tl_rec.uom_code;
2140: END IF;
2141: IF (x_okc_time_code_units_tl_rec.tce_code = OKC_API.G_MISS_CHAR)
2135: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2136: END IF;
2137: IF (x_okc_time_code_units_tl_rec.uom_code = OKC_API.G_MISS_CHAR)
2138: THEN
2139: x_okc_time_code_units_tl_rec.uom_code := l_okc_time_code_units_tl_rec.uom_code;
2140: END IF;
2141: IF (x_okc_time_code_units_tl_rec.tce_code = OKC_API.G_MISS_CHAR)
2142: THEN
2143: x_okc_time_code_units_tl_rec.tce_code := l_okc_time_code_units_tl_rec.tce_code;
2137: IF (x_okc_time_code_units_tl_rec.uom_code = OKC_API.G_MISS_CHAR)
2138: THEN
2139: x_okc_time_code_units_tl_rec.uom_code := l_okc_time_code_units_tl_rec.uom_code;
2140: END IF;
2141: IF (x_okc_time_code_units_tl_rec.tce_code = OKC_API.G_MISS_CHAR)
2142: THEN
2143: x_okc_time_code_units_tl_rec.tce_code := l_okc_time_code_units_tl_rec.tce_code;
2144: END IF;
2145: IF (x_okc_time_code_units_tl_rec.language = OKC_API.G_MISS_CHAR)
2139: x_okc_time_code_units_tl_rec.uom_code := l_okc_time_code_units_tl_rec.uom_code;
2140: END IF;
2141: IF (x_okc_time_code_units_tl_rec.tce_code = OKC_API.G_MISS_CHAR)
2142: THEN
2143: x_okc_time_code_units_tl_rec.tce_code := l_okc_time_code_units_tl_rec.tce_code;
2144: END IF;
2145: IF (x_okc_time_code_units_tl_rec.language = OKC_API.G_MISS_CHAR)
2146: THEN
2147: x_okc_time_code_units_tl_rec.language := l_okc_time_code_units_tl_rec.language;
2141: IF (x_okc_time_code_units_tl_rec.tce_code = OKC_API.G_MISS_CHAR)
2142: THEN
2143: x_okc_time_code_units_tl_rec.tce_code := l_okc_time_code_units_tl_rec.tce_code;
2144: END IF;
2145: IF (x_okc_time_code_units_tl_rec.language = OKC_API.G_MISS_CHAR)
2146: THEN
2147: x_okc_time_code_units_tl_rec.language := l_okc_time_code_units_tl_rec.language;
2148: END IF;
2149: IF (x_okc_time_code_units_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
2143: x_okc_time_code_units_tl_rec.tce_code := l_okc_time_code_units_tl_rec.tce_code;
2144: END IF;
2145: IF (x_okc_time_code_units_tl_rec.language = OKC_API.G_MISS_CHAR)
2146: THEN
2147: x_okc_time_code_units_tl_rec.language := l_okc_time_code_units_tl_rec.language;
2148: END IF;
2149: IF (x_okc_time_code_units_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
2150: THEN
2151: x_okc_time_code_units_tl_rec.source_lang := l_okc_time_code_units_tl_rec.source_lang;
2145: IF (x_okc_time_code_units_tl_rec.language = OKC_API.G_MISS_CHAR)
2146: THEN
2147: x_okc_time_code_units_tl_rec.language := l_okc_time_code_units_tl_rec.language;
2148: END IF;
2149: IF (x_okc_time_code_units_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
2150: THEN
2151: x_okc_time_code_units_tl_rec.source_lang := l_okc_time_code_units_tl_rec.source_lang;
2152: END IF;
2153: IF (x_okc_time_code_units_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
2147: x_okc_time_code_units_tl_rec.language := l_okc_time_code_units_tl_rec.language;
2148: END IF;
2149: IF (x_okc_time_code_units_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
2150: THEN
2151: x_okc_time_code_units_tl_rec.source_lang := l_okc_time_code_units_tl_rec.source_lang;
2152: END IF;
2153: IF (x_okc_time_code_units_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
2154: THEN
2155: x_okc_time_code_units_tl_rec.sfwt_flag := l_okc_time_code_units_tl_rec.sfwt_flag;
2149: IF (x_okc_time_code_units_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
2150: THEN
2151: x_okc_time_code_units_tl_rec.source_lang := l_okc_time_code_units_tl_rec.source_lang;
2152: END IF;
2153: IF (x_okc_time_code_units_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
2154: THEN
2155: x_okc_time_code_units_tl_rec.sfwt_flag := l_okc_time_code_units_tl_rec.sfwt_flag;
2156: END IF;
2157: IF (x_okc_time_code_units_tl_rec.short_description = OKC_API.G_MISS_CHAR)
2151: x_okc_time_code_units_tl_rec.source_lang := l_okc_time_code_units_tl_rec.source_lang;
2152: END IF;
2153: IF (x_okc_time_code_units_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
2154: THEN
2155: x_okc_time_code_units_tl_rec.sfwt_flag := l_okc_time_code_units_tl_rec.sfwt_flag;
2156: END IF;
2157: IF (x_okc_time_code_units_tl_rec.short_description = OKC_API.G_MISS_CHAR)
2158: THEN
2159: x_okc_time_code_units_tl_rec.short_description := l_okc_time_code_units_tl_rec.short_description;
2153: IF (x_okc_time_code_units_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
2154: THEN
2155: x_okc_time_code_units_tl_rec.sfwt_flag := l_okc_time_code_units_tl_rec.sfwt_flag;
2156: END IF;
2157: IF (x_okc_time_code_units_tl_rec.short_description = OKC_API.G_MISS_CHAR)
2158: THEN
2159: x_okc_time_code_units_tl_rec.short_description := l_okc_time_code_units_tl_rec.short_description;
2160: END IF;
2161: IF (x_okc_time_code_units_tl_rec.description = OKC_API.G_MISS_CHAR)
2155: x_okc_time_code_units_tl_rec.sfwt_flag := l_okc_time_code_units_tl_rec.sfwt_flag;
2156: END IF;
2157: IF (x_okc_time_code_units_tl_rec.short_description = OKC_API.G_MISS_CHAR)
2158: THEN
2159: x_okc_time_code_units_tl_rec.short_description := l_okc_time_code_units_tl_rec.short_description;
2160: END IF;
2161: IF (x_okc_time_code_units_tl_rec.description = OKC_API.G_MISS_CHAR)
2162: THEN
2163: x_okc_time_code_units_tl_rec.description := l_okc_time_code_units_tl_rec.description;
2157: IF (x_okc_time_code_units_tl_rec.short_description = OKC_API.G_MISS_CHAR)
2158: THEN
2159: x_okc_time_code_units_tl_rec.short_description := l_okc_time_code_units_tl_rec.short_description;
2160: END IF;
2161: IF (x_okc_time_code_units_tl_rec.description = OKC_API.G_MISS_CHAR)
2162: THEN
2163: x_okc_time_code_units_tl_rec.description := l_okc_time_code_units_tl_rec.description;
2164: END IF;
2165: IF (x_okc_time_code_units_tl_rec.comments = OKC_API.G_MISS_CHAR)
2159: x_okc_time_code_units_tl_rec.short_description := l_okc_time_code_units_tl_rec.short_description;
2160: END IF;
2161: IF (x_okc_time_code_units_tl_rec.description = OKC_API.G_MISS_CHAR)
2162: THEN
2163: x_okc_time_code_units_tl_rec.description := l_okc_time_code_units_tl_rec.description;
2164: END IF;
2165: IF (x_okc_time_code_units_tl_rec.comments = OKC_API.G_MISS_CHAR)
2166: THEN
2167: x_okc_time_code_units_tl_rec.comments := l_okc_time_code_units_tl_rec.comments;
2161: IF (x_okc_time_code_units_tl_rec.description = OKC_API.G_MISS_CHAR)
2162: THEN
2163: x_okc_time_code_units_tl_rec.description := l_okc_time_code_units_tl_rec.description;
2164: END IF;
2165: IF (x_okc_time_code_units_tl_rec.comments = OKC_API.G_MISS_CHAR)
2166: THEN
2167: x_okc_time_code_units_tl_rec.comments := l_okc_time_code_units_tl_rec.comments;
2168: END IF;
2169: IF (x_okc_time_code_units_tl_rec.created_by = OKC_API.G_MISS_NUM)
2163: x_okc_time_code_units_tl_rec.description := l_okc_time_code_units_tl_rec.description;
2164: END IF;
2165: IF (x_okc_time_code_units_tl_rec.comments = OKC_API.G_MISS_CHAR)
2166: THEN
2167: x_okc_time_code_units_tl_rec.comments := l_okc_time_code_units_tl_rec.comments;
2168: END IF;
2169: IF (x_okc_time_code_units_tl_rec.created_by = OKC_API.G_MISS_NUM)
2170: THEN
2171: x_okc_time_code_units_tl_rec.created_by := l_okc_time_code_units_tl_rec.created_by;
2165: IF (x_okc_time_code_units_tl_rec.comments = OKC_API.G_MISS_CHAR)
2166: THEN
2167: x_okc_time_code_units_tl_rec.comments := l_okc_time_code_units_tl_rec.comments;
2168: END IF;
2169: IF (x_okc_time_code_units_tl_rec.created_by = OKC_API.G_MISS_NUM)
2170: THEN
2171: x_okc_time_code_units_tl_rec.created_by := l_okc_time_code_units_tl_rec.created_by;
2172: END IF;
2173: IF (x_okc_time_code_units_tl_rec.creation_date = OKC_API.G_MISS_DATE)
2167: x_okc_time_code_units_tl_rec.comments := l_okc_time_code_units_tl_rec.comments;
2168: END IF;
2169: IF (x_okc_time_code_units_tl_rec.created_by = OKC_API.G_MISS_NUM)
2170: THEN
2171: x_okc_time_code_units_tl_rec.created_by := l_okc_time_code_units_tl_rec.created_by;
2172: END IF;
2173: IF (x_okc_time_code_units_tl_rec.creation_date = OKC_API.G_MISS_DATE)
2174: THEN
2175: x_okc_time_code_units_tl_rec.creation_date := l_okc_time_code_units_tl_rec.creation_date;
2169: IF (x_okc_time_code_units_tl_rec.created_by = OKC_API.G_MISS_NUM)
2170: THEN
2171: x_okc_time_code_units_tl_rec.created_by := l_okc_time_code_units_tl_rec.created_by;
2172: END IF;
2173: IF (x_okc_time_code_units_tl_rec.creation_date = OKC_API.G_MISS_DATE)
2174: THEN
2175: x_okc_time_code_units_tl_rec.creation_date := l_okc_time_code_units_tl_rec.creation_date;
2176: END IF;
2177: IF (x_okc_time_code_units_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
2171: x_okc_time_code_units_tl_rec.created_by := l_okc_time_code_units_tl_rec.created_by;
2172: END IF;
2173: IF (x_okc_time_code_units_tl_rec.creation_date = OKC_API.G_MISS_DATE)
2174: THEN
2175: x_okc_time_code_units_tl_rec.creation_date := l_okc_time_code_units_tl_rec.creation_date;
2176: END IF;
2177: IF (x_okc_time_code_units_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
2178: THEN
2179: x_okc_time_code_units_tl_rec.last_updated_by := l_okc_time_code_units_tl_rec.last_updated_by;
2173: IF (x_okc_time_code_units_tl_rec.creation_date = OKC_API.G_MISS_DATE)
2174: THEN
2175: x_okc_time_code_units_tl_rec.creation_date := l_okc_time_code_units_tl_rec.creation_date;
2176: END IF;
2177: IF (x_okc_time_code_units_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
2178: THEN
2179: x_okc_time_code_units_tl_rec.last_updated_by := l_okc_time_code_units_tl_rec.last_updated_by;
2180: END IF;
2181: IF (x_okc_time_code_units_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
2175: x_okc_time_code_units_tl_rec.creation_date := l_okc_time_code_units_tl_rec.creation_date;
2176: END IF;
2177: IF (x_okc_time_code_units_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
2178: THEN
2179: x_okc_time_code_units_tl_rec.last_updated_by := l_okc_time_code_units_tl_rec.last_updated_by;
2180: END IF;
2181: IF (x_okc_time_code_units_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
2182: THEN
2183: x_okc_time_code_units_tl_rec.last_update_date := l_okc_time_code_units_tl_rec.last_update_date;
2177: IF (x_okc_time_code_units_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
2178: THEN
2179: x_okc_time_code_units_tl_rec.last_updated_by := l_okc_time_code_units_tl_rec.last_updated_by;
2180: END IF;
2181: IF (x_okc_time_code_units_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
2182: THEN
2183: x_okc_time_code_units_tl_rec.last_update_date := l_okc_time_code_units_tl_rec.last_update_date;
2184: END IF;
2185: IF (x_okc_time_code_units_tl_rec.last_update_login = OKC_API.G_MISS_NUM)
2179: x_okc_time_code_units_tl_rec.last_updated_by := l_okc_time_code_units_tl_rec.last_updated_by;
2180: END IF;
2181: IF (x_okc_time_code_units_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
2182: THEN
2183: x_okc_time_code_units_tl_rec.last_update_date := l_okc_time_code_units_tl_rec.last_update_date;
2184: END IF;
2185: IF (x_okc_time_code_units_tl_rec.last_update_login = OKC_API.G_MISS_NUM)
2186: THEN
2187: x_okc_time_code_units_tl_rec.last_update_login := l_okc_time_code_units_tl_rec.last_update_login;
2181: IF (x_okc_time_code_units_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
2182: THEN
2183: x_okc_time_code_units_tl_rec.last_update_date := l_okc_time_code_units_tl_rec.last_update_date;
2184: END IF;
2185: IF (x_okc_time_code_units_tl_rec.last_update_login = OKC_API.G_MISS_NUM)
2186: THEN
2187: x_okc_time_code_units_tl_rec.last_update_login := l_okc_time_code_units_tl_rec.last_update_login;
2188: END IF;
2189: RETURN(l_return_status);
2183: x_okc_time_code_units_tl_rec.last_update_date := l_okc_time_code_units_tl_rec.last_update_date;
2184: END IF;
2185: IF (x_okc_time_code_units_tl_rec.last_update_login = OKC_API.G_MISS_NUM)
2186: THEN
2187: x_okc_time_code_units_tl_rec.last_update_login := l_okc_time_code_units_tl_rec.last_update_login;
2188: END IF;
2189: RETURN(l_return_status);
2190: END populate_new_record;
2191: -----------------------------------------------
2188: END IF;
2189: RETURN(l_return_status);
2190: END populate_new_record;
2191: -----------------------------------------------
2192: -- Set_Attributes for:OKC_TIME_CODE_UNITS_TL --
2193: -----------------------------------------------
2194: FUNCTION Set_Attributes (
2195: p_okc_time_code_units_tl_rec IN OkcTimeCodeUnitsTlRecType,
2196: x_okc_time_code_units_tl_rec OUT NOCOPY OkcTimeCodeUnitsTlRecType
2191: -----------------------------------------------
2192: -- Set_Attributes for:OKC_TIME_CODE_UNITS_TL --
2193: -----------------------------------------------
2194: FUNCTION Set_Attributes (
2195: p_okc_time_code_units_tl_rec IN OkcTimeCodeUnitsTlRecType,
2196: x_okc_time_code_units_tl_rec OUT NOCOPY OkcTimeCodeUnitsTlRecType
2197: ) RETURN VARCHAR2 IS
2198: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2199: BEGIN
2192: -- Set_Attributes for:OKC_TIME_CODE_UNITS_TL --
2193: -----------------------------------------------
2194: FUNCTION Set_Attributes (
2195: p_okc_time_code_units_tl_rec IN OkcTimeCodeUnitsTlRecType,
2196: x_okc_time_code_units_tl_rec OUT NOCOPY OkcTimeCodeUnitsTlRecType
2197: ) RETURN VARCHAR2 IS
2198: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2199: BEGIN
2200: x_okc_time_code_units_tl_rec := p_okc_time_code_units_tl_rec;
2196: x_okc_time_code_units_tl_rec OUT NOCOPY OkcTimeCodeUnitsTlRecType
2197: ) RETURN VARCHAR2 IS
2198: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2199: BEGIN
2200: x_okc_time_code_units_tl_rec := p_okc_time_code_units_tl_rec;
2201: x_okc_time_code_units_tl_rec.LANGUAGE := okc_util.get_userenv_lang;
2202: x_okc_time_code_units_tl_rec.SOURCE_LANG := okc_util.get_userenv_lang;
2203: RETURN(l_return_status);
2204: END Set_Attributes;
2197: ) RETURN VARCHAR2 IS
2198: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2199: BEGIN
2200: x_okc_time_code_units_tl_rec := p_okc_time_code_units_tl_rec;
2201: x_okc_time_code_units_tl_rec.LANGUAGE := okc_util.get_userenv_lang;
2202: x_okc_time_code_units_tl_rec.SOURCE_LANG := okc_util.get_userenv_lang;
2203: RETURN(l_return_status);
2204: END Set_Attributes;
2205: BEGIN
2198: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2199: BEGIN
2200: x_okc_time_code_units_tl_rec := p_okc_time_code_units_tl_rec;
2201: x_okc_time_code_units_tl_rec.LANGUAGE := okc_util.get_userenv_lang;
2202: x_okc_time_code_units_tl_rec.SOURCE_LANG := okc_util.get_userenv_lang;
2203: RETURN(l_return_status);
2204: END Set_Attributes;
2205: BEGIN
2206: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2213: RAISE OKC_API.G_EXCEPTION_ERROR;
2214: END IF;
2215: --- Setting item attributes
2216: l_return_status := Set_Attributes(
2217: p_okc_time_code_units_tl_rec, -- IN
2218: l_okc_time_code_units_tl_rec); -- OUT
2219: --- If any errors happen abort API
2220: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2221: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2214: END IF;
2215: --- Setting item attributes
2216: l_return_status := Set_Attributes(
2217: p_okc_time_code_units_tl_rec, -- IN
2218: l_okc_time_code_units_tl_rec); -- OUT
2219: --- If any errors happen abort API
2220: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2221: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2222: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2221: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2222: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2223: RAISE OKC_API.G_EXCEPTION_ERROR;
2224: END IF;
2225: l_return_status := populate_new_record(l_okc_time_code_units_tl_rec, ldefokctimecodeunitstlrec);
2226: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2227: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2228: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2229: RAISE OKC_API.G_EXCEPTION_ERROR;
2227: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2228: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2229: RAISE OKC_API.G_EXCEPTION_ERROR;
2230: END IF;
2231: UPDATE OKC_TIME_CODE_UNITS_TL
2232: SET SHORT_DESCRIPTION = ldefokctimecodeunitstlrec.short_description,
2233: DESCRIPTION = ldefokctimecodeunitstlrec.description,
2234: COMMENTS = ldefokctimecodeunitstlrec.comments,
2235: CREATED_BY = ldefokctimecodeunitstlrec.created_by,
2240: WHERE uom_code = ldefokctimecodeunitstlrec.uom_code
2241: AND TCE_CODE = ldefokctimecodeunitstlrec.tce_code
2242: AND SOURCE_LANG = USERENV('LANG');
2243:
2244: UPDATE OKC_TIME_CODE_UNITS_TL
2245: SET SFWT_FLAG = 'Y'
2246: WHERE uom_code = ldefokctimecodeunitstlrec.uom_code
2247: AND TCE_CODE = ldefokctimecodeunitstlrec.tce_code
2248: AND SOURCE_LANG <> USERENV('LANG');
2246: WHERE uom_code = ldefokctimecodeunitstlrec.uom_code
2247: AND TCE_CODE = ldefokctimecodeunitstlrec.tce_code
2248: AND SOURCE_LANG <> USERENV('LANG');
2249:
2250: x_okc_time_code_units_tl_rec := ldefokctimecodeunitstlrec;
2251: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2252: EXCEPTION
2253: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2254: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2297: l_api_name CONSTANT VARCHAR2(30) := 'V_update_row';
2298: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2299: l_tcuv_rec tcuv_rec_type := p_tcuv_rec;
2300: l_def_tcuv_rec tcuv_rec_type;
2301: l_okc_time_code_units_tl_rec OkcTimeCodeUnitsTlRecType;
2302: lx_okc_time_code_units_tl_rec OkcTimeCodeUnitsTlRecType;
2303: l_tcu_rec tcu_rec_type;
2304: lx_tcu_rec tcu_rec_type;
2305: -------------------------------
2298: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2299: l_tcuv_rec tcuv_rec_type := p_tcuv_rec;
2300: l_def_tcuv_rec tcuv_rec_type;
2301: l_okc_time_code_units_tl_rec OkcTimeCodeUnitsTlRecType;
2302: lx_okc_time_code_units_tl_rec OkcTimeCodeUnitsTlRecType;
2303: l_tcu_rec tcu_rec_type;
2304: lx_tcu_rec tcu_rec_type;
2305: -------------------------------
2306: -- FUNCTION fill_who_columns --
2516:
2517: --------------------------------------
2518: -- Move VIEW record to "Child" records
2519: --------------------------------------
2520: migrate(l_def_tcuv_rec, l_okc_time_code_units_tl_rec);
2521: migrate(l_def_tcuv_rec, l_tcu_rec);
2522: --------------------------------------------
2523: -- Call the UPDATE_ROW for each child record
2524: --------------------------------------------
2526: p_init_msg_list,
2527: x_return_status,
2528: x_msg_count,
2529: x_msg_data,
2530: l_okc_time_code_units_tl_rec,
2531: lx_okc_time_code_units_tl_rec
2532: );
2533: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2534: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2527: x_return_status,
2528: x_msg_count,
2529: x_msg_data,
2530: l_okc_time_code_units_tl_rec,
2531: lx_okc_time_code_units_tl_rec
2532: );
2533: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2534: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2535: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2534: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2535: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2536: RAISE OKC_API.G_EXCEPTION_ERROR;
2537: END IF;
2538: migrate(lx_okc_time_code_units_tl_rec, l_def_tcuv_rec);
2539: update_row(
2540: p_init_msg_list,
2541: x_return_status,
2542: x_msg_count,
2716: '_PVT'
2717: );
2718: END delete_row;
2719: -------------------------------------------
2720: -- delete_row for:OKC_TIME_CODE_UNITS_TL --
2721: -------------------------------------------
2722: PROCEDURE delete_row(
2723: p_init_msg_list IN VARCHAR2,
2724: x_return_status OUT NOCOPY VARCHAR2,
2723: p_init_msg_list IN VARCHAR2,
2724: x_return_status OUT NOCOPY VARCHAR2,
2725: x_msg_count OUT NOCOPY NUMBER,
2726: x_msg_data OUT NOCOPY VARCHAR2,
2727: p_okc_time_code_units_tl_rec IN OkcTimeCodeUnitsTlRecType) IS
2728:
2729: l_api_version CONSTANT NUMBER := 1;
2730: l_api_name CONSTANT VARCHAR2(30) := 'TL_delete_row';
2731: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2728:
2729: l_api_version CONSTANT NUMBER := 1;
2730: l_api_name CONSTANT VARCHAR2(30) := 'TL_delete_row';
2731: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2732: l_okc_time_code_units_tl_rec OkcTimeCodeUnitsTlRecType:= p_okc_time_code_units_tl_rec;
2733: l_row_notfound BOOLEAN := TRUE;
2734: -----------------------------------------------
2735: -- Set_Attributes for:OKC_TIME_CODE_UNITS_TL --
2736: -----------------------------------------------
2731: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2732: l_okc_time_code_units_tl_rec OkcTimeCodeUnitsTlRecType:= p_okc_time_code_units_tl_rec;
2733: l_row_notfound BOOLEAN := TRUE;
2734: -----------------------------------------------
2735: -- Set_Attributes for:OKC_TIME_CODE_UNITS_TL --
2736: -----------------------------------------------
2737: FUNCTION Set_Attributes (
2738: p_okc_time_code_units_tl_rec IN OkcTimeCodeUnitsTlRecType,
2739: x_okc_time_code_units_tl_rec OUT NOCOPY OkcTimeCodeUnitsTlRecType
2734: -----------------------------------------------
2735: -- Set_Attributes for:OKC_TIME_CODE_UNITS_TL --
2736: -----------------------------------------------
2737: FUNCTION Set_Attributes (
2738: p_okc_time_code_units_tl_rec IN OkcTimeCodeUnitsTlRecType,
2739: x_okc_time_code_units_tl_rec OUT NOCOPY OkcTimeCodeUnitsTlRecType
2740: ) RETURN VARCHAR2 IS
2741: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2742: BEGIN
2735: -- Set_Attributes for:OKC_TIME_CODE_UNITS_TL --
2736: -----------------------------------------------
2737: FUNCTION Set_Attributes (
2738: p_okc_time_code_units_tl_rec IN OkcTimeCodeUnitsTlRecType,
2739: x_okc_time_code_units_tl_rec OUT NOCOPY OkcTimeCodeUnitsTlRecType
2740: ) RETURN VARCHAR2 IS
2741: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2742: BEGIN
2743: x_okc_time_code_units_tl_rec := p_okc_time_code_units_tl_rec;
2739: x_okc_time_code_units_tl_rec OUT NOCOPY OkcTimeCodeUnitsTlRecType
2740: ) RETURN VARCHAR2 IS
2741: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2742: BEGIN
2743: x_okc_time_code_units_tl_rec := p_okc_time_code_units_tl_rec;
2744: x_okc_time_code_units_tl_rec.LANGUAGE := okc_util.get_userenv_lang;
2745: RETURN(l_return_status);
2746: END Set_Attributes;
2747: BEGIN
2740: ) RETURN VARCHAR2 IS
2741: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2742: BEGIN
2743: x_okc_time_code_units_tl_rec := p_okc_time_code_units_tl_rec;
2744: x_okc_time_code_units_tl_rec.LANGUAGE := okc_util.get_userenv_lang;
2745: RETURN(l_return_status);
2746: END Set_Attributes;
2747: BEGIN
2748: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2755: RAISE OKC_API.G_EXCEPTION_ERROR;
2756: END IF;
2757: --- Setting item attributes
2758: l_return_status := Set_Attributes(
2759: p_okc_time_code_units_tl_rec, -- IN
2760: l_okc_time_code_units_tl_rec); -- OUT
2761: --- If any errors happen abort API
2762: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2763: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2756: END IF;
2757: --- Setting item attributes
2758: l_return_status := Set_Attributes(
2759: p_okc_time_code_units_tl_rec, -- IN
2760: l_okc_time_code_units_tl_rec); -- OUT
2761: --- If any errors happen abort API
2762: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2763: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2764: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2763: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2764: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2765: RAISE OKC_API.G_EXCEPTION_ERROR;
2766: END IF;
2767: DELETE FROM OKC_TIME_CODE_UNITS_TL
2768: WHERE uom_code = l_okc_time_code_units_tl_rec.uom_code AND
2769: TCE_CODE = l_okc_time_code_units_tl_rec.tce_code;
2770:
2771: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2764: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2765: RAISE OKC_API.G_EXCEPTION_ERROR;
2766: END IF;
2767: DELETE FROM OKC_TIME_CODE_UNITS_TL
2768: WHERE uom_code = l_okc_time_code_units_tl_rec.uom_code AND
2769: TCE_CODE = l_okc_time_code_units_tl_rec.tce_code;
2770:
2771: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2772: EXCEPTION
2765: RAISE OKC_API.G_EXCEPTION_ERROR;
2766: END IF;
2767: DELETE FROM OKC_TIME_CODE_UNITS_TL
2768: WHERE uom_code = l_okc_time_code_units_tl_rec.uom_code AND
2769: TCE_CODE = l_okc_time_code_units_tl_rec.tce_code;
2770:
2771: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2772: EXCEPTION
2773: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2815: l_api_version CONSTANT NUMBER := 1;
2816: l_api_name CONSTANT VARCHAR2(30) := 'V_delete_row';
2817: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2818: l_tcuv_rec tcuv_rec_type := p_tcuv_rec;
2819: l_okc_time_code_units_tl_rec OkcTimeCodeUnitsTlRecType;
2820: l_tcu_rec tcu_rec_type;
2821: BEGIN
2822: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2823: G_PKG_NAME,
2833: END IF;
2834: --------------------------------------
2835: -- Move VIEW record to "Child" records
2836: --------------------------------------
2837: migrate(l_tcuv_rec, l_okc_time_code_units_tl_rec);
2838: migrate(l_tcuv_rec, l_tcu_rec);
2839: --------------------------------------------
2840: -- Call the DELETE_ROW for each child record
2841: --------------------------------------------
2843: p_init_msg_list,
2844: x_return_status,
2845: x_msg_count,
2846: x_msg_data,
2847: l_okc_time_code_units_tl_rec
2848: );
2849: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2850: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2851: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN