147: h_error_msg varchar2(80):=NULL;
148:
149: BEGIN<
150:
151: cursor_handle := DBMS_SQL.OPEN_CURSOR;
152: DBMS_SQL.PARSE(cursor_handle,'BEGIN IF ( ' || X_func ||
153: '(:flex_num,
154: :acct_seg,
155: :def_ccid,
148:
149: BEGIN<
150:
151: cursor_handle := DBMS_SQL.OPEN_CURSOR;
152: DBMS_SQL.PARSE(cursor_handle,'BEGIN IF ( ' || X_func ||
153: '(:flex_num,
154: :acct_seg,
155: :def_ccid,
156: :dist_ccid,
154: :acct_seg,
155: :def_ccid,
156: :dist_ccid,
157: :flex_seg,
158: :error_msg)) THEN :x1:=1;ELSE :x1:=0;END IF; END;',DBMS_SQL.V7);
159: DBMS_SQL.BIND_VARIABLE(cursor_handle,':x1',h_val);
160: DBMS_SQL.BIND_VARIABLE(cursor_handle,':flex_num',X_flex_num);
161: DBMS_SQL.BIND_VARIABLE(cursor_handle,':acct_seg',X_acct_seg);
162: DBMS_SQL.BIND_VARIABLE(cursor_handle,':def_ccid',X_def_ccid);
155: :def_ccid,
156: :dist_ccid,
157: :flex_seg,
158: :error_msg)) THEN :x1:=1;ELSE :x1:=0;END IF; END;',DBMS_SQL.V7);
159: DBMS_SQL.BIND_VARIABLE(cursor_handle,':x1',h_val);
160: DBMS_SQL.BIND_VARIABLE(cursor_handle,':flex_num',X_flex_num);
161: DBMS_SQL.BIND_VARIABLE(cursor_handle,':acct_seg',X_acct_seg);
162: DBMS_SQL.BIND_VARIABLE(cursor_handle,':def_ccid',X_def_ccid);
163: DBMS_SQL.BIND_VARIABLE(cursor_handle,':dist_ccid',X_dist_ccid);
156: :dist_ccid,
157: :flex_seg,
158: :error_msg)) THEN :x1:=1;ELSE :x1:=0;END IF; END;',DBMS_SQL.V7);
159: DBMS_SQL.BIND_VARIABLE(cursor_handle,':x1',h_val);
160: DBMS_SQL.BIND_VARIABLE(cursor_handle,':flex_num',X_flex_num);
161: DBMS_SQL.BIND_VARIABLE(cursor_handle,':acct_seg',X_acct_seg);
162: DBMS_SQL.BIND_VARIABLE(cursor_handle,':def_ccid',X_def_ccid);
163: DBMS_SQL.BIND_VARIABLE(cursor_handle,':dist_ccid',X_dist_ccid);
164: DBMS_SQL.BIND_VARIABLE(cursor_handle,':flex_seg',h_flex_seg,2000);
157: :flex_seg,
158: :error_msg)) THEN :x1:=1;ELSE :x1:=0;END IF; END;',DBMS_SQL.V7);
159: DBMS_SQL.BIND_VARIABLE(cursor_handle,':x1',h_val);
160: DBMS_SQL.BIND_VARIABLE(cursor_handle,':flex_num',X_flex_num);
161: DBMS_SQL.BIND_VARIABLE(cursor_handle,':acct_seg',X_acct_seg);
162: DBMS_SQL.BIND_VARIABLE(cursor_handle,':def_ccid',X_def_ccid);
163: DBMS_SQL.BIND_VARIABLE(cursor_handle,':dist_ccid',X_dist_ccid);
164: DBMS_SQL.BIND_VARIABLE(cursor_handle,':flex_seg',h_flex_seg,2000);
165: DBMS_SQL.BIND_VARIABLE(cursor_handle,':error_msg',h_error_msg,80);
158: :error_msg)) THEN :x1:=1;ELSE :x1:=0;END IF; END;',DBMS_SQL.V7);
159: DBMS_SQL.BIND_VARIABLE(cursor_handle,':x1',h_val);
160: DBMS_SQL.BIND_VARIABLE(cursor_handle,':flex_num',X_flex_num);
161: DBMS_SQL.BIND_VARIABLE(cursor_handle,':acct_seg',X_acct_seg);
162: DBMS_SQL.BIND_VARIABLE(cursor_handle,':def_ccid',X_def_ccid);
163: DBMS_SQL.BIND_VARIABLE(cursor_handle,':dist_ccid',X_dist_ccid);
164: DBMS_SQL.BIND_VARIABLE(cursor_handle,':flex_seg',h_flex_seg,2000);
165: DBMS_SQL.BIND_VARIABLE(cursor_handle,':error_msg',h_error_msg,80);
166: h_cursor_executed := DBMS_SQL.EXECUTE (cursor_handle);
159: DBMS_SQL.BIND_VARIABLE(cursor_handle,':x1',h_val);
160: DBMS_SQL.BIND_VARIABLE(cursor_handle,':flex_num',X_flex_num);
161: DBMS_SQL.BIND_VARIABLE(cursor_handle,':acct_seg',X_acct_seg);
162: DBMS_SQL.BIND_VARIABLE(cursor_handle,':def_ccid',X_def_ccid);
163: DBMS_SQL.BIND_VARIABLE(cursor_handle,':dist_ccid',X_dist_ccid);
164: DBMS_SQL.BIND_VARIABLE(cursor_handle,':flex_seg',h_flex_seg,2000);
165: DBMS_SQL.BIND_VARIABLE(cursor_handle,':error_msg',h_error_msg,80);
166: h_cursor_executed := DBMS_SQL.EXECUTE (cursor_handle);
167:
160: DBMS_SQL.BIND_VARIABLE(cursor_handle,':flex_num',X_flex_num);
161: DBMS_SQL.BIND_VARIABLE(cursor_handle,':acct_seg',X_acct_seg);
162: DBMS_SQL.BIND_VARIABLE(cursor_handle,':def_ccid',X_def_ccid);
163: DBMS_SQL.BIND_VARIABLE(cursor_handle,':dist_ccid',X_dist_ccid);
164: DBMS_SQL.BIND_VARIABLE(cursor_handle,':flex_seg',h_flex_seg,2000);
165: DBMS_SQL.BIND_VARIABLE(cursor_handle,':error_msg',h_error_msg,80);
166: h_cursor_executed := DBMS_SQL.EXECUTE (cursor_handle);
167:
168: DBMS_SQL.VARIABLE_VALUE(cursor_handle,':x1',h_val);
161: DBMS_SQL.BIND_VARIABLE(cursor_handle,':acct_seg',X_acct_seg);
162: DBMS_SQL.BIND_VARIABLE(cursor_handle,':def_ccid',X_def_ccid);
163: DBMS_SQL.BIND_VARIABLE(cursor_handle,':dist_ccid',X_dist_ccid);
164: DBMS_SQL.BIND_VARIABLE(cursor_handle,':flex_seg',h_flex_seg,2000);
165: DBMS_SQL.BIND_VARIABLE(cursor_handle,':error_msg',h_error_msg,80);
166: h_cursor_executed := DBMS_SQL.EXECUTE (cursor_handle);
167:
168: DBMS_SQL.VARIABLE_VALUE(cursor_handle,':x1',h_val);
169: DBMS_SQL.VARIABLE_VALUE(cursor_handle,':flex_seg',h_flex_seg);
162: DBMS_SQL.BIND_VARIABLE(cursor_handle,':def_ccid',X_def_ccid);
163: DBMS_SQL.BIND_VARIABLE(cursor_handle,':dist_ccid',X_dist_ccid);
164: DBMS_SQL.BIND_VARIABLE(cursor_handle,':flex_seg',h_flex_seg,2000);
165: DBMS_SQL.BIND_VARIABLE(cursor_handle,':error_msg',h_error_msg,80);
166: h_cursor_executed := DBMS_SQL.EXECUTE (cursor_handle);
167:
168: DBMS_SQL.VARIABLE_VALUE(cursor_handle,':x1',h_val);
169: DBMS_SQL.VARIABLE_VALUE(cursor_handle,':flex_seg',h_flex_seg);
170: DBMS_SQL.VARIABLE_VALUE(cursor_handle,':error_msg',h_error_msg);
164: DBMS_SQL.BIND_VARIABLE(cursor_handle,':flex_seg',h_flex_seg,2000);
165: DBMS_SQL.BIND_VARIABLE(cursor_handle,':error_msg',h_error_msg,80);
166: h_cursor_executed := DBMS_SQL.EXECUTE (cursor_handle);
167:
168: DBMS_SQL.VARIABLE_VALUE(cursor_handle,':x1',h_val);
169: DBMS_SQL.VARIABLE_VALUE(cursor_handle,':flex_seg',h_flex_seg);
170: DBMS_SQL.VARIABLE_VALUE(cursor_handle,':error_msg',h_error_msg);
171: X_flex_seg := h_flex_seg;
172: X_error_msg := h_error_msg;
165: DBMS_SQL.BIND_VARIABLE(cursor_handle,':error_msg',h_error_msg,80);
166: h_cursor_executed := DBMS_SQL.EXECUTE (cursor_handle);
167:
168: DBMS_SQL.VARIABLE_VALUE(cursor_handle,':x1',h_val);
169: DBMS_SQL.VARIABLE_VALUE(cursor_handle,':flex_seg',h_flex_seg);
170: DBMS_SQL.VARIABLE_VALUE(cursor_handle,':error_msg',h_error_msg);
171: X_flex_seg := h_flex_seg;
172: X_error_msg := h_error_msg;
173: DBMS_SQL.CLOSE_CURSOR(cursor_handle);
166: h_cursor_executed := DBMS_SQL.EXECUTE (cursor_handle);
167:
168: DBMS_SQL.VARIABLE_VALUE(cursor_handle,':x1',h_val);
169: DBMS_SQL.VARIABLE_VALUE(cursor_handle,':flex_seg',h_flex_seg);
170: DBMS_SQL.VARIABLE_VALUE(cursor_handle,':error_msg',h_error_msg);
171: X_flex_seg := h_flex_seg;
172: X_error_msg := h_error_msg;
173: DBMS_SQL.CLOSE_CURSOR(cursor_handle);
174: IF (h_val=1)
169: DBMS_SQL.VARIABLE_VALUE(cursor_handle,':flex_seg',h_flex_seg);
170: DBMS_SQL.VARIABLE_VALUE(cursor_handle,':error_msg',h_error_msg);
171: X_flex_seg := h_flex_seg;
172: X_error_msg := h_error_msg;
173: DBMS_SQL.CLOSE_CURSOR(cursor_handle);
174: IF (h_val=1)
175: THEN
176: RETURN TRUE;
177: ELSE
178: RETURN FALSE;
179: END IF;
180: exception
181: when others then
182: DBMS_SQL.CLOSE_CURSOR(cursor_handle);
183: END ; /* BOOK LEVEL ACCT */
184:
185: FUNCTION CATE_LEVEL_ACCT (X_flex_num in number,
186: X_func in varchar2,
199: h_error_msg varchar2(80):=NULL;
200:
201: BEGIN<
202:
203: cursor_handle := DBMS_SQL.OPEN_CURSOR;
204: DBMS_SQL.PARSE(cursor_handle,'BEGIN IF (' || X_func ||
205: '(:flex_num,
206: :acct_ccid,
207: :acct_seg,
200:
201: BEGIN<
202:
203: cursor_handle := DBMS_SQL.OPEN_CURSOR;
204: DBMS_SQL.PARSE(cursor_handle,'BEGIN IF (' || X_func ||
205: '(:flex_num,
206: :acct_ccid,
207: :acct_seg,
208: :def_ccid,
207: :acct_seg,
208: :def_ccid,
209: :dist_ccid,
210: :flex_seg,
211: :error_msg)) THEN :x1:=1;ELSE :x1:=0;END IF; END;',DBMS_SQL.V7);
212: DBMS_SQL.BIND_VARIABLE(cursor_handle,':x1',h_val);
213: DBMS_SQL.BIND_VARIABLE(cursor_handle,':flex_num',X_flex_num);
214: DBMS_SQL.BIND_VARIABLE(cursor_handle,':acct_ccid',X_acct_ccid);
215: DBMS_SQL.BIND_VARIABLE(cursor_handle,':acct_seg',X_acct_seg);
208: :def_ccid,
209: :dist_ccid,
210: :flex_seg,
211: :error_msg)) THEN :x1:=1;ELSE :x1:=0;END IF; END;',DBMS_SQL.V7);
212: DBMS_SQL.BIND_VARIABLE(cursor_handle,':x1',h_val);
213: DBMS_SQL.BIND_VARIABLE(cursor_handle,':flex_num',X_flex_num);
214: DBMS_SQL.BIND_VARIABLE(cursor_handle,':acct_ccid',X_acct_ccid);
215: DBMS_SQL.BIND_VARIABLE(cursor_handle,':acct_seg',X_acct_seg);
216: DBMS_SQL.BIND_VARIABLE(cursor_handle,':def_ccid',X_def_ccid);
209: :dist_ccid,
210: :flex_seg,
211: :error_msg)) THEN :x1:=1;ELSE :x1:=0;END IF; END;',DBMS_SQL.V7);
212: DBMS_SQL.BIND_VARIABLE(cursor_handle,':x1',h_val);
213: DBMS_SQL.BIND_VARIABLE(cursor_handle,':flex_num',X_flex_num);
214: DBMS_SQL.BIND_VARIABLE(cursor_handle,':acct_ccid',X_acct_ccid);
215: DBMS_SQL.BIND_VARIABLE(cursor_handle,':acct_seg',X_acct_seg);
216: DBMS_SQL.BIND_VARIABLE(cursor_handle,':def_ccid',X_def_ccid);
217: DBMS_SQL.BIND_VARIABLE(cursor_handle,':dist_ccid',X_dist_ccid);
210: :flex_seg,
211: :error_msg)) THEN :x1:=1;ELSE :x1:=0;END IF; END;',DBMS_SQL.V7);
212: DBMS_SQL.BIND_VARIABLE(cursor_handle,':x1',h_val);
213: DBMS_SQL.BIND_VARIABLE(cursor_handle,':flex_num',X_flex_num);
214: DBMS_SQL.BIND_VARIABLE(cursor_handle,':acct_ccid',X_acct_ccid);
215: DBMS_SQL.BIND_VARIABLE(cursor_handle,':acct_seg',X_acct_seg);
216: DBMS_SQL.BIND_VARIABLE(cursor_handle,':def_ccid',X_def_ccid);
217: DBMS_SQL.BIND_VARIABLE(cursor_handle,':dist_ccid',X_dist_ccid);
218: DBMS_SQL.BIND_VARIABLE(cursor_handle,':flex_seg',h_flex_seg,2000);
211: :error_msg)) THEN :x1:=1;ELSE :x1:=0;END IF; END;',DBMS_SQL.V7);
212: DBMS_SQL.BIND_VARIABLE(cursor_handle,':x1',h_val);
213: DBMS_SQL.BIND_VARIABLE(cursor_handle,':flex_num',X_flex_num);
214: DBMS_SQL.BIND_VARIABLE(cursor_handle,':acct_ccid',X_acct_ccid);
215: DBMS_SQL.BIND_VARIABLE(cursor_handle,':acct_seg',X_acct_seg);
216: DBMS_SQL.BIND_VARIABLE(cursor_handle,':def_ccid',X_def_ccid);
217: DBMS_SQL.BIND_VARIABLE(cursor_handle,':dist_ccid',X_dist_ccid);
218: DBMS_SQL.BIND_VARIABLE(cursor_handle,':flex_seg',h_flex_seg,2000);
219: DBMS_SQL.BIND_VARIABLE(cursor_handle,':error_msg',h_error_msg,80);
212: DBMS_SQL.BIND_VARIABLE(cursor_handle,':x1',h_val);
213: DBMS_SQL.BIND_VARIABLE(cursor_handle,':flex_num',X_flex_num);
214: DBMS_SQL.BIND_VARIABLE(cursor_handle,':acct_ccid',X_acct_ccid);
215: DBMS_SQL.BIND_VARIABLE(cursor_handle,':acct_seg',X_acct_seg);
216: DBMS_SQL.BIND_VARIABLE(cursor_handle,':def_ccid',X_def_ccid);
217: DBMS_SQL.BIND_VARIABLE(cursor_handle,':dist_ccid',X_dist_ccid);
218: DBMS_SQL.BIND_VARIABLE(cursor_handle,':flex_seg',h_flex_seg,2000);
219: DBMS_SQL.BIND_VARIABLE(cursor_handle,':error_msg',h_error_msg,80);
220: h_cursor_executed := DBMS_SQL.EXECUTE (cursor_handle);
213: DBMS_SQL.BIND_VARIABLE(cursor_handle,':flex_num',X_flex_num);
214: DBMS_SQL.BIND_VARIABLE(cursor_handle,':acct_ccid',X_acct_ccid);
215: DBMS_SQL.BIND_VARIABLE(cursor_handle,':acct_seg',X_acct_seg);
216: DBMS_SQL.BIND_VARIABLE(cursor_handle,':def_ccid',X_def_ccid);
217: DBMS_SQL.BIND_VARIABLE(cursor_handle,':dist_ccid',X_dist_ccid);
218: DBMS_SQL.BIND_VARIABLE(cursor_handle,':flex_seg',h_flex_seg,2000);
219: DBMS_SQL.BIND_VARIABLE(cursor_handle,':error_msg',h_error_msg,80);
220: h_cursor_executed := DBMS_SQL.EXECUTE (cursor_handle);
221:
214: DBMS_SQL.BIND_VARIABLE(cursor_handle,':acct_ccid',X_acct_ccid);
215: DBMS_SQL.BIND_VARIABLE(cursor_handle,':acct_seg',X_acct_seg);
216: DBMS_SQL.BIND_VARIABLE(cursor_handle,':def_ccid',X_def_ccid);
217: DBMS_SQL.BIND_VARIABLE(cursor_handle,':dist_ccid',X_dist_ccid);
218: DBMS_SQL.BIND_VARIABLE(cursor_handle,':flex_seg',h_flex_seg,2000);
219: DBMS_SQL.BIND_VARIABLE(cursor_handle,':error_msg',h_error_msg,80);
220: h_cursor_executed := DBMS_SQL.EXECUTE (cursor_handle);
221:
222: DBMS_SQL.VARIABLE_VALUE(cursor_handle,':x1',h_val);
215: DBMS_SQL.BIND_VARIABLE(cursor_handle,':acct_seg',X_acct_seg);
216: DBMS_SQL.BIND_VARIABLE(cursor_handle,':def_ccid',X_def_ccid);
217: DBMS_SQL.BIND_VARIABLE(cursor_handle,':dist_ccid',X_dist_ccid);
218: DBMS_SQL.BIND_VARIABLE(cursor_handle,':flex_seg',h_flex_seg,2000);
219: DBMS_SQL.BIND_VARIABLE(cursor_handle,':error_msg',h_error_msg,80);
220: h_cursor_executed := DBMS_SQL.EXECUTE (cursor_handle);
221:
222: DBMS_SQL.VARIABLE_VALUE(cursor_handle,':x1',h_val);
223: DBMS_SQL.VARIABLE_VALUE(cursor_handle,':flex_seg',h_flex_seg);
216: DBMS_SQL.BIND_VARIABLE(cursor_handle,':def_ccid',X_def_ccid);
217: DBMS_SQL.BIND_VARIABLE(cursor_handle,':dist_ccid',X_dist_ccid);
218: DBMS_SQL.BIND_VARIABLE(cursor_handle,':flex_seg',h_flex_seg,2000);
219: DBMS_SQL.BIND_VARIABLE(cursor_handle,':error_msg',h_error_msg,80);
220: h_cursor_executed := DBMS_SQL.EXECUTE (cursor_handle);
221:
222: DBMS_SQL.VARIABLE_VALUE(cursor_handle,':x1',h_val);
223: DBMS_SQL.VARIABLE_VALUE(cursor_handle,':flex_seg',h_flex_seg);
224: DBMS_SQL.VARIABLE_VALUE(cursor_handle,':error_msg',h_error_msg);
218: DBMS_SQL.BIND_VARIABLE(cursor_handle,':flex_seg',h_flex_seg,2000);
219: DBMS_SQL.BIND_VARIABLE(cursor_handle,':error_msg',h_error_msg,80);
220: h_cursor_executed := DBMS_SQL.EXECUTE (cursor_handle);
221:
222: DBMS_SQL.VARIABLE_VALUE(cursor_handle,':x1',h_val);
223: DBMS_SQL.VARIABLE_VALUE(cursor_handle,':flex_seg',h_flex_seg);
224: DBMS_SQL.VARIABLE_VALUE(cursor_handle,':error_msg',h_error_msg);
225: X_flex_seg := h_flex_seg;
226: X_error_msg := h_error_msg;
219: DBMS_SQL.BIND_VARIABLE(cursor_handle,':error_msg',h_error_msg,80);
220: h_cursor_executed := DBMS_SQL.EXECUTE (cursor_handle);
221:
222: DBMS_SQL.VARIABLE_VALUE(cursor_handle,':x1',h_val);
223: DBMS_SQL.VARIABLE_VALUE(cursor_handle,':flex_seg',h_flex_seg);
224: DBMS_SQL.VARIABLE_VALUE(cursor_handle,':error_msg',h_error_msg);
225: X_flex_seg := h_flex_seg;
226: X_error_msg := h_error_msg;
227: DBMS_SQL.CLOSE_CURSOR(cursor_handle);
220: h_cursor_executed := DBMS_SQL.EXECUTE (cursor_handle);
221:
222: DBMS_SQL.VARIABLE_VALUE(cursor_handle,':x1',h_val);
223: DBMS_SQL.VARIABLE_VALUE(cursor_handle,':flex_seg',h_flex_seg);
224: DBMS_SQL.VARIABLE_VALUE(cursor_handle,':error_msg',h_error_msg);
225: X_flex_seg := h_flex_seg;
226: X_error_msg := h_error_msg;
227: DBMS_SQL.CLOSE_CURSOR(cursor_handle);
228: IF (h_val = 1)
223: DBMS_SQL.VARIABLE_VALUE(cursor_handle,':flex_seg',h_flex_seg);
224: DBMS_SQL.VARIABLE_VALUE(cursor_handle,':error_msg',h_error_msg);
225: X_flex_seg := h_flex_seg;
226: X_error_msg := h_error_msg;
227: DBMS_SQL.CLOSE_CURSOR(cursor_handle);
228: IF (h_val = 1)
229: THEN
230: RETURN TRUE;
231: ELSE
232: RETURN FALSE;
233: END IF;
234: exception
235: when others then
236: DBMS_SQL.CLOSE_CURSOR(cursor_handle);
237: END ; /* CATE LEVEL ACCT */
238:
239: FUNCTION ASSET_LEVEL_ACCT (X_flex_num in number,
240: X_func in varchar2,
251: h_error_msg varchar2(80):=NULL;
252:
253: BEGIN<
254:
255: cursor_handle := DBMS_SQL.OPEN_CURSOR;
256: DBMS_SQL.PARSE(cursor_handle,'BEGIN IF (' || X_func ||
257: '(:flex_num,
258: :acct_seg,
259: :dist_ccid,
252:
253: BEGIN<
254:
255: cursor_handle := DBMS_SQL.OPEN_CURSOR;
256: DBMS_SQL.PARSE(cursor_handle,'BEGIN IF (' || X_func ||
257: '(:flex_num,
258: :acct_seg,
259: :dist_ccid,
260: :flex_seg,
257: '(:flex_num,
258: :acct_seg,
259: :dist_ccid,
260: :flex_seg,
261: :error_msg)) THEN :x1:=1;ELSE :x1:=0;END IF; END;',DBMS_SQL.V7);
262: DBMS_SQL.BIND_VARIABLE(cursor_handle,':x1',h_val);
263: DBMS_SQL.BIND_VARIABLE(cursor_handle,':flex_num',X_flex_num);
264: DBMS_SQL.BIND_VARIABLE(cursor_handle,':acct_seg',X_acct_seg);
265: DBMS_SQL.BIND_VARIABLE(cursor_handle,':dist_ccid',X_dist_ccid);
258: :acct_seg,
259: :dist_ccid,
260: :flex_seg,
261: :error_msg)) THEN :x1:=1;ELSE :x1:=0;END IF; END;',DBMS_SQL.V7);
262: DBMS_SQL.BIND_VARIABLE(cursor_handle,':x1',h_val);
263: DBMS_SQL.BIND_VARIABLE(cursor_handle,':flex_num',X_flex_num);
264: DBMS_SQL.BIND_VARIABLE(cursor_handle,':acct_seg',X_acct_seg);
265: DBMS_SQL.BIND_VARIABLE(cursor_handle,':dist_ccid',X_dist_ccid);
266: DBMS_SQL.BIND_VARIABLE(cursor_handle,':flex_seg',h_flex_seg,2000);
259: :dist_ccid,
260: :flex_seg,
261: :error_msg)) THEN :x1:=1;ELSE :x1:=0;END IF; END;',DBMS_SQL.V7);
262: DBMS_SQL.BIND_VARIABLE(cursor_handle,':x1',h_val);
263: DBMS_SQL.BIND_VARIABLE(cursor_handle,':flex_num',X_flex_num);
264: DBMS_SQL.BIND_VARIABLE(cursor_handle,':acct_seg',X_acct_seg);
265: DBMS_SQL.BIND_VARIABLE(cursor_handle,':dist_ccid',X_dist_ccid);
266: DBMS_SQL.BIND_VARIABLE(cursor_handle,':flex_seg',h_flex_seg,2000);
267: DBMS_SQL.BIND_VARIABLE(cursor_handle,':error_msg',h_error_msg,80);
260: :flex_seg,
261: :error_msg)) THEN :x1:=1;ELSE :x1:=0;END IF; END;',DBMS_SQL.V7);
262: DBMS_SQL.BIND_VARIABLE(cursor_handle,':x1',h_val);
263: DBMS_SQL.BIND_VARIABLE(cursor_handle,':flex_num',X_flex_num);
264: DBMS_SQL.BIND_VARIABLE(cursor_handle,':acct_seg',X_acct_seg);
265: DBMS_SQL.BIND_VARIABLE(cursor_handle,':dist_ccid',X_dist_ccid);
266: DBMS_SQL.BIND_VARIABLE(cursor_handle,':flex_seg',h_flex_seg,2000);
267: DBMS_SQL.BIND_VARIABLE(cursor_handle,':error_msg',h_error_msg,80);
268: h_cursor_executed := DBMS_SQL.EXECUTE (cursor_handle);
261: :error_msg)) THEN :x1:=1;ELSE :x1:=0;END IF; END;',DBMS_SQL.V7);
262: DBMS_SQL.BIND_VARIABLE(cursor_handle,':x1',h_val);
263: DBMS_SQL.BIND_VARIABLE(cursor_handle,':flex_num',X_flex_num);
264: DBMS_SQL.BIND_VARIABLE(cursor_handle,':acct_seg',X_acct_seg);
265: DBMS_SQL.BIND_VARIABLE(cursor_handle,':dist_ccid',X_dist_ccid);
266: DBMS_SQL.BIND_VARIABLE(cursor_handle,':flex_seg',h_flex_seg,2000);
267: DBMS_SQL.BIND_VARIABLE(cursor_handle,':error_msg',h_error_msg,80);
268: h_cursor_executed := DBMS_SQL.EXECUTE (cursor_handle);
269:
262: DBMS_SQL.BIND_VARIABLE(cursor_handle,':x1',h_val);
263: DBMS_SQL.BIND_VARIABLE(cursor_handle,':flex_num',X_flex_num);
264: DBMS_SQL.BIND_VARIABLE(cursor_handle,':acct_seg',X_acct_seg);
265: DBMS_SQL.BIND_VARIABLE(cursor_handle,':dist_ccid',X_dist_ccid);
266: DBMS_SQL.BIND_VARIABLE(cursor_handle,':flex_seg',h_flex_seg,2000);
267: DBMS_SQL.BIND_VARIABLE(cursor_handle,':error_msg',h_error_msg,80);
268: h_cursor_executed := DBMS_SQL.EXECUTE (cursor_handle);
269:
270: DBMS_SQL.VARIABLE_VALUE(cursor_handle,':x1',h_val);
263: DBMS_SQL.BIND_VARIABLE(cursor_handle,':flex_num',X_flex_num);
264: DBMS_SQL.BIND_VARIABLE(cursor_handle,':acct_seg',X_acct_seg);
265: DBMS_SQL.BIND_VARIABLE(cursor_handle,':dist_ccid',X_dist_ccid);
266: DBMS_SQL.BIND_VARIABLE(cursor_handle,':flex_seg',h_flex_seg,2000);
267: DBMS_SQL.BIND_VARIABLE(cursor_handle,':error_msg',h_error_msg,80);
268: h_cursor_executed := DBMS_SQL.EXECUTE (cursor_handle);
269:
270: DBMS_SQL.VARIABLE_VALUE(cursor_handle,':x1',h_val);
271: DBMS_SQL.VARIABLE_VALUE(cursor_handle,':flex_seg',h_flex_seg);
264: DBMS_SQL.BIND_VARIABLE(cursor_handle,':acct_seg',X_acct_seg);
265: DBMS_SQL.BIND_VARIABLE(cursor_handle,':dist_ccid',X_dist_ccid);
266: DBMS_SQL.BIND_VARIABLE(cursor_handle,':flex_seg',h_flex_seg,2000);
267: DBMS_SQL.BIND_VARIABLE(cursor_handle,':error_msg',h_error_msg,80);
268: h_cursor_executed := DBMS_SQL.EXECUTE (cursor_handle);
269:
270: DBMS_SQL.VARIABLE_VALUE(cursor_handle,':x1',h_val);
271: DBMS_SQL.VARIABLE_VALUE(cursor_handle,':flex_seg',h_flex_seg);
272: DBMS_SQL.VARIABLE_VALUE(cursor_handle,':error_msg',h_error_msg);
266: DBMS_SQL.BIND_VARIABLE(cursor_handle,':flex_seg',h_flex_seg,2000);
267: DBMS_SQL.BIND_VARIABLE(cursor_handle,':error_msg',h_error_msg,80);
268: h_cursor_executed := DBMS_SQL.EXECUTE (cursor_handle);
269:
270: DBMS_SQL.VARIABLE_VALUE(cursor_handle,':x1',h_val);
271: DBMS_SQL.VARIABLE_VALUE(cursor_handle,':flex_seg',h_flex_seg);
272: DBMS_SQL.VARIABLE_VALUE(cursor_handle,':error_msg',h_error_msg);
273: X_flex_seg := h_flex_seg;
274: X_error_msg := h_error_msg;
267: DBMS_SQL.BIND_VARIABLE(cursor_handle,':error_msg',h_error_msg,80);
268: h_cursor_executed := DBMS_SQL.EXECUTE (cursor_handle);
269:
270: DBMS_SQL.VARIABLE_VALUE(cursor_handle,':x1',h_val);
271: DBMS_SQL.VARIABLE_VALUE(cursor_handle,':flex_seg',h_flex_seg);
272: DBMS_SQL.VARIABLE_VALUE(cursor_handle,':error_msg',h_error_msg);
273: X_flex_seg := h_flex_seg;
274: X_error_msg := h_error_msg;
275: DBMS_SQL.CLOSE_CURSOR(cursor_handle);
268: h_cursor_executed := DBMS_SQL.EXECUTE (cursor_handle);
269:
270: DBMS_SQL.VARIABLE_VALUE(cursor_handle,':x1',h_val);
271: DBMS_SQL.VARIABLE_VALUE(cursor_handle,':flex_seg',h_flex_seg);
272: DBMS_SQL.VARIABLE_VALUE(cursor_handle,':error_msg',h_error_msg);
273: X_flex_seg := h_flex_seg;
274: X_error_msg := h_error_msg;
275: DBMS_SQL.CLOSE_CURSOR(cursor_handle);
276: IF (h_val = 1)
271: DBMS_SQL.VARIABLE_VALUE(cursor_handle,':flex_seg',h_flex_seg);
272: DBMS_SQL.VARIABLE_VALUE(cursor_handle,':error_msg',h_error_msg);
273: X_flex_seg := h_flex_seg;
274: X_error_msg := h_error_msg;
275: DBMS_SQL.CLOSE_CURSOR(cursor_handle);
276: IF (h_val = 1)
277: THEN
278: RETURN TRUE;
279: ELSE
280: RETURN FALSE;
281: END IF;
282: exception
283: when others then
284: DBMS_SQL.CLOSE_CURSOR(cursor_handle);
285: END ; /* ASSET LEVEL ACCT */
286:
287: END FA_FLEX_UPG_PKG;