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:
655: -- The following line of code ensures that XML data
656: -- generated here uses the right encoding
657: l_encoding := fnd_profile.value('ICX_CLIENT_IANA_ENCODING');
658: l_xml_header := '';
659: FND_FILE.PUT_LINE ( FND_FILE.LOG,'l_xml_header - '||l_xml_header);
660: -- B7481907 Rajesh Patangya starts
661:
662: seq_stmt := NULL;
663: x_seq_num := 0;
699: ' ) HEADER ' ||
700: ' FROM DUAL ';
701:
702: -- DELETE FROM GMP_BUCKETED_XML_GTMP;
703: -- FND_FILE.PUT_LINE ( FND_FILE.LOG, x_stmt);
704:
705: -- B7481907 Rajesh Patangya starts
706: DBMS_LOB.createtemporary(temp_clob, TRUE);
707: DBMS_LOB.createtemporary(result, TRUE);
713: l_offset := DBMS_LOB.INSTR (lob_loc => temp_clob,
714: pattern => '>',
715: offset => 1,
716: nth => 1);
717: FND_FILE.PUT_LINE ( FND_FILE.LOG,'l_offset - '||l_offset);
718:
719: -- Remove the header
720: DBMS_LOB.erase (temp_clob, l_offset,1);
721:
737: ps_generate_output(x_seq_num);
738:
739: EXCEPTION
740: WHEN OTHERS THEN
741: FND_FILE.PUT_LINE ( FND_FILE.LOG, 'Exception in procedure ps_generate_xml :'||SQLERRM);
742:
743: END ps_generate_xml;
744:
745: /* ***************************************************************
765: RETURN v_schedule_name;
766:
767: EXCEPTION
768: WHEN OTHERS THEN
769: FND_FILE.PUT_LINE ( FND_FILE.LOG, 'Error in function schedule '||SQLERRM);
770: END schedule;
771:
772: /* ***************************************************************
773: * NAME
792: RETURN v_category_set_name;
793:
794: EXCEPTION
795: WHEN OTHERS THEN
796: FND_FILE.PUT_LINE ( FND_FILE.LOG, 'Error in function category_set '||SQLERRM);
797: END category_set;
798:
799: /* ***************************************************************
800: * NAME
821: RETURN v_item_name;
822:
823: EXCEPTION
824: WHEN OTHERS THEN
825: FND_FILE.PUT_LINE ( FND_FILE.LOG, 'Error in function item_name '||SQLERRM);
826: END item_name;
827:
828: /* ***************************************************************
829: * NAME
848: RETURN v_org_code;
849:
850: EXCEPTION
851: WHEN OTHERS THEN
852: FND_FILE.PUT_LINE ( FND_FILE.LOG, 'Error in function organization_code '||SQLERRM);
853: END organization_code;
854:
855: /* ***************************************************************
856: * NAME
878:
879: EXCEPTION
880: WHEN NO_DATA_FOUND THEN RETURN NULL;
881: WHEN OTHERS THEN
882: FND_FILE.PUT_LINE ( FND_FILE.LOG, 'Error in function planner_code '||SQLERRM);
883: END planner_code;
884:
885: /* ***************************************************************
886: * NAME
909:
910: EXCEPTION
911: WHEN NO_DATA_FOUND THEN RETURN NULL;
912: WHEN OTHERS THEN
913: FND_FILE.PUT_LINE ( FND_FILE.LOG, 'Error in function buyer_name '||SQLERRM);
914: END buyer_name;
915:
916: /* ***************************************************************
917: * NAME
950: RETURN v_onhand_qty;
951:
952: EXCEPTION
953: WHEN OTHERS THEN
954: FND_FILE.PUT_LINE ( FND_FILE.LOG, 'Error in function onhand_qty '||SQLERRM);
955: END onhand_qty;
956:
957: /* ***************************************************************
958: * NAME
979: RETURN v_uom_code;
980:
981: EXCEPTION
982: WHEN OTHERS THEN
983: FND_FILE.PUT_LINE ( FND_FILE.LOG, 'Error in function unit_of_measure '||SQLERRM);
984: END unit_of_measure;
985:
986: /* ***************************************************************
987: * NAME
1007:
1008: EXCEPTION
1009: WHEN NO_DATA_FOUND THEN RETURN NULL;
1010: WHEN OTHERS THEN
1011: FND_FILE.PUT_LINE ( FND_FILE.LOG, 'Error in function category '||SQLERRM);
1012: END category;
1013:
1014: /* ***************************************************************
1015: * NAME
1050: '','','','','','','','','','');
1051:
1052: IF l_conc_id = 0 THEN
1053: G_log_text := FND_MESSAGE.GET;
1054: FND_FILE.PUT_LINE ( FND_FILE.LOG,G_log_text);
1055: ELSE
1056: COMMIT ;
1057: END IF;
1058:
1088:
1089:
1090: EXCEPTION
1091: WHEN OTHERS THEN
1092: FND_FILE.PUT_LINE ( FND_FILE.LOG, 'Exception in procedure ps_generate_output '||SQLERRM);
1093: END ps_generate_output;
1094:
1095: /* ***************************************************************
1096: * NAME
1124: l_len := DBMS_LOB.GETLENGTH (l_file);
1125: LOOP
1126: IF l_len > l_limit THEN
1127: file_varchar2 := DBMS_LOB.SUBSTR (l_file,10,l_limit);
1128: FND_FILE.PUT(FND_FILE.OUTPUT,file_varchar2);
1129: FND_FILE.PUT(FND_FILE.LOG, file_varchar2);
1130: file_varchar2 := NULL;
1131: l_limit:= l_limit + 10;
1132: ELSE
1125: LOOP
1126: IF l_len > l_limit THEN
1127: file_varchar2 := DBMS_LOB.SUBSTR (l_file,10,l_limit);
1128: FND_FILE.PUT(FND_FILE.OUTPUT,file_varchar2);
1129: FND_FILE.PUT(FND_FILE.LOG, file_varchar2);
1130: file_varchar2 := NULL;
1131: l_limit:= l_limit + 10;
1132: ELSE
1133: file_varchar2 := DBMS_LOB.SUBSTR (l_file,10,l_limit);
1130: file_varchar2 := NULL;
1131: l_limit:= l_limit + 10;
1132: ELSE
1133: file_varchar2 := DBMS_LOB.SUBSTR (l_file,10,l_limit);
1134: FND_FILE.PUT(FND_FILE.OUTPUT, file_varchar2);
1135: FND_FILE.PUT(FND_FILE.LOG,file_varchar2);
1136: file_varchar2 := NULL;
1137: EXIT;
1138: END IF;
1131: l_limit:= l_limit + 10;
1132: ELSE
1133: file_varchar2 := DBMS_LOB.SUBSTR (l_file,10,l_limit);
1134: FND_FILE.PUT(FND_FILE.OUTPUT, file_varchar2);
1135: FND_FILE.PUT(FND_FILE.LOG,file_varchar2);
1136: file_varchar2 := NULL;
1137: EXIT;
1138: END IF;
1139: END LOOP;
1138: END IF;
1139: END LOOP;
1140: EXCEPTION
1141: WHEN OTHERS THEN
1142: FND_FILE.PUT_LINE ( FND_FILE.LOG, 'Exception in procedure xml_transfer '||SQLERRM);
1143: END xml_transfer;
1144:
1145: END GMPPSRP; /***** END PACKAGE BODY ***************************/