128: is
129: h_i binary_integer:=0;
130: h_j binary_integer:=0;
131: begin <
132: FOR h_i in 1..FA_FLEX_TYPE.NUM_ACCTS+1
133: LOOP
134: h_j:=h_i;
135: EXIT WHEN h_i > FA_FLEX_TYPE.NUM_ACCTS;
136: if fafb_accts(h_i).type_name = X_fin_trx_code
131: begin <
132: FOR h_i in 1..FA_FLEX_TYPE.NUM_ACCTS+1
133: LOOP
134: h_j:=h_i;
135: EXIT WHEN h_i > FA_FLEX_TYPE.NUM_ACCTS;
136: if fafb_accts(h_i).type_name = X_fin_trx_code
137: then
138: X_function_code := fafb_accts(h_i).type_code;
139: exit;
139: exit;
140: end if;
141: END LOOP;
142:
143: if h_j > FA_FLEX_TYPE.NUM_ACCTS then
144: FA_SRVR_MSG.ADD_MESSAGE
145: (CALLING_FN => 'FA_GCCID_PKG.fafb_search_functions',
146: NAME => 'FA_FLEX_NO_ACCOUNT',
147: p_log_level_rec => p_log_level_rec);