290:
291: if l_addr_sql is not null then
292: l_sql := l_addr_sql || l_where_sql;
293:
294: dbms_lob.createtemporary(clob_addr, true);
295: dbms_lob.open(clob_addr, dbms_lob.lob_readwrite);
296: open c_addr for l_sql using p_header_id, p_draft_id, l_attr_grp_id;
297: loop
298: fetch c_addr into l_address;
291: if l_addr_sql is not null then
292: l_sql := l_addr_sql || l_where_sql;
293:
294: dbms_lob.createtemporary(clob_addr, true);
295: dbms_lob.open(clob_addr, dbms_lob.lob_readwrite);
296: open c_addr for l_sql using p_header_id, p_draft_id, l_attr_grp_id;
297: loop
298: fetch c_addr into l_address;
299: exit when c_addr%notfound;
297: loop
298: fetch c_addr into l_address;
299: exit when c_addr%notfound;
300: if l_address is not null then
301: dbms_lob.writeappend(clob_addr, length(l_address), l_address);
302: end if;
303: end loop;
304: dbms_lob.close(clob_addr);
305: end if;
300: if l_address is not null then
301: dbms_lob.writeappend(clob_addr, length(l_address), l_address);
302: end if;
303: end loop;
304: dbms_lob.close(clob_addr);
305: end if;
306: return(clob_addr);
307: end get_addressxml_pvt;
308:
347:
348: if l_cnt_sql is not null then
349: l_sql := l_cnt_sql || l_where_sql;
350:
351: dbms_lob.createtemporary(clob_cnt, true);
352: dbms_lob.open(clob_cnt , dbms_lob.lob_readwrite);
353: open c_cnt for l_sql using p_header_id, p_draft_id, l_attr_grp_id;
354: loop
355: fetch c_cnt into l_cnt;
348: if l_cnt_sql is not null then
349: l_sql := l_cnt_sql || l_where_sql;
350:
351: dbms_lob.createtemporary(clob_cnt, true);
352: dbms_lob.open(clob_cnt , dbms_lob.lob_readwrite);
353: open c_cnt for l_sql using p_header_id, p_draft_id, l_attr_grp_id;
354: loop
355: fetch c_cnt into l_cnt;
356: exit when c_cnt%notfound;
354: loop
355: fetch c_cnt into l_cnt;
356: exit when c_cnt%notfound;
357: if l_cnt is not null then
358: dbms_lob.writeappend(clob_cnt, length(l_cnt), l_cnt);
359: end if;
360: end loop;
361: dbms_lob.close(clob_cnt);
362: end if;
357: if l_cnt is not null then
358: dbms_lob.writeappend(clob_cnt, length(l_cnt), l_cnt);
359: end if;
360: end loop;
361: dbms_lob.close(clob_cnt);
362: end if;
363: return(clob_cnt);
364: end get_contactsxml_pvt;
365:
1821: ELSIF l_chg1 IS NOT NULL AND l_chg2 IS NOT NULL THEN
1822: l_chg3 := 'Modified';
1823: END IF;
1824:
1825: dbms_lob.createtemporary(l_clob, true);
1826: dbms_lob.open(l_clob, dbms_lob.lob_readwrite);
1827: dbms_lob.append(l_clob,'
1829: || '
1822: l_chg3 := 'Modified';
1823: END IF;
1824:
1825: dbms_lob.createtemporary(l_clob, true);
1826: dbms_lob.open(l_clob, dbms_lob.lob_readwrite);
1827: dbms_lob.append(l_clob,'
1829: || '
1830: dbms_lob.close(l_clob);
1826: dbms_lob.open(l_clob, dbms_lob.lob_readwrite);
1827: dbms_lob.append(l_clob,'
1829: || '
1830: dbms_lob.close(l_clob);
1831: RETURN l_clob;
1832:
1833: ELSIF p_element = 'OBLIGATEDAMOUNT' THEN
1834:
2551: AND (base.' || l_addr_val_col_name || ' <> modi.' || l_addr_val_col_name || ' OR base.' || l_contacts_col_name || ' <> modi.' ||
2552: l_contacts_col_name || ') ' ;
2553: ELSE l_sql := '' ;
2554: END case;
2555: dbms_lob.createtemporary(clob_addr, true);
2556: dbms_lob.open(clob_addr, dbms_lob.lob_readwrite);
2557: open c_addr for l_sql;
2558: loop
2559: fetch c_addr into l_address_type,l_address,l_contacts;
2552: l_contacts_col_name || ') ' ;
2553: ELSE l_sql := '' ;
2554: END case;
2555: dbms_lob.createtemporary(clob_addr, true);
2556: dbms_lob.open(clob_addr, dbms_lob.lob_readwrite);
2557: open c_addr for l_sql;
2558: loop
2559: fetch c_addr into l_address_type,l_address,l_contacts;
2560: exit when c_addr%notfound;
2571: ELSE l_address_type_name := '';
2572: END CASE;
2573: l_address:= REPLACE(l_address,l_address_type||'_','');
2574: l_contacts:= REPLACE(l_contacts,l_address_type||'_','');
2575: dbms_lob.writeappend(clob_addr, length('
2577: '
2576: ||''||l_address||l_contacts||''),
2577: '
2951: select decode(artmod.ARTICLE_TYPE, artorig.ARTICLE_TYPE, NULL, ' Regulation Or Supplement and Issuing Activity Changed.') CHANGE1,
2952: decode(artmod.ARTICLE_NUMBER, artorig.ARTICLE_NUMBER, NULL, ' Clause Number Changed.') CHANGE2,
2953: decode(artmod.ARTICLE_TITLE, artorig.ARTICLE_TITLE, NULL, ' Clause Title Changed.') CHANGE3,
2954: decode(vermod.START_DATE, verorig.START_DATE, NULL, ' Clause Effective Date Changed.') CHANGE4,
2955: decode(dbms_lob.compare(vermod.article_text,verorig.article_text),0,NULL,' Clause Text Changed.') CHANGE5
2956: from okc_k_articles_b kartborig, okc_k_articles_b kartbmod, okc_articles_all artorig, okc_articles_all artmod, okc_article_versions verorig,
2957: okc_article_versions vermod
2958: where kartbmod.id = p_kartid
2959: and kartbmod.orig_system_reference_id1 = kartborig.id
3008: SELECT sav_sae_id,article_version_id INTO l_article_id,l_article_ver_id FROM okc_k_articles_b WHERE id = p_kart_id;
3009: SELECT article_text INTO l_clause_text FROM okc_article_versions WHERE article_id = l_article_id AND ARTICLE_VERSION_ID=l_article_ver_id;
3010:
3011: l_var_seq_num :=1;
3012: dbms_lob.createtemporary(l_output_xml, true);
3013: dbms_lob.open(l_output_xml, dbms_lob.lob_readwrite);
3014: dbms_lob.writeappend(l_output_xml,Length('
3015:
3016:
3009: SELECT article_text INTO l_clause_text FROM okc_article_versions WHERE article_id = l_article_id AND ARTICLE_VERSION_ID=l_article_ver_id;
3010:
3011: l_var_seq_num :=1;
3012: dbms_lob.createtemporary(l_output_xml, true);
3013: dbms_lob.open(l_output_xml, dbms_lob.lob_readwrite);
3014: dbms_lob.writeappend(l_output_xml,Length('
3015:
3016:
3017: LOOP
3010:
3011: l_var_seq_num :=1;
3012: dbms_lob.createtemporary(l_output_xml, true);
3013: dbms_lob.open(l_output_xml, dbms_lob.lob_readwrite);
3014: dbms_lob.writeappend(l_output_xml,Length('
3016:
3017: LOOP
3018: EXIT WHEN regexp_instr(l_clause_text,'',1,l_var_seq_num) = 0;
3039: END IF;
3040:
3041: l_var_value := Nvl(l_var_value,'______');
3042:
3043: dbms_lob.writeappend(l_output_xml,Length('
3045: '
3046: dbms_lob.writeappend(l_output_xml,Length(''),'');
3047:
3040:
3041: l_var_value := Nvl(l_var_value,'______');
3042:
3043: dbms_lob.writeappend(l_output_xml,Length('
3044: dbms_lob.writeappend(l_output_xml,Length('
3045: '
3046: dbms_lob.writeappend(l_output_xml,Length('
3047:
3048:
3042:
3043: dbms_lob.writeappend(l_output_xml,Length('
3044: dbms_lob.writeappend(l_output_xml,Length('
3045: '
3046: dbms_lob.writeappend(l_output_xml,Length('
3047:
3048:
3049: l_var_seq_num := l_var_seq_num+1;
3050:
3049: l_var_seq_num := l_var_seq_num+1;
3050:
3051: END LOOP;
3052:
3053: dbms_lob.writeappend(l_output_xml,Length(''),'');
3054: dbms_lob.close(l_output_xml);
3055:
3056: return(l_output_xml);
3057:
3050:
3051: END LOOP;
3052:
3053: dbms_lob.writeappend(l_output_xml,Length(''),'');
3054: dbms_lob.close(l_output_xml);
3055:
3056: return(l_output_xml);
3057:
3058: END get_clause_variable_pairs;