[Home] [Help]
5:
6: /************************ HAND-CODED *********************************/
7: FUNCTION Validate_Attributes (p_sccv_rec in sccv_rec_type) RETURN VARCHAR2;
8:
9: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
10: -- Start of comments
11: --
12: -- Procedure Name : validate_scn_id
13: -- Description :
31: okc_debug.log('100: Entered validate_scn_id', 2);
32: END IF;
33:
34: -- initialize return status
35: x_return_status := OKC_API.G_RET_STS_SUCCESS;
36:
37: -- check that data exists
38: If (p_sccv_rec.scn_id = OKC_API.G_MISS_NUM or
39: p_sccv_rec.scn_id IS NULL)
34: -- initialize return status
35: x_return_status := OKC_API.G_RET_STS_SUCCESS;
36:
37: -- check that data exists
38: If (p_sccv_rec.scn_id = OKC_API.G_MISS_NUM or
39: p_sccv_rec.scn_id IS NULL)
40: Then
41: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
42: p_msg_name => g_required_value,
37: -- check that data exists
38: If (p_sccv_rec.scn_id = OKC_API.G_MISS_NUM or
39: p_sccv_rec.scn_id IS NULL)
40: Then
41: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
42: p_msg_name => g_required_value,
43: p_token1 => g_col_name_token,
44: p_token1_value => 'scn_id');
45: -- set error flag
42: p_msg_name => g_required_value,
43: p_token1 => g_col_name_token,
44: p_token1_value => 'scn_id');
45: -- set error flag
46: x_return_status := OKC_API.G_RET_STS_ERROR;
47:
48: -- halt validation
49: raise G_EXCEPTION_HALT_VALIDATION;
50: End If;
55: Close l_scnv_csr;
56:
57: -- if l_dummy_var still set to default, data was not found
58: If (l_dummy_var = '?') Then
59: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
60: p_msg_name => g_no_parent_record,
61: p_token1 => g_col_name_token,
62: p_token1_value => 'scn_id',
63: p_token2 => g_child_table_token,
65: p_token3 => g_parent_table_token,
66: p_token3_value => 'OKC_SECTIONS_V');
67:
68: -- notify caller of an error
69: x_return_status := OKC_API.G_RET_STS_ERROR;
70: End If;
71:
72: IF (l_debug = 'Y') THEN
73: okc_debug.log('200: Leaving validate_scn_id', 2);
82: okc_debug.Reset_Indentation;
83: END IF;
84:
85: -- store SQL error message on message stack
86: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
87: p_msg_name => g_unexpected_error,
88: p_token1 => g_sqlcode_token,
89: p_token1_value => sqlcode,
90: p_token2 => g_sqlerrm_token,
89: p_token1_value => sqlcode,
90: p_token2 => g_sqlerrm_token,
91: p_token2_value => sqlerrm);
92: -- notify caller of an error as UNEXPETED error
93: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
94:
95: -- verify that cursor was closed
96: if l_scnv_csr%ISOPEN then
97: close l_scnv_csr;
123: okc_debug.log('400: Entered validate_cat_id', 2);
124: END IF;
125:
126: -- initialize return status
127: x_return_status := OKC_API.G_RET_STS_SUCCESS;
128:
129: -- enforce foreign key (cat_id is optional)
130: If (p_sccv_rec.cat_id <> OKC_API.G_MISS_NUM and
131: p_sccv_rec.cat_id IS NOT NULL)
126: -- initialize return status
127: x_return_status := OKC_API.G_RET_STS_SUCCESS;
128:
129: -- enforce foreign key (cat_id is optional)
130: If (p_sccv_rec.cat_id <> OKC_API.G_MISS_NUM and
131: p_sccv_rec.cat_id IS NOT NULL)
132: Then
133: Open l_catv_csr;
134: Fetch l_catv_csr Into l_dummy_var;
134: Fetch l_catv_csr Into l_dummy_var;
135: Close l_catv_csr;
136: -- if l_dummy_var still set to default, data was not found
137: If (l_dummy_var = '?') Then
138: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
139: p_msg_name => g_no_parent_record,
140: p_token1 => g_col_name_token,
141: p_token1_value => 'cat_id',
142: p_token2 => g_child_table_token,
143: p_token2_value => G_VIEW,
144: p_token3 => g_parent_table_token,
145: p_token3_value => 'OKC_K_ARTICLES_V');
146: -- notify caller of an error
147: x_return_status := OKC_API.G_RET_STS_ERROR;
148: End If;
149: End If;
150:
151: IF (l_debug = 'Y') THEN
161: okc_debug.Reset_Indentation;
162: END IF;
163:
164: -- store SQL error message on message stack
165: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
166: p_msg_name => g_unexpected_error,
167: p_token1 => g_sqlcode_token,
168: p_token1_value => sqlcode,
169: p_token2 => g_sqlerrm_token,
168: p_token1_value => sqlcode,
169: p_token2 => g_sqlerrm_token,
170: p_token2_value => sqlerrm);
171: -- notify caller of an error as UNEXPETED error
172: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
173:
174: -- verify that cursor was closed
175: if l_catv_csr%ISOPEN then
176: close l_catv_csr;
202: okc_debug.log('700: Entered validate_cle_id', 2);
203: END IF;
204:
205: -- initialize return status
206: x_return_status := OKC_API.G_RET_STS_SUCCESS;
207:
208: -- enforce foreign key (cle_id is optional)
209: If (p_sccv_rec.cle_id <> OKC_API.G_MISS_NUM and
210: p_sccv_rec.cle_id IS NOT NULL)
205: -- initialize return status
206: x_return_status := OKC_API.G_RET_STS_SUCCESS;
207:
208: -- enforce foreign key (cle_id is optional)
209: If (p_sccv_rec.cle_id <> OKC_API.G_MISS_NUM and
210: p_sccv_rec.cle_id IS NOT NULL)
211: Then
212: Open l_clev_csr;
213: Fetch l_clev_csr Into l_dummy_var;
213: Fetch l_clev_csr Into l_dummy_var;
214: Close l_clev_csr;
215: -- if l_dummy_var still set to default, data was not found
216: If (l_dummy_var = '?') Then
217: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
218: p_msg_name => g_no_parent_record,
219: p_token1 => g_col_name_token,
220: p_token1_value => 'cle_id',
221: p_token2 => g_child_table_token,
222: p_token2_value => G_VIEW,
223: p_token3 => g_parent_table_token,
224: p_token3_value => 'OKC_K_LINES_V');
225: -- notify caller of an error
226: x_return_status := OKC_API.G_RET_STS_ERROR;
227: End If;
228: End If;
229:
230: IF (l_debug = 'Y') THEN
240: okc_debug.Reset_Indentation;
241: END IF;
242:
243: -- store SQL error message on message stack
244: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
245: p_msg_name => g_unexpected_error,
246: p_token1 => g_sqlcode_token,
247: p_token1_value => sqlcode,
248: p_token2 => g_sqlerrm_token,
247: p_token1_value => sqlcode,
248: p_token2 => g_sqlerrm_token,
249: p_token2_value => sqlerrm);
250: -- notify caller of an error as UNEXPETED error
251: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
252:
253: -- verify that cursor was closed
254: if l_clev_csr%ISOPEN then
255: close l_clev_csr;
281: okc_debug.log('1000: Entered validate_sae_id', 2);
282: END IF;
283:
284: -- initialize return status
285: x_return_status := OKC_API.G_RET_STS_SUCCESS;
286:
287: -- enforce foreign key (sae_id is optional)
288: If (p_sccv_rec.sae_id <> OKC_API.G_MISS_NUM and
289: p_sccv_rec.sae_id IS NOT NULL)
284: -- initialize return status
285: x_return_status := OKC_API.G_RET_STS_SUCCESS;
286:
287: -- enforce foreign key (sae_id is optional)
288: If (p_sccv_rec.sae_id <> OKC_API.G_MISS_NUM and
289: p_sccv_rec.sae_id IS NOT NULL)
290: Then
291: Open l_saev_csr;
292: Fetch l_saev_csr Into l_dummy_var;
292: Fetch l_saev_csr Into l_dummy_var;
293: Close l_saev_csr;
294: -- if l_dummy_var still set to default, data was not found
295: If (l_dummy_var = '?') Then
296: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
297: p_msg_name => g_no_parent_record,
298: p_token1 => g_col_name_token,
299: p_token1_value => 'sae_id',
300: p_token2 => g_child_table_token,
301: p_token2_value => G_VIEW,
302: p_token3 => g_parent_table_token,
303: p_token3_value => 'OKC_STD_ARTICLES_V');
304: -- notify caller of an error
305: x_return_status := OKC_API.G_RET_STS_ERROR;
306: End If;
307: End If;
308:
309: IF (l_debug = 'Y') THEN
319: okc_debug.Reset_Indentation;
320: END IF;
321:
322: -- store SQL error message on message stack
323: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
324: p_msg_name => g_unexpected_error,
325: p_token1 => g_sqlcode_token,
326: p_token1_value => sqlcode,
327: p_token2 => g_sqlerrm_token,
326: p_token1_value => sqlcode,
327: p_token2 => g_sqlerrm_token,
328: p_token2_value => sqlerrm);
329: -- notify caller of an error as UNEXPETED error
330: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
331:
332: -- verify that cursor was closed
333: if l_saev_csr%ISOPEN then
334: close l_saev_csr;
346: -- End of comments
347: PROCEDURE validate_content_sequence(x_return_status OUT NOCOPY VARCHAR2,
348: p_sccv_rec IN sccv_rec_type) is
349:
350: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
351: -- l_unq_tbl OKC_UTIL.unq_tbl_type;
352:
353: -- ------------------------------------------------------
354: -- To check for any matching row, for unique check
372: okc_debug.log('1300: Entered validate_content_sequence', 2);
373: END IF;
374:
375: -- initialize return status
376: x_return_status := OKC_API.G_RET_STS_SUCCESS;
377:
378: -- -------------------------------------------------------------------
379: -- Bug 1636056 related changes - Shyam
380: -- OKC_UTIL.check_comp_unique call earlier was not using
385: -- if chr_id >0, sat_code is -99, else sat code should be valid(<> -99)
386: -- -------------------------------------------------------------------
387:
388: IF ( p_sccv_rec.content_sequence IS NOT NULL
389: AND p_sccv_rec.content_sequence <> OKC_API.G_MISS_NUM )
390: THEN
391: -- check for any matching value in the database
392: OPEN cur_vcs;
393: FETCH cur_vcs INTO l_dummy;
394: l_row_found := cur_vcs%FOUND;
395: CLOSE cur_vcs;
396: ELSE
397: -- display the alert for missing required-value
398: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
399: p_msg_name => g_required_value,
400: p_token1 => g_col_name_token,
401: p_token1_value => 'content_sequence');
402:
400: p_token1 => g_col_name_token,
401: p_token1_value => 'content_sequence');
402:
403: -- set error flag and halt validation
404: x_return_status := OKC_API.G_RET_STS_ERROR;
405: RAISE G_EXCEPTION_HALT_VALIDATION;
406: END IF;
407:
408: IF (l_row_found)
407:
408: IF (l_row_found)
409: THEN
410: -- Display the newly defined error message
411: OKC_API.set_message(G_APP_NAME,
412: 'OKC_DUP_SEQUENCE_NUMBER');
413:
414: -- set error flag and halt validation
415: x_return_status := OKC_API.G_RET_STS_ERROR;
411: OKC_API.set_message(G_APP_NAME,
412: 'OKC_DUP_SEQUENCE_NUMBER');
413:
414: -- set error flag and halt validation
415: x_return_status := OKC_API.G_RET_STS_ERROR;
416: END IF;
417:
418: IF (l_debug = 'Y') THEN
419: okc_debug.log('1400: Leaving validate_content_sequence', 2);
428: okc_debug.Reset_Indentation;
429: END IF;
430:
431: -- store SQL error message on message stack
432: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
433: p_msg_name => g_unexpected_error,
434: p_token1 => g_sqlcode_token,
435: p_token1_value => sqlcode,
436: p_token2 => g_sqlerrm_token,
435: p_token1_value => sqlcode,
436: p_token2 => g_sqlerrm_token,
437: p_token2_value => sqlerrm);
438: -- notify caller of an error as UNEXPETED error
439: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
440:
441:
442: END validate_content_sequence;
443:
685: okc_debug.Set_Indentation('OKC_SCC_PVT');
686: okc_debug.log('2100: Entered null_out_defaults', 2);
687: END IF;
688:
689: IF (l_sccv_rec.id = OKC_API.G_MISS_NUM) THEN
690: l_sccv_rec.id := NULL;
691: END IF;
692: IF (l_sccv_rec.scn_id = OKC_API.G_MISS_NUM) THEN
693: l_sccv_rec.scn_id := NULL;
688:
689: IF (l_sccv_rec.id = OKC_API.G_MISS_NUM) THEN
690: l_sccv_rec.id := NULL;
691: END IF;
692: IF (l_sccv_rec.scn_id = OKC_API.G_MISS_NUM) THEN
693: l_sccv_rec.scn_id := NULL;
694: END IF;
695: IF (l_sccv_rec.label = OKC_API.G_MISS_CHAR) THEN
696: l_sccv_rec.label := NULL;
691: END IF;
692: IF (l_sccv_rec.scn_id = OKC_API.G_MISS_NUM) THEN
693: l_sccv_rec.scn_id := NULL;
694: END IF;
695: IF (l_sccv_rec.label = OKC_API.G_MISS_CHAR) THEN
696: l_sccv_rec.label := NULL;
697: END IF;
698: IF (l_sccv_rec.cat_id = OKC_API.G_MISS_NUM) THEN
699: l_sccv_rec.cat_id := NULL;
694: END IF;
695: IF (l_sccv_rec.label = OKC_API.G_MISS_CHAR) THEN
696: l_sccv_rec.label := NULL;
697: END IF;
698: IF (l_sccv_rec.cat_id = OKC_API.G_MISS_NUM) THEN
699: l_sccv_rec.cat_id := NULL;
700: END IF;
701: IF (l_sccv_rec.cle_id = OKC_API.G_MISS_NUM) THEN
702: l_sccv_rec.cle_id := NULL;
697: END IF;
698: IF (l_sccv_rec.cat_id = OKC_API.G_MISS_NUM) THEN
699: l_sccv_rec.cat_id := NULL;
700: END IF;
701: IF (l_sccv_rec.cle_id = OKC_API.G_MISS_NUM) THEN
702: l_sccv_rec.cle_id := NULL;
703: END IF;
704: IF (l_sccv_rec.sae_id = OKC_API.G_MISS_NUM) THEN
705: l_sccv_rec.sae_id := NULL;
700: END IF;
701: IF (l_sccv_rec.cle_id = OKC_API.G_MISS_NUM) THEN
702: l_sccv_rec.cle_id := NULL;
703: END IF;
704: IF (l_sccv_rec.sae_id = OKC_API.G_MISS_NUM) THEN
705: l_sccv_rec.sae_id := NULL;
706: END IF;
707: IF (l_sccv_rec.content_sequence = OKC_API.G_MISS_NUM) THEN
708: l_sccv_rec.content_sequence := NULL;
703: END IF;
704: IF (l_sccv_rec.sae_id = OKC_API.G_MISS_NUM) THEN
705: l_sccv_rec.sae_id := NULL;
706: END IF;
707: IF (l_sccv_rec.content_sequence = OKC_API.G_MISS_NUM) THEN
708: l_sccv_rec.content_sequence := NULL;
709: END IF;
710: IF (l_sccv_rec.object_version_number = OKC_API.G_MISS_NUM) THEN
711: l_sccv_rec.object_version_number := NULL;
706: END IF;
707: IF (l_sccv_rec.content_sequence = OKC_API.G_MISS_NUM) THEN
708: l_sccv_rec.content_sequence := NULL;
709: END IF;
710: IF (l_sccv_rec.object_version_number = OKC_API.G_MISS_NUM) THEN
711: l_sccv_rec.object_version_number := NULL;
712: END IF;
713: IF (l_sccv_rec.created_by = OKC_API.G_MISS_NUM) THEN
714: l_sccv_rec.created_by := NULL;
709: END IF;
710: IF (l_sccv_rec.object_version_number = OKC_API.G_MISS_NUM) THEN
711: l_sccv_rec.object_version_number := NULL;
712: END IF;
713: IF (l_sccv_rec.created_by = OKC_API.G_MISS_NUM) THEN
714: l_sccv_rec.created_by := NULL;
715: END IF;
716: IF (l_sccv_rec.creation_date = OKC_API.G_MISS_DATE) THEN
717: l_sccv_rec.creation_date := NULL;
712: END IF;
713: IF (l_sccv_rec.created_by = OKC_API.G_MISS_NUM) THEN
714: l_sccv_rec.created_by := NULL;
715: END IF;
716: IF (l_sccv_rec.creation_date = OKC_API.G_MISS_DATE) THEN
717: l_sccv_rec.creation_date := NULL;
718: END IF;
719: IF (l_sccv_rec.last_updated_by = OKC_API.G_MISS_NUM) THEN
720: l_sccv_rec.last_updated_by := NULL;
715: END IF;
716: IF (l_sccv_rec.creation_date = OKC_API.G_MISS_DATE) THEN
717: l_sccv_rec.creation_date := NULL;
718: END IF;
719: IF (l_sccv_rec.last_updated_by = OKC_API.G_MISS_NUM) THEN
720: l_sccv_rec.last_updated_by := NULL;
721: END IF;
722: IF (l_sccv_rec.last_update_date = OKC_API.G_MISS_DATE) THEN
723: l_sccv_rec.last_update_date := NULL;
718: END IF;
719: IF (l_sccv_rec.last_updated_by = OKC_API.G_MISS_NUM) THEN
720: l_sccv_rec.last_updated_by := NULL;
721: END IF;
722: IF (l_sccv_rec.last_update_date = OKC_API.G_MISS_DATE) THEN
723: l_sccv_rec.last_update_date := NULL;
724: END IF;
725: IF (l_sccv_rec.last_update_login = OKC_API.G_MISS_NUM) THEN
726: l_sccv_rec.last_update_login := NULL;
721: END IF;
722: IF (l_sccv_rec.last_update_date = OKC_API.G_MISS_DATE) THEN
723: l_sccv_rec.last_update_date := NULL;
724: END IF;
725: IF (l_sccv_rec.last_update_login = OKC_API.G_MISS_NUM) THEN
726: l_sccv_rec.last_update_login := NULL;
727: END IF;
728: IF (l_sccv_rec.attribute_category = OKC_API.G_MISS_CHAR) THEN
729: l_sccv_rec.attribute_category := NULL;
724: END IF;
725: IF (l_sccv_rec.last_update_login = OKC_API.G_MISS_NUM) THEN
726: l_sccv_rec.last_update_login := NULL;
727: END IF;
728: IF (l_sccv_rec.attribute_category = OKC_API.G_MISS_CHAR) THEN
729: l_sccv_rec.attribute_category := NULL;
730: END IF;
731: IF (l_sccv_rec.attribute1 = OKC_API.G_MISS_CHAR) THEN
732: l_sccv_rec.attribute1 := NULL;
727: END IF;
728: IF (l_sccv_rec.attribute_category = OKC_API.G_MISS_CHAR) THEN
729: l_sccv_rec.attribute_category := NULL;
730: END IF;
731: IF (l_sccv_rec.attribute1 = OKC_API.G_MISS_CHAR) THEN
732: l_sccv_rec.attribute1 := NULL;
733: END IF;
734: IF (l_sccv_rec.attribute2 = OKC_API.G_MISS_CHAR) THEN
735: l_sccv_rec.attribute2 := NULL;
730: END IF;
731: IF (l_sccv_rec.attribute1 = OKC_API.G_MISS_CHAR) THEN
732: l_sccv_rec.attribute1 := NULL;
733: END IF;
734: IF (l_sccv_rec.attribute2 = OKC_API.G_MISS_CHAR) THEN
735: l_sccv_rec.attribute2 := NULL;
736: END IF;
737: IF (l_sccv_rec.attribute3 = OKC_API.G_MISS_CHAR) THEN
738: l_sccv_rec.attribute3 := NULL;
733: END IF;
734: IF (l_sccv_rec.attribute2 = OKC_API.G_MISS_CHAR) THEN
735: l_sccv_rec.attribute2 := NULL;
736: END IF;
737: IF (l_sccv_rec.attribute3 = OKC_API.G_MISS_CHAR) THEN
738: l_sccv_rec.attribute3 := NULL;
739: END IF;
740: IF (l_sccv_rec.attribute4 = OKC_API.G_MISS_CHAR) THEN
741: l_sccv_rec.attribute4 := NULL;
736: END IF;
737: IF (l_sccv_rec.attribute3 = OKC_API.G_MISS_CHAR) THEN
738: l_sccv_rec.attribute3 := NULL;
739: END IF;
740: IF (l_sccv_rec.attribute4 = OKC_API.G_MISS_CHAR) THEN
741: l_sccv_rec.attribute4 := NULL;
742: END IF;
743: IF (l_sccv_rec.attribute5 = OKC_API.G_MISS_CHAR) THEN
744: l_sccv_rec.attribute5 := NULL;
739: END IF;
740: IF (l_sccv_rec.attribute4 = OKC_API.G_MISS_CHAR) THEN
741: l_sccv_rec.attribute4 := NULL;
742: END IF;
743: IF (l_sccv_rec.attribute5 = OKC_API.G_MISS_CHAR) THEN
744: l_sccv_rec.attribute5 := NULL;
745: END IF;
746: IF (l_sccv_rec.attribute6 = OKC_API.G_MISS_CHAR) THEN
747: l_sccv_rec.attribute6 := NULL;
742: END IF;
743: IF (l_sccv_rec.attribute5 = OKC_API.G_MISS_CHAR) THEN
744: l_sccv_rec.attribute5 := NULL;
745: END IF;
746: IF (l_sccv_rec.attribute6 = OKC_API.G_MISS_CHAR) THEN
747: l_sccv_rec.attribute6 := NULL;
748: END IF;
749: IF (l_sccv_rec.attribute7 = OKC_API.G_MISS_CHAR) THEN
750: l_sccv_rec.attribute7 := NULL;
745: END IF;
746: IF (l_sccv_rec.attribute6 = OKC_API.G_MISS_CHAR) THEN
747: l_sccv_rec.attribute6 := NULL;
748: END IF;
749: IF (l_sccv_rec.attribute7 = OKC_API.G_MISS_CHAR) THEN
750: l_sccv_rec.attribute7 := NULL;
751: END IF;
752: IF (l_sccv_rec.attribute8 = OKC_API.G_MISS_CHAR) THEN
753: l_sccv_rec.attribute8 := NULL;
748: END IF;
749: IF (l_sccv_rec.attribute7 = OKC_API.G_MISS_CHAR) THEN
750: l_sccv_rec.attribute7 := NULL;
751: END IF;
752: IF (l_sccv_rec.attribute8 = OKC_API.G_MISS_CHAR) THEN
753: l_sccv_rec.attribute8 := NULL;
754: END IF;
755: IF (l_sccv_rec.attribute9 = OKC_API.G_MISS_CHAR) THEN
756: l_sccv_rec.attribute9 := NULL;
751: END IF;
752: IF (l_sccv_rec.attribute8 = OKC_API.G_MISS_CHAR) THEN
753: l_sccv_rec.attribute8 := NULL;
754: END IF;
755: IF (l_sccv_rec.attribute9 = OKC_API.G_MISS_CHAR) THEN
756: l_sccv_rec.attribute9 := NULL;
757: END IF;
758: IF (l_sccv_rec.attribute10 = OKC_API.G_MISS_CHAR) THEN
759: l_sccv_rec.attribute10 := NULL;
754: END IF;
755: IF (l_sccv_rec.attribute9 = OKC_API.G_MISS_CHAR) THEN
756: l_sccv_rec.attribute9 := NULL;
757: END IF;
758: IF (l_sccv_rec.attribute10 = OKC_API.G_MISS_CHAR) THEN
759: l_sccv_rec.attribute10 := NULL;
760: END IF;
761: IF (l_sccv_rec.attribute11 = OKC_API.G_MISS_CHAR) THEN
762: l_sccv_rec.attribute11 := NULL;
757: END IF;
758: IF (l_sccv_rec.attribute10 = OKC_API.G_MISS_CHAR) THEN
759: l_sccv_rec.attribute10 := NULL;
760: END IF;
761: IF (l_sccv_rec.attribute11 = OKC_API.G_MISS_CHAR) THEN
762: l_sccv_rec.attribute11 := NULL;
763: END IF;
764: IF (l_sccv_rec.attribute12 = OKC_API.G_MISS_CHAR) THEN
765: l_sccv_rec.attribute12 := NULL;
760: END IF;
761: IF (l_sccv_rec.attribute11 = OKC_API.G_MISS_CHAR) THEN
762: l_sccv_rec.attribute11 := NULL;
763: END IF;
764: IF (l_sccv_rec.attribute12 = OKC_API.G_MISS_CHAR) THEN
765: l_sccv_rec.attribute12 := NULL;
766: END IF;
767: IF (l_sccv_rec.attribute13 = OKC_API.G_MISS_CHAR) THEN
768: l_sccv_rec.attribute13 := NULL;
763: END IF;
764: IF (l_sccv_rec.attribute12 = OKC_API.G_MISS_CHAR) THEN
765: l_sccv_rec.attribute12 := NULL;
766: END IF;
767: IF (l_sccv_rec.attribute13 = OKC_API.G_MISS_CHAR) THEN
768: l_sccv_rec.attribute13 := NULL;
769: END IF;
770: IF (l_sccv_rec.attribute14 = OKC_API.G_MISS_CHAR) THEN
771: l_sccv_rec.attribute14 := NULL;
766: END IF;
767: IF (l_sccv_rec.attribute13 = OKC_API.G_MISS_CHAR) THEN
768: l_sccv_rec.attribute13 := NULL;
769: END IF;
770: IF (l_sccv_rec.attribute14 = OKC_API.G_MISS_CHAR) THEN
771: l_sccv_rec.attribute14 := NULL;
772: END IF;
773: IF (l_sccv_rec.attribute15 = OKC_API.G_MISS_CHAR) THEN
774: l_sccv_rec.attribute15 := NULL;
769: END IF;
770: IF (l_sccv_rec.attribute14 = OKC_API.G_MISS_CHAR) THEN
771: l_sccv_rec.attribute14 := NULL;
772: END IF;
773: IF (l_sccv_rec.attribute15 = OKC_API.G_MISS_CHAR) THEN
774: l_sccv_rec.attribute15 := NULL;
775: END IF;
776:
777: IF (l_debug = 'Y') THEN
790: ----------------------------------------------------
791: FUNCTION Validate_Attributes (
792: p_sccv_rec IN sccv_rec_type
793: ) RETURN VARCHAR2 IS
794: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
795: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
796: BEGIN
797:
798: IF (l_debug = 'Y') THEN
791: FUNCTION Validate_Attributes (
792: p_sccv_rec IN sccv_rec_type
793: ) RETURN VARCHAR2 IS
794: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
795: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
796: BEGIN
797:
798: IF (l_debug = 'Y') THEN
799: okc_debug.Set_Indentation('OKC_SCC_PVT');
805: (x_return_status => l_return_status,
806: p_sccv_rec => p_sccv_rec);
807:
808: -- store the highest degree of error
809: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
810: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
811: x_return_status := l_return_status;
812: End If;
813: End If;
806: p_sccv_rec => p_sccv_rec);
807:
808: -- store the highest degree of error
809: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
810: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
811: x_return_status := l_return_status;
812: End If;
813: End If;
814:
816: (x_return_status => l_return_status,
817: p_sccv_rec => p_sccv_rec);
818:
819: -- store the highest degree of error
820: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
821: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
822: x_return_status := l_return_status;
823: End If;
824: End If;
817: p_sccv_rec => p_sccv_rec);
818:
819: -- store the highest degree of error
820: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
821: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
822: x_return_status := l_return_status;
823: End If;
824: End If;
825:
827: (x_return_status => l_return_status,
828: p_sccv_rec => p_sccv_rec);
829:
830: -- store the highest degree of error
831: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
832: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
833: x_return_status := l_return_status;
834: End If;
835: End If;
828: p_sccv_rec => p_sccv_rec);
829:
830: -- store the highest degree of error
831: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
832: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
833: x_return_status := l_return_status;
834: End If;
835: End If;
836:
838: (x_return_status => l_return_status,
839: p_sccv_rec => p_sccv_rec);
840:
841: -- store the highest degree of error
842: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
843: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
844: x_return_status := l_return_status;
845: End If;
846: End If;
839: p_sccv_rec => p_sccv_rec);
840:
841: -- store the highest degree of error
842: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
843: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
844: x_return_status := l_return_status;
845: End If;
846: End If;
847:
849: (x_return_status => l_return_status,
850: p_sccv_rec => p_sccv_rec);
851:
852: -- store the highest degree of error
853: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
854: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
855: x_return_status := l_return_status;
856: End If;
857: End If;
850: p_sccv_rec => p_sccv_rec);
851:
852: -- store the highest degree of error
853: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
854: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
855: x_return_status := l_return_status;
856: End If;
857: End If;
858:
871: okc_debug.Reset_Indentation;
872: END IF;
873:
874: -- store SQL error message on message stack
875: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
876: p_msg_name => g_unexpected_error,
877: p_token1 => g_sqlcode_token,
878: p_token1_value => sqlcode,
879: p_token2 => g_sqlerrm_token,
879: p_token2 => g_sqlerrm_token,
880: p_token2_value => sqlerrm);
881:
882: -- notify caller of an UNEXPETED error
883: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
884:
885: -- return status to caller
886: RETURN(x_return_status);
887: /*********************** END HAND-CODED ********************************/
896: ------------------------------------------------
897: FUNCTION Validate_Record (
898: p_sccv_rec IN sccv_rec_type
899: ) RETURN VARCHAR2 IS
900: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
901:
902: l_counter NUMBER := 0;
903:
904: Cursor l_sccv_csr Is
922: Fetch l_sccv_csr Into l_counter;
923: Close l_sccv_csr;
924:
925: If (l_counter > 0 ) Then
926: l_return_status := OKC_API.G_RET_STS_ERROR;
927: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
928: p_msg_name => 'OKC_VALUE_NOT_UNIQUE',
929: p_token1 => G_COL_NAME_TOKEN,
930: p_token1_value => 'Article');
923: Close l_sccv_csr;
924:
925: If (l_counter > 0 ) Then
926: l_return_status := OKC_API.G_RET_STS_ERROR;
927: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
928: p_msg_name => 'OKC_VALUE_NOT_UNIQUE',
929: p_token1 => G_COL_NAME_TOKEN,
930: p_token1_value => 'Article');
931: End If;
1034: p_sccv_rec IN sccv_rec_type) IS
1035:
1036: l_api_version CONSTANT NUMBER := 1;
1037: l_api_name CONSTANT VARCHAR2(30) := 'V_validate_row';
1038: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1039: l_sccv_rec sccv_rec_type := p_sccv_rec;
1040: l_scc_rec scc_rec_type;
1041: BEGIN
1042:
1044: okc_debug.Set_Indentation('OKC_SCC_PVT');
1045: okc_debug.log('2800: Entered validate_row', 2);
1046: END IF;
1047:
1048: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1049: G_PKG_NAME,
1050: p_init_msg_list,
1051: l_api_version,
1052: p_api_version,
1051: l_api_version,
1052: p_api_version,
1053: '_PVT',
1054: x_return_status);
1055: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1056: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1057: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1058: RAISE OKC_API.G_EXCEPTION_ERROR;
1059: END IF;
1052: p_api_version,
1053: '_PVT',
1054: x_return_status);
1055: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1056: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1057: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1058: RAISE OKC_API.G_EXCEPTION_ERROR;
1059: END IF;
1060: --- Validate all non-missing attributes (Item Level Validation)
1053: '_PVT',
1054: x_return_status);
1055: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1056: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1057: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1058: RAISE OKC_API.G_EXCEPTION_ERROR;
1059: END IF;
1060: --- Validate all non-missing attributes (Item Level Validation)
1061: l_return_status := Validate_Attributes(l_sccv_rec);
1054: x_return_status);
1055: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1056: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1057: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1058: RAISE OKC_API.G_EXCEPTION_ERROR;
1059: END IF;
1060: --- Validate all non-missing attributes (Item Level Validation)
1061: l_return_status := Validate_Attributes(l_sccv_rec);
1062: --- If any errors happen abort API
1059: END IF;
1060: --- Validate all non-missing attributes (Item Level Validation)
1061: l_return_status := Validate_Attributes(l_sccv_rec);
1062: --- If any errors happen abort API
1063: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1064: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1065: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1066: RAISE OKC_API.G_EXCEPTION_ERROR;
1067: END IF;
1060: --- Validate all non-missing attributes (Item Level Validation)
1061: l_return_status := Validate_Attributes(l_sccv_rec);
1062: --- If any errors happen abort API
1063: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1064: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1065: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1066: RAISE OKC_API.G_EXCEPTION_ERROR;
1067: END IF;
1068: l_return_status := Validate_Record(l_sccv_rec);
1061: l_return_status := Validate_Attributes(l_sccv_rec);
1062: --- If any errors happen abort API
1063: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1064: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1065: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1066: RAISE OKC_API.G_EXCEPTION_ERROR;
1067: END IF;
1068: l_return_status := Validate_Record(l_sccv_rec);
1069: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1062: --- If any errors happen abort API
1063: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1064: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1065: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1066: RAISE OKC_API.G_EXCEPTION_ERROR;
1067: END IF;
1068: l_return_status := Validate_Record(l_sccv_rec);
1069: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1070: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1065: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1066: RAISE OKC_API.G_EXCEPTION_ERROR;
1067: END IF;
1068: l_return_status := Validate_Record(l_sccv_rec);
1069: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1070: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1071: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1072: RAISE OKC_API.G_EXCEPTION_ERROR;
1073: END IF;
1066: RAISE OKC_API.G_EXCEPTION_ERROR;
1067: END IF;
1068: l_return_status := Validate_Record(l_sccv_rec);
1069: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1070: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1071: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1072: RAISE OKC_API.G_EXCEPTION_ERROR;
1073: END IF;
1074: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1067: END IF;
1068: l_return_status := Validate_Record(l_sccv_rec);
1069: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1070: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1071: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1072: RAISE OKC_API.G_EXCEPTION_ERROR;
1073: END IF;
1074: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1075:
1068: l_return_status := Validate_Record(l_sccv_rec);
1069: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1070: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1071: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1072: RAISE OKC_API.G_EXCEPTION_ERROR;
1073: END IF;
1074: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1075:
1076: IF (l_debug = 'Y') THEN
1070: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1071: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1072: RAISE OKC_API.G_EXCEPTION_ERROR;
1073: END IF;
1074: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1075:
1076: IF (l_debug = 'Y') THEN
1077: okc_debug.log('2900: Leaving validate_row', 2);
1078: okc_debug.Reset_Indentation;
1078: okc_debug.Reset_Indentation;
1079: END IF;
1080:
1081: EXCEPTION
1082: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1083:
1084: IF (l_debug = 'Y') THEN
1085: okc_debug.log('3000: Exiting validate_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1086: okc_debug.Reset_Indentation;
1081: EXCEPTION
1082: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1083:
1084: IF (l_debug = 'Y') THEN
1085: okc_debug.log('3000: Exiting validate_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1086: okc_debug.Reset_Indentation;
1087: END IF;
1088:
1089: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1085: okc_debug.log('3000: Exiting validate_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1086: okc_debug.Reset_Indentation;
1087: END IF;
1088:
1089: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1090: (
1091: l_api_name,
1092: G_PKG_NAME,
1093: 'OKC_API.G_RET_STS_ERROR',
1089: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1090: (
1091: l_api_name,
1092: G_PKG_NAME,
1093: 'OKC_API.G_RET_STS_ERROR',
1094: x_msg_count,
1095: x_msg_data,
1096: '_PVT'
1097: );
1094: x_msg_count,
1095: x_msg_data,
1096: '_PVT'
1097: );
1098: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1099:
1100: IF (l_debug = 'Y') THEN
1101: okc_debug.log('3100: Exiting validate_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1102: okc_debug.Reset_Indentation;
1097: );
1098: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1099:
1100: IF (l_debug = 'Y') THEN
1101: okc_debug.log('3100: Exiting validate_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1102: okc_debug.Reset_Indentation;
1103: END IF;
1104:
1105: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1101: okc_debug.log('3100: Exiting validate_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1102: okc_debug.Reset_Indentation;
1103: END IF;
1104:
1105: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1106: (
1107: l_api_name,
1108: G_PKG_NAME,
1109: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1105: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1106: (
1107: l_api_name,
1108: G_PKG_NAME,
1109: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1110: x_msg_count,
1111: x_msg_data,
1112: '_PVT'
1113: );
1117: okc_debug.log('3200: Exiting validate_row:OTHERS Exception', 2);
1118: okc_debug.Reset_Indentation;
1119: END IF;
1120:
1121: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1122: (
1123: l_api_name,
1124: G_PKG_NAME,
1125: 'OTHERS',
1141: p_sccv_tbl IN sccv_tbl_type) IS
1142:
1143: l_api_version CONSTANT NUMBER := 1;
1144: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
1145: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1146: i NUMBER := 0;
1147: BEGIN
1148:
1149: IF (l_debug = 'Y') THEN
1150: okc_debug.Set_Indentation('OKC_SCC_PVT');
1151: okc_debug.log('3300: Entered validate_row', 2);
1152: END IF;
1153:
1154: OKC_API.init_msg_list(p_init_msg_list);
1155: -- Make sure PL/SQL table has records in it before passing
1156: IF (p_sccv_tbl.COUNT > 0) THEN
1157: i := p_sccv_tbl.FIRST;
1158: LOOP
1157: i := p_sccv_tbl.FIRST;
1158: LOOP
1159: validate_row (
1160: p_api_version => p_api_version,
1161: p_init_msg_list => OKC_API.G_FALSE,
1162: x_return_status => x_return_status,
1163: x_msg_count => x_msg_count,
1164: x_msg_data => x_msg_data,
1165: p_sccv_rec => p_sccv_tbl(i));
1173: okc_debug.Reset_Indentation;
1174: END IF;
1175:
1176: EXCEPTION
1177: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1178:
1179: IF (l_debug = 'Y') THEN
1180: okc_debug.log('3500: Exiting validate_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1181: okc_debug.Reset_Indentation;
1176: EXCEPTION
1177: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1178:
1179: IF (l_debug = 'Y') THEN
1180: okc_debug.log('3500: Exiting validate_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1181: okc_debug.Reset_Indentation;
1182: END IF;
1183:
1184: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1180: okc_debug.log('3500: Exiting validate_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1181: okc_debug.Reset_Indentation;
1182: END IF;
1183:
1184: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1185: (
1186: l_api_name,
1187: G_PKG_NAME,
1188: 'OKC_API.G_RET_STS_ERROR',
1184: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1185: (
1186: l_api_name,
1187: G_PKG_NAME,
1188: 'OKC_API.G_RET_STS_ERROR',
1189: x_msg_count,
1190: x_msg_data,
1191: '_PVT'
1192: );
1189: x_msg_count,
1190: x_msg_data,
1191: '_PVT'
1192: );
1193: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1194:
1195: IF (l_debug = 'Y') THEN
1196: okc_debug.log('3600: Exiting validate_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1197: okc_debug.Reset_Indentation;
1192: );
1193: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1194:
1195: IF (l_debug = 'Y') THEN
1196: okc_debug.log('3600: Exiting validate_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1197: okc_debug.Reset_Indentation;
1198: END IF;
1199:
1200: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1196: okc_debug.log('3600: Exiting validate_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1197: okc_debug.Reset_Indentation;
1198: END IF;
1199:
1200: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1201: (
1202: l_api_name,
1203: G_PKG_NAME,
1204: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1200: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1201: (
1202: l_api_name,
1203: G_PKG_NAME,
1204: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1205: x_msg_count,
1206: x_msg_data,
1207: '_PVT'
1208: );
1212: okc_debug.log('3700: Exiting validate_row:OTHERS Exception', 2);
1213: okc_debug.Reset_Indentation;
1214: END IF;
1215:
1216: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1217: (
1218: l_api_name,
1219: G_PKG_NAME,
1220: 'OTHERS',
1240: x_scc_rec OUT NOCOPY scc_rec_type) IS
1241:
1242: l_api_version CONSTANT NUMBER := 1;
1243: l_api_name CONSTANT VARCHAR2(30) := 'CONTENTS_insert_row';
1244: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1245: l_scc_rec scc_rec_type := p_scc_rec;
1246: l_def_scc_rec scc_rec_type;
1247: ---------------------------------------------
1248: -- Set_Attributes for:OKC_SECTION_CONTENTS --
1250: FUNCTION Set_Attributes (
1251: p_scc_rec IN scc_rec_type,
1252: x_scc_rec OUT NOCOPY scc_rec_type
1253: ) RETURN VARCHAR2 IS
1254: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1255: BEGIN
1256:
1257: x_scc_rec := p_scc_rec;
1258: RETURN(l_return_status);
1264: okc_debug.Set_Indentation('OKC_SCC_PVT');
1265: okc_debug.log('3900: Entered insert_row', 2);
1266: END IF;
1267:
1268: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1269: p_init_msg_list,
1270: '_PVT',
1271: x_return_status);
1272: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1268: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1269: p_init_msg_list,
1270: '_PVT',
1271: x_return_status);
1272: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1273: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1274: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1275: RAISE OKC_API.G_EXCEPTION_ERROR;
1276: END IF;
1269: p_init_msg_list,
1270: '_PVT',
1271: x_return_status);
1272: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1273: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1274: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1275: RAISE OKC_API.G_EXCEPTION_ERROR;
1276: END IF;
1277: --- Setting item attributes
1270: '_PVT',
1271: x_return_status);
1272: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1273: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1274: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1275: RAISE OKC_API.G_EXCEPTION_ERROR;
1276: END IF;
1277: --- Setting item attributes
1278: l_return_status := Set_Attributes(
1271: x_return_status);
1272: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1273: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1274: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1275: RAISE OKC_API.G_EXCEPTION_ERROR;
1276: END IF;
1277: --- Setting item attributes
1278: l_return_status := Set_Attributes(
1279: p_scc_rec, -- IN
1278: l_return_status := Set_Attributes(
1279: p_scc_rec, -- IN
1280: l_scc_rec); -- OUT
1281: --- If any errors happen abort API
1282: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1283: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1284: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1285: RAISE OKC_API.G_EXCEPTION_ERROR;
1286: END IF;
1279: p_scc_rec, -- IN
1280: l_scc_rec); -- OUT
1281: --- If any errors happen abort API
1282: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1283: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1284: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1285: RAISE OKC_API.G_EXCEPTION_ERROR;
1286: END IF;
1287: INSERT INTO OKC_SECTION_CONTENTS(
1280: l_scc_rec); -- OUT
1281: --- If any errors happen abort API
1282: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1283: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1284: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1285: RAISE OKC_API.G_EXCEPTION_ERROR;
1286: END IF;
1287: INSERT INTO OKC_SECTION_CONTENTS(
1288: id,
1281: --- If any errors happen abort API
1282: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1283: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1284: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1285: RAISE OKC_API.G_EXCEPTION_ERROR;
1286: END IF;
1287: INSERT INTO OKC_SECTION_CONTENTS(
1288: id,
1289: scn_id,
1345: l_scc_rec.attribute14,
1346: l_scc_rec.attribute15);
1347: -- Set OUT values
1348: x_scc_rec := l_scc_rec;
1349: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1350:
1351: IF (l_debug = 'Y') THEN
1352: okc_debug.log('4000: Leaving insert_row', 2);
1353: okc_debug.Reset_Indentation;
1353: okc_debug.Reset_Indentation;
1354: END IF;
1355:
1356: EXCEPTION
1357: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1358:
1359: IF (l_debug = 'Y') THEN
1360: okc_debug.log('4100: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1361: okc_debug.Reset_Indentation;
1356: EXCEPTION
1357: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1358:
1359: IF (l_debug = 'Y') THEN
1360: okc_debug.log('4100: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1361: okc_debug.Reset_Indentation;
1362: END IF;
1363:
1364: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1360: okc_debug.log('4100: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1361: okc_debug.Reset_Indentation;
1362: END IF;
1363:
1364: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1365: (
1366: l_api_name,
1367: G_PKG_NAME,
1368: 'OKC_API.G_RET_STS_ERROR',
1364: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1365: (
1366: l_api_name,
1367: G_PKG_NAME,
1368: 'OKC_API.G_RET_STS_ERROR',
1369: x_msg_count,
1370: x_msg_data,
1371: '_PVT'
1372: );
1369: x_msg_count,
1370: x_msg_data,
1371: '_PVT'
1372: );
1373: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1374:
1375: IF (l_debug = 'Y') THEN
1376: okc_debug.log('4200: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1377: okc_debug.Reset_Indentation;
1372: );
1373: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1374:
1375: IF (l_debug = 'Y') THEN
1376: okc_debug.log('4200: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1377: okc_debug.Reset_Indentation;
1378: END IF;
1379:
1380: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1376: okc_debug.log('4200: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1377: okc_debug.Reset_Indentation;
1378: END IF;
1379:
1380: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1381: (
1382: l_api_name,
1383: G_PKG_NAME,
1384: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1380: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1381: (
1382: l_api_name,
1383: G_PKG_NAME,
1384: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1385: x_msg_count,
1386: x_msg_data,
1387: '_PVT'
1388: );
1392: okc_debug.log('4300: Exiting insert_row:OTHERS Exception', 2);
1393: okc_debug.Reset_Indentation;
1394: END IF;
1395:
1396: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1397: (
1398: l_api_name,
1399: G_PKG_NAME,
1400: 'OTHERS',
1417: x_sccv_rec OUT NOCOPY sccv_rec_type) IS
1418:
1419: l_api_version CONSTANT NUMBER := 1;
1420: l_api_name CONSTANT VARCHAR2(30) := 'V_insert_row';
1421: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1422: l_sccv_rec sccv_rec_type;
1423: l_def_sccv_rec sccv_rec_type;
1424: l_scc_rec scc_rec_type;
1425: lx_scc_rec scc_rec_type;
1446: FUNCTION Set_Attributes (
1447: p_sccv_rec IN sccv_rec_type,
1448: x_sccv_rec OUT NOCOPY sccv_rec_type
1449: ) RETURN VARCHAR2 IS
1450: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1451: BEGIN
1452:
1453: x_sccv_rec := p_sccv_rec;
1454: x_sccv_rec.OBJECT_VERSION_NUMBER := 1;
1461: okc_debug.Set_Indentation('OKC_SCC_PVT');
1462: okc_debug.log('4600: Entered insert_row', 2);
1463: END IF;
1464:
1465: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1466: G_PKG_NAME,
1467: p_init_msg_list,
1468: l_api_version,
1469: p_api_version,
1468: l_api_version,
1469: p_api_version,
1470: '_PVT',
1471: x_return_status);
1472: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1473: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1474: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1475: RAISE OKC_API.G_EXCEPTION_ERROR;
1476: END IF;
1469: p_api_version,
1470: '_PVT',
1471: x_return_status);
1472: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1473: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1474: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1475: RAISE OKC_API.G_EXCEPTION_ERROR;
1476: END IF;
1477: l_sccv_rec := null_out_defaults(p_sccv_rec);
1470: '_PVT',
1471: x_return_status);
1472: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1473: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1474: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1475: RAISE OKC_API.G_EXCEPTION_ERROR;
1476: END IF;
1477: l_sccv_rec := null_out_defaults(p_sccv_rec);
1478: -- Set primary key value
1471: x_return_status);
1472: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1473: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1474: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1475: RAISE OKC_API.G_EXCEPTION_ERROR;
1476: END IF;
1477: l_sccv_rec := null_out_defaults(p_sccv_rec);
1478: -- Set primary key value
1479: l_sccv_rec.ID := get_seq_id;
1481: l_return_status := Set_Attributes(
1482: l_sccv_rec, -- IN
1483: l_def_sccv_rec); -- OUT
1484: --- If any errors happen abort API
1485: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1486: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1487: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1488: RAISE OKC_API.G_EXCEPTION_ERROR;
1489: END IF;
1482: l_sccv_rec, -- IN
1483: l_def_sccv_rec); -- OUT
1484: --- If any errors happen abort API
1485: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1486: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1487: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1488: RAISE OKC_API.G_EXCEPTION_ERROR;
1489: END IF;
1490: l_def_sccv_rec := fill_who_columns(l_def_sccv_rec);
1483: l_def_sccv_rec); -- OUT
1484: --- If any errors happen abort API
1485: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1486: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1487: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1488: RAISE OKC_API.G_EXCEPTION_ERROR;
1489: END IF;
1490: l_def_sccv_rec := fill_who_columns(l_def_sccv_rec);
1491: --- Validate all non-missing attributes (Item Level Validation)
1484: --- If any errors happen abort API
1485: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1486: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1487: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1488: RAISE OKC_API.G_EXCEPTION_ERROR;
1489: END IF;
1490: l_def_sccv_rec := fill_who_columns(l_def_sccv_rec);
1491: --- Validate all non-missing attributes (Item Level Validation)
1492: l_return_status := Validate_Attributes(l_def_sccv_rec);
1490: l_def_sccv_rec := fill_who_columns(l_def_sccv_rec);
1491: --- Validate all non-missing attributes (Item Level Validation)
1492: l_return_status := Validate_Attributes(l_def_sccv_rec);
1493: --- If any errors happen abort API
1494: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1495: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1496: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1497: RAISE OKC_API.G_EXCEPTION_ERROR;
1498: END IF;
1491: --- Validate all non-missing attributes (Item Level Validation)
1492: l_return_status := Validate_Attributes(l_def_sccv_rec);
1493: --- If any errors happen abort API
1494: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1495: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1496: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1497: RAISE OKC_API.G_EXCEPTION_ERROR;
1498: END IF;
1499: l_return_status := Validate_Record(l_def_sccv_rec);
1492: l_return_status := Validate_Attributes(l_def_sccv_rec);
1493: --- If any errors happen abort API
1494: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1495: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1496: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1497: RAISE OKC_API.G_EXCEPTION_ERROR;
1498: END IF;
1499: l_return_status := Validate_Record(l_def_sccv_rec);
1500: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1493: --- If any errors happen abort API
1494: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1495: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1496: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1497: RAISE OKC_API.G_EXCEPTION_ERROR;
1498: END IF;
1499: l_return_status := Validate_Record(l_def_sccv_rec);
1500: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1501: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1496: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1497: RAISE OKC_API.G_EXCEPTION_ERROR;
1498: END IF;
1499: l_return_status := Validate_Record(l_def_sccv_rec);
1500: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1501: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1502: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1503: RAISE OKC_API.G_EXCEPTION_ERROR;
1504: END IF;
1497: RAISE OKC_API.G_EXCEPTION_ERROR;
1498: END IF;
1499: l_return_status := Validate_Record(l_def_sccv_rec);
1500: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1501: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1502: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1503: RAISE OKC_API.G_EXCEPTION_ERROR;
1504: END IF;
1505: --------------------------------------
1498: END IF;
1499: l_return_status := Validate_Record(l_def_sccv_rec);
1500: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1501: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1502: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1503: RAISE OKC_API.G_EXCEPTION_ERROR;
1504: END IF;
1505: --------------------------------------
1506: -- Move VIEW record to "Child" records
1499: l_return_status := Validate_Record(l_def_sccv_rec);
1500: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1501: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1502: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1503: RAISE OKC_API.G_EXCEPTION_ERROR;
1504: END IF;
1505: --------------------------------------
1506: -- Move VIEW record to "Child" records
1507: --------------------------------------
1516: x_msg_data,
1517: l_scc_rec,
1518: lx_scc_rec
1519: );
1520: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1521: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1522: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1523: RAISE OKC_API.G_EXCEPTION_ERROR;
1524: END IF;
1517: l_scc_rec,
1518: lx_scc_rec
1519: );
1520: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1521: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1522: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1523: RAISE OKC_API.G_EXCEPTION_ERROR;
1524: END IF;
1525: migrate(lx_scc_rec, l_def_sccv_rec);
1518: lx_scc_rec
1519: );
1520: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1521: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1522: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1523: RAISE OKC_API.G_EXCEPTION_ERROR;
1524: END IF;
1525: migrate(lx_scc_rec, l_def_sccv_rec);
1526: -- Set OUT values
1519: );
1520: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1521: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1522: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1523: RAISE OKC_API.G_EXCEPTION_ERROR;
1524: END IF;
1525: migrate(lx_scc_rec, l_def_sccv_rec);
1526: -- Set OUT values
1527: x_sccv_rec := l_def_sccv_rec;
1524: END IF;
1525: migrate(lx_scc_rec, l_def_sccv_rec);
1526: -- Set OUT values
1527: x_sccv_rec := l_def_sccv_rec;
1528: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1529:
1530: IF (l_debug = 'Y') THEN
1531: okc_debug.log('4700: Leaving insert_row', 2);
1532: okc_debug.Reset_Indentation;
1532: okc_debug.Reset_Indentation;
1533: END IF;
1534:
1535: EXCEPTION
1536: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1537:
1538: IF (l_debug = 'Y') THEN
1539: okc_debug.log('4800: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1540: okc_debug.Reset_Indentation;
1535: EXCEPTION
1536: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1537:
1538: IF (l_debug = 'Y') THEN
1539: okc_debug.log('4800: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1540: okc_debug.Reset_Indentation;
1541: END IF;
1542:
1543: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1539: okc_debug.log('4800: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1540: okc_debug.Reset_Indentation;
1541: END IF;
1542:
1543: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1544: (
1545: l_api_name,
1546: G_PKG_NAME,
1547: 'OKC_API.G_RET_STS_ERROR',
1543: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1544: (
1545: l_api_name,
1546: G_PKG_NAME,
1547: 'OKC_API.G_RET_STS_ERROR',
1548: x_msg_count,
1549: x_msg_data,
1550: '_PVT'
1551: );
1548: x_msg_count,
1549: x_msg_data,
1550: '_PVT'
1551: );
1552: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1553:
1554: IF (l_debug = 'Y') THEN
1555: okc_debug.log('4900: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1556: okc_debug.Reset_Indentation;
1551: );
1552: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1553:
1554: IF (l_debug = 'Y') THEN
1555: okc_debug.log('4900: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1556: okc_debug.Reset_Indentation;
1557: END IF;
1558:
1559: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1555: okc_debug.log('4900: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1556: okc_debug.Reset_Indentation;
1557: END IF;
1558:
1559: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1560: (
1561: l_api_name,
1562: G_PKG_NAME,
1563: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1559: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1560: (
1561: l_api_name,
1562: G_PKG_NAME,
1563: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1564: x_msg_count,
1565: x_msg_data,
1566: '_PVT'
1567: );
1571: okc_debug.log('5000: Exiting insert_row:OTHERS Exception', 2);
1572: okc_debug.Reset_Indentation;
1573: END IF;
1574:
1575: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1576: (
1577: l_api_name,
1578: G_PKG_NAME,
1579: 'OTHERS',
1596: x_sccv_tbl OUT NOCOPY sccv_tbl_type) IS
1597:
1598: l_api_version CONSTANT NUMBER := 1;
1599: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
1600: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1601: i NUMBER := 0;
1602: BEGIN
1603:
1604: IF (l_debug = 'Y') THEN
1605: okc_debug.Set_Indentation('OKC_SCC_PVT');
1606: okc_debug.log('5100: Entered insert_row', 2);
1607: END IF;
1608:
1609: OKC_API.init_msg_list(p_init_msg_list);
1610: -- Make sure PL/SQL table has records in it before passing
1611: IF (p_sccv_tbl.COUNT > 0) THEN
1612: i := p_sccv_tbl.FIRST;
1613: LOOP
1612: i := p_sccv_tbl.FIRST;
1613: LOOP
1614: insert_row (
1615: p_api_version => p_api_version,
1616: p_init_msg_list => OKC_API.G_FALSE,
1617: x_return_status => x_return_status,
1618: x_msg_count => x_msg_count,
1619: x_msg_data => x_msg_data,
1620: p_sccv_rec => p_sccv_tbl(i),
1629: okc_debug.Reset_Indentation;
1630: END IF;
1631:
1632: EXCEPTION
1633: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1634:
1635: IF (l_debug = 'Y') THEN
1636: okc_debug.log('5300: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1637: okc_debug.Reset_Indentation;
1632: EXCEPTION
1633: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1634:
1635: IF (l_debug = 'Y') THEN
1636: okc_debug.log('5300: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1637: okc_debug.Reset_Indentation;
1638: END IF;
1639:
1640: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1636: okc_debug.log('5300: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1637: okc_debug.Reset_Indentation;
1638: END IF;
1639:
1640: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1641: (
1642: l_api_name,
1643: G_PKG_NAME,
1644: 'OKC_API.G_RET_STS_ERROR',
1640: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1641: (
1642: l_api_name,
1643: G_PKG_NAME,
1644: 'OKC_API.G_RET_STS_ERROR',
1645: x_msg_count,
1646: x_msg_data,
1647: '_PVT'
1648: );
1645: x_msg_count,
1646: x_msg_data,
1647: '_PVT'
1648: );
1649: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1650:
1651: IF (l_debug = 'Y') THEN
1652: okc_debug.log('5400: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1653: okc_debug.Reset_Indentation;
1648: );
1649: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1650:
1651: IF (l_debug = 'Y') THEN
1652: okc_debug.log('5400: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1653: okc_debug.Reset_Indentation;
1654: END IF;
1655:
1656: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1652: okc_debug.log('5400: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1653: okc_debug.Reset_Indentation;
1654: END IF;
1655:
1656: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1657: (
1658: l_api_name,
1659: G_PKG_NAME,
1660: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1656: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1657: (
1658: l_api_name,
1659: G_PKG_NAME,
1660: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1661: x_msg_count,
1662: x_msg_data,
1663: '_PVT'
1664: );
1668: okc_debug.log('5500: Exiting insert_row:OTHERS Exception', 2);
1669: okc_debug.Reset_Indentation;
1670: END IF;
1671:
1672: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1673: (
1674: l_api_name,
1675: G_PKG_NAME,
1676: 'OTHERS',
1708: FROM OKC_SECTION_CONTENTS
1709: WHERE ID = p_scc_rec.id;
1710: l_api_version CONSTANT NUMBER := 1;
1711: l_api_name CONSTANT VARCHAR2(30) := 'CONTENTS_lock_row';
1712: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1713: l_object_version_number OKC_SECTION_CONTENTS.OBJECT_VERSION_NUMBER%TYPE;
1714: lc_object_version_number OKC_SECTION_CONTENTS.OBJECT_VERSION_NUMBER%TYPE;
1715: l_row_notfound BOOLEAN := FALSE;
1716: lc_row_notfound BOOLEAN := FALSE;
1720: okc_debug.Set_Indentation('OKC_SCC_PVT');
1721: okc_debug.log('5600: Entered lock_row', 2);
1722: END IF;
1723:
1724: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1725: p_init_msg_list,
1726: '_PVT',
1727: x_return_status);
1728: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1724: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1725: p_init_msg_list,
1726: '_PVT',
1727: x_return_status);
1728: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1729: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1730: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1731: RAISE OKC_API.G_EXCEPTION_ERROR;
1732: END IF;
1725: p_init_msg_list,
1726: '_PVT',
1727: x_return_status);
1728: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1729: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1730: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1731: RAISE OKC_API.G_EXCEPTION_ERROR;
1732: END IF;
1733:
1726: '_PVT',
1727: x_return_status);
1728: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1729: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1730: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1731: RAISE OKC_API.G_EXCEPTION_ERROR;
1732: END IF;
1733:
1734: -->>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
1727: x_return_status);
1728: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1729: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1730: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1731: RAISE OKC_API.G_EXCEPTION_ERROR;
1732: END IF;
1733:
1734: -->>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
1735: BEGIN
1759:
1760: IF (lock_csr%ISOPEN) THEN
1761: CLOSE lock_csr;
1762: END IF;
1763: OKC_API.set_message(G_FND_APP,G_FORM_UNABLE_TO_RESERVE_REC);
1764: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
1765: END;
1766:
1767: -->>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
1772: lc_row_notfound := lchk_csr%NOTFOUND;
1773: CLOSE lchk_csr;
1774: END IF;
1775: IF (lc_row_notfound) THEN
1776: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1777: RAISE OKC_API.G_EXCEPTION_ERROR;
1778: ELSIF lc_object_version_number > p_scc_rec.object_version_number THEN
1779: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1780: RAISE OKC_API.G_EXCEPTION_ERROR;
1773: CLOSE lchk_csr;
1774: END IF;
1775: IF (lc_row_notfound) THEN
1776: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1777: RAISE OKC_API.G_EXCEPTION_ERROR;
1778: ELSIF lc_object_version_number > p_scc_rec.object_version_number THEN
1779: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1780: RAISE OKC_API.G_EXCEPTION_ERROR;
1781: ELSIF lc_object_version_number <> p_scc_rec.object_version_number THEN
1775: IF (lc_row_notfound) THEN
1776: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1777: RAISE OKC_API.G_EXCEPTION_ERROR;
1778: ELSIF lc_object_version_number > p_scc_rec.object_version_number THEN
1779: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1780: RAISE OKC_API.G_EXCEPTION_ERROR;
1781: ELSIF lc_object_version_number <> p_scc_rec.object_version_number THEN
1782: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1783: RAISE OKC_API.G_EXCEPTION_ERROR;
1776: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1777: RAISE OKC_API.G_EXCEPTION_ERROR;
1778: ELSIF lc_object_version_number > p_scc_rec.object_version_number THEN
1779: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1780: RAISE OKC_API.G_EXCEPTION_ERROR;
1781: ELSIF lc_object_version_number <> p_scc_rec.object_version_number THEN
1782: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1783: RAISE OKC_API.G_EXCEPTION_ERROR;
1784: ELSIF lc_object_version_number = -1 THEN
1778: ELSIF lc_object_version_number > p_scc_rec.object_version_number THEN
1779: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1780: RAISE OKC_API.G_EXCEPTION_ERROR;
1781: ELSIF lc_object_version_number <> p_scc_rec.object_version_number THEN
1782: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1783: RAISE OKC_API.G_EXCEPTION_ERROR;
1784: ELSIF lc_object_version_number = -1 THEN
1785: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1786: RAISE OKC_API.G_EXCEPTION_ERROR;
1779: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1780: RAISE OKC_API.G_EXCEPTION_ERROR;
1781: ELSIF lc_object_version_number <> p_scc_rec.object_version_number THEN
1782: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1783: RAISE OKC_API.G_EXCEPTION_ERROR;
1784: ELSIF lc_object_version_number = -1 THEN
1785: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1786: RAISE OKC_API.G_EXCEPTION_ERROR;
1787: END IF;
1781: ELSIF lc_object_version_number <> p_scc_rec.object_version_number THEN
1782: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1783: RAISE OKC_API.G_EXCEPTION_ERROR;
1784: ELSIF lc_object_version_number = -1 THEN
1785: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1786: RAISE OKC_API.G_EXCEPTION_ERROR;
1787: END IF;
1788: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1789:
1782: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1783: RAISE OKC_API.G_EXCEPTION_ERROR;
1784: ELSIF lc_object_version_number = -1 THEN
1785: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1786: RAISE OKC_API.G_EXCEPTION_ERROR;
1787: END IF;
1788: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1789:
1790: IF (l_debug = 'Y') THEN
1784: ELSIF lc_object_version_number = -1 THEN
1785: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1786: RAISE OKC_API.G_EXCEPTION_ERROR;
1787: END IF;
1788: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1789:
1790: IF (l_debug = 'Y') THEN
1791: okc_debug.log('6000: Leaving lock_row', 2);
1792: okc_debug.Reset_Indentation;
1792: okc_debug.Reset_Indentation;
1793: END IF;
1794:
1795: EXCEPTION
1796: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1797:
1798: IF (l_debug = 'Y') THEN
1799: okc_debug.log('6100: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1800: okc_debug.Reset_Indentation;
1795: EXCEPTION
1796: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1797:
1798: IF (l_debug = 'Y') THEN
1799: okc_debug.log('6100: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1800: okc_debug.Reset_Indentation;
1801: END IF;
1802:
1803: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1799: okc_debug.log('6100: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1800: okc_debug.Reset_Indentation;
1801: END IF;
1802:
1803: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1804: (
1805: l_api_name,
1806: G_PKG_NAME,
1807: 'OKC_API.G_RET_STS_ERROR',
1803: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1804: (
1805: l_api_name,
1806: G_PKG_NAME,
1807: 'OKC_API.G_RET_STS_ERROR',
1808: x_msg_count,
1809: x_msg_data,
1810: '_PVT'
1811: );
1808: x_msg_count,
1809: x_msg_data,
1810: '_PVT'
1811: );
1812: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1813:
1814: IF (l_debug = 'Y') THEN
1815: okc_debug.log('6200: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1816: okc_debug.Reset_Indentation;
1811: );
1812: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1813:
1814: IF (l_debug = 'Y') THEN
1815: okc_debug.log('6200: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1816: okc_debug.Reset_Indentation;
1817: END IF;
1818:
1819: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1815: okc_debug.log('6200: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1816: okc_debug.Reset_Indentation;
1817: END IF;
1818:
1819: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1820: (
1821: l_api_name,
1822: G_PKG_NAME,
1823: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1819: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1820: (
1821: l_api_name,
1822: G_PKG_NAME,
1823: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1824: x_msg_count,
1825: x_msg_data,
1826: '_PVT'
1827: );
1831: okc_debug.log('6300: Exiting lock_row:OTHERS Exception', 2);
1832: okc_debug.Reset_Indentation;
1833: END IF;
1834:
1835: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1836: (
1837: l_api_name,
1838: G_PKG_NAME,
1839: 'OTHERS',
1855: p_sccv_rec IN sccv_rec_type) IS
1856:
1857: l_api_version CONSTANT NUMBER := 1;
1858: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
1859: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1860: l_scc_rec scc_rec_type;
1861: BEGIN
1862:
1863: IF (l_debug = 'Y') THEN
1864: okc_debug.Set_Indentation('OKC_SCC_PVT');
1865: okc_debug.log('6400: Entered lock_row', 2);
1866: END IF;
1867:
1868: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1869: G_PKG_NAME,
1870: p_init_msg_list,
1871: l_api_version,
1872: p_api_version,
1871: l_api_version,
1872: p_api_version,
1873: '_PVT',
1874: x_return_status);
1875: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1876: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1877: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1878: RAISE OKC_API.G_EXCEPTION_ERROR;
1879: END IF;
1872: p_api_version,
1873: '_PVT',
1874: x_return_status);
1875: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1876: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1877: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1878: RAISE OKC_API.G_EXCEPTION_ERROR;
1879: END IF;
1880: --------------------------------------
1873: '_PVT',
1874: x_return_status);
1875: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1876: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1877: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1878: RAISE OKC_API.G_EXCEPTION_ERROR;
1879: END IF;
1880: --------------------------------------
1881: -- Move VIEW record to "Child" records
1874: x_return_status);
1875: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1876: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1877: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1878: RAISE OKC_API.G_EXCEPTION_ERROR;
1879: END IF;
1880: --------------------------------------
1881: -- Move VIEW record to "Child" records
1882: --------------------------------------
1890: x_msg_count,
1891: x_msg_data,
1892: l_scc_rec
1893: );
1894: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1895: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1896: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1897: RAISE OKC_API.G_EXCEPTION_ERROR;
1898: END IF;
1891: x_msg_data,
1892: l_scc_rec
1893: );
1894: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1895: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1896: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1897: RAISE OKC_API.G_EXCEPTION_ERROR;
1898: END IF;
1899: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1892: l_scc_rec
1893: );
1894: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1895: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1896: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1897: RAISE OKC_API.G_EXCEPTION_ERROR;
1898: END IF;
1899: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1900:
1893: );
1894: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1895: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1896: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1897: RAISE OKC_API.G_EXCEPTION_ERROR;
1898: END IF;
1899: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1900:
1901: IF (l_debug = 'Y') THEN
1895: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1896: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1897: RAISE OKC_API.G_EXCEPTION_ERROR;
1898: END IF;
1899: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1900:
1901: IF (l_debug = 'Y') THEN
1902: okc_debug.log('6500: Leaving lock_row', 2);
1903: okc_debug.Reset_Indentation;
1903: okc_debug.Reset_Indentation;
1904: END IF;
1905:
1906: EXCEPTION
1907: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1908:
1909: IF (l_debug = 'Y') THEN
1910: okc_debug.log('6600: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1911: okc_debug.Reset_Indentation;
1906: EXCEPTION
1907: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1908:
1909: IF (l_debug = 'Y') THEN
1910: okc_debug.log('6600: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1911: okc_debug.Reset_Indentation;
1912: END IF;
1913:
1914: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1910: okc_debug.log('6600: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1911: okc_debug.Reset_Indentation;
1912: END IF;
1913:
1914: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1915: (
1916: l_api_name,
1917: G_PKG_NAME,
1918: 'OKC_API.G_RET_STS_ERROR',
1914: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1915: (
1916: l_api_name,
1917: G_PKG_NAME,
1918: 'OKC_API.G_RET_STS_ERROR',
1919: x_msg_count,
1920: x_msg_data,
1921: '_PVT'
1922: );
1919: x_msg_count,
1920: x_msg_data,
1921: '_PVT'
1922: );
1923: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1924:
1925: IF (l_debug = 'Y') THEN
1926: okc_debug.log('6700: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1927: okc_debug.Reset_Indentation;
1922: );
1923: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1924:
1925: IF (l_debug = 'Y') THEN
1926: okc_debug.log('6700: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1927: okc_debug.Reset_Indentation;
1928: END IF;
1929:
1930: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1926: okc_debug.log('6700: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1927: okc_debug.Reset_Indentation;
1928: END IF;
1929:
1930: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1931: (
1932: l_api_name,
1933: G_PKG_NAME,
1934: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1930: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1931: (
1932: l_api_name,
1933: G_PKG_NAME,
1934: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1935: x_msg_count,
1936: x_msg_data,
1937: '_PVT'
1938: );
1942: okc_debug.log('6800: Exiting lock_row:OTHERS Exception', 2);
1943: okc_debug.Reset_Indentation;
1944: END IF;
1945:
1946: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1947: (
1948: l_api_name,
1949: G_PKG_NAME,
1950: 'OTHERS',
1966: p_sccv_tbl IN sccv_tbl_type) IS
1967:
1968: l_api_version CONSTANT NUMBER := 1;
1969: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
1970: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1971: i NUMBER := 0;
1972: BEGIN
1973:
1974: IF (l_debug = 'Y') THEN
1975: okc_debug.Set_Indentation('OKC_SCC_PVT');
1976: okc_debug.log('6900: Entered lock_row', 2);
1977: END IF;
1978:
1979: OKC_API.init_msg_list(p_init_msg_list);
1980: -- Make sure PL/SQL table has records in it before passing
1981: IF (p_sccv_tbl.COUNT > 0) THEN
1982: i := p_sccv_tbl.FIRST;
1983: LOOP
1982: i := p_sccv_tbl.FIRST;
1983: LOOP
1984: lock_row (
1985: p_api_version => p_api_version,
1986: p_init_msg_list => OKC_API.G_FALSE,
1987: x_return_status => x_return_status,
1988: x_msg_count => x_msg_count,
1989: x_msg_data => x_msg_data,
1990: p_sccv_rec => p_sccv_tbl(i));
1998: okc_debug.Reset_Indentation;
1999: END IF;
2000:
2001: EXCEPTION
2002: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2003:
2004: IF (l_debug = 'Y') THEN
2005: okc_debug.log('7100: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2006: okc_debug.Reset_Indentation;
2001: EXCEPTION
2002: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2003:
2004: IF (l_debug = 'Y') THEN
2005: okc_debug.log('7100: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2006: okc_debug.Reset_Indentation;
2007: END IF;
2008:
2009: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2005: okc_debug.log('7100: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2006: okc_debug.Reset_Indentation;
2007: END IF;
2008:
2009: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2010: (
2011: l_api_name,
2012: G_PKG_NAME,
2013: 'OKC_API.G_RET_STS_ERROR',
2009: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2010: (
2011: l_api_name,
2012: G_PKG_NAME,
2013: 'OKC_API.G_RET_STS_ERROR',
2014: x_msg_count,
2015: x_msg_data,
2016: '_PVT'
2017: );
2014: x_msg_count,
2015: x_msg_data,
2016: '_PVT'
2017: );
2018: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2019:
2020: IF (l_debug = 'Y') THEN
2021: okc_debug.log('7200: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2022: okc_debug.Reset_Indentation;
2017: );
2018: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2019:
2020: IF (l_debug = 'Y') THEN
2021: okc_debug.log('7200: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2022: okc_debug.Reset_Indentation;
2023: END IF;
2024:
2025: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2021: okc_debug.log('7200: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2022: okc_debug.Reset_Indentation;
2023: END IF;
2024:
2025: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2026: (
2027: l_api_name,
2028: G_PKG_NAME,
2029: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2025: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2026: (
2027: l_api_name,
2028: G_PKG_NAME,
2029: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2030: x_msg_count,
2031: x_msg_data,
2032: '_PVT'
2033: );
2037: okc_debug.log('7300: Exiting lock_row:OTHERS Exception', 2);
2038: okc_debug.Reset_Indentation;
2039: END IF;
2040:
2041: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2042: (
2043: l_api_name,
2044: G_PKG_NAME,
2045: 'OTHERS',
2065: x_scc_rec OUT NOCOPY scc_rec_type) IS
2066:
2067: l_api_version CONSTANT NUMBER := 1;
2068: l_api_name CONSTANT VARCHAR2(30) := 'CONTENTS_update_row';
2069: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2070: l_scc_rec scc_rec_type := p_scc_rec;
2071: l_def_scc_rec scc_rec_type;
2072: l_row_notfound BOOLEAN := TRUE;
2073: ----------------------------------
2078: x_scc_rec OUT NOCOPY scc_rec_type
2079: ) RETURN VARCHAR2 IS
2080: l_scc_rec scc_rec_type;
2081: l_row_notfound BOOLEAN := TRUE;
2082: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2083: BEGIN
2084:
2085: IF (l_debug = 'Y') THEN
2086: okc_debug.Set_Indentation('OKC_SCC_PVT');
2090: x_scc_rec := p_scc_rec;
2091: -- Get current database values
2092: l_scc_rec := get_rec(p_scc_rec, l_row_notfound);
2093: IF (l_row_notfound) THEN
2094: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2095: END IF;
2096: IF (x_scc_rec.id = OKC_API.G_MISS_NUM)
2097: THEN
2098: x_scc_rec.id := l_scc_rec.id;
2092: l_scc_rec := get_rec(p_scc_rec, l_row_notfound);
2093: IF (l_row_notfound) THEN
2094: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2095: END IF;
2096: IF (x_scc_rec.id = OKC_API.G_MISS_NUM)
2097: THEN
2098: x_scc_rec.id := l_scc_rec.id;
2099: END IF;
2100: IF (x_scc_rec.scn_id = OKC_API.G_MISS_NUM)
2096: IF (x_scc_rec.id = OKC_API.G_MISS_NUM)
2097: THEN
2098: x_scc_rec.id := l_scc_rec.id;
2099: END IF;
2100: IF (x_scc_rec.scn_id = OKC_API.G_MISS_NUM)
2101: THEN
2102: x_scc_rec.scn_id := l_scc_rec.scn_id;
2103: END IF;
2104: IF (x_scc_rec.content_sequence = OKC_API.G_MISS_NUM)
2100: IF (x_scc_rec.scn_id = OKC_API.G_MISS_NUM)
2101: THEN
2102: x_scc_rec.scn_id := l_scc_rec.scn_id;
2103: END IF;
2104: IF (x_scc_rec.content_sequence = OKC_API.G_MISS_NUM)
2105: THEN
2106: x_scc_rec.content_sequence := l_scc_rec.content_sequence;
2107: END IF;
2108: IF (x_scc_rec.object_version_number = OKC_API.G_MISS_NUM)
2104: IF (x_scc_rec.content_sequence = OKC_API.G_MISS_NUM)
2105: THEN
2106: x_scc_rec.content_sequence := l_scc_rec.content_sequence;
2107: END IF;
2108: IF (x_scc_rec.object_version_number = OKC_API.G_MISS_NUM)
2109: THEN
2110: x_scc_rec.object_version_number := l_scc_rec.object_version_number;
2111: END IF;
2112: IF (x_scc_rec.created_by = OKC_API.G_MISS_NUM)
2108: IF (x_scc_rec.object_version_number = OKC_API.G_MISS_NUM)
2109: THEN
2110: x_scc_rec.object_version_number := l_scc_rec.object_version_number;
2111: END IF;
2112: IF (x_scc_rec.created_by = OKC_API.G_MISS_NUM)
2113: THEN
2114: x_scc_rec.created_by := l_scc_rec.created_by;
2115: END IF;
2116: IF (x_scc_rec.creation_date = OKC_API.G_MISS_DATE)
2112: IF (x_scc_rec.created_by = OKC_API.G_MISS_NUM)
2113: THEN
2114: x_scc_rec.created_by := l_scc_rec.created_by;
2115: END IF;
2116: IF (x_scc_rec.creation_date = OKC_API.G_MISS_DATE)
2117: THEN
2118: x_scc_rec.creation_date := l_scc_rec.creation_date;
2119: END IF;
2120: IF (x_scc_rec.last_updated_by = OKC_API.G_MISS_NUM)
2116: IF (x_scc_rec.creation_date = OKC_API.G_MISS_DATE)
2117: THEN
2118: x_scc_rec.creation_date := l_scc_rec.creation_date;
2119: END IF;
2120: IF (x_scc_rec.last_updated_by = OKC_API.G_MISS_NUM)
2121: THEN
2122: x_scc_rec.last_updated_by := l_scc_rec.last_updated_by;
2123: END IF;
2124: IF (x_scc_rec.last_update_date = OKC_API.G_MISS_DATE)
2120: IF (x_scc_rec.last_updated_by = OKC_API.G_MISS_NUM)
2121: THEN
2122: x_scc_rec.last_updated_by := l_scc_rec.last_updated_by;
2123: END IF;
2124: IF (x_scc_rec.last_update_date = OKC_API.G_MISS_DATE)
2125: THEN
2126: x_scc_rec.last_update_date := l_scc_rec.last_update_date;
2127: END IF;
2128: IF (x_scc_rec.last_update_login = OKC_API.G_MISS_NUM)
2124: IF (x_scc_rec.last_update_date = OKC_API.G_MISS_DATE)
2125: THEN
2126: x_scc_rec.last_update_date := l_scc_rec.last_update_date;
2127: END IF;
2128: IF (x_scc_rec.last_update_login = OKC_API.G_MISS_NUM)
2129: THEN
2130: x_scc_rec.last_update_login := l_scc_rec.last_update_login;
2131: END IF;
2132: IF (x_scc_rec.label = OKC_API.G_MISS_CHAR)
2128: IF (x_scc_rec.last_update_login = OKC_API.G_MISS_NUM)
2129: THEN
2130: x_scc_rec.last_update_login := l_scc_rec.last_update_login;
2131: END IF;
2132: IF (x_scc_rec.label = OKC_API.G_MISS_CHAR)
2133: THEN
2134: x_scc_rec.label := l_scc_rec.label;
2135: END IF;
2136: IF (x_scc_rec.cat_id = OKC_API.G_MISS_NUM)
2132: IF (x_scc_rec.label = OKC_API.G_MISS_CHAR)
2133: THEN
2134: x_scc_rec.label := l_scc_rec.label;
2135: END IF;
2136: IF (x_scc_rec.cat_id = OKC_API.G_MISS_NUM)
2137: THEN
2138: x_scc_rec.cat_id := l_scc_rec.cat_id;
2139: END IF;
2140: IF (x_scc_rec.cle_id = OKC_API.G_MISS_NUM)
2136: IF (x_scc_rec.cat_id = OKC_API.G_MISS_NUM)
2137: THEN
2138: x_scc_rec.cat_id := l_scc_rec.cat_id;
2139: END IF;
2140: IF (x_scc_rec.cle_id = OKC_API.G_MISS_NUM)
2141: THEN
2142: x_scc_rec.cle_id := l_scc_rec.cle_id;
2143: END IF;
2144: IF (x_scc_rec.sae_id = OKC_API.G_MISS_NUM)
2140: IF (x_scc_rec.cle_id = OKC_API.G_MISS_NUM)
2141: THEN
2142: x_scc_rec.cle_id := l_scc_rec.cle_id;
2143: END IF;
2144: IF (x_scc_rec.sae_id = OKC_API.G_MISS_NUM)
2145: THEN
2146: x_scc_rec.sae_id := l_scc_rec.sae_id;
2147: END IF;
2148: IF (x_scc_rec.attribute_category = OKC_API.G_MISS_CHAR)
2144: IF (x_scc_rec.sae_id = OKC_API.G_MISS_NUM)
2145: THEN
2146: x_scc_rec.sae_id := l_scc_rec.sae_id;
2147: END IF;
2148: IF (x_scc_rec.attribute_category = OKC_API.G_MISS_CHAR)
2149: THEN
2150: x_scc_rec.attribute_category := l_scc_rec.attribute_category;
2151: END IF;
2152: IF (x_scc_rec.attribute1 = OKC_API.G_MISS_CHAR)
2148: IF (x_scc_rec.attribute_category = OKC_API.G_MISS_CHAR)
2149: THEN
2150: x_scc_rec.attribute_category := l_scc_rec.attribute_category;
2151: END IF;
2152: IF (x_scc_rec.attribute1 = OKC_API.G_MISS_CHAR)
2153: THEN
2154: x_scc_rec.attribute1 := l_scc_rec.attribute1;
2155: END IF;
2156: IF (x_scc_rec.attribute2 = OKC_API.G_MISS_CHAR)
2152: IF (x_scc_rec.attribute1 = OKC_API.G_MISS_CHAR)
2153: THEN
2154: x_scc_rec.attribute1 := l_scc_rec.attribute1;
2155: END IF;
2156: IF (x_scc_rec.attribute2 = OKC_API.G_MISS_CHAR)
2157: THEN
2158: x_scc_rec.attribute2 := l_scc_rec.attribute2;
2159: END IF;
2160: IF (x_scc_rec.attribute3 = OKC_API.G_MISS_CHAR)
2156: IF (x_scc_rec.attribute2 = OKC_API.G_MISS_CHAR)
2157: THEN
2158: x_scc_rec.attribute2 := l_scc_rec.attribute2;
2159: END IF;
2160: IF (x_scc_rec.attribute3 = OKC_API.G_MISS_CHAR)
2161: THEN
2162: x_scc_rec.attribute3 := l_scc_rec.attribute3;
2163: END IF;
2164: IF (x_scc_rec.attribute4 = OKC_API.G_MISS_CHAR)
2160: IF (x_scc_rec.attribute3 = OKC_API.G_MISS_CHAR)
2161: THEN
2162: x_scc_rec.attribute3 := l_scc_rec.attribute3;
2163: END IF;
2164: IF (x_scc_rec.attribute4 = OKC_API.G_MISS_CHAR)
2165: THEN
2166: x_scc_rec.attribute4 := l_scc_rec.attribute4;
2167: END IF;
2168: IF (x_scc_rec.attribute5 = OKC_API.G_MISS_CHAR)
2164: IF (x_scc_rec.attribute4 = OKC_API.G_MISS_CHAR)
2165: THEN
2166: x_scc_rec.attribute4 := l_scc_rec.attribute4;
2167: END IF;
2168: IF (x_scc_rec.attribute5 = OKC_API.G_MISS_CHAR)
2169: THEN
2170: x_scc_rec.attribute5 := l_scc_rec.attribute5;
2171: END IF;
2172: IF (x_scc_rec.attribute6 = OKC_API.G_MISS_CHAR)
2168: IF (x_scc_rec.attribute5 = OKC_API.G_MISS_CHAR)
2169: THEN
2170: x_scc_rec.attribute5 := l_scc_rec.attribute5;
2171: END IF;
2172: IF (x_scc_rec.attribute6 = OKC_API.G_MISS_CHAR)
2173: THEN
2174: x_scc_rec.attribute6 := l_scc_rec.attribute6;
2175: END IF;
2176: IF (x_scc_rec.attribute7 = OKC_API.G_MISS_CHAR)
2172: IF (x_scc_rec.attribute6 = OKC_API.G_MISS_CHAR)
2173: THEN
2174: x_scc_rec.attribute6 := l_scc_rec.attribute6;
2175: END IF;
2176: IF (x_scc_rec.attribute7 = OKC_API.G_MISS_CHAR)
2177: THEN
2178: x_scc_rec.attribute7 := l_scc_rec.attribute7;
2179: END IF;
2180: IF (x_scc_rec.attribute8 = OKC_API.G_MISS_CHAR)
2176: IF (x_scc_rec.attribute7 = OKC_API.G_MISS_CHAR)
2177: THEN
2178: x_scc_rec.attribute7 := l_scc_rec.attribute7;
2179: END IF;
2180: IF (x_scc_rec.attribute8 = OKC_API.G_MISS_CHAR)
2181: THEN
2182: x_scc_rec.attribute8 := l_scc_rec.attribute8;
2183: END IF;
2184: IF (x_scc_rec.attribute9 = OKC_API.G_MISS_CHAR)
2180: IF (x_scc_rec.attribute8 = OKC_API.G_MISS_CHAR)
2181: THEN
2182: x_scc_rec.attribute8 := l_scc_rec.attribute8;
2183: END IF;
2184: IF (x_scc_rec.attribute9 = OKC_API.G_MISS_CHAR)
2185: THEN
2186: x_scc_rec.attribute9 := l_scc_rec.attribute9;
2187: END IF;
2188: IF (x_scc_rec.attribute10 = OKC_API.G_MISS_CHAR)
2184: IF (x_scc_rec.attribute9 = OKC_API.G_MISS_CHAR)
2185: THEN
2186: x_scc_rec.attribute9 := l_scc_rec.attribute9;
2187: END IF;
2188: IF (x_scc_rec.attribute10 = OKC_API.G_MISS_CHAR)
2189: THEN
2190: x_scc_rec.attribute10 := l_scc_rec.attribute10;
2191: END IF;
2192: IF (x_scc_rec.attribute11 = OKC_API.G_MISS_CHAR)
2188: IF (x_scc_rec.attribute10 = OKC_API.G_MISS_CHAR)
2189: THEN
2190: x_scc_rec.attribute10 := l_scc_rec.attribute10;
2191: END IF;
2192: IF (x_scc_rec.attribute11 = OKC_API.G_MISS_CHAR)
2193: THEN
2194: x_scc_rec.attribute11 := l_scc_rec.attribute11;
2195: END IF;
2196: IF (x_scc_rec.attribute12 = OKC_API.G_MISS_CHAR)
2192: IF (x_scc_rec.attribute11 = OKC_API.G_MISS_CHAR)
2193: THEN
2194: x_scc_rec.attribute11 := l_scc_rec.attribute11;
2195: END IF;
2196: IF (x_scc_rec.attribute12 = OKC_API.G_MISS_CHAR)
2197: THEN
2198: x_scc_rec.attribute12 := l_scc_rec.attribute12;
2199: END IF;
2200: IF (x_scc_rec.attribute13 = OKC_API.G_MISS_CHAR)
2196: IF (x_scc_rec.attribute12 = OKC_API.G_MISS_CHAR)
2197: THEN
2198: x_scc_rec.attribute12 := l_scc_rec.attribute12;
2199: END IF;
2200: IF (x_scc_rec.attribute13 = OKC_API.G_MISS_CHAR)
2201: THEN
2202: x_scc_rec.attribute13 := l_scc_rec.attribute13;
2203: END IF;
2204: IF (x_scc_rec.attribute14 = OKC_API.G_MISS_CHAR)
2200: IF (x_scc_rec.attribute13 = OKC_API.G_MISS_CHAR)
2201: THEN
2202: x_scc_rec.attribute13 := l_scc_rec.attribute13;
2203: END IF;
2204: IF (x_scc_rec.attribute14 = OKC_API.G_MISS_CHAR)
2205: THEN
2206: x_scc_rec.attribute14 := l_scc_rec.attribute14;
2207: END IF;
2208: IF (x_scc_rec.attribute15 = OKC_API.G_MISS_CHAR)
2204: IF (x_scc_rec.attribute14 = OKC_API.G_MISS_CHAR)
2205: THEN
2206: x_scc_rec.attribute14 := l_scc_rec.attribute14;
2207: END IF;
2208: IF (x_scc_rec.attribute15 = OKC_API.G_MISS_CHAR)
2209: THEN
2210: x_scc_rec.attribute15 := l_scc_rec.attribute15;
2211: END IF;
2212:
2224: FUNCTION Set_Attributes (
2225: p_scc_rec IN scc_rec_type,
2226: x_scc_rec OUT NOCOPY scc_rec_type
2227: ) RETURN VARCHAR2 IS
2228: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2229: BEGIN
2230:
2231: x_scc_rec := p_scc_rec;
2232: RETURN(l_return_status);
2238: okc_debug.Set_Indentation('OKC_SCC_PVT');
2239: okc_debug.log('7600: Entered update_row', 2);
2240: END IF;
2241:
2242: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2243: p_init_msg_list,
2244: '_PVT',
2245: x_return_status);
2246: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2242: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2243: p_init_msg_list,
2244: '_PVT',
2245: x_return_status);
2246: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2247: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2248: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2249: RAISE OKC_API.G_EXCEPTION_ERROR;
2250: END IF;
2243: p_init_msg_list,
2244: '_PVT',
2245: x_return_status);
2246: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2247: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2248: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2249: RAISE OKC_API.G_EXCEPTION_ERROR;
2250: END IF;
2251: --- Setting item attributes
2244: '_PVT',
2245: x_return_status);
2246: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2247: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2248: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2249: RAISE OKC_API.G_EXCEPTION_ERROR;
2250: END IF;
2251: --- Setting item attributes
2252: l_return_status := Set_Attributes(
2245: x_return_status);
2246: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2247: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2248: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2249: RAISE OKC_API.G_EXCEPTION_ERROR;
2250: END IF;
2251: --- Setting item attributes
2252: l_return_status := Set_Attributes(
2253: p_scc_rec, -- IN
2252: l_return_status := Set_Attributes(
2253: p_scc_rec, -- IN
2254: l_scc_rec); -- OUT
2255: --- If any errors happen abort API
2256: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2257: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2258: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2259: RAISE OKC_API.G_EXCEPTION_ERROR;
2260: END IF;
2253: p_scc_rec, -- IN
2254: l_scc_rec); -- OUT
2255: --- If any errors happen abort API
2256: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2257: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2258: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2259: RAISE OKC_API.G_EXCEPTION_ERROR;
2260: END IF;
2261: l_return_status := populate_new_record(l_scc_rec, l_def_scc_rec);
2254: l_scc_rec); -- OUT
2255: --- If any errors happen abort API
2256: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2257: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2258: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2259: RAISE OKC_API.G_EXCEPTION_ERROR;
2260: END IF;
2261: l_return_status := populate_new_record(l_scc_rec, l_def_scc_rec);
2262: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2255: --- If any errors happen abort API
2256: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2257: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2258: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2259: RAISE OKC_API.G_EXCEPTION_ERROR;
2260: END IF;
2261: l_return_status := populate_new_record(l_scc_rec, l_def_scc_rec);
2262: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2263: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2258: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2259: RAISE OKC_API.G_EXCEPTION_ERROR;
2260: END IF;
2261: l_return_status := populate_new_record(l_scc_rec, l_def_scc_rec);
2262: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2263: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2264: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2265: RAISE OKC_API.G_EXCEPTION_ERROR;
2266: END IF;
2259: RAISE OKC_API.G_EXCEPTION_ERROR;
2260: END IF;
2261: l_return_status := populate_new_record(l_scc_rec, l_def_scc_rec);
2262: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2263: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2264: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2265: RAISE OKC_API.G_EXCEPTION_ERROR;
2266: END IF;
2267: UPDATE OKC_SECTION_CONTENTS
2260: END IF;
2261: l_return_status := populate_new_record(l_scc_rec, l_def_scc_rec);
2262: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2263: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2264: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2265: RAISE OKC_API.G_EXCEPTION_ERROR;
2266: END IF;
2267: UPDATE OKC_SECTION_CONTENTS
2268: SET SCN_ID = l_def_scc_rec.scn_id,
2261: l_return_status := populate_new_record(l_scc_rec, l_def_scc_rec);
2262: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2263: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2264: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2265: RAISE OKC_API.G_EXCEPTION_ERROR;
2266: END IF;
2267: UPDATE OKC_SECTION_CONTENTS
2268: SET SCN_ID = l_def_scc_rec.scn_id,
2269: CONTENT_SEQUENCE = l_def_scc_rec.content_sequence,
2295: ATTRIBUTE15 = l_def_scc_rec.attribute15
2296: WHERE ID = l_def_scc_rec.id;
2297:
2298: x_scc_rec := l_def_scc_rec;
2299: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2300:
2301: IF (l_debug = 'Y') THEN
2302: okc_debug.log('7700: Leaving update_row', 2);
2303: okc_debug.Reset_Indentation;
2303: okc_debug.Reset_Indentation;
2304: END IF;
2305:
2306: EXCEPTION
2307: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2308:
2309: IF (l_debug = 'Y') THEN
2310: okc_debug.log('7800: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2311: okc_debug.Reset_Indentation;
2306: EXCEPTION
2307: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2308:
2309: IF (l_debug = 'Y') THEN
2310: okc_debug.log('7800: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2311: okc_debug.Reset_Indentation;
2312: END IF;
2313:
2314: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2310: okc_debug.log('7800: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2311: okc_debug.Reset_Indentation;
2312: END IF;
2313:
2314: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2315: (
2316: l_api_name,
2317: G_PKG_NAME,
2318: 'OKC_API.G_RET_STS_ERROR',
2314: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2315: (
2316: l_api_name,
2317: G_PKG_NAME,
2318: 'OKC_API.G_RET_STS_ERROR',
2319: x_msg_count,
2320: x_msg_data,
2321: '_PVT'
2322: );
2319: x_msg_count,
2320: x_msg_data,
2321: '_PVT'
2322: );
2323: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2324:
2325: IF (l_debug = 'Y') THEN
2326: okc_debug.log('7900: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2327: okc_debug.Reset_Indentation;
2322: );
2323: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2324:
2325: IF (l_debug = 'Y') THEN
2326: okc_debug.log('7900: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2327: okc_debug.Reset_Indentation;
2328: END IF;
2329:
2330: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2326: okc_debug.log('7900: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2327: okc_debug.Reset_Indentation;
2328: END IF;
2329:
2330: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2331: (
2332: l_api_name,
2333: G_PKG_NAME,
2334: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2330: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2331: (
2332: l_api_name,
2333: G_PKG_NAME,
2334: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2335: x_msg_count,
2336: x_msg_data,
2337: '_PVT'
2338: );
2342: okc_debug.log('8000: Exiting update_row:OTHERS Exception', 2);
2343: okc_debug.Reset_Indentation;
2344: END IF;
2345:
2346: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2347: (
2348: l_api_name,
2349: G_PKG_NAME,
2350: 'OTHERS',
2367: x_sccv_rec OUT NOCOPY sccv_rec_type) IS
2368:
2369: l_api_version CONSTANT NUMBER := 1;
2370: l_api_name CONSTANT VARCHAR2(30) := 'V_update_row';
2371: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2372: l_sccv_rec sccv_rec_type := p_sccv_rec;
2373: l_def_sccv_rec sccv_rec_type;
2374: l_scc_rec scc_rec_type;
2375: lx_scc_rec scc_rec_type;
2396: x_sccv_rec OUT NOCOPY sccv_rec_type
2397: ) RETURN VARCHAR2 IS
2398: l_sccv_rec sccv_rec_type;
2399: l_row_notfound BOOLEAN := TRUE;
2400: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2401: BEGIN
2402:
2403: IF (l_debug = 'Y') THEN
2404: okc_debug.Set_Indentation('OKC_SCC_PVT');
2408: x_sccv_rec := p_sccv_rec;
2409: -- Get current database values
2410: l_sccv_rec := get_rec(p_sccv_rec, l_row_notfound);
2411: IF (l_row_notfound) THEN
2412: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2413: END IF;
2414: IF (x_sccv_rec.id = OKC_API.G_MISS_NUM)
2415: THEN
2416: x_sccv_rec.id := l_sccv_rec.id;
2410: l_sccv_rec := get_rec(p_sccv_rec, l_row_notfound);
2411: IF (l_row_notfound) THEN
2412: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2413: END IF;
2414: IF (x_sccv_rec.id = OKC_API.G_MISS_NUM)
2415: THEN
2416: x_sccv_rec.id := l_sccv_rec.id;
2417: END IF;
2418: IF (x_sccv_rec.scn_id = OKC_API.G_MISS_NUM)
2414: IF (x_sccv_rec.id = OKC_API.G_MISS_NUM)
2415: THEN
2416: x_sccv_rec.id := l_sccv_rec.id;
2417: END IF;
2418: IF (x_sccv_rec.scn_id = OKC_API.G_MISS_NUM)
2419: THEN
2420: x_sccv_rec.scn_id := l_sccv_rec.scn_id;
2421: END IF;
2422: IF (x_sccv_rec.label = OKC_API.G_MISS_CHAR)
2418: IF (x_sccv_rec.scn_id = OKC_API.G_MISS_NUM)
2419: THEN
2420: x_sccv_rec.scn_id := l_sccv_rec.scn_id;
2421: END IF;
2422: IF (x_sccv_rec.label = OKC_API.G_MISS_CHAR)
2423: THEN
2424: x_sccv_rec.label := l_sccv_rec.label;
2425: END IF;
2426: IF (x_sccv_rec.cat_id = OKC_API.G_MISS_NUM)
2422: IF (x_sccv_rec.label = OKC_API.G_MISS_CHAR)
2423: THEN
2424: x_sccv_rec.label := l_sccv_rec.label;
2425: END IF;
2426: IF (x_sccv_rec.cat_id = OKC_API.G_MISS_NUM)
2427: THEN
2428: x_sccv_rec.cat_id := l_sccv_rec.cat_id;
2429: END IF;
2430: IF (x_sccv_rec.cle_id = OKC_API.G_MISS_NUM)
2426: IF (x_sccv_rec.cat_id = OKC_API.G_MISS_NUM)
2427: THEN
2428: x_sccv_rec.cat_id := l_sccv_rec.cat_id;
2429: END IF;
2430: IF (x_sccv_rec.cle_id = OKC_API.G_MISS_NUM)
2431: THEN
2432: x_sccv_rec.cle_id := l_sccv_rec.cle_id;
2433: END IF;
2434: IF (x_sccv_rec.sae_id = OKC_API.G_MISS_NUM)
2430: IF (x_sccv_rec.cle_id = OKC_API.G_MISS_NUM)
2431: THEN
2432: x_sccv_rec.cle_id := l_sccv_rec.cle_id;
2433: END IF;
2434: IF (x_sccv_rec.sae_id = OKC_API.G_MISS_NUM)
2435: THEN
2436: x_sccv_rec.sae_id := l_sccv_rec.sae_id;
2437: END IF;
2438: IF (x_sccv_rec.content_sequence = OKC_API.G_MISS_NUM)
2434: IF (x_sccv_rec.sae_id = OKC_API.G_MISS_NUM)
2435: THEN
2436: x_sccv_rec.sae_id := l_sccv_rec.sae_id;
2437: END IF;
2438: IF (x_sccv_rec.content_sequence = OKC_API.G_MISS_NUM)
2439: THEN
2440: x_sccv_rec.content_sequence := l_sccv_rec.content_sequence;
2441: END IF;
2442: IF (x_sccv_rec.object_version_number = OKC_API.G_MISS_NUM)
2438: IF (x_sccv_rec.content_sequence = OKC_API.G_MISS_NUM)
2439: THEN
2440: x_sccv_rec.content_sequence := l_sccv_rec.content_sequence;
2441: END IF;
2442: IF (x_sccv_rec.object_version_number = OKC_API.G_MISS_NUM)
2443: THEN
2444: x_sccv_rec.object_version_number := l_sccv_rec.object_version_number;
2445: END IF;
2446: IF (x_sccv_rec.created_by = OKC_API.G_MISS_NUM)
2442: IF (x_sccv_rec.object_version_number = OKC_API.G_MISS_NUM)
2443: THEN
2444: x_sccv_rec.object_version_number := l_sccv_rec.object_version_number;
2445: END IF;
2446: IF (x_sccv_rec.created_by = OKC_API.G_MISS_NUM)
2447: THEN
2448: x_sccv_rec.created_by := l_sccv_rec.created_by;
2449: END IF;
2450: IF (x_sccv_rec.creation_date = OKC_API.G_MISS_DATE)
2446: IF (x_sccv_rec.created_by = OKC_API.G_MISS_NUM)
2447: THEN
2448: x_sccv_rec.created_by := l_sccv_rec.created_by;
2449: END IF;
2450: IF (x_sccv_rec.creation_date = OKC_API.G_MISS_DATE)
2451: THEN
2452: x_sccv_rec.creation_date := l_sccv_rec.creation_date;
2453: END IF;
2454: IF (x_sccv_rec.last_updated_by = OKC_API.G_MISS_NUM)
2450: IF (x_sccv_rec.creation_date = OKC_API.G_MISS_DATE)
2451: THEN
2452: x_sccv_rec.creation_date := l_sccv_rec.creation_date;
2453: END IF;
2454: IF (x_sccv_rec.last_updated_by = OKC_API.G_MISS_NUM)
2455: THEN
2456: x_sccv_rec.last_updated_by := l_sccv_rec.last_updated_by;
2457: END IF;
2458: IF (x_sccv_rec.last_update_date = OKC_API.G_MISS_DATE)
2454: IF (x_sccv_rec.last_updated_by = OKC_API.G_MISS_NUM)
2455: THEN
2456: x_sccv_rec.last_updated_by := l_sccv_rec.last_updated_by;
2457: END IF;
2458: IF (x_sccv_rec.last_update_date = OKC_API.G_MISS_DATE)
2459: THEN
2460: x_sccv_rec.last_update_date := l_sccv_rec.last_update_date;
2461: END IF;
2462: IF (x_sccv_rec.last_update_login = OKC_API.G_MISS_NUM)
2458: IF (x_sccv_rec.last_update_date = OKC_API.G_MISS_DATE)
2459: THEN
2460: x_sccv_rec.last_update_date := l_sccv_rec.last_update_date;
2461: END IF;
2462: IF (x_sccv_rec.last_update_login = OKC_API.G_MISS_NUM)
2463: THEN
2464: x_sccv_rec.last_update_login := l_sccv_rec.last_update_login;
2465: END IF;
2466: IF (x_sccv_rec.attribute_category = OKC_API.G_MISS_CHAR)
2462: IF (x_sccv_rec.last_update_login = OKC_API.G_MISS_NUM)
2463: THEN
2464: x_sccv_rec.last_update_login := l_sccv_rec.last_update_login;
2465: END IF;
2466: IF (x_sccv_rec.attribute_category = OKC_API.G_MISS_CHAR)
2467: THEN
2468: x_sccv_rec.attribute_category := l_sccv_rec.attribute_category;
2469: END IF;
2470: IF (x_sccv_rec.attribute1 = OKC_API.G_MISS_CHAR)
2466: IF (x_sccv_rec.attribute_category = OKC_API.G_MISS_CHAR)
2467: THEN
2468: x_sccv_rec.attribute_category := l_sccv_rec.attribute_category;
2469: END IF;
2470: IF (x_sccv_rec.attribute1 = OKC_API.G_MISS_CHAR)
2471: THEN
2472: x_sccv_rec.attribute1 := l_sccv_rec.attribute1;
2473: END IF;
2474: IF (x_sccv_rec.attribute2 = OKC_API.G_MISS_CHAR)
2470: IF (x_sccv_rec.attribute1 = OKC_API.G_MISS_CHAR)
2471: THEN
2472: x_sccv_rec.attribute1 := l_sccv_rec.attribute1;
2473: END IF;
2474: IF (x_sccv_rec.attribute2 = OKC_API.G_MISS_CHAR)
2475: THEN
2476: x_sccv_rec.attribute2 := l_sccv_rec.attribute2;
2477: END IF;
2478: IF (x_sccv_rec.attribute3 = OKC_API.G_MISS_CHAR)
2474: IF (x_sccv_rec.attribute2 = OKC_API.G_MISS_CHAR)
2475: THEN
2476: x_sccv_rec.attribute2 := l_sccv_rec.attribute2;
2477: END IF;
2478: IF (x_sccv_rec.attribute3 = OKC_API.G_MISS_CHAR)
2479: THEN
2480: x_sccv_rec.attribute3 := l_sccv_rec.attribute3;
2481: END IF;
2482: IF (x_sccv_rec.attribute4 = OKC_API.G_MISS_CHAR)
2478: IF (x_sccv_rec.attribute3 = OKC_API.G_MISS_CHAR)
2479: THEN
2480: x_sccv_rec.attribute3 := l_sccv_rec.attribute3;
2481: END IF;
2482: IF (x_sccv_rec.attribute4 = OKC_API.G_MISS_CHAR)
2483: THEN
2484: x_sccv_rec.attribute4 := l_sccv_rec.attribute4;
2485: END IF;
2486: IF (x_sccv_rec.attribute5 = OKC_API.G_MISS_CHAR)
2482: IF (x_sccv_rec.attribute4 = OKC_API.G_MISS_CHAR)
2483: THEN
2484: x_sccv_rec.attribute4 := l_sccv_rec.attribute4;
2485: END IF;
2486: IF (x_sccv_rec.attribute5 = OKC_API.G_MISS_CHAR)
2487: THEN
2488: x_sccv_rec.attribute5 := l_sccv_rec.attribute5;
2489: END IF;
2490: IF (x_sccv_rec.attribute6 = OKC_API.G_MISS_CHAR)
2486: IF (x_sccv_rec.attribute5 = OKC_API.G_MISS_CHAR)
2487: THEN
2488: x_sccv_rec.attribute5 := l_sccv_rec.attribute5;
2489: END IF;
2490: IF (x_sccv_rec.attribute6 = OKC_API.G_MISS_CHAR)
2491: THEN
2492: x_sccv_rec.attribute6 := l_sccv_rec.attribute6;
2493: END IF;
2494: IF (x_sccv_rec.attribute7 = OKC_API.G_MISS_CHAR)
2490: IF (x_sccv_rec.attribute6 = OKC_API.G_MISS_CHAR)
2491: THEN
2492: x_sccv_rec.attribute6 := l_sccv_rec.attribute6;
2493: END IF;
2494: IF (x_sccv_rec.attribute7 = OKC_API.G_MISS_CHAR)
2495: THEN
2496: x_sccv_rec.attribute7 := l_sccv_rec.attribute7;
2497: END IF;
2498: IF (x_sccv_rec.attribute8 = OKC_API.G_MISS_CHAR)
2494: IF (x_sccv_rec.attribute7 = OKC_API.G_MISS_CHAR)
2495: THEN
2496: x_sccv_rec.attribute7 := l_sccv_rec.attribute7;
2497: END IF;
2498: IF (x_sccv_rec.attribute8 = OKC_API.G_MISS_CHAR)
2499: THEN
2500: x_sccv_rec.attribute8 := l_sccv_rec.attribute8;
2501: END IF;
2502: IF (x_sccv_rec.attribute9 = OKC_API.G_MISS_CHAR)
2498: IF (x_sccv_rec.attribute8 = OKC_API.G_MISS_CHAR)
2499: THEN
2500: x_sccv_rec.attribute8 := l_sccv_rec.attribute8;
2501: END IF;
2502: IF (x_sccv_rec.attribute9 = OKC_API.G_MISS_CHAR)
2503: THEN
2504: x_sccv_rec.attribute9 := l_sccv_rec.attribute9;
2505: END IF;
2506: IF (x_sccv_rec.attribute10 = OKC_API.G_MISS_CHAR)
2502: IF (x_sccv_rec.attribute9 = OKC_API.G_MISS_CHAR)
2503: THEN
2504: x_sccv_rec.attribute9 := l_sccv_rec.attribute9;
2505: END IF;
2506: IF (x_sccv_rec.attribute10 = OKC_API.G_MISS_CHAR)
2507: THEN
2508: x_sccv_rec.attribute10 := l_sccv_rec.attribute10;
2509: END IF;
2510: IF (x_sccv_rec.attribute11 = OKC_API.G_MISS_CHAR)
2506: IF (x_sccv_rec.attribute10 = OKC_API.G_MISS_CHAR)
2507: THEN
2508: x_sccv_rec.attribute10 := l_sccv_rec.attribute10;
2509: END IF;
2510: IF (x_sccv_rec.attribute11 = OKC_API.G_MISS_CHAR)
2511: THEN
2512: x_sccv_rec.attribute11 := l_sccv_rec.attribute11;
2513: END IF;
2514: IF (x_sccv_rec.attribute12 = OKC_API.G_MISS_CHAR)
2510: IF (x_sccv_rec.attribute11 = OKC_API.G_MISS_CHAR)
2511: THEN
2512: x_sccv_rec.attribute11 := l_sccv_rec.attribute11;
2513: END IF;
2514: IF (x_sccv_rec.attribute12 = OKC_API.G_MISS_CHAR)
2515: THEN
2516: x_sccv_rec.attribute12 := l_sccv_rec.attribute12;
2517: END IF;
2518: IF (x_sccv_rec.attribute13 = OKC_API.G_MISS_CHAR)
2514: IF (x_sccv_rec.attribute12 = OKC_API.G_MISS_CHAR)
2515: THEN
2516: x_sccv_rec.attribute12 := l_sccv_rec.attribute12;
2517: END IF;
2518: IF (x_sccv_rec.attribute13 = OKC_API.G_MISS_CHAR)
2519: THEN
2520: x_sccv_rec.attribute13 := l_sccv_rec.attribute13;
2521: END IF;
2522: IF (x_sccv_rec.attribute14 = OKC_API.G_MISS_CHAR)
2518: IF (x_sccv_rec.attribute13 = OKC_API.G_MISS_CHAR)
2519: THEN
2520: x_sccv_rec.attribute13 := l_sccv_rec.attribute13;
2521: END IF;
2522: IF (x_sccv_rec.attribute14 = OKC_API.G_MISS_CHAR)
2523: THEN
2524: x_sccv_rec.attribute14 := l_sccv_rec.attribute14;
2525: END IF;
2526: IF (x_sccv_rec.attribute15 = OKC_API.G_MISS_CHAR)
2522: IF (x_sccv_rec.attribute14 = OKC_API.G_MISS_CHAR)
2523: THEN
2524: x_sccv_rec.attribute14 := l_sccv_rec.attribute14;
2525: END IF;
2526: IF (x_sccv_rec.attribute15 = OKC_API.G_MISS_CHAR)
2527: THEN
2528: x_sccv_rec.attribute15 := l_sccv_rec.attribute15;
2529: END IF;
2530:
2542: FUNCTION Set_Attributes (
2543: p_sccv_rec IN sccv_rec_type,
2544: x_sccv_rec OUT NOCOPY sccv_rec_type
2545: ) RETURN VARCHAR2 IS
2546: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2547: BEGIN
2548:
2549: x_sccv_rec := p_sccv_rec;
2550: x_sccv_rec.OBJECT_VERSION_NUMBER := NVL(x_sccv_rec.OBJECT_VERSION_NUMBER, 0) + 1;
2557: okc_debug.Set_Indentation('OKC_SCC_PVT');
2558: okc_debug.log('8400: Entered update_row', 2);
2559: END IF;
2560:
2561: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2562: G_PKG_NAME,
2563: p_init_msg_list,
2564: l_api_version,
2565: p_api_version,
2564: l_api_version,
2565: p_api_version,
2566: '_PVT',
2567: x_return_status);
2568: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2569: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2570: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2571: RAISE OKC_API.G_EXCEPTION_ERROR;
2572: END IF;
2565: p_api_version,
2566: '_PVT',
2567: x_return_status);
2568: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2569: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2570: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2571: RAISE OKC_API.G_EXCEPTION_ERROR;
2572: END IF;
2573: --- Setting item attributes
2566: '_PVT',
2567: x_return_status);
2568: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2569: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2570: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2571: RAISE OKC_API.G_EXCEPTION_ERROR;
2572: END IF;
2573: --- Setting item attributes
2574: l_return_status := Set_Attributes(
2567: x_return_status);
2568: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2569: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2570: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2571: RAISE OKC_API.G_EXCEPTION_ERROR;
2572: END IF;
2573: --- Setting item attributes
2574: l_return_status := Set_Attributes(
2575: p_sccv_rec, -- IN
2574: l_return_status := Set_Attributes(
2575: p_sccv_rec, -- IN
2576: l_sccv_rec); -- OUT
2577: --- If any errors happen abort API
2578: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2579: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2580: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2581: RAISE OKC_API.G_EXCEPTION_ERROR;
2582: END IF;
2575: p_sccv_rec, -- IN
2576: l_sccv_rec); -- OUT
2577: --- If any errors happen abort API
2578: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2579: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2580: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2581: RAISE OKC_API.G_EXCEPTION_ERROR;
2582: END IF;
2583: l_return_status := populate_new_record(l_sccv_rec, l_def_sccv_rec);
2576: l_sccv_rec); -- OUT
2577: --- If any errors happen abort API
2578: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2579: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2580: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2581: RAISE OKC_API.G_EXCEPTION_ERROR;
2582: END IF;
2583: l_return_status := populate_new_record(l_sccv_rec, l_def_sccv_rec);
2584: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2577: --- If any errors happen abort API
2578: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2579: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2580: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2581: RAISE OKC_API.G_EXCEPTION_ERROR;
2582: END IF;
2583: l_return_status := populate_new_record(l_sccv_rec, l_def_sccv_rec);
2584: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2585: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2580: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2581: RAISE OKC_API.G_EXCEPTION_ERROR;
2582: END IF;
2583: l_return_status := populate_new_record(l_sccv_rec, l_def_sccv_rec);
2584: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2585: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2586: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2587: RAISE OKC_API.G_EXCEPTION_ERROR;
2588: END IF;
2581: RAISE OKC_API.G_EXCEPTION_ERROR;
2582: END IF;
2583: l_return_status := populate_new_record(l_sccv_rec, l_def_sccv_rec);
2584: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2585: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2586: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2587: RAISE OKC_API.G_EXCEPTION_ERROR;
2588: END IF;
2589: l_def_sccv_rec := fill_who_columns(l_def_sccv_rec);
2582: END IF;
2583: l_return_status := populate_new_record(l_sccv_rec, l_def_sccv_rec);
2584: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2585: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2586: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2587: RAISE OKC_API.G_EXCEPTION_ERROR;
2588: END IF;
2589: l_def_sccv_rec := fill_who_columns(l_def_sccv_rec);
2590: --- Validate all non-missing attributes (Item Level Validation)
2583: l_return_status := populate_new_record(l_sccv_rec, l_def_sccv_rec);
2584: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2585: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2586: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2587: RAISE OKC_API.G_EXCEPTION_ERROR;
2588: END IF;
2589: l_def_sccv_rec := fill_who_columns(l_def_sccv_rec);
2590: --- Validate all non-missing attributes (Item Level Validation)
2591: l_return_status := Validate_Attributes(l_def_sccv_rec);
2589: l_def_sccv_rec := fill_who_columns(l_def_sccv_rec);
2590: --- Validate all non-missing attributes (Item Level Validation)
2591: l_return_status := Validate_Attributes(l_def_sccv_rec);
2592: --- If any errors happen abort API
2593: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2594: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2595: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2596: RAISE OKC_API.G_EXCEPTION_ERROR;
2597: END IF;
2590: --- Validate all non-missing attributes (Item Level Validation)
2591: l_return_status := Validate_Attributes(l_def_sccv_rec);
2592: --- If any errors happen abort API
2593: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2594: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2595: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2596: RAISE OKC_API.G_EXCEPTION_ERROR;
2597: END IF;
2598: l_return_status := Validate_Record(l_def_sccv_rec);
2591: l_return_status := Validate_Attributes(l_def_sccv_rec);
2592: --- If any errors happen abort API
2593: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2594: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2595: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2596: RAISE OKC_API.G_EXCEPTION_ERROR;
2597: END IF;
2598: l_return_status := Validate_Record(l_def_sccv_rec);
2599: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2592: --- If any errors happen abort API
2593: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2594: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2595: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2596: RAISE OKC_API.G_EXCEPTION_ERROR;
2597: END IF;
2598: l_return_status := Validate_Record(l_def_sccv_rec);
2599: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2600: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2595: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2596: RAISE OKC_API.G_EXCEPTION_ERROR;
2597: END IF;
2598: l_return_status := Validate_Record(l_def_sccv_rec);
2599: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2600: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2601: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2602: RAISE OKC_API.G_EXCEPTION_ERROR;
2603: END IF;
2596: RAISE OKC_API.G_EXCEPTION_ERROR;
2597: END IF;
2598: l_return_status := Validate_Record(l_def_sccv_rec);
2599: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2600: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2601: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2602: RAISE OKC_API.G_EXCEPTION_ERROR;
2603: END IF;
2604:
2597: END IF;
2598: l_return_status := Validate_Record(l_def_sccv_rec);
2599: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2600: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2601: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2602: RAISE OKC_API.G_EXCEPTION_ERROR;
2603: END IF;
2604:
2605: --------------------------------------
2598: l_return_status := Validate_Record(l_def_sccv_rec);
2599: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2600: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2601: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2602: RAISE OKC_API.G_EXCEPTION_ERROR;
2603: END IF;
2604:
2605: --------------------------------------
2606: -- Move VIEW record to "Child" records
2616: x_msg_data,
2617: l_scc_rec,
2618: lx_scc_rec
2619: );
2620: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2621: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2622: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2623: RAISE OKC_API.G_EXCEPTION_ERROR;
2624: END IF;
2617: l_scc_rec,
2618: lx_scc_rec
2619: );
2620: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2621: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2622: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2623: RAISE OKC_API.G_EXCEPTION_ERROR;
2624: END IF;
2625: migrate(lx_scc_rec, l_def_sccv_rec);
2618: lx_scc_rec
2619: );
2620: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2621: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2622: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2623: RAISE OKC_API.G_EXCEPTION_ERROR;
2624: END IF;
2625: migrate(lx_scc_rec, l_def_sccv_rec);
2626: x_sccv_rec := l_def_sccv_rec;
2619: );
2620: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2621: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2622: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2623: RAISE OKC_API.G_EXCEPTION_ERROR;
2624: END IF;
2625: migrate(lx_scc_rec, l_def_sccv_rec);
2626: x_sccv_rec := l_def_sccv_rec;
2627: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2623: RAISE OKC_API.G_EXCEPTION_ERROR;
2624: END IF;
2625: migrate(lx_scc_rec, l_def_sccv_rec);
2626: x_sccv_rec := l_def_sccv_rec;
2627: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2628:
2629: IF (l_debug = 'Y') THEN
2630: okc_debug.log('8500: Leaving update_row', 2);
2631: okc_debug.Reset_Indentation;
2631: okc_debug.Reset_Indentation;
2632: END IF;
2633:
2634: EXCEPTION
2635: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2636:
2637: IF (l_debug = 'Y') THEN
2638: okc_debug.log('8600: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2639: okc_debug.Reset_Indentation;
2634: EXCEPTION
2635: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2636:
2637: IF (l_debug = 'Y') THEN
2638: okc_debug.log('8600: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2639: okc_debug.Reset_Indentation;
2640: END IF;
2641:
2642: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2638: okc_debug.log('8600: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2639: okc_debug.Reset_Indentation;
2640: END IF;
2641:
2642: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2643: (
2644: l_api_name,
2645: G_PKG_NAME,
2646: 'OKC_API.G_RET_STS_ERROR',
2642: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2643: (
2644: l_api_name,
2645: G_PKG_NAME,
2646: 'OKC_API.G_RET_STS_ERROR',
2647: x_msg_count,
2648: x_msg_data,
2649: '_PVT'
2650: );
2647: x_msg_count,
2648: x_msg_data,
2649: '_PVT'
2650: );
2651: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2652:
2653: IF (l_debug = 'Y') THEN
2654: okc_debug.log('8700: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2655: okc_debug.Reset_Indentation;
2650: );
2651: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2652:
2653: IF (l_debug = 'Y') THEN
2654: okc_debug.log('8700: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2655: okc_debug.Reset_Indentation;
2656: END IF;
2657:
2658: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2654: okc_debug.log('8700: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2655: okc_debug.Reset_Indentation;
2656: END IF;
2657:
2658: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2659: (
2660: l_api_name,
2661: G_PKG_NAME,
2662: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2658: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2659: (
2660: l_api_name,
2661: G_PKG_NAME,
2662: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2663: x_msg_count,
2664: x_msg_data,
2665: '_PVT'
2666: );
2670: okc_debug.log('8800: Exiting update_row:OTHERS Exception', 2);
2671: okc_debug.Reset_Indentation;
2672: END IF;
2673:
2674: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2675: (
2676: l_api_name,
2677: G_PKG_NAME,
2678: 'OTHERS',
2696: x_sccv_tbl OUT NOCOPY sccv_tbl_type) IS
2697:
2698: l_api_version CONSTANT NUMBER := 1;
2699: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
2700: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2701: i NUMBER := 0;
2702: BEGIN
2703:
2704: IF (l_debug = 'Y') THEN
2705: okc_debug.Set_Indentation('OKC_SCC_PVT');
2706: okc_debug.log('8900: Entered update_row', 2);
2707: END IF;
2708:
2709: OKC_API.init_msg_list(p_init_msg_list);
2710: -- Make sure PL/SQL table has records in it before passing
2711: IF (p_sccv_tbl.COUNT > 0) THEN
2712: i := p_sccv_tbl.FIRST;
2713: LOOP
2712: i := p_sccv_tbl.FIRST;
2713: LOOP
2714: update_row (
2715: p_api_version => p_api_version,
2716: p_init_msg_list => OKC_API.G_FALSE,
2717: x_return_status => x_return_status,
2718: x_msg_count => x_msg_count,
2719: x_msg_data => x_msg_data,
2720: p_sccv_rec => p_sccv_tbl(i),
2729: okc_debug.Reset_Indentation;
2730: END IF;
2731:
2732: EXCEPTION
2733: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2734:
2735: IF (l_debug = 'Y') THEN
2736: okc_debug.log('9100: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2737: okc_debug.Reset_Indentation;
2732: EXCEPTION
2733: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2734:
2735: IF (l_debug = 'Y') THEN
2736: okc_debug.log('9100: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2737: okc_debug.Reset_Indentation;
2738: END IF;
2739:
2740: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2736: okc_debug.log('9100: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2737: okc_debug.Reset_Indentation;
2738: END IF;
2739:
2740: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2741: (
2742: l_api_name,
2743: G_PKG_NAME,
2744: 'OKC_API.G_RET_STS_ERROR',
2740: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2741: (
2742: l_api_name,
2743: G_PKG_NAME,
2744: 'OKC_API.G_RET_STS_ERROR',
2745: x_msg_count,
2746: x_msg_data,
2747: '_PVT'
2748: );
2745: x_msg_count,
2746: x_msg_data,
2747: '_PVT'
2748: );
2749: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2750:
2751: IF (l_debug = 'Y') THEN
2752: okc_debug.log('9200: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2753: okc_debug.Reset_Indentation;
2748: );
2749: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2750:
2751: IF (l_debug = 'Y') THEN
2752: okc_debug.log('9200: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2753: okc_debug.Reset_Indentation;
2754: END IF;
2755:
2756: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2752: okc_debug.log('9200: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2753: okc_debug.Reset_Indentation;
2754: END IF;
2755:
2756: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2757: (
2758: l_api_name,
2759: G_PKG_NAME,
2760: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2756: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2757: (
2758: l_api_name,
2759: G_PKG_NAME,
2760: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2761: x_msg_count,
2762: x_msg_data,
2763: '_PVT'
2764: );
2768: okc_debug.log('9300: Exiting update_row:OTHERS Exception', 2);
2769: okc_debug.Reset_Indentation;
2770: END IF;
2771:
2772: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2773: (
2774: l_api_name,
2775: G_PKG_NAME,
2776: 'OTHERS',
2795: p_scc_rec IN scc_rec_type) IS
2796:
2797: l_api_version CONSTANT NUMBER := 1;
2798: l_api_name CONSTANT VARCHAR2(30) := 'CONTENTS_delete_row';
2799: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2800: l_scc_rec scc_rec_type:= p_scc_rec;
2801: l_row_notfound BOOLEAN := TRUE;
2802: BEGIN
2803:
2805: okc_debug.Set_Indentation('OKC_SCC_PVT');
2806: okc_debug.log('9400: Entered delete_row', 2);
2807: END IF;
2808:
2809: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2810: p_init_msg_list,
2811: '_PVT',
2812: x_return_status);
2813: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2809: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2810: p_init_msg_list,
2811: '_PVT',
2812: x_return_status);
2813: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2814: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2815: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2816: RAISE OKC_API.G_EXCEPTION_ERROR;
2817: END IF;
2810: p_init_msg_list,
2811: '_PVT',
2812: x_return_status);
2813: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2814: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2815: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2816: RAISE OKC_API.G_EXCEPTION_ERROR;
2817: END IF;
2818: DELETE FROM OKC_SECTION_CONTENTS
2811: '_PVT',
2812: x_return_status);
2813: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2814: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2815: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2816: RAISE OKC_API.G_EXCEPTION_ERROR;
2817: END IF;
2818: DELETE FROM OKC_SECTION_CONTENTS
2819: WHERE ID = l_scc_rec.id;
2812: x_return_status);
2813: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2814: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2815: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2816: RAISE OKC_API.G_EXCEPTION_ERROR;
2817: END IF;
2818: DELETE FROM OKC_SECTION_CONTENTS
2819: WHERE ID = l_scc_rec.id;
2820:
2817: END IF;
2818: DELETE FROM OKC_SECTION_CONTENTS
2819: WHERE ID = l_scc_rec.id;
2820:
2821: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2822:
2823: IF (l_debug = 'Y') THEN
2824: okc_debug.log('9500: Leaving delete_row', 2);
2825: okc_debug.Reset_Indentation;
2825: okc_debug.Reset_Indentation;
2826: END IF;
2827:
2828: EXCEPTION
2829: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2830:
2831: IF (l_debug = 'Y') THEN
2832: okc_debug.log('9600: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2833: okc_debug.Reset_Indentation;
2828: EXCEPTION
2829: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2830:
2831: IF (l_debug = 'Y') THEN
2832: okc_debug.log('9600: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2833: okc_debug.Reset_Indentation;
2834: END IF;
2835:
2836: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2832: okc_debug.log('9600: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2833: okc_debug.Reset_Indentation;
2834: END IF;
2835:
2836: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2837: (
2838: l_api_name,
2839: G_PKG_NAME,
2840: 'OKC_API.G_RET_STS_ERROR',
2836: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2837: (
2838: l_api_name,
2839: G_PKG_NAME,
2840: 'OKC_API.G_RET_STS_ERROR',
2841: x_msg_count,
2842: x_msg_data,
2843: '_PVT'
2844: );
2841: x_msg_count,
2842: x_msg_data,
2843: '_PVT'
2844: );
2845: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2846:
2847: IF (l_debug = 'Y') THEN
2848: okc_debug.log('9700: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2849: okc_debug.Reset_Indentation;
2844: );
2845: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2846:
2847: IF (l_debug = 'Y') THEN
2848: okc_debug.log('9700: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2849: okc_debug.Reset_Indentation;
2850: END IF;
2851:
2852: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2848: okc_debug.log('9700: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2849: okc_debug.Reset_Indentation;
2850: END IF;
2851:
2852: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2853: (
2854: l_api_name,
2855: G_PKG_NAME,
2856: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2852: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2853: (
2854: l_api_name,
2855: G_PKG_NAME,
2856: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2857: x_msg_count,
2858: x_msg_data,
2859: '_PVT'
2860: );
2864: okc_debug.log('9800: Exiting delete_row:OTHERS Exception', 2);
2865: okc_debug.Reset_Indentation;
2866: END IF;
2867:
2868: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2869: (
2870: l_api_name,
2871: G_PKG_NAME,
2872: 'OTHERS',
2888: p_sccv_rec IN sccv_rec_type) IS
2889:
2890: l_api_version CONSTANT NUMBER := 1;
2891: l_api_name CONSTANT VARCHAR2(30) := 'V_delete_row';
2892: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2893: l_sccv_rec sccv_rec_type := p_sccv_rec;
2894: l_scc_rec scc_rec_type;
2895: BEGIN
2896:
2898: okc_debug.Set_Indentation('OKC_SCC_PVT');
2899: okc_debug.log('9900: Entered delete_row', 2);
2900: END IF;
2901:
2902: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2903: G_PKG_NAME,
2904: p_init_msg_list,
2905: l_api_version,
2906: p_api_version,
2905: l_api_version,
2906: p_api_version,
2907: '_PVT',
2908: x_return_status);
2909: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2910: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2911: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2912: RAISE OKC_API.G_EXCEPTION_ERROR;
2913: END IF;
2906: p_api_version,
2907: '_PVT',
2908: x_return_status);
2909: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2910: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2911: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2912: RAISE OKC_API.G_EXCEPTION_ERROR;
2913: END IF;
2914: --------------------------------------
2907: '_PVT',
2908: x_return_status);
2909: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2910: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2911: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2912: RAISE OKC_API.G_EXCEPTION_ERROR;
2913: END IF;
2914: --------------------------------------
2915: -- Move VIEW record to "Child" records
2908: x_return_status);
2909: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2910: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2911: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2912: RAISE OKC_API.G_EXCEPTION_ERROR;
2913: END IF;
2914: --------------------------------------
2915: -- Move VIEW record to "Child" records
2916: --------------------------------------
2924: x_msg_count,
2925: x_msg_data,
2926: l_scc_rec
2927: );
2928: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2929: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2930: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2931: RAISE OKC_API.G_EXCEPTION_ERROR;
2932: END IF;
2925: x_msg_data,
2926: l_scc_rec
2927: );
2928: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2929: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2930: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2931: RAISE OKC_API.G_EXCEPTION_ERROR;
2932: END IF;
2933: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2926: l_scc_rec
2927: );
2928: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2929: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2930: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2931: RAISE OKC_API.G_EXCEPTION_ERROR;
2932: END IF;
2933: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2934:
2927: );
2928: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2929: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2930: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2931: RAISE OKC_API.G_EXCEPTION_ERROR;
2932: END IF;
2933: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2934:
2935: IF (l_debug = 'Y') THEN
2929: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2930: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2931: RAISE OKC_API.G_EXCEPTION_ERROR;
2932: END IF;
2933: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2934:
2935: IF (l_debug = 'Y') THEN
2936: okc_debug.log('10000: Leaving delete_row', 2);
2937: okc_debug.Reset_Indentation;
2937: okc_debug.Reset_Indentation;
2938: END IF;
2939:
2940: EXCEPTION
2941: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2942:
2943: IF (l_debug = 'Y') THEN
2944: okc_debug.log('10100: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2945: okc_debug.Reset_Indentation;
2940: EXCEPTION
2941: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2942:
2943: IF (l_debug = 'Y') THEN
2944: okc_debug.log('10100: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2945: okc_debug.Reset_Indentation;
2946: END IF;
2947:
2948: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2944: okc_debug.log('10100: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2945: okc_debug.Reset_Indentation;
2946: END IF;
2947:
2948: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2949: (
2950: l_api_name,
2951: G_PKG_NAME,
2952: 'OKC_API.G_RET_STS_ERROR',
2948: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2949: (
2950: l_api_name,
2951: G_PKG_NAME,
2952: 'OKC_API.G_RET_STS_ERROR',
2953: x_msg_count,
2954: x_msg_data,
2955: '_PVT'
2956: );
2953: x_msg_count,
2954: x_msg_data,
2955: '_PVT'
2956: );
2957: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2958:
2959: IF (l_debug = 'Y') THEN
2960: okc_debug.log('10200: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2961: okc_debug.Reset_Indentation;
2956: );
2957: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2958:
2959: IF (l_debug = 'Y') THEN
2960: okc_debug.log('10200: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2961: okc_debug.Reset_Indentation;
2962: END IF;
2963:
2964: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2960: okc_debug.log('10200: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2961: okc_debug.Reset_Indentation;
2962: END IF;
2963:
2964: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2965: (
2966: l_api_name,
2967: G_PKG_NAME,
2968: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2964: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2965: (
2966: l_api_name,
2967: G_PKG_NAME,
2968: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2969: x_msg_count,
2970: x_msg_data,
2971: '_PVT'
2972: );
2976: okc_debug.log('10300: Exiting delete_row:OTHERS Exception', 2);
2977: okc_debug.Reset_Indentation;
2978: END IF;
2979:
2980: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2981: (
2982: l_api_name,
2983: G_PKG_NAME,
2984: 'OTHERS',
3000: p_sccv_tbl IN sccv_tbl_type) IS
3001:
3002: l_api_version CONSTANT NUMBER := 1;
3003: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
3004: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3005: i NUMBER := 0;
3006: BEGIN
3007:
3008: IF (l_debug = 'Y') THEN
3009: okc_debug.Set_Indentation('OKC_SCC_PVT');
3010: okc_debug.log('10400: Entered delete_row', 2);
3011: END IF;
3012:
3013: OKC_API.init_msg_list(p_init_msg_list);
3014: -- Make sure PL/SQL table has records in it before passing
3015: IF (p_sccv_tbl.COUNT > 0) THEN
3016: i := p_sccv_tbl.FIRST;
3017: LOOP
3016: i := p_sccv_tbl.FIRST;
3017: LOOP
3018: delete_row (
3019: p_api_version => p_api_version,
3020: p_init_msg_list => OKC_API.G_FALSE,
3021: x_return_status => x_return_status,
3022: x_msg_count => x_msg_count,
3023: x_msg_data => x_msg_data,
3024: p_sccv_rec => p_sccv_tbl(i));
3032: okc_debug.Reset_Indentation;
3033: END IF;
3034:
3035: EXCEPTION
3036: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3037:
3038: IF (l_debug = 'Y') THEN
3039: okc_debug.log('10600: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3040: okc_debug.Reset_Indentation;
3035: EXCEPTION
3036: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3037:
3038: IF (l_debug = 'Y') THEN
3039: okc_debug.log('10600: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3040: okc_debug.Reset_Indentation;
3041: END IF;
3042:
3043: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3039: okc_debug.log('10600: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3040: okc_debug.Reset_Indentation;
3041: END IF;
3042:
3043: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3044: (
3045: l_api_name,
3046: G_PKG_NAME,
3047: 'OKC_API.G_RET_STS_ERROR',
3043: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3044: (
3045: l_api_name,
3046: G_PKG_NAME,
3047: 'OKC_API.G_RET_STS_ERROR',
3048: x_msg_count,
3049: x_msg_data,
3050: '_PVT'
3051: );
3048: x_msg_count,
3049: x_msg_data,
3050: '_PVT'
3051: );
3052: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3053:
3054: IF (l_debug = 'Y') THEN
3055: okc_debug.log('10700: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3056: okc_debug.Reset_Indentation;
3051: );
3052: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3053:
3054: IF (l_debug = 'Y') THEN
3055: okc_debug.log('10700: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3056: okc_debug.Reset_Indentation;
3057: END IF;
3058:
3059: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3055: okc_debug.log('10700: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3056: okc_debug.Reset_Indentation;
3057: END IF;
3058:
3059: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3060: (
3061: l_api_name,
3062: G_PKG_NAME,
3063: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3059: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3060: (
3061: l_api_name,
3062: G_PKG_NAME,
3063: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3064: x_msg_count,
3065: x_msg_data,
3066: '_PVT'
3067: );
3071: okc_debug.log('10800: Exiting delete_row:OTHERS Exception', 2);
3072: okc_debug.Reset_Indentation;
3073: END IF;
3074:
3075: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3076: (
3077: l_api_name,
3078: G_PKG_NAME,
3079: 'OTHERS',
3092: p_chr_id IN NUMBER,
3093: p_major_version IN NUMBER
3094: ) RETURN VARCHAR2 IS
3095:
3096: l_return_status VARCHAR2(1):= OKC_API.G_RET_STS_SUCCESS;
3097:
3098: BEGIN
3099:
3100: IF (l_debug = 'Y') THEN
3186: okc_debug.Reset_Indentation;
3187: END IF;
3188:
3189: -- store SQL error message on message stack
3190: OKC_API.SET_MESSAGE(p_app_name => okc_version_pvt.G_APP_NAME,
3191: p_msg_name => okc_version_pvt.G_UNEXPECTED_ERROR,
3192: p_token1 => okc_version_pvt.G_SQLCODE_TOKEN,
3193: p_token1_value => sqlcode,
3194: p_token2 => okc_version_pvt.G_SQLERRM_TOKEN,
3194: p_token2 => okc_version_pvt.G_SQLERRM_TOKEN,
3195: p_token2_value => sqlerrm);
3196:
3197: -- notify UNEXPECTED error
3198: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
3199: return l_return_status;
3200:
3201: IF (l_debug = 'Y') THEN
3202: okc_debug.log('11000: Leaving create_version', 2);
3218: p_major_version IN NUMBER
3219: ) RETURN VARCHAR2 IS
3220:
3221:
3222: l_return_status VARCHAR2(1):= OKC_API.G_RET_STS_SUCCESS;
3223:
3224: BEGIN
3225:
3226: IF (l_debug = 'Y') THEN
3311: okc_debug.Reset_Indentation;
3312: END IF;
3313:
3314: -- store SQL error message on message stack
3315: OKC_API.SET_MESSAGE(p_app_name => okc_version_pvt.G_APP_NAME,
3316: p_msg_name => okc_version_pvt.G_UNEXPECTED_ERROR,
3317: p_token1 => okc_version_pvt.G_SQLCODE_TOKEN,
3318: p_token1_value => sqlcode,
3319: p_token2 => okc_version_pvt.G_SQLERRM_TOKEN,
3319: p_token2 => okc_version_pvt.G_SQLERRM_TOKEN,
3320: p_token2_value => sqlerrm);
3321:
3322: -- notify UNEXPECTED error
3323: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
3324: return l_return_status;
3325:
3326: IF (l_debug = 'Y') THEN
3327: okc_debug.log('11300: Leaving restore_version', 2);