KDUWJ G 1 ;BEGIN EN EINDDATUM UIT WEEKNUMMER EN JAAR ;KDUWJ; [ 05/07/99  10:45 AM ]
 ;Input : R="outputvariabele\JJJJ\WW"
 ;
1 New FDate,LDate
 S FDate=$$EXTDATE^vhDTyp($$CALCDATE^vhDTyp($$INTDATE^vhDTyp($P(R,D,2)_"/"_$P(R,D,3),"DW4"),"W","FD"),"DKP")
 S LDate=$$EXTDATE^vhDTyp($$CALCDATE^vhDTyp($$INTDATE^vhDTyp($P(R,D,2)_"/"_$P(R,D,3),"DW4"),"W","LD"),"DKP")
 S @$P(R,D)=FDate_D_LDate
 Q
 ;
Z X ^cZ Q
ZZ ; 19.03.91 -  8 u 57