Compare character pattern in a field

Hi,

I have a requirement to check if a variable matches a particular pattern.

The right value is - 9780194663762-0001

So I want to check the first 13 characters are numeric and then symbon '-' followed by 4 numerics and it should not all 0s

I tried simple CP as below in my program but not reliable though gives right output only to some extent.

IF wa_wbs2-wbs_element NP '+++++++++++++#-++++'.

      ENDIF.

Can any one think of something robust please?