82: l_currency_conversion_rate number;
83: l_currency_conversion_date date;
84:
85: BEGIN
86: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
87: THEN
88: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
89: , G_MODULE_NAME || l_procedure_name || '.begin'
90: ,'enter procedure'
84:
85: BEGIN
86: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
87: THEN
88: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
89: , G_MODULE_NAME || l_procedure_name || '.begin'
90: ,'enter procedure'
91: );
92:
89: , G_MODULE_NAME || l_procedure_name || '.begin'
90: ,'enter procedure'
91: );
92:
93: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
94: , G_MODULE_NAME || l_procedure_name || '.legal entiry id - '
95: ,p_movement_transaction.entity_org_id
96: );
97:
94: , G_MODULE_NAME || l_procedure_name || '.legal entiry id - '
95: ,p_movement_transaction.entity_org_id
96: );
97:
98: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
99: , G_MODULE_NAME || l_procedure_name || '.stat type - '
100: ,p_movement_transaction.stat_type
101: );
102:
99: , G_MODULE_NAME || l_procedure_name || '.stat type - '
100: ,p_movement_transaction.stat_type
101: );
102:
103: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
104: , G_MODULE_NAME || l_procedure_name || '.period name - '
105: ,p_movement_transaction.period_name
106: );
107:
123: WHERE
124: legal_entity_id = p_movement_transaction.entity_org_id
125: AND stat_type = p_movement_transaction.stat_type;
126:
127: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
128: THEN
129: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
130: , G_MODULE_NAME || l_procedure_name || '.period set name'
131: ,l_period_set_name
125: AND stat_type = p_movement_transaction.stat_type;
126:
127: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
128: THEN
129: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
130: , G_MODULE_NAME || l_procedure_name || '.period set name'
131: ,l_period_set_name
132: );
133:
130: , G_MODULE_NAME || l_procedure_name || '.period set name'
131: ,l_period_set_name
132: );
133:
134: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
135: , G_MODULE_NAME || l_procedure_name || '.period type - '
136: ,l_period_type
137: );
138:
135: , G_MODULE_NAME || l_procedure_name || '.period type - '
136: ,l_period_type
137: );
138:
139: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
140: , G_MODULE_NAME || l_procedure_name || '.conversion option - '
141: ,l_conversion_option
142: );
143:
140: , G_MODULE_NAME || l_procedure_name || '.conversion option - '
141: ,l_conversion_option
142: );
143:
144: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
145: , G_MODULE_NAME || l_procedure_name || '.conversion type - '
146: ,l_conversion_type
147: );
148:
159: AND period_set_name = l_period_set_name
160: AND period_type = l_period_type;
161:
162:
163: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
164: THEN
165: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
166: , G_MODULE_NAME || l_procedure_name || '.last day of period'
167: , l_last_dayofperiod
161:
162:
163: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
164: THEN
165: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
166: , G_MODULE_NAME || l_procedure_name || '.last day of period'
167: , l_last_dayofperiod
168: );
169: END IF ;
170:
171: IF UPPER(l_conversion_option) = 'CO_LAST_DAY'
172: THEN
173:
174: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
175: THEN
176: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
177: , G_MODULE_NAME || l_procedure_name || '.co last day'
178: , l_conversion_option
172: THEN
173:
174: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
175: THEN
176: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
177: , G_MODULE_NAME || l_procedure_name || '.co last day'
178: , l_conversion_option
179: );
180: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
176: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
177: , G_MODULE_NAME || l_procedure_name || '.co last day'
178: , l_conversion_option
179: );
180: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
181: , G_MODULE_NAME || l_procedure_name || '.invoice currency code'
182: , p_invoice_currency_code
183: );
184: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
180: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
181: , G_MODULE_NAME || l_procedure_name || '.invoice currency code'
182: , p_invoice_currency_code
183: );
184: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
185: , G_MODULE_NAME || l_procedure_name || '.gl_currency_code'
186: , p_movement_transaction.gl_currency_code
187: );
188: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
184: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
185: , G_MODULE_NAME || l_procedure_name || '.gl_currency_code'
186: , p_movement_transaction.gl_currency_code
187: );
188: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
189: , G_MODULE_NAME || l_procedure_name || '.l_last_dayofperiod'
190: , l_last_dayofperiod
191: );
192: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
188: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
189: , G_MODULE_NAME || l_procedure_name || '.l_last_dayofperiod'
190: , l_last_dayofperiod
191: );
192: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
193: , G_MODULE_NAME || l_procedure_name || '.l_conversion_type'
194: , l_conversion_type
195: );
196: END IF ;
201: , x_conversion_date => l_last_dayofperiod
202: , x_conversion_type => l_conversion_type
203: );
204:
205: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
206: THEN
207: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
208: , G_MODULE_NAME || l_procedure_name || '.conversion rate'
209: , l_currency_conversion_rate
203: );
204:
205: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
206: THEN
207: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
208: , G_MODULE_NAME || l_procedure_name || '.conversion rate'
209: , l_currency_conversion_rate
210: );
211: END IF ;
212:
213:
214: ELSE
215:
216: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
217: THEN
218: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
219: , G_MODULE_NAME || l_procedure_name || '.CO DAILY'
220: , 'in daily conversion routine'
214: ELSE
215:
216: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
217: THEN
218: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
219: , G_MODULE_NAME || l_procedure_name || '.CO DAILY'
220: , 'in daily conversion routine'
221: );
222: END IF ;
220: , 'in daily conversion routine'
221: );
222: END IF ;
223:
224: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
225: THEN
226: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
227: , G_MODULE_NAME || l_procedure_name || '.co last day'
228: , l_conversion_option
222: END IF ;
223:
224: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
225: THEN
226: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
227: , G_MODULE_NAME || l_procedure_name || '.co last day'
228: , l_conversion_option
229: );
230: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
226: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
227: , G_MODULE_NAME || l_procedure_name || '.co last day'
228: , l_conversion_option
229: );
230: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
231: , G_MODULE_NAME || l_procedure_name || '.invoice currency code'
232: , p_invoice_currency_code
233: );
234: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
230: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
231: , G_MODULE_NAME || l_procedure_name || '.invoice currency code'
232: , p_invoice_currency_code
233: );
234: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
235: , G_MODULE_NAME || l_procedure_name || '.gl_currency_code'
236: , p_movement_transaction.gl_currency_code
237: );
238: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
234: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
235: , G_MODULE_NAME || l_procedure_name || '.gl_currency_code'
236: , p_movement_transaction.gl_currency_code
237: );
238: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
239: , G_MODULE_NAME || l_procedure_name || '.l_last_dayofperiod'
240: , l_last_dayofperiod
241: );
242: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
238: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
239: , G_MODULE_NAME || l_procedure_name || '.l_last_dayofperiod'
240: , l_last_dayofperiod
241: );
242: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
243: , G_MODULE_NAME || l_procedure_name || '.l_conversion_type'
244: , l_conversion_type
245: );
246: END IF ;
260: THEN
261: l_currency_conversion_rate := 1;
262: END IF;
263:
264: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
265: THEN
266: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
267: , G_MODULE_NAME || l_procedure_name || '.end'
268: ,'exit procedure'
262: END IF;
263:
264: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
265: THEN
266: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
267: , G_MODULE_NAME || l_procedure_name || '.end'
268: ,'exit procedure'
269: );
270: END IF;
272: return l_currency_conversion_rate;
273: EXCEPTION
274: WHEN GL_CURRENCY_API.no_rate
275: THEN
276: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
277: THEN
278: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
279: , G_MODULE_NAME || l_procedure_name||'.No rate exception'
280: , 'Exception'
274: WHEN GL_CURRENCY_API.no_rate
275: THEN
276: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
277: THEN
278: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
279: , G_MODULE_NAME || l_procedure_name||'.No rate exception'
280: , 'Exception'
281: );
282: END IF;
283: l_currency_conversion_rate := 1;
284: return l_currency_conversion_rate;
285: WHEN NO_DATA_FOUND
286: THEN
287: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
288: THEN
289: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
290: , G_MODULE_NAME || l_procedure_name||'.No data found exception'
291: , 'Exception'
285: WHEN NO_DATA_FOUND
286: THEN
287: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
288: THEN
289: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
290: , G_MODULE_NAME || l_procedure_name||'.No data found exception'
291: , 'Exception'
292: );
293: END IF;
294: l_currency_conversion_rate := 1;
295: return l_currency_conversion_rate;
296: WHEN OTHERS
297: THEN
298: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
299: THEN
300: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
301: , G_MODULE_NAME || l_procedure_name||'.Others exception'
302: , 'Exception'
296: WHEN OTHERS
297: THEN
298: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
299: THEN
300: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
301: , G_MODULE_NAME || l_procedure_name||'.Others exception'
302: , 'Exception'
303: );
304: END IF;
377: AND ratl.interface_line_attribute6 = to_char(oola.line_id)
378: AND oola.top_model_line_id = p_order_line_id
379: AND ratl.interface_line_context <> 'INTERCOMPANY';
380: BEGIN
381: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
382: THEN
383: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
384: , G_MODULE_NAME || l_procedure_name || '.begin'
385: ,'enter procedure'
379: AND ratl.interface_line_context <> 'INTERCOMPANY';
380: BEGIN
381: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
382: THEN
383: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
384: , G_MODULE_NAME || l_procedure_name || '.begin'
385: ,'enter procedure'
386: );
387: END IF;
397: FETCH l_cto_cm_amt INTO
398: x_cm_extended_amount;
399: CLOSE l_cto_cm_amt;
400:
401: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
402: THEN
403: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
404: , G_MODULE_NAME || l_procedure_name || '.end'
405: ,'exit procedure'
399: CLOSE l_cto_cm_amt;
400:
401: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
402: THEN
403: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
404: , G_MODULE_NAME || l_procedure_name || '.end'
405: ,'exit procedure'
406: );
407: END IF;
407: END IF;
408:
409: EXCEPTION
410: WHEN OTHERS THEN
411: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
412: THEN
413: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
414: , G_MODULE_NAME || l_procedure_name||'.Others exception'
415: , 'Exception'
409: EXCEPTION
410: WHEN OTHERS THEN
411: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
412: THEN
413: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
414: , G_MODULE_NAME || l_procedure_name||'.Others exception'
415: , 'Exception'
416: );
417: END IF;
489: AND rat.complete_flag = 'Y'
490: AND ratl.interface_line_context <> 'INTERCOMPANY';
491:
492: BEGIN
493: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
494: THEN
495: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
496: , G_MODULE_NAME || l_procedure_name || '.begin'
497: ,'enter procedure'
491:
492: BEGIN
493: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
494: THEN
495: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
496: , G_MODULE_NAME || l_procedure_name || '.begin'
497: ,'enter procedure'
498: );
499: END IF;
509: FETCH l_cto_cm_amt_drp INTO
510: x_cm_extended_amount;
511: CLOSE l_cto_cm_amt_drp;
512:
513: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
514: THEN
515: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
516: , G_MODULE_NAME || l_procedure_name || '.end'
517: ,'exit procedure'
511: CLOSE l_cto_cm_amt_drp;
512:
513: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
514: THEN
515: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
516: , G_MODULE_NAME || l_procedure_name || '.end'
517: ,'exit procedure'
518: );
519: END IF;
519: END IF;
520:
521: EXCEPTION
522: WHEN OTHERS THEN
523: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
524: THEN
525: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
526: , G_MODULE_NAME || l_procedure_name||'. Others exception'
527: , 'Exception'
521: EXCEPTION
522: WHEN OTHERS THEN
523: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
524: THEN
525: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
526: , G_MODULE_NAME || l_procedure_name||'. Others exception'
527: , 'Exception'
528: );
529: END IF;
599: AND ratl.interface_line_context <> 'INTERCOMPANY';
600: /*End bug 8435314 */
601:
602: BEGIN
603: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
604: THEN
605: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
606: , G_MODULE_NAME || l_procedure_name || '.begin'
607: ,'enter procedure'
601:
602: BEGIN
603: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
604: THEN
605: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
606: , G_MODULE_NAME || l_procedure_name || '.begin'
607: ,'enter procedure'
608: );
609: END IF;
614: FETCH l_cto_amt_rma INTO
615: x_extended_amount;
616: CLOSE l_cto_amt_rma;
617:
618: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
619: THEN
620: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
621: , G_MODULE_NAME || l_procedure_name || '.end'
622: ,'exit procedure'
616: CLOSE l_cto_amt_rma;
617:
618: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
619: THEN
620: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
621: , G_MODULE_NAME || l_procedure_name || '.end'
622: ,'exit procedure'
623: );
624: END IF;
624: END IF;
625:
626: EXCEPTION
627: WHEN OTHERS THEN
628: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
629: THEN
630: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
631: , G_MODULE_NAME || l_procedure_name||'. Others exception'
632: , 'Exception'
626: EXCEPTION
627: WHEN OTHERS THEN
628: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
629: THEN
630: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
631: , G_MODULE_NAME || l_procedure_name||'. Others exception'
632: , 'Exception'
633: );
634: END IF;
660: AND ratl.sales_order = p_order_number
661: AND oola.top_model_line_id = p_order_line_id
662: AND ratl.interface_line_context = 'INTERCOMPANY';
663: BEGIN
664: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
665: THEN
666: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
667: , G_MODULE_NAME || l_procedure_name || '.begin'
668: ,'enter procedure'
662: AND ratl.interface_line_context = 'INTERCOMPANY';
663: BEGIN
664: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
665: THEN
666: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
667: , G_MODULE_NAME || l_procedure_name || '.begin'
668: ,'enter procedure'
669: );
670: END IF;
675: FETCH l_cto_amt_ar INTO
676: x_extended_amount;
677: CLOSE l_cto_amt_ar;
678:
679: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
680: THEN
681: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
682: , G_MODULE_NAME || l_procedure_name || '.end'
683: ,'exit procedure'
677: CLOSE l_cto_amt_ar;
678:
679: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
680: THEN
681: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
682: , G_MODULE_NAME || l_procedure_name || '.end'
683: ,'exit procedure'
684: );
685: END IF;
685: END IF;
686:
687: EXCEPTION
688: WHEN OTHERS THEN
689: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
690: THEN
691: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
692: , G_MODULE_NAME || l_procedure_name||'. Others exception'
693: , 'Exception'
687: EXCEPTION
688: WHEN OTHERS THEN
689: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
690: THEN
691: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
692: , G_MODULE_NAME || l_procedure_name||'. Others exception'
693: , 'Exception'
694: );
695: END IF;
746: WHERE aida.invoice_id = aia.invoice_id
747: AND NVL(aida.match_status_flag, 'N') NOT in ('N', 'S'));
748:
749: BEGIN
750: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
751: THEN
752: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
753: , G_MODULE_NAME || l_procedure_name || '.begin'
754: ,'enter procedure'
748:
749: BEGIN
750: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
751: THEN
752: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
753: , G_MODULE_NAME || l_procedure_name || '.begin'
754: ,'enter procedure'
755: );
756: END IF;
761: FETCH l_cto_amt_ap INTO
762: x_extended_amount;
763: CLOSE l_cto_amt_ap;
764:
765: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
766: THEN
767: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
768: , G_MODULE_NAME || l_procedure_name || '.end'
769: ,'exit procedure'
763: CLOSE l_cto_amt_ap;
764:
765: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
766: THEN
767: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
768: , G_MODULE_NAME || l_procedure_name || '.end'
769: ,'exit procedure'
770: );
771: END IF;
771: END IF;
772:
773: EXCEPTION
774: WHEN OTHERS THEN
775: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
776: THEN
777: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
778: , G_MODULE_NAME || l_procedure_name||'. Others exception'
779: , 'Exception'
773: EXCEPTION
774: WHEN OTHERS THEN
775: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
776: THEN
777: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
778: , G_MODULE_NAME || l_procedure_name||'. Others exception'
779: , 'Exception'
780: );
781: END IF;
809: AND modifier_level_code = 'LINE'
810: AND list_line_type_code = 'FREIGHT_CHARGE';
811:
812: BEGIN
813: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
814: THEN
815: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
816: , G_MODULE_NAME || l_procedure_name || '.begin'
817: ,'enter procedure'
811:
812: BEGIN
813: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
814: THEN
815: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
816: , G_MODULE_NAME || l_procedure_name || '.begin'
817: ,'enter procedure'
818: );
819: END IF;
832: --Use invoiced quantity to calculate the line level charge, because the
833: --invoiced qty may be different from the ordered quantity
834: x_line_freight_charge := l_line_freight_unit_amt * nvl(p_invoiced_line_qty,0);
835:
836: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
837: THEN
838: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
839: , G_MODULE_NAME || l_procedure_name || '.end'
840: ,'exit procedure'
834: x_line_freight_charge := l_line_freight_unit_amt * nvl(p_invoiced_line_qty,0);
835:
836: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
837: THEN
838: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
839: , G_MODULE_NAME || l_procedure_name || '.end'
840: ,'exit procedure'
841: );
842: END IF;
842: END IF;
843:
844: EXCEPTION
845: WHEN OTHERS THEN
846: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
847: THEN
848: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
849: , G_MODULE_NAME || l_procedure_name||'. Others exception'
850: , 'Exception'
844: EXCEPTION
845: WHEN OTHERS THEN
846: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
847: THEN
848: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
849: , G_MODULE_NAME || l_procedure_name||'. Others exception'
850: , 'Exception'
851: );
852: END IF;
923: AND ratl.sales_order = to_char(p_movement_transaction.order_number)
924: AND ratl.interface_line_attribute6 = l_line_id
925: AND ratl.interface_line_context <> 'INTERCOMPANY';
926: BEGIN
927: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
928: THEN
929: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
930: , G_MODULE_NAME || l_procedure_name || '.begin'
931: ,'enter procedure'
925: AND ratl.interface_line_context <> 'INTERCOMPANY';
926: BEGIN
927: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
928: THEN
929: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
930: , G_MODULE_NAME || l_procedure_name || '.begin'
931: ,'enter procedure'
932: );
933: END IF;
983:
984: x_total_invoiced_qty := l_total_invoiced_qty;
985: x_total_line_charge := l_total_line_charge;
986:
987: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
988: THEN
989: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
990: , G_MODULE_NAME || l_procedure_name || '.end'
991: ,'exit procedure'
985: x_total_line_charge := l_total_line_charge;
986:
987: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
988: THEN
989: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
990: , G_MODULE_NAME || l_procedure_name || '.end'
991: ,'exit procedure'
992: );
993: END IF;
993: END IF;
994:
995: EXCEPTION
996: WHEN OTHERS THEN
997: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
998: THEN
999: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
1000: , G_MODULE_NAME || l_procedure_name||'. Others exception'
1001: , 'Exception'
995: EXCEPTION
996: WHEN OTHERS THEN
997: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
998: THEN
999: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
1000: , G_MODULE_NAME || l_procedure_name||'. Others exception'
1001: , 'Exception'
1002: );
1003: END IF;
1211: WHERE aida.invoice_id = aia.invoice_id
1212: AND NVL(aida.match_status_flag, 'N') NOT in ('N', 'S'));
1213:
1214: BEGIN
1215: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1216: THEN
1217: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1218: , G_MODULE_NAME || l_procedure_name || '.begin'
1219: ,'enter procedure'
1213:
1214: BEGIN
1215: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1216: THEN
1217: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1218: , G_MODULE_NAME || l_procedure_name || '.begin'
1219: ,'enter procedure'
1220: );
1221: END IF;
1295: END IF;
1296: END IF;
1297: END IF;
1298:
1299: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1300: THEN
1301: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1302: , G_MODULE_NAME || l_procedure_name || '.end'
1303: ,'exit procedure'
1297: END IF;
1298:
1299: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1300: THEN
1301: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1302: , G_MODULE_NAME || l_procedure_name || '.end'
1303: ,'exit procedure'
1304: );
1305: END IF;
1305: END IF;
1306:
1307: EXCEPTION
1308: WHEN OTHERS THEN
1309: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1310: THEN
1311: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
1312: , G_MODULE_NAME || l_procedure_name||'. Others exception'
1313: , 'Exception'
1307: EXCEPTION
1308: WHEN OTHERS THEN
1309: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1310: THEN
1311: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
1312: , G_MODULE_NAME || l_procedure_name||'. Others exception'
1313: , 'Exception'
1314: );
1315: END IF;
1341: l_last_dayofperiod DATE;
1342: l_procedure_name CONSTANT VARCHAR2(30) := 'Calc_Exchange_Rate';
1343:
1344: BEGIN
1345: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1346: THEN
1347: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1348: , G_MODULE_NAME || l_procedure_name || '.begin'
1349: ,'enter procedure'
1343:
1344: BEGIN
1345: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1346: THEN
1347: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1348: , G_MODULE_NAME || l_procedure_name || '.begin'
1349: ,'enter procedure'
1350: );
1351: END IF;
1388: x_movement_transaction.currency_conversion_type := null;
1389: x_movement_transaction.currency_conversion_date := null;
1390: END IF;
1391:
1392: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1393: THEN
1394: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1395: , G_MODULE_NAME || l_procedure_name || '.end'
1396: ,'exit procedure'
1390: END IF;
1391:
1392: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1393: THEN
1394: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1395: , G_MODULE_NAME || l_procedure_name || '.end'
1396: ,'exit procedure'
1397: );
1398: END IF;
1398: END IF;
1399: EXCEPTION
1400: WHEN GL_CURRENCY_API.no_rate
1401: THEN
1402: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1403: THEN
1404: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
1405: , G_MODULE_NAME || l_procedure_name||'.No rate exception'
1406: , 'Exception'
1400: WHEN GL_CURRENCY_API.no_rate
1401: THEN
1402: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1403: THEN
1404: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
1405: , G_MODULE_NAME || l_procedure_name||'.No rate exception'
1406: , 'Exception'
1407: );
1408: END IF;
1410: x_movement_transaction.currency_conversion_type := null;
1411: x_movement_transaction.currency_conversion_date := null;
1412: WHEN NO_DATA_FOUND
1413: THEN
1414: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1415: THEN
1416: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
1417: , G_MODULE_NAME || l_procedure_name||'.No data found exception'
1418: , 'Exception'
1412: WHEN NO_DATA_FOUND
1413: THEN
1414: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1415: THEN
1416: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
1417: , G_MODULE_NAME || l_procedure_name||'.No data found exception'
1418: , 'Exception'
1419: );
1420: END IF;
1422: x_movement_transaction.currency_conversion_type := null;
1423: x_movement_transaction.currency_conversion_date := null;
1424: WHEN OTHERS
1425: THEN
1426: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1427: THEN
1428: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
1429: , G_MODULE_NAME || l_procedure_name||'.Others exception'
1430: , 'Exception'
1424: WHEN OTHERS
1425: THEN
1426: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1427: THEN
1428: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
1429: , G_MODULE_NAME || l_procedure_name||'.Others exception'
1430: , 'Exception'
1431: );
1432: END IF;
1480:
1481: BEGIN
1482:
1483: l_currency_conversion_rate := 1; -- 6889669
1484: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1485: THEN
1486: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1487: , G_MODULE_NAME || l_procedure_name || '.begin'
1488: ,'enter procedure'
1482:
1483: l_currency_conversion_rate := 1; -- 6889669
1484: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1485: THEN
1486: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1487: , G_MODULE_NAME || l_procedure_name || '.begin'
1488: ,'enter procedure'
1489: );
1490: END IF;
1491:
1492: l_movement_transaction := p_movement_transaction;
1493:
1494: --Debug: Part of bugfix 12635623
1495: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1496: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1497: , G_MODULE_NAME || l_procedure_name
1498: ,'document_source_type:' || l_movement_transaction.document_source_type ||
1499: ':invoice_id:' || l_movement_transaction.invoice_id ||
1492: l_movement_transaction := p_movement_transaction;
1493:
1494: --Debug: Part of bugfix 12635623
1495: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1496: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1497: , G_MODULE_NAME || l_procedure_name
1498: ,'document_source_type:' || l_movement_transaction.document_source_type ||
1499: ':invoice_id:' || l_movement_transaction.invoice_id ||
1500: ':customer_trx_line_id:' || l_movement_transaction.customer_trx_line_id ||
1554:
1555: /* Special case for Internal Orders - 6889669 - BEGIN */
1556: IF (l_movement_transaction.document_source_type = 'IO')
1557: THEN
1558: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1559: THEN
1560: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1561: , G_MODULE_NAME || l_procedure_name
1562: ,'in Calc Movement Amount for IO'
1556: IF (l_movement_transaction.document_source_type = 'IO')
1557: THEN
1558: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1559: THEN
1560: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1561: , G_MODULE_NAME || l_procedure_name
1562: ,'in Calc Movement Amount for IO'
1563: );
1564: END IF;
1580: AP_INVOICES_ALL
1581: WHERE
1582: invoice_id = l_movement_transaction.invoice_id ;
1583:
1584: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1585: THEN
1586: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1587: , G_MODULE_NAME || l_procedure_name
1588: ,'The I/C AP invoice currency is '||l_invoice_currency
1582: invoice_id = l_movement_transaction.invoice_id ;
1583:
1584: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1585: THEN
1586: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1587: , G_MODULE_NAME || l_procedure_name
1588: ,'The I/C AP invoice currency is '||l_invoice_currency
1589: );
1590: END IF;
1588: ,'The I/C AP invoice currency is '||l_invoice_currency
1589: );
1590: END IF;
1591:
1592: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1593: THEN
1594: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1595: , G_MODULE_NAME || l_procedure_name
1596: ,'The GL currency code is '||l_movement_transaction.gl_currency_code
1590: END IF;
1591:
1592: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1593: THEN
1594: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1595: , G_MODULE_NAME || l_procedure_name
1596: ,'The GL currency code is '||l_movement_transaction.gl_currency_code
1597: );
1598: END IF;
1599:
1600: IF (l_invoice_currency <> l_movement_transaction.gl_currency_code) THEN
1601: l_currency_conversion_rate := Get_Conversion_Rate(l_invoice_currency,l_movement_transaction );
1602: END IF;
1603: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1604: THEN
1605: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1606: , G_MODULE_NAME || l_procedure_name
1607: ,'The currency conversion is '||l_currency_conversion_rate
1601: l_currency_conversion_rate := Get_Conversion_Rate(l_invoice_currency,l_movement_transaction );
1602: END IF;
1603: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1604: THEN
1605: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1606: , G_MODULE_NAME || l_procedure_name
1607: ,'The currency conversion is '||l_currency_conversion_rate
1608: );
1609: END IF;
1609: END IF;
1610:
1611: EXCEPTION
1612: WHEN NO_DATA_FOUND THEN
1613: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1614: THEN
1615: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1616: , G_MODULE_NAME || l_procedure_name
1617: ,'No data found for Internal Order I/C AP'
1611: EXCEPTION
1612: WHEN NO_DATA_FOUND THEN
1613: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1614: THEN
1615: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1616: , G_MODULE_NAME || l_procedure_name
1617: ,'No data found for Internal Order I/C AP'
1618: );
1619: END IF;
1617: ,'No data found for Internal Order I/C AP'
1618: );
1619: END IF;
1620: WHEN OTHERS THEN
1621: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1622: THEN
1623: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1624: , G_MODULE_NAME || l_procedure_name
1625: ,'Others exception for Internal Order I/C AP'
1619: END IF;
1620: WHEN OTHERS THEN
1621: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1622: THEN
1623: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1624: , G_MODULE_NAME || l_procedure_name
1625: ,'Others exception for Internal Order I/C AP'
1626: );
1627: END IF;
1659:
1660: l_inv_qty := ROUND(l_movement_transaction.invoice_quantity / l_trans_conv_inv_rate,2);
1661:
1662: --Debug: Part of bugfix 12635623
1663: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1664: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1665: , G_MODULE_NAME || l_procedure_name
1666: ,'invoice_quantity:' || l_movement_transaction.invoice_quantity ||
1667: ':l_trans_conv_inv_rate:' || l_trans_conv_inv_rate ||
1660: l_inv_qty := ROUND(l_movement_transaction.invoice_quantity / l_trans_conv_inv_rate,2);
1661:
1662: --Debug: Part of bugfix 12635623
1663: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1664: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1665: , G_MODULE_NAME || l_procedure_name
1666: ,'invoice_quantity:' || l_movement_transaction.invoice_quantity ||
1667: ':l_trans_conv_inv_rate:' || l_trans_conv_inv_rate ||
1668: ':l_inv_qty:' || l_inv_qty ||
1679: THEN
1680: l_tr_value := l_movement_transaction.invoice_line_ext_value;
1681:
1682: --Debug: Part of bugfix 12635623
1683: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1684: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1685: , G_MODULE_NAME || l_procedure_name
1686: ,'l_tr_value1:' || l_tr_value
1687: );
1680: l_tr_value := l_movement_transaction.invoice_line_ext_value;
1681:
1682: --Debug: Part of bugfix 12635623
1683: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1684: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1685: , G_MODULE_NAME || l_procedure_name
1686: ,'l_tr_value1:' || l_tr_value
1687: );
1688: END IF;
1697: - abs(NVL(l_inv_qty,0))) * l_report_price
1698: +abs(l_movement_transaction.invoice_line_ext_value);
1699:
1700: --Debug: Part of bugfix 12635623
1701: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1702: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1703: , G_MODULE_NAME || l_procedure_name
1704: ,'l_report_price:' || l_report_price ||
1705: ':l_tr_value2:' || l_tr_value
1698: +abs(l_movement_transaction.invoice_line_ext_value);
1699:
1700: --Debug: Part of bugfix 12635623
1701: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1702: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1703: , G_MODULE_NAME || l_procedure_name
1704: ,'l_report_price:' || l_report_price ||
1705: ':l_tr_value2:' || l_tr_value
1706: );
1738: THEN
1739: l_tr_value := l_movement_transaction.document_line_ext_value;
1740:
1741: --Debug: Part of bugfix 12635623
1742: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1743: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1744: , G_MODULE_NAME || l_procedure_name
1745: ,'l_tr_value3:' || l_tr_value
1746: );
1739: l_tr_value := l_movement_transaction.document_line_ext_value;
1740:
1741: --Debug: Part of bugfix 12635623
1742: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1743: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1744: , G_MODULE_NAME || l_procedure_name
1745: ,'l_tr_value3:' || l_tr_value
1746: );
1747: END IF;
1754: -- or DOCUMENT_SOURCE_TYPE is miscellaneous
1755: -- with a price not equal to 0
1756:
1757: --Debug: Part of bugfix 12635623
1758: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1759: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1760: , G_MODULE_NAME || l_procedure_name
1761: ,'invoice_quantity:' || l_movement_transaction.invoice_quantity ||
1762: ':l_trans_conv_inv_rate:' || l_trans_conv_inv_rate ||
1755: -- with a price not equal to 0
1756:
1757: --Debug: Part of bugfix 12635623
1758: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1759: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1760: , G_MODULE_NAME || l_procedure_name
1761: ,'invoice_quantity:' || l_movement_transaction.invoice_quantity ||
1762: ':l_trans_conv_inv_rate:' || l_trans_conv_inv_rate ||
1763: ':l_inv_qty:' || l_inv_qty ||
1786: - abs(NVL(l_movement_transaction.invoice_quantity,0)))
1787: * l_report_price;
1788:
1789: --Debug: Part of bugfix 12635623
1790: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1791: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1792: , G_MODULE_NAME || l_procedure_name
1793: ,'l_tr_value4:' || l_tr_value ||
1794: ':l_report_price:' || l_report_price
1787: * l_report_price;
1788:
1789: --Debug: Part of bugfix 12635623
1790: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1791: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1792: , G_MODULE_NAME || l_procedure_name
1793: ,'l_tr_value4:' || l_tr_value ||
1794: ':l_report_price:' || l_report_price
1795: );
1801: /* Special case for 6889669 */
1802: IF (l_movement_transaction.document_source_type = 'IO') AND (l_movement_transaction.movement_type = 'A')
1803: AND (nvl(l_currency_conversion_rate, 1)<>1) THEN
1804: l_tr_value := round (l_tr_value * l_currency_conversion_rate, 2);
1805: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1806: THEN
1807: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1808: , G_MODULE_NAME || l_procedure_name
1809: ,'l_tr_value for IO::Inside If:'||l_tr_value
1803: AND (nvl(l_currency_conversion_rate, 1)<>1) THEN
1804: l_tr_value := round (l_tr_value * l_currency_conversion_rate, 2);
1805: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1806: THEN
1807: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1808: , G_MODULE_NAME || l_procedure_name
1809: ,'l_tr_value for IO::Inside If:'||l_tr_value
1810: );
1811: END IF;
1812: ELSE
1813: l_tr_value := round (l_tr_value * NVL(l_movement_transaction.currency_conversion_rate,1),2);
1814:
1815: --Debug: Part of bugfix 12635623
1816: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1817: THEN
1818: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1819: , G_MODULE_NAME || l_procedure_name
1820: ,'l_tr_value for IO::Inside Else:'||l_tr_value
1814:
1815: --Debug: Part of bugfix 12635623
1816: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1817: THEN
1818: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1819: , G_MODULE_NAME || l_procedure_name
1820: ,'l_tr_value for IO::Inside Else:'||l_tr_value
1821: );
1822: END IF;
1839: l_tr_value := abs(l_tr_value);
1840: END IF;
1841:
1842: --Debug: Part of bugfix 12635623
1843: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1844: THEN
1845: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1846: , G_MODULE_NAME || l_procedure_name
1847: ,'in Calc Movement Amount is:'||l_tr_value
1841:
1842: --Debug: Part of bugfix 12635623
1843: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1844: THEN
1845: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1846: , G_MODULE_NAME || l_procedure_name
1847: ,'in Calc Movement Amount is:'||l_tr_value
1848: );
1849: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1845: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1846: , G_MODULE_NAME || l_procedure_name
1847: ,'in Calc Movement Amount is:'||l_tr_value
1848: );
1849: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1850: , G_MODULE_NAME || l_procedure_name || '.end'
1851: ,'exit procedure'
1852: );
1853: END IF;
1855: RETURN(l_tr_value);
1856:
1857: EXCEPTION
1858: WHEN NO_DATA_FOUND THEN
1859: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1860: THEN
1861: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
1862: , G_MODULE_NAME || l_procedure_name||'. No data found exception'
1863: , 'Exception'
1857: EXCEPTION
1858: WHEN NO_DATA_FOUND THEN
1859: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1860: THEN
1861: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
1862: , G_MODULE_NAME || l_procedure_name||'. No data found exception'
1863: , 'Exception'
1864: );
1865: END IF;
1864: );
1865: END IF;
1866: RETURN(0);
1867: WHEN OTHERS THEN
1868: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1869: THEN
1870: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
1871: , G_MODULE_NAME || l_procedure_name||'. Others exception:' || sqlerrm
1872: , 'Exception'
1866: RETURN(0);
1867: WHEN OTHERS THEN
1868: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1869: THEN
1870: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
1871: , G_MODULE_NAME || l_procedure_name||'. Others exception:' || sqlerrm
1872: , 'Exception'
1873: );
1874: END IF;
1927: WHERE interface_line_attribute6 = to_char(p_movement_transaction.order_line_id)
1928: AND sales_order = to_char(p_movement_transaction.order_number));
1929:
1930: BEGIN
1931: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1932: THEN
1933: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1934: , G_MODULE_NAME || l_procedure_name || '.begin'
1935: ,'enter procedure'
1929:
1930: BEGIN
1931: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1932: THEN
1933: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1934: , G_MODULE_NAME || l_procedure_name || '.begin'
1935: ,'enter procedure'
1936: );
1937: END IF;
1956:
1957: --Only calculate freight charge for SO where invoice and freight charge is
1958: --existed
1959:
1960: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1961: THEN
1962: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1963: , G_MODULE_NAME || l_procedure_name || '.movement amt in stat value is '
1964: ,p_movement_transaction.movement_amount
1958: --existed
1959:
1960: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1961: THEN
1962: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1963: , G_MODULE_NAME || l_procedure_name || '.movement amt in stat value is '
1964: ,p_movement_transaction.movement_amount
1965: );
1966: END IF;
1978: --Check if freight amount on invoice is null, cursor with sum function
1979: --is always return row, so can not use cursor%notfound to check
1980: IF l_inv_total_freight_amt IS NULL
1981: THEN
1982: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1983: THEN
1984: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1985: , G_MODULE_NAME || l_procedure_name
1986: || '.end no freight amt'
1980: IF l_inv_total_freight_amt IS NULL
1981: THEN
1982: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1983: THEN
1984: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1985: , G_MODULE_NAME || l_procedure_name
1986: || '.end no freight amt'
1987: ,'exit procedure'
1988: );
2036: ELSE
2037: l_stat_ext_value := l_movement_amount + l_stat_adj_amount;
2038: END IF;
2039:
2040: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2041: THEN
2042: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2043: , G_MODULE_NAME || l_procedure_name || '.end'
2044: ,'exit procedure'
2038: END IF;
2039:
2040: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2041: THEN
2042: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2043: , G_MODULE_NAME || l_procedure_name || '.end'
2044: ,'exit procedure'
2045: );
2046: END IF;
2048: RETURN(l_stat_ext_value);
2049:
2050: EXCEPTION
2051: WHEN NO_DATA_FOUND THEN
2052: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2053: THEN
2054: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
2055: , G_MODULE_NAME || l_procedure_name||'. No data found exception'
2056: , 'Exception'
2050: EXCEPTION
2051: WHEN NO_DATA_FOUND THEN
2052: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2053: THEN
2054: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
2055: , G_MODULE_NAME || l_procedure_name||'. No data found exception'
2056: , 'Exception'
2057: );
2058: END IF;
2057: );
2058: END IF;
2059: RETURN(l_movement_amount + l_stat_adj_amount);
2060: WHEN OTHERS THEN
2061: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2062: THEN
2063: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
2064: , G_MODULE_NAME || l_procedure_name||'. Others exception'
2065: , 'Exception'
2059: RETURN(l_movement_amount + l_stat_adj_amount);
2060: WHEN OTHERS THEN
2061: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2062: THEN
2063: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
2064: , G_MODULE_NAME || l_procedure_name||'. Others exception'
2065: , 'Exception'
2066: );
2067: END IF;
3095: THEN
3096: RETURN;
3097:
3098: ELSE
3099: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
3100: THEN
3101: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3102: , G_MODULE_NAME || l_procedure_name || '.begin'
3103: ,'enter procedure'
3097:
3098: ELSE
3099: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
3100: THEN
3101: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3102: , G_MODULE_NAME || l_procedure_name || '.begin'
3103: ,'enter procedure'
3104: );
3105: END IF;
3127: l_shipping_le_id := INV_MGD_MVT_UTILS_PKG.Get_Shipping_Legal_Entity
3128: (p_warehouse_id => l_movement_transaction.organization_id);
3129:
3130: --Debug: Part of bugfix 12635623
3131: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3132: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3133: , G_MODULE_NAME || l_procedure_name
3134: ,'SO LE:' || l_so_le_id ||
3135: ':Ship LE:' || l_shipping_le_id ||
3128: (p_warehouse_id => l_movement_transaction.organization_id);
3129:
3130: --Debug: Part of bugfix 12635623
3131: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3132: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3133: , G_MODULE_NAME || l_procedure_name
3134: ,'SO LE:' || l_so_le_id ||
3135: ':Ship LE:' || l_shipping_le_id ||
3136: ':MVT LE:' || l_movement_transaction.entity_org_id
3174: IF (l_so_le_id = l_movement_transaction.entity_org_id
3175: AND l_movement_transaction.movement_type = 'A')
3176: THEN
3177:
3178: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3179: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3180: , G_MODULE_NAME || l_procedure_name
3181: ,'Opening l_ap_intercompany_so_arrival.'
3182: );
3175: AND l_movement_transaction.movement_type = 'A')
3176: THEN
3177:
3178: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3179: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3180: , G_MODULE_NAME || l_procedure_name
3181: ,'Opening l_ap_intercompany_so_arrival.'
3182: );
3183: END IF;
3191: , x_movement_transaction.invoice_quantity;
3192: CLOSE l_ap_intercompany_so_arrival;
3193:
3194: --Debug: Part of bugfix 12635623
3195: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3196: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3197: , G_MODULE_NAME || l_procedure_name
3198: ,'invoice_id:' || x_movement_transaction.invoice_id ||
3199: ':distribution_line_number:' || x_movement_transaction.distribution_line_number ||
3192: CLOSE l_ap_intercompany_so_arrival;
3193:
3194: --Debug: Part of bugfix 12635623
3195: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3196: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3197: , G_MODULE_NAME || l_procedure_name
3198: ,'invoice_id:' || x_movement_transaction.invoice_id ||
3199: ':distribution_line_number:' || x_movement_transaction.distribution_line_number ||
3200: ':l_extended_amount:' || l_extended_amount ||
3225: l_ar_invoiced_qty;
3226: CLOSE l_ap_ic_inv_qty_so_arr;
3227:
3228: --Debug: Part of bugfix 12635623
3229: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3230: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3231: , G_MODULE_NAME || l_procedure_name
3232: ,'l_ar_invoiced_amount:' || l_ar_invoiced_amount ||
3233: ':l_ar_invoiced_qty:' || l_ar_invoiced_qty
3226: CLOSE l_ap_ic_inv_qty_so_arr;
3227:
3228: --Debug: Part of bugfix 12635623
3229: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3230: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3231: , G_MODULE_NAME || l_procedure_name
3232: ,'l_ar_invoiced_amount:' || l_ar_invoiced_amount ||
3233: ':l_ar_invoiced_qty:' || l_ar_invoiced_qty
3234: );
3271: ELSIF (l_so_le_id = l_movement_transaction.entity_org_id
3272: AND l_movement_transaction.movement_type = 'D')
3273: THEN
3274:
3275: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3276: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3277: , G_MODULE_NAME || l_procedure_name
3278: ,'Opening l_sum_arc.'
3279: );
3272: AND l_movement_transaction.movement_type = 'D')
3273: THEN
3274:
3275: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3276: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3277: , G_MODULE_NAME || l_procedure_name
3278: ,'Opening l_sum_arc.'
3279: );
3280: END IF;
3288: , x_movement_transaction.invoice_quantity;
3289: CLOSE l_sum_arc;
3290:
3291: --Debug: Part of bugfix 12635623
3292: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3293: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3294: , G_MODULE_NAME || l_procedure_name
3295: ,'invoice_id:' || x_movement_transaction.invoice_id ||
3296: ':customer_trx_line_id:' || x_movement_transaction.customer_trx_line_id ||
3289: CLOSE l_sum_arc;
3290:
3291: --Debug: Part of bugfix 12635623
3292: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3293: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3294: , G_MODULE_NAME || l_procedure_name
3295: ,'invoice_id:' || x_movement_transaction.invoice_id ||
3296: ':customer_trx_line_id:' || x_movement_transaction.customer_trx_line_id ||
3297: ':l_extended_amount:' || l_extended_amount ||
3322: --is shipped, we need an ar intercompany invoice
3323: ELSIF (l_shipping_le_id = l_movement_transaction.entity_org_id)
3324: THEN
3325:
3326: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3327: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3328: , G_MODULE_NAME || l_procedure_name
3329: ,'l_ar_intercompany.'
3330: );
3323: ELSIF (l_shipping_le_id = l_movement_transaction.entity_org_id)
3324: THEN
3325:
3326: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3327: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3328: , G_MODULE_NAME || l_procedure_name
3329: ,'l_ar_intercompany.'
3330: );
3331: END IF;
3338: , x_movement_transaction.invoice_quantity;
3339: CLOSE l_ar_intercompany;
3340:
3341: --Debug: Part of bugfix 12635623
3342: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3343: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3344: , G_MODULE_NAME || l_procedure_name
3345: ,'invoice_id:' || x_movement_transaction.invoice_id ||
3346: ':customer_trx_line_id:' || x_movement_transaction.customer_trx_line_id ||
3339: CLOSE l_ar_intercompany;
3340:
3341: --Debug: Part of bugfix 12635623
3342: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3343: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3344: , G_MODULE_NAME || l_procedure_name
3345: ,'invoice_id:' || x_movement_transaction.invoice_id ||
3346: ':customer_trx_line_id:' || x_movement_transaction.customer_trx_line_id ||
3347: ':l_extended_amount:' || l_extended_amount ||
3361: END IF;
3362: END IF;
3363:
3364: ELSE
3365: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3366: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3367: , G_MODULE_NAME || l_procedure_name
3368: ,'Opening l_sum_arc for regular SO invoice.'
3369: );
3362: END IF;
3363:
3364: ELSE
3365: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3366: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3367: , G_MODULE_NAME || l_procedure_name
3368: ,'Opening l_sum_arc for regular SO invoice.'
3369: );
3370: END IF;
3378: , x_movement_transaction.invoice_quantity;
3379: CLOSE l_sum_arc;
3380:
3381: --Debug: Part of bugfix 12635623
3382: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3383: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3384: , G_MODULE_NAME || l_procedure_name
3385: ,'invoice_id:' || x_movement_transaction.invoice_id ||
3386: ':customer_trx_line_id:' || x_movement_transaction.customer_trx_line_id ||
3379: CLOSE l_sum_arc;
3380:
3381: --Debug: Part of bugfix 12635623
3382: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3383: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3384: , G_MODULE_NAME || l_procedure_name
3385: ,'invoice_id:' || x_movement_transaction.invoice_id ||
3386: ':customer_trx_line_id:' || x_movement_transaction.customer_trx_line_id ||
3387: ':l_extended_amount:' || l_extended_amount ||
3433: IF l_movement_transaction.document_source_type = 'IO'
3434: THEN
3435:
3436: --Debug: Part of bugfix 12635623
3437: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
3438: THEN
3439: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3440: , G_MODULE_NAME || l_procedure_name
3441: ,'movement_type:' || l_movement_transaction.movement_type
3435:
3436: --Debug: Part of bugfix 12635623
3437: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
3438: THEN
3439: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3440: , G_MODULE_NAME || l_procedure_name
3441: ,'movement_type:' || l_movement_transaction.movement_type
3442: );
3443: END IF;
3462: , l_extended_amount
3463: , x_movement_transaction.invoice_quantity;
3464:
3465: --Debug: Part of bugfix 12635623
3466: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
3467: THEN
3468: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3469: , G_MODULE_NAME || l_procedure_name || 'AP INTERCOMPANY IO ARRIVAL INVOICE ID ********************* '
3470: , x_movement_transaction.invoice_id
3464:
3465: --Debug: Part of bugfix 12635623
3466: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
3467: THEN
3468: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3469: , G_MODULE_NAME || l_procedure_name || 'AP INTERCOMPANY IO ARRIVAL INVOICE ID ********************* '
3470: , x_movement_transaction.invoice_id
3471: );
3472: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3468: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3469: , G_MODULE_NAME || l_procedure_name || 'AP INTERCOMPANY IO ARRIVAL INVOICE ID ********************* '
3470: , x_movement_transaction.invoice_id
3471: );
3472: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3473: , G_MODULE_NAME || l_procedure_name
3474: , 'Distribution_line_number:' || x_movement_transaction.distribution_line_number ||
3475: ':l_extended_amount:' || l_extended_amount ||
3476: ':invoice_quantity:' || x_movement_transaction.invoice_quantity
3503: l_ar_invoiced_qty;
3504: CLOSE l_ap_ic_inv_qty_io_arr;
3505:
3506: --Debug: Part of bugfix 12635623
3507: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3508: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3509: , G_MODULE_NAME || l_procedure_name
3510: ,'l_ar_invoiced_amount:' || l_ar_invoiced_amount ||
3511: ':l_ar_invoiced_qty:' || l_ar_invoiced_qty
3504: CLOSE l_ap_ic_inv_qty_io_arr;
3505:
3506: --Debug: Part of bugfix 12635623
3507: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3508: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3509: , G_MODULE_NAME || l_procedure_name
3510: ,'l_ar_invoiced_amount:' || l_ar_invoiced_amount ||
3511: ':l_ar_invoiced_qty:' || l_ar_invoiced_qty
3512: );
3531: , x_movement_transaction.currency_conversion_date
3532: , x_movement_transaction.invoice_batch_id
3533: , x_movement_transaction.invoice_date_reference;
3534:
3535: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
3536: THEN
3537: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3538: , G_MODULE_NAME || l_procedure_name || 'AP INTERCOMPANY CURRENCY CODE ********************* '
3539: , x_movement_transaction.currency_code
3533: , x_movement_transaction.invoice_date_reference;
3534:
3535: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
3536: THEN
3537: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3538: , G_MODULE_NAME || l_procedure_name || 'AP INTERCOMPANY CURRENCY CODE ********************* '
3539: , x_movement_transaction.currency_code
3540: );
3541: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3537: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3538: , G_MODULE_NAME || l_procedure_name || 'AP INTERCOMPANY CURRENCY CODE ********************* '
3539: , x_movement_transaction.currency_code
3540: );
3541: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3542: , G_MODULE_NAME || l_procedure_name || 'AP INTERCOMPANY currency_conversion_type ********************* '
3543: , x_movement_transaction.currency_conversion_rate
3544: );
3545: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3541: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3542: , G_MODULE_NAME || l_procedure_name || 'AP INTERCOMPANY currency_conversion_type ********************* '
3543: , x_movement_transaction.currency_conversion_rate
3544: );
3545: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3546: , G_MODULE_NAME || l_procedure_name || 'AP INTERCOMPANYcurrency_conversion_typeE ********************* '
3547: , x_movement_transaction.currency_conversion_type
3548: );
3549: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3545: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3546: , G_MODULE_NAME || l_procedure_name || 'AP INTERCOMPANYcurrency_conversion_typeE ********************* '
3547: , x_movement_transaction.currency_conversion_type
3548: );
3549: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3550: , G_MODULE_NAME || l_procedure_name || 'AP INTERCOMPANY currency_conversion_date********************* '
3551: , x_movement_transaction.currency_conversion_date
3552: );
3553: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3549: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3550: , G_MODULE_NAME || l_procedure_name || 'AP INTERCOMPANY currency_conversion_date********************* '
3551: , x_movement_transaction.currency_conversion_date
3552: );
3553: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3554: , G_MODULE_NAME || l_procedure_name || 'AP INTERCOMPANY invoice_batch_id ********************* '
3555: , x_movement_transaction.invoice_batch_id
3556: );
3557:
3554: , G_MODULE_NAME || l_procedure_name || 'AP INTERCOMPANY invoice_batch_id ********************* '
3555: , x_movement_transaction.invoice_batch_id
3556: );
3557:
3558: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3559: , G_MODULE_NAME || l_procedure_name || 'AP INTERCOMPANY invoice_date_reference ********************* '
3560: , x_movement_transaction.invoice_date_reference
3561: );
3562: END IF ;
3586: , x_movement_transaction.invoice_quantity;
3587: CLOSE l_ar_intercompany;
3588:
3589: --Debug: Part of bugfix 12635623
3590: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3591: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3592: , G_MODULE_NAME || l_procedure_name
3593: ,'customer_trx_line_id:' || x_movement_transaction.customer_trx_line_id ||
3594: ':invoice_id:' || x_movement_transaction.invoice_id ||
3587: CLOSE l_ar_intercompany;
3588:
3589: --Debug: Part of bugfix 12635623
3590: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3591: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3592: , G_MODULE_NAME || l_procedure_name
3593: ,'customer_trx_line_id:' || x_movement_transaction.customer_trx_line_id ||
3594: ':invoice_id:' || x_movement_transaction.invoice_id ||
3595: ':l_extended_amount:' || l_extended_amount ||
3615: /*********************************** Special case for an IO - END**************************************/
3616:
3617: IF l_movement_transaction.document_source_type = 'RMA'
3618: THEN
3619: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
3620: THEN
3621: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3622: , G_MODULE_NAME || l_procedure_name || '.begin'
3623: ,'************ 2 RMA ******************'
3617: IF l_movement_transaction.document_source_type = 'RMA'
3618: THEN
3619: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
3620: THEN
3621: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3622: , G_MODULE_NAME || l_procedure_name || '.begin'
3623: ,'************ 2 RMA ******************'
3624: );
3625: END IF;
3636: Fetch l_rma_model_id into l_model_line_id;
3637: Close l_rma_model_id;
3638:
3639: IF l_model_line_id is not null then
3640: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3641: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3642: , G_MODULE_NAME || l_procedure_name
3643: , 'The l_movement_transaction.order_line_id 1 : '||l_movement_transaction.order_line_id);
3644: END IF;
3637: Close l_rma_model_id;
3638:
3639: IF l_model_line_id is not null then
3640: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3641: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3642: , G_MODULE_NAME || l_procedure_name
3643: , 'The l_movement_transaction.order_line_id 1 : '||l_movement_transaction.order_line_id);
3644: END IF;
3645:
3644: END IF;
3645:
3646: l_movement_transaction.order_line_id :=l_model_line_id;
3647:
3648: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3649: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3650: , G_MODULE_NAME || l_procedure_name
3651: , 'The l_movement_transaction.order_line_id 2 : '||l_movement_transaction.order_line_id);
3652: END IF;
3645:
3646: l_movement_transaction.order_line_id :=l_model_line_id;
3647:
3648: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3649: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3650: , G_MODULE_NAME || l_procedure_name
3651: , 'The l_movement_transaction.order_line_id 2 : '||l_movement_transaction.order_line_id);
3652: END IF;
3653: End if;
3668: IF (l_so_le_id = l_movement_transaction.entity_org_id
3669: AND l_movement_transaction.movement_type = 'D')--change from A to D
3670: THEN
3671: --Debug as part of bugfix 12949295
3672: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3673: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3674: , G_MODULE_NAME || l_procedure_name
3675: , 'Opening l_ap_intercompany_rma');
3676: END IF;
3669: AND l_movement_transaction.movement_type = 'D')--change from A to D
3670: THEN
3671: --Debug as part of bugfix 12949295
3672: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3673: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3674: , G_MODULE_NAME || l_procedure_name
3675: , 'Opening l_ap_intercompany_rma');
3676: END IF;
3677:
3685: , x_movement_transaction.invoice_quantity;
3686: CLOSE l_ap_intercompany_rma;
3687:
3688: --Debug: Part of bugfix 12949295
3689: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3690: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3691: , G_MODULE_NAME || l_procedure_name
3692: , 'invoice_id:'||x_movement_transaction.invoice_id ||
3693: ':distribution_line_number:' || x_movement_transaction.distribution_line_number ||
3686: CLOSE l_ap_intercompany_rma;
3687:
3688: --Debug: Part of bugfix 12949295
3689: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3690: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3691: , G_MODULE_NAME || l_procedure_name
3692: , 'invoice_id:'||x_movement_transaction.invoice_id ||
3693: ':distribution_line_number:' || x_movement_transaction.distribution_line_number ||
3694: ':l_extended_amount:' || l_extended_amount ||
3720: l_ar_invoiced_amount, l_ar_invoiced_qty;
3721: CLOSE l_ap_intercompany_rma_inv_qty;
3722:
3723: --Debug: Part of bugfix 12949295
3724: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3725: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3726: , G_MODULE_NAME || l_procedure_name
3727: , 'l_ar_invoiced_amount:'|| l_ar_invoiced_amount ||
3728: ':l_ar_invoiced_qty:' || l_ar_invoiced_qty);
3721: CLOSE l_ap_intercompany_rma_inv_qty;
3722:
3723: --Debug: Part of bugfix 12949295
3724: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3725: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3726: , G_MODULE_NAME || l_procedure_name
3727: , 'l_ar_invoiced_amount:'|| l_ar_invoiced_amount ||
3728: ':l_ar_invoiced_qty:' || l_ar_invoiced_qty);
3729: END IF;
3736: x_movement_transaction.invoice_quantity := l_ar_invoiced_qty;
3737: END IF;
3738:
3739: --Debug: Part of bugfix 12949295
3740: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3741: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3742: , G_MODULE_NAME || l_procedure_name
3743: , 'The invoice qty(2) is : '||x_movement_transaction.invoice_quantity);
3744: END IF;
3737: END IF;
3738:
3739: --Debug: Part of bugfix 12949295
3740: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3741: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3742: , G_MODULE_NAME || l_procedure_name
3743: , 'The invoice qty(2) is : '||x_movement_transaction.invoice_quantity);
3744: END IF;
3745:
3755: , x_movement_transaction.invoice_batch_id
3756: , x_movement_transaction.invoice_date_reference;
3757:
3758: --Debug: Part of bugfix 12949295
3759: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3760: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3761: , G_MODULE_NAME || l_procedure_name
3762: , 'currency_code:'|| x_movement_transaction.currency_code ||
3763: ':rate:'|| x_movement_transaction.currency_conversion_rate ||
3756: , x_movement_transaction.invoice_date_reference;
3757:
3758: --Debug: Part of bugfix 12949295
3759: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3760: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3761: , G_MODULE_NAME || l_procedure_name
3762: , 'currency_code:'|| x_movement_transaction.currency_code ||
3763: ':rate:'|| x_movement_transaction.currency_conversion_rate ||
3764: ':type:'|| x_movement_transaction.currency_conversion_type ||
3786: ELSIF (l_so_le_id = l_movement_transaction.entity_org_id
3787: AND l_movement_transaction.movement_type = 'A')--change from D to A
3788: THEN
3789: --Debug as part of bugfix 12949295
3790: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3791: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3792: , G_MODULE_NAME || l_procedure_name
3793: , 'Opening l_sum_rma_arc');
3794: END IF;
3787: AND l_movement_transaction.movement_type = 'A')--change from D to A
3788: THEN
3789: --Debug as part of bugfix 12949295
3790: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3791: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3792: , G_MODULE_NAME || l_procedure_name
3793: , 'Opening l_sum_rma_arc');
3794: END IF;
3795:
3802: , x_movement_transaction.invoice_quantity;
3803: CLOSE l_sum_rma_arc;
3804:
3805: --Debug: Part of bugfix 12949295
3806: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3807: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3808: , G_MODULE_NAME || l_procedure_name
3809: , 'line_id:'|| l_movement_transaction.order_line_id ||
3810: ':order_number:'|| l_movement_transaction.order_number ||
3803: CLOSE l_sum_rma_arc;
3804:
3805: --Debug: Part of bugfix 12949295
3806: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3807: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3808: , G_MODULE_NAME || l_procedure_name
3809: , 'line_id:'|| l_movement_transaction.order_line_id ||
3810: ':order_number:'|| l_movement_transaction.order_number ||
3811: ':org_id:'|| l_movement_transaction.org_id ||
3834: ELSIF (l_shipping_le_id = l_movement_transaction.entity_org_id
3835: AND l_movement_transaction.movement_type = 'A')
3836: THEN
3837: --Debug as part of bugfix 12949295
3838: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3839: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3840: , G_MODULE_NAME || l_procedure_name
3841: , 'Opening l_ar_intercompany_rma');
3842: END IF;
3835: AND l_movement_transaction.movement_type = 'A')
3836: THEN
3837: --Debug as part of bugfix 12949295
3838: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3839: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3840: , G_MODULE_NAME || l_procedure_name
3841: , 'Opening l_ar_intercompany_rma');
3842: END IF;
3843:
3849: , x_movement_transaction.invoice_quantity;
3850: CLOSE l_ar_intercompany_rma;
3851:
3852: --Debug: Part of bugfix 12635623
3853: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3854: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3855: , G_MODULE_NAME || l_procedure_name
3856: ,'customer_trx_line_id:' || x_movement_transaction.customer_trx_line_id ||
3857: ':invoice_id:' || x_movement_transaction.invoice_id ||
3850: CLOSE l_ar_intercompany_rma;
3851:
3852: --Debug: Part of bugfix 12635623
3853: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3854: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3855: , G_MODULE_NAME || l_procedure_name
3856: ,'customer_trx_line_id:' || x_movement_transaction.customer_trx_line_id ||
3857: ':invoice_id:' || x_movement_transaction.invoice_id ||
3858: ':l_extended_amount:' || l_extended_amount ||
3873:
3874: END IF;
3875: ELSE
3876: --Debug as part of bugfix 12949295
3877: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3878: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3879: , G_MODULE_NAME || l_procedure_name
3880: , 'Opening l_sum_rma_arc');
3881: END IF;
3874: END IF;
3875: ELSE
3876: --Debug as part of bugfix 12949295
3877: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3878: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3879: , G_MODULE_NAME || l_procedure_name
3880: , 'Opening l_sum_rma_arc');
3881: END IF;
3882:
3890: , x_movement_transaction.invoice_quantity;
3891: CLOSE l_sum_rma_arc;
3892:
3893: --Debug: Part of bugfix 12949295
3894: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3895: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3896: , G_MODULE_NAME || l_procedure_name
3897: , 'customer_trx_line_id:' || x_movement_transaction.customer_trx_line_id ||
3898: ':invoice_id:' || x_movement_transaction.invoice_id ||
3891: CLOSE l_sum_rma_arc;
3892:
3893: --Debug: Part of bugfix 12949295
3894: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3895: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3896: , G_MODULE_NAME || l_procedure_name
3897: , 'customer_trx_line_id:' || x_movement_transaction.customer_trx_line_id ||
3898: ':invoice_id:' || x_movement_transaction.invoice_id ||
3899: ':l_extended_amount:' || l_extended_amount ||
3975: END IF;
3976: CLOSE l_arc;
3977:
3978: --Debug: Part of bugfix 12949295
3979: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3980: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3981: , G_MODULE_NAME || l_procedure_name
3982: , 'currency_code:'|| x_movement_transaction.currency_code ||
3983: ':rate:'|| x_movement_transaction.currency_conversion_rate ||
3976: CLOSE l_arc;
3977:
3978: --Debug: Part of bugfix 12949295
3979: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3980: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3981: , G_MODULE_NAME || l_procedure_name
3982: , 'currency_code:'|| x_movement_transaction.currency_code ||
3983: ':rate:'|| x_movement_transaction.currency_conversion_rate ||
3984: ':type:'|| x_movement_transaction.currency_conversion_type ||
4038: ELSE
4039: l_extended_amount := l_extended_amount + NVL(l_cm_extended_amount,0);
4040: x_movement_transaction.invoice_line_ext_value := l_extended_amount;
4041:
4042: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
4043: THEN
4044: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4045: , G_MODULE_NAME || l_procedure_name || 'EXTENDED AMOUNT IS ********************* '
4046: , l_extended_amount
4040: x_movement_transaction.invoice_line_ext_value := l_extended_amount;
4041:
4042: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
4043: THEN
4044: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4045: , G_MODULE_NAME || l_procedure_name || 'EXTENDED AMOUNT IS ********************* '
4046: , l_extended_amount
4047: );
4048: END IF ;
4054: AND x_movement_transaction.invoice_quantity <> 0)
4055: THEN
4056: x_movement_transaction.invoice_unit_price :=
4057: l_extended_amount / x_movement_transaction.invoice_quantity;
4058: -- IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
4059: -- THEN
4060: -- FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4061: -- , G_MODULE_NAME || l_procedure_name || 'unit_price IS ********************* '
4062: -- , x_movement_transaction.invoice_unit_price
4056: x_movement_transaction.invoice_unit_price :=
4057: l_extended_amount / x_movement_transaction.invoice_quantity;
4058: -- IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
4059: -- THEN
4060: -- FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4061: -- , G_MODULE_NAME || l_procedure_name || 'unit_price IS ********************* '
4062: -- , x_movement_transaction.invoice_unit_price
4063: -- );
4064: -- END IF ;
4079: THEN
4080: -- Fetch the cursor for non credit memo type transactions. This is
4081: -- against receipt based matching if one exists;
4082:
4083: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4084: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4085: ,G_MODULE_NAME || l_procedure_name
4086: ,' Inside doc_src_type = PO'
4087: );
4080: -- Fetch the cursor for non credit memo type transactions. This is
4081: -- against receipt based matching if one exists;
4082:
4083: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4084: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4085: ,G_MODULE_NAME || l_procedure_name
4086: ,' Inside doc_src_type = PO'
4087: );
4088: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4084: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4085: ,G_MODULE_NAME || l_procedure_name
4086: ,' Inside doc_src_type = PO'
4087: );
4088: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4089: ,G_MODULE_NAME || l_procedure_name
4090: ,' Opening l_ap_inv for rcv_trx_id:' || l_movement_transaction.rcv_transaction_id
4091: );
4092: END IF;
4098: , x_movement_transaction.invoice_id
4099: , l_invoice_quantity;
4100: CLOSE l_ap_inv;
4101:
4102: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4103: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4104: ,G_MODULE_NAME || l_procedure_name
4105: ,' l_ap_inv::l_extended_amount:' || l_extended_amount
4106: ||' l_ap_inv::distribution_line_number:' || x_movement_transaction.distribution_line_number
4099: , l_invoice_quantity;
4100: CLOSE l_ap_inv;
4101:
4102: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4103: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4104: ,G_MODULE_NAME || l_procedure_name
4105: ,' l_ap_inv::l_extended_amount:' || l_extended_amount
4106: ||' l_ap_inv::distribution_line_number:' || x_movement_transaction.distribution_line_number
4107: ||' l_ap_inv::invoice_id:' || x_movement_transaction.invoice_id
4111:
4112: IF x_movement_transaction.invoice_id IS NOT NULL
4113: THEN
4114: -- Fetch the cursor for price correction.
4115: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4116: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4117: ,G_MODULE_NAME || l_procedure_name
4118: ,' Opening l_ap_cm_inv for rcv_trx_id:' || l_movement_transaction.rcv_transaction_id
4119: );
4112: IF x_movement_transaction.invoice_id IS NOT NULL
4113: THEN
4114: -- Fetch the cursor for price correction.
4115: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4116: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4117: ,G_MODULE_NAME || l_procedure_name
4118: ,' Opening l_ap_cm_inv for rcv_trx_id:' || l_movement_transaction.rcv_transaction_id
4119: );
4120: END IF;
4133: ELSE
4134: -- If receipt based matching does not exists, check if it matched agains
4135: -- a PO; check non credit memo based transactions;
4136:
4137: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4138: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4139: ,G_MODULE_NAME || l_procedure_name
4140: ,' Opening l_po_inv for po_header_id:' || l_movement_transaction.po_header_id
4141: ||' po_line_location_id:' || l_movement_transaction.po_line_location_id
4134: -- If receipt based matching does not exists, check if it matched agains
4135: -- a PO; check non credit memo based transactions;
4136:
4137: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4138: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4139: ,G_MODULE_NAME || l_procedure_name
4140: ,' Opening l_po_inv for po_header_id:' || l_movement_transaction.po_header_id
4141: ||' po_line_location_id:' || l_movement_transaction.po_line_location_id
4142: );
4149: , x_movement_transaction.invoice_id
4150: , l_invoice_quantity;
4151: CLOSE l_po_inv;
4152:
4153: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4154: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4155: ,G_MODULE_NAME || l_procedure_name
4156: ,' l_po_inv::l_extended_amount:' || l_extended_amount
4157: ||' l_po_inv::distribution_line_number:' || x_movement_transaction.distribution_line_number
4150: , l_invoice_quantity;
4151: CLOSE l_po_inv;
4152:
4153: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4154: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4155: ,G_MODULE_NAME || l_procedure_name
4156: ,' l_po_inv::l_extended_amount:' || l_extended_amount
4157: ||' l_po_inv::distribution_line_number:' || x_movement_transaction.distribution_line_number
4158: ||' l_po_inv::invoice_id:' || x_movement_transaction.invoice_id
4163: IF x_movement_transaction.invoice_id IS NOT NULL
4164: THEN
4165: /*bug 8435322 Added new cursor to fetch max distribution_line_number for max Invoice Id*/
4166:
4167: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4168: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4169: ,G_MODULE_NAME || l_procedure_name
4170: ,' Opening l_po_line_number for invoice_id:' || x_movement_transaction.invoice_id
4171: ||' po_line_location_id:' || x_movement_transaction.po_line_location_id
4164: THEN
4165: /*bug 8435322 Added new cursor to fetch max distribution_line_number for max Invoice Id*/
4166:
4167: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4168: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4169: ,G_MODULE_NAME || l_procedure_name
4170: ,' Opening l_po_line_number for invoice_id:' || x_movement_transaction.invoice_id
4171: ||' po_line_location_id:' || x_movement_transaction.po_line_location_id
4172: );
4177: x_movement_transaction.distribution_line_number;
4178: CLOSE l_po_line_number;
4179: /*End bug 8435322*/
4180:
4181: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4182: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4183: ,G_MODULE_NAME || l_procedure_name
4184: ,' l_po_line_number::distribution_line_number:' || x_movement_transaction.distribution_line_number
4185: );
4178: CLOSE l_po_line_number;
4179: /*End bug 8435322*/
4180:
4181: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4182: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4183: ,G_MODULE_NAME || l_procedure_name
4184: ,' l_po_line_number::distribution_line_number:' || x_movement_transaction.distribution_line_number
4185: );
4186: END IF;
4435: END IF;
4436: END IF;
4437: END IF;
4438:
4439: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
4440: THEN
4441: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4442: , G_MODULE_NAME || l_procedure_name || '.end'
4443: ,'exit procedure'
4437: END IF;
4438:
4439: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
4440: THEN
4441: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4442: , G_MODULE_NAME || l_procedure_name || '.end'
4443: ,'exit procedure'
4444: );
4445: END IF;
4446:
4447: EXCEPTION
4448: WHEN NO_DATA_FOUND
4449: THEN
4450: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
4451: THEN
4452: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
4453: , G_MODULE_NAME || l_procedure_name||'.No data found exception'
4454: , 'Exception'
4448: WHEN NO_DATA_FOUND
4449: THEN
4450: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
4451: THEN
4452: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
4453: , G_MODULE_NAME || l_procedure_name||'.No data found exception'
4454: , 'Exception'
4455: );
4456: END IF;
4462: x_movement_transaction.order_line_id := l_cto_line_id;
4463: END IF;
4464: WHEN TOO_MANY_ROWS
4465: THEN
4466: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
4467: THEN
4468: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
4469: , G_MODULE_NAME || l_procedure_name||'.too many rows exception'
4470: , 'Exception'
4464: WHEN TOO_MANY_ROWS
4465: THEN
4466: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
4467: THEN
4468: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
4469: , G_MODULE_NAME || l_procedure_name||'.too many rows exception'
4470: , 'Exception'
4471: );
4472: END IF;
4478: x_movement_transaction.order_line_id := l_cto_line_id;
4479: END IF;
4480: WHEN OTHERS
4481: THEN
4482: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
4483: THEN
4484: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
4485: , G_MODULE_NAME || l_procedure_name||'.Others exception:' || sqlerrm
4486: , 'Exception'
4480: WHEN OTHERS
4481: THEN
4482: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
4483: THEN
4484: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
4485: , G_MODULE_NAME || l_procedure_name||'.Others exception:' || sqlerrm
4486: , 'Exception'
4487: );
4488: END IF;
4530: AND NVL(glp.adjustment_period_flag,'N') = 'N'
4531: AND trunc(p_period_date) BETWEEN trunc(glp.start_date) AND trunc(glp.end_date);
4532:
4533: BEGIN
4534: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
4535: THEN
4536: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4537: , G_MODULE_NAME || l_function_name || '.begin'
4538: ,'enter procedure'
4532:
4533: BEGIN
4534: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
4535: THEN
4536: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4537: , G_MODULE_NAME || l_function_name || '.begin'
4538: ,'enter procedure'
4539: );
4540: END IF;
4548: END IF;
4549:
4550: CLOSE c_pname;
4551:
4552: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
4553: THEN
4554: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4555: , G_MODULE_NAME || l_function_name || '.end'
4556: ,'exit procedure'
4550: CLOSE c_pname;
4551:
4552: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
4553: THEN
4554: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4555: , G_MODULE_NAME || l_function_name || '.end'
4556: ,'exit procedure'
4557: );
4558: END IF;
4560: RETURN l_set_of_books_period;
4561:
4562: EXCEPTION
4563: WHEN NO_DATA_FOUND THEN
4564: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
4565: THEN
4566: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
4567: , G_MODULE_NAME || l_function_name||'.No data found exception'
4568: , 'Exception'
4562: EXCEPTION
4563: WHEN NO_DATA_FOUND THEN
4564: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
4565: THEN
4566: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
4567: , G_MODULE_NAME || l_function_name||'.No data found exception'
4568: , 'Exception'
4569: );
4570: END IF;
4570: END IF;
4571: RETURN null;
4572: WHEN TOO_MANY_ROWS
4573: THEN
4574: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
4575: THEN
4576: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
4577: , G_MODULE_NAME || l_function_name||'.too many rows exception'
4578: , 'Exception'
4572: WHEN TOO_MANY_ROWS
4573: THEN
4574: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
4575: THEN
4576: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
4577: , G_MODULE_NAME || l_function_name||'.too many rows exception'
4578: , 'Exception'
4579: );
4580: END IF;
4579: );
4580: END IF;
4581: RETURN null;
4582: WHEN OTHERS THEN
4583: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
4584: THEN
4585: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
4586: , G_MODULE_NAME || l_function_name||'.Others exception'
4587: , 'Exception'
4581: RETURN null;
4582: WHEN OTHERS THEN
4583: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
4584: THEN
4585: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
4586: , G_MODULE_NAME || l_function_name||'.Others exception'
4587: , 'Exception'
4588: );
4589: END IF;
4635: AND start_date >= l_stat_typ_transaction.start_date
4636: AND NVL(adjustment_period_flag,'N') = 'N';
4637:
4638: BEGIN
4639: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
4640: THEN
4641: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4642: , G_MODULE_NAME || l_function_name || '.begin'
4643: ,'enter procedure'
4637:
4638: BEGIN
4639: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
4640: THEN
4641: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4642: , G_MODULE_NAME || l_function_name || '.begin'
4643: ,'enter procedure'
4644: );
4645: END IF;
4672: CLOSE c_period1;
4673: END IF;
4674: END IF;
4675:
4676: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
4677: THEN
4678: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4679: , G_MODULE_NAME || l_function_name || '.end'
4680: ,'exit procedure'
4674: END IF;
4675:
4676: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
4677: THEN
4678: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4679: , G_MODULE_NAME || l_function_name || '.end'
4680: ,'exit procedure'
4681: );
4682: END IF;
4684: RETURN l_movement_transaction.period_name;
4685:
4686: EXCEPTION
4687: WHEN OTHERS THEN
4688: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
4689: THEN
4690: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
4691: , G_MODULE_NAME || l_function_name||'. Others exception'
4692: , 'Exception'
4686: EXCEPTION
4687: WHEN OTHERS THEN
4688: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
4689: THEN
4690: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
4691: , G_MODULE_NAME || l_function_name||'. Others exception'
4692: , 'Exception'
4693: );
4694: END IF;
4718: l_stat_typ_transaction INV_MGD_MVT_DATA_STR.Movement_Stat_Usages_Rec_Type;
4719: l_procedure_name CONSTANT VARCHAR2(30) := 'Get_Reference_Date';
4720:
4721: BEGIN
4722: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
4723: THEN
4724: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4725: , G_MODULE_NAME || l_procedure_name || '.begin'
4726: ,'enter procedure'
4720:
4721: BEGIN
4722: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
4723: THEN
4724: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4725: , G_MODULE_NAME || l_procedure_name || '.begin'
4726: ,'enter procedure'
4727: );
4728: END IF;
4837:
4838: x_movement_transaction.movement_status :='O';
4839: END IF;
4840:
4841: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
4842: THEN
4843: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4844: , G_MODULE_NAME || l_procedure_name || '.end'
4845: ,'exit procedure'
4839: END IF;
4840:
4841: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
4842: THEN
4843: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4844: , G_MODULE_NAME || l_procedure_name || '.end'
4845: ,'exit procedure'
4846: );
4847: END IF;
4847: END IF;
4848:
4849: EXCEPTION
4850: WHEN OTHERS THEN
4851: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
4852: THEN
4853: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
4854: , G_MODULE_NAME || l_procedure_name||'. Others exception'
4855: , 'Exception'
4849: EXCEPTION
4850: WHEN OTHERS THEN
4851: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
4852: THEN
4853: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
4854: , G_MODULE_NAME || l_procedure_name||'. Others exception'
4855: , 'Exception'
4856: );
4857: END IF;