[macro-set-ring]
exten => s,1,NoOp(${CHANNEL})
exten => s,2,Cut(TECH=CHANNEL,/,1)
exten => s,3,GoToIf($["${TECH}" = "Zap"]?zap,1)
exten => s,3,GoToIf($["${TECH}" = "SIP"]?sip,1)
                                                                                                                              
exten => zap,1,GoToIf($[${LEN(${CALLERIDNUM})} = 4]?zap,3)
exten => zap,2,SetVar(CADENCE=r2)
exten => zap,3,NoOp
                                                                                                                              
exten => sip,1,GoToIf($[${LEN(${CALLERIDNUM})} = 4]?sip,3)
exten => sip,2,SetVar(ALERT_INFO=<Bellcore-dr2>)
exten => sip,3,NoOp