43: -- PROCEDURE add_language
44: ---------------------------------------------------------------------------
45: PROCEDURE add_language IS
46: BEGIN
47: DELETE FROM OKC_PROCESS_DEFS_TL T
48: WHERE NOT EXISTS (
49: SELECT NULL
50: FROM OKC_PROCESS_DEFS_B B
51: WHERE B.ID = T.ID
50: FROM OKC_PROCESS_DEFS_B B
51: WHERE B.ID = T.ID
52: );
53:
54: UPDATE OKC_PROCESS_DEFS_TL T SET (
55: NAME,
56: DESCRIPTION,
57: SHORT_DESCRIPTION,
58: COMMENTS) = (SELECT
59: B.NAME,
60: B.DESCRIPTION,
61: B.SHORT_DESCRIPTION,
62: B.COMMENTS
63: FROM OKC_PROCESS_DEFS_TL B
64: WHERE B.ID = T.ID
65: AND B.LANGUAGE = T.SOURCE_LANG)
66: WHERE (
67: T.ID,
68: T.LANGUAGE)
69: IN (SELECT
70: SUBT.ID,
71: SUBT.LANGUAGE
72: FROM OKC_PROCESS_DEFS_TL SUBB, OKC_PROCESS_DEFS_TL SUBT
73: WHERE SUBB.ID = SUBT.ID
74: AND SUBB.LANGUAGE = SUBT.SOURCE_LANG
75: AND (SUBB.NAME <> SUBT.NAME
76: OR SUBB.DESCRIPTION <> SUBT.DESCRIPTION
83: OR (SUBB.COMMENTS IS NULL AND SUBT.COMMENTS IS NOT NULL)
84: OR (SUBB.COMMENTS IS NOT NULL AND SUBT.COMMENTS IS NULL)
85: ));
86:
87: INSERT INTO OKC_PROCESS_DEFS_TL (
88: ID,
89: LANGUAGE,
90: SOURCE_LANG,
91: SFWT_FLAG,
111: B.CREATION_DATE,
112: B.LAST_UPDATED_BY,
113: B.LAST_UPDATE_DATE,
114: B.LAST_UPDATE_LOGIN
115: FROM OKC_PROCESS_DEFS_TL B, FND_LANGUAGES L
116: WHERE L.INSTALLED_FLAG IN ('I', 'B')
117: AND B.LANGUAGE = USERENV('LANG')
118: AND NOT EXISTS(
119: SELECT NULL
116: WHERE L.INSTALLED_FLAG IN ('I', 'B')
117: AND B.LANGUAGE = USERENV('LANG')
118: AND NOT EXISTS(
119: SELECT NULL
120: FROM OKC_PROCESS_DEFS_TL T
121: WHERE T.ID = B.ID
122: AND T.LANGUAGE = L.LANGUAGE_CODE
123: );
124:
124:
125: END add_language;
126:
127: ---------------------------------------------------------------------------
128: -- FUNCTION get_rec for: OKC_PROCESS_DEFS_TL
129: ---------------------------------------------------------------------------
130: FUNCTION get_rec (
131: p_okc_process_defs_tl_rec IN okc_process_defs_tl_rec_type,
132: x_no_data_found OUT NOCOPY BOOLEAN
127: ---------------------------------------------------------------------------
128: -- FUNCTION get_rec for: OKC_PROCESS_DEFS_TL
129: ---------------------------------------------------------------------------
130: FUNCTION get_rec (
131: p_okc_process_defs_tl_rec IN okc_process_defs_tl_rec_type,
132: x_no_data_found OUT NOCOPY BOOLEAN
133: ) RETURN okc_process_defs_tl_rec_type IS
134: CURSOR okc_process_defs_tl_pk_csr (p_id IN NUMBER,
135: p_language IN VARCHAR2) IS
129: ---------------------------------------------------------------------------
130: FUNCTION get_rec (
131: p_okc_process_defs_tl_rec IN okc_process_defs_tl_rec_type,
132: x_no_data_found OUT NOCOPY BOOLEAN
133: ) RETURN okc_process_defs_tl_rec_type IS
134: CURSOR okc_process_defs_tl_pk_csr (p_id IN NUMBER,
135: p_language IN VARCHAR2) IS
136: SELECT
137: ID,
130: FUNCTION get_rec (
131: p_okc_process_defs_tl_rec IN okc_process_defs_tl_rec_type,
132: x_no_data_found OUT NOCOPY BOOLEAN
133: ) RETURN okc_process_defs_tl_rec_type IS
134: CURSOR okc_process_defs_tl_pk_csr (p_id IN NUMBER,
135: p_language IN VARCHAR2) IS
136: SELECT
137: ID,
138: LANGUAGE,
146: CREATION_DATE,
147: LAST_UPDATED_BY,
148: LAST_UPDATE_DATE,
149: LAST_UPDATE_LOGIN
150: FROM Okc_Process_Defs_Tl
151: WHERE okc_process_defs_tl.id = p_id
152: AND okc_process_defs_tl.language = p_language;
153: l_okc_process_defs_tl_pk okc_process_defs_tl_pk_csr%ROWTYPE;
154: l_okc_process_defs_tl_rec okc_process_defs_tl_rec_type;
147: LAST_UPDATED_BY,
148: LAST_UPDATE_DATE,
149: LAST_UPDATE_LOGIN
150: FROM Okc_Process_Defs_Tl
151: WHERE okc_process_defs_tl.id = p_id
152: AND okc_process_defs_tl.language = p_language;
153: l_okc_process_defs_tl_pk okc_process_defs_tl_pk_csr%ROWTYPE;
154: l_okc_process_defs_tl_rec okc_process_defs_tl_rec_type;
155: BEGIN
148: LAST_UPDATE_DATE,
149: LAST_UPDATE_LOGIN
150: FROM Okc_Process_Defs_Tl
151: WHERE okc_process_defs_tl.id = p_id
152: AND okc_process_defs_tl.language = p_language;
153: l_okc_process_defs_tl_pk okc_process_defs_tl_pk_csr%ROWTYPE;
154: l_okc_process_defs_tl_rec okc_process_defs_tl_rec_type;
155: BEGIN
156: x_no_data_found := TRUE;
149: LAST_UPDATE_LOGIN
150: FROM Okc_Process_Defs_Tl
151: WHERE okc_process_defs_tl.id = p_id
152: AND okc_process_defs_tl.language = p_language;
153: l_okc_process_defs_tl_pk okc_process_defs_tl_pk_csr%ROWTYPE;
154: l_okc_process_defs_tl_rec okc_process_defs_tl_rec_type;
155: BEGIN
156: x_no_data_found := TRUE;
157: -- Get current database values
150: FROM Okc_Process_Defs_Tl
151: WHERE okc_process_defs_tl.id = p_id
152: AND okc_process_defs_tl.language = p_language;
153: l_okc_process_defs_tl_pk okc_process_defs_tl_pk_csr%ROWTYPE;
154: l_okc_process_defs_tl_rec okc_process_defs_tl_rec_type;
155: BEGIN
156: x_no_data_found := TRUE;
157: -- Get current database values
158: OPEN okc_process_defs_tl_pk_csr (p_okc_process_defs_tl_rec.id,
154: l_okc_process_defs_tl_rec okc_process_defs_tl_rec_type;
155: BEGIN
156: x_no_data_found := TRUE;
157: -- Get current database values
158: OPEN okc_process_defs_tl_pk_csr (p_okc_process_defs_tl_rec.id,
159: p_okc_process_defs_tl_rec.language);
160: FETCH okc_process_defs_tl_pk_csr INTO
161: l_okc_process_defs_tl_rec.ID,
162: l_okc_process_defs_tl_rec.LANGUAGE,
155: BEGIN
156: x_no_data_found := TRUE;
157: -- Get current database values
158: OPEN okc_process_defs_tl_pk_csr (p_okc_process_defs_tl_rec.id,
159: p_okc_process_defs_tl_rec.language);
160: FETCH okc_process_defs_tl_pk_csr INTO
161: l_okc_process_defs_tl_rec.ID,
162: l_okc_process_defs_tl_rec.LANGUAGE,
163: l_okc_process_defs_tl_rec.SOURCE_LANG,
156: x_no_data_found := TRUE;
157: -- Get current database values
158: OPEN okc_process_defs_tl_pk_csr (p_okc_process_defs_tl_rec.id,
159: p_okc_process_defs_tl_rec.language);
160: FETCH okc_process_defs_tl_pk_csr INTO
161: l_okc_process_defs_tl_rec.ID,
162: l_okc_process_defs_tl_rec.LANGUAGE,
163: l_okc_process_defs_tl_rec.SOURCE_LANG,
164: l_okc_process_defs_tl_rec.SFWT_FLAG,
157: -- Get current database values
158: OPEN okc_process_defs_tl_pk_csr (p_okc_process_defs_tl_rec.id,
159: p_okc_process_defs_tl_rec.language);
160: FETCH okc_process_defs_tl_pk_csr INTO
161: l_okc_process_defs_tl_rec.ID,
162: l_okc_process_defs_tl_rec.LANGUAGE,
163: l_okc_process_defs_tl_rec.SOURCE_LANG,
164: l_okc_process_defs_tl_rec.SFWT_FLAG,
165: l_okc_process_defs_tl_rec.NAME,
158: OPEN okc_process_defs_tl_pk_csr (p_okc_process_defs_tl_rec.id,
159: p_okc_process_defs_tl_rec.language);
160: FETCH okc_process_defs_tl_pk_csr INTO
161: l_okc_process_defs_tl_rec.ID,
162: l_okc_process_defs_tl_rec.LANGUAGE,
163: l_okc_process_defs_tl_rec.SOURCE_LANG,
164: l_okc_process_defs_tl_rec.SFWT_FLAG,
165: l_okc_process_defs_tl_rec.NAME,
166: l_okc_process_defs_tl_rec.DESCRIPTION,
159: p_okc_process_defs_tl_rec.language);
160: FETCH okc_process_defs_tl_pk_csr INTO
161: l_okc_process_defs_tl_rec.ID,
162: l_okc_process_defs_tl_rec.LANGUAGE,
163: l_okc_process_defs_tl_rec.SOURCE_LANG,
164: l_okc_process_defs_tl_rec.SFWT_FLAG,
165: l_okc_process_defs_tl_rec.NAME,
166: l_okc_process_defs_tl_rec.DESCRIPTION,
167: l_okc_process_defs_tl_rec.SHORT_DESCRIPTION,
160: FETCH okc_process_defs_tl_pk_csr INTO
161: l_okc_process_defs_tl_rec.ID,
162: l_okc_process_defs_tl_rec.LANGUAGE,
163: l_okc_process_defs_tl_rec.SOURCE_LANG,
164: l_okc_process_defs_tl_rec.SFWT_FLAG,
165: l_okc_process_defs_tl_rec.NAME,
166: l_okc_process_defs_tl_rec.DESCRIPTION,
167: l_okc_process_defs_tl_rec.SHORT_DESCRIPTION,
168: l_okc_process_defs_tl_rec.COMMENTS,
161: l_okc_process_defs_tl_rec.ID,
162: l_okc_process_defs_tl_rec.LANGUAGE,
163: l_okc_process_defs_tl_rec.SOURCE_LANG,
164: l_okc_process_defs_tl_rec.SFWT_FLAG,
165: l_okc_process_defs_tl_rec.NAME,
166: l_okc_process_defs_tl_rec.DESCRIPTION,
167: l_okc_process_defs_tl_rec.SHORT_DESCRIPTION,
168: l_okc_process_defs_tl_rec.COMMENTS,
169: l_okc_process_defs_tl_rec.CREATED_BY,
162: l_okc_process_defs_tl_rec.LANGUAGE,
163: l_okc_process_defs_tl_rec.SOURCE_LANG,
164: l_okc_process_defs_tl_rec.SFWT_FLAG,
165: l_okc_process_defs_tl_rec.NAME,
166: l_okc_process_defs_tl_rec.DESCRIPTION,
167: l_okc_process_defs_tl_rec.SHORT_DESCRIPTION,
168: l_okc_process_defs_tl_rec.COMMENTS,
169: l_okc_process_defs_tl_rec.CREATED_BY,
170: l_okc_process_defs_tl_rec.CREATION_DATE,
163: l_okc_process_defs_tl_rec.SOURCE_LANG,
164: l_okc_process_defs_tl_rec.SFWT_FLAG,
165: l_okc_process_defs_tl_rec.NAME,
166: l_okc_process_defs_tl_rec.DESCRIPTION,
167: l_okc_process_defs_tl_rec.SHORT_DESCRIPTION,
168: l_okc_process_defs_tl_rec.COMMENTS,
169: l_okc_process_defs_tl_rec.CREATED_BY,
170: l_okc_process_defs_tl_rec.CREATION_DATE,
171: l_okc_process_defs_tl_rec.LAST_UPDATED_BY,
164: l_okc_process_defs_tl_rec.SFWT_FLAG,
165: l_okc_process_defs_tl_rec.NAME,
166: l_okc_process_defs_tl_rec.DESCRIPTION,
167: l_okc_process_defs_tl_rec.SHORT_DESCRIPTION,
168: l_okc_process_defs_tl_rec.COMMENTS,
169: l_okc_process_defs_tl_rec.CREATED_BY,
170: l_okc_process_defs_tl_rec.CREATION_DATE,
171: l_okc_process_defs_tl_rec.LAST_UPDATED_BY,
172: l_okc_process_defs_tl_rec.LAST_UPDATE_DATE,
165: l_okc_process_defs_tl_rec.NAME,
166: l_okc_process_defs_tl_rec.DESCRIPTION,
167: l_okc_process_defs_tl_rec.SHORT_DESCRIPTION,
168: l_okc_process_defs_tl_rec.COMMENTS,
169: l_okc_process_defs_tl_rec.CREATED_BY,
170: l_okc_process_defs_tl_rec.CREATION_DATE,
171: l_okc_process_defs_tl_rec.LAST_UPDATED_BY,
172: l_okc_process_defs_tl_rec.LAST_UPDATE_DATE,
173: l_okc_process_defs_tl_rec.LAST_UPDATE_LOGIN;
166: l_okc_process_defs_tl_rec.DESCRIPTION,
167: l_okc_process_defs_tl_rec.SHORT_DESCRIPTION,
168: l_okc_process_defs_tl_rec.COMMENTS,
169: l_okc_process_defs_tl_rec.CREATED_BY,
170: l_okc_process_defs_tl_rec.CREATION_DATE,
171: l_okc_process_defs_tl_rec.LAST_UPDATED_BY,
172: l_okc_process_defs_tl_rec.LAST_UPDATE_DATE,
173: l_okc_process_defs_tl_rec.LAST_UPDATE_LOGIN;
174: x_no_data_found := okc_process_defs_tl_pk_csr%NOTFOUND;
167: l_okc_process_defs_tl_rec.SHORT_DESCRIPTION,
168: l_okc_process_defs_tl_rec.COMMENTS,
169: l_okc_process_defs_tl_rec.CREATED_BY,
170: l_okc_process_defs_tl_rec.CREATION_DATE,
171: l_okc_process_defs_tl_rec.LAST_UPDATED_BY,
172: l_okc_process_defs_tl_rec.LAST_UPDATE_DATE,
173: l_okc_process_defs_tl_rec.LAST_UPDATE_LOGIN;
174: x_no_data_found := okc_process_defs_tl_pk_csr%NOTFOUND;
175: CLOSE okc_process_defs_tl_pk_csr;
168: l_okc_process_defs_tl_rec.COMMENTS,
169: l_okc_process_defs_tl_rec.CREATED_BY,
170: l_okc_process_defs_tl_rec.CREATION_DATE,
171: l_okc_process_defs_tl_rec.LAST_UPDATED_BY,
172: l_okc_process_defs_tl_rec.LAST_UPDATE_DATE,
173: l_okc_process_defs_tl_rec.LAST_UPDATE_LOGIN;
174: x_no_data_found := okc_process_defs_tl_pk_csr%NOTFOUND;
175: CLOSE okc_process_defs_tl_pk_csr;
176: RETURN(l_okc_process_defs_tl_rec);
169: l_okc_process_defs_tl_rec.CREATED_BY,
170: l_okc_process_defs_tl_rec.CREATION_DATE,
171: l_okc_process_defs_tl_rec.LAST_UPDATED_BY,
172: l_okc_process_defs_tl_rec.LAST_UPDATE_DATE,
173: l_okc_process_defs_tl_rec.LAST_UPDATE_LOGIN;
174: x_no_data_found := okc_process_defs_tl_pk_csr%NOTFOUND;
175: CLOSE okc_process_defs_tl_pk_csr;
176: RETURN(l_okc_process_defs_tl_rec);
177: END get_rec;
170: l_okc_process_defs_tl_rec.CREATION_DATE,
171: l_okc_process_defs_tl_rec.LAST_UPDATED_BY,
172: l_okc_process_defs_tl_rec.LAST_UPDATE_DATE,
173: l_okc_process_defs_tl_rec.LAST_UPDATE_LOGIN;
174: x_no_data_found := okc_process_defs_tl_pk_csr%NOTFOUND;
175: CLOSE okc_process_defs_tl_pk_csr;
176: RETURN(l_okc_process_defs_tl_rec);
177: END get_rec;
178:
171: l_okc_process_defs_tl_rec.LAST_UPDATED_BY,
172: l_okc_process_defs_tl_rec.LAST_UPDATE_DATE,
173: l_okc_process_defs_tl_rec.LAST_UPDATE_LOGIN;
174: x_no_data_found := okc_process_defs_tl_pk_csr%NOTFOUND;
175: CLOSE okc_process_defs_tl_pk_csr;
176: RETURN(l_okc_process_defs_tl_rec);
177: END get_rec;
178:
179: FUNCTION get_rec (
172: l_okc_process_defs_tl_rec.LAST_UPDATE_DATE,
173: l_okc_process_defs_tl_rec.LAST_UPDATE_LOGIN;
174: x_no_data_found := okc_process_defs_tl_pk_csr%NOTFOUND;
175: CLOSE okc_process_defs_tl_pk_csr;
176: RETURN(l_okc_process_defs_tl_rec);
177: END get_rec;
178:
179: FUNCTION get_rec (
180: p_okc_process_defs_tl_rec IN okc_process_defs_tl_rec_type
176: RETURN(l_okc_process_defs_tl_rec);
177: END get_rec;
178:
179: FUNCTION get_rec (
180: p_okc_process_defs_tl_rec IN okc_process_defs_tl_rec_type
181: ) RETURN okc_process_defs_tl_rec_type IS
182: l_row_notfound BOOLEAN := TRUE;
183: BEGIN
184: RETURN(get_rec(p_okc_process_defs_tl_rec, l_row_notfound));
177: END get_rec;
178:
179: FUNCTION get_rec (
180: p_okc_process_defs_tl_rec IN okc_process_defs_tl_rec_type
181: ) RETURN okc_process_defs_tl_rec_type IS
182: l_row_notfound BOOLEAN := TRUE;
183: BEGIN
184: RETURN(get_rec(p_okc_process_defs_tl_rec, l_row_notfound));
185: END get_rec;
180: p_okc_process_defs_tl_rec IN okc_process_defs_tl_rec_type
181: ) RETURN okc_process_defs_tl_rec_type IS
182: l_row_notfound BOOLEAN := TRUE;
183: BEGIN
184: RETURN(get_rec(p_okc_process_defs_tl_rec, l_row_notfound));
185: END get_rec;
186: ---------------------------------------------------------------------------
187: -- FUNCTION get_rec for: OKC_PROCESS_DEFS_B
188: ---------------------------------------------------------------------------
2036: -- PROCEDURE Migrate
2037: ---------------------------------------------------------------------------
2038: PROCEDURE migrate (
2039: p_from IN pdfv_rec_type,
2040: p_to OUT NOCOPY okc_process_defs_tl_rec_type
2041: ) IS
2042: BEGIN
2043: p_to.id := p_from.id;
2044: p_to.sfwt_flag := p_from.sfwt_flag;
2052: p_to.last_update_date := p_from.last_update_date;
2053: p_to.last_update_login := p_from.last_update_login;
2054: END migrate;
2055: PROCEDURE migrate (
2056: p_from IN okc_process_defs_tl_rec_type,
2057: p_to IN OUT NOCOPY pdfv_rec_type
2058: ) IS
2059: BEGIN
2060: p_to.id := p_from.id;
2169: l_api_version CONSTANT NUMBER := 1;
2170: l_api_name CONSTANT VARCHAR2(30) := 'V_validate_row';
2171: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2172: l_pdfv_rec pdfv_rec_type := p_pdfv_rec;
2173: l_okc_process_defs_tl_rec okc_process_defs_tl_rec_type;
2174: l_pdf_rec pdf_rec_type;
2175: BEGIN
2176: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2177: G_PKG_NAME,
2300: ---------------------------------------------------------------------------
2301: -- PROCEDURE insert_row
2302: ---------------------------------------------------------------------------
2303: ----------------------------------------
2304: -- insert_row for:OKC_PROCESS_DEFS_TL --
2305: ----------------------------------------
2306: PROCEDURE insert_row(
2307: p_init_msg_list IN VARCHAR2,
2308: x_return_status OUT NOCOPY VARCHAR2,
2307: p_init_msg_list IN VARCHAR2,
2308: x_return_status OUT NOCOPY VARCHAR2,
2309: x_msg_count OUT NOCOPY NUMBER,
2310: x_msg_data OUT NOCOPY VARCHAR2,
2311: p_okc_process_defs_tl_rec IN okc_process_defs_tl_rec_type,
2312: x_okc_process_defs_tl_rec OUT NOCOPY okc_process_defs_tl_rec_type) IS
2313:
2314: l_api_version CONSTANT NUMBER := 1;
2315: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
2308: x_return_status OUT NOCOPY VARCHAR2,
2309: x_msg_count OUT NOCOPY NUMBER,
2310: x_msg_data OUT NOCOPY VARCHAR2,
2311: p_okc_process_defs_tl_rec IN okc_process_defs_tl_rec_type,
2312: x_okc_process_defs_tl_rec OUT NOCOPY okc_process_defs_tl_rec_type) IS
2313:
2314: l_api_version CONSTANT NUMBER := 1;
2315: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
2316: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2313:
2314: l_api_version CONSTANT NUMBER := 1;
2315: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
2316: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2317: l_okc_process_defs_tl_rec okc_process_defs_tl_rec_type := p_okc_process_defs_tl_rec;
2318: ldefokcprocessdefstlrec okc_process_defs_tl_rec_type;
2319: CURSOR get_languages IS
2320: SELECT *
2321: FROM FND_LANGUAGES
2314: l_api_version CONSTANT NUMBER := 1;
2315: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
2316: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2317: l_okc_process_defs_tl_rec okc_process_defs_tl_rec_type := p_okc_process_defs_tl_rec;
2318: ldefokcprocessdefstlrec okc_process_defs_tl_rec_type;
2319: CURSOR get_languages IS
2320: SELECT *
2321: FROM FND_LANGUAGES
2322: WHERE INSTALLED_FLAG IN ('I', 'B');
2320: SELECT *
2321: FROM FND_LANGUAGES
2322: WHERE INSTALLED_FLAG IN ('I', 'B');
2323: --------------------------------------------
2324: -- Set_Attributes for:OKC_PROCESS_DEFS_TL --
2325: --------------------------------------------
2326: FUNCTION Set_Attributes (
2327: p_okc_process_defs_tl_rec IN okc_process_defs_tl_rec_type,
2328: x_okc_process_defs_tl_rec OUT NOCOPY okc_process_defs_tl_rec_type
2323: --------------------------------------------
2324: -- Set_Attributes for:OKC_PROCESS_DEFS_TL --
2325: --------------------------------------------
2326: FUNCTION Set_Attributes (
2327: p_okc_process_defs_tl_rec IN okc_process_defs_tl_rec_type,
2328: x_okc_process_defs_tl_rec OUT NOCOPY okc_process_defs_tl_rec_type
2329: ) RETURN VARCHAR2 IS
2330: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2331: BEGIN
2324: -- Set_Attributes for:OKC_PROCESS_DEFS_TL --
2325: --------------------------------------------
2326: FUNCTION Set_Attributes (
2327: p_okc_process_defs_tl_rec IN okc_process_defs_tl_rec_type,
2328: x_okc_process_defs_tl_rec OUT NOCOPY okc_process_defs_tl_rec_type
2329: ) RETURN VARCHAR2 IS
2330: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2331: BEGIN
2332: x_okc_process_defs_tl_rec := p_okc_process_defs_tl_rec;
2328: x_okc_process_defs_tl_rec OUT NOCOPY okc_process_defs_tl_rec_type
2329: ) RETURN VARCHAR2 IS
2330: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2331: BEGIN
2332: x_okc_process_defs_tl_rec := p_okc_process_defs_tl_rec;
2333: x_okc_process_defs_tl_rec.LANGUAGE := l_lang;
2334: x_okc_process_defs_tl_rec.SOURCE_LANG := l_lang;
2335: RETURN(l_return_status);
2336: END Set_Attributes;
2329: ) RETURN VARCHAR2 IS
2330: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2331: BEGIN
2332: x_okc_process_defs_tl_rec := p_okc_process_defs_tl_rec;
2333: x_okc_process_defs_tl_rec.LANGUAGE := l_lang;
2334: x_okc_process_defs_tl_rec.SOURCE_LANG := l_lang;
2335: RETURN(l_return_status);
2336: END Set_Attributes;
2337: BEGIN
2330: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2331: BEGIN
2332: x_okc_process_defs_tl_rec := p_okc_process_defs_tl_rec;
2333: x_okc_process_defs_tl_rec.LANGUAGE := l_lang;
2334: x_okc_process_defs_tl_rec.SOURCE_LANG := l_lang;
2335: RETURN(l_return_status);
2336: END Set_Attributes;
2337: BEGIN
2338: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2345: RAISE OKC_API.G_EXCEPTION_ERROR;
2346: END IF;
2347: --- Setting item attributes
2348: l_return_status := Set_Attributes(
2349: p_okc_process_defs_tl_rec, -- IN
2350: l_okc_process_defs_tl_rec); -- OUT
2351: --- If any errors happen abort API
2352: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2353: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2346: END IF;
2347: --- Setting item attributes
2348: l_return_status := Set_Attributes(
2349: p_okc_process_defs_tl_rec, -- IN
2350: l_okc_process_defs_tl_rec); -- OUT
2351: --- If any errors happen abort API
2352: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2353: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2354: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2354: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2355: RAISE OKC_API.G_EXCEPTION_ERROR;
2356: END IF;
2357: FOR l_lang_rec IN get_languages LOOP
2358: l_okc_process_defs_tl_rec.language := l_lang_rec.language_code;
2359: INSERT INTO OKC_PROCESS_DEFS_TL(
2360: id,
2361: language,
2362: source_lang,
2355: RAISE OKC_API.G_EXCEPTION_ERROR;
2356: END IF;
2357: FOR l_lang_rec IN get_languages LOOP
2358: l_okc_process_defs_tl_rec.language := l_lang_rec.language_code;
2359: INSERT INTO OKC_PROCESS_DEFS_TL(
2360: id,
2361: language,
2362: source_lang,
2363: sfwt_flag,
2370: last_updated_by,
2371: last_update_date,
2372: last_update_login)
2373: VALUES (
2374: l_okc_process_defs_tl_rec.id,
2375: l_okc_process_defs_tl_rec.language,
2376: l_okc_process_defs_tl_rec.source_lang,
2377: l_okc_process_defs_tl_rec.sfwt_flag,
2378: l_okc_process_defs_tl_rec.name,
2371: last_update_date,
2372: last_update_login)
2373: VALUES (
2374: l_okc_process_defs_tl_rec.id,
2375: l_okc_process_defs_tl_rec.language,
2376: l_okc_process_defs_tl_rec.source_lang,
2377: l_okc_process_defs_tl_rec.sfwt_flag,
2378: l_okc_process_defs_tl_rec.name,
2379: l_okc_process_defs_tl_rec.description,
2372: last_update_login)
2373: VALUES (
2374: l_okc_process_defs_tl_rec.id,
2375: l_okc_process_defs_tl_rec.language,
2376: l_okc_process_defs_tl_rec.source_lang,
2377: l_okc_process_defs_tl_rec.sfwt_flag,
2378: l_okc_process_defs_tl_rec.name,
2379: l_okc_process_defs_tl_rec.description,
2380: l_okc_process_defs_tl_rec.short_description,
2373: VALUES (
2374: l_okc_process_defs_tl_rec.id,
2375: l_okc_process_defs_tl_rec.language,
2376: l_okc_process_defs_tl_rec.source_lang,
2377: l_okc_process_defs_tl_rec.sfwt_flag,
2378: l_okc_process_defs_tl_rec.name,
2379: l_okc_process_defs_tl_rec.description,
2380: l_okc_process_defs_tl_rec.short_description,
2381: l_okc_process_defs_tl_rec.comments,
2374: l_okc_process_defs_tl_rec.id,
2375: l_okc_process_defs_tl_rec.language,
2376: l_okc_process_defs_tl_rec.source_lang,
2377: l_okc_process_defs_tl_rec.sfwt_flag,
2378: l_okc_process_defs_tl_rec.name,
2379: l_okc_process_defs_tl_rec.description,
2380: l_okc_process_defs_tl_rec.short_description,
2381: l_okc_process_defs_tl_rec.comments,
2382: l_okc_process_defs_tl_rec.created_by,
2375: l_okc_process_defs_tl_rec.language,
2376: l_okc_process_defs_tl_rec.source_lang,
2377: l_okc_process_defs_tl_rec.sfwt_flag,
2378: l_okc_process_defs_tl_rec.name,
2379: l_okc_process_defs_tl_rec.description,
2380: l_okc_process_defs_tl_rec.short_description,
2381: l_okc_process_defs_tl_rec.comments,
2382: l_okc_process_defs_tl_rec.created_by,
2383: l_okc_process_defs_tl_rec.creation_date,
2376: l_okc_process_defs_tl_rec.source_lang,
2377: l_okc_process_defs_tl_rec.sfwt_flag,
2378: l_okc_process_defs_tl_rec.name,
2379: l_okc_process_defs_tl_rec.description,
2380: l_okc_process_defs_tl_rec.short_description,
2381: l_okc_process_defs_tl_rec.comments,
2382: l_okc_process_defs_tl_rec.created_by,
2383: l_okc_process_defs_tl_rec.creation_date,
2384: l_okc_process_defs_tl_rec.last_updated_by,
2377: l_okc_process_defs_tl_rec.sfwt_flag,
2378: l_okc_process_defs_tl_rec.name,
2379: l_okc_process_defs_tl_rec.description,
2380: l_okc_process_defs_tl_rec.short_description,
2381: l_okc_process_defs_tl_rec.comments,
2382: l_okc_process_defs_tl_rec.created_by,
2383: l_okc_process_defs_tl_rec.creation_date,
2384: l_okc_process_defs_tl_rec.last_updated_by,
2385: l_okc_process_defs_tl_rec.last_update_date,
2378: l_okc_process_defs_tl_rec.name,
2379: l_okc_process_defs_tl_rec.description,
2380: l_okc_process_defs_tl_rec.short_description,
2381: l_okc_process_defs_tl_rec.comments,
2382: l_okc_process_defs_tl_rec.created_by,
2383: l_okc_process_defs_tl_rec.creation_date,
2384: l_okc_process_defs_tl_rec.last_updated_by,
2385: l_okc_process_defs_tl_rec.last_update_date,
2386: l_okc_process_defs_tl_rec.last_update_login);
2379: l_okc_process_defs_tl_rec.description,
2380: l_okc_process_defs_tl_rec.short_description,
2381: l_okc_process_defs_tl_rec.comments,
2382: l_okc_process_defs_tl_rec.created_by,
2383: l_okc_process_defs_tl_rec.creation_date,
2384: l_okc_process_defs_tl_rec.last_updated_by,
2385: l_okc_process_defs_tl_rec.last_update_date,
2386: l_okc_process_defs_tl_rec.last_update_login);
2387: END LOOP;
2380: l_okc_process_defs_tl_rec.short_description,
2381: l_okc_process_defs_tl_rec.comments,
2382: l_okc_process_defs_tl_rec.created_by,
2383: l_okc_process_defs_tl_rec.creation_date,
2384: l_okc_process_defs_tl_rec.last_updated_by,
2385: l_okc_process_defs_tl_rec.last_update_date,
2386: l_okc_process_defs_tl_rec.last_update_login);
2387: END LOOP;
2388: -- Set OUT values
2381: l_okc_process_defs_tl_rec.comments,
2382: l_okc_process_defs_tl_rec.created_by,
2383: l_okc_process_defs_tl_rec.creation_date,
2384: l_okc_process_defs_tl_rec.last_updated_by,
2385: l_okc_process_defs_tl_rec.last_update_date,
2386: l_okc_process_defs_tl_rec.last_update_login);
2387: END LOOP;
2388: -- Set OUT values
2389: x_okc_process_defs_tl_rec := l_okc_process_defs_tl_rec;
2382: l_okc_process_defs_tl_rec.created_by,
2383: l_okc_process_defs_tl_rec.creation_date,
2384: l_okc_process_defs_tl_rec.last_updated_by,
2385: l_okc_process_defs_tl_rec.last_update_date,
2386: l_okc_process_defs_tl_rec.last_update_login);
2387: END LOOP;
2388: -- Set OUT values
2389: x_okc_process_defs_tl_rec := l_okc_process_defs_tl_rec;
2390: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2385: l_okc_process_defs_tl_rec.last_update_date,
2386: l_okc_process_defs_tl_rec.last_update_login);
2387: END LOOP;
2388: -- Set OUT values
2389: x_okc_process_defs_tl_rec := l_okc_process_defs_tl_rec;
2390: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2391: EXCEPTION
2392: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2393: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2591: l_api_name CONSTANT VARCHAR2(30) := 'V_insert_row';
2592: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2593: l_pdfv_rec pdfv_rec_type;
2594: l_def_pdfv_rec pdfv_rec_type;
2595: l_okc_process_defs_tl_rec okc_process_defs_tl_rec_type;
2596: lx_okc_process_defs_tl_rec okc_process_defs_tl_rec_type;
2597: l_pdf_rec pdf_rec_type;
2598: l_id NUMBER;
2599: lx_pdf_rec pdf_rec_type;
2592: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2593: l_pdfv_rec pdfv_rec_type;
2594: l_def_pdfv_rec pdfv_rec_type;
2595: l_okc_process_defs_tl_rec okc_process_defs_tl_rec_type;
2596: lx_okc_process_defs_tl_rec okc_process_defs_tl_rec_type;
2597: l_pdf_rec pdf_rec_type;
2598: l_id NUMBER;
2599: lx_pdf_rec pdf_rec_type;
2600: -------------------------------
2678: END IF;
2679: --------------------------------------
2680: -- Move VIEW record to "Child" records
2681: --------------------------------------
2682: migrate(l_def_pdfv_rec, l_okc_process_defs_tl_rec);
2683: migrate(l_def_pdfv_rec, l_pdf_rec);
2684: --------------------------------------------
2685: -- Call the INSERT_ROW for each child record
2686: --------------------------------------------
2688: p_init_msg_list,
2689: x_return_status,
2690: x_msg_count,
2691: x_msg_data,
2692: l_okc_process_defs_tl_rec,
2693: lx_okc_process_defs_tl_rec
2694: );
2695: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2696: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2689: x_return_status,
2690: x_msg_count,
2691: x_msg_data,
2692: l_okc_process_defs_tl_rec,
2693: lx_okc_process_defs_tl_rec
2694: );
2695: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2696: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2697: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2696: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2697: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2698: RAISE OKC_API.G_EXCEPTION_ERROR;
2699: END IF;
2700: migrate(lx_okc_process_defs_tl_rec, l_def_pdfv_rec);
2701: insert_row(
2702: p_init_msg_list,
2703: x_return_status,
2704: x_msg_count,
2817: ---------------------------------------------------------------------------
2818: -- PROCEDURE lock_row
2819: ---------------------------------------------------------------------------
2820: --------------------------------------
2821: -- lock_row for:OKC_PROCESS_DEFS_TL --
2822: --------------------------------------
2823: PROCEDURE lock_row(
2824: p_init_msg_list IN VARCHAR2,
2825: x_return_status OUT NOCOPY VARCHAR2,
2824: p_init_msg_list IN VARCHAR2,
2825: x_return_status OUT NOCOPY VARCHAR2,
2826: x_msg_count OUT NOCOPY NUMBER,
2827: x_msg_data OUT NOCOPY VARCHAR2,
2828: p_okc_process_defs_tl_rec IN okc_process_defs_tl_rec_type) IS
2829:
2830: E_Resource_Busy EXCEPTION;
2831: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
2832: CURSOR lock_csr (p_okc_process_defs_tl_rec IN okc_process_defs_tl_rec_type) IS
2828: p_okc_process_defs_tl_rec IN okc_process_defs_tl_rec_type) IS
2829:
2830: E_Resource_Busy EXCEPTION;
2831: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
2832: CURSOR lock_csr (p_okc_process_defs_tl_rec IN okc_process_defs_tl_rec_type) IS
2833: SELECT *
2834: FROM OKC_PROCESS_DEFS_TL
2835: WHERE ID = p_okc_process_defs_tl_rec.id
2836: FOR UPDATE NOWAIT;
2830: E_Resource_Busy EXCEPTION;
2831: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
2832: CURSOR lock_csr (p_okc_process_defs_tl_rec IN okc_process_defs_tl_rec_type) IS
2833: SELECT *
2834: FROM OKC_PROCESS_DEFS_TL
2835: WHERE ID = p_okc_process_defs_tl_rec.id
2836: FOR UPDATE NOWAIT;
2837:
2838: l_api_version CONSTANT NUMBER := 1;
2831: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
2832: CURSOR lock_csr (p_okc_process_defs_tl_rec IN okc_process_defs_tl_rec_type) IS
2833: SELECT *
2834: FROM OKC_PROCESS_DEFS_TL
2835: WHERE ID = p_okc_process_defs_tl_rec.id
2836: FOR UPDATE NOWAIT;
2837:
2838: l_api_version CONSTANT NUMBER := 1;
2839: l_api_name CONSTANT VARCHAR2(30) := 'TL_lock_row';
2851: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2852: RAISE OKC_API.G_EXCEPTION_ERROR;
2853: END IF;
2854: BEGIN
2855: OPEN lock_csr(p_okc_process_defs_tl_rec);
2856: FETCH lock_csr INTO l_lock_var;
2857: l_row_notfound := lock_csr%NOTFOUND;
2858: CLOSE lock_csr;
2859: EXCEPTION
3021:
3022: l_api_version CONSTANT NUMBER := 1;
3023: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
3024: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3025: l_okc_process_defs_tl_rec okc_process_defs_tl_rec_type;
3026: l_pdf_rec pdf_rec_type;
3027: BEGIN
3028: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3029: G_PKG_NAME,
3039: END IF;
3040: --------------------------------------
3041: -- Move VIEW record to "Child" records
3042: --------------------------------------
3043: migrate(p_pdfv_rec, l_okc_process_defs_tl_rec);
3044: migrate(p_pdfv_rec, l_pdf_rec);
3045: --------------------------------------------
3046: -- Call the LOCK_ROW for each child record
3047: --------------------------------------------
3049: p_init_msg_list,
3050: x_return_status,
3051: x_msg_count,
3052: x_msg_data,
3053: l_okc_process_defs_tl_rec
3054: );
3055: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3056: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3057: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3170: ---------------------------------------------------------------------------
3171: -- PROCEDURE update_row
3172: ---------------------------------------------------------------------------
3173: ----------------------------------------
3174: -- update_row for:OKC_PROCESS_DEFS_TL --
3175: ----------------------------------------
3176: PROCEDURE update_row(
3177: p_init_msg_list IN VARCHAR2,
3178: x_return_status OUT NOCOPY VARCHAR2,
3177: p_init_msg_list IN VARCHAR2,
3178: x_return_status OUT NOCOPY VARCHAR2,
3179: x_msg_count OUT NOCOPY NUMBER,
3180: x_msg_data OUT NOCOPY VARCHAR2,
3181: p_okc_process_defs_tl_rec IN okc_process_defs_tl_rec_type,
3182: x_okc_process_defs_tl_rec OUT NOCOPY okc_process_defs_tl_rec_type) IS
3183:
3184: l_api_version CONSTANT NUMBER := 1;
3185: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
3178: x_return_status OUT NOCOPY VARCHAR2,
3179: x_msg_count OUT NOCOPY NUMBER,
3180: x_msg_data OUT NOCOPY VARCHAR2,
3181: p_okc_process_defs_tl_rec IN okc_process_defs_tl_rec_type,
3182: x_okc_process_defs_tl_rec OUT NOCOPY okc_process_defs_tl_rec_type) IS
3183:
3184: l_api_version CONSTANT NUMBER := 1;
3185: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
3186: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3183:
3184: l_api_version CONSTANT NUMBER := 1;
3185: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
3186: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3187: l_okc_process_defs_tl_rec okc_process_defs_tl_rec_type := p_okc_process_defs_tl_rec;
3188: ldefokcprocessdefstlrec okc_process_defs_tl_rec_type;
3189: l_row_notfound BOOLEAN := TRUE;
3190: ----------------------------------
3191: -- FUNCTION populate_new_record --
3184: l_api_version CONSTANT NUMBER := 1;
3185: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
3186: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3187: l_okc_process_defs_tl_rec okc_process_defs_tl_rec_type := p_okc_process_defs_tl_rec;
3188: ldefokcprocessdefstlrec okc_process_defs_tl_rec_type;
3189: l_row_notfound BOOLEAN := TRUE;
3190: ----------------------------------
3191: -- FUNCTION populate_new_record --
3192: ----------------------------------
3190: ----------------------------------
3191: -- FUNCTION populate_new_record --
3192: ----------------------------------
3193: FUNCTION populate_new_record (
3194: p_okc_process_defs_tl_rec IN okc_process_defs_tl_rec_type,
3195: x_okc_process_defs_tl_rec OUT NOCOPY okc_process_defs_tl_rec_type
3196: ) RETURN VARCHAR2 IS
3197: l_okc_process_defs_tl_rec okc_process_defs_tl_rec_type;
3198: l_row_notfound BOOLEAN := TRUE;
3191: -- FUNCTION populate_new_record --
3192: ----------------------------------
3193: FUNCTION populate_new_record (
3194: p_okc_process_defs_tl_rec IN okc_process_defs_tl_rec_type,
3195: x_okc_process_defs_tl_rec OUT NOCOPY okc_process_defs_tl_rec_type
3196: ) RETURN VARCHAR2 IS
3197: l_okc_process_defs_tl_rec okc_process_defs_tl_rec_type;
3198: l_row_notfound BOOLEAN := TRUE;
3199: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3193: FUNCTION populate_new_record (
3194: p_okc_process_defs_tl_rec IN okc_process_defs_tl_rec_type,
3195: x_okc_process_defs_tl_rec OUT NOCOPY okc_process_defs_tl_rec_type
3196: ) RETURN VARCHAR2 IS
3197: l_okc_process_defs_tl_rec okc_process_defs_tl_rec_type;
3198: l_row_notfound BOOLEAN := TRUE;
3199: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3200: BEGIN
3201: x_okc_process_defs_tl_rec := p_okc_process_defs_tl_rec;
3197: l_okc_process_defs_tl_rec okc_process_defs_tl_rec_type;
3198: l_row_notfound BOOLEAN := TRUE;
3199: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3200: BEGIN
3201: x_okc_process_defs_tl_rec := p_okc_process_defs_tl_rec;
3202: -- Get current database values
3203: l_okc_process_defs_tl_rec := get_rec(p_okc_process_defs_tl_rec, l_row_notfound);
3204: IF (l_row_notfound) THEN
3205: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
3199: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3200: BEGIN
3201: x_okc_process_defs_tl_rec := p_okc_process_defs_tl_rec;
3202: -- Get current database values
3203: l_okc_process_defs_tl_rec := get_rec(p_okc_process_defs_tl_rec, l_row_notfound);
3204: IF (l_row_notfound) THEN
3205: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
3206: END IF;
3207: IF (x_okc_process_defs_tl_rec.id = OKC_API.G_MISS_NUM)
3203: l_okc_process_defs_tl_rec := get_rec(p_okc_process_defs_tl_rec, l_row_notfound);
3204: IF (l_row_notfound) THEN
3205: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
3206: END IF;
3207: IF (x_okc_process_defs_tl_rec.id = OKC_API.G_MISS_NUM)
3208: THEN
3209: x_okc_process_defs_tl_rec.id := l_okc_process_defs_tl_rec.id;
3210: END IF;
3211: IF (x_okc_process_defs_tl_rec.language = OKC_API.G_MISS_CHAR)
3205: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
3206: END IF;
3207: IF (x_okc_process_defs_tl_rec.id = OKC_API.G_MISS_NUM)
3208: THEN
3209: x_okc_process_defs_tl_rec.id := l_okc_process_defs_tl_rec.id;
3210: END IF;
3211: IF (x_okc_process_defs_tl_rec.language = OKC_API.G_MISS_CHAR)
3212: THEN
3213: x_okc_process_defs_tl_rec.language := l_okc_process_defs_tl_rec.language;
3207: IF (x_okc_process_defs_tl_rec.id = OKC_API.G_MISS_NUM)
3208: THEN
3209: x_okc_process_defs_tl_rec.id := l_okc_process_defs_tl_rec.id;
3210: END IF;
3211: IF (x_okc_process_defs_tl_rec.language = OKC_API.G_MISS_CHAR)
3212: THEN
3213: x_okc_process_defs_tl_rec.language := l_okc_process_defs_tl_rec.language;
3214: END IF;
3215: IF (x_okc_process_defs_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
3209: x_okc_process_defs_tl_rec.id := l_okc_process_defs_tl_rec.id;
3210: END IF;
3211: IF (x_okc_process_defs_tl_rec.language = OKC_API.G_MISS_CHAR)
3212: THEN
3213: x_okc_process_defs_tl_rec.language := l_okc_process_defs_tl_rec.language;
3214: END IF;
3215: IF (x_okc_process_defs_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
3216: THEN
3217: x_okc_process_defs_tl_rec.source_lang := l_okc_process_defs_tl_rec.source_lang;
3211: IF (x_okc_process_defs_tl_rec.language = OKC_API.G_MISS_CHAR)
3212: THEN
3213: x_okc_process_defs_tl_rec.language := l_okc_process_defs_tl_rec.language;
3214: END IF;
3215: IF (x_okc_process_defs_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
3216: THEN
3217: x_okc_process_defs_tl_rec.source_lang := l_okc_process_defs_tl_rec.source_lang;
3218: END IF;
3219: IF (x_okc_process_defs_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
3213: x_okc_process_defs_tl_rec.language := l_okc_process_defs_tl_rec.language;
3214: END IF;
3215: IF (x_okc_process_defs_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
3216: THEN
3217: x_okc_process_defs_tl_rec.source_lang := l_okc_process_defs_tl_rec.source_lang;
3218: END IF;
3219: IF (x_okc_process_defs_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
3220: THEN
3221: x_okc_process_defs_tl_rec.sfwt_flag := l_okc_process_defs_tl_rec.sfwt_flag;
3215: IF (x_okc_process_defs_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
3216: THEN
3217: x_okc_process_defs_tl_rec.source_lang := l_okc_process_defs_tl_rec.source_lang;
3218: END IF;
3219: IF (x_okc_process_defs_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
3220: THEN
3221: x_okc_process_defs_tl_rec.sfwt_flag := l_okc_process_defs_tl_rec.sfwt_flag;
3222: END IF;
3223: IF (x_okc_process_defs_tl_rec.name = OKC_API.G_MISS_CHAR)
3217: x_okc_process_defs_tl_rec.source_lang := l_okc_process_defs_tl_rec.source_lang;
3218: END IF;
3219: IF (x_okc_process_defs_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
3220: THEN
3221: x_okc_process_defs_tl_rec.sfwt_flag := l_okc_process_defs_tl_rec.sfwt_flag;
3222: END IF;
3223: IF (x_okc_process_defs_tl_rec.name = OKC_API.G_MISS_CHAR)
3224: THEN
3225: x_okc_process_defs_tl_rec.name := l_okc_process_defs_tl_rec.name;
3219: IF (x_okc_process_defs_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
3220: THEN
3221: x_okc_process_defs_tl_rec.sfwt_flag := l_okc_process_defs_tl_rec.sfwt_flag;
3222: END IF;
3223: IF (x_okc_process_defs_tl_rec.name = OKC_API.G_MISS_CHAR)
3224: THEN
3225: x_okc_process_defs_tl_rec.name := l_okc_process_defs_tl_rec.name;
3226: END IF;
3227: IF (x_okc_process_defs_tl_rec.description = OKC_API.G_MISS_CHAR)
3221: x_okc_process_defs_tl_rec.sfwt_flag := l_okc_process_defs_tl_rec.sfwt_flag;
3222: END IF;
3223: IF (x_okc_process_defs_tl_rec.name = OKC_API.G_MISS_CHAR)
3224: THEN
3225: x_okc_process_defs_tl_rec.name := l_okc_process_defs_tl_rec.name;
3226: END IF;
3227: IF (x_okc_process_defs_tl_rec.description = OKC_API.G_MISS_CHAR)
3228: THEN
3229: x_okc_process_defs_tl_rec.description := l_okc_process_defs_tl_rec.description;
3223: IF (x_okc_process_defs_tl_rec.name = OKC_API.G_MISS_CHAR)
3224: THEN
3225: x_okc_process_defs_tl_rec.name := l_okc_process_defs_tl_rec.name;
3226: END IF;
3227: IF (x_okc_process_defs_tl_rec.description = OKC_API.G_MISS_CHAR)
3228: THEN
3229: x_okc_process_defs_tl_rec.description := l_okc_process_defs_tl_rec.description;
3230: END IF;
3231: IF (x_okc_process_defs_tl_rec.short_description = OKC_API.G_MISS_CHAR)
3225: x_okc_process_defs_tl_rec.name := l_okc_process_defs_tl_rec.name;
3226: END IF;
3227: IF (x_okc_process_defs_tl_rec.description = OKC_API.G_MISS_CHAR)
3228: THEN
3229: x_okc_process_defs_tl_rec.description := l_okc_process_defs_tl_rec.description;
3230: END IF;
3231: IF (x_okc_process_defs_tl_rec.short_description = OKC_API.G_MISS_CHAR)
3232: THEN
3233: x_okc_process_defs_tl_rec.short_description := l_okc_process_defs_tl_rec.short_description;
3227: IF (x_okc_process_defs_tl_rec.description = OKC_API.G_MISS_CHAR)
3228: THEN
3229: x_okc_process_defs_tl_rec.description := l_okc_process_defs_tl_rec.description;
3230: END IF;
3231: IF (x_okc_process_defs_tl_rec.short_description = OKC_API.G_MISS_CHAR)
3232: THEN
3233: x_okc_process_defs_tl_rec.short_description := l_okc_process_defs_tl_rec.short_description;
3234: END IF;
3235: IF (x_okc_process_defs_tl_rec.comments = OKC_API.G_MISS_CHAR)
3229: x_okc_process_defs_tl_rec.description := l_okc_process_defs_tl_rec.description;
3230: END IF;
3231: IF (x_okc_process_defs_tl_rec.short_description = OKC_API.G_MISS_CHAR)
3232: THEN
3233: x_okc_process_defs_tl_rec.short_description := l_okc_process_defs_tl_rec.short_description;
3234: END IF;
3235: IF (x_okc_process_defs_tl_rec.comments = OKC_API.G_MISS_CHAR)
3236: THEN
3237: x_okc_process_defs_tl_rec.comments := l_okc_process_defs_tl_rec.comments;
3231: IF (x_okc_process_defs_tl_rec.short_description = OKC_API.G_MISS_CHAR)
3232: THEN
3233: x_okc_process_defs_tl_rec.short_description := l_okc_process_defs_tl_rec.short_description;
3234: END IF;
3235: IF (x_okc_process_defs_tl_rec.comments = OKC_API.G_MISS_CHAR)
3236: THEN
3237: x_okc_process_defs_tl_rec.comments := l_okc_process_defs_tl_rec.comments;
3238: END IF;
3239: IF (x_okc_process_defs_tl_rec.created_by = OKC_API.G_MISS_NUM)
3233: x_okc_process_defs_tl_rec.short_description := l_okc_process_defs_tl_rec.short_description;
3234: END IF;
3235: IF (x_okc_process_defs_tl_rec.comments = OKC_API.G_MISS_CHAR)
3236: THEN
3237: x_okc_process_defs_tl_rec.comments := l_okc_process_defs_tl_rec.comments;
3238: END IF;
3239: IF (x_okc_process_defs_tl_rec.created_by = OKC_API.G_MISS_NUM)
3240: THEN
3241: x_okc_process_defs_tl_rec.created_by := l_okc_process_defs_tl_rec.created_by;
3235: IF (x_okc_process_defs_tl_rec.comments = OKC_API.G_MISS_CHAR)
3236: THEN
3237: x_okc_process_defs_tl_rec.comments := l_okc_process_defs_tl_rec.comments;
3238: END IF;
3239: IF (x_okc_process_defs_tl_rec.created_by = OKC_API.G_MISS_NUM)
3240: THEN
3241: x_okc_process_defs_tl_rec.created_by := l_okc_process_defs_tl_rec.created_by;
3242: END IF;
3243: IF (x_okc_process_defs_tl_rec.creation_date = OKC_API.G_MISS_DATE)
3237: x_okc_process_defs_tl_rec.comments := l_okc_process_defs_tl_rec.comments;
3238: END IF;
3239: IF (x_okc_process_defs_tl_rec.created_by = OKC_API.G_MISS_NUM)
3240: THEN
3241: x_okc_process_defs_tl_rec.created_by := l_okc_process_defs_tl_rec.created_by;
3242: END IF;
3243: IF (x_okc_process_defs_tl_rec.creation_date = OKC_API.G_MISS_DATE)
3244: THEN
3245: x_okc_process_defs_tl_rec.creation_date := l_okc_process_defs_tl_rec.creation_date;
3239: IF (x_okc_process_defs_tl_rec.created_by = OKC_API.G_MISS_NUM)
3240: THEN
3241: x_okc_process_defs_tl_rec.created_by := l_okc_process_defs_tl_rec.created_by;
3242: END IF;
3243: IF (x_okc_process_defs_tl_rec.creation_date = OKC_API.G_MISS_DATE)
3244: THEN
3245: x_okc_process_defs_tl_rec.creation_date := l_okc_process_defs_tl_rec.creation_date;
3246: END IF;
3247: IF (x_okc_process_defs_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
3241: x_okc_process_defs_tl_rec.created_by := l_okc_process_defs_tl_rec.created_by;
3242: END IF;
3243: IF (x_okc_process_defs_tl_rec.creation_date = OKC_API.G_MISS_DATE)
3244: THEN
3245: x_okc_process_defs_tl_rec.creation_date := l_okc_process_defs_tl_rec.creation_date;
3246: END IF;
3247: IF (x_okc_process_defs_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
3248: THEN
3249: x_okc_process_defs_tl_rec.last_updated_by := l_okc_process_defs_tl_rec.last_updated_by;
3243: IF (x_okc_process_defs_tl_rec.creation_date = OKC_API.G_MISS_DATE)
3244: THEN
3245: x_okc_process_defs_tl_rec.creation_date := l_okc_process_defs_tl_rec.creation_date;
3246: END IF;
3247: IF (x_okc_process_defs_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
3248: THEN
3249: x_okc_process_defs_tl_rec.last_updated_by := l_okc_process_defs_tl_rec.last_updated_by;
3250: END IF;
3251: IF (x_okc_process_defs_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
3245: x_okc_process_defs_tl_rec.creation_date := l_okc_process_defs_tl_rec.creation_date;
3246: END IF;
3247: IF (x_okc_process_defs_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
3248: THEN
3249: x_okc_process_defs_tl_rec.last_updated_by := l_okc_process_defs_tl_rec.last_updated_by;
3250: END IF;
3251: IF (x_okc_process_defs_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
3252: THEN
3253: x_okc_process_defs_tl_rec.last_update_date := l_okc_process_defs_tl_rec.last_update_date;
3247: IF (x_okc_process_defs_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
3248: THEN
3249: x_okc_process_defs_tl_rec.last_updated_by := l_okc_process_defs_tl_rec.last_updated_by;
3250: END IF;
3251: IF (x_okc_process_defs_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
3252: THEN
3253: x_okc_process_defs_tl_rec.last_update_date := l_okc_process_defs_tl_rec.last_update_date;
3254: END IF;
3255: IF (x_okc_process_defs_tl_rec.last_update_login = OKC_API.G_MISS_NUM)
3249: x_okc_process_defs_tl_rec.last_updated_by := l_okc_process_defs_tl_rec.last_updated_by;
3250: END IF;
3251: IF (x_okc_process_defs_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
3252: THEN
3253: x_okc_process_defs_tl_rec.last_update_date := l_okc_process_defs_tl_rec.last_update_date;
3254: END IF;
3255: IF (x_okc_process_defs_tl_rec.last_update_login = OKC_API.G_MISS_NUM)
3256: THEN
3257: x_okc_process_defs_tl_rec.last_update_login := l_okc_process_defs_tl_rec.last_update_login;
3251: IF (x_okc_process_defs_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
3252: THEN
3253: x_okc_process_defs_tl_rec.last_update_date := l_okc_process_defs_tl_rec.last_update_date;
3254: END IF;
3255: IF (x_okc_process_defs_tl_rec.last_update_login = OKC_API.G_MISS_NUM)
3256: THEN
3257: x_okc_process_defs_tl_rec.last_update_login := l_okc_process_defs_tl_rec.last_update_login;
3258: END IF;
3259: RETURN(l_return_status);
3253: x_okc_process_defs_tl_rec.last_update_date := l_okc_process_defs_tl_rec.last_update_date;
3254: END IF;
3255: IF (x_okc_process_defs_tl_rec.last_update_login = OKC_API.G_MISS_NUM)
3256: THEN
3257: x_okc_process_defs_tl_rec.last_update_login := l_okc_process_defs_tl_rec.last_update_login;
3258: END IF;
3259: RETURN(l_return_status);
3260: END populate_new_record;
3261: --------------------------------------------
3258: END IF;
3259: RETURN(l_return_status);
3260: END populate_new_record;
3261: --------------------------------------------
3262: -- Set_Attributes for:OKC_PROCESS_DEFS_TL --
3263: --------------------------------------------
3264: FUNCTION Set_Attributes (
3265: p_okc_process_defs_tl_rec IN okc_process_defs_tl_rec_type,
3266: x_okc_process_defs_tl_rec OUT NOCOPY okc_process_defs_tl_rec_type
3261: --------------------------------------------
3262: -- Set_Attributes for:OKC_PROCESS_DEFS_TL --
3263: --------------------------------------------
3264: FUNCTION Set_Attributes (
3265: p_okc_process_defs_tl_rec IN okc_process_defs_tl_rec_type,
3266: x_okc_process_defs_tl_rec OUT NOCOPY okc_process_defs_tl_rec_type
3267: ) RETURN VARCHAR2 IS
3268: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3269: BEGIN
3262: -- Set_Attributes for:OKC_PROCESS_DEFS_TL --
3263: --------------------------------------------
3264: FUNCTION Set_Attributes (
3265: p_okc_process_defs_tl_rec IN okc_process_defs_tl_rec_type,
3266: x_okc_process_defs_tl_rec OUT NOCOPY okc_process_defs_tl_rec_type
3267: ) RETURN VARCHAR2 IS
3268: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3269: BEGIN
3270: x_okc_process_defs_tl_rec := p_okc_process_defs_tl_rec;
3266: x_okc_process_defs_tl_rec OUT NOCOPY okc_process_defs_tl_rec_type
3267: ) RETURN VARCHAR2 IS
3268: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3269: BEGIN
3270: x_okc_process_defs_tl_rec := p_okc_process_defs_tl_rec;
3271: x_okc_process_defs_tl_rec.LANGUAGE := l_lang;
3272: x_okc_process_defs_tl_rec.SOURCE_LANG := l_lang;
3273: RETURN(l_return_status);
3274: END Set_Attributes;
3267: ) RETURN VARCHAR2 IS
3268: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3269: BEGIN
3270: x_okc_process_defs_tl_rec := p_okc_process_defs_tl_rec;
3271: x_okc_process_defs_tl_rec.LANGUAGE := l_lang;
3272: x_okc_process_defs_tl_rec.SOURCE_LANG := l_lang;
3273: RETURN(l_return_status);
3274: END Set_Attributes;
3275: BEGIN
3268: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3269: BEGIN
3270: x_okc_process_defs_tl_rec := p_okc_process_defs_tl_rec;
3271: x_okc_process_defs_tl_rec.LANGUAGE := l_lang;
3272: x_okc_process_defs_tl_rec.SOURCE_LANG := l_lang;
3273: RETURN(l_return_status);
3274: END Set_Attributes;
3275: BEGIN
3276: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3283: RAISE OKC_API.G_EXCEPTION_ERROR;
3284: END IF;
3285: --- Setting item attributes
3286: l_return_status := Set_Attributes(
3287: p_okc_process_defs_tl_rec, -- IN
3288: l_okc_process_defs_tl_rec); -- OUT
3289: --- If any errors happen abort API
3290: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3291: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3284: END IF;
3285: --- Setting item attributes
3286: l_return_status := Set_Attributes(
3287: p_okc_process_defs_tl_rec, -- IN
3288: l_okc_process_defs_tl_rec); -- OUT
3289: --- If any errors happen abort API
3290: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3291: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3292: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3291: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3292: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3293: RAISE OKC_API.G_EXCEPTION_ERROR;
3294: END IF;
3295: l_return_status := populate_new_record(l_okc_process_defs_tl_rec, ldefokcprocessdefstlrec);
3296: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3297: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3298: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3299: RAISE OKC_API.G_EXCEPTION_ERROR;
3297: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3298: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3299: RAISE OKC_API.G_EXCEPTION_ERROR;
3300: END IF;
3301: UPDATE OKC_PROCESS_DEFS_TL
3302: SET NAME = ldefokcprocessdefstlrec.name,
3303: SOURCE_LANG = ldefokcprocessdefstlrec.source_lang,
3304: DESCRIPTION = ldefokcprocessdefstlrec.description,
3305: SHORT_DESCRIPTION = ldefokcprocessdefstlrec.short_description,
3312: WHERE ID = ldefokcprocessdefstlrec.id
3313: AND USERENV('LANG') IN (SOURCE_LANG, LANGUAGE);
3314: --AND SOURCE_LANG = USERENV('LANG');
3315:
3316: UPDATE OKC_PROCESS_DEFS_TL
3317: SET SFWT_FLAG = 'Y'
3318: WHERE ID = ldefokcprocessdefstlrec.id
3319: AND SOURCE_LANG <> USERENV('LANG');
3320:
3317: SET SFWT_FLAG = 'Y'
3318: WHERE ID = ldefokcprocessdefstlrec.id
3319: AND SOURCE_LANG <> USERENV('LANG');
3320:
3321: x_okc_process_defs_tl_rec := ldefokcprocessdefstlrec;
3322: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3323: EXCEPTION
3324: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3325: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3655: l_pdfv_rec pdfv_rec_type := p_pdfv_rec;
3656: l_def_pdfv_rec pdfv_rec_type;
3657: l_pdf_rec pdf_rec_type;
3658: lx_pdf_rec pdf_rec_type;
3659: l_okc_process_defs_tl_rec okc_process_defs_tl_rec_type;
3660: lx_okc_process_defs_tl_rec okc_process_defs_tl_rec_type;
3661: -------------------------------
3662: -- FUNCTION fill_who_columns --
3663: -------------------------------
3656: l_def_pdfv_rec pdfv_rec_type;
3657: l_pdf_rec pdf_rec_type;
3658: lx_pdf_rec pdf_rec_type;
3659: l_okc_process_defs_tl_rec okc_process_defs_tl_rec_type;
3660: lx_okc_process_defs_tl_rec okc_process_defs_tl_rec_type;
3661: -------------------------------
3662: -- FUNCTION fill_who_columns --
3663: -------------------------------
3664: FUNCTION fill_who_columns (
3925: --------------------------------------
3926: -- Move VIEW record to "Child" records
3927: --------------------------------------
3928: migrate(l_def_pdfv_rec, l_pdf_rec);
3929: migrate(l_def_pdfv_rec, l_okc_process_defs_tl_rec);
3930: --------------------------------------------
3931: -- Call the UPDATE_ROW for each child record
3932: --------------------------------------------
3933: update_row(
3948: p_init_msg_list,
3949: x_return_status,
3950: x_msg_count,
3951: x_msg_data,
3952: l_okc_process_defs_tl_rec,
3953: lx_okc_process_defs_tl_rec
3954: );
3955: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3956: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3949: x_return_status,
3950: x_msg_count,
3951: x_msg_data,
3952: l_okc_process_defs_tl_rec,
3953: lx_okc_process_defs_tl_rec
3954: );
3955: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3956: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3957: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3956: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3957: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3958: RAISE OKC_API.G_EXCEPTION_ERROR;
3959: END IF;
3960: migrate(lx_okc_process_defs_tl_rec, l_def_pdfv_rec);
3961: x_pdfv_rec := l_def_pdfv_rec;
3962: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3963: EXCEPTION
3964: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4062: ---------------------------------------------------------------------------
4063: -- PROCEDURE delete_row
4064: ---------------------------------------------------------------------------
4065: ----------------------------------------
4066: -- delete_row for:OKC_PROCESS_DEFS_TL --
4067: ----------------------------------------
4068: PROCEDURE delete_row(
4069: p_init_msg_list IN VARCHAR2,
4070: x_return_status OUT NOCOPY VARCHAR2,
4069: p_init_msg_list IN VARCHAR2,
4070: x_return_status OUT NOCOPY VARCHAR2,
4071: x_msg_count OUT NOCOPY NUMBER,
4072: x_msg_data OUT NOCOPY VARCHAR2,
4073: p_okc_process_defs_tl_rec IN okc_process_defs_tl_rec_type) IS
4074:
4075: l_api_version CONSTANT NUMBER := 1;
4076: l_api_name CONSTANT VARCHAR2(30) := 'TL_delete_row';
4077: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4074:
4075: l_api_version CONSTANT NUMBER := 1;
4076: l_api_name CONSTANT VARCHAR2(30) := 'TL_delete_row';
4077: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4078: l_okc_process_defs_tl_rec okc_process_defs_tl_rec_type:= p_okc_process_defs_tl_rec;
4079: l_row_notfound BOOLEAN := TRUE;
4080: --------------------------------------------
4081: -- Set_Attributes for:OKC_PROCESS_DEFS_TL --
4082: --------------------------------------------
4077: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4078: l_okc_process_defs_tl_rec okc_process_defs_tl_rec_type:= p_okc_process_defs_tl_rec;
4079: l_row_notfound BOOLEAN := TRUE;
4080: --------------------------------------------
4081: -- Set_Attributes for:OKC_PROCESS_DEFS_TL --
4082: --------------------------------------------
4083: FUNCTION Set_Attributes (
4084: p_okc_process_defs_tl_rec IN okc_process_defs_tl_rec_type,
4085: x_okc_process_defs_tl_rec OUT NOCOPY okc_process_defs_tl_rec_type
4080: --------------------------------------------
4081: -- Set_Attributes for:OKC_PROCESS_DEFS_TL --
4082: --------------------------------------------
4083: FUNCTION Set_Attributes (
4084: p_okc_process_defs_tl_rec IN okc_process_defs_tl_rec_type,
4085: x_okc_process_defs_tl_rec OUT NOCOPY okc_process_defs_tl_rec_type
4086: ) RETURN VARCHAR2 IS
4087: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4088: BEGIN
4081: -- Set_Attributes for:OKC_PROCESS_DEFS_TL --
4082: --------------------------------------------
4083: FUNCTION Set_Attributes (
4084: p_okc_process_defs_tl_rec IN okc_process_defs_tl_rec_type,
4085: x_okc_process_defs_tl_rec OUT NOCOPY okc_process_defs_tl_rec_type
4086: ) RETURN VARCHAR2 IS
4087: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4088: BEGIN
4089: x_okc_process_defs_tl_rec := p_okc_process_defs_tl_rec;
4085: x_okc_process_defs_tl_rec OUT NOCOPY okc_process_defs_tl_rec_type
4086: ) RETURN VARCHAR2 IS
4087: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4088: BEGIN
4089: x_okc_process_defs_tl_rec := p_okc_process_defs_tl_rec;
4090: x_okc_process_defs_tl_rec.LANGUAGE := l_lang;
4091: RETURN(l_return_status);
4092: END Set_Attributes;
4093: BEGIN
4086: ) RETURN VARCHAR2 IS
4087: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4088: BEGIN
4089: x_okc_process_defs_tl_rec := p_okc_process_defs_tl_rec;
4090: x_okc_process_defs_tl_rec.LANGUAGE := l_lang;
4091: RETURN(l_return_status);
4092: END Set_Attributes;
4093: BEGIN
4094: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4101: RAISE OKC_API.G_EXCEPTION_ERROR;
4102: END IF;
4103: --- Setting item attributes
4104: l_return_status := Set_Attributes(
4105: p_okc_process_defs_tl_rec, -- IN
4106: l_okc_process_defs_tl_rec); -- OUT
4107: --- If any errors happen abort API
4108: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4109: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4102: END IF;
4103: --- Setting item attributes
4104: l_return_status := Set_Attributes(
4105: p_okc_process_defs_tl_rec, -- IN
4106: l_okc_process_defs_tl_rec); -- OUT
4107: --- If any errors happen abort API
4108: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4109: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4110: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4109: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4110: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4111: RAISE OKC_API.G_EXCEPTION_ERROR;
4112: END IF;
4113: DELETE FROM OKC_PROCESS_DEFS_TL
4114: WHERE ID = l_okc_process_defs_tl_rec.id;
4115:
4116: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4117: EXCEPTION
4110: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4111: RAISE OKC_API.G_EXCEPTION_ERROR;
4112: END IF;
4113: DELETE FROM OKC_PROCESS_DEFS_TL
4114: WHERE ID = l_okc_process_defs_tl_rec.id;
4115:
4116: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4117: EXCEPTION
4118: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4222: l_api_name CONSTANT VARCHAR2(30) := 'V_delete_row';
4223: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4224: l_pdfv_rec pdfv_rec_type := p_pdfv_rec;
4225: l_pdf_rec pdf_rec_type;
4226: l_okc_process_defs_tl_rec okc_process_defs_tl_rec_type;
4227: BEGIN
4228: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4229: G_PKG_NAME,
4230: p_init_msg_list,
4250: --------------------------------------
4251: -- Move VIEW record to "Child" records
4252: --------------------------------------
4253: migrate(l_pdfv_rec, l_pdf_rec);
4254: migrate(l_pdfv_rec, l_okc_process_defs_tl_rec);
4255: --------------------------------------------
4256: -- Call the DELETE_ROW for each child record
4257: --------------------------------------------
4258: delete_row(
4271: p_init_msg_list,
4272: x_return_status,
4273: x_msg_count,
4274: x_msg_data,
4275: l_okc_process_defs_tl_rec
4276: );
4277: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4278: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4279: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN