cAT142 ;VRAAG MET KONTROLE ^%BA(3,S1,S2) ;%AT14 ; [ 12/29/00  5:05 PM ]
 G 1               ; do uit ^_Q_KH(0,xxx) ;do naar %T278 ;
 ;
T0 ;Vraag met controle ^cBA(3,S1,S2) ;
 ;
T0F ;Question avec controle ^cBA(3,S1,S2) ;
 ;
T0E ;Question with check ^cBA(3,S1,S2) ;
 ;
 ; BEPALEN LANDKODE
S2 S S1="" I $D(@("^"_Q_"BA(39)")) S S1=$P(^(39),D,3)
S2A I S1="" S S1="BE"
S2Z Q
 ;
 ; BEPALEN LAY-OUT VOOR WAT GEPRINT IPV INPUT
S1 D S2
S1A S S2=$P(U2,U,21),S2=$S(S2="BRCTR":0,S2="BNCTR":1,1:99)
S1B I $D(^cBA(3,S1,S2)) S S3="S U3="_^(S2) X S3
S1Z K S1,S2,S3 Q
 ;
 ; VRAAGSTELLING MET KONTROLE
1 G 2:'$D(@("^"_Q_"BA(100)")),2:^(100)'=2
11 S R="K\22\3\"_$P(U2,U)_"\SC1\"_$P(U2,U,9)_"\\K=""-""!(K="","")" I $L($P(U2,U,11)) S R=R_"!("_$P(U2,U,11)_")"
13 D S2
15 S S2=$P(U2,U,21),S2=$S(S2="BRCTR":2,S2="BNCTR":3,1:99)
17 I $D(^cBA(3,S1,S2)) S $P(R,D,8)=^(S2)
19 K S1,S2 D R0 G YZ
 ;
2 S R="K\2000\1\3\1\1\1\1\" D ^cT278 S:K'="-" K=$P(^(K,0),D,9)
 ;
YZ Q
 ;
SC1 W !?2,$P(U2,U,10) Q
 ;
R0 S R0=$P(R,D,5) I $L(R0),R0'["""" S $P(R,D,5)=R0_"^"_$T(+0)
R0A S R0=$P(R,D,7) I $L(R0),R0'="DCTR" S $P(R,D,7)="",R1=$P(R,D,8),R0=$P($T(@R0),U,2,99) S:$L(R1) R0=R0_"&("_R1_")" S $P(R,D,8)=R0
R0Z S $P(R,D,12)=$T(+0) K R0,R1 D ^cA100 Q  ; v11 30.05.94
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84