PACKAGE BODY: APPS.CN_COLLECT_ORDERS

Source

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