cQ5 ;More functions ;cQ5; [ 05/30/01  4:04 PM ]
 G YZ
 ;
T0 ;Meer functies ;
 ;
T0F ;Encore de functions ;
 ;
MASTER S (boot,bootrvg)=$ZU(110),cs=$ZU(5)
 S master=$G(^cLOG(0,"SYSTEM","MASTER"),$$NS^cQ14)
 S slave=$G(^cLOG(0,"SYSTEM","SLAVE"),master)
 S workst=$D(^cLOG(0,"WORKSTATION",boot))
 S client=$D(^cLOG(cs,"CLIENT",boot))
 Q
 ;
IO(I) N JOB S I=$G(I,$I) S:I="" I=$I S JOB=$$JOB^cQ14(I) D MASTER
 I '$D(^cJOB(JOB,boot,"job","IO")) S ^cJOB(JOB,boot,"job","IO")=$$IOS(I)
 Q $G(^cJOB(JOB,boot,"job","IO"),I)
 ;
IOS(I) N CFG,JOB,K,L,SW,SWP,ZDEV S SWP=0
IOSA S $ZT="ER^"_$T(+0) D MASTER S CFG=$$CONFIG^cQ9,K="?"
 S I=$G(I,$I) S:I="" I=$I S JOB=$$JOB^cQ14(I)
 K ^cJOB(JOB,boot,"job","TYPE"),^("IP"),^("NBN"),^("MAC"),^("IO"),^("UN")
 S SW=0,ZDEV=$I
 I $$BGJOB^cQ14(JOB) D  Q 1
 . S ^cJOB(JOB,boot,"job","TYPE")="Backgr."
 . S ^cJOB(JOB,boot,"job","IP")="?"
 . S ^cJOB(JOB,boot,"job","NBN")="?"
 . S ^cJOB(JOB,boot,"job","MAC")="?"
 . S ^cJOB(JOB,boot,"job","IO")=1
 . S ^cJOB(JOB,boot,"job","UN")="Backgr."
 S ^cJOB(JOB,boot,"job","TYPE")=$S(ZDEV["@":"LAT",ZDEV["~":"Telnet",1:"Direct")
 S (NBN,^cJOB(JOB,boot,"job","NBN"))="??"
 S (MAC,^cJOB(JOB,boot,"job","MAC"))="??"
 S (IP,^cJOB(JOB,boot,"job","IP"))=$$IP(I)
 I $L(IP),IP'="?",$D(^cQSYS(CFG,"FIXED","IP",IP)) S K=^(IP),(NBN,^cJOB(JOB,boot,"job","NBN"),MAC,^cJOB(JOB,boot,"job","MAC"))="?" G IOSY
 S (NBN,^cJOB(JOB,boot,"job","NBN"))=$$NBN(I)
 I $L(NBN),NBN'="?",$D(^cQSYS(CFG,"FIXED","NBN",NBN)) S K=^(NBN),(MAC,^cJOB(JOB,boot,"job","MAC"))="?" G IOSY
 S (MAC,^cJOB(JOB,boot,"job","MAC"))=$$MAC(I)
 I $L(MAC),MAC'="?",$D(^cQSYS(CFG,"FIXED","MAC",MAC)) S K=^(MAC) G IOSY
 I I=1 S K=1 G IOSY
 I I?1.N S K=I G IOSY
IOSY S:K="" K=0 S ^cJOB(JOB,boot,"job","IO")=K
 I 'SWP,K="?" D  S SWP=1 G IOSA
 . S NBN=$$NBN^cQ5 I NBN'="?",'$D(^cQSYS(0,"FIXED","NBN",NBN)) D
 .. S P=1000,O=P F  S O=$O(^cQSYS(0,"DDB",O)) Q:O=""!(O-P>1)  S P=O
 .. S P=P+1,^cQSYS(0,"DDB",P)="TELN,,"_NBN_",",^cQSYS(0,"FIXED","NBN",NBN)=P
 . I NBN="?" D
 .. S IP=$$IP^cQ5 I IP'="?",'$D(^cQSYS(0,"FIXED","IP",IP)) D
 ... S P=1000,O=P F  S O=$O(^cQSYS(0,"DDB",O)) Q:O=""!(O-P>1)  S P=O
 ... S P=P+1,^cQSYS(0,"DDB",P)="TELN,"_IP_",,",^cQSYS(0,"FIXED","IP",IP)=P
IOSZ Q K
 ;
AIP(I,S) N CFG,J,K S S=+$G(S),I=$G(I,$I) S:I="" I=$I Q:I'?1.N
 S CFG=$$CONFIG^cQ9 Q:'$D(^cQSYS(CFG,"DDB",I))
 S K=$G(IP,"?") S:'S K=$$IP(I)
 I K'="?",$P(^cQSYS(CFG,"DDB",I),",",2)'=K D
 . S $P(^(I),",",2)=K,J=""
 . F  S J=$O(^(J)) Q:J=""  I J'=I,$P(^(J),",",2)=K S $P(^(J),",",2)=""
 Q
 ;
ANBN(I,S) N CFG,K S S=+$G(S),I=$G(I,$I) S:I="" I=$I Q:I'?1.N
 S CFG=$$CONFIG^cQ9 Q:'$D(^cQSYS(CFG,"DDB",I))
 S K=$G(NBN,"?") S:'S K=$$NBN(K)
 I K'="?",$P(^cQSYS(0,"DDB",I),",",3)'=K S $P(^cQSYS(CFG,"DDB",I),",",3)=K
 Q
 ;
AMAC(I,S) N CFG,K S S=+$G(S),I=$G(I,$I) S:I="" I=$I Q:I'?1.N
 S CFG=$$CONFIG^cQ9 Q:'$D(^cQSYS(CFG,"DDB",I))
 S K=$G(MAC,"?") S:'S K=$$MAC(I)
 I K'="?",$P(^cQSYS(CFG,"DDB",I),",",4)'=K S $P(^cQSYS(CFG,"DDB",I),",",4)=K
 Q
 ;
IP(I) N DDB,JOB,K,R,%v D MASTER
 S I=$G(I,$I) S:I="" I=$I S JOB=$$JOB^cQ14(I)
 I JOB,$D(^cJOB(JOB,boot,"job","IP")),^("IP")'="??" Q ^("IP")
 S K=$P($P(I,":"),"|",3) I $L(K),K?3(1.3N1".")1.3N Q K
 Q "?"
 ;
NBN(I) N DDB,JOB,K,R,%v D MASTER
 S I=$G(I,$I) S:I="" I=$I S JOB=$$JOB^cQ14(I)
 I JOB,$D(^cJOB(JOB,boot,"job","NBN")),^("NBN")'="??" Q ^("NBN")
 S K=$P($P(I,":"),"|",3) S:K["~" K=$P(K,"~",2) I $L(K),K'?3(1.3N1".")1.3N Q $$TOUPPER^cQ9($P(K,"."))
 Q "?"
 ;
MAC(I) N NBN,IP,JOB,K,R,%v D MASTER
 S I=$G(I,$I) S:I="" I=$I S JOB=$$JOB^cQ14(I)
 I JOB,$D(^cJOB(JOB,boot,"job","MAC")),^("MAC")'="??" Q ^("MAC")
 Q "?"
 ;
UN(I) N NBN,IP,JOB,K,R,%v D MASTER
 S I=$G(I,$I) S:I="" I=$I S JOB=$$JOB^cQ14(I)
 I JOB,$D(^cJOB(JOB,boot,"job","UN")) Q ^("UN")
 Q "?"
 ;
WHO(I) N CFG,K
 S I=$G(I,$I) S:I="" I=$I S CFG=$$CONFIG^cQ9,K=$$IO(I) I K="" S K=" "
 I $D(^cQSYS(CFG,"DDB",K)) I $L($P(^(K),",",3)) Q $P(^(K),",",3)
 Q "?"
 ;
ZDEV(I) N DDB,K
 Q $I
 ;
SM() Q $S($D(^cLOG(0,"SYSTEM","workstation")):"|"""_^("workstation")_"""|",1:"")
 ;
QT S QT=$G(QT,""),QTU=$S($L(QT):$F("FDE",QT),1:1) D MASTER
 Q
 ;
SYSN() D MASTER Q $P($G(^cLOG(cs,"DESCRIPTION",$$CONFIG^cQ9,0),$ZU(5)),"\")
 ;
UCILIB(UCI)        ;
 Q "%SYS"
 ;
LOGJOB D ^cA105,^cA106 D MASTER
 S ^cJOB($J,boot,"job","date_time")=$G(DT)_"\"_$G(TD)
 S ^("q")=$G(Q),^("qt")=$G(QT),^("qu")=$G(QU),^("qu1")=$G(QU(1))
 S ^("qu2")=$G(QU(2)),^("menu_gref")=$G(%ZM)
 S ^cJOB($J,boot,"job","menu_line")=$S($L($G(%ZM)):$G(@%ZM),1:"")
 Q
 ;
CC() Q $C(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31)
 ;
INFO() Q $$INFO^cQ14
 ;
YZ Q
 ;
ER S %=$ZE I $ZV'["MSM" S %ZTRAP="ER^"_$T(+0)
 D ^cA400
 I $ZV["MSM" ZQ
 I $ZV'["MSM" ZQ 1 I $ZT'="" G @$ZT
 Q
 ;
ZZ ; 24.08.01 -  9 u 19 * Cache-r3.1.8