PACKAGE BODY: APPS.CN_COLLECT_RAM

Source

1 PACKAGE BODY CN_COLLECT_RAM AS
2 -- $Header: cncoramb.pls 120.4 2006/01/19 04:16:13 apink noship $
3 
4 
5 cached_org_id                integer;
6 cached_org_append            varchar2(100);
7 
8 
9 
10 PROCEDURE get_org_append(x_org_id IN number)
11 IS
12 
13 BEGIN
14   cached_org_id := x_org_id;
15 
16   IF cached_org_id=NULL OR cached_org_id=0 OR cached_org_id=-1 THEN
17     cached_org_id := mo_global.get_current_org_id;
18   END IF;
19 
20   IF cached_org_id = -99
21   THEN
22      cached_org_append := '_M99';
23   ELSE
24      cached_org_append := '_' || cached_org_id;
25   END IF;
26 END get_org_append;
27 
28 
29 PROCEDURE collect (errbuf OUT NOCOPY VARCHAR2,
30 		   retcode OUT NOCOPY NUMBER,
31 		   x_start_period_name IN VARCHAR2,
32 		   x_end_period_name IN VARCHAR2
33             )  IS
34 
35   dummy_vch             VARCHAR2(2);
36   dummy_num             NUMBER ;
37   c			            INTEGER ;
38   rows_processed	    INTEGER ;
39   statement		        VARCHAR2(1000);
40   x_org_id              NUMBER;
41 
42 begin
43 
44   c := dbms_sql.open_cursor;
45 
46   x_org_id := mo_global.get_current_org_id;
47 
48   get_org_append(x_org_id);
49 
50   statement := 'begin cn_collect_ram'||cached_org_append||
51     '.collect(:err,:ret,:start,:end,:orgid); end;';
52 
53   dbms_sql.parse(c, statement, dbms_sql.native);
54 
55   dbms_sql.bind_variable(c,'err', dummy_vch, 30);
56   dbms_sql.bind_variable(c,'ret', dummy_num);
57   dbms_sql.bind_variable(c,'start', x_start_period_name);
58   dbms_sql.bind_variable(c,'end', x_end_period_name);
59   dbms_sql.bind_variable(c,'orgid', x_org_id);
60 
61   rows_processed := dbms_sql.execute(c);
62 
63   dbms_sql.variable_value(c,'err', errbuf);
64   dbms_sql.variable_value(c,'ret', retcode);
65 
66   dbms_sql.close_cursor(c);
67 
68 end collect;
69 
70 END cn_collect_ram;