[Home] [Help]
2: /* $Header: OKCSRLDB.pls 120.0 2005/05/27 05:18:21 appldev noship $ */
3:
4: l_debug VARCHAR2(1) := NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'),'N');
5:
6: p_rule_code OKC_RULE_DEFS_B.rule_code%TYPE;
7: p_appl_id OKC_RULE_DEFS_B.application_id%TYPE;
8: p_dff_name OKC_RULE_DEFS_B.descriptive_flexfield_name%TYPE;
9:
10: FUNCTION Validate_dff(p_okc_rule_defs_v_rec IN okc_rule_defs_v_rec_type) RETURN VARCHAR2;
3:
4: l_debug VARCHAR2(1) := NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'),'N');
5:
6: p_rule_code OKC_RULE_DEFS_B.rule_code%TYPE;
7: p_appl_id OKC_RULE_DEFS_B.application_id%TYPE;
8: p_dff_name OKC_RULE_DEFS_B.descriptive_flexfield_name%TYPE;
9:
10: FUNCTION Validate_dff(p_okc_rule_defs_v_rec IN okc_rule_defs_v_rec_type) RETURN VARCHAR2;
11:
4: l_debug VARCHAR2(1) := NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'),'N');
5:
6: p_rule_code OKC_RULE_DEFS_B.rule_code%TYPE;
7: p_appl_id OKC_RULE_DEFS_B.application_id%TYPE;
8: p_dff_name OKC_RULE_DEFS_B.descriptive_flexfield_name%TYPE;
9:
10: FUNCTION Validate_dff(p_okc_rule_defs_v_rec IN okc_rule_defs_v_rec_type) RETURN VARCHAR2;
11:
12: ---------------------------------------------------------------------------
245: BEGIN
246: RETURN(get_rec(p_okc_rule_defs_v_rec, l_row_not_found));
247: END get_rec;
248: ---------------------------------------------------------------------------
249: -- FUNCTION get_rec for: OKC_RULE_DEFS_B
250: ---------------------------------------------------------------------------
251: FUNCTION get_rec (
252: p_okc_rule_defs_b_rec IN okc_rule_defs_b_rec_type,
253: x_no_data_found OUT NOCOPY BOOLEAN
248: ---------------------------------------------------------------------------
249: -- FUNCTION get_rec for: OKC_RULE_DEFS_B
250: ---------------------------------------------------------------------------
251: FUNCTION get_rec (
252: p_okc_rule_defs_b_rec IN okc_rule_defs_b_rec_type,
253: x_no_data_found OUT NOCOPY BOOLEAN
254: ) RETURN okc_rule_defs_b_rec_type IS
255: CURSOR okc_rule_defs_b_pk_csr (p_rule_code IN VARCHAR2) IS
256: SELECT
250: ---------------------------------------------------------------------------
251: FUNCTION get_rec (
252: p_okc_rule_defs_b_rec IN okc_rule_defs_b_rec_type,
253: x_no_data_found OUT NOCOPY BOOLEAN
254: ) RETURN okc_rule_defs_b_rec_type IS
255: CURSOR okc_rule_defs_b_pk_csr (p_rule_code IN VARCHAR2) IS
256: SELECT
257: RULE_CODE,
258: APPLICATION_ID,
251: FUNCTION get_rec (
252: p_okc_rule_defs_b_rec IN okc_rule_defs_b_rec_type,
253: x_no_data_found OUT NOCOPY BOOLEAN
254: ) RETURN okc_rule_defs_b_rec_type IS
255: CURSOR okc_rule_defs_b_pk_csr (p_rule_code IN VARCHAR2) IS
256: SELECT
257: RULE_CODE,
258: APPLICATION_ID,
259: DESCRIPTIVE_FLEXFIELD_NAME,
262: CREATION_DATE,
263: LAST_UPDATED_BY,
264: LAST_UPDATE_DATE,
265: LAST_UPDATE_LOGIN
266: FROM Okc_Rule_Defs_B
267: WHERE okc_rule_defs_b.rule_code = p_rule_code;
268: l_okc_rule_defs_b_pk okc_rule_defs_b_pk_csr%ROWTYPE;
269: l_okc_rule_defs_b_rec okc_rule_defs_b_rec_type;
270: BEGIN
263: LAST_UPDATED_BY,
264: LAST_UPDATE_DATE,
265: LAST_UPDATE_LOGIN
266: FROM Okc_Rule_Defs_B
267: WHERE okc_rule_defs_b.rule_code = p_rule_code;
268: l_okc_rule_defs_b_pk okc_rule_defs_b_pk_csr%ROWTYPE;
269: l_okc_rule_defs_b_rec okc_rule_defs_b_rec_type;
270: BEGIN
271: x_no_data_found := TRUE;
264: LAST_UPDATE_DATE,
265: LAST_UPDATE_LOGIN
266: FROM Okc_Rule_Defs_B
267: WHERE okc_rule_defs_b.rule_code = p_rule_code;
268: l_okc_rule_defs_b_pk okc_rule_defs_b_pk_csr%ROWTYPE;
269: l_okc_rule_defs_b_rec okc_rule_defs_b_rec_type;
270: BEGIN
271: x_no_data_found := TRUE;
272: -- Get current database values
265: LAST_UPDATE_LOGIN
266: FROM Okc_Rule_Defs_B
267: WHERE okc_rule_defs_b.rule_code = p_rule_code;
268: l_okc_rule_defs_b_pk okc_rule_defs_b_pk_csr%ROWTYPE;
269: l_okc_rule_defs_b_rec okc_rule_defs_b_rec_type;
270: BEGIN
271: x_no_data_found := TRUE;
272: -- Get current database values
273: OPEN okc_rule_defs_b_pk_csr (p_okc_rule_defs_b_rec.rule_code);
269: l_okc_rule_defs_b_rec okc_rule_defs_b_rec_type;
270: BEGIN
271: x_no_data_found := TRUE;
272: -- Get current database values
273: OPEN okc_rule_defs_b_pk_csr (p_okc_rule_defs_b_rec.rule_code);
274: FETCH okc_rule_defs_b_pk_csr INTO
275: l_okc_rule_defs_b_rec.rule_code,
276: l_okc_rule_defs_b_rec.application_id,
277: l_okc_rule_defs_b_rec.descriptive_flexfield_name,
270: BEGIN
271: x_no_data_found := TRUE;
272: -- Get current database values
273: OPEN okc_rule_defs_b_pk_csr (p_okc_rule_defs_b_rec.rule_code);
274: FETCH okc_rule_defs_b_pk_csr INTO
275: l_okc_rule_defs_b_rec.rule_code,
276: l_okc_rule_defs_b_rec.application_id,
277: l_okc_rule_defs_b_rec.descriptive_flexfield_name,
278: l_okc_rule_defs_b_rec.object_version_number,
271: x_no_data_found := TRUE;
272: -- Get current database values
273: OPEN okc_rule_defs_b_pk_csr (p_okc_rule_defs_b_rec.rule_code);
274: FETCH okc_rule_defs_b_pk_csr INTO
275: l_okc_rule_defs_b_rec.rule_code,
276: l_okc_rule_defs_b_rec.application_id,
277: l_okc_rule_defs_b_rec.descriptive_flexfield_name,
278: l_okc_rule_defs_b_rec.object_version_number,
279: l_okc_rule_defs_b_rec.created_by,
272: -- Get current database values
273: OPEN okc_rule_defs_b_pk_csr (p_okc_rule_defs_b_rec.rule_code);
274: FETCH okc_rule_defs_b_pk_csr INTO
275: l_okc_rule_defs_b_rec.rule_code,
276: l_okc_rule_defs_b_rec.application_id,
277: l_okc_rule_defs_b_rec.descriptive_flexfield_name,
278: l_okc_rule_defs_b_rec.object_version_number,
279: l_okc_rule_defs_b_rec.created_by,
280: l_okc_rule_defs_b_rec.creation_date,
273: OPEN okc_rule_defs_b_pk_csr (p_okc_rule_defs_b_rec.rule_code);
274: FETCH okc_rule_defs_b_pk_csr INTO
275: l_okc_rule_defs_b_rec.rule_code,
276: l_okc_rule_defs_b_rec.application_id,
277: l_okc_rule_defs_b_rec.descriptive_flexfield_name,
278: l_okc_rule_defs_b_rec.object_version_number,
279: l_okc_rule_defs_b_rec.created_by,
280: l_okc_rule_defs_b_rec.creation_date,
281: l_okc_rule_defs_b_rec.last_updated_by,
274: FETCH okc_rule_defs_b_pk_csr INTO
275: l_okc_rule_defs_b_rec.rule_code,
276: l_okc_rule_defs_b_rec.application_id,
277: l_okc_rule_defs_b_rec.descriptive_flexfield_name,
278: l_okc_rule_defs_b_rec.object_version_number,
279: l_okc_rule_defs_b_rec.created_by,
280: l_okc_rule_defs_b_rec.creation_date,
281: l_okc_rule_defs_b_rec.last_updated_by,
282: l_okc_rule_defs_b_rec.last_update_date,
275: l_okc_rule_defs_b_rec.rule_code,
276: l_okc_rule_defs_b_rec.application_id,
277: l_okc_rule_defs_b_rec.descriptive_flexfield_name,
278: l_okc_rule_defs_b_rec.object_version_number,
279: l_okc_rule_defs_b_rec.created_by,
280: l_okc_rule_defs_b_rec.creation_date,
281: l_okc_rule_defs_b_rec.last_updated_by,
282: l_okc_rule_defs_b_rec.last_update_date,
283: l_okc_rule_defs_b_rec.last_update_login;
276: l_okc_rule_defs_b_rec.application_id,
277: l_okc_rule_defs_b_rec.descriptive_flexfield_name,
278: l_okc_rule_defs_b_rec.object_version_number,
279: l_okc_rule_defs_b_rec.created_by,
280: l_okc_rule_defs_b_rec.creation_date,
281: l_okc_rule_defs_b_rec.last_updated_by,
282: l_okc_rule_defs_b_rec.last_update_date,
283: l_okc_rule_defs_b_rec.last_update_login;
284: x_no_data_found := okc_rule_defs_b_pk_csr%NOTFOUND;
277: l_okc_rule_defs_b_rec.descriptive_flexfield_name,
278: l_okc_rule_defs_b_rec.object_version_number,
279: l_okc_rule_defs_b_rec.created_by,
280: l_okc_rule_defs_b_rec.creation_date,
281: l_okc_rule_defs_b_rec.last_updated_by,
282: l_okc_rule_defs_b_rec.last_update_date,
283: l_okc_rule_defs_b_rec.last_update_login;
284: x_no_data_found := okc_rule_defs_b_pk_csr%NOTFOUND;
285: CLOSE okc_rule_defs_b_pk_csr;
278: l_okc_rule_defs_b_rec.object_version_number,
279: l_okc_rule_defs_b_rec.created_by,
280: l_okc_rule_defs_b_rec.creation_date,
281: l_okc_rule_defs_b_rec.last_updated_by,
282: l_okc_rule_defs_b_rec.last_update_date,
283: l_okc_rule_defs_b_rec.last_update_login;
284: x_no_data_found := okc_rule_defs_b_pk_csr%NOTFOUND;
285: CLOSE okc_rule_defs_b_pk_csr;
286: RETURN(l_okc_rule_defs_b_rec);
279: l_okc_rule_defs_b_rec.created_by,
280: l_okc_rule_defs_b_rec.creation_date,
281: l_okc_rule_defs_b_rec.last_updated_by,
282: l_okc_rule_defs_b_rec.last_update_date,
283: l_okc_rule_defs_b_rec.last_update_login;
284: x_no_data_found := okc_rule_defs_b_pk_csr%NOTFOUND;
285: CLOSE okc_rule_defs_b_pk_csr;
286: RETURN(l_okc_rule_defs_b_rec);
287: END get_rec;
280: l_okc_rule_defs_b_rec.creation_date,
281: l_okc_rule_defs_b_rec.last_updated_by,
282: l_okc_rule_defs_b_rec.last_update_date,
283: l_okc_rule_defs_b_rec.last_update_login;
284: x_no_data_found := okc_rule_defs_b_pk_csr%NOTFOUND;
285: CLOSE okc_rule_defs_b_pk_csr;
286: RETURN(l_okc_rule_defs_b_rec);
287: END get_rec;
288:
281: l_okc_rule_defs_b_rec.last_updated_by,
282: l_okc_rule_defs_b_rec.last_update_date,
283: l_okc_rule_defs_b_rec.last_update_login;
284: x_no_data_found := okc_rule_defs_b_pk_csr%NOTFOUND;
285: CLOSE okc_rule_defs_b_pk_csr;
286: RETURN(l_okc_rule_defs_b_rec);
287: END get_rec;
288:
289: ------------------------------------------------------------------
282: l_okc_rule_defs_b_rec.last_update_date,
283: l_okc_rule_defs_b_rec.last_update_login;
284: x_no_data_found := okc_rule_defs_b_pk_csr%NOTFOUND;
285: CLOSE okc_rule_defs_b_pk_csr;
286: RETURN(l_okc_rule_defs_b_rec);
287: END get_rec;
288:
289: ------------------------------------------------------------------
290: -- This version of get_rec sets error messages if no data found --
289: ------------------------------------------------------------------
290: -- This version of get_rec sets error messages if no data found --
291: ------------------------------------------------------------------
292: FUNCTION get_rec (
293: p_okc_rule_defs_b_rec IN okc_rule_defs_b_rec_type,
294: x_return_status OUT NOCOPY VARCHAR2
295: ) RETURN okc_rule_defs_b_rec_type IS
296: l_okc_rule_defs_b_rec okc_rule_defs_b_rec_type;
297: l_row_notfound BOOLEAN := TRUE;
291: ------------------------------------------------------------------
292: FUNCTION get_rec (
293: p_okc_rule_defs_b_rec IN okc_rule_defs_b_rec_type,
294: x_return_status OUT NOCOPY VARCHAR2
295: ) RETURN okc_rule_defs_b_rec_type IS
296: l_okc_rule_defs_b_rec okc_rule_defs_b_rec_type;
297: l_row_notfound BOOLEAN := TRUE;
298: BEGIN
299: x_return_status := OKC_API.G_RET_STS_SUCCESS;
292: FUNCTION get_rec (
293: p_okc_rule_defs_b_rec IN okc_rule_defs_b_rec_type,
294: x_return_status OUT NOCOPY VARCHAR2
295: ) RETURN okc_rule_defs_b_rec_type IS
296: l_okc_rule_defs_b_rec okc_rule_defs_b_rec_type;
297: l_row_notfound BOOLEAN := TRUE;
298: BEGIN
299: x_return_status := OKC_API.G_RET_STS_SUCCESS;
300: l_okc_rule_defs_b_rec := get_rec(p_okc_rule_defs_b_rec, l_row_notfound);
296: l_okc_rule_defs_b_rec okc_rule_defs_b_rec_type;
297: l_row_notfound BOOLEAN := TRUE;
298: BEGIN
299: x_return_status := OKC_API.G_RET_STS_SUCCESS;
300: l_okc_rule_defs_b_rec := get_rec(p_okc_rule_defs_b_rec, l_row_notfound);
301: IF (l_row_notfound) THEN
302: OKC_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'RULE_CODE');
303: x_return_status := OKC_API.G_RET_STS_ERROR;
304: END IF;
301: IF (l_row_notfound) THEN
302: OKC_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'RULE_CODE');
303: x_return_status := OKC_API.G_RET_STS_ERROR;
304: END IF;
305: RETURN(l_okc_rule_defs_b_rec);
306: END get_rec;
307: -----------------------------------------------------------
308: -- So we don't have to pass an "l_row_notfound" variable --
309: -----------------------------------------------------------
307: -----------------------------------------------------------
308: -- So we don't have to pass an "l_row_notfound" variable --
309: -----------------------------------------------------------
310: FUNCTION get_rec (
311: p_okc_rule_defs_b_rec IN okc_rule_defs_b_rec_type
312: ) RETURN okc_rule_defs_b_rec_type IS
313: l_row_not_found BOOLEAN := TRUE;
314: BEGIN
315: RETURN(get_rec(p_okc_rule_defs_b_rec, l_row_not_found));
308: -- So we don't have to pass an "l_row_notfound" variable --
309: -----------------------------------------------------------
310: FUNCTION get_rec (
311: p_okc_rule_defs_b_rec IN okc_rule_defs_b_rec_type
312: ) RETURN okc_rule_defs_b_rec_type IS
313: l_row_not_found BOOLEAN := TRUE;
314: BEGIN
315: RETURN(get_rec(p_okc_rule_defs_b_rec, l_row_not_found));
316: END get_rec;
311: p_okc_rule_defs_b_rec IN okc_rule_defs_b_rec_type
312: ) RETURN okc_rule_defs_b_rec_type IS
313: l_row_not_found BOOLEAN := TRUE;
314: BEGIN
315: RETURN(get_rec(p_okc_rule_defs_b_rec, l_row_not_found));
316: END get_rec;
317: ---------------------------------------------------------------------------
318: -- FUNCTION get_rec for: OKC_RULE_DEFS_TL
319: ---------------------------------------------------------------------------
849: -- PROCEDURE Migrate
850: ---------------------------------------------------------------------------
851: PROCEDURE migrate (
852: p_from IN okc_rule_defs_v_rec_type,
853: p_to IN OUT NOCOPY okc_rule_defs_b_rec_type
854: ) IS
855: BEGIN
856: p_to.rule_code := p_from.rule_code;
857: p_to.application_id := p_from.application_id;
863: p_to.last_update_date := p_from.last_update_date;
864: p_to.last_update_login := p_from.last_update_login;
865: END migrate;
866: PROCEDURE migrate (
867: p_from IN okc_rule_defs_b_rec_type,
868: p_to IN OUT NOCOPY okc_rule_defs_v_rec_type
869: ) IS
870: BEGIN
871: p_to.application_id := p_from.application_id;
925: l_api_version CONSTANT NUMBER := 1;
926: l_api_name CONSTANT VARCHAR2(30) := 'V_validate_row';
927: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
928: l_okc_rule_defs_v_rec okc_rule_defs_v_rec_type := p_okc_rule_defs_v_rec;
929: l_okc_rule_defs_b_rec okc_rule_defs_b_rec_type;
930: l_okc_rule_defs_tl_rec okc_rule_defs_tl_rec_type;
931: BEGIN
932: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
933: G_PKG_NAME,
1149: ---------------------------------------------------------------------------
1150: -- PROCEDURE insert_row
1151: ---------------------------------------------------------------------------
1152: ------------------------------------
1153: -- insert_row for:OKC_RULE_DEFS_B --
1154: ------------------------------------
1155: PROCEDURE insert_row(
1156: p_init_msg_list IN VARCHAR2,
1157: x_return_status OUT NOCOPY VARCHAR2,
1156: p_init_msg_list IN VARCHAR2,
1157: x_return_status OUT NOCOPY VARCHAR2,
1158: x_msg_count OUT NOCOPY NUMBER,
1159: x_msg_data OUT NOCOPY VARCHAR2,
1160: p_okc_rule_defs_b_rec IN okc_rule_defs_b_rec_type,
1161: x_okc_rule_defs_b_rec OUT NOCOPY okc_rule_defs_b_rec_type) IS
1162:
1163: l_api_version CONSTANT NUMBER := 1;
1164: l_api_name CONSTANT VARCHAR2(30) := 'B_insert_row';
1157: x_return_status OUT NOCOPY VARCHAR2,
1158: x_msg_count OUT NOCOPY NUMBER,
1159: x_msg_data OUT NOCOPY VARCHAR2,
1160: p_okc_rule_defs_b_rec IN okc_rule_defs_b_rec_type,
1161: x_okc_rule_defs_b_rec OUT NOCOPY okc_rule_defs_b_rec_type) IS
1162:
1163: l_api_version CONSTANT NUMBER := 1;
1164: l_api_name CONSTANT VARCHAR2(30) := 'B_insert_row';
1165: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1162:
1163: l_api_version CONSTANT NUMBER := 1;
1164: l_api_name CONSTANT VARCHAR2(30) := 'B_insert_row';
1165: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1166: l_okc_rule_defs_b_rec okc_rule_defs_b_rec_type := p_okc_rule_defs_b_rec;
1167: l_def_okc_rule_defs_b_rec okc_rule_defs_b_rec_type;
1168: ----------------------------------------
1169: -- Set_Attributes for:OKC_RULE_DEFS_B --
1170: ----------------------------------------
1163: l_api_version CONSTANT NUMBER := 1;
1164: l_api_name CONSTANT VARCHAR2(30) := 'B_insert_row';
1165: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1166: l_okc_rule_defs_b_rec okc_rule_defs_b_rec_type := p_okc_rule_defs_b_rec;
1167: l_def_okc_rule_defs_b_rec okc_rule_defs_b_rec_type;
1168: ----------------------------------------
1169: -- Set_Attributes for:OKC_RULE_DEFS_B --
1170: ----------------------------------------
1171: FUNCTION Set_Attributes (
1165: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1166: l_okc_rule_defs_b_rec okc_rule_defs_b_rec_type := p_okc_rule_defs_b_rec;
1167: l_def_okc_rule_defs_b_rec okc_rule_defs_b_rec_type;
1168: ----------------------------------------
1169: -- Set_Attributes for:OKC_RULE_DEFS_B --
1170: ----------------------------------------
1171: FUNCTION Set_Attributes (
1172: p_okc_rule_defs_b_rec IN okc_rule_defs_b_rec_type,
1173: x_okc_rule_defs_b_rec OUT NOCOPY okc_rule_defs_b_rec_type
1168: ----------------------------------------
1169: -- Set_Attributes for:OKC_RULE_DEFS_B --
1170: ----------------------------------------
1171: FUNCTION Set_Attributes (
1172: p_okc_rule_defs_b_rec IN okc_rule_defs_b_rec_type,
1173: x_okc_rule_defs_b_rec OUT NOCOPY okc_rule_defs_b_rec_type
1174: ) RETURN VARCHAR2 IS
1175: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1176: BEGIN
1169: -- Set_Attributes for:OKC_RULE_DEFS_B --
1170: ----------------------------------------
1171: FUNCTION Set_Attributes (
1172: p_okc_rule_defs_b_rec IN okc_rule_defs_b_rec_type,
1173: x_okc_rule_defs_b_rec OUT NOCOPY okc_rule_defs_b_rec_type
1174: ) RETURN VARCHAR2 IS
1175: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1176: BEGIN
1177: x_okc_rule_defs_b_rec := p_okc_rule_defs_b_rec;
1173: x_okc_rule_defs_b_rec OUT NOCOPY okc_rule_defs_b_rec_type
1174: ) RETURN VARCHAR2 IS
1175: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1176: BEGIN
1177: x_okc_rule_defs_b_rec := p_okc_rule_defs_b_rec;
1178: RETURN(l_return_status);
1179: END Set_Attributes;
1180: BEGIN
1181: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1188: RAISE OKC_API.G_EXCEPTION_ERROR;
1189: END IF;
1190: --- Setting item atributes
1191: l_return_status := Set_Attributes(
1192: p_okc_rule_defs_b_rec, -- IN
1193: l_okc_rule_defs_b_rec); -- OUT
1194: --- If any errors happen abort API
1195: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1196: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1189: END IF;
1190: --- Setting item atributes
1191: l_return_status := Set_Attributes(
1192: p_okc_rule_defs_b_rec, -- IN
1193: l_okc_rule_defs_b_rec); -- OUT
1194: --- If any errors happen abort API
1195: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1196: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1197: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1196: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1197: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1198: RAISE OKC_API.G_EXCEPTION_ERROR;
1199: END IF;
1200: INSERT INTO OKC_RULE_DEFS_B(
1201: rule_code,
1202: application_id,
1203: descriptive_flexfield_name,
1204: object_version_number,
1207: last_updated_by,
1208: last_update_date,
1209: last_update_login)
1210: VALUES (
1211: l_okc_rule_defs_b_rec.rule_code,
1212: l_okc_rule_defs_b_rec.application_id,
1213: l_okc_rule_defs_b_rec.descriptive_flexfield_name,
1214: l_okc_rule_defs_b_rec.object_version_number,
1215: l_okc_rule_defs_b_rec.created_by,
1208: last_update_date,
1209: last_update_login)
1210: VALUES (
1211: l_okc_rule_defs_b_rec.rule_code,
1212: l_okc_rule_defs_b_rec.application_id,
1213: l_okc_rule_defs_b_rec.descriptive_flexfield_name,
1214: l_okc_rule_defs_b_rec.object_version_number,
1215: l_okc_rule_defs_b_rec.created_by,
1216: l_okc_rule_defs_b_rec.creation_date,
1209: last_update_login)
1210: VALUES (
1211: l_okc_rule_defs_b_rec.rule_code,
1212: l_okc_rule_defs_b_rec.application_id,
1213: l_okc_rule_defs_b_rec.descriptive_flexfield_name,
1214: l_okc_rule_defs_b_rec.object_version_number,
1215: l_okc_rule_defs_b_rec.created_by,
1216: l_okc_rule_defs_b_rec.creation_date,
1217: l_okc_rule_defs_b_rec.last_updated_by,
1210: VALUES (
1211: l_okc_rule_defs_b_rec.rule_code,
1212: l_okc_rule_defs_b_rec.application_id,
1213: l_okc_rule_defs_b_rec.descriptive_flexfield_name,
1214: l_okc_rule_defs_b_rec.object_version_number,
1215: l_okc_rule_defs_b_rec.created_by,
1216: l_okc_rule_defs_b_rec.creation_date,
1217: l_okc_rule_defs_b_rec.last_updated_by,
1218: l_okc_rule_defs_b_rec.last_update_date,
1211: l_okc_rule_defs_b_rec.rule_code,
1212: l_okc_rule_defs_b_rec.application_id,
1213: l_okc_rule_defs_b_rec.descriptive_flexfield_name,
1214: l_okc_rule_defs_b_rec.object_version_number,
1215: l_okc_rule_defs_b_rec.created_by,
1216: l_okc_rule_defs_b_rec.creation_date,
1217: l_okc_rule_defs_b_rec.last_updated_by,
1218: l_okc_rule_defs_b_rec.last_update_date,
1219: l_okc_rule_defs_b_rec.last_update_login);
1212: l_okc_rule_defs_b_rec.application_id,
1213: l_okc_rule_defs_b_rec.descriptive_flexfield_name,
1214: l_okc_rule_defs_b_rec.object_version_number,
1215: l_okc_rule_defs_b_rec.created_by,
1216: l_okc_rule_defs_b_rec.creation_date,
1217: l_okc_rule_defs_b_rec.last_updated_by,
1218: l_okc_rule_defs_b_rec.last_update_date,
1219: l_okc_rule_defs_b_rec.last_update_login);
1220: -- Set OUT values
1213: l_okc_rule_defs_b_rec.descriptive_flexfield_name,
1214: l_okc_rule_defs_b_rec.object_version_number,
1215: l_okc_rule_defs_b_rec.created_by,
1216: l_okc_rule_defs_b_rec.creation_date,
1217: l_okc_rule_defs_b_rec.last_updated_by,
1218: l_okc_rule_defs_b_rec.last_update_date,
1219: l_okc_rule_defs_b_rec.last_update_login);
1220: -- Set OUT values
1221: x_okc_rule_defs_b_rec := l_okc_rule_defs_b_rec;
1214: l_okc_rule_defs_b_rec.object_version_number,
1215: l_okc_rule_defs_b_rec.created_by,
1216: l_okc_rule_defs_b_rec.creation_date,
1217: l_okc_rule_defs_b_rec.last_updated_by,
1218: l_okc_rule_defs_b_rec.last_update_date,
1219: l_okc_rule_defs_b_rec.last_update_login);
1220: -- Set OUT values
1221: x_okc_rule_defs_b_rec := l_okc_rule_defs_b_rec;
1222: x_return_status := l_return_status;
1215: l_okc_rule_defs_b_rec.created_by,
1216: l_okc_rule_defs_b_rec.creation_date,
1217: l_okc_rule_defs_b_rec.last_updated_by,
1218: l_okc_rule_defs_b_rec.last_update_date,
1219: l_okc_rule_defs_b_rec.last_update_login);
1220: -- Set OUT values
1221: x_okc_rule_defs_b_rec := l_okc_rule_defs_b_rec;
1222: x_return_status := l_return_status;
1223: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1217: l_okc_rule_defs_b_rec.last_updated_by,
1218: l_okc_rule_defs_b_rec.last_update_date,
1219: l_okc_rule_defs_b_rec.last_update_login);
1220: -- Set OUT values
1221: x_okc_rule_defs_b_rec := l_okc_rule_defs_b_rec;
1222: x_return_status := l_return_status;
1223: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1224: EXCEPTION
1225: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1386: l_api_name CONSTANT VARCHAR2(30) := 'V_insert_row';
1387: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1388: l_okc_rule_defs_v_rec okc_rule_defs_v_rec_type := p_okc_rule_defs_v_rec;
1389: l_def_okc_rule_defs_v_rec okc_rule_defs_v_rec_type;
1390: l_okc_rule_defs_b_rec okc_rule_defs_b_rec_type;
1391: lx_okc_rule_defs_b_rec okc_rule_defs_b_rec_type;
1392: l_okc_rule_defs_tl_rec okc_rule_defs_tl_rec_type;
1393: lx_okc_rule_defs_tl_rec okc_rule_defs_tl_rec_type;
1394: -------------------------------
1387: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1388: l_okc_rule_defs_v_rec okc_rule_defs_v_rec_type := p_okc_rule_defs_v_rec;
1389: l_def_okc_rule_defs_v_rec okc_rule_defs_v_rec_type;
1390: l_okc_rule_defs_b_rec okc_rule_defs_b_rec_type;
1391: lx_okc_rule_defs_b_rec okc_rule_defs_b_rec_type;
1392: l_okc_rule_defs_tl_rec okc_rule_defs_tl_rec_type;
1393: lx_okc_rule_defs_tl_rec okc_rule_defs_tl_rec_type;
1394: -------------------------------
1395: -- FUNCTION fill_who_columns --
1464: END IF;
1465: -----------------------------------------
1466: -- Move VIEW record to "Child" records --
1467: -----------------------------------------
1468: migrate(l_def_okc_rule_defs_v_rec, l_okc_rule_defs_b_rec);
1469: migrate(l_def_okc_rule_defs_v_rec, l_okc_rule_defs_tl_rec);
1470: -----------------------------------------------
1471: -- Call the INSERT_ROW for each child record --
1472: -----------------------------------------------
1474: p_init_msg_list,
1475: l_return_status,
1476: x_msg_count,
1477: x_msg_data,
1478: l_okc_rule_defs_b_rec,
1479: lx_okc_rule_defs_b_rec
1480: );
1481: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1482: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1475: l_return_status,
1476: x_msg_count,
1477: x_msg_data,
1478: l_okc_rule_defs_b_rec,
1479: lx_okc_rule_defs_b_rec
1480: );
1481: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1482: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1483: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1482: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1483: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1484: RAISE OKC_API.G_EXCEPTION_ERROR;
1485: END IF;
1486: migrate(lx_okc_rule_defs_b_rec, l_def_okc_rule_defs_v_rec);
1487: insert_row(
1488: p_init_msg_list,
1489: l_return_status,
1490: x_msg_count,
1699: ---------------------------------------------------------------------------
1700: -- PROCEDURE lock_row
1701: ---------------------------------------------------------------------------
1702: ----------------------------------
1703: -- lock_row for:OKC_RULE_DEFS_B --
1704: ----------------------------------
1705: PROCEDURE lock_row(
1706: p_init_msg_list IN VARCHAR2,
1707: x_return_status OUT NOCOPY VARCHAR2,
1706: p_init_msg_list IN VARCHAR2,
1707: x_return_status OUT NOCOPY VARCHAR2,
1708: x_msg_count OUT NOCOPY NUMBER,
1709: x_msg_data OUT NOCOPY VARCHAR2,
1710: p_okc_rule_defs_b_rec IN okc_rule_defs_b_rec_type) IS
1711:
1712: E_Resource_Busy EXCEPTION;
1713: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
1714: CURSOR lock_csr (p_okc_rule_defs_b_rec IN okc_rule_defs_b_rec_type) IS
1710: p_okc_rule_defs_b_rec IN okc_rule_defs_b_rec_type) IS
1711:
1712: E_Resource_Busy EXCEPTION;
1713: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
1714: CURSOR lock_csr (p_okc_rule_defs_b_rec IN okc_rule_defs_b_rec_type) IS
1715: SELECT OBJECT_VERSION_NUMBER
1716: FROM OKC_RULE_DEFS_B
1717: WHERE RULE_CODE = p_okc_rule_defs_b_rec.rule_code
1718: AND OBJECT_VERSION_NUMBER = p_okc_rule_defs_b_rec.object_version_number
1712: E_Resource_Busy EXCEPTION;
1713: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
1714: CURSOR lock_csr (p_okc_rule_defs_b_rec IN okc_rule_defs_b_rec_type) IS
1715: SELECT OBJECT_VERSION_NUMBER
1716: FROM OKC_RULE_DEFS_B
1717: WHERE RULE_CODE = p_okc_rule_defs_b_rec.rule_code
1718: AND OBJECT_VERSION_NUMBER = p_okc_rule_defs_b_rec.object_version_number
1719: FOR UPDATE OF OBJECT_VERSION_NUMBER NOWAIT;
1720:
1713: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
1714: CURSOR lock_csr (p_okc_rule_defs_b_rec IN okc_rule_defs_b_rec_type) IS
1715: SELECT OBJECT_VERSION_NUMBER
1716: FROM OKC_RULE_DEFS_B
1717: WHERE RULE_CODE = p_okc_rule_defs_b_rec.rule_code
1718: AND OBJECT_VERSION_NUMBER = p_okc_rule_defs_b_rec.object_version_number
1719: FOR UPDATE OF OBJECT_VERSION_NUMBER NOWAIT;
1720:
1721: CURSOR lchk_csr (p_okc_rule_defs_b_rec IN okc_rule_defs_b_rec_type) IS
1714: CURSOR lock_csr (p_okc_rule_defs_b_rec IN okc_rule_defs_b_rec_type) IS
1715: SELECT OBJECT_VERSION_NUMBER
1716: FROM OKC_RULE_DEFS_B
1717: WHERE RULE_CODE = p_okc_rule_defs_b_rec.rule_code
1718: AND OBJECT_VERSION_NUMBER = p_okc_rule_defs_b_rec.object_version_number
1719: FOR UPDATE OF OBJECT_VERSION_NUMBER NOWAIT;
1720:
1721: CURSOR lchk_csr (p_okc_rule_defs_b_rec IN okc_rule_defs_b_rec_type) IS
1722: SELECT OBJECT_VERSION_NUMBER
1717: WHERE RULE_CODE = p_okc_rule_defs_b_rec.rule_code
1718: AND OBJECT_VERSION_NUMBER = p_okc_rule_defs_b_rec.object_version_number
1719: FOR UPDATE OF OBJECT_VERSION_NUMBER NOWAIT;
1720:
1721: CURSOR lchk_csr (p_okc_rule_defs_b_rec IN okc_rule_defs_b_rec_type) IS
1722: SELECT OBJECT_VERSION_NUMBER
1723: FROM OKC_RULE_DEFS_B
1724: WHERE RULE_CODE = p_okc_rule_defs_b_rec.rule_code;
1725: l_api_version CONSTANT NUMBER := 1;
1719: FOR UPDATE OF OBJECT_VERSION_NUMBER NOWAIT;
1720:
1721: CURSOR lchk_csr (p_okc_rule_defs_b_rec IN okc_rule_defs_b_rec_type) IS
1722: SELECT OBJECT_VERSION_NUMBER
1723: FROM OKC_RULE_DEFS_B
1724: WHERE RULE_CODE = p_okc_rule_defs_b_rec.rule_code;
1725: l_api_version CONSTANT NUMBER := 1;
1726: l_api_name CONSTANT VARCHAR2(30) := 'B_lock_row';
1727: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1720:
1721: CURSOR lchk_csr (p_okc_rule_defs_b_rec IN okc_rule_defs_b_rec_type) IS
1722: SELECT OBJECT_VERSION_NUMBER
1723: FROM OKC_RULE_DEFS_B
1724: WHERE RULE_CODE = p_okc_rule_defs_b_rec.rule_code;
1725: l_api_version CONSTANT NUMBER := 1;
1726: l_api_name CONSTANT VARCHAR2(30) := 'B_lock_row';
1727: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1728: l_object_version_number OKC_RULE_DEFS_B.OBJECT_VERSION_NUMBER%TYPE;
1724: WHERE RULE_CODE = p_okc_rule_defs_b_rec.rule_code;
1725: l_api_version CONSTANT NUMBER := 1;
1726: l_api_name CONSTANT VARCHAR2(30) := 'B_lock_row';
1727: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1728: l_object_version_number OKC_RULE_DEFS_B.OBJECT_VERSION_NUMBER%TYPE;
1729: lc_object_version_number OKC_RULE_DEFS_B.OBJECT_VERSION_NUMBER%TYPE;
1730: l_row_notfound BOOLEAN := FALSE;
1731: lc_row_notfound BOOLEAN := FALSE;
1732: BEGIN
1725: l_api_version CONSTANT NUMBER := 1;
1726: l_api_name CONSTANT VARCHAR2(30) := 'B_lock_row';
1727: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1728: l_object_version_number OKC_RULE_DEFS_B.OBJECT_VERSION_NUMBER%TYPE;
1729: lc_object_version_number OKC_RULE_DEFS_B.OBJECT_VERSION_NUMBER%TYPE;
1730: l_row_notfound BOOLEAN := FALSE;
1731: lc_row_notfound BOOLEAN := FALSE;
1732: BEGIN
1733: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1739: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1740: RAISE OKC_API.G_EXCEPTION_ERROR;
1741: END IF;
1742: BEGIN
1743: OPEN lock_csr(p_okc_rule_defs_b_rec);
1744: FETCH lock_csr INTO l_object_version_number;
1745: l_row_notfound := lock_csr%NOTFOUND;
1746: CLOSE lock_csr;
1747: EXCEPTION
1753: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
1754: END;
1755:
1756: IF ( l_row_notfound ) THEN
1757: OPEN lchk_csr(p_okc_rule_defs_b_rec);
1758: FETCH lchk_csr INTO lc_object_version_number;
1759: lc_row_notfound := lchk_csr%NOTFOUND;
1760: CLOSE lchk_csr;
1761: END IF;
1761: END IF;
1762: IF (lc_row_notfound) THEN
1763: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1764: RAISE OKC_API.G_EXCEPTION_ERROR;
1765: ELSIF lc_object_version_number > p_okc_rule_defs_b_rec.object_version_number THEN
1766: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1767: RAISE OKC_API.G_EXCEPTION_ERROR;
1768: ELSIF lc_object_version_number <> p_okc_rule_defs_b_rec.object_version_number THEN
1769: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1764: RAISE OKC_API.G_EXCEPTION_ERROR;
1765: ELSIF lc_object_version_number > p_okc_rule_defs_b_rec.object_version_number THEN
1766: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1767: RAISE OKC_API.G_EXCEPTION_ERROR;
1768: ELSIF lc_object_version_number <> p_okc_rule_defs_b_rec.object_version_number THEN
1769: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1770: RAISE OKC_API.G_EXCEPTION_ERROR;
1771: ELSIF lc_object_version_number = -1 THEN
1772: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1905:
1906: l_api_version CONSTANT NUMBER := 1;
1907: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
1908: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1909: l_okc_rule_defs_b_rec okc_rule_defs_b_rec_type;
1910: l_okc_rule_defs_tl_rec okc_rule_defs_tl_rec_type;
1911: BEGIN
1912: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1913: G_PKG_NAME,
1923: END IF;
1924: -----------------------------------------
1925: -- Move VIEW record to "Child" records --
1926: -----------------------------------------
1927: migrate(p_okc_rule_defs_v_rec, l_okc_rule_defs_b_rec);
1928: migrate(p_okc_rule_defs_v_rec, l_okc_rule_defs_tl_rec);
1929: ---------------------------------------------
1930: -- Call the LOCK_ROW for each child record --
1931: ---------------------------------------------
1933: p_init_msg_list,
1934: l_return_status,
1935: x_msg_count,
1936: x_msg_data,
1937: l_okc_rule_defs_b_rec
1938: );
1939: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1940: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1941: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2146: ---------------------------------------------------------------------------
2147: -- PROCEDURE update_row
2148: ---------------------------------------------------------------------------
2149: ------------------------------------
2150: -- update_row for:OKC_RULE_DEFS_B --
2151: ------------------------------------
2152: PROCEDURE update_row(
2153: p_init_msg_list IN VARCHAR2,
2154: x_return_status OUT NOCOPY VARCHAR2,
2153: p_init_msg_list IN VARCHAR2,
2154: x_return_status OUT NOCOPY VARCHAR2,
2155: x_msg_count OUT NOCOPY NUMBER,
2156: x_msg_data OUT NOCOPY VARCHAR2,
2157: p_okc_rule_defs_b_rec IN okc_rule_defs_b_rec_type,
2158: x_okc_rule_defs_b_rec OUT NOCOPY okc_rule_defs_b_rec_type) IS
2159:
2160: l_api_version CONSTANT NUMBER := 1;
2161: l_api_name CONSTANT VARCHAR2(30) := 'B_update_row';
2154: x_return_status OUT NOCOPY VARCHAR2,
2155: x_msg_count OUT NOCOPY NUMBER,
2156: x_msg_data OUT NOCOPY VARCHAR2,
2157: p_okc_rule_defs_b_rec IN okc_rule_defs_b_rec_type,
2158: x_okc_rule_defs_b_rec OUT NOCOPY okc_rule_defs_b_rec_type) IS
2159:
2160: l_api_version CONSTANT NUMBER := 1;
2161: l_api_name CONSTANT VARCHAR2(30) := 'B_update_row';
2162: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2159:
2160: l_api_version CONSTANT NUMBER := 1;
2161: l_api_name CONSTANT VARCHAR2(30) := 'B_update_row';
2162: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2163: l_okc_rule_defs_b_rec okc_rule_defs_b_rec_type := p_okc_rule_defs_b_rec;
2164: l_def_okc_rule_defs_b_rec okc_rule_defs_b_rec_type;
2165: l_row_notfound BOOLEAN := TRUE;
2166: ----------------------------------
2167: -- FUNCTION populate_new_record --
2160: l_api_version CONSTANT NUMBER := 1;
2161: l_api_name CONSTANT VARCHAR2(30) := 'B_update_row';
2162: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2163: l_okc_rule_defs_b_rec okc_rule_defs_b_rec_type := p_okc_rule_defs_b_rec;
2164: l_def_okc_rule_defs_b_rec okc_rule_defs_b_rec_type;
2165: l_row_notfound BOOLEAN := TRUE;
2166: ----------------------------------
2167: -- FUNCTION populate_new_record --
2168: ----------------------------------
2166: ----------------------------------
2167: -- FUNCTION populate_new_record --
2168: ----------------------------------
2169: FUNCTION populate_new_record (
2170: p_okc_rule_defs_b_rec IN okc_rule_defs_b_rec_type,
2171: x_okc_rule_defs_b_rec OUT NOCOPY okc_rule_defs_b_rec_type
2172: ) RETURN VARCHAR2 IS
2173: l_okc_rule_defs_b_rec okc_rule_defs_b_rec_type;
2174: l_row_notfound BOOLEAN := TRUE;
2167: -- FUNCTION populate_new_record --
2168: ----------------------------------
2169: FUNCTION populate_new_record (
2170: p_okc_rule_defs_b_rec IN okc_rule_defs_b_rec_type,
2171: x_okc_rule_defs_b_rec OUT NOCOPY okc_rule_defs_b_rec_type
2172: ) RETURN VARCHAR2 IS
2173: l_okc_rule_defs_b_rec okc_rule_defs_b_rec_type;
2174: l_row_notfound BOOLEAN := TRUE;
2175: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2169: FUNCTION populate_new_record (
2170: p_okc_rule_defs_b_rec IN okc_rule_defs_b_rec_type,
2171: x_okc_rule_defs_b_rec OUT NOCOPY okc_rule_defs_b_rec_type
2172: ) RETURN VARCHAR2 IS
2173: l_okc_rule_defs_b_rec okc_rule_defs_b_rec_type;
2174: l_row_notfound BOOLEAN := TRUE;
2175: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2176: BEGIN
2177: x_okc_rule_defs_b_rec := p_okc_rule_defs_b_rec;
2173: l_okc_rule_defs_b_rec okc_rule_defs_b_rec_type;
2174: l_row_notfound BOOLEAN := TRUE;
2175: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2176: BEGIN
2177: x_okc_rule_defs_b_rec := p_okc_rule_defs_b_rec;
2178: -- Get current database values
2179: l_okc_rule_defs_b_rec := get_rec(p_okc_rule_defs_b_rec, l_return_status);
2180: IF (l_return_status = OKC_API.G_RET_STS_SUCCESS) THEN
2181: IF (x_okc_rule_defs_b_rec.rule_code = OKC_API.G_MISS_CHAR)
2175: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2176: BEGIN
2177: x_okc_rule_defs_b_rec := p_okc_rule_defs_b_rec;
2178: -- Get current database values
2179: l_okc_rule_defs_b_rec := get_rec(p_okc_rule_defs_b_rec, l_return_status);
2180: IF (l_return_status = OKC_API.G_RET_STS_SUCCESS) THEN
2181: IF (x_okc_rule_defs_b_rec.rule_code = OKC_API.G_MISS_CHAR)
2182: THEN
2183: x_okc_rule_defs_b_rec.rule_code := l_okc_rule_defs_b_rec.rule_code;
2177: x_okc_rule_defs_b_rec := p_okc_rule_defs_b_rec;
2178: -- Get current database values
2179: l_okc_rule_defs_b_rec := get_rec(p_okc_rule_defs_b_rec, l_return_status);
2180: IF (l_return_status = OKC_API.G_RET_STS_SUCCESS) THEN
2181: IF (x_okc_rule_defs_b_rec.rule_code = OKC_API.G_MISS_CHAR)
2182: THEN
2183: x_okc_rule_defs_b_rec.rule_code := l_okc_rule_defs_b_rec.rule_code;
2184: END IF;
2185: IF (x_okc_rule_defs_b_rec.application_id = OKC_API.G_MISS_NUM)
2179: l_okc_rule_defs_b_rec := get_rec(p_okc_rule_defs_b_rec, l_return_status);
2180: IF (l_return_status = OKC_API.G_RET_STS_SUCCESS) THEN
2181: IF (x_okc_rule_defs_b_rec.rule_code = OKC_API.G_MISS_CHAR)
2182: THEN
2183: x_okc_rule_defs_b_rec.rule_code := l_okc_rule_defs_b_rec.rule_code;
2184: END IF;
2185: IF (x_okc_rule_defs_b_rec.application_id = OKC_API.G_MISS_NUM)
2186: THEN
2187: x_okc_rule_defs_b_rec.application_id := l_okc_rule_defs_b_rec.application_id;
2181: IF (x_okc_rule_defs_b_rec.rule_code = OKC_API.G_MISS_CHAR)
2182: THEN
2183: x_okc_rule_defs_b_rec.rule_code := l_okc_rule_defs_b_rec.rule_code;
2184: END IF;
2185: IF (x_okc_rule_defs_b_rec.application_id = OKC_API.G_MISS_NUM)
2186: THEN
2187: x_okc_rule_defs_b_rec.application_id := l_okc_rule_defs_b_rec.application_id;
2188: END IF;
2189: IF (x_okc_rule_defs_b_rec.descriptive_flexfield_name = OKC_API.G_MISS_CHAR)
2183: x_okc_rule_defs_b_rec.rule_code := l_okc_rule_defs_b_rec.rule_code;
2184: END IF;
2185: IF (x_okc_rule_defs_b_rec.application_id = OKC_API.G_MISS_NUM)
2186: THEN
2187: x_okc_rule_defs_b_rec.application_id := l_okc_rule_defs_b_rec.application_id;
2188: END IF;
2189: IF (x_okc_rule_defs_b_rec.descriptive_flexfield_name = OKC_API.G_MISS_CHAR)
2190: THEN
2191: x_okc_rule_defs_b_rec.descriptive_flexfield_name := l_okc_rule_defs_b_rec.descriptive_flexfield_name;
2185: IF (x_okc_rule_defs_b_rec.application_id = OKC_API.G_MISS_NUM)
2186: THEN
2187: x_okc_rule_defs_b_rec.application_id := l_okc_rule_defs_b_rec.application_id;
2188: END IF;
2189: IF (x_okc_rule_defs_b_rec.descriptive_flexfield_name = OKC_API.G_MISS_CHAR)
2190: THEN
2191: x_okc_rule_defs_b_rec.descriptive_flexfield_name := l_okc_rule_defs_b_rec.descriptive_flexfield_name;
2192: END IF;
2193: IF (x_okc_rule_defs_b_rec.object_version_number = OKC_API.G_MISS_NUM)
2187: x_okc_rule_defs_b_rec.application_id := l_okc_rule_defs_b_rec.application_id;
2188: END IF;
2189: IF (x_okc_rule_defs_b_rec.descriptive_flexfield_name = OKC_API.G_MISS_CHAR)
2190: THEN
2191: x_okc_rule_defs_b_rec.descriptive_flexfield_name := l_okc_rule_defs_b_rec.descriptive_flexfield_name;
2192: END IF;
2193: IF (x_okc_rule_defs_b_rec.object_version_number = OKC_API.G_MISS_NUM)
2194: THEN
2195: x_okc_rule_defs_b_rec.object_version_number := l_okc_rule_defs_b_rec.object_version_number;
2189: IF (x_okc_rule_defs_b_rec.descriptive_flexfield_name = OKC_API.G_MISS_CHAR)
2190: THEN
2191: x_okc_rule_defs_b_rec.descriptive_flexfield_name := l_okc_rule_defs_b_rec.descriptive_flexfield_name;
2192: END IF;
2193: IF (x_okc_rule_defs_b_rec.object_version_number = OKC_API.G_MISS_NUM)
2194: THEN
2195: x_okc_rule_defs_b_rec.object_version_number := l_okc_rule_defs_b_rec.object_version_number;
2196: END IF;
2197: IF (x_okc_rule_defs_b_rec.created_by = OKC_API.G_MISS_NUM)
2191: x_okc_rule_defs_b_rec.descriptive_flexfield_name := l_okc_rule_defs_b_rec.descriptive_flexfield_name;
2192: END IF;
2193: IF (x_okc_rule_defs_b_rec.object_version_number = OKC_API.G_MISS_NUM)
2194: THEN
2195: x_okc_rule_defs_b_rec.object_version_number := l_okc_rule_defs_b_rec.object_version_number;
2196: END IF;
2197: IF (x_okc_rule_defs_b_rec.created_by = OKC_API.G_MISS_NUM)
2198: THEN
2199: x_okc_rule_defs_b_rec.created_by := l_okc_rule_defs_b_rec.created_by;
2193: IF (x_okc_rule_defs_b_rec.object_version_number = OKC_API.G_MISS_NUM)
2194: THEN
2195: x_okc_rule_defs_b_rec.object_version_number := l_okc_rule_defs_b_rec.object_version_number;
2196: END IF;
2197: IF (x_okc_rule_defs_b_rec.created_by = OKC_API.G_MISS_NUM)
2198: THEN
2199: x_okc_rule_defs_b_rec.created_by := l_okc_rule_defs_b_rec.created_by;
2200: END IF;
2201: IF (x_okc_rule_defs_b_rec.creation_date = OKC_API.G_MISS_DATE)
2195: x_okc_rule_defs_b_rec.object_version_number := l_okc_rule_defs_b_rec.object_version_number;
2196: END IF;
2197: IF (x_okc_rule_defs_b_rec.created_by = OKC_API.G_MISS_NUM)
2198: THEN
2199: x_okc_rule_defs_b_rec.created_by := l_okc_rule_defs_b_rec.created_by;
2200: END IF;
2201: IF (x_okc_rule_defs_b_rec.creation_date = OKC_API.G_MISS_DATE)
2202: THEN
2203: x_okc_rule_defs_b_rec.creation_date := l_okc_rule_defs_b_rec.creation_date;
2197: IF (x_okc_rule_defs_b_rec.created_by = OKC_API.G_MISS_NUM)
2198: THEN
2199: x_okc_rule_defs_b_rec.created_by := l_okc_rule_defs_b_rec.created_by;
2200: END IF;
2201: IF (x_okc_rule_defs_b_rec.creation_date = OKC_API.G_MISS_DATE)
2202: THEN
2203: x_okc_rule_defs_b_rec.creation_date := l_okc_rule_defs_b_rec.creation_date;
2204: END IF;
2205: IF (x_okc_rule_defs_b_rec.last_updated_by = OKC_API.G_MISS_NUM)
2199: x_okc_rule_defs_b_rec.created_by := l_okc_rule_defs_b_rec.created_by;
2200: END IF;
2201: IF (x_okc_rule_defs_b_rec.creation_date = OKC_API.G_MISS_DATE)
2202: THEN
2203: x_okc_rule_defs_b_rec.creation_date := l_okc_rule_defs_b_rec.creation_date;
2204: END IF;
2205: IF (x_okc_rule_defs_b_rec.last_updated_by = OKC_API.G_MISS_NUM)
2206: THEN
2207: x_okc_rule_defs_b_rec.last_updated_by := l_okc_rule_defs_b_rec.last_updated_by;
2201: IF (x_okc_rule_defs_b_rec.creation_date = OKC_API.G_MISS_DATE)
2202: THEN
2203: x_okc_rule_defs_b_rec.creation_date := l_okc_rule_defs_b_rec.creation_date;
2204: END IF;
2205: IF (x_okc_rule_defs_b_rec.last_updated_by = OKC_API.G_MISS_NUM)
2206: THEN
2207: x_okc_rule_defs_b_rec.last_updated_by := l_okc_rule_defs_b_rec.last_updated_by;
2208: END IF;
2209: IF (x_okc_rule_defs_b_rec.last_update_date = OKC_API.G_MISS_DATE)
2203: x_okc_rule_defs_b_rec.creation_date := l_okc_rule_defs_b_rec.creation_date;
2204: END IF;
2205: IF (x_okc_rule_defs_b_rec.last_updated_by = OKC_API.G_MISS_NUM)
2206: THEN
2207: x_okc_rule_defs_b_rec.last_updated_by := l_okc_rule_defs_b_rec.last_updated_by;
2208: END IF;
2209: IF (x_okc_rule_defs_b_rec.last_update_date = OKC_API.G_MISS_DATE)
2210: THEN
2211: x_okc_rule_defs_b_rec.last_update_date := l_okc_rule_defs_b_rec.last_update_date;
2205: IF (x_okc_rule_defs_b_rec.last_updated_by = OKC_API.G_MISS_NUM)
2206: THEN
2207: x_okc_rule_defs_b_rec.last_updated_by := l_okc_rule_defs_b_rec.last_updated_by;
2208: END IF;
2209: IF (x_okc_rule_defs_b_rec.last_update_date = OKC_API.G_MISS_DATE)
2210: THEN
2211: x_okc_rule_defs_b_rec.last_update_date := l_okc_rule_defs_b_rec.last_update_date;
2212: END IF;
2213: IF (x_okc_rule_defs_b_rec.last_update_login = OKC_API.G_MISS_NUM)
2207: x_okc_rule_defs_b_rec.last_updated_by := l_okc_rule_defs_b_rec.last_updated_by;
2208: END IF;
2209: IF (x_okc_rule_defs_b_rec.last_update_date = OKC_API.G_MISS_DATE)
2210: THEN
2211: x_okc_rule_defs_b_rec.last_update_date := l_okc_rule_defs_b_rec.last_update_date;
2212: END IF;
2213: IF (x_okc_rule_defs_b_rec.last_update_login = OKC_API.G_MISS_NUM)
2214: THEN
2215: x_okc_rule_defs_b_rec.last_update_login := l_okc_rule_defs_b_rec.last_update_login;
2209: IF (x_okc_rule_defs_b_rec.last_update_date = OKC_API.G_MISS_DATE)
2210: THEN
2211: x_okc_rule_defs_b_rec.last_update_date := l_okc_rule_defs_b_rec.last_update_date;
2212: END IF;
2213: IF (x_okc_rule_defs_b_rec.last_update_login = OKC_API.G_MISS_NUM)
2214: THEN
2215: x_okc_rule_defs_b_rec.last_update_login := l_okc_rule_defs_b_rec.last_update_login;
2216: END IF;
2217: END IF;
2211: x_okc_rule_defs_b_rec.last_update_date := l_okc_rule_defs_b_rec.last_update_date;
2212: END IF;
2213: IF (x_okc_rule_defs_b_rec.last_update_login = OKC_API.G_MISS_NUM)
2214: THEN
2215: x_okc_rule_defs_b_rec.last_update_login := l_okc_rule_defs_b_rec.last_update_login;
2216: END IF;
2217: END IF;
2218: RETURN(l_return_status);
2219: END populate_new_record;
2217: END IF;
2218: RETURN(l_return_status);
2219: END populate_new_record;
2220: ----------------------------------------
2221: -- Set_Attributes for:OKC_RULE_DEFS_B --
2222: ----------------------------------------
2223: FUNCTION Set_Attributes (
2224: p_okc_rule_defs_b_rec IN okc_rule_defs_b_rec_type,
2225: x_okc_rule_defs_b_rec OUT NOCOPY okc_rule_defs_b_rec_type
2220: ----------------------------------------
2221: -- Set_Attributes for:OKC_RULE_DEFS_B --
2222: ----------------------------------------
2223: FUNCTION Set_Attributes (
2224: p_okc_rule_defs_b_rec IN okc_rule_defs_b_rec_type,
2225: x_okc_rule_defs_b_rec OUT NOCOPY okc_rule_defs_b_rec_type
2226: ) RETURN VARCHAR2 IS
2227: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2228: BEGIN
2221: -- Set_Attributes for:OKC_RULE_DEFS_B --
2222: ----------------------------------------
2223: FUNCTION Set_Attributes (
2224: p_okc_rule_defs_b_rec IN okc_rule_defs_b_rec_type,
2225: x_okc_rule_defs_b_rec OUT NOCOPY okc_rule_defs_b_rec_type
2226: ) RETURN VARCHAR2 IS
2227: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2228: BEGIN
2229: x_okc_rule_defs_b_rec := p_okc_rule_defs_b_rec;
2225: x_okc_rule_defs_b_rec OUT NOCOPY okc_rule_defs_b_rec_type
2226: ) RETURN VARCHAR2 IS
2227: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2228: BEGIN
2229: x_okc_rule_defs_b_rec := p_okc_rule_defs_b_rec;
2230: x_okc_rule_defs_b_rec.OBJECT_VERSION_NUMBER := p_okc_rule_defs_b_rec.OBJECT_VERSION_NUMBER + 1;
2231: RETURN(l_return_status);
2232: END Set_Attributes;
2233: BEGIN
2226: ) RETURN VARCHAR2 IS
2227: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2228: BEGIN
2229: x_okc_rule_defs_b_rec := p_okc_rule_defs_b_rec;
2230: x_okc_rule_defs_b_rec.OBJECT_VERSION_NUMBER := p_okc_rule_defs_b_rec.OBJECT_VERSION_NUMBER + 1;
2231: RETURN(l_return_status);
2232: END Set_Attributes;
2233: BEGIN
2234: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2241: RAISE OKC_API.G_EXCEPTION_ERROR;
2242: END IF;
2243: --- Setting item attributes
2244: l_return_status := Set_Attributes(
2245: p_okc_rule_defs_b_rec, -- IN
2246: l_okc_rule_defs_b_rec); -- OUT
2247: --- If any errors happen abort API
2248: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2249: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2242: END IF;
2243: --- Setting item attributes
2244: l_return_status := Set_Attributes(
2245: p_okc_rule_defs_b_rec, -- IN
2246: l_okc_rule_defs_b_rec); -- OUT
2247: --- If any errors happen abort API
2248: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2249: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2250: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2249: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2250: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2251: RAISE OKC_API.G_EXCEPTION_ERROR;
2252: END IF;
2253: l_return_status := populate_new_record(l_okc_rule_defs_b_rec, l_def_okc_rule_defs_b_rec);
2254: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2255: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2256: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2257: RAISE OKC_API.G_EXCEPTION_ERROR;
2255: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2256: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2257: RAISE OKC_API.G_EXCEPTION_ERROR;
2258: END IF;
2259: UPDATE OKC_RULE_DEFS_B
2260: SET APPLICATION_ID = l_def_okc_rule_defs_b_rec.application_id,
2261: DESCRIPTIVE_FLEXFIELD_NAME = l_def_okc_rule_defs_b_rec.descriptive_flexfield_name,
2262: OBJECT_VERSION_NUMBER = l_def_okc_rule_defs_b_rec.object_version_number,
2263: CREATED_BY = l_def_okc_rule_defs_b_rec.created_by,
2256: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2257: RAISE OKC_API.G_EXCEPTION_ERROR;
2258: END IF;
2259: UPDATE OKC_RULE_DEFS_B
2260: SET APPLICATION_ID = l_def_okc_rule_defs_b_rec.application_id,
2261: DESCRIPTIVE_FLEXFIELD_NAME = l_def_okc_rule_defs_b_rec.descriptive_flexfield_name,
2262: OBJECT_VERSION_NUMBER = l_def_okc_rule_defs_b_rec.object_version_number,
2263: CREATED_BY = l_def_okc_rule_defs_b_rec.created_by,
2264: CREATION_DATE = l_def_okc_rule_defs_b_rec.creation_date,
2257: RAISE OKC_API.G_EXCEPTION_ERROR;
2258: END IF;
2259: UPDATE OKC_RULE_DEFS_B
2260: SET APPLICATION_ID = l_def_okc_rule_defs_b_rec.application_id,
2261: DESCRIPTIVE_FLEXFIELD_NAME = l_def_okc_rule_defs_b_rec.descriptive_flexfield_name,
2262: OBJECT_VERSION_NUMBER = l_def_okc_rule_defs_b_rec.object_version_number,
2263: CREATED_BY = l_def_okc_rule_defs_b_rec.created_by,
2264: CREATION_DATE = l_def_okc_rule_defs_b_rec.creation_date,
2265: LAST_UPDATED_BY = l_def_okc_rule_defs_b_rec.last_updated_by,
2258: END IF;
2259: UPDATE OKC_RULE_DEFS_B
2260: SET APPLICATION_ID = l_def_okc_rule_defs_b_rec.application_id,
2261: DESCRIPTIVE_FLEXFIELD_NAME = l_def_okc_rule_defs_b_rec.descriptive_flexfield_name,
2262: OBJECT_VERSION_NUMBER = l_def_okc_rule_defs_b_rec.object_version_number,
2263: CREATED_BY = l_def_okc_rule_defs_b_rec.created_by,
2264: CREATION_DATE = l_def_okc_rule_defs_b_rec.creation_date,
2265: LAST_UPDATED_BY = l_def_okc_rule_defs_b_rec.last_updated_by,
2266: LAST_UPDATE_DATE = l_def_okc_rule_defs_b_rec.last_update_date,
2259: UPDATE OKC_RULE_DEFS_B
2260: SET APPLICATION_ID = l_def_okc_rule_defs_b_rec.application_id,
2261: DESCRIPTIVE_FLEXFIELD_NAME = l_def_okc_rule_defs_b_rec.descriptive_flexfield_name,
2262: OBJECT_VERSION_NUMBER = l_def_okc_rule_defs_b_rec.object_version_number,
2263: CREATED_BY = l_def_okc_rule_defs_b_rec.created_by,
2264: CREATION_DATE = l_def_okc_rule_defs_b_rec.creation_date,
2265: LAST_UPDATED_BY = l_def_okc_rule_defs_b_rec.last_updated_by,
2266: LAST_UPDATE_DATE = l_def_okc_rule_defs_b_rec.last_update_date,
2267: LAST_UPDATE_LOGIN = l_def_okc_rule_defs_b_rec.last_update_login
2260: SET APPLICATION_ID = l_def_okc_rule_defs_b_rec.application_id,
2261: DESCRIPTIVE_FLEXFIELD_NAME = l_def_okc_rule_defs_b_rec.descriptive_flexfield_name,
2262: OBJECT_VERSION_NUMBER = l_def_okc_rule_defs_b_rec.object_version_number,
2263: CREATED_BY = l_def_okc_rule_defs_b_rec.created_by,
2264: CREATION_DATE = l_def_okc_rule_defs_b_rec.creation_date,
2265: LAST_UPDATED_BY = l_def_okc_rule_defs_b_rec.last_updated_by,
2266: LAST_UPDATE_DATE = l_def_okc_rule_defs_b_rec.last_update_date,
2267: LAST_UPDATE_LOGIN = l_def_okc_rule_defs_b_rec.last_update_login
2268: WHERE RULE_CODE = l_def_okc_rule_defs_b_rec.rule_code;
2261: DESCRIPTIVE_FLEXFIELD_NAME = l_def_okc_rule_defs_b_rec.descriptive_flexfield_name,
2262: OBJECT_VERSION_NUMBER = l_def_okc_rule_defs_b_rec.object_version_number,
2263: CREATED_BY = l_def_okc_rule_defs_b_rec.created_by,
2264: CREATION_DATE = l_def_okc_rule_defs_b_rec.creation_date,
2265: LAST_UPDATED_BY = l_def_okc_rule_defs_b_rec.last_updated_by,
2266: LAST_UPDATE_DATE = l_def_okc_rule_defs_b_rec.last_update_date,
2267: LAST_UPDATE_LOGIN = l_def_okc_rule_defs_b_rec.last_update_login
2268: WHERE RULE_CODE = l_def_okc_rule_defs_b_rec.rule_code;
2269:
2262: OBJECT_VERSION_NUMBER = l_def_okc_rule_defs_b_rec.object_version_number,
2263: CREATED_BY = l_def_okc_rule_defs_b_rec.created_by,
2264: CREATION_DATE = l_def_okc_rule_defs_b_rec.creation_date,
2265: LAST_UPDATED_BY = l_def_okc_rule_defs_b_rec.last_updated_by,
2266: LAST_UPDATE_DATE = l_def_okc_rule_defs_b_rec.last_update_date,
2267: LAST_UPDATE_LOGIN = l_def_okc_rule_defs_b_rec.last_update_login
2268: WHERE RULE_CODE = l_def_okc_rule_defs_b_rec.rule_code;
2269:
2270: x_okc_rule_defs_b_rec := l_okc_rule_defs_b_rec;
2263: CREATED_BY = l_def_okc_rule_defs_b_rec.created_by,
2264: CREATION_DATE = l_def_okc_rule_defs_b_rec.creation_date,
2265: LAST_UPDATED_BY = l_def_okc_rule_defs_b_rec.last_updated_by,
2266: LAST_UPDATE_DATE = l_def_okc_rule_defs_b_rec.last_update_date,
2267: LAST_UPDATE_LOGIN = l_def_okc_rule_defs_b_rec.last_update_login
2268: WHERE RULE_CODE = l_def_okc_rule_defs_b_rec.rule_code;
2269:
2270: x_okc_rule_defs_b_rec := l_okc_rule_defs_b_rec;
2271: x_return_status := l_return_status;
2264: CREATION_DATE = l_def_okc_rule_defs_b_rec.creation_date,
2265: LAST_UPDATED_BY = l_def_okc_rule_defs_b_rec.last_updated_by,
2266: LAST_UPDATE_DATE = l_def_okc_rule_defs_b_rec.last_update_date,
2267: LAST_UPDATE_LOGIN = l_def_okc_rule_defs_b_rec.last_update_login
2268: WHERE RULE_CODE = l_def_okc_rule_defs_b_rec.rule_code;
2269:
2270: x_okc_rule_defs_b_rec := l_okc_rule_defs_b_rec;
2271: x_return_status := l_return_status;
2272: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2266: LAST_UPDATE_DATE = l_def_okc_rule_defs_b_rec.last_update_date,
2267: LAST_UPDATE_LOGIN = l_def_okc_rule_defs_b_rec.last_update_login
2268: WHERE RULE_CODE = l_def_okc_rule_defs_b_rec.rule_code;
2269:
2270: x_okc_rule_defs_b_rec := l_okc_rule_defs_b_rec;
2271: x_return_status := l_return_status;
2272: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2273: EXCEPTION
2274: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2489: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2490: l_okc_rule_defs_v_rec okc_rule_defs_v_rec_type := p_okc_rule_defs_v_rec;
2491: l_def_okc_rule_defs_v_rec okc_rule_defs_v_rec_type;
2492: l_db_okc_rule_defs_v_rec okc_rule_defs_v_rec_type;
2493: l_okc_rule_defs_b_rec okc_rule_defs_b_rec_type;
2494: lx_okc_rule_defs_b_rec okc_rule_defs_b_rec_type;
2495: l_okc_rule_defs_tl_rec okc_rule_defs_tl_rec_type;
2496: lx_okc_rule_defs_tl_rec okc_rule_defs_tl_rec_type;
2497: -------------------------------
2490: l_okc_rule_defs_v_rec okc_rule_defs_v_rec_type := p_okc_rule_defs_v_rec;
2491: l_def_okc_rule_defs_v_rec okc_rule_defs_v_rec_type;
2492: l_db_okc_rule_defs_v_rec okc_rule_defs_v_rec_type;
2493: l_okc_rule_defs_b_rec okc_rule_defs_b_rec_type;
2494: lx_okc_rule_defs_b_rec okc_rule_defs_b_rec_type;
2495: l_okc_rule_defs_tl_rec okc_rule_defs_tl_rec_type;
2496: lx_okc_rule_defs_tl_rec okc_rule_defs_tl_rec_type;
2497: -------------------------------
2498: -- FUNCTION fill_who_columns --
2647:
2648: -----------------------------------------
2649: -- Move VIEW record to "Child" records --
2650: -----------------------------------------
2651: migrate(l_def_okc_rule_defs_v_rec, l_okc_rule_defs_b_rec);
2652: migrate(l_def_okc_rule_defs_v_rec, l_okc_rule_defs_tl_rec);
2653: -----------------------------------------------
2654: -- Call the UPDATE_ROW for each child record --
2655: -----------------------------------------------
2657: p_init_msg_list,
2658: l_return_status,
2659: x_msg_count,
2660: x_msg_data,
2661: l_okc_rule_defs_b_rec,
2662: lx_okc_rule_defs_b_rec
2663: );
2664: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2665: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2658: l_return_status,
2659: x_msg_count,
2660: x_msg_data,
2661: l_okc_rule_defs_b_rec,
2662: lx_okc_rule_defs_b_rec
2663: );
2664: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2665: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2666: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2665: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2666: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2667: RAISE OKC_API.G_EXCEPTION_ERROR;
2668: END IF;
2669: migrate(lx_okc_rule_defs_b_rec, l_def_okc_rule_defs_v_rec);
2670: update_row(
2671: p_init_msg_list,
2672: l_return_status,
2673: x_msg_count,
2881: ---------------------------------------------------------------------------
2882: -- PROCEDURE delete_row
2883: ---------------------------------------------------------------------------
2884: ------------------------------------
2885: -- delete_row for:OKC_RULE_DEFS_B --
2886: ------------------------------------
2887: PROCEDURE delete_row(
2888: p_init_msg_list IN VARCHAR2,
2889: x_return_status OUT NOCOPY VARCHAR2,
2888: p_init_msg_list IN VARCHAR2,
2889: x_return_status OUT NOCOPY VARCHAR2,
2890: x_msg_count OUT NOCOPY NUMBER,
2891: x_msg_data OUT NOCOPY VARCHAR2,
2892: p_okc_rule_defs_b_rec IN okc_rule_defs_b_rec_type) IS
2893:
2894: l_api_version CONSTANT NUMBER := 1;
2895: l_api_name CONSTANT VARCHAR2(30) := 'B_delete_row';
2896: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2893:
2894: l_api_version CONSTANT NUMBER := 1;
2895: l_api_name CONSTANT VARCHAR2(30) := 'B_delete_row';
2896: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2897: l_okc_rule_defs_b_rec okc_rule_defs_b_rec_type := p_okc_rule_defs_b_rec;
2898: l_row_notfound BOOLEAN := TRUE;
2899: BEGIN
2900: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2901: p_init_msg_list,
2906: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2907: RAISE OKC_API.G_EXCEPTION_ERROR;
2908: END IF;
2909:
2910: DELETE FROM OKC_RULE_DEFS_B
2911: WHERE RULE_CODE = p_okc_rule_defs_b_rec.rule_code;
2912:
2913: x_return_status := l_return_status;
2914: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2907: RAISE OKC_API.G_EXCEPTION_ERROR;
2908: END IF;
2909:
2910: DELETE FROM OKC_RULE_DEFS_B
2911: WHERE RULE_CODE = p_okc_rule_defs_b_rec.rule_code;
2912:
2913: x_return_status := l_return_status;
2914: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2915: EXCEPTION
3022: l_api_name CONSTANT VARCHAR2(30) := 'V_delete_row';
3023: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3024: l_okc_rule_defs_v_rec okc_rule_defs_v_rec_type := p_okc_rule_defs_v_rec;
3025: l_okc_rule_defs_tl_rec okc_rule_defs_tl_rec_type;
3026: l_okc_rule_defs_b_rec okc_rule_defs_b_rec_type;
3027: BEGIN
3028: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3029: G_PKG_NAME,
3030: p_init_msg_list,
3040: -----------------------------------------
3041: -- Move VIEW record to "Child" records --
3042: -----------------------------------------
3043: migrate(l_okc_rule_defs_v_rec, l_okc_rule_defs_tl_rec);
3044: migrate(l_okc_rule_defs_v_rec, l_okc_rule_defs_b_rec);
3045: -----------------------------------------------
3046: -- Call the DELETE_ROW for each child record --
3047: -----------------------------------------------
3048: delete_row(
3061: p_init_msg_list,
3062: l_return_status,
3063: x_msg_count,
3064: x_msg_data,
3065: l_okc_rule_defs_b_rec
3066: );
3067: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3068: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3069: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3266: ) IS
3267:
3268: CURSOR c1(r_c IN varchar2) IS
3269: SELECT application_id ,descriptive_flexfield_name
3270: FROM okc_rule_defs_b
3271: where rule_code = r_c;
3272:
3273: BEGIN
3274: if rule_code is not NULL then