begin
    -- 受け取った値をデコードする。
    :P2_SUBJECT  := utl_raw.cast_to_varchar2(utl_encode.base64_decode(utl_raw.cast_to_raw(:P2_SUBJECT)));
    :P2_PROPERTY := utl_raw.cast_to_varchar2(utl_encode.base64_decode(utl_raw.cast_to_raw(:P2_PROPERTY)));
    :P2_OBJECT   := utl_raw.cast_to_varchar2(utl_encode.base64_decode(utl_raw.cast_to_raw(:P2_OBJECT)));
    -- 削除と更新のために、以前の値を保持する。
    :P2_SUBJECT_OLD  := :P2_SUBJECT;
    :P2_PROPERTY_OLD := :P2_PROPERTY;
    :P2_OBJECT_OLD   := :P2_OBJECT;
end;