cT00 ;OVERLOPENDE HISTORIEKEN ;%T00 ; [ 12/29/00  2:18 PM ]
 ;
T0 ;Overlopende historieken ;
 ;
T0F ;Historiques débodantes ;
 ;
T0E ;Crossing histories ;
 ;
 ; verzetten van 1JJJJMM.xx naar 1JJJJMM.0xx
1 S %I=BH,%L=BH+.999999
11 S %I=$O(^(%I)) I $E(%I,1,7)'=BH!(%I]%L) G Y
13 S %J=%I#1
15 S %J=%J/10 G 15:$D(^(BH+%J)) S ^(BH+%J)=^(%I) K ^(%I)
17 I $ZR["AR(" D
 . N %ZR,%P S %ZR=$ZR
 . S %P=$P(%ZR,"(")_"P("_$P(%ZR,"(",2) I $D(@%P)   ; set naked reference
 . I $D(^(%I)) S ^(BH+%J)=^(%I) K ^(%I)            ; afpunten rekeningen
 . I $D(@%ZR)   ; terugzetten naked reference
19 G 11
 ;
Y S BH=BH+.01,HIS=1 I $D(RHIS) S RHIS=1
YZ K %I,%J,%L Q
 ;
 ; VOORBEELD
 ;
S1 S X=D,$P(X,D,23)=D F S1=BJ:.01:BJ+.02 I '$D(^(S1)) S ^(S1)=X
S1A F X=0,1 I BC(X) S S1=X*.02+BJ,$P(^(S1),D,BX)=$P(^(S1),D,BX)+BC(X)
S1B S BH=BH\1 D:BPE @BPEC I HIS S S1="V"_FNR_D G S1D
S1C S S1=BH_"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 S1Z
S1D S BH=BH+.01 S:BH#1=0 HIS=0,BH=BH-1 D ^cT00:'HIS G S1C:'HIS,S1D:$D(^(BH+.01)) S:'$D(^(BH)) ^(BH)=""
S1E I ^(BH)'[S1 G S1D:$L(^(BH))+$L(S1)>255 S ^(BH)=^(BH)_S1
S1Z K S1,S2 S (BC(0),BC(1))=0 Q
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84