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