IS there any API for work order less completion

DECLARE

 lv_process_status VARCHAR2(1);

 lv_process_message VARCHAR2(1000);

 lr_mtl_interface  inv.mtl_transactions_interface%ROWTYPE;

 lr_lots_interface inv.mtl_transaction_lots_interface%ROWTYPE;

 ln_erp_txn_id   NUMBER;

 ln_disposition_id NUMBER;

 ln_retval     NUMBER;

 lv_return_status  VARCHAR2(240);

 lv_msg_count    NUMBER;

 lv_msg_data    VARCHAR2(3000);

 lv_trans_count   NUMBER;

 ln_tl       NUMBER;

BEGIN

 fnd_global.apps_initialize(user_id   => 1270,

               resp_id   => 50738,

               resp_appl_id => 20003);

 SELECT mtl_material_transactions_s.nextval

  INTO lr_mtl_interface.transaction_interface_id

  FROM dual;

 dbms_output.put_line(lr_mtl_interface.transaction_interface_id);

 lr_mtl_interface.transaction_header_id   := lr_mtl_interface.transaction_interface_id;