cAN226 ;Subroutines voor beheer gebruikers ;%AN226 [ 02/04/98  2:42 PM ]
 ;
YZ Q
 ;
PROPRI(UI1)        ; opbouw hulp-bestand met alle prioriteiten en profielen
 ; UI1 = intern nummer gebruiker
 S SORT=$$GETSORT^cAFA1
 S I=UI1_" ",TEL=10000,PTEL=30000
 F  S I=$O(^DATA(0,"USR_PRO",I)) Q:$P(I," ")'=UI1  D
 . S TEL=TEL+1,^HULP("SORT",SORT,TEL,0)=$$SIGN^cAFA1("PRO",$P(I," ",2),0)
 . S CODE=$P(^(0),D)
 . S J=$P(I," ",2)_" "
 . F  S J=$O(^DATA(0,"PRO_PRI",J)) Q:$P(J," ")'=$P(I," ",2)  D
 .. S K=$$SIGN^cAFA1("PRI",$P(J," ",2),0)
 .. I '$L(K) Q      ; bestaat niet
 .. I $P(K,D,30) Q  ; buiten gebruik/verwijderd
 .. S PTEL=PTEL+1,^HULP("SORT",SORT,PTEL,0)=$$SIGN^cAFA1("PRI",$P(J," ",2),0),^(1)=CODE
 S I=UI1_" ",TEL=20000
 F  S I=$O(^DATA(0,"USR_PRI",I)) Q:$P(I," ")'=UI1  D
 . S TEL=TEL+1,^HULP("SORT",SORT,TEL,0)=$$SIGN^cAFA1("PRI",$P(I," ",2),0)
 I $L($O(^HULP("SORT",SORT,30000))) S TEL=TEL+1,^HULP("SORT",SORT,TEL,0)=""
 Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84