cQ7	;Set ^cLOG(0) items ;cQ7;
	Q
	;
ADRES	S ^cLOG(0,"ADRES",0)="H"
	S ^cLOG(0,"ADRES","H",1)="DATA-M N.V."
	S ^cLOG(0,"ADRES","H",2)="Jozef Buyssestraat 72"
	S ^cLOG(0,"ADRES","H",3)="9230  WETTEREN"
	S ^cLOG(0,"ADRES","H",4)="Tel.: 09/366.17.73"
	S ^cLOG(0,"ADRES","H",5)="Fax.: 09/366.14.95"
	S ^cLOG(0,"ADRES","H",6)="info@datam.be;support@datam.be"
ADRESZ	Q
	;
BACKUP	D ^cQ12 Q
	;
DRV	D ^cQ11 Q
	;
LOGON	S ^cLOG(0,"LOGON","RW")="N I U 0 S I=0 F  S I=$O(^cLOG(0,""LOGON"",""RW"",I)) Q:I=""""  X ^(I)"
	S ^cLOG(0,"LOGON","RW",1)="W $C(27),""&oCSET CONTINUE-SET YES"",$C(13)"
	S ^cLOG(0,"LOGON","RW",2)="W $C(27),""&oCSET EXITS-DISABLED YES"",$C(13)"
	S ^cLOG(0,"LOGON","RW",3)="W $C(27),""&oCSET DISCONNECT-ON-EXIT YES"",$C(13)"
	S ^cLOG(0,"LOGON","RW",4)="W $C(27),""&oCSET HOST-CHARACTER-SET ISO-LATIN-1"",$C(13)"
	S ^cLOG(0,"LOGON","ZC")="N I U 0 S I=0 F  S I=$O(^cLOG(0,""LOGON"",""ZC"",I)) Q:I=""""  X ^(I)"
	S ^cLOG(0,"LOGON","ZC",1)="W $C(27),""&oCSET CONTINUE-SET YES"",$C(13)"
	S ^cLOG(0,"LOGON","ZC",2)="W $C(27),""&oCSET EXITS-DISABLED YES"",$C(13)"
	S ^cLOG(0,"LOGON","ZC",3)="W $C(27),""&oCSET DISCONNECT-ON-EXIT YES"",$C(13)"
	S ^cLOG(0,"LOGON","ZC",4)="W $C(27),""&oCSET HOST-CHARACTER-SET ISO-LATIN-1"",$C(13)"
	S ^cLOG(0,"LOGON","ZE")="N I U 0 S I=0 F  S I=$O(^cLOG(0,""LOGON"",""ZE"",I)) Q:I=""""  X ^(I)"
	S ^cLOG(0,"LOGON","ZE",1)="W $C(27),""&oCSET CONTINUE-SET YES"",$C(13)"
	S ^cLOG(0,"LOGON","ZE",2)="W $C(27),""&oCSET EXITS-DISABLED YES"",$C(13)"
	S ^cLOG(0,"LOGON","ZE",3)="W $C(27),""&oCSET DISCONNECT-ON-EXIT YES"",$C(13)"
	S ^cLOG(0,"LOGON","ZE",4)="W $C(27),""&oCSET HOST-CHARACTER-SET ISO-LATIN-9"",$C(13)"
	S ^cLOG(0,"LOGON","ZP")="N I U 0 S I=0 F  S I=$O(^cLOG(0,""LOGON"",""ZP"",I)) Q:I=""""  X ^(I)"
	S ^cLOG(0,"LOGON","ZP",1)="W $C(27),""&oCSET CONTINUE-SET YES"",$C(13)"
	S ^cLOG(0,"LOGON","ZP",2)="W $C(27),""&oCSET EXITS-DISABLED YES"",$C(13)"
	S ^cLOG(0,"LOGON","ZP",3)="W $C(27),""&oCSET DISCONNECT-ON-EXIT YES"",$C(13)"
	S ^cLOG(0,"LOGON","ZP",4)="W $C(27),""&oCSET HOST-CHARACTER-SET ISO-LATIN-2"",$C(13)"
	S ^cLOG(0,"LOGON","ZR")="N I U 0 S I=0 F  S I=$O(^cLOG(0,""LOGON"",""ZR"",I)) Q:I=""""  X ^(I)"
	S ^cLOG(0,"LOGON","ZR",1)="W $C(27),""&oCSET CONTINUE-SET YES"",$C(13)"
	S ^cLOG(0,"LOGON","ZR",2)="W $C(27),""&oCSET EXITS-DISABLED YES"",$C(13)"
	S ^cLOG(0,"LOGON","ZR",3)="W $C(27),""&oCSET DISCONNECT-ON-EXIT YES"",$C(13)"
	S ^cLOG(0,"LOGON","ZR",4)="W $C(27),""&oCSET HOST-CHARACTER-SET ISO-CYRILLIC"",$C(13)"
LOGONZ	Q
	;
LOGOUT	S ^cLOG(0,"LOGOUT","PR")="H 1 W $C(27),""^QUIT"",! H 1"
	S ^cLOG(0,"LOGOUT","PS")="H 1 W $C(27),""^QUIT"",! H 1"
	S ^cLOG(0,"LOGOUT","PT")="H 1 W *4,""QUIT"",! H 1"
	S ^cLOG(0,"LOGOUT","PU")="H 1 W *4,""QUIT"",! H 1"
	S ^cLOG(0,"LOGOUT","RF")="W $C(27),""&oCX EXIT.RCL"",! H 1"
	S ^cLOG(0,"LOGOUT","RG")="W $C(27),""&oCX EXIT.RCL"",! H 1"
	S ^cLOG(0,"LOGOUT","RW")="D:$D(^$R(""cA612"")) X^cA612 W $C(27),""&oCEXIT"" H 1"
	S ^cLOG(0,"LOGOUT","ZC")="D:$D(^$R(""cA612"")) E^cA612 W $C(27),""&oCEXIT"" H 1"
	S ^cLOG(0,"LOGOUT","ZE")="D:$D(^$R(""cA612"")) E^cA612 W $C(27),""&oCEXIT"" H 1"
	S ^cLOG(0,"LOGOUT","ZP")="D:$D(^$R(""cA612"")) E^cA612 W $C(27),""&oCEXIT"" H 1"
	S ^cLOG(0,"LOGOUT","ZR")="D:$D(^$R(""cA612"")) E^cA612 W $C(27),""&oCEXIT"" H 1"
LOGOUTZ	Q
	;
OS	S ^cLOG(0,"OS",2,0)="Karen's Replicator"
	S ^cLOG(0,"OS",2,"check")="PTReplicator.ex"
	S ^cLOG(0,"OS",2,"start")="""C:\Program Files\Karen's Replicator\PTReplicator.exe"""
	S ^cLOG(0,"OS",2,"system")="\"_$ZCVT($ZU(110),"U")_"\"
	S ^cLOG(0,"OS",3,0)="Pagetech PageCounter.exe"
	S ^cLOG(0,"OS",3,"check")="PageCounter.exe"
	S ^cLOG(0,"OS",3,"stop")="Pagetech PageCounter should not be running."
	S ^cLOG(0,"OS",3,"system")="\"_$ZCVT($ZU(110),"U")_"\"
