cQ9	;Functions ;cQ9;
	Q
	;
TOUPPER(X)	        ;Convert string to uppercase
	Q $TR(X,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")
	;
TOLOWER(X)	        ;Convert string to lowercase
	Q $TR(X,"ABCDEFGHIJKLMNOPQRSTUVWXYZ","abcdefghijklmnopqrstuvwxyz")
	;
INTERP(X,Y,Z)	     ;Interpunction for X with Y decimals in a field of Z long
	Q $J($TR($FN(X,",T",Y),".,",",."),Z)
	;
CONFIG()	;
	Q 0
	;
ZOOM	;Zoom window to 25 lines and 80 columns
	Q
	;
HFS()	; get HFS and open it
	Q 0
	;
AKJ()	; aantal aktieve jobs
	Q 1
	;
LVL(J)	;
	Q
	;
DOUBLEQ(X)	        ;Double quotes in string
	N Y S Y=0
	F  S Y=$F(X,"""",Y) Q:'Y  S X=$E(X,0,Y-1)_""""_$E(X,Y,$L(X)),Y=Y+1
	K Y Q X
	;
LCON	;Lock console
	S X=$$JW^cQFILE("%windir%\System32\rundll32.exe user32.dll,LockWorkStation")
	Q
	;
RENUM(X)	;Renumber in file X
	S X=$G(X) Q:'$L(X)
	N ER,I,K,R,T
	S ER=$$OR^cQFILE(X) Q:ER
	F I=1:1 S ER=$$RF^cQFILE(X,.K) Q:ER  S R(I)=K,R=I
	S ER=$$CF^cQFILE(X)
	F I=1:1:R S T(I)=$P(R(I),"_")_"_"_I_"="_$P(R(I),"=",2)
	S ER=$$OW^cQFILE(X) Q:ER
	F I=1:1:R S ER=$$WF^cQFILE(X,T(I)_$C(13,10)) Q:ER
	S ER=$$CF^cQFILE(X)
RENUMX	Q
	;
4TO6(R)	;Convert IPv4 address to IPv6
	N A,I,K
	S R=$G(R),K=""
	I R?3(1.3N1".")1.3N D
	. F I=1:1:4 S A(I)=$ZHEX(+$P(R,".",I)),A(I)=$E("00"_A(I),$L(A(I))+1,9)
	. S K="0000:0000:0000:0000:0000:0000:"_A(1)_A(2)_":"_A(3)_A(4)
	;
4TO6Z	Q K
	;
6TO4(R)	;Convert IPv6 address to IPv4
	N A,B,I,K,SW
	S R=$G(R),K="",SW=1
	F I=1:1:$L(R) I "0123456789:ABCDEFabcdef"'[$E(R,I) S SW=0 Q
	I SW,R?7(.4AN1":").4AN D
	. F I=7:1:8 S B=$P(R,":",I),B=$E("0000"_B,$L(B)+1,9),A(I-7*2+1)=$ZHEX($E(B,1,2)),A(I-7*2+2)=$ZHEX($E(B,3,4))
	. F I=1:1:4 S K=K_$S($L(K):".",1:"")_A(I)
	;
6TO4Z	Q K
	;
ZZ	; 17.01.2012 - 15:58 * Cache-r6.4.9