cAN008 ;Gelijkhouden bestanden ;%AN008 ; [ 10/19/00  10:12 AM ]
 Q
 ;
T0 ;Gelijkhouden bestanden ;
 ;
T0F ;Interaction des fichiers ;
 ;
T0E ;Gelijkhouden bestanden ;
 ;
 ; =========================================================
 ; het intern nummer van het 2' bestand = inhoud B-index 101
 ; =========================================================
 ; in het 2' bestand is B-index 131 = index v/h 1' bestand
 ; =========================================================
 ;
 ;
 ; Deze functie wordt opgeroepen vanuit $P(^DMA(UQA,USA,0,2),D)
 ;
O S $ZT="TRAP^cAN000" I $G(EXTTOOL) G OZ            ; openen
 N DMS S DMS=^DMA(UQA,USA,0,"DMS")
 I $D(^DMS(Q,DMS,2)) G O1
 I '$D(^DMS(0,DMS,2)) G OZ
O1 N BB M BB=B
 S $P(B(1),D,31)=UI1 I '$P(B(1),D,30) S $P(B(1),D,30)=0
 N UQC,USC S UQC=$P(^(2),D),USC=$P(^(2),D,2) I $L(UQC),$L(USC) D
 . N UI1 S UI1=$P(B(1),D) I UI1="" Q
 . N SW2,ULOG S SW2=1 D U^cAN000
 M B=BB
OZ S OK=2 Q
 ;
 ;
 ; Deze functie wordt opgeroepen vanuit $P(^DMA(UQA,USA,0,3),D)
 ;
W S $ZT="TRAP^cAN000" I $G(EXTTOOL) G WZ            ; wijzigen
 N DMS S DMS=^DMA(UQA,USA,0,"DMS")
 I $D(^DMS(Q,DMS,2)) G W1
 I '$D(^DMS(0,DMS,2)) G WZ
W1 N BB M BB=B
 S $P(B(1),D,31)=UI1 I '$P(B(1),D,30) S $P(B(1),D,30)=0
 I DMS'="AR",DMS'="ARA" S $P(B(1),D,31)=$$DI^cAN000($P(B(1),D,2),$P(B(1),D))
 N MEM M MEM=ULOG
 N UQC,USC S UQC=$P(^(2),D),USC=$P(^(2),D,2) I $L(UQC),$L(USC) D
 . N UI1 S UI1=$P(B(1),D) I UI1="" Q
 . D U^cAN000
 M B=BB
 M ULOG=MEM
WZ S OK=2 Q
 ;
 ;
 ; Deze functie wordt opgeroepen vanuit $P(^DMA(UQA,USA,0,4),D,2)
 ;
V S $ZT="TRAP^cAN000" I $G(EXTTOOL) G VZ            ; verwijderen (niv.2)
 N DMS S DMS=^DMA(UQA,USA,0,"DMS")
 I $D(^DMS(Q,DMS,2)) G V1
 I '$D(^DMS(0,DMS,2)) G VZ
V1 N BB M BB=B
 S $P(B(1),D,31)=UI1 I '$P(B(1),D,30) S $P(B(1),D,30)=0
 N MEM M MEM=ULOG
 N UQC,USC S UQC=$P(^(2),D),USC=$P(^(2),D,2) I $L(UQC),$L(USC) D
 . N UI1 S UI1=$P(B(1),D) I UI1="" Q
 . D U^cAN000
 M B=BB
 M ULOG=MEM
VZ Q
 ;
 ;
 ; Deze functie wordt opgeroepen vanuit $P(^DMA(UQA,USA,0,4),D,2)
 ;
X S $ZT="TRAP^cAN000" I $G(EXTTOOL) G XZ            ; verwijderen (KILL)
 N DMS S DMS=^DMA(UQA,USA,0,"DMS")
 I $D(^DMS(Q,DMS,2)) G X1
 I '$D(^DMS(0,DMS,2)) G XZ
X1 N BB M BB=B
 S $P(B(1),D,31)=UI1 I '$P(B(1),D,30) S $P(B(1),D,30)=0
 N MEM M MEM=ULOG
 N UQC,USC S UQC=$P(^(2),D),USC=$P(^(2),D,2) I $L(UQC),$L(USC) D
 . N UI1 S UI1=$P(B(1),D) I UI1="" Q
 . D U^cAN000,K^cAN000
 M B=BB
 M ULOG=MEM
XZ Q
 ;
 ;
 ; Opbouwen 2' bestand
 ;
1(Q,DMS) S $ZT="TRAP^cAN000"                               ; opbouwen
 I $D(^DMS(Q,DMS,2)) G 11
 I '$D(^DMS(0,DMS,2)) G YZ
11 S (UQA,USA)=""
13 S UQA=$O(^DMA(UQA),-1) I UQA="" G YZ
 I UQA=9 G 13
15 S USA=$O(^DMA(UQA,USA)) I USA="" G 13
 I $G(^(USA,0,"DMS"))'=DMS G 15
 S SW4=0,SW3=1,I=""
17 S SW4=$O(^DMA(UQA,USA,SW4)) I SW4="" G 2
19 S I=$O(^DMA(UQA,USA,SW4,I)) I I="" G 17
 S U7=$G(^(I,16)) I U7\100>SW3 S SW3=U7\100
 G 19
 ;
2 D DMS^cAN000("UQC","USC",DMS,1) I UQC=""!(USC="") G YZ
 S UREF=^DMC(UQC,USC,"DATA","REF"),UI1=0,USL=D
21 S UI1=$O(@UREF) I UI1="" G YZ
 K A,B D R^cAN000 M A=B S UFU="O" D O    ; set data + indexen
 I $P(B(1),D,30)=2 S UFU="V" D V         ; kill indexen
 G 21
 ;
YZ Q
 ;
 ;
 ; Controle(s)
 ;
C(Q,DMS) G ^cAN0081
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84