OSZ	Q
	;
PDF	;PDF settings
	K ^cLOG(0,"PDF")
	S ^cLOG(0,"PDF","Exe",1,0)="PCL2PDF from Visual Software"
	S ^cLOG(0,"PDF","Exe",1,1)="Q:'$D(F71(""PDF""))  S K=$E($$INFO^cQ14)_"":\DataM\Batch\pcl2pdf.exe -S -A4 ""_$C(34)_F71(""PDF"",""from"")_$C(34,32,34)_F71(""PDF"",""to"")_$C(34),ER=$$JW^cQFILE(K)"
	S ^cLOG(0,"PDF","Exe",2,0)="PCLtool from VeryPDF"
	S ^cLOG(0,"PDF","Exe",2,1)="Q:'$D(F71(""PDF""))  S K=""C:\Program Files\VeryPDF PCL Converter v2.0\pcltool.exe ""_$C(34)_F71(""PDF"",""from"")_$C(34,32,34)_F71(""PDF"",""to"")_$C(34),ER=$$JW^cQFILE(K)"
	S ^cLOG(0,"PDF","Exe",3,0)="Pagetech PDF converter"
	S ^cLOG(0,"PDF","Exe",3,1)="Q:'$D(F71(""PDF""))  Q:'$D(F71(""PDF"",""from""))  S ER=$$FS^cA710(F71(""PDF"",""from""),.K) Q:ER  Q:'K  F I=2:1 Q:'$D(^cLOG(0,""PDF"",""Exe"",3,I))  X ^cLOG(0,""PDF"",""Exe"",3,I)"
	S ^cLOG(0,"PDF","Exe",3,2)="L +ZZZPCL"
	S ^cLOG(0,"PDF","Exe",3,3)="S K=""Del ""_$E($$INFO^cQ14)_"":\datam\temp\zzz.*"",ER=$$JW^cQFILE(K)"
	S ^cLOG(0,"PDF","Exe",3,4)="S K=""Copy ""_$C(34)_F71(""PDF"",""from"")_$C(34,32)_$E($$INFO^cQ14)_"":\DataM\temp\zzz.pcl"",ER=$$JW^cQFILE(K)"
	S ^cLOG(0,"PDF","Exe",3,5)="S F71(""PDF"",""path"")=$G(^cLOG($ZCVT($ZU(110),""U""),""PDF"",""Exe"",3,""Path""),""C:\Program Files\Pagetech\PCLTSDK_830"")"
	S ^cLOG(0,"PDF","Exe",3,6)="S F71(""PDF"",""Exec"")=$G(^cLOG($ZCVT($ZU(110),""U""),""PDF"",""Exe"",3,""Exec""))"
	S ^cLOG(0,"PDF","Exe",3,7)="S K=$S($L(F71(""PDF"",""Exec"")):F71(""PDF"",""Exec""),1:$C(34)_F71(""PDF"",""path"")_""\pclxform.exe""_$C(34)_"" datam.tpt""),ER=$$JW^cQFILE(K)"
	S ^cLOG(0,"PDF","Exe",3,8)="S K=""Copy ""_$E($$INFO^cQ14)_"":\datam\temp\zzz.pdf ""_$C(34)_F71(""PDF"",""to"")_$C(34),ER=$$JW^cQFILE(K)"
	S ^cLOG(0,"PDF","Exe",3,9)="S K=""Del ""_$E($$INFO^cQ14)_"":\datam\temp\zzz.*"",ER=$$JW^cQFILE(K)"
	S ^cLOG(0,"PDF","Exe",3,10)="L -ZZZPCL"
	S ^cLOG(0,"PDF","Exe",3,11)="S ER=$$DEL^cA710(F71(""PDF"",""from""))"
