cAN2205	;Openen volgens patroon ;%AN220 ; [ 09/12/01  12:00 PM ]
	G 0
	;
T0	;Openen volgens patroon ;
	;
T0F	;Création suivant masque ;
	;
T0E	;Creation by template ;
	;
	; patroon
0	N IREF S IREF=^DMC("DAM","NR.PATROON","DATA","INDEX")
01	S K=$S($L(INP):INP,1:0)
03	S J=USL F I=1:1:$L(J,D) S $P(J,D,I)="?"
05	N P F I=1:1:SW3 S P(I)=$G(@IREF@(K,I-1),J)
	i $d(PATROON),$l(PATROON) x PATROON
	;
	; variabelen inlezen + pagina 1
1	K B M B=P M B=@BI
10	F I=1:1:SW3 F J=1:1:$L(B(I),D) I $P(B(I),D,J)="?" S $P(B(I),D,J)=""
	I $P(B(1),D,28)="" S $P(B(1),D,28)=$H   ; VJ 12.09.01
	I $P(B(1),D,29)="" S $P(B(1),D,29)=$G(QU)
	I $L($G(Q(49))),'$L($P(B(1),D,49)) S $P(B(1),D,49)=Q(49)  ; KU : 30.01.06
11	K A M A=B S SW2=1
	;
	; nieuwe index1
7	I SW2>1 G 8
71	L +Q(USC):5 E  D TXT^cAFA1(14) G 71     ; VJ-17.11.99
73	I UI1="" S UI1=$$NR^cAN000
75	L +@UREF:2 E  D E(0),TXT^cAFA1(14) S K="-" G YZ
77	I $D(@UREF) D E(1) G YZ                 ; VJ-19.10.00
	;
	; schrijven na elke pagina
8	S OK=0 I $L($P(UXX,D)) X $P(UXX,D) I 'OK D E(1) G YZ
81	I OK'=1 D U^cAN000
83	L -Q(USC)
	;
9	; geen controle input overige pagina's
91	; geen gekoppelde modules
	; einde openen
93	I $L($P(UXX,D,2)) X $P(UXX,D,2)
95	L -@UREF S NUI1=UI1,K=""
	;
YZ	Q
	;
E(RL)	; opbouw ^HULPE (RL = lock-switch)
	S $ZT="TRAP^cAN000"
	L -Q(USC) I RL L -@UREF
	N E S R="E" D ^cA348     ; E=nieuw volgnummer in ^HULPE
	S ^HULPE(E,UFU)=$T(+0)_D_Q_D_$G(C)_D_UQC_D_USC_D_UREF_D_UI1_D_$D(@UREF)_D_RL_D_UQA_D_USA_D_SW3_D
	F I=1:1:SW3 S ^HULPE(E,UFU,I)=B(I)
	S ^HULPE(E,"X")=UXX
EZ	S K="-" Q
	;
ZZ	; 25.04.06 - 15 u 44 * V8.07