cAN224(USA,UQA,UPW)    ;Beheer K.O.S.-schermen ;%AN224; [ 02/24/00  10:11 AM ]
 G 1
 ;
T0 ;Beheer K.O.S.-schermen;
 ;
T0F ;Gestion des écrans K.O.S.;
 ;
T0E ;Beheer K.O.S.-schermen;
 ;
 ; algemene initialisatie
1 S $ZT="TRAP^cAN000"
11 S UTX=$P($T(@("T0"_QT)),U,2)
12 G YZ:$G(USA)="",YZ:$G(UQA)="",YZ:'$D(^DMA(UQA,USA,0,"DMS")),YZ:'$D(^("KOS"))
13 S (C,DMS)=^("DMS") D DMS^cAN000("UQC","USC",C) I UQC=""!(USC="") G YZ
15 S UKOS=^DMA(UQA,USA,0,"KOS"),UTIT=$G(^("TIT"))
17 S I=$G(^("WIN")) F J=1:1:8 S $P(I,D,J)=+$P(I,D,J)
19 S J=I
 ;
 ; window + titel tonen
2 I 'UTIT D O^cA612($P(J,D),$P(J,D,2),$P(J,D,3),$P(J,D,4),$P(J,D,5),$P(J,D,6),$P(J,D,7),$P(J,D,8)) G 3
22 S I=$P(^DMC(UQC,USC,"TAAL",$E(QT_"N")),D,2)
23 S I=UTX_" "_I
24 I $P(UTIT,D,8)=1 S I=$$UC^cAFA1($E(I))_$E(I,2,99)
25 I $P(UTIT,D,8)=2 S I=$$UC^cAFA1(I)
26 D P^cA612($P(J,D),$P(J,D,2),$P(J,D,3),$P(J,D,4),$P(J,D,5),$P(J,D,6),$P(J,D,7),$P(J,D,8),I,$P(UTIT,D,2),$P(UTIT,D,3),$P(UTIT,D,4),$P(UTIT,D,6),$P(UTIT,D,7))
 ;
 ; aantal pagina's & nodes
3 S USL=D,$P(USL,D,29)=D,(SW2,SW3,SW5)=1,I=0
31 F  S I=$O(^DMA(UQA,USA,I)) Q:I=""  S SW4=I,J="" D
 . F  S J=$O(^DMA(UQA,USA,I,J)) Q:J=""  S U7=$G(^(J,16)) I U7\100>SW3 S SW3=U7\100
 ;
 ; test KOS-schermen + gelijklopende DMA's
33 F I=1:1:$L(UKOS,D) S J=$P(UKOS,D,I) D
 . I $P(J,U),$P(J,U)'>SW4 S UKOS($P(J,U))=J
35 S KOS="",SW2=$O(UKOS("")),(I,J,DMA)=""
 ;
 ; overgang naar beheer
4 G ^cAN2241
 ;
Y D C^cA612
YZ Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84