66: l_tp_name VARCHAR2(360);
67: l_tp_type VARCHAR2(80);
68: l_procedure_name CONSTANT VARCHAR2(30) := 'Populate_Temp_Table';
69: BEGIN
70: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
71: THEN
72: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
73: , G_MODULE_NAME || l_procedure_name || '.begin'
74: ,'enter procedure'
68: l_procedure_name CONSTANT VARCHAR2(30) := 'Populate_Temp_Table';
69: BEGIN
70: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
71: THEN
72: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
73: , G_MODULE_NAME || l_procedure_name || '.begin'
74: ,'enter procedure'
75: );
76: END IF;
78: l_num_of_exceptions := p_excp_list.COUNT;
79:
80: ---dbms_output.put_line('Number of exceptions: '|| l_num_of_exceptions);
81:
82: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
83: THEN
84: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
85: , G_MODULE_NAME || l_procedure_name
86: , 'Number of exceptions: '|| l_num_of_exceptions
80: ---dbms_output.put_line('Number of exceptions: '|| l_num_of_exceptions);
81:
82: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
83: THEN
84: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
85: , G_MODULE_NAME || l_procedure_name
86: , 'Number of exceptions: '|| l_num_of_exceptions
87: );
88: END IF;
89:
90: l_count_i := 1;
91: WHILE l_count_i <= l_num_of_exceptions
92: LOOP
93: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
94: THEN
95: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
96: , G_MODULE_NAME || l_procedure_name
97: , 'Loop : '|| l_count_i
91: WHILE l_count_i <= l_num_of_exceptions
92: LOOP
93: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
94: THEN
95: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
96: , G_MODULE_NAME || l_procedure_name
97: , 'Loop : '|| l_count_i
98: );
99: END IF;
110:
111: l_error_name:='INV_MGD_MVT_MIS_INV';
112: l_error_type:='Warning';
113:
114: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
115: THEN
116: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
117: , G_MODULE_NAME || l_procedure_name
118: ,'Insert record into temp table'
112: l_error_type:='Warning';
113:
114: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
115: THEN
116: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
117: , G_MODULE_NAME || l_procedure_name
118: ,'Insert record into temp table'
119: );
120: END IF;
155: ------------Missing Commodity_code --------
156: ELSIF p_excp_list(l_count_i).excp_message_cd=1
157: AND p_excp_list(l_count_i).excp_col_name='COMMODITY_CODE'
158: THEN
159: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
160: THEN
161: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
162: , G_MODULE_NAME || l_procedure_name
163: , 'Missing Commodity_code'
157: AND p_excp_list(l_count_i).excp_col_name='COMMODITY_CODE'
158: THEN
159: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
160: THEN
161: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
162: , G_MODULE_NAME || l_procedure_name
163: , 'Missing Commodity_code'
164: );
165: END IF;
163: , 'Missing Commodity_code'
164: );
165: END IF;
166:
167: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
168: THEN
169: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
170: , G_MODULE_NAME || l_procedure_name
171: , 'error_name='||l_error_name
165: END IF;
166:
167: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
168: THEN
169: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
170: , G_MODULE_NAME || l_procedure_name
171: , 'error_name='||l_error_name
172: );
173: END IF;
171: , 'error_name='||l_error_name
172: );
173: END IF;
174:
175: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
176: THEN
177: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
178: , G_MODULE_NAME || l_procedure_name
179: , 'column_name='||p_excp_list(l_count_i).excp_col_name
173: END IF;
174:
175: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
176: THEN
177: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
178: , G_MODULE_NAME || l_procedure_name
179: , 'column_name='||p_excp_list(l_count_i).excp_col_name
180: );
181: END IF;
182:
183: l_error_name:='INV_MGD_MVT_MIS_COMC';
184: l_error_type:='Error';
185:
186: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
187: THEN
188: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
189: , G_MODULE_NAME || l_procedure_name
190: , 'error_name='||l_error_name
184: l_error_type:='Error';
185:
186: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
187: THEN
188: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
189: , G_MODULE_NAME || l_procedure_name
190: , 'error_name='||l_error_name
191: );
192: END IF;
190: , 'error_name='||l_error_name
191: );
192: END IF;
193:
194: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
195: THEN
196: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
197: , G_MODULE_NAME || l_procedure_name
198: , 'Get item code for item_id='||TO_CHAR(p_mtl_movement_transaction.inventory_item_id)
192: END IF;
193:
194: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
195: THEN
196: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
197: , G_MODULE_NAME || l_procedure_name
198: , 'Get item code for item_id='||TO_CHAR(p_mtl_movement_transaction.inventory_item_id)
199: );
200: END IF;
209:
210: EXCEPTION
211: WHEN NO_DATA_FOUND
212: THEN
213: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
214: THEN
215: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
216: , G_MODULE_NAME || l_procedure_name
217: , 'There is no data in segment1 in mtl_item_flexfields for
211: WHEN NO_DATA_FOUND
212: THEN
213: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
214: THEN
215: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
216: , G_MODULE_NAME || l_procedure_name
217: , 'There is no data in segment1 in mtl_item_flexfields for
218: item_id='||TO_CHAR(p_mtl_movement_transaction.inventory_item_id)
219: );
219: );
220: END IF;
221:
222: ------Exception Missing Item ---------------------
223: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
224: THEN
225: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
226: , G_MODULE_NAME || l_procedure_name
227: , 'Missing Item'
221:
222: ------Exception Missing Item ---------------------
223: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
224: THEN
225: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
226: , G_MODULE_NAME || l_procedure_name
227: , 'Missing Item'
228: );
229: END IF;
227: , 'Missing Item'
228: );
229: END IF;
230:
231: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
232: THEN
233: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
234: , G_MODULE_NAME || l_procedure_name
235: , 'Insert record into temp table'
229: END IF;
230:
231: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
232: THEN
233: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
234: , G_MODULE_NAME || l_procedure_name
235: , 'Insert record into temp table'
236: );
237: END IF;
280: WHERE inventory_item_id=p_mtl_movement_transaction.inventory_item_id
281: AND error_name=l_error_name
282: AND column_name='COMMODITY_CODE';
283:
284: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
285: THEN
286: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
287: , G_MODULE_NAME || l_procedure_name
288: , 'l_count='||TO_CHAR(l_count)
282: AND column_name='COMMODITY_CODE';
283:
284: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
285: THEN
286: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
287: , G_MODULE_NAME || l_procedure_name
288: , 'l_count='||TO_CHAR(l_count)
289: );
290: END IF;
290: END IF;
291:
292: IF l_count>0
293: THEN
294: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
295: THEN
296: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
297: , G_MODULE_NAME || l_procedure_name
298: , 'Update temp table'
292: IF l_count>0
293: THEN
294: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
295: THEN
296: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
297: , G_MODULE_NAME || l_procedure_name
298: , 'Update temp table'
299: );
300: END IF;
308:
309: ELSE
310: ------insert mode
311:
312: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
313: THEN
314: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
315: , G_MODULE_NAME || l_procedure_name
316: , 'Insert record into temp table:'
310: ------insert mode
311:
312: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
313: THEN
314: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
315: , G_MODULE_NAME || l_procedure_name
316: , 'Insert record into temp table:'
317: );
318: END IF;
316: , 'Insert record into temp table:'
317: );
318: END IF;
319:
320: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
321: THEN
322: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
323: , G_MODULE_NAME || l_procedure_name
324: , 'error_type='||l_error_type
318: END IF;
319:
320: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
321: THEN
322: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
323: , G_MODULE_NAME || l_procedure_name
324: , 'error_type='||l_error_type
325: );
326: END IF;
324: , 'error_type='||l_error_type
325: );
326: END IF;
327:
328: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
329: THEN
330: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
331: , G_MODULE_NAME || l_procedure_name
332: , 'error_name='||l_error_name
326: END IF;
327:
328: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
329: THEN
330: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
331: , G_MODULE_NAME || l_procedure_name
332: , 'error_name='||l_error_name
333: );
334: END IF;
332: , 'error_name='||l_error_name
333: );
334: END IF;
335:
336: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
337: THEN
338: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
339: , G_MODULE_NAME || l_procedure_name
340: , 'column_name='||p_excp_list(l_count_i).excp_col_name||
334: END IF;
335:
336: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
337: THEN
338: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
339: , G_MODULE_NAME || l_procedure_name
340: , 'column_name='||p_excp_list(l_count_i).excp_col_name||
341: 'item_id='||p_mtl_movement_transaction.inventory_item_id
342: );
389:
390: l_error_name:='INV_MGD_MVT_MIS_UNW';
391: l_error_type:='Error';
392:
393: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
394: THEN
395: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
396: , G_MODULE_NAME || l_procedure_name
397: , 'Get item code for item_id='||TO_CHAR(p_mtl_movement_transaction.inventory_item_id)
391: l_error_type:='Error';
392:
393: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
394: THEN
395: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
396: , G_MODULE_NAME || l_procedure_name
397: , 'Get item code for item_id='||TO_CHAR(p_mtl_movement_transaction.inventory_item_id)
398: );
399: END IF;
408:
409: EXCEPTION
410: WHEN NO_DATA_FOUND
411: THEN
412: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
413: THEN
414: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
415: , G_MODULE_NAME || l_procedure_name
416: , 'There is no data in segment1 in mtl_item_flexfields for
410: WHEN NO_DATA_FOUND
411: THEN
412: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
413: THEN
414: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
415: , G_MODULE_NAME || l_procedure_name
416: , 'There is no data in segment1 in mtl_item_flexfields for
417: item_id='||TO_CHAR(p_mtl_movement_transaction.inventory_item_id)
418: );
418: );
419: END IF;
420:
421: ------Exception Missing Item ---------------------
422: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
423: THEN
424: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
425: , G_MODULE_NAME || l_procedure_name
426: , 'Missing Item'
420:
421: ------Exception Missing Item ---------------------
422: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
423: THEN
424: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
425: , G_MODULE_NAME || l_procedure_name
426: , 'Missing Item'
427: );
428: END IF;
426: , 'Missing Item'
427: );
428: END IF;
429:
430: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
431: THEN
432: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
433: , G_MODULE_NAME || l_procedure_name
434: , 'Insert record into temp table:'
428: END IF;
429:
430: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
431: THEN
432: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
433: , G_MODULE_NAME || l_procedure_name
434: , 'Insert record into temp table:'
435: );
436: END IF;
480: AND error_name=l_error_name;
481:
482: IF l_count>0
483: THEN
484: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
485: THEN
486: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
487: , G_MODULE_NAME || l_procedure_name
488: , 'Update temp table:'
482: IF l_count>0
483: THEN
484: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
485: THEN
486: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
487: , G_MODULE_NAME || l_procedure_name
488: , 'Update temp table:'
489: );
490: END IF;
496: AND error_name=l_error_name;
497:
498: ELSE
499: ------insert mode
500: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
501: THEN
502: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
503: , G_MODULE_NAME || l_procedure_name
504: , 'Insert record into temp table:'
498: ELSE
499: ------insert mode
500: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
501: THEN
502: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
503: , G_MODULE_NAME || l_procedure_name
504: , 'Insert record into temp table:'
505: );
506: END IF;
554:
555: l_error_name:='INV_MGD_MVT_MIS_EXR';
556: l_error_type:='Error';
557:
558: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
559: THEN
560: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
561: , G_MODULE_NAME || l_procedure_name
562: , 'Missing Exchange Rate,l_error_name= '||l_error_name
556: l_error_type:='Error';
557:
558: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
559: THEN
560: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
561: , G_MODULE_NAME || l_procedure_name
562: , 'Missing Exchange Rate,l_error_name= '||l_error_name
563: );
564: END IF;
568: (p_mtl_movement_transaction.entity_org_id);
569:
570: ------Checking if information about this currency and this exception
571: ------already exists in temp table
572: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
573: THEN
574: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
575: , G_MODULE_NAME || l_procedure_name
576: , 'Checking if this currency already exists in temp table'
570: ------Checking if information about this currency and this exception
571: ------already exists in temp table
572: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
573: THEN
574: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
575: , G_MODULE_NAME || l_procedure_name
576: , 'Checking if this currency already exists in temp table'
577: );
578: END IF;
584: AND error_name=l_error_name;
585:
586: IF l_count>0
587: THEN
588: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
589: THEN
590: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
591: , G_MODULE_NAME || l_procedure_name
592: , 'Update temp table'
586: IF l_count>0
587: THEN
588: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
589: THEN
590: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
591: , G_MODULE_NAME || l_procedure_name
592: , 'Update temp table'
593: );
594: END IF;
600: AND error_name=l_error_name;
601:
602: ELSE
603: ------insert mode
604: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
605: THEN
606: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
607: , G_MODULE_NAME || l_procedure_name
608: , 'Insert record into temp table:'
602: ELSE
603: ------insert mode
604: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
605: THEN
606: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
607: , G_MODULE_NAME || l_procedure_name
608: , 'Insert record into temp table:'
609: );
610: END IF;
651:
652: l_error_name:='INV_MGD_MVT_MIS_TP_VAT';
653: l_error_type:='Error';
654:
655: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
656: THEN
657: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
658: , G_MODULE_NAME || l_procedure_name
659: , 'Get Parner name and Partner Type'
653: l_error_type:='Error';
654:
655: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
656: THEN
657: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
658: , G_MODULE_NAME || l_procedure_name
659: , 'Get Parner name and Partner Type'
660: );
661: END IF;
695: null;
696: END;
697: END IF;
698:
699: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
700: THEN
701: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
702: , G_MODULE_NAME || l_procedure_name
703: , ' Parner name='||l_tp_name||
697: END IF;
698:
699: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
700: THEN
701: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
702: , G_MODULE_NAME || l_procedure_name
703: , ' Parner name='||l_tp_name||
704: ' Partner Type='||l_tp_type
705: );
717: AND error_name=l_error_name;
718:
719: IF l_count>0
720: THEN
721: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
722: THEN
723: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
724: , G_MODULE_NAME || l_procedure_name
725: , 'Update temp table:'
719: IF l_count>0
720: THEN
721: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
722: THEN
723: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
724: , G_MODULE_NAME || l_procedure_name
725: , 'Update temp table:'
726: );
727: END IF;
735: AND error_name=l_error_name;
736:
737: ELSE
738: ------insert mode
739: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
740: THEN
741: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
742: , G_MODULE_NAME || l_procedure_name
743: , 'Insert record into temp table, error_name='||l_error_name
737: ELSE
738: ------insert mode
739: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
740: THEN
741: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
742: , G_MODULE_NAME || l_procedure_name
743: , 'Insert record into temp table, error_name='||l_error_name
744: );
745: END IF;
894: ELSE
895: l_excp_col_name:=p_excp_list(l_count_i).excp_col_name;
896: END IF;
897:
898: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
899: THEN
900: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
901: , G_MODULE_NAME || l_procedure_name
902: , 'Insert record into temp table:'
896: END IF;
897:
898: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
899: THEN
900: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
901: , G_MODULE_NAME || l_procedure_name
902: , 'Insert record into temp table:'
903: );
904: END IF;
940: END IF;
941: l_count_i := l_count_i + 1;
942: END LOOP;
943:
944: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
945: THEN
946: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
947: , G_MODULE_NAME || l_procedure_name || '.end'
948: ,'exit procedure'
942: END LOOP;
943:
944: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
945: THEN
946: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
947: , G_MODULE_NAME || l_procedure_name || '.end'
948: ,'exit procedure'
949: );
950: END IF;
1020:
1021: l_api_version_number NUMBER;
1022: l_init_msg_list VARCHAR2(30);
1023: BEGIN
1024: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1025: THEN
1026: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1027: , G_MODULE_NAME || l_procedure_name || '.begin'
1028: ,'enter procedure'
1022: l_init_msg_list VARCHAR2(30);
1023: BEGIN
1024: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1025: THEN
1026: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1027: , G_MODULE_NAME || l_procedure_name || '.begin'
1028: ,'enter procedure'
1029: );
1030: END IF;
1091:
1092: IF x_return_status = 'Y' THEN
1093:
1094: --- Fetch the Cursor into the Record Type
1095: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1096: THEN
1097: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
1098: , G_MODULE_NAME || l_procedure_name
1099: , 'LOOP on val_cur cursor for validate transaction'
1093:
1094: --- Fetch the Cursor into the Record Type
1095: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1096: THEN
1097: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
1098: , G_MODULE_NAME || l_procedure_name
1099: , 'LOOP on val_cur cursor for validate transaction'
1100: );
1101: END IF;
1253: EXIT WHEN val_crsr%NOTFOUND;
1254:
1255: -- Call the validate_movement_statistics Verification procedure inside
1256: -- LOOP FOR every record Fetched from the CURSOR
1257: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1258: THEN
1259: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
1260: , G_MODULE_NAME || l_procedure_name
1261: , 'Processing movement_id '||TO_CHAR(l_mtl_movement_statistics.movement_id)
1255: -- Call the validate_movement_statistics Verification procedure inside
1256: -- LOOP FOR every record Fetched from the CURSOR
1257: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1258: THEN
1259: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
1260: , G_MODULE_NAME || l_procedure_name
1261: , 'Processing movement_id '||TO_CHAR(l_mtl_movement_statistics.movement_id)
1262: );
1263: END IF;
1290: );
1291: */
1292:
1293: ELSE
1294: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1295: THEN
1296: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
1297: , G_MODULE_NAME || l_procedure_name
1298: , 'Record validated with no exception'
1292:
1293: ELSE
1294: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1295: THEN
1296: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
1297: , G_MODULE_NAME || l_procedure_name
1298: , 'Record validated with no exception'
1299: );
1300: END IF;
1324: ELSE
1325: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1326: END IF; --IF x_return_status='Y'
1327:
1328: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1329: THEN
1330: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
1331: , G_MODULE_NAME || l_procedure_name
1332: , 'END LOOP on val_crsr'
1326: END IF; --IF x_return_status='Y'
1327:
1328: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1329: THEN
1330: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
1331: , G_MODULE_NAME || l_procedure_name
1332: , 'END LOOP on val_crsr'
1333: );
1334: END IF;
1338:
1339: x_msg_data := NULL;
1340: x_msg_count := 0;
1341:
1342: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1343: THEN
1344: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1345: , G_MODULE_NAME || l_procedure_name || '.end'
1346: ,'exit procedure'
1340: x_msg_count := 0;
1341:
1342: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1343: THEN
1344: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1345: , G_MODULE_NAME || l_procedure_name || '.end'
1346: ,'exit procedure'
1347: );
1348: END IF;