6:
7: G_Params_tbl Params_Tbl_Type;
8: G_Params_count number := 0;
9:
10: G_APP_NAME CONSTANT VARCHAR2(3) := OKC_API.G_APP_NAME;
11: G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKC_PARAMETERS_PUB';
12: G_SQL_ID number;
13:
14: -- Start of comments
41: p_prmv_rec IN prmv_rec_type,
42: x_prmv_rec OUT NOCOPY prmv_rec_type) is
43: l_api_name CONSTANT VARCHAR2(30) := 'create_parameter';
44: l_api_version CONSTANT NUMBER := 1;
45: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
46: begin
47: l_return_status := OKC_API.START_ACTIVITY(substr(l_api_name,1,26),
48: G_PKG_NAME,
49: p_init_msg_list,
43: l_api_name CONSTANT VARCHAR2(30) := 'create_parameter';
44: l_api_version CONSTANT NUMBER := 1;
45: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
46: begin
47: l_return_status := OKC_API.START_ACTIVITY(substr(l_api_name,1,26),
48: G_PKG_NAME,
49: p_init_msg_list,
50: l_api_version,
51: p_api_version,
50: l_api_version,
51: p_api_version,
52: '_PUB',
53: x_return_status);
54: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
55: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
56: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
57: RAISE OKC_API.G_EXCEPTION_ERROR;
58: END IF;
51: p_api_version,
52: '_PUB',
53: x_return_status);
54: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
55: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
56: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
57: RAISE OKC_API.G_EXCEPTION_ERROR;
58: END IF;
59: OKC_PRM_PVT.insert_row(p_api_version,
52: '_PUB',
53: x_return_status);
54: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
55: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
56: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
57: RAISE OKC_API.G_EXCEPTION_ERROR;
58: END IF;
59: OKC_PRM_PVT.insert_row(p_api_version,
60: p_init_msg_list,
53: x_return_status);
54: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
55: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
56: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
57: RAISE OKC_API.G_EXCEPTION_ERROR;
58: END IF;
59: OKC_PRM_PVT.insert_row(p_api_version,
60: p_init_msg_list,
61: x_return_status,
62: x_msg_count,
63: x_msg_data,
64: p_prmv_rec,
65: x_prmv_rec);
66: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
67: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
68: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
69: RAISE OKC_API.G_EXCEPTION_ERROR;
70: END IF;
63: x_msg_data,
64: p_prmv_rec,
65: x_prmv_rec);
66: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
67: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
68: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
69: RAISE OKC_API.G_EXCEPTION_ERROR;
70: END IF;
71: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
64: p_prmv_rec,
65: x_prmv_rec);
66: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
67: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
68: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
69: RAISE OKC_API.G_EXCEPTION_ERROR;
70: END IF;
71: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
72: EXCEPTION
65: x_prmv_rec);
66: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
67: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
68: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
69: RAISE OKC_API.G_EXCEPTION_ERROR;
70: END IF;
71: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
72: EXCEPTION
73: WHEN OKC_API.G_EXCEPTION_ERROR THEN
67: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
68: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
69: RAISE OKC_API.G_EXCEPTION_ERROR;
70: END IF;
71: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
72: EXCEPTION
73: WHEN OKC_API.G_EXCEPTION_ERROR THEN
74: x_return_status := OKC_API.HANDLE_EXCEPTIONS
75: (substr(l_api_name,1,26),
69: RAISE OKC_API.G_EXCEPTION_ERROR;
70: END IF;
71: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
72: EXCEPTION
73: WHEN OKC_API.G_EXCEPTION_ERROR THEN
74: x_return_status := OKC_API.HANDLE_EXCEPTIONS
75: (substr(l_api_name,1,26),
76: G_PKG_NAME,
77: 'OKC_API.G_RET_STS_ERROR',
70: END IF;
71: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
72: EXCEPTION
73: WHEN OKC_API.G_EXCEPTION_ERROR THEN
74: x_return_status := OKC_API.HANDLE_EXCEPTIONS
75: (substr(l_api_name,1,26),
76: G_PKG_NAME,
77: 'OKC_API.G_RET_STS_ERROR',
78: x_msg_count,
73: WHEN OKC_API.G_EXCEPTION_ERROR THEN
74: x_return_status := OKC_API.HANDLE_EXCEPTIONS
75: (substr(l_api_name,1,26),
76: G_PKG_NAME,
77: 'OKC_API.G_RET_STS_ERROR',
78: x_msg_count,
79: x_msg_data,
80: '_PUB');
81: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
77: 'OKC_API.G_RET_STS_ERROR',
78: x_msg_count,
79: x_msg_data,
80: '_PUB');
81: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
82: x_return_status := OKC_API.HANDLE_EXCEPTIONS
83: (substr(l_api_name,1,26),
84: G_PKG_NAME,
85: 'OKC_API.G_RET_STS_UNEXP_ERROR',
78: x_msg_count,
79: x_msg_data,
80: '_PUB');
81: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
82: x_return_status := OKC_API.HANDLE_EXCEPTIONS
83: (substr(l_api_name,1,26),
84: G_PKG_NAME,
85: 'OKC_API.G_RET_STS_UNEXP_ERROR',
86: x_msg_count,
81: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
82: x_return_status := OKC_API.HANDLE_EXCEPTIONS
83: (substr(l_api_name,1,26),
84: G_PKG_NAME,
85: 'OKC_API.G_RET_STS_UNEXP_ERROR',
86: x_msg_count,
87: x_msg_data,
88: '_PUB');
89: WHEN OTHERS THEN
86: x_msg_count,
87: x_msg_data,
88: '_PUB');
89: WHEN OTHERS THEN
90: x_return_status := OKC_API.HANDLE_EXCEPTIONS
91: (substr(l_api_name,1,26),
92: G_PKG_NAME,
93: 'OTHERS',
94: x_msg_count,
103: x_msg_data OUT NOCOPY VARCHAR2,
104: p_prmv_tbl IN prmv_tbl_type,
105: x_prmv_tbl OUT NOCOPY prmv_tbl_type) is
106: i NUMBER;
107: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
108: begin
109: OKC_API.init_msg_list(p_init_msg_list);
110: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
111: if (p_prmv_tbl.COUNT>0) then
105: x_prmv_tbl OUT NOCOPY prmv_tbl_type) is
106: i NUMBER;
107: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
108: begin
109: OKC_API.init_msg_list(p_init_msg_list);
110: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
111: if (p_prmv_tbl.COUNT>0) then
112: i := p_prmv_tbl.FIRST;
113: LOOP
106: i NUMBER;
107: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
108: begin
109: OKC_API.init_msg_list(p_init_msg_list);
110: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
111: if (p_prmv_tbl.COUNT>0) then
112: i := p_prmv_tbl.FIRST;
113: LOOP
114: create_parameter(p_api_version=>p_api_version,
111: if (p_prmv_tbl.COUNT>0) then
112: i := p_prmv_tbl.FIRST;
113: LOOP
114: create_parameter(p_api_version=>p_api_version,
115: p_init_msg_list=>OKC_API.G_FALSE,
116: x_return_status=>l_return_status,
117: x_msg_count=>x_msg_count,
118: x_msg_data=>x_msg_data,
119: p_prmv_rec=>p_prmv_tbl(i),
117: x_msg_count=>x_msg_count,
118: x_msg_data=>x_msg_data,
119: p_prmv_rec=>p_prmv_tbl(i),
120: x_prmv_rec=>x_prmv_tbl(i));
121: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
122: x_return_status := l_return_status;
123: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
124: elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
125: x_return_status := l_return_status;
119: p_prmv_rec=>p_prmv_tbl(i),
120: x_prmv_rec=>x_prmv_tbl(i));
121: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
122: x_return_status := l_return_status;
123: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
124: elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
125: x_return_status := l_return_status;
126: end if;
127: EXIT WHEN (i=p_prmv_tbl.LAST);
120: x_prmv_rec=>x_prmv_tbl(i));
121: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
122: x_return_status := l_return_status;
123: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
124: elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
125: x_return_status := l_return_status;
126: end if;
127: EXIT WHEN (i=p_prmv_tbl.LAST);
128: i := p_prmv_tbl.NEXT(i);
140: p_prmv_rec IN prmv_rec_type,
141: x_prmv_rec OUT NOCOPY prmv_rec_type) is
142: l_api_name CONSTANT VARCHAR2(30) := 'update_parameter';
143: l_api_version CONSTANT NUMBER := 1;
144: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
145: begin
146: l_return_status := OKC_API.START_ACTIVITY(substr(l_api_name,1,26),
147: G_PKG_NAME,
148: p_init_msg_list,
142: l_api_name CONSTANT VARCHAR2(30) := 'update_parameter';
143: l_api_version CONSTANT NUMBER := 1;
144: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
145: begin
146: l_return_status := OKC_API.START_ACTIVITY(substr(l_api_name,1,26),
147: G_PKG_NAME,
148: p_init_msg_list,
149: l_api_version,
150: p_api_version,
149: l_api_version,
150: p_api_version,
151: '_PUB',
152: x_return_status);
153: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
154: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
155: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
156: RAISE OKC_API.G_EXCEPTION_ERROR;
157: END IF;
150: p_api_version,
151: '_PUB',
152: x_return_status);
153: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
154: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
155: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
156: RAISE OKC_API.G_EXCEPTION_ERROR;
157: END IF;
158: OKC_PRM_PVT.update_row(p_api_version,
151: '_PUB',
152: x_return_status);
153: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
154: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
155: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
156: RAISE OKC_API.G_EXCEPTION_ERROR;
157: END IF;
158: OKC_PRM_PVT.update_row(p_api_version,
159: p_init_msg_list,
152: x_return_status);
153: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
154: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
155: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
156: RAISE OKC_API.G_EXCEPTION_ERROR;
157: END IF;
158: OKC_PRM_PVT.update_row(p_api_version,
159: p_init_msg_list,
160: x_return_status,
161: x_msg_count,
162: x_msg_data,
163: p_prmv_rec,
164: x_prmv_rec);
165: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
166: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
167: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
168: RAISE OKC_API.G_EXCEPTION_ERROR;
169: END IF;
162: x_msg_data,
163: p_prmv_rec,
164: x_prmv_rec);
165: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
166: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
167: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
168: RAISE OKC_API.G_EXCEPTION_ERROR;
169: END IF;
170: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
163: p_prmv_rec,
164: x_prmv_rec);
165: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
166: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
167: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
168: RAISE OKC_API.G_EXCEPTION_ERROR;
169: END IF;
170: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
171: EXCEPTION
164: x_prmv_rec);
165: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
166: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
167: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
168: RAISE OKC_API.G_EXCEPTION_ERROR;
169: END IF;
170: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
171: EXCEPTION
172: WHEN OKC_API.G_EXCEPTION_ERROR THEN
166: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
167: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
168: RAISE OKC_API.G_EXCEPTION_ERROR;
169: END IF;
170: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
171: EXCEPTION
172: WHEN OKC_API.G_EXCEPTION_ERROR THEN
173: x_return_status := OKC_API.HANDLE_EXCEPTIONS
174: (substr(l_api_name,1,26),
168: RAISE OKC_API.G_EXCEPTION_ERROR;
169: END IF;
170: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
171: EXCEPTION
172: WHEN OKC_API.G_EXCEPTION_ERROR THEN
173: x_return_status := OKC_API.HANDLE_EXCEPTIONS
174: (substr(l_api_name,1,26),
175: G_PKG_NAME,
176: 'OKC_API.G_RET_STS_ERROR',
169: END IF;
170: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
171: EXCEPTION
172: WHEN OKC_API.G_EXCEPTION_ERROR THEN
173: x_return_status := OKC_API.HANDLE_EXCEPTIONS
174: (substr(l_api_name,1,26),
175: G_PKG_NAME,
176: 'OKC_API.G_RET_STS_ERROR',
177: x_msg_count,
172: WHEN OKC_API.G_EXCEPTION_ERROR THEN
173: x_return_status := OKC_API.HANDLE_EXCEPTIONS
174: (substr(l_api_name,1,26),
175: G_PKG_NAME,
176: 'OKC_API.G_RET_STS_ERROR',
177: x_msg_count,
178: x_msg_data,
179: '_PUB');
180: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
176: 'OKC_API.G_RET_STS_ERROR',
177: x_msg_count,
178: x_msg_data,
179: '_PUB');
180: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
181: x_return_status := OKC_API.HANDLE_EXCEPTIONS
182: (substr(l_api_name,1,26),
183: G_PKG_NAME,
184: 'OKC_API.G_RET_STS_UNEXP_ERROR',
177: x_msg_count,
178: x_msg_data,
179: '_PUB');
180: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
181: x_return_status := OKC_API.HANDLE_EXCEPTIONS
182: (substr(l_api_name,1,26),
183: G_PKG_NAME,
184: 'OKC_API.G_RET_STS_UNEXP_ERROR',
185: x_msg_count,
180: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
181: x_return_status := OKC_API.HANDLE_EXCEPTIONS
182: (substr(l_api_name,1,26),
183: G_PKG_NAME,
184: 'OKC_API.G_RET_STS_UNEXP_ERROR',
185: x_msg_count,
186: x_msg_data,
187: '_PUB');
188: WHEN OTHERS THEN
185: x_msg_count,
186: x_msg_data,
187: '_PUB');
188: WHEN OTHERS THEN
189: x_return_status := OKC_API.HANDLE_EXCEPTIONS
190: (substr(l_api_name,1,26),
191: G_PKG_NAME,
192: 'OTHERS',
193: x_msg_count,
202: x_msg_data OUT NOCOPY VARCHAR2,
203: p_prmv_tbl IN prmv_tbl_type,
204: x_prmv_tbl OUT NOCOPY prmv_tbl_type) is
205: i NUMBER;
206: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
207: begin
208: OKC_API.init_msg_list(p_init_msg_list);
209: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
210: if (p_prmv_tbl.COUNT>0) then
204: x_prmv_tbl OUT NOCOPY prmv_tbl_type) is
205: i NUMBER;
206: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
207: begin
208: OKC_API.init_msg_list(p_init_msg_list);
209: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
210: if (p_prmv_tbl.COUNT>0) then
211: i := p_prmv_tbl.FIRST;
212: LOOP
205: i NUMBER;
206: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
207: begin
208: OKC_API.init_msg_list(p_init_msg_list);
209: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
210: if (p_prmv_tbl.COUNT>0) then
211: i := p_prmv_tbl.FIRST;
212: LOOP
213: update_parameter(p_api_version=>p_api_version,
210: if (p_prmv_tbl.COUNT>0) then
211: i := p_prmv_tbl.FIRST;
212: LOOP
213: update_parameter(p_api_version=>p_api_version,
214: p_init_msg_list=>OKC_API.G_FALSE,
215: x_return_status=>l_return_status,
216: x_msg_count=>x_msg_count,
217: x_msg_data=>x_msg_data,
218: p_prmv_rec=>p_prmv_tbl(i),
216: x_msg_count=>x_msg_count,
217: x_msg_data=>x_msg_data,
218: p_prmv_rec=>p_prmv_tbl(i),
219: x_prmv_rec=>x_prmv_tbl(i));
220: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
221: x_return_status := l_return_status;
222: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
223: elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
224: x_return_status := l_return_status;
218: p_prmv_rec=>p_prmv_tbl(i),
219: x_prmv_rec=>x_prmv_tbl(i));
220: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
221: x_return_status := l_return_status;
222: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
223: elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
224: x_return_status := l_return_status;
225: end if;
226: EXIT WHEN (i=p_prmv_tbl.LAST);
219: x_prmv_rec=>x_prmv_tbl(i));
220: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
221: x_return_status := l_return_status;
222: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
223: elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
224: x_return_status := l_return_status;
225: end if;
226: EXIT WHEN (i=p_prmv_tbl.LAST);
227: i := p_prmv_tbl.NEXT(i);
238: x_msg_data OUT NOCOPY VARCHAR2,
239: p_prmv_rec IN prmv_rec_type) is
240: l_api_name CONSTANT VARCHAR2(30) := 'delete_parameter';
241: l_api_version CONSTANT NUMBER := 1;
242: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
243: begin
244: l_return_status := OKC_API.START_ACTIVITY(substr(l_api_name,1,26),
245: G_PKG_NAME,
246: p_init_msg_list,
240: l_api_name CONSTANT VARCHAR2(30) := 'delete_parameter';
241: l_api_version CONSTANT NUMBER := 1;
242: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
243: begin
244: l_return_status := OKC_API.START_ACTIVITY(substr(l_api_name,1,26),
245: G_PKG_NAME,
246: p_init_msg_list,
247: l_api_version,
248: p_api_version,
247: l_api_version,
248: p_api_version,
249: '_PUB',
250: x_return_status);
251: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
252: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
253: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
254: RAISE OKC_API.G_EXCEPTION_ERROR;
255: END IF;
248: p_api_version,
249: '_PUB',
250: x_return_status);
251: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
252: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
253: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
254: RAISE OKC_API.G_EXCEPTION_ERROR;
255: END IF;
256: OKC_PRM_PVT.delete_row(p_api_version,
249: '_PUB',
250: x_return_status);
251: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
252: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
253: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
254: RAISE OKC_API.G_EXCEPTION_ERROR;
255: END IF;
256: OKC_PRM_PVT.delete_row(p_api_version,
257: p_init_msg_list,
250: x_return_status);
251: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
252: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
253: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
254: RAISE OKC_API.G_EXCEPTION_ERROR;
255: END IF;
256: OKC_PRM_PVT.delete_row(p_api_version,
257: p_init_msg_list,
258: x_return_status,
258: x_return_status,
259: x_msg_count,
260: x_msg_data,
261: p_prmv_rec);
262: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
263: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
264: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
265: RAISE OKC_API.G_EXCEPTION_ERROR;
266: END IF;
259: x_msg_count,
260: x_msg_data,
261: p_prmv_rec);
262: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
263: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
264: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
265: RAISE OKC_API.G_EXCEPTION_ERROR;
266: END IF;
267: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
260: x_msg_data,
261: p_prmv_rec);
262: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
263: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
264: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
265: RAISE OKC_API.G_EXCEPTION_ERROR;
266: END IF;
267: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
268: EXCEPTION
261: p_prmv_rec);
262: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
263: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
264: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
265: RAISE OKC_API.G_EXCEPTION_ERROR;
266: END IF;
267: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
268: EXCEPTION
269: WHEN OKC_API.G_EXCEPTION_ERROR THEN
263: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
264: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
265: RAISE OKC_API.G_EXCEPTION_ERROR;
266: END IF;
267: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
268: EXCEPTION
269: WHEN OKC_API.G_EXCEPTION_ERROR THEN
270: x_return_status := OKC_API.HANDLE_EXCEPTIONS
271: (substr(l_api_name,1,26),
265: RAISE OKC_API.G_EXCEPTION_ERROR;
266: END IF;
267: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
268: EXCEPTION
269: WHEN OKC_API.G_EXCEPTION_ERROR THEN
270: x_return_status := OKC_API.HANDLE_EXCEPTIONS
271: (substr(l_api_name,1,26),
272: G_PKG_NAME,
273: 'OKC_API.G_RET_STS_ERROR',
266: END IF;
267: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
268: EXCEPTION
269: WHEN OKC_API.G_EXCEPTION_ERROR THEN
270: x_return_status := OKC_API.HANDLE_EXCEPTIONS
271: (substr(l_api_name,1,26),
272: G_PKG_NAME,
273: 'OKC_API.G_RET_STS_ERROR',
274: x_msg_count,
269: WHEN OKC_API.G_EXCEPTION_ERROR THEN
270: x_return_status := OKC_API.HANDLE_EXCEPTIONS
271: (substr(l_api_name,1,26),
272: G_PKG_NAME,
273: 'OKC_API.G_RET_STS_ERROR',
274: x_msg_count,
275: x_msg_data,
276: '_PUB');
277: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
273: 'OKC_API.G_RET_STS_ERROR',
274: x_msg_count,
275: x_msg_data,
276: '_PUB');
277: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
278: x_return_status := OKC_API.HANDLE_EXCEPTIONS
279: (substr(l_api_name,1,26),
280: G_PKG_NAME,
281: 'OKC_API.G_RET_STS_UNEXP_ERROR',
274: x_msg_count,
275: x_msg_data,
276: '_PUB');
277: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
278: x_return_status := OKC_API.HANDLE_EXCEPTIONS
279: (substr(l_api_name,1,26),
280: G_PKG_NAME,
281: 'OKC_API.G_RET_STS_UNEXP_ERROR',
282: x_msg_count,
277: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
278: x_return_status := OKC_API.HANDLE_EXCEPTIONS
279: (substr(l_api_name,1,26),
280: G_PKG_NAME,
281: 'OKC_API.G_RET_STS_UNEXP_ERROR',
282: x_msg_count,
283: x_msg_data,
284: '_PUB');
285: WHEN OTHERS THEN
282: x_msg_count,
283: x_msg_data,
284: '_PUB');
285: WHEN OTHERS THEN
286: x_return_status := OKC_API.HANDLE_EXCEPTIONS
287: (substr(l_api_name,1,26),
288: G_PKG_NAME,
289: 'OTHERS',
290: x_msg_count,
298: x_msg_count OUT NOCOPY NUMBER,
299: x_msg_data OUT NOCOPY VARCHAR2,
300: p_prmv_tbl IN prmv_tbl_type) is
301: i NUMBER;
302: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
303: begin
304: OKC_API.init_msg_list(p_init_msg_list);
305: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
306: if (p_prmv_tbl.COUNT>0) then
300: p_prmv_tbl IN prmv_tbl_type) is
301: i NUMBER;
302: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
303: begin
304: OKC_API.init_msg_list(p_init_msg_list);
305: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
306: if (p_prmv_tbl.COUNT>0) then
307: i := p_prmv_tbl.FIRST;
308: LOOP
301: i NUMBER;
302: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
303: begin
304: OKC_API.init_msg_list(p_init_msg_list);
305: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
306: if (p_prmv_tbl.COUNT>0) then
307: i := p_prmv_tbl.FIRST;
308: LOOP
309: delete_parameter(p_api_version=>p_api_version,
306: if (p_prmv_tbl.COUNT>0) then
307: i := p_prmv_tbl.FIRST;
308: LOOP
309: delete_parameter(p_api_version=>p_api_version,
310: p_init_msg_list=>OKC_API.G_FALSE,
311: x_return_status=>l_return_status,
312: x_msg_count=>x_msg_count,
313: x_msg_data=>x_msg_data,
314: p_prmv_rec=>p_prmv_tbl(i));
311: x_return_status=>l_return_status,
312: x_msg_count=>x_msg_count,
313: x_msg_data=>x_msg_data,
314: p_prmv_rec=>p_prmv_tbl(i));
315: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
316: x_return_status := l_return_status;
317: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
318: elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
319: x_return_status := l_return_status;
313: x_msg_data=>x_msg_data,
314: p_prmv_rec=>p_prmv_tbl(i));
315: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
316: x_return_status := l_return_status;
317: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
318: elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
319: x_return_status := l_return_status;
320: end if;
321: EXIT WHEN (i=p_prmv_tbl.LAST);
314: p_prmv_rec=>p_prmv_tbl(i));
315: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
316: x_return_status := l_return_status;
317: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
318: elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
319: x_return_status := l_return_status;
320: end if;
321: EXIT WHEN (i=p_prmv_tbl.LAST);
322: i := p_prmv_tbl.NEXT(i);
333: x_msg_data OUT NOCOPY VARCHAR2,
334: p_prmv_rec IN prmv_rec_type) is
335: l_api_name CONSTANT VARCHAR2(30) := 'lock_parameter';
336: l_api_version CONSTANT NUMBER := 1;
337: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
338: begin
339: l_return_status := OKC_API.START_ACTIVITY(substr(l_api_name,1,26),
340: G_PKG_NAME,
341: p_init_msg_list,
335: l_api_name CONSTANT VARCHAR2(30) := 'lock_parameter';
336: l_api_version CONSTANT NUMBER := 1;
337: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
338: begin
339: l_return_status := OKC_API.START_ACTIVITY(substr(l_api_name,1,26),
340: G_PKG_NAME,
341: p_init_msg_list,
342: l_api_version,
343: p_api_version,
342: l_api_version,
343: p_api_version,
344: '_PUB',
345: x_return_status);
346: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
347: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
348: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
349: RAISE OKC_API.G_EXCEPTION_ERROR;
350: END IF;
343: p_api_version,
344: '_PUB',
345: x_return_status);
346: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
347: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
348: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
349: RAISE OKC_API.G_EXCEPTION_ERROR;
350: END IF;
351: OKC_PRM_PVT.lock_row(
344: '_PUB',
345: x_return_status);
346: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
347: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
348: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
349: RAISE OKC_API.G_EXCEPTION_ERROR;
350: END IF;
351: OKC_PRM_PVT.lock_row(
352: p_init_msg_list,
345: x_return_status);
346: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
347: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
348: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
349: RAISE OKC_API.G_EXCEPTION_ERROR;
350: END IF;
351: OKC_PRM_PVT.lock_row(
352: p_init_msg_list,
353: x_return_status,
353: x_return_status,
354: x_msg_count,
355: x_msg_data,
356: p_prmv_rec);
357: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
358: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
359: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
360: RAISE OKC_API.G_EXCEPTION_ERROR;
361: END IF;
354: x_msg_count,
355: x_msg_data,
356: p_prmv_rec);
357: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
358: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
359: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
360: RAISE OKC_API.G_EXCEPTION_ERROR;
361: END IF;
362: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
355: x_msg_data,
356: p_prmv_rec);
357: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
358: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
359: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
360: RAISE OKC_API.G_EXCEPTION_ERROR;
361: END IF;
362: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
363: EXCEPTION
356: p_prmv_rec);
357: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
358: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
359: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
360: RAISE OKC_API.G_EXCEPTION_ERROR;
361: END IF;
362: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
363: EXCEPTION
364: WHEN OKC_API.G_EXCEPTION_ERROR THEN
358: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
359: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
360: RAISE OKC_API.G_EXCEPTION_ERROR;
361: END IF;
362: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
363: EXCEPTION
364: WHEN OKC_API.G_EXCEPTION_ERROR THEN
365: x_return_status := OKC_API.HANDLE_EXCEPTIONS
366: (substr(l_api_name,1,26),
360: RAISE OKC_API.G_EXCEPTION_ERROR;
361: END IF;
362: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
363: EXCEPTION
364: WHEN OKC_API.G_EXCEPTION_ERROR THEN
365: x_return_status := OKC_API.HANDLE_EXCEPTIONS
366: (substr(l_api_name,1,26),
367: G_PKG_NAME,
368: 'OKC_API.G_RET_STS_ERROR',
361: END IF;
362: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
363: EXCEPTION
364: WHEN OKC_API.G_EXCEPTION_ERROR THEN
365: x_return_status := OKC_API.HANDLE_EXCEPTIONS
366: (substr(l_api_name,1,26),
367: G_PKG_NAME,
368: 'OKC_API.G_RET_STS_ERROR',
369: x_msg_count,
364: WHEN OKC_API.G_EXCEPTION_ERROR THEN
365: x_return_status := OKC_API.HANDLE_EXCEPTIONS
366: (substr(l_api_name,1,26),
367: G_PKG_NAME,
368: 'OKC_API.G_RET_STS_ERROR',
369: x_msg_count,
370: x_msg_data,
371: '_PUB');
372: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
368: 'OKC_API.G_RET_STS_ERROR',
369: x_msg_count,
370: x_msg_data,
371: '_PUB');
372: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
373: x_return_status := OKC_API.HANDLE_EXCEPTIONS
374: (substr(l_api_name,1,26),
375: G_PKG_NAME,
376: 'OKC_API.G_RET_STS_UNEXP_ERROR',
369: x_msg_count,
370: x_msg_data,
371: '_PUB');
372: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
373: x_return_status := OKC_API.HANDLE_EXCEPTIONS
374: (substr(l_api_name,1,26),
375: G_PKG_NAME,
376: 'OKC_API.G_RET_STS_UNEXP_ERROR',
377: x_msg_count,
372: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
373: x_return_status := OKC_API.HANDLE_EXCEPTIONS
374: (substr(l_api_name,1,26),
375: G_PKG_NAME,
376: 'OKC_API.G_RET_STS_UNEXP_ERROR',
377: x_msg_count,
378: x_msg_data,
379: '_PUB');
380: WHEN OTHERS THEN
377: x_msg_count,
378: x_msg_data,
379: '_PUB');
380: WHEN OTHERS THEN
381: x_return_status := OKC_API.HANDLE_EXCEPTIONS
382: (substr(l_api_name,1,26),
383: G_PKG_NAME,
384: 'OTHERS',
385: x_msg_count,
393: x_msg_count OUT NOCOPY NUMBER,
394: x_msg_data OUT NOCOPY VARCHAR2,
395: p_prmv_tbl IN prmv_tbl_type) is
396: i NUMBER;
397: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
398: begin
399: OKC_API.init_msg_list(p_init_msg_list);
400: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
401: if (p_prmv_tbl.COUNT>0) then
395: p_prmv_tbl IN prmv_tbl_type) is
396: i NUMBER;
397: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
398: begin
399: OKC_API.init_msg_list(p_init_msg_list);
400: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
401: if (p_prmv_tbl.COUNT>0) then
402: i := p_prmv_tbl.FIRST;
403: LOOP
396: i NUMBER;
397: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
398: begin
399: OKC_API.init_msg_list(p_init_msg_list);
400: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
401: if (p_prmv_tbl.COUNT>0) then
402: i := p_prmv_tbl.FIRST;
403: LOOP
404: lock_parameter(p_api_version=>p_api_version,
401: if (p_prmv_tbl.COUNT>0) then
402: i := p_prmv_tbl.FIRST;
403: LOOP
404: lock_parameter(p_api_version=>p_api_version,
405: p_init_msg_list=>OKC_API.G_FALSE,
406: x_return_status=>l_return_status,
407: x_msg_count=>x_msg_count,
408: x_msg_data=>x_msg_data,
409: p_prmv_rec=>p_prmv_tbl(i));
406: x_return_status=>l_return_status,
407: x_msg_count=>x_msg_count,
408: x_msg_data=>x_msg_data,
409: p_prmv_rec=>p_prmv_tbl(i));
410: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
411: x_return_status := l_return_status;
412: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
413: elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
414: x_return_status := l_return_status;
408: x_msg_data=>x_msg_data,
409: p_prmv_rec=>p_prmv_tbl(i));
410: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
411: x_return_status := l_return_status;
412: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
413: elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
414: x_return_status := l_return_status;
415: end if;
416: EXIT WHEN (i=p_prmv_tbl.LAST);
409: p_prmv_rec=>p_prmv_tbl(i));
410: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
411: x_return_status := l_return_status;
412: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
413: elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
414: x_return_status := l_return_status;
415: end if;
416: EXIT WHEN (i=p_prmv_tbl.LAST);
417: i := p_prmv_tbl.NEXT(i);