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;
218:
219: EXCEPTION
220: WHEN NO_DATA_FOUND
221: THEN
222: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
223: THEN
224: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
225: , G_MODULE_NAME || l_procedure_name
226: , 'There is no data in item_number in mtl_item_flexfields for
220: WHEN NO_DATA_FOUND
221: THEN
222: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
223: THEN
224: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
225: , G_MODULE_NAME || l_procedure_name
226: , 'There is no data in item_number in mtl_item_flexfields for
227: item_id='||TO_CHAR(p_mtl_movement_transaction.inventory_item_id)
228: );
228: );
229: END IF;
230:
231: ------Exception Missing Item ---------------------
232: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
233: THEN
234: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
235: , G_MODULE_NAME || l_procedure_name
236: , 'Missing Item'
230:
231: ------Exception Missing Item ---------------------
232: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
233: THEN
234: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
235: , G_MODULE_NAME || l_procedure_name
236: , 'Missing Item'
237: );
238: END IF;
236: , 'Missing Item'
237: );
238: END IF;
239:
240: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
241: THEN
242: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
243: , G_MODULE_NAME || l_procedure_name
244: , 'Insert record into temp table'
238: END IF;
239:
240: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
241: THEN
242: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
243: , G_MODULE_NAME || l_procedure_name
244: , 'Insert record into temp table'
245: );
246: END IF;
289: WHERE inventory_item_id=p_mtl_movement_transaction.inventory_item_id
290: AND error_name=l_error_name
291: AND column_name='COMMODITY_CODE';
292:
293: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
294: THEN
295: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
296: , G_MODULE_NAME || l_procedure_name
297: , 'l_count='||TO_CHAR(l_count)
291: AND column_name='COMMODITY_CODE';
292:
293: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
294: THEN
295: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
296: , G_MODULE_NAME || l_procedure_name
297: , 'l_count='||TO_CHAR(l_count)
298: );
299: END IF;
299: END IF;
300:
301: IF l_count>0
302: THEN
303: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
304: THEN
305: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
306: , G_MODULE_NAME || l_procedure_name
307: , 'Update temp table'
301: IF l_count>0
302: THEN
303: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
304: THEN
305: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
306: , G_MODULE_NAME || l_procedure_name
307: , 'Update temp table'
308: );
309: END IF;
317:
318: ELSE
319: ------insert mode
320:
321: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
322: THEN
323: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
324: , G_MODULE_NAME || l_procedure_name
325: , 'Insert record into temp table:'
319: ------insert mode
320:
321: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
322: THEN
323: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
324: , G_MODULE_NAME || l_procedure_name
325: , 'Insert record into temp table:'
326: );
327: END IF;
325: , 'Insert record into temp table:'
326: );
327: END IF;
328:
329: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
330: THEN
331: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
332: , G_MODULE_NAME || l_procedure_name
333: , 'error_type='||l_error_type
327: END IF;
328:
329: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
330: THEN
331: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
332: , G_MODULE_NAME || l_procedure_name
333: , 'error_type='||l_error_type
334: );
335: END IF;
333: , 'error_type='||l_error_type
334: );
335: END IF;
336:
337: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
338: THEN
339: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
340: , G_MODULE_NAME || l_procedure_name
341: , 'error_name='||l_error_name
335: END IF;
336:
337: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
338: THEN
339: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
340: , G_MODULE_NAME || l_procedure_name
341: , 'error_name='||l_error_name
342: );
343: END IF;
341: , 'error_name='||l_error_name
342: );
343: END IF;
344:
345: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
346: THEN
347: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
348: , G_MODULE_NAME || l_procedure_name
349: , 'column_name='||p_excp_list(l_count_i).excp_col_name||
343: END IF;
344:
345: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
346: THEN
347: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
348: , G_MODULE_NAME || l_procedure_name
349: , 'column_name='||p_excp_list(l_count_i).excp_col_name||
350: 'item_id='||p_mtl_movement_transaction.inventory_item_id
351: );
398:
399: l_error_name:='INV_MGD_MVT_MIS_UNW';
400: l_error_type:='Error';
401:
402: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
403: THEN
404: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
405: , G_MODULE_NAME || l_procedure_name
406: , 'Get item code for item_id='||TO_CHAR(p_mtl_movement_transaction.inventory_item_id)
400: l_error_type:='Error';
401:
402: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
403: THEN
404: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
405: , G_MODULE_NAME || l_procedure_name
406: , 'Get item code for item_id='||TO_CHAR(p_mtl_movement_transaction.inventory_item_id)
407: );
408: END IF;
426:
427: EXCEPTION
428: WHEN NO_DATA_FOUND
429: THEN
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: , 'There is no data in item_number in mtl_item_flexfields for
428: WHEN NO_DATA_FOUND
429: THEN
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: , 'There is no data in item_number in mtl_item_flexfields for
435: item_id='||TO_CHAR(p_mtl_movement_transaction.inventory_item_id)
436: );
436: );
437: END IF;
438:
439: ------Exception Missing Item ---------------------
440: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
441: THEN
442: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
443: , G_MODULE_NAME || l_procedure_name
444: , 'Missing Item'
438:
439: ------Exception Missing Item ---------------------
440: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
441: THEN
442: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
443: , G_MODULE_NAME || l_procedure_name
444: , 'Missing Item'
445: );
446: END IF;
444: , 'Missing Item'
445: );
446: END IF;
447:
448: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
449: THEN
450: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
451: , G_MODULE_NAME || l_procedure_name
452: , 'Insert record into temp table:'
446: END IF;
447:
448: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
449: THEN
450: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
451: , G_MODULE_NAME || l_procedure_name
452: , 'Insert record into temp table:'
453: );
454: END IF;
498: AND error_name=l_error_name;
499:
500: IF l_count>0
501: THEN
502: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
503: THEN
504: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
505: , G_MODULE_NAME || l_procedure_name
506: , 'Update temp table:'
500: IF l_count>0
501: THEN
502: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
503: THEN
504: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
505: , G_MODULE_NAME || l_procedure_name
506: , 'Update temp table:'
507: );
508: END IF;
514: AND error_name=l_error_name;
515:
516: ELSE
517: ------insert mode
518: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
519: THEN
520: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
521: , G_MODULE_NAME || l_procedure_name
522: , 'Insert record into temp table:'
516: ELSE
517: ------insert mode
518: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
519: THEN
520: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
521: , G_MODULE_NAME || l_procedure_name
522: , 'Insert record into temp table:'
523: );
524: END IF;
572:
573: l_error_name:='INV_MGD_MVT_MIS_EXR';
574: l_error_type:='Error';
575:
576: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
577: THEN
578: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
579: , G_MODULE_NAME || l_procedure_name
580: , 'Missing Exchange Rate,l_error_name= '||l_error_name
574: l_error_type:='Error';
575:
576: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
577: THEN
578: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
579: , G_MODULE_NAME || l_procedure_name
580: , 'Missing Exchange Rate,l_error_name= '||l_error_name
581: );
582: END IF;
586: (p_mtl_movement_transaction.entity_org_id);
587:
588: ------Checking if information about this currency and this exception
589: ------already exists in temp table
590: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
591: THEN
592: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
593: , G_MODULE_NAME || l_procedure_name
594: , 'Checking if this currency already exists in temp table'
588: ------Checking if information about this currency and this exception
589: ------already exists in temp table
590: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
591: THEN
592: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
593: , G_MODULE_NAME || l_procedure_name
594: , 'Checking if this currency already exists in temp table'
595: );
596: END IF;
602: AND error_name=l_error_name;
603:
604: IF l_count>0
605: THEN
606: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
607: THEN
608: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
609: , G_MODULE_NAME || l_procedure_name
610: , 'Update temp table'
604: IF l_count>0
605: THEN
606: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
607: THEN
608: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
609: , G_MODULE_NAME || l_procedure_name
610: , 'Update temp table'
611: );
612: END IF;
618: AND error_name=l_error_name;
619:
620: ELSE
621: ------insert mode
622: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
623: THEN
624: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
625: , G_MODULE_NAME || l_procedure_name
626: , 'Insert record into temp table:'
620: ELSE
621: ------insert mode
622: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
623: THEN
624: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
625: , G_MODULE_NAME || l_procedure_name
626: , 'Insert record into temp table:'
627: );
628: END IF;
669:
670: l_error_name:='INV_MGD_MVT_MIS_TP_VAT';
671: l_error_type:='Error';
672:
673: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
674: THEN
675: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
676: , G_MODULE_NAME || l_procedure_name
677: , 'Get Parner name and Partner Type'
671: l_error_type:='Error';
672:
673: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
674: THEN
675: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
676: , G_MODULE_NAME || l_procedure_name
677: , 'Get Parner name and Partner Type'
678: );
679: END IF;
713: null;
714: END;
715: END IF;
716:
717: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
718: THEN
719: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
720: , G_MODULE_NAME || l_procedure_name
721: , ' Parner name='||l_tp_name||
715: END IF;
716:
717: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
718: THEN
719: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
720: , G_MODULE_NAME || l_procedure_name
721: , ' Parner name='||l_tp_name||
722: ' Partner Type='||l_tp_type
723: );
735: AND error_name=l_error_name;
736:
737: IF l_count>0
738: THEN
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: , 'Update temp table:'
737: IF l_count>0
738: THEN
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: , 'Update temp table:'
744: );
745: END IF;
753: AND error_name=l_error_name;
754:
755: ELSE
756: ------insert mode
757: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
758: THEN
759: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
760: , G_MODULE_NAME || l_procedure_name
761: , 'Insert record into temp table, error_name='||l_error_name
755: ELSE
756: ------insert mode
757: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
758: THEN
759: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
760: , G_MODULE_NAME || l_procedure_name
761: , 'Insert record into temp table, error_name='||l_error_name
762: );
763: END IF;
912: ELSE
913: l_excp_col_name:=p_excp_list(l_count_i).excp_col_name;
914: END IF;
915:
916: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
917: THEN
918: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
919: , G_MODULE_NAME || l_procedure_name
920: , 'Insert record into temp table:'
914: END IF;
915:
916: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
917: THEN
918: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
919: , G_MODULE_NAME || l_procedure_name
920: , 'Insert record into temp table:'
921: );
922: END IF;
958: END IF;
959: l_count_i := l_count_i + 1;
960: END LOOP;
961:
962: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
963: THEN
964: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
965: , G_MODULE_NAME || l_procedure_name || '.end'
966: ,'exit procedure'
960: END LOOP;
961:
962: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
963: THEN
964: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
965: , G_MODULE_NAME || l_procedure_name || '.end'
966: ,'exit procedure'
967: );
968: END IF;
1038:
1039: l_api_version_number NUMBER;
1040: l_init_msg_list VARCHAR2(30);
1041: BEGIN
1042: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1043: THEN
1044: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1045: , G_MODULE_NAME || l_procedure_name || '.begin'
1046: ,'enter procedure'
1040: l_init_msg_list VARCHAR2(30);
1041: BEGIN
1042: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1043: THEN
1044: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1045: , G_MODULE_NAME || l_procedure_name || '.begin'
1046: ,'enter procedure'
1047: );
1048: END IF;
1109:
1110: IF x_return_status = 'Y' THEN
1111:
1112: --- Fetch the Cursor into the Record Type
1113: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1114: THEN
1115: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
1116: , G_MODULE_NAME || l_procedure_name
1117: , 'LOOP on val_cur cursor for validate transaction'
1111:
1112: --- Fetch the Cursor into the Record Type
1113: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1114: THEN
1115: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
1116: , G_MODULE_NAME || l_procedure_name
1117: , 'LOOP on val_cur cursor for validate transaction'
1118: );
1119: END IF;
1271: EXIT WHEN val_crsr%NOTFOUND;
1272:
1273: -- Call the validate_movement_statistics Verification procedure inside
1274: -- LOOP FOR every record Fetched from the CURSOR
1275: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1276: THEN
1277: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
1278: , G_MODULE_NAME || l_procedure_name
1279: , 'Processing movement_id '||TO_CHAR(l_mtl_movement_statistics.movement_id)
1273: -- Call the validate_movement_statistics Verification procedure inside
1274: -- LOOP FOR every record Fetched from the CURSOR
1275: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1276: THEN
1277: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
1278: , G_MODULE_NAME || l_procedure_name
1279: , 'Processing movement_id '||TO_CHAR(l_mtl_movement_statistics.movement_id)
1280: );
1281: END IF;
1308: );
1309: */
1310:
1311: ELSE
1312: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1313: THEN
1314: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
1315: , G_MODULE_NAME || l_procedure_name
1316: , 'Record validated with no exception'
1310:
1311: ELSE
1312: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1313: THEN
1314: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
1315: , G_MODULE_NAME || l_procedure_name
1316: , 'Record validated with no exception'
1317: );
1318: END IF;
1342: ELSE
1343: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1344: END IF; --IF x_return_status='Y'
1345:
1346: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1347: THEN
1348: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
1349: , G_MODULE_NAME || l_procedure_name
1350: , 'END LOOP on val_crsr'
1344: END IF; --IF x_return_status='Y'
1345:
1346: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1347: THEN
1348: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
1349: , G_MODULE_NAME || l_procedure_name
1350: , 'END LOOP on val_crsr'
1351: );
1352: END IF;
1356:
1357: x_msg_data := NULL;
1358: x_msg_count := 0;
1359:
1360: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1361: THEN
1362: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1363: , G_MODULE_NAME || l_procedure_name || '.end'
1364: ,'exit procedure'
1358: x_msg_count := 0;
1359:
1360: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1361: THEN
1362: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1363: , G_MODULE_NAME || l_procedure_name || '.end'
1364: ,'exit procedure'
1365: );
1366: END IF;