PACKAGE BODY: APPS.CSTPPOHK

Source

1 PACKAGE BODY CSTPPOHK AS
2 /* $Header: CSTPOHKB.pls 115.2 2002/11/11 19:16:08 awwang ship $ */
3 
4 /*---------------------------------------------------------------------------*
5 |  PUBLIC PROCEDURE    							     |
6 |  	get_max_rows            					     |
7 | This routine will be called by period cost manager to determine the        |
8 | max number of rows to assign to the period cost worker.                    |
9 *----------------------------------------------------------------------------*/
10 PROCEDURE get_max_rows (
11  	x_max_rows		OUT NOCOPY	NUMBER,
12 	x_err_num		OUT NOCOPY	NUMBER,
13 	x_err_code		OUT NOCOPY 	VARCHAR2,
14 	x_err_msg		OUT NOCOPY	VARCHAR2)
15 IS
16 
17 l_stmt_num			NUMBER;
18 l_err_num			NUMBER;
19 l_err_code			VARCHAR2(240);
20 l_err_msg			VARCHAR2(240);
21 
22 BEGIN
23 	----------------------------------------------------------------------
24 	-- Initialize Variables
25 	----------------------------------------------------------------------
26 
27 	l_err_num := 0;
28 	l_err_code := '';
29 	l_err_msg := '';
30 	l_stmt_num := 5;
31 
32 	x_max_rows := 500;
33 
34 EXCEPTION
35 
36 	WHEN OTHERS THEN
37 		ROLLBACK;
38 		x_err_num := SQLCODE;
39 		x_err_code := NULL;
40 		x_err_msg := SUBSTR('CSTPPOHK.get_max_rows('
41 				|| to_char(l_stmt_num)
42 				|| '): '
43 				||SQLERRM,1,240);
44 END get_max_rows;
45 END CSTPPOHK;
46