PDFZ	Q
	;
PDFA(X,Y)	;Activate PDF type X for namespace Y (if Y is omitted = system)
	S X=$G(X,3),Y=$G(Y,$ZCVT($ZU(110),"U")) K ^cLOG(Y,"PDF") I Y=$ZCVT($ZU(110),"U") K ^cLOG($ZU(5),"PDF")
	S ^cLOG(Y,"PDF","Exe")=X
	I X=3 D PDFPA(Y)
PDFAZ	Q
	;
PDFPA(Y)	;set path for Pagetech for namespace Y ( if Y is omitted = system)
	N A,B,C,I S Y=$G(Y,$ZCVT($ZU(110),"U"))
	D DIR^cQDIR("C:\Program Files\Pagetech\",.B)
	D DIR^cQDIR("C:\Program Files (x86)\Pagetech\",.C)
	M A=B,A=C S I=""
	F  S I=$O(A(I)) Q:I=""  I A(I,0)["PCLTSDK_" D PDFP(3,A(I,0),Y) Q
PDFPAZ	Q
	;
PDFP(X,P,Y)	;Set path P voor PDF type X for namespace Y ( if Y is omitted = system)
	N I,K S X=$G(X,3),P=$G(P,830),Y=$G(Y,$ZCVT($ZU(110),"U"))
	I X=3 D
	. I P'["\" F I="C:\Program Files","C:\Program Files (x86)" I '$$TST^cQFILE(I_"\Pagetech\PCLTSDK_"_P) S P=I_"\Pagetech\PCLTSDK_"_P
	. S K="datam.tpt",I="C:\ProgramData\Pagetech\PCLTSDK_"_$S(P["_":$P(P,"_",2),1:P)
	. I '$$TST^cQFILE(I_"\datam.tpt") S K=I_"\"_K
	. S ^cLOG(Y,"PDF","Exe",X,"Exec")=$C(34)_P_"\pclxform.exe"_$C(34)_" "_K
	S ^cLOG(Y,"PDF","Exe",X,"Path")=P
PDFPZ	Q
	;
SYM	;Symbolset PCL printercodes
	S ^cLOG(0,"PCL","SymbolSet",1,0)="PC-850 Multilingual"
	S ^cLOG(0,"PCL","SymbolSet",1,1)="$C(27),""(12U"""
	S ^cLOG(0,"PCL","SymbolSet",2,0)="ISO 8859-1 Latin-1"
	S ^cLOG(0,"PCL","SymbolSet",2,1)="$C(27),""(0N"""
	S ^cLOG(0,"PCL","SymbolSet",3,0)="ISO 8859-2 Latin-2"
	S ^cLOG(0,"PCL","SymbolSet",3,1)="$C(27),""(2N"""
	S ^cLOG(0,"PCL","SymbolSet",4,0)="ASCII"
	S ^cLOG(0,"PCL","SymbolSet",4,1)="$C(27),""(0U"""
	S ^cLOG(0,"PCL","SymbolSet",5,0)="PC-8"
	S ^cLOG(0,"PCL","SymbolSet",5,1)="$C(27),""(10U"""
	S ^cLOG(0,"PCL","SymbolSet",6,0)="Windows CP1252 Latin-1"
	S ^cLOG(0,"PCL","SymbolSet",6,1)="$C(27),""(19U"""
	S ^cLOG(0,"PCL","SymbolSet",7,0)="Windows CP1250 Latin-2"
	S ^cLOG(0,"PCL","SymbolSet",7,1)="$C(27),""(9E"""
	S ^cLOG(0,"PCL","SymbolSet",8,0)="ISO 8859-15 Latin-9"
	S ^cLOG(0,"PCL","SymbolSet",8,1)="$C(27),""(9N"""
	S ^cLOG(0,"PCL","SymbolSet",9,0)="ISO 8859-5 Cyrillic"
	S ^cLOG(0,"PCL","SymbolSet",9,1)="$C(27),""(10N"""
SYMZ	Q
	;
VERS	N K S K=$P($T(ZZ)," * ",2)
	S ^cLOG(0,"VERS","cQ")=K_"\"_K_"\Systeem-Software\Logiciel Du Système\System Software\System Software\"
VERSZ	Q
	;
YZ	Q
	;
ZZ	; 17.01.2012 - 15:58 * Cache-r6.4.9