cAN200 ;ALGEMEEN BEHEERPROGRAMMA ;%AN200 ; [ 02/12/01  4:52 PM ]
 G YZ
 ;
T0 ;Algemeen beheerprogramma ;
T1 ;Openen;Wijzigen;Raadplegen;Verwijderen;Sequentieel wijzigen;Controlelijst;Wijzigen in groep;
T2 ;U heeft geen toegang tot dit programma ;
 ;
T0F ;Programme de gestion général ;
T1F ;Création;Modification;Consultation;Annulation;Modification séquentielle;Liste de contrôle;Modification en masse;
T2F ;Vous n'avez pas d'accès à ce programme ;
 ;
T0E ;Administration program ;
T1E ;Creation of;Modification of;Consultation of;Remove;Sequential modification of;Checklist of;Modifaction in group of;
T2E ;You don't have access to this program ;
 ;
 ; openen (gewoon)
O(USA,UQA,UQC,UQM,USYN) S I=2,J="O",K=2,R="^cAN201" G YZ
 ;
 ; openen (patroon)
P(USA,UQA,UQC,UQM,UCONT) S I=2,J="O",K=2,R="^cAN205" G 0
 ;
 ; wijzigen
W(USA,UQA,UQC,UQM,USYN,U70) N WIJZ S I=3,J="W",K=3,R="^cAN202",WIJZ=1 G 0
 ;
 ; sequentieel wijzigen
S(USA,UQA,UQC,UQM,USYN) N WIJZ S I=3,J="W",K=6,R="^cAN206",WIJZ=2 G 0
 ;
 ; automatisch wijzigen
G(USA,UQA,UQC,UQM,USYN) N WIJZ S I=3,J="W",K=8,R="^cAN209",WIJZ=3 G 0
 ;
 ; raadplegen
R(USA,UQA,UQC,UQM,USYN) S I=6,J="R",K=4,R="^cAN203" G 0
 ;
 ; verwijderen
V(USA,UQA,UQC,UQM,USYN) S I=4,J="V",K=5,R="^cAN207" G 0
 ;
 ; verwijderen
X(USA,UQA,UQC,UQM,USYN) S I=4,J="V",K=5,R="^cAN204" G 0
 ;
 ; controlelijst
L(USA,UQA,UQC,UQM,USYN) S I=7,J="L",K=7,R="^cAN208" 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
10 S $ZT="TRAP^cAN000"
11 S UFU=J,UTX=$P($T(@("T1"_QT)),U,K)
12 G YZ:$G(USA)=""
13 I $G(UQA)="",$G(UQC)="",$G(UQM)="" S UQM=$G(^DMS(Q,USA,"DMM",UFU)),UQA=$P($G(^DMS(Q,USA,"DMA",UFU)),D),USA=$P($G(^(UFU)),D,2)
14 G YZ:$G(USA)="",YZ:$G(UQA)="",YZ:'$D(^DMA(UQA,USA,0,"DMS"))
 ;
15 S C=^("DMS") D DMS^cAN000("UQC","USC",C) I UQC=""!(USC="") G YZ
16 S USM=$G(^DMA(UQA,USA,0,"M")),UTIT=$G(^("TIT")),UXX=$G(^(I))
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
21 I $P(UTIT,D,5)=2 S I=$P(^DMA(UQA,USA,0,"TIT","ALT"),D,QTU)
22 E  S I=$P(^DMC(UQC,USC,"TAAL",$E(QT_"N")),D,2)
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))
 ;
 ; reference + synoniemen + aantal pagina's & nodes
3 S UREF=^DMC(UQC,USC,"DATA","REF")
31 I $G(USYN)="" S USYN="S UI1=$$^cANSYN("""_C_""")"
33 S USL=D,$P(USL,D,29)=D,(SW2,SW3,SW5)=1,I=0 I UFU="W",$G(U70) S SW2=0
35 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 D
 .. I 'SW2,U7=U70 S SW2=SW4
 .. I U7\100>SW3 S SW3=U7\100
37 I 'SW2 S SW2=1
 ;
 ; beveiliging
4 I UFU="O",'$$O^cAN007(C) G Y
41 ; I UFU="W",'$$W^cAN007(C) G Y
43 ; I UFU="R",'$$R^cAN007(C) G Y
45 ; I UFU="V",'$$V^cAN007(C) G Y
47 ; I UFU="L",'$$L^cAN007(C) G Y
49 I "OWV"[UFU S I=$G(^DMC(UQC,USC,"LOGTAB")) I $L(I) S I=$NA(@I),I=$O(^LOGTAB(I,"master","")) I $L(I),I'=$ZU($ZV'["MSM"*5) G Y
 ;
 ; overgang naar functionaliteit
5 G @R
 ;
Y S K=$P($T(@("T2"_QT)),U,2) D TXT^cAFA1(250),C^cA612
YZ Q
 ;
ZZ ; 14.02.01 - 14 u 40 * V7.84