cAN220 ;Extern programma ;%AN220 ; [ 01/04/01  9:01 AM ]
 G YZ
 ;
T0 ;Extern programma ;
T1 ;Extern openen;Extern wijzigen;Blok wijzigen;Extern verwijderen;Controlelijst;
T2 ;U heeft geen toegang tot dit programma ;
 ;
T0F ;Programme externe ;
T1F ;Création externe;Modification externe;Modification en bloc;Annulation externe;Liste de contrôle ;
T2F ;Vous n'avez pas d'accès a ce programme ;
 ;
T0E ;Extern program ;
T1E ;Extern creation;Extern modification;Modification in bloc;Extern remove;Checklist;
T2E ;You don't have access to this program ;
 ;
 ; openen
P(USA,UQA,UI1,BI,INP) N I,J,R,WIJZ S I=2,J="O",K=2,R="^cAN2205" G 0
 ;
 ; wijzigen
W(USA,UQA,UI1,BI,INP) N I,J,R,WIJZ S I=3,J="W",K=3,WIJZ=1,R="^cAN2201" G 0
 ;
 ; blok wijzigen
B(USA,UQA,UI1,BI) N I,J,R,WIJZ S I=3,J="W",K=4,WIJZ=3,R="^cAN2201" G 0
 ;
 ; verwijderen (niveau 2)
V(USA,UQA,UI1) N I,J,R,WIJZ S I=4,J="V",K=5,R="^cAN2207" G 0
 ;
 ; verwijderen (kill)
X(USA,UQA,UI1) N I,J,R,WIJZ S I=4,J="V",K=5,R="^cAN2204" G 0
 ;
 ; controlelijst
L(USA,UQA,UI1,INP) N I,J,R,WIJZ S I=7,J="L",K=6,R="^cAN2208" 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,ULOG,UQC,UREF,USC,UTX,UXX,EXTWIJZ
10 S $ZT="TRAP^cAN000"
11 S EXTWIJZ=$S($G(WIJZ):1,1:J),UFU=J,UTX=$P($T(@("T1"_QT)),U,K)
12 G YZ:$G(USA)=""
13 I $G(UQA)="" S 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
17 S UXX=$G(^DMA(UQA,USA,0,I))
19 I EXTWIJZ,WIJZ=1 S BI(BI)=INP,BI="BI"
 ;
 ; aantal pagina's & nodes
2 S USL=D,$P(USL,D,29)=D,(SW3,SW5)=1,SW2=0,I=0
21 F  S I=$O(^DMA(UQA,USA,I)) Q:I=""  S SW4=I,J="" D
 . F U1=1:1 S J=$O(^DMA(UQA,USA,I,J)) Q:J=""  S U7=$G(^(J,16)) D
 .. I EXTWIJZ,U7,$D(@BI@(U7)) S EXTWIJZ(SW4,U1)=U7
 .. I U7\100>SW3 S SW3=U7\100
 ;
 ; reference
3 S UREF=^DMC(UQC,USC,"DATA","REF")
 ;
 ; 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)
YZ S K="-" Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84