cAN102(OUT,RSLN,RSQ,RSDMS,RSO,RSB,RSI,RSX,RSTIT) ;Syn. ;%AN102 ; [ 01/04/01  8:20 AM ]
 N RSZ S RSZ="" G 1
 ;
T0 ;Relaties ;
 ;
T0F ;Relations ;
 ;
T0E ;Relations ;
 ;
 ; ingang met "zonder" toegelaten
Z(OUT,RSLN,RSQ,RSDMS,RSO,RSB,RSI,RSX,RSTIT) 
 N RSZ S RSZ=$$Z^cAFO1 G 1
 ;
 ; indeling inputzone(s)
S1 W /WSCROFF,/CUP(1,1),/WCMD I $L(RSZ) D
 . W /CUP(2,1),/cDR(1),/cDR(2,78)
 . W /CUP(2,$P(QW(QW),D,4)-$L(RSZ)-4),/cDR(1),/cDR(8)
 . W /CUP(1,$P(QW(QW),D,4)-$L(RSZ)-4),/cDR(3),/cDR(0)," ",RSZ
S1Z Q
 ;
 ; algemene initialisatie
1 N I,II,J,JJ,R,RSC,RSD,RSDD,RSJ,RSKEYS,RSL,RSM,RSN,RSQ2,RSREF,RSV,UQC,USC
10 S $ZT="TRAP^cAN000"
11 D DMS^cAN000("UQC","USC",RSDMS) S K="-" G YZ:'$L(UQC),YZ:'$L(USC),YZ:'$D(^DMC(UQC,USC))
13 S RSDD=^DMC(UQC,USC,"DATA"),RSREF=^("DATA","REF"),RSQ2=^("INDEX")
15 S R=$G(RSTIT,$P(^DMC(UQC,USC,"TAAL",$E(QT_"N")),D,2)) I R="" K RSTIT G 15
17 D P^cA612(RSLN,1,25-RSLN,80,1,1,1,1,$$UC^cAFA1($E(R))_$E(R,2,99),0,1,0,0,0)
19 S RSC=^DMC(UQC,USC,"SYN",0) D  G 4:RSC,Y
 . I $L($G(QU)) D                                  ; self-learning
 .. S I=$G(^DPAR(0,"PAR.DMS",RSDMS,QU),RSC)
 .. I $D(^DMC(UQC,USC,"SYN",I)) S RSC=I Q
 .. S RSC=$O(^(0))
 . S I=0 F  S I=$O(^DMC(UQC,USC,"SYN",I)) Q:I=""  D
 .. I ^(I,1,"B")=RSO S RSC=I,I=9999
 . S RSKEYS=""                                     ; extra keys
 . S I="" F  S I=$O(^DMC(UQC,USC,"SYN",0,0,I)) Q:I=""  S RSKEYS=RSKEYS_D_I
 ;
 ; test op input
2 I $L(RSZ),RSI="" G 6
21 G 5
 ;
 ; opladen combinatie
4 K RSM M RSM=^DMC(UQC,USC,"SYN",RSC) S RSN=0 D S1
41 G 2
 ;
 ; scroll in selektie
5 D ^cAN1021
51 I RK=27 S K="-" G Y
53 I RK=28 G Y
55 I RK=29 G 6:$L(RSZ),5
58 I $D(^DMC(UQC,USC,"SYN",0,0,RK,0)) D C^cA612 X ^(0) G NEW:$L($G(NUI1)),15
59 G 5
 ;
 ; zonder
6 S K=$P(QW(QW),D,4)-$L(RSZ)-2 W /CUP(1,K),/SGR(7),RSZ,/CUP(1,K),/WDSP
61 D ^cAFA0("",0,0,0,0,$P(RSKEYS,D,2,99),0,0,0) W /SGR(0),RSZ
63 I RK=27 S K="-" G Y
65 I RK=28 S K="" G Y
67 I RK=29 G 5
68 I $D(^DMC(UQC,USC,"SYN",0,0,RK,0)) D C^cA612 X ^(0) G NEW:$L($G(NUI1)),15
69 G 6
 ;
 ; uitgang igv 1x openen ipv continu
NEW S K=NUI1 K NUI1 G YA
 ;
 ; einde
Y D C^cA612
YA I $L(K),K'="-" D
 . N UI1 S UI1=K I '$D(@RSREF) S K="-"
YZ S @OUT=K Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84