cQMAP	;Map netwerkdrives ;cQMAP;
	Q
	;
DAM	;Data-M drive mappings
	S ER=$$MAP("I:","\\data-m.be\dfs\schijven")
	S ER=$$MAP("O:","\\data-m.be\dfs\shared")
	S ER=$$MAP("P:","\\data-m.be\dfs\mappen\settings\data-m")
DAMZ	Q
	;
TBK	;Ter Beke drive mappings
	S ER=$$MAP("T:","\\tbmain5.terbeke.loc\datam")
TBKZ	Q
	;
MAP(dr,loc,pw,user)
	S dr=$G(dr),loc=$G(loc),pw=$G(pw),user=$G(user)
	I '$L(dr)!'$L(loc)!($L(pw)&'$L(user)) Q 1
	S ER=$$JW^cQFILE("net use "_dr_" /delete")
	S ER=$$JW^cQFILE("net use "_dr_" "_loc_$S($L(pw):" "_pw_" /user:"_user,1:""))
MAPZ	Q ER
	;
ZZ	; 17.01.2012 - 15:58 * Cache-r6.4.9