52: --* Global Vars : g_SUCCESS *--
53: --* : g_FAILURE *--
54: --* : g_enter *--
55: --* : g_exit *--
56: --* : fnd_log.level_procedure *--
57: --* : g_module_name *--
58: --* : fnd_log.g_current_runtime_level *--
59: --* : fnd_log.level_statement *--
60: --* : fnd_log.level_unexpected *--
54: --* : g_enter *--
55: --* : g_exit *--
56: --* : fnd_log.level_procedure *--
57: --* : g_module_name *--
58: --* : fnd_log.g_current_runtime_level *--
59: --* : fnd_log.level_statement *--
60: --* : fnd_log.level_unexpected *--
61: --* Called from : process_parameters *--
62: --* Calls : fv_utility.debug_mesg *--
55: --* : g_exit *--
56: --* : fnd_log.level_procedure *--
57: --* : g_module_name *--
58: --* : fnd_log.g_current_runtime_level *--
59: --* : fnd_log.level_statement *--
60: --* : fnd_log.level_unexpected *--
61: --* Called from : process_parameters *--
62: --* Calls : fv_utility.debug_mesg *--
63: --* : fv_utility.log_mesg *--
56: --* : fnd_log.level_procedure *--
57: --* : g_module_name *--
58: --* : fnd_log.g_current_runtime_level *--
59: --* : fnd_log.level_statement *--
60: --* : fnd_log.level_unexpected *--
61: --* Called from : process_parameters *--
62: --* Calls : fv_utility.debug_mesg *--
63: --* : fv_utility.log_mesg *--
64: --* Tables Used : fv_system_parameters SELECT *--
78: BEGIN
79: l_module_name := g_module_name || 'get_fed_system_parameters';
80: p_retcode := g_SUCCESS;
81:
82: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
83: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_enter);
84: END IF;
85:
86: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
79: l_module_name := g_module_name || 'get_fed_system_parameters';
80: p_retcode := g_SUCCESS;
81:
82: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
83: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_enter);
84: END IF;
85:
86: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
87: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, '*****INPUT PARAMETERS*******');
82: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
83: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_enter);
84: END IF;
85:
86: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
87: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, '*****INPUT PARAMETERS*******');
88: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'None');
89: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, '****************************');
90: END IF;
83: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_enter);
84: END IF;
85:
86: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
87: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, '*****INPUT PARAMETERS*******');
88: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'None');
89: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, '****************************');
90: END IF;
91:
84: END IF;
85:
86: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
87: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, '*****INPUT PARAMETERS*******');
88: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'None');
89: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, '****************************');
90: END IF;
91:
92: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
85:
86: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
87: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, '*****INPUT PARAMETERS*******');
88: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'None');
89: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, '****************************');
90: END IF;
91:
92: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
93: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'SELECT from fv_system_parameters');
88: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'None');
89: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, '****************************');
90: END IF;
91:
92: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
93: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'SELECT from fv_system_parameters');
94: END IF;
95: SELECT fsp.factsi_customer_attribute,
96: fsp.factsi_vendor_attribute
89: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, '****************************');
90: END IF;
91:
92: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
93: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'SELECT from fv_system_parameters');
94: END IF;
95: SELECT fsp.factsi_customer_attribute,
96: fsp.factsi_vendor_attribute
97: INTO p_customer_attribute,
97: INTO p_customer_attribute,
98: p_vendor_attribute
99: FROM fv_system_parameters fsp;
100:
101: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
102: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, '*****OUTPUT PARAMETERS******');
103: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_vendor_attribute = '||p_vendor_attribute);
104: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_customer_attribute = '||p_customer_attribute);
105: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_errbuf = '||p_errbuf);
98: p_vendor_attribute
99: FROM fv_system_parameters fsp;
100:
101: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
102: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, '*****OUTPUT PARAMETERS******');
103: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_vendor_attribute = '||p_vendor_attribute);
104: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_customer_attribute = '||p_customer_attribute);
105: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_errbuf = '||p_errbuf);
106: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_retcode = '||p_retcode);
99: FROM fv_system_parameters fsp;
100:
101: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
102: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, '*****OUTPUT PARAMETERS******');
103: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_vendor_attribute = '||p_vendor_attribute);
104: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_customer_attribute = '||p_customer_attribute);
105: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_errbuf = '||p_errbuf);
106: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_retcode = '||p_retcode);
107: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, '****************************');
100:
101: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
102: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, '*****OUTPUT PARAMETERS******');
103: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_vendor_attribute = '||p_vendor_attribute);
104: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_customer_attribute = '||p_customer_attribute);
105: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_errbuf = '||p_errbuf);
106: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_retcode = '||p_retcode);
107: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, '****************************');
108: END IF;
101: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
102: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, '*****OUTPUT PARAMETERS******');
103: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_vendor_attribute = '||p_vendor_attribute);
104: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_customer_attribute = '||p_customer_attribute);
105: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_errbuf = '||p_errbuf);
106: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_retcode = '||p_retcode);
107: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, '****************************');
108: END IF;
109:
102: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, '*****OUTPUT PARAMETERS******');
103: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_vendor_attribute = '||p_vendor_attribute);
104: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_customer_attribute = '||p_customer_attribute);
105: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_errbuf = '||p_errbuf);
106: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_retcode = '||p_retcode);
107: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, '****************************');
108: END IF;
109:
110: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
103: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_vendor_attribute = '||p_vendor_attribute);
104: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_customer_attribute = '||p_customer_attribute);
105: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_errbuf = '||p_errbuf);
106: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_retcode = '||p_retcode);
107: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, '****************************');
108: END IF;
109:
110: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
111: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_retcode||')');
106: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_retcode = '||p_retcode);
107: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, '****************************');
108: END IF;
109:
110: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
111: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_retcode||')');
112: END IF;
113: EXCEPTION
114: WHEN OTHERS THEN
107: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, '****************************');
108: END IF;
109:
110: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
111: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_retcode||')');
112: END IF;
113: EXCEPTION
114: WHEN OTHERS THEN
115: p_retcode := g_FAILURE;
114: WHEN OTHERS THEN
115: p_retcode := g_FAILURE;
116: p_errbuf := SQLERRM;
117: l_location := l_module_name||'.final_exception';
118: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
119: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_errbuf) ;
120: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
121: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_retcode||')');
122: END IF;
115: p_retcode := g_FAILURE;
116: p_errbuf := SQLERRM;
117: l_location := l_module_name||'.final_exception';
118: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
119: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_errbuf) ;
120: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
121: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_retcode||')');
122: END IF;
123: END;
116: p_errbuf := SQLERRM;
117: l_location := l_module_name||'.final_exception';
118: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
119: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_errbuf) ;
120: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
121: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_retcode||')');
122: END IF;
123: END;
124:
117: l_location := l_module_name||'.final_exception';
118: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
119: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_errbuf) ;
120: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
121: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_retcode||')');
122: END IF;
123: END;
124:
125: --****************************************************************************************--
140: --* Global Vars : g_SUCCESS *--
141: --* : g_FAILURE *--
142: --* : g_enter *--
143: --* : g_exit *--
144: --* : fnd_log.level_procedure *--
145: --* : g_module_name *--
146: --* : fnd_log.g_current_runtime_level *--
147: --* : fnd_log.level_statement *--
148: --* : fnd_log.level_unexpected *--
142: --* : g_enter *--
143: --* : g_exit *--
144: --* : fnd_log.level_procedure *--
145: --* : g_module_name *--
146: --* : fnd_log.g_current_runtime_level *--
147: --* : fnd_log.level_statement *--
148: --* : fnd_log.level_unexpected *--
149: --* : g_conc_program_id *--
150: --* : g_conc_program_id WRITE *--
143: --* : g_exit *--
144: --* : fnd_log.level_procedure *--
145: --* : g_module_name *--
146: --* : fnd_log.g_current_runtime_level *--
147: --* : fnd_log.level_statement *--
148: --* : fnd_log.level_unexpected *--
149: --* : g_conc_program_id *--
150: --* : g_conc_program_id WRITE *--
151: --* Called from : main *--
144: --* : fnd_log.level_procedure *--
145: --* : g_module_name *--
146: --* : fnd_log.g_current_runtime_level *--
147: --* : fnd_log.level_statement *--
148: --* : fnd_log.level_unexpected *--
149: --* : g_conc_program_id *--
150: --* : g_conc_program_id WRITE *--
151: --* Called from : main *--
152: --* Calls : fv_utility.debug_mesg *--
185: BEGIN
186: l_module_name := g_module_name || 'process_parameters';
187: p_retcode := g_SUCCESS;
188:
189: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
190: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_enter);
191: END IF;
192:
193: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
186: l_module_name := g_module_name || 'process_parameters';
187: p_retcode := g_SUCCESS;
188:
189: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
190: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_enter);
191: END IF;
192:
193: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
194: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, '*****INPUT PARAMETERS*******');
189: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
190: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_enter);
191: END IF;
192:
193: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
194: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, '*****INPUT PARAMETERS*******');
195: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_ledger_id = '||p_ledger_id);
196: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_vendor_or_cust = '||p_vendor_or_cust);
197: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_vendor_or_cust_id = '||p_vendor_or_cust_id);
190: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_enter);
191: END IF;
192:
193: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
194: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, '*****INPUT PARAMETERS*******');
195: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_ledger_id = '||p_ledger_id);
196: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_vendor_or_cust = '||p_vendor_or_cust);
197: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_vendor_or_cust_id = '||p_vendor_or_cust_id);
198: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_from_period = '||p_from_period);
191: END IF;
192:
193: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
194: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, '*****INPUT PARAMETERS*******');
195: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_ledger_id = '||p_ledger_id);
196: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_vendor_or_cust = '||p_vendor_or_cust);
197: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_vendor_or_cust_id = '||p_vendor_or_cust_id);
198: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_from_period = '||p_from_period);
199: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_to_period = '||p_to_period);
192:
193: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
194: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, '*****INPUT PARAMETERS*******');
195: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_ledger_id = '||p_ledger_id);
196: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_vendor_or_cust = '||p_vendor_or_cust);
197: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_vendor_or_cust_id = '||p_vendor_or_cust_id);
198: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_from_period = '||p_from_period);
199: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_to_period = '||p_to_period);
200: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, '****************************');
193: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
194: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, '*****INPUT PARAMETERS*******');
195: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_ledger_id = '||p_ledger_id);
196: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_vendor_or_cust = '||p_vendor_or_cust);
197: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_vendor_or_cust_id = '||p_vendor_or_cust_id);
198: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_from_period = '||p_from_period);
199: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_to_period = '||p_to_period);
200: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, '****************************');
201: END IF;
194: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, '*****INPUT PARAMETERS*******');
195: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_ledger_id = '||p_ledger_id);
196: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_vendor_or_cust = '||p_vendor_or_cust);
197: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_vendor_or_cust_id = '||p_vendor_or_cust_id);
198: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_from_period = '||p_from_period);
199: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_to_period = '||p_to_period);
200: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, '****************************');
201: END IF;
202:
195: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_ledger_id = '||p_ledger_id);
196: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_vendor_or_cust = '||p_vendor_or_cust);
197: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_vendor_or_cust_id = '||p_vendor_or_cust_id);
198: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_from_period = '||p_from_period);
199: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_to_period = '||p_to_period);
200: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, '****************************');
201: END IF;
202:
203: IF (NVL(p_vendor_or_cust, 'X') NOT IN ('V', 'C')) THEN
196: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_vendor_or_cust = '||p_vendor_or_cust);
197: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_vendor_or_cust_id = '||p_vendor_or_cust_id);
198: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_from_period = '||p_from_period);
199: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_to_period = '||p_to_period);
200: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, '****************************');
201: END IF;
202:
203: IF (NVL(p_vendor_or_cust, 'X') NOT IN ('V', 'C')) THEN
204: p_retcode := g_FAILURE;
203: IF (NVL(p_vendor_or_cust, 'X') NOT IN ('V', 'C')) THEN
204: p_retcode := g_FAILURE;
205: p_errbuf := 'Unknown Vendor or Customer Type Idenfier. Should be either V or C.';
206: l_location := l_module_name||'p_vendor_or_cust_required';
207: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
208: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_errbuf) ;
209: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
210: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_retcode||')');
211: END IF;
204: p_retcode := g_FAILURE;
205: p_errbuf := 'Unknown Vendor or Customer Type Idenfier. Should be either V or C.';
206: l_location := l_module_name||'p_vendor_or_cust_required';
207: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
208: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_errbuf) ;
209: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
210: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_retcode||')');
211: END IF;
212: END IF;
205: p_errbuf := 'Unknown Vendor or Customer Type Idenfier. Should be either V or C.';
206: l_location := l_module_name||'p_vendor_or_cust_required';
207: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
208: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_errbuf) ;
209: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
210: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_retcode||')');
211: END IF;
212: END IF;
213:
206: l_location := l_module_name||'p_vendor_or_cust_required';
207: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
208: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_errbuf) ;
209: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
210: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_retcode||')');
211: END IF;
212: END IF;
213:
214: IF (p_vendor_or_cust_id IS NULL) THEN
214: IF (p_vendor_or_cust_id IS NULL) THEN
215: p_retcode := g_FAILURE;
216: p_errbuf := 'Vendor or Customer Information is required';
217: l_location := l_module_name||'p_vendor_or_cust_id_required';
218: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
219: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_errbuf) ;
220: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
221: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_retcode||')');
222: END IF;
215: p_retcode := g_FAILURE;
216: p_errbuf := 'Vendor or Customer Information is required';
217: l_location := l_module_name||'p_vendor_or_cust_id_required';
218: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
219: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_errbuf) ;
220: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
221: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_retcode||')');
222: END IF;
223: END IF;
216: p_errbuf := 'Vendor or Customer Information is required';
217: l_location := l_module_name||'p_vendor_or_cust_id_required';
218: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
219: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_errbuf) ;
220: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
221: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_retcode||')');
222: END IF;
223: END IF;
224:
217: l_location := l_module_name||'p_vendor_or_cust_id_required';
218: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
219: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_errbuf) ;
220: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
221: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_retcode||')');
222: END IF;
223: END IF;
224:
225: IF (p_from_period IS NULL) THEN
225: IF (p_from_period IS NULL) THEN
226: p_retcode := g_FAILURE;
227: p_errbuf := 'From Period is required';
228: l_location := l_module_name||'from_period_required';
229: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
230: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_errbuf) ;
231: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
232: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_retcode||')');
233: END IF;
226: p_retcode := g_FAILURE;
227: p_errbuf := 'From Period is required';
228: l_location := l_module_name||'from_period_required';
229: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
230: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_errbuf) ;
231: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
232: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_retcode||')');
233: END IF;
234: END IF;
227: p_errbuf := 'From Period is required';
228: l_location := l_module_name||'from_period_required';
229: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
230: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_errbuf) ;
231: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
232: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_retcode||')');
233: END IF;
234: END IF;
235:
228: l_location := l_module_name||'from_period_required';
229: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
230: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_errbuf) ;
231: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
232: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_retcode||')');
233: END IF;
234: END IF;
235:
236: IF (p_to_period IS NULL) THEN
236: IF (p_to_period IS NULL) THEN
237: p_retcode := g_FAILURE;
238: p_errbuf := 'To Period is required';
239: l_location := l_module_name||'to_period_required';
240: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
241: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_errbuf) ;
242: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
243: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_retcode||')');
244: END IF;
237: p_retcode := g_FAILURE;
238: p_errbuf := 'To Period is required';
239: l_location := l_module_name||'to_period_required';
240: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
241: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_errbuf) ;
242: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
243: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_retcode||')');
244: END IF;
245: END IF;
238: p_errbuf := 'To Period is required';
239: l_location := l_module_name||'to_period_required';
240: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
241: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_errbuf) ;
242: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
243: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_retcode||')');
244: END IF;
245: END IF;
246:
239: l_location := l_module_name||'to_period_required';
240: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
241: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_errbuf) ;
242: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
243: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_retcode||')');
244: END IF;
245: END IF;
246:
247: IF (p_retcode = g_SUCCESS) THEN
258: WHEN NO_DATA_FOUND THEN
259: p_retcode := g_FAILURE;
260: p_errbuf := 'No From Period found '||p_from_period;
261: l_location := l_module_name||'select_gl_period_statuses1';
262: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
263: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_errbuf) ;
264: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
265: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_retcode||')');
266: END IF;
259: p_retcode := g_FAILURE;
260: p_errbuf := 'No From Period found '||p_from_period;
261: l_location := l_module_name||'select_gl_period_statuses1';
262: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
263: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_errbuf) ;
264: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
265: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_retcode||')');
266: END IF;
267: WHEN OTHERS THEN
260: p_errbuf := 'No From Period found '||p_from_period;
261: l_location := l_module_name||'select_gl_period_statuses1';
262: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
263: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_errbuf) ;
264: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
265: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_retcode||')');
266: END IF;
267: WHEN OTHERS THEN
268: p_retcode := g_FAILURE;
261: l_location := l_module_name||'select_gl_period_statuses1';
262: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
263: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_errbuf) ;
264: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
265: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_retcode||')');
266: END IF;
267: WHEN OTHERS THEN
268: p_retcode := g_FAILURE;
269: p_errbuf := SQLERRM;
267: WHEN OTHERS THEN
268: p_retcode := g_FAILURE;
269: p_errbuf := SQLERRM;
270: l_location := l_module_name||'select_gl_period_statuses1';
271: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
272: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_errbuf) ;
273: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
274: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_retcode||')');
275: END IF;
268: p_retcode := g_FAILURE;
269: p_errbuf := SQLERRM;
270: l_location := l_module_name||'select_gl_period_statuses1';
271: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
272: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_errbuf) ;
273: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
274: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_retcode||')');
275: END IF;
276: END;
269: p_errbuf := SQLERRM;
270: l_location := l_module_name||'select_gl_period_statuses1';
271: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
272: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_errbuf) ;
273: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
274: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_retcode||')');
275: END IF;
276: END;
277: END IF;
270: l_location := l_module_name||'select_gl_period_statuses1';
271: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
272: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_errbuf) ;
273: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
274: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_retcode||')');
275: END IF;
276: END;
277: END IF;
278:
290: WHEN NO_DATA_FOUND THEN
291: p_retcode := g_FAILURE;
292: p_errbuf := 'No To Period found '||p_from_period;
293: l_location := l_module_name||'select_gl_period_statuses1';
294: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
295: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_errbuf) ;
296: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
297: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_retcode||')');
298: END IF;
291: p_retcode := g_FAILURE;
292: p_errbuf := 'No To Period found '||p_from_period;
293: l_location := l_module_name||'select_gl_period_statuses1';
294: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
295: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_errbuf) ;
296: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
297: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_retcode||')');
298: END IF;
299: WHEN OTHERS THEN
292: p_errbuf := 'No To Period found '||p_from_period;
293: l_location := l_module_name||'select_gl_period_statuses1';
294: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
295: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_errbuf) ;
296: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
297: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_retcode||')');
298: END IF;
299: WHEN OTHERS THEN
300: p_retcode := g_FAILURE;
293: l_location := l_module_name||'select_gl_period_statuses1';
294: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
295: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_errbuf) ;
296: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
297: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_retcode||')');
298: END IF;
299: WHEN OTHERS THEN
300: p_retcode := g_FAILURE;
301: p_errbuf := SQLERRM;
299: WHEN OTHERS THEN
300: p_retcode := g_FAILURE;
301: p_errbuf := SQLERRM;
302: l_location := l_module_name||'select_gl_period_statuses1';
303: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
304: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_errbuf) ;
305: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
306: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_retcode||')');
307: END IF;
300: p_retcode := g_FAILURE;
301: p_errbuf := SQLERRM;
302: l_location := l_module_name||'select_gl_period_statuses1';
303: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
304: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_errbuf) ;
305: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
306: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_retcode||')');
307: END IF;
308: END;
301: p_errbuf := SQLERRM;
302: l_location := l_module_name||'select_gl_period_statuses1';
303: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
304: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_errbuf) ;
305: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
306: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_retcode||')');
307: END IF;
308: END;
309: END IF;
302: l_location := l_module_name||'select_gl_period_statuses1';
303: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
304: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_errbuf) ;
305: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
306: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_retcode||')');
307: END IF;
308: END;
309: END IF;
310:
311: IF (p_period_year <> l_period_year) THEN
312: p_retcode := g_FAILURE;
313: p_errbuf := 'From Period Name and To Period Name are from 2 different fiscal years.';
314: l_location := l_module_name||'period_year_mismatch';
315: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
316: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_errbuf) ;
317: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
318: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_retcode||')');
319: END IF;
312: p_retcode := g_FAILURE;
313: p_errbuf := 'From Period Name and To Period Name are from 2 different fiscal years.';
314: l_location := l_module_name||'period_year_mismatch';
315: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
316: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_errbuf) ;
317: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
318: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_retcode||')');
319: END IF;
320: END IF;
313: p_errbuf := 'From Period Name and To Period Name are from 2 different fiscal years.';
314: l_location := l_module_name||'period_year_mismatch';
315: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
316: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_errbuf) ;
317: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
318: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_retcode||')');
319: END IF;
320: END IF;
321:
314: l_location := l_module_name||'period_year_mismatch';
315: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
316: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_errbuf) ;
317: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
318: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_retcode||')');
319: END IF;
320: END IF;
321:
322: IF (p_from_period_num > p_to_period_num) THEN
322: IF (p_from_period_num > p_to_period_num) THEN
323: p_retcode := g_FAILURE;
324: p_errbuf := 'From Period Name is greater than To Period Name.';
325: l_location := l_module_name||'period_name_mismatch';
326: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
327: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_errbuf) ;
328: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
329: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_retcode||')');
330: END IF;
323: p_retcode := g_FAILURE;
324: p_errbuf := 'From Period Name is greater than To Period Name.';
325: l_location := l_module_name||'period_name_mismatch';
326: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
327: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_errbuf) ;
328: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
329: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_retcode||')');
330: END IF;
331: END IF;
324: p_errbuf := 'From Period Name is greater than To Period Name.';
325: l_location := l_module_name||'period_name_mismatch';
326: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
327: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_errbuf) ;
328: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
329: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_retcode||')');
330: END IF;
331: END IF;
332:
325: l_location := l_module_name||'period_name_mismatch';
326: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
327: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_errbuf) ;
328: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
329: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_retcode||')');
330: END IF;
331: END IF;
332:
333: IF (p_retcode = g_SUCCESS) THEN
330: END IF;
331: END IF;
332:
333: IF (p_retcode = g_SUCCESS) THEN
334: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
335: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'Calling get_fed_system_parameters');
336: END IF;
337: get_fed_system_parameters
338: (
331: END IF;
332:
333: IF (p_retcode = g_SUCCESS) THEN
334: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
335: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'Calling get_fed_system_parameters');
336: END IF;
337: get_fed_system_parameters
338: (
339: p_vendor_attribute => l_vendor_attribute,
340: p_customer_attribute => l_customer_attribute,
341: p_errbuf => p_errbuf,
342: p_retcode => p_retcode
343: );
344: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
345: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'Returned from get_fed_system_parameters');
346: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'l_vendor_attribute = '||l_vendor_attribute);
347: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'l_customer_attribute = '||l_customer_attribute);
348: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_errbuf = '||p_errbuf);
341: p_errbuf => p_errbuf,
342: p_retcode => p_retcode
343: );
344: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
345: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'Returned from get_fed_system_parameters');
346: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'l_vendor_attribute = '||l_vendor_attribute);
347: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'l_customer_attribute = '||l_customer_attribute);
348: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_errbuf = '||p_errbuf);
349: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_retcode = '||p_retcode);
342: p_retcode => p_retcode
343: );
344: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
345: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'Returned from get_fed_system_parameters');
346: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'l_vendor_attribute = '||l_vendor_attribute);
347: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'l_customer_attribute = '||l_customer_attribute);
348: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_errbuf = '||p_errbuf);
349: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_retcode = '||p_retcode);
350: END IF;
343: );
344: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
345: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'Returned from get_fed_system_parameters');
346: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'l_vendor_attribute = '||l_vendor_attribute);
347: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'l_customer_attribute = '||l_customer_attribute);
348: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_errbuf = '||p_errbuf);
349: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_retcode = '||p_retcode);
350: END IF;
351: END IF;
344: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
345: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'Returned from get_fed_system_parameters');
346: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'l_vendor_attribute = '||l_vendor_attribute);
347: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'l_customer_attribute = '||l_customer_attribute);
348: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_errbuf = '||p_errbuf);
349: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_retcode = '||p_retcode);
350: END IF;
351: END IF;
352:
345: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'Returned from get_fed_system_parameters');
346: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'l_vendor_attribute = '||l_vendor_attribute);
347: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'l_customer_attribute = '||l_customer_attribute);
348: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_errbuf = '||p_errbuf);
349: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_retcode = '||p_retcode);
350: END IF;
351: END IF;
352:
353: IF (p_retcode = g_SUCCESS) THEN
384: WHEN OTHERS THEN
385: p_retcode := g_FAILURE;
386: p_errbuf := SQLERRM;
387: l_location := l_module_name||'select_gl_period_statuses1';
388: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
389: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_errbuf) ;
390: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
391: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_retcode||')');
392: END IF;
385: p_retcode := g_FAILURE;
386: p_errbuf := SQLERRM;
387: l_location := l_module_name||'select_gl_period_statuses1';
388: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
389: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_errbuf) ;
390: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
391: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_retcode||')');
392: END IF;
393: END;
386: p_errbuf := SQLERRM;
387: l_location := l_module_name||'select_gl_period_statuses1';
388: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
389: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_errbuf) ;
390: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
391: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_retcode||')');
392: END IF;
393: END;
394: END IF;
387: l_location := l_module_name||'select_gl_period_statuses1';
388: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
389: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_errbuf) ;
390: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
391: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_retcode||')');
392: END IF;
393: END;
394: END IF;
395:
405: WHEN OTHERS THEN
406: p_retcode := g_FAILURE;
407: p_errbuf := SQLERRM;
408: l_location := l_module_name||'select_fnd_concurrent_programs';
409: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
410: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_errbuf) ;
411: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
412: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_retcode||')');
413: END IF;
406: p_retcode := g_FAILURE;
407: p_errbuf := SQLERRM;
408: l_location := l_module_name||'select_fnd_concurrent_programs';
409: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
410: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_errbuf) ;
411: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
412: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_retcode||')');
413: END IF;
414: END;
407: p_errbuf := SQLERRM;
408: l_location := l_module_name||'select_fnd_concurrent_programs';
409: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
410: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_errbuf) ;
411: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
412: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_retcode||')');
413: END IF;
414: END;
415: END IF;
408: l_location := l_module_name||'select_fnd_concurrent_programs';
409: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
410: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_errbuf) ;
411: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
412: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_retcode||')');
413: END IF;
414: END;
415: END IF;
416:
413: END IF;
414: END;
415: END IF;
416:
417: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
418: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, '*****OUTPUT PARAMETERS******');
419: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_vendor_type = '||p_vendor_type);
420: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_elimination_id = '||p_elimination_id);
421: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_period_year = '||p_period_year);
414: END;
415: END IF;
416:
417: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
418: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, '*****OUTPUT PARAMETERS******');
419: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_vendor_type = '||p_vendor_type);
420: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_elimination_id = '||p_elimination_id);
421: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_period_year = '||p_period_year);
422: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_from_period_num = '||p_from_period_num);
415: END IF;
416:
417: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
418: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, '*****OUTPUT PARAMETERS******');
419: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_vendor_type = '||p_vendor_type);
420: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_elimination_id = '||p_elimination_id);
421: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_period_year = '||p_period_year);
422: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_from_period_num = '||p_from_period_num);
423: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_to_period_num = '||p_to_period_num);
416:
417: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
418: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, '*****OUTPUT PARAMETERS******');
419: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_vendor_type = '||p_vendor_type);
420: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_elimination_id = '||p_elimination_id);
421: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_period_year = '||p_period_year);
422: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_from_period_num = '||p_from_period_num);
423: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_to_period_num = '||p_to_period_num);
424: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_errbuf = '||p_errbuf);
417: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
418: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, '*****OUTPUT PARAMETERS******');
419: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_vendor_type = '||p_vendor_type);
420: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_elimination_id = '||p_elimination_id);
421: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_period_year = '||p_period_year);
422: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_from_period_num = '||p_from_period_num);
423: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_to_period_num = '||p_to_period_num);
424: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_errbuf = '||p_errbuf);
425: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_retcode = '||p_retcode);
418: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, '*****OUTPUT PARAMETERS******');
419: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_vendor_type = '||p_vendor_type);
420: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_elimination_id = '||p_elimination_id);
421: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_period_year = '||p_period_year);
422: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_from_period_num = '||p_from_period_num);
423: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_to_period_num = '||p_to_period_num);
424: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_errbuf = '||p_errbuf);
425: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_retcode = '||p_retcode);
426: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, '****************************');
419: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_vendor_type = '||p_vendor_type);
420: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_elimination_id = '||p_elimination_id);
421: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_period_year = '||p_period_year);
422: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_from_period_num = '||p_from_period_num);
423: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_to_period_num = '||p_to_period_num);
424: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_errbuf = '||p_errbuf);
425: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_retcode = '||p_retcode);
426: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, '****************************');
427: END IF;
420: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_elimination_id = '||p_elimination_id);
421: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_period_year = '||p_period_year);
422: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_from_period_num = '||p_from_period_num);
423: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_to_period_num = '||p_to_period_num);
424: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_errbuf = '||p_errbuf);
425: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_retcode = '||p_retcode);
426: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, '****************************');
427: END IF;
428:
421: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_period_year = '||p_period_year);
422: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_from_period_num = '||p_from_period_num);
423: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_to_period_num = '||p_to_period_num);
424: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_errbuf = '||p_errbuf);
425: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_retcode = '||p_retcode);
426: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, '****************************');
427: END IF;
428:
429: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
422: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_from_period_num = '||p_from_period_num);
423: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_to_period_num = '||p_to_period_num);
424: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_errbuf = '||p_errbuf);
425: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_retcode = '||p_retcode);
426: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, '****************************');
427: END IF;
428:
429: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
430: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_retcode||')');
425: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_retcode = '||p_retcode);
426: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, '****************************');
427: END IF;
428:
429: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
430: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_retcode||')');
431: END IF;
432: EXCEPTION
433: WHEN OTHERS THEN
426: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, '****************************');
427: END IF;
428:
429: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
430: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_retcode||')');
431: END IF;
432: EXCEPTION
433: WHEN OTHERS THEN
434: p_retcode := g_FAILURE;
433: WHEN OTHERS THEN
434: p_retcode := g_FAILURE;
435: p_errbuf := SQLERRM;
436: l_location := l_module_name||'.final_exception';
437: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
438: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_errbuf) ;
439: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
440: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_retcode||')');
441: END IF;
434: p_retcode := g_FAILURE;
435: p_errbuf := SQLERRM;
436: l_location := l_module_name||'.final_exception';
437: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
438: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_errbuf) ;
439: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
440: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_retcode||')');
441: END IF;
442: END;
435: p_errbuf := SQLERRM;
436: l_location := l_module_name||'.final_exception';
437: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
438: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_errbuf) ;
439: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
440: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_retcode||')');
441: END IF;
442: END;
443:
436: l_location := l_module_name||'.final_exception';
437: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
438: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_errbuf) ;
439: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
440: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_retcode||')');
441: END IF;
442: END;
443:
444: --****************************************************************************************--
456: --* Global Vars : g_SUCCESS *--
457: --* : g_FAILURE *--
458: --* : g_enter *--
459: --* : g_exit *--
460: --* : fnd_log.level_procedure *--
461: --* : g_module_name *--
462: --* : fnd_log.g_current_runtime_level *--
463: --* : fnd_log.level_statement *--
464: --* : fnd_log.level_unexpected *--
458: --* : g_enter *--
459: --* : g_exit *--
460: --* : fnd_log.level_procedure *--
461: --* : g_module_name *--
462: --* : fnd_log.g_current_runtime_level *--
463: --* : fnd_log.level_statement *--
464: --* : fnd_log.level_unexpected *--
465: --* : g_conc_program_name *--
466: --* : g_user_id *--
459: --* : g_exit *--
460: --* : fnd_log.level_procedure *--
461: --* : g_module_name *--
462: --* : fnd_log.g_current_runtime_level *--
463: --* : fnd_log.level_statement *--
464: --* : fnd_log.level_unexpected *--
465: --* : g_conc_program_name *--
466: --* : g_user_id *--
467: --* : g_login_id *--
460: --* : fnd_log.level_procedure *--
461: --* : g_module_name *--
462: --* : fnd_log.g_current_runtime_level *--
463: --* : fnd_log.level_statement *--
464: --* : fnd_log.level_unexpected *--
465: --* : g_conc_program_name *--
466: --* : g_user_id *--
467: --* : g_login_id *--
468: --* : g_set_of_books_id *--
500: BEGIN
501: l_module_name := g_module_name || 'main';
502: p_retcode := g_SUCCESS;
503:
504: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
505: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_enter);
506: END IF;
507:
508: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
501: l_module_name := g_module_name || 'main';
502: p_retcode := g_SUCCESS;
503:
504: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
505: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_enter);
506: END IF;
507:
508: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
509: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, '*****INPUT PARAMETERS*******');
504: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
505: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_enter);
506: END IF;
507:
508: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
509: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, '*****INPUT PARAMETERS*******');
510: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_ledger_id = '||p_ledger_id);
511: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_vendor_or_cust = '||p_vendor_or_cust);
512: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_vendor_or_cust_id = '||p_vendor_or_cust_id);
505: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_enter);
506: END IF;
507:
508: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
509: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, '*****INPUT PARAMETERS*******');
510: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_ledger_id = '||p_ledger_id);
511: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_vendor_or_cust = '||p_vendor_or_cust);
512: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_vendor_or_cust_id = '||p_vendor_or_cust_id);
513: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_from_period = '||p_from_period);
506: END IF;
507:
508: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
509: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, '*****INPUT PARAMETERS*******');
510: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_ledger_id = '||p_ledger_id);
511: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_vendor_or_cust = '||p_vendor_or_cust);
512: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_vendor_or_cust_id = '||p_vendor_or_cust_id);
513: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_from_period = '||p_from_period);
514: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_to_period = '||p_to_period);
507:
508: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
509: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, '*****INPUT PARAMETERS*******');
510: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_ledger_id = '||p_ledger_id);
511: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_vendor_or_cust = '||p_vendor_or_cust);
512: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_vendor_or_cust_id = '||p_vendor_or_cust_id);
513: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_from_period = '||p_from_period);
514: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_to_period = '||p_to_period);
515: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, '****************************');
508: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
509: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, '*****INPUT PARAMETERS*******');
510: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_ledger_id = '||p_ledger_id);
511: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_vendor_or_cust = '||p_vendor_or_cust);
512: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_vendor_or_cust_id = '||p_vendor_or_cust_id);
513: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_from_period = '||p_from_period);
514: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_to_period = '||p_to_period);
515: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, '****************************');
516: END IF;
509: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, '*****INPUT PARAMETERS*******');
510: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_ledger_id = '||p_ledger_id);
511: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_vendor_or_cust = '||p_vendor_or_cust);
512: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_vendor_or_cust_id = '||p_vendor_or_cust_id);
513: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_from_period = '||p_from_period);
514: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_to_period = '||p_to_period);
515: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, '****************************');
516: END IF;
517:
510: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_ledger_id = '||p_ledger_id);
511: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_vendor_or_cust = '||p_vendor_or_cust);
512: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_vendor_or_cust_id = '||p_vendor_or_cust_id);
513: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_from_period = '||p_from_period);
514: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_to_period = '||p_to_period);
515: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, '****************************');
516: END IF;
517:
518: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
511: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_vendor_or_cust = '||p_vendor_or_cust);
512: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_vendor_or_cust_id = '||p_vendor_or_cust_id);
513: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_from_period = '||p_from_period);
514: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_to_period = '||p_to_period);
515: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, '****************************');
516: END IF;
517:
518: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
519: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'Calling process_parameters');
514: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_to_period = '||p_to_period);
515: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, '****************************');
516: END IF;
517:
518: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
519: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'Calling process_parameters');
520: END IF;
521:
522: IF (p_retcode = g_SUCCESS) THEN
515: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, '****************************');
516: END IF;
517:
518: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
519: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'Calling process_parameters');
520: END IF;
521:
522: IF (p_retcode = g_SUCCESS) THEN
523: process_parameters
536: p_retcode => p_retcode
537: );
538: END IF;
539:
540: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
541: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'Returned from process_parameters');
542: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'l_vendor_type = '||l_vendor_type);
543: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'l_elimination_id = '||l_elimination_id);
544: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'l_period_year = '||l_period_year);
537: );
538: END IF;
539:
540: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
541: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'Returned from process_parameters');
542: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'l_vendor_type = '||l_vendor_type);
543: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'l_elimination_id = '||l_elimination_id);
544: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'l_period_year = '||l_period_year);
545: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'l_from_period_num = '||l_from_period_num);
538: END IF;
539:
540: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
541: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'Returned from process_parameters');
542: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'l_vendor_type = '||l_vendor_type);
543: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'l_elimination_id = '||l_elimination_id);
544: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'l_period_year = '||l_period_year);
545: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'l_from_period_num = '||l_from_period_num);
546: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'l_to_period_num = '||l_to_period_num);
539:
540: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
541: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'Returned from process_parameters');
542: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'l_vendor_type = '||l_vendor_type);
543: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'l_elimination_id = '||l_elimination_id);
544: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'l_period_year = '||l_period_year);
545: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'l_from_period_num = '||l_from_period_num);
546: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'l_to_period_num = '||l_to_period_num);
547: END IF;
540: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
541: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'Returned from process_parameters');
542: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'l_vendor_type = '||l_vendor_type);
543: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'l_elimination_id = '||l_elimination_id);
544: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'l_period_year = '||l_period_year);
545: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'l_from_period_num = '||l_from_period_num);
546: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'l_to_period_num = '||l_to_period_num);
547: END IF;
548:
541: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'Returned from process_parameters');
542: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'l_vendor_type = '||l_vendor_type);
543: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'l_elimination_id = '||l_elimination_id);
544: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'l_period_year = '||l_period_year);
545: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'l_from_period_num = '||l_from_period_num);
546: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'l_to_period_num = '||l_to_period_num);
547: END IF;
548:
549: IF (p_retcode = g_SUCCESS) THEN
542: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'l_vendor_type = '||l_vendor_type);
543: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'l_elimination_id = '||l_elimination_id);
544: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'l_period_year = '||l_period_year);
545: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'l_from_period_num = '||l_from_period_num);
546: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'l_to_period_num = '||l_to_period_num);
547: END IF;
548:
549: IF (p_retcode = g_SUCCESS) THEN
550: BEGIN
547: END IF;
548:
549: IF (p_retcode = g_SUCCESS) THEN
550: BEGIN
551: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
552: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'Updating fv_facts_period_balances');
553: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'l_elimination_id = '||l_elimination_id);
554: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'l_vendor_type = '||l_vendor_type);
555: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'l_period_year = '||l_period_year);
548:
549: IF (p_retcode = g_SUCCESS) THEN
550: BEGIN
551: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
552: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'Updating fv_facts_period_balances');
553: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'l_elimination_id = '||l_elimination_id);
554: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'l_vendor_type = '||l_vendor_type);
555: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'l_period_year = '||l_period_year);
556: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'l_from_period_num = '||l_from_period_num);
549: IF (p_retcode = g_SUCCESS) THEN
550: BEGIN
551: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
552: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'Updating fv_facts_period_balances');
553: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'l_elimination_id = '||l_elimination_id);
554: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'l_vendor_type = '||l_vendor_type);
555: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'l_period_year = '||l_period_year);
556: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'l_from_period_num = '||l_from_period_num);
557: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'l_to_period_num = '||l_to_period_num);
550: BEGIN
551: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
552: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'Updating fv_facts_period_balances');
553: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'l_elimination_id = '||l_elimination_id);
554: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'l_vendor_type = '||l_vendor_type);
555: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'l_period_year = '||l_period_year);
556: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'l_from_period_num = '||l_from_period_num);
557: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'l_to_period_num = '||l_to_period_num);
558: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'g_set_of_books_id = '||g_set_of_books_id);
551: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
552: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'Updating fv_facts_period_balances');
553: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'l_elimination_id = '||l_elimination_id);
554: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'l_vendor_type = '||l_vendor_type);
555: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'l_period_year = '||l_period_year);
556: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'l_from_period_num = '||l_from_period_num);
557: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'l_to_period_num = '||l_to_period_num);
558: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'g_set_of_books_id = '||g_set_of_books_id);
559: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_vendor_or_cust = '||p_vendor_or_cust);
552: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'Updating fv_facts_period_balances');
553: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'l_elimination_id = '||l_elimination_id);
554: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'l_vendor_type = '||l_vendor_type);
555: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'l_period_year = '||l_period_year);
556: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'l_from_period_num = '||l_from_period_num);
557: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'l_to_period_num = '||l_to_period_num);
558: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'g_set_of_books_id = '||g_set_of_books_id);
559: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_vendor_or_cust = '||p_vendor_or_cust);
560: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_ledger_id = '||p_ledger_id);
553: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'l_elimination_id = '||l_elimination_id);
554: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'l_vendor_type = '||l_vendor_type);
555: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'l_period_year = '||l_period_year);
556: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'l_from_period_num = '||l_from_period_num);
557: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'l_to_period_num = '||l_to_period_num);
558: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'g_set_of_books_id = '||g_set_of_books_id);
559: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_vendor_or_cust = '||p_vendor_or_cust);
560: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_ledger_id = '||p_ledger_id);
561: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_vendor_or_cust_id = '||p_vendor_or_cust_id);
554: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'l_vendor_type = '||l_vendor_type);
555: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'l_period_year = '||l_period_year);
556: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'l_from_period_num = '||l_from_period_num);
557: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'l_to_period_num = '||l_to_period_num);
558: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'g_set_of_books_id = '||g_set_of_books_id);
559: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_vendor_or_cust = '||p_vendor_or_cust);
560: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_ledger_id = '||p_ledger_id);
561: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_vendor_or_cust_id = '||p_vendor_or_cust_id);
562: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'g_conc_program_name = '||g_conc_program_name);
555: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'l_period_year = '||l_period_year);
556: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'l_from_period_num = '||l_from_period_num);
557: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'l_to_period_num = '||l_to_period_num);
558: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'g_set_of_books_id = '||g_set_of_books_id);
559: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_vendor_or_cust = '||p_vendor_or_cust);
560: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_ledger_id = '||p_ledger_id);
561: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_vendor_or_cust_id = '||p_vendor_or_cust_id);
562: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'g_conc_program_name = '||g_conc_program_name);
563: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'g_user_id = '||g_user_id);
556: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'l_from_period_num = '||l_from_period_num);
557: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'l_to_period_num = '||l_to_period_num);
558: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'g_set_of_books_id = '||g_set_of_books_id);
559: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_vendor_or_cust = '||p_vendor_or_cust);
560: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_ledger_id = '||p_ledger_id);
561: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_vendor_or_cust_id = '||p_vendor_or_cust_id);
562: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'g_conc_program_name = '||g_conc_program_name);
563: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'g_user_id = '||g_user_id);
564: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'g_login_id = '||g_login_id);
557: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'l_to_period_num = '||l_to_period_num);
558: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'g_set_of_books_id = '||g_set_of_books_id);
559: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_vendor_or_cust = '||p_vendor_or_cust);
560: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_ledger_id = '||p_ledger_id);
561: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_vendor_or_cust_id = '||p_vendor_or_cust_id);
562: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'g_conc_program_name = '||g_conc_program_name);
563: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'g_user_id = '||g_user_id);
564: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'g_login_id = '||g_login_id);
565: END IF;
558: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'g_set_of_books_id = '||g_set_of_books_id);
559: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_vendor_or_cust = '||p_vendor_or_cust);
560: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_ledger_id = '||p_ledger_id);
561: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_vendor_or_cust_id = '||p_vendor_or_cust_id);
562: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'g_conc_program_name = '||g_conc_program_name);
563: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'g_user_id = '||g_user_id);
564: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'g_login_id = '||g_login_id);
565: END IF;
566:
559: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_vendor_or_cust = '||p_vendor_or_cust);
560: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_ledger_id = '||p_ledger_id);
561: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_vendor_or_cust_id = '||p_vendor_or_cust_id);
562: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'g_conc_program_name = '||g_conc_program_name);
563: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'g_user_id = '||g_user_id);
564: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'g_login_id = '||g_login_id);
565: END IF;
566:
567: FOR sob_rec IN (SELECT set_of_books_id
560: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_ledger_id = '||p_ledger_id);
561: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_vendor_or_cust_id = '||p_vendor_or_cust_id);
562: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'g_conc_program_name = '||g_conc_program_name);
563: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'g_user_id = '||g_user_id);
564: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'g_login_id = '||g_login_id);
565: END IF;
566:
567: FOR sob_rec IN (SELECT set_of_books_id
568: FROM fv_facts1_run
583: l_rows := SQL%ROWCOUNT;
584: l_tot_rows := l_tot_rows + SQL%ROWCOUNT;
585:
586:
587: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
588: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,
589: 'Updated fv_facts1_line_balances');
590: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,l_rows||' rows updated.');
591: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'for set of books id: '|| sob_rec.set_of_books_id);
584: l_tot_rows := l_tot_rows + SQL%ROWCOUNT;
585:
586:
587: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
588: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,
589: 'Updated fv_facts1_line_balances');
590: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,l_rows||' rows updated.');
591: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'for set of books id: '|| sob_rec.set_of_books_id);
592: END IF;
586:
587: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
588: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,
589: 'Updated fv_facts1_line_balances');
590: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,l_rows||' rows updated.');
591: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'for set of books id: '|| sob_rec.set_of_books_id);
592: END IF;
593:
594:
587: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
588: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,
589: 'Updated fv_facts1_line_balances');
590: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,l_rows||' rows updated.');
591: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name,'for set of books id: '|| sob_rec.set_of_books_id);
592: END IF;
593:
594:
595: END LOOP;
598: WHEN OTHERS THEN
599: p_retcode := g_FAILURE;
600: p_errbuf := SQLERRM;
601: l_location := l_module_name||'update_fv_facts1_line_balances';
602: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
603: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_errbuf) ;
604: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
605: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_retcode||')');
606: END IF;
599: p_retcode := g_FAILURE;
600: p_errbuf := SQLERRM;
601: l_location := l_module_name||'update_fv_facts1_line_balances';
602: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
603: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_errbuf) ;
604: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
605: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_retcode||')');
606: END IF;
607: END;
600: p_errbuf := SQLERRM;
601: l_location := l_module_name||'update_fv_facts1_line_balances';
602: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
603: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_errbuf) ;
604: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
605: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_retcode||')');
606: END IF;
607: END;
608: END IF;
601: l_location := l_module_name||'update_fv_facts1_line_balances';
602: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
603: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_errbuf) ;
604: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
605: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_retcode||')');
606: END IF;
607: END;
608: END IF;
609:
606: END IF;
607: END;
608: END IF;
609:
610: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
611: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, '*****OUTPUT PARAMETERS******');
612: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_errbuf = '||p_errbuf);
613: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_retcode = '||p_retcode);
614: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, '****************************');
607: END;
608: END IF;
609:
610: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
611: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, '*****OUTPUT PARAMETERS******');
612: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_errbuf = '||p_errbuf);
613: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_retcode = '||p_retcode);
614: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, '****************************');
615: END IF;
608: END IF;
609:
610: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
611: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, '*****OUTPUT PARAMETERS******');
612: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_errbuf = '||p_errbuf);
613: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_retcode = '||p_retcode);
614: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, '****************************');
615: END IF;
616:
609:
610: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
611: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, '*****OUTPUT PARAMETERS******');
612: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_errbuf = '||p_errbuf);
613: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_retcode = '||p_retcode);
614: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, '****************************');
615: END IF;
616:
617: fv_utility.log_mesg(fnd_log.level_statement, l_module_name, 'UPDATED '||l_tot_rows||' ROWS IN FV_FACTS1_LINE_BALANCES.');
610: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
611: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, '*****OUTPUT PARAMETERS******');
612: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_errbuf = '||p_errbuf);
613: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_retcode = '||p_retcode);
614: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, '****************************');
615: END IF;
616:
617: fv_utility.log_mesg(fnd_log.level_statement, l_module_name, 'UPDATED '||l_tot_rows||' ROWS IN FV_FACTS1_LINE_BALANCES.');
618:
613: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, 'p_retcode = '||p_retcode);
614: fv_utility.debug_mesg(fnd_log.level_statement, l_module_name, '****************************');
615: END IF;
616:
617: fv_utility.log_mesg(fnd_log.level_statement, l_module_name, 'UPDATED '||l_tot_rows||' ROWS IN FV_FACTS1_LINE_BALANCES.');
618:
619: l_tot_rows := 0;
620:
621:
618:
619: l_tot_rows := 0;
620:
621:
622: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
623: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_retcode||')');
624: END IF;
625: EXCEPTION
626: WHEN OTHERS THEN
619: l_tot_rows := 0;
620:
621:
622: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
623: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_retcode||')');
624: END IF;
625: EXCEPTION
626: WHEN OTHERS THEN
627: p_retcode := g_FAILURE;
626: WHEN OTHERS THEN
627: p_retcode := g_FAILURE;
628: p_errbuf := SQLERRM;
629: l_location := l_module_name||'.final_exception';
630: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
631: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_errbuf) ;
632: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
633: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_retcode||')');
634: END IF;
627: p_retcode := g_FAILURE;
628: p_errbuf := SQLERRM;
629: l_location := l_module_name||'.final_exception';
630: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
631: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_errbuf) ;
632: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
633: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_retcode||')');
634: END IF;
635: ROLLBACK;
628: p_errbuf := SQLERRM;
629: l_location := l_module_name||'.final_exception';
630: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
631: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_errbuf) ;
632: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
633: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_retcode||')');
634: END IF;
635: ROLLBACK;
636: END;
629: l_location := l_module_name||'.final_exception';
630: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,l_location) ;
631: fv_utility.log_mesg(fnd_log.level_unexpected, l_location,p_errbuf) ;
632: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
633: fv_utility.debug_mesg(fnd_log.level_procedure, l_module_name,g_exit||'('||p_retcode||')');
634: END IF;
635: ROLLBACK;
636: END;
637: