78:
79: if cur_ar_get_cust_currency%NOTFOUND then
80: error_status := 100;
81: close cur_ar_get_cust_currency;
82: currency_code := gmf_gl_get_base_cur.get_base_cur(porg_id);
83: end if;
84:
85: if row_to_fetch = 1 and cur_ar_get_cust_currency%ISOPEN then
86: close cur_ar_get_cust_currency;
88:
89: exception
90:
91: when more_than_1_primary_ac_defined then
92: currency_code := gmf_gl_get_base_cur.get_base_cur(porg_id);
93:
94: when no_primary_ac_defined then
95: currency_code := gmf_gl_get_base_cur.get_base_cur(porg_id);
96:
91: when more_than_1_primary_ac_defined then
92: currency_code := gmf_gl_get_base_cur.get_base_cur(porg_id);
93:
94: when no_primary_ac_defined then
95: currency_code := gmf_gl_get_base_cur.get_base_cur(porg_id);
96:
97: when others then
98: error_status := SQLCODE;
99: