TEST_DPND_LOV_FLEX

CREATE OR REPLACE
PROCEDURE TEST_DPND_VALUESET_FLEX(
    errbuf        IN OUT VARCHAR2 ,
    RETCODE       IN OUT VARCHAR2 ,
    P_VENDOR_ID IN VARCHAR2,
    P_INVOICE_NUM IN VARCHAR2 )
IS
  CURSOR INV_CUR
  IS
    SELECT AIA.INVOICE_ID ,
      APS.VENDOR_NAME ,
      AIA.INVOICE_NUM ,
      AIA.INVOICE_AMOUNT ,
      AIA.INVOICE_DATE
    FROM AP_INVOICES_ALL AIA,
      AP_SUPPLIERS APS
    where 1             =1
    AND APS.VENDOR_ID = P_VENDOR_ID
    AND AIA.INVOICE_NUM = P_INVOICE_NUM;
begin
--  FND_FILE.PUT_LINE (FND_FILE.log,'BEFORE THE FOR LOOP');
--  FND_FILE.PUT_LINE (FND_FILE.OUTPUT,'BEFORE THE FOR LOOP');
  FOR INV_REC IN INV_CUR
  LOOP
    FND_FILE.PUT_LINE (FND_FILE.OUTPUT,'INVOICE ID    '||':-'||'  '||INV_REC.INVOICE_ID||chr(13) ||'SUPPLIER NAME '||':-'||'  '||INV_REC.VENDOR_NAME||chr(13) ||'INVOICE NUMBER'||':-'||'  '||INV_REC.INVOICE_NUM||chr(13) ||'INVOICE AMOUNT'||':-'||'  '||INV_REC.INVOICE_AMOUNT||chr(13) ||'INVOICE DATE   '||':-'||'  '||INV_REC.INVOICE_DATE);
    FND_FILE.PUT_LINE (FND_FILE.log,'INVOICE ID    '||':-'||'  '||INV_REC.INVOICE_ID||chr(13) ||'SUPPLIER NAME '||':-'||'  '||INV_REC.VENDOR_NAME||chr(13) ||'INVOICE NUMBER'||':-'||'  '||INV_REC.INVOICE_NUM||chr(13) ||'INVOICE AMOUNT'||':-'||'  '||INV_REC.INVOICE_AMOUNT||chr(13) ||'INVOICE DATE  '||':-'||'  '||INV_REC.INVOICE_DATE);
  end LOOP;
--  FND_FILE.PUT_LINE (FND_FILE.log,'AFTER THE FOR LOOP');
--  FND_FILE.PUT_LINE (FND_FILE.OUTPUT,'AFTER THE FOR LOOP');
end;
/