Sample code for UTL_FILE Out Bound

SQL Query: To know the path of UTL_FILE directory

                      SELECT  *
                      FROM     V$PARAMETER
                      WHERE  name  =  'utl_file_dir';


Code:

set serveroutput on;
/

DECLARE

l_file_rec  UTL_FILE.FILE_TYPE;

BEGIN

l_file_rec := UTL_FILE.FOPEN('utl_file_dir path'
                                                     ,'XXVE_FNDUSER_DATA.txt'
                                                     ,'W');

-- note, file name support .txt,.xls,.csv
                         
FOR i IN(SELECT user_id,user_name,last_update_date,last_updated_by
                 FROM    fnd_user
               WHERE rownum<100)
LOOP

UTL_FILE.PUT_LINE(l_file_rec,i.user_id||','||i.user_name||','||i.last_update_date||','||i.last_updated_by                                        );

END LOOP;
UTL_FILE.FCLOSE(l_file_rec);
EXCEPTION
WHEN OTHERS THEN
DBMS_OUTPUT.PUT_LINE('Exception at Others Block'||','||SQLCODE||','||SQLERRM);
END;





Source: http://psoug.org/snippet/UTL_FILE-import-data_102.htm

Sample Code to create AR Credit Memo Using AR_INVOICE_API_PUB.CREATE_INVOICE

Code:

set serveroutput on;
/

declare
l_return_status             varchar2(1);
l_msg_count                number := null;
l_msg_data                  varchar2(2000):=null;
l_batch_source_rec     ar_invoice_api_pub.batch_source_rec_type ;
l_trx_header_tbl          ar_invoice_api_pub.trx_header_tbl_type ;
l_trx_lines_tbl             ar_invoice_api_pub.trx_line_tbl_type  ;
l_trx_dist_tbl               ar_invoice_api_pub.trx_dist_tbl_type  ;
l_trx_salescredits_tbl  ar_invoice_api_pub.trx_salescredits_tbl_type ;
l_cust_trx_id               number;
lv_sqlerrm                   varchar2(4000) :=NULL;
ln_msg_index_out        number;

BEGIN
     
   mo_global.init ('AR');
   mo_global.set_policy_context ('S', 'org_id');
   fnd_global.apps_initialize(user_id,resp_id,resp_appl_id);

  l_batch_source_rec.batch_source_id :=  200;
 
 
  l_trx_header_tbl(1).trx_header_id             :=  9810;       -- header id for sample
-- Pass Transaction number, if system automatically generates then not required
  l_trx_header_tbl(1).trx_number                 :=  '98985699';
  l_trx_header_tbl(1).trx_date                      :=  sysdate;
  l_trx_header_tbl(1).trx_currency               :=  'GBP';
  l_trx_header_tbl(1).trx_class                     :=  'CM';      
  l_trx_header_tbl(1).cust_trx_type_id         := 1019;      -- cust_trx_type_id
  l_trx_header_tbl(1).bill_to_customer_id    :=  628528;
    l_trx_header_tbl(1).finance_charges        :=  null;
  l_trx_header_tbl(1).status_trx                     :=  'OP';
  l_trx_header_tbl(1).printing_option            :=  'PRI';
 
  l_trx_lines_tbl(1).trx_header_id                  :=  9810;         -- pass trx_header_id from header value
  l_trx_lines_tbl(1).trx_line_id                      :=  1013;         -- pass trx_line_id
  l_trx_lines_tbl(1).line_number                   :=  1;
  l_trx_lines_tbl(1).description                     :=  'Test';
  l_trx_lines_tbl(1).quantity_invoiced          :=1;
  l_trx_lines_tbl(1).unit_selling_price :=  -10;   --unit_selling_price should be negative for creditdemo
--  l_trx_lines_tbl(1).uom_code                   :=  'EA';         -- Not required for Credit Memo
  l_trx_lines_tbl(1).line_type                     :=  'LINE';
--l_trx_lines_tbl(1).AMOUNT                  := -10;

  l_trx_dist_tbl(1).trx_dist_id                    :=  1014;
  l_trx_dist_tbl(1).trx_line_id                     :=  1013;
  l_trx_dist_tbl(1).trx_header_id               :=  9810;
  l_trx_dist_tbl(1).ACCOUNT_CLASS    := 'REV';
  l_trx_dist_tbl(1).percent                          := 100;
  l_trx_dist_tbl(1).CODE_COMBINATION_ID := 3175;      -- pass correct CODE_COMBINATION_ID of transaction type
 
   
