886: ELSE
887: BEGIN
888: SELECT TO_NUMBER(l_party_info_tab(j).agency_id)
889: INTO l_dummy_num
890: FROM dual
891: WHERE TO_NUMBER(l_party_info_tab(j).agency_id)
892: BETWEEN 0 AND 999;
893: EXCEPTION WHEN OTHERS THEN
894: l_exception_category := 'FED_TP_MUST_HAVE_AGENCY_ID';
2157:
2158: SELECT SUBSTR(p_reference2, 0, decode(INSTR(p_reference2, 'C'), 0,
2159: LENGTH(p_reference2),INSTR(p_reference2,'C')-1))
2160: INTO l_temp_reference_2
2161: FROM dual;
2162: log(l_module_name, 'l_temp_reference_2: '||l_temp_reference_2);
2163:
2164: SELECT receipt_number
2165: INTO p_party_info_tab(i).doc_num