A508 ;INTERN MENU-PROGRAMMA ;%A508; [ 06/26/2003  9:06 AM ]
 ;
 Use 0:(0::::262144)
 Do MASTER^cQ5,BUILD:$ZV["MSM",INIT^vhTERMINA
 if '$D(QU) set QU=^cLOG(boot,"PIN",$$IO^cQ5) D USR^cA5000(QU)
 Set Q=$P(^cLOG(boot,"QQM",$$IO^cQ5,$ZU(5)),"\")
 Set QM=$S('$D(QM):1,'QM:1,1:QM),QN=@("^"_Q_"BA(99,1)")
01 I $G(^cLOG(cs,"ZWINTERM",0))=1 S D="\" D B^cA612
02 I $G(^cLOG(cs,"ZWINTERM",0))'=1 D X^cA612
 Do 1^cA508,CLEAN:$ZV["MSM"
 Xecute:$D(FLO) FLO
 Quit
 ;
BUILD 
 New TermTyp
 If '$D(QU) Do
 .New D
 .Set D="\",CUserId=$$DEVUSER^vhUSER($$IO^cQ5)
 .If $L(CUserId,";")=1,CUserId Set QU=$$USERNAME^vhUSER(CUserId,-1) Quit:$L(QU)
 .For  Read /CUP(24,2),"qu (initialen): ",QU Set CUserId=$$USERID^vhUSER(QU) Quit:CUserId
 If $I<20,$I'=1 Do
 .Do MASTER^cQ5
 .Set:'$D(CUserId) CUserId=$$USERID^vhUSER(QU)
 .Set ^vhUSER("D",CUserId,"D",$$IO^cQ5)=""
 .Set ^vhUSER("ID",$$IO^cQ5,CUserId)=""
 .Set TermTyp=$S(CUserId=17:"MC",1:"VI")
 .Set:'$D(^cLOG(boot,"BELL",$$IO^cQ5)) ^cLOG(boot,"BELL",$$IO^cQ5)="*0"
 .Set:'$D(^cLOG(boot,"DDB","0",$$IO^cQ5)) ^cLOG(boot,"DDB","0",$$IO^cQ5)="Poort "_$$IO^cQ5_"\15\"_QU
 .Set:'$D(^cLOG(boot,"DEV",$$IO^cQ5)) ^cLOG(boot,"DEV",$$IO^cQ5)=TermTyp_"\BR\\\\\\\0"
 .Set:'$D(^cLOG(boot,"MUX",$$IO^cQ5)) ^cLOG(boot,"MUX",$$IO^cQ5)="LVH,BAD"
 .Set:'$D(^cLOG(boot,"QQM",$$IO^cQ5,$ZU(5))) ^cLOG(boot,"QQM",$$IO^cQ5,$ZU(5))=$S($P($ZU(5),",")="LVH":"K",1:"I")_"\1\"
 .Set:'$D(^cLOG(boot,"TERMINAL",$$IO^cQ5)) ^cLOG(boot,"TERMINAL",$$IO^cQ5)="D ^vhINITML S QU="""_QU_""""
 Do:$ZU(5)["DEV"
 .Kill ^cPRINT(boot,$J)
 .Set ^cPRINT(boot,$J,1001,0)="1\Inkjet CW\108\CA\\1\\\\\ICW\\\\\\\\\\\\\N K S:$ZV'[""MSM"" K=$$SetIO^cNLS(""C850"")\\\\58923,50467\CW"
 .Set ^cPRINT(boot,$J,1002,0)="2\Laser RM\115\CA\\1\\\\\ICW\\\\\\\\\\\\\\\\\58923,50467\CW"
 Quit
 ;
CLEAN 
 New R,CUserId,ZRTemp
 If $ZU(5)'["DEV",$I<20,$I'=1 Do
 .Set ZRTemp=$ZR
 .Do MASTER^cQ5
 .If $L($G(QU)) Do
 ..Set CUserId=$$USERID^vhUSER(QU)
 ..Quit:'CUserId
 ..Kill ^vhUSER("D",CUserId,"D",$$IO^cQ5)
 ..Kill ^vhUSER("ID",$$IO^cQ5,CUserId)
 .Set:$L(ZRTemp) R=$G(@ZRTemp)
 Do:$ZU(5)["DEV"
 .Set R=$ZR
 .Kill ^cPRINT(boot,$J)
 .Set R=$G(@R)
 Quit
 ;