111: G_titem := V_titem;
112: G_template := V_template;
113: G_template_locale := V_template_locale;
114:
115: FND_FILE.PUT_LINE ( FND_FILE.LOG, 'Calling Modified gmp_print_mps with values ');
116: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_orgnanization_id '||to_char(G_orgnanization_id));
117: -- FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_schedule '||to_char(G_schedule));
118: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_schedule_id '||to_char(G_schedule_id));
119: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_category_set '||G_category_set);
112: G_template := V_template;
113: G_template_locale := V_template_locale;
114:
115: FND_FILE.PUT_LINE ( FND_FILE.LOG, 'Calling Modified gmp_print_mps with values ');
116: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_orgnanization_id '||to_char(G_orgnanization_id));
117: -- FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_schedule '||to_char(G_schedule));
118: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_schedule_id '||to_char(G_schedule_id));
119: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_category_set '||G_category_set);
120: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_structure_id '||to_char(G_structure_id));
113: G_template_locale := V_template_locale;
114:
115: FND_FILE.PUT_LINE ( FND_FILE.LOG, 'Calling Modified gmp_print_mps with values ');
116: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_orgnanization_id '||to_char(G_orgnanization_id));
117: -- FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_schedule '||to_char(G_schedule));
118: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_schedule_id '||to_char(G_schedule_id));
119: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_category_set '||G_category_set);
120: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_structure_id '||to_char(G_structure_id));
121: -- FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_category_set_id '||to_char(G_category_set_id));
114:
115: FND_FILE.PUT_LINE ( FND_FILE.LOG, 'Calling Modified gmp_print_mps with values ');
116: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_orgnanization_id '||to_char(G_orgnanization_id));
117: -- FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_schedule '||to_char(G_schedule));
118: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_schedule_id '||to_char(G_schedule_id));
119: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_category_set '||G_category_set);
120: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_structure_id '||to_char(G_structure_id));
121: -- FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_category_set_id '||to_char(G_category_set_id));
122: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_fcategory '||G_fcategory);
115: FND_FILE.PUT_LINE ( FND_FILE.LOG, 'Calling Modified gmp_print_mps with values ');
116: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_orgnanization_id '||to_char(G_orgnanization_id));
117: -- FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_schedule '||to_char(G_schedule));
118: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_schedule_id '||to_char(G_schedule_id));
119: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_category_set '||G_category_set);
120: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_structure_id '||to_char(G_structure_id));
121: -- FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_category_set_id '||to_char(G_category_set_id));
122: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_fcategory '||G_fcategory);
123: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_tcategory '||G_tcategory);
116: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_orgnanization_id '||to_char(G_orgnanization_id));
117: -- FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_schedule '||to_char(G_schedule));
118: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_schedule_id '||to_char(G_schedule_id));
119: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_category_set '||G_category_set);
120: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_structure_id '||to_char(G_structure_id));
121: -- FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_category_set_id '||to_char(G_category_set_id));
122: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_fcategory '||G_fcategory);
123: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_tcategory '||G_tcategory);
124: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_fbuyer '||G_fbuyer);
117: -- FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_schedule '||to_char(G_schedule));
118: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_schedule_id '||to_char(G_schedule_id));
119: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_category_set '||G_category_set);
120: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_structure_id '||to_char(G_structure_id));
121: -- FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_category_set_id '||to_char(G_category_set_id));
122: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_fcategory '||G_fcategory);
123: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_tcategory '||G_tcategory);
124: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_fbuyer '||G_fbuyer);
125: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_tbuyer '||G_tbuyer);
118: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_schedule_id '||to_char(G_schedule_id));
119: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_category_set '||G_category_set);
120: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_structure_id '||to_char(G_structure_id));
121: -- FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_category_set_id '||to_char(G_category_set_id));
122: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_fcategory '||G_fcategory);
123: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_tcategory '||G_tcategory);
124: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_fbuyer '||G_fbuyer);
125: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_tbuyer '||G_tbuyer);
126: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_fplanner '||G_fplanner);
119: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_category_set '||G_category_set);
120: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_structure_id '||to_char(G_structure_id));
121: -- FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_category_set_id '||to_char(G_category_set_id));
122: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_fcategory '||G_fcategory);
123: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_tcategory '||G_tcategory);
124: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_fbuyer '||G_fbuyer);
125: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_tbuyer '||G_tbuyer);
126: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_fplanner '||G_fplanner);
127: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_tplanner '||G_tplanner);
120: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_structure_id '||to_char(G_structure_id));
121: -- FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_category_set_id '||to_char(G_category_set_id));
122: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_fcategory '||G_fcategory);
123: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_tcategory '||G_tcategory);
124: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_fbuyer '||G_fbuyer);
125: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_tbuyer '||G_tbuyer);
126: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_fplanner '||G_fplanner);
127: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_tplanner '||G_tplanner);
128: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_forg '||G_forg);
121: -- FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_category_set_id '||to_char(G_category_set_id));
122: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_fcategory '||G_fcategory);
123: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_tcategory '||G_tcategory);
124: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_fbuyer '||G_fbuyer);
125: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_tbuyer '||G_tbuyer);
126: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_fplanner '||G_fplanner);
127: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_tplanner '||G_tplanner);
128: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_forg '||G_forg);
129: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_torg '||G_torg);
122: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_fcategory '||G_fcategory);
123: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_tcategory '||G_tcategory);
124: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_fbuyer '||G_fbuyer);
125: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_tbuyer '||G_tbuyer);
126: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_fplanner '||G_fplanner);
127: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_tplanner '||G_tplanner);
128: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_forg '||G_forg);
129: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_torg '||G_torg);
130: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_fitem '||G_fitem);
123: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_tcategory '||G_tcategory);
124: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_fbuyer '||G_fbuyer);
125: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_tbuyer '||G_tbuyer);
126: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_fplanner '||G_fplanner);
127: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_tplanner '||G_tplanner);
128: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_forg '||G_forg);
129: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_torg '||G_torg);
130: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_fitem '||G_fitem);
131: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_titem '||G_titem);
124: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_fbuyer '||G_fbuyer);
125: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_tbuyer '||G_tbuyer);
126: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_fplanner '||G_fplanner);
127: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_tplanner '||G_tplanner);
128: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_forg '||G_forg);
129: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_torg '||G_torg);
130: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_fitem '||G_fitem);
131: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_titem '||G_titem);
132: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_template '||G_template);
125: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_tbuyer '||G_tbuyer);
126: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_fplanner '||G_fplanner);
127: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_tplanner '||G_tplanner);
128: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_forg '||G_forg);
129: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_torg '||G_torg);
130: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_fitem '||G_fitem);
131: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_titem '||G_titem);
132: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_template '||G_template);
133: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_template_locale '||G_template_locale);
126: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_fplanner '||G_fplanner);
127: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_tplanner '||G_tplanner);
128: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_forg '||G_forg);
129: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_torg '||G_torg);
130: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_fitem '||G_fitem);
131: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_titem '||G_titem);
132: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_template '||G_template);
133: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_template_locale '||G_template_locale);
134:
127: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_tplanner '||G_tplanner);
128: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_forg '||G_forg);
129: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_torg '||G_torg);
130: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_fitem '||G_fitem);
131: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_titem '||G_titem);
132: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_template '||G_template);
133: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_template_locale '||G_template_locale);
134:
135: ps_insert_header;
128: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_forg '||G_forg);
129: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_torg '||G_torg);
130: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_fitem '||G_fitem);
131: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_titem '||G_titem);
132: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_template '||G_template);
133: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_template_locale '||G_template_locale);
134:
135: ps_insert_header;
136: IF G_item_tab.COUNT > 0 THEN
129: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_torg '||G_torg);
130: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_fitem '||G_fitem);
131: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_titem '||G_titem);
132: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_template '||G_template);
133: FND_FILE.PUT_LINE ( FND_FILE.LOG, ' G_template_locale '||G_template_locale);
134:
135: ps_insert_header;
136: IF G_item_tab.COUNT > 0 THEN
137: ps_bucket_report;
177: '','','','','','','','','','',
178: '','','','','','','','','','');
179: IF X_conc_id = 0 THEN
180: G_log_text := FND_MESSAGE.GET;
181: FND_FILE.PUT_LINE ( FND_FILE.LOG,G_log_text);
182: retcode:=2;
183: EXIT;
184: ELSE
185: COMMIT ;
371: dbms_sql.close_cursor (cur_item);
372:
373: EXCEPTION
374: WHEN OTHERS THEN
375: FND_FILE.PUT_LINE ( FND_FILE.LOG, sqlerrm);
376:
377: END ps_insert_header; /***** END PROCEDURE********************/
378:
379: /*============================================================================+
419: END IF;
420: */
421: EXCEPTION
422: WHEN OTHERS THEN
423: FND_FILE.PUT_LINE ( FND_FILE.LOG, sqlerrm);
424:
425: END ps_bucket_report; /***** END PROCEDURE ********************/
426:
427: /*============================================================================+
617:
618: dbms_sql.close_cursor (cur_sstock);
619: EXCEPTION
620: WHEN OTHERS THEN
621: FND_FILE.PUT_LINE ( FND_FILE.LOG, sqlerrm);
622: IF dbms_sql.is_open (cur_sstock) then
623: dbms_sql.close_cursor (cur_sstock);
624: END IF;
625:
697: ps_generate_output(x_seq_num);
698:
699: EXCEPTION
700: WHEN OTHERS THEN
701: FND_FILE.PUT_LINE ( FND_FILE.LOG, 'Exception in procedure ps_generate_xml :'||SQLERRM);
702:
703: END ps_generate_xml;
704:
705: /* ***************************************************************
725: RETURN v_schedule_name;
726:
727: EXCEPTION
728: WHEN OTHERS THEN
729: FND_FILE.PUT_LINE ( FND_FILE.LOG, 'Error in function schedule '||SQLERRM);
730: END schedule;
731:
732: /* ***************************************************************
733: * NAME
752: RETURN v_category_set_name;
753:
754: EXCEPTION
755: WHEN OTHERS THEN
756: FND_FILE.PUT_LINE ( FND_FILE.LOG, 'Error in function category_set '||SQLERRM);
757: END category_set;
758:
759: /* ***************************************************************
760: * NAME
781: RETURN v_item_name;
782:
783: EXCEPTION
784: WHEN OTHERS THEN
785: FND_FILE.PUT_LINE ( FND_FILE.LOG, 'Error in function item_name '||SQLERRM);
786: END item_name;
787:
788: /* ***************************************************************
789: * NAME
808: RETURN v_org_code;
809:
810: EXCEPTION
811: WHEN OTHERS THEN
812: FND_FILE.PUT_LINE ( FND_FILE.LOG, 'Error in function organization_code '||SQLERRM);
813: END organization_code;
814:
815: /* ***************************************************************
816: * NAME
838:
839: EXCEPTION
840: WHEN NO_DATA_FOUND THEN RETURN NULL;
841: WHEN OTHERS THEN
842: FND_FILE.PUT_LINE ( FND_FILE.LOG, 'Error in function planner_code '||SQLERRM);
843: END planner_code;
844:
845: /* ***************************************************************
846: * NAME
869:
870: EXCEPTION
871: WHEN NO_DATA_FOUND THEN RETURN NULL;
872: WHEN OTHERS THEN
873: FND_FILE.PUT_LINE ( FND_FILE.LOG, 'Error in function buyer_name '||SQLERRM);
874: END buyer_name;
875:
876: /* ***************************************************************
877: * NAME
910: RETURN v_onhand_qty;
911:
912: EXCEPTION
913: WHEN OTHERS THEN
914: FND_FILE.PUT_LINE ( FND_FILE.LOG, 'Error in function onhand_qty '||SQLERRM);
915: END onhand_qty;
916:
917: /* ***************************************************************
918: * NAME
939: RETURN v_uom_code;
940:
941: EXCEPTION
942: WHEN OTHERS THEN
943: FND_FILE.PUT_LINE ( FND_FILE.LOG, 'Error in function unit_of_measure '||SQLERRM);
944: END unit_of_measure;
945:
946: /* ***************************************************************
947: * NAME
967:
968: EXCEPTION
969: WHEN NO_DATA_FOUND THEN RETURN NULL;
970: WHEN OTHERS THEN
971: FND_FILE.PUT_LINE ( FND_FILE.LOG, 'Error in function category '||SQLERRM);
972: END category;
973:
974: /* ***************************************************************
975: * NAME
1010: '','','','','','','','','','');
1011:
1012: IF l_conc_id = 0 THEN
1013: G_log_text := FND_MESSAGE.GET;
1014: FND_FILE.PUT_LINE ( FND_FILE.LOG,G_log_text);
1015: ELSE
1016: COMMIT ;
1017: END IF;
1018:
1048:
1049:
1050: EXCEPTION
1051: WHEN OTHERS THEN
1052: FND_FILE.PUT_LINE ( FND_FILE.LOG, 'Exception in procedure ps_generate_output '||SQLERRM);
1053: END ps_generate_output;
1054:
1055: /* ***************************************************************
1056: * NAME
1083: l_len := DBMS_LOB.GETLENGTH (l_file);
1084: LOOP
1085: IF l_len > l_limit THEN
1086: file_varchar2 := DBMS_LOB.SUBSTR (l_file,10,l_limit);
1087: FND_FILE.PUT(FND_FILE.OUTPUT,file_varchar2);
1088: FND_FILE.PUT(FND_FILE.LOG, file_varchar2);
1089: file_varchar2 := NULL;
1090: l_limit:= l_limit + 10;
1091: ELSE
1084: LOOP
1085: IF l_len > l_limit THEN
1086: file_varchar2 := DBMS_LOB.SUBSTR (l_file,10,l_limit);
1087: FND_FILE.PUT(FND_FILE.OUTPUT,file_varchar2);
1088: FND_FILE.PUT(FND_FILE.LOG, file_varchar2);
1089: file_varchar2 := NULL;
1090: l_limit:= l_limit + 10;
1091: ELSE
1092: file_varchar2 := DBMS_LOB.SUBSTR (l_file,10,l_limit);
1089: file_varchar2 := NULL;
1090: l_limit:= l_limit + 10;
1091: ELSE
1092: file_varchar2 := DBMS_LOB.SUBSTR (l_file,10,l_limit);
1093: FND_FILE.PUT(FND_FILE.OUTPUT, file_varchar2);
1094: FND_FILE.PUT(FND_FILE.LOG,file_varchar2);
1095: file_varchar2 := NULL;
1096: EXIT;
1097: END IF;
1090: l_limit:= l_limit + 10;
1091: ELSE
1092: file_varchar2 := DBMS_LOB.SUBSTR (l_file,10,l_limit);
1093: FND_FILE.PUT(FND_FILE.OUTPUT, file_varchar2);
1094: FND_FILE.PUT(FND_FILE.LOG,file_varchar2);
1095: file_varchar2 := NULL;
1096: EXIT;
1097: END IF;
1098: END LOOP;
1097: END IF;
1098: END LOOP;
1099: EXCEPTION
1100: WHEN OTHERS THEN
1101: FND_FILE.PUT_LINE ( FND_FILE.LOG, 'Exception in procedure xml_transfer '||SQLERRM);
1102: END xml_transfer;
1103:
1104: END GMPPSRP; /***** END PACKAGE BODY ***************************/