160: selectstmt := selectstmt||' AND ai.last_update_date <= :p_end_date';
161: END IF;
162:
163: -- Open the cursor for processing
164: cursor_id := dbms_sql.open_cursor;
165:
166: -- Parse the query
167: dbms_sql.parse(cursor_id, selectstmt, dbms_sql.v7);
168:
163: -- Open the cursor for processing
164: cursor_id := dbms_sql.open_cursor;
165:
166: -- Parse the query
167: dbms_sql.parse(cursor_id, selectstmt, dbms_sql.v7);
168:
169: -- Bind input variables
170: IF p_vendor_id IS NOT NULL THEN
171: dbms_sql.bind_variable(cursor_id,':p_vendor_id',p_vendor_id);
167: dbms_sql.parse(cursor_id, selectstmt, dbms_sql.v7);
168:
169: -- Bind input variables
170: IF p_vendor_id IS NOT NULL THEN
171: dbms_sql.bind_variable(cursor_id,':p_vendor_id',p_vendor_id);
172: END IF;
173:
174: IF p_invoice_id IS NOT NULL THEN
175: dbms_sql.bind_variable(cursor_id,':p_invoice_id',p_invoice_id);
171: dbms_sql.bind_variable(cursor_id,':p_vendor_id',p_vendor_id);
172: END IF;
173:
174: IF p_invoice_id IS NOT NULL THEN
175: dbms_sql.bind_variable(cursor_id,':p_invoice_id',p_invoice_id);
176: END IF;
177:
178: IF p_prepay_id IS NOT NULL THEN
179: dbms_sql.bind_variable(cursor_id,':p_prepay_id',p_prepay_id);
175: dbms_sql.bind_variable(cursor_id,':p_invoice_id',p_invoice_id);
176: END IF;
177:
178: IF p_prepay_id IS NOT NULL THEN
179: dbms_sql.bind_variable(cursor_id,':p_prepay_id',p_prepay_id);
180: END IF;
181:
182: IF p_start_date IS NOT NULL THEN
183: dbms_sql.bind_variable(cursor_id,':p_start_date',p_start_date);
179: dbms_sql.bind_variable(cursor_id,':p_prepay_id',p_prepay_id);
180: END IF;
181:
182: IF p_start_date IS NOT NULL THEN
183: dbms_sql.bind_variable(cursor_id,':p_start_date',p_start_date);
184: END IF;
185:
186: IF p_end_date IS NOT NULL THEN
187: dbms_sql.bind_variable(cursor_id,':p_end_date',p_end_date);
183: dbms_sql.bind_variable(cursor_id,':p_start_date',p_start_date);
184: END IF;
185:
186: IF p_end_date IS NOT NULL THEN
187: dbms_sql.bind_variable(cursor_id,':p_end_date',p_end_date);
188: END IF;
189:
190: -- Define the output variable
191: dbms_sql.define_column(cursor_id,1,l_language,4);
187: dbms_sql.bind_variable(cursor_id,':p_end_date',p_end_date);
188: END IF;
189:
190: -- Define the output variable
191: dbms_sql.define_column(cursor_id,1,l_language,4);
192:
193: -- Execute the query
194: dummy := dbms_sql.execute(cursor_id);
195:
190: -- Define the output variable
191: dbms_sql.define_column(cursor_id,1,l_language,4);
192:
193: -- Execute the query
194: dummy := dbms_sql.execute(cursor_id);
195:
196: -- Create string of languages to be returned
197: LOOP
198:
195:
196: -- Create string of languages to be returned
197: LOOP
198:
199: IF dbms_sql.fetch_rows(cursor_id) = 0 THEN
200: EXIT;
201: END IF;
202: dbms_sql.column_value( cursor_id, 1, l_language );
203:
198:
199: IF dbms_sql.fetch_rows(cursor_id) = 0 THEN
200: EXIT;
201: END IF;
202: dbms_sql.column_value( cursor_id, 1, l_language );
203:
204: IF (lang_str IS NULL) THEN
205: lang_str := l_language;
206: ELSE
207: lang_str := lang_str||','||l_language;
208: END IF;
209: END LOOP;
210:
211: dbms_sql.close_cursor(cursor_id);
212:
213: RETURN(lang_str);
214:
215: END APXPPREM;
291: selectstmt := selectstmt||' AND ai.invoice_date <= :p_end_date';
292: END IF;
293:
294: -- Open the cursor for processing
295: cursor_id := dbms_sql.open_cursor;
296:
297: -- Parse the query
298: dbms_sql.parse(cursor_id, selectstmt, dbms_sql.v7);
299:
294: -- Open the cursor for processing
295: cursor_id := dbms_sql.open_cursor;
296:
297: -- Parse the query
298: dbms_sql.parse(cursor_id, selectstmt, dbms_sql.v7);
299:
300: -- Bind input variables
301: IF p_vendor_type IS NOT NULL THEN
302: dbms_sql.bind_variable(cursor_id,':p_vendor_type',p_vendor_type);
298: dbms_sql.parse(cursor_id, selectstmt, dbms_sql.v7);
299:
300: -- Bind input variables
301: IF p_vendor_type IS NOT NULL THEN
302: dbms_sql.bind_variable(cursor_id,':p_vendor_type',p_vendor_type);
303: END IF;
304:
305: IF p_pay_group IS NOT NULL THEN
306: dbms_sql.bind_variable(cursor_id,':p_pay_group',p_pay_group);
302: dbms_sql.bind_variable(cursor_id,':p_vendor_type',p_vendor_type);
303: END IF;
304:
305: IF p_pay_group IS NOT NULL THEN
306: dbms_sql.bind_variable(cursor_id,':p_pay_group',p_pay_group);
307: END IF;
308:
309: IF p_vendor_id IS NOT NULL THEN
310: dbms_sql.bind_variable(cursor_id,':p_vendor_id',p_vendor_id);
306: dbms_sql.bind_variable(cursor_id,':p_pay_group',p_pay_group);
307: END IF;
308:
309: IF p_vendor_id IS NOT NULL THEN
310: dbms_sql.bind_variable(cursor_id,':p_vendor_id',p_vendor_id);
311: END IF;
312:
313: IF p_invoice_type IS NOT NULL THEN
314: dbms_sql.bind_variable(cursor_id,':p_invoice_type',p_invoice_type);
310: dbms_sql.bind_variable(cursor_id,':p_vendor_id',p_vendor_id);
311: END IF;
312:
313: IF p_invoice_type IS NOT NULL THEN
314: dbms_sql.bind_variable(cursor_id,':p_invoice_type',p_invoice_type);
315: END IF;
316:
317: IF p_invoice_id IS NOT NULL THEN
318: dbms_sql.bind_variable(cursor_id,':p_invoice_id',p_invoice_id);
314: dbms_sql.bind_variable(cursor_id,':p_invoice_type',p_invoice_type);
315: END IF;
316:
317: IF p_invoice_id IS NOT NULL THEN
318: dbms_sql.bind_variable(cursor_id,':p_invoice_id',p_invoice_id);
319: END IF;
320:
321: IF p_start_date IS NOT NULL THEN
322: dbms_sql.bind_variable(cursor_id,':p_start_date',p_start_date);
318: dbms_sql.bind_variable(cursor_id,':p_invoice_id',p_invoice_id);
319: END IF;
320:
321: IF p_start_date IS NOT NULL THEN
322: dbms_sql.bind_variable(cursor_id,':p_start_date',p_start_date);
323: END IF;
324:
325: IF p_end_date IS NOT NULL THEN
326: dbms_sql.bind_variable(cursor_id,':p_end_date',p_end_date);
322: dbms_sql.bind_variable(cursor_id,':p_start_date',p_start_date);
323: END IF;
324:
325: IF p_end_date IS NOT NULL THEN
326: dbms_sql.bind_variable(cursor_id,':p_end_date',p_end_date);
327: END IF;
328:
329: -- Define the output variable
330: dbms_sql.define_column(cursor_id,1,l_language,4);
326: dbms_sql.bind_variable(cursor_id,':p_end_date',p_end_date);
327: END IF;
328:
329: -- Define the output variable
330: dbms_sql.define_column(cursor_id,1,l_language,4);
331:
332: -- Execute the query
333: dummy := dbms_sql.execute(cursor_id);
334:
329: -- Define the output variable
330: dbms_sql.define_column(cursor_id,1,l_language,4);
331:
332: -- Execute the query
333: dummy := dbms_sql.execute(cursor_id);
334:
335: -- Create string of languages to be returned
336: LOOP
337:
334:
335: -- Create string of languages to be returned
336: LOOP
337:
338: IF dbms_sql.fetch_rows(cursor_id) = 0 THEN
339: EXIT;
340: END IF;
341: dbms_sql.column_value( cursor_id, 1, l_language );
342:
337:
338: IF dbms_sql.fetch_rows(cursor_id) = 0 THEN
339: EXIT;
340: END IF;
341: dbms_sql.column_value( cursor_id, 1, l_language );
342:
343: IF (lang_str IS NULL) THEN
344: lang_str := l_language;
345: ELSE
346: lang_str := lang_str||','||l_language;
347: END IF;
348: END LOOP;
349:
350: dbms_sql.close_cursor(cursor_id);
351:
352: RETURN(lang_str);
353:
354: END APXINPRT;
398: and nvl(:p_vendor_name_to,pvd.vendor_name)';
399:
400: -- add to where clause if other parameters are specified
401: -- Open the cursor for processing
402: cursor_id := dbms_sql.open_cursor;
403:
404: -- Parse the query
405: dbms_sql.parse(cursor_id, selectstmt, dbms_sql.v7);
406: DBMS_SQL.BIND_VARIABLE(cursor_id,':p_vendor_name_from',P_VENDOR_NAME_FROM);
401: -- Open the cursor for processing
402: cursor_id := dbms_sql.open_cursor;
403:
404: -- Parse the query
405: dbms_sql.parse(cursor_id, selectstmt, dbms_sql.v7);
406: DBMS_SQL.BIND_VARIABLE(cursor_id,':p_vendor_name_from',P_VENDOR_NAME_FROM);
407: DBMS_SQL.BIND_VARIABLE(cursor_id,':p_vendor_name_to',P_VENDOR_NAME_TO);
408: -- Bind input variables
409:
402: cursor_id := dbms_sql.open_cursor;
403:
404: -- Parse the query
405: dbms_sql.parse(cursor_id, selectstmt, dbms_sql.v7);
406: DBMS_SQL.BIND_VARIABLE(cursor_id,':p_vendor_name_from',P_VENDOR_NAME_FROM);
407: DBMS_SQL.BIND_VARIABLE(cursor_id,':p_vendor_name_to',P_VENDOR_NAME_TO);
408: -- Bind input variables
409:
410: -- Define the output variable
403:
404: -- Parse the query
405: dbms_sql.parse(cursor_id, selectstmt, dbms_sql.v7);
406: DBMS_SQL.BIND_VARIABLE(cursor_id,':p_vendor_name_from',P_VENDOR_NAME_FROM);
407: DBMS_SQL.BIND_VARIABLE(cursor_id,':p_vendor_name_to',P_VENDOR_NAME_TO);
408: -- Bind input variables
409:
410: -- Define the output variable
411: dbms_sql.define_column(cursor_id,1,l_language,4);
407: DBMS_SQL.BIND_VARIABLE(cursor_id,':p_vendor_name_to',P_VENDOR_NAME_TO);
408: -- Bind input variables
409:
410: -- Define the output variable
411: dbms_sql.define_column(cursor_id,1,l_language,4);
412:
413: -- Execute the query
414: dummy := dbms_sql.execute(cursor_id);
415:
410: -- Define the output variable
411: dbms_sql.define_column(cursor_id,1,l_language,4);
412:
413: -- Execute the query
414: dummy := dbms_sql.execute(cursor_id);
415:
416: -- Create string of languages to be returned
417: LOOP
418:
415:
416: -- Create string of languages to be returned
417: LOOP
418:
419: IF dbms_sql.fetch_rows(cursor_id) = 0 THEN
420: EXIT;
421: END IF;
422: dbms_sql.column_value( cursor_id, 1, l_language );
423:
418:
419: IF dbms_sql.fetch_rows(cursor_id) = 0 THEN
420: EXIT;
421: END IF;
422: dbms_sql.column_value( cursor_id, 1, l_language );
423:
424: IF (lang_str IS NULL) THEN
425: lang_str := l_language;
426: ELSE
427: lang_str := lang_str||','||l_language;
428: END IF;
429: END LOOP;
430:
431: dbms_sql.close_cursor(cursor_id);
432:
433: RETURN(lang_str);
434:
435: END APXSOBLX;