[Home] [Help]
PACKAGE BODY: APPS.CN_COLLECT_WRITEOFFS
Source
1 PACKAGE BODY CN_COLLECT_WRITEOFFS AS
2 -- $Header: cncowob.pls 120.2 2006/01/19 04:10:20 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_writeoffs'||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 */
61
62
63 PROCEDURE get_org_append(x_org_id IN number)
64 IS
65
66 BEGIN
67 cached_org_id := x_org_id;
68
69 IF cached_org_id=NULL OR cached_org_id=0 OR cached_org_id=-1 THEN
70 cached_org_id := mo_global.get_current_org_id;
71 END IF;
72
73 IF cached_org_id = -99
74 THEN
75 cached_org_append := '_M99';
76 ELSE
77 cached_org_append := '_' || cached_org_id;
78 END IF;
79 END get_org_append;
80
81 --
82 -- Procedure Name
83 -- collect
84 -- Purpose
85 -- This procedure is the router for collecting writeoffs
86 --
87 -- History
88 -- 02-Jan-97 Jcheng Router Procedure for collecting writeoffs
89 --
90
91
92 PROCEDURE collect (errbuf OUT NOCOPY VARCHAR2,
93 retcode OUT NOCOPY NUMBER,
94 x_start_period_name IN VARCHAR2,
95 x_end_period_name IN VARCHAR2
96 ) IS
97
98 dummy_vch VARCHAR2(2);
99 dummy_num NUMBER ;
100 c INTEGER ;
101 rows_processed INTEGER ;
102 statement VARCHAR2(1000);
103 x_org_id NUMBER;
104
105 begin
106
107 c := dbms_sql.open_cursor;
108
109 x_org_id := mo_global.get_current_org_id;
110
111 get_org_append(x_org_id);
112
113 statement := 'begin cn_collect_writeoffs'||cached_org_append||
114 '.collect(:err,:ret,:start,:end, :orgid); end;';
115
116 dbms_sql.parse(c, statement, dbms_sql.native);
117
118 dbms_sql.bind_variable(c,'err', dummy_vch, 30);
119 dbms_sql.bind_variable(c,'ret', dummy_num);
120 dbms_sql.bind_variable(c,'start', x_start_period_name);
121 dbms_sql.bind_variable(c,'end', x_end_period_name);
122 dbms_sql.bind_variable(c,'orgid', x_org_id);
123
124 rows_processed := dbms_sql.execute(c);
125
126 dbms_sql.variable_value(c,'err', errbuf);
127 dbms_sql.variable_value(c,'ret', retcode);
128
129 dbms_sql.close_cursor(c);
130
131 --exception
132 -- when compile_error then
133 -- std_compile_error(c, statement);
134 -- when others then
135 -- std_other_error(c, statement);
136 -- raise;
137 end collect;
138
139
140
141 END cn_collect_writeoffs;