cT67 ;Parameters overschrijvingen ;%AN200 ; [ 01/21/99  2:34 PM ]
 G 1
 ;
T0 ;Parameters overschrijvingen ;
 ;
T0F ;Paramètres virements ;
 ;
T0E ;Parameters overschrijvingen ;
 ;
 ; node 1 opzetten (b-index 202 tot 204) vóór het wijzigen
 ; I("B")=aantal borderellen
 ; I("F")=filename, I("P")=path
1 N I,J S I=$G(@("^"_Q_"BA(""%T"",4,UI1)"),"A:\"_$P(@UREF@(0),D,10)_".TXT")
11 S J=$L(I,D),I("F")=$P(I,D,J),I("P")=$E(I,1,$L(I)-$L(I("F"))-1)
13 S I("B")=$G(@("^"_Q_"BA(""%T"",5,UI1)"),3)
15 S $P(@UREF@(1),D,2)=$TR(I("P"),D,"/"),$P(^(1),D,3)=I("F"),$P(^(1),D,4)=I("B")
19 G YZ
 ;
 ; node 1 kopiëren nà het wijzigen
2 N I,J S I=$TR($P(B(2),D,2,3),"/",D),J=$E(I,1,2),I=$E(I,3,999)
21 I I["\\" S I=$P(I,"\\")_D_$P(I,"\\",2,999) G 21
23 S @("^"_Q_"BA(""%T"",4,UI1)")=J_I
25 S @("^"_Q_"BA(""%T"",5,UI1)")=$P(B(2),D,4)
29 G YZ
 ;
YZ Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84