COPY(OQ,WQ) ;Kopiëren Q-waardes ; COPY [ 11/03/00  3:26 PM ]
 ; OQ = Q-waarde vanwaar moet gekopïeerd worden
 ; WQ = Q-waardes naar waar te kopïeren
 ; WQ = Q1_" "_Q2_" "_Q3...
 ;
 ;
1 ; copieren menu's
 N Q
 S D="\"
10 W !!,OQ," naar ",WQ_" ? (J/N) " R K I K'="J"&(K'="j") G YZ
11 S DEL=0 I $L(WQ," ")=1 W !,OQ_"* verwijderen ? (J/N) " R K G 10:K="^" S DEL=(K="J"!(K="j")) 
13 I $ZV'["MSM" W !!,"Namespace : "
 I $ZV["MSM" W !!,"UCI : "
 R UCI
 I UCI="^" G 11:$L(WQ," ")=1,1
 I $ZV'["MSM",$L(UCI),UCI'?2.8UN G 13
 I $ZV["MSM",$L(UCI),UCI'?3U1","3U G 13
 I '$L(UCI) S UCI=$ZU(5) W UCI
 W !!,"Ok ? (J/N) " R K I K'="J"&(K'="j") G 13
 ;
2 S Q=$P(WQ," "),WQ=$P(WQ," ",2,99) I '$L(Q) G YZ
 I $ZV'["MSM" s ge="^"_OQ
 I $ZV["MSM" S ge=OQ
 F  s ge=$$NEXT(ge) q:ge=""  d
 . s nge=Q_$p(ge,OQ,2,99)
 . w !,nge m @("^|"""_UCI_"""|"_nge)=@ge
 . i $g(DEL) K @ge
 ; overhalen ^DATA....
3  f i="DMS","DATA","DATB","INDEX","DIN","DLOG","DPAR","DKODE","DTXT","DCIND","DCAT","DPW","DHIS","UTILI" d
 . m @("^|"""_UCI_"""|"_i_"(Q)")=@("^"_i_"(OQ)")
 . i $g(DEL) k @("^"_i_"(OQ)")
 . W !,i
 ; veranderen Q-waarde in bestand
4  f ge="UL","OD","TO","TOL","TB","PV","FA" d
 . s nge="^|"""_UCI_"""|"_Q_ge
 . f  s nge=$zo(@nge) q:nge=""  i $tr($p($p(nge,",",4),")"),"")>100,$p(@nge,D,14)=OQ s $p(@nge,D,14)=Q
 s nge="^|"""_UCI_"""|"_Q_"TOA" f  s nge=$zo(@nge) q:nge=""  i $p(@nge,D,2)=OQ S $P(@nge,D,2)=Q 
 ;
5 I UCI=$ZU(5) D S1^cAN002("DAM","DMS")
 I UCI'=$ZU(5) W !!,"Gelieve nog 'Herrekenen indexen ^DMS' uit te voeren in "_UCI
 G 2
 ;
YZ Q
 ;
NEXT(ge) ; ophalen volgend bestand
 I $ZV'["MSM" s ge=$o(^$GLOBAL(ge)) s:$e(ge,2,$L(OQ)+1)'=OQ ge="" G NEXTZ
 s:$e(ge)="^" ge=$e(ge,2,99)
 s ge=$o(@("^"_ge)) i $e(ge,1,$L(OQ))'=OQ s ge="" G NEXTZ
 s ge="^"_ge
NEXTZ Q ge
 ;
 ;
ZZ ; 03.11.00 - 17 u 18 * V7.81