cAN230 ;Algemeen vraagprogramma ;%AN230 ; [ 01/04/01  9:49 AM ]
 G YZ
 ;
T0 ;Algemeen vraagprogramma ;
T1 ;Keuze;
 ;
T0F ;Programme de question général ;
T1F ;Choix;
 ;
T0E ;Question program ;
T1E ;Choice;
 ;
 ; algemeen
A(USA,UQA,UQM) S I=2,J="O",K=2 G 0
 ; openen met bevestiging
P(USA,UQA,UQM) S I=2,J="P",K=2 G 0
 ; raadplegen (UFU="R")
R(USA,UQA,UQM) S I=2,J="R",K=2 G 0
 ;
 ; test
0 I $S\1024<15 D PGMOV^cAFA1 G YZ
 ;
 ; algemene initialisatie
1 N A,B,C,OK,SW1,SW2,SW3,SW4,SW5,U1,U2,U3,U7,UFU,UI1,ULOG,UQC,UREF,USC,USM,UTIT,UTX,UXX,UCONF
10 S $ZT="TRAP^cAN000"
11 S UFU=J,UTX=$P($T(@("T1"_QT)),U,K) I J="P" S UFU="O",UCONF=1
13 G YZ:$G(USA)="",YZ:$G(UQA)=""
15 S USM=$G(^DMA(UQA,USA,0,"M")),UTIT=$G(^("TIT")),UXX=$G(^(I))
17 S I=$G(^DMA(UQA,USA,0,"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
21 I $P(UTIT,D,5)=2 S I=$P(^DMA(UQA,USA,0,"TIT","ALT"),D,QTU)
22 E  S I=""
23 I '$P(UTIT,D,5) 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
 ;
 ; reference
33 S UREF=""
 ;
 ; overgang naar functionaliteit
4 G ^cAN2301
 ;
YZ Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84