Someone

exten => _4XXX,1,Macro(stdexten,${exten})

[macro-stdexten]

exten => s,1,Set(ext=${DB(dnd/SIP/${ARG1})})
exten => s,2,Set(dnd=${DB(dnd/SIP/${ext})})
exten => s,3,Set(ARG2=${ARG1})
exten => s,4,GotoIf($[X${dnd}=X]?s-NOANSWER|1)
exten => s,5,Dial(${ARG1},15)
exten => s,6,Goto(s-${DIALSTATUS},1)

exten => s-BUSY,1,GotoIf($[${ARG2}=NONE]?3)
exten => s-BUSY,2,Voicemail(b${ARG2})
exten => s-BUSY,3,Hangup

exten => s-NOANSWER,1,GotoIf($[${ARG2}=NONE]?3)
exten => s-NOANSWER,2,Voicemail(u${ARG2})
exten => s-NOANSWER,3,Hangup

exten => _s-.,1,Goto(s-NOANSWER,1)

exten => a,1,VoicemailMain(${ARG1})
exten => a,2,Hangup