60:
61:
62: EXCEPTION
63: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
64: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (EXCP) => '||SQLERRM);
65: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
66: (
67: l_api_name,
68: G_PKG_NAME,
71: x_msg_data,
72: '_PVT'
73: );
74: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
75: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (UNEXCP) => '||SQLERRM);
76: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
77: (
78: l_api_name,
79: G_PKG_NAME,
82: x_msg_data,
83: '_PVT'
84: );
85: WHEN OTHERS THEN
86: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (Others) => '||SQLERRM);
87: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
88: (
89: l_api_name,
90: G_PKG_NAME,
148:
149: fnd_msg_pub.delete_msg();
150:
151: l_mesg_len := length(l_mesg);
152: fnd_file.put_line(fnd_file.log, 'Error: ');
153: fnd_file.put_line(fnd_file.output, 'Error: ');
154:
155: FOR i IN 1..ceil(l_mesg_len/255) LOOP
156: fnd_file.put_line(fnd_file.log, l_mesg);
149: fnd_msg_pub.delete_msg();
150:
151: l_mesg_len := length(l_mesg);
152: fnd_file.put_line(fnd_file.log, 'Error: ');
153: fnd_file.put_line(fnd_file.output, 'Error: ');
154:
155: FOR i IN 1..ceil(l_mesg_len/255) LOOP
156: fnd_file.put_line(fnd_file.log, l_mesg);
157: fnd_file.put_line(fnd_file.output, l_mesg);
152: fnd_file.put_line(fnd_file.log, 'Error: ');
153: fnd_file.put_line(fnd_file.output, 'Error: ');
154:
155: FOR i IN 1..ceil(l_mesg_len/255) LOOP
156: fnd_file.put_line(fnd_file.log, l_mesg);
157: fnd_file.put_line(fnd_file.output, l_mesg);
158: END LOOP;
159:
160: fnd_file.new_line(fnd_file.log,2);
153: fnd_file.put_line(fnd_file.output, 'Error: ');
154:
155: FOR i IN 1..ceil(l_mesg_len/255) LOOP
156: fnd_file.put_line(fnd_file.log, l_mesg);
157: fnd_file.put_line(fnd_file.output, l_mesg);
158: END LOOP;
159:
160: fnd_file.new_line(fnd_file.log,2);
161: fnd_file.new_line(fnd_file.output,2);
156: fnd_file.put_line(fnd_file.log, l_mesg);
157: fnd_file.put_line(fnd_file.output, l_mesg);
158: END LOOP;
159:
160: fnd_file.new_line(fnd_file.log,2);
161: fnd_file.new_line(fnd_file.output,2);
162: END IF;
163:
164: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
157: fnd_file.put_line(fnd_file.output, l_mesg);
158: END LOOP;
159:
160: fnd_file.new_line(fnd_file.log,2);
161: fnd_file.new_line(fnd_file.output,2);
162: END IF;
163:
164: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
165: fnd_file.put_line(fnd_file.log,'msg data '||l_msg_data);
161: fnd_file.new_line(fnd_file.output,2);
162: END IF;
163:
164: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
165: fnd_file.put_line(fnd_file.log,'msg data '||l_msg_data);
166: fnd_file.put_line(fnd_file.log,'return status '||l_return_status);
167: END IF;
168:
169:
162: END IF;
163:
164: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
165: fnd_file.put_line(fnd_file.log,'msg data '||l_msg_data);
166: fnd_file.put_line(fnd_file.log,'return status '||l_return_status);
167: END IF;
168:
169:
170: fnd_file.put_line(fnd_file.log,'msg data '||l_msg_data);
166: fnd_file.put_line(fnd_file.log,'return status '||l_return_status);
167: END IF;
168:
169:
170: fnd_file.put_line(fnd_file.log,'msg data '||l_msg_data);
171: fnd_file.put_line(fnd_file.log,'return status '||l_return_status);
172: fnd_file.put_line(fnd_file.output,'msg data '||l_msg_data);
173: fnd_file.put_line(fnd_file.output,'return status '||l_return_status);
174:
167: END IF;
168:
169:
170: fnd_file.put_line(fnd_file.log,'msg data '||l_msg_data);
171: fnd_file.put_line(fnd_file.log,'return status '||l_return_status);
172: fnd_file.put_line(fnd_file.output,'msg data '||l_msg_data);
173: fnd_file.put_line(fnd_file.output,'return status '||l_return_status);
174:
175: EXCEPTION
168:
169:
170: fnd_file.put_line(fnd_file.log,'msg data '||l_msg_data);
171: fnd_file.put_line(fnd_file.log,'return status '||l_return_status);
172: fnd_file.put_line(fnd_file.output,'msg data '||l_msg_data);
173: fnd_file.put_line(fnd_file.output,'return status '||l_return_status);
174:
175: EXCEPTION
176: WHEN OTHERS THEN
169:
170: fnd_file.put_line(fnd_file.log,'msg data '||l_msg_data);
171: fnd_file.put_line(fnd_file.log,'return status '||l_return_status);
172: fnd_file.put_line(fnd_file.output,'msg data '||l_msg_data);
173: fnd_file.put_line(fnd_file.output,'return status '||l_return_status);
174:
175: EXCEPTION
176: WHEN OTHERS THEN
177: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (Others) => '||SQLERRM);
173: fnd_file.put_line(fnd_file.output,'return status '||l_return_status);
174:
175: EXCEPTION
176: WHEN OTHERS THEN
177: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (Others) => '||SQLERRM);
178: l_return_status :=Okl_Api.HANDLE_EXCEPTIONS
179: (
180: l_api_name,
181: G_PKG_NAME,
239:
240:
241: EXCEPTION
242: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
243: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (EXCP) => '||SQLERRM);
244: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
245: (
246: l_api_name,
247: G_PKG_NAME,
250: x_msg_data,
251: '_PVT'
252: );
253: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
254: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (UNEXCP) => '||SQLERRM);
255: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
256: (
257: l_api_name,
258: G_PKG_NAME,
261: x_msg_data,
262: '_PVT'
263: );
264: WHEN OTHERS THEN
265: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (Others) => '||SQLERRM);
266: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
267: (
268: l_api_name,
269: G_PKG_NAME,
289:
290: BEGIN
291:
292:
293: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'OKL Service Contract Billing');
294: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, '***********************************************');
295: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Program Run Date:'||sysdate);
296: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, '***********************************************');
297:
290: BEGIN
291:
292:
293: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'OKL Service Contract Billing');
294: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, '***********************************************');
295: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Program Run Date:'||sysdate);
296: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, '***********************************************');
297:
298: bill_service_contract(
291:
292:
293: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'OKL Service Contract Billing');
294: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, '***********************************************');
295: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Program Run Date:'||sysdate);
296: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, '***********************************************');
297:
298: bill_service_contract(
299: p_api_version => l_api_version,
292:
293: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'OKL Service Contract Billing');
294: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, '***********************************************');
295: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Program Run Date:'||sysdate);
296: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, '***********************************************');
297:
298: bill_service_contract(
299: p_api_version => l_api_version,
300: p_init_msg_list => FND_API.G_FALSE,
310: p_encoded => 'F',
311: p_data => lx_msg_data,
312: p_msg_index_out => l_msg_index_out);
313:
314: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,to_char(i) || ': ' || lx_msg_data);
315: END LOOP;
316: END IF;
317: EXCEPTION
318: WHEN OTHERS THEN
316: END IF;
317: EXCEPTION
318: WHEN OTHERS THEN
319:
320: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,'Error '||TO_CHAR(SQLCODE)||': '||SQLERRM);
321:
322: END;
323:
324: PROCEDURE billing_status(
369:
370:
371: EXCEPTION
372: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
373: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (EXCP) => '||SQLERRM);
374: x_return_status := Okl_Api.HANDLE_EXCEPTIONS
375: (
376: l_api_name,
377: G_PKG_NAME,
380: x_msg_data,
381: '_PVT'
382: );
383: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
384: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (UNEXCP) => '||SQLERRM);
385: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
386: (
387: l_api_name,
388: G_PKG_NAME,
391: x_msg_data,
392: '_PVT'
393: );
394: WHEN OTHERS THEN
395: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (Others) => '||SQLERRM);
396: x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
397: (
398: l_api_name,
399: G_PKG_NAME,