cAN203 ;Raadplegen ;%AN200 ; [ 01/04/01  8:33 AM ]
 G 1
 ;
T0 ;Raadplegen ;
 ;
T0F ;Consultation ;
 ;
T0E ;Consultation ;
 ;
 ; data per rubriek
S3 S U7=U2(16),K="" I U7>100,U7<(SW3+1*100) S K=$P(B(U7\100),D,U7#100)
S3A I $L(U2(17)) X U2(17)
S3Z Q
 ;
 ; scherm tonen
S1 S SW5=1 K C D S1^cAN000(SW2)
S1A S U1=0 F  S U1=$O(C(U1)) Q:U1=""  D S2^cAN000(U1),S3,S3^cAN000(K)
S1Z S SW5=0 K REFRESH Q
 ;
 ; Xecute na scherm
S2 S OK=0 I $L($P(UXX,D)) X $P(UXX,D)
S2Z Q
 ;
 ; ophalen data
1 K A,B,EXIT X USYN G YZ:K="-"!(K=",")!(RK=27)
11 D R^cAN000 M A=B
13 S:'SW2 SW2=1
 ;
 ; scherm tonen + keuze scherm/module
2 D S1 I $L($P(UXX,D,3)) S OK=0 X $P(UXX,D,3) I 'OK D NOA^cAFA1 G 1
 I $G(^DMC(UQC,USC,"SPEC",UFU)) X $P(^(UFU),D,2)
20 D S2 G 4:$G(EXIT),1:OK
21 D ^cAN006(UTX,22,UQM,USM,UFU,SW4,"","")
23 I RK=25,SW2>1 S SW2=SW2-1 G 2
25 I RK=26,SW2<SW4 S SW2=SW2+1 G 2
27 I RK'=28 G 21
29 I $E(K)'="." S (K,U1)="."_$TR(K,"-",",")
 ;
 ; uitvoeren scherm/module
3 S U1=$E(K,2,$L(K)),K="-" G 21:U1>SW4!($E(U1)=0)!(U1=SW2),4:U1=","
31 D ^cAN001(UTX,22,UQM,USM,UFU,SW4,"S SW2=K D S1,S2",U1)
33 X X I $G(REFRESH) D S1
35 I '$G(EXIT) G 20:'$g(TERMINATE)
 ;
 ; Xecute op 't einde
4 I $L($P(UXX,D,2)) X $P(UXX,D,2)
41 I '$G(EXIT) G 1:'$g(TERMINATE)
 ;
YZ K EXIT D C^cA612 Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84