--Here we call the API to create Invoice with the stored values


    AR_INVOICE_API_PUB.CREATE_INVOICE
    (p_api_version                => 1.0
    ,p_init_msg_list              => FND_API.G_FALSE
    ,p_commit                      => 'F'
    ,p_batch_source_rec      => l_batch_source_rec
    ,p_trx_header_tbl           => l_trx_header_tbl
    ,p_trx_lines_tbl              => l_trx_lines_tbl
    ,p_trx_dist_tbl                => l_trx_dist_tbl
    ,p_trx_salescredits_tbl   => l_trx_salescredits_tbl
--    ,x_customer_trx_id     => l_cust_trx_id
    ,x_return_status             => l_return_status
    ,x_msg_count                => l_msg_count
    ,x_msg_data                  => l_msg_data
    );
 
    dbms_output.put_line('l_return_status: '||l_return_status);

    IF l_return_status = fnd_api.g_ret_sts_error OR
        l_return_status = fnd_api.g_ret_sts_unexp_error THEN

        dbms_output.put_line('FND_MSG_PUB.Count_Msg ');
        dbms_output.put_line(l_return_status||':'||sqlerrm);
       
     FOR l_msg_count IN 1..FND_MSG_PUB.Count_Msg
      LOOP
     
      FND_MSG_PUB.Get(p_msg_index     => l_msg_count
                     ,p_encoded       => 'F'
                     ,p_data          => l_msg_data
                     ,p_msg_index_OUT => ln_msg_index_out
                     );
   
       lv_sqlerrm   := SUBSTR(lv_sqlerrm||REPLACE(l_msg_data,CHR(10),''),1,3998);
     
       dbms_output.put_line(l_return_status||':'||lv_sqlerrm);

     END LOOP;

    FND_MSG_PUB.Delete_Msg;
           
    ELSE
         
         dbms_output.put_line('FND_MSG_PUB.Count_Msg else :'||FND_MSG_PUB.Count_Msg);
     
    END IF;
  -- commit;
END;

/

Note: In case CM not created even though API returns success status, you can check API error messages using the following query

Query : 
              select * from ar_trx_errors_gt;
              select * from  ar_trx_header_gt;

On-Hand Available Serial Numbers Query

Query: 


SELECT DISTINCT msn.serial_number,msn.lot_number
FROM   mtl_serial_numbers        msn
,      mtl_system_items_b        msi
,      mtl_onhand_quantities     moq
,      mtl_secondary_inventories sub
WHERE  msi.inventory_item_id       = msn.inventory_item_id
AND    msi.organization_id         = msn.current_organization_id
AND    msi.inventory_item_id       = moq.inventory_item_id
AND    msi.organization_id         = (XXIP_CEMLI_UTILS_PKG.CHECKGET_DDLD_ENABLED_ORG_ID(msi.organization_id))
AND    moq.lot_number              = msn.lot_number
AND    moq.inventory_item_id       = msn.inventory_item_id
AND    msn.current_status          = 3
AND    msn.reservation_id is null
AND    moq.organization_id         = sub.organization_id
AND    moq.subinventory_code       = sub.secondary_inventory_name
AND    sub.reservable_type         = 1
AND    msi.segment1                = :p_item
AND    msn.serial_number           NOT IN ( select  msnt.FM_SERIAL_NUMBER
                                           from    mtl_material_transactions_temp  mmtt
                                           ,       MTL_TRANSACTION_LOTS_TEMP mtlt
                                           ,       MTL_SERIAL_NUMBERS_TEMP  msnt
                                           where   mmtt.TRANSACTION_TEMP_ID = mtlt.TRANSACTION_TEMP_ID
                                           and     mtlt.SERIAL_TRANSACTION_TEMP_ID = msnt.TRANSACTION_TEMP_ID
                                           and     mmtt.INVENTORY_ITEM_ID          = msi.inventory_item_id
                                           and     mmtt.ORGANIZATION_ID            = msi.organization_id
                                           UNION
                                           select  msnt1.FM_SERIAL_NUMBER
                                           from    mtl_material_transactions_temp  mmtt1
                                           ,       MTL_SERIAL_NUMBERS_TEMP  msnt1
                                           where   mmtt1.TRANSACTION_TEMP_ID = msnt1.TRANSACTION_TEMP_ID
                                           and     mmtt1.INVENTORY_ITEM_ID          = msi.inventory_item_id
                                           and     mmtt1.ORGANIZATION_ID            = msi.organization_id
                                          )
order by msn.serial_number;


Query Credits: Siva Gollapalle