13: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(30) := 'OKL_UNEXPECTED_ERROR';
14: G_SQLERRM_TOKEN CONSTANT VARCHAR2(30) := 'OKL_SQLERRM';
15: G_SQLCODE_TOKEN CONSTANT VARCHAR2(30) := 'OKL_SQLCODE';
16:
17: G_NO_INIT_MSG CONSTANT VARCHAR2(1) := OKL_API.G_FALSE;
18: G_VIEW CONSTANT VARCHAR2(30) := 'OKL_TRX_AP_INVOICES_V';
19:
20: G_FND_APP CONSTANT VARCHAR2(30) := OKL_API.G_FND_APP;
21: G_FORM_UNABLE_TO_RESERVE_REC CONSTANT VARCHAR2(30) := OKL_API.G_FORM_UNABLE_TO_RESERVE_REC;
16:
17: G_NO_INIT_MSG CONSTANT VARCHAR2(1) := OKL_API.G_FALSE;
18: G_VIEW CONSTANT VARCHAR2(30) := 'OKL_TRX_AP_INVOICES_V';
19:
20: G_FND_APP CONSTANT VARCHAR2(30) := OKL_API.G_FND_APP;
21: G_FORM_UNABLE_TO_RESERVE_REC CONSTANT VARCHAR2(30) := OKL_API.G_FORM_UNABLE_TO_RESERVE_REC;
22: G_FORM_RECORD_DELETED CONSTANT VARCHAR2(30) := OKL_API.G_FORM_RECORD_DELETED;
23: G_FORM_RECORD_CHANGED CONSTANT VARCHAR2(30) := OKL_API.G_FORM_RECORD_CHANGED;
24: G_RECORD_LOGICALLY_DELETED CONSTANT VARCHAR2(30) := OKL_API.G_RECORD_LOGICALLY_DELETED;
17: G_NO_INIT_MSG CONSTANT VARCHAR2(1) := OKL_API.G_FALSE;
18: G_VIEW CONSTANT VARCHAR2(30) := 'OKL_TRX_AP_INVOICES_V';
19:
20: G_FND_APP CONSTANT VARCHAR2(30) := OKL_API.G_FND_APP;
21: G_FORM_UNABLE_TO_RESERVE_REC CONSTANT VARCHAR2(30) := OKL_API.G_FORM_UNABLE_TO_RESERVE_REC;
22: G_FORM_RECORD_DELETED CONSTANT VARCHAR2(30) := OKL_API.G_FORM_RECORD_DELETED;
23: G_FORM_RECORD_CHANGED CONSTANT VARCHAR2(30) := OKL_API.G_FORM_RECORD_CHANGED;
24: G_RECORD_LOGICALLY_DELETED CONSTANT VARCHAR2(30) := OKL_API.G_RECORD_LOGICALLY_DELETED;
25: G_REQUIRED_VALUE CONSTANT VARCHAR2(30) := OKL_API.G_REQUIRED_VALUE;
18: G_VIEW CONSTANT VARCHAR2(30) := 'OKL_TRX_AP_INVOICES_V';
19:
20: G_FND_APP CONSTANT VARCHAR2(30) := OKL_API.G_FND_APP;
21: G_FORM_UNABLE_TO_RESERVE_REC CONSTANT VARCHAR2(30) := OKL_API.G_FORM_UNABLE_TO_RESERVE_REC;
22: G_FORM_RECORD_DELETED CONSTANT VARCHAR2(30) := OKL_API.G_FORM_RECORD_DELETED;
23: G_FORM_RECORD_CHANGED CONSTANT VARCHAR2(30) := OKL_API.G_FORM_RECORD_CHANGED;
24: G_RECORD_LOGICALLY_DELETED CONSTANT VARCHAR2(30) := OKL_API.G_RECORD_LOGICALLY_DELETED;
25: G_REQUIRED_VALUE CONSTANT VARCHAR2(30) := OKL_API.G_REQUIRED_VALUE;
26: G_INVALID_VALUE CONSTANT VARCHAR2(30) := OKL_API.G_INVALID_VALUE;
19:
20: G_FND_APP CONSTANT VARCHAR2(30) := OKL_API.G_FND_APP;
21: G_FORM_UNABLE_TO_RESERVE_REC CONSTANT VARCHAR2(30) := OKL_API.G_FORM_UNABLE_TO_RESERVE_REC;
22: G_FORM_RECORD_DELETED CONSTANT VARCHAR2(30) := OKL_API.G_FORM_RECORD_DELETED;
23: G_FORM_RECORD_CHANGED CONSTANT VARCHAR2(30) := OKL_API.G_FORM_RECORD_CHANGED;
24: G_RECORD_LOGICALLY_DELETED CONSTANT VARCHAR2(30) := OKL_API.G_RECORD_LOGICALLY_DELETED;
25: G_REQUIRED_VALUE CONSTANT VARCHAR2(30) := OKL_API.G_REQUIRED_VALUE;
26: G_INVALID_VALUE CONSTANT VARCHAR2(30) := OKL_API.G_INVALID_VALUE;
27: G_COL_NAME_TOKEN CONSTANT VARCHAR2(30) := OKL_API.G_COL_NAME_TOKEN;
20: G_FND_APP CONSTANT VARCHAR2(30) := OKL_API.G_FND_APP;
21: G_FORM_UNABLE_TO_RESERVE_REC CONSTANT VARCHAR2(30) := OKL_API.G_FORM_UNABLE_TO_RESERVE_REC;
22: G_FORM_RECORD_DELETED CONSTANT VARCHAR2(30) := OKL_API.G_FORM_RECORD_DELETED;
23: G_FORM_RECORD_CHANGED CONSTANT VARCHAR2(30) := OKL_API.G_FORM_RECORD_CHANGED;
24: G_RECORD_LOGICALLY_DELETED CONSTANT VARCHAR2(30) := OKL_API.G_RECORD_LOGICALLY_DELETED;
25: G_REQUIRED_VALUE CONSTANT VARCHAR2(30) := OKL_API.G_REQUIRED_VALUE;
26: G_INVALID_VALUE CONSTANT VARCHAR2(30) := OKL_API.G_INVALID_VALUE;
27: G_COL_NAME_TOKEN CONSTANT VARCHAR2(30) := OKL_API.G_COL_NAME_TOKEN;
28: G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(30) := OKL_API.G_PARENT_TABLE_TOKEN;
21: G_FORM_UNABLE_TO_RESERVE_REC CONSTANT VARCHAR2(30) := OKL_API.G_FORM_UNABLE_TO_RESERVE_REC;
22: G_FORM_RECORD_DELETED CONSTANT VARCHAR2(30) := OKL_API.G_FORM_RECORD_DELETED;
23: G_FORM_RECORD_CHANGED CONSTANT VARCHAR2(30) := OKL_API.G_FORM_RECORD_CHANGED;
24: G_RECORD_LOGICALLY_DELETED CONSTANT VARCHAR2(30) := OKL_API.G_RECORD_LOGICALLY_DELETED;
25: G_REQUIRED_VALUE CONSTANT VARCHAR2(30) := OKL_API.G_REQUIRED_VALUE;
26: G_INVALID_VALUE CONSTANT VARCHAR2(30) := OKL_API.G_INVALID_VALUE;
27: G_COL_NAME_TOKEN CONSTANT VARCHAR2(30) := OKL_API.G_COL_NAME_TOKEN;
28: G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(30) := OKL_API.G_PARENT_TABLE_TOKEN;
29: G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(30) := OKL_API.G_CHILD_TABLE_TOKEN;
22: G_FORM_RECORD_DELETED CONSTANT VARCHAR2(30) := OKL_API.G_FORM_RECORD_DELETED;
23: G_FORM_RECORD_CHANGED CONSTANT VARCHAR2(30) := OKL_API.G_FORM_RECORD_CHANGED;
24: G_RECORD_LOGICALLY_DELETED CONSTANT VARCHAR2(30) := OKL_API.G_RECORD_LOGICALLY_DELETED;
25: G_REQUIRED_VALUE CONSTANT VARCHAR2(30) := OKL_API.G_REQUIRED_VALUE;
26: G_INVALID_VALUE CONSTANT VARCHAR2(30) := OKL_API.G_INVALID_VALUE;
27: G_COL_NAME_TOKEN CONSTANT VARCHAR2(30) := OKL_API.G_COL_NAME_TOKEN;
28: G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(30) := OKL_API.G_PARENT_TABLE_TOKEN;
29: G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(30) := OKL_API.G_CHILD_TABLE_TOKEN;
30: G_NO_PARENT_RECORD CONSTANT VARCHAR2(30) :='OKL_NO_PARENT_RECORD';
23: G_FORM_RECORD_CHANGED CONSTANT VARCHAR2(30) := OKL_API.G_FORM_RECORD_CHANGED;
24: G_RECORD_LOGICALLY_DELETED CONSTANT VARCHAR2(30) := OKL_API.G_RECORD_LOGICALLY_DELETED;
25: G_REQUIRED_VALUE CONSTANT VARCHAR2(30) := OKL_API.G_REQUIRED_VALUE;
26: G_INVALID_VALUE CONSTANT VARCHAR2(30) := OKL_API.G_INVALID_VALUE;
27: G_COL_NAME_TOKEN CONSTANT VARCHAR2(30) := OKL_API.G_COL_NAME_TOKEN;
28: G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(30) := OKL_API.G_PARENT_TABLE_TOKEN;
29: G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(30) := OKL_API.G_CHILD_TABLE_TOKEN;
30: G_NO_PARENT_RECORD CONSTANT VARCHAR2(30) :='OKL_NO_PARENT_RECORD';
31: G_NOT_SAME CONSTANT VARCHAR2(30) :='OKL_CANNOT_BE_SAME';
24: G_RECORD_LOGICALLY_DELETED CONSTANT VARCHAR2(30) := OKL_API.G_RECORD_LOGICALLY_DELETED;
25: G_REQUIRED_VALUE CONSTANT VARCHAR2(30) := OKL_API.G_REQUIRED_VALUE;
26: G_INVALID_VALUE CONSTANT VARCHAR2(30) := OKL_API.G_INVALID_VALUE;
27: G_COL_NAME_TOKEN CONSTANT VARCHAR2(30) := OKL_API.G_COL_NAME_TOKEN;
28: G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(30) := OKL_API.G_PARENT_TABLE_TOKEN;
29: G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(30) := OKL_API.G_CHILD_TABLE_TOKEN;
30: G_NO_PARENT_RECORD CONSTANT VARCHAR2(30) :='OKL_NO_PARENT_RECORD';
31: G_NOT_SAME CONSTANT VARCHAR2(30) :='OKL_CANNOT_BE_SAME';
32:
25: G_REQUIRED_VALUE CONSTANT VARCHAR2(30) := OKL_API.G_REQUIRED_VALUE;
26: G_INVALID_VALUE CONSTANT VARCHAR2(30) := OKL_API.G_INVALID_VALUE;
27: G_COL_NAME_TOKEN CONSTANT VARCHAR2(30) := OKL_API.G_COL_NAME_TOKEN;
28: G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(30) := OKL_API.G_PARENT_TABLE_TOKEN;
29: G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(30) := OKL_API.G_CHILD_TABLE_TOKEN;
30: G_NO_PARENT_RECORD CONSTANT VARCHAR2(30) :='OKL_NO_PARENT_RECORD';
31: G_NOT_SAME CONSTANT VARCHAR2(30) :='OKL_CANNOT_BE_SAME';
32:
33: G_PREFUNDING_TYPE CONSTANT VARCHAR2(30) :='PREFUNDING';
44: ----------------------------------------------------------------------------
45: ----------------------------------------------------------------------------
46: PROCEDURE create_funding_header(
47: p_api_version IN NUMBER
48: ,p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE
49: ,x_return_status OUT NOCOPY VARCHAR2
50: ,x_msg_count OUT NOCOPY NUMBER
51: ,x_msg_data OUT NOCOPY VARCHAR2
52: ,p_tapv_rec IN tapv_rec_type
56: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_FUNDING_HEADER';
57: l_api_version CONSTANT NUMBER := 1.0;
58: l_tapv_rec tapv_rec_type := p_tapv_rec;
59: i NUMBER;
60: l_dummy VARCHAR2(1) := OKL_API.G_TRUE;
61:
62: BEGIN
63: -- Set API savepoint
64: SAVEPOINT CREATE_FUNDING_HEADER_PUB;
68: p_api_version,
69: l_api_name,
70: G_PKG_NAME ))
71: THEN
72: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
73: END IF;
74:
75: -- Initialize message list if requested
76: IF (FND_API.to_Boolean(p_init_msg_list)) THEN
77: FND_MSG_PUB.initialize;
78: END IF;
79:
80: -- Initialize API status to success
81: x_return_status := OKL_API.G_RET_STS_SUCCESS;
82:
83: /*
84:
85: */
94: x_msg_data => x_msg_data,
95: p_tapv_rec => l_tapv_rec,
96: x_tapv_rec => x_tapv_rec);
97:
98: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
99: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
100: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
101: RAISE OKL_API.G_EXCEPTION_ERROR;
102: END IF;
95: p_tapv_rec => l_tapv_rec,
96: x_tapv_rec => x_tapv_rec);
97:
98: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
99: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
100: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
101: RAISE OKL_API.G_EXCEPTION_ERROR;
102: END IF;
103:
96: x_tapv_rec => x_tapv_rec);
97:
98: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
99: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
100: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
101: RAISE OKL_API.G_EXCEPTION_ERROR;
102: END IF;
103:
104:
97:
98: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
99: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
100: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
101: RAISE OKL_API.G_EXCEPTION_ERROR;
102: END IF;
103:
104:
105: /*** End API body ******************************************************/
112: (p_count => x_msg_count,
113: p_data => x_msg_data);
114:
115: EXCEPTION
116: WHEN OKL_API.G_EXCEPTION_ERROR THEN
117: ROLLBACK TO CREATE_FUNDING_HEADER_PUB;
118: x_return_status := OKL_API.G_RET_STS_ERROR;
119: FND_MSG_PUB.Count_And_Get
120: (p_count => x_msg_count,
114:
115: EXCEPTION
116: WHEN OKL_API.G_EXCEPTION_ERROR THEN
117: ROLLBACK TO CREATE_FUNDING_HEADER_PUB;
118: x_return_status := OKL_API.G_RET_STS_ERROR;
119: FND_MSG_PUB.Count_And_Get
120: (p_count => x_msg_count,
121: p_data => x_msg_data);
122:
119: FND_MSG_PUB.Count_And_Get
120: (p_count => x_msg_count,
121: p_data => x_msg_data);
122:
123: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
124: ROLLBACK TO CREATE_FUNDING_HEADER_PUB;
125: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
126: FND_MSG_PUB.Count_And_Get
127: (p_count => x_msg_count,
121: p_data => x_msg_data);
122:
123: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
124: ROLLBACK TO CREATE_FUNDING_HEADER_PUB;
125: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
126: FND_MSG_PUB.Count_And_Get
127: (p_count => x_msg_count,
128: p_data => x_msg_data);
129:
128: p_data => x_msg_data);
129:
130: WHEN OTHERS THEN
131: ROLLBACK TO CREATE_FUNDING_HEADER_PUB;
132: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
133: OKL_API.Set_Message(p_app_name => G_APP_NAME,
134: p_msg_name => G_UNEXPECTED_ERROR,
135: p_token1 => G_SQLCODE_TOKEN,
136: p_token1_value => SQLCODE,
129:
130: WHEN OTHERS THEN
131: ROLLBACK TO CREATE_FUNDING_HEADER_PUB;
132: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
133: OKL_API.Set_Message(p_app_name => G_APP_NAME,
134: p_msg_name => G_UNEXPECTED_ERROR,
135: p_token1 => G_SQLCODE_TOKEN,
136: p_token1_value => SQLCODE,
137: p_token2 => G_SQLERRM_TOKEN,
144: ----------------------------------------------------------------------------
145:
146: PROCEDURE update_funding_header(
147: p_api_version IN NUMBER
148: ,p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE
149: ,x_return_status OUT NOCOPY VARCHAR2
150: ,x_msg_count OUT NOCOPY NUMBER
151: ,x_msg_data OUT NOCOPY VARCHAR2
152: ,p_tapv_rec IN tapv_rec_type
156: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_FUNDING_HEADER';
157: l_api_version CONSTANT NUMBER := 1.0;
158: l_tapv_rec tapv_rec_type := p_tapv_rec;
159: i NUMBER;
160: l_dummy VARCHAR2(1) := OKL_API.G_TRUE;
161:
162: BEGIN
163: -- Set API savepoint
164: SAVEPOINT UPDATE_FUNDING_HEADER_PUB;
168: p_api_version,
169: l_api_name,
170: G_PKG_NAME ))
171: THEN
172: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
173: END IF;
174:
175: -- Initialize message list if requested
176: IF (FND_API.to_Boolean(p_init_msg_list)) THEN
177: FND_MSG_PUB.initialize;
178: END IF;
179:
180: -- Initialize API status to success
181: x_return_status := OKL_API.G_RET_STS_SUCCESS;
182:
183: /*
184:
185: */
194: x_msg_data => x_msg_data,
195: p_tapv_rec => l_tapv_rec,
196: x_tapv_rec => x_tapv_rec);
197:
198: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
199: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
200: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
201: RAISE OKL_API.G_EXCEPTION_ERROR;
202: END IF;
195: p_tapv_rec => l_tapv_rec,
196: x_tapv_rec => x_tapv_rec);
197:
198: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
199: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
200: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
201: RAISE OKL_API.G_EXCEPTION_ERROR;
202: END IF;
203:
196: x_tapv_rec => x_tapv_rec);
197:
198: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
199: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
200: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
201: RAISE OKL_API.G_EXCEPTION_ERROR;
202: END IF;
203:
204:
197:
198: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
199: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
200: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
201: RAISE OKL_API.G_EXCEPTION_ERROR;
202: END IF;
203:
204:
205: /*** End API body ******************************************************/
212: (p_count => x_msg_count,
213: p_data => x_msg_data);
214:
215: EXCEPTION
216: WHEN OKL_API.G_EXCEPTION_ERROR THEN
217: ROLLBACK TO UPDATE_FUNDING_HEADER_PUB;
218: x_return_status := OKL_API.G_RET_STS_ERROR;
219: FND_MSG_PUB.Count_And_Get
220: (p_count => x_msg_count,
214:
215: EXCEPTION
216: WHEN OKL_API.G_EXCEPTION_ERROR THEN
217: ROLLBACK TO UPDATE_FUNDING_HEADER_PUB;
218: x_return_status := OKL_API.G_RET_STS_ERROR;
219: FND_MSG_PUB.Count_And_Get
220: (p_count => x_msg_count,
221: p_data => x_msg_data);
222:
219: FND_MSG_PUB.Count_And_Get
220: (p_count => x_msg_count,
221: p_data => x_msg_data);
222:
223: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
224: ROLLBACK TO UPDATE_FUNDING_HEADER_PUB;
225: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
226: FND_MSG_PUB.Count_And_Get
227: (p_count => x_msg_count,
221: p_data => x_msg_data);
222:
223: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
224: ROLLBACK TO UPDATE_FUNDING_HEADER_PUB;
225: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
226: FND_MSG_PUB.Count_And_Get
227: (p_count => x_msg_count,
228: p_data => x_msg_data);
229:
228: p_data => x_msg_data);
229:
230: WHEN OTHERS THEN
231: ROLLBACK TO UPDATE_FUNDING_HEADER_PUB;
232: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
233: OKL_API.Set_Message(p_app_name => G_APP_NAME,
234: p_msg_name => G_UNEXPECTED_ERROR,
235: p_token1 => G_SQLCODE_TOKEN,
236: p_token1_value => SQLCODE,
229:
230: WHEN OTHERS THEN
231: ROLLBACK TO UPDATE_FUNDING_HEADER_PUB;
232: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
233: OKL_API.Set_Message(p_app_name => G_APP_NAME,
234: p_msg_name => G_UNEXPECTED_ERROR,
235: p_token1 => G_SQLCODE_TOKEN,
236: p_token1_value => SQLCODE,
237: p_token2 => G_SQLERRM_TOKEN,
245: ----------------------------------------------------------------------------
246:
247: PROCEDURE delete_funding_header(
248: p_api_version IN NUMBER
249: ,p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE
250: ,x_return_status OUT NOCOPY VARCHAR2
251: ,x_msg_count OUT NOCOPY NUMBER
252: ,x_msg_data OUT NOCOPY VARCHAR2
253: ,p_tapv_rec IN tapv_rec_type
265: p_api_version,
266: l_api_name,
267: G_PKG_NAME ))
268: THEN
269: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
270: END IF;
271:
272: -- Initialize message list if requested
273: IF (FND_API.to_Boolean(p_init_msg_list)) THEN
274: FND_MSG_PUB.initialize;
275: END IF;
276:
277: -- Initialize API status to success
278: x_return_status := OKL_API.G_RET_STS_SUCCESS;
279:
280: /*
281:
282: */
291: x_msg_count => x_msg_count,
292: x_msg_data => x_msg_data,
293: p_tapv_rec => p_tapv_rec);
294:
295: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
296: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
297: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
298: RAISE OKL_API.G_EXCEPTION_ERROR;
299: END IF;
292: x_msg_data => x_msg_data,
293: p_tapv_rec => p_tapv_rec);
294:
295: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
296: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
297: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
298: RAISE OKL_API.G_EXCEPTION_ERROR;
299: END IF;
300:
293: p_tapv_rec => p_tapv_rec);
294:
295: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
296: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
297: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
298: RAISE OKL_API.G_EXCEPTION_ERROR;
299: END IF;
300:
301: /*** End API body ******************************************************/
294:
295: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
296: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
297: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
298: RAISE OKL_API.G_EXCEPTION_ERROR;
299: END IF;
300:
301: /*** End API body ******************************************************/
302:
308: (p_count => x_msg_count,
309: p_data => x_msg_data);
310:
311: EXCEPTION
312: WHEN OKL_API.G_EXCEPTION_ERROR THEN
313: ROLLBACK TO DELETE_FUNDING_HEADER_PUB;
314: x_return_status := OKL_API.G_RET_STS_ERROR;
315: FND_MSG_PUB.Count_And_Get
316: (p_count => x_msg_count,
310:
311: EXCEPTION
312: WHEN OKL_API.G_EXCEPTION_ERROR THEN
313: ROLLBACK TO DELETE_FUNDING_HEADER_PUB;
314: x_return_status := OKL_API.G_RET_STS_ERROR;
315: FND_MSG_PUB.Count_And_Get
316: (p_count => x_msg_count,
317: p_data => x_msg_data);
318:
315: FND_MSG_PUB.Count_And_Get
316: (p_count => x_msg_count,
317: p_data => x_msg_data);
318:
319: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
320: ROLLBACK TO DELETE_FUNDING_HEADER_PUB;
321: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
322: FND_MSG_PUB.Count_And_Get
323: (p_count => x_msg_count,
317: p_data => x_msg_data);
318:
319: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
320: ROLLBACK TO DELETE_FUNDING_HEADER_PUB;
321: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
322: FND_MSG_PUB.Count_And_Get
323: (p_count => x_msg_count,
324: p_data => x_msg_data);
325:
324: p_data => x_msg_data);
325:
326: WHEN OTHERS THEN
327: ROLLBACK TO DELETE_FUNDING_HEADER_PUB;
328: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
329: OKL_API.Set_Message(p_app_name => G_APP_NAME,
330: p_msg_name => G_UNEXPECTED_ERROR,
331: p_token1 => G_SQLCODE_TOKEN,
332: p_token1_value => SQLCODE,
325:
326: WHEN OTHERS THEN
327: ROLLBACK TO DELETE_FUNDING_HEADER_PUB;
328: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
329: OKL_API.Set_Message(p_app_name => G_APP_NAME,
330: p_msg_name => G_UNEXPECTED_ERROR,
331: p_token1 => G_SQLCODE_TOKEN,
332: p_token1_value => SQLCODE,
333: p_token2 => G_SQLERRM_TOKEN,
340: ----------------------------------------------------------------------------
341:
342: PROCEDURE create_funding_lines(
343: p_api_version IN NUMBER
344: ,p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE
345: ,x_return_status OUT NOCOPY VARCHAR2
346: ,x_msg_count OUT NOCOPY NUMBER
347: ,x_msg_data OUT NOCOPY VARCHAR2
348: ,p_tplv_tbl IN tplv_tbl_type
352: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_FUNDING_LINES';
353: l_api_version CONSTANT NUMBER := 1.0;
354: l_tplv_tbl tplv_tbl_type := p_tplv_tbl;
355: i NUMBER;
356: l_dummy VARCHAR2(1) := OKL_API.G_TRUE;
357:
358: BEGIN
359: -- Set API savepoint
360: SAVEPOINT CREATE_FUNDING_LINES_PUB;
364: p_api_version,
365: l_api_name,
366: G_PKG_NAME ))
367: THEN
368: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
369: END IF;
370:
371: -- Initialize message list if requested
372: IF (FND_API.to_Boolean(p_init_msg_list)) THEN
373: FND_MSG_PUB.initialize;
374: END IF;
375:
376: -- Initialize API status to success
377: x_return_status := OKL_API.G_RET_STS_SUCCESS;
378:
379: /*
380:
381: */
390: x_msg_data => x_msg_data,
391: p_tplv_tbl => l_tplv_tbl,
392: x_tplv_tbl => x_tplv_tbl);
393:
394: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
395: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
396: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
397: RAISE OKL_API.G_EXCEPTION_ERROR;
398: END IF;
391: p_tplv_tbl => l_tplv_tbl,
392: x_tplv_tbl => x_tplv_tbl);
393:
394: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
395: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
396: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
397: RAISE OKL_API.G_EXCEPTION_ERROR;
398: END IF;
399:
392: x_tplv_tbl => x_tplv_tbl);
393:
394: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
395: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
396: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
397: RAISE OKL_API.G_EXCEPTION_ERROR;
398: END IF;
399:
400:
393:
394: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
395: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
396: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
397: RAISE OKL_API.G_EXCEPTION_ERROR;
398: END IF;
399:
400:
401: /*** End API body ******************************************************/
408: (p_count => x_msg_count,
409: p_data => x_msg_data);
410:
411: EXCEPTION
412: WHEN OKL_API.G_EXCEPTION_ERROR THEN
413: ROLLBACK TO CREATE_FUNDING_LINES_PUB;
414: x_return_status := OKL_API.G_RET_STS_ERROR;
415: FND_MSG_PUB.Count_And_Get
416: (p_count => x_msg_count,
410:
411: EXCEPTION
412: WHEN OKL_API.G_EXCEPTION_ERROR THEN
413: ROLLBACK TO CREATE_FUNDING_LINES_PUB;
414: x_return_status := OKL_API.G_RET_STS_ERROR;
415: FND_MSG_PUB.Count_And_Get
416: (p_count => x_msg_count,
417: p_data => x_msg_data);
418:
415: FND_MSG_PUB.Count_And_Get
416: (p_count => x_msg_count,
417: p_data => x_msg_data);
418:
419: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
420: ROLLBACK TO CREATE_FUNDING_LINES_PUB;
421: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
422: FND_MSG_PUB.Count_And_Get
423: (p_count => x_msg_count,
417: p_data => x_msg_data);
418:
419: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
420: ROLLBACK TO CREATE_FUNDING_LINES_PUB;
421: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
422: FND_MSG_PUB.Count_And_Get
423: (p_count => x_msg_count,
424: p_data => x_msg_data);
425:
424: p_data => x_msg_data);
425:
426: WHEN OTHERS THEN
427: ROLLBACK TO CREATE_FUNDING_LINES_PUB;
428: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
429: OKL_API.Set_Message(p_app_name => G_APP_NAME,
430: p_msg_name => G_UNEXPECTED_ERROR,
431: p_token1 => G_SQLCODE_TOKEN,
432: p_token1_value => SQLCODE,
425:
426: WHEN OTHERS THEN
427: ROLLBACK TO CREATE_FUNDING_LINES_PUB;
428: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
429: OKL_API.Set_Message(p_app_name => G_APP_NAME,
430: p_msg_name => G_UNEXPECTED_ERROR,
431: p_token1 => G_SQLCODE_TOKEN,
432: p_token1_value => SQLCODE,
433: p_token2 => G_SQLERRM_TOKEN,
445: ----------------------------------------------------------------------------
446:
447: PROCEDURE create_funding_lines(
448: p_api_version IN NUMBER
449: ,p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE
450: ,x_return_status OUT NOCOPY VARCHAR2
451: ,x_msg_count OUT NOCOPY NUMBER
452: ,x_msg_data OUT NOCOPY VARCHAR2
453: ,p_hdr_id IN NUMBER
457: )
458: IS
459: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_FUNDING_LINES';
460: l_api_version CONSTANT NUMBER := 1.0;
461: l_dummy VARCHAR2(1) := OKL_API.G_TRUE;
462:
463: BEGIN
464: -- Set API savepoint
465: SAVEPOINT CREATE_FUNDING_LINES_PUB;
469: p_api_version,
470: l_api_name,
471: G_PKG_NAME ))
472: THEN
473: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
474: END IF;
475:
476: -- Initialize message list if requested
477: IF (FND_API.to_Boolean(p_init_msg_list)) THEN
478: FND_MSG_PUB.initialize;
479: END IF;
480:
481: -- Initialize API status to success
482: x_return_status := OKL_API.G_RET_STS_SUCCESS;
483:
484: /*
485:
486: */
497: p_khr_id => p_khr_id,
498: p_vendor_site_id => p_vendor_site_id,
499: x_tplv_tbl => x_tplv_tbl);
500:
501: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
502: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
503: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
504: RAISE OKL_API.G_EXCEPTION_ERROR;
505: END IF;
498: p_vendor_site_id => p_vendor_site_id,
499: x_tplv_tbl => x_tplv_tbl);
500:
501: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
502: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
503: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
504: RAISE OKL_API.G_EXCEPTION_ERROR;
505: END IF;
506:
499: x_tplv_tbl => x_tplv_tbl);
500:
501: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
502: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
503: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
504: RAISE OKL_API.G_EXCEPTION_ERROR;
505: END IF;
506:
507:
500:
501: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
502: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
503: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
504: RAISE OKL_API.G_EXCEPTION_ERROR;
505: END IF;
506:
507:
508: /*** End API body ******************************************************/
515: (p_count => x_msg_count,
516: p_data => x_msg_data);
517:
518: EXCEPTION
519: WHEN OKL_API.G_EXCEPTION_ERROR THEN
520: ROLLBACK TO CREATE_FUNDING_LINES_PUB;
521: x_return_status := OKL_API.G_RET_STS_ERROR;
522: FND_MSG_PUB.Count_And_Get
523: (p_count => x_msg_count,
517:
518: EXCEPTION
519: WHEN OKL_API.G_EXCEPTION_ERROR THEN
520: ROLLBACK TO CREATE_FUNDING_LINES_PUB;
521: x_return_status := OKL_API.G_RET_STS_ERROR;
522: FND_MSG_PUB.Count_And_Get
523: (p_count => x_msg_count,
524: p_data => x_msg_data);
525:
522: FND_MSG_PUB.Count_And_Get
523: (p_count => x_msg_count,
524: p_data => x_msg_data);
525:
526: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
527: ROLLBACK TO CREATE_FUNDING_LINES_PUB;
528: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
529: FND_MSG_PUB.Count_And_Get
530: (p_count => x_msg_count,
524: p_data => x_msg_data);
525:
526: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
527: ROLLBACK TO CREATE_FUNDING_LINES_PUB;
528: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
529: FND_MSG_PUB.Count_And_Get
530: (p_count => x_msg_count,
531: p_data => x_msg_data);
532:
531: p_data => x_msg_data);
532:
533: WHEN OTHERS THEN
534: ROLLBACK TO CREATE_FUNDING_LINES_PUB;
535: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
536: OKL_API.Set_Message(p_app_name => G_APP_NAME,
537: p_msg_name => G_UNEXPECTED_ERROR,
538: p_token1 => G_SQLCODE_TOKEN,
539: p_token1_value => SQLCODE,
532:
533: WHEN OTHERS THEN
534: ROLLBACK TO CREATE_FUNDING_LINES_PUB;
535: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
536: OKL_API.Set_Message(p_app_name => G_APP_NAME,
537: p_msg_name => G_UNEXPECTED_ERROR,
538: p_token1 => G_SQLCODE_TOKEN,
539: p_token1_value => SQLCODE,
540: p_token2 => G_SQLERRM_TOKEN,
551:
552:
553: PROCEDURE update_funding_lines(
554: p_api_version IN NUMBER
555: ,p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE
556: ,x_return_status OUT NOCOPY VARCHAR2
557: ,x_msg_count OUT NOCOPY NUMBER
558: ,x_msg_data OUT NOCOPY VARCHAR2
559: ,p_tplv_tbl IN tplv_tbl_type
563: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_FUNDING_LINES';
564: l_api_version CONSTANT NUMBER := 1.0;
565: l_tplv_tbl tplv_tbl_type := p_tplv_tbl;
566: i NUMBER;
567: l_dummy VARCHAR2(1) := OKL_API.G_TRUE;
568:
569: BEGIN
570: -- Set API savepoint
571: SAVEPOINT UPDATE_FUNDING_LINES_PUB;
575: p_api_version,
576: l_api_name,
577: G_PKG_NAME ))
578: THEN
579: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
580: END IF;
581:
582: -- Initialize message list if requested
583: IF (FND_API.to_Boolean(p_init_msg_list)) THEN
584: FND_MSG_PUB.initialize;
585: END IF;
586:
587: -- Initialize API status to success
588: x_return_status := OKL_API.G_RET_STS_SUCCESS;
589:
590: /*
591:
592: */
601: x_msg_data => x_msg_data,
602: p_tplv_tbl => l_tplv_tbl,
603: x_tplv_tbl => x_tplv_tbl);
604:
605: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
606: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
607: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
608: RAISE OKL_API.G_EXCEPTION_ERROR;
609: END IF;
602: p_tplv_tbl => l_tplv_tbl,
603: x_tplv_tbl => x_tplv_tbl);
604:
605: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
606: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
607: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
608: RAISE OKL_API.G_EXCEPTION_ERROR;
609: END IF;
610:
603: x_tplv_tbl => x_tplv_tbl);
604:
605: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
606: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
607: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
608: RAISE OKL_API.G_EXCEPTION_ERROR;
609: END IF;
610:
611:
604:
605: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
606: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
607: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
608: RAISE OKL_API.G_EXCEPTION_ERROR;
609: END IF;
610:
611:
612: /*** End API body ******************************************************/
619: (p_count => x_msg_count,
620: p_data => x_msg_data);
621:
622: EXCEPTION
623: WHEN OKL_API.G_EXCEPTION_ERROR THEN
624: ROLLBACK TO UPDATE_FUNDING_LINES_PUB;
625: x_return_status := OKL_API.G_RET_STS_ERROR;
626: FND_MSG_PUB.Count_And_Get
627: (p_count => x_msg_count,
621:
622: EXCEPTION
623: WHEN OKL_API.G_EXCEPTION_ERROR THEN
624: ROLLBACK TO UPDATE_FUNDING_LINES_PUB;
625: x_return_status := OKL_API.G_RET_STS_ERROR;
626: FND_MSG_PUB.Count_And_Get
627: (p_count => x_msg_count,
628: p_data => x_msg_data);
629:
626: FND_MSG_PUB.Count_And_Get
627: (p_count => x_msg_count,
628: p_data => x_msg_data);
629:
630: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
631: ROLLBACK TO UPDATE_FUNDING_LINES_PUB;
632: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
633: FND_MSG_PUB.Count_And_Get
634: (p_count => x_msg_count,
628: p_data => x_msg_data);
629:
630: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
631: ROLLBACK TO UPDATE_FUNDING_LINES_PUB;
632: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
633: FND_MSG_PUB.Count_And_Get
634: (p_count => x_msg_count,
635: p_data => x_msg_data);
636:
635: p_data => x_msg_data);
636:
637: WHEN OTHERS THEN
638: ROLLBACK TO UPDATE_FUNDING_LINES_PUB;
639: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
640: OKL_API.Set_Message(p_app_name => G_APP_NAME,
641: p_msg_name => G_UNEXPECTED_ERROR,
642: p_token1 => G_SQLCODE_TOKEN,
643: p_token1_value => SQLCODE,
636:
637: WHEN OTHERS THEN
638: ROLLBACK TO UPDATE_FUNDING_LINES_PUB;
639: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
640: OKL_API.Set_Message(p_app_name => G_APP_NAME,
641: p_msg_name => G_UNEXPECTED_ERROR,
642: p_token1 => G_SQLCODE_TOKEN,
643: p_token1_value => SQLCODE,
644: p_token2 => G_SQLERRM_TOKEN,
651: ----------------------------------------------------------------------------
652:
653: PROCEDURE delete_funding_lines(
654: p_api_version IN NUMBER
655: ,p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE
656: ,x_return_status OUT NOCOPY VARCHAR2
657: ,x_msg_count OUT NOCOPY NUMBER
658: ,x_msg_data OUT NOCOPY VARCHAR2
659: ,p_tplv_tbl IN tplv_tbl_type
680: p_api_version,
681: l_api_name,
682: G_PKG_NAME ))
683: THEN
684: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
685: END IF;
686:
687: -- Initialize message list if requested
688: IF (FND_API.to_Boolean(p_init_msg_list)) THEN
689: FND_MSG_PUB.initialize;
690: END IF;
691:
692: -- Initialize API status to success
693: x_return_status := OKL_API.G_RET_STS_SUCCESS;
694:
695: /*
696:
697: */
712: x_msg_count => x_msg_count,
713: x_msg_data => x_msg_data,
714: p_tplv_tbl => p_tplv_tbl);
715:
716: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
717: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
718: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
719: RAISE OKL_API.G_EXCEPTION_ERROR;
720: END IF;
713: x_msg_data => x_msg_data,
714: p_tplv_tbl => p_tplv_tbl);
715:
716: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
717: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
718: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
719: RAISE OKL_API.G_EXCEPTION_ERROR;
720: END IF;
721:
714: p_tplv_tbl => p_tplv_tbl);
715:
716: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
717: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
718: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
719: RAISE OKL_API.G_EXCEPTION_ERROR;
720: END IF;
721:
722: -- sync funding header amount
715:
716: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
717: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
718: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
719: RAISE OKL_API.G_EXCEPTION_ERROR;
720: END IF;
721:
722: -- sync funding header amount
723: OKL_FUNDING_PVT.SYNC_HEADER_AMOUNT(
727: x_msg_count => x_msg_count,
728: x_msg_data => x_msg_data,
729: p_tplv_tbl => l_tplv_tbl);
730:
731: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
732: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
733: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
734: RAISE OKL_API.G_EXCEPTION_ERROR;
735: END IF;
728: x_msg_data => x_msg_data,
729: p_tplv_tbl => l_tplv_tbl);
730:
731: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
732: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
733: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
734: RAISE OKL_API.G_EXCEPTION_ERROR;
735: END IF;
736:
729: p_tplv_tbl => l_tplv_tbl);
730:
731: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
732: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
733: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
734: RAISE OKL_API.G_EXCEPTION_ERROR;
735: END IF;
736:
737:
730:
731: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
732: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
733: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
734: RAISE OKL_API.G_EXCEPTION_ERROR;
735: END IF;
736:
737:
738: /*** End API body ******************************************************/
745: (p_count => x_msg_count,
746: p_data => x_msg_data);
747:
748: EXCEPTION
749: WHEN OKL_API.G_EXCEPTION_ERROR THEN
750: ROLLBACK TO DELETE_FUNDING_LINES_PUB;
751: x_return_status := OKL_API.G_RET_STS_ERROR;
752: FND_MSG_PUB.Count_And_Get
753: (p_count => x_msg_count,
747:
748: EXCEPTION
749: WHEN OKL_API.G_EXCEPTION_ERROR THEN
750: ROLLBACK TO DELETE_FUNDING_LINES_PUB;
751: x_return_status := OKL_API.G_RET_STS_ERROR;
752: FND_MSG_PUB.Count_And_Get
753: (p_count => x_msg_count,
754: p_data => x_msg_data);
755:
752: FND_MSG_PUB.Count_And_Get
753: (p_count => x_msg_count,
754: p_data => x_msg_data);
755:
756: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
757: ROLLBACK TO DELETE_FUNDING_LINES_PUB;
758: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
759: FND_MSG_PUB.Count_And_Get
760: (p_count => x_msg_count,
754: p_data => x_msg_data);
755:
756: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
757: ROLLBACK TO DELETE_FUNDING_LINES_PUB;
758: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
759: FND_MSG_PUB.Count_And_Get
760: (p_count => x_msg_count,
761: p_data => x_msg_data);
762:
761: p_data => x_msg_data);
762:
763: WHEN OTHERS THEN
764: ROLLBACK TO DELETE_FUNDING_LINES_PUB;
765: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
766: OKL_API.Set_Message(p_app_name => G_APP_NAME,
767: p_msg_name => G_UNEXPECTED_ERROR,
768: p_token1 => G_SQLCODE_TOKEN,
769: p_token1_value => SQLCODE,
762:
763: WHEN OTHERS THEN
764: ROLLBACK TO DELETE_FUNDING_LINES_PUB;
765: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
766: OKL_API.Set_Message(p_app_name => G_APP_NAME,
767: p_msg_name => G_UNEXPECTED_ERROR,
768: p_token1 => G_SQLCODE_TOKEN,
769: p_token1_value => SQLCODE,
770: p_token2 => G_SQLERRM_TOKEN,
776: END delete_funding_lines;
777: ----------------------------------------------------------------------------
778: PROCEDURE create_funding_assets(
779: p_api_version IN NUMBER
780: ,p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE
781: ,x_return_status OUT NOCOPY VARCHAR2
782: ,x_msg_count OUT NOCOPY NUMBER
783: ,x_msg_data OUT NOCOPY VARCHAR2
784: ,p_fund_id IN NUMBER
786: IS
787: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_FUNDING_ASSETS';
788: l_api_version CONSTANT NUMBER := 1.0;
789: i NUMBER;
790: l_dummy VARCHAR2(1) := OKL_API.G_TRUE;
791:
792: BEGIN
793: -- Set API savepoint
794: SAVEPOINT CREATE_FUNDING_ASSETS_PUB;
798: p_api_version,
799: l_api_name,
800: G_PKG_NAME ))
801: THEN
802: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
803: END IF;
804:
805: -- Initialize message list if requested
806: IF (FND_API.to_Boolean(p_init_msg_list)) THEN
807: FND_MSG_PUB.initialize;
808: END IF;
809:
810: -- Initialize API status to success
811: x_return_status := OKL_API.G_RET_STS_SUCCESS;
812:
813: /*** Begin API body ****************************************************/
814:
815: OKL_FUNDING_PVT.create_funding_assets(
819: x_msg_count => x_msg_count,
820: x_msg_data => x_msg_data,
821: p_fund_id => p_fund_id);
822:
823: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
824: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
825: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
826: RAISE OKL_API.G_EXCEPTION_ERROR;
827: END IF;
820: x_msg_data => x_msg_data,
821: p_fund_id => p_fund_id);
822:
823: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
824: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
825: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
826: RAISE OKL_API.G_EXCEPTION_ERROR;
827: END IF;
828:
821: p_fund_id => p_fund_id);
822:
823: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
824: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
825: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
826: RAISE OKL_API.G_EXCEPTION_ERROR;
827: END IF;
828:
829:
822:
823: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
824: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
825: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
826: RAISE OKL_API.G_EXCEPTION_ERROR;
827: END IF;
828:
829:
830: /*** End API body ******************************************************/
834: (p_count => x_msg_count,
835: p_data => x_msg_data);
836:
837: EXCEPTION
838: WHEN OKL_API.G_EXCEPTION_ERROR THEN
839: ROLLBACK TO CREATE_FUNDING_ASSETS_PUB;
840: x_return_status := OKL_API.G_RET_STS_ERROR;
841: FND_MSG_PUB.Count_And_Get
842: (p_count => x_msg_count,
836:
837: EXCEPTION
838: WHEN OKL_API.G_EXCEPTION_ERROR THEN
839: ROLLBACK TO CREATE_FUNDING_ASSETS_PUB;
840: x_return_status := OKL_API.G_RET_STS_ERROR;
841: FND_MSG_PUB.Count_And_Get
842: (p_count => x_msg_count,
843: p_data => x_msg_data);
844:
841: FND_MSG_PUB.Count_And_Get
842: (p_count => x_msg_count,
843: p_data => x_msg_data);
844:
845: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
846: ROLLBACK TO CREATE_FUNDING_ASSETS_PUB;
847: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
848: FND_MSG_PUB.Count_And_Get
849: (p_count => x_msg_count,
843: p_data => x_msg_data);
844:
845: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
846: ROLLBACK TO CREATE_FUNDING_ASSETS_PUB;
847: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
848: FND_MSG_PUB.Count_And_Get
849: (p_count => x_msg_count,
850: p_data => x_msg_data);
851:
850: p_data => x_msg_data);
851:
852: WHEN OTHERS THEN
853: ROLLBACK TO CREATE_FUNDING_ASSETS_PUB;
854: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
855: OKL_API.Set_Message(p_app_name => G_APP_NAME,
856: p_msg_name => G_UNEXPECTED_ERROR,
857: p_token1 => G_SQLCODE_TOKEN,
858: p_token1_value => SQLCODE,
851:
852: WHEN OTHERS THEN
853: ROLLBACK TO CREATE_FUNDING_ASSETS_PUB;
854: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
855: OKL_API.Set_Message(p_app_name => G_APP_NAME,
856: p_msg_name => G_UNEXPECTED_ERROR,
857: p_token1 => G_SQLCODE_TOKEN,
858: p_token1_value => SQLCODE,
859: p_token2 => G_SQLERRM_TOKEN,