cTA00 ;OVERLOPENDE HISTORIEKEN ;%T00 ; [ 04/20/98  3:39 PM ]
 ;
T0 ;Overlopende historieken ;
 ;
T0F ;Historiques débodantes ;
 ;
T0E ;Overlopende historieken ;
 ;
1 S %I=S3,%L=S3_".999999"
11 S %I=$O(^(%I)) I $E(%I,1,14)'=S3!(%I]%L) G Y
13 S %J=$E(%I,15,99)
15 S %J=%J/10 G 15:$D(^(S3_%J)) S ^(S3_%J)=^(%I) K ^(%I) G 11
 ;
Y S S4=0,HIS=1
YZ K %I,%J,%L Q
 ;
 ; VOORBEELD
 ;
S4 S S3=2_$E(R5_$J("",7),1,7)_(BP*100),S4=0 I HIS S S1="V"_FNR_D G S4B
S4A S S1=S3_"V"_SRT,S2=$S($D(^(S1)):^(S1),1:D),^(S1)=FNR_D_FDT_D_($P(S2,D,3)+BC(0))_D_($P(S2,D,4)+BC(1))_D_$P(S2,D,5,99) G S4Z
S4B S S4=S4+.01,S2=S3_S4 S:S4=1 HIS=0 D ^cTA00:'HIS G S4A:'HIS,S4B:$D(^(S3_(S4+.01))) S:'$D(^(S2)) ^(S2)=""
S4C I ^(S2)'[S1 G S4B:$L(^(S2))+$L(S1)>255 S ^(S2)=^(S2)_S1
S4Z K S1,S2,S3,S4 S (BC(0),BC(1))=0 Q
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84