WijzigDocHoofding ;Wijzig de hoofding van een toelevering
 
WijzigHoofding
 S FP=$P(UD,D,2)+1*100+1 W @F,@F1
 S (X,K)=100,Y=$D(@("^"_Q_UGL_"(0,0)"))
 F  S X=$N(^(X)) Q:X=-1  Q:X'?.N  S K=K+1,A(K)=^(X)
 K B S SW12=1,B(1)=@("^"_Q_UGL_"(LC,TR,1)") F I=2:1:6 I $D(^(I)) S B(I)=^(I)
 S U1=100,U4=0
ToonRubrieknummers S U1=$N(A(U1)) G OpvragenTeWijzigenElement:U1<0 S U2=A(U1)
 S FP=$P(U2,U,2)*100+$P(U2,U,3) W @F S U4=U4+1 W:U4<10 " " W U4 G ToonRubrieknummers
OpvragenTeWijzigenElement I $G(Rubriek) S K=Rubriek
 E  S FP=2203+F60 W @F,@F1,"NUMMER ELEMENT : ",@F0 R K
 G OpvragenTeWijzigenElement:K?.E1C.E!(K=""),OpslagGegevens:"-,"[K,OpvragenTeWijzigenElement:'$D(A(K+100)) S U2=A(K+100)
 I $P(U2,U,12),@$P(U2,U,15) S FP=2403+F60 W @F,@F2,@F4,"NIET WIJZIGBAAR [] = ok ",@F5,@F0 R K G OpslagGegevens:$D(Rubriek),OpvragenTeWijzigenElement
 I $L($P(U2,U,19)),@$P(U2,U,20) S U3=$P(U2,U,19) X U3 S U3=K G OpslagGegevens:K="-"&$G(Rubriek),OpvragenTeWijzigenElement:K="-",OpslagGegevens:K=",",VerwerkEenRubriek160
VerwerkEenRubriek S FP=2203+F60 W @F,@F1,$P(U2,U,1)," : ",$E(PNT,1,$P(U2,U,9)) W:$L($P(U2,U,10)) !?2,$P(U2,U,10)
VerwerkEenRubriek130 S FP=2200+F60+($L($P(U2,U,1))+6) W @F,@F0 R K G VerwerkEenRubriek130:K?.E1C.E,OpslagGegevens:K="-"&$G(Rubriek),OpvragenTeWijzigenElement:K="-",OpslagGegevens:K=","
 S X=$P(U2,U,11)_"&'(K[D)&($L(K)'>$P(U2,U,9))" S:$L($P(U2,U,21)) X=X_"&("_$P($T(@$P(U2,U,21)),";",2,99)_")" I @X G VerwerkEenRubriek160
 G VerwerkEenRubriek
VerwerkEenRubriek160 S U3=K I $L($P(U2,U,8)) S U3="S U3="_$P(U2,U,8) X U3
 S FP=$P(U2,U,5)*100+$P(U2,U,6) W @F,$E(BLA,1,$P(U2,U,9)),$E(BLA,1,$P(U2,U,13)),@F,U3
 I $P(U2,U,16)'?.N!($P(U2,U,16)<101) G OpslagGegevens:$P(U2,U,16)?.N&$G(Rubriek),OpvragenTeWijzigenElement:$P(U2,U,16)?.N S @$P(U2,U,16)=K G OpslagGegevens:$G(Rubriek),OpvragenTeWijzigenElement
 S X=$P(U2,U,16)\100,Y=$P(U2,U,16)#100,U2="" S:(Y-1) K=D_K S B(X)=$P(B(X),D,1,Y-1)_K_D_$P(B(X),D,Y+1,99) G OpvragenTeWijzigenElement:'$G(Rubriek)
OpslagGegevens K U2,U3 S U1=100,X="^"_Q_UGL_"(LC,TR,1)=B(1)",@X F I=2:1:6 I $D(^(I)) S ^(I)=B(I)
 G Exit:K=","
VerwijderRubrieknummers S U1=$N(A(U1)) G Exit:U1=-1 S U2=A(U1)
 I '$P(U2,U,22) S FP=$P(U2,U,2)*100+$P(U2,U,3) W @F,"  " G VerwijderRubrieknummers
Exit
 K A,B
 Q
 
RUBRIEK(Rubriek) 
 Goto WijzigHoofding
 
 ; Datumcontrole $P($T(DCTR),";",2)
DCTR ;$$DCTR^vhRtn2(.K)
 ;