cQ6 ;Set ^cLOG(boot) items ;cQ6; [ 06/22/00  3:17 PM ]
 G YZ
 ;
T0 ;Set ^cLOG(boot) items ;
 ;
T0F ;Set ^cLOG(boot) items;
 ;
A501 S ^cLOG(cs,"X","cA501",2)="D LOGJOB^cQ5"
 S ^cLOG(cs,"X","cA501",3)="S K=$$SYSN^cQ5"
A508 S ^cLOG(cs,"X","cA508",2)="D LOGJOB^cQ5"
 S ^cLOG(cs,"X","cA508",3)="S K=$$SYSN^cQ5" Q
AUTOBU(S) S ^cLOG(cs,"BACKUP","AUTO")=S Q
BACKUP(S) S ^cLOG(cs,"BACKUP","TYPE")=S Q
BU(S) S $P(^cLOG(cs,"BACKUP"),"\",1)=$S(S="Y":1,1:0) Q
BUN D BU("N") Q
BUY D BU("Y") Q
CTK0(S) S ^cLOG(cs,"CTK0","WAIT")=S Q
DAM S ^cLOG(boot,"DAM",0)="Parameters modules Data-M"
 S ^cLOG(boot,"DAM",1)="1\Nieuwe log-in procedure"
 S ^cLOG(boot,"DAM",2)="1\Nieuwe bestandsstructuur cDEV, cLOG(boot,""DEV"", cLOG(boot,""CP"" en printerkeuze via ^cPRINT"
 S ^cLOG(boot,"DAM",3)="1\Nieuwe bestandslocaties"
 Q
DES(S) S ^cLOG(cs,"DESCRIPTION",0,0)=S Q
LOGGING(I,N) S ^cLOG(cs,"LOG",I)=N Q
LOGIN(S) S ^cLOG(boot,"TTT")=$S(S="Y":1,1:0) Q
LOGINN D LOGIN("N") Q
LOGINY D LOGIN("Y") Q
LOGON S ^cLOG(cs,"LOGIN",0)=1 Q
M(S) S ^cLOG(0,"SYSTEM","MASTER")=S Q
MS S ^cLOG(cs,"MS",0)="" Q
Q(S) S ^cLOG(boot,"Q",cs)=S Q
S(S) S ^cLOG(0,"SYSTEM","SLAVE")=S Q
STU S ^cLOG(boot,"STU")="1\D MASTER^cQ5 K ^cPRINT,^cIPRINT,^cJOB,^HULP(boot),^HULP(""FAX""),^HULP(""SORT"")" Q
UPDATE S ^cLOG(boot,"UPDATE",0)="1210\A:\C:" Q
ZW(S) S ^cLOG(cs,"ZWINTERM",0)=$S(S="Y":1,1:0) Q
 ;
QQM D MASTER^cQ5 N QL,QU,K,L,%logctk
 I $D(^cLOG(boot,"Q",cs)) D
 . S Q=$P(^(cs),"\"),QM=0,QT=$P($G(@("^"_Q_"BA(39)")),"\",2)
 . S:QT="N" QT="" S QTU=$S($L(QT):$F("FDE",QT),1:1)
 D ^cA604 Q
 ;
INI I $D(F),F["FP\100" Q
 G QQM
 ;
YZ Q
 ;
ZZ ; 24.08.01 -  9 u 19 * Cache-r3.1.8