Index: cQZSTART.mac.rou =================================================================== diff -u -r74593 -r74620 --- cQZSTART.mac.rou (.../cQZSTART.mac.rou) (revision 74593) +++ cQZSTART.mac.rou (.../cQZSTART.mac.rou) (revision 74620) @@ -164,7 +164,7 @@ I IP'="?",$D(^cQSYS(CFG,"FIXED","IP",IP)) S P=^(IP) I $$PV(P),$D(^cLOG($ZU(5),"CHARWIN","INIT",P)) S K=P G IOSY S (NBN,^cJOB(JOB,$ZCVT($ZU(110),"U"),"job","NBN"))=$$NBN(I) S (MAC,^cJOB(JOB,$ZCVT($ZU(110),"U"),"job","MAC"))=$$MAC(I) - S ORDER="NBN\IP",OK=0,J=$G(^cLOG($ZCVT($ZU(110),"U"),"IO","ORDER")) I $L(J) S ORDER=J + S ORDER="IP\NBN",OK=0,J=$G(^cLOG($ZCVT($ZU(110),"U"),"IO","ORDER")) I $L(J) S ORDER=J F J=1:1:$L(ORDER,"\") S L=$P(ORDER,"\",J) D I OK=1 Q . I $L(@L),@L'="?",$D(^cQSYS(CFG,"FIXED",L,@L)) S K=^(@L),OK=1 I 'OK,I?1.N S K=I @@ -203,7 +203,7 @@ NBN(I) N DDB,JOB,K,R,%v S I=$G(I,$I) S:I="" I=$I S JOB=$$ZJOB(I) I JOB,$D(^cJOB(JOB,$ZCVT($ZU(110),"U"),"job","NBN")),^("NBN")'="??" Q ^("NBN") - Q ##class(TECH.Context.RuntimeContext).Instance().GeefComputerNaam() + ;Q ##class(TECH.Context.RuntimeContext).Instance().GeefComputerNaam() S K=$ZU(67,12,$J) S:K["/" K=$P(K,"/") I $L(K),K?.ANP Set K = $ZCVT($Piece(K,".",1),"U") Q K S K=$$CLN() S:'$L(K) K=$$CNN() I $L(K) Q K S K=$P($P(I,":"),"|",3) S:K["~" K=$P(K,"~",2) I $L(K),K'?3(1.3N1".")1.3N Q $ZSTRIP($ZCONVERT($P(K,"."),"U"),"*C")