cT701 ;LINK KALANDERMAAND-BOEKJAAR ;%T70 ; [ 11/24/97  5:04 PM ]
 ;
T0 ;Link kalandermaand-boekjaar ;
 ;
T0F ;Liaison période-année compt. ;
 ;
T0E ;Link kalandermaand-boekjaar ;
 G 1
 ;
 ; 1e boekingsperiode huidig boekjaar ; laatste BP huidig boekjaar
1 S HBP1=$P(@("^"_Q_"BA(2)"),D,3),HBP2=$P(^(2),D,2),VBJ=$p(^(2),D,4,99)
 ;
2 K ^HULP(boot,$J)
22 S HBJ=HBP2\1,HBP=HBP1,HJ="",VBP=HBP        ; huidig boekjaar
 ; definitie perioden huidig boekjaar
 F H=1:1 S HBP=HBP+.01 S:HBP#1>.12 HBP=HBP\1+1.01 Q:HBP>HBP2  d
 . ;  S HBP=$E(HBP_0,1,7)   ; 10e maand
 . s HJ=HJ_HBP_D,HMEM=HBP
 S ^($J,HBJ)=HJ
 ; definitie volgende 50 boekjaaren van 12 perioden per jaar
24 S HBP=HMEM F HBJ=HBJ+1:1:HBJ+50 S HJ="" d
 . F H=1:1:12 S HBP=HBP+.01 S:HBP#1>.12 HBP=HBP\1+1.01 d
 .. s HJ=HJ_HBP_D I H=12 S ^(HBJ)=HJ
 ; definitie vorige boekjaren
26 f x=1:1 q:'$l(VBJ)  d  
 . s VBP1=$p(VBJ,D,3),VBP2=$p(VBJ,D,2),VBJ=$p(VBJ,D,4,99)
 . s HBJ=VBP2\1,HBP=VBP1,HJ="",VBP=HBP
 . F H=1:1 S HBP=HBP+.01 S:HBP#1>.12 HBP=HBP\1+1.01 Q:HBP>VBP2  d
 .. s HJ=HJ_HBP_D i H=12 s ^(HBJ)=HJ
28 ; definitie vorige 45 boekjaren van 12 perioden per jaar
 s HBJ=VBP f HBJ=HBJ:-1:HBJ-45 s HJ="",HBP=HBJ-1 d
 . F H=1:1:12 S HBP=HBP+.01 S:HBP#1>.12 HBP=HBP\1+1.01 d
 .. s HJ=HJ_HBP_D I H=12 S ^(HBJ\1)=HJ
 ;
YZ K HBP1,HBP2,HBJ,HBP,HJ,HMEM,H,VBP1,VBP2,VBJ Q
 ;
 ;
 ;        EXTERN OPGEROEPEN SUBROUTINES
 ;
 ; Input boekjaar - Output string met kalendermaanden
S1 S R=^HULP(boot,$J,R)
S1Z Q
 ;
 ; Input kalendermaand - Output boekjaar
S2 S H0=+R,R="" F H1=1:1 S R=$O(^HULP(boot,$J,R)) Q:R=""  I ^(R)[(H0_D) Q
S2Z K H0,H1 Q
 ;
 ; Output : 1-ste toegankelijke boekjaar (1-ste niet afgesl. boekjaar)
S3 S R=$O(^HULP(boot,$J,0))
S3Z Q
 ;
Z X ^cZ
ZZ ; 05.02.01 - 16 u 23 * V7.84