package Atomic_Action is procedure Perform; Atomic_Action_Failure, Atomic_Action_Time_Out, Atomic_Action_Late_Activation: exception; end Atomic_Action;