cAN1000 ;INPUT-ROUTINE ;%AN100 ; [ 10/20/00  10:11 AM ]
 ;
T0 ;Inputroutine ;
 ;
T0F ;Routine d'entrée ;
 ;
T0E ;Inputroutine ;
 ;
1 N R0,R5,RW,RKEYS
10 S $ZT="TRAP^cAN000"
11 S R0=$G(@$P(R,D)) S:R0="-"!(R0=",")!($P(R,D)="K")!'$P(R,D,13) R0=""
13 S R5=$P(R,D,8) S:R5="" R5=1 ; S R5=R5_"&(K'[D)&(K'[$C(34))"
15 I $L($P(R,D,7)) D
 . I $P(R,D,7)="DCTR" S R5=R5_"&("_$P($T(DCTR^cA100),U,2,999)_")"
 . I $P(R,D,7)'="DCTR" D
 .. N RX X "S RX=$P($T("_$P(R,D,7)_"^"_$P(R,D,12)_"),U,2,999)"
 .. S R5=R5_"&("_RX_")"
17 S RKEYS=$S($P(R,D,14):"25\26\27\29\31\32",1:"27") I $P(R,D,14)["#" D
 . N RX,RY F RX=2:1 S RY=$P($P(R,D,14),"#",RX) Q:'RY  S RKEYS=RKEYS_D_RY
 ;
 ; tekst vraag + commentaar
2 D O^cA612($P(R,D,2),1,25-$P(R,D,2),80,0,1,0,1)
21 W /CUP(1,$P(R,D,3)),$P(R,D,4)," :"
23 I $L($P(R,D,5)) D
 . I $P(R,D,5)["""" W !?2,@$P(R,D,5)
 . I $P(R,D,5)'["""" D
 .. I $P(R,D,5)["^"!($P(R,D,12)="") D @$P(R,D,5)
 .. I $P(R,D,5)'["^",$L($P(R,D,12)) D @($P(R,D,5)_"^"_$P(R,D,12))
 ;
 ; input
3 D ^cAFA0(R0,$P(R,D,2),$P(R,D,3)+$L($P(R,D,4))+3,$P(R,D,6),0,RKEYS,$P(R,D,15),$P(R,D,16),0)
30 I RK=27 S K="-",RK=28
31 I RK'=28 G Y:$P(R,D,14),3
33 S RW=0 I $P(R,D,11) S K=$$UC^cAFA1(K)
35 I @R5 S RW=1
37 I $E(K)="-"!($E(K)=",") S K=$E(K) I @R5 S RW=1
39 I 'RW D S2 S R0=K G 3
 ;
Y D C^cA612
YA I RK=28 S @$P(R,D)=K
YZ Q
 ;
S2 W $C(7) Q
 ;
 ; opladen driver
DRV D DRV^cAFA0 Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84