[Home] [Help]
5:
6: /************************ HAND-CODED *********************************/
7: FUNCTION Validate_Attributes (p_scnv_rec in scnv_rec_type) RETURN VARCHAR2;
8:
9: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
10:
11: -- Start of comments
12: --
13: -- Procedure Name : validate_scn_type
26: okc_debug.log('100: Entered validate_scn_type', 2);
27: END IF;
28:
29: -- initialize return status
30: x_return_status := OKC_API.G_RET_STS_SUCCESS;
31:
32: -- check that data exists
33: If (p_scnv_rec.scn_type = OKC_API.G_MISS_CHAR or
34: p_scnv_rec.scn_type IS NULL)
29: -- initialize return status
30: x_return_status := OKC_API.G_RET_STS_SUCCESS;
31:
32: -- check that data exists
33: If (p_scnv_rec.scn_type = OKC_API.G_MISS_CHAR or
34: p_scnv_rec.scn_type IS NULL)
35: Then
36: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
37: p_msg_name => g_required_value,
32: -- check that data exists
33: If (p_scnv_rec.scn_type = OKC_API.G_MISS_CHAR or
34: p_scnv_rec.scn_type IS NULL)
35: Then
36: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
37: p_msg_name => g_required_value,
38: p_token1 => g_col_name_token,
39: p_token1_value => 'Section Type');
40: -- notify caller of an error
37: p_msg_name => g_required_value,
38: p_token1 => g_col_name_token,
39: p_token1_value => 'Section Type');
40: -- notify caller of an error
41: x_return_status := OKC_API.G_RET_STS_ERROR;
42:
43: -- halt validation
44: raise G_EXCEPTION_HALT_VALIDATION;
45: End If;
45: End If;
46:
47: -- check allowed values
48: If (upper(p_scnv_rec.scn_type) NOT IN ('CHR','SAT')) Then
49: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
50: p_msg_name => g_invalid_value,
51: p_token1 => g_col_name_token,
52: p_token1_value => 'Section Type');
53: -- notify caller of an error
50: p_msg_name => g_invalid_value,
51: p_token1 => g_col_name_token,
52: p_token1_value => 'Section Type');
53: -- notify caller of an error
54: x_return_status := OKC_API.G_RET_STS_ERROR;
55: End If;
56:
57:
58: IF (l_debug = 'Y') THEN
78: okc_debug.Reset_Indentation;
79: END IF;
80:
81: -- store SQL error message on message stack
82: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
83: p_msg_name => g_unexpected_error,
84: p_token1 => g_sqlcode_token,
85: p_token1_value => sqlcode,
86: p_token2 => g_sqlerrm_token,
85: p_token1_value => sqlcode,
86: p_token2 => g_sqlerrm_token,
87: p_token2_value => sqlerrm);
88: -- notify caller of an error as UNEXPETED error
89: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
90:
91: end validate_scn_type;
92:
93: -- Start of comments
114: okc_debug.log('500: Entered validate_chr_id', 2);
115: END IF;
116:
117: -- initialize return status
118: x_return_status := OKC_API.G_RET_STS_SUCCESS;
119:
120: --
121: -- enforce foreign key (chr_id is logically optional
122: -- mutually exclusive with SAT_CODE)
126: Fetch l_chr_csr Into l_dummy_var;
127: Close l_chr_csr;
128: -- if l_dummy_var still set to default, data was not found
129: If (l_dummy_var = '?') Then
130: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
131: p_msg_name => g_no_parent_record,
132: p_token1 => g_col_name_token,
133: p_token1_value => 'Header ID',
134: p_token2 => g_child_table_token,
135: p_token2_value => 'OKC_K_HEADERS_B',
136: p_token3 => g_parent_table_token,
137: p_token3_value => G_VIEW);
138: -- notify caller of an error
139: x_return_status := OKC_API.G_RET_STS_ERROR;
140: End If;
141: End If;
142:
143: IF (l_debug = 'Y') THEN
152: okc_debug.Reset_Indentation;
153: END IF;
154:
155: -- store SQL error message on message stack
156: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
157: p_msg_name => g_unexpected_error,
158: p_token1 => g_sqlcode_token,
159: p_token1_value => sqlcode,
160: p_token2 => g_sqlerrm_token,
159: p_token1_value => sqlcode,
160: p_token2 => g_sqlerrm_token,
161: p_token2_value => sqlerrm);
162: -- notify caller of an error as UNEXPETED error
163: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
164:
165: -- verify that cursor was closed
166: if l_chr_csr%ISOPEN then
167: close l_chr_csr;
195: okc_debug.log('800: Entered validate_sat_code', 2);
196: END IF;
197:
198: -- initialize return status
199: x_return_status := OKC_API.G_RET_STS_SUCCESS;
200:
201: -- data is required if scn_type = 'SAT'
202: If (p_scnv_rec.scn_type = 'SAT') Then
203: IF (p_scnv_rec.sat_code = OKC_API.G_MISS_CHAR OR
199: x_return_status := OKC_API.G_RET_STS_SUCCESS;
200:
201: -- data is required if scn_type = 'SAT'
202: If (p_scnv_rec.scn_type = 'SAT') Then
203: IF (p_scnv_rec.sat_code = OKC_API.G_MISS_CHAR OR
204: p_scnv_rec.sat_code IS NULL) THEN
205: OKC_API.set_message(
206: p_app_name => G_APP_NAME,
207: p_msg_name => G_REQUIRED_VALUE,
201: -- data is required if scn_type = 'SAT'
202: If (p_scnv_rec.scn_type = 'SAT') Then
203: IF (p_scnv_rec.sat_code = OKC_API.G_MISS_CHAR OR
204: p_scnv_rec.sat_code IS NULL) THEN
205: OKC_API.set_message(
206: p_app_name => G_APP_NAME,
207: p_msg_name => G_REQUIRED_VALUE,
208: p_token1 => G_COL_NAME_TOKEN,
209: p_token1_value => 'rgd_code');
208: p_token1 => G_COL_NAME_TOKEN,
209: p_token1_value => 'rgd_code');
210:
211: -- notify caller of an error
212: x_return_status := OKC_API.G_RET_STS_ERROR;
213:
214: -- halt validation
215: RAISE G_EXCEPTION_HALT_VALIDATION;
216: END IF;
222:
223: -- if l_dummy_var still set to default, data was not found
224: IF (l_dummy_var = '?') THEN
225: --set error message in message stack
226: OKC_API.set_message(
227: p_app_name => G_APP_NAME,
228: p_msg_name => G_INVALID_VALUE,
229: p_token1 => G_COL_NAME_TOKEN,
230: p_token1_value => 'rgd_code');
229: p_token1 => G_COL_NAME_TOKEN,
230: p_token1_value => 'rgd_code');
231:
232: -- notify caller of an error
233: x_return_status := OKC_API.G_RET_STS_ERROR;
234: END IF;
235: END IF;
236:
237: IF (l_debug = 'Y') THEN
256: okc_debug.Reset_Indentation;
257: END IF;
258:
259: -- store SQL error message on message stack
260: OKC_API.SET_MESSAGE(
261: p_app_name => g_app_name,
262: p_msg_name => g_unexpected_error,
263: p_token1 => g_sqlcode_token,
264: p_token1_value => sqlcode,
264: p_token1_value => sqlcode,
265: p_token2 => g_sqlerrm_token,
266: p_token2_value => sqlerrm);
267: -- notify caller of an error as UNEXPETED error
268: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
269: -- verify that cursor was closed
270: IF l_satv_csr%ISOPEN THEN
271: CLOSE l_satv_csr;
272: END IF;
291: okc_debug.log('1200: Entered validate_section_sequence', 2);
292: END IF;
293:
294: -- initialize return status
295: x_return_status := OKC_API.G_RET_STS_SUCCESS;
296:
297: If (p_scnv_rec.section_sequence = OKC_API.G_MISS_NUM or
298: p_scnv_rec.section_sequence IS NULL)
299: Then
293:
294: -- initialize return status
295: x_return_status := OKC_API.G_RET_STS_SUCCESS;
296:
297: If (p_scnv_rec.section_sequence = OKC_API.G_MISS_NUM or
298: p_scnv_rec.section_sequence IS NULL)
299: Then
300: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
301: p_msg_name => g_required_value,
296:
297: If (p_scnv_rec.section_sequence = OKC_API.G_MISS_NUM or
298: p_scnv_rec.section_sequence IS NULL)
299: Then
300: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
301: p_msg_name => g_required_value,
302: p_token1 => g_col_name_token,
303: p_token1_value => 'section_sequence');
304: -- set error flag
301: p_msg_name => g_required_value,
302: p_token1 => g_col_name_token,
303: p_token1_value => 'section_sequence');
304: -- set error flag
305: x_return_status := OKC_API.G_RET_STS_ERROR;
306:
307: -- halt validation
308: raise G_EXCEPTION_HALT_VALIDATION;
309: End If;
320: okc_debug.Reset_Indentation;
321: END IF;
322:
323: -- store SQL error message on message stack
324: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
325: p_msg_name => g_unexpected_error,
326: p_token1 => g_sqlcode_token,
327: p_token1_value => sqlcode,
328: p_token2 => g_sqlerrm_token,
327: p_token1_value => sqlcode,
328: p_token2 => g_sqlerrm_token,
329: p_token2_value => sqlerrm);
330: -- notify caller of an error as UNEXPETED error
331: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
332:
333: End validate_section_sequence;
334:
335: -- Start of comments
350: okc_debug.log('1500: Entered validate_sfwt_flag', 2);
351: END IF;
352:
353: -- initialize return status
354: x_return_status := OKC_API.G_RET_STS_SUCCESS;
355:
356: -- check that data exists
357: If (p_scnv_rec.sfwt_flag = OKC_API.G_MISS_CHAR or
358: p_scnv_rec.sfwt_flag IS NULL)
353: -- initialize return status
354: x_return_status := OKC_API.G_RET_STS_SUCCESS;
355:
356: -- check that data exists
357: If (p_scnv_rec.sfwt_flag = OKC_API.G_MISS_CHAR or
358: p_scnv_rec.sfwt_flag IS NULL)
359: Then
360: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
361: p_msg_name => g_required_value,
356: -- check that data exists
357: If (p_scnv_rec.sfwt_flag = OKC_API.G_MISS_CHAR or
358: p_scnv_rec.sfwt_flag IS NULL)
359: Then
360: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
361: p_msg_name => g_required_value,
362: p_token1 => g_col_name_token,
363: p_token1_value => 'sfwt_flag');
364: -- notify caller of an error
361: p_msg_name => g_required_value,
362: p_token1 => g_col_name_token,
363: p_token1_value => 'sfwt_flag');
364: -- notify caller of an error
365: x_return_status := OKC_API.G_RET_STS_ERROR;
366:
367: -- halt validation
368: raise G_EXCEPTION_HALT_VALIDATION;
369: End If;
369: End If;
370:
371: -- check allowed values
372: If (upper(p_scnv_rec.sfwt_flag) NOT IN ('Y','N')) Then
373: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
374: p_msg_name => g_invalid_value,
375: p_token1 => g_col_name_token,
376: p_token1_value => 'sfwt_flag');
377: -- notify caller of an error
374: p_msg_name => g_invalid_value,
375: p_token1 => g_col_name_token,
376: p_token1_value => 'sfwt_flag');
377: -- notify caller of an error
378: x_return_status := OKC_API.G_RET_STS_ERROR;
379: End If;
380:
381: IF (l_debug = 'Y') THEN
382: okc_debug.log('1600: Leaving validate_sfwt_flag', 2);
401: okc_debug.Reset_Indentation;
402: END IF;
403:
404: -- store SQL error message on message stack
405: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
406: p_msg_name => g_unexpected_error,
407: p_token1 => g_sqlcode_token,
408: p_token1_value => sqlcode,
409: p_token2 => g_sqlerrm_token,
408: p_token1_value => sqlcode,
409: p_token2 => g_sqlerrm_token,
410: p_token2_value => sqlerrm);
411: -- notify caller of an error as UNEXPETED error
412: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
413:
414: end validate_sfwt_flag;
415:
416: -- Start of comments
437: okc_debug.log('1900: Entered validate_scn_id', 2);
438: END IF;
439:
440: -- initialize return status
441: x_return_status := OKC_API.G_RET_STS_SUCCESS;
442:
443: -- enforce foreign key (scn_id is optional)
444: If (p_scnv_rec.scn_id <> OKC_API.G_MISS_NUM and
445: p_scnv_rec.scn_id IS NOT NULL)
440: -- initialize return status
441: x_return_status := OKC_API.G_RET_STS_SUCCESS;
442:
443: -- enforce foreign key (scn_id is optional)
444: If (p_scnv_rec.scn_id <> OKC_API.G_MISS_NUM and
445: p_scnv_rec.scn_id IS NOT NULL)
446: Then
447: Open l_scnv_csr;
448: Fetch l_scnv_csr Into l_dummy_var;
448: Fetch l_scnv_csr Into l_dummy_var;
449: Close l_scnv_csr;
450: -- if l_dummy_var still set to default, data was not found
451: If (l_dummy_var = '?') Then
452: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
453: p_msg_name => g_no_parent_record,
454: p_token1 => g_col_name_token,
455: p_token1_value => 'scn_id',
456: p_token2 => g_child_table_token,
457: p_token2_value => G_VIEW,
458: p_token3 => g_parent_table_token,
459: p_token3_value => G_VIEW);
460: -- notify caller of an error
461: x_return_status := OKC_API.G_RET_STS_ERROR;
462: End If;
463: End If;
464:
465: IF (l_debug = 'Y') THEN
475: okc_debug.Reset_Indentation;
476: END IF;
477:
478: -- store SQL error message on message stack
479: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
480: p_msg_name => g_unexpected_error,
481: p_token1 => g_sqlcode_token,
482: p_token1_value => sqlcode,
483: p_token2 => g_sqlerrm_token,
482: p_token1_value => sqlcode,
483: p_token2 => g_sqlerrm_token,
484: p_token2_value => sqlerrm);
485: -- notify caller of an error as UNEXPETED error
486: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
487:
488: -- verify that cursor was closed
489: if l_scnv_csr%ISOPEN then
490: close l_scnv_csr;
948: okc_debug.Set_Indentation('OKC_SCN_PVT');
949: okc_debug.log('3000: Entered null_out_defaults', 2);
950: END IF;
951:
952: IF (l_scnv_rec.id = OKC_API.G_MISS_NUM) THEN
953: l_scnv_rec.id := NULL;
954: END IF;
955: IF (l_scnv_rec.scn_type = OKC_API.G_MISS_CHAR) THEN
956: l_scnv_rec.scn_type := NULL;
951:
952: IF (l_scnv_rec.id = OKC_API.G_MISS_NUM) THEN
953: l_scnv_rec.id := NULL;
954: END IF;
955: IF (l_scnv_rec.scn_type = OKC_API.G_MISS_CHAR) THEN
956: l_scnv_rec.scn_type := NULL;
957: END IF;
958: IF (l_scnv_rec.chr_id = OKC_API.G_MISS_NUM) THEN
959: l_scnv_rec.chr_id := NULL;
954: END IF;
955: IF (l_scnv_rec.scn_type = OKC_API.G_MISS_CHAR) THEN
956: l_scnv_rec.scn_type := NULL;
957: END IF;
958: IF (l_scnv_rec.chr_id = OKC_API.G_MISS_NUM) THEN
959: l_scnv_rec.chr_id := NULL;
960: END IF;
961: IF (l_scnv_rec.sat_code = OKC_API.G_MISS_CHAR) THEN
962: l_scnv_rec.sat_code := NULL;
957: END IF;
958: IF (l_scnv_rec.chr_id = OKC_API.G_MISS_NUM) THEN
959: l_scnv_rec.chr_id := NULL;
960: END IF;
961: IF (l_scnv_rec.sat_code = OKC_API.G_MISS_CHAR) THEN
962: l_scnv_rec.sat_code := NULL;
963: END IF;
964: IF (l_scnv_rec.section_sequence = OKC_API.G_MISS_NUM) THEN
965: l_scnv_rec.section_sequence := NULL;
960: END IF;
961: IF (l_scnv_rec.sat_code = OKC_API.G_MISS_CHAR) THEN
962: l_scnv_rec.sat_code := NULL;
963: END IF;
964: IF (l_scnv_rec.section_sequence = OKC_API.G_MISS_NUM) THEN
965: l_scnv_rec.section_sequence := NULL;
966: END IF;
967: IF (l_scnv_rec.label = OKC_API.G_MISS_CHAR) THEN
968: l_scnv_rec.label := NULL;
963: END IF;
964: IF (l_scnv_rec.section_sequence = OKC_API.G_MISS_NUM) THEN
965: l_scnv_rec.section_sequence := NULL;
966: END IF;
967: IF (l_scnv_rec.label = OKC_API.G_MISS_CHAR) THEN
968: l_scnv_rec.label := NULL;
969: END IF;
970: IF (l_scnv_rec.heading = OKC_API.G_MISS_CHAR) THEN
971: l_scnv_rec.heading := NULL;
966: END IF;
967: IF (l_scnv_rec.label = OKC_API.G_MISS_CHAR) THEN
968: l_scnv_rec.label := NULL;
969: END IF;
970: IF (l_scnv_rec.heading = OKC_API.G_MISS_CHAR) THEN
971: l_scnv_rec.heading := NULL;
972: END IF;
973: IF (l_scnv_rec.scn_id = OKC_API.G_MISS_NUM) THEN
974: l_scnv_rec.scn_id := NULL;
969: END IF;
970: IF (l_scnv_rec.heading = OKC_API.G_MISS_CHAR) THEN
971: l_scnv_rec.heading := NULL;
972: END IF;
973: IF (l_scnv_rec.scn_id = OKC_API.G_MISS_NUM) THEN
974: l_scnv_rec.scn_id := NULL;
975: END IF;
976: IF (l_scnv_rec.object_version_number = OKC_API.G_MISS_NUM) THEN
977: l_scnv_rec.object_version_number := NULL;
972: END IF;
973: IF (l_scnv_rec.scn_id = OKC_API.G_MISS_NUM) THEN
974: l_scnv_rec.scn_id := NULL;
975: END IF;
976: IF (l_scnv_rec.object_version_number = OKC_API.G_MISS_NUM) THEN
977: l_scnv_rec.object_version_number := NULL;
978: END IF;
979: IF (l_scnv_rec.sfwt_flag = OKC_API.G_MISS_CHAR) THEN
980: l_scnv_rec.sfwt_flag := NULL;
975: END IF;
976: IF (l_scnv_rec.object_version_number = OKC_API.G_MISS_NUM) THEN
977: l_scnv_rec.object_version_number := NULL;
978: END IF;
979: IF (l_scnv_rec.sfwt_flag = OKC_API.G_MISS_CHAR) THEN
980: l_scnv_rec.sfwt_flag := NULL;
981: END IF;
982: IF (l_scnv_rec.created_by = OKC_API.G_MISS_NUM) THEN
983: l_scnv_rec.created_by := NULL;
978: END IF;
979: IF (l_scnv_rec.sfwt_flag = OKC_API.G_MISS_CHAR) THEN
980: l_scnv_rec.sfwt_flag := NULL;
981: END IF;
982: IF (l_scnv_rec.created_by = OKC_API.G_MISS_NUM) THEN
983: l_scnv_rec.created_by := NULL;
984: END IF;
985: IF (l_scnv_rec.creation_date = OKC_API.G_MISS_DATE) THEN
986: l_scnv_rec.creation_date := NULL;
981: END IF;
982: IF (l_scnv_rec.created_by = OKC_API.G_MISS_NUM) THEN
983: l_scnv_rec.created_by := NULL;
984: END IF;
985: IF (l_scnv_rec.creation_date = OKC_API.G_MISS_DATE) THEN
986: l_scnv_rec.creation_date := NULL;
987: END IF;
988: IF (l_scnv_rec.last_updated_by = OKC_API.G_MISS_NUM) THEN
989: l_scnv_rec.last_updated_by := NULL;
984: END IF;
985: IF (l_scnv_rec.creation_date = OKC_API.G_MISS_DATE) THEN
986: l_scnv_rec.creation_date := NULL;
987: END IF;
988: IF (l_scnv_rec.last_updated_by = OKC_API.G_MISS_NUM) THEN
989: l_scnv_rec.last_updated_by := NULL;
990: END IF;
991: IF (l_scnv_rec.last_update_date = OKC_API.G_MISS_DATE) THEN
992: l_scnv_rec.last_update_date := NULL;
987: END IF;
988: IF (l_scnv_rec.last_updated_by = OKC_API.G_MISS_NUM) THEN
989: l_scnv_rec.last_updated_by := NULL;
990: END IF;
991: IF (l_scnv_rec.last_update_date = OKC_API.G_MISS_DATE) THEN
992: l_scnv_rec.last_update_date := NULL;
993: END IF;
994: IF (l_scnv_rec.last_update_login = OKC_API.G_MISS_NUM) THEN
995: l_scnv_rec.last_update_login := NULL;
990: END IF;
991: IF (l_scnv_rec.last_update_date = OKC_API.G_MISS_DATE) THEN
992: l_scnv_rec.last_update_date := NULL;
993: END IF;
994: IF (l_scnv_rec.last_update_login = OKC_API.G_MISS_NUM) THEN
995: l_scnv_rec.last_update_login := NULL;
996: END IF;
997: IF (l_scnv_rec.attribute_category = OKC_API.G_MISS_CHAR) THEN
998: l_scnv_rec.attribute_category := NULL;
993: END IF;
994: IF (l_scnv_rec.last_update_login = OKC_API.G_MISS_NUM) THEN
995: l_scnv_rec.last_update_login := NULL;
996: END IF;
997: IF (l_scnv_rec.attribute_category = OKC_API.G_MISS_CHAR) THEN
998: l_scnv_rec.attribute_category := NULL;
999: END IF;
1000: IF (l_scnv_rec.attribute1 = OKC_API.G_MISS_CHAR) THEN
1001: l_scnv_rec.attribute1 := NULL;
996: END IF;
997: IF (l_scnv_rec.attribute_category = OKC_API.G_MISS_CHAR) THEN
998: l_scnv_rec.attribute_category := NULL;
999: END IF;
1000: IF (l_scnv_rec.attribute1 = OKC_API.G_MISS_CHAR) THEN
1001: l_scnv_rec.attribute1 := NULL;
1002: END IF;
1003: IF (l_scnv_rec.attribute2 = OKC_API.G_MISS_CHAR) THEN
1004: l_scnv_rec.attribute2 := NULL;
999: END IF;
1000: IF (l_scnv_rec.attribute1 = OKC_API.G_MISS_CHAR) THEN
1001: l_scnv_rec.attribute1 := NULL;
1002: END IF;
1003: IF (l_scnv_rec.attribute2 = OKC_API.G_MISS_CHAR) THEN
1004: l_scnv_rec.attribute2 := NULL;
1005: END IF;
1006: IF (l_scnv_rec.attribute3 = OKC_API.G_MISS_CHAR) THEN
1007: l_scnv_rec.attribute3 := NULL;
1002: END IF;
1003: IF (l_scnv_rec.attribute2 = OKC_API.G_MISS_CHAR) THEN
1004: l_scnv_rec.attribute2 := NULL;
1005: END IF;
1006: IF (l_scnv_rec.attribute3 = OKC_API.G_MISS_CHAR) THEN
1007: l_scnv_rec.attribute3 := NULL;
1008: END IF;
1009: IF (l_scnv_rec.attribute4 = OKC_API.G_MISS_CHAR) THEN
1010: l_scnv_rec.attribute4 := NULL;
1005: END IF;
1006: IF (l_scnv_rec.attribute3 = OKC_API.G_MISS_CHAR) THEN
1007: l_scnv_rec.attribute3 := NULL;
1008: END IF;
1009: IF (l_scnv_rec.attribute4 = OKC_API.G_MISS_CHAR) THEN
1010: l_scnv_rec.attribute4 := NULL;
1011: END IF;
1012: IF (l_scnv_rec.attribute5 = OKC_API.G_MISS_CHAR) THEN
1013: l_scnv_rec.attribute5 := NULL;
1008: END IF;
1009: IF (l_scnv_rec.attribute4 = OKC_API.G_MISS_CHAR) THEN
1010: l_scnv_rec.attribute4 := NULL;
1011: END IF;
1012: IF (l_scnv_rec.attribute5 = OKC_API.G_MISS_CHAR) THEN
1013: l_scnv_rec.attribute5 := NULL;
1014: END IF;
1015: IF (l_scnv_rec.attribute6 = OKC_API.G_MISS_CHAR) THEN
1016: l_scnv_rec.attribute6 := NULL;
1011: END IF;
1012: IF (l_scnv_rec.attribute5 = OKC_API.G_MISS_CHAR) THEN
1013: l_scnv_rec.attribute5 := NULL;
1014: END IF;
1015: IF (l_scnv_rec.attribute6 = OKC_API.G_MISS_CHAR) THEN
1016: l_scnv_rec.attribute6 := NULL;
1017: END IF;
1018: IF (l_scnv_rec.attribute7 = OKC_API.G_MISS_CHAR) THEN
1019: l_scnv_rec.attribute7 := NULL;
1014: END IF;
1015: IF (l_scnv_rec.attribute6 = OKC_API.G_MISS_CHAR) THEN
1016: l_scnv_rec.attribute6 := NULL;
1017: END IF;
1018: IF (l_scnv_rec.attribute7 = OKC_API.G_MISS_CHAR) THEN
1019: l_scnv_rec.attribute7 := NULL;
1020: END IF;
1021: IF (l_scnv_rec.attribute8 = OKC_API.G_MISS_CHAR) THEN
1022: l_scnv_rec.attribute8 := NULL;
1017: END IF;
1018: IF (l_scnv_rec.attribute7 = OKC_API.G_MISS_CHAR) THEN
1019: l_scnv_rec.attribute7 := NULL;
1020: END IF;
1021: IF (l_scnv_rec.attribute8 = OKC_API.G_MISS_CHAR) THEN
1022: l_scnv_rec.attribute8 := NULL;
1023: END IF;
1024: IF (l_scnv_rec.attribute9 = OKC_API.G_MISS_CHAR) THEN
1025: l_scnv_rec.attribute9 := NULL;
1020: END IF;
1021: IF (l_scnv_rec.attribute8 = OKC_API.G_MISS_CHAR) THEN
1022: l_scnv_rec.attribute8 := NULL;
1023: END IF;
1024: IF (l_scnv_rec.attribute9 = OKC_API.G_MISS_CHAR) THEN
1025: l_scnv_rec.attribute9 := NULL;
1026: END IF;
1027: IF (l_scnv_rec.attribute10 = OKC_API.G_MISS_CHAR) THEN
1028: l_scnv_rec.attribute10 := NULL;
1023: END IF;
1024: IF (l_scnv_rec.attribute9 = OKC_API.G_MISS_CHAR) THEN
1025: l_scnv_rec.attribute9 := NULL;
1026: END IF;
1027: IF (l_scnv_rec.attribute10 = OKC_API.G_MISS_CHAR) THEN
1028: l_scnv_rec.attribute10 := NULL;
1029: END IF;
1030: IF (l_scnv_rec.attribute11 = OKC_API.G_MISS_CHAR) THEN
1031: l_scnv_rec.attribute11 := NULL;
1026: END IF;
1027: IF (l_scnv_rec.attribute10 = OKC_API.G_MISS_CHAR) THEN
1028: l_scnv_rec.attribute10 := NULL;
1029: END IF;
1030: IF (l_scnv_rec.attribute11 = OKC_API.G_MISS_CHAR) THEN
1031: l_scnv_rec.attribute11 := NULL;
1032: END IF;
1033: IF (l_scnv_rec.attribute12 = OKC_API.G_MISS_CHAR) THEN
1034: l_scnv_rec.attribute12 := NULL;
1029: END IF;
1030: IF (l_scnv_rec.attribute11 = OKC_API.G_MISS_CHAR) THEN
1031: l_scnv_rec.attribute11 := NULL;
1032: END IF;
1033: IF (l_scnv_rec.attribute12 = OKC_API.G_MISS_CHAR) THEN
1034: l_scnv_rec.attribute12 := NULL;
1035: END IF;
1036: IF (l_scnv_rec.attribute13 = OKC_API.G_MISS_CHAR) THEN
1037: l_scnv_rec.attribute13 := NULL;
1032: END IF;
1033: IF (l_scnv_rec.attribute12 = OKC_API.G_MISS_CHAR) THEN
1034: l_scnv_rec.attribute12 := NULL;
1035: END IF;
1036: IF (l_scnv_rec.attribute13 = OKC_API.G_MISS_CHAR) THEN
1037: l_scnv_rec.attribute13 := NULL;
1038: END IF;
1039: IF (l_scnv_rec.attribute14 = OKC_API.G_MISS_CHAR) THEN
1040: l_scnv_rec.attribute14 := NULL;
1035: END IF;
1036: IF (l_scnv_rec.attribute13 = OKC_API.G_MISS_CHAR) THEN
1037: l_scnv_rec.attribute13 := NULL;
1038: END IF;
1039: IF (l_scnv_rec.attribute14 = OKC_API.G_MISS_CHAR) THEN
1040: l_scnv_rec.attribute14 := NULL;
1041: END IF;
1042: IF (l_scnv_rec.attribute15 = OKC_API.G_MISS_CHAR) THEN
1043: l_scnv_rec.attribute15 := NULL;
1038: END IF;
1039: IF (l_scnv_rec.attribute14 = OKC_API.G_MISS_CHAR) THEN
1040: l_scnv_rec.attribute14 := NULL;
1041: END IF;
1042: IF (l_scnv_rec.attribute15 = OKC_API.G_MISS_CHAR) THEN
1043: l_scnv_rec.attribute15 := NULL;
1044: END IF;
1045:
1046: IF (l_debug = 'Y') THEN
1059: --------------------------------------------
1060: FUNCTION Validate_Attributes (
1061: p_scnv_rec IN scnv_rec_type
1062: ) RETURN VARCHAR2 IS
1063: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1064: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1065: BEGIN
1066:
1067: IF (l_debug = 'Y') THEN
1060: FUNCTION Validate_Attributes (
1061: p_scnv_rec IN scnv_rec_type
1062: ) RETURN VARCHAR2 IS
1063: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1064: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1065: BEGIN
1066:
1067: IF (l_debug = 'Y') THEN
1068: okc_debug.Set_Indentation('OKC_SCN_PVT');
1074: (x_return_status => l_return_status,
1075: p_scnv_rec => p_scnv_rec);
1076:
1077: -- store the highest degree of error
1078: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
1079: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
1080: x_return_status := l_return_status;
1081: End If;
1082: End If;
1075: p_scnv_rec => p_scnv_rec);
1076:
1077: -- store the highest degree of error
1078: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
1079: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
1080: x_return_status := l_return_status;
1081: End If;
1082: End If;
1083:
1085: (x_return_status => l_return_status,
1086: p_scnv_rec => p_scnv_rec);
1087:
1088: -- store the highest degree of error
1089: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
1090: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
1091: x_return_status := l_return_status;
1092: End If;
1093: End If;
1086: p_scnv_rec => p_scnv_rec);
1087:
1088: -- store the highest degree of error
1089: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
1090: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
1091: x_return_status := l_return_status;
1092: End If;
1093: End If;
1094:
1096: (x_return_status => l_return_status,
1097: p_scnv_rec => p_scnv_rec);
1098:
1099: -- store the highest degree of error
1100: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
1101: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
1102: x_return_status := l_return_status;
1103: End If;
1104: End If;
1097: p_scnv_rec => p_scnv_rec);
1098:
1099: -- store the highest degree of error
1100: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
1101: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
1102: x_return_status := l_return_status;
1103: End If;
1104: End If;
1105:
1107: (x_return_status => l_return_status,
1108: p_scnv_rec => p_scnv_rec);
1109:
1110: -- store the highest degree of error
1111: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
1112: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
1113: x_return_status := l_return_status;
1114: End If;
1115: End If;
1108: p_scnv_rec => p_scnv_rec);
1109:
1110: -- store the highest degree of error
1111: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
1112: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
1113: x_return_status := l_return_status;
1114: End If;
1115: End If;
1116:
1118: (x_return_status => l_return_status,
1119: p_scnv_rec => p_scnv_rec);
1120:
1121: -- store the highest degree of error
1122: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
1123: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
1124: x_return_status := l_return_status;
1125: End If;
1126: End If;
1119: p_scnv_rec => p_scnv_rec);
1120:
1121: -- store the highest degree of error
1122: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
1123: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
1124: x_return_status := l_return_status;
1125: End If;
1126: End If;
1127:
1129: (x_return_status => l_return_status,
1130: p_scnv_rec => p_scnv_rec);
1131:
1132: -- store the highest degree of error
1133: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
1134: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
1135: x_return_status := l_return_status;
1136: End If;
1137: End If;
1130: p_scnv_rec => p_scnv_rec);
1131:
1132: -- store the highest degree of error
1133: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
1134: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
1135: x_return_status := l_return_status;
1136: End If;
1137: End If;
1138:
1151: okc_debug.Reset_Indentation;
1152: END IF;
1153:
1154: -- store SQL error message on message stack
1155: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1156: p_msg_name => g_unexpected_error,
1157: p_token1 => g_sqlcode_token,
1158: p_token1_value => sqlcode,
1159: p_token2 => g_sqlerrm_token,
1159: p_token2 => g_sqlerrm_token,
1160: p_token2_value => sqlerrm);
1161:
1162: -- notify caller of an UNEXPETED error
1163: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1164:
1165: -- return status to caller
1166: RETURN(x_return_status);
1167:
1175: ----------------------------------------
1176: FUNCTION Validate_Record (
1177: p_scnv_rec IN scnv_rec_type
1178: ) RETURN VARCHAR2 IS
1179: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1180: -- l_unq_tbl OKC_UTIL.unq_tbl_type;
1181:
1182: -- ------------------------------------------------------
1183: -- To check for any matching row, for unique check
1223: -- chr_id and sat_code are mutually exclusive (in actual values)
1224: -- if chr_id >0, sat_code is -99, else sat code should be valid(<> -99)
1225: -- ---------------------------------------------------------------------
1226: IF ( p_scnv_rec.SCN_ID IS NOT NULL
1227: AND p_scnv_rec.SCN_ID <> OKC_API.G_MISS_NUM )
1228: THEN
1229: OPEN cur_scn_1;
1230: FETCH cur_scn_1 INTO l_dummy;
1231: l_row_found := cur_scn_1%FOUND;
1240:
1241: IF (l_row_found)
1242: THEN
1243: -- Display the newly defined error message
1244: OKC_API.set_message(G_APP_NAME,
1245: 'OKC_DUP_SEQUENCE_NUMBER');
1246: l_return_status := OKC_API.G_RET_STS_ERROR;
1247: END IF;
1248:
1242: THEN
1243: -- Display the newly defined error message
1244: OKC_API.set_message(G_APP_NAME,
1245: 'OKC_DUP_SEQUENCE_NUMBER');
1246: l_return_status := OKC_API.G_RET_STS_ERROR;
1247: END IF;
1248:
1249: -- if contract number not unique, raise exception
1250: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
1246: l_return_status := OKC_API.G_RET_STS_ERROR;
1247: END IF;
1248:
1249: -- if contract number not unique, raise exception
1250: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
1251: RAISE G_EXCEPTION_HALT_VALIDATION;
1252: END IF;
1253:
1254: IF (l_debug = 'Y') THEN
1404: p_scnv_rec IN scnv_rec_type) IS
1405:
1406: l_api_version CONSTANT NUMBER := 1;
1407: l_api_name CONSTANT VARCHAR2(30) := 'V_validate_row';
1408: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1409: l_scnv_rec scnv_rec_type := p_scnv_rec;
1410: l_scn_rec scn_rec_type;
1411: l_okc_sections_tl_rec okc_sections_tl_rec_type;
1412: BEGIN
1415: okc_debug.Set_Indentation('OKC_SCN_PVT');
1416: okc_debug.log('4100: Entered validate_row', 2);
1417: END IF;
1418:
1419: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1420: G_PKG_NAME,
1421: p_init_msg_list,
1422: l_api_version,
1423: p_api_version,
1422: l_api_version,
1423: p_api_version,
1424: '_PVT',
1425: x_return_status);
1426: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1427: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1428: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1429: RAISE OKC_API.G_EXCEPTION_ERROR;
1430: END IF;
1423: p_api_version,
1424: '_PVT',
1425: x_return_status);
1426: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1427: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1428: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1429: RAISE OKC_API.G_EXCEPTION_ERROR;
1430: END IF;
1431: --- Validate all non-missing attributes (Item Level Validation)
1424: '_PVT',
1425: x_return_status);
1426: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1427: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1428: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1429: RAISE OKC_API.G_EXCEPTION_ERROR;
1430: END IF;
1431: --- Validate all non-missing attributes (Item Level Validation)
1432: l_return_status := Validate_Attributes(l_scnv_rec);
1425: x_return_status);
1426: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1427: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1428: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1429: RAISE OKC_API.G_EXCEPTION_ERROR;
1430: END IF;
1431: --- Validate all non-missing attributes (Item Level Validation)
1432: l_return_status := Validate_Attributes(l_scnv_rec);
1433: --- If any errors happen abort API
1430: END IF;
1431: --- Validate all non-missing attributes (Item Level Validation)
1432: l_return_status := Validate_Attributes(l_scnv_rec);
1433: --- If any errors happen abort API
1434: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1435: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1436: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1437: RAISE OKC_API.G_EXCEPTION_ERROR;
1438: END IF;
1431: --- Validate all non-missing attributes (Item Level Validation)
1432: l_return_status := Validate_Attributes(l_scnv_rec);
1433: --- If any errors happen abort API
1434: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1435: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1436: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1437: RAISE OKC_API.G_EXCEPTION_ERROR;
1438: END IF;
1439: l_return_status := Validate_Record(l_scnv_rec);
1432: l_return_status := Validate_Attributes(l_scnv_rec);
1433: --- If any errors happen abort API
1434: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1435: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1436: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1437: RAISE OKC_API.G_EXCEPTION_ERROR;
1438: END IF;
1439: l_return_status := Validate_Record(l_scnv_rec);
1440: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1433: --- If any errors happen abort API
1434: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1435: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1436: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1437: RAISE OKC_API.G_EXCEPTION_ERROR;
1438: END IF;
1439: l_return_status := Validate_Record(l_scnv_rec);
1440: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1441: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1436: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1437: RAISE OKC_API.G_EXCEPTION_ERROR;
1438: END IF;
1439: l_return_status := Validate_Record(l_scnv_rec);
1440: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1441: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1442: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1443: RAISE OKC_API.G_EXCEPTION_ERROR;
1444: END IF;
1437: RAISE OKC_API.G_EXCEPTION_ERROR;
1438: END IF;
1439: l_return_status := Validate_Record(l_scnv_rec);
1440: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1441: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1442: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1443: RAISE OKC_API.G_EXCEPTION_ERROR;
1444: END IF;
1445: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1438: END IF;
1439: l_return_status := Validate_Record(l_scnv_rec);
1440: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1441: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1442: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1443: RAISE OKC_API.G_EXCEPTION_ERROR;
1444: END IF;
1445: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1446:
1439: l_return_status := Validate_Record(l_scnv_rec);
1440: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1441: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1442: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1443: RAISE OKC_API.G_EXCEPTION_ERROR;
1444: END IF;
1445: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1446:
1447: IF (l_debug = 'Y') THEN
1441: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1442: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1443: RAISE OKC_API.G_EXCEPTION_ERROR;
1444: END IF;
1445: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1446:
1447: IF (l_debug = 'Y') THEN
1448: okc_debug.log('4200: Leaving validate_row', 2);
1449: okc_debug.Reset_Indentation;
1449: okc_debug.Reset_Indentation;
1450: END IF;
1451:
1452: EXCEPTION
1453: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1454:
1455: IF (l_debug = 'Y') THEN
1456: okc_debug.log('4300: Exiting validate_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1457: okc_debug.Reset_Indentation;
1452: EXCEPTION
1453: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1454:
1455: IF (l_debug = 'Y') THEN
1456: okc_debug.log('4300: Exiting validate_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1457: okc_debug.Reset_Indentation;
1458: END IF;
1459:
1460: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1456: okc_debug.log('4300: Exiting validate_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1457: okc_debug.Reset_Indentation;
1458: END IF;
1459:
1460: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1461: (
1462: l_api_name,
1463: G_PKG_NAME,
1464: 'OKC_API.G_RET_STS_ERROR',
1460: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1461: (
1462: l_api_name,
1463: G_PKG_NAME,
1464: 'OKC_API.G_RET_STS_ERROR',
1465: x_msg_count,
1466: x_msg_data,
1467: '_PVT'
1468: );
1465: x_msg_count,
1466: x_msg_data,
1467: '_PVT'
1468: );
1469: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1470:
1471: IF (l_debug = 'Y') THEN
1472: okc_debug.log('4400: Exiting validate_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1473: okc_debug.Reset_Indentation;
1468: );
1469: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1470:
1471: IF (l_debug = 'Y') THEN
1472: okc_debug.log('4400: Exiting validate_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1473: okc_debug.Reset_Indentation;
1474: END IF;
1475:
1476: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1472: okc_debug.log('4400: Exiting validate_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1473: okc_debug.Reset_Indentation;
1474: END IF;
1475:
1476: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1477: (
1478: l_api_name,
1479: G_PKG_NAME,
1480: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1476: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1477: (
1478: l_api_name,
1479: G_PKG_NAME,
1480: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1481: x_msg_count,
1482: x_msg_data,
1483: '_PVT'
1484: );
1488: okc_debug.log('4500: Exiting validate_row:OTHERS Exception', 2);
1489: okc_debug.Reset_Indentation;
1490: END IF;
1491:
1492: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1493: (
1494: l_api_name,
1495: G_PKG_NAME,
1496: 'OTHERS',
1512: p_scnv_tbl IN scnv_tbl_type) IS
1513:
1514: l_api_version CONSTANT NUMBER := 1;
1515: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
1516: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1517: i NUMBER := 0;
1518: BEGIN
1519:
1520: IF (l_debug = 'Y') THEN
1521: okc_debug.Set_Indentation('OKC_SCN_PVT');
1522: okc_debug.log('4600: Entered validate_row', 2);
1523: END IF;
1524:
1525: OKC_API.init_msg_list(p_init_msg_list);
1526: -- Make sure PL/SQL table has records in it before passing
1527: IF (p_scnv_tbl.COUNT > 0) THEN
1528: i := p_scnv_tbl.FIRST;
1529: LOOP
1528: i := p_scnv_tbl.FIRST;
1529: LOOP
1530: validate_row (
1531: p_api_version => p_api_version,
1532: p_init_msg_list => OKC_API.G_FALSE,
1533: x_return_status => x_return_status,
1534: x_msg_count => x_msg_count,
1535: x_msg_data => x_msg_data,
1536: p_scnv_rec => p_scnv_tbl(i));
1543: okc_debug.log('4700: Leaving validate_row', 2);
1544: okc_debug.Reset_Indentation;
1545: END IF;
1546: EXCEPTION
1547: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1548:
1549: IF (l_debug = 'Y') THEN
1550: okc_debug.log('4800: Exiting validate_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1551: okc_debug.Reset_Indentation;
1546: EXCEPTION
1547: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1548:
1549: IF (l_debug = 'Y') THEN
1550: okc_debug.log('4800: Exiting validate_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1551: okc_debug.Reset_Indentation;
1552: END IF;
1553:
1554: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1550: okc_debug.log('4800: Exiting validate_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1551: okc_debug.Reset_Indentation;
1552: END IF;
1553:
1554: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1555: (
1556: l_api_name,
1557: G_PKG_NAME,
1558: 'OKC_API.G_RET_STS_ERROR',
1554: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1555: (
1556: l_api_name,
1557: G_PKG_NAME,
1558: 'OKC_API.G_RET_STS_ERROR',
1559: x_msg_count,
1560: x_msg_data,
1561: '_PVT'
1562: );
1559: x_msg_count,
1560: x_msg_data,
1561: '_PVT'
1562: );
1563: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1564:
1565: IF (l_debug = 'Y') THEN
1566: okc_debug.log('4900: Exiting validate_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1567: okc_debug.Reset_Indentation;
1562: );
1563: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1564:
1565: IF (l_debug = 'Y') THEN
1566: okc_debug.log('4900: Exiting validate_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1567: okc_debug.Reset_Indentation;
1568: END IF;
1569:
1570: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1566: okc_debug.log('4900: Exiting validate_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1567: okc_debug.Reset_Indentation;
1568: END IF;
1569:
1570: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1571: (
1572: l_api_name,
1573: G_PKG_NAME,
1574: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1570: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1571: (
1572: l_api_name,
1573: G_PKG_NAME,
1574: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1575: x_msg_count,
1576: x_msg_data,
1577: '_PVT'
1578: );
1582: okc_debug.log('5000: Exiting validate_row:OTHERS Exception', 2);
1583: okc_debug.Reset_Indentation;
1584: END IF;
1585:
1586: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1587: (
1588: l_api_name,
1589: G_PKG_NAME,
1590: 'OTHERS',
1607: x_scn_rec OUT NOCOPY scn_rec_type) IS
1608:
1609: l_api_version CONSTANT NUMBER := 1;
1610: l_api_name CONSTANT VARCHAR2(30) := 'B_insert_row';
1611: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1612: l_scn_rec scn_rec_type := p_scn_rec;
1613: l_def_scn_rec scn_rec_type;
1614: ---------------------------------------
1615: -- Set_Attributes for:OKC_SECTIONS_B --
1617: FUNCTION Set_Attributes (
1618: p_scn_rec IN scn_rec_type,
1619: x_scn_rec OUT NOCOPY scn_rec_type
1620: ) RETURN VARCHAR2 IS
1621: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1622: BEGIN
1623:
1624: x_scn_rec := p_scn_rec;
1625: RETURN(l_return_status);
1631: okc_debug.Set_Indentation('OKC_SCN_PVT');
1632: okc_debug.log('5200: Entered insert_row', 2);
1633: END IF;
1634:
1635: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1636: p_init_msg_list,
1637: '_PVT',
1638: x_return_status);
1639: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1635: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1636: p_init_msg_list,
1637: '_PVT',
1638: x_return_status);
1639: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1640: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1641: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1642: RAISE OKC_API.G_EXCEPTION_ERROR;
1643: END IF;
1636: p_init_msg_list,
1637: '_PVT',
1638: x_return_status);
1639: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1640: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1641: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1642: RAISE OKC_API.G_EXCEPTION_ERROR;
1643: END IF;
1644: --- Setting item attributes
1637: '_PVT',
1638: x_return_status);
1639: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1640: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1641: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1642: RAISE OKC_API.G_EXCEPTION_ERROR;
1643: END IF;
1644: --- Setting item attributes
1645: l_return_status := Set_Attributes(
1638: x_return_status);
1639: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1640: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1641: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1642: RAISE OKC_API.G_EXCEPTION_ERROR;
1643: END IF;
1644: --- Setting item attributes
1645: l_return_status := Set_Attributes(
1646: p_scn_rec, -- IN
1645: l_return_status := Set_Attributes(
1646: p_scn_rec, -- IN
1647: l_scn_rec); -- OUT
1648: --- If any errors happen abort API
1649: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1650: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1651: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1652: RAISE OKC_API.G_EXCEPTION_ERROR;
1653: END IF;
1646: p_scn_rec, -- IN
1647: l_scn_rec); -- OUT
1648: --- If any errors happen abort API
1649: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1650: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1651: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1652: RAISE OKC_API.G_EXCEPTION_ERROR;
1653: END IF;
1654: INSERT INTO OKC_SECTIONS_B(
1647: l_scn_rec); -- OUT
1648: --- If any errors happen abort API
1649: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1650: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1651: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1652: RAISE OKC_API.G_EXCEPTION_ERROR;
1653: END IF;
1654: INSERT INTO OKC_SECTIONS_B(
1655: id,
1648: --- If any errors happen abort API
1649: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1650: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1651: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1652: RAISE OKC_API.G_EXCEPTION_ERROR;
1653: END IF;
1654: INSERT INTO OKC_SECTIONS_B(
1655: id,
1656: scn_type,
1712: l_scn_rec.attribute14,
1713: l_scn_rec.attribute15);
1714: -- Set OUT values
1715: x_scn_rec := l_scn_rec;
1716: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1717:
1718:
1719: IF (l_debug = 'Y') THEN
1720: okc_debug.log('5300: Leaving insert_row', 2);
1721: okc_debug.Reset_Indentation;
1722: END IF;
1723:
1724: EXCEPTION
1725: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1726:
1727: IF (l_debug = 'Y') THEN
1728: okc_debug.log('5400: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1729: okc_debug.Reset_Indentation;
1724: EXCEPTION
1725: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1726:
1727: IF (l_debug = 'Y') THEN
1728: okc_debug.log('5400: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1729: okc_debug.Reset_Indentation;
1730: END IF;
1731:
1732: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1728: okc_debug.log('5400: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1729: okc_debug.Reset_Indentation;
1730: END IF;
1731:
1732: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1733: (
1734: l_api_name,
1735: G_PKG_NAME,
1736: 'OKC_API.G_RET_STS_ERROR',
1732: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1733: (
1734: l_api_name,
1735: G_PKG_NAME,
1736: 'OKC_API.G_RET_STS_ERROR',
1737: x_msg_count,
1738: x_msg_data,
1739: '_PVT'
1740: );
1737: x_msg_count,
1738: x_msg_data,
1739: '_PVT'
1740: );
1741: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1742:
1743: IF (l_debug = 'Y') THEN
1744: okc_debug.log('5500: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1745: okc_debug.Reset_Indentation;
1740: );
1741: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1742:
1743: IF (l_debug = 'Y') THEN
1744: okc_debug.log('5500: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1745: okc_debug.Reset_Indentation;
1746: END IF;
1747:
1748: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1744: okc_debug.log('5500: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1745: okc_debug.Reset_Indentation;
1746: END IF;
1747:
1748: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1749: (
1750: l_api_name,
1751: G_PKG_NAME,
1752: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1748: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1749: (
1750: l_api_name,
1751: G_PKG_NAME,
1752: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1753: x_msg_count,
1754: x_msg_data,
1755: '_PVT'
1756: );
1760: okc_debug.log('5600: Exiting insert_row:OTHERS Exception', 2);
1761: okc_debug.Reset_Indentation;
1762: END IF;
1763:
1764: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1765: (
1766: l_api_name,
1767: G_PKG_NAME,
1768: 'OTHERS',
1784: x_okc_sections_tl_rec OUT NOCOPY okc_sections_tl_rec_type) IS
1785:
1786: l_api_version CONSTANT NUMBER := 1;
1787: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
1788: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1789: l_okc_sections_tl_rec okc_sections_tl_rec_type := p_okc_sections_tl_rec;
1790: l_def_okc_sections_tl_rec okc_sections_tl_rec_type;
1791: CURSOR get_languages IS
1792: SELECT *
1798: FUNCTION Set_Attributes (
1799: p_okc_sections_tl_rec IN okc_sections_tl_rec_type,
1800: x_okc_sections_tl_rec OUT NOCOPY okc_sections_tl_rec_type
1801: ) RETURN VARCHAR2 IS
1802: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1803: BEGIN
1804:
1805: x_okc_sections_tl_rec := p_okc_sections_tl_rec;
1806: x_okc_sections_tl_rec.LANGUAGE := okc_util.get_userenv_lang;
1814: okc_debug.Set_Indentation('OKC_SCN_PVT');
1815: okc_debug.log('5800: Entered insert_row', 2);
1816: END IF;
1817:
1818: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1819: p_init_msg_list,
1820: '_PVT',
1821: x_return_status);
1822: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1818: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1819: p_init_msg_list,
1820: '_PVT',
1821: x_return_status);
1822: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1823: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1824: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1825: RAISE OKC_API.G_EXCEPTION_ERROR;
1826: END IF;
1819: p_init_msg_list,
1820: '_PVT',
1821: x_return_status);
1822: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1823: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1824: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1825: RAISE OKC_API.G_EXCEPTION_ERROR;
1826: END IF;
1827: --- Setting item attributes
1820: '_PVT',
1821: x_return_status);
1822: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1823: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1824: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1825: RAISE OKC_API.G_EXCEPTION_ERROR;
1826: END IF;
1827: --- Setting item attributes
1828: l_return_status := Set_Attributes(
1821: x_return_status);
1822: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1823: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1824: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1825: RAISE OKC_API.G_EXCEPTION_ERROR;
1826: END IF;
1827: --- Setting item attributes
1828: l_return_status := Set_Attributes(
1829: p_okc_sections_tl_rec, -- IN
1828: l_return_status := Set_Attributes(
1829: p_okc_sections_tl_rec, -- IN
1830: l_okc_sections_tl_rec); -- OUT
1831: --- If any errors happen abort API
1832: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1833: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1834: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1835: RAISE OKC_API.G_EXCEPTION_ERROR;
1836: END IF;
1829: p_okc_sections_tl_rec, -- IN
1830: l_okc_sections_tl_rec); -- OUT
1831: --- If any errors happen abort API
1832: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1833: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1834: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1835: RAISE OKC_API.G_EXCEPTION_ERROR;
1836: END IF;
1837: FOR l_lang_rec IN get_languages LOOP
1830: l_okc_sections_tl_rec); -- OUT
1831: --- If any errors happen abort API
1832: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1833: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1834: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1835: RAISE OKC_API.G_EXCEPTION_ERROR;
1836: END IF;
1837: FOR l_lang_rec IN get_languages LOOP
1838: l_okc_sections_tl_rec.language := l_lang_rec.language_code;
1831: --- If any errors happen abort API
1832: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1833: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1834: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1835: RAISE OKC_API.G_EXCEPTION_ERROR;
1836: END IF;
1837: FOR l_lang_rec IN get_languages LOOP
1838: l_okc_sections_tl_rec.language := l_lang_rec.language_code;
1839: INSERT INTO OKC_SECTIONS_TL(
1860: l_okc_sections_tl_rec.last_update_login);
1861: END LOOP;
1862: -- Set OUT values
1863: x_okc_sections_tl_rec := l_okc_sections_tl_rec;
1864: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1865:
1866: IF (l_debug = 'Y') THEN
1867: okc_debug.log('5900: Leaving insert_row', 2);
1868: okc_debug.Reset_Indentation;
1868: okc_debug.Reset_Indentation;
1869: END IF;
1870:
1871: EXCEPTION
1872: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1873:
1874: IF (l_debug = 'Y') THEN
1875: okc_debug.log('6000: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1876: okc_debug.Reset_Indentation;
1871: EXCEPTION
1872: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1873:
1874: IF (l_debug = 'Y') THEN
1875: okc_debug.log('6000: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1876: okc_debug.Reset_Indentation;
1877: END IF;
1878:
1879: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1875: okc_debug.log('6000: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1876: okc_debug.Reset_Indentation;
1877: END IF;
1878:
1879: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1880: (
1881: l_api_name,
1882: G_PKG_NAME,
1883: 'OKC_API.G_RET_STS_ERROR',
1879: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1880: (
1881: l_api_name,
1882: G_PKG_NAME,
1883: 'OKC_API.G_RET_STS_ERROR',
1884: x_msg_count,
1885: x_msg_data,
1886: '_PVT'
1887: );
1884: x_msg_count,
1885: x_msg_data,
1886: '_PVT'
1887: );
1888: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1889:
1890: IF (l_debug = 'Y') THEN
1891: okc_debug.log('6100: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1892: okc_debug.Reset_Indentation;
1887: );
1888: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1889:
1890: IF (l_debug = 'Y') THEN
1891: okc_debug.log('6100: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1892: okc_debug.Reset_Indentation;
1893: END IF;
1894:
1895: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1891: okc_debug.log('6100: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1892: okc_debug.Reset_Indentation;
1893: END IF;
1894:
1895: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1896: (
1897: l_api_name,
1898: G_PKG_NAME,
1899: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1895: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1896: (
1897: l_api_name,
1898: G_PKG_NAME,
1899: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1900: x_msg_count,
1901: x_msg_data,
1902: '_PVT'
1903: );
1907: okc_debug.log('6200: Exiting insert_row:OTHERS Exception', 2);
1908: okc_debug.Reset_Indentation;
1909: END IF;
1910:
1911: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1912: (
1913: l_api_name,
1914: G_PKG_NAME,
1915: 'OTHERS',
1932: x_scnv_rec OUT NOCOPY scnv_rec_type) IS
1933:
1934: l_api_version CONSTANT NUMBER := 1;
1935: l_api_name CONSTANT VARCHAR2(30) := 'V_insert_row';
1936: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1937: l_scnv_rec scnv_rec_type;
1938: l_def_scnv_rec scnv_rec_type;
1939: l_scn_rec scn_rec_type;
1940: lx_scn_rec scn_rec_type;
1963: FUNCTION Set_Attributes (
1964: p_scnv_rec IN scnv_rec_type,
1965: x_scnv_rec OUT NOCOPY scnv_rec_type
1966: ) RETURN VARCHAR2 IS
1967: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1968: BEGIN
1969:
1970: x_scnv_rec := p_scnv_rec;
1971: x_scnv_rec.OBJECT_VERSION_NUMBER := 1;
1989: okc_debug.Set_Indentation('OKC_SCN_PVT');
1990: okc_debug.log('6500: Entered insert_row', 2);
1991: END IF;
1992:
1993: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1994: G_PKG_NAME,
1995: p_init_msg_list,
1996: l_api_version,
1997: p_api_version,
1996: l_api_version,
1997: p_api_version,
1998: '_PVT',
1999: x_return_status);
2000: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2001: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2002: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2003: RAISE OKC_API.G_EXCEPTION_ERROR;
2004: END IF;
1997: p_api_version,
1998: '_PVT',
1999: x_return_status);
2000: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2001: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2002: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2003: RAISE OKC_API.G_EXCEPTION_ERROR;
2004: END IF;
2005: l_scnv_rec := null_out_defaults(p_scnv_rec);
1998: '_PVT',
1999: x_return_status);
2000: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2001: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2002: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2003: RAISE OKC_API.G_EXCEPTION_ERROR;
2004: END IF;
2005: l_scnv_rec := null_out_defaults(p_scnv_rec);
2006: -- Set primary key value
1999: x_return_status);
2000: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2001: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2002: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2003: RAISE OKC_API.G_EXCEPTION_ERROR;
2004: END IF;
2005: l_scnv_rec := null_out_defaults(p_scnv_rec);
2006: -- Set primary key value
2007: l_scnv_rec.ID := get_seq_id;
2009: l_return_status := Set_Attributes(
2010: l_scnv_rec, -- IN
2011: l_def_scnv_rec); -- OUT
2012: --- If any errors happen abort API
2013: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2014: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2015: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2016: RAISE OKC_API.G_EXCEPTION_ERROR;
2017: END IF;
2010: l_scnv_rec, -- IN
2011: l_def_scnv_rec); -- OUT
2012: --- If any errors happen abort API
2013: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2014: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2015: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2016: RAISE OKC_API.G_EXCEPTION_ERROR;
2017: END IF;
2018: l_def_scnv_rec := fill_who_columns(l_def_scnv_rec);
2011: l_def_scnv_rec); -- OUT
2012: --- If any errors happen abort API
2013: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2014: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2015: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2016: RAISE OKC_API.G_EXCEPTION_ERROR;
2017: END IF;
2018: l_def_scnv_rec := fill_who_columns(l_def_scnv_rec);
2019: --- Validate all non-missing attributes (Item Level Validation)
2012: --- If any errors happen abort API
2013: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2014: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2015: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2016: RAISE OKC_API.G_EXCEPTION_ERROR;
2017: END IF;
2018: l_def_scnv_rec := fill_who_columns(l_def_scnv_rec);
2019: --- Validate all non-missing attributes (Item Level Validation)
2020: l_return_status := Validate_Attributes(l_def_scnv_rec);
2018: l_def_scnv_rec := fill_who_columns(l_def_scnv_rec);
2019: --- Validate all non-missing attributes (Item Level Validation)
2020: l_return_status := Validate_Attributes(l_def_scnv_rec);
2021: --- If any errors happen abort API
2022: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2023: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2024: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2025: RAISE OKC_API.G_EXCEPTION_ERROR;
2026: END IF;
2019: --- Validate all non-missing attributes (Item Level Validation)
2020: l_return_status := Validate_Attributes(l_def_scnv_rec);
2021: --- If any errors happen abort API
2022: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2023: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2024: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2025: RAISE OKC_API.G_EXCEPTION_ERROR;
2026: END IF;
2027: l_return_status := Validate_Record(l_def_scnv_rec);
2020: l_return_status := Validate_Attributes(l_def_scnv_rec);
2021: --- If any errors happen abort API
2022: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2023: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2024: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2025: RAISE OKC_API.G_EXCEPTION_ERROR;
2026: END IF;
2027: l_return_status := Validate_Record(l_def_scnv_rec);
2028: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2021: --- If any errors happen abort API
2022: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2023: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2024: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2025: RAISE OKC_API.G_EXCEPTION_ERROR;
2026: END IF;
2027: l_return_status := Validate_Record(l_def_scnv_rec);
2028: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2029: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2024: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2025: RAISE OKC_API.G_EXCEPTION_ERROR;
2026: END IF;
2027: l_return_status := Validate_Record(l_def_scnv_rec);
2028: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2029: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2030: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2031: RAISE OKC_API.G_EXCEPTION_ERROR;
2032: END IF;
2025: RAISE OKC_API.G_EXCEPTION_ERROR;
2026: END IF;
2027: l_return_status := Validate_Record(l_def_scnv_rec);
2028: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2029: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2030: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2031: RAISE OKC_API.G_EXCEPTION_ERROR;
2032: END IF;
2033: --------------------------------------
2026: END IF;
2027: l_return_status := Validate_Record(l_def_scnv_rec);
2028: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2029: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2030: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2031: RAISE OKC_API.G_EXCEPTION_ERROR;
2032: END IF;
2033: --------------------------------------
2034: -- Move VIEW record to "Child" records
2027: l_return_status := Validate_Record(l_def_scnv_rec);
2028: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2029: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2030: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2031: RAISE OKC_API.G_EXCEPTION_ERROR;
2032: END IF;
2033: --------------------------------------
2034: -- Move VIEW record to "Child" records
2035: --------------------------------------
2045: x_msg_data,
2046: l_scn_rec,
2047: lx_scn_rec
2048: );
2049: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2050: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2051: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2052: RAISE OKC_API.G_EXCEPTION_ERROR;
2053: END IF;
2046: l_scn_rec,
2047: lx_scn_rec
2048: );
2049: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2050: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2051: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2052: RAISE OKC_API.G_EXCEPTION_ERROR;
2053: END IF;
2054: migrate(lx_scn_rec, l_def_scnv_rec);
2047: lx_scn_rec
2048: );
2049: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2050: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2051: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2052: RAISE OKC_API.G_EXCEPTION_ERROR;
2053: END IF;
2054: migrate(lx_scn_rec, l_def_scnv_rec);
2055: insert_row(
2048: );
2049: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2050: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2051: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2052: RAISE OKC_API.G_EXCEPTION_ERROR;
2053: END IF;
2054: migrate(lx_scn_rec, l_def_scnv_rec);
2055: insert_row(
2056: p_init_msg_list,
2059: x_msg_data,
2060: l_okc_sections_tl_rec,
2061: lx_okc_sections_tl_rec
2062: );
2063: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2064: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2065: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2066: RAISE OKC_API.G_EXCEPTION_ERROR;
2067: END IF;
2060: l_okc_sections_tl_rec,
2061: lx_okc_sections_tl_rec
2062: );
2063: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2064: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2065: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2066: RAISE OKC_API.G_EXCEPTION_ERROR;
2067: END IF;
2068: migrate(lx_okc_sections_tl_rec, l_def_scnv_rec);
2061: lx_okc_sections_tl_rec
2062: );
2063: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2064: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2065: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2066: RAISE OKC_API.G_EXCEPTION_ERROR;
2067: END IF;
2068: migrate(lx_okc_sections_tl_rec, l_def_scnv_rec);
2069: -- Set OUT values
2062: );
2063: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2064: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2065: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2066: RAISE OKC_API.G_EXCEPTION_ERROR;
2067: END IF;
2068: migrate(lx_okc_sections_tl_rec, l_def_scnv_rec);
2069: -- Set OUT values
2070: x_scnv_rec := l_def_scnv_rec;
2067: END IF;
2068: migrate(lx_okc_sections_tl_rec, l_def_scnv_rec);
2069: -- Set OUT values
2070: x_scnv_rec := l_def_scnv_rec;
2071: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2072:
2073: IF (l_debug = 'Y') THEN
2074: okc_debug.log('6600: Leaving insert_row', 2);
2075: okc_debug.Reset_Indentation;
2075: okc_debug.Reset_Indentation;
2076: END IF;
2077:
2078: EXCEPTION
2079: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2080:
2081: IF (l_debug = 'Y') THEN
2082: okc_debug.log('6700: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2083: okc_debug.Reset_Indentation;
2078: EXCEPTION
2079: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2080:
2081: IF (l_debug = 'Y') THEN
2082: okc_debug.log('6700: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2083: okc_debug.Reset_Indentation;
2084: END IF;
2085:
2086: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2082: okc_debug.log('6700: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2083: okc_debug.Reset_Indentation;
2084: END IF;
2085:
2086: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2087: (
2088: l_api_name,
2089: G_PKG_NAME,
2090: 'OKC_API.G_RET_STS_ERROR',
2086: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2087: (
2088: l_api_name,
2089: G_PKG_NAME,
2090: 'OKC_API.G_RET_STS_ERROR',
2091: x_msg_count,
2092: x_msg_data,
2093: '_PVT'
2094: );
2091: x_msg_count,
2092: x_msg_data,
2093: '_PVT'
2094: );
2095: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2096:
2097: IF (l_debug = 'Y') THEN
2098: okc_debug.log('6800: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2099: okc_debug.Reset_Indentation;
2094: );
2095: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2096:
2097: IF (l_debug = 'Y') THEN
2098: okc_debug.log('6800: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2099: okc_debug.Reset_Indentation;
2100: END IF;
2101:
2102: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2098: okc_debug.log('6800: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2099: okc_debug.Reset_Indentation;
2100: END IF;
2101:
2102: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2103: (
2104: l_api_name,
2105: G_PKG_NAME,
2106: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2102: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2103: (
2104: l_api_name,
2105: G_PKG_NAME,
2106: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2107: x_msg_count,
2108: x_msg_data,
2109: '_PVT'
2110: );
2114: okc_debug.log('6900: Exiting insert_row:OTHERS Exception', 2);
2115: okc_debug.Reset_Indentation;
2116: END IF;
2117:
2118: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2119: (
2120: l_api_name,
2121: G_PKG_NAME,
2122: 'OTHERS',
2139: x_scnv_tbl OUT NOCOPY scnv_tbl_type) IS
2140:
2141: l_api_version CONSTANT NUMBER := 1;
2142: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
2143: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2144: i NUMBER := 0;
2145: BEGIN
2146:
2147: IF (l_debug = 'Y') THEN
2148: okc_debug.Set_Indentation('OKC_SCN_PVT');
2149: okc_debug.log('7000: Entered insert_row', 2);
2150: END IF;
2151:
2152: OKC_API.init_msg_list(p_init_msg_list);
2153: -- Make sure PL/SQL table has records in it before passing
2154: IF (p_scnv_tbl.COUNT > 0) THEN
2155: i := p_scnv_tbl.FIRST;
2156: LOOP
2155: i := p_scnv_tbl.FIRST;
2156: LOOP
2157: insert_row (
2158: p_api_version => p_api_version,
2159: p_init_msg_list => OKC_API.G_FALSE,
2160: x_return_status => x_return_status,
2161: x_msg_count => x_msg_count,
2162: x_msg_data => x_msg_data,
2163: p_scnv_rec => p_scnv_tbl(i),
2172: okc_debug.Reset_Indentation;
2173: END IF;
2174:
2175: EXCEPTION
2176: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2177:
2178: IF (l_debug = 'Y') THEN
2179: okc_debug.log('7200: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2180: okc_debug.Reset_Indentation;
2175: EXCEPTION
2176: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2177:
2178: IF (l_debug = 'Y') THEN
2179: okc_debug.log('7200: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2180: okc_debug.Reset_Indentation;
2181: END IF;
2182:
2183: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2179: okc_debug.log('7200: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2180: okc_debug.Reset_Indentation;
2181: END IF;
2182:
2183: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2184: (
2185: l_api_name,
2186: G_PKG_NAME,
2187: 'OKC_API.G_RET_STS_ERROR',
2183: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2184: (
2185: l_api_name,
2186: G_PKG_NAME,
2187: 'OKC_API.G_RET_STS_ERROR',
2188: x_msg_count,
2189: x_msg_data,
2190: '_PVT'
2191: );
2188: x_msg_count,
2189: x_msg_data,
2190: '_PVT'
2191: );
2192: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2193:
2194: IF (l_debug = 'Y') THEN
2195: okc_debug.log('7300: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2196: okc_debug.Reset_Indentation;
2191: );
2192: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2193:
2194: IF (l_debug = 'Y') THEN
2195: okc_debug.log('7300: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2196: okc_debug.Reset_Indentation;
2197: END IF;
2198:
2199: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2195: okc_debug.log('7300: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2196: okc_debug.Reset_Indentation;
2197: END IF;
2198:
2199: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2200: (
2201: l_api_name,
2202: G_PKG_NAME,
2203: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2199: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2200: (
2201: l_api_name,
2202: G_PKG_NAME,
2203: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2204: x_msg_count,
2205: x_msg_data,
2206: '_PVT'
2207: );
2211: okc_debug.log('7400: Exiting insert_row:OTHERS Exception', 2);
2212: okc_debug.Reset_Indentation;
2213: END IF;
2214:
2215: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2216: (
2217: l_api_name,
2218: G_PKG_NAME,
2219: 'OTHERS',
2251: FROM OKC_SECTIONS_B
2252: WHERE ID = p_scn_rec.id;
2253: l_api_version CONSTANT NUMBER := 1;
2254: l_api_name CONSTANT VARCHAR2(30) := 'B_lock_row';
2255: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2256: l_object_version_number OKC_SECTIONS_B.OBJECT_VERSION_NUMBER%TYPE;
2257: lc_object_version_number OKC_SECTIONS_B.OBJECT_VERSION_NUMBER%TYPE;
2258: l_row_notfound BOOLEAN := FALSE;
2259: lc_row_notfound BOOLEAN := FALSE;
2263: okc_debug.Set_Indentation('OKC_SCN_PVT');
2264: okc_debug.log('7500: Entered lock_row', 2);
2265: END IF;
2266:
2267: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2268: p_init_msg_list,
2269: '_PVT',
2270: x_return_status);
2271: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2267: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2268: p_init_msg_list,
2269: '_PVT',
2270: x_return_status);
2271: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2272: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2273: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2274: RAISE OKC_API.G_EXCEPTION_ERROR;
2275: END IF;
2268: p_init_msg_list,
2269: '_PVT',
2270: x_return_status);
2271: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2272: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2273: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2274: RAISE OKC_API.G_EXCEPTION_ERROR;
2275: END IF;
2276: BEGIN
2269: '_PVT',
2270: x_return_status);
2271: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2272: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2273: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2274: RAISE OKC_API.G_EXCEPTION_ERROR;
2275: END IF;
2276: BEGIN
2277:
2270: x_return_status);
2271: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2272: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2273: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2274: RAISE OKC_API.G_EXCEPTION_ERROR;
2275: END IF;
2276: BEGIN
2277:
2278: -- okc_debug.Set_Indentation('OKC_SCN_PVT');
2293:
2294: IF (lock_csr%ISOPEN) THEN
2295: CLOSE lock_csr;
2296: END IF;
2297: OKC_API.set_message(G_FND_APP,G_FORM_UNABLE_TO_RESERVE_REC);
2298: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
2299: END;
2300:
2301: IF ( l_row_notfound ) THEN
2304: lc_row_notfound := lchk_csr%NOTFOUND;
2305: CLOSE lchk_csr;
2306: END IF;
2307: IF (lc_row_notfound) THEN
2308: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2309: RAISE OKC_API.G_EXCEPTION_ERROR;
2310: ELSIF lc_object_version_number > p_scn_rec.object_version_number THEN
2311: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2312: RAISE OKC_API.G_EXCEPTION_ERROR;
2305: CLOSE lchk_csr;
2306: END IF;
2307: IF (lc_row_notfound) THEN
2308: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2309: RAISE OKC_API.G_EXCEPTION_ERROR;
2310: ELSIF lc_object_version_number > p_scn_rec.object_version_number THEN
2311: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2312: RAISE OKC_API.G_EXCEPTION_ERROR;
2313: ELSIF lc_object_version_number <> p_scn_rec.object_version_number THEN
2307: IF (lc_row_notfound) THEN
2308: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2309: RAISE OKC_API.G_EXCEPTION_ERROR;
2310: ELSIF lc_object_version_number > p_scn_rec.object_version_number THEN
2311: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2312: RAISE OKC_API.G_EXCEPTION_ERROR;
2313: ELSIF lc_object_version_number <> p_scn_rec.object_version_number THEN
2314: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2315: RAISE OKC_API.G_EXCEPTION_ERROR;
2308: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2309: RAISE OKC_API.G_EXCEPTION_ERROR;
2310: ELSIF lc_object_version_number > p_scn_rec.object_version_number THEN
2311: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2312: RAISE OKC_API.G_EXCEPTION_ERROR;
2313: ELSIF lc_object_version_number <> p_scn_rec.object_version_number THEN
2314: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2315: RAISE OKC_API.G_EXCEPTION_ERROR;
2316: ELSIF lc_object_version_number = -1 THEN
2310: ELSIF lc_object_version_number > p_scn_rec.object_version_number THEN
2311: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2312: RAISE OKC_API.G_EXCEPTION_ERROR;
2313: ELSIF lc_object_version_number <> p_scn_rec.object_version_number THEN
2314: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2315: RAISE OKC_API.G_EXCEPTION_ERROR;
2316: ELSIF lc_object_version_number = -1 THEN
2317: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
2318: RAISE OKC_API.G_EXCEPTION_ERROR;
2311: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2312: RAISE OKC_API.G_EXCEPTION_ERROR;
2313: ELSIF lc_object_version_number <> p_scn_rec.object_version_number THEN
2314: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2315: RAISE OKC_API.G_EXCEPTION_ERROR;
2316: ELSIF lc_object_version_number = -1 THEN
2317: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
2318: RAISE OKC_API.G_EXCEPTION_ERROR;
2319: END IF;
2313: ELSIF lc_object_version_number <> p_scn_rec.object_version_number THEN
2314: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2315: RAISE OKC_API.G_EXCEPTION_ERROR;
2316: ELSIF lc_object_version_number = -1 THEN
2317: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
2318: RAISE OKC_API.G_EXCEPTION_ERROR;
2319: END IF;
2320: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2321:
2314: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2315: RAISE OKC_API.G_EXCEPTION_ERROR;
2316: ELSIF lc_object_version_number = -1 THEN
2317: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
2318: RAISE OKC_API.G_EXCEPTION_ERROR;
2319: END IF;
2320: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2321:
2322: IF (l_debug = 'Y') THEN
2316: ELSIF lc_object_version_number = -1 THEN
2317: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
2318: RAISE OKC_API.G_EXCEPTION_ERROR;
2319: END IF;
2320: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2321:
2322: IF (l_debug = 'Y') THEN
2323: okc_debug.log('7900: Leaving lock_row', 2);
2324: okc_debug.Reset_Indentation;
2324: okc_debug.Reset_Indentation;
2325: END IF;
2326:
2327: EXCEPTION
2328: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2329:
2330: IF (l_debug = 'Y') THEN
2331: okc_debug.log('8000: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2332: okc_debug.Reset_Indentation;
2327: EXCEPTION
2328: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2329:
2330: IF (l_debug = 'Y') THEN
2331: okc_debug.log('8000: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2332: okc_debug.Reset_Indentation;
2333: END IF;
2334:
2335: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2331: okc_debug.log('8000: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2332: okc_debug.Reset_Indentation;
2333: END IF;
2334:
2335: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2336: (
2337: l_api_name,
2338: G_PKG_NAME,
2339: 'OKC_API.G_RET_STS_ERROR',
2335: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2336: (
2337: l_api_name,
2338: G_PKG_NAME,
2339: 'OKC_API.G_RET_STS_ERROR',
2340: x_msg_count,
2341: x_msg_data,
2342: '_PVT'
2343: );
2340: x_msg_count,
2341: x_msg_data,
2342: '_PVT'
2343: );
2344: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2345:
2346: IF (l_debug = 'Y') THEN
2347: okc_debug.log('8100: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2348: okc_debug.Reset_Indentation;
2343: );
2344: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2345:
2346: IF (l_debug = 'Y') THEN
2347: okc_debug.log('8100: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2348: okc_debug.Reset_Indentation;
2349: END IF;
2350:
2351: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2347: okc_debug.log('8100: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2348: okc_debug.Reset_Indentation;
2349: END IF;
2350:
2351: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2352: (
2353: l_api_name,
2354: G_PKG_NAME,
2355: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2351: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2352: (
2353: l_api_name,
2354: G_PKG_NAME,
2355: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2356: x_msg_count,
2357: x_msg_data,
2358: '_PVT'
2359: );
2363: okc_debug.log('8200: Exiting lock_row:OTHERS Exception', 2);
2364: okc_debug.Reset_Indentation;
2365: END IF;
2366:
2367: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2368: (
2369: l_api_name,
2370: G_PKG_NAME,
2371: 'OTHERS',
2394: FOR UPDATE NOWAIT;
2395:
2396: l_api_version CONSTANT NUMBER := 1;
2397: l_api_name CONSTANT VARCHAR2(30) := 'TL_lock_row';
2398: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2399: l_lock_var lock_csr%ROWTYPE;
2400: l_row_notfound BOOLEAN := FALSE;
2401: lc_row_notfound BOOLEAN := FALSE;
2402: BEGIN
2405: okc_debug.Set_Indentation('OKC_SCN_PVT');
2406: okc_debug.log('8300: Entered lock_row', 2);
2407: END IF;
2408:
2409: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2410: p_init_msg_list,
2411: '_PVT',
2412: x_return_status);
2413: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2409: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2410: p_init_msg_list,
2411: '_PVT',
2412: x_return_status);
2413: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2414: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2415: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2416: RAISE OKC_API.G_EXCEPTION_ERROR;
2417: END IF;
2410: p_init_msg_list,
2411: '_PVT',
2412: x_return_status);
2413: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2414: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2415: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2416: RAISE OKC_API.G_EXCEPTION_ERROR;
2417: END IF;
2418: BEGIN
2411: '_PVT',
2412: x_return_status);
2413: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2414: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2415: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2416: RAISE OKC_API.G_EXCEPTION_ERROR;
2417: END IF;
2418: BEGIN
2419:
2412: x_return_status);
2413: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2414: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2415: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2416: RAISE OKC_API.G_EXCEPTION_ERROR;
2417: END IF;
2418: BEGIN
2419:
2420: -- okc_debug.Set_Indentation('OKC_SCN_PVT');
2435:
2436: IF (lock_csr%ISOPEN) THEN
2437: CLOSE lock_csr;
2438: END IF;
2439: OKC_API.set_message(G_FND_APP,G_FORM_UNABLE_TO_RESERVE_REC);
2440: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
2441: END;
2442:
2443: IF ( l_row_notfound ) THEN
2440: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
2441: END;
2442:
2443: IF ( l_row_notfound ) THEN
2444: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2445: RAISE OKC_API.G_EXCEPTION_ERROR;
2446: END IF;
2447: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2448:
2441: END;
2442:
2443: IF ( l_row_notfound ) THEN
2444: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2445: RAISE OKC_API.G_EXCEPTION_ERROR;
2446: END IF;
2447: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2448:
2449: IF (l_debug = 'Y') THEN
2443: IF ( l_row_notfound ) THEN
2444: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2445: RAISE OKC_API.G_EXCEPTION_ERROR;
2446: END IF;
2447: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2448:
2449: IF (l_debug = 'Y') THEN
2450: okc_debug.log('8700: Exiting lock_row', 2);
2451: okc_debug.Reset_Indentation;
2451: okc_debug.Reset_Indentation;
2452: END IF;
2453:
2454: EXCEPTION
2455: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2456:
2457: IF (l_debug = 'Y') THEN
2458: okc_debug.log('8800: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2459: okc_debug.Reset_Indentation;
2454: EXCEPTION
2455: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2456:
2457: IF (l_debug = 'Y') THEN
2458: okc_debug.log('8800: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2459: okc_debug.Reset_Indentation;
2460: END IF;
2461:
2462: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2458: okc_debug.log('8800: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2459: okc_debug.Reset_Indentation;
2460: END IF;
2461:
2462: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2463: (
2464: l_api_name,
2465: G_PKG_NAME,
2466: 'OKC_API.G_RET_STS_ERROR',
2462: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2463: (
2464: l_api_name,
2465: G_PKG_NAME,
2466: 'OKC_API.G_RET_STS_ERROR',
2467: x_msg_count,
2468: x_msg_data,
2469: '_PVT'
2470: );
2467: x_msg_count,
2468: x_msg_data,
2469: '_PVT'
2470: );
2471: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2472:
2473: IF (l_debug = 'Y') THEN
2474: okc_debug.log('8900: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2475: okc_debug.Reset_Indentation;
2470: );
2471: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2472:
2473: IF (l_debug = 'Y') THEN
2474: okc_debug.log('8900: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2475: okc_debug.Reset_Indentation;
2476: END IF;
2477:
2478: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2474: okc_debug.log('8900: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2475: okc_debug.Reset_Indentation;
2476: END IF;
2477:
2478: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2479: (
2480: l_api_name,
2481: G_PKG_NAME,
2482: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2478: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2479: (
2480: l_api_name,
2481: G_PKG_NAME,
2482: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2483: x_msg_count,
2484: x_msg_data,
2485: '_PVT'
2486: );
2490: okc_debug.log('9000: Exiting lock_row:OTHERS Exception', 2);
2491: okc_debug.Reset_Indentation;
2492: END IF;
2493:
2494: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2495: (
2496: l_api_name,
2497: G_PKG_NAME,
2498: 'OTHERS',
2514: p_scnv_rec IN scnv_rec_type) IS
2515:
2516: l_api_version CONSTANT NUMBER := 1;
2517: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
2518: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2519: l_scn_rec scn_rec_type;
2520: l_okc_sections_tl_rec okc_sections_tl_rec_type;
2521: BEGIN
2522:
2524: okc_debug.Set_Indentation('OKC_SCN_PVT');
2525: okc_debug.log('9100: Entered lock_row', 2);
2526: END IF;
2527:
2528: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2529: G_PKG_NAME,
2530: p_init_msg_list,
2531: l_api_version,
2532: p_api_version,
2531: l_api_version,
2532: p_api_version,
2533: '_PVT',
2534: x_return_status);
2535: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2536: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2537: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2538: RAISE OKC_API.G_EXCEPTION_ERROR;
2539: END IF;
2532: p_api_version,
2533: '_PVT',
2534: x_return_status);
2535: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2536: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2537: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2538: RAISE OKC_API.G_EXCEPTION_ERROR;
2539: END IF;
2540: --------------------------------------
2533: '_PVT',
2534: x_return_status);
2535: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2536: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2537: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2538: RAISE OKC_API.G_EXCEPTION_ERROR;
2539: END IF;
2540: --------------------------------------
2541: -- Move VIEW record to "Child" records
2534: x_return_status);
2535: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2536: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2537: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2538: RAISE OKC_API.G_EXCEPTION_ERROR;
2539: END IF;
2540: --------------------------------------
2541: -- Move VIEW record to "Child" records
2542: --------------------------------------
2551: x_msg_count,
2552: x_msg_data,
2553: l_scn_rec
2554: );
2555: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2556: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2557: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2558: RAISE OKC_API.G_EXCEPTION_ERROR;
2559: END IF;
2552: x_msg_data,
2553: l_scn_rec
2554: );
2555: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2556: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2557: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2558: RAISE OKC_API.G_EXCEPTION_ERROR;
2559: END IF;
2560: lock_row(
2553: l_scn_rec
2554: );
2555: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2556: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2557: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2558: RAISE OKC_API.G_EXCEPTION_ERROR;
2559: END IF;
2560: lock_row(
2561: p_init_msg_list,
2554: );
2555: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2556: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2557: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2558: RAISE OKC_API.G_EXCEPTION_ERROR;
2559: END IF;
2560: lock_row(
2561: p_init_msg_list,
2562: x_return_status,
2563: x_msg_count,
2564: x_msg_data,
2565: l_okc_sections_tl_rec
2566: );
2567: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2568: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2569: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2570: RAISE OKC_API.G_EXCEPTION_ERROR;
2571: END IF;
2564: x_msg_data,
2565: l_okc_sections_tl_rec
2566: );
2567: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2568: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2569: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2570: RAISE OKC_API.G_EXCEPTION_ERROR;
2571: END IF;
2572: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2565: l_okc_sections_tl_rec
2566: );
2567: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2568: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2569: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2570: RAISE OKC_API.G_EXCEPTION_ERROR;
2571: END IF;
2572: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2573:
2566: );
2567: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2568: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2569: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2570: RAISE OKC_API.G_EXCEPTION_ERROR;
2571: END IF;
2572: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2573:
2574: IF (l_debug = 'Y') THEN
2568: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2569: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2570: RAISE OKC_API.G_EXCEPTION_ERROR;
2571: END IF;
2572: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2573:
2574: IF (l_debug = 'Y') THEN
2575: okc_debug.log('9200: Leaving lock_row', 2);
2576: okc_debug.Reset_Indentation;
2575: okc_debug.log('9200: Leaving lock_row', 2);
2576: okc_debug.Reset_Indentation;
2577: END IF;
2578: EXCEPTION
2579: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2580:
2581: IF (l_debug = 'Y') THEN
2582: okc_debug.log('9300: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2583: okc_debug.Reset_Indentation;
2578: EXCEPTION
2579: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2580:
2581: IF (l_debug = 'Y') THEN
2582: okc_debug.log('9300: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2583: okc_debug.Reset_Indentation;
2584: END IF;
2585:
2586: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2582: okc_debug.log('9300: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2583: okc_debug.Reset_Indentation;
2584: END IF;
2585:
2586: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2587: (
2588: l_api_name,
2589: G_PKG_NAME,
2590: 'OKC_API.G_RET_STS_ERROR',
2586: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2587: (
2588: l_api_name,
2589: G_PKG_NAME,
2590: 'OKC_API.G_RET_STS_ERROR',
2591: x_msg_count,
2592: x_msg_data,
2593: '_PVT'
2594: );
2591: x_msg_count,
2592: x_msg_data,
2593: '_PVT'
2594: );
2595: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2596:
2597: IF (l_debug = 'Y') THEN
2598: okc_debug.log('9400: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2599: okc_debug.Reset_Indentation;
2594: );
2595: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2596:
2597: IF (l_debug = 'Y') THEN
2598: okc_debug.log('9400: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2599: okc_debug.Reset_Indentation;
2600: END IF;
2601:
2602: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2598: okc_debug.log('9400: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2599: okc_debug.Reset_Indentation;
2600: END IF;
2601:
2602: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2603: (
2604: l_api_name,
2605: G_PKG_NAME,
2606: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2602: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2603: (
2604: l_api_name,
2605: G_PKG_NAME,
2606: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2607: x_msg_count,
2608: x_msg_data,
2609: '_PVT'
2610: );
2614: okc_debug.log('9500: Exiting lock_row:OTHERS Exception', 2);
2615: okc_debug.Reset_Indentation;
2616: END IF;
2617:
2618: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2619: (
2620: l_api_name,
2621: G_PKG_NAME,
2622: 'OTHERS',
2638: p_scnv_tbl IN scnv_tbl_type) IS
2639:
2640: l_api_version CONSTANT NUMBER := 1;
2641: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
2642: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2643: i NUMBER := 0;
2644: BEGIN
2645:
2646: IF (l_debug = 'Y') THEN
2647: okc_debug.Set_Indentation('OKC_SCN_PVT');
2648: okc_debug.log('9600: Entered lock_row', 2);
2649: END IF;
2650:
2651: OKC_API.init_msg_list(p_init_msg_list);
2652: -- Make sure PL/SQL table has records in it before passing
2653: IF (p_scnv_tbl.COUNT > 0) THEN
2654: i := p_scnv_tbl.FIRST;
2655: LOOP
2654: i := p_scnv_tbl.FIRST;
2655: LOOP
2656: lock_row (
2657: p_api_version => p_api_version,
2658: p_init_msg_list => OKC_API.G_FALSE,
2659: x_return_status => x_return_status,
2660: x_msg_count => x_msg_count,
2661: x_msg_data => x_msg_data,
2662: p_scnv_rec => p_scnv_tbl(i));
2670: okc_debug.Reset_Indentation;
2671: END IF;
2672:
2673: EXCEPTION
2674: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2675:
2676: IF (l_debug = 'Y') THEN
2677: okc_debug.log('9800: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2678: okc_debug.Reset_Indentation;
2673: EXCEPTION
2674: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2675:
2676: IF (l_debug = 'Y') THEN
2677: okc_debug.log('9800: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2678: okc_debug.Reset_Indentation;
2679: END IF;
2680:
2681: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2677: okc_debug.log('9800: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2678: okc_debug.Reset_Indentation;
2679: END IF;
2680:
2681: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2682: (
2683: l_api_name,
2684: G_PKG_NAME,
2685: 'OKC_API.G_RET_STS_ERROR',
2681: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2682: (
2683: l_api_name,
2684: G_PKG_NAME,
2685: 'OKC_API.G_RET_STS_ERROR',
2686: x_msg_count,
2687: x_msg_data,
2688: '_PVT'
2689: );
2686: x_msg_count,
2687: x_msg_data,
2688: '_PVT'
2689: );
2690: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2691:
2692: IF (l_debug = 'Y') THEN
2693: okc_debug.log('9900: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2694: okc_debug.Reset_Indentation;
2689: );
2690: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2691:
2692: IF (l_debug = 'Y') THEN
2693: okc_debug.log('9900: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2694: okc_debug.Reset_Indentation;
2695: END IF;
2696:
2697: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2693: okc_debug.log('9900: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2694: okc_debug.Reset_Indentation;
2695: END IF;
2696:
2697: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2698: (
2699: l_api_name,
2700: G_PKG_NAME,
2701: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2697: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2698: (
2699: l_api_name,
2700: G_PKG_NAME,
2701: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2702: x_msg_count,
2703: x_msg_data,
2704: '_PVT'
2705: );
2709: okc_debug.log('10000: Exiting lock_row:OTHERS Exception', 2);
2710: okc_debug.Reset_Indentation;
2711: END IF;
2712:
2713: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2714: (
2715: l_api_name,
2716: G_PKG_NAME,
2717: 'OTHERS',
2737: x_scn_rec OUT NOCOPY scn_rec_type) IS
2738:
2739: l_api_version CONSTANT NUMBER := 1;
2740: l_api_name CONSTANT VARCHAR2(30) := 'B_update_row';
2741: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2742: l_scn_rec scn_rec_type := p_scn_rec;
2743: l_def_scn_rec scn_rec_type;
2744: l_row_notfound BOOLEAN := TRUE;
2745: ----------------------------------
2750: x_scn_rec OUT NOCOPY scn_rec_type
2751: ) RETURN VARCHAR2 IS
2752: l_scn_rec scn_rec_type;
2753: l_row_notfound BOOLEAN := TRUE;
2754: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2755: BEGIN
2756:
2757: IF (l_debug = 'Y') THEN
2758: okc_debug.Set_Indentation('OKC_SCN_PVT');
2762: x_scn_rec := p_scn_rec;
2763: -- Get current database values
2764: l_scn_rec := get_rec(p_scn_rec, l_row_notfound);
2765: IF (l_row_notfound) THEN
2766: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2767: END IF;
2768: IF (x_scn_rec.id = OKC_API.G_MISS_NUM)
2769: THEN
2770: x_scn_rec.id := l_scn_rec.id;
2764: l_scn_rec := get_rec(p_scn_rec, l_row_notfound);
2765: IF (l_row_notfound) THEN
2766: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2767: END IF;
2768: IF (x_scn_rec.id = OKC_API.G_MISS_NUM)
2769: THEN
2770: x_scn_rec.id := l_scn_rec.id;
2771: END IF;
2772: IF (x_scn_rec.scn_type = OKC_API.G_MISS_CHAR)
2768: IF (x_scn_rec.id = OKC_API.G_MISS_NUM)
2769: THEN
2770: x_scn_rec.id := l_scn_rec.id;
2771: END IF;
2772: IF (x_scn_rec.scn_type = OKC_API.G_MISS_CHAR)
2773: THEN
2774: x_scn_rec.scn_type := l_scn_rec.scn_type;
2775: END IF;
2776: IF (x_scn_rec.chr_id = OKC_API.G_MISS_NUM)
2772: IF (x_scn_rec.scn_type = OKC_API.G_MISS_CHAR)
2773: THEN
2774: x_scn_rec.scn_type := l_scn_rec.scn_type;
2775: END IF;
2776: IF (x_scn_rec.chr_id = OKC_API.G_MISS_NUM)
2777: THEN
2778: x_scn_rec.chr_id := l_scn_rec.chr_id;
2779: END IF;
2780: IF (x_scn_rec.sat_code = OKC_API.G_MISS_CHAR)
2776: IF (x_scn_rec.chr_id = OKC_API.G_MISS_NUM)
2777: THEN
2778: x_scn_rec.chr_id := l_scn_rec.chr_id;
2779: END IF;
2780: IF (x_scn_rec.sat_code = OKC_API.G_MISS_CHAR)
2781: THEN
2782: x_scn_rec.sat_code := l_scn_rec.sat_code;
2783: END IF;
2784: IF (x_scn_rec.section_sequence = OKC_API.G_MISS_NUM)
2780: IF (x_scn_rec.sat_code = OKC_API.G_MISS_CHAR)
2781: THEN
2782: x_scn_rec.sat_code := l_scn_rec.sat_code;
2783: END IF;
2784: IF (x_scn_rec.section_sequence = OKC_API.G_MISS_NUM)
2785: THEN
2786: x_scn_rec.section_sequence := l_scn_rec.section_sequence;
2787: END IF;
2788: IF (x_scn_rec.object_version_number = OKC_API.G_MISS_NUM)
2784: IF (x_scn_rec.section_sequence = OKC_API.G_MISS_NUM)
2785: THEN
2786: x_scn_rec.section_sequence := l_scn_rec.section_sequence;
2787: END IF;
2788: IF (x_scn_rec.object_version_number = OKC_API.G_MISS_NUM)
2789: THEN
2790: x_scn_rec.object_version_number := l_scn_rec.object_version_number;
2791: END IF;
2792: IF (x_scn_rec.created_by = OKC_API.G_MISS_NUM)
2788: IF (x_scn_rec.object_version_number = OKC_API.G_MISS_NUM)
2789: THEN
2790: x_scn_rec.object_version_number := l_scn_rec.object_version_number;
2791: END IF;
2792: IF (x_scn_rec.created_by = OKC_API.G_MISS_NUM)
2793: THEN
2794: x_scn_rec.created_by := l_scn_rec.created_by;
2795: END IF;
2796: IF (x_scn_rec.creation_date = OKC_API.G_MISS_DATE)
2792: IF (x_scn_rec.created_by = OKC_API.G_MISS_NUM)
2793: THEN
2794: x_scn_rec.created_by := l_scn_rec.created_by;
2795: END IF;
2796: IF (x_scn_rec.creation_date = OKC_API.G_MISS_DATE)
2797: THEN
2798: x_scn_rec.creation_date := l_scn_rec.creation_date;
2799: END IF;
2800: IF (x_scn_rec.last_updated_by = OKC_API.G_MISS_NUM)
2796: IF (x_scn_rec.creation_date = OKC_API.G_MISS_DATE)
2797: THEN
2798: x_scn_rec.creation_date := l_scn_rec.creation_date;
2799: END IF;
2800: IF (x_scn_rec.last_updated_by = OKC_API.G_MISS_NUM)
2801: THEN
2802: x_scn_rec.last_updated_by := l_scn_rec.last_updated_by;
2803: END IF;
2804: IF (x_scn_rec.last_update_date = OKC_API.G_MISS_DATE)
2800: IF (x_scn_rec.last_updated_by = OKC_API.G_MISS_NUM)
2801: THEN
2802: x_scn_rec.last_updated_by := l_scn_rec.last_updated_by;
2803: END IF;
2804: IF (x_scn_rec.last_update_date = OKC_API.G_MISS_DATE)
2805: THEN
2806: x_scn_rec.last_update_date := l_scn_rec.last_update_date;
2807: END IF;
2808: IF (x_scn_rec.last_update_login = OKC_API.G_MISS_NUM)
2804: IF (x_scn_rec.last_update_date = OKC_API.G_MISS_DATE)
2805: THEN
2806: x_scn_rec.last_update_date := l_scn_rec.last_update_date;
2807: END IF;
2808: IF (x_scn_rec.last_update_login = OKC_API.G_MISS_NUM)
2809: THEN
2810: x_scn_rec.last_update_login := l_scn_rec.last_update_login;
2811: END IF;
2812: IF (x_scn_rec.label = OKC_API.G_MISS_CHAR)
2808: IF (x_scn_rec.last_update_login = OKC_API.G_MISS_NUM)
2809: THEN
2810: x_scn_rec.last_update_login := l_scn_rec.last_update_login;
2811: END IF;
2812: IF (x_scn_rec.label = OKC_API.G_MISS_CHAR)
2813: THEN
2814: x_scn_rec.label := l_scn_rec.label;
2815: END IF;
2816: IF (x_scn_rec.scn_id = OKC_API.G_MISS_NUM)
2812: IF (x_scn_rec.label = OKC_API.G_MISS_CHAR)
2813: THEN
2814: x_scn_rec.label := l_scn_rec.label;
2815: END IF;
2816: IF (x_scn_rec.scn_id = OKC_API.G_MISS_NUM)
2817: THEN
2818: x_scn_rec.scn_id := l_scn_rec.scn_id;
2819: END IF;
2820: IF (x_scn_rec.attribute_category = OKC_API.G_MISS_CHAR)
2816: IF (x_scn_rec.scn_id = OKC_API.G_MISS_NUM)
2817: THEN
2818: x_scn_rec.scn_id := l_scn_rec.scn_id;
2819: END IF;
2820: IF (x_scn_rec.attribute_category = OKC_API.G_MISS_CHAR)
2821: THEN
2822: x_scn_rec.attribute_category := l_scn_rec.attribute_category;
2823: END IF;
2824: IF (x_scn_rec.attribute1 = OKC_API.G_MISS_CHAR)
2820: IF (x_scn_rec.attribute_category = OKC_API.G_MISS_CHAR)
2821: THEN
2822: x_scn_rec.attribute_category := l_scn_rec.attribute_category;
2823: END IF;
2824: IF (x_scn_rec.attribute1 = OKC_API.G_MISS_CHAR)
2825: THEN
2826: x_scn_rec.attribute1 := l_scn_rec.attribute1;
2827: END IF;
2828: IF (x_scn_rec.attribute2 = OKC_API.G_MISS_CHAR)
2824: IF (x_scn_rec.attribute1 = OKC_API.G_MISS_CHAR)
2825: THEN
2826: x_scn_rec.attribute1 := l_scn_rec.attribute1;
2827: END IF;
2828: IF (x_scn_rec.attribute2 = OKC_API.G_MISS_CHAR)
2829: THEN
2830: x_scn_rec.attribute2 := l_scn_rec.attribute2;
2831: END IF;
2832: IF (x_scn_rec.attribute3 = OKC_API.G_MISS_CHAR)
2828: IF (x_scn_rec.attribute2 = OKC_API.G_MISS_CHAR)
2829: THEN
2830: x_scn_rec.attribute2 := l_scn_rec.attribute2;
2831: END IF;
2832: IF (x_scn_rec.attribute3 = OKC_API.G_MISS_CHAR)
2833: THEN
2834: x_scn_rec.attribute3 := l_scn_rec.attribute3;
2835: END IF;
2836: IF (x_scn_rec.attribute4 = OKC_API.G_MISS_CHAR)
2832: IF (x_scn_rec.attribute3 = OKC_API.G_MISS_CHAR)
2833: THEN
2834: x_scn_rec.attribute3 := l_scn_rec.attribute3;
2835: END IF;
2836: IF (x_scn_rec.attribute4 = OKC_API.G_MISS_CHAR)
2837: THEN
2838: x_scn_rec.attribute4 := l_scn_rec.attribute4;
2839: END IF;
2840: IF (x_scn_rec.attribute5 = OKC_API.G_MISS_CHAR)
2836: IF (x_scn_rec.attribute4 = OKC_API.G_MISS_CHAR)
2837: THEN
2838: x_scn_rec.attribute4 := l_scn_rec.attribute4;
2839: END IF;
2840: IF (x_scn_rec.attribute5 = OKC_API.G_MISS_CHAR)
2841: THEN
2842: x_scn_rec.attribute5 := l_scn_rec.attribute5;
2843: END IF;
2844: IF (x_scn_rec.attribute6 = OKC_API.G_MISS_CHAR)
2840: IF (x_scn_rec.attribute5 = OKC_API.G_MISS_CHAR)
2841: THEN
2842: x_scn_rec.attribute5 := l_scn_rec.attribute5;
2843: END IF;
2844: IF (x_scn_rec.attribute6 = OKC_API.G_MISS_CHAR)
2845: THEN
2846: x_scn_rec.attribute6 := l_scn_rec.attribute6;
2847: END IF;
2848: IF (x_scn_rec.attribute7 = OKC_API.G_MISS_CHAR)
2844: IF (x_scn_rec.attribute6 = OKC_API.G_MISS_CHAR)
2845: THEN
2846: x_scn_rec.attribute6 := l_scn_rec.attribute6;
2847: END IF;
2848: IF (x_scn_rec.attribute7 = OKC_API.G_MISS_CHAR)
2849: THEN
2850: x_scn_rec.attribute7 := l_scn_rec.attribute7;
2851: END IF;
2852: IF (x_scn_rec.attribute8 = OKC_API.G_MISS_CHAR)
2848: IF (x_scn_rec.attribute7 = OKC_API.G_MISS_CHAR)
2849: THEN
2850: x_scn_rec.attribute7 := l_scn_rec.attribute7;
2851: END IF;
2852: IF (x_scn_rec.attribute8 = OKC_API.G_MISS_CHAR)
2853: THEN
2854: x_scn_rec.attribute8 := l_scn_rec.attribute8;
2855: END IF;
2856: IF (x_scn_rec.attribute9 = OKC_API.G_MISS_CHAR)
2852: IF (x_scn_rec.attribute8 = OKC_API.G_MISS_CHAR)
2853: THEN
2854: x_scn_rec.attribute8 := l_scn_rec.attribute8;
2855: END IF;
2856: IF (x_scn_rec.attribute9 = OKC_API.G_MISS_CHAR)
2857: THEN
2858: x_scn_rec.attribute9 := l_scn_rec.attribute9;
2859: END IF;
2860: IF (x_scn_rec.attribute10 = OKC_API.G_MISS_CHAR)
2856: IF (x_scn_rec.attribute9 = OKC_API.G_MISS_CHAR)
2857: THEN
2858: x_scn_rec.attribute9 := l_scn_rec.attribute9;
2859: END IF;
2860: IF (x_scn_rec.attribute10 = OKC_API.G_MISS_CHAR)
2861: THEN
2862: x_scn_rec.attribute10 := l_scn_rec.attribute10;
2863: END IF;
2864: IF (x_scn_rec.attribute11 = OKC_API.G_MISS_CHAR)
2860: IF (x_scn_rec.attribute10 = OKC_API.G_MISS_CHAR)
2861: THEN
2862: x_scn_rec.attribute10 := l_scn_rec.attribute10;
2863: END IF;
2864: IF (x_scn_rec.attribute11 = OKC_API.G_MISS_CHAR)
2865: THEN
2866: x_scn_rec.attribute11 := l_scn_rec.attribute11;
2867: END IF;
2868: IF (x_scn_rec.attribute12 = OKC_API.G_MISS_CHAR)
2864: IF (x_scn_rec.attribute11 = OKC_API.G_MISS_CHAR)
2865: THEN
2866: x_scn_rec.attribute11 := l_scn_rec.attribute11;
2867: END IF;
2868: IF (x_scn_rec.attribute12 = OKC_API.G_MISS_CHAR)
2869: THEN
2870: x_scn_rec.attribute12 := l_scn_rec.attribute12;
2871: END IF;
2872: IF (x_scn_rec.attribute13 = OKC_API.G_MISS_CHAR)
2868: IF (x_scn_rec.attribute12 = OKC_API.G_MISS_CHAR)
2869: THEN
2870: x_scn_rec.attribute12 := l_scn_rec.attribute12;
2871: END IF;
2872: IF (x_scn_rec.attribute13 = OKC_API.G_MISS_CHAR)
2873: THEN
2874: x_scn_rec.attribute13 := l_scn_rec.attribute13;
2875: END IF;
2876: IF (x_scn_rec.attribute14 = OKC_API.G_MISS_CHAR)
2872: IF (x_scn_rec.attribute13 = OKC_API.G_MISS_CHAR)
2873: THEN
2874: x_scn_rec.attribute13 := l_scn_rec.attribute13;
2875: END IF;
2876: IF (x_scn_rec.attribute14 = OKC_API.G_MISS_CHAR)
2877: THEN
2878: x_scn_rec.attribute14 := l_scn_rec.attribute14;
2879: END IF;
2880: IF (x_scn_rec.attribute15 = OKC_API.G_MISS_CHAR)
2876: IF (x_scn_rec.attribute14 = OKC_API.G_MISS_CHAR)
2877: THEN
2878: x_scn_rec.attribute14 := l_scn_rec.attribute14;
2879: END IF;
2880: IF (x_scn_rec.attribute15 = OKC_API.G_MISS_CHAR)
2881: THEN
2882: x_scn_rec.attribute15 := l_scn_rec.attribute15;
2883: END IF;
2884:
2895: FUNCTION Set_Attributes (
2896: p_scn_rec IN scn_rec_type,
2897: x_scn_rec OUT NOCOPY scn_rec_type
2898: ) RETURN VARCHAR2 IS
2899: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2900: BEGIN
2901:
2902: x_scn_rec := p_scn_rec;
2903: RETURN(l_return_status);
2909: okc_debug.Set_Indentation('OKC_SCN_PVT');
2910: okc_debug.log('10300: Entered update_row', 2);
2911: END IF;
2912:
2913: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2914: p_init_msg_list,
2915: '_PVT',
2916: x_return_status);
2917: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2913: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2914: p_init_msg_list,
2915: '_PVT',
2916: x_return_status);
2917: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2918: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2919: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2920: RAISE OKC_API.G_EXCEPTION_ERROR;
2921: END IF;
2914: p_init_msg_list,
2915: '_PVT',
2916: x_return_status);
2917: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2918: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2919: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2920: RAISE OKC_API.G_EXCEPTION_ERROR;
2921: END IF;
2922: --- Setting item attributes
2915: '_PVT',
2916: x_return_status);
2917: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2918: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2919: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2920: RAISE OKC_API.G_EXCEPTION_ERROR;
2921: END IF;
2922: --- Setting item attributes
2923: l_return_status := Set_Attributes(
2916: x_return_status);
2917: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2918: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2919: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2920: RAISE OKC_API.G_EXCEPTION_ERROR;
2921: END IF;
2922: --- Setting item attributes
2923: l_return_status := Set_Attributes(
2924: p_scn_rec, -- IN
2923: l_return_status := Set_Attributes(
2924: p_scn_rec, -- IN
2925: l_scn_rec); -- OUT
2926: --- If any errors happen abort API
2927: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2928: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2929: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2930: RAISE OKC_API.G_EXCEPTION_ERROR;
2931: END IF;
2924: p_scn_rec, -- IN
2925: l_scn_rec); -- OUT
2926: --- If any errors happen abort API
2927: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2928: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2929: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2930: RAISE OKC_API.G_EXCEPTION_ERROR;
2931: END IF;
2932: l_return_status := populate_new_record(l_scn_rec, l_def_scn_rec);
2925: l_scn_rec); -- OUT
2926: --- If any errors happen abort API
2927: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2928: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2929: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2930: RAISE OKC_API.G_EXCEPTION_ERROR;
2931: END IF;
2932: l_return_status := populate_new_record(l_scn_rec, l_def_scn_rec);
2933: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2926: --- If any errors happen abort API
2927: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2928: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2929: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2930: RAISE OKC_API.G_EXCEPTION_ERROR;
2931: END IF;
2932: l_return_status := populate_new_record(l_scn_rec, l_def_scn_rec);
2933: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2934: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2929: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2930: RAISE OKC_API.G_EXCEPTION_ERROR;
2931: END IF;
2932: l_return_status := populate_new_record(l_scn_rec, l_def_scn_rec);
2933: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2934: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2935: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2936: RAISE OKC_API.G_EXCEPTION_ERROR;
2937: END IF;
2930: RAISE OKC_API.G_EXCEPTION_ERROR;
2931: END IF;
2932: l_return_status := populate_new_record(l_scn_rec, l_def_scn_rec);
2933: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2934: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2935: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2936: RAISE OKC_API.G_EXCEPTION_ERROR;
2937: END IF;
2938: UPDATE OKC_SECTIONS_B
2931: END IF;
2932: l_return_status := populate_new_record(l_scn_rec, l_def_scn_rec);
2933: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2934: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2935: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2936: RAISE OKC_API.G_EXCEPTION_ERROR;
2937: END IF;
2938: UPDATE OKC_SECTIONS_B
2939: SET SCN_TYPE = l_def_scn_rec.scn_type,
2932: l_return_status := populate_new_record(l_scn_rec, l_def_scn_rec);
2933: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2934: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2935: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2936: RAISE OKC_API.G_EXCEPTION_ERROR;
2937: END IF;
2938: UPDATE OKC_SECTIONS_B
2939: SET SCN_TYPE = l_def_scn_rec.scn_type,
2940: CHR_ID = l_def_scn_rec.chr_id,
2966: ATTRIBUTE15 = l_def_scn_rec.attribute15
2967: WHERE ID = l_def_scn_rec.id;
2968:
2969: x_scn_rec := l_def_scn_rec;
2970: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2971:
2972: IF (l_debug = 'Y') THEN
2973: okc_debug.log('10400: Leaving update_row', 2);
2974: okc_debug.Reset_Indentation;
2974: okc_debug.Reset_Indentation;
2975: END IF;
2976:
2977: EXCEPTION
2978: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2979:
2980: IF (l_debug = 'Y') THEN
2981: okc_debug.log('10500: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2982: okc_debug.Reset_Indentation;
2977: EXCEPTION
2978: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2979:
2980: IF (l_debug = 'Y') THEN
2981: okc_debug.log('10500: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2982: okc_debug.Reset_Indentation;
2983: END IF;
2984:
2985: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2981: okc_debug.log('10500: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2982: okc_debug.Reset_Indentation;
2983: END IF;
2984:
2985: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2986: (
2987: l_api_name,
2988: G_PKG_NAME,
2989: 'OKC_API.G_RET_STS_ERROR',
2985: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2986: (
2987: l_api_name,
2988: G_PKG_NAME,
2989: 'OKC_API.G_RET_STS_ERROR',
2990: x_msg_count,
2991: x_msg_data,
2992: '_PVT'
2993: );
2990: x_msg_count,
2991: x_msg_data,
2992: '_PVT'
2993: );
2994: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2995:
2996: IF (l_debug = 'Y') THEN
2997: okc_debug.log('10600: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2998: okc_debug.Reset_Indentation;
2993: );
2994: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2995:
2996: IF (l_debug = 'Y') THEN
2997: okc_debug.log('10600: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2998: okc_debug.Reset_Indentation;
2999: END IF;
3000:
3001: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2997: okc_debug.log('10600: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2998: okc_debug.Reset_Indentation;
2999: END IF;
3000:
3001: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3002: (
3003: l_api_name,
3004: G_PKG_NAME,
3005: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3001: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3002: (
3003: l_api_name,
3004: G_PKG_NAME,
3005: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3006: x_msg_count,
3007: x_msg_data,
3008: '_PVT'
3009: );
3013: okc_debug.log('10700: Exiting update_row:OTHERS Exception', 2);
3014: okc_debug.Reset_Indentation;
3015: END IF;
3016:
3017: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3018: (
3019: l_api_name,
3020: G_PKG_NAME,
3021: 'OTHERS',
3037: x_okc_sections_tl_rec OUT NOCOPY okc_sections_tl_rec_type) IS
3038:
3039: l_api_version CONSTANT NUMBER := 1;
3040: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
3041: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3042: l_okc_sections_tl_rec okc_sections_tl_rec_type := p_okc_sections_tl_rec;
3043: l_def_okc_sections_tl_rec okc_sections_tl_rec_type;
3044: l_row_notfound BOOLEAN := TRUE;
3045: ----------------------------------
3050: x_okc_sections_tl_rec OUT NOCOPY okc_sections_tl_rec_type
3051: ) RETURN VARCHAR2 IS
3052: l_okc_sections_tl_rec okc_sections_tl_rec_type;
3053: l_row_notfound BOOLEAN := TRUE;
3054: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3055: BEGIN
3056:
3057: IF (l_debug = 'Y') THEN
3058: okc_debug.Set_Indentation('OKC_SCN_PVT');
3062: x_okc_sections_tl_rec := p_okc_sections_tl_rec;
3063: -- Get current database values
3064: l_okc_sections_tl_rec := get_rec(p_okc_sections_tl_rec, l_row_notfound);
3065: IF (l_row_notfound) THEN
3066: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
3067: END IF;
3068: IF (x_okc_sections_tl_rec.id = OKC_API.G_MISS_NUM)
3069: THEN
3070: x_okc_sections_tl_rec.id := l_okc_sections_tl_rec.id;
3064: l_okc_sections_tl_rec := get_rec(p_okc_sections_tl_rec, l_row_notfound);
3065: IF (l_row_notfound) THEN
3066: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
3067: END IF;
3068: IF (x_okc_sections_tl_rec.id = OKC_API.G_MISS_NUM)
3069: THEN
3070: x_okc_sections_tl_rec.id := l_okc_sections_tl_rec.id;
3071: END IF;
3072: IF (x_okc_sections_tl_rec.language = OKC_API.G_MISS_CHAR)
3068: IF (x_okc_sections_tl_rec.id = OKC_API.G_MISS_NUM)
3069: THEN
3070: x_okc_sections_tl_rec.id := l_okc_sections_tl_rec.id;
3071: END IF;
3072: IF (x_okc_sections_tl_rec.language = OKC_API.G_MISS_CHAR)
3073: THEN
3074: x_okc_sections_tl_rec.language := l_okc_sections_tl_rec.language;
3075: END IF;
3076: IF (x_okc_sections_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
3072: IF (x_okc_sections_tl_rec.language = OKC_API.G_MISS_CHAR)
3073: THEN
3074: x_okc_sections_tl_rec.language := l_okc_sections_tl_rec.language;
3075: END IF;
3076: IF (x_okc_sections_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
3077: THEN
3078: x_okc_sections_tl_rec.source_lang := l_okc_sections_tl_rec.source_lang;
3079: END IF;
3080: IF (x_okc_sections_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
3076: IF (x_okc_sections_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
3077: THEN
3078: x_okc_sections_tl_rec.source_lang := l_okc_sections_tl_rec.source_lang;
3079: END IF;
3080: IF (x_okc_sections_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
3081: THEN
3082: x_okc_sections_tl_rec.sfwt_flag := l_okc_sections_tl_rec.sfwt_flag;
3083: END IF;
3084: IF (x_okc_sections_tl_rec.heading = OKC_API.G_MISS_CHAR)
3080: IF (x_okc_sections_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
3081: THEN
3082: x_okc_sections_tl_rec.sfwt_flag := l_okc_sections_tl_rec.sfwt_flag;
3083: END IF;
3084: IF (x_okc_sections_tl_rec.heading = OKC_API.G_MISS_CHAR)
3085: THEN
3086: x_okc_sections_tl_rec.heading := l_okc_sections_tl_rec.heading;
3087: END IF;
3088: IF (x_okc_sections_tl_rec.created_by = OKC_API.G_MISS_NUM)
3084: IF (x_okc_sections_tl_rec.heading = OKC_API.G_MISS_CHAR)
3085: THEN
3086: x_okc_sections_tl_rec.heading := l_okc_sections_tl_rec.heading;
3087: END IF;
3088: IF (x_okc_sections_tl_rec.created_by = OKC_API.G_MISS_NUM)
3089: THEN
3090: x_okc_sections_tl_rec.created_by := l_okc_sections_tl_rec.created_by;
3091: END IF;
3092: IF (x_okc_sections_tl_rec.creation_date = OKC_API.G_MISS_DATE)
3088: IF (x_okc_sections_tl_rec.created_by = OKC_API.G_MISS_NUM)
3089: THEN
3090: x_okc_sections_tl_rec.created_by := l_okc_sections_tl_rec.created_by;
3091: END IF;
3092: IF (x_okc_sections_tl_rec.creation_date = OKC_API.G_MISS_DATE)
3093: THEN
3094: x_okc_sections_tl_rec.creation_date := l_okc_sections_tl_rec.creation_date;
3095: END IF;
3096: IF (x_okc_sections_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
3092: IF (x_okc_sections_tl_rec.creation_date = OKC_API.G_MISS_DATE)
3093: THEN
3094: x_okc_sections_tl_rec.creation_date := l_okc_sections_tl_rec.creation_date;
3095: END IF;
3096: IF (x_okc_sections_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
3097: THEN
3098: x_okc_sections_tl_rec.last_updated_by := l_okc_sections_tl_rec.last_updated_by;
3099: END IF;
3100: IF (x_okc_sections_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
3096: IF (x_okc_sections_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
3097: THEN
3098: x_okc_sections_tl_rec.last_updated_by := l_okc_sections_tl_rec.last_updated_by;
3099: END IF;
3100: IF (x_okc_sections_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
3101: THEN
3102: x_okc_sections_tl_rec.last_update_date := l_okc_sections_tl_rec.last_update_date;
3103: END IF;
3104: IF (x_okc_sections_tl_rec.last_update_login = OKC_API.G_MISS_NUM)
3100: IF (x_okc_sections_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
3101: THEN
3102: x_okc_sections_tl_rec.last_update_date := l_okc_sections_tl_rec.last_update_date;
3103: END IF;
3104: IF (x_okc_sections_tl_rec.last_update_login = OKC_API.G_MISS_NUM)
3105: THEN
3106: x_okc_sections_tl_rec.last_update_login := l_okc_sections_tl_rec.last_update_login;
3107: END IF;
3108:
3119: FUNCTION Set_Attributes (
3120: p_okc_sections_tl_rec IN okc_sections_tl_rec_type,
3121: x_okc_sections_tl_rec OUT NOCOPY okc_sections_tl_rec_type
3122: ) RETURN VARCHAR2 IS
3123: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3124: BEGIN
3125:
3126: x_okc_sections_tl_rec := p_okc_sections_tl_rec;
3127: x_okc_sections_tl_rec.LANGUAGE := okc_util.get_userenv_lang;
3135: okc_debug.Set_Indentation('OKC_SCN_PVT');
3136: okc_debug.log('11000: Entered update_row', 2);
3137: END IF;
3138:
3139: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3140: p_init_msg_list,
3141: '_PVT',
3142: x_return_status);
3143: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3139: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3140: p_init_msg_list,
3141: '_PVT',
3142: x_return_status);
3143: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3144: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3145: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3146: RAISE OKC_API.G_EXCEPTION_ERROR;
3147: END IF;
3140: p_init_msg_list,
3141: '_PVT',
3142: x_return_status);
3143: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3144: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3145: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3146: RAISE OKC_API.G_EXCEPTION_ERROR;
3147: END IF;
3148: --- Setting item attributes
3141: '_PVT',
3142: x_return_status);
3143: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3144: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3145: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3146: RAISE OKC_API.G_EXCEPTION_ERROR;
3147: END IF;
3148: --- Setting item attributes
3149: l_return_status := Set_Attributes(
3142: x_return_status);
3143: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3144: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3145: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3146: RAISE OKC_API.G_EXCEPTION_ERROR;
3147: END IF;
3148: --- Setting item attributes
3149: l_return_status := Set_Attributes(
3150: p_okc_sections_tl_rec, -- IN
3149: l_return_status := Set_Attributes(
3150: p_okc_sections_tl_rec, -- IN
3151: l_okc_sections_tl_rec); -- OUT
3152: --- If any errors happen abort API
3153: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3154: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3155: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3156: RAISE OKC_API.G_EXCEPTION_ERROR;
3157: END IF;
3150: p_okc_sections_tl_rec, -- IN
3151: l_okc_sections_tl_rec); -- OUT
3152: --- If any errors happen abort API
3153: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3154: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3155: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3156: RAISE OKC_API.G_EXCEPTION_ERROR;
3157: END IF;
3158: l_return_status := populate_new_record(l_okc_sections_tl_rec, l_def_okc_sections_tl_rec);
3151: l_okc_sections_tl_rec); -- OUT
3152: --- If any errors happen abort API
3153: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3154: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3155: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3156: RAISE OKC_API.G_EXCEPTION_ERROR;
3157: END IF;
3158: l_return_status := populate_new_record(l_okc_sections_tl_rec, l_def_okc_sections_tl_rec);
3159: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3152: --- If any errors happen abort API
3153: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3154: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3155: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3156: RAISE OKC_API.G_EXCEPTION_ERROR;
3157: END IF;
3158: l_return_status := populate_new_record(l_okc_sections_tl_rec, l_def_okc_sections_tl_rec);
3159: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3160: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3155: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3156: RAISE OKC_API.G_EXCEPTION_ERROR;
3157: END IF;
3158: l_return_status := populate_new_record(l_okc_sections_tl_rec, l_def_okc_sections_tl_rec);
3159: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3160: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3161: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3162: RAISE OKC_API.G_EXCEPTION_ERROR;
3163: END IF;
3156: RAISE OKC_API.G_EXCEPTION_ERROR;
3157: END IF;
3158: l_return_status := populate_new_record(l_okc_sections_tl_rec, l_def_okc_sections_tl_rec);
3159: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3160: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3161: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3162: RAISE OKC_API.G_EXCEPTION_ERROR;
3163: END IF;
3164: UPDATE OKC_SECTIONS_TL
3157: END IF;
3158: l_return_status := populate_new_record(l_okc_sections_tl_rec, l_def_okc_sections_tl_rec);
3159: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3160: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3161: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3162: RAISE OKC_API.G_EXCEPTION_ERROR;
3163: END IF;
3164: UPDATE OKC_SECTIONS_TL
3165: SET HEADING = l_def_okc_sections_tl_rec.heading,
3158: l_return_status := populate_new_record(l_okc_sections_tl_rec, l_def_okc_sections_tl_rec);
3159: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3160: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3161: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3162: RAISE OKC_API.G_EXCEPTION_ERROR;
3163: END IF;
3164: UPDATE OKC_SECTIONS_TL
3165: SET HEADING = l_def_okc_sections_tl_rec.heading,
3166: CREATED_BY = l_def_okc_sections_tl_rec.created_by,
3176: WHERE ID = l_def_okc_sections_tl_rec.id
3177: AND SOURCE_LANG <> USERENV('LANG');
3178:
3179: x_okc_sections_tl_rec := l_def_okc_sections_tl_rec;
3180: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3181:
3182:
3183: IF (l_debug = 'Y') THEN
3184: okc_debug.log('11100: Leaving update_row', 2);
3185: okc_debug.Reset_Indentation;
3186: END IF;
3187:
3188: EXCEPTION
3189: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3190:
3191: IF (l_debug = 'Y') THEN
3192: okc_debug.log('11200: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3193: okc_debug.Reset_Indentation;
3188: EXCEPTION
3189: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3190:
3191: IF (l_debug = 'Y') THEN
3192: okc_debug.log('11200: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3193: okc_debug.Reset_Indentation;
3194: END IF;
3195:
3196: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3192: okc_debug.log('11200: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3193: okc_debug.Reset_Indentation;
3194: END IF;
3195:
3196: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3197: (
3198: l_api_name,
3199: G_PKG_NAME,
3200: 'OKC_API.G_RET_STS_ERROR',
3196: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3197: (
3198: l_api_name,
3199: G_PKG_NAME,
3200: 'OKC_API.G_RET_STS_ERROR',
3201: x_msg_count,
3202: x_msg_data,
3203: '_PVT'
3204: );
3201: x_msg_count,
3202: x_msg_data,
3203: '_PVT'
3204: );
3205: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3206:
3207: IF (l_debug = 'Y') THEN
3208: okc_debug.log('11300: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3209: okc_debug.Reset_Indentation;
3204: );
3205: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3206:
3207: IF (l_debug = 'Y') THEN
3208: okc_debug.log('11300: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3209: okc_debug.Reset_Indentation;
3210: END IF;
3211:
3212: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3208: okc_debug.log('11300: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3209: okc_debug.Reset_Indentation;
3210: END IF;
3211:
3212: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3213: (
3214: l_api_name,
3215: G_PKG_NAME,
3216: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3212: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3213: (
3214: l_api_name,
3215: G_PKG_NAME,
3216: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3217: x_msg_count,
3218: x_msg_data,
3219: '_PVT'
3220: );
3224: okc_debug.log('11400: Exiting update_row:OTHERS Exception', 2);
3225: okc_debug.Reset_Indentation;
3226: END IF;
3227:
3228: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3229: (
3230: l_api_name,
3231: G_PKG_NAME,
3232: 'OTHERS',
3249: x_scnv_rec OUT NOCOPY scnv_rec_type) IS
3250:
3251: l_api_version CONSTANT NUMBER := 1;
3252: l_api_name CONSTANT VARCHAR2(30) := 'V_update_row';
3253: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3254: l_scnv_rec scnv_rec_type := p_scnv_rec;
3255: l_def_scnv_rec scnv_rec_type;
3256: l_okc_sections_tl_rec okc_sections_tl_rec_type;
3257: lx_okc_sections_tl_rec okc_sections_tl_rec_type;
3280: x_scnv_rec OUT NOCOPY scnv_rec_type
3281: ) RETURN VARCHAR2 IS
3282: l_scnv_rec scnv_rec_type;
3283: l_row_notfound BOOLEAN := TRUE;
3284: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3285: BEGIN
3286:
3287: IF (l_debug = 'Y') THEN
3288: okc_debug.Set_Indentation('OKC_SCN_PVT');
3292: x_scnv_rec := p_scnv_rec;
3293: -- Get current database values
3294: l_scnv_rec := get_rec(p_scnv_rec, l_row_notfound);
3295: IF (l_row_notfound) THEN
3296: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
3297: END IF;
3298: IF (x_scnv_rec.id = OKC_API.G_MISS_NUM)
3299: THEN
3300: x_scnv_rec.id := l_scnv_rec.id;
3294: l_scnv_rec := get_rec(p_scnv_rec, l_row_notfound);
3295: IF (l_row_notfound) THEN
3296: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
3297: END IF;
3298: IF (x_scnv_rec.id = OKC_API.G_MISS_NUM)
3299: THEN
3300: x_scnv_rec.id := l_scnv_rec.id;
3301: END IF;
3302: IF (x_scnv_rec.scn_type = OKC_API.G_MISS_CHAR)
3298: IF (x_scnv_rec.id = OKC_API.G_MISS_NUM)
3299: THEN
3300: x_scnv_rec.id := l_scnv_rec.id;
3301: END IF;
3302: IF (x_scnv_rec.scn_type = OKC_API.G_MISS_CHAR)
3303: THEN
3304: x_scnv_rec.scn_type := l_scnv_rec.scn_type;
3305: END IF;
3306: IF (x_scnv_rec.chr_id = OKC_API.G_MISS_NUM)
3302: IF (x_scnv_rec.scn_type = OKC_API.G_MISS_CHAR)
3303: THEN
3304: x_scnv_rec.scn_type := l_scnv_rec.scn_type;
3305: END IF;
3306: IF (x_scnv_rec.chr_id = OKC_API.G_MISS_NUM)
3307: THEN
3308: x_scnv_rec.chr_id := l_scnv_rec.chr_id;
3309: END IF;
3310: IF (x_scnv_rec.sat_code = OKC_API.G_MISS_CHAR)
3306: IF (x_scnv_rec.chr_id = OKC_API.G_MISS_NUM)
3307: THEN
3308: x_scnv_rec.chr_id := l_scnv_rec.chr_id;
3309: END IF;
3310: IF (x_scnv_rec.sat_code = OKC_API.G_MISS_CHAR)
3311: THEN
3312: x_scnv_rec.sat_code := l_scnv_rec.sat_code;
3313: END IF;
3314: IF (x_scnv_rec.section_sequence = OKC_API.G_MISS_NUM)
3310: IF (x_scnv_rec.sat_code = OKC_API.G_MISS_CHAR)
3311: THEN
3312: x_scnv_rec.sat_code := l_scnv_rec.sat_code;
3313: END IF;
3314: IF (x_scnv_rec.section_sequence = OKC_API.G_MISS_NUM)
3315: THEN
3316: x_scnv_rec.section_sequence := l_scnv_rec.section_sequence;
3317: END IF;
3318: IF (x_scnv_rec.label = OKC_API.G_MISS_CHAR)
3314: IF (x_scnv_rec.section_sequence = OKC_API.G_MISS_NUM)
3315: THEN
3316: x_scnv_rec.section_sequence := l_scnv_rec.section_sequence;
3317: END IF;
3318: IF (x_scnv_rec.label = OKC_API.G_MISS_CHAR)
3319: THEN
3320: x_scnv_rec.label := l_scnv_rec.label;
3321: END IF;
3322: IF (x_scnv_rec.heading = OKC_API.G_MISS_CHAR)
3318: IF (x_scnv_rec.label = OKC_API.G_MISS_CHAR)
3319: THEN
3320: x_scnv_rec.label := l_scnv_rec.label;
3321: END IF;
3322: IF (x_scnv_rec.heading = OKC_API.G_MISS_CHAR)
3323: THEN
3324: x_scnv_rec.heading := l_scnv_rec.heading;
3325: END IF;
3326: IF (x_scnv_rec.scn_id = OKC_API.G_MISS_NUM)
3322: IF (x_scnv_rec.heading = OKC_API.G_MISS_CHAR)
3323: THEN
3324: x_scnv_rec.heading := l_scnv_rec.heading;
3325: END IF;
3326: IF (x_scnv_rec.scn_id = OKC_API.G_MISS_NUM)
3327: THEN
3328: x_scnv_rec.scn_id := l_scnv_rec.scn_id;
3329: END IF;
3330: IF (x_scnv_rec.object_version_number = OKC_API.G_MISS_NUM)
3326: IF (x_scnv_rec.scn_id = OKC_API.G_MISS_NUM)
3327: THEN
3328: x_scnv_rec.scn_id := l_scnv_rec.scn_id;
3329: END IF;
3330: IF (x_scnv_rec.object_version_number = OKC_API.G_MISS_NUM)
3331: THEN
3332: x_scnv_rec.object_version_number := l_scnv_rec.object_version_number;
3333: END IF;
3334: IF (x_scnv_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
3330: IF (x_scnv_rec.object_version_number = OKC_API.G_MISS_NUM)
3331: THEN
3332: x_scnv_rec.object_version_number := l_scnv_rec.object_version_number;
3333: END IF;
3334: IF (x_scnv_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
3335: THEN
3336: x_scnv_rec.sfwt_flag := l_scnv_rec.sfwt_flag;
3337: END IF;
3338: IF (x_scnv_rec.created_by = OKC_API.G_MISS_NUM)
3334: IF (x_scnv_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
3335: THEN
3336: x_scnv_rec.sfwt_flag := l_scnv_rec.sfwt_flag;
3337: END IF;
3338: IF (x_scnv_rec.created_by = OKC_API.G_MISS_NUM)
3339: THEN
3340: x_scnv_rec.created_by := l_scnv_rec.created_by;
3341: END IF;
3342: IF (x_scnv_rec.creation_date = OKC_API.G_MISS_DATE)
3338: IF (x_scnv_rec.created_by = OKC_API.G_MISS_NUM)
3339: THEN
3340: x_scnv_rec.created_by := l_scnv_rec.created_by;
3341: END IF;
3342: IF (x_scnv_rec.creation_date = OKC_API.G_MISS_DATE)
3343: THEN
3344: x_scnv_rec.creation_date := l_scnv_rec.creation_date;
3345: END IF;
3346: IF (x_scnv_rec.last_updated_by = OKC_API.G_MISS_NUM)
3342: IF (x_scnv_rec.creation_date = OKC_API.G_MISS_DATE)
3343: THEN
3344: x_scnv_rec.creation_date := l_scnv_rec.creation_date;
3345: END IF;
3346: IF (x_scnv_rec.last_updated_by = OKC_API.G_MISS_NUM)
3347: THEN
3348: x_scnv_rec.last_updated_by := l_scnv_rec.last_updated_by;
3349: END IF;
3350: IF (x_scnv_rec.last_update_date = OKC_API.G_MISS_DATE)
3346: IF (x_scnv_rec.last_updated_by = OKC_API.G_MISS_NUM)
3347: THEN
3348: x_scnv_rec.last_updated_by := l_scnv_rec.last_updated_by;
3349: END IF;
3350: IF (x_scnv_rec.last_update_date = OKC_API.G_MISS_DATE)
3351: THEN
3352: x_scnv_rec.last_update_date := l_scnv_rec.last_update_date;
3353: END IF;
3354: IF (x_scnv_rec.last_update_login = OKC_API.G_MISS_NUM)
3350: IF (x_scnv_rec.last_update_date = OKC_API.G_MISS_DATE)
3351: THEN
3352: x_scnv_rec.last_update_date := l_scnv_rec.last_update_date;
3353: END IF;
3354: IF (x_scnv_rec.last_update_login = OKC_API.G_MISS_NUM)
3355: THEN
3356: x_scnv_rec.last_update_login := l_scnv_rec.last_update_login;
3357: END IF;
3358: IF (x_scnv_rec.attribute_category = OKC_API.G_MISS_CHAR)
3354: IF (x_scnv_rec.last_update_login = OKC_API.G_MISS_NUM)
3355: THEN
3356: x_scnv_rec.last_update_login := l_scnv_rec.last_update_login;
3357: END IF;
3358: IF (x_scnv_rec.attribute_category = OKC_API.G_MISS_CHAR)
3359: THEN
3360: x_scnv_rec.attribute_category := l_scnv_rec.attribute_category;
3361: END IF;
3362: IF (x_scnv_rec.attribute1 = OKC_API.G_MISS_CHAR)
3358: IF (x_scnv_rec.attribute_category = OKC_API.G_MISS_CHAR)
3359: THEN
3360: x_scnv_rec.attribute_category := l_scnv_rec.attribute_category;
3361: END IF;
3362: IF (x_scnv_rec.attribute1 = OKC_API.G_MISS_CHAR)
3363: THEN
3364: x_scnv_rec.attribute1 := l_scnv_rec.attribute1;
3365: END IF;
3366: IF (x_scnv_rec.attribute2 = OKC_API.G_MISS_CHAR)
3362: IF (x_scnv_rec.attribute1 = OKC_API.G_MISS_CHAR)
3363: THEN
3364: x_scnv_rec.attribute1 := l_scnv_rec.attribute1;
3365: END IF;
3366: IF (x_scnv_rec.attribute2 = OKC_API.G_MISS_CHAR)
3367: THEN
3368: x_scnv_rec.attribute2 := l_scnv_rec.attribute2;
3369: END IF;
3370: IF (x_scnv_rec.attribute3 = OKC_API.G_MISS_CHAR)
3366: IF (x_scnv_rec.attribute2 = OKC_API.G_MISS_CHAR)
3367: THEN
3368: x_scnv_rec.attribute2 := l_scnv_rec.attribute2;
3369: END IF;
3370: IF (x_scnv_rec.attribute3 = OKC_API.G_MISS_CHAR)
3371: THEN
3372: x_scnv_rec.attribute3 := l_scnv_rec.attribute3;
3373: END IF;
3374: IF (x_scnv_rec.attribute4 = OKC_API.G_MISS_CHAR)
3370: IF (x_scnv_rec.attribute3 = OKC_API.G_MISS_CHAR)
3371: THEN
3372: x_scnv_rec.attribute3 := l_scnv_rec.attribute3;
3373: END IF;
3374: IF (x_scnv_rec.attribute4 = OKC_API.G_MISS_CHAR)
3375: THEN
3376: x_scnv_rec.attribute4 := l_scnv_rec.attribute4;
3377: END IF;
3378: IF (x_scnv_rec.attribute5 = OKC_API.G_MISS_CHAR)
3374: IF (x_scnv_rec.attribute4 = OKC_API.G_MISS_CHAR)
3375: THEN
3376: x_scnv_rec.attribute4 := l_scnv_rec.attribute4;
3377: END IF;
3378: IF (x_scnv_rec.attribute5 = OKC_API.G_MISS_CHAR)
3379: THEN
3380: x_scnv_rec.attribute5 := l_scnv_rec.attribute5;
3381: END IF;
3382: IF (x_scnv_rec.attribute6 = OKC_API.G_MISS_CHAR)
3378: IF (x_scnv_rec.attribute5 = OKC_API.G_MISS_CHAR)
3379: THEN
3380: x_scnv_rec.attribute5 := l_scnv_rec.attribute5;
3381: END IF;
3382: IF (x_scnv_rec.attribute6 = OKC_API.G_MISS_CHAR)
3383: THEN
3384: x_scnv_rec.attribute6 := l_scnv_rec.attribute6;
3385: END IF;
3386: IF (x_scnv_rec.attribute7 = OKC_API.G_MISS_CHAR)
3382: IF (x_scnv_rec.attribute6 = OKC_API.G_MISS_CHAR)
3383: THEN
3384: x_scnv_rec.attribute6 := l_scnv_rec.attribute6;
3385: END IF;
3386: IF (x_scnv_rec.attribute7 = OKC_API.G_MISS_CHAR)
3387: THEN
3388: x_scnv_rec.attribute7 := l_scnv_rec.attribute7;
3389: END IF;
3390: IF (x_scnv_rec.attribute8 = OKC_API.G_MISS_CHAR)
3386: IF (x_scnv_rec.attribute7 = OKC_API.G_MISS_CHAR)
3387: THEN
3388: x_scnv_rec.attribute7 := l_scnv_rec.attribute7;
3389: END IF;
3390: IF (x_scnv_rec.attribute8 = OKC_API.G_MISS_CHAR)
3391: THEN
3392: x_scnv_rec.attribute8 := l_scnv_rec.attribute8;
3393: END IF;
3394: IF (x_scnv_rec.attribute9 = OKC_API.G_MISS_CHAR)
3390: IF (x_scnv_rec.attribute8 = OKC_API.G_MISS_CHAR)
3391: THEN
3392: x_scnv_rec.attribute8 := l_scnv_rec.attribute8;
3393: END IF;
3394: IF (x_scnv_rec.attribute9 = OKC_API.G_MISS_CHAR)
3395: THEN
3396: x_scnv_rec.attribute9 := l_scnv_rec.attribute9;
3397: END IF;
3398: IF (x_scnv_rec.attribute10 = OKC_API.G_MISS_CHAR)
3394: IF (x_scnv_rec.attribute9 = OKC_API.G_MISS_CHAR)
3395: THEN
3396: x_scnv_rec.attribute9 := l_scnv_rec.attribute9;
3397: END IF;
3398: IF (x_scnv_rec.attribute10 = OKC_API.G_MISS_CHAR)
3399: THEN
3400: x_scnv_rec.attribute10 := l_scnv_rec.attribute10;
3401: END IF;
3402: IF (x_scnv_rec.attribute11 = OKC_API.G_MISS_CHAR)
3398: IF (x_scnv_rec.attribute10 = OKC_API.G_MISS_CHAR)
3399: THEN
3400: x_scnv_rec.attribute10 := l_scnv_rec.attribute10;
3401: END IF;
3402: IF (x_scnv_rec.attribute11 = OKC_API.G_MISS_CHAR)
3403: THEN
3404: x_scnv_rec.attribute11 := l_scnv_rec.attribute11;
3405: END IF;
3406: IF (x_scnv_rec.attribute12 = OKC_API.G_MISS_CHAR)
3402: IF (x_scnv_rec.attribute11 = OKC_API.G_MISS_CHAR)
3403: THEN
3404: x_scnv_rec.attribute11 := l_scnv_rec.attribute11;
3405: END IF;
3406: IF (x_scnv_rec.attribute12 = OKC_API.G_MISS_CHAR)
3407: THEN
3408: x_scnv_rec.attribute12 := l_scnv_rec.attribute12;
3409: END IF;
3410: IF (x_scnv_rec.attribute13 = OKC_API.G_MISS_CHAR)
3406: IF (x_scnv_rec.attribute12 = OKC_API.G_MISS_CHAR)
3407: THEN
3408: x_scnv_rec.attribute12 := l_scnv_rec.attribute12;
3409: END IF;
3410: IF (x_scnv_rec.attribute13 = OKC_API.G_MISS_CHAR)
3411: THEN
3412: x_scnv_rec.attribute13 := l_scnv_rec.attribute13;
3413: END IF;
3414: IF (x_scnv_rec.attribute14 = OKC_API.G_MISS_CHAR)
3410: IF (x_scnv_rec.attribute13 = OKC_API.G_MISS_CHAR)
3411: THEN
3412: x_scnv_rec.attribute13 := l_scnv_rec.attribute13;
3413: END IF;
3414: IF (x_scnv_rec.attribute14 = OKC_API.G_MISS_CHAR)
3415: THEN
3416: x_scnv_rec.attribute14 := l_scnv_rec.attribute14;
3417: END IF;
3418: IF (x_scnv_rec.attribute15 = OKC_API.G_MISS_CHAR)
3414: IF (x_scnv_rec.attribute14 = OKC_API.G_MISS_CHAR)
3415: THEN
3416: x_scnv_rec.attribute14 := l_scnv_rec.attribute14;
3417: END IF;
3418: IF (x_scnv_rec.attribute15 = OKC_API.G_MISS_CHAR)
3419: THEN
3420: x_scnv_rec.attribute15 := l_scnv_rec.attribute15;
3421: END IF;
3422:
3434: FUNCTION Set_Attributes (
3435: p_scnv_rec IN scnv_rec_type,
3436: x_scnv_rec OUT NOCOPY scnv_rec_type
3437: ) RETURN VARCHAR2 IS
3438: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3439: BEGIN
3440:
3441: x_scnv_rec := p_scnv_rec;
3442: x_scnv_rec.OBJECT_VERSION_NUMBER := NVL(x_scnv_rec.OBJECT_VERSION_NUMBER, 0) + 1;
3449: okc_debug.Set_Indentation('OKC_SCN_PVT');
3450: okc_debug.log('11800: Entered update_row', 2);
3451: END IF;
3452:
3453: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3454: G_PKG_NAME,
3455: p_init_msg_list,
3456: l_api_version,
3457: p_api_version,
3456: l_api_version,
3457: p_api_version,
3458: '_PVT',
3459: x_return_status);
3460: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3461: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3462: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3463: RAISE OKC_API.G_EXCEPTION_ERROR;
3464: END IF;
3457: p_api_version,
3458: '_PVT',
3459: x_return_status);
3460: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3461: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3462: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3463: RAISE OKC_API.G_EXCEPTION_ERROR;
3464: END IF;
3465: --- Setting item attributes
3458: '_PVT',
3459: x_return_status);
3460: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3461: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3462: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3463: RAISE OKC_API.G_EXCEPTION_ERROR;
3464: END IF;
3465: --- Setting item attributes
3466: l_return_status := Set_Attributes(
3459: x_return_status);
3460: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3461: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3462: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3463: RAISE OKC_API.G_EXCEPTION_ERROR;
3464: END IF;
3465: --- Setting item attributes
3466: l_return_status := Set_Attributes(
3467: p_scnv_rec, -- IN
3466: l_return_status := Set_Attributes(
3467: p_scnv_rec, -- IN
3468: l_scnv_rec); -- OUT
3469: --- If any errors happen abort API
3470: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3471: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3472: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3473: RAISE OKC_API.G_EXCEPTION_ERROR;
3474: END IF;
3467: p_scnv_rec, -- IN
3468: l_scnv_rec); -- OUT
3469: --- If any errors happen abort API
3470: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3471: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3472: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3473: RAISE OKC_API.G_EXCEPTION_ERROR;
3474: END IF;
3475: l_return_status := populate_new_record(l_scnv_rec, l_def_scnv_rec);
3468: l_scnv_rec); -- OUT
3469: --- If any errors happen abort API
3470: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3471: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3472: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3473: RAISE OKC_API.G_EXCEPTION_ERROR;
3474: END IF;
3475: l_return_status := populate_new_record(l_scnv_rec, l_def_scnv_rec);
3476: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3469: --- If any errors happen abort API
3470: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3471: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3472: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3473: RAISE OKC_API.G_EXCEPTION_ERROR;
3474: END IF;
3475: l_return_status := populate_new_record(l_scnv_rec, l_def_scnv_rec);
3476: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3477: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3472: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3473: RAISE OKC_API.G_EXCEPTION_ERROR;
3474: END IF;
3475: l_return_status := populate_new_record(l_scnv_rec, l_def_scnv_rec);
3476: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3477: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3478: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3479: RAISE OKC_API.G_EXCEPTION_ERROR;
3480: END IF;
3473: RAISE OKC_API.G_EXCEPTION_ERROR;
3474: END IF;
3475: l_return_status := populate_new_record(l_scnv_rec, l_def_scnv_rec);
3476: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3477: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3478: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3479: RAISE OKC_API.G_EXCEPTION_ERROR;
3480: END IF;
3481: l_def_scnv_rec := fill_who_columns(l_def_scnv_rec);
3474: END IF;
3475: l_return_status := populate_new_record(l_scnv_rec, l_def_scnv_rec);
3476: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3477: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3478: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3479: RAISE OKC_API.G_EXCEPTION_ERROR;
3480: END IF;
3481: l_def_scnv_rec := fill_who_columns(l_def_scnv_rec);
3482: --- Validate all non-missing attributes (Item Level Validation)
3475: l_return_status := populate_new_record(l_scnv_rec, l_def_scnv_rec);
3476: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3477: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3478: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3479: RAISE OKC_API.G_EXCEPTION_ERROR;
3480: END IF;
3481: l_def_scnv_rec := fill_who_columns(l_def_scnv_rec);
3482: --- Validate all non-missing attributes (Item Level Validation)
3483: l_return_status := Validate_Attributes(l_def_scnv_rec);
3481: l_def_scnv_rec := fill_who_columns(l_def_scnv_rec);
3482: --- Validate all non-missing attributes (Item Level Validation)
3483: l_return_status := Validate_Attributes(l_def_scnv_rec);
3484: --- If any errors happen abort API
3485: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3486: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3487: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3488: RAISE OKC_API.G_EXCEPTION_ERROR;
3489: END IF;
3482: --- Validate all non-missing attributes (Item Level Validation)
3483: l_return_status := Validate_Attributes(l_def_scnv_rec);
3484: --- If any errors happen abort API
3485: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3486: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3487: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3488: RAISE OKC_API.G_EXCEPTION_ERROR;
3489: END IF;
3490: l_return_status := Validate_Record(l_def_scnv_rec);
3483: l_return_status := Validate_Attributes(l_def_scnv_rec);
3484: --- If any errors happen abort API
3485: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3486: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3487: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3488: RAISE OKC_API.G_EXCEPTION_ERROR;
3489: END IF;
3490: l_return_status := Validate_Record(l_def_scnv_rec);
3491: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3484: --- If any errors happen abort API
3485: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3486: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3487: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3488: RAISE OKC_API.G_EXCEPTION_ERROR;
3489: END IF;
3490: l_return_status := Validate_Record(l_def_scnv_rec);
3491: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3492: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3487: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3488: RAISE OKC_API.G_EXCEPTION_ERROR;
3489: END IF;
3490: l_return_status := Validate_Record(l_def_scnv_rec);
3491: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3492: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3493: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3494: RAISE OKC_API.G_EXCEPTION_ERROR;
3495: END IF;
3488: RAISE OKC_API.G_EXCEPTION_ERROR;
3489: END IF;
3490: l_return_status := Validate_Record(l_def_scnv_rec);
3491: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3492: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3493: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3494: RAISE OKC_API.G_EXCEPTION_ERROR;
3495: END IF;
3496:
3489: END IF;
3490: l_return_status := Validate_Record(l_def_scnv_rec);
3491: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3492: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3493: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3494: RAISE OKC_API.G_EXCEPTION_ERROR;
3495: END IF;
3496:
3497: --------------------------------------
3490: l_return_status := Validate_Record(l_def_scnv_rec);
3491: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3492: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3493: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3494: RAISE OKC_API.G_EXCEPTION_ERROR;
3495: END IF;
3496:
3497: --------------------------------------
3498: -- Move VIEW record to "Child" records
3509: x_msg_data,
3510: l_okc_sections_tl_rec,
3511: lx_okc_sections_tl_rec
3512: );
3513: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3514: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3515: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3516: RAISE OKC_API.G_EXCEPTION_ERROR;
3517: END IF;
3510: l_okc_sections_tl_rec,
3511: lx_okc_sections_tl_rec
3512: );
3513: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3514: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3515: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3516: RAISE OKC_API.G_EXCEPTION_ERROR;
3517: END IF;
3518: migrate(lx_okc_sections_tl_rec, l_def_scnv_rec);
3511: lx_okc_sections_tl_rec
3512: );
3513: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3514: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3515: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3516: RAISE OKC_API.G_EXCEPTION_ERROR;
3517: END IF;
3518: migrate(lx_okc_sections_tl_rec, l_def_scnv_rec);
3519: update_row(
3512: );
3513: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3514: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3515: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3516: RAISE OKC_API.G_EXCEPTION_ERROR;
3517: END IF;
3518: migrate(lx_okc_sections_tl_rec, l_def_scnv_rec);
3519: update_row(
3520: p_init_msg_list,
3524: l_scn_rec,
3525: lx_scn_rec
3526: );
3527:
3528: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3529: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3530: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3531: RAISE OKC_API.G_EXCEPTION_ERROR;
3532: END IF;
3525: lx_scn_rec
3526: );
3527:
3528: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3529: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3530: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3531: RAISE OKC_API.G_EXCEPTION_ERROR;
3532: END IF;
3533: migrate(lx_scn_rec, l_def_scnv_rec);
3526: );
3527:
3528: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3529: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3530: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3531: RAISE OKC_API.G_EXCEPTION_ERROR;
3532: END IF;
3533: migrate(lx_scn_rec, l_def_scnv_rec);
3534: x_scnv_rec := l_def_scnv_rec;
3527:
3528: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3529: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3530: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3531: RAISE OKC_API.G_EXCEPTION_ERROR;
3532: END IF;
3533: migrate(lx_scn_rec, l_def_scnv_rec);
3534: x_scnv_rec := l_def_scnv_rec;
3535: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3531: RAISE OKC_API.G_EXCEPTION_ERROR;
3532: END IF;
3533: migrate(lx_scn_rec, l_def_scnv_rec);
3534: x_scnv_rec := l_def_scnv_rec;
3535: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3536:
3537: IF (l_debug = 'Y') THEN
3538: okc_debug.log('11900: Leaving update_row', 2);
3539: okc_debug.Reset_Indentation;
3539: okc_debug.Reset_Indentation;
3540: END IF;
3541:
3542: EXCEPTION
3543: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3544:
3545: IF (l_debug = 'Y') THEN
3546: okc_debug.log('12000: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3547: okc_debug.Reset_Indentation;
3542: EXCEPTION
3543: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3544:
3545: IF (l_debug = 'Y') THEN
3546: okc_debug.log('12000: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3547: okc_debug.Reset_Indentation;
3548: END IF;
3549:
3550: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3546: okc_debug.log('12000: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3547: okc_debug.Reset_Indentation;
3548: END IF;
3549:
3550: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3551: (
3552: l_api_name,
3553: G_PKG_NAME,
3554: 'OKC_API.G_RET_STS_ERROR',
3550: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3551: (
3552: l_api_name,
3553: G_PKG_NAME,
3554: 'OKC_API.G_RET_STS_ERROR',
3555: x_msg_count,
3556: x_msg_data,
3557: '_PVT'
3558: );
3555: x_msg_count,
3556: x_msg_data,
3557: '_PVT'
3558: );
3559: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3560:
3561: IF (l_debug = 'Y') THEN
3562: okc_debug.log('12100: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3563: okc_debug.Reset_Indentation;
3558: );
3559: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3560:
3561: IF (l_debug = 'Y') THEN
3562: okc_debug.log('12100: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3563: okc_debug.Reset_Indentation;
3564: END IF;
3565:
3566: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3562: okc_debug.log('12100: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3563: okc_debug.Reset_Indentation;
3564: END IF;
3565:
3566: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3567: (
3568: l_api_name,
3569: G_PKG_NAME,
3570: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3566: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3567: (
3568: l_api_name,
3569: G_PKG_NAME,
3570: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3571: x_msg_count,
3572: x_msg_data,
3573: '_PVT'
3574: );
3578: okc_debug.log('12200: Exiting update_row:OTHERS Exception', 2);
3579: okc_debug.Reset_Indentation;
3580: END IF;
3581:
3582: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3583: (
3584: l_api_name,
3585: G_PKG_NAME,
3586: 'OTHERS',
3603: x_scnv_tbl OUT NOCOPY scnv_tbl_type) IS
3604:
3605: l_api_version CONSTANT NUMBER := 1;
3606: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
3607: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3608: i NUMBER := 0;
3609: BEGIN
3610:
3611: IF (l_debug = 'Y') THEN
3612: okc_debug.Set_Indentation('OKC_SCN_PVT');
3613: okc_debug.log('12300: Entered update_row', 2);
3614: END IF;
3615:
3616: OKC_API.init_msg_list(p_init_msg_list);
3617: -- Make sure PL/SQL table has records in it before passing
3618: IF (p_scnv_tbl.COUNT > 0) THEN
3619: i := p_scnv_tbl.FIRST;
3620: LOOP
3619: i := p_scnv_tbl.FIRST;
3620: LOOP
3621: update_row (
3622: p_api_version => p_api_version,
3623: p_init_msg_list => OKC_API.G_FALSE,
3624: x_return_status => x_return_status,
3625: x_msg_count => x_msg_count,
3626: x_msg_data => x_msg_data,
3627: p_scnv_rec => p_scnv_tbl(i),
3636: okc_debug.Reset_Indentation;
3637: END IF;
3638:
3639: EXCEPTION
3640: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3641:
3642: IF (l_debug = 'Y') THEN
3643: okc_debug.log('12500: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3644: okc_debug.Reset_Indentation;
3639: EXCEPTION
3640: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3641:
3642: IF (l_debug = 'Y') THEN
3643: okc_debug.log('12500: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3644: okc_debug.Reset_Indentation;
3645: END IF;
3646:
3647: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3643: okc_debug.log('12500: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3644: okc_debug.Reset_Indentation;
3645: END IF;
3646:
3647: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3648: (
3649: l_api_name,
3650: G_PKG_NAME,
3651: 'OKC_API.G_RET_STS_ERROR',
3647: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3648: (
3649: l_api_name,
3650: G_PKG_NAME,
3651: 'OKC_API.G_RET_STS_ERROR',
3652: x_msg_count,
3653: x_msg_data,
3654: '_PVT'
3655: );
3652: x_msg_count,
3653: x_msg_data,
3654: '_PVT'
3655: );
3656: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3657:
3658: IF (l_debug = 'Y') THEN
3659: okc_debug.log('12600: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3660: okc_debug.Reset_Indentation;
3655: );
3656: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3657:
3658: IF (l_debug = 'Y') THEN
3659: okc_debug.log('12600: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3660: okc_debug.Reset_Indentation;
3661: END IF;
3662:
3663: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3659: okc_debug.log('12600: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3660: okc_debug.Reset_Indentation;
3661: END IF;
3662:
3663: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3664: (
3665: l_api_name,
3666: G_PKG_NAME,
3667: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3663: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3664: (
3665: l_api_name,
3666: G_PKG_NAME,
3667: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3668: x_msg_count,
3669: x_msg_data,
3670: '_PVT'
3671: );
3675: okc_debug.log('12700: Exiting update_row:OTHERS Exception', 2);
3676: okc_debug.Reset_Indentation;
3677: END IF;
3678:
3679: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3680: (
3681: l_api_name,
3682: G_PKG_NAME,
3683: 'OTHERS',
3702: p_scn_rec IN scn_rec_type) IS
3703:
3704: l_api_version CONSTANT NUMBER := 1;
3705: l_api_name CONSTANT VARCHAR2(30) := 'B_delete_row';
3706: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3707: l_scn_rec scn_rec_type:= p_scn_rec;
3708: l_row_notfound BOOLEAN := TRUE;
3709: BEGIN
3710:
3712: okc_debug.Set_Indentation('OKC_SCN_PVT');
3713: okc_debug.log('12800: Entered delete_row', 2);
3714: END IF;
3715:
3716: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3717: p_init_msg_list,
3718: '_PVT',
3719: x_return_status);
3720: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3716: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3717: p_init_msg_list,
3718: '_PVT',
3719: x_return_status);
3720: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3721: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3722: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3723: RAISE OKC_API.G_EXCEPTION_ERROR;
3724: END IF;
3717: p_init_msg_list,
3718: '_PVT',
3719: x_return_status);
3720: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3721: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3722: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3723: RAISE OKC_API.G_EXCEPTION_ERROR;
3724: END IF;
3725: DELETE FROM OKC_SECTIONS_B
3718: '_PVT',
3719: x_return_status);
3720: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3721: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3722: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3723: RAISE OKC_API.G_EXCEPTION_ERROR;
3724: END IF;
3725: DELETE FROM OKC_SECTIONS_B
3726: WHERE ID = l_scn_rec.id;
3719: x_return_status);
3720: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3721: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3722: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3723: RAISE OKC_API.G_EXCEPTION_ERROR;
3724: END IF;
3725: DELETE FROM OKC_SECTIONS_B
3726: WHERE ID = l_scn_rec.id;
3727:
3724: END IF;
3725: DELETE FROM OKC_SECTIONS_B
3726: WHERE ID = l_scn_rec.id;
3727:
3728: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3729:
3730: IF (l_debug = 'Y') THEN
3731: okc_debug.log('12900: Leaving delete_row', 2);
3732: okc_debug.Reset_Indentation;
3732: okc_debug.Reset_Indentation;
3733: END IF;
3734:
3735: EXCEPTION
3736: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3737:
3738: IF (l_debug = 'Y') THEN
3739: okc_debug.log('13000: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3740: okc_debug.Reset_Indentation;
3735: EXCEPTION
3736: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3737:
3738: IF (l_debug = 'Y') THEN
3739: okc_debug.log('13000: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3740: okc_debug.Reset_Indentation;
3741: END IF;
3742:
3743: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3739: okc_debug.log('13000: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3740: okc_debug.Reset_Indentation;
3741: END IF;
3742:
3743: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3744: (
3745: l_api_name,
3746: G_PKG_NAME,
3747: 'OKC_API.G_RET_STS_ERROR',
3743: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3744: (
3745: l_api_name,
3746: G_PKG_NAME,
3747: 'OKC_API.G_RET_STS_ERROR',
3748: x_msg_count,
3749: x_msg_data,
3750: '_PVT'
3751: );
3748: x_msg_count,
3749: x_msg_data,
3750: '_PVT'
3751: );
3752: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3753:
3754: IF (l_debug = 'Y') THEN
3755: okc_debug.log('13100: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3756: okc_debug.Reset_Indentation;
3751: );
3752: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3753:
3754: IF (l_debug = 'Y') THEN
3755: okc_debug.log('13100: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3756: okc_debug.Reset_Indentation;
3757: END IF;
3758:
3759: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3755: okc_debug.log('13100: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3756: okc_debug.Reset_Indentation;
3757: END IF;
3758:
3759: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3760: (
3761: l_api_name,
3762: G_PKG_NAME,
3763: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3759: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3760: (
3761: l_api_name,
3762: G_PKG_NAME,
3763: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3764: x_msg_count,
3765: x_msg_data,
3766: '_PVT'
3767: );
3771: okc_debug.log('13200: Exiting delete_row:OTHERS Exception', 2);
3772: okc_debug.Reset_Indentation;
3773: END IF;
3774:
3775: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3776: (
3777: l_api_name,
3778: G_PKG_NAME,
3779: 'OTHERS',
3794: p_okc_sections_tl_rec IN okc_sections_tl_rec_type) IS
3795:
3796: l_api_version CONSTANT NUMBER := 1;
3797: l_api_name CONSTANT VARCHAR2(30) := 'TL_delete_row';
3798: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3799: l_okc_sections_tl_rec okc_sections_tl_rec_type:= p_okc_sections_tl_rec;
3800: l_row_notfound BOOLEAN := TRUE;
3801: ----------------------------------------
3802: -- Set_Attributes for:OKC_SECTIONS_TL --
3804: FUNCTION Set_Attributes (
3805: p_okc_sections_tl_rec IN okc_sections_tl_rec_type,
3806: x_okc_sections_tl_rec OUT NOCOPY okc_sections_tl_rec_type
3807: ) RETURN VARCHAR2 IS
3808: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3809: BEGIN
3810:
3811: x_okc_sections_tl_rec := p_okc_sections_tl_rec;
3812: x_okc_sections_tl_rec.LANGUAGE := okc_util.get_userenv_lang;
3819: okc_debug.Set_Indentation('OKC_SCN_PVT');
3820: okc_debug.log('13400: Entered delete_row', 2);
3821: END IF;
3822:
3823: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3824: p_init_msg_list,
3825: '_PVT',
3826: x_return_status);
3827: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3823: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3824: p_init_msg_list,
3825: '_PVT',
3826: x_return_status);
3827: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3828: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3829: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3830: RAISE OKC_API.G_EXCEPTION_ERROR;
3831: END IF;
3824: p_init_msg_list,
3825: '_PVT',
3826: x_return_status);
3827: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3828: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3829: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3830: RAISE OKC_API.G_EXCEPTION_ERROR;
3831: END IF;
3832: --- Setting item attributes
3825: '_PVT',
3826: x_return_status);
3827: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3828: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3829: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3830: RAISE OKC_API.G_EXCEPTION_ERROR;
3831: END IF;
3832: --- Setting item attributes
3833: l_return_status := Set_Attributes(
3826: x_return_status);
3827: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3828: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3829: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3830: RAISE OKC_API.G_EXCEPTION_ERROR;
3831: END IF;
3832: --- Setting item attributes
3833: l_return_status := Set_Attributes(
3834: p_okc_sections_tl_rec, -- IN
3833: l_return_status := Set_Attributes(
3834: p_okc_sections_tl_rec, -- IN
3835: l_okc_sections_tl_rec); -- OUT
3836: --- If any errors happen abort API
3837: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3838: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3839: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3840: RAISE OKC_API.G_EXCEPTION_ERROR;
3841: END IF;
3834: p_okc_sections_tl_rec, -- IN
3835: l_okc_sections_tl_rec); -- OUT
3836: --- If any errors happen abort API
3837: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3838: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3839: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3840: RAISE OKC_API.G_EXCEPTION_ERROR;
3841: END IF;
3842: DELETE FROM OKC_SECTIONS_TL
3835: l_okc_sections_tl_rec); -- OUT
3836: --- If any errors happen abort API
3837: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3838: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3839: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3840: RAISE OKC_API.G_EXCEPTION_ERROR;
3841: END IF;
3842: DELETE FROM OKC_SECTIONS_TL
3843: WHERE ID = l_okc_sections_tl_rec.id;
3836: --- If any errors happen abort API
3837: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3838: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3839: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3840: RAISE OKC_API.G_EXCEPTION_ERROR;
3841: END IF;
3842: DELETE FROM OKC_SECTIONS_TL
3843: WHERE ID = l_okc_sections_tl_rec.id;
3844:
3841: END IF;
3842: DELETE FROM OKC_SECTIONS_TL
3843: WHERE ID = l_okc_sections_tl_rec.id;
3844:
3845: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3846:
3847: IF (l_debug = 'Y') THEN
3848: okc_debug.log('13500: Leaving delete_row', 2);
3849: okc_debug.Reset_Indentation;
3849: okc_debug.Reset_Indentation;
3850: END IF;
3851:
3852: EXCEPTION
3853: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3854:
3855: IF (l_debug = 'Y') THEN
3856: okc_debug.log('13600: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3857: okc_debug.Reset_Indentation;
3852: EXCEPTION
3853: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3854:
3855: IF (l_debug = 'Y') THEN
3856: okc_debug.log('13600: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3857: okc_debug.Reset_Indentation;
3858: END IF;
3859:
3860: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3856: okc_debug.log('13600: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3857: okc_debug.Reset_Indentation;
3858: END IF;
3859:
3860: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3861: (
3862: l_api_name,
3863: G_PKG_NAME,
3864: 'OKC_API.G_RET_STS_ERROR',
3860: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3861: (
3862: l_api_name,
3863: G_PKG_NAME,
3864: 'OKC_API.G_RET_STS_ERROR',
3865: x_msg_count,
3866: x_msg_data,
3867: '_PVT'
3868: );
3865: x_msg_count,
3866: x_msg_data,
3867: '_PVT'
3868: );
3869: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3870:
3871: IF (l_debug = 'Y') THEN
3872: okc_debug.log('13700: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3873: okc_debug.Reset_Indentation;
3868: );
3869: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3870:
3871: IF (l_debug = 'Y') THEN
3872: okc_debug.log('13700: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3873: okc_debug.Reset_Indentation;
3874: END IF;
3875:
3876: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3872: okc_debug.log('13700: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3873: okc_debug.Reset_Indentation;
3874: END IF;
3875:
3876: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3877: (
3878: l_api_name,
3879: G_PKG_NAME,
3880: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3876: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3877: (
3878: l_api_name,
3879: G_PKG_NAME,
3880: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3881: x_msg_count,
3882: x_msg_data,
3883: '_PVT'
3884: );
3888: okc_debug.log('13800: Exiting delete_row:OTHERS Exception', 2);
3889: okc_debug.Reset_Indentation;
3890: END IF;
3891:
3892: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3893: (
3894: l_api_name,
3895: G_PKG_NAME,
3896: 'OTHERS',
3912: p_scnv_rec IN scnv_rec_type) IS
3913:
3914: l_api_version CONSTANT NUMBER := 1;
3915: l_api_name CONSTANT VARCHAR2(30) := 'V_delete_row';
3916: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3917: l_scnv_rec scnv_rec_type := p_scnv_rec;
3918: l_okc_sections_tl_rec okc_sections_tl_rec_type;
3919: l_scn_rec scn_rec_type;
3920: BEGIN
3923: okc_debug.Set_Indentation('OKC_SCN_PVT');
3924: okc_debug.log('13900: Entered delete_row', 2);
3925: END IF;
3926:
3927: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3928: G_PKG_NAME,
3929: p_init_msg_list,
3930: l_api_version,
3931: p_api_version,
3930: l_api_version,
3931: p_api_version,
3932: '_PVT',
3933: x_return_status);
3934: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3935: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3936: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3937: RAISE OKC_API.G_EXCEPTION_ERROR;
3938: END IF;
3931: p_api_version,
3932: '_PVT',
3933: x_return_status);
3934: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3935: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3936: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3937: RAISE OKC_API.G_EXCEPTION_ERROR;
3938: END IF;
3939: --------------------------------------
3932: '_PVT',
3933: x_return_status);
3934: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3935: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3936: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3937: RAISE OKC_API.G_EXCEPTION_ERROR;
3938: END IF;
3939: --------------------------------------
3940: -- Move VIEW record to "Child" records
3933: x_return_status);
3934: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3935: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3936: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3937: RAISE OKC_API.G_EXCEPTION_ERROR;
3938: END IF;
3939: --------------------------------------
3940: -- Move VIEW record to "Child" records
3941: --------------------------------------
3950: x_msg_count,
3951: x_msg_data,
3952: l_okc_sections_tl_rec
3953: );
3954: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3955: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3956: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3957: RAISE OKC_API.G_EXCEPTION_ERROR;
3958: END IF;
3951: x_msg_data,
3952: l_okc_sections_tl_rec
3953: );
3954: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3955: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3956: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3957: RAISE OKC_API.G_EXCEPTION_ERROR;
3958: END IF;
3959: delete_row(
3952: l_okc_sections_tl_rec
3953: );
3954: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3955: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3956: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3957: RAISE OKC_API.G_EXCEPTION_ERROR;
3958: END IF;
3959: delete_row(
3960: p_init_msg_list,
3953: );
3954: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3955: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3956: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3957: RAISE OKC_API.G_EXCEPTION_ERROR;
3958: END IF;
3959: delete_row(
3960: p_init_msg_list,
3961: x_return_status,
3962: x_msg_count,
3963: x_msg_data,
3964: l_scn_rec
3965: );
3966: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3967: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3968: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3969: RAISE OKC_API.G_EXCEPTION_ERROR;
3970: END IF;
3963: x_msg_data,
3964: l_scn_rec
3965: );
3966: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3967: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3968: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3969: RAISE OKC_API.G_EXCEPTION_ERROR;
3970: END IF;
3971: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3964: l_scn_rec
3965: );
3966: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3967: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3968: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3969: RAISE OKC_API.G_EXCEPTION_ERROR;
3970: END IF;
3971: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3972:
3965: );
3966: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3967: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3968: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3969: RAISE OKC_API.G_EXCEPTION_ERROR;
3970: END IF;
3971: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3972:
3973: IF (l_debug = 'Y') THEN
3967: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3968: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3969: RAISE OKC_API.G_EXCEPTION_ERROR;
3970: END IF;
3971: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3972:
3973: IF (l_debug = 'Y') THEN
3974: okc_debug.log('14000: Leaving delete_row', 2);
3975: okc_debug.Reset_Indentation;
3975: okc_debug.Reset_Indentation;
3976: END IF;
3977:
3978: EXCEPTION
3979: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3980:
3981: IF (l_debug = 'Y') THEN
3982: okc_debug.log('14100: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3983: okc_debug.Reset_Indentation;
3978: EXCEPTION
3979: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3980:
3981: IF (l_debug = 'Y') THEN
3982: okc_debug.log('14100: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3983: okc_debug.Reset_Indentation;
3984: END IF;
3985:
3986: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3982: okc_debug.log('14100: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3983: okc_debug.Reset_Indentation;
3984: END IF;
3985:
3986: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3987: (
3988: l_api_name,
3989: G_PKG_NAME,
3990: 'OKC_API.G_RET_STS_ERROR',
3986: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3987: (
3988: l_api_name,
3989: G_PKG_NAME,
3990: 'OKC_API.G_RET_STS_ERROR',
3991: x_msg_count,
3992: x_msg_data,
3993: '_PVT'
3994: );
3991: x_msg_count,
3992: x_msg_data,
3993: '_PVT'
3994: );
3995: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3996:
3997: IF (l_debug = 'Y') THEN
3998: okc_debug.log('14200: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3999: okc_debug.Reset_Indentation;
3994: );
3995: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3996:
3997: IF (l_debug = 'Y') THEN
3998: okc_debug.log('14200: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3999: okc_debug.Reset_Indentation;
4000: END IF;
4001:
4002: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3998: okc_debug.log('14200: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3999: okc_debug.Reset_Indentation;
4000: END IF;
4001:
4002: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4003: (
4004: l_api_name,
4005: G_PKG_NAME,
4006: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4002: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4003: (
4004: l_api_name,
4005: G_PKG_NAME,
4006: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4007: x_msg_count,
4008: x_msg_data,
4009: '_PVT'
4010: );
4014: okc_debug.log('14300: Exiting delete_row:OTHERS Exception', 2);
4015: okc_debug.Reset_Indentation;
4016: END IF;
4017:
4018: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4019: (
4020: l_api_name,
4021: G_PKG_NAME,
4022: 'OTHERS',
4038: p_scnv_tbl IN scnv_tbl_type) IS
4039:
4040: l_api_version CONSTANT NUMBER := 1;
4041: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
4042: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4043: i NUMBER := 0;
4044: BEGIN
4045:
4046: IF (l_debug = 'Y') THEN
4047: okc_debug.Set_Indentation('OKC_SCN_PVT');
4048: okc_debug.log('14400: Entered delete_row', 2);
4049: END IF;
4050:
4051: OKC_API.init_msg_list(p_init_msg_list);
4052: -- Make sure PL/SQL table has records in it before passing
4053: IF (p_scnv_tbl.COUNT > 0) THEN
4054: i := p_scnv_tbl.FIRST;
4055: LOOP
4054: i := p_scnv_tbl.FIRST;
4055: LOOP
4056: delete_row (
4057: p_api_version => p_api_version,
4058: p_init_msg_list => OKC_API.G_FALSE,
4059: x_return_status => x_return_status,
4060: x_msg_count => x_msg_count,
4061: x_msg_data => x_msg_data,
4062: p_scnv_rec => p_scnv_tbl(i));
4070: okc_debug.Reset_Indentation;
4071: END IF;
4072:
4073: EXCEPTION
4074: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4075:
4076: IF (l_debug = 'Y') THEN
4077: okc_debug.log('14600: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
4078: okc_debug.Reset_Indentation;
4073: EXCEPTION
4074: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4075:
4076: IF (l_debug = 'Y') THEN
4077: okc_debug.log('14600: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
4078: okc_debug.Reset_Indentation;
4079: END IF;
4080:
4081: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4077: okc_debug.log('14600: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
4078: okc_debug.Reset_Indentation;
4079: END IF;
4080:
4081: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4082: (
4083: l_api_name,
4084: G_PKG_NAME,
4085: 'OKC_API.G_RET_STS_ERROR',
4081: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4082: (
4083: l_api_name,
4084: G_PKG_NAME,
4085: 'OKC_API.G_RET_STS_ERROR',
4086: x_msg_count,
4087: x_msg_data,
4088: '_PVT'
4089: );
4086: x_msg_count,
4087: x_msg_data,
4088: '_PVT'
4089: );
4090: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4091:
4092: IF (l_debug = 'Y') THEN
4093: okc_debug.log('14700: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
4094: okc_debug.Reset_Indentation;
4089: );
4090: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4091:
4092: IF (l_debug = 'Y') THEN
4093: okc_debug.log('14700: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
4094: okc_debug.Reset_Indentation;
4095: END IF;
4096:
4097: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4093: okc_debug.log('14700: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
4094: okc_debug.Reset_Indentation;
4095: END IF;
4096:
4097: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4098: (
4099: l_api_name,
4100: G_PKG_NAME,
4101: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4097: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4098: (
4099: l_api_name,
4100: G_PKG_NAME,
4101: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4102: x_msg_count,
4103: x_msg_data,
4104: '_PVT'
4105: );
4109: okc_debug.log('14800: Exiting delete_row:OTHERS Exception', 2);
4110: okc_debug.Reset_Indentation;
4111: END IF;
4112:
4113: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4114: (
4115: l_api_name,
4116: G_PKG_NAME,
4117: 'OTHERS',
4131: p_major_version IN NUMBER
4132: ) RETURN VARCHAR2 IS
4133:
4134:
4135: l_return_status VARCHAR2(1):= OKC_API.G_RET_STS_SUCCESS;
4136:
4137: BEGIN
4138:
4139: IF (l_debug = 'Y') THEN
4260: okc_debug.Reset_Indentation;
4261: END IF;
4262:
4263: -- store SQL error message on message stack
4264: OKC_API.SET_MESSAGE(p_app_name => okc_version_pvt.G_APP_NAME,
4265: p_msg_name => okc_version_pvt.G_UNEXPECTED_ERROR,
4266: p_token1 => okc_version_pvt.G_SQLCODE_TOKEN,
4267: p_token1_value => sqlcode,
4268: p_token2 => okc_version_pvt.G_SQLERRM_TOKEN,
4268: p_token2 => okc_version_pvt.G_SQLERRM_TOKEN,
4269: p_token2_value => sqlerrm);
4270:
4271: -- notify UNEXPECTED error
4272: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
4273: return l_return_status;
4274:
4275: END create_version;
4276:
4282: p_chr_id IN NUMBER,
4283: p_major_version IN NUMBER
4284: ) RETURN VARCHAR2 IS
4285:
4286: l_return_status VARCHAR2(1):= OKC_API.G_RET_STS_SUCCESS;
4287:
4288: BEGIN
4289:
4290: IF (l_debug = 'Y') THEN
4408: okc_debug.Reset_Indentation;
4409: END IF;
4410:
4411: -- store SQL error message on message stack
4412: OKC_API.SET_MESSAGE(p_app_name => okc_version_pvt.G_APP_NAME,
4413: p_msg_name => okc_version_pvt.G_UNEXPECTED_ERROR,
4414: p_token1 => okc_version_pvt.G_SQLCODE_TOKEN,
4415: p_token1_value => sqlcode,
4416: p_token2 => okc_version_pvt.G_SQLERRM_TOKEN,
4416: p_token2 => okc_version_pvt.G_SQLERRM_TOKEN,
4417: p_token2_value => sqlerrm);
4418:
4419: -- notify UNEXPECTED error
4420: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
4421: return l_return_status;
4422:
4423: END restore_version;
4424: --