procedure s_delete_pet( delete_pet_input ) {

delete_pet_start:

  {{^PREFERENCES.debug-output}}\* {{/PREFERENCES.debug-output}}print <<"Pet delete", delete_pet_input, v_pets >>;
  
  \* transaction
  delete_pet_trans( delete_pet_input );

  return;
}