cQ0 ;Create ^cLOG ;cQ0; [ 07/02/01  12:48 PM ]
 G YZ
 ;
T0 ;Creatie ^cLOG;
 ;
T0F ;Création ^cLOG;
 ;
INIT ;Set ^cLOG(0)
 D MASTER^cQ5 W !!,$P($T(T0),";",2),"(0)",!!
 D ADRES^cQ7,BACKUP^cQ7,DRV^cQ7,LOGON^cQ7,LOGOUT^cQ7,VERS^cQ7
 G YZ
 ;
BOOT ;Set ^cLOG(boot)
 D MASTER^cQ5 W !!,$P($T(T0),";",2),"(",boot,")",!!
 S I=0
 F  S I=$O(^cQSYS(0,"DDB",I)) Q:I=""  D
 . I '$D(^cLOG(boot,"DEV",I)) S ^cLOG(boot,"DEV",I)="ZC\BR"
 D CSQ,DAM^cQ6,STU^cQ6
 G YZ
 ;
CS ;Set ^cLOG(cs)
 D MASTER^cQ5 W !!,$P($T(T0),";",2),"(",cs,")",!!
 D CSQ,DES^cQ6(cs),LOGIN^cQ6("Y"),A501^cQ6,A508^cQ6,ZW^cQ6("Y")
 G YZ
 ;
CSQ ;Set ^cLOG(boot,"Q",cs) = DAM\EA
 D MASTER^cQ5 W !!,$P($T(T0),";",2),"(",boot,",""Q"",",cs,")= DAM\EA",!!
 D Q^cQ6("DAM\EA")
 G YZ
 ;
NS ;Set ^cLOG(0,"NAMESPACE",0) in %SYS
 D MASTER^cQ5 W !!,$P($T(T0),";",2),"(","0,""NAMESPACE"",0) in %SYS",!!
 S ^|"%SYS"|cLOG(0,"NAMESPACE",0)=cs
 G YZ
 ;
YZ Q
 ;
ZZ ; 24.08.01 -  9 u 19 * Cache-r3.1.8