[Home] [Help]
PACKAGE BODY: APPS.AR_CMGT_REFRESH_CONC
Source
1 PACKAGE BODY AR_CMGT_REFRESH_CONC AS
2 /* $Header: ARCMRFHB.pls 115.7 2003/10/10 14:23:41 mraymond noship $ */
3
4
5 PG_DEBUG varchar2(1) := NVL(FND_PROFILE.value('AFLOG_ENABLED'), 'N');
6 PROCEDURE submit_refresh_request(
7 p_case_folder_id IN NUMBER,
8 p_called_from IN VARCHAR2,
9 p_conc_request_id OUT NOCOPY NUMBER
10 ) IS
11
12 l_options_ok BOOLEAN;
13 l_request_id NUMBER;
14 m_request_id NUMBER;
15
16 BEGIN
17 arp_util.debug('ar_cmgt_refresh_conc.submit_refresh_request (+)');
18
19 l_options_ok := FND_REQUEST.SET_OPTIONS (
20 implicit => 'NO'
21 , protected => 'YES'
22 , language => ''
23 , territory => '');
24 IF (l_options_ok)
25 THEN
26
27 m_request_id := FND_REQUEST.SUBMIT_REQUEST(
28 application => 'AR'
29 , program => 'ARCMRFHB'
30 , description => ''
31 , start_time => ''
32 , sub_request => FALSE
33 , argument1 => to_char(p_case_folder_id)
34 , argument2 => p_called_from
35 , argument3 => chr(0)
36 , argument4 => ''
37 , argument5 => ''
38 , argument6 => ''
39 , argument7 => ''
43 , argument11 => ''
40 , argument8 => ''
41 , argument9 => ''
42 , argument10 => ''
44 , argument12 => ''
45 , argument13 => ''
46 , argument14 => ''
47 , argument15 => ''
48 , argument16 => ''
49 , argument17 => ''
50 , argument18 => ''
51 , argument19 => ''
52 , argument20 => ''
53 , argument21 => ''
54 , argument22 => ''
55 , argument23 => ''
56 , argument24 => ''
57 , argument25 => ''
58 , argument26 => ''
59 , argument27 => ''
60 , argument28 => ''
61 , argument29 => ''
62 , argument30 => ''
63 , argument31 => ''
64 , argument32 => ''
65 , argument33 => ''
66 , argument34 => ''
67 , argument35 => ''
68 , argument36 => ''
69 , argument37 => ''
70 , argument38 => ''
71 , argument39 => ''
72 , argument40 => ''
73 , argument41 => ''
74 , argument42 => ''
75 , argument43 => ''
76 , argument44 => ''
77 , argument45 => ''
78 , argument46 => ''
79 , argument47 => ''
80 , argument48 => ''
81 , argument49 => ''
82 , argument50 => ''
83 , argument51 => ''
84 , argument52 => ''
85 , argument53 => ''
86 , argument54 => ''
87 , argument55 => ''
88 , argument56 => ''
89 , argument57 => ''
90 , argument58 => ''
91 , argument59 => ''
92 , argument61 => ''
93 , argument62 => ''
94 , argument63 => ''
95 , argument64 => ''
96 , argument65 => ''
97 , argument66 => ''
98 , argument67 => ''
99 , argument68 => ''
100 , argument69 => ''
101 , argument70 => ''
102 , argument71 => ''
103 , argument72 => ''
104 , argument73 => ''
105 , argument74 => ''
106 , argument75 => ''
107 , argument76 => ''
108 , argument77 => ''
109 , argument78 => ''
110 , argument79 => ''
111 , argument80 => ''
112 , argument81 => ''
113 , argument82 => ''
114 , argument83 => ''
115 , argument84 => ''
116 , argument85 => ''
117 , argument86 => ''
118 , argument87 => ''
119 , argument88 => ''
120 , argument89 => ''
121 , argument90 => ''
122 , argument91 => ''
123 , argument92 => ''
124 , argument93 => ''
125 , argument94 => ''
126 , argument95 => ''
127 , argument96 => ''
128 , argument97 => ''
132 commit;
129 , argument98 => ''
130 , argument99 => ''
131 , argument100 => '');
133 END IF;
134
135 p_conc_request_id := m_request_id;
136
137 arp_util.debug('ar_cmgt_refresh_conc.submit_refresh_request (+)');
138
139 END;
140
141
142 PROCEDURE refresh_case_folder(
143 errbuf IN OUT NOCOPY VARCHAR2,
144 retcode IN OUT NOCOPY VARCHAR2,
145 p_case_folder_id IN NUMBER,
146 p_called_from IN VARCHAR2
147 ) IS
148
149 l_called_from VARCHAR2(50);
150 case_folders_rec ar_cmgt_case_folders%ROWTYPE;
151 l_return_status VARCHAR2(1);
152
153 l_limit_currency VARCHAR2(50);
154 l_error_msg VARCHAR2(2000);
155 l_resultout VARCHAR2(100);
156
157 BEGIN
158
159 IF PG_DEBUG in ('Y', 'C') THEN
160 arp_util.debug('ar_cmgt_refresh_conc.refresh_case_folder (+)');
161 END IF;
162
163 --Print in variables
164 IF PG_DEBUG in ('Y', 'C') THEN
165 arp_util.debug('refresh_case_folder: ' || 'p_case_folder_id :'||p_case_folder_id);
166 arp_util.debug('refresh_case_folder: ' || 'p_called_from :'||p_called_from);
167 END IF;
168
169 --Set the return status to success
170 l_return_status := 'S';
171
172 --Copy in to local variables
173 l_called_from := p_called_from;
174
175 --Fetch the case folder
176 IF p_case_folder_id IS NOT NULL THEN
177 BEGIN
178 SELECT *
179 INTO case_folders_rec
180 FROM ar_cmgt_case_folders
181 WHERE case_folder_id = p_case_folder_id;
182 EXCEPTION
183 WHEN others THEN
184 l_return_status := 'F';
185 END;
186 END IF;
187
188 IF l_return_status = 'S' THEN
189 ar_cmgt_data_points_pkg.gather_data_points(
190 p_party_id => case_folders_rec.party_id,
191 p_cust_account_id => case_folders_rec.cust_account_id,
192 p_cust_acct_site_id => case_folders_rec.site_use_id,
193 p_trx_currency => case_folders_rec.limit_currency,
194 p_org_id => NULL,
195 p_check_list_id => case_folders_rec.check_list_id,
196 p_credit_request_id => case_folders_rec.credit_request_id,
197 p_score_model_id => case_folders_rec.score_model_id,
198 p_credit_classification => case_folders_rec.credit_classification,
199 p_review_type => case_folders_rec.review_type,
200 p_case_folder_number => NULL,
201 p_mode => 'REFRESH',
202 p_limit_currency => l_limit_currency,
203 p_case_folder_id => case_folders_rec.case_folder_id,
204 p_error_msg => l_error_msg,
205 p_resultout => l_resultout);
206
207 --Non standard messages are returned.0 Success,1-Error,2-Warning
208 IF l_resultout = 1 THEN
209 IF PG_DEBUG in ('Y', 'C') THEN
210 arp_util.debug('refresh_case_folder: ' || 'Call to ar_cmgt_data_points_pkg.gather_data_points failed');
211 END IF;
212 FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
213 FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','ar_cmgt_refresh_conc.refresh_case_folder : '||SQLERRM);
214 FND_MSG_PUB.Add;
215 app_exception.raise_exception;
216 END IF;
217 END IF;
218
219 IF PG_DEBUG in ('Y', 'C') THEN
220 arp_util.debug('ar_cmgt_refresh_conc.refresh_case_folder (-)');
221 END IF;
222
223 END refresh_case_folder;
224
225 END AR_CMGT_REFRESH_CONC;