cA504 ;Prioriteiten per initialen ;%A504 ; [ 04/25/96  2:32 PM ]
 ;
T0 ;Prioriteiten per initialen ;
T1 ;Prioriteitscode;"[] = code toevoegen";"V[] = code verwijderen";
 ;
T0F ;Priorités par initiales ;
T1F ;Code priorité;"[] = ajouter code";"V[] = annuler code";
 ;
T0E ;Prioriteiten per initialen ;
T1E ;Prioriteitscode;"[] = code toevoegen";"V[] = code verwijderen";
 ;
1 S X=" "_K
11 I $P(B(1),D)="SU" S X="" G YZ
 ;
2 D Z^cAN106("Y",16,0,"KODE.PRI") G YZ:K="-"!(K="") S Y=" "_Y_" "
21 S R="K\22\3\"_$P($T(@("T1"_QT)),U,2)_Y_D_$P($T(@("T1"_QT)),U,3+(X[Y))_"\1\\K=""-""!(""V""[K)\\\1" D R0
23 I X'[Y,K="" S X=X_Y G 3
25 I X[Y,K="V" S X=$P(X,Y)_" "_$P(X,Y,2,999) G 3
27 G 2
 ;
3 K Y F I=1:1:$L(X," ") S Y=$P(X," ",I) I $L(Y) S Y(Y)=""
31 S X=" ",Y="" F I=1:1 S Y=$O(Y(Y)) Q:Y=""  I $D(@("^"_Q_"BA(""%A"",2,Y_"" "")")) S X=X_Y_" "
 ;
YZ S K=$P(X," ",2,999) K X,Y Q
 ;
R0 S R0=$P(R,D,5) I $L(R0),R0'["""" S $P(R,D,5)=R0_"^"_$T(+0)
R0A S R0=$P(R,D,7) I $L(R0),R0'="DCTR" S $P(R,D,7)="",R1=$P(R,D,8),R0=$P($T(@R0),U,2,99) S:$L(R1) R0=R0_"&("_R1_")" S $P(R,D,8)=R0
R0Z S $P(R,D,12)=$T(+0) K R0,R1 D ^cA100 Q  ; v11 30.05.94
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84