COPY(QO,WQ) ;NEW PROGRAM [ 06/13/2000  10:40 AM ]
 ; QO = Q-waarde vanwaar moet gekopïeerd worden
 ; WQ = Q-waardes naar waar te kopïeren
 ; WQ = Q1_" "_Q2_" "_Q3...
 ;
 ;
1 ; copieren menu's
 W !!,QO," naar ",WQ_" ? (J/N) " R K I K'="J"&(K'="j") G YZ
 ;
2 S Q=$P(WQ," "),WQ=$P(WQ," ",2,99) I '$L(Q) G YZ
 s ge=QO
 F  s ge=$o(@("^"_ge)) q:$e(ge,1,$L(QO))'=QO  d
 . s nge=Q_$p(ge,QO,2,99)
 . w !,nge m @("^"_nge)=@("^"_ge)
 ; overhalen ^DATA....
 f i="DMS","DATA","DATB","INDEX","DIN","DLOG","DPAR","DKODE" m @("^"_i_"(Q)")=@("^"_i_"(QO)") W !,i
 D S1^cAN002("DAM","DMS")
 G 2
 ;
YZ Q
 ;
ZZ ; KU - 29.03.99