[Home] [Help]
6: /************************ HAND-CODED *********************************/
7:
8: FUNCTION Validate_Attributes ( p_copv_rec IN copv_rec_type) RETURN VARCHAR2;
9: --G_CHILD_RECORD_EXISTS CONSTANT VARCHAR2(200) := 'OKC_CANNOT_DELETE_MASTER';
10: --G_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKC_API.G_CHILD_TABLE_TOKEN;
11: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLerrm';
12: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLcode';
13: G_NO_PARENT_RECORD CONSTANT VARCHAR2(200) := 'OKC_NO_PARENT_RECORD';
14: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_CONTRACTS_UNEXPECTED_ERROR';
13: G_NO_PARENT_RECORD CONSTANT VARCHAR2(200) := 'OKC_NO_PARENT_RECORD';
14: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_CONTRACTS_UNEXPECTED_ERROR';
15: G_VIEW CONSTANT VARCHAR2(200) := 'OKC_CLASS_OPERATIONS_V';
16: G_EXCEPTION_HALT_VALIDATION exception;
17: --l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
18:
19: -- Start of comments
20: --
21: -- Procedure Name : validate_opn_code
32: FROM okc_operations_b
33: WHERE code = p_code;
34: Begin
35: -- initialize return status
36: x_return_status := OKC_API.G_RET_STS_SUCCESS;
37:
38: -- check that data exists
39: If (p_copv_rec.opn_code = OKC_API.G_MISS_CHAR or
40: p_copv_rec.opn_code IS NULL)
35: -- initialize return status
36: x_return_status := OKC_API.G_RET_STS_SUCCESS;
37:
38: -- check that data exists
39: If (p_copv_rec.opn_code = OKC_API.G_MISS_CHAR or
40: p_copv_rec.opn_code IS NULL)
41: Then
42: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
43: p_msg_name => g_required_value,
38: -- check that data exists
39: If (p_copv_rec.opn_code = OKC_API.G_MISS_CHAR or
40: p_copv_rec.opn_code IS NULL)
41: Then
42: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
43: p_msg_name => g_required_value,
44: p_token1 => g_col_name_token,
45: p_token1_value => 'Operation Code');
46: -- notify caller of an error
43: p_msg_name => g_required_value,
44: p_token1 => g_col_name_token,
45: p_token1_value => 'Operation Code');
46: -- notify caller of an error
47: x_return_status := OKC_API.G_RET_STS_ERROR;
48:
49: -- halt validation
50: raise G_EXCEPTION_HALT_VALIDATION;
51: End If;
56: Close l_opnv_csr;
57:
58: -- if l_dummy_var still set to default, data was not found
59: If (l_dummy_var = '?') Then
60: OKC_API.SET_MESSAGE(
61: p_app_name => g_app_name,
62: p_msg_name => g_no_parent_record,
63: p_token1 => g_col_name_token,
64: p_token1_value => 'Operation Code',
66: p_token2_value => G_VIEW,
67: p_token3 => g_parent_table_token,
68: p_token3_value => 'OKC_OPERATIONS_V');
69: -- notify caller of an error
70: x_return_status := OKC_API.G_RET_STS_ERROR;
71: End If;
72: exception
73: when G_EXCEPTION_HALT_VALIDATION then
74: -- no processing necessary; validation can continue with next column
75: null;
76:
77: when OTHERS then
78: -- store SQL error message on message stack
79: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
80: p_msg_name => g_unexpected_error,
81: p_token1 => g_sqlcode_token,
82: p_token1_value => sqlcode,
83: p_token2 => g_sqlerrm_token,
82: p_token1_value => sqlcode,
83: p_token2 => g_sqlerrm_token,
84: p_token2_value => sqlerrm);
85: -- notify caller of an error as UNEXPETED error
86: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
87: End validate_opn_code;
88:
89: -- Start of comments
90: --
102: FROM okc_classes_b
103: WHERE code = p_code;
104: Begin
105: -- initialize return status
106: x_return_status := OKC_API.G_RET_STS_SUCCESS;
107:
108: -- check that data exists
109: If (p_copv_rec.cls_code = OKC_API.G_MISS_CHAR or
110: p_copv_rec.cls_code IS NULL)
105: -- initialize return status
106: x_return_status := OKC_API.G_RET_STS_SUCCESS;
107:
108: -- check that data exists
109: If (p_copv_rec.cls_code = OKC_API.G_MISS_CHAR or
110: p_copv_rec.cls_code IS NULL)
111: Then
112: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
113: p_msg_name => g_required_value,
108: -- check that data exists
109: If (p_copv_rec.cls_code = OKC_API.G_MISS_CHAR or
110: p_copv_rec.cls_code IS NULL)
111: Then
112: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
113: p_msg_name => g_required_value,
114: p_token1 => g_col_name_token,
115: p_token1_value => 'Class Code');
116: -- notify caller of an error
113: p_msg_name => g_required_value,
114: p_token1 => g_col_name_token,
115: p_token1_value => 'Class Code');
116: -- notify caller of an error
117: x_return_status := OKC_API.G_RET_STS_ERROR;
118:
119: -- halt validation
120: raise G_EXCEPTION_HALT_VALIDATION;
121: End If;
126: Close l_clsv_csr;
127:
128: -- if l_dummy_var still set to default, data was not found
129: If (l_dummy_var = '?') Then
130: OKC_API.SET_MESSAGE(
131: p_app_name => g_app_name,
132: p_msg_name => g_no_parent_record,
133: p_token1 => g_col_name_token,
134: p_token1_value => 'Class Code',
136: p_token2_value => G_VIEW,
137: p_token3 => g_parent_table_token,
138: p_token3_value => 'OKC_CLASSES_V');
139: -- notify caller of an error
140: x_return_status := OKC_API.G_RET_STS_ERROR;
141: End If;
142: exception
143: when G_EXCEPTION_HALT_VALIDATION then
144: -- no processing necessary; validation can continue with next column
145: null;
146:
147: when OTHERS then
148: -- store SQL error message on message stack
149: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
150: p_msg_name => g_unexpected_error,
151: p_token1 => g_sqlcode_token,
152: p_token1_value => sqlcode,
153: p_token2 => g_sqlerrm_token,
152: p_token1_value => sqlcode,
153: p_token2 => g_sqlerrm_token,
154: p_token2_value => sqlerrm);
155: -- notify caller of an error as UNEXPETED error
156: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
157: End validate_cls_code;
158:
159: -- Start of comments
160: --
174: where function_id = p_copv_rec.search_function_id;
175:
176: Begin
177: -- initialize return status
178: x_return_status := OKC_API.G_RET_STS_SUCCESS;
179:
180: -- enforce foreign key (search_function_id is optional)
181: If (p_copv_rec.search_function_id <> OKC_API.G_MISS_NUM and
182: p_copv_rec.search_function_id IS NOT NULL)
177: -- initialize return status
178: x_return_status := OKC_API.G_RET_STS_SUCCESS;
179:
180: -- enforce foreign key (search_function_id is optional)
181: If (p_copv_rec.search_function_id <> OKC_API.G_MISS_NUM and
182: p_copv_rec.search_function_id IS NOT NULL)
183: Then
184: Open l_fndv_csr;
185: Fetch l_fndv_csr Into l_dummy_var;
185: Fetch l_fndv_csr Into l_dummy_var;
186: Close l_fndv_csr;
187: -- if l_dummy_var still set to default, data was not found
188: If (l_dummy_var = '?') Then
189: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
190: p_msg_name => g_no_parent_record,
191: p_token1 => g_col_name_token,
192: p_token1_value => 'Search Function Id',
193: p_token2 => g_child_table_token,
194: p_token2_value => G_VIEW,
195: p_token3 => g_parent_table_token,
196: p_token3_value => 'FND_FORM_FUNCTIONS');
197: -- notify caller of an error
198: x_return_status := OKC_API.G_RET_STS_ERROR;
199: End If;
200: End If;
201: exception
202: when OTHERS then
200: End If;
201: exception
202: when OTHERS then
203: -- store SQL error message on message stack
204: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
205: p_msg_name => g_unexpected_error,
206: p_token1 => g_sqlcode_token,
207: p_token1_value => sqlcode,
208: p_token2 => g_sqlerrm_token,
207: p_token1_value => sqlcode,
208: p_token2 => g_sqlerrm_token,
209: p_token2_value => sqlerrm);
210: -- notify caller of an error as UNEXPETED error
211: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
212:
213: -- verify that cursor was closed
214: if l_fndv_csr%ISOPEN then
215: close l_fndv_csr;
235: where function_id = p_copv_rec.detail_function_id;
236:
237: Begin
238: -- initialize return status
239: x_return_status := OKC_API.G_RET_STS_SUCCESS;
240:
241: -- enforce foreign key (detail_function_id is optional)
242: If (p_copv_rec.detail_function_id <> OKC_API.G_MISS_NUM and
243: p_copv_rec.detail_function_id IS NOT NULL)
238: -- initialize return status
239: x_return_status := OKC_API.G_RET_STS_SUCCESS;
240:
241: -- enforce foreign key (detail_function_id is optional)
242: If (p_copv_rec.detail_function_id <> OKC_API.G_MISS_NUM and
243: p_copv_rec.detail_function_id IS NOT NULL)
244: Then
245: Open l_fndv_csr;
246: Fetch l_fndv_csr Into l_dummy_var;
246: Fetch l_fndv_csr Into l_dummy_var;
247: Close l_fndv_csr;
248: -- if l_dummy_var still set to default, data was not found
249: If (l_dummy_var = '?') Then
250: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
251: p_msg_name => g_no_parent_record,
252: p_token1 => g_col_name_token,
253: p_token1_value => 'Detail Function Id',
254: p_token2 => g_child_table_token,
255: p_token2_value => G_VIEW,
256: p_token3 => g_parent_table_token,
257: p_token3_value => 'FND_FORM_FUNCTIONS');
258: -- notify caller of an error
259: x_return_status := OKC_API.G_RET_STS_ERROR;
260: End If;
261: End If;
262: exception
263: when OTHERS then
261: End If;
262: exception
263: when OTHERS then
264: -- store SQL error message on message stack
265: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
266: p_msg_name => g_unexpected_error,
267: p_token1 => g_sqlcode_token,
268: p_token1_value => sqlcode,
269: p_token2 => g_sqlerrm_token,
268: p_token1_value => sqlcode,
269: p_token2 => g_sqlerrm_token,
270: p_token2_value => sqlerrm);
271: -- notify caller of an error as UNEXPETED error
272: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
273:
274: -- verify that cursor was closed
275: if l_fndv_csr%ISOPEN then
276: close l_fndv_csr;
296: where id = p_copv_rec.pdf_id;
297:
298: Begin
299: -- initialize return status
300: x_return_status := OKC_API.G_RET_STS_SUCCESS;
301:
302: -- enforce foreign key (pdf_id is optional)
303: If (p_copv_rec.pdf_id <> OKC_API.G_MISS_NUM and
304: p_copv_rec.pdf_id IS NOT NULL)
299: -- initialize return status
300: x_return_status := OKC_API.G_RET_STS_SUCCESS;
301:
302: -- enforce foreign key (pdf_id is optional)
303: If (p_copv_rec.pdf_id <> OKC_API.G_MISS_NUM and
304: p_copv_rec.pdf_id IS NOT NULL)
305: Then
306: Open l_pdfv_csr;
307: Fetch l_pdfv_csr Into l_dummy_var;
307: Fetch l_pdfv_csr Into l_dummy_var;
308: Close l_pdfv_csr;
309: -- if l_dummy_var still set to default, data was not found
310: If (l_dummy_var = '?') Then
311: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
312: p_msg_name => g_no_parent_record,
313: p_token1 => g_col_name_token,
314: p_token1_value => 'Detail Function Id',
315: p_token2 => g_child_table_token,
316: p_token2_value => G_VIEW,
317: p_token3 => g_parent_table_token,
318: p_token3_value => 'pdf_FORM_FUNCTIONS');
319: -- notify caller of an error
320: x_return_status := OKC_API.G_RET_STS_ERROR;
321: End If;
322: End If;
323: exception
324: when OTHERS then
322: End If;
323: exception
324: when OTHERS then
325: -- store SQL error message on message stack
326: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
327: p_msg_name => g_unexpected_error,
328: p_token1 => g_sqlcode_token,
329: p_token1_value => sqlcode,
330: p_token2 => g_sqlerrm_token,
329: p_token1_value => sqlcode,
330: p_token2 => g_sqlerrm_token,
331: p_token2_value => sqlerrm);
332: -- notify caller of an error as UNEXPETED error
333: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
334:
335: -- verify that cursor was closed
336: if l_pdfv_csr%ISOPEN then
337: close l_pdfv_csr;
359: WHERE grid_datasource_name = p_copv_rec.grid_datasource_name;
360: Begin
361:
362: -- initialize return status
363: x_return_status := OKC_API.G_RET_STS_SUCCESS;
364:
365: -- enforce foreign key (grid_datasource_name is optional)
366: If (p_copv_rec.grid_datasource_name <> OKC_API.G_MISS_CHAR and
367: p_copv_rec.grid_datasource_name IS NOT NULL)
362: -- initialize return status
363: x_return_status := OKC_API.G_RET_STS_SUCCESS;
364:
365: -- enforce foreign key (grid_datasource_name is optional)
366: If (p_copv_rec.grid_datasource_name <> OKC_API.G_MISS_CHAR and
367: p_copv_rec.grid_datasource_name IS NOT NULL)
368: Then
369: Open l_grid_csr;
370: Fetch l_grid_csr Into l_dummy_var;
370: Fetch l_grid_csr Into l_dummy_var;
371: Close l_grid_csr;
372: -- if l_dummy_var still set to default, data was not found
373: If (l_dummy_var = '?') Then
374: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
375: p_msg_name => g_no_parent_record,
376: p_token1 => g_col_name_token,
377: p_token1_value => 'Grid Data Source Name',
378: p_token2 => g_child_table_token,
379: p_token2_value => G_VIEW,
380: p_token3 => g_parent_table_token,
381: p_token3_value => 'JTF_GRID_DATASOURCES_VL');
382: -- notify caller of an error
383: x_return_status := OKC_API.G_RET_STS_ERROR;
384: End If;
385: End If;
386:
387: exception
386:
387: exception
388: when OTHERS then
389: -- store SQL error message on message stack
390: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
391: p_msg_name => g_unexpected_error,
392: p_token1 => g_sqlcode_token,
393: p_token1_value => sqlcode,
394: p_token2 => g_sqlerrm_token,
393: p_token1_value => sqlcode,
394: p_token2 => g_sqlerrm_token,
395: p_token2_value => sqlerrm);
396: -- notify caller of an error as UNEXPETED error
397: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
398: End validate_grid_datasource_name;
399:
400: /*********************** END HAND-CODED ********************************/
401:
587: p_copv_rec IN copv_rec_type
588: ) RETURN copv_rec_type IS
589: l_copv_rec copv_rec_type := p_copv_rec;
590: BEGIN
591: IF (l_copv_rec.opn_code = OKC_API.G_MISS_CHAR) THEN
592: l_copv_rec.opn_code := NULL;
593: END IF;
594: IF (l_copv_rec.cls_code = OKC_API.G_MISS_CHAR) THEN
595: l_copv_rec.cls_code := NULL;
590: BEGIN
591: IF (l_copv_rec.opn_code = OKC_API.G_MISS_CHAR) THEN
592: l_copv_rec.opn_code := NULL;
593: END IF;
594: IF (l_copv_rec.cls_code = OKC_API.G_MISS_CHAR) THEN
595: l_copv_rec.cls_code := NULL;
596: END IF;
597: IF (l_copv_rec.search_function_id = OKC_API.G_MISS_NUM) THEN
598: l_copv_rec.search_function_id := NULL;
593: END IF;
594: IF (l_copv_rec.cls_code = OKC_API.G_MISS_CHAR) THEN
595: l_copv_rec.cls_code := NULL;
596: END IF;
597: IF (l_copv_rec.search_function_id = OKC_API.G_MISS_NUM) THEN
598: l_copv_rec.search_function_id := NULL;
599: END IF;
600: IF (l_copv_rec.detail_function_id = OKC_API.G_MISS_NUM) THEN
601: l_copv_rec.detail_function_id := NULL;
596: END IF;
597: IF (l_copv_rec.search_function_id = OKC_API.G_MISS_NUM) THEN
598: l_copv_rec.search_function_id := NULL;
599: END IF;
600: IF (l_copv_rec.detail_function_id = OKC_API.G_MISS_NUM) THEN
601: l_copv_rec.detail_function_id := NULL;
602: END IF;
603: IF (l_copv_rec.object_version_number = OKC_API.G_MISS_NUM) THEN
604: l_copv_rec.object_version_number := NULL;
599: END IF;
600: IF (l_copv_rec.detail_function_id = OKC_API.G_MISS_NUM) THEN
601: l_copv_rec.detail_function_id := NULL;
602: END IF;
603: IF (l_copv_rec.object_version_number = OKC_API.G_MISS_NUM) THEN
604: l_copv_rec.object_version_number := NULL;
605: END IF;
606: IF (l_copv_rec.created_by = OKC_API.G_MISS_NUM) THEN
607: l_copv_rec.created_by := NULL;
602: END IF;
603: IF (l_copv_rec.object_version_number = OKC_API.G_MISS_NUM) THEN
604: l_copv_rec.object_version_number := NULL;
605: END IF;
606: IF (l_copv_rec.created_by = OKC_API.G_MISS_NUM) THEN
607: l_copv_rec.created_by := NULL;
608: END IF;
609: IF (l_copv_rec.creation_date = OKC_API.G_MISS_DATE) THEN
610: l_copv_rec.creation_date := NULL;
605: END IF;
606: IF (l_copv_rec.created_by = OKC_API.G_MISS_NUM) THEN
607: l_copv_rec.created_by := NULL;
608: END IF;
609: IF (l_copv_rec.creation_date = OKC_API.G_MISS_DATE) THEN
610: l_copv_rec.creation_date := NULL;
611: END IF;
612: IF (l_copv_rec.last_updated_by = OKC_API.G_MISS_NUM) THEN
613: l_copv_rec.last_updated_by := NULL;
608: END IF;
609: IF (l_copv_rec.creation_date = OKC_API.G_MISS_DATE) THEN
610: l_copv_rec.creation_date := NULL;
611: END IF;
612: IF (l_copv_rec.last_updated_by = OKC_API.G_MISS_NUM) THEN
613: l_copv_rec.last_updated_by := NULL;
614: END IF;
615: IF (l_copv_rec.last_update_date = OKC_API.G_MISS_DATE) THEN
616: l_copv_rec.last_update_date := NULL;
611: END IF;
612: IF (l_copv_rec.last_updated_by = OKC_API.G_MISS_NUM) THEN
613: l_copv_rec.last_updated_by := NULL;
614: END IF;
615: IF (l_copv_rec.last_update_date = OKC_API.G_MISS_DATE) THEN
616: l_copv_rec.last_update_date := NULL;
617: END IF;
618: IF (l_copv_rec.last_update_login = OKC_API.G_MISS_NUM) THEN
619: l_copv_rec.last_update_login := NULL;
614: END IF;
615: IF (l_copv_rec.last_update_date = OKC_API.G_MISS_DATE) THEN
616: l_copv_rec.last_update_date := NULL;
617: END IF;
618: IF (l_copv_rec.last_update_login = OKC_API.G_MISS_NUM) THEN
619: l_copv_rec.last_update_login := NULL;
620: END IF;
621: IF (l_copv_rec.pdf_id = OKC_API.G_MISS_NUM) THEN
622: l_copv_rec.pdf_id := NULL;
617: END IF;
618: IF (l_copv_rec.last_update_login = OKC_API.G_MISS_NUM) THEN
619: l_copv_rec.last_update_login := NULL;
620: END IF;
621: IF (l_copv_rec.pdf_id = OKC_API.G_MISS_NUM) THEN
622: l_copv_rec.pdf_id := NULL;
623: END IF;
624: IF (l_copv_rec.grid_datasource_name = OKC_API.G_MISS_CHAR) THEN
625: l_copv_rec.grid_datasource_name := NULL;
620: END IF;
621: IF (l_copv_rec.pdf_id = OKC_API.G_MISS_NUM) THEN
622: l_copv_rec.pdf_id := NULL;
623: END IF;
624: IF (l_copv_rec.grid_datasource_name = OKC_API.G_MISS_CHAR) THEN
625: l_copv_rec.grid_datasource_name := NULL;
626: END IF;
627: IF (l_copv_rec.qa_pdf_id = OKC_API.G_MISS_NUM) THEN -- Bug# 2171059
628: l_copv_rec.qa_pdf_id := NULL;
623: END IF;
624: IF (l_copv_rec.grid_datasource_name = OKC_API.G_MISS_CHAR) THEN
625: l_copv_rec.grid_datasource_name := NULL;
626: END IF;
627: IF (l_copv_rec.qa_pdf_id = OKC_API.G_MISS_NUM) THEN -- Bug# 2171059
628: l_copv_rec.qa_pdf_id := NULL;
629: END IF;
630: RETURN(l_copv_rec);
631: END null_out_defaults;
637: ----------------------------------------------------
638: FUNCTION Validate_Attributes (
639: p_copv_rec IN copv_rec_type
640: ) RETURN VARCHAR2 IS
641: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
642: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
643: BEGIN
644: /************************ HAND-CODED *********************************/
645:
638: FUNCTION Validate_Attributes (
639: p_copv_rec IN copv_rec_type
640: ) RETURN VARCHAR2 IS
641: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
642: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
643: BEGIN
644: /************************ HAND-CODED *********************************/
645:
646: validate_opn_code(x_return_status => l_return_status,
646: validate_opn_code(x_return_status => l_return_status,
647: p_copv_rec => p_copv_rec);
648:
649: -- store the highest degree of error
650: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
651: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
652: x_return_status := l_return_status;
653: End If;
654: End If;
647: p_copv_rec => p_copv_rec);
648:
649: -- store the highest degree of error
650: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
651: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
652: x_return_status := l_return_status;
653: End If;
654: End If;
655:
656: validate_cls_code(x_return_status => l_return_status,
657: p_copv_rec => p_copv_rec);
658:
659: -- store the highest degree of error
660: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
661: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
662: x_return_status := l_return_status;
663: End If;
664: End If;
657: p_copv_rec => p_copv_rec);
658:
659: -- store the highest degree of error
660: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
661: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
662: x_return_status := l_return_status;
663: End If;
664: End If;
665:
666: validate_search_function_id(x_return_status => l_return_status,
667: p_copv_rec => p_copv_rec);
668:
669: -- store the highest degree of error
670: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
671: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
672: x_return_status := l_return_status;
673: End If;
674: End If;
667: p_copv_rec => p_copv_rec);
668:
669: -- store the highest degree of error
670: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
671: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
672: x_return_status := l_return_status;
673: End If;
674: End If;
675:
676: validate_detail_function_id(x_return_status => l_return_status,
677: p_copv_rec => p_copv_rec);
678:
679: -- store the highest degree of error
680: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
681: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
682: x_return_status := l_return_status;
683: End If;
684: End If;
677: p_copv_rec => p_copv_rec);
678:
679: -- store the highest degree of error
680: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
681: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
682: x_return_status := l_return_status;
683: End If;
684: End If;
685:
686: validate_pdf_id(x_return_status => l_return_status,
687: p_copv_rec => p_copv_rec);
688:
689: -- store the highest degree of error
690: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
691: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
692: x_return_status := l_return_status;
693: End If;
694: End If;
687: p_copv_rec => p_copv_rec);
688:
689: -- store the highest degree of error
690: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
691: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
692: x_return_status := l_return_status;
693: End If;
694: End If;
695:
697: validate_grid_datasource_name(x_return_status => l_return_status,
698: p_copv_rec => p_copv_rec);
699:
700: -- store the highest degree of error
701: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
702: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
703: x_return_status := l_return_status;
704: End If;
705: End If;
698: p_copv_rec => p_copv_rec);
699:
700: -- store the highest degree of error
701: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
702: If x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
703: x_return_status := l_return_status;
704: End If;
705: End If;
706:
707: RETURN(x_return_status);
708: EXCEPTION
709: when OTHERS then
710: -- store SQL error message on message stack
711: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
712: p_msg_name => g_unexpected_error,
713: p_token1 => g_sqlcode_token,
714: p_token1_value => sqlcode,
715: p_token2 => g_sqlerrm_token,
715: p_token2 => g_sqlerrm_token,
716: p_token2_value => sqlerrm);
717:
718: -- notify caller of an UNEXPETED error
719: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
720:
721: -- return status to caller
722: RETURN(x_return_status);
723:
739: WHERE cls_code = p_copv_rec.cls_code
740: AND opn_code = p_copv_rec.opn_code;
741:
742: l_dummy VARCHAR2(1);
743: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
744: BEGIN
745: -- Check for uniqueness for OPN_CODE + CLS_CODE
746: open l_cop_csr;
747: fetch l_cop_csr into l_dummy;
745: -- Check for uniqueness for OPN_CODE + CLS_CODE
746: open l_cop_csr;
747: fetch l_cop_csr into l_dummy;
748: If (l_cop_csr%FOUND) Then
749: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
750: p_msg_name => 'OKC_CLS_OPN_CODES_NOT_UNIQUE');
751: l_return_status := OKC_API.G_RET_STS_ERROR;
752: End If;
753: close l_cop_csr;
747: fetch l_cop_csr into l_dummy;
748: If (l_cop_csr%FOUND) Then
749: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
750: p_msg_name => 'OKC_CLS_OPN_CODES_NOT_UNIQUE');
751: l_return_status := OKC_API.G_RET_STS_ERROR;
752: End If;
753: close l_cop_csr;
754:
755: RETURN (l_return_status);
759: null;
760:
761: when OTHERS then
762: -- store SQL error message on message stack
763: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
764: p_msg_name => g_unexpected_error,
765: p_token1 => g_sqlcode_token,
766: p_token1_value => sqlcode,
767: p_token2 => g_sqlerrm_token,
766: p_token1_value => sqlcode,
767: p_token2 => g_sqlerrm_token,
768: p_token2_value => sqlerrm);
769: -- notify caller of an error as UNEXPETED error
770: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
771: RETURN (l_return_status);
772: END Validate_Record;
773:
774: ---------------------------------------------------------------------------
830: p_copv_rec IN copv_rec_type) IS
831:
832: l_api_version CONSTANT NUMBER := 1;
833: l_api_name CONSTANT VARCHAR2(30) := 'V_validate_row';
834: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
835: l_copv_rec copv_rec_type := p_copv_rec;
836: l_cop_rec cop_rec_type;
837: BEGIN
838: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
834: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
835: l_copv_rec copv_rec_type := p_copv_rec;
836: l_cop_rec cop_rec_type;
837: BEGIN
838: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
839: G_PKG_NAME,
840: p_init_msg_list,
841: l_api_version,
842: p_api_version,
841: l_api_version,
842: p_api_version,
843: '_PVT',
844: x_return_status);
845: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
846: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
847: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
848: RAISE OKC_API.G_EXCEPTION_ERROR;
849: END IF;
842: p_api_version,
843: '_PVT',
844: x_return_status);
845: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
846: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
847: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
848: RAISE OKC_API.G_EXCEPTION_ERROR;
849: END IF;
850: --- Validate all non-missing attributes (Item Level Validation)
843: '_PVT',
844: x_return_status);
845: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
846: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
847: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
848: RAISE OKC_API.G_EXCEPTION_ERROR;
849: END IF;
850: --- Validate all non-missing attributes (Item Level Validation)
851: l_return_status := Validate_Attributes(l_copv_rec);
844: x_return_status);
845: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
846: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
847: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
848: RAISE OKC_API.G_EXCEPTION_ERROR;
849: END IF;
850: --- Validate all non-missing attributes (Item Level Validation)
851: l_return_status := Validate_Attributes(l_copv_rec);
852: --- If any errors happen abort API
849: END IF;
850: --- Validate all non-missing attributes (Item Level Validation)
851: l_return_status := Validate_Attributes(l_copv_rec);
852: --- If any errors happen abort API
853: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
854: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
855: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
856: RAISE OKC_API.G_EXCEPTION_ERROR;
857: END IF;
850: --- Validate all non-missing attributes (Item Level Validation)
851: l_return_status := Validate_Attributes(l_copv_rec);
852: --- If any errors happen abort API
853: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
854: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
855: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
856: RAISE OKC_API.G_EXCEPTION_ERROR;
857: END IF;
858: l_return_status := Validate_Record(l_copv_rec);
851: l_return_status := Validate_Attributes(l_copv_rec);
852: --- If any errors happen abort API
853: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
854: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
855: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
856: RAISE OKC_API.G_EXCEPTION_ERROR;
857: END IF;
858: l_return_status := Validate_Record(l_copv_rec);
859: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
852: --- If any errors happen abort API
853: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
854: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
855: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
856: RAISE OKC_API.G_EXCEPTION_ERROR;
857: END IF;
858: l_return_status := Validate_Record(l_copv_rec);
859: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
860: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
855: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
856: RAISE OKC_API.G_EXCEPTION_ERROR;
857: END IF;
858: l_return_status := Validate_Record(l_copv_rec);
859: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
860: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
861: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
862: RAISE OKC_API.G_EXCEPTION_ERROR;
863: END IF;
856: RAISE OKC_API.G_EXCEPTION_ERROR;
857: END IF;
858: l_return_status := Validate_Record(l_copv_rec);
859: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
860: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
861: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
862: RAISE OKC_API.G_EXCEPTION_ERROR;
863: END IF;
864: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
857: END IF;
858: l_return_status := Validate_Record(l_copv_rec);
859: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
860: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
861: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
862: RAISE OKC_API.G_EXCEPTION_ERROR;
863: END IF;
864: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
865: EXCEPTION
858: l_return_status := Validate_Record(l_copv_rec);
859: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
860: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
861: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
862: RAISE OKC_API.G_EXCEPTION_ERROR;
863: END IF;
864: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
865: EXCEPTION
866: WHEN OKC_API.G_EXCEPTION_ERROR THEN
860: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
861: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
862: RAISE OKC_API.G_EXCEPTION_ERROR;
863: END IF;
864: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
865: EXCEPTION
866: WHEN OKC_API.G_EXCEPTION_ERROR THEN
867: x_return_status := OKC_API.HANDLE_EXCEPTIONS
868: (
862: RAISE OKC_API.G_EXCEPTION_ERROR;
863: END IF;
864: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
865: EXCEPTION
866: WHEN OKC_API.G_EXCEPTION_ERROR THEN
867: x_return_status := OKC_API.HANDLE_EXCEPTIONS
868: (
869: l_api_name,
870: G_PKG_NAME,
863: END IF;
864: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
865: EXCEPTION
866: WHEN OKC_API.G_EXCEPTION_ERROR THEN
867: x_return_status := OKC_API.HANDLE_EXCEPTIONS
868: (
869: l_api_name,
870: G_PKG_NAME,
871: 'OKC_API.G_RET_STS_ERROR',
867: x_return_status := OKC_API.HANDLE_EXCEPTIONS
868: (
869: l_api_name,
870: G_PKG_NAME,
871: 'OKC_API.G_RET_STS_ERROR',
872: x_msg_count,
873: x_msg_data,
874: '_PVT'
875: );
872: x_msg_count,
873: x_msg_data,
874: '_PVT'
875: );
876: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
877: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
878: (
879: l_api_name,
880: G_PKG_NAME,
873: x_msg_data,
874: '_PVT'
875: );
876: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
877: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
878: (
879: l_api_name,
880: G_PKG_NAME,
881: 'OKC_API.G_RET_STS_UNEXP_ERROR',
877: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
878: (
879: l_api_name,
880: G_PKG_NAME,
881: 'OKC_API.G_RET_STS_UNEXP_ERROR',
882: x_msg_count,
883: x_msg_data,
884: '_PVT'
885: );
883: x_msg_data,
884: '_PVT'
885: );
886: WHEN OTHERS THEN
887: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
888: (
889: l_api_name,
890: G_PKG_NAME,
891: 'OTHERS',
906: p_copv_tbl IN copv_tbl_type) IS
907:
908: l_api_version CONSTANT NUMBER := 1;
909: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
910: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
911: i NUMBER := 0;
912: BEGIN
913: OKC_API.init_msg_list(p_init_msg_list);
914: -- Make sure PL/SQL table has records in it before passing
909: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
910: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
911: i NUMBER := 0;
912: BEGIN
913: OKC_API.init_msg_list(p_init_msg_list);
914: -- Make sure PL/SQL table has records in it before passing
915: IF (p_copv_tbl.COUNT > 0) THEN
916: i := p_copv_tbl.FIRST;
917: LOOP
916: i := p_copv_tbl.FIRST;
917: LOOP
918: validate_row (
919: p_api_version => p_api_version,
920: p_init_msg_list => OKC_API.G_FALSE,
921: x_return_status => x_return_status,
922: x_msg_count => x_msg_count,
923: x_msg_data => x_msg_data,
924: p_copv_rec => p_copv_tbl(i));
926: i := p_copv_tbl.NEXT(i);
927: END LOOP;
928: END IF;
929: EXCEPTION
930: WHEN OKC_API.G_EXCEPTION_ERROR THEN
931: x_return_status := OKC_API.HANDLE_EXCEPTIONS
932: (
933: l_api_name,
934: G_PKG_NAME,
927: END LOOP;
928: END IF;
929: EXCEPTION
930: WHEN OKC_API.G_EXCEPTION_ERROR THEN
931: x_return_status := OKC_API.HANDLE_EXCEPTIONS
932: (
933: l_api_name,
934: G_PKG_NAME,
935: 'OKC_API.G_RET_STS_ERROR',
931: x_return_status := OKC_API.HANDLE_EXCEPTIONS
932: (
933: l_api_name,
934: G_PKG_NAME,
935: 'OKC_API.G_RET_STS_ERROR',
936: x_msg_count,
937: x_msg_data,
938: '_PVT'
939: );
936: x_msg_count,
937: x_msg_data,
938: '_PVT'
939: );
940: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
941: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
942: (
943: l_api_name,
944: G_PKG_NAME,
937: x_msg_data,
938: '_PVT'
939: );
940: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
941: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
942: (
943: l_api_name,
944: G_PKG_NAME,
945: 'OKC_API.G_RET_STS_UNEXP_ERROR',
941: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
942: (
943: l_api_name,
944: G_PKG_NAME,
945: 'OKC_API.G_RET_STS_UNEXP_ERROR',
946: x_msg_count,
947: x_msg_data,
948: '_PVT'
949: );
947: x_msg_data,
948: '_PVT'
949: );
950: WHEN OTHERS THEN
951: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
952: (
953: l_api_name,
954: G_PKG_NAME,
955: 'OTHERS',
974: x_cop_rec OUT NOCOPY cop_rec_type) IS
975:
976: l_api_version CONSTANT NUMBER := 1;
977: l_api_name CONSTANT VARCHAR2(30) := 'OPERATIONS_insert_row';
978: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
979: l_cop_rec cop_rec_type := p_cop_rec;
980: l_def_cop_rec cop_rec_type;
981: ---------------------------------------------
982: -- Set_Attributes for:OKC_CLASS_OPERATIONS --
984: FUNCTION Set_Attributes (
985: p_cop_rec IN cop_rec_type,
986: x_cop_rec OUT NOCOPY cop_rec_type
987: ) RETURN VARCHAR2 IS
988: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
989: BEGIN
990: x_cop_rec := p_cop_rec;
991: RETURN(l_return_status);
992: END Set_Attributes;
990: x_cop_rec := p_cop_rec;
991: RETURN(l_return_status);
992: END Set_Attributes;
993: BEGIN
994: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
995: p_init_msg_list,
996: '_PVT',
997: x_return_status);
998: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
994: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
995: p_init_msg_list,
996: '_PVT',
997: x_return_status);
998: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
999: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1000: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1001: RAISE OKC_API.G_EXCEPTION_ERROR;
1002: END IF;
995: p_init_msg_list,
996: '_PVT',
997: x_return_status);
998: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
999: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1000: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1001: RAISE OKC_API.G_EXCEPTION_ERROR;
1002: END IF;
1003: --- Setting item attributes
996: '_PVT',
997: x_return_status);
998: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
999: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1000: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1001: RAISE OKC_API.G_EXCEPTION_ERROR;
1002: END IF;
1003: --- Setting item attributes
1004: l_return_status := Set_Attributes(
997: x_return_status);
998: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
999: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1000: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1001: RAISE OKC_API.G_EXCEPTION_ERROR;
1002: END IF;
1003: --- Setting item attributes
1004: l_return_status := Set_Attributes(
1005: p_cop_rec, -- IN
1004: l_return_status := Set_Attributes(
1005: p_cop_rec, -- IN
1006: l_cop_rec); -- OUT
1007: --- If any errors happen abort API
1008: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1009: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1010: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1011: RAISE OKC_API.G_EXCEPTION_ERROR;
1012: END IF;
1005: p_cop_rec, -- IN
1006: l_cop_rec); -- OUT
1007: --- If any errors happen abort API
1008: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1009: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1010: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1011: RAISE OKC_API.G_EXCEPTION_ERROR;
1012: END IF;
1013: INSERT INTO OKC_CLASS_OPERATIONS(
1006: l_cop_rec); -- OUT
1007: --- If any errors happen abort API
1008: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1009: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1010: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1011: RAISE OKC_API.G_EXCEPTION_ERROR;
1012: END IF;
1013: INSERT INTO OKC_CLASS_OPERATIONS(
1014: id,
1007: --- If any errors happen abort API
1008: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1009: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1010: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1011: RAISE OKC_API.G_EXCEPTION_ERROR;
1012: END IF;
1013: INSERT INTO OKC_CLASS_OPERATIONS(
1014: id,
1015: opn_code,
1041: l_cop_rec.grid_datasource_name,
1042: l_cop_rec.qa_pdf_id ); -- Bug# 2171059
1043: -- Set OUT values
1044: x_cop_rec := l_cop_rec;
1045: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1046: EXCEPTION
1047: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1048: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1049: (
1043: -- Set OUT values
1044: x_cop_rec := l_cop_rec;
1045: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1046: EXCEPTION
1047: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1048: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1049: (
1050: l_api_name,
1051: G_PKG_NAME,
1044: x_cop_rec := l_cop_rec;
1045: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1046: EXCEPTION
1047: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1048: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1049: (
1050: l_api_name,
1051: G_PKG_NAME,
1052: 'OKC_API.G_RET_STS_ERROR',
1048: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1049: (
1050: l_api_name,
1051: G_PKG_NAME,
1052: 'OKC_API.G_RET_STS_ERROR',
1053: x_msg_count,
1054: x_msg_data,
1055: '_PVT'
1056: );
1053: x_msg_count,
1054: x_msg_data,
1055: '_PVT'
1056: );
1057: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1058: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1059: (
1060: l_api_name,
1061: G_PKG_NAME,
1054: x_msg_data,
1055: '_PVT'
1056: );
1057: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1058: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1059: (
1060: l_api_name,
1061: G_PKG_NAME,
1062: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1058: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1059: (
1060: l_api_name,
1061: G_PKG_NAME,
1062: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1063: x_msg_count,
1064: x_msg_data,
1065: '_PVT'
1066: );
1064: x_msg_data,
1065: '_PVT'
1066: );
1067: WHEN OTHERS THEN
1068: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1069: (
1070: l_api_name,
1071: G_PKG_NAME,
1072: 'OTHERS',
1088: x_copv_rec OUT NOCOPY copv_rec_type) IS
1089:
1090: l_api_version CONSTANT NUMBER := 1;
1091: l_api_name CONSTANT VARCHAR2(30) := 'V_insert_row';
1092: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1093: l_copv_rec copv_rec_type;
1094: l_def_copv_rec copv_rec_type;
1095: l_cop_rec cop_rec_type;
1096: lx_cop_rec cop_rec_type;
1115: FUNCTION Set_Attributes (
1116: p_copv_rec IN copv_rec_type,
1117: x_copv_rec OUT NOCOPY copv_rec_type
1118: ) RETURN VARCHAR2 IS
1119: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1120: BEGIN
1121: x_copv_rec := p_copv_rec;
1122: x_copv_rec.OBJECT_VERSION_NUMBER := 10000;
1123: RETURN(l_return_status);
1122: x_copv_rec.OBJECT_VERSION_NUMBER := 10000;
1123: RETURN(l_return_status);
1124: END Set_Attributes;
1125: BEGIN
1126: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1127: G_PKG_NAME,
1128: p_init_msg_list,
1129: l_api_version,
1130: p_api_version,
1129: l_api_version,
1130: p_api_version,
1131: '_PVT',
1132: x_return_status);
1133: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1134: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1135: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1136: RAISE OKC_API.G_EXCEPTION_ERROR;
1137: END IF;
1130: p_api_version,
1131: '_PVT',
1132: x_return_status);
1133: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1134: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1135: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1136: RAISE OKC_API.G_EXCEPTION_ERROR;
1137: END IF;
1138: l_copv_rec := null_out_defaults(p_copv_rec);
1131: '_PVT',
1132: x_return_status);
1133: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1134: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1135: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1136: RAISE OKC_API.G_EXCEPTION_ERROR;
1137: END IF;
1138: l_copv_rec := null_out_defaults(p_copv_rec);
1139: -- Set primary key value
1132: x_return_status);
1133: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1134: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1135: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1136: RAISE OKC_API.G_EXCEPTION_ERROR;
1137: END IF;
1138: l_copv_rec := null_out_defaults(p_copv_rec);
1139: -- Set primary key value
1140: l_copv_rec.ID := get_seq_id;
1142: l_return_status := Set_Attributes(
1143: l_copv_rec, -- IN
1144: l_def_copv_rec); -- OUT
1145: --- If any errors happen abort API
1146: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1147: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1148: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1149: RAISE OKC_API.G_EXCEPTION_ERROR;
1150: END IF;
1143: l_copv_rec, -- IN
1144: l_def_copv_rec); -- OUT
1145: --- If any errors happen abort API
1146: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1147: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1148: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1149: RAISE OKC_API.G_EXCEPTION_ERROR;
1150: END IF;
1151: l_def_copv_rec := fill_who_columns(l_def_copv_rec);
1144: l_def_copv_rec); -- OUT
1145: --- If any errors happen abort API
1146: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1147: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1148: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1149: RAISE OKC_API.G_EXCEPTION_ERROR;
1150: END IF;
1151: l_def_copv_rec := fill_who_columns(l_def_copv_rec);
1152: --- Validate all non-missing attributes (Item Level Validation)
1145: --- If any errors happen abort API
1146: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1147: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1148: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1149: RAISE OKC_API.G_EXCEPTION_ERROR;
1150: END IF;
1151: l_def_copv_rec := fill_who_columns(l_def_copv_rec);
1152: --- Validate all non-missing attributes (Item Level Validation)
1153: l_return_status := Validate_Attributes(l_def_copv_rec);
1151: l_def_copv_rec := fill_who_columns(l_def_copv_rec);
1152: --- Validate all non-missing attributes (Item Level Validation)
1153: l_return_status := Validate_Attributes(l_def_copv_rec);
1154: --- If any errors happen abort API
1155: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1156: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1157: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1158: RAISE OKC_API.G_EXCEPTION_ERROR;
1159: END IF;
1152: --- Validate all non-missing attributes (Item Level Validation)
1153: l_return_status := Validate_Attributes(l_def_copv_rec);
1154: --- If any errors happen abort API
1155: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1156: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1157: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1158: RAISE OKC_API.G_EXCEPTION_ERROR;
1159: END IF;
1160: l_return_status := Validate_Record(l_def_copv_rec);
1153: l_return_status := Validate_Attributes(l_def_copv_rec);
1154: --- If any errors happen abort API
1155: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1156: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1157: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1158: RAISE OKC_API.G_EXCEPTION_ERROR;
1159: END IF;
1160: l_return_status := Validate_Record(l_def_copv_rec);
1161: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1154: --- If any errors happen abort API
1155: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1156: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1157: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1158: RAISE OKC_API.G_EXCEPTION_ERROR;
1159: END IF;
1160: l_return_status := Validate_Record(l_def_copv_rec);
1161: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1162: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1157: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1158: RAISE OKC_API.G_EXCEPTION_ERROR;
1159: END IF;
1160: l_return_status := Validate_Record(l_def_copv_rec);
1161: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1162: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1163: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1164: RAISE OKC_API.G_EXCEPTION_ERROR;
1165: END IF;
1158: RAISE OKC_API.G_EXCEPTION_ERROR;
1159: END IF;
1160: l_return_status := Validate_Record(l_def_copv_rec);
1161: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1162: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1163: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1164: RAISE OKC_API.G_EXCEPTION_ERROR;
1165: END IF;
1166: --------------------------------------
1159: END IF;
1160: l_return_status := Validate_Record(l_def_copv_rec);
1161: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1162: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1163: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1164: RAISE OKC_API.G_EXCEPTION_ERROR;
1165: END IF;
1166: --------------------------------------
1167: -- Move VIEW record to "Child" records
1160: l_return_status := Validate_Record(l_def_copv_rec);
1161: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1162: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1163: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1164: RAISE OKC_API.G_EXCEPTION_ERROR;
1165: END IF;
1166: --------------------------------------
1167: -- Move VIEW record to "Child" records
1168: --------------------------------------
1177: x_msg_data,
1178: l_cop_rec,
1179: lx_cop_rec
1180: );
1181: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1182: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1183: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1184: RAISE OKC_API.G_EXCEPTION_ERROR;
1185: END IF;
1178: l_cop_rec,
1179: lx_cop_rec
1180: );
1181: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1182: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1183: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1184: RAISE OKC_API.G_EXCEPTION_ERROR;
1185: END IF;
1186: migrate(lx_cop_rec, l_def_copv_rec);
1179: lx_cop_rec
1180: );
1181: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1182: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1183: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1184: RAISE OKC_API.G_EXCEPTION_ERROR;
1185: END IF;
1186: migrate(lx_cop_rec, l_def_copv_rec);
1187: -- Set OUT values
1180: );
1181: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1182: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1183: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1184: RAISE OKC_API.G_EXCEPTION_ERROR;
1185: END IF;
1186: migrate(lx_cop_rec, l_def_copv_rec);
1187: -- Set OUT values
1188: x_copv_rec := l_def_copv_rec;
1185: END IF;
1186: migrate(lx_cop_rec, l_def_copv_rec);
1187: -- Set OUT values
1188: x_copv_rec := l_def_copv_rec;
1189: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1190: EXCEPTION
1191: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1192: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1193: (
1187: -- Set OUT values
1188: x_copv_rec := l_def_copv_rec;
1189: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1190: EXCEPTION
1191: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1192: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1193: (
1194: l_api_name,
1195: G_PKG_NAME,
1188: x_copv_rec := l_def_copv_rec;
1189: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1190: EXCEPTION
1191: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1192: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1193: (
1194: l_api_name,
1195: G_PKG_NAME,
1196: 'OKC_API.G_RET_STS_ERROR',
1192: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1193: (
1194: l_api_name,
1195: G_PKG_NAME,
1196: 'OKC_API.G_RET_STS_ERROR',
1197: x_msg_count,
1198: x_msg_data,
1199: '_PVT'
1200: );
1197: x_msg_count,
1198: x_msg_data,
1199: '_PVT'
1200: );
1201: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1202: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1203: (
1204: l_api_name,
1205: G_PKG_NAME,
1198: x_msg_data,
1199: '_PVT'
1200: );
1201: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1202: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1203: (
1204: l_api_name,
1205: G_PKG_NAME,
1206: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1202: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1203: (
1204: l_api_name,
1205: G_PKG_NAME,
1206: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1207: x_msg_count,
1208: x_msg_data,
1209: '_PVT'
1210: );
1208: x_msg_data,
1209: '_PVT'
1210: );
1211: WHEN OTHERS THEN
1212: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1213: (
1214: l_api_name,
1215: G_PKG_NAME,
1216: 'OTHERS',
1232: x_copv_tbl OUT NOCOPY copv_tbl_type) IS
1233:
1234: l_api_version CONSTANT NUMBER := 1;
1235: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
1236: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1237: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1238: i NUMBER := 0;
1239: BEGIN
1240: OKC_API.init_msg_list(p_init_msg_list);
1233:
1234: l_api_version CONSTANT NUMBER := 1;
1235: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
1236: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1237: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1238: i NUMBER := 0;
1239: BEGIN
1240: OKC_API.init_msg_list(p_init_msg_list);
1241: -- Make sure PL/SQL table has records in it before passing
1236: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1237: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1238: i NUMBER := 0;
1239: BEGIN
1240: OKC_API.init_msg_list(p_init_msg_list);
1241: -- Make sure PL/SQL table has records in it before passing
1242: IF (p_copv_tbl.COUNT > 0) THEN
1243: i := p_copv_tbl.FIRST;
1244: LOOP
1243: i := p_copv_tbl.FIRST;
1244: LOOP
1245: insert_row (
1246: p_api_version => p_api_version,
1247: p_init_msg_list => OKC_API.G_FALSE,
1248: x_return_status => x_return_status,
1249: x_msg_count => x_msg_count,
1250: x_msg_data => x_msg_data,
1251: p_copv_rec => p_copv_tbl(i),
1251: p_copv_rec => p_copv_tbl(i),
1252: x_copv_rec => x_copv_tbl(i));
1253:
1254: -- store the highest degree of error
1255: If x_return_status <> OKC_API.G_RET_STS_SUCCESS Then
1256: If l_overall_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
1257: l_overall_status := x_return_status;
1258: End If;
1259: End If;
1252: x_copv_rec => x_copv_tbl(i));
1253:
1254: -- store the highest degree of error
1255: If x_return_status <> OKC_API.G_RET_STS_SUCCESS Then
1256: If l_overall_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
1257: l_overall_status := x_return_status;
1258: End If;
1259: End If;
1260:
1264: -- return overall status
1265: x_return_status := l_overall_status;
1266: END IF;
1267: EXCEPTION
1268: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1269: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1270: (
1271: l_api_name,
1272: G_PKG_NAME,
1265: x_return_status := l_overall_status;
1266: END IF;
1267: EXCEPTION
1268: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1269: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1270: (
1271: l_api_name,
1272: G_PKG_NAME,
1273: 'OKC_API.G_RET_STS_ERROR',
1269: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1270: (
1271: l_api_name,
1272: G_PKG_NAME,
1273: 'OKC_API.G_RET_STS_ERROR',
1274: x_msg_count,
1275: x_msg_data,
1276: '_PVT'
1277: );
1274: x_msg_count,
1275: x_msg_data,
1276: '_PVT'
1277: );
1278: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1279: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1280: (
1281: l_api_name,
1282: G_PKG_NAME,
1275: x_msg_data,
1276: '_PVT'
1277: );
1278: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1279: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1280: (
1281: l_api_name,
1282: G_PKG_NAME,
1283: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1279: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1280: (
1281: l_api_name,
1282: G_PKG_NAME,
1283: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1284: x_msg_count,
1285: x_msg_data,
1286: '_PVT'
1287: );
1285: x_msg_data,
1286: '_PVT'
1287: );
1288: WHEN OTHERS THEN
1289: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1290: (
1291: l_api_name,
1292: G_PKG_NAME,
1293: 'OTHERS',
1324: FROM OKC_CLASS_OPERATIONS
1325: WHERE ID = p_cop_rec.id;
1326: l_api_version CONSTANT NUMBER := 1;
1327: l_api_name CONSTANT VARCHAR2(30) := 'OPERATIONS_lock_row';
1328: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1329: l_object_version_number OKC_CLASS_OPERATIONS.OBJECT_VERSION_NUMBER%TYPE;
1330: lc_object_version_number OKC_CLASS_OPERATIONS.OBJECT_VERSION_NUMBER%TYPE;
1331: l_row_notfound BOOLEAN := FALSE;
1332: lc_row_notfound BOOLEAN := FALSE;
1330: lc_object_version_number OKC_CLASS_OPERATIONS.OBJECT_VERSION_NUMBER%TYPE;
1331: l_row_notfound BOOLEAN := FALSE;
1332: lc_row_notfound BOOLEAN := FALSE;
1333: BEGIN
1334: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1335: p_init_msg_list,
1336: '_PVT',
1337: x_return_status);
1338: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1334: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1335: p_init_msg_list,
1336: '_PVT',
1337: x_return_status);
1338: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1339: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1340: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1341: RAISE OKC_API.G_EXCEPTION_ERROR;
1342: END IF;
1335: p_init_msg_list,
1336: '_PVT',
1337: x_return_status);
1338: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1339: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1340: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1341: RAISE OKC_API.G_EXCEPTION_ERROR;
1342: END IF;
1343: BEGIN
1336: '_PVT',
1337: x_return_status);
1338: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1339: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1340: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1341: RAISE OKC_API.G_EXCEPTION_ERROR;
1342: END IF;
1343: BEGIN
1344: OPEN lock_csr(p_cop_rec);
1337: x_return_status);
1338: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1339: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1340: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1341: RAISE OKC_API.G_EXCEPTION_ERROR;
1342: END IF;
1343: BEGIN
1344: OPEN lock_csr(p_cop_rec);
1345: FETCH lock_csr INTO l_object_version_number;
1349: WHEN E_Resource_Busy THEN
1350: IF (lock_csr%ISOPEN) THEN
1351: CLOSE lock_csr;
1352: END IF;
1353: OKC_API.set_message(G_FND_APP,G_FORM_UNABLE_TO_RESERVE_REC);
1354: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
1355: END;
1356:
1357: IF ( l_row_notfound ) THEN
1360: lc_row_notfound := lchk_csr%NOTFOUND;
1361: CLOSE lchk_csr;
1362: END IF;
1363: IF (lc_row_notfound) THEN
1364: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1365: RAISE OKC_API.G_EXCEPTION_ERROR;
1366: ELSIF lc_object_version_number > p_cop_rec.object_version_number THEN
1367: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1368: RAISE OKC_API.G_EXCEPTION_ERROR;
1361: CLOSE lchk_csr;
1362: END IF;
1363: IF (lc_row_notfound) THEN
1364: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1365: RAISE OKC_API.G_EXCEPTION_ERROR;
1366: ELSIF lc_object_version_number > p_cop_rec.object_version_number THEN
1367: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1368: RAISE OKC_API.G_EXCEPTION_ERROR;
1369: ELSIF lc_object_version_number <> p_cop_rec.object_version_number THEN
1363: IF (lc_row_notfound) THEN
1364: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1365: RAISE OKC_API.G_EXCEPTION_ERROR;
1366: ELSIF lc_object_version_number > p_cop_rec.object_version_number THEN
1367: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1368: RAISE OKC_API.G_EXCEPTION_ERROR;
1369: ELSIF lc_object_version_number <> p_cop_rec.object_version_number THEN
1370: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1371: RAISE OKC_API.G_EXCEPTION_ERROR;
1364: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1365: RAISE OKC_API.G_EXCEPTION_ERROR;
1366: ELSIF lc_object_version_number > p_cop_rec.object_version_number THEN
1367: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1368: RAISE OKC_API.G_EXCEPTION_ERROR;
1369: ELSIF lc_object_version_number <> p_cop_rec.object_version_number THEN
1370: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1371: RAISE OKC_API.G_EXCEPTION_ERROR;
1372: ELSIF lc_object_version_number = -1 THEN
1366: ELSIF lc_object_version_number > p_cop_rec.object_version_number THEN
1367: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1368: RAISE OKC_API.G_EXCEPTION_ERROR;
1369: ELSIF lc_object_version_number <> p_cop_rec.object_version_number THEN
1370: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1371: RAISE OKC_API.G_EXCEPTION_ERROR;
1372: ELSIF lc_object_version_number = -1 THEN
1373: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1374: RAISE OKC_API.G_EXCEPTION_ERROR;
1367: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1368: RAISE OKC_API.G_EXCEPTION_ERROR;
1369: ELSIF lc_object_version_number <> p_cop_rec.object_version_number THEN
1370: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1371: RAISE OKC_API.G_EXCEPTION_ERROR;
1372: ELSIF lc_object_version_number = -1 THEN
1373: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1374: RAISE OKC_API.G_EXCEPTION_ERROR;
1375: END IF;
1369: ELSIF lc_object_version_number <> p_cop_rec.object_version_number THEN
1370: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1371: RAISE OKC_API.G_EXCEPTION_ERROR;
1372: ELSIF lc_object_version_number = -1 THEN
1373: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1374: RAISE OKC_API.G_EXCEPTION_ERROR;
1375: END IF;
1376: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1377: EXCEPTION
1370: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1371: RAISE OKC_API.G_EXCEPTION_ERROR;
1372: ELSIF lc_object_version_number = -1 THEN
1373: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1374: RAISE OKC_API.G_EXCEPTION_ERROR;
1375: END IF;
1376: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1377: EXCEPTION
1378: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1372: ELSIF lc_object_version_number = -1 THEN
1373: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1374: RAISE OKC_API.G_EXCEPTION_ERROR;
1375: END IF;
1376: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1377: EXCEPTION
1378: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1379: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1380: (
1374: RAISE OKC_API.G_EXCEPTION_ERROR;
1375: END IF;
1376: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1377: EXCEPTION
1378: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1379: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1380: (
1381: l_api_name,
1382: G_PKG_NAME,
1375: END IF;
1376: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1377: EXCEPTION
1378: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1379: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1380: (
1381: l_api_name,
1382: G_PKG_NAME,
1383: 'OKC_API.G_RET_STS_ERROR',
1379: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1380: (
1381: l_api_name,
1382: G_PKG_NAME,
1383: 'OKC_API.G_RET_STS_ERROR',
1384: x_msg_count,
1385: x_msg_data,
1386: '_PVT'
1387: );
1384: x_msg_count,
1385: x_msg_data,
1386: '_PVT'
1387: );
1388: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1389: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1390: (
1391: l_api_name,
1392: G_PKG_NAME,
1385: x_msg_data,
1386: '_PVT'
1387: );
1388: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1389: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1390: (
1391: l_api_name,
1392: G_PKG_NAME,
1393: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1389: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1390: (
1391: l_api_name,
1392: G_PKG_NAME,
1393: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1394: x_msg_count,
1395: x_msg_data,
1396: '_PVT'
1397: );
1395: x_msg_data,
1396: '_PVT'
1397: );
1398: WHEN OTHERS THEN
1399: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1400: (
1401: l_api_name,
1402: G_PKG_NAME,
1403: 'OTHERS',
1418: p_copv_rec IN copv_rec_type) IS
1419:
1420: l_api_version CONSTANT NUMBER := 1;
1421: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
1422: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1423: l_cop_rec cop_rec_type;
1424: BEGIN
1425: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1426: G_PKG_NAME,
1421: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
1422: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1423: l_cop_rec cop_rec_type;
1424: BEGIN
1425: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1426: G_PKG_NAME,
1427: p_init_msg_list,
1428: l_api_version,
1429: p_api_version,
1428: l_api_version,
1429: p_api_version,
1430: '_PVT',
1431: x_return_status);
1432: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1433: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1434: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1435: RAISE OKC_API.G_EXCEPTION_ERROR;
1436: END IF;
1429: p_api_version,
1430: '_PVT',
1431: x_return_status);
1432: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1433: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1434: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1435: RAISE OKC_API.G_EXCEPTION_ERROR;
1436: END IF;
1437: --------------------------------------
1430: '_PVT',
1431: x_return_status);
1432: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1433: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1434: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1435: RAISE OKC_API.G_EXCEPTION_ERROR;
1436: END IF;
1437: --------------------------------------
1438: -- Move VIEW record to "Child" records
1431: x_return_status);
1432: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1433: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1434: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1435: RAISE OKC_API.G_EXCEPTION_ERROR;
1436: END IF;
1437: --------------------------------------
1438: -- Move VIEW record to "Child" records
1439: --------------------------------------
1447: x_msg_count,
1448: x_msg_data,
1449: l_cop_rec
1450: );
1451: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1452: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1453: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1454: RAISE OKC_API.G_EXCEPTION_ERROR;
1455: END IF;
1448: x_msg_data,
1449: l_cop_rec
1450: );
1451: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1452: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1453: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1454: RAISE OKC_API.G_EXCEPTION_ERROR;
1455: END IF;
1456: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1449: l_cop_rec
1450: );
1451: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1452: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1453: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1454: RAISE OKC_API.G_EXCEPTION_ERROR;
1455: END IF;
1456: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1457: EXCEPTION
1450: );
1451: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1452: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1453: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1454: RAISE OKC_API.G_EXCEPTION_ERROR;
1455: END IF;
1456: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1457: EXCEPTION
1458: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1452: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1453: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1454: RAISE OKC_API.G_EXCEPTION_ERROR;
1455: END IF;
1456: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1457: EXCEPTION
1458: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1459: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1460: (
1454: RAISE OKC_API.G_EXCEPTION_ERROR;
1455: END IF;
1456: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1457: EXCEPTION
1458: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1459: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1460: (
1461: l_api_name,
1462: G_PKG_NAME,
1455: END IF;
1456: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1457: EXCEPTION
1458: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1459: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1460: (
1461: l_api_name,
1462: G_PKG_NAME,
1463: 'OKC_API.G_RET_STS_ERROR',
1459: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1460: (
1461: l_api_name,
1462: G_PKG_NAME,
1463: 'OKC_API.G_RET_STS_ERROR',
1464: x_msg_count,
1465: x_msg_data,
1466: '_PVT'
1467: );
1464: x_msg_count,
1465: x_msg_data,
1466: '_PVT'
1467: );
1468: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1469: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1470: (
1471: l_api_name,
1472: G_PKG_NAME,
1465: x_msg_data,
1466: '_PVT'
1467: );
1468: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1469: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1470: (
1471: l_api_name,
1472: G_PKG_NAME,
1473: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1469: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1470: (
1471: l_api_name,
1472: G_PKG_NAME,
1473: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1474: x_msg_count,
1475: x_msg_data,
1476: '_PVT'
1477: );
1475: x_msg_data,
1476: '_PVT'
1477: );
1478: WHEN OTHERS THEN
1479: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1480: (
1481: l_api_name,
1482: G_PKG_NAME,
1483: 'OTHERS',
1498: p_copv_tbl IN copv_tbl_type) IS
1499:
1500: l_api_version CONSTANT NUMBER := 1;
1501: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
1502: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1503: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1504: i NUMBER := 0;
1505: BEGIN
1506: OKC_API.init_msg_list(p_init_msg_list);
1499:
1500: l_api_version CONSTANT NUMBER := 1;
1501: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
1502: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1503: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1504: i NUMBER := 0;
1505: BEGIN
1506: OKC_API.init_msg_list(p_init_msg_list);
1507: -- Make sure PL/SQL table has records in it before passing
1502: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1503: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1504: i NUMBER := 0;
1505: BEGIN
1506: OKC_API.init_msg_list(p_init_msg_list);
1507: -- Make sure PL/SQL table has records in it before passing
1508: IF (p_copv_tbl.COUNT > 0) THEN
1509: i := p_copv_tbl.FIRST;
1510: LOOP
1509: i := p_copv_tbl.FIRST;
1510: LOOP
1511: lock_row (
1512: p_api_version => p_api_version,
1513: p_init_msg_list => OKC_API.G_FALSE,
1514: x_return_status => x_return_status,
1515: x_msg_count => x_msg_count,
1516: x_msg_data => x_msg_data,
1517: p_copv_rec => p_copv_tbl(i));
1516: x_msg_data => x_msg_data,
1517: p_copv_rec => p_copv_tbl(i));
1518:
1519: -- store the highest degree of error
1520: If x_return_status <> OKC_API.G_RET_STS_SUCCESS Then
1521: If l_overall_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
1522: l_overall_status := x_return_status;
1523: End If;
1524: End If;
1517: p_copv_rec => p_copv_tbl(i));
1518:
1519: -- store the highest degree of error
1520: If x_return_status <> OKC_API.G_RET_STS_SUCCESS Then
1521: If l_overall_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
1522: l_overall_status := x_return_status;
1523: End If;
1524: End If;
1525:
1529: -- return overall status
1530: x_return_status := l_overall_status;
1531: END IF;
1532: EXCEPTION
1533: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1534: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1535: (
1536: l_api_name,
1537: G_PKG_NAME,
1530: x_return_status := l_overall_status;
1531: END IF;
1532: EXCEPTION
1533: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1534: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1535: (
1536: l_api_name,
1537: G_PKG_NAME,
1538: 'OKC_API.G_RET_STS_ERROR',
1534: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1535: (
1536: l_api_name,
1537: G_PKG_NAME,
1538: 'OKC_API.G_RET_STS_ERROR',
1539: x_msg_count,
1540: x_msg_data,
1541: '_PVT'
1542: );
1539: x_msg_count,
1540: x_msg_data,
1541: '_PVT'
1542: );
1543: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1544: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1545: (
1546: l_api_name,
1547: G_PKG_NAME,
1540: x_msg_data,
1541: '_PVT'
1542: );
1543: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1544: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1545: (
1546: l_api_name,
1547: G_PKG_NAME,
1548: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1544: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1545: (
1546: l_api_name,
1547: G_PKG_NAME,
1548: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1549: x_msg_count,
1550: x_msg_data,
1551: '_PVT'
1552: );
1550: x_msg_data,
1551: '_PVT'
1552: );
1553: WHEN OTHERS THEN
1554: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1555: (
1556: l_api_name,
1557: G_PKG_NAME,
1558: 'OTHERS',
1577: x_cop_rec OUT NOCOPY cop_rec_type) IS
1578:
1579: l_api_version CONSTANT NUMBER := 1;
1580: l_api_name CONSTANT VARCHAR2(30) := 'OPERATIONS_update_row';
1581: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1582: l_cop_rec cop_rec_type := p_cop_rec;
1583: l_def_cop_rec cop_rec_type;
1584: l_row_notfound BOOLEAN := TRUE;
1585: ----------------------------------
1590: x_cop_rec OUT NOCOPY cop_rec_type
1591: ) RETURN VARCHAR2 IS
1592: l_cop_rec cop_rec_type;
1593: l_row_notfound BOOLEAN := TRUE;
1594: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1595: BEGIN
1596: x_cop_rec := p_cop_rec;
1597: -- Get current database values
1598: l_cop_rec := get_rec(p_cop_rec, l_row_notfound);
1596: x_cop_rec := p_cop_rec;
1597: -- Get current database values
1598: l_cop_rec := get_rec(p_cop_rec, l_row_notfound);
1599: IF (l_row_notfound) THEN
1600: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1601: END IF;
1602: IF (x_cop_rec.id = OKC_API.G_MISS_NUM)
1603: THEN
1604: x_cop_rec.id := l_cop_rec.id;
1598: l_cop_rec := get_rec(p_cop_rec, l_row_notfound);
1599: IF (l_row_notfound) THEN
1600: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1601: END IF;
1602: IF (x_cop_rec.id = OKC_API.G_MISS_NUM)
1603: THEN
1604: x_cop_rec.id := l_cop_rec.id;
1605: END IF;
1606: IF (x_cop_rec.opn_code = OKC_API.G_MISS_CHAR)
1602: IF (x_cop_rec.id = OKC_API.G_MISS_NUM)
1603: THEN
1604: x_cop_rec.id := l_cop_rec.id;
1605: END IF;
1606: IF (x_cop_rec.opn_code = OKC_API.G_MISS_CHAR)
1607: THEN
1608: x_cop_rec.opn_code := l_cop_rec.opn_code;
1609: END IF;
1610: IF (x_cop_rec.cls_code = OKC_API.G_MISS_CHAR)
1606: IF (x_cop_rec.opn_code = OKC_API.G_MISS_CHAR)
1607: THEN
1608: x_cop_rec.opn_code := l_cop_rec.opn_code;
1609: END IF;
1610: IF (x_cop_rec.cls_code = OKC_API.G_MISS_CHAR)
1611: THEN
1612: x_cop_rec.cls_code := l_cop_rec.cls_code;
1613: END IF;
1614: IF (x_cop_rec.search_function_id = OKC_API.G_MISS_NUM)
1610: IF (x_cop_rec.cls_code = OKC_API.G_MISS_CHAR)
1611: THEN
1612: x_cop_rec.cls_code := l_cop_rec.cls_code;
1613: END IF;
1614: IF (x_cop_rec.search_function_id = OKC_API.G_MISS_NUM)
1615: THEN
1616: x_cop_rec.search_function_id := l_cop_rec.search_function_id;
1617: END IF;
1618: IF (x_cop_rec.detail_function_id = OKC_API.G_MISS_NUM)
1614: IF (x_cop_rec.search_function_id = OKC_API.G_MISS_NUM)
1615: THEN
1616: x_cop_rec.search_function_id := l_cop_rec.search_function_id;
1617: END IF;
1618: IF (x_cop_rec.detail_function_id = OKC_API.G_MISS_NUM)
1619: THEN
1620: x_cop_rec.detail_function_id := l_cop_rec.detail_function_id;
1621: END IF;
1622: IF (x_cop_rec.object_version_number = OKC_API.G_MISS_NUM)
1618: IF (x_cop_rec.detail_function_id = OKC_API.G_MISS_NUM)
1619: THEN
1620: x_cop_rec.detail_function_id := l_cop_rec.detail_function_id;
1621: END IF;
1622: IF (x_cop_rec.object_version_number = OKC_API.G_MISS_NUM)
1623: THEN
1624: x_cop_rec.object_version_number := l_cop_rec.object_version_number;
1625: END IF;
1626: IF (x_cop_rec.created_by = OKC_API.G_MISS_NUM)
1622: IF (x_cop_rec.object_version_number = OKC_API.G_MISS_NUM)
1623: THEN
1624: x_cop_rec.object_version_number := l_cop_rec.object_version_number;
1625: END IF;
1626: IF (x_cop_rec.created_by = OKC_API.G_MISS_NUM)
1627: THEN
1628: x_cop_rec.created_by := l_cop_rec.created_by;
1629: END IF;
1630: IF (x_cop_rec.creation_date = OKC_API.G_MISS_DATE)
1626: IF (x_cop_rec.created_by = OKC_API.G_MISS_NUM)
1627: THEN
1628: x_cop_rec.created_by := l_cop_rec.created_by;
1629: END IF;
1630: IF (x_cop_rec.creation_date = OKC_API.G_MISS_DATE)
1631: THEN
1632: x_cop_rec.creation_date := l_cop_rec.creation_date;
1633: END IF;
1634: IF (x_cop_rec.last_updated_by = OKC_API.G_MISS_NUM)
1630: IF (x_cop_rec.creation_date = OKC_API.G_MISS_DATE)
1631: THEN
1632: x_cop_rec.creation_date := l_cop_rec.creation_date;
1633: END IF;
1634: IF (x_cop_rec.last_updated_by = OKC_API.G_MISS_NUM)
1635: THEN
1636: x_cop_rec.last_updated_by := l_cop_rec.last_updated_by;
1637: END IF;
1638: IF (x_cop_rec.last_update_date = OKC_API.G_MISS_DATE)
1634: IF (x_cop_rec.last_updated_by = OKC_API.G_MISS_NUM)
1635: THEN
1636: x_cop_rec.last_updated_by := l_cop_rec.last_updated_by;
1637: END IF;
1638: IF (x_cop_rec.last_update_date = OKC_API.G_MISS_DATE)
1639: THEN
1640: x_cop_rec.last_update_date := l_cop_rec.last_update_date;
1641: END IF;
1642: IF (x_cop_rec.last_update_login = OKC_API.G_MISS_NUM)
1638: IF (x_cop_rec.last_update_date = OKC_API.G_MISS_DATE)
1639: THEN
1640: x_cop_rec.last_update_date := l_cop_rec.last_update_date;
1641: END IF;
1642: IF (x_cop_rec.last_update_login = OKC_API.G_MISS_NUM)
1643: THEN
1644: x_cop_rec.last_update_login := l_cop_rec.last_update_login;
1645: END IF;
1646: IF (x_cop_rec.pdf_id = OKC_API.G_MISS_NUM)
1642: IF (x_cop_rec.last_update_login = OKC_API.G_MISS_NUM)
1643: THEN
1644: x_cop_rec.last_update_login := l_cop_rec.last_update_login;
1645: END IF;
1646: IF (x_cop_rec.pdf_id = OKC_API.G_MISS_NUM)
1647: THEN
1648: x_cop_rec.pdf_id := l_cop_rec.pdf_id;
1649: END IF;
1650: IF (x_cop_rec.grid_datasource_name = OKC_API.G_MISS_CHAR)
1646: IF (x_cop_rec.pdf_id = OKC_API.G_MISS_NUM)
1647: THEN
1648: x_cop_rec.pdf_id := l_cop_rec.pdf_id;
1649: END IF;
1650: IF (x_cop_rec.grid_datasource_name = OKC_API.G_MISS_CHAR)
1651: THEN
1652: x_cop_rec.grid_datasource_name := l_cop_rec.grid_datasource_name;
1653: END IF;
1654: IF (x_cop_rec.qa_pdf_id = OKC_API.G_MISS_NUM) -- Bug# 2171059
1650: IF (x_cop_rec.grid_datasource_name = OKC_API.G_MISS_CHAR)
1651: THEN
1652: x_cop_rec.grid_datasource_name := l_cop_rec.grid_datasource_name;
1653: END IF;
1654: IF (x_cop_rec.qa_pdf_id = OKC_API.G_MISS_NUM) -- Bug# 2171059
1655: THEN
1656: x_cop_rec.qa_pdf_id := l_cop_rec.qa_pdf_id;
1657: END IF;
1658:
1664: FUNCTION Set_Attributes (
1665: p_cop_rec IN cop_rec_type,
1666: x_cop_rec OUT NOCOPY cop_rec_type
1667: ) RETURN VARCHAR2 IS
1668: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1669: BEGIN
1670: x_cop_rec := p_cop_rec;
1671: RETURN(l_return_status);
1672: END Set_Attributes;
1670: x_cop_rec := p_cop_rec;
1671: RETURN(l_return_status);
1672: END Set_Attributes;
1673: BEGIN
1674: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1675: p_init_msg_list,
1676: '_PVT',
1677: x_return_status);
1678: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1674: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1675: p_init_msg_list,
1676: '_PVT',
1677: x_return_status);
1678: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1679: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1680: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1681: RAISE OKC_API.G_EXCEPTION_ERROR;
1682: END IF;
1675: p_init_msg_list,
1676: '_PVT',
1677: x_return_status);
1678: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1679: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1680: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1681: RAISE OKC_API.G_EXCEPTION_ERROR;
1682: END IF;
1683: --- Setting item attributes
1676: '_PVT',
1677: x_return_status);
1678: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1679: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1680: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1681: RAISE OKC_API.G_EXCEPTION_ERROR;
1682: END IF;
1683: --- Setting item attributes
1684: l_return_status := Set_Attributes(
1677: x_return_status);
1678: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1679: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1680: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1681: RAISE OKC_API.G_EXCEPTION_ERROR;
1682: END IF;
1683: --- Setting item attributes
1684: l_return_status := Set_Attributes(
1685: p_cop_rec, -- IN
1684: l_return_status := Set_Attributes(
1685: p_cop_rec, -- IN
1686: l_cop_rec); -- OUT
1687: --- If any errors happen abort API
1688: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1689: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1690: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1691: RAISE OKC_API.G_EXCEPTION_ERROR;
1692: END IF;
1685: p_cop_rec, -- IN
1686: l_cop_rec); -- OUT
1687: --- If any errors happen abort API
1688: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1689: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1690: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1691: RAISE OKC_API.G_EXCEPTION_ERROR;
1692: END IF;
1693: l_return_status := populate_new_record(l_cop_rec, l_def_cop_rec);
1686: l_cop_rec); -- OUT
1687: --- If any errors happen abort API
1688: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1689: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1690: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1691: RAISE OKC_API.G_EXCEPTION_ERROR;
1692: END IF;
1693: l_return_status := populate_new_record(l_cop_rec, l_def_cop_rec);
1694: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1687: --- If any errors happen abort API
1688: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1689: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1690: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1691: RAISE OKC_API.G_EXCEPTION_ERROR;
1692: END IF;
1693: l_return_status := populate_new_record(l_cop_rec, l_def_cop_rec);
1694: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1695: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1690: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1691: RAISE OKC_API.G_EXCEPTION_ERROR;
1692: END IF;
1693: l_return_status := populate_new_record(l_cop_rec, l_def_cop_rec);
1694: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1695: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1696: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1697: RAISE OKC_API.G_EXCEPTION_ERROR;
1698: END IF;
1691: RAISE OKC_API.G_EXCEPTION_ERROR;
1692: END IF;
1693: l_return_status := populate_new_record(l_cop_rec, l_def_cop_rec);
1694: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1695: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1696: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1697: RAISE OKC_API.G_EXCEPTION_ERROR;
1698: END IF;
1699: UPDATE OKC_CLASS_OPERATIONS
1692: END IF;
1693: l_return_status := populate_new_record(l_cop_rec, l_def_cop_rec);
1694: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1695: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1696: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1697: RAISE OKC_API.G_EXCEPTION_ERROR;
1698: END IF;
1699: UPDATE OKC_CLASS_OPERATIONS
1700: SET OPN_CODE = l_def_cop_rec.opn_code,
1693: l_return_status := populate_new_record(l_cop_rec, l_def_cop_rec);
1694: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1695: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1696: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1697: RAISE OKC_API.G_EXCEPTION_ERROR;
1698: END IF;
1699: UPDATE OKC_CLASS_OPERATIONS
1700: SET OPN_CODE = l_def_cop_rec.opn_code,
1701: CLS_CODE = l_def_cop_rec.cls_code,
1712: QA_PDF_ID = l_def_cop_rec.qa_pdf_id -- Bug# 2171059
1713: WHERE ID = l_def_cop_rec.id;
1714:
1715: x_cop_rec := l_def_cop_rec;
1716: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1717: EXCEPTION
1718: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1719: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1720: (
1714:
1715: x_cop_rec := l_def_cop_rec;
1716: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1717: EXCEPTION
1718: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1719: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1720: (
1721: l_api_name,
1722: G_PKG_NAME,
1715: x_cop_rec := l_def_cop_rec;
1716: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1717: EXCEPTION
1718: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1719: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1720: (
1721: l_api_name,
1722: G_PKG_NAME,
1723: 'OKC_API.G_RET_STS_ERROR',
1719: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1720: (
1721: l_api_name,
1722: G_PKG_NAME,
1723: 'OKC_API.G_RET_STS_ERROR',
1724: x_msg_count,
1725: x_msg_data,
1726: '_PVT'
1727: );
1724: x_msg_count,
1725: x_msg_data,
1726: '_PVT'
1727: );
1728: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1729: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1730: (
1731: l_api_name,
1732: G_PKG_NAME,
1725: x_msg_data,
1726: '_PVT'
1727: );
1728: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1729: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1730: (
1731: l_api_name,
1732: G_PKG_NAME,
1733: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1729: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1730: (
1731: l_api_name,
1732: G_PKG_NAME,
1733: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1734: x_msg_count,
1735: x_msg_data,
1736: '_PVT'
1737: );
1735: x_msg_data,
1736: '_PVT'
1737: );
1738: WHEN OTHERS THEN
1739: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1740: (
1741: l_api_name,
1742: G_PKG_NAME,
1743: 'OTHERS',
1759: x_copv_rec OUT NOCOPY copv_rec_type) IS
1760:
1761: l_api_version CONSTANT NUMBER := 1;
1762: l_api_name CONSTANT VARCHAR2(30) := 'V_update_row';
1763: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1764: l_copv_rec copv_rec_type := p_copv_rec;
1765: l_def_copv_rec copv_rec_type;
1766: l_cop_rec cop_rec_type;
1767: lx_cop_rec cop_rec_type;
1786: x_copv_rec OUT NOCOPY copv_rec_type
1787: ) RETURN VARCHAR2 IS
1788: l_copv_rec copv_rec_type;
1789: l_row_notfound BOOLEAN := TRUE;
1790: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1791: BEGIN
1792: x_copv_rec := p_copv_rec;
1793: -- Get current database values
1794: l_copv_rec := get_rec(p_copv_rec, l_row_notfound);
1792: x_copv_rec := p_copv_rec;
1793: -- Get current database values
1794: l_copv_rec := get_rec(p_copv_rec, l_row_notfound);
1795: IF (l_row_notfound) THEN
1796: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1797: END IF;
1798: IF (x_copv_rec.id = OKC_API.G_MISS_NUM)
1799: THEN
1800: x_copv_rec.id := l_copv_rec.id;
1794: l_copv_rec := get_rec(p_copv_rec, l_row_notfound);
1795: IF (l_row_notfound) THEN
1796: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1797: END IF;
1798: IF (x_copv_rec.id = OKC_API.G_MISS_NUM)
1799: THEN
1800: x_copv_rec.id := l_copv_rec.id;
1801: END IF;
1802: IF (x_copv_rec.opn_code = OKC_API.G_MISS_CHAR)
1798: IF (x_copv_rec.id = OKC_API.G_MISS_NUM)
1799: THEN
1800: x_copv_rec.id := l_copv_rec.id;
1801: END IF;
1802: IF (x_copv_rec.opn_code = OKC_API.G_MISS_CHAR)
1803: THEN
1804: x_copv_rec.opn_code := l_copv_rec.opn_code;
1805: END IF;
1806: IF (x_copv_rec.cls_code = OKC_API.G_MISS_CHAR)
1802: IF (x_copv_rec.opn_code = OKC_API.G_MISS_CHAR)
1803: THEN
1804: x_copv_rec.opn_code := l_copv_rec.opn_code;
1805: END IF;
1806: IF (x_copv_rec.cls_code = OKC_API.G_MISS_CHAR)
1807: THEN
1808: x_copv_rec.cls_code := l_copv_rec.cls_code;
1809: END IF;
1810: IF (x_copv_rec.search_function_id = OKC_API.G_MISS_NUM)
1806: IF (x_copv_rec.cls_code = OKC_API.G_MISS_CHAR)
1807: THEN
1808: x_copv_rec.cls_code := l_copv_rec.cls_code;
1809: END IF;
1810: IF (x_copv_rec.search_function_id = OKC_API.G_MISS_NUM)
1811: THEN
1812: x_copv_rec.search_function_id := l_copv_rec.search_function_id;
1813: END IF;
1814: IF (x_copv_rec.detail_function_id = OKC_API.G_MISS_NUM)
1810: IF (x_copv_rec.search_function_id = OKC_API.G_MISS_NUM)
1811: THEN
1812: x_copv_rec.search_function_id := l_copv_rec.search_function_id;
1813: END IF;
1814: IF (x_copv_rec.detail_function_id = OKC_API.G_MISS_NUM)
1815: THEN
1816: x_copv_rec.detail_function_id := l_copv_rec.detail_function_id;
1817: END IF;
1818: IF (x_copv_rec.object_version_number = OKC_API.G_MISS_NUM)
1814: IF (x_copv_rec.detail_function_id = OKC_API.G_MISS_NUM)
1815: THEN
1816: x_copv_rec.detail_function_id := l_copv_rec.detail_function_id;
1817: END IF;
1818: IF (x_copv_rec.object_version_number = OKC_API.G_MISS_NUM)
1819: THEN
1820: x_copv_rec.object_version_number := l_copv_rec.object_version_number;
1821: END IF;
1822: IF (x_copv_rec.created_by = OKC_API.G_MISS_NUM)
1818: IF (x_copv_rec.object_version_number = OKC_API.G_MISS_NUM)
1819: THEN
1820: x_copv_rec.object_version_number := l_copv_rec.object_version_number;
1821: END IF;
1822: IF (x_copv_rec.created_by = OKC_API.G_MISS_NUM)
1823: THEN
1824: x_copv_rec.created_by := l_copv_rec.created_by;
1825: END IF;
1826: IF (x_copv_rec.creation_date = OKC_API.G_MISS_DATE)
1822: IF (x_copv_rec.created_by = OKC_API.G_MISS_NUM)
1823: THEN
1824: x_copv_rec.created_by := l_copv_rec.created_by;
1825: END IF;
1826: IF (x_copv_rec.creation_date = OKC_API.G_MISS_DATE)
1827: THEN
1828: x_copv_rec.creation_date := l_copv_rec.creation_date;
1829: END IF;
1830: IF (x_copv_rec.last_updated_by = OKC_API.G_MISS_NUM)
1826: IF (x_copv_rec.creation_date = OKC_API.G_MISS_DATE)
1827: THEN
1828: x_copv_rec.creation_date := l_copv_rec.creation_date;
1829: END IF;
1830: IF (x_copv_rec.last_updated_by = OKC_API.G_MISS_NUM)
1831: THEN
1832: x_copv_rec.last_updated_by := l_copv_rec.last_updated_by;
1833: END IF;
1834: IF (x_copv_rec.last_update_date = OKC_API.G_MISS_DATE)
1830: IF (x_copv_rec.last_updated_by = OKC_API.G_MISS_NUM)
1831: THEN
1832: x_copv_rec.last_updated_by := l_copv_rec.last_updated_by;
1833: END IF;
1834: IF (x_copv_rec.last_update_date = OKC_API.G_MISS_DATE)
1835: THEN
1836: x_copv_rec.last_update_date := l_copv_rec.last_update_date;
1837: END IF;
1838: IF (x_copv_rec.last_update_login = OKC_API.G_MISS_NUM)
1834: IF (x_copv_rec.last_update_date = OKC_API.G_MISS_DATE)
1835: THEN
1836: x_copv_rec.last_update_date := l_copv_rec.last_update_date;
1837: END IF;
1838: IF (x_copv_rec.last_update_login = OKC_API.G_MISS_NUM)
1839: THEN
1840: x_copv_rec.last_update_login := l_copv_rec.last_update_login;
1841: END IF;
1842: IF (x_copv_rec.pdf_id = OKC_API.G_MISS_NUM)
1838: IF (x_copv_rec.last_update_login = OKC_API.G_MISS_NUM)
1839: THEN
1840: x_copv_rec.last_update_login := l_copv_rec.last_update_login;
1841: END IF;
1842: IF (x_copv_rec.pdf_id = OKC_API.G_MISS_NUM)
1843: THEN
1844: x_copv_rec.pdf_id := l_copv_rec.pdf_id;
1845: END IF;
1846: IF (x_copv_rec.grid_datasource_name = OKC_API.G_MISS_CHAR)
1842: IF (x_copv_rec.pdf_id = OKC_API.G_MISS_NUM)
1843: THEN
1844: x_copv_rec.pdf_id := l_copv_rec.pdf_id;
1845: END IF;
1846: IF (x_copv_rec.grid_datasource_name = OKC_API.G_MISS_CHAR)
1847: THEN
1848: x_copv_rec.grid_datasource_name := l_copv_rec.grid_datasource_name;
1849: END IF;
1850: IF (x_copv_rec.qa_pdf_id = OKC_API.G_MISS_NUM) -- Bug# 2171059
1846: IF (x_copv_rec.grid_datasource_name = OKC_API.G_MISS_CHAR)
1847: THEN
1848: x_copv_rec.grid_datasource_name := l_copv_rec.grid_datasource_name;
1849: END IF;
1850: IF (x_copv_rec.qa_pdf_id = OKC_API.G_MISS_NUM) -- Bug# 2171059
1851: THEN
1852: x_copv_rec.qa_pdf_id := l_copv_rec.qa_pdf_id;
1853: END IF;
1854: RETURN(l_return_status);
1859: FUNCTION Set_Attributes (
1860: p_copv_rec IN copv_rec_type,
1861: x_copv_rec OUT NOCOPY copv_rec_type
1862: ) RETURN VARCHAR2 IS
1863: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1864: BEGIN
1865: x_copv_rec := p_copv_rec;
1866: x_copv_rec.OBJECT_VERSION_NUMBER := NVL(x_copv_rec.OBJECT_VERSION_NUMBER, 0) + 1;
1867: RETURN(l_return_status);
1866: x_copv_rec.OBJECT_VERSION_NUMBER := NVL(x_copv_rec.OBJECT_VERSION_NUMBER, 0) + 1;
1867: RETURN(l_return_status);
1868: END Set_Attributes;
1869: BEGIN
1870: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1871: G_PKG_NAME,
1872: p_init_msg_list,
1873: l_api_version,
1874: p_api_version,
1873: l_api_version,
1874: p_api_version,
1875: '_PVT',
1876: x_return_status);
1877: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1878: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1879: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1880: RAISE OKC_API.G_EXCEPTION_ERROR;
1881: END IF;
1874: p_api_version,
1875: '_PVT',
1876: x_return_status);
1877: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1878: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1879: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1880: RAISE OKC_API.G_EXCEPTION_ERROR;
1881: END IF;
1882: --- Setting item attributes
1875: '_PVT',
1876: x_return_status);
1877: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1878: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1879: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1880: RAISE OKC_API.G_EXCEPTION_ERROR;
1881: END IF;
1882: --- Setting item attributes
1883: l_return_status := Set_Attributes(
1876: x_return_status);
1877: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1878: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1879: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1880: RAISE OKC_API.G_EXCEPTION_ERROR;
1881: END IF;
1882: --- Setting item attributes
1883: l_return_status := Set_Attributes(
1884: p_copv_rec, -- IN
1883: l_return_status := Set_Attributes(
1884: p_copv_rec, -- IN
1885: l_copv_rec); -- OUT
1886: --- If any errors happen abort API
1887: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1888: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1889: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1890: RAISE OKC_API.G_EXCEPTION_ERROR;
1891: END IF;
1884: p_copv_rec, -- IN
1885: l_copv_rec); -- OUT
1886: --- If any errors happen abort API
1887: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1888: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1889: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1890: RAISE OKC_API.G_EXCEPTION_ERROR;
1891: END IF;
1892: l_return_status := populate_new_record(l_copv_rec, l_def_copv_rec);
1885: l_copv_rec); -- OUT
1886: --- If any errors happen abort API
1887: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1888: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1889: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1890: RAISE OKC_API.G_EXCEPTION_ERROR;
1891: END IF;
1892: l_return_status := populate_new_record(l_copv_rec, l_def_copv_rec);
1893: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1886: --- If any errors happen abort API
1887: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1888: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1889: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1890: RAISE OKC_API.G_EXCEPTION_ERROR;
1891: END IF;
1892: l_return_status := populate_new_record(l_copv_rec, l_def_copv_rec);
1893: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1894: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1889: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1890: RAISE OKC_API.G_EXCEPTION_ERROR;
1891: END IF;
1892: l_return_status := populate_new_record(l_copv_rec, l_def_copv_rec);
1893: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1894: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1895: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1896: RAISE OKC_API.G_EXCEPTION_ERROR;
1897: END IF;
1890: RAISE OKC_API.G_EXCEPTION_ERROR;
1891: END IF;
1892: l_return_status := populate_new_record(l_copv_rec, l_def_copv_rec);
1893: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1894: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1895: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1896: RAISE OKC_API.G_EXCEPTION_ERROR;
1897: END IF;
1898: l_def_copv_rec := fill_who_columns(l_def_copv_rec);
1891: END IF;
1892: l_return_status := populate_new_record(l_copv_rec, l_def_copv_rec);
1893: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1894: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1895: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1896: RAISE OKC_API.G_EXCEPTION_ERROR;
1897: END IF;
1898: l_def_copv_rec := fill_who_columns(l_def_copv_rec);
1899: --- Validate all non-missing attributes (Item Level Validation)
1892: l_return_status := populate_new_record(l_copv_rec, l_def_copv_rec);
1893: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1894: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1895: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1896: RAISE OKC_API.G_EXCEPTION_ERROR;
1897: END IF;
1898: l_def_copv_rec := fill_who_columns(l_def_copv_rec);
1899: --- Validate all non-missing attributes (Item Level Validation)
1900: l_return_status := Validate_Attributes(l_def_copv_rec);
1898: l_def_copv_rec := fill_who_columns(l_def_copv_rec);
1899: --- Validate all non-missing attributes (Item Level Validation)
1900: l_return_status := Validate_Attributes(l_def_copv_rec);
1901: --- If any errors happen abort API
1902: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1903: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1904: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1905: RAISE OKC_API.G_EXCEPTION_ERROR;
1906: END IF;
1899: --- Validate all non-missing attributes (Item Level Validation)
1900: l_return_status := Validate_Attributes(l_def_copv_rec);
1901: --- If any errors happen abort API
1902: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1903: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1904: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1905: RAISE OKC_API.G_EXCEPTION_ERROR;
1906: END IF;
1907:
1900: l_return_status := Validate_Attributes(l_def_copv_rec);
1901: --- If any errors happen abort API
1902: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1903: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1904: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1905: RAISE OKC_API.G_EXCEPTION_ERROR;
1906: END IF;
1907:
1908: ----- Commented out because Validate_record checks that the cls_code and opn_code being entered
1901: --- If any errors happen abort API
1902: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1903: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1904: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1905: RAISE OKC_API.G_EXCEPTION_ERROR;
1906: END IF;
1907:
1908: ----- Commented out because Validate_record checks that the cls_code and opn_code being entered
1909: ----- is unique however a record must exist for it to be updated
1907:
1908: ----- Commented out because Validate_record checks that the cls_code and opn_code being entered
1909: ----- is unique however a record must exist for it to be updated
1910: /*l_return_status := Validate_Record(l_def_copv_rec);
1911: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1912: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1913: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1914: RAISE OKC_API.G_EXCEPTION_ERROR;
1915: END IF;
1908: ----- Commented out because Validate_record checks that the cls_code and opn_code being entered
1909: ----- is unique however a record must exist for it to be updated
1910: /*l_return_status := Validate_Record(l_def_copv_rec);
1911: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1912: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1913: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1914: RAISE OKC_API.G_EXCEPTION_ERROR;
1915: END IF;
1916: */
1909: ----- is unique however a record must exist for it to be updated
1910: /*l_return_status := Validate_Record(l_def_copv_rec);
1911: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1912: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1913: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1914: RAISE OKC_API.G_EXCEPTION_ERROR;
1915: END IF;
1916: */
1917: --------------------------------------
1910: /*l_return_status := Validate_Record(l_def_copv_rec);
1911: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1912: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1913: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1914: RAISE OKC_API.G_EXCEPTION_ERROR;
1915: END IF;
1916: */
1917: --------------------------------------
1918: -- Move VIEW record to "Child" records
1928: x_msg_data,
1929: l_cop_rec,
1930: lx_cop_rec
1931: );
1932: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1933: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1934: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1935: RAISE OKC_API.G_EXCEPTION_ERROR;
1936: END IF;
1929: l_cop_rec,
1930: lx_cop_rec
1931: );
1932: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1933: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1934: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1935: RAISE OKC_API.G_EXCEPTION_ERROR;
1936: END IF;
1937: migrate(lx_cop_rec, l_def_copv_rec);
1930: lx_cop_rec
1931: );
1932: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1933: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1934: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1935: RAISE OKC_API.G_EXCEPTION_ERROR;
1936: END IF;
1937: migrate(lx_cop_rec, l_def_copv_rec);
1938: x_copv_rec := l_def_copv_rec;
1931: );
1932: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1933: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1934: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1935: RAISE OKC_API.G_EXCEPTION_ERROR;
1936: END IF;
1937: migrate(lx_cop_rec, l_def_copv_rec);
1938: x_copv_rec := l_def_copv_rec;
1939: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1935: RAISE OKC_API.G_EXCEPTION_ERROR;
1936: END IF;
1937: migrate(lx_cop_rec, l_def_copv_rec);
1938: x_copv_rec := l_def_copv_rec;
1939: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1940: EXCEPTION
1941: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1942: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1943: (
1937: migrate(lx_cop_rec, l_def_copv_rec);
1938: x_copv_rec := l_def_copv_rec;
1939: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1940: EXCEPTION
1941: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1942: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1943: (
1944: l_api_name,
1945: G_PKG_NAME,
1938: x_copv_rec := l_def_copv_rec;
1939: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1940: EXCEPTION
1941: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1942: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1943: (
1944: l_api_name,
1945: G_PKG_NAME,
1946: 'OKC_API.G_RET_STS_ERROR',
1942: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1943: (
1944: l_api_name,
1945: G_PKG_NAME,
1946: 'OKC_API.G_RET_STS_ERROR',
1947: x_msg_count,
1948: x_msg_data,
1949: '_PVT'
1950: );
1947: x_msg_count,
1948: x_msg_data,
1949: '_PVT'
1950: );
1951: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1952: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1953: (
1954: l_api_name,
1955: G_PKG_NAME,
1948: x_msg_data,
1949: '_PVT'
1950: );
1951: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1952: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1953: (
1954: l_api_name,
1955: G_PKG_NAME,
1956: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1952: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1953: (
1954: l_api_name,
1955: G_PKG_NAME,
1956: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1957: x_msg_count,
1958: x_msg_data,
1959: '_PVT'
1960: );
1958: x_msg_data,
1959: '_PVT'
1960: );
1961: WHEN OTHERS THEN
1962: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1963: (
1964: l_api_name,
1965: G_PKG_NAME,
1966: 'OTHERS',
1982: x_copv_tbl OUT NOCOPY copv_tbl_type) IS
1983:
1984: l_api_version CONSTANT NUMBER := 1;
1985: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
1986: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1987: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1988: i NUMBER := 0;
1989: BEGIN
1990: OKC_API.init_msg_list(p_init_msg_list);
1983:
1984: l_api_version CONSTANT NUMBER := 1;
1985: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
1986: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1987: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1988: i NUMBER := 0;
1989: BEGIN
1990: OKC_API.init_msg_list(p_init_msg_list);
1991: -- Make sure PL/SQL table has records in it before passing
1986: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1987: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1988: i NUMBER := 0;
1989: BEGIN
1990: OKC_API.init_msg_list(p_init_msg_list);
1991: -- Make sure PL/SQL table has records in it before passing
1992: IF (p_copv_tbl.COUNT > 0) THEN
1993: i := p_copv_tbl.FIRST;
1994: LOOP
1993: i := p_copv_tbl.FIRST;
1994: LOOP
1995: update_row (
1996: p_api_version => p_api_version,
1997: p_init_msg_list => OKC_API.G_FALSE,
1998: x_return_status => x_return_status,
1999: x_msg_count => x_msg_count,
2000: x_msg_data => x_msg_data,
2001: p_copv_rec => p_copv_tbl(i),
2001: p_copv_rec => p_copv_tbl(i),
2002: x_copv_rec => x_copv_tbl(i));
2003:
2004: -- store the highest degree of error
2005: If x_return_status <> OKC_API.G_RET_STS_SUCCESS Then
2006: If l_overall_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
2007: l_overall_status := x_return_status;
2008: End If;
2009: End If;
2002: x_copv_rec => x_copv_tbl(i));
2003:
2004: -- store the highest degree of error
2005: If x_return_status <> OKC_API.G_RET_STS_SUCCESS Then
2006: If l_overall_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
2007: l_overall_status := x_return_status;
2008: End If;
2009: End If;
2010:
2014: -- return overall status
2015: x_return_status := l_overall_status;
2016: END IF;
2017: EXCEPTION
2018: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2019: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2020: (
2021: l_api_name,
2022: G_PKG_NAME,
2015: x_return_status := l_overall_status;
2016: END IF;
2017: EXCEPTION
2018: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2019: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2020: (
2021: l_api_name,
2022: G_PKG_NAME,
2023: 'OKC_API.G_RET_STS_ERROR',
2019: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2020: (
2021: l_api_name,
2022: G_PKG_NAME,
2023: 'OKC_API.G_RET_STS_ERROR',
2024: x_msg_count,
2025: x_msg_data,
2026: '_PVT'
2027: );
2024: x_msg_count,
2025: x_msg_data,
2026: '_PVT'
2027: );
2028: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2029: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2030: (
2031: l_api_name,
2032: G_PKG_NAME,
2025: x_msg_data,
2026: '_PVT'
2027: );
2028: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2029: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2030: (
2031: l_api_name,
2032: G_PKG_NAME,
2033: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2029: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2030: (
2031: l_api_name,
2032: G_PKG_NAME,
2033: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2034: x_msg_count,
2035: x_msg_data,
2036: '_PVT'
2037: );
2035: x_msg_data,
2036: '_PVT'
2037: );
2038: WHEN OTHERS THEN
2039: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2040: (
2041: l_api_name,
2042: G_PKG_NAME,
2043: 'OTHERS',
2061: p_cop_rec IN cop_rec_type) IS
2062:
2063: l_api_version CONSTANT NUMBER := 1;
2064: l_api_name CONSTANT VARCHAR2(30) := 'OPERATIONS_delete_row';
2065: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2066: l_cop_rec cop_rec_type:= p_cop_rec;
2067: l_row_notfound BOOLEAN := TRUE;
2068: BEGIN
2069: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2065: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2066: l_cop_rec cop_rec_type:= p_cop_rec;
2067: l_row_notfound BOOLEAN := TRUE;
2068: BEGIN
2069: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2070: p_init_msg_list,
2071: '_PVT',
2072: x_return_status);
2073: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2069: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2070: p_init_msg_list,
2071: '_PVT',
2072: x_return_status);
2073: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2074: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2075: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2076: RAISE OKC_API.G_EXCEPTION_ERROR;
2077: END IF;
2070: p_init_msg_list,
2071: '_PVT',
2072: x_return_status);
2073: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2074: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2075: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2076: RAISE OKC_API.G_EXCEPTION_ERROR;
2077: END IF;
2078: DELETE FROM OKC_CLASS_OPERATIONS
2071: '_PVT',
2072: x_return_status);
2073: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2074: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2075: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2076: RAISE OKC_API.G_EXCEPTION_ERROR;
2077: END IF;
2078: DELETE FROM OKC_CLASS_OPERATIONS
2079: WHERE ID = l_cop_rec.id;
2072: x_return_status);
2073: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2074: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2075: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2076: RAISE OKC_API.G_EXCEPTION_ERROR;
2077: END IF;
2078: DELETE FROM OKC_CLASS_OPERATIONS
2079: WHERE ID = l_cop_rec.id;
2080:
2077: END IF;
2078: DELETE FROM OKC_CLASS_OPERATIONS
2079: WHERE ID = l_cop_rec.id;
2080:
2081: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2082: EXCEPTION
2083: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2084: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2085: (
2079: WHERE ID = l_cop_rec.id;
2080:
2081: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2082: EXCEPTION
2083: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2084: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2085: (
2086: l_api_name,
2087: G_PKG_NAME,
2080:
2081: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2082: EXCEPTION
2083: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2084: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2085: (
2086: l_api_name,
2087: G_PKG_NAME,
2088: 'OKC_API.G_RET_STS_ERROR',
2084: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2085: (
2086: l_api_name,
2087: G_PKG_NAME,
2088: 'OKC_API.G_RET_STS_ERROR',
2089: x_msg_count,
2090: x_msg_data,
2091: '_PVT'
2092: );
2089: x_msg_count,
2090: x_msg_data,
2091: '_PVT'
2092: );
2093: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2094: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2095: (
2096: l_api_name,
2097: G_PKG_NAME,
2090: x_msg_data,
2091: '_PVT'
2092: );
2093: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2094: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2095: (
2096: l_api_name,
2097: G_PKG_NAME,
2098: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2094: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2095: (
2096: l_api_name,
2097: G_PKG_NAME,
2098: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2099: x_msg_count,
2100: x_msg_data,
2101: '_PVT'
2102: );
2100: x_msg_data,
2101: '_PVT'
2102: );
2103: WHEN OTHERS THEN
2104: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2105: (
2106: l_api_name,
2107: G_PKG_NAME,
2108: 'OTHERS',
2123: p_copv_rec IN copv_rec_type) IS
2124:
2125: l_api_version CONSTANT NUMBER := 1;
2126: l_api_name CONSTANT VARCHAR2(30) := 'V_delete_row';
2127: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2128: l_copv_rec copv_rec_type := p_copv_rec;
2129: l_cop_rec cop_rec_type;
2130: BEGIN
2131: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2127: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2128: l_copv_rec copv_rec_type := p_copv_rec;
2129: l_cop_rec cop_rec_type;
2130: BEGIN
2131: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2132: G_PKG_NAME,
2133: p_init_msg_list,
2134: l_api_version,
2135: p_api_version,
2134: l_api_version,
2135: p_api_version,
2136: '_PVT',
2137: x_return_status);
2138: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2139: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2140: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2141: RAISE OKC_API.G_EXCEPTION_ERROR;
2142: END IF;
2135: p_api_version,
2136: '_PVT',
2137: x_return_status);
2138: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2139: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2140: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2141: RAISE OKC_API.G_EXCEPTION_ERROR;
2142: END IF;
2143: --------------------------------------
2136: '_PVT',
2137: x_return_status);
2138: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2139: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2140: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2141: RAISE OKC_API.G_EXCEPTION_ERROR;
2142: END IF;
2143: --------------------------------------
2144: -- Move VIEW record to "Child" records
2137: x_return_status);
2138: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2139: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2140: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2141: RAISE OKC_API.G_EXCEPTION_ERROR;
2142: END IF;
2143: --------------------------------------
2144: -- Move VIEW record to "Child" records
2145: --------------------------------------
2153: x_msg_count,
2154: x_msg_data,
2155: l_cop_rec
2156: );
2157: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2158: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2159: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2160: RAISE OKC_API.G_EXCEPTION_ERROR;
2161: END IF;
2154: x_msg_data,
2155: l_cop_rec
2156: );
2157: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2158: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2159: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2160: RAISE OKC_API.G_EXCEPTION_ERROR;
2161: END IF;
2162: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2155: l_cop_rec
2156: );
2157: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2158: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2159: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2160: RAISE OKC_API.G_EXCEPTION_ERROR;
2161: END IF;
2162: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2163: EXCEPTION
2156: );
2157: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2158: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2159: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2160: RAISE OKC_API.G_EXCEPTION_ERROR;
2161: END IF;
2162: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2163: EXCEPTION
2164: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2158: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2159: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2160: RAISE OKC_API.G_EXCEPTION_ERROR;
2161: END IF;
2162: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2163: EXCEPTION
2164: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2165: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2166: (
2160: RAISE OKC_API.G_EXCEPTION_ERROR;
2161: END IF;
2162: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2163: EXCEPTION
2164: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2165: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2166: (
2167: l_api_name,
2168: G_PKG_NAME,
2161: END IF;
2162: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2163: EXCEPTION
2164: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2165: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2166: (
2167: l_api_name,
2168: G_PKG_NAME,
2169: 'OKC_API.G_RET_STS_ERROR',
2165: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2166: (
2167: l_api_name,
2168: G_PKG_NAME,
2169: 'OKC_API.G_RET_STS_ERROR',
2170: x_msg_count,
2171: x_msg_data,
2172: '_PVT'
2173: );
2170: x_msg_count,
2171: x_msg_data,
2172: '_PVT'
2173: );
2174: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2175: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2176: (
2177: l_api_name,
2178: G_PKG_NAME,
2171: x_msg_data,
2172: '_PVT'
2173: );
2174: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2175: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2176: (
2177: l_api_name,
2178: G_PKG_NAME,
2179: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2175: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2176: (
2177: l_api_name,
2178: G_PKG_NAME,
2179: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2180: x_msg_count,
2181: x_msg_data,
2182: '_PVT'
2183: );
2181: x_msg_data,
2182: '_PVT'
2183: );
2184: WHEN OTHERS THEN
2185: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2186: (
2187: l_api_name,
2188: G_PKG_NAME,
2189: 'OTHERS',
2204: p_copv_tbl IN copv_tbl_type) IS
2205:
2206: l_api_version CONSTANT NUMBER := 1;
2207: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
2208: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2209: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2210: i NUMBER := 0;
2211: BEGIN
2212: OKC_API.init_msg_list(p_init_msg_list);
2205:
2206: l_api_version CONSTANT NUMBER := 1;
2207: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
2208: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2209: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2210: i NUMBER := 0;
2211: BEGIN
2212: OKC_API.init_msg_list(p_init_msg_list);
2213: -- Make sure PL/SQL table has records in it before passing
2208: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2209: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2210: i NUMBER := 0;
2211: BEGIN
2212: OKC_API.init_msg_list(p_init_msg_list);
2213: -- Make sure PL/SQL table has records in it before passing
2214: IF (p_copv_tbl.COUNT > 0) THEN
2215: i := p_copv_tbl.FIRST;
2216: LOOP
2215: i := p_copv_tbl.FIRST;
2216: LOOP
2217: delete_row (
2218: p_api_version => p_api_version,
2219: p_init_msg_list => OKC_API.G_FALSE,
2220: x_return_status => x_return_status,
2221: x_msg_count => x_msg_count,
2222: x_msg_data => x_msg_data,
2223: p_copv_rec => p_copv_tbl(i));
2222: x_msg_data => x_msg_data,
2223: p_copv_rec => p_copv_tbl(i));
2224:
2225: -- store the highest degree of error
2226: If x_return_status <> OKC_API.G_RET_STS_SUCCESS Then
2227: If l_overall_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
2228: l_overall_status := x_return_status;
2229: End If;
2230: End If;
2223: p_copv_rec => p_copv_tbl(i));
2224:
2225: -- store the highest degree of error
2226: If x_return_status <> OKC_API.G_RET_STS_SUCCESS Then
2227: If l_overall_status <> OKC_API.G_RET_STS_UNEXP_ERROR Then
2228: l_overall_status := x_return_status;
2229: End If;
2230: End If;
2231:
2235: -- return overall status
2236: x_return_status := l_overall_status;
2237: END IF;
2238: EXCEPTION
2239: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2240: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2241: (
2242: l_api_name,
2243: G_PKG_NAME,
2236: x_return_status := l_overall_status;
2237: END IF;
2238: EXCEPTION
2239: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2240: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2241: (
2242: l_api_name,
2243: G_PKG_NAME,
2244: 'OKC_API.G_RET_STS_ERROR',
2240: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2241: (
2242: l_api_name,
2243: G_PKG_NAME,
2244: 'OKC_API.G_RET_STS_ERROR',
2245: x_msg_count,
2246: x_msg_data,
2247: '_PVT'
2248: );
2245: x_msg_count,
2246: x_msg_data,
2247: '_PVT'
2248: );
2249: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2250: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2251: (
2252: l_api_name,
2253: G_PKG_NAME,
2246: x_msg_data,
2247: '_PVT'
2248: );
2249: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2250: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2251: (
2252: l_api_name,
2253: G_PKG_NAME,
2254: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2250: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2251: (
2252: l_api_name,
2253: G_PKG_NAME,
2254: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2255: x_msg_count,
2256: x_msg_data,
2257: '_PVT'
2258: );
2256: x_msg_data,
2257: '_PVT'
2258: );
2259: WHEN OTHERS THEN
2260: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2261: (
2262: l_api_name,
2263: G_PKG_NAME,
2264: 'OTHERS',