p59528p1179 ;p59528p1179; 25/12/2003 - 22:06:40
 ;
 S $ZT="^cA407" D NORMAL^%PRIO
 L +^|"ADMIN1"|cLOG("ADMIN1","CTK0","AUTO",53):1 E  G X
 ;
 ZN "ADMIN1" S Q="K" D ^cA604 S QU="SYS",QL="",%bg=1 D NIGHT^ORGASTAT
 ;
 D ^cA105,^cA106
 S $P(^|"ADMIN1"|cLOG("ADMIN1","CTK0","AUTO",53,"CACHE01",59528,79600),"\",6)=DT,$P(^(79600),"\",7)=TD,$P(^(79600),"\",8)=$H
 L -^|"ADMIN1"|cLOG("ADMIN1","CTK0","AUTO",53)
 ;
X S $ZT="R^cQCTK1" X "zr  zs p59528p1179"
 ;
YZ Q
 ;
ZZ ; 25/12/2003 - 22:06:40