Index: cA508.mac.rou
===================================================================
diff -u -r29059 -r40076
--- cA508.mac.rou	(.../cA508.mac.rou)	(revision 29059)
+++ cA508.mac.rou	(.../cA508.mac.rou)	(revision 40076)
@@ -41,7 +41,8 @@
  K (%ZR,%ZM,Q,QL,QM,QN,QO,QRVG,QT,QTU,QU,QW,QZ,D,DT,TD,DD,DM,DJ,F70,F71,U,boot,cs,master,workst,io)
  S io=$G(io,$$IO^cQ5),QP=1
  I $L($G(F71)) X F71
- I $L($G(^cLOG(boot,"TERMINAL",io))) X ^(io)
+ S ^cLOG(cs,"TERMINAL",io) = "D ^vhINITML"
+ D ^vhINITML
  B 1 I '$D(F) S D="\",U=";" D ^cA607
 10 S QS="",QM=+$G(QM) G Q:$G(Q)'?1.3U,Q:'$D(@("^"_QS_Q_"BA(99,1)")) S QN=$G(QN,^(1))
 11 S %Q1="^"_Q_"BA(""%1"",$I)",@%Q1=1,QD=+$G(@("^"_QS_Q_"BA(34)")),QL=$G(QL),QO=$G(QO),QP=1,QT=$G(QT)
@@ -156,3 +157,4 @@
  ;
 ZZ ; 05.02.01 - 16 u 23 * V7.84
 
+
Index: cA501.mac.rou
===================================================================
diff -u -r29059 -r40076
--- cA501.mac.rou	(.../cA501.mac.rou)	(revision 29059)
+++ cA501.mac.rou	(.../cA501.mac.rou)	(revision 40076)
@@ -43,7 +43,8 @@
 12 S QD=+$G(@("^"_QS_Q_"BA(34)")),QL=$G(QL),QO=$G(QO),QP=1,QT=$G(QT)
 13 I $L($G(F71)) X F71
  S F71="D ^cA606"
- I $L($G(^cLOG(cs,"TERMINAL",io))) X ^(io)
+ S ^cLOG(cs,"TERMINAL",io) = "D ^vhINITML"
+ D ^vhINITML
  ;
  ; directe selectie
 2 K R7 S:'$L(QO) R12=0 S:$L(QO) R7=+$P(QO,"."),QO=$P(QO,".",2,99) S QZ=$G(QZ,5)
@@ -153,3 +154,4 @@
 ZZ ; 30.03.01 - 13 u 39 * V7.85
 
 
+