cABTIT(DMX)        ; BEHEER ^DMx ;%ABTIT ; [ 02/24/00  1:40 PM ]
 ;
T1 ;Titel tonen;0[] = neen   1[] = ja;Neen;Ja;
T2 ;Lijnnummer;0[] = kader;Kader;1;2;3;4;5;6;7;8;9;10;
T3 ;Positie;0[] = links   1[] = midden   2[] = rechts;Links;Midden;Rechts;
T4 ;Kleur;1[] = bold   4[] = onderl.   7[] = invers;0;Bold;2;3;Onderl.;5;6;Invers;8;9;10;11;12;13;14;15;16;17;18;19;20;
T5 ;Type;0[] = funct+omschr   1[] = omschr   2[] = alternatief;Funct+Omschr.;Omschr.;Alternatief;
T6 ;Firmanaam;0[] = neen   1[] = ja;Neen;Ja;
T7 ;Initialen;0[] = neen   1[] = ja;Neen;Ja;
T8 ;Uppercase;0[] = neen   1[] = enkel 1' letter   2[] = volledig;Neen;Enkel 1' letter;Volledig;
 ;
T11 ;Alt. N;
T12 ;Alt. F;
 ;
T20 ;Nummer element; Definitie titel ;
 ;
 ; Window + titel
1 D P^cA612(2,1,20,80,1,0,1,1,$P($T(T20),U,3),0,1,1,0,0)
11 I '$D(@DMX@(0,"TIT")),DMX["DMA" S ^("TIT")="1\0\0\7\0\1\1\1"
13 I '$D(@DMX@(0,"TIT")),DMX["DMH" S ^("TIT")="1\0\1\1\1\0\0\1"
 ;
 ; Tonen gegevens
2 W /CUP(1,2),"1 ",/SGR(4),$$S1(1,2),/SGR(24),/CUP(1,20),": ",$P($T(T1),U,4+$$S2("TIT",1)),@F1
21 W /CUP(2,2),"2 ",/SGR(4),$$S1(2,2),/SGR(24),/CUP(2,20),": ",$P($T(T2),U,4+$$S2("TIT",2))
23 W /CUP(3,2),"3 ",/SGR(4),$$S1(3,2),/SGR(24),/CUP(3,20),": ",$P($T(T3),U,4+$$S2("TIT",3))
25 W /CUP(4,2),"4 ",/SGR(4),$$S1(4,2),/SGR(24),/CUP(4,20),": ",$P($T(T4),U,4+$$S2("TIT",4))
 ;
3 W /CUP(5,2),"5 ",/SGR(4),$$S1(5,2),/SGR(24),/CUP(5,20),": ",$P($T(T5),U,4+$$S2("TIT",5))
31 W /CUP(6,2),"6 ",/SGR(4),$$S1(6,2),/SGR(24),/CUP(6,20),": ",$P($T(T6),U,4+$$S2("TIT",6))
33 W /CUP(7,2),"7 ",/SGR(4),$$S1(7,2),/SGR(24),/CUP(7,20),": ",$P($T(T7),U,4+$$S2("TIT",7))
35 W /CUP(8,2),"8 ",/SGR(4),$$S1(8,2),/SGR(24),/CUP(8,20),": ",$P($T(T8),U,4+$$S2("TIT",8))
 ;
 ; Alternatieve titel
4 I $$S2("TIT",5)=2 D
 . W /CUP(11,1),"11 ",/SGR(4),$$S1(11,2),/SGR(24)," : ",$P($G(@DMX@(0,"TIT","ALT")),D)
 . W /CUP(12,1),"12 ",/SGR(4),$$S1(12,2),/SGR(24)," : ",$P($G(@DMX@(0,"TIT","ALT")),D,2)
 ;
 ; Nummer element
6 S R="U1\22\3\"_$P($T(T20),U,2)_"\\2\\$L(K)" D R0
61 G YZ:K="-"!(K=","),6:K>13!(K=9)!(K=10)!'K
 ;
 ; Per rubriek
7 S U1=+U1       
701 I U1=1 D S3(1,2,"TIT",1,2) I K'="-",K'="," D S4("TIT",1)
702 I U1=2 D S3(2,2,"TIT",2,2) I K'="-",K'="," D S4("TIT",2)
703 I U1=3 D S3(3,2,"TIT",3,2) I K'="-",K'="," D S4("TIT",3)
704 I U1=4 D S3(4,2,"TIT",4,2) I K'="-",K'="," D S4("TIT",4)
705 I U1=5 D S3(5,2,"TIT",5,1) I K'="-",K'="," D S4("TIT",5)
706 I U1=6 D S3(6,2,"TIT",6,1) I K'="-",K'="," D S4("TIT",6)
707 I U1=7 D S3(7,2,"TIT",7,1) I K'="-",K'="," D S4("TIT",7)
708 I U1=8 D S3(8,2,"TIT",8,1) I K'="-",K'="," D S4("TIT",8)
711 I $$S2("TIT",5)=2,U1=11 D SA(11,2,1,28)
712 I $$S2("TIT",5)=2,U1=12 D SA(12,2,2,28)
79 G 6:K="-"!(K=","),2
 ;
YZ D C^cA612 Q
 ;
 ; Tonen omschrijving
S1(T,P) N R S R=$P($T(@("T"_T)),U,P)
S1Z Q R
 ;
 ; Ophalen input
S2(N,V) N R S R=$P($G(@DMX@(0,N)),D,V) 
S2Z Q R
 ;
 ; Vraagstelling
S3(T,P,N,V,L)      S I=$$S2(N,V),R="I\22\3\"_$$S1(T,P)_"\\"_L_"\\\\\\\1" D  D R0
 . S $P(R,D,5)=""""_$$S1(T,P+1)_""""
S3Z Q
 ;
 ; Update
S4(N,P) S $P(@DMX@(0,N),D,P)=I
S4Z Q
 ;
 ; Alternatief
SA(T,P,V,L) 
SAA S I=$P($G(@DMX@(0,"TIT","ALT")),D,V)
SAB S R="I\22\3\"_$$S1(T,P)_"\\"_L_"\\\\\\\1" D R0
SAC I K'="-",K'="," S $P(@DMX@(0,"TIT","ALT"),D,V)=I
SAZ Q
 ;
R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
 ;
ZZ ; 10.04.00 - 11 u 03 * V7.3