142: p_sacv_rec IN sacv_rec_type
143: ) RETURN sacv_rec_type IS
144: l_sacv_rec sacv_rec_type := p_sacv_rec;
145: BEGIN
146: IF (l_sacv_rec.object_version_number = OKC_API.G_MISS_NUM) THEN
147: l_sacv_rec.object_version_number := NULL;
148: END IF;
149: IF (l_sacv_rec.sat_code = OKC_API.G_MISS_CHAR) THEN
150: l_sacv_rec.sat_code := NULL;
145: BEGIN
146: IF (l_sacv_rec.object_version_number = OKC_API.G_MISS_NUM) THEN
147: l_sacv_rec.object_version_number := NULL;
148: END IF;
149: IF (l_sacv_rec.sat_code = OKC_API.G_MISS_CHAR) THEN
150: l_sacv_rec.sat_code := NULL;
151: END IF;
152: IF (l_sacv_rec.price_type = OKC_API.G_MISS_CHAR) THEN
153: l_sacv_rec.price_type := NULL;
148: END IF;
149: IF (l_sacv_rec.sat_code = OKC_API.G_MISS_CHAR) THEN
150: l_sacv_rec.sat_code := NULL;
151: END IF;
152: IF (l_sacv_rec.price_type = OKC_API.G_MISS_CHAR) THEN
153: l_sacv_rec.price_type := NULL;
154: END IF;
155: IF (l_sacv_rec.scs_code = OKC_API.G_MISS_CHAR) THEN
156: l_sacv_rec.scs_code := NULL;
151: END IF;
152: IF (l_sacv_rec.price_type = OKC_API.G_MISS_CHAR) THEN
153: l_sacv_rec.price_type := NULL;
154: END IF;
155: IF (l_sacv_rec.scs_code = OKC_API.G_MISS_CHAR) THEN
156: l_sacv_rec.scs_code := NULL;
157: END IF;
158: IF (l_sacv_rec.created_by = OKC_API.G_MISS_NUM) THEN
159: l_sacv_rec.created_by := NULL;
154: END IF;
155: IF (l_sacv_rec.scs_code = OKC_API.G_MISS_CHAR) THEN
156: l_sacv_rec.scs_code := NULL;
157: END IF;
158: IF (l_sacv_rec.created_by = OKC_API.G_MISS_NUM) THEN
159: l_sacv_rec.created_by := NULL;
160: END IF;
161: IF (l_sacv_rec.creation_date = OKC_API.G_MISS_DATE) THEN
162: l_sacv_rec.creation_date := NULL;
157: END IF;
158: IF (l_sacv_rec.created_by = OKC_API.G_MISS_NUM) THEN
159: l_sacv_rec.created_by := NULL;
160: END IF;
161: IF (l_sacv_rec.creation_date = OKC_API.G_MISS_DATE) THEN
162: l_sacv_rec.creation_date := NULL;
163: END IF;
164: IF (l_sacv_rec.last_updated_by = OKC_API.G_MISS_NUM) THEN
165: l_sacv_rec.last_updated_by := NULL;
160: END IF;
161: IF (l_sacv_rec.creation_date = OKC_API.G_MISS_DATE) THEN
162: l_sacv_rec.creation_date := NULL;
163: END IF;
164: IF (l_sacv_rec.last_updated_by = OKC_API.G_MISS_NUM) THEN
165: l_sacv_rec.last_updated_by := NULL;
166: END IF;
167: IF (l_sacv_rec.last_update_date = OKC_API.G_MISS_DATE) THEN
168: l_sacv_rec.last_update_date := NULL;
163: END IF;
164: IF (l_sacv_rec.last_updated_by = OKC_API.G_MISS_NUM) THEN
165: l_sacv_rec.last_updated_by := NULL;
166: END IF;
167: IF (l_sacv_rec.last_update_date = OKC_API.G_MISS_DATE) THEN
168: l_sacv_rec.last_update_date := NULL;
169: END IF;
170: IF (l_sacv_rec.last_update_login = OKC_API.G_MISS_NUM) THEN
171: l_sacv_rec.last_update_login := NULL;
166: END IF;
167: IF (l_sacv_rec.last_update_date = OKC_API.G_MISS_DATE) THEN
168: l_sacv_rec.last_update_date := NULL;
169: END IF;
170: IF (l_sacv_rec.last_update_login = OKC_API.G_MISS_NUM) THEN
171: l_sacv_rec.last_update_login := NULL;
172: END IF;
173: RETURN(l_sacv_rec);
174: END null_out_defaults;
187: procedure validate_id(p_sacv_rec IN sacv_rec_type,
188: x_return_status OUT NOCOPY VARCHAR2) is
189:
190: BEGIN
191: x_return_status:=OKC_API.G_RET_STS_SUCCESS;
192: --check not null
193: If (p_sacv_rec.id is null) OR (p_sacv_rec.id=OKC_API.G_MISS_NUM) then
194: x_return_status:=OKC_API.G_RET_STS_ERROR;
195: --set error message in message stack
189:
190: BEGIN
191: x_return_status:=OKC_API.G_RET_STS_SUCCESS;
192: --check not null
193: If (p_sacv_rec.id is null) OR (p_sacv_rec.id=OKC_API.G_MISS_NUM) then
194: x_return_status:=OKC_API.G_RET_STS_ERROR;
195: --set error message in message stack
196: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
197: p_msg_name => G_REQUIRED_VALUE,
190: BEGIN
191: x_return_status:=OKC_API.G_RET_STS_SUCCESS;
192: --check not null
193: If (p_sacv_rec.id is null) OR (p_sacv_rec.id=OKC_API.G_MISS_NUM) then
194: x_return_status:=OKC_API.G_RET_STS_ERROR;
195: --set error message in message stack
196: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
197: p_msg_name => G_REQUIRED_VALUE,
198: p_token1 => G_COL_NAME_TOKEN,
192: --check not null
193: If (p_sacv_rec.id is null) OR (p_sacv_rec.id=OKC_API.G_MISS_NUM) then
194: x_return_status:=OKC_API.G_RET_STS_ERROR;
195: --set error message in message stack
196: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
197: p_msg_name => G_REQUIRED_VALUE,
198: p_token1 => G_COL_NAME_TOKEN,
199: p_token1_value => 'ID');
200: RAISE G_EXCEPTION_HALT_VALIDATION;
207: null;
208: -- other appropriate handlers
209: When others then
210: -- store SQL error message on message stack
211: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
212: p_msg_name => G_UNEXPECTED_ERROR,
213: p_token1 => G_SQLCODE_TOKEN,
214: p_token1_value => sqlcode,
215: p_token2 => G_SQLERRM_TOKEN,
215: p_token2 => G_SQLERRM_TOKEN,
216: p_token2_value => sqlerrm);
217:
218: -- notify UNEXPECTED error
219: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
220:
221: END validate_id;
222:
223: -- Start of comments
230: procedure validate_Object_Version_Number(p_sacv_rec IN sacv_rec_type,
231: x_return_status OUT NOCOPY VARCHAR2) is
232:
233: BEGIN
234: x_return_status:=OKC_API.G_RET_STS_SUCCESS;
235: --check not null
236: If (p_sacv_rec.object_version_number is null) OR (p_sacv_rec.object_version_number=OKC_API.G_MISS_NUM) then
237: x_return_status:=OKC_API.G_RET_STS_ERROR;
238: --set error message in message stack
232:
233: BEGIN
234: x_return_status:=OKC_API.G_RET_STS_SUCCESS;
235: --check not null
236: If (p_sacv_rec.object_version_number is null) OR (p_sacv_rec.object_version_number=OKC_API.G_MISS_NUM) then
237: x_return_status:=OKC_API.G_RET_STS_ERROR;
238: --set error message in message stack
239: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
240: p_msg_name => G_REQUIRED_VALUE,
233: BEGIN
234: x_return_status:=OKC_API.G_RET_STS_SUCCESS;
235: --check not null
236: If (p_sacv_rec.object_version_number is null) OR (p_sacv_rec.object_version_number=OKC_API.G_MISS_NUM) then
237: x_return_status:=OKC_API.G_RET_STS_ERROR;
238: --set error message in message stack
239: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
240: p_msg_name => G_REQUIRED_VALUE,
241: p_token1 => G_COL_NAME_TOKEN,
235: --check not null
236: If (p_sacv_rec.object_version_number is null) OR (p_sacv_rec.object_version_number=OKC_API.G_MISS_NUM) then
237: x_return_status:=OKC_API.G_RET_STS_ERROR;
238: --set error message in message stack
239: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
240: p_msg_name => G_REQUIRED_VALUE,
241: p_token1 => G_COL_NAME_TOKEN,
242: p_token1_value => 'OBJECT_VERSION_NUMBER');
243: RAISE G_EXCEPTION_HALT_VALIDATION;
250: null;
251: -- other appropriate handlers
252: When others then
253: -- store SQL error message on message stack
254: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
255: p_msg_name => G_UNEXPECTED_ERROR,
256: p_token1 => G_SQLCODE_TOKEN,
257: p_token1_value => sqlcode,
258: p_token2 => G_SQLERRM_TOKEN,
258: p_token2 => G_SQLERRM_TOKEN,
259: p_token2_value => sqlerrm);
260:
261: -- notify UNEXPECTED error
262: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
263:
264: END validate_object_version_number;
265:
266:
276: procedure validate_sat_code(p_sacv_rec IN sacv_rec_type,
277: x_return_status OUT NOCOPY VARCHAR2) is
278:
279: BEGIN
280: x_return_status:=OKC_API.G_RET_STS_SUCCESS;
281: --check not null
282: If (p_sacv_rec.sat_code is null) OR (p_sacv_rec.sat_code=OKC_API.G_MISS_CHAR) then
283: x_return_status:=OKC_API.G_RET_STS_ERROR;
284: --set error message in message stack
278:
279: BEGIN
280: x_return_status:=OKC_API.G_RET_STS_SUCCESS;
281: --check not null
282: If (p_sacv_rec.sat_code is null) OR (p_sacv_rec.sat_code=OKC_API.G_MISS_CHAR) then
283: x_return_status:=OKC_API.G_RET_STS_ERROR;
284: --set error message in message stack
285: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
286: p_msg_name => G_REQUIRED_VALUE,
279: BEGIN
280: x_return_status:=OKC_API.G_RET_STS_SUCCESS;
281: --check not null
282: If (p_sacv_rec.sat_code is null) OR (p_sacv_rec.sat_code=OKC_API.G_MISS_CHAR) then
283: x_return_status:=OKC_API.G_RET_STS_ERROR;
284: --set error message in message stack
285: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
286: p_msg_name => G_REQUIRED_VALUE,
287: p_token1 => G_COL_NAME_TOKEN,
281: --check not null
282: If (p_sacv_rec.sat_code is null) OR (p_sacv_rec.sat_code=OKC_API.G_MISS_CHAR) then
283: x_return_status:=OKC_API.G_RET_STS_ERROR;
284: --set error message in message stack
285: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
286: p_msg_name => G_REQUIRED_VALUE,
287: p_token1 => G_COL_NAME_TOKEN,
288: p_token1_value => 'SAT_CODE');
289: RAISE G_EXCEPTION_HALT_VALIDATION;
291:
292:
293: -- Check if the value is valid code from lookup table for Article Set
294: x_return_status:=OKC_UTIL.check_lookup_code('OKC_ARTICLE_SET',p_sacv_rec.sat_code);
295: If (x_return_status=OKC_API.G_RET_STS_ERROR) Then
296: --set error message in message stack
297: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
298: p_msg_name => G_INVALID_VALUE,
299: p_token1 => G_COL_NAME_TOKEN,
293: -- Check if the value is valid code from lookup table for Article Set
294: x_return_status:=OKC_UTIL.check_lookup_code('OKC_ARTICLE_SET',p_sacv_rec.sat_code);
295: If (x_return_status=OKC_API.G_RET_STS_ERROR) Then
296: --set error message in message stack
297: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
298: p_msg_name => G_INVALID_VALUE,
299: p_token1 => G_COL_NAME_TOKEN,
300: p_token1_value => 'SAT_CODE');
301: RAISE G_EXCEPTION_HALT_VALIDATION;
298: p_msg_name => G_INVALID_VALUE,
299: p_token1 => G_COL_NAME_TOKEN,
300: p_token1_value => 'SAT_CODE');
301: RAISE G_EXCEPTION_HALT_VALIDATION;
302: ELSIF (x_return_status=OKC_API.G_RET_STS_UNEXP_ERROR) Then
303: RAISE G_EXCEPTION_HALT_VALIDATION;
304: End If;
305:
306: EXCEPTION
309: null;
310: -- other appropriate handlers
311: When others then
312: -- store SQL error message on message stack
313: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
314: p_msg_name => G_UNEXPECTED_ERROR,
315: p_token1 => G_SQLCODE_TOKEN,
316: p_token1_value => sqlcode,
317: p_token2 => G_SQLERRM_TOKEN,
317: p_token2 => G_SQLERRM_TOKEN,
318: p_token2_value => sqlerrm);
319:
320: -- notify UNEXPECTED error
321: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
322:
323: END validate_sat_code;
324:
325: --length check not needed as coming from fnd_lookups
334: x_return_status OUT NOCOPY VARCHAR2) is
335:
336:
337: BEGIN
338: x_return_status:=OKC_API.G_RET_STS_SUCCESS;
339:
340: --check within length limit
341: If (length(p_sacv_rec.price_type)>30) Then
342: x_return_status:=OKC_API.G_RET_STS_ERROR;
338: x_return_status:=OKC_API.G_RET_STS_SUCCESS;
339:
340: --check within length limit
341: If (length(p_sacv_rec.price_type)>30) Then
342: x_return_status:=OKC_API.G_RET_STS_ERROR;
343: --set error message in message stack
344: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
345: p_msg_name => G_LEN_CHK,
346: p_token1 => G_COL_NAME_TOKEN,
340: --check within length limit
341: If (length(p_sacv_rec.price_type)>30) Then
342: x_return_status:=OKC_API.G_RET_STS_ERROR;
343: --set error message in message stack
344: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
345: p_msg_name => G_LEN_CHK,
346: p_token1 => G_COL_NAME_TOKEN,
347: p_token1_value => 'PRICE_TYPE');
348: RAISE G_EXCEPTION_HALT_VALIDATION;
349: End If;
350:
351: -- Check if the value is valid code from lookup table for price type
352: x_return_status:=OKC_UTIL.check_lookup_code('OKC_PRICE_TYPE',p_sacv_rec.price_type);
353: If (x_return_status=OKC_API.G_RET_STS_ERROR) Then
354: --set error message in message stack
355: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
356: p_msg_name => G_INVALID_VALUE,
357: p_token1 => G_COL_NAME_TOKEN,
351: -- Check if the value is valid code from lookup table for price type
352: x_return_status:=OKC_UTIL.check_lookup_code('OKC_PRICE_TYPE',p_sacv_rec.price_type);
353: If (x_return_status=OKC_API.G_RET_STS_ERROR) Then
354: --set error message in message stack
355: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
356: p_msg_name => G_INVALID_VALUE,
357: p_token1 => G_COL_NAME_TOKEN,
358: p_token1_value => 'PRICE_TYPE');
359: RAISE G_EXCEPTION_HALT_VALIDATION;
356: p_msg_name => G_INVALID_VALUE,
357: p_token1 => G_COL_NAME_TOKEN,
358: p_token1_value => 'PRICE_TYPE');
359: RAISE G_EXCEPTION_HALT_VALIDATION;
360: ELSIF (x_return_status=OKC_API.G_RET_STS_UNEXP_ERROR) Then
361: RAISE G_EXCEPTION_HALT_VALIDATION;
362: End If;
363:
364: EXCEPTION
367: null;
368: -- other appropriate handlers
369: When others then
370: -- store SQL error message on message stack
371: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
372: p_msg_name => G_UNEXPECTED_ERROR,
373: p_token1 => G_SQLCODE_TOKEN,
374: p_token1_value => sqlcode,
375: p_token2 => G_SQLERRM_TOKEN,
375: p_token2 => G_SQLERRM_TOKEN,
376: p_token2_value => sqlerrm);
377:
378: -- notify UNEXPECTED error
379: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
380:
381: END validate_price_type;
382:
383: -- Start of comments
396: sysdate between nvl(start_date,sysdate) and nvl(end_date,sysdate);
397: l_dummy_var VARCHAR2(1):='0';
398:
399: BEGIN
400: x_return_status:=OKC_API.G_RET_STS_SUCCESS;
401:
402: --check within length limit
403: If (length(p_sacv_rec.scs_code)>30) Then
404: x_return_status:=OKC_API.G_RET_STS_ERROR;
400: x_return_status:=OKC_API.G_RET_STS_SUCCESS;
401:
402: --check within length limit
403: If (length(p_sacv_rec.scs_code)>30) Then
404: x_return_status:=OKC_API.G_RET_STS_ERROR;
405: --set error message in message stack
406: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
407: p_msg_name => G_LEN_CHK,
408: p_token1 => G_COL_NAME_TOKEN,
402: --check within length limit
403: If (length(p_sacv_rec.scs_code)>30) Then
404: x_return_status:=OKC_API.G_RET_STS_ERROR;
405: --set error message in message stack
406: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
407: p_msg_name => G_LEN_CHK,
408: p_token1 => G_COL_NAME_TOKEN,
409: p_token1_value => 'SCS_CODE');
410: RAISE G_EXCEPTION_HALT_VALIDATION;
416: CLOSE l_scs_code_csr;
417: IF (l_dummy_var<>'1') Then
418:
419: --Corresponding Column value not found
420: x_return_status:= OKC_API.G_RET_STS_ERROR;
421: --set error message in message stack
422: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
423: p_msg_name => G_NO_PARENT_RECORD,
424: p_token1 => G_COL_NAME_TOKEN,
418:
419: --Corresponding Column value not found
420: x_return_status:= OKC_API.G_RET_STS_ERROR;
421: --set error message in message stack
422: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
423: p_msg_name => G_NO_PARENT_RECORD,
424: p_token1 => G_COL_NAME_TOKEN,
425: p_token1_value => 'SCS_CODE',
426: p_token2 => G_CHILD_TABLE_TOKEN,
437: null;
438: -- other appropriate handlers
439: When others then
440: -- store SQL error message on message stack
441: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
442: p_msg_name => G_UNEXPECTED_ERROR,
443: p_token1 => G_SQLCODE_TOKEN,
444: p_token1_value => sqlcode,
445: p_token2 => G_SQLERRM_TOKEN,
445: p_token2 => G_SQLERRM_TOKEN,
446: p_token2_value => sqlerrm);
447:
448: -- notify UNEXPECTED error
449: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
450:
451: END validate_scs_code;
452:
453: ---------------------------------------------------------------------------
458: ------------------------------------------------
459: FUNCTION Validate_Attributes (
460: p_sacv_rec IN sacv_rec_type
461: ) RETURN VARCHAR2 IS
462: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
463: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
464: BEGIN
465: OKC_UTIL.ADD_VIEW(G_VIEW,x_return_status);
466: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
459: FUNCTION Validate_Attributes (
460: p_sacv_rec IN sacv_rec_type
461: ) RETURN VARCHAR2 IS
462: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
463: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
464: BEGIN
465: OKC_UTIL.ADD_VIEW(G_VIEW,x_return_status);
466: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
467: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
462: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
463: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
464: BEGIN
465: OKC_UTIL.ADD_VIEW(G_VIEW,x_return_status);
466: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
467: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
468: l_return_status := x_return_status;
469: RAISE G_EXCEPTION_HALT_VALIDATION;
470: ELSE
463: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
464: BEGIN
465: OKC_UTIL.ADD_VIEW(G_VIEW,x_return_status);
466: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
467: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
468: l_return_status := x_return_status;
469: RAISE G_EXCEPTION_HALT_VALIDATION;
470: ELSE
471: l_return_status := x_return_status; -- record that there was an error
472: END IF;
473: END IF;
474:
475: validate_id(p_sacv_rec,l_return_status);
476: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
477: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
478: l_return_status := x_return_status;
479: RAISE G_EXCEPTION_HALT_VALIDATION;
480: ELSE
473: END IF;
474:
475: validate_id(p_sacv_rec,l_return_status);
476: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
477: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
478: l_return_status := x_return_status;
479: RAISE G_EXCEPTION_HALT_VALIDATION;
480: ELSE
481: l_return_status := x_return_status; -- record that there was an error
482: END IF;
483: END IF;
484:
485: validate_object_version_number(p_sacv_rec,x_return_status);
486: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
487: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
488: l_return_status := x_return_status;
489: RAISE G_EXCEPTION_HALT_VALIDATION;
490: ELSE
483: END IF;
484:
485: validate_object_version_number(p_sacv_rec,x_return_status);
486: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
487: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
488: l_return_status := x_return_status;
489: RAISE G_EXCEPTION_HALT_VALIDATION;
490: ELSE
491: l_return_status := x_return_status; -- record that there was an error
495:
496:
497: IF p_sacv_rec.price_type is not null then
498: validate_price_type(p_sacv_rec,x_return_status);
499: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
500: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
501: l_return_status := x_return_status;
502: RAISE G_EXCEPTION_HALT_VALIDATION;
503: ELSE
496:
497: IF p_sacv_rec.price_type is not null then
498: validate_price_type(p_sacv_rec,x_return_status);
499: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
500: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
501: l_return_status := x_return_status;
502: RAISE G_EXCEPTION_HALT_VALIDATION;
503: ELSE
504: l_return_status := x_return_status; -- record that there was an error
508: End If;
509:
510: IF p_sacv_rec.scs_code is not null then
511: validate_scs_code(p_sacv_rec,x_return_status);
512: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
513: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
514: l_return_status := x_return_status;
515: RAISE G_EXCEPTION_HALT_VALIDATION;
516: ELSE
509:
510: IF p_sacv_rec.scs_code is not null then
511: validate_scs_code(p_sacv_rec,x_return_status);
512: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
513: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
514: l_return_status := x_return_status;
515: RAISE G_EXCEPTION_HALT_VALIDATION;
516: ELSE
517: l_return_status := x_return_status; -- record that there was an error
519: END IF;
520: END If;
521:
522: validate_sat_code(p_sacv_rec,x_return_status);
523: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
524: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
525: l_return_status := x_return_status;
526: RAISE G_EXCEPTION_HALT_VALIDATION;
527: ELSE
520: END If;
521:
522: validate_sat_code(p_sacv_rec,x_return_status);
523: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
524: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
525: l_return_status := x_return_status;
526: RAISE G_EXCEPTION_HALT_VALIDATION;
527: ELSE
528: l_return_status := x_return_status; -- record that there was an error
536: RETURN(l_return_status);
537: -- other appropriate handlers
538: When others then
539: -- store SQL error message on message stack
540: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
541: p_msg_name => G_UNEXPECTED_ERROR,
542: p_token1 => G_SQLCODE_TOKEN,
543: p_token1_value => sqlcode,
544: p_token2 => G_SQLERRM_TOKEN,
544: p_token2 => G_SQLERRM_TOKEN,
545: p_token2_value => sqlerrm);
546:
547: -- notify UNEXPECTED error
548: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
549: RETURN(l_return_status);
550: END Validate_Attributes;
551:
552:
559: -------------------------------------------------
560: FUNCTION Validate_Record (
561: p_sacv_rec IN sacv_rec_type
562: ) RETURN VARCHAR2 IS
563: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
564:
565: -- ------------------------------------------------------
566: -- To check for any matching row, for unique combination.
567: -- The cursor includes id check filter to handle updates
585: l_row_found BOOLEAN := False;
586: l_dummy VARCHAR2(1);
587:
588: BEGIN
589: l_return_status:=OKC_API.G_RET_STS_SUCCESS;
590:
591: IF ( p_sacv_rec.price_type IS NOT NULL
592: AND p_sacv_rec.price_type <> OKC_API.G_MISS_CHAR )
593: AND ( p_sacv_rec.scs_code IS NOT NULL
588: BEGIN
589: l_return_status:=OKC_API.G_RET_STS_SUCCESS;
590:
591: IF ( p_sacv_rec.price_type IS NOT NULL
592: AND p_sacv_rec.price_type <> OKC_API.G_MISS_CHAR )
593: AND ( p_sacv_rec.scs_code IS NOT NULL
594: AND p_sacv_rec.scs_code <> OKC_API.G_MISS_CHAR )
595: THEN
596: l_return_status:=OKC_API.G_RET_STS_ERROR;
590:
591: IF ( p_sacv_rec.price_type IS NOT NULL
592: AND p_sacv_rec.price_type <> OKC_API.G_MISS_CHAR )
593: AND ( p_sacv_rec.scs_code IS NOT NULL
594: AND p_sacv_rec.scs_code <> OKC_API.G_MISS_CHAR )
595: THEN
596: l_return_status:=OKC_API.G_RET_STS_ERROR;
597: -- Set error message in message stack
598: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
592: AND p_sacv_rec.price_type <> OKC_API.G_MISS_CHAR )
593: AND ( p_sacv_rec.scs_code IS NOT NULL
594: AND p_sacv_rec.scs_code <> OKC_API.G_MISS_CHAR )
595: THEN
596: l_return_status:=OKC_API.G_RET_STS_ERROR;
597: -- Set error message in message stack
598: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
599: p_msg_name => G_EITHER_NULL,
600: p_token1 => G_COL_NAME_TOKEN,
594: AND p_sacv_rec.scs_code <> OKC_API.G_MISS_CHAR )
595: THEN
596: l_return_status:=OKC_API.G_RET_STS_ERROR;
597: -- Set error message in message stack
598: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
599: p_msg_name => G_EITHER_NULL,
600: p_token1 => G_COL_NAME_TOKEN,
601: p_token1_value => 'PRICE_TYPE',
602: p_token2 => G_COL_NAME_TOKEN,
602: p_token2 => G_COL_NAME_TOKEN,
603: p_token2_value => 'SCS_CODE' );
604:
605: ELSIF ( p_sacv_rec.price_type IS NULL
606: OR p_sacv_rec.price_type = OKC_API.G_MISS_CHAR )
607: AND ( p_sacv_rec.scs_code IS NULL
608: OR p_sacv_rec.scs_code = OKC_API.G_MISS_CHAR )
609: THEN
610: l_return_status:=OKC_API.G_RET_STS_ERROR;
604:
605: ELSIF ( p_sacv_rec.price_type IS NULL
606: OR p_sacv_rec.price_type = OKC_API.G_MISS_CHAR )
607: AND ( p_sacv_rec.scs_code IS NULL
608: OR p_sacv_rec.scs_code = OKC_API.G_MISS_CHAR )
609: THEN
610: l_return_status:=OKC_API.G_RET_STS_ERROR;
611: --set error message in message stack
612: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
606: OR p_sacv_rec.price_type = OKC_API.G_MISS_CHAR )
607: AND ( p_sacv_rec.scs_code IS NULL
608: OR p_sacv_rec.scs_code = OKC_API.G_MISS_CHAR )
609: THEN
610: l_return_status:=OKC_API.G_RET_STS_ERROR;
611: --set error message in message stack
612: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
613: p_msg_name => G_EITHER_NOTNULL,
614: p_token1 => G_COL_NAME_TOKEN,
608: OR p_sacv_rec.scs_code = OKC_API.G_MISS_CHAR )
609: THEN
610: l_return_status:=OKC_API.G_RET_STS_ERROR;
611: --set error message in message stack
612: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
613: p_msg_name => G_EITHER_NOTNULL,
614: p_token1 => G_COL_NAME_TOKEN,
615: p_token1_value => 'PRICE_TYPE',
616: p_token2 => G_COL_NAME_TOKEN,
616: p_token2 => G_COL_NAME_TOKEN,
617: p_token2_value => 'SCS_CODE' );
618:
619: ELSIF ( p_sacv_rec.price_type IS NOT NULL
620: AND p_sacv_rec.price_type <> OKC_API.G_MISS_CHAR)
621: THEN
622: -- ---------------------------------------------------------------------
623: -- Bug 1636056 related changes - Shyam
624: -- OKC_UTIL.check_comp_unique call earlier was not using
634:
635: IF (l_row_found)
636: THEN
637: -- Display the newly defined error message
638: OKC_API.set_message(G_APP_NAME,
639: 'OKC_DUP_PRICE_TYPE');
640: l_return_status := OKC_API.G_RET_STS_ERROR;
641: RAISE G_EXCEPTION_HALT_VALIDATION;
642: END IF;
636: THEN
637: -- Display the newly defined error message
638: OKC_API.set_message(G_APP_NAME,
639: 'OKC_DUP_PRICE_TYPE');
640: l_return_status := OKC_API.G_RET_STS_ERROR;
641: RAISE G_EXCEPTION_HALT_VALIDATION;
642: END IF;
643:
644:
642: END IF;
643:
644:
645: ELSIF ( p_sacv_rec.scs_code IS NOT NULL
646: AND p_sacv_rec.scs_code <> OKC_API.G_MISS_CHAR)
647: THEN
648: -- ---------------------------------------------------------------------
649: -- OKC_UTIL.check_comp_unique call is replaced with
650: -- the explicit cursors above, for identical function to
658:
659: IF (l_row_found)
660: THEN
661: -- Display the newly defined error message
662: OKC_API.set_message(G_APP_NAME,
663: 'OKC_DUP_SCS_CODE');
664: l_return_status := OKC_API.G_RET_STS_ERROR;
665: RAISE G_EXCEPTION_HALT_VALIDATION;
666: END IF;
660: THEN
661: -- Display the newly defined error message
662: OKC_API.set_message(G_APP_NAME,
663: 'OKC_DUP_SCS_CODE');
664: l_return_status := OKC_API.G_RET_STS_ERROR;
665: RAISE G_EXCEPTION_HALT_VALIDATION;
666: END IF;
667:
668: END IF;
674: RETURN (l_return_status);
675: WHEN OTHERS THEN
676: -- other appropriate handlers
677: -- store SQL error message on message stack
678: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
679: p_msg_name => G_UNEXPECTED_ERROR,
680: p_token1 => G_SQLCODE_TOKEN,
681: p_token1_value => sqlcode,
682: p_token2 => G_SQLERRM_TOKEN,
682: p_token2 => G_SQLERRM_TOKEN,
683: p_token2_value => sqlerrm);
684:
685: -- notify UNEXPECTED error
686: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
687: RETURN (l_return_status);
688: END Validate_Record;
689: /****************END ADDED AFTER TAPI**************/
690:
739: p_sacv_rec IN sacv_rec_type) IS
740:
741: l_api_version CONSTANT NUMBER := 1;
742: l_api_name CONSTANT VARCHAR2(30) := 'V_validate_row';
743: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
744: l_sacv_rec sacv_rec_type := p_sacv_rec;
745: l_sac_rec sac_rec_type;
746: BEGIN
747: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
743: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
744: l_sacv_rec sacv_rec_type := p_sacv_rec;
745: l_sac_rec sac_rec_type;
746: BEGIN
747: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
748: G_PKG_NAME,
749: p_init_msg_list,
750: l_api_version,
751: p_api_version,
750: l_api_version,
751: p_api_version,
752: '_PVT',
753: x_return_status);
754: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
755: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
756: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
757: RAISE OKC_API.G_EXCEPTION_ERROR;
758: END IF;
751: p_api_version,
752: '_PVT',
753: x_return_status);
754: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
755: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
756: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
757: RAISE OKC_API.G_EXCEPTION_ERROR;
758: END IF;
759: --- Validate all non-missing attributes (Item Level Validation)
752: '_PVT',
753: x_return_status);
754: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
755: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
756: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
757: RAISE OKC_API.G_EXCEPTION_ERROR;
758: END IF;
759: --- Validate all non-missing attributes (Item Level Validation)
760: l_return_status := Validate_Attributes(l_sacv_rec);
753: x_return_status);
754: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
755: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
756: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
757: RAISE OKC_API.G_EXCEPTION_ERROR;
758: END IF;
759: --- Validate all non-missing attributes (Item Level Validation)
760: l_return_status := Validate_Attributes(l_sacv_rec);
761: --- If any errors happen abort API
758: END IF;
759: --- Validate all non-missing attributes (Item Level Validation)
760: l_return_status := Validate_Attributes(l_sacv_rec);
761: --- If any errors happen abort API
762: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
763: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
764: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
765: RAISE OKC_API.G_EXCEPTION_ERROR;
766: END IF;
759: --- Validate all non-missing attributes (Item Level Validation)
760: l_return_status := Validate_Attributes(l_sacv_rec);
761: --- If any errors happen abort API
762: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
763: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
764: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
765: RAISE OKC_API.G_EXCEPTION_ERROR;
766: END IF;
767: l_return_status := Validate_Record(l_sacv_rec);
760: l_return_status := Validate_Attributes(l_sacv_rec);
761: --- If any errors happen abort API
762: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
763: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
764: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
765: RAISE OKC_API.G_EXCEPTION_ERROR;
766: END IF;
767: l_return_status := Validate_Record(l_sacv_rec);
768: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
761: --- If any errors happen abort API
762: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
763: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
764: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
765: RAISE OKC_API.G_EXCEPTION_ERROR;
766: END IF;
767: l_return_status := Validate_Record(l_sacv_rec);
768: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
769: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
764: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
765: RAISE OKC_API.G_EXCEPTION_ERROR;
766: END IF;
767: l_return_status := Validate_Record(l_sacv_rec);
768: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
769: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
770: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
771: RAISE OKC_API.G_EXCEPTION_ERROR;
772: END IF;
765: RAISE OKC_API.G_EXCEPTION_ERROR;
766: END IF;
767: l_return_status := Validate_Record(l_sacv_rec);
768: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
769: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
770: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
771: RAISE OKC_API.G_EXCEPTION_ERROR;
772: END IF;
773: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
766: END IF;
767: l_return_status := Validate_Record(l_sacv_rec);
768: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
769: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
770: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
771: RAISE OKC_API.G_EXCEPTION_ERROR;
772: END IF;
773: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
774: EXCEPTION
767: l_return_status := Validate_Record(l_sacv_rec);
768: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
769: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
770: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
771: RAISE OKC_API.G_EXCEPTION_ERROR;
772: END IF;
773: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
774: EXCEPTION
775: WHEN OKC_API.G_EXCEPTION_ERROR THEN
769: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
770: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
771: RAISE OKC_API.G_EXCEPTION_ERROR;
772: END IF;
773: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
774: EXCEPTION
775: WHEN OKC_API.G_EXCEPTION_ERROR THEN
776: x_return_status := OKC_API.HANDLE_EXCEPTIONS
777: (
771: RAISE OKC_API.G_EXCEPTION_ERROR;
772: END IF;
773: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
774: EXCEPTION
775: WHEN OKC_API.G_EXCEPTION_ERROR THEN
776: x_return_status := OKC_API.HANDLE_EXCEPTIONS
777: (
778: l_api_name,
779: G_PKG_NAME,
772: END IF;
773: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
774: EXCEPTION
775: WHEN OKC_API.G_EXCEPTION_ERROR THEN
776: x_return_status := OKC_API.HANDLE_EXCEPTIONS
777: (
778: l_api_name,
779: G_PKG_NAME,
780: 'OKC_API.G_RET_STS_ERROR',
776: x_return_status := OKC_API.HANDLE_EXCEPTIONS
777: (
778: l_api_name,
779: G_PKG_NAME,
780: 'OKC_API.G_RET_STS_ERROR',
781: x_msg_count,
782: x_msg_data,
783: '_PVT'
784: );
781: x_msg_count,
782: x_msg_data,
783: '_PVT'
784: );
785: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
786: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
787: (
788: l_api_name,
789: G_PKG_NAME,
782: x_msg_data,
783: '_PVT'
784: );
785: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
786: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
787: (
788: l_api_name,
789: G_PKG_NAME,
790: 'OKC_API.G_RET_STS_UNEXP_ERROR',
786: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
787: (
788: l_api_name,
789: G_PKG_NAME,
790: 'OKC_API.G_RET_STS_UNEXP_ERROR',
791: x_msg_count,
792: x_msg_data,
793: '_PVT'
794: );
792: x_msg_data,
793: '_PVT'
794: );
795: WHEN OTHERS THEN
796: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
797: (
798: l_api_name,
799: G_PKG_NAME,
800: 'OTHERS',
815: p_sacv_tbl IN sacv_tbl_type) IS
816:
817: l_api_version CONSTANT NUMBER := 1;
818: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
819: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
820: i NUMBER := 0;
821: BEGIN
822: -- Make sure PL/SQL table has records in it before passing
823: IF (p_sacv_tbl.COUNT > 0) THEN
834: i := p_sacv_tbl.NEXT(i);
835: END LOOP;
836: END IF;
837: EXCEPTION
838: WHEN OKC_API.G_EXCEPTION_ERROR THEN
839: x_return_status := OKC_API.HANDLE_EXCEPTIONS
840: (
841: l_api_name,
842: G_PKG_NAME,
835: END LOOP;
836: END IF;
837: EXCEPTION
838: WHEN OKC_API.G_EXCEPTION_ERROR THEN
839: x_return_status := OKC_API.HANDLE_EXCEPTIONS
840: (
841: l_api_name,
842: G_PKG_NAME,
843: 'OKC_API.G_RET_STS_ERROR',
839: x_return_status := OKC_API.HANDLE_EXCEPTIONS
840: (
841: l_api_name,
842: G_PKG_NAME,
843: 'OKC_API.G_RET_STS_ERROR',
844: x_msg_count,
845: x_msg_data,
846: '_PVT'
847: );
844: x_msg_count,
845: x_msg_data,
846: '_PVT'
847: );
848: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
849: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
850: (
851: l_api_name,
852: G_PKG_NAME,
845: x_msg_data,
846: '_PVT'
847: );
848: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
849: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
850: (
851: l_api_name,
852: G_PKG_NAME,
853: 'OKC_API.G_RET_STS_UNEXP_ERROR',
849: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
850: (
851: l_api_name,
852: G_PKG_NAME,
853: 'OKC_API.G_RET_STS_UNEXP_ERROR',
854: x_msg_count,
855: x_msg_data,
856: '_PVT'
857: );
855: x_msg_data,
856: '_PVT'
857: );
858: WHEN OTHERS THEN
859: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
860: (
861: l_api_name,
862: G_PKG_NAME,
863: 'OTHERS',
882: x_sac_rec OUT NOCOPY sac_rec_type) IS
883:
884: l_api_version CONSTANT NUMBER := 1;
885: l_api_name CONSTANT VARCHAR2(30) := 'CLASSINGS_insert_row';
886: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
887: l_sac_rec sac_rec_type := p_sac_rec;
888: l_def_sac_rec sac_rec_type;
889: ----------------------------------------------
890: -- Set_Attributes for:OKC_STD_ART_CLASSINGS --
892: FUNCTION Set_Attributes (
893: p_sac_rec IN sac_rec_type,
894: x_sac_rec OUT NOCOPY sac_rec_type
895: ) RETURN VARCHAR2 IS
896: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
897: BEGIN
898: x_sac_rec := p_sac_rec;
899: RETURN(l_return_status);
900: END Set_Attributes;
898: x_sac_rec := p_sac_rec;
899: RETURN(l_return_status);
900: END Set_Attributes;
901: BEGIN
902: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
903: p_init_msg_list,
904: '_PVT',
905: x_return_status);
906: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
902: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
903: p_init_msg_list,
904: '_PVT',
905: x_return_status);
906: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
907: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
908: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
909: RAISE OKC_API.G_EXCEPTION_ERROR;
910: END IF;
903: p_init_msg_list,
904: '_PVT',
905: x_return_status);
906: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
907: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
908: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
909: RAISE OKC_API.G_EXCEPTION_ERROR;
910: END IF;
911: --- Setting item attributes
904: '_PVT',
905: x_return_status);
906: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
907: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
908: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
909: RAISE OKC_API.G_EXCEPTION_ERROR;
910: END IF;
911: --- Setting item attributes
912: l_return_status := Set_Attributes(
905: x_return_status);
906: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
907: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
908: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
909: RAISE OKC_API.G_EXCEPTION_ERROR;
910: END IF;
911: --- Setting item attributes
912: l_return_status := Set_Attributes(
913: p_sac_rec, -- IN
912: l_return_status := Set_Attributes(
913: p_sac_rec, -- IN
914: l_sac_rec); -- OUT
915: --- If any errors happen abort API
916: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
917: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
918: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
919: RAISE OKC_API.G_EXCEPTION_ERROR;
920: END IF;
913: p_sac_rec, -- IN
914: l_sac_rec); -- OUT
915: --- If any errors happen abort API
916: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
917: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
918: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
919: RAISE OKC_API.G_EXCEPTION_ERROR;
920: END IF;
921: INSERT INTO OKC_STD_ART_CLASSINGS(
914: l_sac_rec); -- OUT
915: --- If any errors happen abort API
916: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
917: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
918: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
919: RAISE OKC_API.G_EXCEPTION_ERROR;
920: END IF;
921: INSERT INTO OKC_STD_ART_CLASSINGS(
922: id,
915: --- If any errors happen abort API
916: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
917: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
918: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
919: RAISE OKC_API.G_EXCEPTION_ERROR;
920: END IF;
921: INSERT INTO OKC_STD_ART_CLASSINGS(
922: id,
923: sat_code,
941: l_sac_rec.last_update_date,
942: l_sac_rec.last_update_login);
943: -- Set OUT values
944: x_sac_rec := l_sac_rec;
945: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
946: EXCEPTION
947: WHEN OKC_API.G_EXCEPTION_ERROR THEN
948: x_return_status := OKC_API.HANDLE_EXCEPTIONS
949: (
943: -- Set OUT values
944: x_sac_rec := l_sac_rec;
945: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
946: EXCEPTION
947: WHEN OKC_API.G_EXCEPTION_ERROR THEN
948: x_return_status := OKC_API.HANDLE_EXCEPTIONS
949: (
950: l_api_name,
951: G_PKG_NAME,
944: x_sac_rec := l_sac_rec;
945: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
946: EXCEPTION
947: WHEN OKC_API.G_EXCEPTION_ERROR THEN
948: x_return_status := OKC_API.HANDLE_EXCEPTIONS
949: (
950: l_api_name,
951: G_PKG_NAME,
952: 'OKC_API.G_RET_STS_ERROR',
948: x_return_status := OKC_API.HANDLE_EXCEPTIONS
949: (
950: l_api_name,
951: G_PKG_NAME,
952: 'OKC_API.G_RET_STS_ERROR',
953: x_msg_count,
954: x_msg_data,
955: '_PVT'
956: );
953: x_msg_count,
954: x_msg_data,
955: '_PVT'
956: );
957: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
958: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
959: (
960: l_api_name,
961: G_PKG_NAME,
954: x_msg_data,
955: '_PVT'
956: );
957: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
958: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
959: (
960: l_api_name,
961: G_PKG_NAME,
962: 'OKC_API.G_RET_STS_UNEXP_ERROR',
958: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
959: (
960: l_api_name,
961: G_PKG_NAME,
962: 'OKC_API.G_RET_STS_UNEXP_ERROR',
963: x_msg_count,
964: x_msg_data,
965: '_PVT'
966: );
964: x_msg_data,
965: '_PVT'
966: );
967: WHEN OTHERS THEN
968: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
969: (
970: l_api_name,
971: G_PKG_NAME,
972: 'OTHERS',
988: x_sacv_rec OUT NOCOPY sacv_rec_type) IS
989:
990: l_api_version CONSTANT NUMBER := 1;
991: l_api_name CONSTANT VARCHAR2(30) := 'V_insert_row';
992: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
993: l_sacv_rec sacv_rec_type;
994: l_def_sacv_rec sacv_rec_type;
995: l_sac_rec sac_rec_type;
996: lx_sac_rec sac_rec_type;
1016: FUNCTION Set_Attributes (
1017: p_sacv_rec IN sacv_rec_type,
1018: x_sacv_rec OUT NOCOPY sacv_rec_type
1019: ) RETURN VARCHAR2 IS
1020: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1021: BEGIN
1022: x_sacv_rec := p_sacv_rec;
1023: x_sacv_rec.OBJECT_VERSION_NUMBER := 1;
1024: RETURN(l_return_status);
1023: x_sacv_rec.OBJECT_VERSION_NUMBER := 1;
1024: RETURN(l_return_status);
1025: END Set_Attributes;
1026: BEGIN
1027: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1028: G_PKG_NAME,
1029: p_init_msg_list,
1030: l_api_version,
1031: p_api_version,
1030: l_api_version,
1031: p_api_version,
1032: '_PVT',
1033: x_return_status);
1034: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1035: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1036: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1037: RAISE OKC_API.G_EXCEPTION_ERROR;
1038: END IF;
1031: p_api_version,
1032: '_PVT',
1033: x_return_status);
1034: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1035: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1036: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1037: RAISE OKC_API.G_EXCEPTION_ERROR;
1038: END IF;
1039: l_sacv_rec := null_out_defaults(p_sacv_rec);
1032: '_PVT',
1033: x_return_status);
1034: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1035: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1036: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1037: RAISE OKC_API.G_EXCEPTION_ERROR;
1038: END IF;
1039: l_sacv_rec := null_out_defaults(p_sacv_rec);
1040: -- Set primary key value
1033: x_return_status);
1034: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1035: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1036: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1037: RAISE OKC_API.G_EXCEPTION_ERROR;
1038: END IF;
1039: l_sacv_rec := null_out_defaults(p_sacv_rec);
1040: -- Set primary key value
1041: l_sacv_rec.ID := get_seq_id;
1043: l_return_status := Set_Attributes(
1044: l_sacv_rec, -- IN
1045: l_def_sacv_rec); -- OUT
1046: --- If any errors happen abort API
1047: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1048: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1049: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1050: RAISE OKC_API.G_EXCEPTION_ERROR;
1051: END IF;
1044: l_sacv_rec, -- IN
1045: l_def_sacv_rec); -- OUT
1046: --- If any errors happen abort API
1047: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1048: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1049: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1050: RAISE OKC_API.G_EXCEPTION_ERROR;
1051: END IF;
1052: l_def_sacv_rec := fill_who_columns(l_def_sacv_rec);
1045: l_def_sacv_rec); -- OUT
1046: --- If any errors happen abort API
1047: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1048: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1049: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1050: RAISE OKC_API.G_EXCEPTION_ERROR;
1051: END IF;
1052: l_def_sacv_rec := fill_who_columns(l_def_sacv_rec);
1053: --- Validate all non-missing attributes (Item Level Validation)
1046: --- If any errors happen abort API
1047: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1048: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1049: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1050: RAISE OKC_API.G_EXCEPTION_ERROR;
1051: END IF;
1052: l_def_sacv_rec := fill_who_columns(l_def_sacv_rec);
1053: --- Validate all non-missing attributes (Item Level Validation)
1054: l_return_status := Validate_Attributes(l_def_sacv_rec);
1052: l_def_sacv_rec := fill_who_columns(l_def_sacv_rec);
1053: --- Validate all non-missing attributes (Item Level Validation)
1054: l_return_status := Validate_Attributes(l_def_sacv_rec);
1055: --- If any errors happen abort API
1056: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1057: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1058: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1059: RAISE OKC_API.G_EXCEPTION_ERROR;
1060: END IF;
1053: --- Validate all non-missing attributes (Item Level Validation)
1054: l_return_status := Validate_Attributes(l_def_sacv_rec);
1055: --- If any errors happen abort API
1056: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1057: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1058: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1059: RAISE OKC_API.G_EXCEPTION_ERROR;
1060: END IF;
1061: l_return_status := Validate_Record(l_def_sacv_rec);
1054: l_return_status := Validate_Attributes(l_def_sacv_rec);
1055: --- If any errors happen abort API
1056: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1057: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1058: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1059: RAISE OKC_API.G_EXCEPTION_ERROR;
1060: END IF;
1061: l_return_status := Validate_Record(l_def_sacv_rec);
1062: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1055: --- If any errors happen abort API
1056: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1057: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1058: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1059: RAISE OKC_API.G_EXCEPTION_ERROR;
1060: END IF;
1061: l_return_status := Validate_Record(l_def_sacv_rec);
1062: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1063: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1058: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1059: RAISE OKC_API.G_EXCEPTION_ERROR;
1060: END IF;
1061: l_return_status := Validate_Record(l_def_sacv_rec);
1062: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1063: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1064: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1065: RAISE OKC_API.G_EXCEPTION_ERROR;
1066: END IF;
1059: RAISE OKC_API.G_EXCEPTION_ERROR;
1060: END IF;
1061: l_return_status := Validate_Record(l_def_sacv_rec);
1062: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1063: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1064: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1065: RAISE OKC_API.G_EXCEPTION_ERROR;
1066: END IF;
1067: --------------------------------------
1060: END IF;
1061: l_return_status := Validate_Record(l_def_sacv_rec);
1062: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1063: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1064: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1065: RAISE OKC_API.G_EXCEPTION_ERROR;
1066: END IF;
1067: --------------------------------------
1068: -- Move VIEW record to "Child" records
1061: l_return_status := Validate_Record(l_def_sacv_rec);
1062: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1063: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1064: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1065: RAISE OKC_API.G_EXCEPTION_ERROR;
1066: END IF;
1067: --------------------------------------
1068: -- Move VIEW record to "Child" records
1069: --------------------------------------
1078: x_msg_data,
1079: l_sac_rec,
1080: lx_sac_rec
1081: );
1082: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1083: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1084: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1085: RAISE OKC_API.G_EXCEPTION_ERROR;
1086: END IF;
1079: l_sac_rec,
1080: lx_sac_rec
1081: );
1082: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1083: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1084: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1085: RAISE OKC_API.G_EXCEPTION_ERROR;
1086: END IF;
1087: migrate(lx_sac_rec, l_def_sacv_rec);
1080: lx_sac_rec
1081: );
1082: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1083: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1084: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1085: RAISE OKC_API.G_EXCEPTION_ERROR;
1086: END IF;
1087: migrate(lx_sac_rec, l_def_sacv_rec);
1088: -- Set OUT values
1081: );
1082: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1083: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1084: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1085: RAISE OKC_API.G_EXCEPTION_ERROR;
1086: END IF;
1087: migrate(lx_sac_rec, l_def_sacv_rec);
1088: -- Set OUT values
1089: x_sacv_rec := l_def_sacv_rec;
1086: END IF;
1087: migrate(lx_sac_rec, l_def_sacv_rec);
1088: -- Set OUT values
1089: x_sacv_rec := l_def_sacv_rec;
1090: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1091: EXCEPTION
1092: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1093: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1094: (
1088: -- Set OUT values
1089: x_sacv_rec := l_def_sacv_rec;
1090: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1091: EXCEPTION
1092: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1093: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1094: (
1095: l_api_name,
1096: G_PKG_NAME,
1089: x_sacv_rec := l_def_sacv_rec;
1090: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1091: EXCEPTION
1092: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1093: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1094: (
1095: l_api_name,
1096: G_PKG_NAME,
1097: 'OKC_API.G_RET_STS_ERROR',
1093: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1094: (
1095: l_api_name,
1096: G_PKG_NAME,
1097: 'OKC_API.G_RET_STS_ERROR',
1098: x_msg_count,
1099: x_msg_data,
1100: '_PVT'
1101: );
1098: x_msg_count,
1099: x_msg_data,
1100: '_PVT'
1101: );
1102: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1103: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1104: (
1105: l_api_name,
1106: G_PKG_NAME,
1099: x_msg_data,
1100: '_PVT'
1101: );
1102: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1103: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1104: (
1105: l_api_name,
1106: G_PKG_NAME,
1107: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1103: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1104: (
1105: l_api_name,
1106: G_PKG_NAME,
1107: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1108: x_msg_count,
1109: x_msg_data,
1110: '_PVT'
1111: );
1109: x_msg_data,
1110: '_PVT'
1111: );
1112: WHEN OTHERS THEN
1113: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1114: (
1115: l_api_name,
1116: G_PKG_NAME,
1117: 'OTHERS',
1133: x_sacv_tbl OUT NOCOPY sacv_tbl_type) IS
1134:
1135: l_api_version CONSTANT NUMBER := 1;
1136: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
1137: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1138: i NUMBER := 0;
1139: BEGIN
1140: -- Make sure PL/SQL table has records in it before passing
1141: IF (p_sacv_tbl.COUNT > 0) THEN
1153: i := p_sacv_tbl.NEXT(i);
1154: END LOOP;
1155: END IF;
1156: EXCEPTION
1157: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1158: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1159: (
1160: l_api_name,
1161: G_PKG_NAME,
1154: END LOOP;
1155: END IF;
1156: EXCEPTION
1157: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1158: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1159: (
1160: l_api_name,
1161: G_PKG_NAME,
1162: 'OKC_API.G_RET_STS_ERROR',
1158: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1159: (
1160: l_api_name,
1161: G_PKG_NAME,
1162: 'OKC_API.G_RET_STS_ERROR',
1163: x_msg_count,
1164: x_msg_data,
1165: '_PVT'
1166: );
1163: x_msg_count,
1164: x_msg_data,
1165: '_PVT'
1166: );
1167: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1168: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1169: (
1170: l_api_name,
1171: G_PKG_NAME,
1164: x_msg_data,
1165: '_PVT'
1166: );
1167: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1168: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1169: (
1170: l_api_name,
1171: G_PKG_NAME,
1172: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1168: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1169: (
1170: l_api_name,
1171: G_PKG_NAME,
1172: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1173: x_msg_count,
1174: x_msg_data,
1175: '_PVT'
1176: );
1174: x_msg_data,
1175: '_PVT'
1176: );
1177: WHEN OTHERS THEN
1178: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1179: (
1180: l_api_name,
1181: G_PKG_NAME,
1182: 'OTHERS',
1213: FROM OKC_STD_ART_CLASSINGS
1214: WHERE ID = p_sac_rec.id;
1215: l_api_version CONSTANT NUMBER := 1;
1216: l_api_name CONSTANT VARCHAR2(30) := 'CLASSINGS_lock_row';
1217: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1218: l_object_version_number OKC_STD_ART_CLASSINGS.OBJECT_VERSION_NUMBER%TYPE;
1219: lc_object_version_number OKC_STD_ART_CLASSINGS.OBJECT_VERSION_NUMBER%TYPE;
1220: l_row_notfound BOOLEAN := FALSE;
1221: lc_row_notfound BOOLEAN := FALSE;
1219: lc_object_version_number OKC_STD_ART_CLASSINGS.OBJECT_VERSION_NUMBER%TYPE;
1220: l_row_notfound BOOLEAN := FALSE;
1221: lc_row_notfound BOOLEAN := FALSE;
1222: BEGIN
1223: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1224: p_init_msg_list,
1225: '_PVT',
1226: x_return_status);
1227: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1223: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1224: p_init_msg_list,
1225: '_PVT',
1226: x_return_status);
1227: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1228: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1229: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1230: RAISE OKC_API.G_EXCEPTION_ERROR;
1231: END IF;
1224: p_init_msg_list,
1225: '_PVT',
1226: x_return_status);
1227: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1228: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1229: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1230: RAISE OKC_API.G_EXCEPTION_ERROR;
1231: END IF;
1232: BEGIN
1225: '_PVT',
1226: x_return_status);
1227: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1228: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1229: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1230: RAISE OKC_API.G_EXCEPTION_ERROR;
1231: END IF;
1232: BEGIN
1233: OPEN lock_csr(p_sac_rec);
1226: x_return_status);
1227: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1228: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1229: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1230: RAISE OKC_API.G_EXCEPTION_ERROR;
1231: END IF;
1232: BEGIN
1233: OPEN lock_csr(p_sac_rec);
1234: FETCH lock_csr INTO l_object_version_number;
1238: WHEN E_Resource_Busy THEN
1239: IF (lock_csr%ISOPEN) THEN
1240: CLOSE lock_csr;
1241: END IF;
1242: OKC_API.set_message(G_FND_APP,G_FORM_UNABLE_TO_RESERVE_REC);
1243: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
1244: END;
1245:
1246: IF ( l_row_notfound ) THEN
1249: lc_row_notfound := lchk_csr%NOTFOUND;
1250: CLOSE lchk_csr;
1251: END IF;
1252: IF (lc_row_notfound) THEN
1253: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1254: RAISE OKC_API.G_EXCEPTION_ERROR;
1255: ELSIF lc_object_version_number > p_sac_rec.object_version_number THEN
1256: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1257: RAISE OKC_API.G_EXCEPTION_ERROR;
1250: CLOSE lchk_csr;
1251: END IF;
1252: IF (lc_row_notfound) THEN
1253: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1254: RAISE OKC_API.G_EXCEPTION_ERROR;
1255: ELSIF lc_object_version_number > p_sac_rec.object_version_number THEN
1256: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1257: RAISE OKC_API.G_EXCEPTION_ERROR;
1258: ELSIF lc_object_version_number <> p_sac_rec.object_version_number THEN
1252: IF (lc_row_notfound) THEN
1253: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1254: RAISE OKC_API.G_EXCEPTION_ERROR;
1255: ELSIF lc_object_version_number > p_sac_rec.object_version_number THEN
1256: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1257: RAISE OKC_API.G_EXCEPTION_ERROR;
1258: ELSIF lc_object_version_number <> p_sac_rec.object_version_number THEN
1259: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1260: RAISE OKC_API.G_EXCEPTION_ERROR;
1253: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1254: RAISE OKC_API.G_EXCEPTION_ERROR;
1255: ELSIF lc_object_version_number > p_sac_rec.object_version_number THEN
1256: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1257: RAISE OKC_API.G_EXCEPTION_ERROR;
1258: ELSIF lc_object_version_number <> p_sac_rec.object_version_number THEN
1259: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1260: RAISE OKC_API.G_EXCEPTION_ERROR;
1261: ELSIF lc_object_version_number = -1 THEN
1255: ELSIF lc_object_version_number > p_sac_rec.object_version_number THEN
1256: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1257: RAISE OKC_API.G_EXCEPTION_ERROR;
1258: ELSIF lc_object_version_number <> p_sac_rec.object_version_number THEN
1259: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1260: RAISE OKC_API.G_EXCEPTION_ERROR;
1261: ELSIF lc_object_version_number = -1 THEN
1262: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1263: RAISE OKC_API.G_EXCEPTION_ERROR;
1256: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1257: RAISE OKC_API.G_EXCEPTION_ERROR;
1258: ELSIF lc_object_version_number <> p_sac_rec.object_version_number THEN
1259: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1260: RAISE OKC_API.G_EXCEPTION_ERROR;
1261: ELSIF lc_object_version_number = -1 THEN
1262: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1263: RAISE OKC_API.G_EXCEPTION_ERROR;
1264: END IF;
1258: ELSIF lc_object_version_number <> p_sac_rec.object_version_number THEN
1259: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1260: RAISE OKC_API.G_EXCEPTION_ERROR;
1261: ELSIF lc_object_version_number = -1 THEN
1262: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1263: RAISE OKC_API.G_EXCEPTION_ERROR;
1264: END IF;
1265: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1266: EXCEPTION
1259: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1260: RAISE OKC_API.G_EXCEPTION_ERROR;
1261: ELSIF lc_object_version_number = -1 THEN
1262: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1263: RAISE OKC_API.G_EXCEPTION_ERROR;
1264: END IF;
1265: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1266: EXCEPTION
1267: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1261: ELSIF lc_object_version_number = -1 THEN
1262: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1263: RAISE OKC_API.G_EXCEPTION_ERROR;
1264: END IF;
1265: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1266: EXCEPTION
1267: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1268: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1269: (
1263: RAISE OKC_API.G_EXCEPTION_ERROR;
1264: END IF;
1265: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1266: EXCEPTION
1267: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1268: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1269: (
1270: l_api_name,
1271: G_PKG_NAME,
1264: END IF;
1265: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1266: EXCEPTION
1267: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1268: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1269: (
1270: l_api_name,
1271: G_PKG_NAME,
1272: 'OKC_API.G_RET_STS_ERROR',
1268: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1269: (
1270: l_api_name,
1271: G_PKG_NAME,
1272: 'OKC_API.G_RET_STS_ERROR',
1273: x_msg_count,
1274: x_msg_data,
1275: '_PVT'
1276: );
1273: x_msg_count,
1274: x_msg_data,
1275: '_PVT'
1276: );
1277: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1278: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1279: (
1280: l_api_name,
1281: G_PKG_NAME,
1274: x_msg_data,
1275: '_PVT'
1276: );
1277: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1278: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1279: (
1280: l_api_name,
1281: G_PKG_NAME,
1282: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1278: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1279: (
1280: l_api_name,
1281: G_PKG_NAME,
1282: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1283: x_msg_count,
1284: x_msg_data,
1285: '_PVT'
1286: );
1284: x_msg_data,
1285: '_PVT'
1286: );
1287: WHEN OTHERS THEN
1288: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1289: (
1290: l_api_name,
1291: G_PKG_NAME,
1292: 'OTHERS',
1307: p_sacv_rec IN sacv_rec_type) IS
1308:
1309: l_api_version CONSTANT NUMBER := 1;
1310: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
1311: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1312: l_sac_rec sac_rec_type;
1313: BEGIN
1314: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1315: G_PKG_NAME,
1310: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
1311: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1312: l_sac_rec sac_rec_type;
1313: BEGIN
1314: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1315: G_PKG_NAME,
1316: p_init_msg_list,
1317: l_api_version,
1318: p_api_version,
1317: l_api_version,
1318: p_api_version,
1319: '_PVT',
1320: x_return_status);
1321: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1322: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1323: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1324: RAISE OKC_API.G_EXCEPTION_ERROR;
1325: END IF;
1318: p_api_version,
1319: '_PVT',
1320: x_return_status);
1321: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1322: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1323: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1324: RAISE OKC_API.G_EXCEPTION_ERROR;
1325: END IF;
1326: --------------------------------------
1319: '_PVT',
1320: x_return_status);
1321: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1322: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1323: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1324: RAISE OKC_API.G_EXCEPTION_ERROR;
1325: END IF;
1326: --------------------------------------
1327: -- Move VIEW record to "Child" records
1320: x_return_status);
1321: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1322: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1323: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1324: RAISE OKC_API.G_EXCEPTION_ERROR;
1325: END IF;
1326: --------------------------------------
1327: -- Move VIEW record to "Child" records
1328: --------------------------------------
1336: x_msg_count,
1337: x_msg_data,
1338: l_sac_rec
1339: );
1340: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1341: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1342: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1343: RAISE OKC_API.G_EXCEPTION_ERROR;
1344: END IF;
1337: x_msg_data,
1338: l_sac_rec
1339: );
1340: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1341: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1342: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1343: RAISE OKC_API.G_EXCEPTION_ERROR;
1344: END IF;
1345: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1338: l_sac_rec
1339: );
1340: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1341: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1342: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1343: RAISE OKC_API.G_EXCEPTION_ERROR;
1344: END IF;
1345: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1346: EXCEPTION
1339: );
1340: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1341: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1342: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1343: RAISE OKC_API.G_EXCEPTION_ERROR;
1344: END IF;
1345: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1346: EXCEPTION
1347: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1341: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1342: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1343: RAISE OKC_API.G_EXCEPTION_ERROR;
1344: END IF;
1345: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1346: EXCEPTION
1347: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1348: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1349: (
1343: RAISE OKC_API.G_EXCEPTION_ERROR;
1344: END IF;
1345: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1346: EXCEPTION
1347: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1348: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1349: (
1350: l_api_name,
1351: G_PKG_NAME,
1344: END IF;
1345: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1346: EXCEPTION
1347: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1348: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1349: (
1350: l_api_name,
1351: G_PKG_NAME,
1352: 'OKC_API.G_RET_STS_ERROR',
1348: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1349: (
1350: l_api_name,
1351: G_PKG_NAME,
1352: 'OKC_API.G_RET_STS_ERROR',
1353: x_msg_count,
1354: x_msg_data,
1355: '_PVT'
1356: );
1353: x_msg_count,
1354: x_msg_data,
1355: '_PVT'
1356: );
1357: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1358: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1359: (
1360: l_api_name,
1361: G_PKG_NAME,
1354: x_msg_data,
1355: '_PVT'
1356: );
1357: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1358: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1359: (
1360: l_api_name,
1361: G_PKG_NAME,
1362: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1358: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1359: (
1360: l_api_name,
1361: G_PKG_NAME,
1362: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1363: x_msg_count,
1364: x_msg_data,
1365: '_PVT'
1366: );
1364: x_msg_data,
1365: '_PVT'
1366: );
1367: WHEN OTHERS THEN
1368: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1369: (
1370: l_api_name,
1371: G_PKG_NAME,
1372: 'OTHERS',
1387: p_sacv_tbl IN sacv_tbl_type) IS
1388:
1389: l_api_version CONSTANT NUMBER := 1;
1390: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
1391: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1392: i NUMBER := 0;
1393: BEGIN
1394: -- Make sure PL/SQL table has records in it before passing
1395: IF (p_sacv_tbl.COUNT > 0) THEN
1406: i := p_sacv_tbl.NEXT(i);
1407: END LOOP;
1408: END IF;
1409: EXCEPTION
1410: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1411: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1412: (
1413: l_api_name,
1414: G_PKG_NAME,
1407: END LOOP;
1408: END IF;
1409: EXCEPTION
1410: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1411: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1412: (
1413: l_api_name,
1414: G_PKG_NAME,
1415: 'OKC_API.G_RET_STS_ERROR',
1411: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1412: (
1413: l_api_name,
1414: G_PKG_NAME,
1415: 'OKC_API.G_RET_STS_ERROR',
1416: x_msg_count,
1417: x_msg_data,
1418: '_PVT'
1419: );
1416: x_msg_count,
1417: x_msg_data,
1418: '_PVT'
1419: );
1420: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1421: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1422: (
1423: l_api_name,
1424: G_PKG_NAME,
1417: x_msg_data,
1418: '_PVT'
1419: );
1420: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1421: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1422: (
1423: l_api_name,
1424: G_PKG_NAME,
1425: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1421: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1422: (
1423: l_api_name,
1424: G_PKG_NAME,
1425: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1426: x_msg_count,
1427: x_msg_data,
1428: '_PVT'
1429: );
1427: x_msg_data,
1428: '_PVT'
1429: );
1430: WHEN OTHERS THEN
1431: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1432: (
1433: l_api_name,
1434: G_PKG_NAME,
1435: 'OTHERS',
1454: x_sac_rec OUT NOCOPY sac_rec_type) IS
1455:
1456: l_api_version CONSTANT NUMBER := 1;
1457: l_api_name CONSTANT VARCHAR2(30) := 'CLASSINGS_update_row';
1458: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1459: l_sac_rec sac_rec_type := p_sac_rec;
1460: l_def_sac_rec sac_rec_type;
1461: l_row_notfound BOOLEAN := TRUE;
1462: ----------------------------------
1467: x_sac_rec OUT NOCOPY sac_rec_type
1468: ) RETURN VARCHAR2 IS
1469: l_sac_rec sac_rec_type;
1470: l_row_notfound BOOLEAN := TRUE;
1471: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1472: BEGIN
1473: x_sac_rec := p_sac_rec;
1474: -- Get current database values
1475: l_sac_rec := get_rec(p_sac_rec, l_row_notfound);
1473: x_sac_rec := p_sac_rec;
1474: -- Get current database values
1475: l_sac_rec := get_rec(p_sac_rec, l_row_notfound);
1476: IF (l_row_notfound) THEN
1477: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1478: END IF;
1479: IF (x_sac_rec.id = OKC_API.G_MISS_NUM)
1480: THEN
1481: x_sac_rec.id := l_sac_rec.id;
1475: l_sac_rec := get_rec(p_sac_rec, l_row_notfound);
1476: IF (l_row_notfound) THEN
1477: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1478: END IF;
1479: IF (x_sac_rec.id = OKC_API.G_MISS_NUM)
1480: THEN
1481: x_sac_rec.id := l_sac_rec.id;
1482: END IF;
1483: IF (x_sac_rec.sat_code = OKC_API.G_MISS_CHAR)
1479: IF (x_sac_rec.id = OKC_API.G_MISS_NUM)
1480: THEN
1481: x_sac_rec.id := l_sac_rec.id;
1482: END IF;
1483: IF (x_sac_rec.sat_code = OKC_API.G_MISS_CHAR)
1484: THEN
1485: x_sac_rec.sat_code := l_sac_rec.sat_code;
1486: END IF;
1487: IF (x_sac_rec.price_type = OKC_API.G_MISS_CHAR)
1483: IF (x_sac_rec.sat_code = OKC_API.G_MISS_CHAR)
1484: THEN
1485: x_sac_rec.sat_code := l_sac_rec.sat_code;
1486: END IF;
1487: IF (x_sac_rec.price_type = OKC_API.G_MISS_CHAR)
1488: THEN
1489: x_sac_rec.price_type := l_sac_rec.price_type;
1490: END IF;
1491: IF (x_sac_rec.scs_code = OKC_API.G_MISS_CHAR)
1487: IF (x_sac_rec.price_type = OKC_API.G_MISS_CHAR)
1488: THEN
1489: x_sac_rec.price_type := l_sac_rec.price_type;
1490: END IF;
1491: IF (x_sac_rec.scs_code = OKC_API.G_MISS_CHAR)
1492: THEN
1493: x_sac_rec.scs_code := l_sac_rec.scs_code;
1494: END IF;
1495: IF (x_sac_rec.object_version_number = OKC_API.G_MISS_NUM)
1491: IF (x_sac_rec.scs_code = OKC_API.G_MISS_CHAR)
1492: THEN
1493: x_sac_rec.scs_code := l_sac_rec.scs_code;
1494: END IF;
1495: IF (x_sac_rec.object_version_number = OKC_API.G_MISS_NUM)
1496: THEN
1497: x_sac_rec.object_version_number := l_sac_rec.object_version_number;
1498: END IF;
1499: IF (x_sac_rec.created_by = OKC_API.G_MISS_NUM)
1495: IF (x_sac_rec.object_version_number = OKC_API.G_MISS_NUM)
1496: THEN
1497: x_sac_rec.object_version_number := l_sac_rec.object_version_number;
1498: END IF;
1499: IF (x_sac_rec.created_by = OKC_API.G_MISS_NUM)
1500: THEN
1501: x_sac_rec.created_by := l_sac_rec.created_by;
1502: END IF;
1503: IF (x_sac_rec.creation_date = OKC_API.G_MISS_DATE)
1499: IF (x_sac_rec.created_by = OKC_API.G_MISS_NUM)
1500: THEN
1501: x_sac_rec.created_by := l_sac_rec.created_by;
1502: END IF;
1503: IF (x_sac_rec.creation_date = OKC_API.G_MISS_DATE)
1504: THEN
1505: x_sac_rec.creation_date := l_sac_rec.creation_date;
1506: END IF;
1507: IF (x_sac_rec.last_updated_by = OKC_API.G_MISS_NUM)
1503: IF (x_sac_rec.creation_date = OKC_API.G_MISS_DATE)
1504: THEN
1505: x_sac_rec.creation_date := l_sac_rec.creation_date;
1506: END IF;
1507: IF (x_sac_rec.last_updated_by = OKC_API.G_MISS_NUM)
1508: THEN
1509: x_sac_rec.last_updated_by := l_sac_rec.last_updated_by;
1510: END IF;
1511: IF (x_sac_rec.last_update_date = OKC_API.G_MISS_DATE)
1507: IF (x_sac_rec.last_updated_by = OKC_API.G_MISS_NUM)
1508: THEN
1509: x_sac_rec.last_updated_by := l_sac_rec.last_updated_by;
1510: END IF;
1511: IF (x_sac_rec.last_update_date = OKC_API.G_MISS_DATE)
1512: THEN
1513: x_sac_rec.last_update_date := l_sac_rec.last_update_date;
1514: END IF;
1515: IF (x_sac_rec.last_update_login = OKC_API.G_MISS_NUM)
1511: IF (x_sac_rec.last_update_date = OKC_API.G_MISS_DATE)
1512: THEN
1513: x_sac_rec.last_update_date := l_sac_rec.last_update_date;
1514: END IF;
1515: IF (x_sac_rec.last_update_login = OKC_API.G_MISS_NUM)
1516: THEN
1517: x_sac_rec.last_update_login := l_sac_rec.last_update_login;
1518: END IF;
1519: RETURN(l_return_status);
1524: FUNCTION Set_Attributes (
1525: p_sac_rec IN sac_rec_type,
1526: x_sac_rec OUT NOCOPY sac_rec_type
1527: ) RETURN VARCHAR2 IS
1528: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1529: BEGIN
1530: x_sac_rec := p_sac_rec;
1531: RETURN(l_return_status);
1532: END Set_Attributes;
1530: x_sac_rec := p_sac_rec;
1531: RETURN(l_return_status);
1532: END Set_Attributes;
1533: BEGIN
1534: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1535: p_init_msg_list,
1536: '_PVT',
1537: x_return_status);
1538: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1534: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1535: p_init_msg_list,
1536: '_PVT',
1537: x_return_status);
1538: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1539: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1540: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1541: RAISE OKC_API.G_EXCEPTION_ERROR;
1542: END IF;
1535: p_init_msg_list,
1536: '_PVT',
1537: x_return_status);
1538: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1539: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1540: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1541: RAISE OKC_API.G_EXCEPTION_ERROR;
1542: END IF;
1543: --- Setting item attributes
1536: '_PVT',
1537: x_return_status);
1538: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1539: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1540: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1541: RAISE OKC_API.G_EXCEPTION_ERROR;
1542: END IF;
1543: --- Setting item attributes
1544: l_return_status := Set_Attributes(
1537: x_return_status);
1538: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1539: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1540: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1541: RAISE OKC_API.G_EXCEPTION_ERROR;
1542: END IF;
1543: --- Setting item attributes
1544: l_return_status := Set_Attributes(
1545: p_sac_rec, -- IN
1544: l_return_status := Set_Attributes(
1545: p_sac_rec, -- IN
1546: l_sac_rec); -- OUT
1547: --- If any errors happen abort API
1548: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1549: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1550: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1551: RAISE OKC_API.G_EXCEPTION_ERROR;
1552: END IF;
1545: p_sac_rec, -- IN
1546: l_sac_rec); -- OUT
1547: --- If any errors happen abort API
1548: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1549: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1550: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1551: RAISE OKC_API.G_EXCEPTION_ERROR;
1552: END IF;
1553: l_return_status := populate_new_record(l_sac_rec, l_def_sac_rec);
1546: l_sac_rec); -- OUT
1547: --- If any errors happen abort API
1548: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1549: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1550: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1551: RAISE OKC_API.G_EXCEPTION_ERROR;
1552: END IF;
1553: l_return_status := populate_new_record(l_sac_rec, l_def_sac_rec);
1554: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1547: --- If any errors happen abort API
1548: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1549: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1550: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1551: RAISE OKC_API.G_EXCEPTION_ERROR;
1552: END IF;
1553: l_return_status := populate_new_record(l_sac_rec, l_def_sac_rec);
1554: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1555: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1550: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1551: RAISE OKC_API.G_EXCEPTION_ERROR;
1552: END IF;
1553: l_return_status := populate_new_record(l_sac_rec, l_def_sac_rec);
1554: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1555: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1556: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1557: RAISE OKC_API.G_EXCEPTION_ERROR;
1558: END IF;
1551: RAISE OKC_API.G_EXCEPTION_ERROR;
1552: END IF;
1553: l_return_status := populate_new_record(l_sac_rec, l_def_sac_rec);
1554: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1555: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1556: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1557: RAISE OKC_API.G_EXCEPTION_ERROR;
1558: END IF;
1559: UPDATE OKC_STD_ART_CLASSINGS
1552: END IF;
1553: l_return_status := populate_new_record(l_sac_rec, l_def_sac_rec);
1554: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1555: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1556: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1557: RAISE OKC_API.G_EXCEPTION_ERROR;
1558: END IF;
1559: UPDATE OKC_STD_ART_CLASSINGS
1560: SET SAT_CODE = l_def_sac_rec.sat_code,
1553: l_return_status := populate_new_record(l_sac_rec, l_def_sac_rec);
1554: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1555: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1556: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1557: RAISE OKC_API.G_EXCEPTION_ERROR;
1558: END IF;
1559: UPDATE OKC_STD_ART_CLASSINGS
1560: SET SAT_CODE = l_def_sac_rec.sat_code,
1561: PRICE_TYPE = l_def_sac_rec.price_type,
1568: LAST_UPDATE_LOGIN = l_def_sac_rec.last_update_login
1569: WHERE ID = l_def_sac_rec.id;
1570:
1571: x_sac_rec := l_def_sac_rec;
1572: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1573: EXCEPTION
1574: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1575: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1576: (
1570:
1571: x_sac_rec := l_def_sac_rec;
1572: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1573: EXCEPTION
1574: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1575: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1576: (
1577: l_api_name,
1578: G_PKG_NAME,
1571: x_sac_rec := l_def_sac_rec;
1572: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1573: EXCEPTION
1574: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1575: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1576: (
1577: l_api_name,
1578: G_PKG_NAME,
1579: 'OKC_API.G_RET_STS_ERROR',
1575: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1576: (
1577: l_api_name,
1578: G_PKG_NAME,
1579: 'OKC_API.G_RET_STS_ERROR',
1580: x_msg_count,
1581: x_msg_data,
1582: '_PVT'
1583: );
1580: x_msg_count,
1581: x_msg_data,
1582: '_PVT'
1583: );
1584: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1585: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1586: (
1587: l_api_name,
1588: G_PKG_NAME,
1581: x_msg_data,
1582: '_PVT'
1583: );
1584: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1585: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1586: (
1587: l_api_name,
1588: G_PKG_NAME,
1589: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1585: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1586: (
1587: l_api_name,
1588: G_PKG_NAME,
1589: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1590: x_msg_count,
1591: x_msg_data,
1592: '_PVT'
1593: );
1591: x_msg_data,
1592: '_PVT'
1593: );
1594: WHEN OTHERS THEN
1595: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1596: (
1597: l_api_name,
1598: G_PKG_NAME,
1599: 'OTHERS',
1615: x_sacv_rec OUT NOCOPY sacv_rec_type) IS
1616:
1617: l_api_version CONSTANT NUMBER := 1;
1618: l_api_name CONSTANT VARCHAR2(30) := 'V_update_row';
1619: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1620: l_sacv_rec sacv_rec_type := p_sacv_rec;
1621: l_def_sacv_rec sacv_rec_type;
1622: l_sac_rec sac_rec_type;
1623: lx_sac_rec sac_rec_type;
1642: x_sacv_rec OUT NOCOPY sacv_rec_type
1643: ) RETURN VARCHAR2 IS
1644: l_sacv_rec sacv_rec_type;
1645: l_row_notfound BOOLEAN := TRUE;
1646: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1647: BEGIN
1648: x_sacv_rec := p_sacv_rec;
1649: -- Get current database values
1650: l_sacv_rec := get_rec(p_sacv_rec, l_row_notfound);
1648: x_sacv_rec := p_sacv_rec;
1649: -- Get current database values
1650: l_sacv_rec := get_rec(p_sacv_rec, l_row_notfound);
1651: IF (l_row_notfound) THEN
1652: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1653: END IF;
1654: IF (x_sacv_rec.id = OKC_API.G_MISS_NUM)
1655: THEN
1656: x_sacv_rec.id := l_sacv_rec.id;
1650: l_sacv_rec := get_rec(p_sacv_rec, l_row_notfound);
1651: IF (l_row_notfound) THEN
1652: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1653: END IF;
1654: IF (x_sacv_rec.id = OKC_API.G_MISS_NUM)
1655: THEN
1656: x_sacv_rec.id := l_sacv_rec.id;
1657: END IF;
1658: IF (x_sacv_rec.object_version_number = OKC_API.G_MISS_NUM)
1654: IF (x_sacv_rec.id = OKC_API.G_MISS_NUM)
1655: THEN
1656: x_sacv_rec.id := l_sacv_rec.id;
1657: END IF;
1658: IF (x_sacv_rec.object_version_number = OKC_API.G_MISS_NUM)
1659: THEN
1660: x_sacv_rec.object_version_number := l_sacv_rec.object_version_number;
1661: END IF;
1662: IF (x_sacv_rec.sat_code = OKC_API.G_MISS_CHAR)
1658: IF (x_sacv_rec.object_version_number = OKC_API.G_MISS_NUM)
1659: THEN
1660: x_sacv_rec.object_version_number := l_sacv_rec.object_version_number;
1661: END IF;
1662: IF (x_sacv_rec.sat_code = OKC_API.G_MISS_CHAR)
1663: THEN
1664: x_sacv_rec.sat_code := l_sacv_rec.sat_code;
1665: END IF;
1666: IF (x_sacv_rec.price_type = OKC_API.G_MISS_CHAR)
1662: IF (x_sacv_rec.sat_code = OKC_API.G_MISS_CHAR)
1663: THEN
1664: x_sacv_rec.sat_code := l_sacv_rec.sat_code;
1665: END IF;
1666: IF (x_sacv_rec.price_type = OKC_API.G_MISS_CHAR)
1667: THEN
1668: x_sacv_rec.price_type := l_sacv_rec.price_type;
1669: END IF;
1670: IF (x_sacv_rec.scs_code = OKC_API.G_MISS_CHAR)
1666: IF (x_sacv_rec.price_type = OKC_API.G_MISS_CHAR)
1667: THEN
1668: x_sacv_rec.price_type := l_sacv_rec.price_type;
1669: END IF;
1670: IF (x_sacv_rec.scs_code = OKC_API.G_MISS_CHAR)
1671: THEN
1672: x_sacv_rec.scs_code := l_sacv_rec.scs_code;
1673: END IF;
1674: IF (x_sacv_rec.created_by = OKC_API.G_MISS_NUM)
1670: IF (x_sacv_rec.scs_code = OKC_API.G_MISS_CHAR)
1671: THEN
1672: x_sacv_rec.scs_code := l_sacv_rec.scs_code;
1673: END IF;
1674: IF (x_sacv_rec.created_by = OKC_API.G_MISS_NUM)
1675: THEN
1676: x_sacv_rec.created_by := l_sacv_rec.created_by;
1677: END IF;
1678: IF (x_sacv_rec.creation_date = OKC_API.G_MISS_DATE)
1674: IF (x_sacv_rec.created_by = OKC_API.G_MISS_NUM)
1675: THEN
1676: x_sacv_rec.created_by := l_sacv_rec.created_by;
1677: END IF;
1678: IF (x_sacv_rec.creation_date = OKC_API.G_MISS_DATE)
1679: THEN
1680: x_sacv_rec.creation_date := l_sacv_rec.creation_date;
1681: END IF;
1682: IF (x_sacv_rec.last_updated_by = OKC_API.G_MISS_NUM)
1678: IF (x_sacv_rec.creation_date = OKC_API.G_MISS_DATE)
1679: THEN
1680: x_sacv_rec.creation_date := l_sacv_rec.creation_date;
1681: END IF;
1682: IF (x_sacv_rec.last_updated_by = OKC_API.G_MISS_NUM)
1683: THEN
1684: x_sacv_rec.last_updated_by := l_sacv_rec.last_updated_by;
1685: END IF;
1686: IF (x_sacv_rec.last_update_date = OKC_API.G_MISS_DATE)
1682: IF (x_sacv_rec.last_updated_by = OKC_API.G_MISS_NUM)
1683: THEN
1684: x_sacv_rec.last_updated_by := l_sacv_rec.last_updated_by;
1685: END IF;
1686: IF (x_sacv_rec.last_update_date = OKC_API.G_MISS_DATE)
1687: THEN
1688: x_sacv_rec.last_update_date := l_sacv_rec.last_update_date;
1689: END IF;
1690: IF (x_sacv_rec.last_update_login = OKC_API.G_MISS_NUM)
1686: IF (x_sacv_rec.last_update_date = OKC_API.G_MISS_DATE)
1687: THEN
1688: x_sacv_rec.last_update_date := l_sacv_rec.last_update_date;
1689: END IF;
1690: IF (x_sacv_rec.last_update_login = OKC_API.G_MISS_NUM)
1691: THEN
1692: x_sacv_rec.last_update_login := l_sacv_rec.last_update_login;
1693: END IF;
1694: RETURN(l_return_status);
1699: FUNCTION Set_Attributes (
1700: p_sacv_rec IN sacv_rec_type,
1701: x_sacv_rec OUT NOCOPY sacv_rec_type
1702: ) RETURN VARCHAR2 IS
1703: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1704: BEGIN
1705: x_sacv_rec := p_sacv_rec;
1706: x_sacv_rec.OBJECT_VERSION_NUMBER := NVL(x_sacv_rec.OBJECT_VERSION_NUMBER, 0) + 1;
1707: RETURN(l_return_status);
1706: x_sacv_rec.OBJECT_VERSION_NUMBER := NVL(x_sacv_rec.OBJECT_VERSION_NUMBER, 0) + 1;
1707: RETURN(l_return_status);
1708: END Set_Attributes;
1709: BEGIN
1710: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1711: G_PKG_NAME,
1712: p_init_msg_list,
1713: l_api_version,
1714: p_api_version,
1713: l_api_version,
1714: p_api_version,
1715: '_PVT',
1716: x_return_status);
1717: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1718: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1719: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1720: RAISE OKC_API.G_EXCEPTION_ERROR;
1721: END IF;
1714: p_api_version,
1715: '_PVT',
1716: x_return_status);
1717: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1718: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1719: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1720: RAISE OKC_API.G_EXCEPTION_ERROR;
1721: END IF;
1722: --- Setting item attributes
1715: '_PVT',
1716: x_return_status);
1717: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1718: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1719: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1720: RAISE OKC_API.G_EXCEPTION_ERROR;
1721: END IF;
1722: --- Setting item attributes
1723: l_return_status := Set_Attributes(
1716: x_return_status);
1717: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1718: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1719: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1720: RAISE OKC_API.G_EXCEPTION_ERROR;
1721: END IF;
1722: --- Setting item attributes
1723: l_return_status := Set_Attributes(
1724: p_sacv_rec, -- IN
1723: l_return_status := Set_Attributes(
1724: p_sacv_rec, -- IN
1725: l_sacv_rec); -- OUT
1726: --- If any errors happen abort API
1727: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1728: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1729: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1730: RAISE OKC_API.G_EXCEPTION_ERROR;
1731: END IF;
1724: p_sacv_rec, -- IN
1725: l_sacv_rec); -- OUT
1726: --- If any errors happen abort API
1727: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1728: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1729: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1730: RAISE OKC_API.G_EXCEPTION_ERROR;
1731: END IF;
1732: l_return_status := populate_new_record(l_sacv_rec, l_def_sacv_rec);
1725: l_sacv_rec); -- OUT
1726: --- If any errors happen abort API
1727: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1728: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1729: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1730: RAISE OKC_API.G_EXCEPTION_ERROR;
1731: END IF;
1732: l_return_status := populate_new_record(l_sacv_rec, l_def_sacv_rec);
1733: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1726: --- If any errors happen abort API
1727: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1728: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1729: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1730: RAISE OKC_API.G_EXCEPTION_ERROR;
1731: END IF;
1732: l_return_status := populate_new_record(l_sacv_rec, l_def_sacv_rec);
1733: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1734: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1729: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1730: RAISE OKC_API.G_EXCEPTION_ERROR;
1731: END IF;
1732: l_return_status := populate_new_record(l_sacv_rec, l_def_sacv_rec);
1733: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1734: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1735: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1736: RAISE OKC_API.G_EXCEPTION_ERROR;
1737: END IF;
1730: RAISE OKC_API.G_EXCEPTION_ERROR;
1731: END IF;
1732: l_return_status := populate_new_record(l_sacv_rec, l_def_sacv_rec);
1733: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1734: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1735: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1736: RAISE OKC_API.G_EXCEPTION_ERROR;
1737: END IF;
1738: l_def_sacv_rec := fill_who_columns(l_def_sacv_rec);
1731: END IF;
1732: l_return_status := populate_new_record(l_sacv_rec, l_def_sacv_rec);
1733: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1734: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1735: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1736: RAISE OKC_API.G_EXCEPTION_ERROR;
1737: END IF;
1738: l_def_sacv_rec := fill_who_columns(l_def_sacv_rec);
1739: --- Validate all non-missing attributes (Item Level Validation)
1732: l_return_status := populate_new_record(l_sacv_rec, l_def_sacv_rec);
1733: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1734: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1735: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1736: RAISE OKC_API.G_EXCEPTION_ERROR;
1737: END IF;
1738: l_def_sacv_rec := fill_who_columns(l_def_sacv_rec);
1739: --- Validate all non-missing attributes (Item Level Validation)
1740: l_return_status := Validate_Attributes(l_def_sacv_rec);
1738: l_def_sacv_rec := fill_who_columns(l_def_sacv_rec);
1739: --- Validate all non-missing attributes (Item Level Validation)
1740: l_return_status := Validate_Attributes(l_def_sacv_rec);
1741: --- If any errors happen abort API
1742: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1743: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1744: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1745: RAISE OKC_API.G_EXCEPTION_ERROR;
1746: END IF;
1739: --- Validate all non-missing attributes (Item Level Validation)
1740: l_return_status := Validate_Attributes(l_def_sacv_rec);
1741: --- If any errors happen abort API
1742: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1743: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1744: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1745: RAISE OKC_API.G_EXCEPTION_ERROR;
1746: END IF;
1747: l_return_status := Validate_Record(l_def_sacv_rec);
1740: l_return_status := Validate_Attributes(l_def_sacv_rec);
1741: --- If any errors happen abort API
1742: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1743: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1744: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1745: RAISE OKC_API.G_EXCEPTION_ERROR;
1746: END IF;
1747: l_return_status := Validate_Record(l_def_sacv_rec);
1748: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1741: --- If any errors happen abort API
1742: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1743: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1744: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1745: RAISE OKC_API.G_EXCEPTION_ERROR;
1746: END IF;
1747: l_return_status := Validate_Record(l_def_sacv_rec);
1748: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1749: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1744: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1745: RAISE OKC_API.G_EXCEPTION_ERROR;
1746: END IF;
1747: l_return_status := Validate_Record(l_def_sacv_rec);
1748: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1749: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1750: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1751: RAISE OKC_API.G_EXCEPTION_ERROR;
1752: END IF;
1745: RAISE OKC_API.G_EXCEPTION_ERROR;
1746: END IF;
1747: l_return_status := Validate_Record(l_def_sacv_rec);
1748: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1749: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1750: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1751: RAISE OKC_API.G_EXCEPTION_ERROR;
1752: END IF;
1753:
1746: END IF;
1747: l_return_status := Validate_Record(l_def_sacv_rec);
1748: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1749: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1750: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1751: RAISE OKC_API.G_EXCEPTION_ERROR;
1752: END IF;
1753:
1754: --------------------------------------
1747: l_return_status := Validate_Record(l_def_sacv_rec);
1748: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1749: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1750: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1751: RAISE OKC_API.G_EXCEPTION_ERROR;
1752: END IF;
1753:
1754: --------------------------------------
1755: -- Move VIEW record to "Child" records
1765: x_msg_data,
1766: l_sac_rec,
1767: lx_sac_rec
1768: );
1769: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1770: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1771: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1772: RAISE OKC_API.G_EXCEPTION_ERROR;
1773: END IF;
1766: l_sac_rec,
1767: lx_sac_rec
1768: );
1769: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1770: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1771: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1772: RAISE OKC_API.G_EXCEPTION_ERROR;
1773: END IF;
1774: migrate(lx_sac_rec, l_def_sacv_rec);
1767: lx_sac_rec
1768: );
1769: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1770: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1771: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1772: RAISE OKC_API.G_EXCEPTION_ERROR;
1773: END IF;
1774: migrate(lx_sac_rec, l_def_sacv_rec);
1775: x_sacv_rec := l_def_sacv_rec;
1768: );
1769: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1770: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1771: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1772: RAISE OKC_API.G_EXCEPTION_ERROR;
1773: END IF;
1774: migrate(lx_sac_rec, l_def_sacv_rec);
1775: x_sacv_rec := l_def_sacv_rec;
1776: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1772: RAISE OKC_API.G_EXCEPTION_ERROR;
1773: END IF;
1774: migrate(lx_sac_rec, l_def_sacv_rec);
1775: x_sacv_rec := l_def_sacv_rec;
1776: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1777: EXCEPTION
1778: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1779: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1780: (
1774: migrate(lx_sac_rec, l_def_sacv_rec);
1775: x_sacv_rec := l_def_sacv_rec;
1776: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1777: EXCEPTION
1778: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1779: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1780: (
1781: l_api_name,
1782: G_PKG_NAME,
1775: x_sacv_rec := l_def_sacv_rec;
1776: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1777: EXCEPTION
1778: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1779: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1780: (
1781: l_api_name,
1782: G_PKG_NAME,
1783: 'OKC_API.G_RET_STS_ERROR',
1779: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1780: (
1781: l_api_name,
1782: G_PKG_NAME,
1783: 'OKC_API.G_RET_STS_ERROR',
1784: x_msg_count,
1785: x_msg_data,
1786: '_PVT'
1787: );
1784: x_msg_count,
1785: x_msg_data,
1786: '_PVT'
1787: );
1788: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1789: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1790: (
1791: l_api_name,
1792: G_PKG_NAME,
1785: x_msg_data,
1786: '_PVT'
1787: );
1788: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1789: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1790: (
1791: l_api_name,
1792: G_PKG_NAME,
1793: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1789: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1790: (
1791: l_api_name,
1792: G_PKG_NAME,
1793: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1794: x_msg_count,
1795: x_msg_data,
1796: '_PVT'
1797: );
1795: x_msg_data,
1796: '_PVT'
1797: );
1798: WHEN OTHERS THEN
1799: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1800: (
1801: l_api_name,
1802: G_PKG_NAME,
1803: 'OTHERS',
1819: x_sacv_tbl OUT NOCOPY sacv_tbl_type) IS
1820:
1821: l_api_version CONSTANT NUMBER := 1;
1822: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
1823: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1824: i NUMBER := 0;
1825: BEGIN
1826: -- Make sure PL/SQL table has records in it before passing
1827: IF (p_sacv_tbl.COUNT > 0) THEN
1839: i := p_sacv_tbl.NEXT(i);
1840: END LOOP;
1841: END IF;
1842: EXCEPTION
1843: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1844: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1845: (
1846: l_api_name,
1847: G_PKG_NAME,
1840: END LOOP;
1841: END IF;
1842: EXCEPTION
1843: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1844: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1845: (
1846: l_api_name,
1847: G_PKG_NAME,
1848: 'OKC_API.G_RET_STS_ERROR',
1844: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1845: (
1846: l_api_name,
1847: G_PKG_NAME,
1848: 'OKC_API.G_RET_STS_ERROR',
1849: x_msg_count,
1850: x_msg_data,
1851: '_PVT'
1852: );
1849: x_msg_count,
1850: x_msg_data,
1851: '_PVT'
1852: );
1853: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1854: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1855: (
1856: l_api_name,
1857: G_PKG_NAME,
1850: x_msg_data,
1851: '_PVT'
1852: );
1853: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1854: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1855: (
1856: l_api_name,
1857: G_PKG_NAME,
1858: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1854: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1855: (
1856: l_api_name,
1857: G_PKG_NAME,
1858: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1859: x_msg_count,
1860: x_msg_data,
1861: '_PVT'
1862: );
1860: x_msg_data,
1861: '_PVT'
1862: );
1863: WHEN OTHERS THEN
1864: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1865: (
1866: l_api_name,
1867: G_PKG_NAME,
1868: 'OTHERS',
1886: p_sac_rec IN sac_rec_type) IS
1887:
1888: l_api_version CONSTANT NUMBER := 1;
1889: l_api_name CONSTANT VARCHAR2(30) := 'CLASSINGS_delete_row';
1890: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1891: l_sac_rec sac_rec_type:= p_sac_rec;
1892: l_row_notfound BOOLEAN := TRUE;
1893: BEGIN
1894: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1890: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1891: l_sac_rec sac_rec_type:= p_sac_rec;
1892: l_row_notfound BOOLEAN := TRUE;
1893: BEGIN
1894: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1895: p_init_msg_list,
1896: '_PVT',
1897: x_return_status);
1898: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1894: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1895: p_init_msg_list,
1896: '_PVT',
1897: x_return_status);
1898: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1899: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1900: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1901: RAISE OKC_API.G_EXCEPTION_ERROR;
1902: END IF;
1895: p_init_msg_list,
1896: '_PVT',
1897: x_return_status);
1898: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1899: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1900: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1901: RAISE OKC_API.G_EXCEPTION_ERROR;
1902: END IF;
1903: DELETE FROM OKC_STD_ART_CLASSINGS
1896: '_PVT',
1897: x_return_status);
1898: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1899: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1900: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1901: RAISE OKC_API.G_EXCEPTION_ERROR;
1902: END IF;
1903: DELETE FROM OKC_STD_ART_CLASSINGS
1904: WHERE ID = l_sac_rec.id;
1897: x_return_status);
1898: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1899: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1900: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1901: RAISE OKC_API.G_EXCEPTION_ERROR;
1902: END IF;
1903: DELETE FROM OKC_STD_ART_CLASSINGS
1904: WHERE ID = l_sac_rec.id;
1905:
1902: END IF;
1903: DELETE FROM OKC_STD_ART_CLASSINGS
1904: WHERE ID = l_sac_rec.id;
1905:
1906: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1907: EXCEPTION
1908: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1909: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1910: (
1904: WHERE ID = l_sac_rec.id;
1905:
1906: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1907: EXCEPTION
1908: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1909: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1910: (
1911: l_api_name,
1912: G_PKG_NAME,
1905:
1906: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1907: EXCEPTION
1908: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1909: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1910: (
1911: l_api_name,
1912: G_PKG_NAME,
1913: 'OKC_API.G_RET_STS_ERROR',
1909: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1910: (
1911: l_api_name,
1912: G_PKG_NAME,
1913: 'OKC_API.G_RET_STS_ERROR',
1914: x_msg_count,
1915: x_msg_data,
1916: '_PVT'
1917: );
1914: x_msg_count,
1915: x_msg_data,
1916: '_PVT'
1917: );
1918: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1919: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1920: (
1921: l_api_name,
1922: G_PKG_NAME,
1915: x_msg_data,
1916: '_PVT'
1917: );
1918: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1919: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1920: (
1921: l_api_name,
1922: G_PKG_NAME,
1923: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1919: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1920: (
1921: l_api_name,
1922: G_PKG_NAME,
1923: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1924: x_msg_count,
1925: x_msg_data,
1926: '_PVT'
1927: );
1925: x_msg_data,
1926: '_PVT'
1927: );
1928: WHEN OTHERS THEN
1929: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1930: (
1931: l_api_name,
1932: G_PKG_NAME,
1933: 'OTHERS',
1948: p_sacv_rec IN sacv_rec_type) IS
1949:
1950: l_api_version CONSTANT NUMBER := 1;
1951: l_api_name CONSTANT VARCHAR2(30) := 'V_delete_row';
1952: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1953: l_sacv_rec sacv_rec_type := p_sacv_rec;
1954: l_sac_rec sac_rec_type;
1955: BEGIN
1956: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1952: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1953: l_sacv_rec sacv_rec_type := p_sacv_rec;
1954: l_sac_rec sac_rec_type;
1955: BEGIN
1956: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1957: G_PKG_NAME,
1958: p_init_msg_list,
1959: l_api_version,
1960: p_api_version,
1959: l_api_version,
1960: p_api_version,
1961: '_PVT',
1962: x_return_status);
1963: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1964: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1965: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1966: RAISE OKC_API.G_EXCEPTION_ERROR;
1967: END IF;
1960: p_api_version,
1961: '_PVT',
1962: x_return_status);
1963: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1964: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1965: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1966: RAISE OKC_API.G_EXCEPTION_ERROR;
1967: END IF;
1968: --------------------------------------
1961: '_PVT',
1962: x_return_status);
1963: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1964: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1965: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1966: RAISE OKC_API.G_EXCEPTION_ERROR;
1967: END IF;
1968: --------------------------------------
1969: -- Move VIEW record to "Child" records
1962: x_return_status);
1963: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1964: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1965: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1966: RAISE OKC_API.G_EXCEPTION_ERROR;
1967: END IF;
1968: --------------------------------------
1969: -- Move VIEW record to "Child" records
1970: --------------------------------------
1978: x_msg_count,
1979: x_msg_data,
1980: l_sac_rec
1981: );
1982: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1983: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1984: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1985: RAISE OKC_API.G_EXCEPTION_ERROR;
1986: END IF;
1979: x_msg_data,
1980: l_sac_rec
1981: );
1982: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1983: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1984: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1985: RAISE OKC_API.G_EXCEPTION_ERROR;
1986: END IF;
1987: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1980: l_sac_rec
1981: );
1982: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1983: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1984: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1985: RAISE OKC_API.G_EXCEPTION_ERROR;
1986: END IF;
1987: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1988: EXCEPTION
1981: );
1982: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1983: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1984: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1985: RAISE OKC_API.G_EXCEPTION_ERROR;
1986: END IF;
1987: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1988: EXCEPTION
1989: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1983: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1984: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1985: RAISE OKC_API.G_EXCEPTION_ERROR;
1986: END IF;
1987: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1988: EXCEPTION
1989: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1990: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1991: (
1985: RAISE OKC_API.G_EXCEPTION_ERROR;
1986: END IF;
1987: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1988: EXCEPTION
1989: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1990: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1991: (
1992: l_api_name,
1993: G_PKG_NAME,
1986: END IF;
1987: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1988: EXCEPTION
1989: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1990: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1991: (
1992: l_api_name,
1993: G_PKG_NAME,
1994: 'OKC_API.G_RET_STS_ERROR',
1990: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1991: (
1992: l_api_name,
1993: G_PKG_NAME,
1994: 'OKC_API.G_RET_STS_ERROR',
1995: x_msg_count,
1996: x_msg_data,
1997: '_PVT'
1998: );
1995: x_msg_count,
1996: x_msg_data,
1997: '_PVT'
1998: );
1999: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2000: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2001: (
2002: l_api_name,
2003: G_PKG_NAME,
1996: x_msg_data,
1997: '_PVT'
1998: );
1999: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2000: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2001: (
2002: l_api_name,
2003: G_PKG_NAME,
2004: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2000: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2001: (
2002: l_api_name,
2003: G_PKG_NAME,
2004: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2005: x_msg_count,
2006: x_msg_data,
2007: '_PVT'
2008: );
2006: x_msg_data,
2007: '_PVT'
2008: );
2009: WHEN OTHERS THEN
2010: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2011: (
2012: l_api_name,
2013: G_PKG_NAME,
2014: 'OTHERS',
2029: p_sacv_tbl IN sacv_tbl_type) IS
2030:
2031: l_api_version CONSTANT NUMBER := 1;
2032: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
2033: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2034: i NUMBER := 0;
2035: BEGIN
2036: -- Make sure PL/SQL table has records in it before passing
2037: IF (p_sacv_tbl.COUNT > 0) THEN
2048: i := p_sacv_tbl.NEXT(i);
2049: END LOOP;
2050: END IF;
2051: EXCEPTION
2052: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2053: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2054: (
2055: l_api_name,
2056: G_PKG_NAME,
2049: END LOOP;
2050: END IF;
2051: EXCEPTION
2052: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2053: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2054: (
2055: l_api_name,
2056: G_PKG_NAME,
2057: 'OKC_API.G_RET_STS_ERROR',
2053: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2054: (
2055: l_api_name,
2056: G_PKG_NAME,
2057: 'OKC_API.G_RET_STS_ERROR',
2058: x_msg_count,
2059: x_msg_data,
2060: '_PVT'
2061: );
2058: x_msg_count,
2059: x_msg_data,
2060: '_PVT'
2061: );
2062: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2063: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2064: (
2065: l_api_name,
2066: G_PKG_NAME,
2059: x_msg_data,
2060: '_PVT'
2061: );
2062: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2063: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2064: (
2065: l_api_name,
2066: G_PKG_NAME,
2067: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2063: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2064: (
2065: l_api_name,
2066: G_PKG_NAME,
2067: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2068: x_msg_count,
2069: x_msg_data,
2070: '_PVT'
2071: );
2069: x_msg_data,
2070: '_PVT'
2071: );
2072: WHEN OTHERS THEN
2073: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2074: (
2075: l_api_name,
2076: G_PKG_NAME,
2077: 'OTHERS',