cwmenu ; ;[ 04/06/2001  11:03 AM ]
 ;
 Kill
 Do INIT^vhTERMINA
 Open 108
 Use 108
 For Comp=0,1 Do
 .Write:Comp !,"EUR t.o.v. ADM"
 .Set QM=""
 .For  Set QM=$O(^KBA("MENU",QM)) Quit:QM=""  Do
 ..Set ML=""
 ..For  Set ML=$O(^KBA("MENU",QM,ML)) Quit:ML=""  Do
 ...Quit:$D(NC(QM,ML))
 ...Set Eur=^KBA("MENU",QM,ML),Adm=$G(^|"ADMIN1"|KBA("MENU",QM,ML))
 ...If $P(Eur,D,4)["%",$P(Adm,D,4)["%" Quit
 ...If $P(Eur,D,4)["%",Adm="" Quit
 ...Set Eur=$$UPCASE^vhRtn1($P(Eur,D)),Adm=$$UPCASE^vhRtn1($P(Adm,D))
 ...Quit:Eur=Adm
 ...If Comp Write !!,$ZR,!,Eur,?35,^KBA("MENU",QM,ML),!,Adm,?35,$G(^|"ADMIN1"|KBA("MENU",QM,ML))
 ...Else  Do
 ....For  Quit:$E(Eur)'=$E(Adm)  Set $E(Eur)="",$E(Adm)=""  Quit:Eur=""  Quit:Adm=""
 .....If $E(Eur)="C",$E(Adm)="K" Set $E(Eur)="K"
 ....For  Quit:$E(Eur,$L(Eur))'=$E(Adm,$L(Adm))  Set $E(Eur,$L(Eur))="",$E(Adm,$L(Adm))=""  Quit:Eur=""  Quit:Adm=""
 ....If $TR(Eur,"CK","")="",$TR(Adm,"CK","")="" Set NC(QM,ML)=""
 ....If $L(Eur)=1,$L(Adm)=1 Set NC(QM,ML)=""
 .Write:Comp #,"ADM t.o.v. EUR"
 .Set QM=""
 .For  Set QM=$O(^|"ADMIN1"|KBA("MENU",QM)) Quit:QM=""  Do
 ..Set ML=""
 ..For  Set ML=$O(^|"ADMIN1"|KBA("MENU",QM,ML)) Quit:ML=""  Do
 ...Quit:$D(NC(QM,ML))
 ...Set Adm=^|"ADMIN1"|KBA("MENU",QM,ML),Eur=$G(^KBA("MENU",QM,ML))
 ...If $P(Adm,D,4)["%",$P(Eur,D,4)["%" Quit
 ...If $P(Adm,D,4)["%",Eur="" Quit
 ...Set Adm=$$UPCASE^vhRtn1($P(Adm,D)),Eur=$$UPCASE^vhRtn1($P(Eur,D))
 ...Quit:Adm=Eur
 ...If Comp Write !!,$ZR,!,Adm,?35,^|"ADMIN1"|KBA("MENU",QM,ML),!,Eur,?35,$G(^KBA("MENU",QM,ML))
 ...Else  Do
 ....For  Do  Quit:$E(Adm)'=$E(Eur)  Set $E(Adm)="",$E(Eur)=""  Quit:Adm=""  Quit:Eur=""
 .....If $E(Adm)="K",$E(Eur)="C" Set $E(Adm)="C"
 ....For  Quit:$E(Adm,$L(Adm))'=$E(Eur,$L(Eur))  Set $E(Adm,$L(Adm))="",$E(Eur,$L(Eur))=""  Quit:Adm=""  Quit:Eur=""
 ....If $TR(Adm,"CK","")="",$TR(Eur,"CK","")="" Set NC(QM,ML)=""
 ....If $L(Adm)=1,$L(Eur)=1 Set NC(QM,ML)=""
 Write #
 Close 108
 Quit
 ;