33: l_str7 := '
34:
35:
36:
37: dbms_lob.createtemporary(l_xfdf_string,FALSE,DBMS_LOB.CALL);
38: dbms_lob.open(l_xfdf_string,dbms_lob.lob_readwrite);
39: if vXMLTable.count > 0 then
40: dbms_lob.writeAppend( l_xfdf_string, length(l_str1), l_str1 );
41: FOR ctr_table IN vXMLTable.FIRST .. vXMLTable.LAST LOOP
34:
35:
36:
37: dbms_lob.createtemporary(l_xfdf_string,FALSE,DBMS_LOB.CALL);
38: dbms_lob.open(l_xfdf_string,dbms_lob.lob_readwrite);
39: if vXMLTable.count > 0 then
40: dbms_lob.writeAppend( l_xfdf_string, length(l_str1), l_str1 );
41: FOR ctr_table IN vXMLTable.FIRST .. vXMLTable.LAST LOOP
42: l_str8 := vXMLTable(ctr_table).TagName;
36: ';
37: dbms_lob.createtemporary(l_xfdf_string,FALSE,DBMS_LOB.CALL);
38: dbms_lob.open(l_xfdf_string,dbms_lob.lob_readwrite);
39: if vXMLTable.count > 0 then
40: dbms_lob.writeAppend( l_xfdf_string, length(l_str1), l_str1 );
41: FOR ctr_table IN vXMLTable.FIRST .. vXMLTable.LAST LOOP
42: l_str8 := vXMLTable(ctr_table).TagName;
43: l_str9 := vXMLTable(ctr_table).TagValue;
44: if (l_str9 is not null) then
41: FOR ctr_table IN vXMLTable.FIRST .. vXMLTable.LAST LOOP
42: l_str8 := vXMLTable(ctr_table).TagName;
43: l_str9 := vXMLTable(ctr_table).TagValue;
44: if (l_str9 is not null) then
45: dbms_lob.writeAppend( l_xfdf_string, length(l_str2), l_str2 );
46: dbms_lob.writeAppend( l_xfdf_string, length(l_str8),l_str8);
47: dbms_lob.writeAppend( l_xfdf_string, length(l_str3), l_str3 );
48: dbms_lob.writeAppend( l_xfdf_string, length(l_str4), l_str4 );
49: dbms_lob.writeAppend( l_xfdf_string, length(l_str9), l_str9);
42: l_str8 := vXMLTable(ctr_table).TagName;
43: l_str9 := vXMLTable(ctr_table).TagValue;
44: if (l_str9 is not null) then
45: dbms_lob.writeAppend( l_xfdf_string, length(l_str2), l_str2 );
46: dbms_lob.writeAppend( l_xfdf_string, length(l_str8),l_str8);
47: dbms_lob.writeAppend( l_xfdf_string, length(l_str3), l_str3 );
48: dbms_lob.writeAppend( l_xfdf_string, length(l_str4), l_str4 );
49: dbms_lob.writeAppend( l_xfdf_string, length(l_str9), l_str9);
50: dbms_lob.writeAppend( l_xfdf_string, length(l_str5), l_str5 );
43: l_str9 := vXMLTable(ctr_table).TagValue;
44: if (l_str9 is not null) then
45: dbms_lob.writeAppend( l_xfdf_string, length(l_str2), l_str2 );
46: dbms_lob.writeAppend( l_xfdf_string, length(l_str8),l_str8);
47: dbms_lob.writeAppend( l_xfdf_string, length(l_str3), l_str3 );
48: dbms_lob.writeAppend( l_xfdf_string, length(l_str4), l_str4 );
49: dbms_lob.writeAppend( l_xfdf_string, length(l_str9), l_str9);
50: dbms_lob.writeAppend( l_xfdf_string, length(l_str5), l_str5 );
51: elsif (l_str9 is null and l_str8 is not null) then
44: if (l_str9 is not null) then
45: dbms_lob.writeAppend( l_xfdf_string, length(l_str2), l_str2 );
46: dbms_lob.writeAppend( l_xfdf_string, length(l_str8),l_str8);
47: dbms_lob.writeAppend( l_xfdf_string, length(l_str3), l_str3 );
48: dbms_lob.writeAppend( l_xfdf_string, length(l_str4), l_str4 );
49: dbms_lob.writeAppend( l_xfdf_string, length(l_str9), l_str9);
50: dbms_lob.writeAppend( l_xfdf_string, length(l_str5), l_str5 );
51: elsif (l_str9 is null and l_str8 is not null) then
52: dbms_lob.writeAppend(l_xfdf_string,length(l_str2),l_str2);
45: dbms_lob.writeAppend( l_xfdf_string, length(l_str2), l_str2 );
46: dbms_lob.writeAppend( l_xfdf_string, length(l_str8),l_str8);
47: dbms_lob.writeAppend( l_xfdf_string, length(l_str3), l_str3 );
48: dbms_lob.writeAppend( l_xfdf_string, length(l_str4), l_str4 );
49: dbms_lob.writeAppend( l_xfdf_string, length(l_str9), l_str9);
50: dbms_lob.writeAppend( l_xfdf_string, length(l_str5), l_str5 );
51: elsif (l_str9 is null and l_str8 is not null) then
52: dbms_lob.writeAppend(l_xfdf_string,length(l_str2),l_str2);
53: dbms_lob.writeAppend(l_xfdf_string,length(l_str8),l_str8);
46: dbms_lob.writeAppend( l_xfdf_string, length(l_str8),l_str8);
47: dbms_lob.writeAppend( l_xfdf_string, length(l_str3), l_str3 );
48: dbms_lob.writeAppend( l_xfdf_string, length(l_str4), l_str4 );
49: dbms_lob.writeAppend( l_xfdf_string, length(l_str9), l_str9);
50: dbms_lob.writeAppend( l_xfdf_string, length(l_str5), l_str5 );
51: elsif (l_str9 is null and l_str8 is not null) then
52: dbms_lob.writeAppend(l_xfdf_string,length(l_str2),l_str2);
53: dbms_lob.writeAppend(l_xfdf_string,length(l_str8),l_str8);
54: dbms_lob.writeAppend(l_xfdf_string,length(l_str3),l_str3);
48: dbms_lob.writeAppend( l_xfdf_string, length(l_str4), l_str4 );
49: dbms_lob.writeAppend( l_xfdf_string, length(l_str9), l_str9);
50: dbms_lob.writeAppend( l_xfdf_string, length(l_str5), l_str5 );
51: elsif (l_str9 is null and l_str8 is not null) then
52: dbms_lob.writeAppend(l_xfdf_string,length(l_str2),l_str2);
53: dbms_lob.writeAppend(l_xfdf_string,length(l_str8),l_str8);
54: dbms_lob.writeAppend(l_xfdf_string,length(l_str3),l_str3);
55: dbms_lob.writeAppend(l_xfdf_string,length(l_str4),l_str4);
56: dbms_lob.writeAppend(l_xfdf_string,length(l_str5),l_str5);
49: dbms_lob.writeAppend( l_xfdf_string, length(l_str9), l_str9);
50: dbms_lob.writeAppend( l_xfdf_string, length(l_str5), l_str5 );
51: elsif (l_str9 is null and l_str8 is not null) then
52: dbms_lob.writeAppend(l_xfdf_string,length(l_str2),l_str2);
53: dbms_lob.writeAppend(l_xfdf_string,length(l_str8),l_str8);
54: dbms_lob.writeAppend(l_xfdf_string,length(l_str3),l_str3);
55: dbms_lob.writeAppend(l_xfdf_string,length(l_str4),l_str4);
56: dbms_lob.writeAppend(l_xfdf_string,length(l_str5),l_str5);
57: else
50: dbms_lob.writeAppend( l_xfdf_string, length(l_str5), l_str5 );
51: elsif (l_str9 is null and l_str8 is not null) then
52: dbms_lob.writeAppend(l_xfdf_string,length(l_str2),l_str2);
53: dbms_lob.writeAppend(l_xfdf_string,length(l_str8),l_str8);
54: dbms_lob.writeAppend(l_xfdf_string,length(l_str3),l_str3);
55: dbms_lob.writeAppend(l_xfdf_string,length(l_str4),l_str4);
56: dbms_lob.writeAppend(l_xfdf_string,length(l_str5),l_str5);
57: else
58: null;
51: elsif (l_str9 is null and l_str8 is not null) then
52: dbms_lob.writeAppend(l_xfdf_string,length(l_str2),l_str2);
53: dbms_lob.writeAppend(l_xfdf_string,length(l_str8),l_str8);
54: dbms_lob.writeAppend(l_xfdf_string,length(l_str3),l_str3);
55: dbms_lob.writeAppend(l_xfdf_string,length(l_str4),l_str4);
56: dbms_lob.writeAppend(l_xfdf_string,length(l_str5),l_str5);
57: else
58: null;
59: end if;
52: dbms_lob.writeAppend(l_xfdf_string,length(l_str2),l_str2);
53: dbms_lob.writeAppend(l_xfdf_string,length(l_str8),l_str8);
54: dbms_lob.writeAppend(l_xfdf_string,length(l_str3),l_str3);
55: dbms_lob.writeAppend(l_xfdf_string,length(l_str4),l_str4);
56: dbms_lob.writeAppend(l_xfdf_string,length(l_str5),l_str5);
57: else
58: null;
59: end if;
60: END LOOP;
57: else
58: null;
59: end if;
60: END LOOP;
61: dbms_lob.writeAppend( l_xfdf_string, length(l_str6), l_str6 );
62: else
63: dbms_lob.writeAppend( l_xfdf_string, length(l_str7), l_str7 );
64: end if;
65: DBMS_LOB.CREATETEMPORARY(p_xfdf_blob,TRUE);
59: end if;
60: END LOOP;
61: dbms_lob.writeAppend( l_xfdf_string, length(l_str6), l_str6 );
62: else
63: dbms_lob.writeAppend( l_xfdf_string, length(l_str7), l_str7 );
64: end if;
65: DBMS_LOB.CREATETEMPORARY(p_xfdf_blob,TRUE);
66: clob_to_blob(l_xfdf_string,p_xfdf_blob);
67: hr_utility.set_location('Finished Procedure Write to CLOB ,Before clob to blob ',110);
61: dbms_lob.writeAppend( l_xfdf_string, length(l_str6), l_str6 );
62: else
63: dbms_lob.writeAppend( l_xfdf_string, length(l_str7), l_str7 );
64: end if;
65: DBMS_LOB.CREATETEMPORARY(p_xfdf_blob,TRUE);
66: clob_to_blob(l_xfdf_string,p_xfdf_blob);
67: hr_utility.set_location('Finished Procedure Write to CLOB ,Before clob to blob ',110);
68: --return p_xfdf_blob;
69: EXCEPTION
99: l_str6 := '';
100: l_str7 := '
101: l_str10 := '
102: l_concat_str := '';
103: dbms_lob.createtemporary(l_xfdf_string,FALSE,DBMS_LOB.CALL);
104: dbms_lob.open(l_xfdf_string,dbms_lob.lob_readwrite);
105: if vXMLTable.count > 0 then
106: --dbms_lob.writeAppend( l_xfdf_string, length(l_str1), l_str1 );
107: l_concat_str := l_concat_str||l_str1;
100: l_str7 := '
101: l_str10 := '
102: l_concat_str := '';
103: dbms_lob.createtemporary(l_xfdf_string,FALSE,DBMS_LOB.CALL);
104: dbms_lob.open(l_xfdf_string,dbms_lob.lob_readwrite);
105: if vXMLTable.count > 0 then
106: --dbms_lob.writeAppend( l_xfdf_string, length(l_str1), l_str1 );
107: l_concat_str := l_concat_str||l_str1;
108: FOR ctr_table IN vXMLTable.FIRST .. vXMLTable.LAST LOOP
102: l_concat_str := '';
103: dbms_lob.createtemporary(l_xfdf_string,FALSE,DBMS_LOB.CALL);
104: dbms_lob.open(l_xfdf_string,dbms_lob.lob_readwrite);
105: if vXMLTable.count > 0 then
106: --dbms_lob.writeAppend( l_xfdf_string, length(l_str1), l_str1 );
107: l_concat_str := l_concat_str||l_str1;
108: FOR ctr_table IN vXMLTable.FIRST .. vXMLTable.LAST LOOP
109: l_str8 := vXMLTable(ctr_table).TagName;
110: l_str9 := vXMLTable(ctr_table).TagValue;
109: l_str8 := vXMLTable(ctr_table).TagName;
110: l_str9 := vXMLTable(ctr_table).TagValue;
111:
112: IF length(l_concat_str) > 28000 then
113: dbms_lob.writeAppend( l_xfdf_string, length(l_concat_str), l_concat_str);
114: l_concat_str := '';
115: END IF;
116:
117: if (substr(l_str8,1,11) = 'G_CONTAINER') then
115: END IF;
116:
117: if (substr(l_str8,1,11) = 'G_CONTAINER') then
118: if (l_str9 is null) then
119: --dbms_lob.writeAppend( l_xfdf_string, length(l_str2), l_str2 );
120: l_concat_str := l_concat_str||l_str2;
121: --dbms_lob.writeAppend( l_xfdf_string, length(l_str8),l_str8);
122: l_concat_str := l_concat_str||l_str8;
123: --dbms_lob.writeAppend( l_xfdf_string, length(l_str3), l_str3 );
117: if (substr(l_str8,1,11) = 'G_CONTAINER') then
118: if (l_str9 is null) then
119: --dbms_lob.writeAppend( l_xfdf_string, length(l_str2), l_str2 );
120: l_concat_str := l_concat_str||l_str2;
121: --dbms_lob.writeAppend( l_xfdf_string, length(l_str8),l_str8);
122: l_concat_str := l_concat_str||l_str8;
123: --dbms_lob.writeAppend( l_xfdf_string, length(l_str3), l_str3 );
124: l_concat_str := l_concat_str||l_str3;
125: else
119: --dbms_lob.writeAppend( l_xfdf_string, length(l_str2), l_str2 );
120: l_concat_str := l_concat_str||l_str2;
121: --dbms_lob.writeAppend( l_xfdf_string, length(l_str8),l_str8);
122: l_concat_str := l_concat_str||l_str8;
123: --dbms_lob.writeAppend( l_xfdf_string, length(l_str3), l_str3 );
124: l_concat_str := l_concat_str||l_str3;
125: else
126: if (l_str9 = 'END') then
127: --dbms_lob.writeAppend( l_xfdf_string, length(l_str10), l_str10 );
123: --dbms_lob.writeAppend( l_xfdf_string, length(l_str3), l_str3 );
124: l_concat_str := l_concat_str||l_str3;
125: else
126: if (l_str9 = 'END') then
127: --dbms_lob.writeAppend( l_xfdf_string, length(l_str10), l_str10 );
128: l_concat_str := l_concat_str||l_str10;
129: --dbms_lob.writeAppend( l_xfdf_string, length(l_str8),l_str8);
130: l_concat_str := l_concat_str||l_str8;
131: --dbms_lob.writeAppend( l_xfdf_string, length(l_str3), l_str3 );
125: else
126: if (l_str9 = 'END') then
127: --dbms_lob.writeAppend( l_xfdf_string, length(l_str10), l_str10 );
128: l_concat_str := l_concat_str||l_str10;
129: --dbms_lob.writeAppend( l_xfdf_string, length(l_str8),l_str8);
130: l_concat_str := l_concat_str||l_str8;
131: --dbms_lob.writeAppend( l_xfdf_string, length(l_str3), l_str3 );
132: l_concat_str := l_concat_str||l_str3;
133: end if;
127: --dbms_lob.writeAppend( l_xfdf_string, length(l_str10), l_str10 );
128: l_concat_str := l_concat_str||l_str10;
129: --dbms_lob.writeAppend( l_xfdf_string, length(l_str8),l_str8);
130: l_concat_str := l_concat_str||l_str8;
131: --dbms_lob.writeAppend( l_xfdf_string, length(l_str3), l_str3 );
132: l_concat_str := l_concat_str||l_str3;
133: end if;
134: end if;
135: else
133: end if;
134: end if;
135: else
136: if (l_str9 is not null) then
137: --dbms_lob.writeAppend( l_xfdf_string, length(l_str2), l_str2 );
138: l_concat_str := l_concat_str||l_str2;
139: --dbms_lob.writeAppend( l_xfdf_string, length(l_str8),l_str8);
140: l_concat_str := l_concat_str||l_str8;
141: --dbms_lob.writeAppend( l_xfdf_string, length(l_str3), l_str3 );
135: else
136: if (l_str9 is not null) then
137: --dbms_lob.writeAppend( l_xfdf_string, length(l_str2), l_str2 );
138: l_concat_str := l_concat_str||l_str2;
139: --dbms_lob.writeAppend( l_xfdf_string, length(l_str8),l_str8);
140: l_concat_str := l_concat_str||l_str8;
141: --dbms_lob.writeAppend( l_xfdf_string, length(l_str3), l_str3 );
142: l_concat_str := l_concat_str||l_str3;
143: --dbms_lob.writeAppend( l_xfdf_string, length(l_str4), l_str4 );
137: --dbms_lob.writeAppend( l_xfdf_string, length(l_str2), l_str2 );
138: l_concat_str := l_concat_str||l_str2;
139: --dbms_lob.writeAppend( l_xfdf_string, length(l_str8),l_str8);
140: l_concat_str := l_concat_str||l_str8;
141: --dbms_lob.writeAppend( l_xfdf_string, length(l_str3), l_str3 );
142: l_concat_str := l_concat_str||l_str3;
143: --dbms_lob.writeAppend( l_xfdf_string, length(l_str4), l_str4 );
144: l_concat_str := l_concat_str||l_str4;
145: --dbms_lob.writeAppend( l_xfdf_string, length(l_str9), l_str9);
139: --dbms_lob.writeAppend( l_xfdf_string, length(l_str8),l_str8);
140: l_concat_str := l_concat_str||l_str8;
141: --dbms_lob.writeAppend( l_xfdf_string, length(l_str3), l_str3 );
142: l_concat_str := l_concat_str||l_str3;
143: --dbms_lob.writeAppend( l_xfdf_string, length(l_str4), l_str4 );
144: l_concat_str := l_concat_str||l_str4;
145: --dbms_lob.writeAppend( l_xfdf_string, length(l_str9), l_str9);
146: l_concat_str := l_concat_str||l_str9;
147: --dbms_lob.writeAppend( l_xfdf_string, length(l_str5), l_str5 );
141: --dbms_lob.writeAppend( l_xfdf_string, length(l_str3), l_str3 );
142: l_concat_str := l_concat_str||l_str3;
143: --dbms_lob.writeAppend( l_xfdf_string, length(l_str4), l_str4 );
144: l_concat_str := l_concat_str||l_str4;
145: --dbms_lob.writeAppend( l_xfdf_string, length(l_str9), l_str9);
146: l_concat_str := l_concat_str||l_str9;
147: --dbms_lob.writeAppend( l_xfdf_string, length(l_str5), l_str5 );
148: l_concat_str := l_concat_str||l_str5;
149: --dbms_lob.writeAppend( l_xfdf_string, length(l_str8),l_str8);
143: --dbms_lob.writeAppend( l_xfdf_string, length(l_str4), l_str4 );
144: l_concat_str := l_concat_str||l_str4;
145: --dbms_lob.writeAppend( l_xfdf_string, length(l_str9), l_str9);
146: l_concat_str := l_concat_str||l_str9;
147: --dbms_lob.writeAppend( l_xfdf_string, length(l_str5), l_str5 );
148: l_concat_str := l_concat_str||l_str5;
149: --dbms_lob.writeAppend( l_xfdf_string, length(l_str8),l_str8);
150: l_concat_str := l_concat_str||l_str8;
151: --dbms_lob.writeAppend( l_xfdf_string, length(l_str3),l_str3);
145: --dbms_lob.writeAppend( l_xfdf_string, length(l_str9), l_str9);
146: l_concat_str := l_concat_str||l_str9;
147: --dbms_lob.writeAppend( l_xfdf_string, length(l_str5), l_str5 );
148: l_concat_str := l_concat_str||l_str5;
149: --dbms_lob.writeAppend( l_xfdf_string, length(l_str8),l_str8);
150: l_concat_str := l_concat_str||l_str8;
151: --dbms_lob.writeAppend( l_xfdf_string, length(l_str3),l_str3);
152: l_concat_str := l_concat_str||l_str3;
153: elsif (l_str9 is null and l_str8 is not null) then
147: --dbms_lob.writeAppend( l_xfdf_string, length(l_str5), l_str5 );
148: l_concat_str := l_concat_str||l_str5;
149: --dbms_lob.writeAppend( l_xfdf_string, length(l_str8),l_str8);
150: l_concat_str := l_concat_str||l_str8;
151: --dbms_lob.writeAppend( l_xfdf_string, length(l_str3),l_str3);
152: l_concat_str := l_concat_str||l_str3;
153: elsif (l_str9 is null and l_str8 is not null) then
154: --dbms_lob.writeAppend(l_xfdf_string,length(l_str2),l_str2);
155: l_concat_str := l_concat_str||l_str2;
150: l_concat_str := l_concat_str||l_str8;
151: --dbms_lob.writeAppend( l_xfdf_string, length(l_str3),l_str3);
152: l_concat_str := l_concat_str||l_str3;
153: elsif (l_str9 is null and l_str8 is not null) then
154: --dbms_lob.writeAppend(l_xfdf_string,length(l_str2),l_str2);
155: l_concat_str := l_concat_str||l_str2;
156: --dbms_lob.writeAppend(l_xfdf_string,length(l_str8),l_str8);
157: l_concat_str := l_concat_str||l_str8;
158: --dbms_lob.writeAppend(l_xfdf_string,length(l_str3),l_str3);
152: l_concat_str := l_concat_str||l_str3;
153: elsif (l_str9 is null and l_str8 is not null) then
154: --dbms_lob.writeAppend(l_xfdf_string,length(l_str2),l_str2);
155: l_concat_str := l_concat_str||l_str2;
156: --dbms_lob.writeAppend(l_xfdf_string,length(l_str8),l_str8);
157: l_concat_str := l_concat_str||l_str8;
158: --dbms_lob.writeAppend(l_xfdf_string,length(l_str3),l_str3);
159: l_concat_str := l_concat_str||l_str3;
160: --dbms_lob.writeAppend(l_xfdf_string,length(l_str4),l_str4);
154: --dbms_lob.writeAppend(l_xfdf_string,length(l_str2),l_str2);
155: l_concat_str := l_concat_str||l_str2;
156: --dbms_lob.writeAppend(l_xfdf_string,length(l_str8),l_str8);
157: l_concat_str := l_concat_str||l_str8;
158: --dbms_lob.writeAppend(l_xfdf_string,length(l_str3),l_str3);
159: l_concat_str := l_concat_str||l_str3;
160: --dbms_lob.writeAppend(l_xfdf_string,length(l_str4),l_str4);
161: l_concat_str := l_concat_str||l_str4;
162: --dbms_lob.writeAppend(l_xfdf_string,length(l_str5),l_str5);
156: --dbms_lob.writeAppend(l_xfdf_string,length(l_str8),l_str8);
157: l_concat_str := l_concat_str||l_str8;
158: --dbms_lob.writeAppend(l_xfdf_string,length(l_str3),l_str3);
159: l_concat_str := l_concat_str||l_str3;
160: --dbms_lob.writeAppend(l_xfdf_string,length(l_str4),l_str4);
161: l_concat_str := l_concat_str||l_str4;
162: --dbms_lob.writeAppend(l_xfdf_string,length(l_str5),l_str5);
163: l_concat_str := l_concat_str||l_str5;
164: --dbms_lob.writeAppend( l_xfdf_string, length(l_str8),l_str8);
158: --dbms_lob.writeAppend(l_xfdf_string,length(l_str3),l_str3);
159: l_concat_str := l_concat_str||l_str3;
160: --dbms_lob.writeAppend(l_xfdf_string,length(l_str4),l_str4);
161: l_concat_str := l_concat_str||l_str4;
162: --dbms_lob.writeAppend(l_xfdf_string,length(l_str5),l_str5);
163: l_concat_str := l_concat_str||l_str5;
164: --dbms_lob.writeAppend( l_xfdf_string, length(l_str8),l_str8);
165: l_concat_str := l_concat_str||l_str8;
166: --dbms_lob.writeAppend( l_xfdf_string, length(l_str3),l_str3);
160: --dbms_lob.writeAppend(l_xfdf_string,length(l_str4),l_str4);
161: l_concat_str := l_concat_str||l_str4;
162: --dbms_lob.writeAppend(l_xfdf_string,length(l_str5),l_str5);
163: l_concat_str := l_concat_str||l_str5;
164: --dbms_lob.writeAppend( l_xfdf_string, length(l_str8),l_str8);
165: l_concat_str := l_concat_str||l_str8;
166: --dbms_lob.writeAppend( l_xfdf_string, length(l_str3),l_str3);
167: l_concat_str := l_concat_str||l_str3;
168: else
162: --dbms_lob.writeAppend(l_xfdf_string,length(l_str5),l_str5);
163: l_concat_str := l_concat_str||l_str5;
164: --dbms_lob.writeAppend( l_xfdf_string, length(l_str8),l_str8);
165: l_concat_str := l_concat_str||l_str8;
166: --dbms_lob.writeAppend( l_xfdf_string, length(l_str3),l_str3);
167: l_concat_str := l_concat_str||l_str3;
168: else
169: null;
170: end if;
171: end if;
172: END LOOP;
173:
174: IF length(l_concat_str) > 0 THEN
175: dbms_lob.writeAppend( l_xfdf_string, LENGTH(l_concat_str), l_concat_str);
176: END IF;
177:
178: dbms_lob.writeAppend( l_xfdf_string, length(l_str6), l_str6 );
179: else
174: IF length(l_concat_str) > 0 THEN
175: dbms_lob.writeAppend( l_xfdf_string, LENGTH(l_concat_str), l_concat_str);
176: END IF;
177:
178: dbms_lob.writeAppend( l_xfdf_string, length(l_str6), l_str6 );
179: else
180: dbms_lob.writeAppend( l_xfdf_string, length(l_str7), l_str7 );
181: end if;
182: DBMS_LOB.CREATETEMPORARY(p_xfdf_blob,TRUE);
176: END IF;
177:
178: dbms_lob.writeAppend( l_xfdf_string, length(l_str6), l_str6 );
179: else
180: dbms_lob.writeAppend( l_xfdf_string, length(l_str7), l_str7 );
181: end if;
182: DBMS_LOB.CREATETEMPORARY(p_xfdf_blob,TRUE);
183: clob_to_blob(l_xfdf_string,p_xfdf_blob);
184: hr_utility.set_location('Finished Procedure Write to CLOB ,Before clob to blob ',110);
178: dbms_lob.writeAppend( l_xfdf_string, length(l_str6), l_str6 );
179: else
180: dbms_lob.writeAppend( l_xfdf_string, length(l_str7), l_str7 );
181: end if;
182: DBMS_LOB.CREATETEMPORARY(p_xfdf_blob,TRUE);
183: clob_to_blob(l_xfdf_string,p_xfdf_blob);
184: hr_utility.set_location('Finished Procedure Write to CLOB ,Before clob to blob ',110);
185: --return p_xfdf_blob;
186: EXCEPTION
216: l_str6 := '';
217: l_str7 := '
218: l_str10 := '
219: l_concat_str := '';
220: dbms_lob.createtemporary(l_xfdf_string,FALSE,DBMS_LOB.CALL);
221: dbms_lob.open(l_xfdf_string,dbms_lob.lob_readwrite);
222: if vXMLTable.count > 0 then
223: --dbms_lob.writeAppend( l_xfdf_string, length(l_str1), l_str1 );
224:
217: l_str7 := '
218: l_str10 := '
219: l_concat_str := '';
220: dbms_lob.createtemporary(l_xfdf_string,FALSE,DBMS_LOB.CALL);
221: dbms_lob.open(l_xfdf_string,dbms_lob.lob_readwrite);
222: if vXMLTable.count > 0 then
223: --dbms_lob.writeAppend( l_xfdf_string, length(l_str1), l_str1 );
224:
225: --l_concat_str := l_concat_str||l_str2||l_str1;
219: l_concat_str := '';
220: dbms_lob.createtemporary(l_xfdf_string,FALSE,DBMS_LOB.CALL);
221: dbms_lob.open(l_xfdf_string,dbms_lob.lob_readwrite);
222: if vXMLTable.count > 0 then
223: --dbms_lob.writeAppend( l_xfdf_string, length(l_str1), l_str1 );
224:
225: --l_concat_str := l_concat_str||l_str2||l_str1;
226: --Bug 6630722
227: l_concat_str := l_concat_str||l_str1;
230: l_str8 := vXMLTable(ctr_table).TagName;
231: l_str9 := vXMLTable(ctr_table).TagValue;
232:
233: IF length(l_concat_str) > 28000 then
234: dbms_lob.writeAppend( l_xfdf_string, length(l_concat_str), l_concat_str);
235: l_concat_str := '';
236: END IF;
237:
238: if (substr(l_str8,1,11) = 'G_CONTAINER') then
236: END IF;
237:
238: if (substr(l_str8,1,11) = 'G_CONTAINER') then
239: if (l_str9 is null) then
240: --dbms_lob.writeAppend( l_xfdf_string, length(l_str2), l_str2 );
241: l_concat_str := l_concat_str||l_str2;
242: --dbms_lob.writeAppend( l_xfdf_string, length(l_str8),l_str8);
243: l_concat_str := l_concat_str||l_str8;
244: --dbms_lob.writeAppend( l_xfdf_string, length(l_str3), l_str3 );
238: if (substr(l_str8,1,11) = 'G_CONTAINER') then
239: if (l_str9 is null) then
240: --dbms_lob.writeAppend( l_xfdf_string, length(l_str2), l_str2 );
241: l_concat_str := l_concat_str||l_str2;
242: --dbms_lob.writeAppend( l_xfdf_string, length(l_str8),l_str8);
243: l_concat_str := l_concat_str||l_str8;
244: --dbms_lob.writeAppend( l_xfdf_string, length(l_str3), l_str3 );
245: l_concat_str := l_concat_str||l_str3;
246: else
240: --dbms_lob.writeAppend( l_xfdf_string, length(l_str2), l_str2 );
241: l_concat_str := l_concat_str||l_str2;
242: --dbms_lob.writeAppend( l_xfdf_string, length(l_str8),l_str8);
243: l_concat_str := l_concat_str||l_str8;
244: --dbms_lob.writeAppend( l_xfdf_string, length(l_str3), l_str3 );
245: l_concat_str := l_concat_str||l_str3;
246: else
247: if (l_str9 = 'END') then
248: --dbms_lob.writeAppend( l_xfdf_string, length(l_str10), l_str10 );
244: --dbms_lob.writeAppend( l_xfdf_string, length(l_str3), l_str3 );
245: l_concat_str := l_concat_str||l_str3;
246: else
247: if (l_str9 = 'END') then
248: --dbms_lob.writeAppend( l_xfdf_string, length(l_str10), l_str10 );
249: l_concat_str := l_concat_str||l_str10;
250: --dbms_lob.writeAppend( l_xfdf_string, length(l_str8),l_str8);
251: l_concat_str := l_concat_str||l_str8;
252: --dbms_lob.writeAppend( l_xfdf_string, length(l_str3), l_str3 );
246: else
247: if (l_str9 = 'END') then
248: --dbms_lob.writeAppend( l_xfdf_string, length(l_str10), l_str10 );
249: l_concat_str := l_concat_str||l_str10;
250: --dbms_lob.writeAppend( l_xfdf_string, length(l_str8),l_str8);
251: l_concat_str := l_concat_str||l_str8;
252: --dbms_lob.writeAppend( l_xfdf_string, length(l_str3), l_str3 );
253: l_concat_str := l_concat_str||l_str3;
254: end if;
248: --dbms_lob.writeAppend( l_xfdf_string, length(l_str10), l_str10 );
249: l_concat_str := l_concat_str||l_str10;
250: --dbms_lob.writeAppend( l_xfdf_string, length(l_str8),l_str8);
251: l_concat_str := l_concat_str||l_str8;
252: --dbms_lob.writeAppend( l_xfdf_string, length(l_str3), l_str3 );
253: l_concat_str := l_concat_str||l_str3;
254: end if;
255: end if;
256: else
254: end if;
255: end if;
256: else
257: if (l_str9 is not null) then
258: --dbms_lob.writeAppend( l_xfdf_string, length(l_str2), l_str2 );
259: l_concat_str := l_concat_str||l_str2;
260: --dbms_lob.writeAppend( l_xfdf_string, length(l_str8),l_str8);
261: l_concat_str := l_concat_str||l_str8;
262: --dbms_lob.writeAppend( l_xfdf_string, length(l_str3), l_str3 );
256: else
257: if (l_str9 is not null) then
258: --dbms_lob.writeAppend( l_xfdf_string, length(l_str2), l_str2 );
259: l_concat_str := l_concat_str||l_str2;
260: --dbms_lob.writeAppend( l_xfdf_string, length(l_str8),l_str8);
261: l_concat_str := l_concat_str||l_str8;
262: --dbms_lob.writeAppend( l_xfdf_string, length(l_str3), l_str3 );
263: l_concat_str := l_concat_str||l_str3;
264: --dbms_lob.writeAppend( l_xfdf_string, length(l_str4), l_str4 );
258: --dbms_lob.writeAppend( l_xfdf_string, length(l_str2), l_str2 );
259: l_concat_str := l_concat_str||l_str2;
260: --dbms_lob.writeAppend( l_xfdf_string, length(l_str8),l_str8);
261: l_concat_str := l_concat_str||l_str8;
262: --dbms_lob.writeAppend( l_xfdf_string, length(l_str3), l_str3 );
263: l_concat_str := l_concat_str||l_str3;
264: --dbms_lob.writeAppend( l_xfdf_string, length(l_str4), l_str4 );
265: l_concat_str := l_concat_str||l_str4;
266: --dbms_lob.writeAppend( l_xfdf_string, length(l_str9), l_str9);
260: --dbms_lob.writeAppend( l_xfdf_string, length(l_str8),l_str8);
261: l_concat_str := l_concat_str||l_str8;
262: --dbms_lob.writeAppend( l_xfdf_string, length(l_str3), l_str3 );
263: l_concat_str := l_concat_str||l_str3;
264: --dbms_lob.writeAppend( l_xfdf_string, length(l_str4), l_str4 );
265: l_concat_str := l_concat_str||l_str4;
266: --dbms_lob.writeAppend( l_xfdf_string, length(l_str9), l_str9);
267: l_concat_str := l_concat_str||l_str9;
268: --dbms_lob.writeAppend( l_xfdf_string, length(l_str5), l_str5 );
262: --dbms_lob.writeAppend( l_xfdf_string, length(l_str3), l_str3 );
263: l_concat_str := l_concat_str||l_str3;
264: --dbms_lob.writeAppend( l_xfdf_string, length(l_str4), l_str4 );
265: l_concat_str := l_concat_str||l_str4;
266: --dbms_lob.writeAppend( l_xfdf_string, length(l_str9), l_str9);
267: l_concat_str := l_concat_str||l_str9;
268: --dbms_lob.writeAppend( l_xfdf_string, length(l_str5), l_str5 );
269: l_concat_str := l_concat_str||l_str5;
270: --dbms_lob.writeAppend( l_xfdf_string, length(l_str8),l_str8);
264: --dbms_lob.writeAppend( l_xfdf_string, length(l_str4), l_str4 );
265: l_concat_str := l_concat_str||l_str4;
266: --dbms_lob.writeAppend( l_xfdf_string, length(l_str9), l_str9);
267: l_concat_str := l_concat_str||l_str9;
268: --dbms_lob.writeAppend( l_xfdf_string, length(l_str5), l_str5 );
269: l_concat_str := l_concat_str||l_str5;
270: --dbms_lob.writeAppend( l_xfdf_string, length(l_str8),l_str8);
271: l_concat_str := l_concat_str||l_str8;
272: --dbms_lob.writeAppend( l_xfdf_string, length(l_str3),l_str3);
266: --dbms_lob.writeAppend( l_xfdf_string, length(l_str9), l_str9);
267: l_concat_str := l_concat_str||l_str9;
268: --dbms_lob.writeAppend( l_xfdf_string, length(l_str5), l_str5 );
269: l_concat_str := l_concat_str||l_str5;
270: --dbms_lob.writeAppend( l_xfdf_string, length(l_str8),l_str8);
271: l_concat_str := l_concat_str||l_str8;
272: --dbms_lob.writeAppend( l_xfdf_string, length(l_str3),l_str3);
273: l_concat_str := l_concat_str||l_str3;
274: elsif (l_str9 is null and l_str8 is not null) then
268: --dbms_lob.writeAppend( l_xfdf_string, length(l_str5), l_str5 );
269: l_concat_str := l_concat_str||l_str5;
270: --dbms_lob.writeAppend( l_xfdf_string, length(l_str8),l_str8);
271: l_concat_str := l_concat_str||l_str8;
272: --dbms_lob.writeAppend( l_xfdf_string, length(l_str3),l_str3);
273: l_concat_str := l_concat_str||l_str3;
274: elsif (l_str9 is null and l_str8 is not null) then
275: --dbms_lob.writeAppend(l_xfdf_string,length(l_str2),l_str2);
276: l_concat_str := l_concat_str||l_str2;
271: l_concat_str := l_concat_str||l_str8;
272: --dbms_lob.writeAppend( l_xfdf_string, length(l_str3),l_str3);
273: l_concat_str := l_concat_str||l_str3;
274: elsif (l_str9 is null and l_str8 is not null) then
275: --dbms_lob.writeAppend(l_xfdf_string,length(l_str2),l_str2);
276: l_concat_str := l_concat_str||l_str2;
277: --dbms_lob.writeAppend(l_xfdf_string,length(l_str8),l_str8);
278: l_concat_str := l_concat_str||l_str8;
279: --dbms_lob.writeAppend(l_xfdf_string,length(l_str3),l_str3);
273: l_concat_str := l_concat_str||l_str3;
274: elsif (l_str9 is null and l_str8 is not null) then
275: --dbms_lob.writeAppend(l_xfdf_string,length(l_str2),l_str2);
276: l_concat_str := l_concat_str||l_str2;
277: --dbms_lob.writeAppend(l_xfdf_string,length(l_str8),l_str8);
278: l_concat_str := l_concat_str||l_str8;
279: --dbms_lob.writeAppend(l_xfdf_string,length(l_str3),l_str3);
280: l_concat_str := l_concat_str||l_str3;
281: --dbms_lob.writeAppend(l_xfdf_string,length(l_str4),l_str4);
275: --dbms_lob.writeAppend(l_xfdf_string,length(l_str2),l_str2);
276: l_concat_str := l_concat_str||l_str2;
277: --dbms_lob.writeAppend(l_xfdf_string,length(l_str8),l_str8);
278: l_concat_str := l_concat_str||l_str8;
279: --dbms_lob.writeAppend(l_xfdf_string,length(l_str3),l_str3);
280: l_concat_str := l_concat_str||l_str3;
281: --dbms_lob.writeAppend(l_xfdf_string,length(l_str4),l_str4);
282: l_concat_str := l_concat_str||l_str4;
283: --dbms_lob.writeAppend(l_xfdf_string,length(l_str5),l_str5);
277: --dbms_lob.writeAppend(l_xfdf_string,length(l_str8),l_str8);
278: l_concat_str := l_concat_str||l_str8;
279: --dbms_lob.writeAppend(l_xfdf_string,length(l_str3),l_str3);
280: l_concat_str := l_concat_str||l_str3;
281: --dbms_lob.writeAppend(l_xfdf_string,length(l_str4),l_str4);
282: l_concat_str := l_concat_str||l_str4;
283: --dbms_lob.writeAppend(l_xfdf_string,length(l_str5),l_str5);
284: l_concat_str := l_concat_str||l_str5;
285: --dbms_lob.writeAppend( l_xfdf_string, length(l_str8),l_str8);
279: --dbms_lob.writeAppend(l_xfdf_string,length(l_str3),l_str3);
280: l_concat_str := l_concat_str||l_str3;
281: --dbms_lob.writeAppend(l_xfdf_string,length(l_str4),l_str4);
282: l_concat_str := l_concat_str||l_str4;
283: --dbms_lob.writeAppend(l_xfdf_string,length(l_str5),l_str5);
284: l_concat_str := l_concat_str||l_str5;
285: --dbms_lob.writeAppend( l_xfdf_string, length(l_str8),l_str8);
286: l_concat_str := l_concat_str||l_str8;
287: --dbms_lob.writeAppend( l_xfdf_string, length(l_str3),l_str3);
281: --dbms_lob.writeAppend(l_xfdf_string,length(l_str4),l_str4);
282: l_concat_str := l_concat_str||l_str4;
283: --dbms_lob.writeAppend(l_xfdf_string,length(l_str5),l_str5);
284: l_concat_str := l_concat_str||l_str5;
285: --dbms_lob.writeAppend( l_xfdf_string, length(l_str8),l_str8);
286: l_concat_str := l_concat_str||l_str8;
287: --dbms_lob.writeAppend( l_xfdf_string, length(l_str3),l_str3);
288: l_concat_str := l_concat_str||l_str3;
289: else
283: --dbms_lob.writeAppend(l_xfdf_string,length(l_str5),l_str5);
284: l_concat_str := l_concat_str||l_str5;
285: --dbms_lob.writeAppend( l_xfdf_string, length(l_str8),l_str8);
286: l_concat_str := l_concat_str||l_str8;
287: --dbms_lob.writeAppend( l_xfdf_string, length(l_str3),l_str3);
288: l_concat_str := l_concat_str||l_str3;
289: else
290: null;
291: end if;
292: end if;
293: END LOOP;
294:
295: IF length(l_concat_str) > 0 THEN
296: dbms_lob.writeAppend( l_xfdf_string, LENGTH(l_concat_str), l_concat_str);
297: END IF;
298:
299: dbms_lob.writeAppend( l_xfdf_string, length(l_str6), l_str6 );
300: else
295: IF length(l_concat_str) > 0 THEN
296: dbms_lob.writeAppend( l_xfdf_string, LENGTH(l_concat_str), l_concat_str);
297: END IF;
298:
299: dbms_lob.writeAppend( l_xfdf_string, length(l_str6), l_str6 );
300: else
301: dbms_lob.writeAppend( l_xfdf_string, length(l_str7), l_str7 );
302: end if;
303: DBMS_LOB.CREATETEMPORARY(p_xfdf_blob,TRUE);
297: END IF;
298:
299: dbms_lob.writeAppend( l_xfdf_string, length(l_str6), l_str6 );
300: else
301: dbms_lob.writeAppend( l_xfdf_string, length(l_str7), l_str7 );
302: end if;
303: DBMS_LOB.CREATETEMPORARY(p_xfdf_blob,TRUE);
304: p_xfdf_blob := l_xfdf_string;
305: hr_utility.set_location('Finished Procedure Write to CLOB ,Before clob to blob ',110);
299: dbms_lob.writeAppend( l_xfdf_string, length(l_str6), l_str6 );
300: else
301: dbms_lob.writeAppend( l_xfdf_string, length(l_str7), l_str7 );
302: end if;
303: DBMS_LOB.CREATETEMPORARY(p_xfdf_blob,TRUE);
304: p_xfdf_blob := l_xfdf_string;
305: hr_utility.set_location('Finished Procedure Write to CLOB ,Before clob to blob ',110);
306: --return p_xfdf_blob;
307: EXCEPTION
337: --
338: begin
339: hr_utility.set_location('Entered Procedure clob to blob',120);
340: l_db_nls_lang := userenv('LANGUAGE');
341: l_length_clob := dbms_lob.getlength(p_clob);
342: l_buffer_len := 10666;
343: l_offset := 1;
344: l_blob_offset := 1;
345: WHILE l_length_clob > 0 LOOP
348: l_chunk_len := l_length_clob;
349: ELSE
350: l_chunk_len := l_buffer_len;
351: END IF;
352: DBMS_LOB.READ(p_clob,l_chunk_len,l_offset,l_varchar_buffer);
353: l_raw_buffer := utl_raw.convert(utl_raw.cast_to_raw(l_varchar_buffer),'American_America.UTF8',l_db_nls_lang);
354: l_raw_buffer_len := utl_raw.length(utl_raw.convert(utl_raw.cast_to_raw(l_varchar_buffer),'American_America.UTF8',l_db_nls_lang));
355: dbms_lob.write(p_blob,l_raw_buffer_len, l_blob_offset, l_raw_buffer);
356: --
351: END IF;
352: DBMS_LOB.READ(p_clob,l_chunk_len,l_offset,l_varchar_buffer);
353: l_raw_buffer := utl_raw.convert(utl_raw.cast_to_raw(l_varchar_buffer),'American_America.UTF8',l_db_nls_lang);
354: l_raw_buffer_len := utl_raw.length(utl_raw.convert(utl_raw.cast_to_raw(l_varchar_buffer),'American_America.UTF8',l_db_nls_lang));
355: dbms_lob.write(p_blob,l_raw_buffer_len, l_blob_offset, l_raw_buffer);
356: --
357: l_blob_offset := l_blob_offset + l_raw_buffer_len;
358: l_offset := l_offset + l_chunk_len;
359: l_length_clob := l_length_clob - l_chunk_len;