6: /*+++++++++++++Start of hand code +++++++++++++++++*/
7: G_UNEXPECTED_ERROR CONSTANT varchar2(200) := 'OKC_UNEXPECTED_ERROR';
8: G_SQLERRM_TOKEN CONSTANT varchar2(200) := 'ERROR_MESSAGE';
9: G_SQLCODE_TOKEN CONSTANT varchar2(200) := 'ERROR_CODE';
10: g_return_status varchar2(1) := OKC_API.G_RET_STS_SUCCESS;
11: /*+++++++++++++End of hand code +++++++++++++++++++*/
12:
13: ---------------------------------------------------------------------------
14: -- FUNCTION get_seq_id
68: procedure validate_type(p_oper IN VARCHAR2,
69: x_return_status OUT NOCOPY VARCHAR2,
70: p_prmv_rec IN prmv_rec_TYPE) is
71: begin
72: x_return_status := OKC_API.G_RET_STS_SUCCESS;
73: if (p_prmv_rec.type in ('DATE','NUMBER','VARCHAR2','LOV')) then
74: x_return_status := OKC_API.G_RET_STS_SUCCESS;
75: return;
76: end if;
70: p_prmv_rec IN prmv_rec_TYPE) is
71: begin
72: x_return_status := OKC_API.G_RET_STS_SUCCESS;
73: if (p_prmv_rec.type in ('DATE','NUMBER','VARCHAR2','LOV')) then
74: x_return_status := OKC_API.G_RET_STS_SUCCESS;
75: return;
76: end if;
77: if (p_prmv_rec.type is NULL or
78: (p_prmv_rec.type = OKC_API.G_MISS_CHAR and p_oper = 'I')) then
74: x_return_status := OKC_API.G_RET_STS_SUCCESS;
75: return;
76: end if;
77: if (p_prmv_rec.type is NULL or
78: (p_prmv_rec.type = OKC_API.G_MISS_CHAR and p_oper = 'I')) then
79: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'TYPE');
80: x_return_status := OKC_API.G_RET_STS_ERROR;
81: return;
82: end if;
75: return;
76: end if;
77: if (p_prmv_rec.type is NULL or
78: (p_prmv_rec.type = OKC_API.G_MISS_CHAR and p_oper = 'I')) then
79: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'TYPE');
80: x_return_status := OKC_API.G_RET_STS_ERROR;
81: return;
82: end if;
83: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'TYPE');
76: end if;
77: if (p_prmv_rec.type is NULL or
78: (p_prmv_rec.type = OKC_API.G_MISS_CHAR and p_oper = 'I')) then
79: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'TYPE');
80: x_return_status := OKC_API.G_RET_STS_ERROR;
81: return;
82: end if;
83: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'TYPE');
84: x_return_status := OKC_API.G_RET_STS_ERROR;
79: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'TYPE');
80: x_return_status := OKC_API.G_RET_STS_ERROR;
81: return;
82: end if;
83: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'TYPE');
84: x_return_status := OKC_API.G_RET_STS_ERROR;
85: return;
86: exception
87: when OTHERS then
80: x_return_status := OKC_API.G_RET_STS_ERROR;
81: return;
82: end if;
83: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'TYPE');
84: x_return_status := OKC_API.G_RET_STS_ERROR;
85: return;
86: exception
87: when OTHERS then
88: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
84: x_return_status := OKC_API.G_RET_STS_ERROR;
85: return;
86: exception
87: when OTHERS then
88: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
89: p_msg_name => g_unexpected_error,
90: p_token1 => g_sqlcode_token,
91: p_token1_value => sqlcode,
92: p_token2 => g_sqlerrm_token,
90: p_token1 => g_sqlcode_token,
91: p_token1_value => sqlcode,
92: p_token2 => g_sqlerrm_token,
93: p_token2_value => sqlerrm);
94: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
95: end validate_type;
96:
97: -- Start of comments
98: --
105: procedure validate_prompt(p_oper IN VARCHAR2,
106: x_return_status OUT NOCOPY VARCHAR2,
107: p_prmv_rec IN prmv_rec_TYPE) is
108: begin
109: x_return_status := OKC_API.G_RET_STS_SUCCESS;
110: if (p_prmv_rec.prompt is NULL or
111: (p_prmv_rec.prompt = OKC_API.G_MISS_CHAR and p_oper = 'I')) then
112: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'PROMPT');
113: x_return_status := OKC_API.G_RET_STS_ERROR;
107: p_prmv_rec IN prmv_rec_TYPE) is
108: begin
109: x_return_status := OKC_API.G_RET_STS_SUCCESS;
110: if (p_prmv_rec.prompt is NULL or
111: (p_prmv_rec.prompt = OKC_API.G_MISS_CHAR and p_oper = 'I')) then
112: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'PROMPT');
113: x_return_status := OKC_API.G_RET_STS_ERROR;
114: return;
115: end if;
108: begin
109: x_return_status := OKC_API.G_RET_STS_SUCCESS;
110: if (p_prmv_rec.prompt is NULL or
111: (p_prmv_rec.prompt = OKC_API.G_MISS_CHAR and p_oper = 'I')) then
112: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'PROMPT');
113: x_return_status := OKC_API.G_RET_STS_ERROR;
114: return;
115: end if;
116: return;
109: x_return_status := OKC_API.G_RET_STS_SUCCESS;
110: if (p_prmv_rec.prompt is NULL or
111: (p_prmv_rec.prompt = OKC_API.G_MISS_CHAR and p_oper = 'I')) then
112: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'PROMPT');
113: x_return_status := OKC_API.G_RET_STS_ERROR;
114: return;
115: end if;
116: return;
117: exception
115: end if;
116: return;
117: exception
118: when OTHERS then
119: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
120: p_msg_name => g_unexpected_error,
121: p_token1 => g_sqlcode_token,
122: p_token1_value => sqlcode,
123: p_token2 => g_sqlerrm_token,
121: p_token1 => g_sqlcode_token,
122: p_token1_value => sqlcode,
123: p_token2 => g_sqlerrm_token,
124: p_token2_value => sqlerrm);
125: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
126: end validate_prompt;
127:
128: -- Start of comments
129: --
136: procedure validate_lov_query(p_oper IN VARCHAR2,
137: x_return_status OUT NOCOPY VARCHAR2,
138: p_prmv_rec IN prmv_rec_TYPE) is
139: begin
140: x_return_status := OKC_API.G_RET_STS_SUCCESS;
141: if ((p_prmv_rec.type = 'LOV') and
142: (p_prmv_rec.lov_query is NULL or
143: (p_prmv_rec.lov_query = OKC_API.G_MISS_CHAR and p_oper = 'I')
144: )
139: begin
140: x_return_status := OKC_API.G_RET_STS_SUCCESS;
141: if ((p_prmv_rec.type = 'LOV') and
142: (p_prmv_rec.lov_query is NULL or
143: (p_prmv_rec.lov_query = OKC_API.G_MISS_CHAR and p_oper = 'I')
144: )
145: ) then
146: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'LOV_QUERY');
147: x_return_status := OKC_API.G_RET_STS_ERROR;
142: (p_prmv_rec.lov_query is NULL or
143: (p_prmv_rec.lov_query = OKC_API.G_MISS_CHAR and p_oper = 'I')
144: )
145: ) then
146: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'LOV_QUERY');
147: x_return_status := OKC_API.G_RET_STS_ERROR;
148: return;
149: end if;
150: return;
143: (p_prmv_rec.lov_query = OKC_API.G_MISS_CHAR and p_oper = 'I')
144: )
145: ) then
146: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'LOV_QUERY');
147: x_return_status := OKC_API.G_RET_STS_ERROR;
148: return;
149: end if;
150: return;
151: exception
149: end if;
150: return;
151: exception
152: when OTHERS then
153: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
154: p_msg_name => g_unexpected_error,
155: p_token1 => g_sqlcode_token,
156: p_token1_value => sqlcode,
157: p_token2 => g_sqlerrm_token,
155: p_token1 => g_sqlcode_token,
156: p_token1_value => sqlcode,
157: p_token2 => g_sqlerrm_token,
158: p_token2_value => sqlerrm);
159: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
160: end validate_lov_query;
161:
162: -- Start of comments
163: --
170: procedure validate_required_yn(p_oper IN VARCHAR2,
171: x_return_status OUT NOCOPY VARCHAR2,
172: p_prmv_rec IN prmv_rec_TYPE) is
173: begin
174: x_return_status := OKC_API.G_RET_STS_SUCCESS;
175: if (p_prmv_rec.required_yn in ('Y','N')) then
176: x_return_status := OKC_API.G_RET_STS_SUCCESS;
177: return;
178: end if;
172: p_prmv_rec IN prmv_rec_TYPE) is
173: begin
174: x_return_status := OKC_API.G_RET_STS_SUCCESS;
175: if (p_prmv_rec.required_yn in ('Y','N')) then
176: x_return_status := OKC_API.G_RET_STS_SUCCESS;
177: return;
178: end if;
179: if (p_prmv_rec.required_yn is NULL or
180: (p_prmv_rec.required_yn = OKC_API.G_MISS_CHAR and p_oper = 'I')) then
176: x_return_status := OKC_API.G_RET_STS_SUCCESS;
177: return;
178: end if;
179: if (p_prmv_rec.required_yn is NULL or
180: (p_prmv_rec.required_yn = OKC_API.G_MISS_CHAR and p_oper = 'I')) then
181: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'REQUIRED_YN');
182: x_return_status := OKC_API.G_RET_STS_ERROR;
183: return;
184: end if;
177: return;
178: end if;
179: if (p_prmv_rec.required_yn is NULL or
180: (p_prmv_rec.required_yn = OKC_API.G_MISS_CHAR and p_oper = 'I')) then
181: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'REQUIRED_YN');
182: x_return_status := OKC_API.G_RET_STS_ERROR;
183: return;
184: end if;
185: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'REQUIRED_YN');
178: end if;
179: if (p_prmv_rec.required_yn is NULL or
180: (p_prmv_rec.required_yn = OKC_API.G_MISS_CHAR and p_oper = 'I')) then
181: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'REQUIRED_YN');
182: x_return_status := OKC_API.G_RET_STS_ERROR;
183: return;
184: end if;
185: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'REQUIRED_YN');
186: x_return_status := OKC_API.G_RET_STS_ERROR;
181: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'REQUIRED_YN');
182: x_return_status := OKC_API.G_RET_STS_ERROR;
183: return;
184: end if;
185: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'REQUIRED_YN');
186: x_return_status := OKC_API.G_RET_STS_ERROR;
187: return;
188: exception
189: when OTHERS then
182: x_return_status := OKC_API.G_RET_STS_ERROR;
183: return;
184: end if;
185: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'REQUIRED_YN');
186: x_return_status := OKC_API.G_RET_STS_ERROR;
187: return;
188: exception
189: when OTHERS then
190: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
186: x_return_status := OKC_API.G_RET_STS_ERROR;
187: return;
188: exception
189: when OTHERS then
190: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
191: p_msg_name => g_unexpected_error,
192: p_token1 => g_sqlcode_token,
193: p_token1_value => sqlcode,
194: p_token2 => g_sqlerrm_token,
192: p_token1 => g_sqlcode_token,
193: p_token1_value => sqlcode,
194: p_token2 => g_sqlerrm_token,
195: p_token2_value => sqlerrm);
196: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
197: end validate_required_yn;
198:
199: -- Start of comments
200: --
213: from OKC_REPORT_PRM_V
214: where sql_id = n1 and sequence_num = n2
215: and id <> n3;
216: begin
217: x_return_status := OKC_API.G_RET_STS_SUCCESS;
218: if (p_prmv_rec.SQL_ID is NULL or
219: (p_prmv_rec.SQL_ID = OKC_API.G_MISS_NUM and p_oper = 'I')) then
220: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'SQL_ID');
221: x_return_status := OKC_API.G_RET_STS_ERROR;
215: and id <> n3;
216: begin
217: x_return_status := OKC_API.G_RET_STS_SUCCESS;
218: if (p_prmv_rec.SQL_ID is NULL or
219: (p_prmv_rec.SQL_ID = OKC_API.G_MISS_NUM and p_oper = 'I')) then
220: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'SQL_ID');
221: x_return_status := OKC_API.G_RET_STS_ERROR;
222: return;
223: end if;
216: begin
217: x_return_status := OKC_API.G_RET_STS_SUCCESS;
218: if (p_prmv_rec.SQL_ID is NULL or
219: (p_prmv_rec.SQL_ID = OKC_API.G_MISS_NUM and p_oper = 'I')) then
220: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'SQL_ID');
221: x_return_status := OKC_API.G_RET_STS_ERROR;
222: return;
223: end if;
224: if (p_prmv_rec.sequence_num is NULL or
217: x_return_status := OKC_API.G_RET_STS_SUCCESS;
218: if (p_prmv_rec.SQL_ID is NULL or
219: (p_prmv_rec.SQL_ID = OKC_API.G_MISS_NUM and p_oper = 'I')) then
220: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'SQL_ID');
221: x_return_status := OKC_API.G_RET_STS_ERROR;
222: return;
223: end if;
224: if (p_prmv_rec.sequence_num is NULL or
225: (p_prmv_rec.sequence_num = OKC_API.G_MISS_NUM and p_oper = 'I')) then
221: x_return_status := OKC_API.G_RET_STS_ERROR;
222: return;
223: end if;
224: if (p_prmv_rec.sequence_num is NULL or
225: (p_prmv_rec.sequence_num = OKC_API.G_MISS_NUM and p_oper = 'I')) then
226: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'SEQUENCE_NUM');
227: x_return_status := OKC_API.G_RET_STS_ERROR;
228: return;
229: end if;
222: return;
223: end if;
224: if (p_prmv_rec.sequence_num is NULL or
225: (p_prmv_rec.sequence_num = OKC_API.G_MISS_NUM and p_oper = 'I')) then
226: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'SEQUENCE_NUM');
227: x_return_status := OKC_API.G_RET_STS_ERROR;
228: return;
229: end if;
230: open c1(p_prmv_rec.SQL_ID,p_prmv_rec.SEQUENCE_NUM, p_prmv_rec.id);
223: end if;
224: if (p_prmv_rec.sequence_num is NULL or
225: (p_prmv_rec.sequence_num = OKC_API.G_MISS_NUM and p_oper = 'I')) then
226: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'SEQUENCE_NUM');
227: x_return_status := OKC_API.G_RET_STS_ERROR;
228: return;
229: end if;
230: open c1(p_prmv_rec.SQL_ID,p_prmv_rec.SEQUENCE_NUM, p_prmv_rec.id);
231: fetch c1 into l_dummy;
230: open c1(p_prmv_rec.SQL_ID,p_prmv_rec.SEQUENCE_NUM, p_prmv_rec.id);
231: fetch c1 into l_dummy;
232: close c1;
233: if (l_dummy = '!') then
234: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
235: p_msg_name => OKC_UTIL.G_UNQ,
236: p_token1 => OKC_API.G_COL_NAME_TOKEN,
237: p_token1_value => 'SEQUENCE_NUM');
238: x_return_status := OKC_API.G_RET_STS_ERROR;
232: close c1;
233: if (l_dummy = '!') then
234: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
235: p_msg_name => OKC_UTIL.G_UNQ,
236: p_token1 => OKC_API.G_COL_NAME_TOKEN,
237: p_token1_value => 'SEQUENCE_NUM');
238: x_return_status := OKC_API.G_RET_STS_ERROR;
239: end if;
240: exception
234: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
235: p_msg_name => OKC_UTIL.G_UNQ,
236: p_token1 => OKC_API.G_COL_NAME_TOKEN,
237: p_token1_value => 'SEQUENCE_NUM');
238: x_return_status := OKC_API.G_RET_STS_ERROR;
239: end if;
240: exception
241: when OTHERS then
242: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
238: x_return_status := OKC_API.G_RET_STS_ERROR;
239: end if;
240: exception
241: when OTHERS then
242: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
243: p_msg_name => g_unexpected_error,
244: p_token1 => g_sqlcode_token,
245: p_token1_value => sqlcode,
246: p_token2 => g_sqlerrm_token,
244: p_token1 => g_sqlcode_token,
245: p_token1_value => sqlcode,
246: p_token2 => g_sqlerrm_token,
247: p_token2_value => sqlerrm);
248: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
249: end validate_sequence_num;
250:
251: -- Start of comments
252: --
265: from OKC_REPORT_PRM_V
266: where sql_id = n1 and code = c2
267: and id <> n3;
268: begin
269: x_return_status := OKC_API.G_RET_STS_SUCCESS;
270: if (p_prmv_rec.CODE = 'xid') then
271: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'CODE: xid');
272: x_return_status := OKC_API.G_RET_STS_ERROR;
273: return;
267: and id <> n3;
268: begin
269: x_return_status := OKC_API.G_RET_STS_SUCCESS;
270: if (p_prmv_rec.CODE = 'xid') then
271: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'CODE: xid');
272: x_return_status := OKC_API.G_RET_STS_ERROR;
273: return;
274: end if;
275: if (substr(p_prmv_rec.CODE,1,1) = '_') then
268: begin
269: x_return_status := OKC_API.G_RET_STS_SUCCESS;
270: if (p_prmv_rec.CODE = 'xid') then
271: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'CODE: xid');
272: x_return_status := OKC_API.G_RET_STS_ERROR;
273: return;
274: end if;
275: if (substr(p_prmv_rec.CODE,1,1) = '_') then
276: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'CODE: _...');
272: x_return_status := OKC_API.G_RET_STS_ERROR;
273: return;
274: end if;
275: if (substr(p_prmv_rec.CODE,1,1) = '_') then
276: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'CODE: _...');
277: x_return_status := OKC_API.G_RET_STS_ERROR;
278: return;
279: end if;
280: if (instr(p_prmv_rec.CODE,'"') > 0) then
273: return;
274: end if;
275: if (substr(p_prmv_rec.CODE,1,1) = '_') then
276: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'CODE: _...');
277: x_return_status := OKC_API.G_RET_STS_ERROR;
278: return;
279: end if;
280: if (instr(p_prmv_rec.CODE,'"') > 0) then
281: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'CODE: ..."...');
277: x_return_status := OKC_API.G_RET_STS_ERROR;
278: return;
279: end if;
280: if (instr(p_prmv_rec.CODE,'"') > 0) then
281: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'CODE: ..."...');
282: x_return_status := OKC_API.G_RET_STS_ERROR;
283: return;
284: end if;
285: if (p_prmv_rec.SQL_ID is NULL or
278: return;
279: end if;
280: if (instr(p_prmv_rec.CODE,'"') > 0) then
281: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'CODE: ..."...');
282: x_return_status := OKC_API.G_RET_STS_ERROR;
283: return;
284: end if;
285: if (p_prmv_rec.SQL_ID is NULL or
286: (p_prmv_rec.SQL_ID = OKC_API.G_MISS_NUM and p_oper = 'I')) then
282: x_return_status := OKC_API.G_RET_STS_ERROR;
283: return;
284: end if;
285: if (p_prmv_rec.SQL_ID is NULL or
286: (p_prmv_rec.SQL_ID = OKC_API.G_MISS_NUM and p_oper = 'I')) then
287: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'SQL_ID');
288: x_return_status := OKC_API.G_RET_STS_ERROR;
289: return;
290: end if;
283: return;
284: end if;
285: if (p_prmv_rec.SQL_ID is NULL or
286: (p_prmv_rec.SQL_ID = OKC_API.G_MISS_NUM and p_oper = 'I')) then
287: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'SQL_ID');
288: x_return_status := OKC_API.G_RET_STS_ERROR;
289: return;
290: end if;
291: if (p_prmv_rec.code is NULL or
284: end if;
285: if (p_prmv_rec.SQL_ID is NULL or
286: (p_prmv_rec.SQL_ID = OKC_API.G_MISS_NUM and p_oper = 'I')) then
287: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'SQL_ID');
288: x_return_status := OKC_API.G_RET_STS_ERROR;
289: return;
290: end if;
291: if (p_prmv_rec.code is NULL or
292: (p_prmv_rec.code = OKC_API.G_MISS_CHAR and p_oper = 'I')) then
288: x_return_status := OKC_API.G_RET_STS_ERROR;
289: return;
290: end if;
291: if (p_prmv_rec.code is NULL or
292: (p_prmv_rec.code = OKC_API.G_MISS_CHAR and p_oper = 'I')) then
293: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'CODE');
294: x_return_status := OKC_API.G_RET_STS_ERROR;
295: return;
296: end if;
289: return;
290: end if;
291: if (p_prmv_rec.code is NULL or
292: (p_prmv_rec.code = OKC_API.G_MISS_CHAR and p_oper = 'I')) then
293: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'CODE');
294: x_return_status := OKC_API.G_RET_STS_ERROR;
295: return;
296: end if;
297: open c1(p_prmv_rec.SQL_ID,p_prmv_rec.CODE,p_prmv_rec.id);
290: end if;
291: if (p_prmv_rec.code is NULL or
292: (p_prmv_rec.code = OKC_API.G_MISS_CHAR and p_oper = 'I')) then
293: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'CODE');
294: x_return_status := OKC_API.G_RET_STS_ERROR;
295: return;
296: end if;
297: open c1(p_prmv_rec.SQL_ID,p_prmv_rec.CODE,p_prmv_rec.id);
298: fetch c1 into l_dummy;
297: open c1(p_prmv_rec.SQL_ID,p_prmv_rec.CODE,p_prmv_rec.id);
298: fetch c1 into l_dummy;
299: close c1;
300: if (l_dummy = '!') then
301: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
302: p_msg_name => OKC_UTIL.G_UNQ,
303: p_token1 => OKC_API.G_COL_NAME_TOKEN,
304: p_token1_value => 'CODE');
305: x_return_status := OKC_API.G_RET_STS_ERROR;
299: close c1;
300: if (l_dummy = '!') then
301: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
302: p_msg_name => OKC_UTIL.G_UNQ,
303: p_token1 => OKC_API.G_COL_NAME_TOKEN,
304: p_token1_value => 'CODE');
305: x_return_status := OKC_API.G_RET_STS_ERROR;
306: end if;
307: exception
301: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
302: p_msg_name => OKC_UTIL.G_UNQ,
303: p_token1 => OKC_API.G_COL_NAME_TOKEN,
304: p_token1_value => 'CODE');
305: x_return_status := OKC_API.G_RET_STS_ERROR;
306: end if;
307: exception
308: when OTHERS then
309: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
305: x_return_status := OKC_API.G_RET_STS_ERROR;
306: end if;
307: exception
308: when OTHERS then
309: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
310: p_msg_name => g_unexpected_error,
311: p_token1 => g_sqlcode_token,
312: p_token1_value => sqlcode,
313: p_token2 => g_sqlerrm_token,
311: p_token1 => g_sqlcode_token,
312: p_token1_value => sqlcode,
313: p_token2 => g_sqlerrm_token,
314: p_token2_value => sqlerrm);
315: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
316: end validate_code;
317:
318: FUNCTION Validate_Attributes (p_oper IN varchar2,
319: p_prmv_rec IN prmv_rec_type
317:
318: FUNCTION Validate_Attributes (p_oper IN varchar2,
319: p_prmv_rec IN prmv_rec_type
320: ) RETURN VARCHAR2 IS
321: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
322: x_return_status varchar2(1) := OKC_API.G_RET_STS_SUCCESS;
323: BEGIN
324:
325: validate_type(p_oper => p_oper, x_return_status => l_return_status, p_prmv_rec => p_prmv_rec);
318: FUNCTION Validate_Attributes (p_oper IN varchar2,
319: p_prmv_rec IN prmv_rec_type
320: ) RETURN VARCHAR2 IS
321: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
322: x_return_status varchar2(1) := OKC_API.G_RET_STS_SUCCESS;
323: BEGIN
324:
325: validate_type(p_oper => p_oper, x_return_status => l_return_status, p_prmv_rec => p_prmv_rec);
326: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
322: x_return_status varchar2(1) := OKC_API.G_RET_STS_SUCCESS;
323: BEGIN
324:
325: validate_type(p_oper => p_oper, x_return_status => l_return_status, p_prmv_rec => p_prmv_rec);
326: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
327: return OKC_API.G_RET_STS_UNEXP_ERROR;
328: end if;
329: if (l_return_status = OKC_API.G_RET_STS_ERROR
330: and x_return_status = OKC_API.G_RET_STS_SUCCESS) then
323: BEGIN
324:
325: validate_type(p_oper => p_oper, x_return_status => l_return_status, p_prmv_rec => p_prmv_rec);
326: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
327: return OKC_API.G_RET_STS_UNEXP_ERROR;
328: end if;
329: if (l_return_status = OKC_API.G_RET_STS_ERROR
330: and x_return_status = OKC_API.G_RET_STS_SUCCESS) then
331: x_return_status := OKC_API.G_RET_STS_ERROR;
325: validate_type(p_oper => p_oper, x_return_status => l_return_status, p_prmv_rec => p_prmv_rec);
326: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
327: return OKC_API.G_RET_STS_UNEXP_ERROR;
328: end if;
329: if (l_return_status = OKC_API.G_RET_STS_ERROR
330: and x_return_status = OKC_API.G_RET_STS_SUCCESS) then
331: x_return_status := OKC_API.G_RET_STS_ERROR;
332: end if;
333:
326: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
327: return OKC_API.G_RET_STS_UNEXP_ERROR;
328: end if;
329: if (l_return_status = OKC_API.G_RET_STS_ERROR
330: and x_return_status = OKC_API.G_RET_STS_SUCCESS) then
331: x_return_status := OKC_API.G_RET_STS_ERROR;
332: end if;
333:
334: validate_lov_query(p_oper => p_oper, x_return_status => l_return_status, p_prmv_rec => p_prmv_rec);
327: return OKC_API.G_RET_STS_UNEXP_ERROR;
328: end if;
329: if (l_return_status = OKC_API.G_RET_STS_ERROR
330: and x_return_status = OKC_API.G_RET_STS_SUCCESS) then
331: x_return_status := OKC_API.G_RET_STS_ERROR;
332: end if;
333:
334: validate_lov_query(p_oper => p_oper, x_return_status => l_return_status, p_prmv_rec => p_prmv_rec);
335: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
331: x_return_status := OKC_API.G_RET_STS_ERROR;
332: end if;
333:
334: validate_lov_query(p_oper => p_oper, x_return_status => l_return_status, p_prmv_rec => p_prmv_rec);
335: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
336: return OKC_API.G_RET_STS_UNEXP_ERROR;
337: end if;
338: if (l_return_status = OKC_API.G_RET_STS_ERROR
339: and x_return_status = OKC_API.G_RET_STS_SUCCESS) then
332: end if;
333:
334: validate_lov_query(p_oper => p_oper, x_return_status => l_return_status, p_prmv_rec => p_prmv_rec);
335: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
336: return OKC_API.G_RET_STS_UNEXP_ERROR;
337: end if;
338: if (l_return_status = OKC_API.G_RET_STS_ERROR
339: and x_return_status = OKC_API.G_RET_STS_SUCCESS) then
340: x_return_status := OKC_API.G_RET_STS_ERROR;
334: validate_lov_query(p_oper => p_oper, x_return_status => l_return_status, p_prmv_rec => p_prmv_rec);
335: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
336: return OKC_API.G_RET_STS_UNEXP_ERROR;
337: end if;
338: if (l_return_status = OKC_API.G_RET_STS_ERROR
339: and x_return_status = OKC_API.G_RET_STS_SUCCESS) then
340: x_return_status := OKC_API.G_RET_STS_ERROR;
341: end if;
342:
335: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
336: return OKC_API.G_RET_STS_UNEXP_ERROR;
337: end if;
338: if (l_return_status = OKC_API.G_RET_STS_ERROR
339: and x_return_status = OKC_API.G_RET_STS_SUCCESS) then
340: x_return_status := OKC_API.G_RET_STS_ERROR;
341: end if;
342:
343: validate_prompt(p_oper => p_oper, x_return_status => l_return_status, p_prmv_rec => p_prmv_rec);
336: return OKC_API.G_RET_STS_UNEXP_ERROR;
337: end if;
338: if (l_return_status = OKC_API.G_RET_STS_ERROR
339: and x_return_status = OKC_API.G_RET_STS_SUCCESS) then
340: x_return_status := OKC_API.G_RET_STS_ERROR;
341: end if;
342:
343: validate_prompt(p_oper => p_oper, x_return_status => l_return_status, p_prmv_rec => p_prmv_rec);
344: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
340: x_return_status := OKC_API.G_RET_STS_ERROR;
341: end if;
342:
343: validate_prompt(p_oper => p_oper, x_return_status => l_return_status, p_prmv_rec => p_prmv_rec);
344: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
345: return OKC_API.G_RET_STS_UNEXP_ERROR;
346: end if;
347: if (l_return_status = OKC_API.G_RET_STS_ERROR
348: and x_return_status = OKC_API.G_RET_STS_SUCCESS) then
341: end if;
342:
343: validate_prompt(p_oper => p_oper, x_return_status => l_return_status, p_prmv_rec => p_prmv_rec);
344: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
345: return OKC_API.G_RET_STS_UNEXP_ERROR;
346: end if;
347: if (l_return_status = OKC_API.G_RET_STS_ERROR
348: and x_return_status = OKC_API.G_RET_STS_SUCCESS) then
349: x_return_status := OKC_API.G_RET_STS_ERROR;
343: validate_prompt(p_oper => p_oper, x_return_status => l_return_status, p_prmv_rec => p_prmv_rec);
344: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
345: return OKC_API.G_RET_STS_UNEXP_ERROR;
346: end if;
347: if (l_return_status = OKC_API.G_RET_STS_ERROR
348: and x_return_status = OKC_API.G_RET_STS_SUCCESS) then
349: x_return_status := OKC_API.G_RET_STS_ERROR;
350: end if;
351:
344: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
345: return OKC_API.G_RET_STS_UNEXP_ERROR;
346: end if;
347: if (l_return_status = OKC_API.G_RET_STS_ERROR
348: and x_return_status = OKC_API.G_RET_STS_SUCCESS) then
349: x_return_status := OKC_API.G_RET_STS_ERROR;
350: end if;
351:
352: validate_required_yn(p_oper => p_oper, x_return_status => l_return_status, p_prmv_rec => p_prmv_rec);
345: return OKC_API.G_RET_STS_UNEXP_ERROR;
346: end if;
347: if (l_return_status = OKC_API.G_RET_STS_ERROR
348: and x_return_status = OKC_API.G_RET_STS_SUCCESS) then
349: x_return_status := OKC_API.G_RET_STS_ERROR;
350: end if;
351:
352: validate_required_yn(p_oper => p_oper, x_return_status => l_return_status, p_prmv_rec => p_prmv_rec);
353: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
349: x_return_status := OKC_API.G_RET_STS_ERROR;
350: end if;
351:
352: validate_required_yn(p_oper => p_oper, x_return_status => l_return_status, p_prmv_rec => p_prmv_rec);
353: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
354: return OKC_API.G_RET_STS_UNEXP_ERROR;
355: end if;
356: if (l_return_status = OKC_API.G_RET_STS_ERROR
357: and x_return_status = OKC_API.G_RET_STS_SUCCESS) then
350: end if;
351:
352: validate_required_yn(p_oper => p_oper, x_return_status => l_return_status, p_prmv_rec => p_prmv_rec);
353: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
354: return OKC_API.G_RET_STS_UNEXP_ERROR;
355: end if;
356: if (l_return_status = OKC_API.G_RET_STS_ERROR
357: and x_return_status = OKC_API.G_RET_STS_SUCCESS) then
358: x_return_status := OKC_API.G_RET_STS_ERROR;
352: validate_required_yn(p_oper => p_oper, x_return_status => l_return_status, p_prmv_rec => p_prmv_rec);
353: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
354: return OKC_API.G_RET_STS_UNEXP_ERROR;
355: end if;
356: if (l_return_status = OKC_API.G_RET_STS_ERROR
357: and x_return_status = OKC_API.G_RET_STS_SUCCESS) then
358: x_return_status := OKC_API.G_RET_STS_ERROR;
359: end if;
360:
353: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
354: return OKC_API.G_RET_STS_UNEXP_ERROR;
355: end if;
356: if (l_return_status = OKC_API.G_RET_STS_ERROR
357: and x_return_status = OKC_API.G_RET_STS_SUCCESS) then
358: x_return_status := OKC_API.G_RET_STS_ERROR;
359: end if;
360:
361: validate_sequence_num(p_oper => p_oper, x_return_status => l_return_status, p_prmv_rec => p_prmv_rec);
354: return OKC_API.G_RET_STS_UNEXP_ERROR;
355: end if;
356: if (l_return_status = OKC_API.G_RET_STS_ERROR
357: and x_return_status = OKC_API.G_RET_STS_SUCCESS) then
358: x_return_status := OKC_API.G_RET_STS_ERROR;
359: end if;
360:
361: validate_sequence_num(p_oper => p_oper, x_return_status => l_return_status, p_prmv_rec => p_prmv_rec);
362: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
358: x_return_status := OKC_API.G_RET_STS_ERROR;
359: end if;
360:
361: validate_sequence_num(p_oper => p_oper, x_return_status => l_return_status, p_prmv_rec => p_prmv_rec);
362: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
363: return OKC_API.G_RET_STS_UNEXP_ERROR;
364: end if;
365: if (l_return_status = OKC_API.G_RET_STS_ERROR
366: and x_return_status = OKC_API.G_RET_STS_SUCCESS) then
359: end if;
360:
361: validate_sequence_num(p_oper => p_oper, x_return_status => l_return_status, p_prmv_rec => p_prmv_rec);
362: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
363: return OKC_API.G_RET_STS_UNEXP_ERROR;
364: end if;
365: if (l_return_status = OKC_API.G_RET_STS_ERROR
366: and x_return_status = OKC_API.G_RET_STS_SUCCESS) then
367: x_return_status := OKC_API.G_RET_STS_ERROR;
361: validate_sequence_num(p_oper => p_oper, x_return_status => l_return_status, p_prmv_rec => p_prmv_rec);
362: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
363: return OKC_API.G_RET_STS_UNEXP_ERROR;
364: end if;
365: if (l_return_status = OKC_API.G_RET_STS_ERROR
366: and x_return_status = OKC_API.G_RET_STS_SUCCESS) then
367: x_return_status := OKC_API.G_RET_STS_ERROR;
368: end if;
369:
362: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
363: return OKC_API.G_RET_STS_UNEXP_ERROR;
364: end if;
365: if (l_return_status = OKC_API.G_RET_STS_ERROR
366: and x_return_status = OKC_API.G_RET_STS_SUCCESS) then
367: x_return_status := OKC_API.G_RET_STS_ERROR;
368: end if;
369:
370: validate_code(p_oper => p_oper, x_return_status => l_return_status, p_prmv_rec => p_prmv_rec);
363: return OKC_API.G_RET_STS_UNEXP_ERROR;
364: end if;
365: if (l_return_status = OKC_API.G_RET_STS_ERROR
366: and x_return_status = OKC_API.G_RET_STS_SUCCESS) then
367: x_return_status := OKC_API.G_RET_STS_ERROR;
368: end if;
369:
370: validate_code(p_oper => p_oper, x_return_status => l_return_status, p_prmv_rec => p_prmv_rec);
371: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
367: x_return_status := OKC_API.G_RET_STS_ERROR;
368: end if;
369:
370: validate_code(p_oper => p_oper, x_return_status => l_return_status, p_prmv_rec => p_prmv_rec);
371: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
372: return OKC_API.G_RET_STS_UNEXP_ERROR;
373: end if;
374: if (l_return_status = OKC_API.G_RET_STS_ERROR
375: and x_return_status = OKC_API.G_RET_STS_SUCCESS) then
368: end if;
369:
370: validate_code(p_oper => p_oper, x_return_status => l_return_status, p_prmv_rec => p_prmv_rec);
371: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
372: return OKC_API.G_RET_STS_UNEXP_ERROR;
373: end if;
374: if (l_return_status = OKC_API.G_RET_STS_ERROR
375: and x_return_status = OKC_API.G_RET_STS_SUCCESS) then
376: x_return_status := OKC_API.G_RET_STS_ERROR;
370: validate_code(p_oper => p_oper, x_return_status => l_return_status, p_prmv_rec => p_prmv_rec);
371: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
372: return OKC_API.G_RET_STS_UNEXP_ERROR;
373: end if;
374: if (l_return_status = OKC_API.G_RET_STS_ERROR
375: and x_return_status = OKC_API.G_RET_STS_SUCCESS) then
376: x_return_status := OKC_API.G_RET_STS_ERROR;
377: end if;
378:
371: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
372: return OKC_API.G_RET_STS_UNEXP_ERROR;
373: end if;
374: if (l_return_status = OKC_API.G_RET_STS_ERROR
375: and x_return_status = OKC_API.G_RET_STS_SUCCESS) then
376: x_return_status := OKC_API.G_RET_STS_ERROR;
377: end if;
378:
379: return x_return_status;
372: return OKC_API.G_RET_STS_UNEXP_ERROR;
373: end if;
374: if (l_return_status = OKC_API.G_RET_STS_ERROR
375: and x_return_status = OKC_API.G_RET_STS_SUCCESS) then
376: x_return_status := OKC_API.G_RET_STS_ERROR;
377: end if;
378:
379: return x_return_status;
380: exception
378:
379: return x_return_status;
380: exception
381: when OTHERS then
382: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
383: p_msg_name => g_unexpected_error,
384: p_token1 => g_sqlcode_token,
385: p_token1_value => sqlcode,
386: p_token2 => g_sqlerrm_token,
384: p_token1 => g_sqlcode_token,
385: p_token1_value => sqlcode,
386: p_token2 => g_sqlerrm_token,
387: p_token2_value => sqlerrm);
388: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
389: return x_return_status;
390: END Validate_Attributes;
391:
392: ---------------------------------------------------------------------------
413: WHEN E_Resource_Busy THEN
414: IF (sql_csr%ISOPEN) THEN
415: CLOSE sql_csr;
416: END IF;
417: OKC_API.set_message(G_FND_APP,G_FORM_UNABLE_TO_RESERVE_REC);
418: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
419: end;
420:
421: PROCEDURE insert_row(
428: x_prmv_rec OUT NOCOPY prmv_rec_type) IS
429:
430: l_api_version CONSTANT NUMBER := 1;
431: l_api_name CONSTANT VARCHAR2(30) := 'insert_row';
432: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
433: l_prmv_rec prmv_rec_type;
434:
435: begin
436:
433: l_prmv_rec prmv_rec_type;
434:
435: begin
436:
437: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
438: G_PKG_NAME,
439: p_init_msg_list,
440: l_api_version,
441: p_api_version,
440: l_api_version,
441: p_api_version,
442: '_PVT',
443: x_return_status);
444: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
445: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
446: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
447: RAISE OKC_API.G_EXCEPTION_ERROR;
448: END IF;
441: p_api_version,
442: '_PVT',
443: x_return_status);
444: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
445: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
446: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
447: RAISE OKC_API.G_EXCEPTION_ERROR;
448: END IF;
449:
442: '_PVT',
443: x_return_status);
444: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
445: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
446: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
447: RAISE OKC_API.G_EXCEPTION_ERROR;
448: END IF;
449:
450: l_prmv_rec.ID := get_seq_id;
443: x_return_status);
444: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
445: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
446: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
447: RAISE OKC_API.G_EXCEPTION_ERROR;
448: END IF;
449:
450: l_prmv_rec.ID := get_seq_id;
451: l_prmv_rec.SQL_ID := p_prmv_rec.SQL_ID;
462: l_prmv_rec.LAST_UPDATE_DATE := SYSDATE;
463: l_prmv_rec.LAST_UPDATE_LOGIN := FND_GLOBAL.LOGIN_ID;
464:
465: l_return_status := Validate_Attributes('I',l_prmv_rec);
466: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
467: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
468: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
469: RAISE OKC_API.G_EXCEPTION_ERROR;
470: END IF;
463: l_prmv_rec.LAST_UPDATE_LOGIN := FND_GLOBAL.LOGIN_ID;
464:
465: l_return_status := Validate_Attributes('I',l_prmv_rec);
466: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
467: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
468: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
469: RAISE OKC_API.G_EXCEPTION_ERROR;
470: END IF;
471:
464:
465: l_return_status := Validate_Attributes('I',l_prmv_rec);
466: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
467: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
468: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
469: RAISE OKC_API.G_EXCEPTION_ERROR;
470: END IF;
471:
472: insert into OKC_REPORT_PRM_B
465: l_return_status := Validate_Attributes('I',l_prmv_rec);
466: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
467: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
468: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
469: RAISE OKC_API.G_EXCEPTION_ERROR;
470: END IF;
471:
472: insert into OKC_REPORT_PRM_B
473: (
527: WHERE L.INSTALLED_FLAG IN ('I', 'B')
528: ;
529: date_sql(l_prmv_rec.SQL_ID);
530: x_prmv_rec := l_prmv_rec;
531: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
532: EXCEPTION
533: WHEN OKC_API.G_EXCEPTION_ERROR THEN
534: x_return_status := OKC_API.HANDLE_EXCEPTIONS
535: (
529: date_sql(l_prmv_rec.SQL_ID);
530: x_prmv_rec := l_prmv_rec;
531: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
532: EXCEPTION
533: WHEN OKC_API.G_EXCEPTION_ERROR THEN
534: x_return_status := OKC_API.HANDLE_EXCEPTIONS
535: (
536: l_api_name,
537: G_PKG_NAME,
530: x_prmv_rec := l_prmv_rec;
531: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
532: EXCEPTION
533: WHEN OKC_API.G_EXCEPTION_ERROR THEN
534: x_return_status := OKC_API.HANDLE_EXCEPTIONS
535: (
536: l_api_name,
537: G_PKG_NAME,
538: 'OKC_API.G_RET_STS_ERROR',
534: x_return_status := OKC_API.HANDLE_EXCEPTIONS
535: (
536: l_api_name,
537: G_PKG_NAME,
538: 'OKC_API.G_RET_STS_ERROR',
539: x_msg_count,
540: x_msg_data,
541: '_PVT'
542: );
539: x_msg_count,
540: x_msg_data,
541: '_PVT'
542: );
543: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
544: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
545: (
546: l_api_name,
547: G_PKG_NAME,
540: x_msg_data,
541: '_PVT'
542: );
543: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
544: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
545: (
546: l_api_name,
547: G_PKG_NAME,
548: 'OKC_API.G_RET_STS_UNEXP_ERROR',
544: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
545: (
546: l_api_name,
547: G_PKG_NAME,
548: 'OKC_API.G_RET_STS_UNEXP_ERROR',
549: x_msg_count,
550: x_msg_data,
551: '_PVT'
552: );
550: x_msg_data,
551: '_PVT'
552: );
553: WHEN OTHERS THEN
554: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
555: (
556: l_api_name,
557: G_PKG_NAME,
558: 'OTHERS',
581: FROM OKC_REPORT_PRM_V
582: WHERE ID = p_prmv_rec.id
583: AND OBJECT_VERSION_NUMBER =
584: decode(p_prmv_rec.object_version_number,NULL,OBJECT_VERSION_NUMBER,
585: OKC_API.G_MISS_NUM,OBJECT_VERSION_NUMBER,p_prmv_rec.object_version_number)
586: FOR UPDATE OF OBJECT_VERSION_NUMBER NOWAIT;
587:
588: CURSOR lchk_csr (p_prmv_rec IN prmv_rec_type) IS
589: SELECT OBJECT_VERSION_NUMBER
591: WHERE ID = p_prmv_rec.id;
592:
593: l_api_version CONSTANT NUMBER := 1;
594: l_api_name CONSTANT VARCHAR2(30) := 'lock_row';
595: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
596:
597: l_object_version_number NUMBER;
598: lc_object_version_number NUMBER;
599: l_row_notfound BOOLEAN := FALSE;
600: lc_row_notfound BOOLEAN := FALSE;
601:
602: BEGIN
603: x_return_status := 'S';
604: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
605: p_init_msg_list,
606: '_PVT',
607: x_return_status);
608: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
604: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
605: p_init_msg_list,
606: '_PVT',
607: x_return_status);
608: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
609: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
610: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
611: RAISE OKC_API.G_EXCEPTION_ERROR;
612: END IF;
605: p_init_msg_list,
606: '_PVT',
607: x_return_status);
608: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
609: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
610: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
611: RAISE OKC_API.G_EXCEPTION_ERROR;
612: END IF;
613: BEGIN
606: '_PVT',
607: x_return_status);
608: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
609: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
610: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
611: RAISE OKC_API.G_EXCEPTION_ERROR;
612: END IF;
613: BEGIN
614: OPEN lock_csr(p_prmv_rec);
607: x_return_status);
608: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
609: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
610: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
611: RAISE OKC_API.G_EXCEPTION_ERROR;
612: END IF;
613: BEGIN
614: OPEN lock_csr(p_prmv_rec);
615: FETCH lock_csr INTO l_object_version_number;
619: WHEN E_Resource_Busy THEN
620: IF (lock_csr%ISOPEN) THEN
621: CLOSE lock_csr;
622: END IF;
623: OKC_API.set_message(G_FND_APP,G_FORM_UNABLE_TO_RESERVE_REC);
624: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
625: END;
626:
627: IF ( l_row_notfound ) THEN
629: FETCH lchk_csr INTO lc_object_version_number;
630: lc_row_notfound := lchk_csr%NOTFOUND;
631: CLOSE lchk_csr;
632: IF (lc_row_notfound) THEN
633: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
634: RAISE OKC_API.G_EXCEPTION_ERROR;
635: ELSE
636: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
637: RAISE OKC_API.G_EXCEPTION_ERROR;
630: lc_row_notfound := lchk_csr%NOTFOUND;
631: CLOSE lchk_csr;
632: IF (lc_row_notfound) THEN
633: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
634: RAISE OKC_API.G_EXCEPTION_ERROR;
635: ELSE
636: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
637: RAISE OKC_API.G_EXCEPTION_ERROR;
638: END IF;
632: IF (lc_row_notfound) THEN
633: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
634: RAISE OKC_API.G_EXCEPTION_ERROR;
635: ELSE
636: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
637: RAISE OKC_API.G_EXCEPTION_ERROR;
638: END IF;
639: END IF;
640:
633: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
634: RAISE OKC_API.G_EXCEPTION_ERROR;
635: ELSE
636: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
637: RAISE OKC_API.G_EXCEPTION_ERROR;
638: END IF;
639: END IF;
640:
641: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
637: RAISE OKC_API.G_EXCEPTION_ERROR;
638: END IF;
639: END IF;
640:
641: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
642: EXCEPTION
643: WHEN OKC_API.G_EXCEPTION_ERROR THEN
644: x_return_status := OKC_API.HANDLE_EXCEPTIONS
645: (
639: END IF;
640:
641: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
642: EXCEPTION
643: WHEN OKC_API.G_EXCEPTION_ERROR THEN
644: x_return_status := OKC_API.HANDLE_EXCEPTIONS
645: (
646: l_api_name,
647: G_PKG_NAME,
640:
641: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
642: EXCEPTION
643: WHEN OKC_API.G_EXCEPTION_ERROR THEN
644: x_return_status := OKC_API.HANDLE_EXCEPTIONS
645: (
646: l_api_name,
647: G_PKG_NAME,
648: 'OKC_API.G_RET_STS_ERROR',
644: x_return_status := OKC_API.HANDLE_EXCEPTIONS
645: (
646: l_api_name,
647: G_PKG_NAME,
648: 'OKC_API.G_RET_STS_ERROR',
649: x_msg_count,
650: x_msg_data,
651: '_PVT'
652: );
649: x_msg_count,
650: x_msg_data,
651: '_PVT'
652: );
653: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
654: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
655: (
656: l_api_name,
657: G_PKG_NAME,
650: x_msg_data,
651: '_PVT'
652: );
653: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
654: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
655: (
656: l_api_name,
657: G_PKG_NAME,
658: 'OKC_API.G_RET_STS_UNEXP_ERROR',
654: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
655: (
656: l_api_name,
657: G_PKG_NAME,
658: 'OKC_API.G_RET_STS_UNEXP_ERROR',
659: x_msg_count,
660: x_msg_data,
661: '_PVT'
662: );
660: x_msg_data,
661: '_PVT'
662: );
663: WHEN OTHERS THEN
664: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
665: (
666: l_api_name,
667: G_PKG_NAME,
668: 'OTHERS',
686: x_prmv_rec OUT NOCOPY prmv_rec_type) IS
687:
688: l_api_version CONSTANT NUMBER := 1;
689: l_api_name CONSTANT VARCHAR2(30) := 'update_row';
690: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
691: l_prmv_rec prmv_rec_type := p_prmv_rec;
692:
693: begin
694:
691: l_prmv_rec prmv_rec_type := p_prmv_rec;
692:
693: begin
694:
695: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
696: G_PKG_NAME,
697: p_init_msg_list,
698: l_api_version,
699: p_api_version,
698: l_api_version,
699: p_api_version,
700: '_PVT',
701: x_return_status);
702: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
703: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
704: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
705: RAISE OKC_API.G_EXCEPTION_ERROR;
706: END IF;
699: p_api_version,
700: '_PVT',
701: x_return_status);
702: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
703: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
704: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
705: RAISE OKC_API.G_EXCEPTION_ERROR;
706: END IF;
707:
700: '_PVT',
701: x_return_status);
702: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
703: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
704: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
705: RAISE OKC_API.G_EXCEPTION_ERROR;
706: END IF;
707:
708: lock_row(p_init_msg_list => 'F',
701: x_return_status);
702: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
703: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
704: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
705: RAISE OKC_API.G_EXCEPTION_ERROR;
706: END IF;
707:
708: lock_row(p_init_msg_list => 'F',
709: x_return_status => l_return_status,
709: x_return_status => l_return_status,
710: x_msg_count => x_msg_count,
711: x_msg_data => x_msg_data,
712: p_prmv_rec => p_prmv_rec);
713: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
714: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
715: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
716: RAISE OKC_API.G_EXCEPTION_ERROR;
717: END IF;
710: x_msg_count => x_msg_count,
711: x_msg_data => x_msg_data,
712: p_prmv_rec => p_prmv_rec);
713: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
714: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
715: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
716: RAISE OKC_API.G_EXCEPTION_ERROR;
717: END IF;
718:
711: x_msg_data => x_msg_data,
712: p_prmv_rec => p_prmv_rec);
713: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
714: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
715: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
716: RAISE OKC_API.G_EXCEPTION_ERROR;
717: END IF;
718:
719: l_prmv_rec.ID := p_prmv_rec.ID;
712: p_prmv_rec => p_prmv_rec);
713: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
714: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
715: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
716: RAISE OKC_API.G_EXCEPTION_ERROR;
717: END IF;
718:
719: l_prmv_rec.ID := p_prmv_rec.ID;
720: select
746: l_prmv_rec.LAST_UPDATE_DATE := SYSDATE;
747: l_prmv_rec.LAST_UPDATE_LOGIN := FND_GLOBAL.LOGIN_ID;
748:
749:
750: if (p_prmv_rec.SQL_ID is NULL or p_prmv_rec.SQL_ID <> OKC_API.G_MISS_NUM) then
751: l_prmv_rec.SQL_ID := p_prmv_rec.SQL_ID;
752: end if;
753: if (p_prmv_rec.SEQUENCE_NUM is NULL or p_prmv_rec.SEQUENCE_NUM <> OKC_API.G_MISS_NUM) then
754: l_prmv_rec.SEQUENCE_NUM := p_prmv_rec.SEQUENCE_NUM;
749:
750: if (p_prmv_rec.SQL_ID is NULL or p_prmv_rec.SQL_ID <> OKC_API.G_MISS_NUM) then
751: l_prmv_rec.SQL_ID := p_prmv_rec.SQL_ID;
752: end if;
753: if (p_prmv_rec.SEQUENCE_NUM is NULL or p_prmv_rec.SEQUENCE_NUM <> OKC_API.G_MISS_NUM) then
754: l_prmv_rec.SEQUENCE_NUM := p_prmv_rec.SEQUENCE_NUM;
755: end if;
756: if (p_prmv_rec.CODE is NULL or p_prmv_rec.CODE <> OKC_API.G_MISS_CHAR) then
757: l_prmv_rec.CODE := p_prmv_rec.CODE;
752: end if;
753: if (p_prmv_rec.SEQUENCE_NUM is NULL or p_prmv_rec.SEQUENCE_NUM <> OKC_API.G_MISS_NUM) then
754: l_prmv_rec.SEQUENCE_NUM := p_prmv_rec.SEQUENCE_NUM;
755: end if;
756: if (p_prmv_rec.CODE is NULL or p_prmv_rec.CODE <> OKC_API.G_MISS_CHAR) then
757: l_prmv_rec.CODE := p_prmv_rec.CODE;
758: end if;
759: if (p_prmv_rec.PROMPT is NULL or p_prmv_rec.PROMPT <> OKC_API.G_MISS_CHAR) then
760: l_prmv_rec.PROMPT := p_prmv_rec.PROMPT;
755: end if;
756: if (p_prmv_rec.CODE is NULL or p_prmv_rec.CODE <> OKC_API.G_MISS_CHAR) then
757: l_prmv_rec.CODE := p_prmv_rec.CODE;
758: end if;
759: if (p_prmv_rec.PROMPT is NULL or p_prmv_rec.PROMPT <> OKC_API.G_MISS_CHAR) then
760: l_prmv_rec.PROMPT := p_prmv_rec.PROMPT;
761: end if;
762: if (p_prmv_rec.TYPE is NULL or p_prmv_rec.TYPE <> OKC_API.G_MISS_CHAR) then
763: l_prmv_rec.TYPE := p_prmv_rec.TYPE;
758: end if;
759: if (p_prmv_rec.PROMPT is NULL or p_prmv_rec.PROMPT <> OKC_API.G_MISS_CHAR) then
760: l_prmv_rec.PROMPT := p_prmv_rec.PROMPT;
761: end if;
762: if (p_prmv_rec.TYPE is NULL or p_prmv_rec.TYPE <> OKC_API.G_MISS_CHAR) then
763: l_prmv_rec.TYPE := p_prmv_rec.TYPE;
764: end if;
765: if (p_prmv_rec.REQUIRED_YN is NULL or p_prmv_rec.REQUIRED_YN <> OKC_API.G_MISS_CHAR) then
766: l_prmv_rec.REQUIRED_YN := p_prmv_rec.REQUIRED_YN;
761: end if;
762: if (p_prmv_rec.TYPE is NULL or p_prmv_rec.TYPE <> OKC_API.G_MISS_CHAR) then
763: l_prmv_rec.TYPE := p_prmv_rec.TYPE;
764: end if;
765: if (p_prmv_rec.REQUIRED_YN is NULL or p_prmv_rec.REQUIRED_YN <> OKC_API.G_MISS_CHAR) then
766: l_prmv_rec.REQUIRED_YN := p_prmv_rec.REQUIRED_YN;
767: end if;
768: if (p_prmv_rec.LOV_QUERY is NULL or p_prmv_rec.LOV_QUERY <> OKC_API.G_MISS_CHAR) then
769: l_prmv_rec.LOV_QUERY := p_prmv_rec.LOV_QUERY;
764: end if;
765: if (p_prmv_rec.REQUIRED_YN is NULL or p_prmv_rec.REQUIRED_YN <> OKC_API.G_MISS_CHAR) then
766: l_prmv_rec.REQUIRED_YN := p_prmv_rec.REQUIRED_YN;
767: end if;
768: if (p_prmv_rec.LOV_QUERY is NULL or p_prmv_rec.LOV_QUERY <> OKC_API.G_MISS_CHAR) then
769: l_prmv_rec.LOV_QUERY := p_prmv_rec.LOV_QUERY;
770: end if;
771:
772: l_return_status := Validate_Attributes('U',l_prmv_rec);
769: l_prmv_rec.LOV_QUERY := p_prmv_rec.LOV_QUERY;
770: end if;
771:
772: l_return_status := Validate_Attributes('U',l_prmv_rec);
773: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
774: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
775: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
776: RAISE OKC_API.G_EXCEPTION_ERROR;
777: END IF;
770: end if;
771:
772: l_return_status := Validate_Attributes('U',l_prmv_rec);
773: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
774: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
775: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
776: RAISE OKC_API.G_EXCEPTION_ERROR;
777: END IF;
778:
771:
772: l_return_status := Validate_Attributes('U',l_prmv_rec);
773: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
774: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
775: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
776: RAISE OKC_API.G_EXCEPTION_ERROR;
777: END IF;
778:
779: UPDATE OKC_REPORT_PRM_B set
772: l_return_status := Validate_Attributes('U',l_prmv_rec);
773: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
774: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
775: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
776: RAISE OKC_API.G_EXCEPTION_ERROR;
777: END IF;
778:
779: UPDATE OKC_REPORT_PRM_B set
780: SQL_ID = l_prmv_rec.SQL_ID
800: and USERENV('LANG') in (LANGUAGE, SOURCE_LANG);
801:
802: date_sql(l_prmv_rec.SQL_ID);
803: x_prmv_rec := l_prmv_rec;
804: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
805: EXCEPTION
806: WHEN OKC_API.G_EXCEPTION_ERROR THEN
807: x_return_status := OKC_API.HANDLE_EXCEPTIONS
808: (
802: date_sql(l_prmv_rec.SQL_ID);
803: x_prmv_rec := l_prmv_rec;
804: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
805: EXCEPTION
806: WHEN OKC_API.G_EXCEPTION_ERROR THEN
807: x_return_status := OKC_API.HANDLE_EXCEPTIONS
808: (
809: l_api_name,
810: G_PKG_NAME,
803: x_prmv_rec := l_prmv_rec;
804: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
805: EXCEPTION
806: WHEN OKC_API.G_EXCEPTION_ERROR THEN
807: x_return_status := OKC_API.HANDLE_EXCEPTIONS
808: (
809: l_api_name,
810: G_PKG_NAME,
811: 'OKC_API.G_RET_STS_ERROR',
807: x_return_status := OKC_API.HANDLE_EXCEPTIONS
808: (
809: l_api_name,
810: G_PKG_NAME,
811: 'OKC_API.G_RET_STS_ERROR',
812: x_msg_count,
813: x_msg_data,
814: '_PVT'
815: );
812: x_msg_count,
813: x_msg_data,
814: '_PVT'
815: );
816: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
817: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
818: (
819: l_api_name,
820: G_PKG_NAME,
813: x_msg_data,
814: '_PVT'
815: );
816: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
817: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
818: (
819: l_api_name,
820: G_PKG_NAME,
821: 'OKC_API.G_RET_STS_UNEXP_ERROR',
817: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
818: (
819: l_api_name,
820: G_PKG_NAME,
821: 'OKC_API.G_RET_STS_UNEXP_ERROR',
822: x_msg_count,
823: x_msg_data,
824: '_PVT'
825: );
823: x_msg_data,
824: '_PVT'
825: );
826: WHEN OTHERS THEN
827: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
828: (
829: l_api_name,
830: G_PKG_NAME,
831: 'OTHERS',
848: p_prmv_rec IN prmv_rec_type) IS
849:
850: l_api_version CONSTANT NUMBER := 1;
851: l_api_name CONSTANT VARCHAR2(30) := 'delete_row';
852: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
853:
854: cursor sql_csr(p NUMBER) is
855: select S.id
856: from okc_report_prm_v PRM, okc_report_sql_v S
859: l_sql_id NUMBER;
860:
861: begin
862:
863: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
864: G_PKG_NAME,
865: p_init_msg_list,
866: l_api_version,
867: p_api_version,
866: l_api_version,
867: p_api_version,
868: '_PVT',
869: x_return_status);
870: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
871: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
872: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
873: RAISE OKC_API.G_EXCEPTION_ERROR;
874: END IF;
867: p_api_version,
868: '_PVT',
869: x_return_status);
870: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
871: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
872: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
873: RAISE OKC_API.G_EXCEPTION_ERROR;
874: END IF;
875:
868: '_PVT',
869: x_return_status);
870: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
871: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
872: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
873: RAISE OKC_API.G_EXCEPTION_ERROR;
874: END IF;
875:
876: lock_row(p_init_msg_list => 'F',
869: x_return_status);
870: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
871: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
872: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
873: RAISE OKC_API.G_EXCEPTION_ERROR;
874: END IF;
875:
876: lock_row(p_init_msg_list => 'F',
877: x_return_status => l_return_status,
877: x_return_status => l_return_status,
878: x_msg_count => x_msg_count,
879: x_msg_data => x_msg_data,
880: p_prmv_rec => p_prmv_rec);
881: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
882: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
883: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
884: RAISE OKC_API.G_EXCEPTION_ERROR;
885: END IF;
878: x_msg_count => x_msg_count,
879: x_msg_data => x_msg_data,
880: p_prmv_rec => p_prmv_rec);
881: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
882: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
883: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
884: RAISE OKC_API.G_EXCEPTION_ERROR;
885: END IF;
886:
879: x_msg_data => x_msg_data,
880: p_prmv_rec => p_prmv_rec);
881: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
882: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
883: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
884: RAISE OKC_API.G_EXCEPTION_ERROR;
885: END IF;
886:
887: delete
880: p_prmv_rec => p_prmv_rec);
881: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
882: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
883: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
884: RAISE OKC_API.G_EXCEPTION_ERROR;
885: END IF;
886:
887: delete
888: from OKC_REPORT_PRM_B
898: if (l_sql_id is not null) then
899: date_sql(l_sql_id);
900: end if;
901:
902: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
903: EXCEPTION
904: WHEN OKC_API.G_EXCEPTION_ERROR THEN
905: x_return_status := OKC_API.HANDLE_EXCEPTIONS
906: (
900: end if;
901:
902: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
903: EXCEPTION
904: WHEN OKC_API.G_EXCEPTION_ERROR THEN
905: x_return_status := OKC_API.HANDLE_EXCEPTIONS
906: (
907: l_api_name,
908: G_PKG_NAME,
901:
902: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
903: EXCEPTION
904: WHEN OKC_API.G_EXCEPTION_ERROR THEN
905: x_return_status := OKC_API.HANDLE_EXCEPTIONS
906: (
907: l_api_name,
908: G_PKG_NAME,
909: 'OKC_API.G_RET_STS_ERROR',
905: x_return_status := OKC_API.HANDLE_EXCEPTIONS
906: (
907: l_api_name,
908: G_PKG_NAME,
909: 'OKC_API.G_RET_STS_ERROR',
910: x_msg_count,
911: x_msg_data,
912: '_PVT'
913: );
910: x_msg_count,
911: x_msg_data,
912: '_PVT'
913: );
914: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
915: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
916: (
917: l_api_name,
918: G_PKG_NAME,
911: x_msg_data,
912: '_PVT'
913: );
914: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
915: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
916: (
917: l_api_name,
918: G_PKG_NAME,
919: 'OKC_API.G_RET_STS_UNEXP_ERROR',
915: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
916: (
917: l_api_name,
918: G_PKG_NAME,
919: 'OKC_API.G_RET_STS_UNEXP_ERROR',
920: x_msg_count,
921: x_msg_data,
922: '_PVT'
923: );
921: x_msg_data,
922: '_PVT'
923: );
924: WHEN OTHERS THEN
925: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
926: (
927: l_api_name,
928: G_PKG_NAME,
929: 'OTHERS',