Oracle EBS: API for PO cancel

  fnd_global.apps_initialize(user_id => v_user_id, resp_id => v_resp_id, resp_appl_id => v_resp_appl_id );

  mo_global.init('PO'); -- need for R12

    --call the Cancel API for PO number PO123

    PO_Document_Control_PUB.control_document (
      1.0, -- p_api_version
      FND_API.G_TRUE, -- p_init_msg_list
      FND_API.G_TRUE, -- p_commit
      l_return_status, -- x_return_status
      'PO', -- p_doc_type
      'STANDARD', -- p_doc_subtype
      NULL, -- p_doc_id
      r1.po_num, --'PO123', -- p_doc_num
      NULL, -- p_release_id
      NULL, -- p_release_num
      NULL, -- p_doc_line_id
      r1.line_num, --null, -- p_doc_line_num
      NULL, -- p_doc_line_loc_id
      r1.shipment_num, --null, -- p_doc_shipment_num
      'CANCEL', -- p_action
      SYSDATE, -- p_action_date
      NULL, -- p_cancel_reason
      'N', -- p_cancel_reqs_flag
      NULL, -- p_print_flag
      NULL ); -- p_note_to_vendor