cABVBK14	;Functies Class Definition-Applicaties ; cABVBK14
	;
T2	;Sleutel bij de talen is niet ingevuld, opslaan onmogelijk.;
T3	;Fout bij openen taal ;Fout bij wijzigen taal ;Fout bij verwijderen taal ;
T6	;Klasse;Groep;Interne naam;Applicatie
T8	;Taal;
T9	;Combinatie Interne naam/Afwijking is niet uniek binnen deze klasse.
T13	;R;W;O;V;Z;
	;
T2E	;Key in languages is empty, save impossible.;
T3E	;Error creating language ;Error changing language ;Error deleting language ;
T6E	;Class;Group;Internal name;Application
T8E	;Language;
T9E	;Combination Internal name/Deviation is not unique in this class .
	;
YZ	Q
	;
	;DDICAppl-DefPerTaalGrid mtemp opbouwen
BTEMP(GRIDID,APPLID,COPY,DDPSW)	
	; GRIDID: volgnr van de grid : indien '' : volgnummer ophalen
	; APPLID: intern applicatie-nr (^DDP(,"KLASSE.APPL) of ^DDC(,"KLASSE.APPL"))
	; COPY : Het gaat om het kopiëren van een DataDictionary-record
	; DDPSW: 0=Definities uit ^DDC halen (klassen)
	; 	1=Definities uit ^DDP halen (programmeurs)
	S $ZT="ERR^cAFVBF01"
	N @$$INITVAR^cAFVBA01("GRIDID,APPLID,COPY,DDPSW")	
	;
	F i="GRIDID","APPLID","COPY","DDPSW" S @i=$G(@i)
	I '$L(GRIDID) S GRIDID=$$GRIDID^cAFVBF01()
	K ^mtemp99(GRIDID,"COMMON") S OK=GRIDID
	;
	S DMS="DC.APPL.TAAL" I DDPSW S DMS="DP.APPL.TAAL"
	D DMS^cAN000("UQC","USC",DMS,1) I '$L(UQC)!'$L(USC) G BTEMPZ
	;
	S UREF=^DMC(UQC,USC,"DATA","REF")
	S TKI1=""
	F  S TKI1=$O(^DTEXT(0,"TEXT.9000",TKI1)) Q:TKI1=""  D     ; aflopen taalcodes
	. S TKB=^(TKI1,0)
	. I $P(TKB,D,30) Q  ; BG of verwijderd
	. S TK=TKI1 ;$P(TKB,D)
	. S UI1=APPLID_" "_TK
	. S NODE=$G(@UREF@(0))
	. S B=$S(COPY:"",$L(NODE):UI1,1:"")_D_TK_D_$P(NODE,D,3)
	. S ^mtemp99(GRIDID,"COMMON",UI1,0)=B
BTEMPZ	Q OK
	;
	; gewijzigde rij in VB.NET opslaan in de mtemp (CDEF-DefPerTaalGrid)
SAVEROW(SELECTEDID,TITEL)	
	N (SELECTEDID,TITEL)
	S $ZT="^dmERROR",OUT=1,D="\",U=";"
	I SELECTEDID="" G SAVEROWZ
	S GRIDID=$P(SELECTEDID,"||")
	S SELECTEDID=$P(SELECTEDID,"||",2)
	S $P(^mtemp99(GRIDID,"COMMON",SELECTEDID,0),D,3)=$G(TITEL)
SAVEROWZ	Q OUT
	;
	;	
STEMP(GRIDID,APPLID)	; Opslaan van de mtemp in de ^DDC(,"DC.APPL.TAAL"
	; GRIDID: volgnr van de grid : indien '' : volgnummer ophalen
	; APPLID : intern nr van ^DDC(,"DC.APPL.TAAL"
	; 
	; Q, QT en QU komen vanuit Methode via de methodgenerator
	; 
	S $ZT="ERR^cAFVBF01"
	N @$$INITVAR^cAFVBA01("GRIDID,APPLID")
	S OK=1
	I '$L($G(GRIDID)) G STEMPZ
	I '$L($G(APPLID)) S OK="0\"_$P($T(@("T2"_QT)),U,2) G STEMPZ
	;
	S I1=""
STEMPA	S I1=$O(^mtemp99(GRIDID,"COMMON",I1)) I I1="" G STEMPZ
	S B=^(I1,0)
	S UI1=$P(B,D)     ; key
	S TK=$P(B,D,2)    ; taalkode
	S TIT=$P(B,D,3)   ; titel
	S B(101)=APPLID,B(102)=TK,B(103)=TIT            
	K TAB
	I $L($P(B,D)) G STEMPC
STEMPB	; openen
	; B(101), B(102) omvormen naar TAB(1), TAB(2) ...
	S UI1=B(101)_" "_B(102)
	S TAB(1)=B(101)_D_B(102)_D_B(103)
	D P^cAN220("DC.APPL.TAAL","",UI1,"TAB","") I K="-" S OK="0\"_$P($T(@("T3"_QT)),U,2)_TK G STEMPZ
	G STEMPA
STEMPC	; wijzigen	
	S UI1=$P(B,D)
	M TAB=B
	D B^cAN220("DC.APPL.TAAL","",UI1,"TAB") I K="-" S OK="0\"_$P($T(@("T3"_QT)),U,3)_TK G STEMPZ
	G STEMPA
	;
STEMPZ	Q OK
	;
	;
HDRDCA(CLASSID,AFWIJK,VOLGNR,INTNAAM,NOCLASS,DDP)	; header Class definition-applicatie
	N HCLASSID,HAFWIJK,HVOLGNR,HINTNAAM,CGROEP,CINTNAAM
	S $ZT="^dmERROR"
	S U=";"
	D QT^cAFVBO01
	S UREF="^DDC" I $G(DDP) S UREF="^DDP"
	I '$L(CLASSID),('$L(AFWIJK)),('$L(VOLGNR)),('$L(INTNAAM)) D  G HDRDCAA
	. S HAFWIJK=..B132,HVOLGNR=..B102,HINTNAAM=..B103
	. ;I '$G(DDP) S HCLASSID=..B101.DCId
	. ;S HCLASSID=..B101.DPId
	. S HCLASSID=..B101GetObjectId()    ; 23.02.07 GM/RD
	S HCLASSID=CLASSID,HAFWIJK=AFWIJK,HVOLGNR=VOLGNR,HINTNAAM=INTNAAM
HDRDCAA	S CGROEP=$P(@UREF@(0,"KLASSE",HCLASSID,0),"\",3) 
	I $L(CGROEP) S CGROEP=$$DATA^cAFVBO01("DKODE",0,"CODE.9022",CGROEP,101)
	S CINTNAAM=$P(@UREF@(0,"KLASSE",HCLASSID,0),"\")
	S OUT="\\"
	I 'NOCLASS S OUT=OUT_"\"_$P($T(@("T6"_QT)),U,2)_";"_HCLASSID_" "_CGROEP_" "_CINTNAAM_"; \\\"
	S OUT=OUT_"\"_$P($T(@("T6"_QT)),U,5)_";"_$S($L(HAFWIJK):HAFWIJK_" ",1:"")_HVOLGNR_" "_HINTNAAM_"; \\\"
HDRDCAZ	Q OUT
	;	
HDRDCAL()	; header Class definition-Applicatie-DefPerTaal-logging
	N OUT
	S $ZT="^dmERROR"
	S OUT=$$HDRDCA(..B101.B101.DCId,..B101.B132,..B101.B102,..B101.B103,"0")
	S OUT=OUT_"\"_$P($T(@("T8"_QT)),";",2)_";"
	;X "S R=..B102."_$P("OmschrijvingNederlands#OmschrijvingFrans#OmschrijvingEngels#OmschrijvingDuits","#",QTU)
	S R=$$DATA^cAFVBO01("DTEXT","0","TEXT.9010",..B102,(102+((QTU-1)*10)))
	S OUT=OUT_R_";"
HDRDCPAZ	Q OUT
	;	
CHKUNIQ(CLASSID,INTNAAM,AFW,UI1)	;Controleren of Klassenaam+Interne naam klasse+afwijking uniek is
	Q 1  ; KU : 26.10.05  : hoeft niet meer zodat er meerdere zelfde B-indexen kunnen bestaan
	S $ZT="^dmERROR"
	N @$$INITVAR^cAFVBA01("CLASSID,INTNAAM,AFW,UI1")
	D QT^cAFVBO01
	S R=$$UI1^cAFA1("DC.PROP","M1",CLASSID,INTNAAM,AFW)
	S OUT=1 I $L(R),R'=$g(UI1) S OUT="0\"_$P($T(@("T9"_QT)),U,2)
CHKUNIQZ	Q OUT
	;
DMA	; Execute bij wijzigen / openen applicatie
	I UFU="O" F n=2:1:6 S $P(B(n),D)=$P($T(@("T13")),U,n)
	F n=2:1:6 I '$P(B(n),D,6) F i=2:1:5  S $P(B(n),D,i)=""
DMAZ	Q
	;
NR(DCID)	; Haalt het volgende nr (interne naam) op voor de doorgegeven klasse
	; DCID: Intern nummer van de klasse
	S $ZT="^dmERROR"
	N @$$INITVAR^cAFVBA01("DCID")	
	;
	S DMS="DC.APPL",NR="" I '$L($G(DCID)) G NRZ
	D DMS^cAN000("UQC","USC",DMS,1) I '$L(UQC)!'$L(USC) G NRZ
	;
	S IREF=^DMC(UQC,USC,"DATA","INDEX2")
	S NR="zzz" S NR=$O(@IREF@("M1",DCID,NR),-1)
	S:$L(NR) NR=NR+1
	;
NRZ	Q +NR
	;
ZZ	; 29.08.07 - 10 u 22 * V8.09