cICHKSYS ;CONTROLE DUBBELE POORTEN ;%ICHKSYS; [ 06/13/97  9:54 AM ]
 ;
T0 ;CONTROLE DUBBELE POORTEN ;
T1 ;GEEN DUBBELE POORTEN GEVONDEN\"[] = ok";
T2 ;VERWIJDEREN VAN DE DUBBELE POORTEN\".[] = ja   -[] = einde programma";
 ;
T0F ;CONTROLE DOUBLE POORTEN ;
T1F ;PAS DE DOUBLE PORTES TROUVEES\"[] = ok";
T2F ;RADIER LES PORTES DOUBLES\".[] = oui   -[] = fin du programme";
 ;
1 D INI^cQ6 S K=$P($T(@("T0"_QT)),U,2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
 S UCO=$ZU(5) D IN^cQMSMSW("MGR,"_boot)
 S %SYS="^SYS(CFG,""DDB"",PRT)",%SYSS="^SYS(CFG,""LAT"",""SERVER"",S)"
 S CFG=$$CONFIG^cQ9
 ;
 S PRT=63 K A,B S FP=420 W @FS S FP=379 W @F S $Y=3,SW=0
 F  S PRT=$O(@%SYS) Q:PRT=""  D
 . S L=$P(@%SYS,",",2) D:$D(A(L))  S A(L)=$G(A(L))_PRT_D
 .. S SW=1,B(PRT)=L
 .. W !?2,$J(PRT,4)," = ",L," = " F I=1:1:$L(A(L),D)-1 W $J($P(A(L),D,I),4)
 .. I $Y>19 S R="K\22\3\[] = ok\\1\\K=""""\" D R0 S $Y=4,FP=2079 W @F,@F1
 ;
 S FP=124 W @FS
 S R="K\22\3\"_$P($T(@("T"_(SW+1)_QT)),U,2)_"\1\\K=""""&'SW!("".-""[K&$L(K)&SW)\" D R0
 I SW,K="." S PRT=0 F  S PRT=$O(B(PRT)) Q:PRT=""  K @%SYS
 ;
2 S PRT=63
 F  S PRT=$O(@%SYS) Q:PRT=""  D
 . S L=@%SYS I $P(L,",")="LATP" S S=$P($P(L,",",2),"@",2) I '$D(@%SYSS) S @%SYSS=""
 S S=""
 F  S S=$O(@%SYSS) Q:S=""  D
 . S PRT=63,SW=0 F  Q:SW  S PRT=$O(@%SYS) Q:PRT=""  S:$P($P(@%SYS,",",2),"@",2)=S SW=1
 . I 'SW K @%SYSS
 ;
YZ D IN^cQMSMSW(UCO) 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
 ;
ZZ ; 28.08.97 - 11 u 02 * V6.3.02