6890N: Det fault / uninstalling unused detector

Years ago our 6890N (now used with MS) was used with an FID, and the detector is still installed. I fooled around with it a little bit about a month ago and actually got it to light and give me a signal, but I don't really need it.  So I went back to just using the GC/MS and everything was fine. 

When the GC boots up now, I get a message about B det failing chk sum.  I thought I could just get rid of the FID and my problem would be solved. I disconnected the ribbon cables for the gasses manifold, the ribbon for the electrometer, the ignition cable and the detector heater/sensor cable. Now, on startup, I get B det type mismatch and B det electrometer faults.  If I try to start Chemstation, it says "cannot bring up GC"

Error message from chemstation:

Log file is C:\msdchem\MSexe\icstart1.log.  Logging is on.
macro _exepath$+"dosnote.mac"
Macro(s) in C:\msdchem\MSexe\dosnote.mac loaded.
macro _exepath$+"ictopcm1.mac"
Macro(s) in C:\msdchem\MSexe\ictopcm1.mac loaded.
macro _exepath$+"ictopcm2.mac"
Macro(s) in C:\msdchem\MSexe\ictopcm2.mac loaded.
macro _exepath$+"instctlid.mac"
Macro(s) in C:\msdchem\MSexe\instctlid.mac loaded.
InitInstVars
varlock 0
Variable locking is OFF
InitInstVars_GC
_gctype = getinfo("inlet_gc")
0
_isgc = 0
0
_isgc6850 = 0
0
_isgc6890 = 0
0
_isgc7810 = 0
0
_isgc7820 = 0
0
_isgc7890 = 0
0
_isgcOther = 0
0
_isgc68xx = 0
0
_isgc78xx = 0
0
_isgcRC = 0
0
_gcname$="??_GC"
??_GC
gcmod$ = ""
if _gctype = 0
_isgc6890 = 1
1
_isgc68xx = 1
1
_isgcRC = getinfo("GC68x0TYPE")
0
_isgc = 1
1
_gcname$ = "6890"
6890
gcmod$ = "68GC"
68GC
return
InitInstVars_MS
_mstype = getinfo("ms_type")
4
_isms = 0
0
_ismsQ1 = 0
0
_isMS5973N = 0
0
_isMS5975 = 0
0
_isMS5976 = 0
0
_isMS5977 = 0
0
_ismsQQQ = 0
0
_ismsQTOF = 0
0
_ismsTOF = 0
0
_ismsTrap = 0
0
_msname$ = "??_MS"
??_MS
_mstype$ = "MS?"
MS?
if _mstype = 1
endif
if _mstype = 2
endif
if _mstype = 3
endif
if _mstype = 4
_isms = 1
1
_ismsQ1 = 1
1
_isMS5973N = 1
1
_msname$ = "5973N"
5973N
_mstype$ = "MSD"
MSD
return
InitInstVars_HS
local i
varlock off
Variable locking is OFF
_isHS =0
0
_isHS7694 =0
0
_isHSG1888=0
0
_isHS7697 =0
0
_isHSmodel$=""
i=getinfo("hs_type")
0
if i=0
return
set_gcinst
if _isms=0 and check("variable","_dotnet") = 0
_gcinst=-1
-1
endif
_adinst=-1
-1
return
_enhapp = val(getinistring$("", "pcs, "+val$(_instnum), "application"))
0
_isoffline = getinfo("offline")
0
_alstype = getinfo("als_type")
0
_isctc = 0
0
_ctcname$="NO_CTC"
NO_CTC
if _alstype = 2
endif
varlock 1
Variable locking is ON
return
NoTop=1
1
macro _exepath$+"eqabout.mac"
Macro(s) in C:\msdchem\MSexe\eqabout.mac loaded.
doabout 1,1
LOCAL BitmapName$,CP_Title$, AppName$, AppVersion$, Copyright$,dllfile$
local a$,appnames$
if Initialize = 1
set_application
a$=getinistring$("","pcs,"+val$(_instnum),"application")
1
varlock 0
Variable locking is OFF
_enhapp = val(a$)
1
_enhapp$=_$(18546,"Unknown")
Unknown
MHapp = 0
0
local i,inifile$,inisect$,app
inifile$=""
inisect$="PCS,"+val$(_instnum)
PCS,1
if _enhapp=0
endif
if instr(upper$(_appname$),"MSINSCTL") > 0
i=setinistring(_tunepath$+"tempini.ini","EQ","EQ","1")
1
value=filestat(_exepath$+"MSINSCTL.EXE")
ARRAY of length 11
varlock 0
Variable locking is OFF
if value[7]=0
SA=0
0
_enhmode=2
2
local size
filesize _exepath$+"msqqq.dll"
if size <= 0
filesize _exepath$+"msd597x.dll"
endif
if size <= 0 and _gcinst < 1
endif
endif
else
endif
if _gcinst>=0
_macropath$=_exepath$[1:len(_exepath$)-4]+"MACROS\"
C:\msdchem\MSMACROS\
endif
local drugpath$
drugpath$=_exepath$[1:len(_exepath$)-6]+"DRUGMACS\"
C:\msdchem\DRUGMACS\
if _enhapp=1
initop$="MSTOP.INI"
MSTOP.INI
toprfgmode = 0
0
_eq_running=1
1
_helpfile$="enviroqnt.chm"
enviroqnt.chm
_enhapp$=_$(19455,"Environmental")
Environmental
endif
if _enhapp=2
endif
if _enhapp=3
endif
if _enhapp=5
endif
if _enhapp=666
endif
_topinipath$ = _exepath$
C:\msdchem\MSexe\
_topinifile$ = _topinipath$+"mstop.ini"
C:\msdchem\MSexe\mstop.ini
if check("variable","_dotnet") > 0
endif
value=filestat(_macropath$+initop$)
ARRAY of length 11
if value[7]=1
_topinipath$=_macropath$
C:\msdchem\MSMACROS\
if _cfrmode=1
endif
endif
_topinifile$=_topinipath$+initop$
C:\msdchem\MSMACROS\MSTOP.INI
if NoTop = 1
topinifile$=_topinifile$
C:\msdchem\MSMACROS\MSTOP.INI
endif
remove initop$
Removed variable INITOP$
varlock 1
Variable locking is ON
return
endif
if noshow = 1
remove DoAbout
Removed macro DOABOUT
whoami_OS=1
1
CFGOperator=1
1
add_menusep=0
0
edacpsecure=0
0
if check("macro","topreqinit") = 0
inifile$=_instpath$+"msanyone.ini"
C:\msdchem\1\msanyone.ini
inisect$="security"
security
edacpsecure = val(getinistring$(inifile$,inisect$,"enabled"))
0
if edacpsecure = 1
endif
macro _exepath$+"msnconfg.mac"
Macro(s) in C:\msdchem\MSexe\msnconfg.mac loaded.
endif
GetOperators
varlock 0
Variable locking is OFF
_operator$=whoami$()
_seqoperator$=_operator$
varlock 1
Variable locking is ON
return
on_error startuperror 1
macro _exepath$+"locallang.mac",go
Macro(s) in C:\msdchem\MSexe\locallang.mac loaded.
GETLANGUAGES
local a$, b$, c$, d, e
if (check("variable", "_dotnet") = 0)
a$="Software\Agilent Technologies\MS ChemStation"
Software\Agilent Technologies\MS ChemStation
else
endif
b$ = "InstallLang"
InstallLang
c$ = "RunLang"
RunLang
getregvalue_ 0, a$, b$, d
local a,Mnode$,IsScalar,CheckWow,retval,skey$,found_one,mustkey$
a=instr(node$,"\")
9
Mnode$ = node$[1:a]
Software\
node$=node$[a+1:len(node$)]
Agilent Technologies\MS ChemStation
IsScalar=check("Scalar","item")
1
tree$=Mnode$+node$
Software\Agilent Technologies\MS ChemStation
retval=""
if IsScalar = 1
retval = 0
0
endif
getregvalue what,tree$,element$,retval,special
if IsScalar = 0
if retval = 0
checkWow = 1
1
endif
endif
if CheckWow = 1
Mnode$ = Mnode$+"Wow6432node\"
Software\Wow6432node\
tree$=Mnode$+node$
Software\Wow6432node\Agilent Technologies\MS ChemStation
getregvalue what,tree$,element$,retval,special
endif
item = retval
1033
return
getregvalue_ 0, a$, c$, e
local a,Mnode$,IsScalar,CheckWow,retval,skey$,found_one,mustkey$
a=instr(node$,"\")
9
Mnode$ = node$[1:a]
Software\
node$=node$[a+1:len(node$)]
Agilent Technologies\MS ChemStation
IsScalar=check("Scalar","item")
1
tree$=Mnode$+node$
Software\Agilent Technologies\MS ChemStation
retval=""
if IsScalar = 1
retval = 0
0
endif
getregvalue what,tree$,element$,retval,special
if IsScalar = 0
if retval = 0
checkWow = 1
1
endif
endif
if CheckWow = 1
Mnode$ = Mnode$+"Wow6432node\"
Software\Wow6432node\
tree$=Mnode$+node$
Software\Wow6432node\Agilent Technologies\MS ChemStation
getregvalue what,tree$,element$,retval,special
endif
item = retval
0
return
print "InstallLang: ", d, "    RunLang: ", e
InstallLang:  1033     RunLang:  0
varlock off
Variable locking is OFF
_OSlanguage=e
0
_CSlanguage=d
1033
_EnglishHelp$="Enhanced_en.chm"
Enhanced_en.chm
varlock on
Variable locking is ON
setsysfont
varlock off
Variable locking is OFF
if _CSlanguage = 1041
endif
if _CSlanguage = 2052
endif
if _CSlanguage <> 1041 and _CSlanguage <> 2052 then
_systemFont$ = "Arial"
Arial
endif
print "System Font: ", _systemFont$
System Font:  Arial
varlock on
Variable locking is ON
return
return
IsTop=0
0
slt_edit_state=0
0
UserSLTEdit=0
0
lf$=chr$(13)+chr$(10)


crlf$=lf$


PrivEnabled = 0
0
if check("variable","_dotnet") > 0
endif
MACRO _envcomm$+"AUDIT.MAC"
Macro(s) in C:\msdchem\MSexe\AUDIT.MAC loaded.
audit_global
audit_0 = 1
1
audit_1 = 1
1
audit_2 = 1
1
audit_time = 0
0
audit_timeout = 0.5
0.5
audit_pass = 0
0
audit_dfile = 10
10
audit_mfile = 11
11
audit_dname$="Audit.txt"
Audit.txt
audit_mname$="Audit.txt"
Audit.txt
audit_format= 1
1
audit_user$=""
event$=""
message$=""
severity=2
2
return
remove audit_global
Removed macro AUDIT_GLOBAL
AUDIT_0=0
0
on_error emethoderror
dimemeth=0
0
filesize _exepath$+"emethod.dll"
if size>10
emthdll=dllinstall(_exepath$+"emethod.dll")
7
endif
on_error startuperror 1
emethimptgt$=getinistring$("","pcs","eMethodImport")
emethexptgt$=getinistring$("","pcs","eMethodExport")
LOGBKDLL = -1
-1
LOGBKDLL = dllinstall(_exepath$+"mslogbk.dll")
8
macro _exepath$+"dolb.mac"
Macro(s) in C:\msdchem\MSexe\dolb.mac loaded.
dolb_cs 0
local a$
if mode=0
a$=getinistring$("","PCS,"+val$(_instnum),"CS_shutdown")
0
if val(a$)=0
lbaddentry "CHEMSTATION",_$(17314,"Startup initiated.")
else
endif
setinistring("","PCS,"+val$(_instnum),"CS_shutdown","1")
1
else
endif
return
Dim MprintVars,5
Array MprintVars(5) has been created
GetMprintVars
local TMPrintVars,astat,num_check
dim TMPrintVars,5
Array TMPrintVars(5) has been created
local inifile$,inisect$,labels$,buttons$,title$
inifile$=_instpath$+"hst.ini"
C:\msdchem\1\hst.ini
inisect$="Method Print"
Method Print
if what = 1
TMPrintVars[1]=getiniint(inifile$,inisect$,"Method Control")
ARRAY of length 5
TMPrintVars[2]=getiniint(inifile$,inisect$,"GC")
ARRAY of length 5
TMPrintVars[3]=getiniint(inifile$,inisect$,"MS")
ARRAY of length 5
TMPrintVars[4]=getiniint(inifile$,inisect$,"DA Summary")
ARRAY of length 5
TMPrintVars[5]=getiniint(inifile$,inisect$,"DA Detailed")
ARRAY of length 5
astat=arraystat(TMPrintVars,5)
ARRAY of length 6
if astat[6]=-1
TMPrintVars[1]=1
ARRAY of length 5
TMPrintVars[2]=1
ARRAY of length 5
TMPrintVars[3]=1
ARRAY of length 5
TMPrintVars[4]=1
ARRAY of length 5
TMPrintVars[5]=0
ARRAY of length 5
endif
MPrintVars=TMPrintVars
ARRAY of length 5
return
GetBprintVars
local TBPrintVars,astat,num_check
dim TBPrintVars,5
Array TBPrintVars(5) has been created
local inifile$,inisect$,labels$,buttons$,title$
inifile$=_instpath$+"hst.ini"
C:\msdchem\1\hst.ini
inisect$="Button Print"
Button Print
if what = 1
TBPrintVars[1]=getiniint(inifile$,inisect$,"Sequence Log")
ARRAY of length 5
TBPrintVars[2]=getiniint(inifile$,inisect$,"Current Sequence")
ARRAY of length 5
TBPrintVars[3]=getiniint(inifile$,inisect$,"Instrument Parameters")
ARRAY of length 5
inisect$="Method Print"
Method Print
TBPrintVars[4]=getiniint(inifile$,inisect$,"DA Summary")
ARRAY of length 5
TBPrintVars[5]=getiniint(inifile$,inisect$,"DA Detailed")
ARRAY of length 5
astat=arraystat(TBPrintVars,5)
ARRAY of length 6
if astat[6]=-1
filesize _instpath$+"sequence.log"
if size > 0
TBPrintVars[1]=1
ARRAY of length 5
else
endif
TBPrintVars[2]=0
ARRAY of length 5
TBPrintVars[3]=1
ARRAY of length 5
TBPrintVars[4]=0
ARRAY of length 5
TBPrintVars[5]=0
ARRAY of length 5
endif
BPrintVars=TBPrintVars
ARRAY of length 5
return
if (check("variable", "_dotnet") = 0)
fixem7890
local a$,d$
on_error
if _isgcrc=0
return
endif
ntmenulabel$=_$(28730,"&Top")
&Top
ntmenumsg$ = _$(28731,"Display Top Level Panel")
Display Top Level Panel
if NoTop = 1
ntmenulabel$=_$(28732,"&Sequence/Automated Control")
&Sequence/Automated Control
ntmenumsg$ = _$(28733,"Display Sequence/Automated Control Panel")
Display Sequence/Automated Control Panel
macro _exepath$+"ictop.mac",go
Macro(s) in C:\msdchem\MSexe\ictop.mac loaded.
ICTOP_INIT
local defseq$, initseq$
white=1
1
green=2
2
yellow=3
3
red=4
4
strdim color$,4
Array color$(4) has been created
color$[1]="White"
White
color$[2]="Green"
Green
color$[3]="Yellow"
Yellow
color$[4]="Red"
Red
UseDrugIS = 0
0
UseClassicBatch=getiniint("","pcs,"+val$(_instnum),"UseClassicBatch")
-1
if UseClassicBatch < 0 or UseClassicBatch > 1
UseClassicBatch = 0
0
endif
filesize _exepath$+"TopBatch.mac"
if size > 0
BatchModeAvailable=1
1
macro _exepath$+"topbatch.mac",go
Macro(s) in C:\msdchem\MSexe\topbatch.mac loaded.
BSLOAD
remove bsload
Removed macro BSLOAD
else
endif
filesize _exepath$+"sens73.mac"
if size > 0
macro _exepath$+"sens73.mac"
Macro(s) in C:\msdchem\MSexe\sens73.mac loaded.
endif
varlock off
Variable locking is OFF
_dllpath$=_exepath$
C:\msdchem\MSexe\
if check("variable","_enhapp$")=0
endif
if check("variable","toprfgmode")=0
endif
if check("variable","_hp3365")=0
_hp3365=0
0
endif
if check("variable","usetek")=0
usetek=0
0
endif
if check("variable","gc90isON")=0
gc90isON=0
0
endif
_synchronize=0
0
varlock on
Variable locking is ON
if val(getinistring$("","pcs,"+val$(_instnum),"AD_ID"))>0
endif
varlock off
Variable locking is OFF
if _enhapp = 5
endif
varlock 0
Variable locking is OFF
_currentver = 2.10
2.1
SEQ_TRACE = 0
0
POSITIONED = 0
0
IN_SUBSEQ = 0
0
UseOldSlt = val(getinistring$("","pcs,"+val$(_instnum),"UseOldSlt"))
0
SLTChoice = val(getinistring$("","pcs,"+val$(_instnum),"SltChoice"))
0
_OverWrite = 0
0
_SeqLine = 1
1
_insctlerrmsg$ = ""
_daerrmsg$ = ""
_skipacq = 0
0
_RMStage$ = ""
canceltext$=_$(19437,"Cancelled")
Cancelled
lpwidth=74
74
lplength=62
62
if _cfrmode = 1
on_error starterror _$(19438,"Printer not responding!  Default values assigned!"),1
endif
pagesize lpwidth,lplength
The default printer is 129 characters wide and has 63 lines.
on_error starterror
_methpath$ = GETINISTRING$("","PCS,"+VAL$(_instnum),"_METHPATH$")
C:\msdchem\1\METHODS\
_seqpath$ = getinistring$("","pcs,"+val$(_instnum),"_seqpath$")
C:\msdchem\1\sequence\
_seqfile$ = getinistring$("","pcs,"+val$(_instnum),"_seqfile$")
default.s
_UserDefined=""
_UserDefined9=""
varlock 1
Variable locking is ON
sum = FILESTAT(_MethPath$ + _MethFile$)
ARRAY of length 11
if (sum[7] <> 2)
endif
z_oldmethpath$ = _methpath$
C:\msdchem\1\METHODS\
z_oldmethfile$ = _methfile$
DEFAULT.M
ZCheckBar = 0
0
filesize _seqpath$+_seqfile$
If size<1
loadsequence _seqpath$+_seqfile$
endif
macro _exepath$+"ecmicpdf.mac"
Macro(s) in C:\msdchem\MSexe\ecmicpdf.mac loaded.
getsysprinter
local a$,NoNotify
NoNotify=val(getinistring$("","pcs","PDFprinter_OK"))
0
sysprinter$=""
defprinter sysprinter$
if (check("FUNCTION", "GETDEFPRINTER$") > 0)
endif
strdim lmcpstrings,1
Array lmcpstrings(1) has been created
strdim lmcpscalars,1
Array lmcpscalars(1) has been created
ililil=1
1
lmcpstrings[1]="theprinter$"
theprinter$
lmcpscalars[1]="ililil"
ililil
lmcpexecute "theprinter$=getdefprinter$()"
print theprinter$
Microsoft Print to PDF
remove ililil
Removed variable ILILIL
return
if instr(upper$(sysprinter$),"ADOBE")>0 or instr(upper$(sysprinter$),"PDF")>0
if NoNotify = 0
alert _$(35336,"Windows default Printer is ")+sysprinter$,2
endif
else
endif
return
fullseqdebug=1
1
setinistring("","pcs,"+val$(_instnum),"fullseqdebug","")
1
restore_defaults
local inifile$,inisect$,fvars
inifile$=""
inisect$="PCS,"+val$(_instnum)
PCS,1
varlock off
Variable locking is OFF
_methpath$=getinistring$(inifile$,inisect$,"_methpath$")
C:\msdchem\1\METHODS\
_methfile$=getinistring$(inifile$,inisect$,"_methfile$")
DEFAULT.M
_seqpath$=getinistring$(inifile$,inisect$,"_seqpath$")
C:\msdchem\1\sequence\
_seqfile$=getinistring$(inifile$,inisect$,"_seqfile$")
default.s
_datapath$=getinistring$(inifile$,inisect$,"nextdatapath")
C:\msdchem\1\DATA\
_datafile$=getinistring$(inifile$,inisect$,"nextdatafile")
EVALDEMO.D
_datapath2$=getinistring$(inifile$,inisect$,"nextdatapath")
C:\msdchem\1\DATA\
_datafile2$=getinistring$(inifile$,inisect$,"nextdatafile")
EVALDEMO.D
fvars=filestat(_datapath$)
ARRAY of length 11
if len(_datapath$)=0 or fvars[7]=0 or len(_datafile$)=0
endif
if eqstr(_datafile$,"evaldemo.d") OR len(_datafile$) = 0
_datafile$=_instname$+"_001.D"
VOCs_001.D
endif
varlock on
Variable locking is ON
toptitle
local topvar$,IsTop
if instr(upper$(_appname$),"MSTOP") > 0
endif
if _enhapp = 5
if IsTop = 1
cp_title _InstName$+" "+topvar$+"/"+_enhapp$+" - " + ext$+" / "+_seqfile$
local Cdotnet
cptitle title$
if check("variable","_dotnet") = 1
endif
if Cdotnet = 0
getwindowid title$
varlock off
Variable locking is OFF
if IsTop = 1
_instctlID=_windowID
1.70559e+006
endif
varlock on
Variable locking is ON
endif
return
endif
endif
return
return
GC_InitMultiMS
filesize _exepath$+"GCPERM.mac"
if size > 0
macro _exepath$+"gcperm.mac"
Macro(s) in C:\msdchem\MSexe\gcperm.mac loaded.
if _gcinst = -1
remove tune,acquisition
Removed macro TUNE
Removed macro ACQUISITION
endif
if _adinst <= 0
remove memmode
Removed macro MEMMODE
endif
endif
filesize _exepath$+"locsave.mac"
if size > 0
endif
remove gc_InitMultiMS
Removed macro GC_INITMULTIMS
samplelogtable inifile,_topinifile$
enhwelcome
if (check("variable","_dotnet") = 1)
sprint enhcontext$ using _$(19453,"Welcome to the % Agilent MSD ChemStation"),_enhapp$
endif
return
return
endif
if check("variable","_libpath$") = 0
varlock 0
Variable locking is OFF
_libpath$ = getinistring$("","pcs,"+val$(_instnum),"_libpath$")
C:\DATABASE\
varlock 1
Variable locking is ON
endif
local ddeini$, instnum$, app$
if _ismsQ1 = 1 then
GASALLOW = 6.0
6
PURGEALLOW = 6.0
6
endif
IGNOREHWSOURCE=0
0
UseOldSlt = val(getinistring$("","pcs,"+val$(_instnum),"UseOldSlt"))
0
varlock 0
Variable locking is OFF
local a$,b$,i
macro _exepath$+"cright.mac"
Macro(s) in C:\msdchem\MSexe\cright.mac loaded.
cright a$,b$
if 1=1
a$=version$()
MSD ChemStation E.02.02.1431   Copyright © 1989-2011 Agilent Technologies, Inc.
i=instr(upper$(a$),"COPY")
32
if i=0
endif
if i > 1
a$=a$[i:len(a$)]
Copyright © 1989-2011 Agilent Technologies, Inc.
endif
b$="Agilent Technologies"
Agilent Technologies
return
_cpyright$ = a$
Copyright © 1989-2011 Agilent Technologies, Inc.
_cpyname$ = b$
Agilent Technologies
_nativefmt=1
1
remove cright
Removed macro CRIGHT
_RMStage$=""
_runmode = 1
1
_injloc = 1
1
_overlapped = 0
0
_ptavail =0
0
BcodeFail = 0
0
_HSSkip = 0
0
UseDecisions = 0
0
_expbcnext$=""
_expbcnext2$=""
_ECMInstalled = 0
0
_ECMIn = 0
0
_ECMHasPriv = 0
0
_ECMupLock =0
0
_ECMDnLock =0
0
_ECMDataPath$=""
_ECMMethPath$=""
_ECMSeqPath$=""
ECMDataP$=""
ECMMethodP$=""
ECMSequenceP$=""
ECMHook=0
0
pauseseq=0
0
RTLRelockvar=2
2
RTLCalvar=2
2
_ALSSkip=0
0
if getinfo("offline") = 0
RTLCalvar = 0
0
endif
if NoTop = 0
endif
varlock 1
Variable locking is ON
getwinloc topx,topy,topwid,topheight
filesize _tunepath$+"tempini.ini"
if size>0
varlock off
Variable locking is OFF
_eq_running=1
1
varlock on
Variable locking is ON
delete _tunepath$+"tempini.ini",dontask
Deleted C:\msdchem\1\5973N\tempini.ini
Deleted C:\msdchem\1\5973N\tempini.ini
endif
varlock off
Variable locking is OFF
_TUNEVIEW = 0
0
_auxdisable = 2
2
_currentver = 2.10
2.1
if _isms = 0
_macropath$=_exepath$[1:len(_exepath$)-6]+"MSMACROS\"
C:\msdchem\MSMACROS\
endif
canceltext$=_$(28734,"Cancelled")
Cancelled
varlock on
Variable locking is ON
UNATTENDED = 1
1
GADGETDLL = -1
-1
TRACEDLL = -1
-1
CTCDLL = -1
-1
GC5890DLL = -1
-1
GC6890DLL = -1
-1
GC7890DLL = -1
-1
GC6850DLL = -1
-1
MSACQDLL = -1
-1
msd_serial_n$=""
RUNCTLDLL = -1
-1
AD35900DLL = -1
-1
AUXDLL = -1
-1
HSDLL=-1
-1
Acq_Mode = 0
0
SecMSStatusPanel
if PrivEnabled = 0
return
macro _exepath$+"instcmn.mac"
Macro(s) in C:\msdchem\MSexe\instcmn.mac loaded.
instrview ,0
The instrument view is 0
ddeini$=_temppath$+"ddenames.ini"
C:\Users\S2Lab\AppData\Local\Temp\ddenames.ini
instnum$="PCS,"+val$(_instnum)
PCS,1
app$="TOP"
TOP
varlock off
Variable locking is OFF
_TOPDDE$ = getinistring$(ddeini$, instnum$, app$)
if (LEN(_TOPDDE$) = 0)
_TOPDDE$ = "MSTOP"
MSTOP
endif
if check("scalar","_TopWinId") = 0 THEN
endif
varlock on
Variable locking is ON
MS_FW$=""
echomode off
macro _ExePath$+"prepost.mac"
Macro(s) in C:\msdchem\MSexe\prepost.mac loaded.
macro _exepath$+"keywdins.mac"
Macro(s) in C:\msdchem\MSexe\keywdins.mac loaded.
macro _exepath$+"hst.mac"
Macro(s) in C:\msdchem\MSexe\hst.mac loaded.
macro _exepath$+"lfncomm.mac"
Macro(s) in C:\msdchem\MSexe\lfncomm.mac loaded.
macro _exepath$+"ICTBMnu.mac"
Macro(s) in C:\msdchem\MSexe\ICTBMnu.mac loaded.
ldTuneKeyWds
echomode off
TYPE = getinfo("ms_type")
4
if (TYPE = 3) OR (TYPE = 4)
macro _exepath$+"keywd7x.mac"
Macro(s) in C:\msdchem\MSexe\keywd7x.mac loaded.
endif
if (TYPE = 5)
endif
if (TYPE = 6)
endif
RETURN
if _enhapp = 5
endif
cmdline on
minibar
LOCAL msg$
MENUBEG
MENUNEW _$(28712,"&Abort")
MENUSTP
MENUNEW _$(28713,"E&xit")
msg$ = _$(28714,"Exit ChemStation #")+val$(_INSTNUM)
Exit ChemStation #1
if (GetInfo("OFFLINE"))
endif
MENUCMD _$(28716,"E&xit"), "bye", msg$
MENUEND
MENUSHW STDMENU
return
logddename
local ddeini$, instnum$, app$, ok
ddeini$ = _temppath$ + "ddenames.ini"
C:\Users\S2Lab\AppData\Local\Temp\ddenames.ini
instnum$ = "PCS," + val$(_instnum)
PCS,1
app$ = "MSINSCTL"
MSINSCTL
ok=setinistring(ddeini$, instnum$, app$, ddename$)
1
return
Check_CFTinstalled
varlock 0
Variable locking is OFF
_CFTInstalled = 0
0
filesize _exepath$+"cft_MSutils.mac"
if size > 0
endif
return
Macro _exepath$ + "hook.mac", go
Macro(s) in C:\msdchem\MSexe\hook.mac loaded.
AUTO
checkforHooks
FileSize _exepath$ + "user.mac"
If size > 0
EndIf
Return
return
AddonPath$ = GETINISTRING$("","PCS,"+VAL$(_instnum),"HSAddOnPath")
if len(AddonPath$) <> 0 then
endif
execKeyword _autocmd$,0
LOCAL answer, jobCanceled, msconnected
keywd$=lower$(keywd$)
if len(keyWd$) = 0 then
keyWd$ = "acquisition"
acquisition
endif
isAcqKeyWord keyWd$, answer
local tmpstr$
tmpstr$ = upper$(keyWd$)
ACQUISITION
answer = 0
0
if eqstr(keyWd$, "acquisition") then
answer = 1
1
endif
if eqstr(keyWd$, "editmethod") then
endif
if eqstr(keyWd$, "savemethod") then
endif
if INSTR(tmpstr$, "RUNMETHOD") then
endif
if (INSTR(tmpstr$, "PRINTMETHOD") = 1) then
endif
if eqstr(keyWd$, "loadmethod") then
endif
RETURN
if answer = 1 then
tuneView "hide", jobCanceled
jobCanceled = 0
0
state=lower$(state)
hide
if eqstr(state, "hide")
if (_instrview = 2) then
endif
instrview ,0
The instrument view is 0
if (check("variable", "_dotnet") = 0)
gclear
endif
minibar
LOCAL msg$
MENUBEG
MENUNEW _$(28712,"&Abort")
MENUSTP
MENUNEW _$(28713,"E&xit")
msg$ = _$(28714,"Exit ChemStation #")+val$(_INSTNUM)
Exit ChemStation #1
if (GetInfo("OFFLINE"))
endif
MENUCMD _$(28716,"E&xit"), "bye", msg$
MENUEND
MENUSHW STDMENU
return
endif
if eqstr(state, "show")
endif
return
if jobCanceled = 1 then
if _ismsQ1 = 1 and check("command", "mscheck")=1 then
mscheck msconnected
Done.
if ( msconnected = 1)
msoff
Mass spectrometer is off.
endif
endif
acqView "show", jobCanceled
jobCanceled = 0
0
set_ic_logging
if inst_startup = 1 or check("macro","RunSequence")
return
state=lower$(state)
show
if eqstr(state, "show")
if (_instrview <> 1) then
instrview ,0
The instrument view is 0
if _mstype>=5
endif
macro _exepath$+"instctl.mac",go
Macro(s) in C:\msdchem\MSexe\instctl.mac loaded.
INSTCTL
LOCAL a$, gcid, alsid
local inifile$,inisect$,appmode
LOCAL inlet_gc, als_Type
VARLOCK off
Variable locking is OFF
if check("variable","_traypicked")=0
strdim _trayname,3
Array _trayname(3) has been created
_TRAYPICKED = ""
_NUMOFTRAYS = 0
0
_SYRVOL = 10
10
_SYRVOLLOW = 1
1
_INJVOL = 1
1
_METHVOL = 1
1
_SYRVOL2 = 10
10
_INJVOL2 = 1
1
_METHVOL2 = 1
1
_TRAYNAME[1] = ""
_TRAYNAME[2] = ""
_TRAYNAME[3] = ""
endif
if check("variable","_maxvial")=0
endif
if check("variable","_tower")=0
_TOWER = 0
0
endif
VARLOCK on
Variable locking is ON
if check("variable","_eq_running")=1
macro _exepath$+"envinst.mac"
Macro(s) in C:\msdchem\MSexe\envinst.mac loaded.
endif
if check("macro","MakeTmpMeth") = 0
macro _exepath$+"methcmmn.mac"
Macro(s) in C:\msdchem\MSexe\methcmmn.mac loaded.
endif
macro _exepath$+"instctl2.mac"
Macro(s) in C:\msdchem\MSexe\instctl2.mac loaded.
Honor_RTL = 0
0
RTLUnlock = 2
2
inifile$ = ""
inisect$ = "PCS,"+val$(_instnum)
PCS,1
appmode = val(getinistring$(inifile$,inisect$,"application"))
1
Honor_RTL = 1
1
Paint_IC_UI
local new_h,new_w
if Repaint = 0
PRINT _$(19894,"Loading Instrument Control DLLs...")
Loading Instrument Control DLLs...
GADGETDLL = dllinstall(_exepath$+"instctlui.dll")
9
endif
LS$=_$(19895,"Sequence")
Sequence
LM$=_$(19896,"Method")
Method
LI$=_$(19897,"Instrument")
Instrument
if check("variable", "_dotnet") = 1
IC_UI_Mustang Repaint
local hbar,new_w
xpos = 5
5
ypos = 5
5
iccreatehp(2,xpos,ypos)
722814
xpos=xpos+125
130
iccreatehp(3,xpos,ypos)
2.55809e+006
xpos=xpos+264
394
iccreatehp(10,xpos,ypos)
2.95125e+006
xpos=xpos+125
519
xinc = 65
65
iccreatehp(8,xpos,ypos)
1.44341e+006
xpos=xpos+xinc
584
LBcreateBM(200,xpos,ypos)
1.50885e+006
xpos=xpos+xinc
649
if getinfo("offline")<>1
iccreatehp(20,xpos,ypos)
592446
xpos = xpos + xinc
714
endif
iccreatehp(30,xpos,ypos)
788726
xpos = xpos + xinc
779
iccreatehp(7,xpos,ypos)
1.37782e+006
xpos = 5
5
hbar = 20
20
xadj = 0
0
ypos = 75
75
new_w = 5 * xinc - 5
320
iccreatebar (104,LS$,xpos,ypos,new_w+xadj,hbar)
985844
xpos = xpos + new_w + 15
340
new_w = 4 * xinc - 5
255
iccreatebar (105,LM$,xpos,ypos,new_w+xadj,hbar)
1.37903e+006
xpos = xpos + new_w + 15
610
new_w = 3 * xinc - 5
190
if getinfo("als_type")=2 and _isms = 1
if _isms = 0
endif
endif
iccreatebar (106,LI$,xpos,ypos,new_w+xadj,hbar)
1.63999e+006
xpos = 5
5
ypos = 100
100
iccreatehp(21,xpos,ypos)
1.77223e+006
xpos = xpos+xinc
70
iccreatehp(22,xpos,ypos)
919520
xpos = xpos+xinc
135
iccreatehp(23,xpos,ypos)
2.16498e+006
xpos = xpos+xinc
200
iccreatehp(24,xpos,ypos)
1.57486e+006
xpos = xpos+xinc
265
iccreatehp(25,xpos,ypos)
1.05115e+006
xPos = xPos + xinc + 10
340
iccreatehp(26,xpos,ypos)
199572
xpos = xpos+xinc
405
iccreatehp(27,xpos,ypos)
134232
xpos = xpos+xinc
470
iccreatehp(28,xpos,ypos)
199792
xpos = xpos+xinc
535
iccreatehp(29,xpos,ypos)
1.24774e+006
xPos = xPos + xinc + 10
610
return
endif
remove LS$,LM$,LI$
Removed variable LS$
Removed variable LM$
Removed variable LI$
return
InitializeTraces
TRACEDLL = dllinstall(_exepath$+"traces.dll")
10
if check("variable", "_dotnet") = 1
endif
return
ICHPStatus = 2
2
als_type = getinfo("als_type")
0
if (als_type = 2)
endif
inlet_gc = getinfo("inlet_gc")
0
IF (inlet_gc = 0) THEN
GC6890
local oven_button
oven_button = 604
604
PRINT _$(19892,"Loading GC 6890...")
Loading GC 6890...
varlock off
Variable locking is OFF
_overlap = 0
0
varlock on
Variable locking is ON
if (CTCDLL = -1)
VARLOCK off
Variable locking is OFF
strdim _trayname,1
Array _trayname(1) has been created
_TRAYPICKED = "Agilent ALS"
Agilent ALS
_NUMOFTRAYS = 1
1
_SYRVOL = 10
10
_SYRVOLLOW = 1
1
_SYRVOL2 = 10
10
_INJVOL = 0
0
_INJVOL2 = 0
0
_METHVOL = 1
1
_METHVOL2 = 1
1
if check("variable","_maxvial")=0
endif
_TOWER = 0
0
_TRAYNAME[1] = "Agilent ALS"
Agilent ALS
VARLOCK on
Variable locking is ON
endif
strdim _valve$,8
Array _valve$(8) has been created
varlock off
Variable locking is OFF
if _isgcRC = 1
GC6890DLL = dllinstall(_exepath$ + "gc689032.dll")
Connecting to 6890 GC...

Sat Oct 28 18:38:23 2023
    App: msinsctl.exe, Method: DEFAULT.M, RunType: Sampl, Vial: 1
    DataFile: C:\msdchem\1\DATA\VOCs_001.D
    Macro: GC6890, Cmd: GC6890DLL = dllinstall(_exepath$ + "gc689032.dll")
    Msg:
        Cannot bring up GC
C:\msdchem\1\DATA\VOCs_001.D

startuperror 1
on_error
local fmt$
fmt$=_$(28737,"Macro error ###### % ")
Macro error ###### %
print _error,_errmsg$
8041 Cannot bring up GC
alert _$(28736,"The ChemStation did not complete its initialization cycle."),2
if check("variable","icstartlog$")=1
logging 0