[Home] [Help]
PACKAGE BODY: APPS.CN_COLLECT_CLAWBACKS
Source
1 PACKAGE BODY CN_COLLECT_CLAWBACKS AS
2 -- $Header: cncocbkb.pls 120.2 2006/01/19 03:56:26 apink noship $
3
4
5 compile_error EXCEPTION;
6 PRAGMA EXCEPTION_INIT(compile_error, -6550);
7
8 -- cached_org_id and cached_org_append
9
10 cached_org_id integer;
11 cached_org_append varchar2(100);
12
13 /* private procedures */
14
15 /*
16 PROCEDURE std_other_error( cursor_id in out nocopy number,
17 sql_statement in varchar2 ) IS
18 stmt_len integer;
19 loop_var integer;
20
21 BEGIN
22 dbms_sql.close_cursor(cursor_id);
23
24 dbms_output.put_line('--');
25 dbms_output.put_line('SQL statement that failed is:');
26
27 stmt_len := length(sql_statement);
28
29 if stmt_len > 255 then
30 loop_var := 1;
31 while loop_var <= stmt_len loop
32 dbms_output.put_line(substr(sql_statement,loop_var,80));
33 loop_var := loop_var + 80;
34 end loop;
35 else
36 dbms_output.put_line(sql_statement);
37 end if;
38
39 dbms_output.put_line('--');
40 END std_other_error;
41
42
43 PROCEDURE std_compile_error( cursor_id in out nocopy number,
44 sql_statement in varchar2 ) IS
45
46 BEGIN
47
48 dbms_output.put_line('Error: Package cn_collect_clawbacks'||cached_org_append||' is probably missing');
49 if cached_org_id = -99 then
50 dbms_output.put_line('Org ID is not defined (set to -99)');
51 else
52 dbms_output.put_line('Org ID is: '||cached_org_id);
53 end if;
54
55 std_other_error(cursor_id, sql_statement);
56
57 -- arp_standard.fnd_message('AR_ADDS_NOT_INSTALLED');
58 END std_compile_error;
59 */
60 PROCEDURE get_org_append(x_org_id IN number)
61 IS
62
63 BEGIN
64 cached_org_id := x_org_id;
65
66 IF cached_org_id=NULL OR cached_org_id=0 OR cached_org_id=-1 THEN
67 cached_org_id := mo_global.get_current_org_id;
68 END IF;
69
70 IF cached_org_id = -99
71 THEN
72 cached_org_append := '_M99';
73 ELSE
74 cached_org_append := '_' || cached_org_id;
75 END IF;
76 END get_org_append;
77
78
79 --
80 -- Procedure Name
81 -- collect
82 -- Purpose
83 -- This procedure is the router for collecting clawbacks
84 --
85 -- History
86 -- 02-Jan-97 Jcheng Router Procedure for collecting clawbacks
87 --
88
89
90 PROCEDURE collect (errbuf OUT NOCOPY VARCHAR2,
91 retcode OUT NOCOPY NUMBER,
92 x_start_period_name IN VARCHAR2,
93 x_end_period_name IN VARCHAR2
94 ) IS
95
96 dummy_vch varchar2(2);
97 dummy_num number;
98 c integer;
99 rows_processed integer;
100 statement varchar2(1000);
101 x_org_id NUMBER;
102
103 begin
104
105 c := dbms_sql.open_cursor;
106
107 x_org_id := mo_global.get_current_org_id;
108
109 get_org_append(x_org_id);
110
111 statement := 'begin cn_collect_clawbacks'||cached_org_append||
112 '.collect(:err,:ret,:start,:end,:orgid); end;';
113
114 dbms_sql.parse(c, statement, dbms_sql.native);
115
116 dbms_sql.bind_variable(c,'err', dummy_vch, 30);
117 dbms_sql.bind_variable(c,'ret', dummy_num);
118 dbms_sql.bind_variable(c,'start', x_start_period_name);
119 dbms_sql.bind_variable(c,'end', x_end_period_name);
120 dbms_sql.bind_variable(c,'orgid', x_org_id);
121
122 rows_processed := dbms_sql.execute(c);
123
124 dbms_sql.variable_value(c,'err', errbuf);
125 dbms_sql.variable_value(c,'ret', retcode);
126
127 dbms_sql.close_cursor(c);
128
129 --exception
130 -- when compile_error then
131 -- std_compile_error(c, statement);
132 -- when others then
133 -- std_other_error(c, statement);
134 -- raise;
135 end collect;
136
137 BEGIN
138
139 /* global package initialization */
140
141 select
142 NVL(TO_NUMBER(DECODE(SUBSTRB(USERENV('CLIENT_INFO'),1,1), ' ', NULL,
143 SUBSTRB(USERENV('CLIENT_INFO'),1,10))),-99)
144 into cached_org_id
145 from dual;
146
147 if cached_org_id = -99 then
148 cached_org_append := '_M99';
149 else
150 cached_org_append := '_' || cached_org_id;
151 end if;
152
153 END cn_collect_clawbacks;