[Home] [Help]
PACKAGE BODY: APPS.CN_COLLECT_PAYMENTS
Source
1 PACKAGE BODY CN_COLLECT_PAYMENTS AS
2 -- $Header: cncopmtb.pls 120.3 2006/01/19 04:00:33 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_payments'||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 --
83 -- Procedure Name
84 -- collect
85 -- Purpose
86 -- This procedure is the router for collecting payments
87 --
88 -- History
89 -- 02-Jan-97 Jcheng Router Procedure for collecting payments
90 --
91
92
93 PROCEDURE collect (errbuf OUT NOCOPY VARCHAR2,
94 retcode OUT NOCOPY NUMBER,
95 x_start_period_name IN VARCHAR2,
96 x_end_period_name IN VARCHAR2
97 ) IS
98
99 dummy_vch VARCHAR2(2);
100 dummy_num NUMBER;
101 c INTEGER;
102 rows_processed INTEGER;
103 statement VARCHAR2(1000);
104 x_org_id NUMBER;
105
106 begin
107
108 c := dbms_sql.open_cursor;
109
110 x_org_id := mo_global.get_current_org_id;
111
112 get_org_append(x_org_id);
113
114 statement := 'begin cn_collect_payments'||cached_org_append||
115 '.collect(:err,:ret,:start,:end,:orgid); end;';
116
117 dbms_sql.parse(c, statement, dbms_sql.native);
118
119 dbms_sql.bind_variable(c,'err', dummy_vch, 30);
120 dbms_sql.bind_variable(c,'ret', dummy_num);
121 dbms_sql.bind_variable(c,'start', x_start_period_name);
122 dbms_sql.bind_variable(c,'end', x_end_period_name);
123 dbms_sql.bind_variable(c,'orgid', x_org_id);
124
125 rows_processed := dbms_sql.execute(c);
126
127 dbms_sql.variable_value(c,'err', errbuf);
128 dbms_sql.variable_value(c,'ret', retcode);
129
130 dbms_sql.close_cursor(c);
131
132 --exception
133 -- when compile_error then
134 -- std_compile_error(c, statement);
135 -- when others then
136 -- std_other_error(c, statement);
137 -- raise;
138 end collect;
139
140
141
142 END cn_collect_payments;