2032:
2033: Procedure pan_update ( P_errbuf OUT NOCOPY varchar2,
2034: P_return_code OUT NOCOPY varchar2,
2035: P_vendor_id IN PO_VENDORS.vendor_id%TYPE,
2036: P_old_pan_num IN JAI_AP_TDS_VENDOR_HDRS.pan_no%TYPE,
2037: P_new_pan_num IN JAI_AP_TDS_VENDOR_HDRS.pan_no%TYPE,
2038: P_debug_flag IN varchar2) is
2039:
2040:
2033: Procedure pan_update ( P_errbuf OUT NOCOPY varchar2,
2034: P_return_code OUT NOCOPY varchar2,
2035: P_vendor_id IN PO_VENDORS.vendor_id%TYPE,
2036: P_old_pan_num IN JAI_AP_TDS_VENDOR_HDRS.pan_no%TYPE,
2037: P_new_pan_num IN JAI_AP_TDS_VENDOR_HDRS.pan_no%TYPE,
2038: P_debug_flag IN varchar2) is
2039:
2040:
2041: /* Cursor to lock the jai_ap_tds_thhold_grps */
2069:
2070:
2071: /* Update the tables in the following order
2072:
2073: (1) JAI_AP_TDS_VENDOR_HDRS
2074: (2) jai_ap_tds_thhold_grps
2075: (3) jai_ap_tds_thhold_xceps
2076:
2077: */
2172:
2173: end loop;
2174:
2175:
2176: -- Update the JAI_AP_TDS_VENDOR_HDRS
2177: lv_debug_msg := ' 5. Update JAI_AP_TDS_VENDOR_HDRS';
2178:
2179: If lv_debug_flag = 'Y' then
2180: Print_log(lv_debug_flag, lv_debug_msg);
2173: end loop;
2174:
2175:
2176: -- Update the JAI_AP_TDS_VENDOR_HDRS
2177: lv_debug_msg := ' 5. Update JAI_AP_TDS_VENDOR_HDRS';
2178:
2179: If lv_debug_flag = 'Y' then
2180: Print_log(lv_debug_flag, lv_debug_msg);
2181: End if;
2180: Print_log(lv_debug_flag, lv_debug_msg);
2181: End if;
2182:
2183: for vndr_tds_hdr in (select vthdr.*
2184: from JAI_AP_TDS_VENDOR_HDRS vthdr
2185: where vthdr.vendor_id = P_vendor_id
2186: and vthdr.pan_no = P_old_pan_num)
2187: loop
2188:
2185: where vthdr.vendor_id = P_vendor_id
2186: and vthdr.pan_no = P_old_pan_num)
2187: loop
2188:
2189: lv_debug_msg := ' 6. Going to update JAI_AP_TDS_VENDOR_HDRS';
2190:
2191: If lv_debug_flag = 'Y' then
2192: Print_log(lv_debug_flag, lv_debug_msg);
2193: End if;
2191: If lv_debug_flag = 'Y' then
2192: Print_log(lv_debug_flag, lv_debug_msg);
2193: End if;
2194:
2195: update JAI_AP_TDS_VENDOR_HDRS
2196: set pan_no = P_new_pan_num
2197: where vendor_id = vndr_tds_hdr.vendor_id
2198: and vendor_site_id = vndr_tds_hdr.vendor_site_id
2199: and pan_no = P_old_pan_num;
3486: END is_tds_calendar_missing;
3487: FUNCTION is_tds_vendor_setup_missing(pn_vendor_id NUMBER) RETURN VARCHAR2 IS
3488: cursor c_check_vendor_setup is
3489: select '1' from
3490: JAI_AP_TDS_VENDOR_HDRS
3491: where vendor_id = pn_vendor_id;
3492:
3493: lv_vendor_setup_flag varchar2(1);
3494: is_tds_vendor_missing VARCHAR2(1);
4416: from jai_tds_section_mapping
4417: )
4418: loop
4419:
4420: update JAI_AP_TDS_VENDOR_HDRS
4421: set section_code = rec_maps.new_section_code
4422: where section_code = rec_maps.old_section_code;
4423:
4424: update_count_out := SQL%ROWCOUNT;
4421: set section_code = rec_maps.new_section_code
4422: where section_code = rec_maps.old_section_code;
4423:
4424: update_count_out := SQL%ROWCOUNT;
4425: Fnd_File.put_line(Fnd_File.output,'In table JAI_AP_TDS_VENDOR_HDRS Updated '||update_count_out||' rows for section code '||rec_maps.old_section_code|| ' to '|| rec_maps.new_section_code);
4426: Fnd_File.put_line(Fnd_File.log,'In table JAI_AP_TDS_VENDOR_HDRS Updated '||update_count_out||' rows for section code '||rec_maps.old_section_code|| ' to '|| rec_maps.new_section_code);
4427:
4428: end loop;
4429:
4422: where section_code = rec_maps.old_section_code;
4423:
4424: update_count_out := SQL%ROWCOUNT;
4425: Fnd_File.put_line(Fnd_File.output,'In table JAI_AP_TDS_VENDOR_HDRS Updated '||update_count_out||' rows for section code '||rec_maps.old_section_code|| ' to '|| rec_maps.new_section_code);
4426: Fnd_File.put_line(Fnd_File.log,'In table JAI_AP_TDS_VENDOR_HDRS Updated '||update_count_out||' rows for section code '||rec_maps.old_section_code|| ' to '|| rec_maps.new_section_code);
4427:
4428: end loop;
4429:
4430: commit;