Something

[office]
exten => s,1,Dial(Sip/200)
exten => _00[12345]XXXXXXXX,1,Macro(phonesystems,${EXTEN:1})
exten => _006XXXXXXXX,1,Macro(portables3,${EXTEN:2})
exten => _X.,1,Macro(intern,${EXTEN})
exten => _9,1,Macro(intern,${EXTEN})
exten => 201,1,Dial(Sip/201)
exten => 200,1,Dial(Sip/200)
exten => 202,1,Dial(Sip/202)
exten => 203,1,Dial(Sip/203)
exten => 208,1,Dial(IAX2/208)

[macro-portables]
exten => s,1,Set(${ARG1}=${EXTEN})
exten => s,2,Dial(Zap/1/62ww0033${ARG1})
exten => s,3,HangUp()

[macro-portables2]
exten => s,1,Set(${ARG1}=${EXTEN})
exten => s,2,Dial(Zap/2/62ww0033${ARG1})
exten => s,3,HangUp()

[macro-portables3]
exten => s,1,Set(${ARG1}=${EXTEN})
exten => s,2,Dial(Zap/3/0033${ARG1},,g)
exten => s,3,HangUp()


[macro-intern]
exten => s,1,Set(${ARG1}=${EXTEN})
exten => s,2,Dial(Zap/1/${ARG1})

[macro-intern2]
exten => s,1,Set(${ARG1}=${EXTEN})
exten => s,2,Dial(Zap/2/${ARG1})

[macro-phonesystems]
exten => s,1,Set(${ARG1}=${EXTEN})
exten => s,2,Dial(Sip/${ARG1}@phonesystems,60,tTwW)

[macro-phonesystems2]
exten => s,1,Set(${ARG1}=${EXTEN})
exten => s,2,Dial(Sip/${ARG1}@phonesystems2,60,tTwW)


[office2]
exten => s,1,Dial(Sip/201)
exten => _00[12345]XXXXXXXX,1,Macro(phonesystems,${EXTEN:1})
exten => _006XXXXXXXX,1,Macro(portables3,${EXTEN:2})
exten => _X.,1,Macro(intern2,${EXTEN})
exten => _9,1,Macro(intern2,${EXTEN})
exten => 201,1,Dial(Sip/201)
exten => 200,1,Dial(Sip/200)
exten => 202,1,Dial(Sip/202)
exten => 203,1,Dial(Sip/203)
exten => 208,1,Dial(IAX2/208)


[office3]
exten => 201,1,Dial(Sip/201)
exten => 200,1,Dial(Sip/200)
exten => 202,1,Dial(Sip/202)
exten => 203,1,Dial(Sip/203)
exten => _00[12345]XXXXXXXX,1,Macro(phonesystems2,${EXTEN:1})
exten => _000.,1,Macro(phonesystems2,$(EXTEN:1))
exten => 208,1,Dial(IAX2/208)
exten => _006XXXXXXXX,1,Macro(portables3,${EXTEN:2})

[office4]
exten => 201,1,Dial(Sip/201)
exten => 200,1,Dial(Sip/200)
exten => 202,1,Dial(Sip/202)
exten => 203,1,Dial(Sip/203)
exten => 208,1,Dial(IAX2/208)

exten => _006XXXXXXXX,1,ChanIsAvail(Zap/3)
exten => _006XXXXXXXX,2,NoOp(Result of Zap/3 Availability test = "${AVAILCHAN}")
exten => _006XXXXXXXX,3,GotoIf($["${AVAILCHAN}"="Zap/3"]?4:6)
exten => _006XXXXXXXX,4,Macro(portables3,${EXTEN:2})
exten => _006XXXXXXXX,5,Hangup
exten => _006XXXXXXXX,6,Dial(Zap/4/0ww${EXTEN}))})
exten => _006XXXXXXXX,7,Hangup

;exten => 101,1,Dial(Zap/4/0ww${EXTEN})
;exten => _006XXXXXXXX,2,NoOp(${FOO})
;exten => _006XXXXXXXX,3,Goto(${FOO})
;exten => _006XXXXXXXX,1,Macro(portables3,${EXTEN:2})
;exten => _006XXXXXXXX,1,Set(FOO=${IF($[ ${PORT} = 1]?Dial(Zap/4/0ww${EXTEN}):Macro(portables3,${EXTEN:2}))})
;exten => _006XXXXXXXX,1,gotoif,$[${PORT}=0]?[macro-portables3],s,1:[office4]101,1