cQLU	; License information ; cQLU;
	;
1	D SHOW G YZ
	;
SHOW	I ($P($P($ZV,")",2),"(",1)[" 4.") W !,"Not supported.",!! Q
	W !,"D ShowSummary^%LICENSE ",! D ShowSummary^%LICENSE
	W !!
	W !,"W $SYSTEM.License.LUConsumed() = ",$SYSTEM.License.LUConsumed()
	W !,"W $SYSTEM.License.LUMaxConsumed() = ",$SYSTEM.License.LUMaxConsumed()
	W !,"W $SYSTEM.License.KeyLicenseUnits() = ",$SYSTEM.License.KeyLicenseUnits()
	W !,"W $SYSTEM.License.LUMinAvailable() = ",$SYSTEM.License.LUMinAvailable()
	W !
	W !,"W $SYSTEM.License.MaxConnections() = ",$SYSTEM.License.MaxConnections()
SHOWZ	Q
	;
YZ	Q
	;
LOG(X)	;Log LU's into logfile in directory X;
	N K S K=$$INFO^cQ14,K=$P(K,"\",1,$L(K,"\")-1),X=$TR($G(X,K),"/","\") I $E(X,$L(X))="\" S X=$E(X,1,$L(X)-1)
	S logfile=X_"\lulog"_$E($ZCVT($ZU(110),"U"),1,2)_"-"_$P($ZD($H,3),"-",1,2)_".txt",ER=$$TST^cQFILE(logfile)
	I ER S ER=$$OA^cQFILE(logfile) Q:ER  D BEGIN S ER=$$WF^cQFILE(logfile,R_$C(13,10)),ER=$$CF^cQFILE(logfile)
	S R(0)=$ZCVT($ZU(110),"U"),R(1)=$ZD($H,4),R(2)=$ZT($P($H,",",2),1),ni=6 F i=3:1:ni s R(i)=""
	I '($P($P($ZV,")",2),"(",1)[" 4.") D
	. S R(3)=$SYSTEM.License.LUConsumed()
	. S R(4)=$SYSTEM.License.LUMaxConsumed()
	. S R(5)=$SYSTEM.License.LUMinAvailable()
	. S R(6)=$SYSTEM.License.KeyLicenseUnits()
	S TAB=$C(9),R="" F i=0:1:ni S R=R_R(i)_TAB
	S ER=$$OA^cQFILE(logfile) Q:ER  S ER=$$WF^cQFILE(logfile,R_$C(13,10))
	S ER=$$CF^cQFILE(logfile)
LOGZ	Q
	;
BEGIN	N I S R=""
	S R(0)="System"
	S R(1)="Datum"
	S R(2)="Tijd"
	S R(3)="LU consumed"
	S R(4)="LU Max Consumed"
	S R(5)="LU Min Available"
	S R(6)="Key LicenseUnits"
	F I=0:1:6 S R=R_R(I)_$C(9)
BEGINZ	Q
	;
BG	D LOG Q
	;
ZZ	; 17.01.2012 - 15:58 * Cache-r6.4.9