cQ7 ;Set ^cLOG(0) items ;cQ7; [ 08/22/01  12:16 PM ]
 G YZ
 ;
T0 ;Set ^cLOG(0) items ;
 ;
T0F ;Set ^cLOG(0) items ;
 ;
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)="09/3661471\09/3661779\09/3661806\09/3661825\09/3662149\09/3664823\09/3664825"
 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)"
 M ^cLOG(0,"LOGON","ZC")=^cLOG(0,"LOGON","RW")
 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)"
 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"
 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\"
 Q
 ;
YZ Q
 ;
ZZ ; 24.08.01 -  9 u 19 * Cache-r3.1.8