91: | ----------- |
92: | |
93: +======================================================================*/
94:
95: CURSOR c_xla_rules_t IS -- cursor for xla_rules_t
96: SELECT *
97: FROM xla_rules_t
98: WHERE error_value = 0
99: FOR UPDATE of error_value;
93: +======================================================================*/
94:
95: CURSOR c_xla_rules_t IS -- cursor for xla_rules_t
96: SELECT *
97: FROM xla_rules_t
98: WHERE error_value = 0
99: FOR UPDATE of error_value;
100:
101: CURSOR c_xla_rule_details_t IS -- cursor for xla_rule_details_t
120: SELECT language_code
121: FROM fnd_languages
122: WHERE installed_flag = 'I';
123:
124: l_xla_rules c_xla_rules_t%ROWTYPE;
125: l_xla_rule_details c_xla_rule_details_t%ROWTYPE;
126: l_xla_conditions c_xla_conditions_t%ROWTYPE;
127: l_xla_line_assgns c_xla_line_assgns_t%ROWTYPE;
128: l_base_language VARCHAR2(4);
177:
178: /* Missing the validation of the interface tables */
179:
180: /* Upload rules into SLA tables */
181: OPEN c_xla_rules_t;
182: LOOP
183: FETCH c_xla_rules_t INTO l_xla_rules;
184: EXIT WHEN c_xla_rules_t%NOTFOUND;
185: BEGIN -- Block begins
179:
180: /* Upload rules into SLA tables */
181: OPEN c_xla_rules_t;
182: LOOP
183: FETCH c_xla_rules_t INTO l_xla_rules;
184: EXIT WHEN c_xla_rules_t%NOTFOUND;
185: BEGIN -- Block begins
186: -- Insert data into xla_seg_rules_b
187: INSERT INTO xla_seg_rules_b
180: /* Upload rules into SLA tables */
181: OPEN c_xla_rules_t;
182: LOOP
183: FETCH c_xla_rules_t INTO l_xla_rules;
184: EXIT WHEN c_xla_rules_t%NOTFOUND;
185: BEGIN -- Block begins
186: -- Insert data into xla_seg_rules_b
187: INSERT INTO xla_seg_rules_b
188: (application_id
207: (l_xla_rules.application_id
208: ,l_xla_rules.amb_context_code
209: ,l_xla_rules.segment_rule_type_code
210: ,UPPER(l_xla_rules.segment_rule_code)
211: ,l_xla_rules.transaction_coa_id
212: ,l_xla_rules.accounting_coa_id
213: ,l_xla_rules.flexfield_assign_mode_code
214: ,l_xla_rules.flexfield_segment_code
215: ,l_xla_rules.enabled_flag
290: );
291: END LOOP;
292: END IF;
293: -- Mark the row in the interface table as been processed
294: UPDATE xla_rules_t
295: SET error_value = 1 -- The row has been processed with no error
296: WHERE CURRENT OF c_xla_rules_t;
297: EXCEPTION
298: WHEN OTHERS THEN
292: END IF;
293: -- Mark the row in the interface table as been processed
294: UPDATE xla_rules_t
295: SET error_value = 1 -- The row has been processed with no error
296: WHERE CURRENT OF c_xla_rules_t;
297: EXCEPTION
298: WHEN OTHERS THEN
299: l_error_code := SQLCODE;
300: UPDATE xla_rules_t
296: WHERE CURRENT OF c_xla_rules_t;
297: EXCEPTION
298: WHEN OTHERS THEN
299: l_error_code := SQLCODE;
300: UPDATE xla_rules_t
301: SET error_value = l_error_code -- The row has been processed with errors
302: WHERE CURRENT OF c_xla_rules_t;
303: END; -- Block ends
304: END LOOP;
298: WHEN OTHERS THEN
299: l_error_code := SQLCODE;
300: UPDATE xla_rules_t
301: SET error_value = l_error_code -- The row has been processed with errors
302: WHERE CURRENT OF c_xla_rules_t;
303: END; -- Block ends
304: END LOOP;
305: CLOSE c_xla_rules_t;
306:
301: SET error_value = l_error_code -- The row has been processed with errors
302: WHERE CURRENT OF c_xla_rules_t;
303: END; -- Block ends
304: END LOOP;
305: CLOSE c_xla_rules_t;
306:
307: OPEN c_xla_rule_details_t;
308: LOOP
309: FETCH c_xla_rule_details_t into l_xla_rule_details;
533: END LOOP;
534: CLOSE c_xla_line_assgns_t;
535:
536: --END LOOP;
537: --CLOSE c_xla_rules_t;
538:
539: /* handle_errors; */
540:
541: EXCEPTION