cAN226	;Subroutines voor beheer gebruikers ;%AN226 [ 02/04/02  8:34 AM ]
	;
YZ	Q
	;
PROPRI(UI1,SWQL)	       ; opbouw hulp-bestand met alle prioriteiten en profielen
	; UI1 = intern nummer gebruiker
	; SWQL = 1 => met PRIO naar buiten komen
	N T
	S $ZT="TRAP^cAN000"
	I '$G(SWQL) S SORT=$$GETSORT^cAFA1
	I $G(SWQL) S PRIO=""
	S I=UI1_" ",TEL=10000,PTEL=30000
	F  S I=$O(^DATA(0,"USR_PRO",I)) Q:$P(I," ")'=UI1  D
	. Q:'$D(^(I,0))
	. Q:$P(^(0),D,30)
	. Q:$$SIG^cAFA1("PRO",$P(I," ",2),130)
	. I '$G(SWQL) 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
	.. Q:'$D(^(J,0))
	.. Q:$P(^(0),D,30)
	.. Q:$$SIG^cAFA1("PRO",$P(J," "),130)
	.. S K=$$SIGN^cAFA1("PRI",$P(J," ",2),0)
	.. I '$L(K) Q      ; bestaat niet
	.. I $P(K,D,30) Q  ; buiten gebruik/verwijderd
	.. I '$G(SWQL) S PTEL=PTEL+1,^HULP("SORT",SORT,PTEL,0)=$$SIGN^cAFA1("PRI",$P(J," ",2),0),^(1)=CODE
	.. S T=$$SIG^cAFA1("PRI",$P(J," ",2),101)
	.. Q:T=""
	.. I $G(SWQL)," "_PRIO'[(" "_T_" ") S PRIO=PRIO_T_" "
	;
	S I=UI1_" ",TEL=20000
	F  S I=$O(^DATA(0,"USR_PRI",I)) Q:$P(I," ")'=UI1  D
	. Q:'$D(^(I,0))
	. Q:$P(^(0),D,30)
	. I '$G(SWQL) S TEL=TEL+1,^HULP("SORT",SORT,TEL,0)=$$SIGN^cAFA1("PRI",$P(I," ",2),0)
	. Q:$$SIG^cAFA1("PRI",$P(I," ",2),130)
	. S T=$$SIG^cAFA1("PRI",$P(I," ",2),101)
	. Q:T=""
	. I $G(SWQL)," "_PRIO'[(" "_T_" ") S PRIO=PRIO_T_" "
	I '$G(SWQL),$L($O(^HULP("SORT",SORT,30000))) S TEL=TEL+1,^HULP("SORT",SORT,TEL,0)=""
	I $G(SWQL),PRIO=" " S PRIO=""
PROPRIZ	Q
	;
PROPRIV(UI1)	
	N (UI1)
	S $ZT="TRAP^cAN000"
	D
	. N UI1
	. D ^cA604
	D PROPRI(UI1,1)
PROPRIVZ	Q PRIO
	;
ZZ	; 07.02.02 - 11 u 22 * V7.91