MSD Chemstation won't open - message "in use by another session"

Cannot get MSD Chemstation to open - get a message "Mass Spec is already in use by another session".  Version G1701EA E.02.02.1431 / WIN 10 operating system.  System was shut down temporarily and on startup,  the software does not open.  It is an Agilent 5975MS with a 6890N GC.  Tried rebooting the controller on the MS itself, but that did not work.  Also looked at binding order, but possibly did not do that correctly.  Both MS and GC can be pinged successfully from the PC.  Does anyone know what might be wrong?  Thanks

Parents
  • Hello ,

    "in use by another..." is a safety function that prevents a second session to the MSD: OK & wanted function.

     

    1st) troubleshooting
    because a PING does only a small (OSI) communication check (are voltages & cabling OK?), I recommend the communication check via internet browser (IE, chrome...)

    if this step failed:
       * check LAN card settings
       * check / modify proxy settings
       * remove 2nd LAN card (domain network)
       * check firewall settings

     

     

    2nd) step if check (1) was OK => only a MSD power off/on will help

       note: with older 5973 MSDs, the MS must still receive an IP via BootP after the power cycle

     

    regards, M.

  • Thanks for the reply.  I disabled the other network card and that did not help.  Ran the communication check...is there something specific I should be looking for there?

  • 1) do you see the orange screen? If so, the basic communication should work.

     

    2) next step: create a 2nd instrument (maybe without GC) & start instrument

     

    3) was something changed by your IT department?

      e.g. new safety policy? new firewall? new windows 10 updates?

      BTW: which Windows 10 version is installed? e.g. (19.03, 2004)

  • BTW: "Mass Spec is already in use by another session"

     

    can be caused by a wrong LAN card binding/priority. unfortunately this cannot be easily changed in Win10, the most efficient setting would be a low 'metrics' in the IP settings.

    Please remove the domain LAN cable & additionally restart Windows.

  • Hello tdnola, 

    1) LAN card bindings:

          this is only important if more than one LAN card is in use.

          I hope there is no other LAN connected? (e.g. charge your mobile phone on the PC & hotspot is activated).

          Since you have removed all unneeded cables you do not need to worry about bindings & metrics

     

    2) metrics: I would ask your IT department about this.

          Google search: lan card metrics windows 10

          Here windowscentral page is helpful.

     

    3) you could possibly upload your ACQ Start LOG here. Maybe we can see something inside.

    For G1701: c:\msdchem\MSexe\icstart1.log  (where 1 is the instrument no.)

  • LAN card priorities (by InterfaceMetric)

    To check the order of all LAN cards (here metric based) I use a powershell line.

    The complete blue command must be in ONE powershell line

    Get-NetIPInterface | select ifIndex,InterfaceAlias,ConnectionState,InterfaceMetric,AutomaticMetric,Dhcp,AddressFamily | sort InterfaceMetric, ifIndex | FT -autosize

     

     

    Example of PowerShell command and its output for one NiC:

     

    The lower the (Interface)Metric number, the higher the LAN card (NiC) priority.

  • Yes I see the orange screen.  Then tried to create second instrument - software still does not open.  IT has not done anything.  Not aware of any Windows updates - It is Windows 10 Enterprise.  Tried removing internet cable, restarting Windows and still no luck.  What is the best approach for addressing binding priority?  BTW a message on the MS itself reads " asking Chemstation" if that is helpful

  • OK this is the log file below.  Do you see anything significant?  In the meantime I'll talk to IT about the LAN metrics.
    Thanks again....




    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") 5 _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 endif if _mstype = 5 _isms = 1 1 _ismsQ1 = 1 1 _isMS5975 = 1 1 _msname$ = "5975" 5975 _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") 3 varlock 0 Variable locking is OFF _enhapp = val(a$) 3 _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 endif if _enhapp=2 endif if _enhapp=3 initop$="RFGTOP.INI" RFGTOP.INI toprfgmode = 1 1 _eq_running=1 1 _helpfile$="gasoline.chm" gasoline.chm _enhapp$=_$(19457,"Reformulated Gasoline") Reformulated Gasoline 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\RFGTOP.INI if NoTop = 1 topinifile$=_topinifile$ C:\msdchem\MSMACROS\RFGTOP.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 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 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 124 characters wide and has 61 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$") 043020.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$ STANDBY.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$ ALR0046 on ALRPS42 (redirected 2) remove ililil Removed variable ILILIL return if instr(upper$(sysprinter$),"ADOBE")>0 or instr(upper$(sysprinter$),"PDF")>0 setinistring("","PCS","SystemPrinter",sysprinter$) 1 endif return fullseqdebug=0 0 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$") STANDBY.M _seqpath$=getinistring$(inifile$,inisect$,"_seqpath$") C:\msdchem\1\sequence\ _seqfile$=getinistring$(inifile$,inisect$,"_seqfile$") 043020.S _datapath$=getinistring$(inifile$,inisect$,"nextdatapath") C:\MSDCHEM\1\DATA\ _datafile$=getinistring$(inifile$,inisect$,"nextdatafile") GCMS_002.D _datapath2$=getinistring$(inifile$,inisect$,"nextdatapath") C:\MSDCHEM\1\DATA\ _datafile2$=getinistring$(inifile$,inisect$,"nextdatafile") GCMS_002.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 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 197902 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 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 Copyright 1989-2011 Agilent Technologies, Inc. endif b$="Agilent Technologies" Agilent Technologies return _cpyright$ = a$ Copyright 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 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\5975\tempini.ini Deleted C:\msdchem\1\5975\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\alrlab\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") 5 if (TYPE = 3) OR (TYPE = 4) endif if (TYPE = 5) macro _exepath$+"keywd7x.mac" Macro(s) in C:\msdchem\MSexe\keywd7x.mac loaded. 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\alrlab\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 macro _exepath$+"flow.mac" Macro(s) in C:\msdchem\MSexe\flow.mac loaded. 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")) 3 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) 132324 xpos=xpos+125 130 iccreatehp(3,xpos,ypos) 132326 xpos=xpos+264 394 iccreatehp(10,xpos,ypos) 132328 xpos=xpos+125 519 xinc = 65 65 iccreatehp(8,xpos,ypos) 132330 xpos=xpos+xinc 584 LBcreateBM(200,xpos,ypos) 132334 xpos=xpos+xinc 649 if getinfo("offline")<>1 iccreatehp(20,xpos,ypos) 132342 xpos = xpos + xinc 714 endif iccreatehp(30,xpos,ypos) 132336 xpos = xpos + xinc 779 iccreatehp(7,xpos,ypos) 132338 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) 132340 xpos = xpos + new_w + 15 340 new_w = 4 * xinc - 5 255 iccreatebar (105,LM$,xpos,ypos,new_w+xadj,hbar) 132350 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) 132378 xpos = 5 5 ypos = 100 100 iccreatehp(21,xpos,ypos) 460090 xpos = xpos+xinc 70 iccreatehp(22,xpos,ypos) 263456 xpos = xpos+xinc 135 iccreatehp(23,xpos,ypos) 197912 xpos = xpos+xinc 200 iccreatehp(24,xpos,ypos) 197910 xpos = xpos+xinc 265 iccreatehp(25,xpos,ypos) 394514 xPos = xPos + xinc + 10 340 iccreatehp(26,xpos,ypos) 1.2453e+006 xpos = xpos+xinc 405 iccreatehp(27,xpos,ypos) 327810 xpos = xpos+xinc 470 iccreatehp(28,xpos,ypos) 132614 xpos = xpos+xinc 535 iccreatehp(29,xpos,ypos) 132612 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... Initializing 6890 GC... Done! 11 endif gcshowdevicewin hctlwin,oven_button,xPos,ypos xpos = xpos + xinc 675 varlock on Variable locking is ON RETURN ENDIF IF (inlet_gc = 4) THEN ENDIF if _isgc78xx = 1 endif IF _isms = 1 LoadMS print _$(34006, "Loading ")+_msname$+" "+_mstype$+"..." Loading 5975 MSD... if _ismsQQQ = 1 if _isMSQTOF = 1 if check("variable", "_dotnet") = 1 MSACQDLL = dllinstall(_exepath$ + "msd597x.dll") 12 endif endif endif MSShowDeviceWin hCtlWin,300,xPos,ypos xPos = xPos + xinc 740 if check("variable", "_dotnet") = 0 if getinfo("offline")=0 iccreatehp(31,xpos,ypos) 67086 xpos = xpos + xinc 805 endif endif return ENDIF FILESIZE _exepath$ + "auxinlet.dll" IF (size <> -1 and getinfo("AUXINLET_ENABLED") = 1) ENDIF if _isHS=1 endif RUNCTLDLL = dllinstall(_exepath$+"runctl.dll") 13 if _seqactive = 0 TOOLBARMENU if check("macro","ic_menubar")=0 macro _exepath$+"ic_menu.mac" Macro(s) in C:\msdchem\MSexe\ic_menu.mac loaded. endif ic_menubar LOCAL msg$,MenuMsgSWV$,MenuItemSWV$ MenuMsgSWV$ = _$(19226,"Execute DA Software validation") Execute DA Software validation MenuItemSWV$ = _$(19227,"S&oftware Validation") S&oftware Validation if _isms = 1 and check("macro","luimessage")=1 endif MENUBEG macro _exepath$+"disable_mr.mac",go Macro(s) in C:\msdchem\MSexe\disable_mr.mac loaded. AUTO if getinfo("offline") = 0 sense_mr local a$ a$=getinistring$("","pcs","disable6890methres") check_mr=val(a$) 0 return sense_ib local a$ a$=getinistring$("","pcs","MaskIonBodyFault") check_ib=val(a$) 0 if getinfo("offline")=1 or getinfo("ms_type")<>6 return if check_mr=1 and getinfo("gc_id")<>0 and check("variable","first_mr")=0 endif if check_ib=1 and getinfo("ms_type")=6 and check("variable","first_ib")=0 endif endif return if _enhapp = 5 or MHApp = 5 MethodMenu local menustr$, msg$ MENUNEW _$(19157,"&Method") if _TopWinId <> 0 or NoTop = 1 SecAddMenuCMD _$(19158,"&Load Method..."),"LoadMethod",_$(19159,"Select a Method and load it"),,"mnuloadmethod" local OK,cntlvar$,PrivKey$ PrivKey$="IC_Compliance" IC_Compliance if check("variable","mcntlvar$") = 0 endif if PrivEnabled = 0 OK = 1 1 else endif if OK = 1 if add_menusep = 1 endif if len(mcntlvar$) > 0 evaluate "MENUCMD """+mmenu$+""","""+mcmd$+""","""+mmsg$+"""" MENUCMD "&Load Method...","LoadMethod","Select a Method and load it" endif endif return SecAddMenuCMD _$(19160,"&Save Method"),"SaveMethod _methfile$",_$(19161,"Save the current Method to disk"),,"mnusavemethod" local OK,cntlvar$,PrivKey$ PrivKey$="IC_Compliance" IC_Compliance if check("variable","mcntlvar$") = 0 endif if PrivEnabled = 0 OK = 1 1 else endif if OK = 1 if add_menusep = 1 endif if len(mcntlvar$) > 0 evaluate "MENUCMD """+mmenu$+""","""+mcmd$+""","""+mmsg$+"""" MENUCMD "&Save Method","SaveMethod _methfile$","Save the current Method to disk" endif endif return SecAddMenuCMD _$(19162,"Save Method &As..."),"SaveMethod",_$(19163,"Interactive save the current Method to disk"),,"mnusavemethodas" local OK,cntlvar$,PrivKey$ PrivKey$="IC_Compliance" IC_Compliance if check("variable","mcntlvar$") = 0 endif if PrivEnabled = 0 OK = 1 1 else endif if OK = 1 if add_menusep = 1 endif if len(mcntlvar$) > 0 evaluate "MENUCMD """+mmenu$+""","""+mcmd$+""","""+mmsg$+"""" MENUCMD "Save Method &As...","SaveMethod","Interactive save the current Method to disk" endif endif return SecAddMenuCMD _$(19164,"&Run Method..."),"RunMethod 2",_$(19165,"Run the current Method"),,"mnurunmethod" local OK,cntlvar$,PrivKey$ PrivKey$="IC_Compliance" IC_Compliance if check("variable","mcntlvar$") = 0 endif if PrivEnabled = 0 OK = 1 1 else endif if OK = 1 if add_menusep = 1 endif if len(mcntlvar$) > 0 evaluate "MENUCMD """+mmenu$+""","""+mcmd$+""","""+mmsg$+"""" MENUCMD "&Run Method...","RunMethod 2","Run the current Method" endif endif return SecAddMenuCMD _$(19166,"&Print Method..."),"ic_menuPrintMethod",_$(19167,"Print the current Method"),,"mnuprintmethod" local OK,cntlvar$,PrivKey$ PrivKey$="IC_Compliance" IC_Compliance if check("variable","mcntlvar$") = 0 endif if PrivEnabled = 0 OK = 1 1 else endif if OK = 1 if add_menusep = 1 endif if len(mcntlvar$) > 0 evaluate "MENUCMD """+mmenu$+""","""+mcmd$+""","""+mmsg$+"""" MENUCMD "&Print Method...","ic_menuPrintMethod","Print the current Method" endif endif return add_menusep=1 1 SecAddMenuCMD _$(19168,"&Edit Entire Method..."),"InitEditMethod",_$(19169,"Edit panels associated with a Method"),,"mnueditentiremethod",add_menusep local OK,cntlvar$,PrivKey$ PrivKey$="IC_Compliance" IC_Compliance if check("variable","mcntlvar$") = 0 endif if PrivEnabled = 0 OK = 1 1 else endif if OK = 1 if add_menusep = 1 menusep add_menusep = 0 0 endif if len(mcntlvar$) > 0 evaluate "MENUCMD """+mmenu$+""","""+mcmd$+""","""+mmsg$+"""" MENUCMD "&Edit Entire Method...","InitEditMethod","Edit panels associated with a Method" endif endif return SecAddMenuCMD _$(30532,"Additional Method &Information..."),"do_moremeth",_$(19171,"Allows display/edit of METHOD.TXT"),,"mnuadditionalmethod",add_menusep local OK,cntlvar$,PrivKey$ PrivKey$="IC_Compliance" IC_Compliance if check("variable","mcntlvar$") = 0 endif if PrivEnabled = 0 OK = 1 1 else endif if OK = 1 if add_menusep = 1 endif if len(mcntlvar$) > 0 evaluate "MENUCMD """+mmenu$+""","""+mcmd$+""","""+mmsg$+"""" MENUCMD "Additional Method &Information...","do_moremeth","Allows display/edit of METHOD.TXT" endif endif return if _isgc68xx=1 MENUCMD _$(19172,"&Disable Method Resolution"),"toggle_mr",_$(19173,"Disable GC method resolution"),check_mr endif EMSvrMenus if getinfo("offline") = 0 and _ismsQ1 = 1 MENUSEP macro _exepath$+"EMSaver.mac" Macro(s) in C:\msdchem\MSexe\EMSaver.mac loaded. EMSshow LOCAL reply$ scquery("CONFIG:ACQ:ABUNLIM?"),reply$ -1 fval=VAL(reply$) -1 IF (fval<0) PRINT USING _$(35727,"EM-Saver is OFF,  EMSaver summation_limit=%"),reply$ EM-Saver is OFF,  EMSaver summation_limit=-1 check_ems=0 0 ELSE ENDIF RETURN MENUCMD _$(30503,"E&nable EM Saver"),"macro _exepath$+""EMSaver.mac"",go",_$(30504,"Enable EM Saver"),check_ems endif return MENUSEP HSTInitMenu "InstMethods",4,_$(19174,"&Method"),"loadmethod" LOCAL i, count HSTWriteDefaults section$, max, menu$, cmd$, hlp$, var$ LOCAL inifile$, initxt$, i, inilabel$,count HSTGetIniFile inifile$ inifile$ = _instpATH$ + "hst.ini" C:\msdchem\1\hst.ini RETURN SetIniString(inifile$, section$, "max", val$(max)) 1 SetIniString(inifile$, section$, "menuname", menu$) 1 SetIniString(inifile$, section$, "menucmd", cmd$) 1 SetIniString(inifile$, section$, "menuhlp", hlp$) 1 SetIniString(inifile$, section$, "menuvar", var$) 1 i = 1 1 while (i <= max) initxt$ = GetIniString$(inifile$, section$, val$(i)) C:\MSDCHEM\1\METHODS\STANDBY.M SetIniString(inifile$, section$, val$(i), initxt$) 1 inilabel$ = GetIniString$(inifile$, section$, val$(i)+"short") STANDBY.M if len(inilabel$) = 0 and len(initxt$) > 0 endif SetIniString(inifile$, section$, val$(i)+"short", inilabel$) 1 i = i + 1 2 endwhile while (i <= max) initxt$ = GetIniString$(inifile$, section$, val$(i)) C:\MSDCHEM\1\METHODS\GASOLINE.M SetIniString(inifile$, section$, val$(i), initxt$) 1 inilabel$ = GetIniString$(inifile$, section$, val$(i)+"short") GASOLINE.M if len(inilabel$) = 0 and len(initxt$) > 0 endif SetIniString(inifile$, section$, val$(i)+"short", inilabel$) 1 i = i + 1 3 endwhile while (i <= max) initxt$ = GetIniString$(inifile$, section$, val$(i)) C:\msdchem\1\METHODS\DEFAULT.M SetIniString(inifile$, section$, val$(i), initxt$) 1 inilabel$ = GetIniString$(inifile$, section$, val$(i)+"short") DEFAULT.M if len(inilabel$) = 0 and len(initxt$) > 0 endif SetIniString(inifile$, section$, val$(i)+"short", inilabel$) 1 i = i + 1 4 endwhile while (i <= max) initxt$ = GetIniString$(inifile$, section$, val$(i)) C:\MSDCHEM\2\METHODS\AROMATICS.M SetIniString(inifile$, section$, val$(i), initxt$) 1 inilabel$ = GetIniString$(inifile$, section$, val$(i)+"short") AROMATICS.M if len(inilabel$) = 0 and len(initxt$) > 0 endif SetIniString(inifile$, section$, val$(i)+"short", inilabel$) 1 i = i + 1 5 endwhile while (i <= max) RETURN HSTGetItemCount section$, count LOCAL inifile$ HSTGetIniFile inifile$ inifile$ = _instpATH$ + "hst.ini" C:\msdchem\1\hst.ini RETURN filesize inifile$ count = GetIniInt(inifile$, section$, "max") 4 if count <= 0 endif RETURN i = 1 1 while (i <= count) HSTAddItem section$, i LOCAL mnu$, lbl$, cmd$, hlp$, var$ HSTGetItem section$, i, mnu$, lbl$, cmd$, hlp$, var$ LOCAL inifile$, initxt$, inicmd$, inihlp$, inimnu$, inivar$, inilabel$ HSTGetIniFile inifile$ inifile$ = _instpATH$ + "hst.ini" C:\msdchem\1\hst.ini RETURN inilabel$ = GetIniString$(inifile$, section$, val$(i)+"short") STANDBY.M initxt$ = GetIniString$(inifile$, section$, val$(i)) C:\MSDCHEM\1\METHODS\STANDBY.M inimnu$ = GetIniString$(inifile$, section$, "menuname") &Method inicmd$ = GetIniString$(inifile$, section$, "menucmd") loadmethod inihlp$ = GetIniString$(inifile$, section$, "menuhlp") inivar$ = GetIniString$(inifile$, section$, "menuvar") mnu$ = inimnu$ &Method var$ = inivar$ lbl$ = "&" + val$(i)+ " " + inilabel$ &1 STANDBY.M if CHECK("MACRO","HSTGetCmdStr") cmd$ = inicmd$ + " """ + initxt$ +"""" loadmethod "C:\MSDCHEM\1\METHODS\STANDBY.M" endif hlp$ = inihlp$ + " " + initxt$  C:\MSDCHEM\1\METHODS\STANDBY.M RETURN MENUCMDFN lbl$, cmd$, hlp$, var$ RETURN i = i + 1 2 endwhile while (i <= count) HSTAddItem section$, i LOCAL mnu$, lbl$, cmd$, hlp$, var$ HSTGetItem section$, i, mnu$, lbl$, cmd$, hlp$, var$ LOCAL inifile$, initxt$, inicmd$, inihlp$, inimnu$, inivar$, inilabel$ HSTGetIniFile inifile$ inifile$ = _instpATH$ + "hst.ini" C:\msdchem\1\hst.ini RETURN inilabel$ = GetIniString$(inifile$, section$, val$(i)+"short") GASOLINE.M initxt$ = GetIniString$(inifile$, section$, val$(i)) C:\MSDCHEM\1\METHODS\GASOLINE.M inimnu$ = GetIniString$(inifile$, section$, "menuname") &Method inicmd$ = GetIniString$(inifile$, section$, "menucmd") loadmethod inihlp$ = GetIniString$(inifile$, section$, "menuhlp") inivar$ = GetIniString$(inifile$, section$, "menuvar") mnu$ = inimnu$ &Method var$ = inivar$ lbl$ = "&" + val$(i)+ " " + inilabel$ &2 GASOLINE.M if CHECK("MACRO","HSTGetCmdStr") cmd$ = inicmd$ + " """ + initxt$ +"""" loadmethod "C:\MSDCHEM\1\METHODS\GASOLINE.M" endif hlp$ = inihlp$ + " " + initxt$  C:\MSDCHEM\1\METHODS\GASOLINE.M RETURN MENUCMDFN lbl$, cmd$, hlp$, var$ RETURN i = i + 1 3 endwhile while (i <= count) HSTAddItem section$, i LOCAL mnu$, lbl$, cmd$, hlp$, var$ HSTGetItem section$, i, mnu$, lbl$, cmd$, hlp$, var$ LOCAL inifile$, initxt$, inicmd$, inihlp$, inimnu$, inivar$, inilabel$ HSTGetIniFile inifile$ inifile$ = _instpATH$ + "hst.ini" C:\msdchem\1\hst.ini RETURN inilabel$ = GetIniString$(inifile$, section$, val$(i)+"short") DEFAULT.M initxt$ = GetIniString$(inifile$, section$, val$(i)) C:\msdchem\1\METHODS\DEFAULT.M inimnu$ = GetIniString$(inifile$, section$, "menuname") &Method inicmd$ = GetIniString$(inifile$, section$, "menucmd") loadmethod inihlp$ = GetIniString$(inifile$, section$, "menuhlp") inivar$ = GetIniString$(inifile$, section$, "menuvar") mnu$ = inimnu$ &Method var$ = inivar$ lbl$ = "&" + val$(i)+ " " + inilabel$ &3 DEFAULT.M if CHECK("MACRO","HSTGetCmdStr") cmd$ = inicmd$ + " """ + initxt$ +"""" loadmethod "C:\msdchem\1\METHODS\DEFAULT.M" endif hlp$ = inihlp$ + " " + initxt$  C:\msdchem\1\METHODS\DEFAULT.M RETURN MENUCMDFN lbl$, cmd$, hlp$, var$ RETURN i = i + 1 4 endwhile while (i <= count) HSTAddItem section$, i LOCAL mnu$, lbl$, cmd$, hlp$, var$ HSTGetItem section$, i, mnu$, lbl$, cmd$, hlp$, var$ LOCAL inifile$, initxt$, inicmd$, inihlp$, inimnu$, inivar$, inilabel$ HSTGetIniFile inifile$ inifile$ = _instpATH$ + "hst.ini" C:\msdchem\1\hst.ini RETURN inilabel$ = GetIniString$(inifile$, section$, val$(i)+"short") AROMATICS.M initxt$ = GetIniString$(inifile$, section$, val$(i)) C:\MSDCHEM\2\METHODS\AROMATICS.M inimnu$ = GetIniString$(inifile$, section$, "menuname") &Method inicmd$ = GetIniString$(inifile$, section$, "menucmd") loadmethod inihlp$ = GetIniString$(inifile$, section$, "menuhlp") inivar$ = GetIniString$(inifile$, section$, "menuvar") mnu$ = inimnu$ &Method var$ = inivar$ lbl$ = "&" + val$(i)+ " " + inilabel$ &4 AROMATICS.M if CHECK("MACRO","HSTGetCmdStr") cmd$ = inicmd$ + " """ + initxt$ +"""" loadmethod "C:\MSDCHEM\2\METHODS\AROMATICS.M" endif hlp$ = inihlp$ + " " + initxt$  C:\MSDCHEM\2\METHODS\AROMATICS.M RETURN MENUCMDFN lbl$, cmd$, hlp$, var$ RETURN i = i + 1 5 endwhile while (i <= count) RETURN RTLockMenus if Honor_RTL = 1 and (_isgc68xx=1 or _isgc78xx=1) and _isgc7820=0 menusep SecAddmenucmd _$(30534,"Acquire RTLock &Calibration Data..."),"acqlock 1",_$(19176,"Enters RTL procedure"),"RTLCalVar","mnurtlcal" local OK,cntlvar$,PrivKey$ PrivKey$="IC_Compliance" IC_Compliance if check("variable","mcntlvar$") = 0 endif if PrivEnabled = 0 OK = 1 1 else endif if OK = 1 if add_menusep = 1 endif if len(mcntlvar$) > 0 evaluate "MENUCMD """+mmenu$+""","""+mcmd$+""","""+mmsg$+""","+mcntlvar$ MENUCMD "Acquire RTLock &Calibration Data...","acqlock 1","Enters RTL procedure",RTLCalVar else endif endif return if _enhapp > 5 endif SecAddmenucmd _$(19177,"Unloc&k Method..."),"acqlock 0",_$(19178,"Clears RTLock"),"RTLUnlock","mnurtlunlock" local OK,cntlvar$,PrivKey$ PrivKey$="IC_Compliance" IC_Compliance if check("variable","mcntlvar$") = 0 endif if PrivEnabled = 0 OK = 1 1 else endif if OK = 1 if add_menusep = 1 endif if len(mcntlvar$) > 0 evaluate "MENUCMD """+mmenu$+""","""+mcmd$+""","""+mmsg$+""","+mcntlvar$ MENUCMD "Unloc&k Method...","acqlock 0","Clears RTLock",RTLUnlock else endif endif return endif return EmethMenus local OK OK = 1 1 if _CFRMode = 1 endif if _isgc = 0 or OK = 0 grayExpImp = 0 0 endif if check("variable", "_dotnet") = 0 MENUSEP MENUCMD _$(19183,"Export eMeth&od..."),"DOexportemeth",_$(19184,"Export Method"),grayExpImp MENUCMD _$(30533,"Import e&Method..."),"DOimportemeth",_$(19186,"Import Method"),grayExpImp dozipmenu menusep menucmd _$(30573,"&Zip/Unzip Methods and Data..."),"dozipping",_$(30574,"Zip/UnZip methods and data for storage and sharing.") return endif return menusep if NoTop = 1 local setpm$,setpd$ setpd$=_$(19189,"Change the default paths saved in the .INI file.") Change the default paths saved in the .INI file. if _cfrmode = 1 endif SecAddMenuCMD _$(19191,"Se&t New Default Paths..."),"MenuSetPath_",setpd$,,"mnusetdefaultpaths",add_menusep local OK,cntlvar$,PrivKey$ PrivKey$="IC_Compliance" IC_Compliance if check("variable","mcntlvar$") = 0 endif if PrivEnabled = 0 OK = 1 1 else endif if OK = 1 if add_menusep = 1 endif if len(mcntlvar$) > 0 evaluate "MENUCMD """+mmenu$+""","""+mcmd$+""","""+mmsg$+"""" MENUCMD "Se&t New Default Paths...","MenuSetPath_","Change the default paths saved in the .INI file." endif endif return menusep endif msg$ = _$(19192,"Exit ChemStation #")+val$(_INSTNUM) Exit ChemStation #1 if (GetInfo("OFFLINE")) endif MENUCMD _$(19194,"E&xit"), "bye", msg$ else endif return endif ptmnuInstrum$=_$(19197,"&Instrument") &Instrument MENUNEW ptmnuinstrum$ SecAddMENUCMD _$(19198,"Inlet/Injection T&ypes..."),"callRCMethodEdit ", _$(19199,"Select Run Configuration ..."),,"mnuselectinlet" local OK,cntlvar$,PrivKey$ PrivKey$="IC_Compliance" IC_Compliance if check("variable","mcntlvar$") = 0 endif if PrivEnabled = 0 OK = 1 1 else endif if OK = 1 if add_menusep = 1 endif if len(mcntlvar$) > 0 evaluate "MENUCMD """+mmenu$+""","""+mcmd$+""","""+mmsg$+"""" MENUCMD "Inlet/Injection T&ypes...","callRCMethodEdit ","Select Run Configuration ..." endif endif return LOCAL als_type als_type = getinfo("als_type") 0 IF als_type = 2 THEN ENDIF if check("variable","_dotnet")=0 macro _exepath$+"hs_menu.mac",go Macro(s) in C:\msdchem\MSexe\hs_menu.mac loaded. EHS_MENUS local pre$,cmd$,lbl$,msg$,hsdll$ if _isHS=0 return endif macro _exepath$+"pretreat.mac" Macro(s) in C:\msdchem\MSexe\pretreat.mac loaded. if check("variable","_ptavail")=1 if _ptavail=1 and _isgc7820=0 endif endif if check("variable", "_dotnet") = 1 endif if _isgc68xx=1 and _isgcRC=0 GCMenuChemport32 local msg$ menusep msg$ = _$(19256,"Select GC Parameters") Select GC Parameters MENUCMD _$(30549,"&GC Edit Parameters..."), "GCMethodEdit(-1)", msg$, _GCDisable if check("variable", "_dotnet") = 0 msg$ = _$(19260,"Select GC Monitors") Select GC Monitors MENUCMD _$(30550,"GC Monito&rs..."), "GCViewParams()", msg$, _GCDisable endif msg$ = _$(19258,"Select GC Detector data to display") Select GC Detector data to display MENUCMD _$(30551,"GC Real-Time &Plots..."), "GCPlotEdit()", msg$, _GCDisable msg$ = _$(19377,"Select consumable components ...") Select consumable components ... MENUCMD _$(19378,"GC C&onsumable Panel..."),"DoConsumPanel_",msg$, _GCDisable return endif if _isgcRC=1 endif if _CFTInstalled = 1 and _isgc78xx = 1 endif if _ismsQ1 = 1 then MSMenuQ1 local msg$ MENUSEP msg$ = _$(19262,"Select MS Tune File") Select MS Tune File MENUCMD _$(30559,"MS Tune &File..."), "DoPick", msg$, _MSDisable msg$ = _$(19264,"Select MS SIM/scan") Select MS SIM/scan MENUCMD _$(19265,"MS SI&M/Scan Parameters..."), "MSMethodEdit(2,"""")", msg$, _MSDisable if _mstype = 5 msg$ = _$(19266,"Change Source/Quad/Transfer Line Temperatures") Change Source/Quad/Transfer Line Temperatures else endif MENUCMD _$(19268,"MS &Temperatures..."), "DoNewTemp", msg$, _MSDisable msg$ = _$(19269,"Select MS Monitors") Select MS Monitors MENUCMD _$(30560,"MS Monitor&s..."), "MSViewParams()", msg$, _MSDisable MENUSEP msg$ = _$(19271,"Select Tune type and perform automatic tune") Select Tune type and perform automatic tune MENUCMD _$(19370,"T&une MSD..."), "macro ""Tuneopt"",go", msg$, _MSDisable if _cfrMode = 0 msg$ = _$(19272,"Edit MS tune parameters") Edit MS tune parameters MENUCMD _$(19273,"Edit Tu&ne Parameters..."),"MSAcqEdTune", msg$, _MSDisable menucmd _$(30561,"Edit SIM &Ions..."),"go_sim_Table",_$(19374,"Edit SIM Ions spreadsheet; Method may be saved and reloaded."),_MSDisable endif menucmd _$(30562,"Trace Ion &Detection..."),"TIDCB",_$(30520,"Activate/Deactive Trace Ion Detection") if _cfrmode = 1 endif if _mstype >= 4 and _mstype <= 6 and 1=0 endif dimCI=2 2 if _mstype=5 and getinfo("offline")=0 local c$ scquery "config:info:opts:desc? 3",c$ NO_FCB if instr(upper$(c$),"NO_FCB")>0 dimCI=2 2 else endif endif menusep menucmd _$(30563,"CI Contro&l"),"showvalves",_$(19203,"Shows Automated CI Valve/Gauge status."),dimCI return endif if _ismsQQQ = 1 then endif if _ismsQTOF = 1 then endif IF (AUXDLL <> -1) THEN ENDIF if getinfo("offline") = 0 add_menusep = 1 1 SecAddMENUCMD _$(30537,"&EMF Utilities..."),"DoEMF_",_$(19201,"Runs Early Maintenance Feedback setup"),,"mnuemf",add_menusep local OK,cntlvar$,PrivKey$ PrivKey$="IC_Compliance" IC_Compliance if check("variable","mcntlvar$") = 0 endif if PrivEnabled = 0 OK = 1 1 else endif if OK = 1 if add_menusep = 1 menusep add_menusep = 0 0 endif if len(mcntlvar$) > 0 evaluate "MENUCMD """+mmenu$+""","""+mcmd$+""","""+mmsg$+"""" MENUCMD "&EMF Utilities...","DoEMF_","Runs Early Maintenance Feedback setup" endif endif return endif checkhook "IC_PostInstrumentMenu" Local hook_macro$, count,items hookini$ = _instpath$+"hooks.ini" C:\msdchem\1\hooks.ini items=val(getinistring$(hookini$,hook_name$,"NumOfHooks")) 0 if items > 0 endif Return dimLabAdvisor = 0 0 GetDimLabAdvisor dimLabAdvisor dimIt = 2 2 if _isgc68xx=1 or _isgc78xx=1 dimIt = 0 0 endif LOCAL pathValue pathvalue="" LOCAL taskId getregvalue_ 0, "SOFTWARE\agilent\InstrumentMonitor\UI", "Path", pathValue 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\InstrumentMonitor\UI IsScalar=check("Scalar","item") 0 tree$=Mnode$+node$ SOFTWARE\agilent\InstrumentMonitor\UI retval="" if IsScalar = 1 endif getregvalue what,tree$,element$,retval,special if IsScalar = 0 if special = 1 if len(retval) = 0 CheckWow = 1 1 endif endif else endif if CheckWow = 1 Mnode$ = Mnode$+"Wow6432node\" SOFTWARE\Wow6432node\ tree$=Mnode$+node$ SOFTWARE\Wow6432node\agilent\InstrumentMonitor\UI getregvalue what,tree$,element$,retval,special endif item = retval return filesize pathValue IF size=-1 dimit=2 2 endif RETURN if dimLabAdvisor=0 endif if NoTop = 1 if _enhapp = 5 TopMnu_Seq local str$,msg$ MENUNEW _$(19332,"&Sequence") SecAddMENUCMD _$(19333,"&Load Sequence..."),"LoadTheSeq", _$(19334,"Select a Sequence and load it"),,"mnuloadsequence" local OK,cntlvar$,PrivKey$ PrivKey$="IC_Compliance" IC_Compliance if check("variable","mcntlvar$") = 0 endif if PrivEnabled = 0 OK = 1 1 else endif if OK = 1 if add_menusep = 1 endif if len(mcntlvar$) > 0 evaluate "MENUCMD """+mmenu$+""","""+mcmd$+""","""+mmsg$+"""" MENUCMD "&Load Sequence...","LoadTheSeq","Select a Sequence and load it" endif endif return SecAddMENUCMD _$(19335,"&Save Sequence"),"SaveTheSeq _seqpath$,_seqfile$", _$(19336,"Save the current Sequence to disk"),,"mnusavesequence" local OK,cntlvar$,PrivKey$ PrivKey$="IC_Compliance" IC_Compliance if check("variable","mcntlvar$") = 0 endif if PrivEnabled = 0 OK = 1 1 else endif if OK = 1 if add_menusep = 1 endif if len(mcntlvar$) > 0 evaluate "MENUCMD """+mmenu$+""","""+mcmd$+""","""+mmsg$+"""" MENUCMD "&Save Sequence","SaveTheSeq _seqpath$,_seqfile$","Save the current Sequence to disk" endif endif return SecAddMENUCMD _$(19337,"Save Sequence &As..."),"SaveTheSeq", _$(19338,"Interactive save the current Sequence to disk"),,"mnusavesequenceas" local OK,cntlvar$,PrivKey$ PrivKey$="IC_Compliance" IC_Compliance if check("variable","mcntlvar$") = 0 endif if PrivEnabled = 0 OK = 1 1 else endif if OK = 1 if add_menusep = 1 endif if len(mcntlvar$) > 0 evaluate "MENUCMD """+mmenu$+""","""+mcmd$+""","""+mmsg$+"""" MENUCMD "Save Sequence &As...","SaveTheSeq","Interactive save the current Sequence to disk" endif endif return SecAddMENUCMD _$(19339,"&Run Sequence..."), "StartSeq", _$(19340,"Run or resume the current Sequence"),"_TUNEVIEW","mnurunsequence" local OK,cntlvar$,PrivKey$ PrivKey$="IC_Compliance" IC_Compliance if check("variable","mcntlvar$") = 0 endif if PrivEnabled = 0 OK = 1 1 else endif if OK = 1 if add_menusep = 1 endif if len(mcntlvar$) > 0 evaluate "MENUCMD """+mmenu$+""","""+mcmd$+""","""+mmsg$+""","+mcntlvar$ MENUCMD "&Run Sequence...","StartSeq","Run or resume the current Sequence",_TUNEVIEW else endif endif return if check("variable", "_dotnet") = 0 MENUCMD _$(19341,"&Print Sequence..."),"FullOrShortSeq",_$(19342,"Print the current Sequence with specified format") menucmdfn _$(19366,"Co&nfigure Sequence Table..."),"DoSLTConfig_",_$(19367,"Arrange columns in Spreadsheet Sequence Table"),"UseOldSLT*2" endif add_menusep = 1 1 SecAddMENUCMD _$(19343,"&Edit Sequence..."), "EditWithBarcode",_$(19344,"Enter info for each sample in Sequence"), "_TUNEVIEW","mnueditsequence",add_menusep local OK,cntlvar$,PrivKey$ PrivKey$="IC_Compliance" IC_Compliance if check("variable","mcntlvar$") = 0 endif if PrivEnabled = 0 OK = 1 1 else endif if OK = 1 if add_menusep = 1 menusep add_menusep = 0 0 endif if len(mcntlvar$) > 0 evaluate "MENUCMD """+mmenu$+""","""+mcmd$+""","""+mmsg$+""","+mcntlvar$ MENUCMD "&Edit Sequence...","EditWithBarcode","Enter info for each sample in Sequence",_TUNEVIEW else endif endif return if _enhapp <> 666 menucmd _$(19345,"Import Sequence Information from &CSV File..."),"SeqLims",_$(19346,"Allows user to select CSV file for Sequence creation") endif if check("variable","_eq_running")=1 if _eq_running=1 and _enhapp=1 endif endif SecAddMENUCMD _$(19349,"S&imulate Sequence"),"DoSimSeq", _$(19350,"Simulate a Sequence and check for errors"),,"mnusimulatesequence",add_menusep local OK,cntlvar$,PrivKey$ PrivKey$="IC_Compliance" IC_Compliance if check("variable","mcntlvar$") = 0 endif if PrivEnabled = 0 OK = 1 1 else endif if OK = 1 if add_menusep = 1 endif if len(mcntlvar$) > 0 evaluate "MENUCMD """+mmenu$+""","""+mcmd$+""","""+mmsg$+"""" MENUCMD "S&imulate Sequence","DoSimSeq","Simulate a Sequence and check for errors" endif endif return if _cfrmode=0 SecAddMENUCMDFN _$(30564,"Position and Run Se&quence..."), "PositionSequence", _$(19352,"Start the Sequence at the specified line"),"IN_SUBSEQ + _TUNEVIEW","mnuposrunsequence" local OK,cntlvar$,PrivKey$ PrivKey$="IC_Compliance" IC_Compliance if PrivEnabled = 0 OK = 1 1 else endif if OK = 1 evaluate "MENUCMDFN """+mmenu$+""","""+mcmd$+""","""+mmsg$+""","""+mcntlvar$+"""" MENUCMDFN "Position and Run Se&quence...","PositionSequence","Start the Sequence at the specified line","IN_SUBSEQ + _TUNEVIEW" endif return endif MENUSEP HSTInitMenu "Sequence",4,_$(19353,"&Sequence"), "LoadTheSeq " LOCAL i, count HSTWriteDefaults section$, max, menu$, cmd$, hlp$, var$ LOCAL inifile$, initxt$, i, inilabel$,count HSTGetIniFile inifile$ inifile$ = _instpATH$ + "hst.ini" C:\msdchem\1\hst.ini RETURN SetIniString(inifile$, section$, "max", val$(max)) 1 SetIniString(inifile$, section$, "menuname", menu$) 1 SetIniString(inifile$, section$, "menucmd", cmd$) 1 SetIniString(inifile$, section$, "menuhlp", hlp$) 1 SetIniString(inifile$, section$, "menuvar", var$) 1 i = 1 1 while (i <= max) initxt$ = GetIniString$(inifile$, section$, val$(i)) C:\msdchem\1\sequence\043020.S SetIniString(inifile$, section$, val$(i), initxt$) 1 inilabel$ = GetIniString$(inifile$, section$, val$(i)+"short") 043020.S if len(inilabel$) = 0 and len(initxt$) > 0 endif SetIniString(inifile$, section$, val$(i)+"short", inilabel$) 1 i = i + 1 2 endwhile while (i <= max) initxt$ = GetIniString$(inifile$, section$, val$(i)) C:\msdchem\1\sequence\042920.S SetIniString(inifile$, section$, val$(i), initxt$) 1 inilabel$ = GetIniString$(inifile$, section$, val$(i)+"short") 042920.S if len(inilabel$) = 0 and len(initxt$) > 0 endif SetIniString(inifile$, section$, val$(i)+"short", inilabel$) 1 i = i + 1 3 endwhile while (i <= max) initxt$ = GetIniString$(inifile$, section$, val$(i)) C:\msdchem\1\sequence\042720.S SetIniString(inifile$, section$, val$(i), initxt$) 1 inilabel$ = GetIniString$(inifile$, section$, val$(i)+"short") 042720.S if len(inilabel$) = 0 and len(initxt$) > 0 endif SetIniString(inifile$, section$, val$(i)+"short", inilabel$) 1 i = i + 1 4 endwhile while (i <= max) initxt$ = GetIniString$(inifile$, section$, val$(i)) C:\msdchem\1\sequence\042420.S SetIniString(inifile$, section$, val$(i), initxt$) 1 inilabel$ = GetIniString$(inifile$, section$, val$(i)+"short") 042420.S if len(inilabel$) = 0 and len(initxt$) > 0 endif SetIniString(inifile$, section$, val$(i)+"short", inilabel$) 1 i = i + 1 5 endwhile while (i <= max) RETURN HSTGetItemCount section$, count LOCAL inifile$ HSTGetIniFile inifile$ inifile$ = _instpATH$ + "hst.ini" C:\msdchem\1\hst.ini RETURN filesize inifile$ count = GetIniInt(inifile$, section$, "max") 4 if count <= 0 endif RETURN i = 1 1 while (i <= count) HSTAddItem section$, i LOCAL mnu$, lbl$, cmd$, hlp$, var$ HSTGetItem section$, i, mnu$, lbl$, cmd$, hlp$, var$ LOCAL inifile$, initxt$, inicmd$, inihlp$, inimnu$, inivar$, inilabel$ HSTGetIniFile inifile$ inifile$ = _instpATH$ + "hst.ini" C:\msdchem\1\hst.ini RETURN inilabel$ = GetIniString$(inifile$, section$, val$(i)+"short") 043020.S initxt$ = GetIniString$(inifile$, section$, val$(i)) C:\msdchem\1\sequence\043020.S inimnu$ = GetIniString$(inifile$, section$, "menuname") &Sequence inicmd$ = GetIniString$(inifile$, section$, "menucmd") LoadTheSeq inihlp$ = GetIniString$(inifile$, section$, "menuhlp") inivar$ = GetIniString$(inifile$, section$, "menuvar") mnu$ = inimnu$ &Sequence var$ = inivar$ lbl$ = "&" + val$(i)+ " " + inilabel$ &1 043020.S if CHECK("MACRO","HSTGetCmdStr") cmd$ = inicmd$ + " """ + initxt$ +"""" LoadTheSeq "C:\msdchem\1\sequence\043020.S" endif hlp$ = inihlp$ + " " + initxt$  C:\msdchem\1\sequence\043020.S RETURN MENUCMDFN lbl$, cmd$, hlp$, var$ RETURN i = i + 1 2 endwhile while (i <= count) HSTAddItem section$, i LOCAL mnu$, lbl$, cmd$, hlp$, var$ HSTGetItem section$, i, mnu$, lbl$, cmd$, hlp$, var$ LOCAL inifile$, initxt$, inicmd$, inihlp$, inimnu$, inivar$, inilabel$ HSTGetIniFile inifile$ inifile$ = _instpATH$ + "hst.ini" C:\msdchem\1\hst.ini RETURN inilabel$ = GetIniString$(inifile$, section$, val$(i)+"short") 042920.S initxt$ = GetIniString$(inifile$, section$, val$(i)) C:\msdchem\1\sequence\042920.S inimnu$ = GetIniString$(inifile$, section$, "menuname") &Sequence inicmd$ = GetIniString$(inifile$, section$, "menucmd") LoadTheSeq inihlp$ = GetIniString$(inifile$, section$, "menuhlp") inivar$ = GetIniString$(inifile$, section$, "menuvar") mnu$ = inimnu$ &Sequence var$ = inivar$ lbl$ = "&" + val$(i)+ " " + inilabel$ &2 042920.S if CHECK("MACRO","HSTGetCmdStr") cmd$ = inicmd$ + " """ + initxt$ +"""" LoadTheSeq "C:\msdchem\1\sequence\042920.S" endif hlp$ = inihlp$ + " " + initxt$  C:\msdchem\1\sequence\042920.S RETURN MENUCMDFN lbl$, cmd$, hlp$, var$ RETURN i = i + 1 3 endwhile while (i <= count) HSTAddItem section$, i LOCAL mnu$, lbl$, cmd$, hlp$, var$ HSTGetItem section$, i, mnu$, lbl$, cmd$, hlp$, var$ LOCAL inifile$, initxt$, inicmd$, inihlp$, inimnu$, inivar$, inilabel$ HSTGetIniFile inifile$ inifile$ = _instpATH$ + "hst.ini" C:\msdchem\1\hst.ini RETURN inilabel$ = GetIniString$(inifile$, section$, val$(i)+"short") 042720.S initxt$ = GetIniString$(inifile$, section$, val$(i)) C:\msdchem\1\sequence\042720.S inimnu$ = GetIniString$(inifile$, section$, "menuname") &Sequence inicmd$ = GetIniString$(inifile$, section$, "menucmd") LoadTheSeq inihlp$ = GetIniString$(inifile$, section$, "menuhlp") inivar$ = GetIniString$(inifile$, section$, "menuvar") mnu$ = inimnu$ &Sequence var$ = inivar$ lbl$ = "&" + val$(i)+ " " + inilabel$ &3 042720.S if CHECK("MACRO","HSTGetCmdStr") cmd$ = inicmd$ + " """ + initxt$ +"""" LoadTheSeq "C:\msdchem\1\sequence\042720.S" endif hlp$ = inihlp$ + " " + initxt$  C:\msdchem\1\sequence\042720.S RETURN MENUCMDFN lbl$, cmd$, hlp$, var$ RETURN i = i + 1 4 endwhile while (i <= count) HSTAddItem section$, i LOCAL mnu$, lbl$, cmd$, hlp$, var$ HSTGetItem section$, i, mnu$, lbl$, cmd$, hlp$, var$ LOCAL inifile$, initxt$, inicmd$, inihlp$, inimnu$, inivar$, inilabel$ HSTGetIniFile inifile$ inifile$ = _instpATH$ + "hst.ini" C:\msdchem\1\hst.ini RETURN inilabel$ = GetIniString$(inifile$, section$, val$(i)+"short") 042420.S initxt$ = GetIniString$(inifile$, section$, val$(i)) C:\msdchem\1\sequence\042420.S inimnu$ = GetIniString$(inifile$, section$, "menuname") &Sequence inicmd$ = GetIniString$(inifile$, section$, "menucmd") LoadTheSeq inihlp$ = GetIniString$(inifile$, section$, "menuhlp") inivar$ = GetIniString$(inifile$, section$, "menuvar") mnu$ = inimnu$ &Sequence var$ = inivar$ lbl$ = "&" + val$(i)+ " " + inilabel$ &4 042420.S if CHECK("MACRO","HSTGetCmdStr") cmd$ = inicmd$ + " """ + initxt$ +"""" LoadTheSeq "C:\msdchem\1\sequence\042420.S" endif hlp$ = inihlp$ + " " + initxt$  C:\msdchem\1\sequence\042420.S RETURN MENUCMDFN lbl$, cmd$, hlp$, var$ RETURN i = i + 1 5 endwhile while (i <= count) RETURN add_menusep = 1 1 SecAddMENUCMD _$(19354,"&View Sequence Log ..."),"ViewSeq",_$(19355,"Review info logged during the last Sequence"),,"mnuviewsequencelog",add_menusep local OK,cntlvar$,PrivKey$ PrivKey$="IC_Compliance" IC_Compliance if check("variable","mcntlvar$") = 0 endif if PrivEnabled = 0 OK = 1 1 else endif if OK = 1 if add_menusep = 1 menusep add_menusep = 0 0 endif if len(mcntlvar$) > 0 evaluate "MENUCMD """+mmenu$+""","""+mcmd$+""","""+mmsg$+"""" MENUCMD "&View Sequence Log ...","ViewSeq","Review info logged during the last Sequence" endif endif return if check("variable","_eq_running")=1 and _cfrmode=0 if _eq_running=1 and _enhapp < 4 SecAddmenucmd _$(19356,"Vie&w Sequence Quality Log"),"DoViewQALog",_$(19357,"View all of the *.LOG files in ") + _instpath$,,"mnuviewsequenceqalog",add_menusep local OK,cntlvar$,PrivKey$ PrivKey$="IC_Compliance" IC_Compliance if check("variable","mcntlvar$") = 0 endif if PrivEnabled = 0 OK = 1 1 else endif if OK = 1 if add_menusep = 1 endif if len(mcntlvar$) > 0 evaluate "MENUCMD """+mmenu$+""","""+mcmd$+""","""+mmsg$+"""" MENUCMD "Vie&w Sequence Quality Log","DoViewQALog","View all of the *.LOG files in C:\msdchem\1\" endif endif return endif endif SecAddMENUCMD _$(19358,"Print Sequence Lo&g"),"PrintSeqLog",_$(19359,"Print info logged during the last Sequence"),,"mnuprintsequencelog",add_menusep local OK,cntlvar$,PrivKey$ PrivKey$="IC_Compliance" IC_Compliance if check("variable","mcntlvar$") = 0 endif if PrivEnabled = 0 OK = 1 1 else endif if OK = 1 if add_menusep = 1 endif if len(mcntlvar$) > 0 evaluate "MENUCMD """+mmenu$+""","""+mcmd$+""","""+mmsg$+"""" MENUCMD "Print Sequence Lo&g","PrintSeqLog","Print info logged during the last Sequence" endif endif return if check("variable", "_dotnet") = 0 MENUSEP if _cfrmode=0 menucmd _$(19360,"&Batch Mode..."),"BatchSetup",_$(19361,"Organizes method, sequence, and data in BATCH directory") MENUCMD _$(19362,"A&dditional Sequence Options..."),"macro ""seqmore.mac"",go",_$(19363,"Display more Sequence options") if _enhapp <> 3 and SLTChoice = 1 endif endif endif RETURN endif endif if _enhapp <> 666 checkhook "IC_PreViewMenu" Local hook_macro$, count,items hookini$ = _instpath$+"hooks.ini" C:\msdchem\1\hooks.ini items=val(getinistring$(hookini$,hook_name$,"NumOfHooks")) 0 if items > 0 endif Return MENUNEW _$(19206,"&View") if (_TopWinId <> 0) or NoTop = 1 NTAddMenuCmd ntmenulabel$, "ViewTopLevel",ntmenumsg$ if NoTop = 0 OR force = 1 endif return MENUCMD _$(19207,"&Instrument Control"),"",_$(19208,"Display Instrument Control Panel"),ON if check("variable","_eq_running")=1 MENUCMD _$(19209,"&Data Analysis (offline)"),"ViewDataAnalysis",_$(19210,"Start up an offline Data Analysis") else endif endif MSTuneViews local msg$ if _ismsQ1 = 1 MENUSEP msg$ = _$(19281,"Enter Diagnostics/Vacuum Control") Enter Diagnostics/Vacuum Control MENUCMD _$(19282,"T&une and Vacuum Control..."),"stub_tuneview", _$(19283,"Tune and Diagnostics") endif return CheckHook "IC_2PreViewMenu" Local hook_macro$, count,items hookini$ = _instpath$+"hooks.ini" C:\msdchem\1\hooks.ini items=val(getinistring$(hookini$,hook_name$,"NumOfHooks")) 0 if items > 0 endif Return endif MENUNEW _$(19213,"&Abort") MENUSTP ,_$(19214,"Aborts the currently running macro") if _ismsQ1 = 1 then MENUNEW _$(19215,"&Checkout") dimQ=0 0 if _ionstate<>0 or getinfo("offline")=1 endif if (check("MACRO", "DoChkTune") = 0) macro _exepath$+"mnu_qual.mac" Macro(s) in C:\msdchem\MSexe\mnu_qual.mac loaded. endif msg$ = _$(19216,"Execute checkout autotune") Execute checkout autotune MENUCMD _$(19217,"&Checkout Tune"),"DoChkTune",msg$,dimQ msg$ = _$(19218,"Evaluate checkout autotune") Evaluate checkout autotune MENUCMD _$(30538,"&Evaluate Tune"),"DoTuneEval",msg$,dimQ msg$ = _$(19220,"Review Results of recent instrument tunes.") Review Results of recent instrument tunes. menucmd _$(19221,"&View Previous Tunes..."),"doviewtunes", msg$,dimQ MENUSEP msg$ = _$(19222,"Execute sensitivity checkout method") Execute sensitivity checkout method MENUCMD _$(19223,"&Sensitivity Check"),"DoSensCheck",msg$,dimQ if dimq=2 if _mstype=5 and instrparm("maxmass") > 900 and getinfo("offline")=0 and _ionstate=0 himzchk=0 0 else endif endif msg$ = _$(19224,"Execute high mass checkout method") Execute high mass checkout method MENUCMD _$(19225,"&High Mass Check"),"DoHiMzCheck",msg$,himzchk, MENUCMD MenuItemSWV$,"Do_OQPV",MenuMsgSWV$ MENUSEP msg$ = _$(19228,"View the installation checklist") View the installation checklist MENUCMD _$(19229,"&Installation Checklist"),"ViewInstall",msg$ msg$ = _$(19230,"View the familiarization checklist") View the familiarization checklist MENUCMD _$(19231,"&Familiarization Checklist"),"ViewFamiliar",msg$ endif TopMnu_Misc if _cfrmode=1 if check("variable", "_dotnet") = 0 MSAnyOneMenu local ltemp$ if check("macro","msn_configvars") = 0 endif msn_configvars local temp,inifile$,inisect$,dllfile$ msnsecitem=2 2 msnscenitem=2 2 msn_centric = 0 0 msn_centmeth = 0 0 msn_samples = 0 0 msnfirsttime=0 0 edacpsecure=0 0 msnequilitem=0 0 msnstndbyitem=0 0 standbytime$="10" 10 msnmethitem=0 0 msnstartitem=2 2 equilibration$=_$(21205,"None") None standby$=_$(21206,"None") None centric$=" <None>"  <None> if instr(upper$(_ddename$),"MSDA") > 0 dllfile$ = "msdlg32.dll" msdlg32.dll endif if check("command","lbcmd1") = 0 dllinstall(_dllpath$+dllfile$) 14 endif inifile$=_instpath$+"msanyone.ini" C:\msdchem\1\msanyone.ini filesize inifile$ if size > 0 msnfirsttime=1 1 endif if (msnsecitem=1) and (msnstndbyitem=1) and (msnequilitem=1) and (msnmethitem=1) endif return SecureMenu$=_$(19111,"Security Contro&l") Security Contro&l if _enhapp = 2 endif menunew SecureMenu$ local D_E_Security$ D_E_Security$ = _$(19113,"Enable S&ecurity...") Enable S&ecurity... if edacpsecure = 1 endif menucmd D_E_Security$,"msn_security",_$(19115,"Allows Security setup") if _enhapp = 2 menusep endif menucmd _$(19130,"E&dit Accounts..."),"cpsecure_accounts",_$(19131,"Edit Users, Levels, and Passwords for Secured Control"),msnsecitem return endif endif RETURN MENUNEW _$(19232,"&Window") SecAddMENUCMD _$(19235,"Tile &Horizontal"), "MDITILE", _$(19236,"Tile MDI Windows Horizontal"),,"mnutilehorizontal" local OK,cntlvar$,PrivKey$ PrivKey$="IC_Compliance" IC_Compliance if check("variable","mcntlvar$") = 0 endif if PrivEnabled = 0 OK = 1 1 else endif if OK = 1 if add_menusep = 1 endif if len(mcntlvar$) > 0 evaluate "MENUCMD """+mmenu$+""","""+mcmd$+""","""+mmsg$+"""" MENUCMD "Tile &Horizontal","MDITILE","Tile MDI Windows Horizontal" endif endif return if (check("variable","_dotnet") = 1) MENUCMD _$(19241,"Arrange Plots and &Monitors"), "ICArrangePlots", _$(19242,"Arrange Plots and Monitors") endif MENUMDI if (check("variable","_dotnet") = 1) endif checkMFGStartup if eqstr(upper$(getinistring$("","pcs","mfg")),"YES")=1 endif return ChemAccessStartup local castart$ castart$ = _exepath$[1:len(_exepath$)-6]+"msmacros\AddonIC.mac" C:\msdchem\msmacros\AddonIC.mac filesize castart$ if size > 0 endif return ICAddonStartup Local icaddonmenu$ icaddonmenu$ = _instpath$+"icaddon.mac" C:\msdchem\1\icaddon.mac FileSize icaddonmenu$ If size > 0 EndIf return ECMStartup filesize _exepath$+"ecm_util.mac" if size > 0 macro _exepath$+"ecm_util.mac" Macro(s) in C:\msdchem\MSexe\ecm_util.mac loaded. Check4ECM local a$,b$,c$,n,size,ECMv$,ECMinstallpath$,ECMpathstat ok=0 0 if val(getinistring$("","pcs","MCEADAN"))=1 endif n=0 0 a$="SOFTWARE\Scientific Software, Inc.\CyberLAB\KES Explorer" SOFTWARE\Scientific Software, Inc.\CyberLAB\KES Explorer b$="version" version c$="" getregvalue_ n,a$,b$,ECMv$ 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$)] Scientific Software, Inc.\CyberLAB\KES Explorer IsScalar=check("Scalar","item") 0 tree$=Mnode$+node$ SOFTWARE\Scientific Software, Inc.\CyberLAB\KES Explorer retval="" if IsScalar = 1 endif getregvalue what,tree$,element$,retval,special if IsScalar = 0 if special = 1 if len(retval) = 0 CheckWow = 1 1 endif endif else endif if CheckWow = 1 Mnode$ = Mnode$+"Wow6432node\" SOFTWARE\Wow6432node\ tree$=Mnode$+node$ SOFTWARE\Wow6432node\Scientific Software, Inc.\CyberLAB\KES Explorer getregvalue what,tree$,element$,retval,special endif item = retval return b$="installpath" installpath getregvalue_ n,a$,b$,ECMinstallpath$ 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$)] Scientific Software, Inc.\CyberLAB\KES Explorer IsScalar=check("Scalar","item") 0 tree$=Mnode$+node$ SOFTWARE\Scientific Software, Inc.\CyberLAB\KES Explorer retval="" if IsScalar = 1 endif getregvalue what,tree$,element$,retval,special if IsScalar = 0 if special = 1 if len(retval) = 0 CheckWow = 1 1 endif endif else endif if CheckWow = 1 Mnode$ = Mnode$+"Wow6432node\" SOFTWARE\Wow6432node\ tree$=Mnode$+node$ SOFTWARE\Wow6432node\Scientific Software, Inc.\CyberLAB\KES Explorer getregvalue what,tree$,element$,retval,special endif item = retval return ECMpathstat=filestat(ECMInstallpath$) ARRAY of length 11 varlock 0 Variable locking is OFF local hiaModule GetECMHIAModule hiaModule if check("variable","_isDotNet") = 0 varlock 0 Variable locking is OFF _isDotNet = 0 0 if check("variable","_dotnet") = 1 endif endif IF _IsDotNet = 1 hiaModule = _exepath$ + "ecm.dll" C:\msdchem\MSexe\ecm.dll ENDIF return filesize hiaModule if size > 0 and EcMpathstat[7] <> 0 _ECMversion$=_$(35685,"<ECM is not available>") <ECM is not available> setinistring("","pcs,"+val$(_instnum),"ECMversion","") 1 endif return endif if _ECMInstalled = 1 endif return MENUNEW _$(19243,"&Help") MENUCMD _$(19244,"&Help Topics"),"help", "" if check("variable","_CSlanguage")=1 if _CSlanguage<>1034 useEnglish=val(getinistring$("","PCS,"+val$(_instnum),"Language")) 0 if useEnglish=1 endif endif endif MENUSEP checkhook "IC_PReviewmenu3" Local hook_macro$, count,items hookini$ = _instpath$+"hooks.ini" C:\msdchem\1\hooks.ini items=val(getinistring$(hookini$,hook_name$,"NumOfHooks")) 0 if items > 0 endif Return menucmd _$(19248,"&Review Revision History..."),"revhistory",_$(19249,"Show which revisions of Software have been installed.") menucmd _$(19250,"&View Revision Readme File"),"ReadMeMS" ,_$(19251,"Display readmems.htm") MENUCMD _$(19252,"&Show IP and Revision Information..."),"MenuShowIP_",_$(19253,"Display addresses, firmware revisions (online only), etc.") macro _exepath$+"zipcrit.mac" Macro(s) in C:\msdchem\MSexe\zipcrit.mac loaded. zipmenu a$=_$(50952,"Zip up Diagnostic Files...") Zip up Diagnostic Files... c$=_$(50953,"Create a zip file containing diagnostic information for support engineers.") Create a zip file containing diagnostic information for support engineers. menucmd a$,"dozipcrit",c$ return menusep if (check("variable","_dotnet") = 1) endif MENUCMD _$(19254,"&About"), "doversion", _$(19255,"Display currently running version") if _cfrmode = 1 endif CheckHook "IC_3PreViewMenu" Local hook_macro$, count,items hookini$ = _instpath$+"hooks.ini" C:\msdchem\1\hooks.ini items=val(getinistring$(hookini$,hook_name$,"NumOfHooks")) 0 if items > 0 endif Return MENUEND ic_menu_obj menushw ic_menu_obj RETURN return endif LoadMethod _methpath$+_methfile$,,,1 local gc_type,msg$,cfrlockerr, CFROk,browseroot,Migrated,size,ansisize if from_top = 0 IC_lockout if NoTop = 1 return endif if _methstate = 1 and from_top = 0 and RTLCal = 0 endif z_oldmethpath$ = _methpath$ C:\MSDCHEM\1\METHODS\ z_oldmethfile$ = _methfile$ STANDBY.M if _cfrmode = 1 endif LoadMethPanel name$,1 Current method is STANDBY.M if _button = 0 endif if from_top = 0 If _cfrmode = 1 and rtlcal = 0 and from_start = 0 endif if _isgc6850=1 endif if _isgc68xx=1 and _isgcrc=1 endif MigrateGCFiles Migrated,interactive,z_oldmethpath$+z_oldmethfile$,_methpath$+_methfile$ if _isgc78xx=1 filesize _methpath$+_methfile$+"\7890method.bin" if size>1 endif filesize _methpath$+_methfile$+"\7890method.xml" if size>1 endif endif return macro _exepath$ + "checkmth.mac" Macro(s) in C:\msdchem\MSexe\checkmth.mac loaded. checkmeth 1,1,from_start,1 LOCAL a,updpassed VerifyConfig local sum,msize,vsize,qsize,verifymessage$,ff$ sum = FILESTAT(_METHPATH$ + _METHFILE$) ARRAY of length 11 IF (sum[7] = 2) if sum[8]=0 OR sum[9]=0 FILESIZE _METHPATH$ + _METHFILE$ + "\method.mac" msize = size 133 FILESIZE _METHPATH$ + _METHFILE$ + "\methver.mac" vsize = size 79 if check("variable","_dotnet") = 1 and instr(upper$(_appname$),"MSDA") = 0 endif IF msize <> -1 and vsize <> -1 and qsize <> -1 RETURN GetMethVersion FILESIZE _METHPATH$ + _METHFILE$ + "\methver.mac" IF (size <> -1) MACRO _METHPATH$ + _METHFILE$ + "\methver.mac",go Macro(s) in C:\MSDCHEM\1\METHODS\STANDBY.M\methver.mac loaded. _METHODVERSION VARLOCK OFF Variable locking is OFF _METHVER = 2.10 2.1 VARLOCK ON Variable locking is ON RETURN ELSE ENDIF RETURN if _enhapp = 666 and instr(upper$(_appname$),"MSDA") = 0 endif z_checkmethpath$ = _methpath$ C:\MSDCHEM\1\METHODS\ z_checkmethfile$ = _methfile$ STANDBY.M if (_methver <> _currentver) endif IF (_methver = _currentver) if from_start >= 0 and from_ic >= 0 DoEnhancedUpdates from_start,from_ic,updpassed local lalert lalert = 1 1 if from_start = 1 or _cfrmode = 1 lalert = 3 3 endif local alert$ if _enhapp = 1 if _enhapp = 2 if _enhapp = 3 alert$ = _$(16602,"Reformulated Gasoline Analysis ChemStation") Reformulated Gasoline Analysis ChemStation endif endif endif if _enhapp < 4 filesize _methpath$+_methfile$+"\envdaver.mac" if size = -1 macro _methpath$+_methfile$+"\envdaver.mac",g Macro(s) in C:\MSDCHEM\1\METHODS\STANDBY.M\envdaver.mac loaded. ENVVERSION ENVMETHVER = 3.2 3.2 remove envversion Removed macro ENVVERSION currentenvver = envmethver 3.2 macro _macropath$+"envdaver.def",g Macro(s) in C:\msdchem\MSMACROS\envdaver.def loaded. ENVVERSION ENVMETHVER = 3.2 3.2 remove envversion Removed macro ENVVERSION if envmethver <> currentenvver endif endif else endif updpassed = 1 1 REMOVE DoEnhancedUpdates Removed macro DOENHANCEDUPDAT else endif if updpassed = 1 CheckMthRem ErrorAction REMOVE Translate3, DoCustParmTranslate Removed macro TRANSLATE3 Removed macro DOCUSTPARMTRANS REMOVE CopyMethFiles, RestoreOldMeth, CheckUpdateMeth Removed macro COPYMETHFILES Removed macro RESTOREOLDMETH Removed macro CHECKUPDATEMETH REMOVE CheckRename, RenameB00Files, RenameUpdateFile, TranslateOrUpdate Removed macro CHECKRENAME Removed macro RENAMEB00FILES Removed macro RENAMEUPDATEFIL Removed macro TRANSLATEORUPDA REMOVE GetMethVersion, VerifyConfig Removed macro GETMETHVERSION Removed macro VERIFYCONFIG REMOVE z_checkmethpath$, z_checkmethfile$ Removed variable Z_CHECKMETHPATH Removed variable Z_CHECKMETHFILE REMOVE ErrRecover Removed macro ERRRECOVER IF (RemoveAll = 1) REMOVE z_oldmethpath$, z_oldmethfile$ Removed variable Z_OLDMETHPATH$ Removed variable Z_OLDMETHFILE$ ENDIF REMOVE CheckMthRem Removed macro CHECKMTHREM REMOVE CheckMeth Removed macro CHECKMETH cfrlockerr = 0 0 if _cfrmode = 1 endif if cfrlockerr = 1 endif endif if _isms = 1 and check("macro","luimessage")=1 endif Meth_locked = 0 0 RTLUnlock = 2 2 SetMethState 0 varlock 0 Variable locking is OFF _methstate = dirty 0 varlock 1 Variable locking is ON if NoTop = 0 endif return CPTITLE _INSTNAME$ + " - " + _METHFILE$ if _isgc=1 and _isgc7810=0 gcplotoff 1 if _isgc6850=0 gcplotoff 2 endif if _isgc7890=1 endif endif if _cfrmode = 1 endif if getinfo("offline")=0 and _ismsQ1 = 1 cvtit2gf interactive if interactive<>1 endif local type,count,title$,label$,button$,a,b,i,j,msgline$ local inifile$,inifile$,mode inifile$=_methpath$+_methfile$+"\acq.ms" C:\MSDCHEM\1\METHODS\STANDBY.M\acq.ms inisect$="parameters" parameters mode=val(getinistring$(inifile$,inisect$,"mode 1")) 0 if mode=2 endif inifile$=_methpath$+_methfile$+"\method.ini" C:\MSDCHEM\1\METHODS\STANDBY.M\method.ini inisect$="Parameters" Parameters mode=val(getinistring$(inifile$,inisect$,"GainFactorUpdate")) 1 if mode<>0 return endif if check("variable", "_dotnet") = 1 endif RCMethodLoad Loading 6890 GC Method... Downloading Method to GC... Method downloaded to GC! if _isCTC = 1 endif VarLock 0 Variable locking is OFF local Tloc local i ,j i=val(getinistring$(_methpath$+_methfile$+"\acq.ctl","parameters","use hs")) 0 j=val(getinistring$(_methpath$+_methfile$+"\acq.ctl","parameters","injection source")) 0 if i=0 and j=0 Tloc = 1 1 if _locrearavail = 1 endif if (_injloc = 3 and _locfrontavail+_locrearavail <> 2) or (_injloc=1 and _locfrontavail=0) or (_injloc=2 and _locrearavail=0) endif endif if _injloc =3 and check("variable","_dotnet") = 0 endif if _injvalveloc<1 or _injvalveloc>3 endif if _isgc=1 and _isgc7810=0 gcploton 1 if _isgc6850=0 gcploton 2 endif if _isgc7890=1 endif endif macro _methpath$+_methfile$+"\method.mac",go Macro(s) in C:\MSDCHEM\1\METHODS\STANDBY.M\method.mac loaded. METHINFO EditMethPanel 0,1,0 MethInfoPanel 1,0,1,1,0,,,,,, METHCOMMENT0$ = "AROMATICS IN GASOLINE" AROMATICS IN GASOLINE REMOVE METHINFO Removed macro METHINFO msg$ = _$(19783,"Loading Method ")+_methfile$ Loading Method STANDBY.M LBAddEntry _$(19784,"METHOD"),msg$,_HELPFILE$, 4999 if check("macro","qsusermenu") = 1 if NoTop = 0 OR (NoTop = 1 and ( check("macro","RunSequence") + check("macro","qmeth") = 0 )) HSTUpdateMenu "InstMethods",_methpath$+_methfile$,ic_menu_obj LOCAL count, initxt$, initxt2$, match, i if eqstr(section$,"methods") and check("variable","_cfr_offline") endif HSTGetItemCount section$, count LOCAL inifile$ HSTGetIniFile inifile$ inifile$ = _instpATH$ + "hst.ini" C:\msdchem\1\hst.ini RETURN filesize inifile$ count = GetIniInt(inifile$, section$, "max") 4 if count <= 0 endif RETURN STRDIM initxt$, count Array initxt$(4) has been created HSTGetAllStrings section$, count, initxt$ LOCAL inifile$, i HSTGetIniFile inifile$ inifile$ = _instpATH$ + "hst.ini" C:\msdchem\1\hst.ini RETURN i = 1 1 while (i <= count) initxt$[i] = GetIniString$(inifile$, section$, val$(i)) C:\MSDCHEM\1\METHODS\STANDBY.M i = i + 1 2 endwhile while (i <= count) initxt$[i] = GetIniString$(inifile$, section$, val$(i)) C:\MSDCHEM\1\METHODS\GASOLINE.M i = i + 1 3 endwhile while (i <= count) initxt$[i] = GetIniString$(inifile$, section$, val$(i)) C:\msdchem\1\METHODS\DEFAULT.M i = i + 1 4 endwhile while (i <= count) initxt$[i] = GetIniString$(inifile$, section$, val$(i)) C:\MSDCHEM\2\METHODS\AROMATICS.M i = i + 1 5 endwhile while (i <= count) RETURN HSTFindMatch count, initxt$, filename$, match LOCAL i i = 1 1 while (i <= count) if EQSTR(initxt$[i], filename$) then match = i 1 return if (match = 1) then return setinistring("","pcs,"+val$(_instnum),"_methpath$",_methpath$) 1 setinistring("","pcs,"+val$(_instnum),"_methfile$",_methfile$) 1 endif endif if _ismsQ1 = 1 tunefilename$ = getinistring$(_methpath$+_methfile$+"\acq.ms","general","tune file") atune.u if (len(tunefilename$) = 0) endif if _mstype = 6 endif if _ionstate=1 and (_mstype = 5 or _mstype = 6) and check("variable","gasAB")=1 endif if _cfrmode = 1 endif on_error catchhisense getconfig _tunepath$+tunefilename$ Tune parameters read from file C:\msdchem\1\5975\atune.u. on_error generate_error if check("variable", "_dotnet") = 0 local inifile$,inisect$,NotFirstTime inifile$ = _methpath$+_methfile$+"\win.pos" C:\MSDCHEM\1\METHODS\STANDBY.M\win.pos inisect$ = "Instrument Control Window" Instrument Control Window NotFirstTime = getiniint(inifile$,inisect$,"NOTFIRSTTIME") 1 if NotFirstTime <> 1 endif endif if _cfrmode = 1 and len(_errmsg$) <> 0 endif if (interactive = 1) checkdiff local sa, ss, qa, qs, xa, xs, tol, alert$, t$ if (getinfo("offline") = 0) and check("macro","runsequence")=0 xa = 100 100 xs = 100 100 t$=chr$(9)       tol = 3 3 mstemp source,sa mstemp source,,ss mstemp quad,qa mstemp quad,,qs if (_mstype = 6) endif if (sa > ss + tol) or (sa < ss - tol) or (qa > qs + tol) or (qa < qs - tol) or (xa > xs + tol) or (xa < xs - tol) endif endif return endif if _IONSTATE = 1 if (GetInfo("ms_ci") = 1) CPTITLE CPTITLE$() + " - EI" endif endif endif if _isms = 1 and check("macro","luimessage")=1 endif currmeth$=_methpath$+_methfile$ C:\MSDCHEM\1\METHODS\STANDBY.M if _isms = 1 and check("macro","luimessage")=1 endif if GC6890dll > 0 or GC6850dll > 0 local g68x0isource g68x0isource = val(getinistring$(_methpath$+_methfile$+"\acq.ctl","parameters","injection source")) 0 if g68x0isource = 1 or g68x0isource = 3 endif endif CheckHook "IC_LoadMethod" Local hook_macro$, count,items hookini$ = _instpath$+"hooks.ini" C:\msdchem\1\hooks.ini items=val(getinistring$(hookini$,hook_name$,"NumOfHooks")) 0 if items > 0 endif Return if NoTop = 1 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 197902 endif varlock on Variable locking is ON endif return endif endif return else endif check4rtllocked oldCPT$ = CPTitle$() GCMS /Reformulated Gasoline - STANDBY.M / 043020.S if _isgc=1 and honor_rtl=1 local inifile$,inisect$ inifile$ = _methpath$+_methfile$+"\method.ini" C:\MSDCHEM\1\METHODS\STANDBY.M\method.ini inisect$ = "global" global strdim inlet$,3 Array inlet$(3) has been created Meth_locked = val(getinistring$(inifile$,inisect$,"MethLocked")) 0 if Meth_locked = 1 endif endif local a,count,rtldata$,rtlbad RTLRelockvar=2 2 count = 1 1 while count <= 5 a=filestat(_methpath$+_methfile$+"\rtlock\rtlock"+val$(count)+".d") ARRAY of length 11 if a[7] <> 2 rtlbad = rtlbad + 1 1 endif count = count + 1 2 endwhile while count <= 5 a=filestat(_methpath$+_methfile$+"\rtlock\rtlock"+val$(count)+".d") ARRAY of length 11 if a[7] <> 2 rtlbad = rtlbad + 1 2 endif count = count + 1 3 endwhile while count <= 5 a=filestat(_methpath$+_methfile$+"\rtlock\rtlock"+val$(count)+".d") ARRAY of length 11 if a[7] <> 2 rtlbad = rtlbad + 1 3 endif count = count + 1 4 endwhile while count <= 5 a=filestat(_methpath$+_methfile$+"\rtlock\rtlock"+val$(count)+".d") ARRAY of length 11 if a[7] <> 2 rtlbad = rtlbad + 1 4 endif count = count + 1 5 endwhile while count <= 5 a=filestat(_methpath$+_methfile$+"\rtlock\rtlock"+val$(count)+".d") ARRAY of length 11 if a[7] <> 2 rtlbad = rtlbad + 1 5 endif count = count + 1 6 endwhile while count <= 5 if rtlbad = 0 and getinfo("offline") = 0 endif return if Migrated=1 endif check_ci_setuser if getinfo("offline") = 1 or _ismsQ1 = 0 then endif if _ionstate=0 reagent_off initialcistate scwrite "msc:parm:set cimfcc,0" scwrite "msc:parm:set cimfcp,0" return cishutdown cicalvalve 0 calvalve ,mode,1 Calibration valve is set to be closed. return cigasa 0 if mode=1 scwrite "msc:parm:set cigasa,  0" endif return cigasb 0 if mode=1 scwrite "msc:parm:set cigasb,  0" endif return cisetflow 0 scwrite "msc:parm:set cimfc,"+val$(mode) return cishutoff 0 if mode=1 scwrite "msc:parm:set cishov,  0" endif return ciok=-1 -1 cistatus ciok local gasAst,gasBst,shutst,flowst,aa$,flowrt,bb$ echomode off sdim aa$,2 Array aa$(2) has been created aa$[1]=_$(18690,"OFF  ") OFF   aa$[2]=_$(18691,"ON  ") ON   sdim bb$,2 Array bb$(2) has been created bb$[1]=_$(18692," Unexpected")  Unexpected bb$[2]=_$(18693," OK")  OK local a$,b$,c$,d$,e$,f$,calci SCQUERY "msc:parm:set? cigasa",a$ 0 gasAst=val(a$) 0 SCQUERY "msc:parm:set? cigasb",b$ 0 gasBst=val(b$) 0 SCQUERY "msc:parm:set? cishov",c$ 0 shutst=val(c$) 0 SCQUERY "msc:parm:set? cical",d$ 0 calci=val(d$) 0 SCQUERY "msc:parm:set? cimfc",e$ 0 scquery "msc:sens:read? ciflow",f$ -1.00 flowrt=val(f$) -1 global_ciflow=flowrt -1 setuser 13,CIflow -1.000000e+099 setuser 14,gasAB -1.000000e+099 if gasAst+gasBst+flowst+shutst=0 CIonOFF=0 0 else endif shutst=Round(shutst) 0 gasAst=Round(gasAst) 0 gasBst=Round(gasBst) 0 calci =Round(calci) 0 if shutst<0 or shutst>1 endif if gasAst<0 or gasAst>1 endif if gasBst<0 or gasBst>1 endif if calci<0 or calci>1 endif local pressure pressure=0 0 if getinfo("ms_type")=5 check_vgauge pressure,force_on local a$ scquery "config:info:opts:desc? 4",a$ NO_VGAUGE print a$ NO_VGAUGE if eqstr(a$,"GPMI VACUUM GAUGE")=1 ok=-1 -1 endif print "check_gauge ",ok check_gauge  -1 global_pressure=ok -1 return else endif on_error if CIonOFF=1 print _$(18700,"Shutoff:"),aa$[shutst+1],_$(18701,"Gas A:"),aa$[gasAst+1],_$(18702,"Gas B:"),aa$[gasBst+1],_$(18703,"PFDTD:"),aa$[calci+1],_$(18704,"Flow:"),flowrt,"/",ciflow,_$(18705,"  Status: Not Ready "),_$(18706,"Pressure:"),global_pressure$ Shutoff: OFF   Gas A: OFF   Gas B: OFF   PFDTD: OFF   Flow: -1 / -1e+099   Status: Not Ready  Pressure: -1 endif return remove ciok Removed variable CIOK return return return varlock 0 Variable locking is OFF _ecmmethpath$=getinistring$(_methpath$+_methfile$+"\method.ini","ecm","upload") varlock 1 Variable locking is ON print _methpath$+_methfile$+_$(19786," loaded!") C:\MSDCHEM\1\METHODS\STANDBY.M loaded! do_load_pt 1,1 varlock off Variable locking is OFF if check("variable","_ptavail")=0 endif if get_ini=1 load_pt_ini local inifile$,inisect$ inifile$=_methpath$+_methfile$+"\method.ini" C:\MSDCHEM\1\METHODS\STANDBY.M\method.ini inisect$="Sample Prep" Sample Prep varlock off Variable locking is OFF if check("variable","_ptavail")=0 endif if _ptavail=1 endif varlock on Variable locking is ON return endif if _ptavail=1 endif return if _injsource<>1 and _ptavail=1 endif if _cfrmode = 1 endif return Setup_InstItems local alsmax,hsmax,temp,temp$,TMax,traycap,fcap,rcap alsmax = 150 150 hsmax = 101 101 if _isGC68xx = 1 and _isGCRC = 0 alsmax=100 100 endif varlock 0 Variable locking is OFF dim _ALSMaxvial,3 Array _ALSMaxvial(3) has been created dim _HSMaxVial,3 Array _HSMaxVial(3) has been created dim _CTCMaxVial,3 Array _CTCMaxVial(3) has been created if _isCTC = 1 endif if getinfo("offline") = 1 endif TMax = _ALSMaxVial ARRAY of length 3 if _isgc68xx = 1 temp$=sendmodule$(gcmod$,"CCPO 7") CCPO 0 if val(temp$[5:len(temp$)]) = 14 endif temp$=sendmodule$(gcmod$,"07CONFIG") 07CONFIG G2913A.11.02,8,0,6,10;;G1530N.05.05,0,0 temp =reverseinstr(temp$,";") 32 temp$=temp$[temp+1:len(temp$)] G1530N.05.05,0,0 temp =instr(temp$,",") 13 traycap = val(temp$[temp+1:len(temp$)]) 0 temp$=sendmodule$(gcmod$,"07CONFIG 1") 07CONFIG G2913A.11.02,8,0,6,10 temp$=temp$[instr(temp$," ")+1:len(temp$)] G2913A.11.02,8,0,6,10 if val(temp$)=106 temp=instr(temp$,",") 13 fcap = val(temp$[temp+1:len(temp$)]) 8 endif temp$=sendmodule$(gcmod$,"07CONFIG 2") 07CONFIG 106 temp$=temp$[instr(temp$," ")+1:len(temp$)] 106 if val(temp$)=106 rcap=0 0 else endif Tmax[1]=fcap ARRAY of length 3 Tmax[2]=rcap ARRAY of length 3 temp$=sendmodule$(gcmod$,"CCPC 7") CCPC 0 endif if _isgc78xx = 1 endif if traycap > 0 and fcap <> 0 endif if traycap > 0 and rcap <> 0 endif _ALSMaxVial = Tmax ARRAY of length 3 if _isHS = 1 endif on_error startuperror 1 return if check("macro","qsusermenu") = 1 endif icshow 1 CMDLINE ON REMOVE xBitmapPos Undefined symbol: XBITMAPPOS Acquisition print _$(19797,"Welcome to Instrument Control!") Welcome to Instrument Control! RETURN if _ismsQ1 = 1 QueryLUI 1 macro _exepath$+"diagcmn.mac" Macro(s) in C:\msdchem\MSexe\diagcmn.mac loaded. endif Varlock off Variable locking is OFF _insctlerr=0 0 Varlock on Variable locking is ON RETURN if NoTop = 1 macro _exepath$+"nticrunmeth.mac" Macro(s) in C:\msdchem\MSexe\nticrunmeth.mac loaded. endif instrview ,1 The instrument view is 1 filesize _exepath$+"icextra.mac" if size > 0 endif endif endif if eqstr(state, "remove") then endif if eqstr(state, "hide") then endif if _ionstate=1 and _mstype=5 endif return endif else endif if doit=1 then switchexecuted = 0 0 endif RETURN if _isms=1 macro _exepath$+"lui.mac",go Macro(s) in C:\msdchem\MSexe\lui.mac loaded. AUTOSTART getluivars local a$,b$,c$,n varlock off Variable locking is OFF _ipaddr$ = _$(20081,"<not defined yet!>") <not defined yet!> n = 0 0 a$ = "system\controlset001\services\tcpip\parameters" system\controlset001\services\tcpip\parameters b$ = "hostname" hostname getregvalue_ n,a$,b$,c$ local a,Mnode$,IsScalar,CheckWow,retval,skey$,found_one,mustkey$ a=instr(node$,"\") 7 Mnode$ = node$[1:a] system\ node$=node$[a+1:len(node$)] controlset001\services\tcpip\parameters IsScalar=check("Scalar","item") 0 tree$=Mnode$+node$ system\controlset001\services\tcpip\parameters retval="" if IsScalar = 1 endif getregvalue what,tree$,element$,retval,special if IsScalar = 0 if special = 1 if len(retval) = 0 endif endif else endif if CheckWow = 1 endif item = retval ALR-2322341660 return _hostname$ = c$ ALR-2322341660 varlock on Variable locking is ON return TopSeqfile$=_defseqfile$ default.s TopSeqpath$=_instpath$+"sequence\" C:\msdchem\1\sequence\ LuiTune$="AUTOTUNE/ATUNE.U" AUTOTUNE/ATUNE.U remove autostart Removed macro AUTOSTART endif if (getinfo("offline") = 0) msinsctlstart=1 1 macro _exepath$+"emfcheck.mac" Macro(s) in C:\msdchem\MSexe\emfcheck.mac loaded. InitEMFUtil 1,,1 local temp$,buttons$,setlab$,done,pressed,exists,discard,count,start,end,numopts local pass,acqini$,tunetime,timenow,emvalue,emdelta local GCMSlabels$,GCMSInilabels$,GCMSSLlabels$,MSlabels$,MSInilabels$,MSSLlabels$,GClabels$,GCInilabels$,GCSLlabels$ local pumpoil$,tunetime$,emvoltage$,septum$,liner$,numinjections$,sltemp$ emferr=0 0 emferr$="" print "" inifile$ = _instpath$+"emf.ini" C:\msdchem\1\emf.ini filesize inifile$ if size <= 0 and auto = 1 endif if check("macro","sectime") = 0 macro _exepath$+"sectime.mac" Macro(s) in C:\msdchem\MSexe\sectime.mac loaded. endif GCMSlabels$="" GCMSInilabels$="" GCMSSLlabels$="" MSlabels$="" MSInilabels$="" MSSLlabels$="" GClabels$="" GCInilabels$="" GCSLlabels$="" tlabels$="" labelinf$="" sect$="" count$="" limit$="" emferr$=_$(17560,"Limits fail: ") Limits fail:  strdim buttons$,3 Array buttons$(3) has been created buttons$[1]=_$(17561,"OK") OK buttons$[2]=_$(17562,"Done") Done buttons$[3]=_$(17563,"Cancel") Cancel strdim setlab$,3 Array setlab$(3) has been created setlab$[1]=_$(17564,"Set &Limits") Set &Limits setlab$[2]=_$(17565,"Set &Counters") Set &Counters setlab$[3]=_$(17566,"&Reset Counters") &Reset Counters pumpoil$=_$(17583,"Pump Oil (Days)") Pump Oil (Days) tunetime$=_$(17584,"Tune Time (Hours)") Tune Time (Hours) emvoltage$=_$(17585,"EM Voltage") EM Voltage septum$=_$(17586,"Septum (Injections)") Septum (Injections) liner$=_$(17587,"Liner (Injections)") Liner (Injections) numinjections$=_$(17588,"Number of Injections (Total)") Number of Injections (Total) strdim MSlabels$,3 Array MSlabels$(3) has been created MSlabels$[1]=_$(17567,"&Pump Oil (Days)") &Pump Oil (Days) MSlabels$[2]=_$(17568,"&Tune Time (Hours)") &Tune Time (Hours) MSlabels$[3]=_$(17569,"&EM Voltage") &EM Voltage strdim MSInilabels$,3 Array MSInilabels$(3) has been created MSInilabels$[1]="Pump Oil (Days)" Pump Oil (Days) MSInilabels$[2]="Tune Time (Hours)" Tune Time (Hours) MSInilabels$[3]="EM Voltage" EM Voltage strdim MSSLlabels$,3 Array MSSLlabels$(3) has been created MSSLlabels$[1]=pumpoil$ Pump Oil (Days) MSSLlabels$[2]=tunetime$ Tune Time (Hours) MSSLlabels$[3]=emvoltage$ EM Voltage strdim GCMSlabels$,6 Array GCMSlabels$(6) has been created GCMSlabels$[1]=_$(17570,"&Septum (Injections)") &Septum (Injections) GCMSlabels$[2]=_$(17571,"&Liner (Injections)") &Liner (Injections) GCMSlabels$[3]=_$(17572,"&Number of Injections (Total)") &Number of Injections (Total) GCMSlabels$[4]=_$(17573,"&Pump Oil (Days)") &Pump Oil (Days) GCMSlabels$[5]=_$(17574,"&Tune Time (Hours)") &Tune Time (Hours) GCMSlabels$[6]=_$(17575,"&EM Voltage") &EM Voltage strdim GCMSInilabels$,6 Array GCMSInilabels$(6) has been created GCMSInilabels$[1]="Septum (Injections)" Septum (Injections) GCMSInilabels$[2]="Liner (Injections)" Liner (Injections) GCMSInilabels$[3]="Number of Injections (Total)" Number of Injections (Total) GCMSInilabels$[4]="Pump Oil (Days)" Pump Oil (Days) GCMSInilabels$[5]="Tune Time (Hours)" Tune Time (Hours) GCMSInilabels$[6]="EM Voltage" EM Voltage strdim GCMSSLlabels$,6 Array GCMSSLlabels$(6) has been created GCMSSLlabels$[1]=septum$ Septum (Injections) GCMSSLlabels$[2]=liner$ Liner (Injections) GCMSSLlabels$[3]=numinjections$ Number of Injections (Total) GCMSSLlabels$[4]=pumpoil$ Pump Oil (Days) GCMSSLlabels$[5]=tunetime$ Tune Time (Hours) GCMSSLlabels$[6]=emvoltage$ EM Voltage strdim GClabels$,3 Array GClabels$(3) has been created GClabels$[1]=_$(17576,"&Septum (Injections)") &Septum (Injections) GClabels$[2]=_$(17577,"&Liner (Injections)") &Liner (Injections) GClabels$[3]=_$(17578,"&Number of Injections (Total)") &Number of Injections (Total) strdim GCInilabels$,3 Array GCInilabels$(3) has been created GCInilabels$[1]="Septum (Injections)" Septum (Injections) GCInilabels$[2]="Liner (Injections)" Liner (Injections) GCInilabels$[3]="Number of Injections" Number of Injections strdim GCSLlabels$,3 Array GCSLlabels$(3) has been created GCSLlabels$[1]=septum$ Septum (Injections) GCSLlabels$[2]=liner$ Liner (Injections) GCSLlabels$[3]=numinjections$ Number of Injections (Total) msconfig=val(getinistring$("","pcs,"+val$(_instnum),"ms_type")) 5 if msconfig > 0 and msconfig < 99 msconfig = 1 1 endif gcconfig=0 0 if len(gcmod$) > 0 gcconfig=1 1 endif acqini$ = _methpath$+_methfile$+"\acq.ctl" C:\MSDCHEM\1\METHODS\STANDBY.M\acq.ctl if msconfig = 1 msused = 1 1 if val(getinistring$(acqini$,"parameters","use ms")) = 0 and gcconfig = 1 endif endif if msconfig = 1 and gcconfig = 1 labels$=GCMSlabels$ ARRAY of length 6 inilabels$=GCMSInilabels$ ARRAY of length 6 sllabels$=GCMSSLlabels$ ARRAY of length 6 else endif numopts = num(labels$) 6 strdim labelinf$,numopts Array labelinf$(6) has been created strdim sect$,numopts Array sect$(6) has been created count = 1 1 while count <= numopts sect$[count] = inilabels$[count] Septum (Injections) count = count+1 2 endwhile while count <= numopts sect$[count] = inilabels$[count] Liner (Injections) count = count+1 3 endwhile while count <= numopts sect$[count] = inilabels$[count] Number of Injections (Total) count = count+1 4 endwhile while count <= numopts sect$[count] = inilabels$[count] Pump Oil (Days) count = count+1 5 endwhile while count <= numopts sect$[count] = inilabels$[count] Tune Time (Hours) count = count+1 6 endwhile while count <= numopts sect$[count] = inilabels$[count] EM Voltage count = count+1 7 endwhile while count <= numopts if auto = 0 start = 1 1 end = numopts 6 if msconfig = 1 if getinfo("MS_Type") = 33 acqini$ = _methpath$+_methfile$+"\acq.ms" C:\MSDCHEM\1\METHODS\STANDBY.M\acq.ms emvalue = val(getinistring$(acqini$,"parameters","mode 1")) 0 emvalue = -1 -1 if emvalue = 1 msparm emv,emvalue EM Volts set to 1624. if emvalue = 0 endif endif endif timenow = time$() Wed May 06 11:20:12 2020 sectime ,,,,,,timenow,2 dim monthsecs,12 Array monthsecs(12) has been created secs_per_year = 60*60*24*365 3.1536e+007 daysecs = 60*60*24 86400 hoursecs = 60*60 3600 minsecs = 60 60 monthval=1 1 while monthval <= 12 if monthval=1 or monthval=3 or monthval=5 or monthval=7 or monthval=8 or monthval=10 or monthval=12 monthsecs[monthval]=daysecs*31 ARRAY of length 12 else endif monthval = monthval+1 2 endwhile while monthval <= 12 if monthval=1 or monthval=3 or monthval=5 or monthval=7 or monthval=8 or monthval=10 or monthval=12 if monthval <> 2 endif endif monthval = monthval+1 3 endwhile while monthval <= 12 if monthval=1 or monthval=3 or monthval=5 or monthval=7 or monthval=8 or monthval=10 or monthval=12 monthsecs[monthval]=daysecs*31 ARRAY of length 12 else endif monthval = monthval+1 4 endwhile while monthval <= 12 if monthval=1 or monthval=3 or monthval=5 or monthval=7 or monthval=8 or monthval=10 or monthval=12 if monthval <> 2 monthsecs[monthval]= daysecs*30 ARRAY of length 12 endif endif monthval = monthval+1 5 endwhile while monthval <= 12 if monthval=1 or monthval=3 or monthval=5 or monthval=7 or monthval=8 or monthval=10 or monthval=12 monthsecs[monthval]=daysecs*31 ARRAY of length 12 else endif monthval = monthval+1 6 endwhile while monthval <= 12 if monthval=1 or monthval=3 or monthval=5 or monthval=7 or monthval=8 or monthval=10 or monthval=12 if monthval <> 2 monthsecs[monthval]= daysecs*30 ARRAY of length 12 endif endif monthval = monthval+1 7 endwhile while monthval <= 12 if monthval=1 or monthval=3 or monthval=5 or monthval=7 or monthval=8 or monthval=10 or monthval=12 monthsecs[monthval]=daysecs*31 ARRAY of length 12 else endif monthval = monthval+1 8 endwhile while monthval <= 12 if monthval=1 or monthval=3 or monthval=5 or monthval=7 or monthval=8 or monthval=10 or monthval=12 monthsecs[monthval]=daysecs*31 ARRAY of length 12 else endif monthval = monthval+1 9 endwhile while monthval <= 12 if monthval=1 or monthval=3 or monthval=5 or monthval=7 or monthval=8 or monthval=10 or monthval=12 if monthval <> 2 monthsecs[monthval]= daysecs*30 ARRAY of length 12 endif endif monthval = monthval+1 10 endwhile while monthval <= 12 if monthval=1 or monthval=3 or monthval=5 or monthval=7 or monthval=8 or monthval=10 or monthval=12 monthsecs[monthval]=daysecs*31 ARRAY of length 12 else endif monthval = monthval+1 11 endwhile while monthval <= 12 if monthval=1 or monthval=3 or monthval=5 or monthval=7 or monthval=8 or monthval=10 or monthval=12 if monthval <> 2 monthsecs[monthval]= daysecs*30 ARRAY of length 12 endif endif monthval = monthval+1 12 endwhile while monthval <= 12 if monthval=1 or monthval=3 or monthval=5 or monthval=7 or monthval=8 or monthval=10 or monthval=12 monthsecs[monthval]=daysecs*31 ARRAY of length 12 else endif monthval = monthval+1 13 endwhile while monthval <= 12 monthsecs[2]=daysecs*28 ARRAY of length 12 local allmonths$,month_num allmonths$="JanFebMarAprMayJunJulAugSepOctNovDec" JanFebMarAprMayJunJulAugSepOctNovDec if fmt = 1 endif if fmt = 2 day$=var[9:10] 06 if val(day$) < 10 day$="0"+day$[2:2] 06 endif year$=var[21:24] 2020 hour$=var[12:13] 11 min$=var[15:16] 20 sec$=var[18:19] 12 month$=var[5:7] May month_num=(instr(allmonths$,month$)-1) / 3 + 1 5 month$=val$(month_num) 5 endif if fmt = 3 endif if val(year$) >= 1972 leapval = floor((val(year$)-1972)/4)+1 13 leapval = leapval*daysecs 1.1232e+006 else endif yeardif = val(year$)-1970 50 yearsecs = yeardif*secs_per_year 1.5768e+009 yearsecs = yearsecs + leapval 1.57792e+009 if (val(month$) = 2) and mod((val(year$)-1972),4)=0 endif monthval = 1 1 while monthval < val(month$) yearsecs = yearsecs + monthsecs[monthval] 1.5806e+009 monthval = monthval+1 2 endwhile while monthval < val(month$) yearsecs = yearsecs + monthsecs[monthval] 1.58302e+009 monthval = monthval+1 3 endwhile while monthval < val(month$) yearsecs = yearsecs + monthsecs[monthval] 1.5857e+009 monthval = monthval+1 4 endwhile while monthval < val(month$) yearsecs = yearsecs + monthsecs[monthval] 1.58829e+009 monthval = monthval+1 5 endwhile while monthval < val(month$) yearsecs = yearsecs + (daysecs*val(day$)) - daysecs 1.58872e+009 yearsecs = yearsecs + (hoursecs*val(hour$)) 1.58876e+009 yearsecs = yearsecs + (minsecs*val(min$)) 1.58876e+009 time_in_seconds=yearsecs+val(sec$) 1.58876e+009 return timenow = time_in_seconds 1.58876e+009 tunetime = filestat(_tunepath$+tunefilename$) ARRAY of length 11 sectime ,,,,,,tunetime,3 dim monthsecs,12 Array monthsecs(12) has been created secs_per_year = 60*60*24*365 3.1536e+007 daysecs = 60*60*24 86400 hoursecs = 60*60 3600 minsecs = 60 60 monthval=1 1 while monthval <= 12 if monthval=1 or monthval=3 or monthval=5 or monthval=7 or monthval=8 or monthval=10 or monthval=12 monthsecs[monthval]=daysecs*31 ARRAY of length 12 else endif monthval = monthval+1 2 endwhile while monthval <= 12 if monthval=1 or monthval=3 or monthval=5 or monthval=7 or monthval=8 or monthval=10 or monthval=12 if monthval <> 2 endif endif monthval = monthval+1 3 endwhile while monthval <= 12 if monthval=1 or monthval=3 or monthval=5 or monthval=7 or monthval=8 or monthval=10 or monthval=12 monthsecs[monthval]=daysecs*31 ARRAY of length 12 else endif monthval = monthval+1 4 endwhile while monthval <= 12 if monthval=1 or monthval=3 or monthval=5 or monthval=7 or monthval=8 or monthval=10 or monthval=12 if monthval <> 2 monthsecs[monthval]= daysecs*30 ARRAY of length 12 endif endif monthval = monthval+1 5 endwhile while monthval <= 12 if monthval=1 or monthval=3 or monthval=5 or monthval=7 or monthval=8 or monthval=10 or monthval=12 monthsecs[monthval]=daysecs*31 ARRAY of length 12 else endif monthval = monthval+1 6 endwhile while monthval <= 12 if monthval=1 or monthval=3 or monthval=5 or monthval=7 or monthval=8 or monthval=10 or monthval=12 if monthval <> 2 monthsecs[monthval]= daysecs*30 ARRAY of length 12 endif endif monthval = monthval+1 7 endwhile while monthval <= 12 if monthval=1 or monthval=3 or monthval=5 or monthval=7 or monthval=8 or monthval=10 or monthval=12 monthsecs[monthval]=daysecs*31 ARRAY of length 12 else endif monthval = monthval+1 8 endwhile while monthval <= 12 if monthval=1 or monthval=3 or monthval=5 or monthval=7 or monthval=8 or monthval=10 or monthval=12 monthsecs[monthval]=daysecs*31 ARRAY of length 12 else endif monthval = monthval+1 9 endwhile while monthval <= 12 if monthval=1 or monthval=3 or monthval=5 or monthval=7 or monthval=8 or monthval=10 or monthval=12 if monthval <> 2 monthsecs[monthval]= daysecs*30 ARRAY of length 12 endif endif monthval = monthval+1 10 endwhile while monthval <= 12 if monthval=1 or monthval=3 or monthval=5 or monthval=7 or monthval=8 or monthval=10 or monthval=12 monthsecs[monthval]=daysecs*31 ARRAY of length 12 else endif monthval = monthval+1 11 endwhile while monthval <= 12 if monthval=1 or monthval=3 or monthval=5 or monthval=7 or monthval=8 or monthval=10 or monthval=12 if monthval <> 2 monthsecs[monthval]= daysecs*30 ARRAY of length 12 endif endif monthval = monthval+1 12 endwhile while monthval <= 12 if monthval=1 or monthval=3 or monthval=5 or monthval=7 or monthval=8 or monthval=10 or monthval=12 monthsecs[monthval]=daysecs*31 ARRAY of length 12 else endif monthval = monthval+1 13 endwhile while monthval <= 12 monthsecs[2]=daysecs*28 ARRAY of length 12 local allmonths$,month_num allmonths$="JanFebMarAprMayJunJulAugSepOctNovDec" JanFebMarAprMayJunJulAugSepOctNovDec if fmt = 1 endif if fmt = 2 endif if fmt = 3 day$=val$(var[2]) 21 if val(day$) < 10 endif year$=val$(var[3]+1900) 2020 hour$=val$(var[4]) 8 min$=val$(var[5]) 24 month$=val$(var[1]) 2 endif if val(year$) >= 1972 leapval = floor((val(year$)-1972)/4)+1 13 leapval = leapval*daysecs 1.1232e+006 else endif yeardif = val(year$)-1970 50 yearsecs = yeardif*secs_per_year 1.5768e+009 yearsecs = yearsecs + leapval 1.57792e+009 if (val(month$) = 2) and mod((val(year$)-1972),4)=0 yearsecs = yearsecs - daysecs 1.57784e+009 endif monthval = 1 1 while monthval < val(month$) yearsecs = yearsecs + monthsecs[monthval] 1.58052e+009 monthval = monthval+1 2 endwhile while monthval < val(month$) yearsecs = yearsecs + (daysecs*val(day$)) - daysecs 1.58224e+009 yearsecs = yearsecs + (hoursecs*val(hour$)) 1.58227e+009 yearsecs = yearsecs + (minsecs*val(min$)) 1.58227e+009 time_in_seconds=yearsecs+val(sec$) 1.58227e+009 return tunetime = time_in_seconds 1.58227e+009 inifile$=_instpath$+"emf.ini" C:\msdchem\1\emf.ini if gcconfig = 1 pumptime = val(getinistring$(inifile$,sect$[4],"count")) 1.57306e+009 else endif endif if full = 0 endif while start <= end local limit,count temp$=inilabels$[start] Septum (Injections) sltemp$=sllabels$[start] Septum (Injections) if msconfig = 1 and gcconfig = 0 if msconfig = 1 and start > 3 if getiniint(_methpath$+_methfile$+"\acq.ctl","parameters","inlet") = 0 CheckEMFoptions temp$,FromTop,limit,count,pass if mused = 0 endif if value = 0 value = val(getinistring$(inifile$,sect$,"count")) 0 endif limit = val(getinistring$(inifile$,sect$,"limit")) -1 if increment = 1 and limit > 0 endif if value > limit and limit > 0 pass = 1 1 endif return else endif endif endif if pass = 0 endif start = start+1 2 endwhile while start <= end local limit,count temp$=inilabels$[start] Liner (Injections) sltemp$=sllabels$[start] Liner (Injections) if msconfig = 1 and gcconfig = 0 if msconfig = 1 and start > 3 if getiniint(_methpath$+_methfile$+"\acq.ctl","parameters","inlet") = 0 CheckEMFoptions temp$,FromTop,limit,count,pass if mused = 0 endif if value = 0 value = val(getinistring$(inifile$,sect$,"count")) 0 endif limit = val(getinistring$(inifile$,sect$,"limit")) -1 if increment = 1 and limit > 0 endif if value > limit and limit > 0 pass = 1 1 endif return else endif endif endif if pass = 0 endif start = start+1 3 endwhile while start <= end local limit,count temp$=inilabels$[start] Number of Injections (Total) sltemp$=sllabels$[start] Number of Injections (Total) if msconfig = 1 and gcconfig = 0 if msconfig = 1 and start > 3 if getiniint(_methpath$+_methfile$+"\acq.ctl","parameters","inlet") = 0 CheckEMFoptions temp$,FromTop,limit,count,pass if mused = 0 endif if value = 0 value = val(getinistring$(inifile$,sect$,"count")) 0 endif limit = val(getinistring$(inifile$,sect$,"limit")) -1 if increment = 1 and limit > 0 endif if value > limit and limit > 0 pass = 1 1 endif return else endif endif endif if pass = 0 endif start = start+1 4 endwhile while start <= end local limit,count temp$=inilabels$[start] Pump Oil (Days) sltemp$=sllabels$[start] Pump Oil (Days) if msconfig = 1 and gcconfig = 0 if msconfig = 1 and start > 3 if start = 6 if start = 5 count = (timenow-pumptime)/(3600*24) 181.759 endif endif CheckEMFoptions temp$,,limit,count,pass,msused if mused = 0 endif if value = 0 endif limit = val(getinistring$(inifile$,sect$,"limit")) 90 if increment = 1 and limit > 0 endif if value > limit and limit > 0 pass = 0 0 else endif return else endif endif if pass = 0 if emferr = 0 sprint emferr$ using emferr$+sltemp$ emferr=1 1 else endif doLB_EMFnotice sltemp$,limit,count local lbprint$,notify$ notify$=_$(17301,"and Notification given") and Notification given if check("macro","RunSequence") = 1 endif sprint lbprint$ using _$(17303,"% at #, limit (#) has been reached ")+notify$,mode$,count,limit lbaddentry _$(17304,"EMF"),lbprint$ return endif start = start+1 5 endwhile while start <= end local limit,count temp$=inilabels$[start] Tune Time (Hours) sltemp$=sllabels$[start] Tune Time (Hours) if msconfig = 1 and gcconfig = 0 if msconfig = 1 and start > 3 if start = 6 if start = 5 count = (timenow-tunetime)/3600 1802.94 else endif endif CheckEMFoptions temp$,,limit,count,pass,msused if mused = 0 endif if value = 0 endif limit = val(getinistring$(inifile$,sect$,"limit")) 48 if increment = 1 and limit > 0 endif if value > limit and limit > 0 pass = 0 0 else endif return else endif endif if pass = 0 if emferr = 0 sprint emferr$ using emferr$+", "+sltemp$ endif doLB_EMFnotice sltemp$,limit,count local lbprint$,notify$ notify$=_$(17301,"and Notification given") and Notification given if check("macro","RunSequence") = 1 endif sprint lbprint$ using _$(17303,"% at #, limit (#) has been reached ")+notify$,mode$,count,limit lbaddentry _$(17304,"EMF"),lbprint$ return endif start = start+1 6 endwhile while start <= end local limit,count temp$=inilabels$[start] EM Voltage sltemp$=sllabels$[start] EM Voltage if msconfig = 1 and gcconfig = 0 if msconfig = 1 and start > 3 if start = 6 count = emvalue 1623.53 else endif CheckEMFoptions temp$,,limit,count,pass,msused if mused = 0 endif if value = 0 endif limit = val(getinistring$(inifile$,sect$,"limit")) 2500 if increment = 1 and limit > 0 endif if value > limit and limit > 0 pass = 1 1 endif return else endif endif if pass = 0 endif start = start+1 7 endwhile while start <= end if emferr = 1 if check("variable","msinsctlstart") = 1 or check("macro","runsequence") = 0 alert emferr$,3 endif else endif endif if auto = 0 and discard = 0 endif remove labels$,inilabels$,sect$,buttons$,count$,limit$ Removed variable LABELS$ Removed variable INILABELS$ Removed variable SECT$ Removed variable BUTTONS$ Removed variable COUNT$ Removed variable LIMIT$ remove ChangeEMFoption,CheckEMFoption,WriteEMFsection Removed macro CHANGEEMFOPTION Undefined symbol: CHECKEMFOPTION Undefined symbol: WRITEEMFSECTION remove msconfig,msused,gcconfig Removed variable MSCONFIG Removed variable MSUSED Removed variable GCCONFIG remove inifile$,InitEMFutil Removed variable INIFILE$ Removed macro INITEMFUTIL remove msinsctlstart Removed variable MSINSCTLSTART if _ismsQ1 = 1 MS_FW$="" ms_version$="" if _ismsQ1 = 1 versionchk local id1$,id2$,q$,type,i,l if (getinfo("offline") = 1) endif on_error return scquery "*idn?", q$ AGILENT TECHNOLOGIES,5975,US10551021,5.02.12 on_error generate_error ms_version$=q$ AGILENT TECHNOLOGIES,5975,US10551021,5.02.12 ms_fw$ = ms_version$[reverseinstr(ms_version$,",")+1:len(ms_version$)] 5.02.12 if _mstype = 4 endif if _mstype = 5 expectedFW$="5.00.xx" 5.00.xx if instr(q$,expectedFW$)=0 print _$(28701,"Warning, Unexpected version of firmware.") Warning, Unexpected version of firmware. macro _exepath$+"checkfrm.mac",go Macro(s) in C:\msdchem\MSexe\checkfrm.mac loaded. CHECKFIRMWARE hardrive$="" checkhard _exepath$+"firmware\"+"5973N"+"\update.lst",hardrive$ closeit on_error close #11 return open f$ for input as #11 input #11,a$ while instr(upper$(A$),"MSSC.O")=0 and EOF(11)<>1 input #11,a$ endwhile while instr(upper$(A$),"MSSC.O")=0 and EOF(11)<>1 input #11,a$ endwhile while instr(upper$(A$),"MSSC.O")=0 and EOF(11)<>1 input #11,a$ endwhile while instr(upper$(A$),"MSSC.O")=0 and EOF(11)<>1 input #11,a$ endwhile while instr(upper$(A$),"MSSC.O")=0 and EOF(11)<>1 input #11,a$ endwhile while instr(upper$(A$),"MSSC.O")=0 and EOF(11)<>1 input #11,a$ endwhile while instr(upper$(A$),"MSSC.O")=0 and EOF(11)<>1 input #11,a$ endwhile while instr(upper$(A$),"MSSC.O")=0 and EOF(11)<>1 input #11,a$ endwhile while instr(upper$(A$),"MSSC.O")=0 and EOF(11)<>1 input #11,a$ endwhile while instr(upper$(A$),"MSSC.O")=0 and EOF(11)<>1 input #11,a$ endwhile while instr(upper$(A$),"MSSC.O")=0 and EOF(11)<>1 input #11,a$ endwhile while instr(upper$(A$),"MSSC.O")=0 and EOF(11)<>1 input #11,a$ endwhile while instr(upper$(A$),"MSSC.O")=0 and EOF(11)<>1 input #11,a$ endwhile while instr(upper$(A$),"MSSC.O")=0 and EOF(11)<>1 input #11,a$ endwhile while instr(upper$(A$),"MSSC.O")=0 and EOF(11)<>1 input #11,a$ endwhile while instr(upper$(A$),"MSSC.O")=0 and EOF(11)<>1 input #11,a$ endwhile while instr(upper$(A$),"MSSC.O")=0 and EOF(11)<>1 input #11,a$ endwhile while instr(upper$(A$),"MSSC.O")=0 and EOF(11)<>1 input #11,a$ endwhile while instr(upper$(A$),"MSSC.O")=0 and EOF(11)<>1 input #11,a$ endwhile while instr(upper$(A$),"MSSC.O")=0 and EOF(11)<>1 input #11,a$ endwhile while instr(upper$(A$),"MSSC.O")=0 and EOF(11)<>1 input #11,a$ endwhile while instr(upper$(A$),"MSSC.O")=0 and EOF(11)<>1 input #11,a$ endwhile while instr(upper$(A$),"MSSC.O")=0 and EOF(11)<>1 if instr(upper$(A$),"MSSC.O")>=1 a$=a$[instr(a$,";")+1:len(a$)] 5.02.12 local i i=instr(a$," ") 0 if i>1 endif else endif closeit on_error close #11 return return checkmsd MS_FW$ scquery "*idn?",b$ AGILENT TECHNOLOGIES,5975,US10551021,5.02.12 local i,j,k i=instr(b$,",") 21 b$=b$[i+1:len(b$)] 5975,US10551021,5.02.12 i=instr(b$,",") 5 b$=b$[i+1:len(b$)] US10551021,5.02.12 i=instr(b$,",") 11 b$=b$[i+1:len(b$)] 5.02.12 return expectedFW$="5.01.63" 5.01.63 if eqstr(MS_FW$,expectedFW$)=1 endif expectedFW$="5.01.90" 5.01.90 expectedFW$="5.01.98" 5.01.98 expectedFW$="5.01.99" 5.01.99 expectedFW$="5.02.01" 5.02.01 expectedFW$="5.02.02" 5.02.02 expectedFW$="5.02.03" 5.02.03 expectedFW$="5.02.04" 5.02.04 expectedFW$="5.02.06" 5.02.06 expectedFW$="5.02.07" 5.02.07 expectedFW$="5.02.08" 5.02.08 expectedFW$="5.02.10" 5.02.10 expectedFW$="5.02.12" 5.02.12 if eqstr(MS_FW$,expectedFW$)=1 print _$(16583,"Expected firmware revision ("),expectedFW$,_$(16584,") verified.") Expected firmware revision ( 5.02.12 ) verified. return endif endif local a$,bootp,lastprint$ scquery "config:inst:cntl?",a$ NORMAL if eqstr(a$,"AVOID")=1 endif return endif remove versionchk Removed macro VERSIONCHK pumptype on_error scquery "config:info:opts:desc? 1",e$ TURBO_PUMP varlock off Variable locking is OFF if eqstr(upper$(e$),"DIFF_PUMP")=1 _isQ1diff=0 0 _isQ1turbo=1 1 endif varlock on Variable locking is ON return LUIMessage "ChemStation Loading",,2 local t$, blank$, max, temp$,single if bytelen(j)<>len(j) endif if bytelen(k) <> len(k) endif max = 20 20 if (getinfo("ms_type") < 4) or (getinfo("ms_type") > 5) or (getinfo("Offline") = 1) endif if instr(j,"'") > 0 or instr(k,"'") > 0 endif if cntl = 0 endif if cntl = 1 endif if cntl = 2 t$ = time$() Wed May 06 11:20:15 2020 k = "on "+ t$[1:len(t$)-8] on Wed May 06 11:20 endif if cntl = 3 endif blank$ = "                    "                      if (len(j) < max) j = j + blank$[1:max - len(j)] ChemStation Loading  else endif k = k[1:max] on Wed May 06 11:20 if single = 0 temp$ = "lui:msg:recv '" + j + k + "'" lui:msg:recv 'ChemStation Loading on Wed May 06 11:20' else endif scwrite temp$ if check("variable","showLUI")=1 endif return macro _exepath$+"lagfact.mac" Macro(s) in C:\msdchem\MSexe\lagfact.mac loaded. check_lagfactors local a$,b$,c$ scquery "msc:parm:set? mald0",a$ -0.0285 scquery "msc:parm:set? mald1",b$ 8e-05 scquery "msc:parm:set? mald2",c$ 0 local sa$,sb$,sc$,fa$,fb$,fc$ sa$="-0.0335226" -0.0335226 sb$="0.000139265" 0.000139265 sc$="-1.09564E-09" -1.09564E-09 fa$="-0.0285" -0.0285 fb$="8e-05" 8e-05 fc$="0" 0 if abs(val(a$)-0.0000)<10e-20 and abs(val(b$)-0.0000)<10e20 and abs(val(c$)-0.00000)<10e-20 if abs(val(a$)- -0.0277849)<10e-20 and abs(val(b$)-0.000137444)<10e20 and abs(val(c$)-5.86929E-09)<10e-20 scquery "config:abund:amp?",amp$ LOG02,126,52,2,CAL,\255\255CN01475\0 if instr(upper$(amp$),"LOG01")=1 endif if instr(upper$(amp$),"LOG02")=1 if eqstr(a$,fa$)=1 and eqstr(b$,fb$)=1 and eqstr(c$,fc$)=1 print _$(19985,"Fast lag factors are currently being used.") Fast lag factors are currently being used. else endif endif endif endif check4mismatch local a$,b$,c$,d$,e$,f$,g$ scquery "config:abund:amp?",a$ LOG02,126,52,2,CAL,\255\255CN01475\0 scquery "config:info:opts:desc? 1",e$ TURBO_PUMP scquery "config:info:opts:desc? 2",b$ 5975HI_SIDEBOARD scquery "config:info:opts:desc? 3",c$ NO_FCB scquery "config:info:opts:desc? 4",d$ NO_VGAUGE scquery "config:info:opts:desc? 5",f$ 5975_MAINBOARD g$="unexpected" unexpected sho_sc g$ local a$ scquery "config:info:sc?",a$ SC3P,40.0,32M,0K,64M if instr(upper$(a$),"SC3B")=1 if instr(upper$(a$),"SC3P")=1 type$="SC3+" SC3+ else endif endif return setinistring("","PCS,"+val$(_instnum),"Pump",e$) 1 setinistring("","PCS,"+val$(_instnum),"Amp",a$) 1 setinistring("","PCS,"+val$(_instnum),"SIDEBOARD",b$) 1 setinistring("","PCS,"+val$(_instnum),"CI",c$) 1 setinistring("","PCS,"+val$(_instnum),"Gauge",d$) 1 setinistring("","PCS,"+val$(_instnum),"Mainboard",f$) 1 setinistring("","PCS,"+val$(_instnum),"Smartcard",g$) 1 if instr(upper$(a$),"LOG01")>0 AND instr(upper$(b$),_$(19980,"5973N_SIDEBOARD"))>0 and getinfo("ms_type")=4 endif if instr(upper$(a$),"LOG02")>0 AND instr(upper$(b$),"5973NFS_SIDEBOARD")>0 and getinfo("ms_type")=4 endif if instr(upper$(a$),"LOG02")>0 AND instr(upper$(b$),"5975HI_SIDEBOARD")>0 and getinfo("ms_type")=5 return dtsn if getinfo("offline")=1 or getinfo("ms_type")=99 endif if len(newsn$)>0 endif local sn$,bad bad=1 1 sn$="" readsn sn$ scquery "config:id:desc? serialnum",sn$ US10551021 return checksn sn$,bad bad=1 1 if len(c$)=10 a$=c$[1:2] US if eqstr(a$,"US")=1 or eqstr(a$,"DE")=1 or eqstr(a$,"CN")=1 a$=c$[3:10] 10551021 a=val(c$[3:6]) 1055 if a>0 bad=0 0 endif a=val(C$[9:10]) 21 if a>0 bad=0 0 endif endif endif return if bad=1 and interactive=1 endif msd_serial_n$="" readsn msd_serial_n$ scquery "config:id:desc? serialnum",sn$ US10551021 return return return clean_lagfactors remove loop4lag,closit,determine_lagfactors,show_lagfactors,flash_lagfactors Removed macro LOOP4LAG Removed macro CLOSIT Removed macro DETERMINE_LAGFA Removed macro SHOW_LAGFACTORS Removed macro FLASH_LAGFACTOR remove zero_lagfactors,old_lagfactors,bad_lagfactors,new_lagfactors,check_lagfactors Removed macro ZERO_LAGFACTORS Removed macro OLD_LAGFACTORS Removed macro BAD_LAGFACTORS Removed macro NEW_LAGFACTORS Removed macro CHECK_LAGFACTOR remove clean_lagfactors Removed macro CLEAN_LAGFACTOR LUIIdleMessage LUIMessage "MS locked by " + _hostname$, "Idle" local t$, blank$, max, temp$,single if bytelen(j)<>len(j) endif if bytelen(k) <> len(k) endif max = 20 20 if (getinfo("ms_type") < 4) or (getinfo("ms_type") > 5) or (getinfo("Offline") = 1) endif if instr(j,"'") > 0 or instr(k,"'") > 0 endif if cntl = 0 endif if cntl = 1 endif if cntl = 2 endif if cntl = 3 endif blank$ = "                    "                      if (len(j) < max) j = j[1:max] MS locked by ALR-232 endif k = k[1:max] Idle if single = 0 temp$ = "lui:msg:recv '" + j + k + "'" lui:msg:recv 'MS locked by ALR-232Idle' else endif scwrite temp$ if check("variable","showLUI")=1 endif return return if _mstype = 5 macro _exepath$+"flow.mac" Macro(s) in C:\msdchem\MSexe\flow.mac loaded. endif endif if getinfo("inlet_gc")=0 or getinfo("inlet_gc")=4 gctm local temp,allmonths$,t$,hh$,mm$,ss$,dd$,mo$,yy$,gctstr$,gcdstr$ if getinfo("GC_ID")=0 or eqstr(_appname$,"MSINSCTL")=0 or getinfo("offline")=1 endif t$=time$() Wed May 06 11:20:15 2020 temp=val(t$[12:13]) 11 if temp < 10 hh$=val$(temp) 11 endif mm$=t$[15:16] 20 ss$=t$[18:19] 15 temp=val(t$[9:10]) 6 if temp < 10 dd$="0"+val$(temp) 06 else endif mo$=t$[5:7] May allmonths$="JanFebMarAprMayJunJulAugSepOctNovDec" JanFebMarAprMayJunJulAugSepOctNovDec temp=(instr(allmonths$,mo$)-1) / 3 + 1 5 if temp < 10 mo$="0"+val$(temp) 05 else endif yy$=t$[23:24] 20 gctstr$=hh$+mm$+ss$ 112015 gcdstr$=dd$+mo$+yy$ 060520 evaluate "writemodule """+gcmod$+""",""GCTM "+gctstr$+","+gcdstr$+"""" writemodule "68GC","GCTM 112015,060520" print _$(28694,"GC Time set to "),t$ GC Time set to  Wed May 06 11:20:15 2020 remove gctm Removed macro GCTM endif endif GetInstInfo host_ipaddr$=getinistring$("","pcs,"+val$(_instnum),"host_ip") 164.123.170.193 ms_ipaddr$=getinistring$("","pcs,"+val$(_instnum),"ms_ip") 10.1.1.102 serialno$=getinistring$("","pcs,"+val$(_instnum),"serial_n") US55132077 gc_ipaddr$=getinistring$("","pcs,"+val$(_instnum),"gc_ip") 10.1.1.101 gc_fw$="" gc_sn$="" if getinfo("offline")=1 if _ismsQ1 = 1 then scquery "config:id:desc? serialnum",msd_serial_n$ US10551021 endif if _ismsQQQ = 1 or _ismsQTOF = 1 then endif endif if len(ms_ipaddr$) = 0 endif if len(gc_ipaddr$) = 0 if getinfo("gc_id") <> 0 or _isgc78xx = 1 if _isgc78xx=1 gc_fw$=sendmodule$(gcmod$,"CCID") CCID HP 6890 GC  REV N.05.05 gc_fw$=gc_fw$[6:len(gc_fw$)] HP 6890 GC  REV N.05.05 gc_sn$=sendmodule$(gcmod$,"DTSN ?") DTSN US10551021 endif endif endif if len(serialno$) = 0 endif return if _ismsQ1 = 1 local foo setuser 24,foo 6.650047e+001 if abs(foo)>10000 endif endif if _cfrmode = 1 endif if _enhapp = 5 endif if _ionstate=1 endif if len(AddonPath$) <> 0 then endif macro _exepath$+"setpu.mac",go Macro(s) in C:\msdchem\MSexe\setpu.mac loaded. SET_PRESS_UNITS local fore,hvac if getinfo("offline")=1 or _isms = 0 endif if _ismsQQQ = 1 or _ismsQTOF = 1 endif fore =val(getinistring$("","PCS","Foreline")) 1009 hvac=val(getinistring$("","PCS","HighVac")) 1014 cg$="N2" N2 a$= "config:id:desc carrier_g,"+"'"+cg$+"'" config:id:desc carrier_g,'N2' scwrite a$ if fore = 1009 gosetf "mTorr" if _mstype = 4 or _mstype = 5 scwrite "config:id:desc uom_vacpf,"+"'"+unit$+"'" endif varlock off Variable locking is OFF _unitsFP$=unit$ mTorr varlock on Variable locking is ON return else endif if hvac = 1014 gosetq "Torr" if _mstype = 4 or _mstype = 5 scwrite "config:id:desc uom_vacpq,"+"'"+unit$+"'" endif varlock off Variable locking is OFF _unitsHV$=unit$ Torr varlock on Variable locking is ON return else endif remove gosetf, gosetq,set_press_units Removed macro GOSETF Removed macro GOSETQ Removed macro SET_PRESS_UNITS if _methstate=1 endif if check("variable","methcomment0$")=0 endif if check("variable","methcomment1$")=0 methcomment1$="" endif if check("variable","methcomment2$")=0 methcomment2$="" endif if check("variable","methcomment3$")=0 methcomment3$="" endif varlock off Variable locking is OFF _daerr=0 0 varlock on Variable locking is ON if _isHS=1 endif setSSSLT local inifile$,inisect$ inifile$=_topinifile$ C:\msdchem\MSMACROS\RFGTOP.INI inisect$="SSSLT" SSSLT a$=getinistring$(inifile$,inisect$,"COL1") T if len(a$)<>0 remove setssslt Removed macro SETSSSLT remove setSSSLT Undefined symbol: SETSSSLT if _ecminstalled=1 endif inst_startup=0 0 if _ismsQ1 macro _exepath$+"bake.mac" Macro(s) in C:\msdchem\MSexe\bake.mac loaded. endif if check("variable","_dotnet")=1 endif LocateMHDAComponent MHQualExePath$="" MHQuantExePath$="" if _enhapp <> 666 return macro _exepath$+"mems.mac",go Macro(s) in C:\msdchem\MSexe\mems.mac loaded. AUTOMEM local NOmemstest NOmemstest=val(getinistring$("","pcs","NOMEMSTEST")) 0 phmemok=0 0 availok=0 0 icmemok=0 0 swapbnd=0 0 if NOmemstest=0 memstats phmemok,availok,icmemok,swapbnd memoryusage local fmt1$,fmt2$,fmt3$,fmt4$,fmt5$,k,a,i k=1024 1024 i=0 0 a=mem_sysperf ARRAY of length 13 ctotal=a[i+1] 1.16098e+006 climit=a[i+2] 4.76475e+006 c_peak=a[i+3] 1.19338e+006 ptotal=a[i+4] 4.14216e+006 pavail=a[i+5] 2.89215e+006 scache=a[i+6] 2.94549e+006 ktotal=a[i+7] 301064 kpaged=a[i+8] 128474 knpage=a[i+9] 172590 p_size=a[i+10] 4096 handle=a[i+11] 84901 proces=a[i+12] 202 thread=a[i+13] 2963 fmt1$="     Private: #;  MSINSCTL: #;     Peak: #;  Pagefaults: #"      Private: #;  MSINSCTL: #;     Peak: #;  Pagefaults: # fmt2$="Commit Total: #;  Limit: #;     Peak: #" Commit Total: #;  Limit: #;     Peak: # fmt3$="Memory Total: #:  Avail: #;    Cache: #" Memory Total: #:  Avail: #;    Cache: # fmt4$="Kernal Total: #:  Pages: #; NotPaged:  #;  Page Size:  #" Kernal Total: #:  Pages: #; NotPaged:  #;  Page Size:  # fmt5$="Handles: #;  Processes: # ;  Threads:  #" Handles: #;  Processes: # ;  Threads:  # print using fmt1$,mem_private/k,mem_workset/k,mem_peakworkset/k,mem_pagefaults      Private: 18856;  MSINSCTL: 37400;     Peak: 37864;  Pagefaults: 16904 print using fmt2$,ctotal,climit,c_peak Commit Total: 1160984;  Limit: 4764747;     Peak: 1193380 print using fmt3$,ptotal,pavail,scache Memory Total: 4142155:  Avail: 2892148;    Cache: 2945486 print using fmt4$,ktotal,kpaged,knpage,p_size Kernal Total: 301064:  Pages: 128474; NotPaged:  172590;  Page Size:  4096 print using fmt5$,handle,proces,thread Handles: 84901;  Processes: 202 ;  Threads:  2963 domemrpt phmemok,availok,icmemok, local f$ ,kbyte,wordsize wordsize=4 4 kbyte=1024 1024 f$=_instpath$+"Resources.txt" C:\msdchem\1\Resources.txt closit on_error close #13 File 13 is not open  return open f$ for output as #13 print using #13,"  Resource Report  %/",time$() print #13,"" print using #13,"       MSINSTCTL: ######## /",mem_workset/kbyte print using #13,"         Virtual: ######## /",mem_private/kbyte print using #13,"            Peak: ######## /",mem_peakworkset/kbyte print using #13,"      PageFaults: ######## /",mem_pagefaults print #13,"" print using #13,"  Physical Total: ######## /",ptotal*wordsize print using #13,"  Physical Avail: ######## /",pavail*wordsize print using #13,"           Cache: ######## /",scache*wordsize print #13,"" print using #13,"         Handles: ######## /",handle print using #13,"         Process: ######## /",proces print using #13,"         Threads: ######## /",thread print #13,"" print using #13,"    Commit Total: ######## /",ctotal*wordsize print using #13,"    Commit Limit: ######## /",climit*wordsize print using #13,"    Commit  Peak: ######## /",c_peak*wordsize print #13," " print using #13,"    Kernel Total: ######## /",ktotal*wordsize print using #13,"    Kernel Paged: ######## /",kpaged*wordsize print using #13,"    Kernel NPage: ######## /",knpage*wordsize print using #13,"    Size of Page: ######## /",p_size print #13,"" phmemok=1 1 if ptotal*wordsize < 524000 endif availok=1 1 swapbnd=1 1 if (0 < ptotal) if (ctotal/ptotal) > 0.8 endif endif local maxworkset maxworkset=450000 450000 if _ismsQQQ=1 endif if check("variable","_ismsTOF")=1 if _ismsTOF=1 endif endif if _ismsQTOF=1 endif if _ismsTRAP=1 endif icmemok=1 1 if (mem_workset/kbyte) > maxworkset endif print using #13,"             Physical Memory OK 0\/1:  #   1=OK, 0=bad/",phmemok print using #13,"            Available Memory OK 0\/1:  # /",availok print using #13,"              Not Swap Bound OK 0\/1:  # /",swapbnd print using #13,"   Instrument Control Memory OK 0\/1:  # /",icmemok print #13,"" print #13," To disable memory test, set the following entry " print #13," into the [PCS] section of <windir>\MSDCHEM.INI:" print #13,"" print #13,"     [PCS]" print #13,"     NOMEMSTEST=1" print #13,"" closit on_error close #13 return f$=_instpath$+"Resources.csv" C:\msdchem\1\Resources.csv filesize f$ open f$ for append as #13 if size<10 endif print using #13,"#,#,#,#,",mem_workset/kbyte, mem_private/kbyte, mem_peakworkset/kbyte, mem_pagefaults print using #13,"#,#,#," ,ptotal*wordsize, pavail*wordsize, scache*wordsize print using #13,"#,#,#," ,handle,proces,thread, print using #13,"#,#,#," ,ctotal*wordsize, climit*wordsize, c_peak*wordsize print using #13,"#,#,#,#,",ktotal*wordsize, kpaged*wordsize, knpage*wordsize, p_size print using #13,"%,%,#,#,#,#/" ,_datafile$,time$(),phmemok,availok,swapbnd,icmemok closit on_error close #13 return print "" return return else endif return mems_start if phmemok=0 endif if availok=0 endif return set_IC_logging if inst_startup = 1 or check("macro","RunSequence") endif filesize _InstPath$+"MSINSCTL.LOG" if size>1000000 logging 1,_InstPath$+"MSINSCTL.LOG",0,0,1,
Reply
  • OK this is the log file below.  Do you see anything significant?  In the meantime I'll talk to IT about the LAN metrics.
    Thanks again....




    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") 5 _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 endif if _mstype = 5 _isms = 1 1 _ismsQ1 = 1 1 _isMS5975 = 1 1 _msname$ = "5975" 5975 _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") 3 varlock 0 Variable locking is OFF _enhapp = val(a$) 3 _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 endif if _enhapp=2 endif if _enhapp=3 initop$="RFGTOP.INI" RFGTOP.INI toprfgmode = 1 1 _eq_running=1 1 _helpfile$="gasoline.chm" gasoline.chm _enhapp$=_$(19457,"Reformulated Gasoline") Reformulated Gasoline 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\RFGTOP.INI if NoTop = 1 topinifile$=_topinifile$ C:\msdchem\MSMACROS\RFGTOP.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 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 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 124 characters wide and has 61 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$") 043020.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$ STANDBY.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$ ALR0046 on ALRPS42 (redirected 2) remove ililil Removed variable ILILIL return if instr(upper$(sysprinter$),"ADOBE")>0 or instr(upper$(sysprinter$),"PDF")>0 setinistring("","PCS","SystemPrinter",sysprinter$) 1 endif return fullseqdebug=0 0 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$") STANDBY.M _seqpath$=getinistring$(inifile$,inisect$,"_seqpath$") C:\msdchem\1\sequence\ _seqfile$=getinistring$(inifile$,inisect$,"_seqfile$") 043020.S _datapath$=getinistring$(inifile$,inisect$,"nextdatapath") C:\MSDCHEM\1\DATA\ _datafile$=getinistring$(inifile$,inisect$,"nextdatafile") GCMS_002.D _datapath2$=getinistring$(inifile$,inisect$,"nextdatapath") C:\MSDCHEM\1\DATA\ _datafile2$=getinistring$(inifile$,inisect$,"nextdatafile") GCMS_002.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 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 197902 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 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 Copyright 1989-2011 Agilent Technologies, Inc. endif b$="Agilent Technologies" Agilent Technologies return _cpyright$ = a$ Copyright 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 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\5975\tempini.ini Deleted C:\msdchem\1\5975\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\alrlab\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") 5 if (TYPE = 3) OR (TYPE = 4) endif if (TYPE = 5) macro _exepath$+"keywd7x.mac" Macro(s) in C:\msdchem\MSexe\keywd7x.mac loaded. 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\alrlab\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 macro _exepath$+"flow.mac" Macro(s) in C:\msdchem\MSexe\flow.mac loaded. 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")) 3 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) 132324 xpos=xpos+125 130 iccreatehp(3,xpos,ypos) 132326 xpos=xpos+264 394 iccreatehp(10,xpos,ypos) 132328 xpos=xpos+125 519 xinc = 65 65 iccreatehp(8,xpos,ypos) 132330 xpos=xpos+xinc 584 LBcreateBM(200,xpos,ypos) 132334 xpos=xpos+xinc 649 if getinfo("offline")<>1 iccreatehp(20,xpos,ypos) 132342 xpos = xpos + xinc 714 endif iccreatehp(30,xpos,ypos) 132336 xpos = xpos + xinc 779 iccreatehp(7,xpos,ypos) 132338 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) 132340 xpos = xpos + new_w + 15 340 new_w = 4 * xinc - 5 255 iccreatebar (105,LM$,xpos,ypos,new_w+xadj,hbar) 132350 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) 132378 xpos = 5 5 ypos = 100 100 iccreatehp(21,xpos,ypos) 460090 xpos = xpos+xinc 70 iccreatehp(22,xpos,ypos) 263456 xpos = xpos+xinc 135 iccreatehp(23,xpos,ypos) 197912 xpos = xpos+xinc 200 iccreatehp(24,xpos,ypos) 197910 xpos = xpos+xinc 265 iccreatehp(25,xpos,ypos) 394514 xPos = xPos + xinc + 10 340 iccreatehp(26,xpos,ypos) 1.2453e+006 xpos = xpos+xinc 405 iccreatehp(27,xpos,ypos) 327810 xpos = xpos+xinc 470 iccreatehp(28,xpos,ypos) 132614 xpos = xpos+xinc 535 iccreatehp(29,xpos,ypos) 132612 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... Initializing 6890 GC... Done! 11 endif gcshowdevicewin hctlwin,oven_button,xPos,ypos xpos = xpos + xinc 675 varlock on Variable locking is ON RETURN ENDIF IF (inlet_gc = 4) THEN ENDIF if _isgc78xx = 1 endif IF _isms = 1 LoadMS print _$(34006, "Loading ")+_msname$+" "+_mstype$+"..." Loading 5975 MSD... if _ismsQQQ = 1 if _isMSQTOF = 1 if check("variable", "_dotnet") = 1 MSACQDLL = dllinstall(_exepath$ + "msd597x.dll") 12 endif endif endif MSShowDeviceWin hCtlWin,300,xPos,ypos xPos = xPos + xinc 740 if check("variable", "_dotnet") = 0 if getinfo("offline")=0 iccreatehp(31,xpos,ypos) 67086 xpos = xpos + xinc 805 endif endif return ENDIF FILESIZE _exepath$ + "auxinlet.dll" IF (size <> -1 and getinfo("AUXINLET_ENABLED") = 1) ENDIF if _isHS=1 endif RUNCTLDLL = dllinstall(_exepath$+"runctl.dll") 13 if _seqactive = 0 TOOLBARMENU if check("macro","ic_menubar")=0 macro _exepath$+"ic_menu.mac" Macro(s) in C:\msdchem\MSexe\ic_menu.mac loaded. endif ic_menubar LOCAL msg$,MenuMsgSWV$,MenuItemSWV$ MenuMsgSWV$ = _$(19226,"Execute DA Software validation") Execute DA Software validation MenuItemSWV$ = _$(19227,"S&oftware Validation") S&oftware Validation if _isms = 1 and check("macro","luimessage")=1 endif MENUBEG macro _exepath$+"disable_mr.mac",go Macro(s) in C:\msdchem\MSexe\disable_mr.mac loaded. AUTO if getinfo("offline") = 0 sense_mr local a$ a$=getinistring$("","pcs","disable6890methres") check_mr=val(a$) 0 return sense_ib local a$ a$=getinistring$("","pcs","MaskIonBodyFault") check_ib=val(a$) 0 if getinfo("offline")=1 or getinfo("ms_type")<>6 return if check_mr=1 and getinfo("gc_id")<>0 and check("variable","first_mr")=0 endif if check_ib=1 and getinfo("ms_type")=6 and check("variable","first_ib")=0 endif endif return if _enhapp = 5 or MHApp = 5 MethodMenu local menustr$, msg$ MENUNEW _$(19157,"&Method") if _TopWinId <> 0 or NoTop = 1 SecAddMenuCMD _$(19158,"&Load Method..."),"LoadMethod",_$(19159,"Select a Method and load it"),,"mnuloadmethod" local OK,cntlvar$,PrivKey$ PrivKey$="IC_Compliance" IC_Compliance if check("variable","mcntlvar$") = 0 endif if PrivEnabled = 0 OK = 1 1 else endif if OK = 1 if add_menusep = 1 endif if len(mcntlvar$) > 0 evaluate "MENUCMD """+mmenu$+""","""+mcmd$+""","""+mmsg$+"""" MENUCMD "&Load Method...","LoadMethod","Select a Method and load it" endif endif return SecAddMenuCMD _$(19160,"&Save Method"),"SaveMethod _methfile$",_$(19161,"Save the current Method to disk"),,"mnusavemethod" local OK,cntlvar$,PrivKey$ PrivKey$="IC_Compliance" IC_Compliance if check("variable","mcntlvar$") = 0 endif if PrivEnabled = 0 OK = 1 1 else endif if OK = 1 if add_menusep = 1 endif if len(mcntlvar$) > 0 evaluate "MENUCMD """+mmenu$+""","""+mcmd$+""","""+mmsg$+"""" MENUCMD "&Save Method","SaveMethod _methfile$","Save the current Method to disk" endif endif return SecAddMenuCMD _$(19162,"Save Method &As..."),"SaveMethod",_$(19163,"Interactive save the current Method to disk"),,"mnusavemethodas" local OK,cntlvar$,PrivKey$ PrivKey$="IC_Compliance" IC_Compliance if check("variable","mcntlvar$") = 0 endif if PrivEnabled = 0 OK = 1 1 else endif if OK = 1 if add_menusep = 1 endif if len(mcntlvar$) > 0 evaluate "MENUCMD """+mmenu$+""","""+mcmd$+""","""+mmsg$+"""" MENUCMD "Save Method &As...","SaveMethod","Interactive save the current Method to disk" endif endif return SecAddMenuCMD _$(19164,"&Run Method..."),"RunMethod 2",_$(19165,"Run the current Method"),,"mnurunmethod" local OK,cntlvar$,PrivKey$ PrivKey$="IC_Compliance" IC_Compliance if check("variable","mcntlvar$") = 0 endif if PrivEnabled = 0 OK = 1 1 else endif if OK = 1 if add_menusep = 1 endif if len(mcntlvar$) > 0 evaluate "MENUCMD """+mmenu$+""","""+mcmd$+""","""+mmsg$+"""" MENUCMD "&Run Method...","RunMethod 2","Run the current Method" endif endif return SecAddMenuCMD _$(19166,"&Print Method..."),"ic_menuPrintMethod",_$(19167,"Print the current Method"),,"mnuprintmethod" local OK,cntlvar$,PrivKey$ PrivKey$="IC_Compliance" IC_Compliance if check("variable","mcntlvar$") = 0 endif if PrivEnabled = 0 OK = 1 1 else endif if OK = 1 if add_menusep = 1 endif if len(mcntlvar$) > 0 evaluate "MENUCMD """+mmenu$+""","""+mcmd$+""","""+mmsg$+"""" MENUCMD "&Print Method...","ic_menuPrintMethod","Print the current Method" endif endif return add_menusep=1 1 SecAddMenuCMD _$(19168,"&Edit Entire Method..."),"InitEditMethod",_$(19169,"Edit panels associated with a Method"),,"mnueditentiremethod",add_menusep local OK,cntlvar$,PrivKey$ PrivKey$="IC_Compliance" IC_Compliance if check("variable","mcntlvar$") = 0 endif if PrivEnabled = 0 OK = 1 1 else endif if OK = 1 if add_menusep = 1 menusep add_menusep = 0 0 endif if len(mcntlvar$) > 0 evaluate "MENUCMD """+mmenu$+""","""+mcmd$+""","""+mmsg$+"""" MENUCMD "&Edit Entire Method...","InitEditMethod","Edit panels associated with a Method" endif endif return SecAddMenuCMD _$(30532,"Additional Method &Information..."),"do_moremeth",_$(19171,"Allows display/edit of METHOD.TXT"),,"mnuadditionalmethod",add_menusep local OK,cntlvar$,PrivKey$ PrivKey$="IC_Compliance" IC_Compliance if check("variable","mcntlvar$") = 0 endif if PrivEnabled = 0 OK = 1 1 else endif if OK = 1 if add_menusep = 1 endif if len(mcntlvar$) > 0 evaluate "MENUCMD """+mmenu$+""","""+mcmd$+""","""+mmsg$+"""" MENUCMD "Additional Method &Information...","do_moremeth","Allows display/edit of METHOD.TXT" endif endif return if _isgc68xx=1 MENUCMD _$(19172,"&Disable Method Resolution"),"toggle_mr",_$(19173,"Disable GC method resolution"),check_mr endif EMSvrMenus if getinfo("offline") = 0 and _ismsQ1 = 1 MENUSEP macro _exepath$+"EMSaver.mac" Macro(s) in C:\msdchem\MSexe\EMSaver.mac loaded. EMSshow LOCAL reply$ scquery("CONFIG:ACQ:ABUNLIM?"),reply$ -1 fval=VAL(reply$) -1 IF (fval<0) PRINT USING _$(35727,"EM-Saver is OFF,  EMSaver summation_limit=%"),reply$ EM-Saver is OFF,  EMSaver summation_limit=-1 check_ems=0 0 ELSE ENDIF RETURN MENUCMD _$(30503,"E&nable EM Saver"),"macro _exepath$+""EMSaver.mac"",go",_$(30504,"Enable EM Saver"),check_ems endif return MENUSEP HSTInitMenu "InstMethods",4,_$(19174,"&Method"),"loadmethod" LOCAL i, count HSTWriteDefaults section$, max, menu$, cmd$, hlp$, var$ LOCAL inifile$, initxt$, i, inilabel$,count HSTGetIniFile inifile$ inifile$ = _instpATH$ + "hst.ini" C:\msdchem\1\hst.ini RETURN SetIniString(inifile$, section$, "max", val$(max)) 1 SetIniString(inifile$, section$, "menuname", menu$) 1 SetIniString(inifile$, section$, "menucmd", cmd$) 1 SetIniString(inifile$, section$, "menuhlp", hlp$) 1 SetIniString(inifile$, section$, "menuvar", var$) 1 i = 1 1 while (i <= max) initxt$ = GetIniString$(inifile$, section$, val$(i)) C:\MSDCHEM\1\METHODS\STANDBY.M SetIniString(inifile$, section$, val$(i), initxt$) 1 inilabel$ = GetIniString$(inifile$, section$, val$(i)+"short") STANDBY.M if len(inilabel$) = 0 and len(initxt$) > 0 endif SetIniString(inifile$, section$, val$(i)+"short", inilabel$) 1 i = i + 1 2 endwhile while (i <= max) initxt$ = GetIniString$(inifile$, section$, val$(i)) C:\MSDCHEM\1\METHODS\GASOLINE.M SetIniString(inifile$, section$, val$(i), initxt$) 1 inilabel$ = GetIniString$(inifile$, section$, val$(i)+"short") GASOLINE.M if len(inilabel$) = 0 and len(initxt$) > 0 endif SetIniString(inifile$, section$, val$(i)+"short", inilabel$) 1 i = i + 1 3 endwhile while (i <= max) initxt$ = GetIniString$(inifile$, section$, val$(i)) C:\msdchem\1\METHODS\DEFAULT.M SetIniString(inifile$, section$, val$(i), initxt$) 1 inilabel$ = GetIniString$(inifile$, section$, val$(i)+"short") DEFAULT.M if len(inilabel$) = 0 and len(initxt$) > 0 endif SetIniString(inifile$, section$, val$(i)+"short", inilabel$) 1 i = i + 1 4 endwhile while (i <= max) initxt$ = GetIniString$(inifile$, section$, val$(i)) C:\MSDCHEM\2\METHODS\AROMATICS.M SetIniString(inifile$, section$, val$(i), initxt$) 1 inilabel$ = GetIniString$(inifile$, section$, val$(i)+"short") AROMATICS.M if len(inilabel$) = 0 and len(initxt$) > 0 endif SetIniString(inifile$, section$, val$(i)+"short", inilabel$) 1 i = i + 1 5 endwhile while (i <= max) RETURN HSTGetItemCount section$, count LOCAL inifile$ HSTGetIniFile inifile$ inifile$ = _instpATH$ + "hst.ini" C:\msdchem\1\hst.ini RETURN filesize inifile$ count = GetIniInt(inifile$, section$, "max") 4 if count <= 0 endif RETURN i = 1 1 while (i <= count) HSTAddItem section$, i LOCAL mnu$, lbl$, cmd$, hlp$, var$ HSTGetItem section$, i, mnu$, lbl$, cmd$, hlp$, var$ LOCAL inifile$, initxt$, inicmd$, inihlp$, inimnu$, inivar$, inilabel$ HSTGetIniFile inifile$ inifile$ = _instpATH$ + "hst.ini" C:\msdchem\1\hst.ini RETURN inilabel$ = GetIniString$(inifile$, section$, val$(i)+"short") STANDBY.M initxt$ = GetIniString$(inifile$, section$, val$(i)) C:\MSDCHEM\1\METHODS\STANDBY.M inimnu$ = GetIniString$(inifile$, section$, "menuname") &Method inicmd$ = GetIniString$(inifile$, section$, "menucmd") loadmethod inihlp$ = GetIniString$(inifile$, section$, "menuhlp") inivar$ = GetIniString$(inifile$, section$, "menuvar") mnu$ = inimnu$ &Method var$ = inivar$ lbl$ = "&" + val$(i)+ " " + inilabel$ &1 STANDBY.M if CHECK("MACRO","HSTGetCmdStr") cmd$ = inicmd$ + " """ + initxt$ +"""" loadmethod "C:\MSDCHEM\1\METHODS\STANDBY.M" endif hlp$ = inihlp$ + " " + initxt$  C:\MSDCHEM\1\METHODS\STANDBY.M RETURN MENUCMDFN lbl$, cmd$, hlp$, var$ RETURN i = i + 1 2 endwhile while (i <= count) HSTAddItem section$, i LOCAL mnu$, lbl$, cmd$, hlp$, var$ HSTGetItem section$, i, mnu$, lbl$, cmd$, hlp$, var$ LOCAL inifile$, initxt$, inicmd$, inihlp$, inimnu$, inivar$, inilabel$ HSTGetIniFile inifile$ inifile$ = _instpATH$ + "hst.ini" C:\msdchem\1\hst.ini RETURN inilabel$ = GetIniString$(inifile$, section$, val$(i)+"short") GASOLINE.M initxt$ = GetIniString$(inifile$, section$, val$(i)) C:\MSDCHEM\1\METHODS\GASOLINE.M inimnu$ = GetIniString$(inifile$, section$, "menuname") &Method inicmd$ = GetIniString$(inifile$, section$, "menucmd") loadmethod inihlp$ = GetIniString$(inifile$, section$, "menuhlp") inivar$ = GetIniString$(inifile$, section$, "menuvar") mnu$ = inimnu$ &Method var$ = inivar$ lbl$ = "&" + val$(i)+ " " + inilabel$ &2 GASOLINE.M if CHECK("MACRO","HSTGetCmdStr") cmd$ = inicmd$ + " """ + initxt$ +"""" loadmethod "C:\MSDCHEM\1\METHODS\GASOLINE.M" endif hlp$ = inihlp$ + " " + initxt$  C:\MSDCHEM\1\METHODS\GASOLINE.M RETURN MENUCMDFN lbl$, cmd$, hlp$, var$ RETURN i = i + 1 3 endwhile while (i <= count) HSTAddItem section$, i LOCAL mnu$, lbl$, cmd$, hlp$, var$ HSTGetItem section$, i, mnu$, lbl$, cmd$, hlp$, var$ LOCAL inifile$, initxt$, inicmd$, inihlp$, inimnu$, inivar$, inilabel$ HSTGetIniFile inifile$ inifile$ = _instpATH$ + "hst.ini" C:\msdchem\1\hst.ini RETURN inilabel$ = GetIniString$(inifile$, section$, val$(i)+"short") DEFAULT.M initxt$ = GetIniString$(inifile$, section$, val$(i)) C:\msdchem\1\METHODS\DEFAULT.M inimnu$ = GetIniString$(inifile$, section$, "menuname") &Method inicmd$ = GetIniString$(inifile$, section$, "menucmd") loadmethod inihlp$ = GetIniString$(inifile$, section$, "menuhlp") inivar$ = GetIniString$(inifile$, section$, "menuvar") mnu$ = inimnu$ &Method var$ = inivar$ lbl$ = "&" + val$(i)+ " " + inilabel$ &3 DEFAULT.M if CHECK("MACRO","HSTGetCmdStr") cmd$ = inicmd$ + " """ + initxt$ +"""" loadmethod "C:\msdchem\1\METHODS\DEFAULT.M" endif hlp$ = inihlp$ + " " + initxt$  C:\msdchem\1\METHODS\DEFAULT.M RETURN MENUCMDFN lbl$, cmd$, hlp$, var$ RETURN i = i + 1 4 endwhile while (i <= count) HSTAddItem section$, i LOCAL mnu$, lbl$, cmd$, hlp$, var$ HSTGetItem section$, i, mnu$, lbl$, cmd$, hlp$, var$ LOCAL inifile$, initxt$, inicmd$, inihlp$, inimnu$, inivar$, inilabel$ HSTGetIniFile inifile$ inifile$ = _instpATH$ + "hst.ini" C:\msdchem\1\hst.ini RETURN inilabel$ = GetIniString$(inifile$, section$, val$(i)+"short") AROMATICS.M initxt$ = GetIniString$(inifile$, section$, val$(i)) C:\MSDCHEM\2\METHODS\AROMATICS.M inimnu$ = GetIniString$(inifile$, section$, "menuname") &Method inicmd$ = GetIniString$(inifile$, section$, "menucmd") loadmethod inihlp$ = GetIniString$(inifile$, section$, "menuhlp") inivar$ = GetIniString$(inifile$, section$, "menuvar") mnu$ = inimnu$ &Method var$ = inivar$ lbl$ = "&" + val$(i)+ " " + inilabel$ &4 AROMATICS.M if CHECK("MACRO","HSTGetCmdStr") cmd$ = inicmd$ + " """ + initxt$ +"""" loadmethod "C:\MSDCHEM\2\METHODS\AROMATICS.M" endif hlp$ = inihlp$ + " " + initxt$  C:\MSDCHEM\2\METHODS\AROMATICS.M RETURN MENUCMDFN lbl$, cmd$, hlp$, var$ RETURN i = i + 1 5 endwhile while (i <= count) RETURN RTLockMenus if Honor_RTL = 1 and (_isgc68xx=1 or _isgc78xx=1) and _isgc7820=0 menusep SecAddmenucmd _$(30534,"Acquire RTLock &Calibration Data..."),"acqlock 1",_$(19176,"Enters RTL procedure"),"RTLCalVar","mnurtlcal" local OK,cntlvar$,PrivKey$ PrivKey$="IC_Compliance" IC_Compliance if check("variable","mcntlvar$") = 0 endif if PrivEnabled = 0 OK = 1 1 else endif if OK = 1 if add_menusep = 1 endif if len(mcntlvar$) > 0 evaluate "MENUCMD """+mmenu$+""","""+mcmd$+""","""+mmsg$+""","+mcntlvar$ MENUCMD "Acquire RTLock &Calibration Data...","acqlock 1","Enters RTL procedure",RTLCalVar else endif endif return if _enhapp > 5 endif SecAddmenucmd _$(19177,"Unloc&k Method..."),"acqlock 0",_$(19178,"Clears RTLock"),"RTLUnlock","mnurtlunlock" local OK,cntlvar$,PrivKey$ PrivKey$="IC_Compliance" IC_Compliance if check("variable","mcntlvar$") = 0 endif if PrivEnabled = 0 OK = 1 1 else endif if OK = 1 if add_menusep = 1 endif if len(mcntlvar$) > 0 evaluate "MENUCMD """+mmenu$+""","""+mcmd$+""","""+mmsg$+""","+mcntlvar$ MENUCMD "Unloc&k Method...","acqlock 0","Clears RTLock",RTLUnlock else endif endif return endif return EmethMenus local OK OK = 1 1 if _CFRMode = 1 endif if _isgc = 0 or OK = 0 grayExpImp = 0 0 endif if check("variable", "_dotnet") = 0 MENUSEP MENUCMD _$(19183,"Export eMeth&od..."),"DOexportemeth",_$(19184,"Export Method"),grayExpImp MENUCMD _$(30533,"Import e&Method..."),"DOimportemeth",_$(19186,"Import Method"),grayExpImp dozipmenu menusep menucmd _$(30573,"&Zip/Unzip Methods and Data..."),"dozipping",_$(30574,"Zip/UnZip methods and data for storage and sharing.") return endif return menusep if NoTop = 1 local setpm$,setpd$ setpd$=_$(19189,"Change the default paths saved in the .INI file.") Change the default paths saved in the .INI file. if _cfrmode = 1 endif SecAddMenuCMD _$(19191,"Se&t New Default Paths..."),"MenuSetPath_",setpd$,,"mnusetdefaultpaths",add_menusep local OK,cntlvar$,PrivKey$ PrivKey$="IC_Compliance" IC_Compliance if check("variable","mcntlvar$") = 0 endif if PrivEnabled = 0 OK = 1 1 else endif if OK = 1 if add_menusep = 1 endif if len(mcntlvar$) > 0 evaluate "MENUCMD """+mmenu$+""","""+mcmd$+""","""+mmsg$+"""" MENUCMD "Se&t New Default Paths...","MenuSetPath_","Change the default paths saved in the .INI file." endif endif return menusep endif msg$ = _$(19192,"Exit ChemStation #")+val$(_INSTNUM) Exit ChemStation #1 if (GetInfo("OFFLINE")) endif MENUCMD _$(19194,"E&xit"), "bye", msg$ else endif return endif ptmnuInstrum$=_$(19197,"&Instrument") &Instrument MENUNEW ptmnuinstrum$ SecAddMENUCMD _$(19198,"Inlet/Injection T&ypes..."),"callRCMethodEdit ", _$(19199,"Select Run Configuration ..."),,"mnuselectinlet" local OK,cntlvar$,PrivKey$ PrivKey$="IC_Compliance" IC_Compliance if check("variable","mcntlvar$") = 0 endif if PrivEnabled = 0 OK = 1 1 else endif if OK = 1 if add_menusep = 1 endif if len(mcntlvar$) > 0 evaluate "MENUCMD """+mmenu$+""","""+mcmd$+""","""+mmsg$+"""" MENUCMD "Inlet/Injection T&ypes...","callRCMethodEdit ","Select Run Configuration ..." endif endif return LOCAL als_type als_type = getinfo("als_type") 0 IF als_type = 2 THEN ENDIF if check("variable","_dotnet")=0 macro _exepath$+"hs_menu.mac",go Macro(s) in C:\msdchem\MSexe\hs_menu.mac loaded. EHS_MENUS local pre$,cmd$,lbl$,msg$,hsdll$ if _isHS=0 return endif macro _exepath$+"pretreat.mac" Macro(s) in C:\msdchem\MSexe\pretreat.mac loaded. if check("variable","_ptavail")=1 if _ptavail=1 and _isgc7820=0 endif endif if check("variable", "_dotnet") = 1 endif if _isgc68xx=1 and _isgcRC=0 GCMenuChemport32 local msg$ menusep msg$ = _$(19256,"Select GC Parameters") Select GC Parameters MENUCMD _$(30549,"&GC Edit Parameters..."), "GCMethodEdit(-1)", msg$, _GCDisable if check("variable", "_dotnet") = 0 msg$ = _$(19260,"Select GC Monitors") Select GC Monitors MENUCMD _$(30550,"GC Monito&rs..."), "GCViewParams()", msg$, _GCDisable endif msg$ = _$(19258,"Select GC Detector data to display") Select GC Detector data to display MENUCMD _$(30551,"GC Real-Time &Plots..."), "GCPlotEdit()", msg$, _GCDisable msg$ = _$(19377,"Select consumable components ...") Select consumable components ... MENUCMD _$(19378,"GC C&onsumable Panel..."),"DoConsumPanel_",msg$, _GCDisable return endif if _isgcRC=1 endif if _CFTInstalled = 1 and _isgc78xx = 1 endif if _ismsQ1 = 1 then MSMenuQ1 local msg$ MENUSEP msg$ = _$(19262,"Select MS Tune File") Select MS Tune File MENUCMD _$(30559,"MS Tune &File..."), "DoPick", msg$, _MSDisable msg$ = _$(19264,"Select MS SIM/scan") Select MS SIM/scan MENUCMD _$(19265,"MS SI&M/Scan Parameters..."), "MSMethodEdit(2,"""")", msg$, _MSDisable if _mstype = 5 msg$ = _$(19266,"Change Source/Quad/Transfer Line Temperatures") Change Source/Quad/Transfer Line Temperatures else endif MENUCMD _$(19268,"MS &Temperatures..."), "DoNewTemp", msg$, _MSDisable msg$ = _$(19269,"Select MS Monitors") Select MS Monitors MENUCMD _$(30560,"MS Monitor&s..."), "MSViewParams()", msg$, _MSDisable MENUSEP msg$ = _$(19271,"Select Tune type and perform automatic tune") Select Tune type and perform automatic tune MENUCMD _$(19370,"T&une MSD..."), "macro ""Tuneopt"",go", msg$, _MSDisable if _cfrMode = 0 msg$ = _$(19272,"Edit MS tune parameters") Edit MS tune parameters MENUCMD _$(19273,"Edit Tu&ne Parameters..."),"MSAcqEdTune", msg$, _MSDisable menucmd _$(30561,"Edit SIM &Ions..."),"go_sim_Table",_$(19374,"Edit SIM Ions spreadsheet; Method may be saved and reloaded."),_MSDisable endif menucmd _$(30562,"Trace Ion &Detection..."),"TIDCB",_$(30520,"Activate/Deactive Trace Ion Detection") if _cfrmode = 1 endif if _mstype >= 4 and _mstype <= 6 and 1=0 endif dimCI=2 2 if _mstype=5 and getinfo("offline")=0 local c$ scquery "config:info:opts:desc? 3",c$ NO_FCB if instr(upper$(c$),"NO_FCB")>0 dimCI=2 2 else endif endif menusep menucmd _$(30563,"CI Contro&l"),"showvalves",_$(19203,"Shows Automated CI Valve/Gauge status."),dimCI return endif if _ismsQQQ = 1 then endif if _ismsQTOF = 1 then endif IF (AUXDLL <> -1) THEN ENDIF if getinfo("offline") = 0 add_menusep = 1 1 SecAddMENUCMD _$(30537,"&EMF Utilities..."),"DoEMF_",_$(19201,"Runs Early Maintenance Feedback setup"),,"mnuemf",add_menusep local OK,cntlvar$,PrivKey$ PrivKey$="IC_Compliance" IC_Compliance if check("variable","mcntlvar$") = 0 endif if PrivEnabled = 0 OK = 1 1 else endif if OK = 1 if add_menusep = 1 menusep add_menusep = 0 0 endif if len(mcntlvar$) > 0 evaluate "MENUCMD """+mmenu$+""","""+mcmd$+""","""+mmsg$+"""" MENUCMD "&EMF Utilities...","DoEMF_","Runs Early Maintenance Feedback setup" endif endif return endif checkhook "IC_PostInstrumentMenu" Local hook_macro$, count,items hookini$ = _instpath$+"hooks.ini" C:\msdchem\1\hooks.ini items=val(getinistring$(hookini$,hook_name$,"NumOfHooks")) 0 if items > 0 endif Return dimLabAdvisor = 0 0 GetDimLabAdvisor dimLabAdvisor dimIt = 2 2 if _isgc68xx=1 or _isgc78xx=1 dimIt = 0 0 endif LOCAL pathValue pathvalue="" LOCAL taskId getregvalue_ 0, "SOFTWARE\agilent\InstrumentMonitor\UI", "Path", pathValue 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\InstrumentMonitor\UI IsScalar=check("Scalar","item") 0 tree$=Mnode$+node$ SOFTWARE\agilent\InstrumentMonitor\UI retval="" if IsScalar = 1 endif getregvalue what,tree$,element$,retval,special if IsScalar = 0 if special = 1 if len(retval) = 0 CheckWow = 1 1 endif endif else endif if CheckWow = 1 Mnode$ = Mnode$+"Wow6432node\" SOFTWARE\Wow6432node\ tree$=Mnode$+node$ SOFTWARE\Wow6432node\agilent\InstrumentMonitor\UI getregvalue what,tree$,element$,retval,special endif item = retval return filesize pathValue IF size=-1 dimit=2 2 endif RETURN if dimLabAdvisor=0 endif if NoTop = 1 if _enhapp = 5 TopMnu_Seq local str$,msg$ MENUNEW _$(19332,"&Sequence") SecAddMENUCMD _$(19333,"&Load Sequence..."),"LoadTheSeq", _$(19334,"Select a Sequence and load it"),,"mnuloadsequence" local OK,cntlvar$,PrivKey$ PrivKey$="IC_Compliance" IC_Compliance if check("variable","mcntlvar$") = 0 endif if PrivEnabled = 0 OK = 1 1 else endif if OK = 1 if add_menusep = 1 endif if len(mcntlvar$) > 0 evaluate "MENUCMD """+mmenu$+""","""+mcmd$+""","""+mmsg$+"""" MENUCMD "&Load Sequence...","LoadTheSeq","Select a Sequence and load it" endif endif return SecAddMENUCMD _$(19335,"&Save Sequence"),"SaveTheSeq _seqpath$,_seqfile$", _$(19336,"Save the current Sequence to disk"),,"mnusavesequence" local OK,cntlvar$,PrivKey$ PrivKey$="IC_Compliance" IC_Compliance if check("variable","mcntlvar$") = 0 endif if PrivEnabled = 0 OK = 1 1 else endif if OK = 1 if add_menusep = 1 endif if len(mcntlvar$) > 0 evaluate "MENUCMD """+mmenu$+""","""+mcmd$+""","""+mmsg$+"""" MENUCMD "&Save Sequence","SaveTheSeq _seqpath$,_seqfile$","Save the current Sequence to disk" endif endif return SecAddMENUCMD _$(19337,"Save Sequence &As..."),"SaveTheSeq", _$(19338,"Interactive save the current Sequence to disk"),,"mnusavesequenceas" local OK,cntlvar$,PrivKey$ PrivKey$="IC_Compliance" IC_Compliance if check("variable","mcntlvar$") = 0 endif if PrivEnabled = 0 OK = 1 1 else endif if OK = 1 if add_menusep = 1 endif if len(mcntlvar$) > 0 evaluate "MENUCMD """+mmenu$+""","""+mcmd$+""","""+mmsg$+"""" MENUCMD "Save Sequence &As...","SaveTheSeq","Interactive save the current Sequence to disk" endif endif return SecAddMENUCMD _$(19339,"&Run Sequence..."), "StartSeq", _$(19340,"Run or resume the current Sequence"),"_TUNEVIEW","mnurunsequence" local OK,cntlvar$,PrivKey$ PrivKey$="IC_Compliance" IC_Compliance if check("variable","mcntlvar$") = 0 endif if PrivEnabled = 0 OK = 1 1 else endif if OK = 1 if add_menusep = 1 endif if len(mcntlvar$) > 0 evaluate "MENUCMD """+mmenu$+""","""+mcmd$+""","""+mmsg$+""","+mcntlvar$ MENUCMD "&Run Sequence...","StartSeq","Run or resume the current Sequence",_TUNEVIEW else endif endif return if check("variable", "_dotnet") = 0 MENUCMD _$(19341,"&Print Sequence..."),"FullOrShortSeq",_$(19342,"Print the current Sequence with specified format") menucmdfn _$(19366,"Co&nfigure Sequence Table..."),"DoSLTConfig_",_$(19367,"Arrange columns in Spreadsheet Sequence Table"),"UseOldSLT*2" endif add_menusep = 1 1 SecAddMENUCMD _$(19343,"&Edit Sequence..."), "EditWithBarcode",_$(19344,"Enter info for each sample in Sequence"), "_TUNEVIEW","mnueditsequence",add_menusep local OK,cntlvar$,PrivKey$ PrivKey$="IC_Compliance" IC_Compliance if check("variable","mcntlvar$") = 0 endif if PrivEnabled = 0 OK = 1 1 else endif if OK = 1 if add_menusep = 1 menusep add_menusep = 0 0 endif if len(mcntlvar$) > 0 evaluate "MENUCMD """+mmenu$+""","""+mcmd$+""","""+mmsg$+""","+mcntlvar$ MENUCMD "&Edit Sequence...","EditWithBarcode","Enter info for each sample in Sequence",_TUNEVIEW else endif endif return if _enhapp <> 666 menucmd _$(19345,"Import Sequence Information from &CSV File..."),"SeqLims",_$(19346,"Allows user to select CSV file for Sequence creation") endif if check("variable","_eq_running")=1 if _eq_running=1 and _enhapp=1 endif endif SecAddMENUCMD _$(19349,"S&imulate Sequence"),"DoSimSeq", _$(19350,"Simulate a Sequence and check for errors"),,"mnusimulatesequence",add_menusep local OK,cntlvar$,PrivKey$ PrivKey$="IC_Compliance" IC_Compliance if check("variable","mcntlvar$") = 0 endif if PrivEnabled = 0 OK = 1 1 else endif if OK = 1 if add_menusep = 1 endif if len(mcntlvar$) > 0 evaluate "MENUCMD """+mmenu$+""","""+mcmd$+""","""+mmsg$+"""" MENUCMD "S&imulate Sequence","DoSimSeq","Simulate a Sequence and check for errors" endif endif return if _cfrmode=0 SecAddMENUCMDFN _$(30564,"Position and Run Se&quence..."), "PositionSequence", _$(19352,"Start the Sequence at the specified line"),"IN_SUBSEQ + _TUNEVIEW","mnuposrunsequence" local OK,cntlvar$,PrivKey$ PrivKey$="IC_Compliance" IC_Compliance if PrivEnabled = 0 OK = 1 1 else endif if OK = 1 evaluate "MENUCMDFN """+mmenu$+""","""+mcmd$+""","""+mmsg$+""","""+mcntlvar$+"""" MENUCMDFN "Position and Run Se&quence...","PositionSequence","Start the Sequence at the specified line","IN_SUBSEQ + _TUNEVIEW" endif return endif MENUSEP HSTInitMenu "Sequence",4,_$(19353,"&Sequence"), "LoadTheSeq " LOCAL i, count HSTWriteDefaults section$, max, menu$, cmd$, hlp$, var$ LOCAL inifile$, initxt$, i, inilabel$,count HSTGetIniFile inifile$ inifile$ = _instpATH$ + "hst.ini" C:\msdchem\1\hst.ini RETURN SetIniString(inifile$, section$, "max", val$(max)) 1 SetIniString(inifile$, section$, "menuname", menu$) 1 SetIniString(inifile$, section$, "menucmd", cmd$) 1 SetIniString(inifile$, section$, "menuhlp", hlp$) 1 SetIniString(inifile$, section$, "menuvar", var$) 1 i = 1 1 while (i <= max) initxt$ = GetIniString$(inifile$, section$, val$(i)) C:\msdchem\1\sequence\043020.S SetIniString(inifile$, section$, val$(i), initxt$) 1 inilabel$ = GetIniString$(inifile$, section$, val$(i)+"short") 043020.S if len(inilabel$) = 0 and len(initxt$) > 0 endif SetIniString(inifile$, section$, val$(i)+"short", inilabel$) 1 i = i + 1 2 endwhile while (i <= max) initxt$ = GetIniString$(inifile$, section$, val$(i)) C:\msdchem\1\sequence\042920.S SetIniString(inifile$, section$, val$(i), initxt$) 1 inilabel$ = GetIniString$(inifile$, section$, val$(i)+"short") 042920.S if len(inilabel$) = 0 and len(initxt$) > 0 endif SetIniString(inifile$, section$, val$(i)+"short", inilabel$) 1 i = i + 1 3 endwhile while (i <= max) initxt$ = GetIniString$(inifile$, section$, val$(i)) C:\msdchem\1\sequence\042720.S SetIniString(inifile$, section$, val$(i), initxt$) 1 inilabel$ = GetIniString$(inifile$, section$, val$(i)+"short") 042720.S if len(inilabel$) = 0 and len(initxt$) > 0 endif SetIniString(inifile$, section$, val$(i)+"short", inilabel$) 1 i = i + 1 4 endwhile while (i <= max) initxt$ = GetIniString$(inifile$, section$, val$(i)) C:\msdchem\1\sequence\042420.S SetIniString(inifile$, section$, val$(i), initxt$) 1 inilabel$ = GetIniString$(inifile$, section$, val$(i)+"short") 042420.S if len(inilabel$) = 0 and len(initxt$) > 0 endif SetIniString(inifile$, section$, val$(i)+"short", inilabel$) 1 i = i + 1 5 endwhile while (i <= max) RETURN HSTGetItemCount section$, count LOCAL inifile$ HSTGetIniFile inifile$ inifile$ = _instpATH$ + "hst.ini" C:\msdchem\1\hst.ini RETURN filesize inifile$ count = GetIniInt(inifile$, section$, "max") 4 if count <= 0 endif RETURN i = 1 1 while (i <= count) HSTAddItem section$, i LOCAL mnu$, lbl$, cmd$, hlp$, var$ HSTGetItem section$, i, mnu$, lbl$, cmd$, hlp$, var$ LOCAL inifile$, initxt$, inicmd$, inihlp$, inimnu$, inivar$, inilabel$ HSTGetIniFile inifile$ inifile$ = _instpATH$ + "hst.ini" C:\msdchem\1\hst.ini RETURN inilabel$ = GetIniString$(inifile$, section$, val$(i)+"short") 043020.S initxt$ = GetIniString$(inifile$, section$, val$(i)) C:\msdchem\1\sequence\043020.S inimnu$ = GetIniString$(inifile$, section$, "menuname") &Sequence inicmd$ = GetIniString$(inifile$, section$, "menucmd") LoadTheSeq inihlp$ = GetIniString$(inifile$, section$, "menuhlp") inivar$ = GetIniString$(inifile$, section$, "menuvar") mnu$ = inimnu$ &Sequence var$ = inivar$ lbl$ = "&" + val$(i)+ " " + inilabel$ &1 043020.S if CHECK("MACRO","HSTGetCmdStr") cmd$ = inicmd$ + " """ + initxt$ +"""" LoadTheSeq "C:\msdchem\1\sequence\043020.S" endif hlp$ = inihlp$ + " " + initxt$  C:\msdchem\1\sequence\043020.S RETURN MENUCMDFN lbl$, cmd$, hlp$, var$ RETURN i = i + 1 2 endwhile while (i <= count) HSTAddItem section$, i LOCAL mnu$, lbl$, cmd$, hlp$, var$ HSTGetItem section$, i, mnu$, lbl$, cmd$, hlp$, var$ LOCAL inifile$, initxt$, inicmd$, inihlp$, inimnu$, inivar$, inilabel$ HSTGetIniFile inifile$ inifile$ = _instpATH$ + "hst.ini" C:\msdchem\1\hst.ini RETURN inilabel$ = GetIniString$(inifile$, section$, val$(i)+"short") 042920.S initxt$ = GetIniString$(inifile$, section$, val$(i)) C:\msdchem\1\sequence\042920.S inimnu$ = GetIniString$(inifile$, section$, "menuname") &Sequence inicmd$ = GetIniString$(inifile$, section$, "menucmd") LoadTheSeq inihlp$ = GetIniString$(inifile$, section$, "menuhlp") inivar$ = GetIniString$(inifile$, section$, "menuvar") mnu$ = inimnu$ &Sequence var$ = inivar$ lbl$ = "&" + val$(i)+ " " + inilabel$ &2 042920.S if CHECK("MACRO","HSTGetCmdStr") cmd$ = inicmd$ + " """ + initxt$ +"""" LoadTheSeq "C:\msdchem\1\sequence\042920.S" endif hlp$ = inihlp$ + " " + initxt$  C:\msdchem\1\sequence\042920.S RETURN MENUCMDFN lbl$, cmd$, hlp$, var$ RETURN i = i + 1 3 endwhile while (i <= count) HSTAddItem section$, i LOCAL mnu$, lbl$, cmd$, hlp$, var$ HSTGetItem section$, i, mnu$, lbl$, cmd$, hlp$, var$ LOCAL inifile$, initxt$, inicmd$, inihlp$, inimnu$, inivar$, inilabel$ HSTGetIniFile inifile$ inifile$ = _instpATH$ + "hst.ini" C:\msdchem\1\hst.ini RETURN inilabel$ = GetIniString$(inifile$, section$, val$(i)+"short") 042720.S initxt$ = GetIniString$(inifile$, section$, val$(i)) C:\msdchem\1\sequence\042720.S inimnu$ = GetIniString$(inifile$, section$, "menuname") &Sequence inicmd$ = GetIniString$(inifile$, section$, "menucmd") LoadTheSeq inihlp$ = GetIniString$(inifile$, section$, "menuhlp") inivar$ = GetIniString$(inifile$, section$, "menuvar") mnu$ = inimnu$ &Sequence var$ = inivar$ lbl$ = "&" + val$(i)+ " " + inilabel$ &3 042720.S if CHECK("MACRO","HSTGetCmdStr") cmd$ = inicmd$ + " """ + initxt$ +"""" LoadTheSeq "C:\msdchem\1\sequence\042720.S" endif hlp$ = inihlp$ + " " + initxt$  C:\msdchem\1\sequence\042720.S RETURN MENUCMDFN lbl$, cmd$, hlp$, var$ RETURN i = i + 1 4 endwhile while (i <= count) HSTAddItem section$, i LOCAL mnu$, lbl$, cmd$, hlp$, var$ HSTGetItem section$, i, mnu$, lbl$, cmd$, hlp$, var$ LOCAL inifile$, initxt$, inicmd$, inihlp$, inimnu$, inivar$, inilabel$ HSTGetIniFile inifile$ inifile$ = _instpATH$ + "hst.ini" C:\msdchem\1\hst.ini RETURN inilabel$ = GetIniString$(inifile$, section$, val$(i)+"short") 042420.S initxt$ = GetIniString$(inifile$, section$, val$(i)) C:\msdchem\1\sequence\042420.S inimnu$ = GetIniString$(inifile$, section$, "menuname") &Sequence inicmd$ = GetIniString$(inifile$, section$, "menucmd") LoadTheSeq inihlp$ = GetIniString$(inifile$, section$, "menuhlp") inivar$ = GetIniString$(inifile$, section$, "menuvar") mnu$ = inimnu$ &Sequence var$ = inivar$ lbl$ = "&" + val$(i)+ " " + inilabel$ &4 042420.S if CHECK("MACRO","HSTGetCmdStr") cmd$ = inicmd$ + " """ + initxt$ +"""" LoadTheSeq "C:\msdchem\1\sequence\042420.S" endif hlp$ = inihlp$ + " " + initxt$  C:\msdchem\1\sequence\042420.S RETURN MENUCMDFN lbl$, cmd$, hlp$, var$ RETURN i = i + 1 5 endwhile while (i <= count) RETURN add_menusep = 1 1 SecAddMENUCMD _$(19354,"&View Sequence Log ..."),"ViewSeq",_$(19355,"Review info logged during the last Sequence"),,"mnuviewsequencelog",add_menusep local OK,cntlvar$,PrivKey$ PrivKey$="IC_Compliance" IC_Compliance if check("variable","mcntlvar$") = 0 endif if PrivEnabled = 0 OK = 1 1 else endif if OK = 1 if add_menusep = 1 menusep add_menusep = 0 0 endif if len(mcntlvar$) > 0 evaluate "MENUCMD """+mmenu$+""","""+mcmd$+""","""+mmsg$+"""" MENUCMD "&View Sequence Log ...","ViewSeq","Review info logged during the last Sequence" endif endif return if check("variable","_eq_running")=1 and _cfrmode=0 if _eq_running=1 and _enhapp < 4 SecAddmenucmd _$(19356,"Vie&w Sequence Quality Log"),"DoViewQALog",_$(19357,"View all of the *.LOG files in ") + _instpath$,,"mnuviewsequenceqalog",add_menusep local OK,cntlvar$,PrivKey$ PrivKey$="IC_Compliance" IC_Compliance if check("variable","mcntlvar$") = 0 endif if PrivEnabled = 0 OK = 1 1 else endif if OK = 1 if add_menusep = 1 endif if len(mcntlvar$) > 0 evaluate "MENUCMD """+mmenu$+""","""+mcmd$+""","""+mmsg$+"""" MENUCMD "Vie&w Sequence Quality Log","DoViewQALog","View all of the *.LOG files in C:\msdchem\1\" endif endif return endif endif SecAddMENUCMD _$(19358,"Print Sequence Lo&g"),"PrintSeqLog",_$(19359,"Print info logged during the last Sequence"),,"mnuprintsequencelog",add_menusep local OK,cntlvar$,PrivKey$ PrivKey$="IC_Compliance" IC_Compliance if check("variable","mcntlvar$") = 0 endif if PrivEnabled = 0 OK = 1 1 else endif if OK = 1 if add_menusep = 1 endif if len(mcntlvar$) > 0 evaluate "MENUCMD """+mmenu$+""","""+mcmd$+""","""+mmsg$+"""" MENUCMD "Print Sequence Lo&g","PrintSeqLog","Print info logged during the last Sequence" endif endif return if check("variable", "_dotnet") = 0 MENUSEP if _cfrmode=0 menucmd _$(19360,"&Batch Mode..."),"BatchSetup",_$(19361,"Organizes method, sequence, and data in BATCH directory") MENUCMD _$(19362,"A&dditional Sequence Options..."),"macro ""seqmore.mac"",go",_$(19363,"Display more Sequence options") if _enhapp <> 3 and SLTChoice = 1 endif endif endif RETURN endif endif if _enhapp <> 666 checkhook "IC_PreViewMenu" Local hook_macro$, count,items hookini$ = _instpath$+"hooks.ini" C:\msdchem\1\hooks.ini items=val(getinistring$(hookini$,hook_name$,"NumOfHooks")) 0 if items > 0 endif Return MENUNEW _$(19206,"&View") if (_TopWinId <> 0) or NoTop = 1 NTAddMenuCmd ntmenulabel$, "ViewTopLevel",ntmenumsg$ if NoTop = 0 OR force = 1 endif return MENUCMD _$(19207,"&Instrument Control"),"",_$(19208,"Display Instrument Control Panel"),ON if check("variable","_eq_running")=1 MENUCMD _$(19209,"&Data Analysis (offline)"),"ViewDataAnalysis",_$(19210,"Start up an offline Data Analysis") else endif endif MSTuneViews local msg$ if _ismsQ1 = 1 MENUSEP msg$ = _$(19281,"Enter Diagnostics/Vacuum Control") Enter Diagnostics/Vacuum Control MENUCMD _$(19282,"T&une and Vacuum Control..."),"stub_tuneview", _$(19283,"Tune and Diagnostics") endif return CheckHook "IC_2PreViewMenu" Local hook_macro$, count,items hookini$ = _instpath$+"hooks.ini" C:\msdchem\1\hooks.ini items=val(getinistring$(hookini$,hook_name$,"NumOfHooks")) 0 if items > 0 endif Return endif MENUNEW _$(19213,"&Abort") MENUSTP ,_$(19214,"Aborts the currently running macro") if _ismsQ1 = 1 then MENUNEW _$(19215,"&Checkout") dimQ=0 0 if _ionstate<>0 or getinfo("offline")=1 endif if (check("MACRO", "DoChkTune") = 0) macro _exepath$+"mnu_qual.mac" Macro(s) in C:\msdchem\MSexe\mnu_qual.mac loaded. endif msg$ = _$(19216,"Execute checkout autotune") Execute checkout autotune MENUCMD _$(19217,"&Checkout Tune"),"DoChkTune",msg$,dimQ msg$ = _$(19218,"Evaluate checkout autotune") Evaluate checkout autotune MENUCMD _$(30538,"&Evaluate Tune"),"DoTuneEval",msg$,dimQ msg$ = _$(19220,"Review Results of recent instrument tunes.") Review Results of recent instrument tunes. menucmd _$(19221,"&View Previous Tunes..."),"doviewtunes", msg$,dimQ MENUSEP msg$ = _$(19222,"Execute sensitivity checkout method") Execute sensitivity checkout method MENUCMD _$(19223,"&Sensitivity Check"),"DoSensCheck",msg$,dimQ if dimq=2 if _mstype=5 and instrparm("maxmass") > 900 and getinfo("offline")=0 and _ionstate=0 himzchk=0 0 else endif endif msg$ = _$(19224,"Execute high mass checkout method") Execute high mass checkout method MENUCMD _$(19225,"&High Mass Check"),"DoHiMzCheck",msg$,himzchk, MENUCMD MenuItemSWV$,"Do_OQPV",MenuMsgSWV$ MENUSEP msg$ = _$(19228,"View the installation checklist") View the installation checklist MENUCMD _$(19229,"&Installation Checklist"),"ViewInstall",msg$ msg$ = _$(19230,"View the familiarization checklist") View the familiarization checklist MENUCMD _$(19231,"&Familiarization Checklist"),"ViewFamiliar",msg$ endif TopMnu_Misc if _cfrmode=1 if check("variable", "_dotnet") = 0 MSAnyOneMenu local ltemp$ if check("macro","msn_configvars") = 0 endif msn_configvars local temp,inifile$,inisect$,dllfile$ msnsecitem=2 2 msnscenitem=2 2 msn_centric = 0 0 msn_centmeth = 0 0 msn_samples = 0 0 msnfirsttime=0 0 edacpsecure=0 0 msnequilitem=0 0 msnstndbyitem=0 0 standbytime$="10" 10 msnmethitem=0 0 msnstartitem=2 2 equilibration$=_$(21205,"None") None standby$=_$(21206,"None") None centric$=" <None>"  <None> if instr(upper$(_ddename$),"MSDA") > 0 dllfile$ = "msdlg32.dll" msdlg32.dll endif if check("command","lbcmd1") = 0 dllinstall(_dllpath$+dllfile$) 14 endif inifile$=_instpath$+"msanyone.ini" C:\msdchem\1\msanyone.ini filesize inifile$ if size > 0 msnfirsttime=1 1 endif if (msnsecitem=1) and (msnstndbyitem=1) and (msnequilitem=1) and (msnmethitem=1) endif return SecureMenu$=_$(19111,"Security Contro&l") Security Contro&l if _enhapp = 2 endif menunew SecureMenu$ local D_E_Security$ D_E_Security$ = _$(19113,"Enable S&ecurity...") Enable S&ecurity... if edacpsecure = 1 endif menucmd D_E_Security$,"msn_security",_$(19115,"Allows Security setup") if _enhapp = 2 menusep endif menucmd _$(19130,"E&dit Accounts..."),"cpsecure_accounts",_$(19131,"Edit Users, Levels, and Passwords for Secured Control"),msnsecitem return endif endif RETURN MENUNEW _$(19232,"&Window") SecAddMENUCMD _$(19235,"Tile &Horizontal"), "MDITILE", _$(19236,"Tile MDI Windows Horizontal"),,"mnutilehorizontal" local OK,cntlvar$,PrivKey$ PrivKey$="IC_Compliance" IC_Compliance if check("variable","mcntlvar$") = 0 endif if PrivEnabled = 0 OK = 1 1 else endif if OK = 1 if add_menusep = 1 endif if len(mcntlvar$) > 0 evaluate "MENUCMD """+mmenu$+""","""+mcmd$+""","""+mmsg$+"""" MENUCMD "Tile &Horizontal","MDITILE","Tile MDI Windows Horizontal" endif endif return if (check("variable","_dotnet") = 1) MENUCMD _$(19241,"Arrange Plots and &Monitors"), "ICArrangePlots", _$(19242,"Arrange Plots and Monitors") endif MENUMDI if (check("variable","_dotnet") = 1) endif checkMFGStartup if eqstr(upper$(getinistring$("","pcs","mfg")),"YES")=1 endif return ChemAccessStartup local castart$ castart$ = _exepath$[1:len(_exepath$)-6]+"msmacros\AddonIC.mac" C:\msdchem\msmacros\AddonIC.mac filesize castart$ if size > 0 endif return ICAddonStartup Local icaddonmenu$ icaddonmenu$ = _instpath$+"icaddon.mac" C:\msdchem\1\icaddon.mac FileSize icaddonmenu$ If size > 0 EndIf return ECMStartup filesize _exepath$+"ecm_util.mac" if size > 0 macro _exepath$+"ecm_util.mac" Macro(s) in C:\msdchem\MSexe\ecm_util.mac loaded. Check4ECM local a$,b$,c$,n,size,ECMv$,ECMinstallpath$,ECMpathstat ok=0 0 if val(getinistring$("","pcs","MCEADAN"))=1 endif n=0 0 a$="SOFTWARE\Scientific Software, Inc.\CyberLAB\KES Explorer" SOFTWARE\Scientific Software, Inc.\CyberLAB\KES Explorer b$="version" version c$="" getregvalue_ n,a$,b$,ECMv$ 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$)] Scientific Software, Inc.\CyberLAB\KES Explorer IsScalar=check("Scalar","item") 0 tree$=Mnode$+node$ SOFTWARE\Scientific Software, Inc.\CyberLAB\KES Explorer retval="" if IsScalar = 1 endif getregvalue what,tree$,element$,retval,special if IsScalar = 0 if special = 1 if len(retval) = 0 CheckWow = 1 1 endif endif else endif if CheckWow = 1 Mnode$ = Mnode$+"Wow6432node\" SOFTWARE\Wow6432node\ tree$=Mnode$+node$ SOFTWARE\Wow6432node\Scientific Software, Inc.\CyberLAB\KES Explorer getregvalue what,tree$,element$,retval,special endif item = retval return b$="installpath" installpath getregvalue_ n,a$,b$,ECMinstallpath$ 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$)] Scientific Software, Inc.\CyberLAB\KES Explorer IsScalar=check("Scalar","item") 0 tree$=Mnode$+node$ SOFTWARE\Scientific Software, Inc.\CyberLAB\KES Explorer retval="" if IsScalar = 1 endif getregvalue what,tree$,element$,retval,special if IsScalar = 0 if special = 1 if len(retval) = 0 CheckWow = 1 1 endif endif else endif if CheckWow = 1 Mnode$ = Mnode$+"Wow6432node\" SOFTWARE\Wow6432node\ tree$=Mnode$+node$ SOFTWARE\Wow6432node\Scientific Software, Inc.\CyberLAB\KES Explorer getregvalue what,tree$,element$,retval,special endif item = retval return ECMpathstat=filestat(ECMInstallpath$) ARRAY of length 11 varlock 0 Variable locking is OFF local hiaModule GetECMHIAModule hiaModule if check("variable","_isDotNet") = 0 varlock 0 Variable locking is OFF _isDotNet = 0 0 if check("variable","_dotnet") = 1 endif endif IF _IsDotNet = 1 hiaModule = _exepath$ + "ecm.dll" C:\msdchem\MSexe\ecm.dll ENDIF return filesize hiaModule if size > 0 and EcMpathstat[7] <> 0 _ECMversion$=_$(35685,"<ECM is not available>") <ECM is not available> setinistring("","pcs,"+val$(_instnum),"ECMversion","") 1 endif return endif if _ECMInstalled = 1 endif return MENUNEW _$(19243,"&Help") MENUCMD _$(19244,"&Help Topics"),"help", "" if check("variable","_CSlanguage")=1 if _CSlanguage<>1034 useEnglish=val(getinistring$("","PCS,"+val$(_instnum),"Language")) 0 if useEnglish=1 endif endif endif MENUSEP checkhook "IC_PReviewmenu3" Local hook_macro$, count,items hookini$ = _instpath$+"hooks.ini" C:\msdchem\1\hooks.ini items=val(getinistring$(hookini$,hook_name$,"NumOfHooks")) 0 if items > 0 endif Return menucmd _$(19248,"&Review Revision History..."),"revhistory",_$(19249,"Show which revisions of Software have been installed.") menucmd _$(19250,"&View Revision Readme File"),"ReadMeMS" ,_$(19251,"Display readmems.htm") MENUCMD _$(19252,"&Show IP and Revision Information..."),"MenuShowIP_",_$(19253,"Display addresses, firmware revisions (online only), etc.") macro _exepath$+"zipcrit.mac" Macro(s) in C:\msdchem\MSexe\zipcrit.mac loaded. zipmenu a$=_$(50952,"Zip up Diagnostic Files...") Zip up Diagnostic Files... c$=_$(50953,"Create a zip file containing diagnostic information for support engineers.") Create a zip file containing diagnostic information for support engineers. menucmd a$,"dozipcrit",c$ return menusep if (check("variable","_dotnet") = 1) endif MENUCMD _$(19254,"&About"), "doversion", _$(19255,"Display currently running version") if _cfrmode = 1 endif CheckHook "IC_3PreViewMenu" Local hook_macro$, count,items hookini$ = _instpath$+"hooks.ini" C:\msdchem\1\hooks.ini items=val(getinistring$(hookini$,hook_name$,"NumOfHooks")) 0 if items > 0 endif Return MENUEND ic_menu_obj menushw ic_menu_obj RETURN return endif LoadMethod _methpath$+_methfile$,,,1 local gc_type,msg$,cfrlockerr, CFROk,browseroot,Migrated,size,ansisize if from_top = 0 IC_lockout if NoTop = 1 return endif if _methstate = 1 and from_top = 0 and RTLCal = 0 endif z_oldmethpath$ = _methpath$ C:\MSDCHEM\1\METHODS\ z_oldmethfile$ = _methfile$ STANDBY.M if _cfrmode = 1 endif LoadMethPanel name$,1 Current method is STANDBY.M if _button = 0 endif if from_top = 0 If _cfrmode = 1 and rtlcal = 0 and from_start = 0 endif if _isgc6850=1 endif if _isgc68xx=1 and _isgcrc=1 endif MigrateGCFiles Migrated,interactive,z_oldmethpath$+z_oldmethfile$,_methpath$+_methfile$ if _isgc78xx=1 filesize _methpath$+_methfile$+"\7890method.bin" if size>1 endif filesize _methpath$+_methfile$+"\7890method.xml" if size>1 endif endif return macro _exepath$ + "checkmth.mac" Macro(s) in C:\msdchem\MSexe\checkmth.mac loaded. checkmeth 1,1,from_start,1 LOCAL a,updpassed VerifyConfig local sum,msize,vsize,qsize,verifymessage$,ff$ sum = FILESTAT(_METHPATH$ + _METHFILE$) ARRAY of length 11 IF (sum[7] = 2) if sum[8]=0 OR sum[9]=0 FILESIZE _METHPATH$ + _METHFILE$ + "\method.mac" msize = size 133 FILESIZE _METHPATH$ + _METHFILE$ + "\methver.mac" vsize = size 79 if check("variable","_dotnet") = 1 and instr(upper$(_appname$),"MSDA") = 0 endif IF msize <> -1 and vsize <> -1 and qsize <> -1 RETURN GetMethVersion FILESIZE _METHPATH$ + _METHFILE$ + "\methver.mac" IF (size <> -1) MACRO _METHPATH$ + _METHFILE$ + "\methver.mac",go Macro(s) in C:\MSDCHEM\1\METHODS\STANDBY.M\methver.mac loaded. _METHODVERSION VARLOCK OFF Variable locking is OFF _METHVER = 2.10 2.1 VARLOCK ON Variable locking is ON RETURN ELSE ENDIF RETURN if _enhapp = 666 and instr(upper$(_appname$),"MSDA") = 0 endif z_checkmethpath$ = _methpath$ C:\MSDCHEM\1\METHODS\ z_checkmethfile$ = _methfile$ STANDBY.M if (_methver <> _currentver) endif IF (_methver = _currentver) if from_start >= 0 and from_ic >= 0 DoEnhancedUpdates from_start,from_ic,updpassed local lalert lalert = 1 1 if from_start = 1 or _cfrmode = 1 lalert = 3 3 endif local alert$ if _enhapp = 1 if _enhapp = 2 if _enhapp = 3 alert$ = _$(16602,"Reformulated Gasoline Analysis ChemStation") Reformulated Gasoline Analysis ChemStation endif endif endif if _enhapp < 4 filesize _methpath$+_methfile$+"\envdaver.mac" if size = -1 macro _methpath$+_methfile$+"\envdaver.mac",g Macro(s) in C:\MSDCHEM\1\METHODS\STANDBY.M\envdaver.mac loaded. ENVVERSION ENVMETHVER = 3.2 3.2 remove envversion Removed macro ENVVERSION currentenvver = envmethver 3.2 macro _macropath$+"envdaver.def",g Macro(s) in C:\msdchem\MSMACROS\envdaver.def loaded. ENVVERSION ENVMETHVER = 3.2 3.2 remove envversion Removed macro ENVVERSION if envmethver <> currentenvver endif endif else endif updpassed = 1 1 REMOVE DoEnhancedUpdates Removed macro DOENHANCEDUPDAT else endif if updpassed = 1 CheckMthRem ErrorAction REMOVE Translate3, DoCustParmTranslate Removed macro TRANSLATE3 Removed macro DOCUSTPARMTRANS REMOVE CopyMethFiles, RestoreOldMeth, CheckUpdateMeth Removed macro COPYMETHFILES Removed macro RESTOREOLDMETH Removed macro CHECKUPDATEMETH REMOVE CheckRename, RenameB00Files, RenameUpdateFile, TranslateOrUpdate Removed macro CHECKRENAME Removed macro RENAMEB00FILES Removed macro RENAMEUPDATEFIL Removed macro TRANSLATEORUPDA REMOVE GetMethVersion, VerifyConfig Removed macro GETMETHVERSION Removed macro VERIFYCONFIG REMOVE z_checkmethpath$, z_checkmethfile$ Removed variable Z_CHECKMETHPATH Removed variable Z_CHECKMETHFILE REMOVE ErrRecover Removed macro ERRRECOVER IF (RemoveAll = 1) REMOVE z_oldmethpath$, z_oldmethfile$ Removed variable Z_OLDMETHPATH$ Removed variable Z_OLDMETHFILE$ ENDIF REMOVE CheckMthRem Removed macro CHECKMTHREM REMOVE CheckMeth Removed macro CHECKMETH cfrlockerr = 0 0 if _cfrmode = 1 endif if cfrlockerr = 1 endif endif if _isms = 1 and check("macro","luimessage")=1 endif Meth_locked = 0 0 RTLUnlock = 2 2 SetMethState 0 varlock 0 Variable locking is OFF _methstate = dirty 0 varlock 1 Variable locking is ON if NoTop = 0 endif return CPTITLE _INSTNAME$ + " - " + _METHFILE$ if _isgc=1 and _isgc7810=0 gcplotoff 1 if _isgc6850=0 gcplotoff 2 endif if _isgc7890=1 endif endif if _cfrmode = 1 endif if getinfo("offline")=0 and _ismsQ1 = 1 cvtit2gf interactive if interactive<>1 endif local type,count,title$,label$,button$,a,b,i,j,msgline$ local inifile$,inifile$,mode inifile$=_methpath$+_methfile$+"\acq.ms" C:\MSDCHEM\1\METHODS\STANDBY.M\acq.ms inisect$="parameters" parameters mode=val(getinistring$(inifile$,inisect$,"mode 1")) 0 if mode=2 endif inifile$=_methpath$+_methfile$+"\method.ini" C:\MSDCHEM\1\METHODS\STANDBY.M\method.ini inisect$="Parameters" Parameters mode=val(getinistring$(inifile$,inisect$,"GainFactorUpdate")) 1 if mode<>0 return endif if check("variable", "_dotnet") = 1 endif RCMethodLoad Loading 6890 GC Method... Downloading Method to GC... Method downloaded to GC! if _isCTC = 1 endif VarLock 0 Variable locking is OFF local Tloc local i ,j i=val(getinistring$(_methpath$+_methfile$+"\acq.ctl","parameters","use hs")) 0 j=val(getinistring$(_methpath$+_methfile$+"\acq.ctl","parameters","injection source")) 0 if i=0 and j=0 Tloc = 1 1 if _locrearavail = 1 endif if (_injloc = 3 and _locfrontavail+_locrearavail <> 2) or (_injloc=1 and _locfrontavail=0) or (_injloc=2 and _locrearavail=0) endif endif if _injloc =3 and check("variable","_dotnet") = 0 endif if _injvalveloc<1 or _injvalveloc>3 endif if _isgc=1 and _isgc7810=0 gcploton 1 if _isgc6850=0 gcploton 2 endif if _isgc7890=1 endif endif macro _methpath$+_methfile$+"\method.mac",go Macro(s) in C:\MSDCHEM\1\METHODS\STANDBY.M\method.mac loaded. METHINFO EditMethPanel 0,1,0 MethInfoPanel 1,0,1,1,0,,,,,, METHCOMMENT0$ = "AROMATICS IN GASOLINE" AROMATICS IN GASOLINE REMOVE METHINFO Removed macro METHINFO msg$ = _$(19783,"Loading Method ")+_methfile$ Loading Method STANDBY.M LBAddEntry _$(19784,"METHOD"),msg$,_HELPFILE$, 4999 if check("macro","qsusermenu") = 1 if NoTop = 0 OR (NoTop = 1 and ( check("macro","RunSequence") + check("macro","qmeth") = 0 )) HSTUpdateMenu "InstMethods",_methpath$+_methfile$,ic_menu_obj LOCAL count, initxt$, initxt2$, match, i if eqstr(section$,"methods") and check("variable","_cfr_offline") endif HSTGetItemCount section$, count LOCAL inifile$ HSTGetIniFile inifile$ inifile$ = _instpATH$ + "hst.ini" C:\msdchem\1\hst.ini RETURN filesize inifile$ count = GetIniInt(inifile$, section$, "max") 4 if count <= 0 endif RETURN STRDIM initxt$, count Array initxt$(4) has been created HSTGetAllStrings section$, count, initxt$ LOCAL inifile$, i HSTGetIniFile inifile$ inifile$ = _instpATH$ + "hst.ini" C:\msdchem\1\hst.ini RETURN i = 1 1 while (i <= count) initxt$[i] = GetIniString$(inifile$, section$, val$(i)) C:\MSDCHEM\1\METHODS\STANDBY.M i = i + 1 2 endwhile while (i <= count) initxt$[i] = GetIniString$(inifile$, section$, val$(i)) C:\MSDCHEM\1\METHODS\GASOLINE.M i = i + 1 3 endwhile while (i <= count) initxt$[i] = GetIniString$(inifile$, section$, val$(i)) C:\msdchem\1\METHODS\DEFAULT.M i = i + 1 4 endwhile while (i <= count) initxt$[i] = GetIniString$(inifile$, section$, val$(i)) C:\MSDCHEM\2\METHODS\AROMATICS.M i = i + 1 5 endwhile while (i <= count) RETURN HSTFindMatch count, initxt$, filename$, match LOCAL i i = 1 1 while (i <= count) if EQSTR(initxt$[i], filename$) then match = i 1 return if (match = 1) then return setinistring("","pcs,"+val$(_instnum),"_methpath$",_methpath$) 1 setinistring("","pcs,"+val$(_instnum),"_methfile$",_methfile$) 1 endif endif if _ismsQ1 = 1 tunefilename$ = getinistring$(_methpath$+_methfile$+"\acq.ms","general","tune file") atune.u if (len(tunefilename$) = 0) endif if _mstype = 6 endif if _ionstate=1 and (_mstype = 5 or _mstype = 6) and check("variable","gasAB")=1 endif if _cfrmode = 1 endif on_error catchhisense getconfig _tunepath$+tunefilename$ Tune parameters read from file C:\msdchem\1\5975\atune.u. on_error generate_error if check("variable", "_dotnet") = 0 local inifile$,inisect$,NotFirstTime inifile$ = _methpath$+_methfile$+"\win.pos" C:\MSDCHEM\1\METHODS\STANDBY.M\win.pos inisect$ = "Instrument Control Window" Instrument Control Window NotFirstTime = getiniint(inifile$,inisect$,"NOTFIRSTTIME") 1 if NotFirstTime <> 1 endif endif if _cfrmode = 1 and len(_errmsg$) <> 0 endif if (interactive = 1) checkdiff local sa, ss, qa, qs, xa, xs, tol, alert$, t$ if (getinfo("offline") = 0) and check("macro","runsequence")=0 xa = 100 100 xs = 100 100 t$=chr$(9)       tol = 3 3 mstemp source,sa mstemp source,,ss mstemp quad,qa mstemp quad,,qs if (_mstype = 6) endif if (sa > ss + tol) or (sa < ss - tol) or (qa > qs + tol) or (qa < qs - tol) or (xa > xs + tol) or (xa < xs - tol) endif endif return endif if _IONSTATE = 1 if (GetInfo("ms_ci") = 1) CPTITLE CPTITLE$() + " - EI" endif endif endif if _isms = 1 and check("macro","luimessage")=1 endif currmeth$=_methpath$+_methfile$ C:\MSDCHEM\1\METHODS\STANDBY.M if _isms = 1 and check("macro","luimessage")=1 endif if GC6890dll > 0 or GC6850dll > 0 local g68x0isource g68x0isource = val(getinistring$(_methpath$+_methfile$+"\acq.ctl","parameters","injection source")) 0 if g68x0isource = 1 or g68x0isource = 3 endif endif CheckHook "IC_LoadMethod" Local hook_macro$, count,items hookini$ = _instpath$+"hooks.ini" C:\msdchem\1\hooks.ini items=val(getinistring$(hookini$,hook_name$,"NumOfHooks")) 0 if items > 0 endif Return if NoTop = 1 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 197902 endif varlock on Variable locking is ON endif return endif endif return else endif check4rtllocked oldCPT$ = CPTitle$() GCMS /Reformulated Gasoline - STANDBY.M / 043020.S if _isgc=1 and honor_rtl=1 local inifile$,inisect$ inifile$ = _methpath$+_methfile$+"\method.ini" C:\MSDCHEM\1\METHODS\STANDBY.M\method.ini inisect$ = "global" global strdim inlet$,3 Array inlet$(3) has been created Meth_locked = val(getinistring$(inifile$,inisect$,"MethLocked")) 0 if Meth_locked = 1 endif endif local a,count,rtldata$,rtlbad RTLRelockvar=2 2 count = 1 1 while count <= 5 a=filestat(_methpath$+_methfile$+"\rtlock\rtlock"+val$(count)+".d") ARRAY of length 11 if a[7] <> 2 rtlbad = rtlbad + 1 1 endif count = count + 1 2 endwhile while count <= 5 a=filestat(_methpath$+_methfile$+"\rtlock\rtlock"+val$(count)+".d") ARRAY of length 11 if a[7] <> 2 rtlbad = rtlbad + 1 2 endif count = count + 1 3 endwhile while count <= 5 a=filestat(_methpath$+_methfile$+"\rtlock\rtlock"+val$(count)+".d") ARRAY of length 11 if a[7] <> 2 rtlbad = rtlbad + 1 3 endif count = count + 1 4 endwhile while count <= 5 a=filestat(_methpath$+_methfile$+"\rtlock\rtlock"+val$(count)+".d") ARRAY of length 11 if a[7] <> 2 rtlbad = rtlbad + 1 4 endif count = count + 1 5 endwhile while count <= 5 a=filestat(_methpath$+_methfile$+"\rtlock\rtlock"+val$(count)+".d") ARRAY of length 11 if a[7] <> 2 rtlbad = rtlbad + 1 5 endif count = count + 1 6 endwhile while count <= 5 if rtlbad = 0 and getinfo("offline") = 0 endif return if Migrated=1 endif check_ci_setuser if getinfo("offline") = 1 or _ismsQ1 = 0 then endif if _ionstate=0 reagent_off initialcistate scwrite "msc:parm:set cimfcc,0" scwrite "msc:parm:set cimfcp,0" return cishutdown cicalvalve 0 calvalve ,mode,1 Calibration valve is set to be closed. return cigasa 0 if mode=1 scwrite "msc:parm:set cigasa,  0" endif return cigasb 0 if mode=1 scwrite "msc:parm:set cigasb,  0" endif return cisetflow 0 scwrite "msc:parm:set cimfc,"+val$(mode) return cishutoff 0 if mode=1 scwrite "msc:parm:set cishov,  0" endif return ciok=-1 -1 cistatus ciok local gasAst,gasBst,shutst,flowst,aa$,flowrt,bb$ echomode off sdim aa$,2 Array aa$(2) has been created aa$[1]=_$(18690,"OFF  ") OFF   aa$[2]=_$(18691,"ON  ") ON   sdim bb$,2 Array bb$(2) has been created bb$[1]=_$(18692," Unexpected")  Unexpected bb$[2]=_$(18693," OK")  OK local a$,b$,c$,d$,e$,f$,calci SCQUERY "msc:parm:set? cigasa",a$ 0 gasAst=val(a$) 0 SCQUERY "msc:parm:set? cigasb",b$ 0 gasBst=val(b$) 0 SCQUERY "msc:parm:set? cishov",c$ 0 shutst=val(c$) 0 SCQUERY "msc:parm:set? cical",d$ 0 calci=val(d$) 0 SCQUERY "msc:parm:set? cimfc",e$ 0 scquery "msc:sens:read? ciflow",f$ -1.00 flowrt=val(f$) -1 global_ciflow=flowrt -1 setuser 13,CIflow -1.000000e+099 setuser 14,gasAB -1.000000e+099 if gasAst+gasBst+flowst+shutst=0 CIonOFF=0 0 else endif shutst=Round(shutst) 0 gasAst=Round(gasAst) 0 gasBst=Round(gasBst) 0 calci =Round(calci) 0 if shutst<0 or shutst>1 endif if gasAst<0 or gasAst>1 endif if gasBst<0 or gasBst>1 endif if calci<0 or calci>1 endif local pressure pressure=0 0 if getinfo("ms_type")=5 check_vgauge pressure,force_on local a$ scquery "config:info:opts:desc? 4",a$ NO_VGAUGE print a$ NO_VGAUGE if eqstr(a$,"GPMI VACUUM GAUGE")=1 ok=-1 -1 endif print "check_gauge ",ok check_gauge  -1 global_pressure=ok -1 return else endif on_error if CIonOFF=1 print _$(18700,"Shutoff:"),aa$[shutst+1],_$(18701,"Gas A:"),aa$[gasAst+1],_$(18702,"Gas B:"),aa$[gasBst+1],_$(18703,"PFDTD:"),aa$[calci+1],_$(18704,"Flow:"),flowrt,"/",ciflow,_$(18705,"  Status: Not Ready "),_$(18706,"Pressure:"),global_pressure$ Shutoff: OFF   Gas A: OFF   Gas B: OFF   PFDTD: OFF   Flow: -1 / -1e+099   Status: Not Ready  Pressure: -1 endif return remove ciok Removed variable CIOK return return return varlock 0 Variable locking is OFF _ecmmethpath$=getinistring$(_methpath$+_methfile$+"\method.ini","ecm","upload") varlock 1 Variable locking is ON print _methpath$+_methfile$+_$(19786," loaded!") C:\MSDCHEM\1\METHODS\STANDBY.M loaded! do_load_pt 1,1 varlock off Variable locking is OFF if check("variable","_ptavail")=0 endif if get_ini=1 load_pt_ini local inifile$,inisect$ inifile$=_methpath$+_methfile$+"\method.ini" C:\MSDCHEM\1\METHODS\STANDBY.M\method.ini inisect$="Sample Prep" Sample Prep varlock off Variable locking is OFF if check("variable","_ptavail")=0 endif if _ptavail=1 endif varlock on Variable locking is ON return endif if _ptavail=1 endif return if _injsource<>1 and _ptavail=1 endif if _cfrmode = 1 endif return Setup_InstItems local alsmax,hsmax,temp,temp$,TMax,traycap,fcap,rcap alsmax = 150 150 hsmax = 101 101 if _isGC68xx = 1 and _isGCRC = 0 alsmax=100 100 endif varlock 0 Variable locking is OFF dim _ALSMaxvial,3 Array _ALSMaxvial(3) has been created dim _HSMaxVial,3 Array _HSMaxVial(3) has been created dim _CTCMaxVial,3 Array _CTCMaxVial(3) has been created if _isCTC = 1 endif if getinfo("offline") = 1 endif TMax = _ALSMaxVial ARRAY of length 3 if _isgc68xx = 1 temp$=sendmodule$(gcmod$,"CCPO 7") CCPO 0 if val(temp$[5:len(temp$)]) = 14 endif temp$=sendmodule$(gcmod$,"07CONFIG") 07CONFIG G2913A.11.02,8,0,6,10;;G1530N.05.05,0,0 temp =reverseinstr(temp$,";") 32 temp$=temp$[temp+1:len(temp$)] G1530N.05.05,0,0 temp =instr(temp$,",") 13 traycap = val(temp$[temp+1:len(temp$)]) 0 temp$=sendmodule$(gcmod$,"07CONFIG 1") 07CONFIG G2913A.11.02,8,0,6,10 temp$=temp$[instr(temp$," ")+1:len(temp$)] G2913A.11.02,8,0,6,10 if val(temp$)=106 temp=instr(temp$,",") 13 fcap = val(temp$[temp+1:len(temp$)]) 8 endif temp$=sendmodule$(gcmod$,"07CONFIG 2") 07CONFIG 106 temp$=temp$[instr(temp$," ")+1:len(temp$)] 106 if val(temp$)=106 rcap=0 0 else endif Tmax[1]=fcap ARRAY of length 3 Tmax[2]=rcap ARRAY of length 3 temp$=sendmodule$(gcmod$,"CCPC 7") CCPC 0 endif if _isgc78xx = 1 endif if traycap > 0 and fcap <> 0 endif if traycap > 0 and rcap <> 0 endif _ALSMaxVial = Tmax ARRAY of length 3 if _isHS = 1 endif on_error startuperror 1 return if check("macro","qsusermenu") = 1 endif icshow 1 CMDLINE ON REMOVE xBitmapPos Undefined symbol: XBITMAPPOS Acquisition print _$(19797,"Welcome to Instrument Control!") Welcome to Instrument Control! RETURN if _ismsQ1 = 1 QueryLUI 1 macro _exepath$+"diagcmn.mac" Macro(s) in C:\msdchem\MSexe\diagcmn.mac loaded. endif Varlock off Variable locking is OFF _insctlerr=0 0 Varlock on Variable locking is ON RETURN if NoTop = 1 macro _exepath$+"nticrunmeth.mac" Macro(s) in C:\msdchem\MSexe\nticrunmeth.mac loaded. endif instrview ,1 The instrument view is 1 filesize _exepath$+"icextra.mac" if size > 0 endif endif endif if eqstr(state, "remove") then endif if eqstr(state, "hide") then endif if _ionstate=1 and _mstype=5 endif return endif else endif if doit=1 then switchexecuted = 0 0 endif RETURN if _isms=1 macro _exepath$+"lui.mac",go Macro(s) in C:\msdchem\MSexe\lui.mac loaded. AUTOSTART getluivars local a$,b$,c$,n varlock off Variable locking is OFF _ipaddr$ = _$(20081,"<not defined yet!>") <not defined yet!> n = 0 0 a$ = "system\controlset001\services\tcpip\parameters" system\controlset001\services\tcpip\parameters b$ = "hostname" hostname getregvalue_ n,a$,b$,c$ local a,Mnode$,IsScalar,CheckWow,retval,skey$,found_one,mustkey$ a=instr(node$,"\") 7 Mnode$ = node$[1:a] system\ node$=node$[a+1:len(node$)] controlset001\services\tcpip\parameters IsScalar=check("Scalar","item") 0 tree$=Mnode$+node$ system\controlset001\services\tcpip\parameters retval="" if IsScalar = 1 endif getregvalue what,tree$,element$,retval,special if IsScalar = 0 if special = 1 if len(retval) = 0 endif endif else endif if CheckWow = 1 endif item = retval ALR-2322341660 return _hostname$ = c$ ALR-2322341660 varlock on Variable locking is ON return TopSeqfile$=_defseqfile$ default.s TopSeqpath$=_instpath$+"sequence\" C:\msdchem\1\sequence\ LuiTune$="AUTOTUNE/ATUNE.U" AUTOTUNE/ATUNE.U remove autostart Removed macro AUTOSTART endif if (getinfo("offline") = 0) msinsctlstart=1 1 macro _exepath$+"emfcheck.mac" Macro(s) in C:\msdchem\MSexe\emfcheck.mac loaded. InitEMFUtil 1,,1 local temp$,buttons$,setlab$,done,pressed,exists,discard,count,start,end,numopts local pass,acqini$,tunetime,timenow,emvalue,emdelta local GCMSlabels$,GCMSInilabels$,GCMSSLlabels$,MSlabels$,MSInilabels$,MSSLlabels$,GClabels$,GCInilabels$,GCSLlabels$ local pumpoil$,tunetime$,emvoltage$,septum$,liner$,numinjections$,sltemp$ emferr=0 0 emferr$="" print "" inifile$ = _instpath$+"emf.ini" C:\msdchem\1\emf.ini filesize inifile$ if size <= 0 and auto = 1 endif if check("macro","sectime") = 0 macro _exepath$+"sectime.mac" Macro(s) in C:\msdchem\MSexe\sectime.mac loaded. endif GCMSlabels$="" GCMSInilabels$="" GCMSSLlabels$="" MSlabels$="" MSInilabels$="" MSSLlabels$="" GClabels$="" GCInilabels$="" GCSLlabels$="" tlabels$="" labelinf$="" sect$="" count$="" limit$="" emferr$=_$(17560,"Limits fail: ") Limits fail:  strdim buttons$,3 Array buttons$(3) has been created buttons$[1]=_$(17561,"OK") OK buttons$[2]=_$(17562,"Done") Done buttons$[3]=_$(17563,"Cancel") Cancel strdim setlab$,3 Array setlab$(3) has been created setlab$[1]=_$(17564,"Set &Limits") Set &Limits setlab$[2]=_$(17565,"Set &Counters") Set &Counters setlab$[3]=_$(17566,"&Reset Counters") &Reset Counters pumpoil$=_$(17583,"Pump Oil (Days)") Pump Oil (Days) tunetime$=_$(17584,"Tune Time (Hours)") Tune Time (Hours) emvoltage$=_$(17585,"EM Voltage") EM Voltage septum$=_$(17586,"Septum (Injections)") Septum (Injections) liner$=_$(17587,"Liner (Injections)") Liner (Injections) numinjections$=_$(17588,"Number of Injections (Total)") Number of Injections (Total) strdim MSlabels$,3 Array MSlabels$(3) has been created MSlabels$[1]=_$(17567,"&Pump Oil (Days)") &Pump Oil (Days) MSlabels$[2]=_$(17568,"&Tune Time (Hours)") &Tune Time (Hours) MSlabels$[3]=_$(17569,"&EM Voltage") &EM Voltage strdim MSInilabels$,3 Array MSInilabels$(3) has been created MSInilabels$[1]="Pump Oil (Days)" Pump Oil (Days) MSInilabels$[2]="Tune Time (Hours)" Tune Time (Hours) MSInilabels$[3]="EM Voltage" EM Voltage strdim MSSLlabels$,3 Array MSSLlabels$(3) has been created MSSLlabels$[1]=pumpoil$ Pump Oil (Days) MSSLlabels$[2]=tunetime$ Tune Time (Hours) MSSLlabels$[3]=emvoltage$ EM Voltage strdim GCMSlabels$,6 Array GCMSlabels$(6) has been created GCMSlabels$[1]=_$(17570,"&Septum (Injections)") &Septum (Injections) GCMSlabels$[2]=_$(17571,"&Liner (Injections)") &Liner (Injections) GCMSlabels$[3]=_$(17572,"&Number of Injections (Total)") &Number of Injections (Total) GCMSlabels$[4]=_$(17573,"&Pump Oil (Days)") &Pump Oil (Days) GCMSlabels$[5]=_$(17574,"&Tune Time (Hours)") &Tune Time (Hours) GCMSlabels$[6]=_$(17575,"&EM Voltage") &EM Voltage strdim GCMSInilabels$,6 Array GCMSInilabels$(6) has been created GCMSInilabels$[1]="Septum (Injections)" Septum (Injections) GCMSInilabels$[2]="Liner (Injections)" Liner (Injections) GCMSInilabels$[3]="Number of Injections (Total)" Number of Injections (Total) GCMSInilabels$[4]="Pump Oil (Days)" Pump Oil (Days) GCMSInilabels$[5]="Tune Time (Hours)" Tune Time (Hours) GCMSInilabels$[6]="EM Voltage" EM Voltage strdim GCMSSLlabels$,6 Array GCMSSLlabels$(6) has been created GCMSSLlabels$[1]=septum$ Septum (Injections) GCMSSLlabels$[2]=liner$ Liner (Injections) GCMSSLlabels$[3]=numinjections$ Number of Injections (Total) GCMSSLlabels$[4]=pumpoil$ Pump Oil (Days) GCMSSLlabels$[5]=tunetime$ Tune Time (Hours) GCMSSLlabels$[6]=emvoltage$ EM Voltage strdim GClabels$,3 Array GClabels$(3) has been created GClabels$[1]=_$(17576,"&Septum (Injections)") &Septum (Injections) GClabels$[2]=_$(17577,"&Liner (Injections)") &Liner (Injections) GClabels$[3]=_$(17578,"&Number of Injections (Total)") &Number of Injections (Total) strdim GCInilabels$,3 Array GCInilabels$(3) has been created GCInilabels$[1]="Septum (Injections)" Septum (Injections) GCInilabels$[2]="Liner (Injections)" Liner (Injections) GCInilabels$[3]="Number of Injections" Number of Injections strdim GCSLlabels$,3 Array GCSLlabels$(3) has been created GCSLlabels$[1]=septum$ Septum (Injections) GCSLlabels$[2]=liner$ Liner (Injections) GCSLlabels$[3]=numinjections$ Number of Injections (Total) msconfig=val(getinistring$("","pcs,"+val$(_instnum),"ms_type")) 5 if msconfig > 0 and msconfig < 99 msconfig = 1 1 endif gcconfig=0 0 if len(gcmod$) > 0 gcconfig=1 1 endif acqini$ = _methpath$+_methfile$+"\acq.ctl" C:\MSDCHEM\1\METHODS\STANDBY.M\acq.ctl if msconfig = 1 msused = 1 1 if val(getinistring$(acqini$,"parameters","use ms")) = 0 and gcconfig = 1 endif endif if msconfig = 1 and gcconfig = 1 labels$=GCMSlabels$ ARRAY of length 6 inilabels$=GCMSInilabels$ ARRAY of length 6 sllabels$=GCMSSLlabels$ ARRAY of length 6 else endif numopts = num(labels$) 6 strdim labelinf$,numopts Array labelinf$(6) has been created strdim sect$,numopts Array sect$(6) has been created count = 1 1 while count <= numopts sect$[count] = inilabels$[count] Septum (Injections) count = count+1 2 endwhile while count <= numopts sect$[count] = inilabels$[count] Liner (Injections) count = count+1 3 endwhile while count <= numopts sect$[count] = inilabels$[count] Number of Injections (Total) count = count+1 4 endwhile while count <= numopts sect$[count] = inilabels$[count] Pump Oil (Days) count = count+1 5 endwhile while count <= numopts sect$[count] = inilabels$[count] Tune Time (Hours) count = count+1 6 endwhile while count <= numopts sect$[count] = inilabels$[count] EM Voltage count = count+1 7 endwhile while count <= numopts if auto = 0 start = 1 1 end = numopts 6 if msconfig = 1 if getinfo("MS_Type") = 33 acqini$ = _methpath$+_methfile$+"\acq.ms" C:\MSDCHEM\1\METHODS\STANDBY.M\acq.ms emvalue = val(getinistring$(acqini$,"parameters","mode 1")) 0 emvalue = -1 -1 if emvalue = 1 msparm emv,emvalue EM Volts set to 1624. if emvalue = 0 endif endif endif timenow = time$() Wed May 06 11:20:12 2020 sectime ,,,,,,timenow,2 dim monthsecs,12 Array monthsecs(12) has been created secs_per_year = 60*60*24*365 3.1536e+007 daysecs = 60*60*24 86400 hoursecs = 60*60 3600 minsecs = 60 60 monthval=1 1 while monthval <= 12 if monthval=1 or monthval=3 or monthval=5 or monthval=7 or monthval=8 or monthval=10 or monthval=12 monthsecs[monthval]=daysecs*31 ARRAY of length 12 else endif monthval = monthval+1 2 endwhile while monthval <= 12 if monthval=1 or monthval=3 or monthval=5 or monthval=7 or monthval=8 or monthval=10 or monthval=12 if monthval <> 2 endif endif monthval = monthval+1 3 endwhile while monthval <= 12 if monthval=1 or monthval=3 or monthval=5 or monthval=7 or monthval=8 or monthval=10 or monthval=12 monthsecs[monthval]=daysecs*31 ARRAY of length 12 else endif monthval = monthval+1 4 endwhile while monthval <= 12 if monthval=1 or monthval=3 or monthval=5 or monthval=7 or monthval=8 or monthval=10 or monthval=12 if monthval <> 2 monthsecs[monthval]= daysecs*30 ARRAY of length 12 endif endif monthval = monthval+1 5 endwhile while monthval <= 12 if monthval=1 or monthval=3 or monthval=5 or monthval=7 or monthval=8 or monthval=10 or monthval=12 monthsecs[monthval]=daysecs*31 ARRAY of length 12 else endif monthval = monthval+1 6 endwhile while monthval <= 12 if monthval=1 or monthval=3 or monthval=5 or monthval=7 or monthval=8 or monthval=10 or monthval=12 if monthval <> 2 monthsecs[monthval]= daysecs*30 ARRAY of length 12 endif endif monthval = monthval+1 7 endwhile while monthval <= 12 if monthval=1 or monthval=3 or monthval=5 or monthval=7 or monthval=8 or monthval=10 or monthval=12 monthsecs[monthval]=daysecs*31 ARRAY of length 12 else endif monthval = monthval+1 8 endwhile while monthval <= 12 if monthval=1 or monthval=3 or monthval=5 or monthval=7 or monthval=8 or monthval=10 or monthval=12 monthsecs[monthval]=daysecs*31 ARRAY of length 12 else endif monthval = monthval+1 9 endwhile while monthval <= 12 if monthval=1 or monthval=3 or monthval=5 or monthval=7 or monthval=8 or monthval=10 or monthval=12 if monthval <> 2 monthsecs[monthval]= daysecs*30 ARRAY of length 12 endif endif monthval = monthval+1 10 endwhile while monthval <= 12 if monthval=1 or monthval=3 or monthval=5 or monthval=7 or monthval=8 or monthval=10 or monthval=12 monthsecs[monthval]=daysecs*31 ARRAY of length 12 else endif monthval = monthval+1 11 endwhile while monthval <= 12 if monthval=1 or monthval=3 or monthval=5 or monthval=7 or monthval=8 or monthval=10 or monthval=12 if monthval <> 2 monthsecs[monthval]= daysecs*30 ARRAY of length 12 endif endif monthval = monthval+1 12 endwhile while monthval <= 12 if monthval=1 or monthval=3 or monthval=5 or monthval=7 or monthval=8 or monthval=10 or monthval=12 monthsecs[monthval]=daysecs*31 ARRAY of length 12 else endif monthval = monthval+1 13 endwhile while monthval <= 12 monthsecs[2]=daysecs*28 ARRAY of length 12 local allmonths$,month_num allmonths$="JanFebMarAprMayJunJulAugSepOctNovDec" JanFebMarAprMayJunJulAugSepOctNovDec if fmt = 1 endif if fmt = 2 day$=var[9:10] 06 if val(day$) < 10 day$="0"+day$[2:2] 06 endif year$=var[21:24] 2020 hour$=var[12:13] 11 min$=var[15:16] 20 sec$=var[18:19] 12 month$=var[5:7] May month_num=(instr(allmonths$,month$)-1) / 3 + 1 5 month$=val$(month_num) 5 endif if fmt = 3 endif if val(year$) >= 1972 leapval = floor((val(year$)-1972)/4)+1 13 leapval = leapval*daysecs 1.1232e+006 else endif yeardif = val(year$)-1970 50 yearsecs = yeardif*secs_per_year 1.5768e+009 yearsecs = yearsecs + leapval 1.57792e+009 if (val(month$) = 2) and mod((val(year$)-1972),4)=0 endif monthval = 1 1 while monthval < val(month$) yearsecs = yearsecs + monthsecs[monthval] 1.5806e+009 monthval = monthval+1 2 endwhile while monthval < val(month$) yearsecs = yearsecs + monthsecs[monthval] 1.58302e+009 monthval = monthval+1 3 endwhile while monthval < val(month$) yearsecs = yearsecs + monthsecs[monthval] 1.5857e+009 monthval = monthval+1 4 endwhile while monthval < val(month$) yearsecs = yearsecs + monthsecs[monthval] 1.58829e+009 monthval = monthval+1 5 endwhile while monthval < val(month$) yearsecs = yearsecs + (daysecs*val(day$)) - daysecs 1.58872e+009 yearsecs = yearsecs + (hoursecs*val(hour$)) 1.58876e+009 yearsecs = yearsecs + (minsecs*val(min$)) 1.58876e+009 time_in_seconds=yearsecs+val(sec$) 1.58876e+009 return timenow = time_in_seconds 1.58876e+009 tunetime = filestat(_tunepath$+tunefilename$) ARRAY of length 11 sectime ,,,,,,tunetime,3 dim monthsecs,12 Array monthsecs(12) has been created secs_per_year = 60*60*24*365 3.1536e+007 daysecs = 60*60*24 86400 hoursecs = 60*60 3600 minsecs = 60 60 monthval=1 1 while monthval <= 12 if monthval=1 or monthval=3 or monthval=5 or monthval=7 or monthval=8 or monthval=10 or monthval=12 monthsecs[monthval]=daysecs*31 ARRAY of length 12 else endif monthval = monthval+1 2 endwhile while monthval <= 12 if monthval=1 or monthval=3 or monthval=5 or monthval=7 or monthval=8 or monthval=10 or monthval=12 if monthval <> 2 endif endif monthval = monthval+1 3 endwhile while monthval <= 12 if monthval=1 or monthval=3 or monthval=5 or monthval=7 or monthval=8 or monthval=10 or monthval=12 monthsecs[monthval]=daysecs*31 ARRAY of length 12 else endif monthval = monthval+1 4 endwhile while monthval <= 12 if monthval=1 or monthval=3 or monthval=5 or monthval=7 or monthval=8 or monthval=10 or monthval=12 if monthval <> 2 monthsecs[monthval]= daysecs*30 ARRAY of length 12 endif endif monthval = monthval+1 5 endwhile while monthval <= 12 if monthval=1 or monthval=3 or monthval=5 or monthval=7 or monthval=8 or monthval=10 or monthval=12 monthsecs[monthval]=daysecs*31 ARRAY of length 12 else endif monthval = monthval+1 6 endwhile while monthval <= 12 if monthval=1 or monthval=3 or monthval=5 or monthval=7 or monthval=8 or monthval=10 or monthval=12 if monthval <> 2 monthsecs[monthval]= daysecs*30 ARRAY of length 12 endif endif monthval = monthval+1 7 endwhile while monthval <= 12 if monthval=1 or monthval=3 or monthval=5 or monthval=7 or monthval=8 or monthval=10 or monthval=12 monthsecs[monthval]=daysecs*31 ARRAY of length 12 else endif monthval = monthval+1 8 endwhile while monthval <= 12 if monthval=1 or monthval=3 or monthval=5 or monthval=7 or monthval=8 or monthval=10 or monthval=12 monthsecs[monthval]=daysecs*31 ARRAY of length 12 else endif monthval = monthval+1 9 endwhile while monthval <= 12 if monthval=1 or monthval=3 or monthval=5 or monthval=7 or monthval=8 or monthval=10 or monthval=12 if monthval <> 2 monthsecs[monthval]= daysecs*30 ARRAY of length 12 endif endif monthval = monthval+1 10 endwhile while monthval <= 12 if monthval=1 or monthval=3 or monthval=5 or monthval=7 or monthval=8 or monthval=10 or monthval=12 monthsecs[monthval]=daysecs*31 ARRAY of length 12 else endif monthval = monthval+1 11 endwhile while monthval <= 12 if monthval=1 or monthval=3 or monthval=5 or monthval=7 or monthval=8 or monthval=10 or monthval=12 if monthval <> 2 monthsecs[monthval]= daysecs*30 ARRAY of length 12 endif endif monthval = monthval+1 12 endwhile while monthval <= 12 if monthval=1 or monthval=3 or monthval=5 or monthval=7 or monthval=8 or monthval=10 or monthval=12 monthsecs[monthval]=daysecs*31 ARRAY of length 12 else endif monthval = monthval+1 13 endwhile while monthval <= 12 monthsecs[2]=daysecs*28 ARRAY of length 12 local allmonths$,month_num allmonths$="JanFebMarAprMayJunJulAugSepOctNovDec" JanFebMarAprMayJunJulAugSepOctNovDec if fmt = 1 endif if fmt = 2 endif if fmt = 3 day$=val$(var[2]) 21 if val(day$) < 10 endif year$=val$(var[3]+1900) 2020 hour$=val$(var[4]) 8 min$=val$(var[5]) 24 month$=val$(var[1]) 2 endif if val(year$) >= 1972 leapval = floor((val(year$)-1972)/4)+1 13 leapval = leapval*daysecs 1.1232e+006 else endif yeardif = val(year$)-1970 50 yearsecs = yeardif*secs_per_year 1.5768e+009 yearsecs = yearsecs + leapval 1.57792e+009 if (val(month$) = 2) and mod((val(year$)-1972),4)=0 yearsecs = yearsecs - daysecs 1.57784e+009 endif monthval = 1 1 while monthval < val(month$) yearsecs = yearsecs + monthsecs[monthval] 1.58052e+009 monthval = monthval+1 2 endwhile while monthval < val(month$) yearsecs = yearsecs + (daysecs*val(day$)) - daysecs 1.58224e+009 yearsecs = yearsecs + (hoursecs*val(hour$)) 1.58227e+009 yearsecs = yearsecs + (minsecs*val(min$)) 1.58227e+009 time_in_seconds=yearsecs+val(sec$) 1.58227e+009 return tunetime = time_in_seconds 1.58227e+009 inifile$=_instpath$+"emf.ini" C:\msdchem\1\emf.ini if gcconfig = 1 pumptime = val(getinistring$(inifile$,sect$[4],"count")) 1.57306e+009 else endif endif if full = 0 endif while start <= end local limit,count temp$=inilabels$[start] Septum (Injections) sltemp$=sllabels$[start] Septum (Injections) if msconfig = 1 and gcconfig = 0 if msconfig = 1 and start > 3 if getiniint(_methpath$+_methfile$+"\acq.ctl","parameters","inlet") = 0 CheckEMFoptions temp$,FromTop,limit,count,pass if mused = 0 endif if value = 0 value = val(getinistring$(inifile$,sect$,"count")) 0 endif limit = val(getinistring$(inifile$,sect$,"limit")) -1 if increment = 1 and limit > 0 endif if value > limit and limit > 0 pass = 1 1 endif return else endif endif endif if pass = 0 endif start = start+1 2 endwhile while start <= end local limit,count temp$=inilabels$[start] Liner (Injections) sltemp$=sllabels$[start] Liner (Injections) if msconfig = 1 and gcconfig = 0 if msconfig = 1 and start > 3 if getiniint(_methpath$+_methfile$+"\acq.ctl","parameters","inlet") = 0 CheckEMFoptions temp$,FromTop,limit,count,pass if mused = 0 endif if value = 0 value = val(getinistring$(inifile$,sect$,"count")) 0 endif limit = val(getinistring$(inifile$,sect$,"limit")) -1 if increment = 1 and limit > 0 endif if value > limit and limit > 0 pass = 1 1 endif return else endif endif endif if pass = 0 endif start = start+1 3 endwhile while start <= end local limit,count temp$=inilabels$[start] Number of Injections (Total) sltemp$=sllabels$[start] Number of Injections (Total) if msconfig = 1 and gcconfig = 0 if msconfig = 1 and start > 3 if getiniint(_methpath$+_methfile$+"\acq.ctl","parameters","inlet") = 0 CheckEMFoptions temp$,FromTop,limit,count,pass if mused = 0 endif if value = 0 value = val(getinistring$(inifile$,sect$,"count")) 0 endif limit = val(getinistring$(inifile$,sect$,"limit")) -1 if increment = 1 and limit > 0 endif if value > limit and limit > 0 pass = 1 1 endif return else endif endif endif if pass = 0 endif start = start+1 4 endwhile while start <= end local limit,count temp$=inilabels$[start] Pump Oil (Days) sltemp$=sllabels$[start] Pump Oil (Days) if msconfig = 1 and gcconfig = 0 if msconfig = 1 and start > 3 if start = 6 if start = 5 count = (timenow-pumptime)/(3600*24) 181.759 endif endif CheckEMFoptions temp$,,limit,count,pass,msused if mused = 0 endif if value = 0 endif limit = val(getinistring$(inifile$,sect$,"limit")) 90 if increment = 1 and limit > 0 endif if value > limit and limit > 0 pass = 0 0 else endif return else endif endif if pass = 0 if emferr = 0 sprint emferr$ using emferr$+sltemp$ emferr=1 1 else endif doLB_EMFnotice sltemp$,limit,count local lbprint$,notify$ notify$=_$(17301,"and Notification given") and Notification given if check("macro","RunSequence") = 1 endif sprint lbprint$ using _$(17303,"% at #, limit (#) has been reached ")+notify$,mode$,count,limit lbaddentry _$(17304,"EMF"),lbprint$ return endif start = start+1 5 endwhile while start <= end local limit,count temp$=inilabels$[start] Tune Time (Hours) sltemp$=sllabels$[start] Tune Time (Hours) if msconfig = 1 and gcconfig = 0 if msconfig = 1 and start > 3 if start = 6 if start = 5 count = (timenow-tunetime)/3600 1802.94 else endif endif CheckEMFoptions temp$,,limit,count,pass,msused if mused = 0 endif if value = 0 endif limit = val(getinistring$(inifile$,sect$,"limit")) 48 if increment = 1 and limit > 0 endif if value > limit and limit > 0 pass = 0 0 else endif return else endif endif if pass = 0 if emferr = 0 sprint emferr$ using emferr$+", "+sltemp$ endif doLB_EMFnotice sltemp$,limit,count local lbprint$,notify$ notify$=_$(17301,"and Notification given") and Notification given if check("macro","RunSequence") = 1 endif sprint lbprint$ using _$(17303,"% at #, limit (#) has been reached ")+notify$,mode$,count,limit lbaddentry _$(17304,"EMF"),lbprint$ return endif start = start+1 6 endwhile while start <= end local limit,count temp$=inilabels$[start] EM Voltage sltemp$=sllabels$[start] EM Voltage if msconfig = 1 and gcconfig = 0 if msconfig = 1 and start > 3 if start = 6 count = emvalue 1623.53 else endif CheckEMFoptions temp$,,limit,count,pass,msused if mused = 0 endif if value = 0 endif limit = val(getinistring$(inifile$,sect$,"limit")) 2500 if increment = 1 and limit > 0 endif if value > limit and limit > 0 pass = 1 1 endif return else endif endif if pass = 0 endif start = start+1 7 endwhile while start <= end if emferr = 1 if check("variable","msinsctlstart") = 1 or check("macro","runsequence") = 0 alert emferr$,3 endif else endif endif if auto = 0 and discard = 0 endif remove labels$,inilabels$,sect$,buttons$,count$,limit$ Removed variable LABELS$ Removed variable INILABELS$ Removed variable SECT$ Removed variable BUTTONS$ Removed variable COUNT$ Removed variable LIMIT$ remove ChangeEMFoption,CheckEMFoption,WriteEMFsection Removed macro CHANGEEMFOPTION Undefined symbol: CHECKEMFOPTION Undefined symbol: WRITEEMFSECTION remove msconfig,msused,gcconfig Removed variable MSCONFIG Removed variable MSUSED Removed variable GCCONFIG remove inifile$,InitEMFutil Removed variable INIFILE$ Removed macro INITEMFUTIL remove msinsctlstart Removed variable MSINSCTLSTART if _ismsQ1 = 1 MS_FW$="" ms_version$="" if _ismsQ1 = 1 versionchk local id1$,id2$,q$,type,i,l if (getinfo("offline") = 1) endif on_error return scquery "*idn?", q$ AGILENT TECHNOLOGIES,5975,US10551021,5.02.12 on_error generate_error ms_version$=q$ AGILENT TECHNOLOGIES,5975,US10551021,5.02.12 ms_fw$ = ms_version$[reverseinstr(ms_version$,",")+1:len(ms_version$)] 5.02.12 if _mstype = 4 endif if _mstype = 5 expectedFW$="5.00.xx" 5.00.xx if instr(q$,expectedFW$)=0 print _$(28701,"Warning, Unexpected version of firmware.") Warning, Unexpected version of firmware. macro _exepath$+"checkfrm.mac",go Macro(s) in C:\msdchem\MSexe\checkfrm.mac loaded. CHECKFIRMWARE hardrive$="" checkhard _exepath$+"firmware\"+"5973N"+"\update.lst",hardrive$ closeit on_error close #11 return open f$ for input as #11 input #11,a$ while instr(upper$(A$),"MSSC.O")=0 and EOF(11)<>1 input #11,a$ endwhile while instr(upper$(A$),"MSSC.O")=0 and EOF(11)<>1 input #11,a$ endwhile while instr(upper$(A$),"MSSC.O")=0 and EOF(11)<>1 input #11,a$ endwhile while instr(upper$(A$),"MSSC.O")=0 and EOF(11)<>1 input #11,a$ endwhile while instr(upper$(A$),"MSSC.O")=0 and EOF(11)<>1 input #11,a$ endwhile while instr(upper$(A$),"MSSC.O")=0 and EOF(11)<>1 input #11,a$ endwhile while instr(upper$(A$),"MSSC.O")=0 and EOF(11)<>1 input #11,a$ endwhile while instr(upper$(A$),"MSSC.O")=0 and EOF(11)<>1 input #11,a$ endwhile while instr(upper$(A$),"MSSC.O")=0 and EOF(11)<>1 input #11,a$ endwhile while instr(upper$(A$),"MSSC.O")=0 and EOF(11)<>1 input #11,a$ endwhile while instr(upper$(A$),"MSSC.O")=0 and EOF(11)<>1 input #11,a$ endwhile while instr(upper$(A$),"MSSC.O")=0 and EOF(11)<>1 input #11,a$ endwhile while instr(upper$(A$),"MSSC.O")=0 and EOF(11)<>1 input #11,a$ endwhile while instr(upper$(A$),"MSSC.O")=0 and EOF(11)<>1 input #11,a$ endwhile while instr(upper$(A$),"MSSC.O")=0 and EOF(11)<>1 input #11,a$ endwhile while instr(upper$(A$),"MSSC.O")=0 and EOF(11)<>1 input #11,a$ endwhile while instr(upper$(A$),"MSSC.O")=0 and EOF(11)<>1 input #11,a$ endwhile while instr(upper$(A$),"MSSC.O")=0 and EOF(11)<>1 input #11,a$ endwhile while instr(upper$(A$),"MSSC.O")=0 and EOF(11)<>1 input #11,a$ endwhile while instr(upper$(A$),"MSSC.O")=0 and EOF(11)<>1 input #11,a$ endwhile while instr(upper$(A$),"MSSC.O")=0 and EOF(11)<>1 input #11,a$ endwhile while instr(upper$(A$),"MSSC.O")=0 and EOF(11)<>1 input #11,a$ endwhile while instr(upper$(A$),"MSSC.O")=0 and EOF(11)<>1 if instr(upper$(A$),"MSSC.O")>=1 a$=a$[instr(a$,";")+1:len(a$)] 5.02.12 local i i=instr(a$," ") 0 if i>1 endif else endif closeit on_error close #11 return return checkmsd MS_FW$ scquery "*idn?",b$ AGILENT TECHNOLOGIES,5975,US10551021,5.02.12 local i,j,k i=instr(b$,",") 21 b$=b$[i+1:len(b$)] 5975,US10551021,5.02.12 i=instr(b$,",") 5 b$=b$[i+1:len(b$)] US10551021,5.02.12 i=instr(b$,",") 11 b$=b$[i+1:len(b$)] 5.02.12 return expectedFW$="5.01.63" 5.01.63 if eqstr(MS_FW$,expectedFW$)=1 endif expectedFW$="5.01.90" 5.01.90 expectedFW$="5.01.98" 5.01.98 expectedFW$="5.01.99" 5.01.99 expectedFW$="5.02.01" 5.02.01 expectedFW$="5.02.02" 5.02.02 expectedFW$="5.02.03" 5.02.03 expectedFW$="5.02.04" 5.02.04 expectedFW$="5.02.06" 5.02.06 expectedFW$="5.02.07" 5.02.07 expectedFW$="5.02.08" 5.02.08 expectedFW$="5.02.10" 5.02.10 expectedFW$="5.02.12" 5.02.12 if eqstr(MS_FW$,expectedFW$)=1 print _$(16583,"Expected firmware revision ("),expectedFW$,_$(16584,") verified.") Expected firmware revision ( 5.02.12 ) verified. return endif endif local a$,bootp,lastprint$ scquery "config:inst:cntl?",a$ NORMAL if eqstr(a$,"AVOID")=1 endif return endif remove versionchk Removed macro VERSIONCHK pumptype on_error scquery "config:info:opts:desc? 1",e$ TURBO_PUMP varlock off Variable locking is OFF if eqstr(upper$(e$),"DIFF_PUMP")=1 _isQ1diff=0 0 _isQ1turbo=1 1 endif varlock on Variable locking is ON return LUIMessage "ChemStation Loading",,2 local t$, blank$, max, temp$,single if bytelen(j)<>len(j) endif if bytelen(k) <> len(k) endif max = 20 20 if (getinfo("ms_type") < 4) or (getinfo("ms_type") > 5) or (getinfo("Offline") = 1) endif if instr(j,"'") > 0 or instr(k,"'") > 0 endif if cntl = 0 endif if cntl = 1 endif if cntl = 2 t$ = time$() Wed May 06 11:20:15 2020 k = "on "+ t$[1:len(t$)-8] on Wed May 06 11:20 endif if cntl = 3 endif blank$ = "                    "                      if (len(j) < max) j = j + blank$[1:max - len(j)] ChemStation Loading  else endif k = k[1:max] on Wed May 06 11:20 if single = 0 temp$ = "lui:msg:recv '" + j + k + "'" lui:msg:recv 'ChemStation Loading on Wed May 06 11:20' else endif scwrite temp$ if check("variable","showLUI")=1 endif return macro _exepath$+"lagfact.mac" Macro(s) in C:\msdchem\MSexe\lagfact.mac loaded. check_lagfactors local a$,b$,c$ scquery "msc:parm:set? mald0",a$ -0.0285 scquery "msc:parm:set? mald1",b$ 8e-05 scquery "msc:parm:set? mald2",c$ 0 local sa$,sb$,sc$,fa$,fb$,fc$ sa$="-0.0335226" -0.0335226 sb$="0.000139265" 0.000139265 sc$="-1.09564E-09" -1.09564E-09 fa$="-0.0285" -0.0285 fb$="8e-05" 8e-05 fc$="0" 0 if abs(val(a$)-0.0000)<10e-20 and abs(val(b$)-0.0000)<10e20 and abs(val(c$)-0.00000)<10e-20 if abs(val(a$)- -0.0277849)<10e-20 and abs(val(b$)-0.000137444)<10e20 and abs(val(c$)-5.86929E-09)<10e-20 scquery "config:abund:amp?",amp$ LOG02,126,52,2,CAL,\255\255CN01475\0 if instr(upper$(amp$),"LOG01")=1 endif if instr(upper$(amp$),"LOG02")=1 if eqstr(a$,fa$)=1 and eqstr(b$,fb$)=1 and eqstr(c$,fc$)=1 print _$(19985,"Fast lag factors are currently being used.") Fast lag factors are currently being used. else endif endif endif endif check4mismatch local a$,b$,c$,d$,e$,f$,g$ scquery "config:abund:amp?",a$ LOG02,126,52,2,CAL,\255\255CN01475\0 scquery "config:info:opts:desc? 1",e$ TURBO_PUMP scquery "config:info:opts:desc? 2",b$ 5975HI_SIDEBOARD scquery "config:info:opts:desc? 3",c$ NO_FCB scquery "config:info:opts:desc? 4",d$ NO_VGAUGE scquery "config:info:opts:desc? 5",f$ 5975_MAINBOARD g$="unexpected" unexpected sho_sc g$ local a$ scquery "config:info:sc?",a$ SC3P,40.0,32M,0K,64M if instr(upper$(a$),"SC3B")=1 if instr(upper$(a$),"SC3P")=1 type$="SC3+" SC3+ else endif endif return setinistring("","PCS,"+val$(_instnum),"Pump",e$) 1 setinistring("","PCS,"+val$(_instnum),"Amp",a$) 1 setinistring("","PCS,"+val$(_instnum),"SIDEBOARD",b$) 1 setinistring("","PCS,"+val$(_instnum),"CI",c$) 1 setinistring("","PCS,"+val$(_instnum),"Gauge",d$) 1 setinistring("","PCS,"+val$(_instnum),"Mainboard",f$) 1 setinistring("","PCS,"+val$(_instnum),"Smartcard",g$) 1 if instr(upper$(a$),"LOG01")>0 AND instr(upper$(b$),_$(19980,"5973N_SIDEBOARD"))>0 and getinfo("ms_type")=4 endif if instr(upper$(a$),"LOG02")>0 AND instr(upper$(b$),"5973NFS_SIDEBOARD")>0 and getinfo("ms_type")=4 endif if instr(upper$(a$),"LOG02")>0 AND instr(upper$(b$),"5975HI_SIDEBOARD")>0 and getinfo("ms_type")=5 return dtsn if getinfo("offline")=1 or getinfo("ms_type")=99 endif if len(newsn$)>0 endif local sn$,bad bad=1 1 sn$="" readsn sn$ scquery "config:id:desc? serialnum",sn$ US10551021 return checksn sn$,bad bad=1 1 if len(c$)=10 a$=c$[1:2] US if eqstr(a$,"US")=1 or eqstr(a$,"DE")=1 or eqstr(a$,"CN")=1 a$=c$[3:10] 10551021 a=val(c$[3:6]) 1055 if a>0 bad=0 0 endif a=val(C$[9:10]) 21 if a>0 bad=0 0 endif endif endif return if bad=1 and interactive=1 endif msd_serial_n$="" readsn msd_serial_n$ scquery "config:id:desc? serialnum",sn$ US10551021 return return return clean_lagfactors remove loop4lag,closit,determine_lagfactors,show_lagfactors,flash_lagfactors Removed macro LOOP4LAG Removed macro CLOSIT Removed macro DETERMINE_LAGFA Removed macro SHOW_LAGFACTORS Removed macro FLASH_LAGFACTOR remove zero_lagfactors,old_lagfactors,bad_lagfactors,new_lagfactors,check_lagfactors Removed macro ZERO_LAGFACTORS Removed macro OLD_LAGFACTORS Removed macro BAD_LAGFACTORS Removed macro NEW_LAGFACTORS Removed macro CHECK_LAGFACTOR remove clean_lagfactors Removed macro CLEAN_LAGFACTOR LUIIdleMessage LUIMessage "MS locked by " + _hostname$, "Idle" local t$, blank$, max, temp$,single if bytelen(j)<>len(j) endif if bytelen(k) <> len(k) endif max = 20 20 if (getinfo("ms_type") < 4) or (getinfo("ms_type") > 5) or (getinfo("Offline") = 1) endif if instr(j,"'") > 0 or instr(k,"'") > 0 endif if cntl = 0 endif if cntl = 1 endif if cntl = 2 endif if cntl = 3 endif blank$ = "                    "                      if (len(j) < max) j = j[1:max] MS locked by ALR-232 endif k = k[1:max] Idle if single = 0 temp$ = "lui:msg:recv '" + j + k + "'" lui:msg:recv 'MS locked by ALR-232Idle' else endif scwrite temp$ if check("variable","showLUI")=1 endif return return if _mstype = 5 macro _exepath$+"flow.mac" Macro(s) in C:\msdchem\MSexe\flow.mac loaded. endif endif if getinfo("inlet_gc")=0 or getinfo("inlet_gc")=4 gctm local temp,allmonths$,t$,hh$,mm$,ss$,dd$,mo$,yy$,gctstr$,gcdstr$ if getinfo("GC_ID")=0 or eqstr(_appname$,"MSINSCTL")=0 or getinfo("offline")=1 endif t$=time$() Wed May 06 11:20:15 2020 temp=val(t$[12:13]) 11 if temp < 10 hh$=val$(temp) 11 endif mm$=t$[15:16] 20 ss$=t$[18:19] 15 temp=val(t$[9:10]) 6 if temp < 10 dd$="0"+val$(temp) 06 else endif mo$=t$[5:7] May allmonths$="JanFebMarAprMayJunJulAugSepOctNovDec" JanFebMarAprMayJunJulAugSepOctNovDec temp=(instr(allmonths$,mo$)-1) / 3 + 1 5 if temp < 10 mo$="0"+val$(temp) 05 else endif yy$=t$[23:24] 20 gctstr$=hh$+mm$+ss$ 112015 gcdstr$=dd$+mo$+yy$ 060520 evaluate "writemodule """+gcmod$+""",""GCTM "+gctstr$+","+gcdstr$+"""" writemodule "68GC","GCTM 112015,060520" print _$(28694,"GC Time set to "),t$ GC Time set to  Wed May 06 11:20:15 2020 remove gctm Removed macro GCTM endif endif GetInstInfo host_ipaddr$=getinistring$("","pcs,"+val$(_instnum),"host_ip") 164.123.170.193 ms_ipaddr$=getinistring$("","pcs,"+val$(_instnum),"ms_ip") 10.1.1.102 serialno$=getinistring$("","pcs,"+val$(_instnum),"serial_n") US55132077 gc_ipaddr$=getinistring$("","pcs,"+val$(_instnum),"gc_ip") 10.1.1.101 gc_fw$="" gc_sn$="" if getinfo("offline")=1 if _ismsQ1 = 1 then scquery "config:id:desc? serialnum",msd_serial_n$ US10551021 endif if _ismsQQQ = 1 or _ismsQTOF = 1 then endif endif if len(ms_ipaddr$) = 0 endif if len(gc_ipaddr$) = 0 if getinfo("gc_id") <> 0 or _isgc78xx = 1 if _isgc78xx=1 gc_fw$=sendmodule$(gcmod$,"CCID") CCID HP 6890 GC  REV N.05.05 gc_fw$=gc_fw$[6:len(gc_fw$)] HP 6890 GC  REV N.05.05 gc_sn$=sendmodule$(gcmod$,"DTSN ?") DTSN US10551021 endif endif endif if len(serialno$) = 0 endif return if _ismsQ1 = 1 local foo setuser 24,foo 6.650047e+001 if abs(foo)>10000 endif endif if _cfrmode = 1 endif if _enhapp = 5 endif if _ionstate=1 endif if len(AddonPath$) <> 0 then endif macro _exepath$+"setpu.mac",go Macro(s) in C:\msdchem\MSexe\setpu.mac loaded. SET_PRESS_UNITS local fore,hvac if getinfo("offline")=1 or _isms = 0 endif if _ismsQQQ = 1 or _ismsQTOF = 1 endif fore =val(getinistring$("","PCS","Foreline")) 1009 hvac=val(getinistring$("","PCS","HighVac")) 1014 cg$="N2" N2 a$= "config:id:desc carrier_g,"+"'"+cg$+"'" config:id:desc carrier_g,'N2' scwrite a$ if fore = 1009 gosetf "mTorr" if _mstype = 4 or _mstype = 5 scwrite "config:id:desc uom_vacpf,"+"'"+unit$+"'" endif varlock off Variable locking is OFF _unitsFP$=unit$ mTorr varlock on Variable locking is ON return else endif if hvac = 1014 gosetq "Torr" if _mstype = 4 or _mstype = 5 scwrite "config:id:desc uom_vacpq,"+"'"+unit$+"'" endif varlock off Variable locking is OFF _unitsHV$=unit$ Torr varlock on Variable locking is ON return else endif remove gosetf, gosetq,set_press_units Removed macro GOSETF Removed macro GOSETQ Removed macro SET_PRESS_UNITS if _methstate=1 endif if check("variable","methcomment0$")=0 endif if check("variable","methcomment1$")=0 methcomment1$="" endif if check("variable","methcomment2$")=0 methcomment2$="" endif if check("variable","methcomment3$")=0 methcomment3$="" endif varlock off Variable locking is OFF _daerr=0 0 varlock on Variable locking is ON if _isHS=1 endif setSSSLT local inifile$,inisect$ inifile$=_topinifile$ C:\msdchem\MSMACROS\RFGTOP.INI inisect$="SSSLT" SSSLT a$=getinistring$(inifile$,inisect$,"COL1") T if len(a$)<>0 remove setssslt Removed macro SETSSSLT remove setSSSLT Undefined symbol: SETSSSLT if _ecminstalled=1 endif inst_startup=0 0 if _ismsQ1 macro _exepath$+"bake.mac" Macro(s) in C:\msdchem\MSexe\bake.mac loaded. endif if check("variable","_dotnet")=1 endif LocateMHDAComponent MHQualExePath$="" MHQuantExePath$="" if _enhapp <> 666 return macro _exepath$+"mems.mac",go Macro(s) in C:\msdchem\MSexe\mems.mac loaded. AUTOMEM local NOmemstest NOmemstest=val(getinistring$("","pcs","NOMEMSTEST")) 0 phmemok=0 0 availok=0 0 icmemok=0 0 swapbnd=0 0 if NOmemstest=0 memstats phmemok,availok,icmemok,swapbnd memoryusage local fmt1$,fmt2$,fmt3$,fmt4$,fmt5$,k,a,i k=1024 1024 i=0 0 a=mem_sysperf ARRAY of length 13 ctotal=a[i+1] 1.16098e+006 climit=a[i+2] 4.76475e+006 c_peak=a[i+3] 1.19338e+006 ptotal=a[i+4] 4.14216e+006 pavail=a[i+5] 2.89215e+006 scache=a[i+6] 2.94549e+006 ktotal=a[i+7] 301064 kpaged=a[i+8] 128474 knpage=a[i+9] 172590 p_size=a[i+10] 4096 handle=a[i+11] 84901 proces=a[i+12] 202 thread=a[i+13] 2963 fmt1$="     Private: #;  MSINSCTL: #;     Peak: #;  Pagefaults: #"      Private: #;  MSINSCTL: #;     Peak: #;  Pagefaults: # fmt2$="Commit Total: #;  Limit: #;     Peak: #" Commit Total: #;  Limit: #;     Peak: # fmt3$="Memory Total: #:  Avail: #;    Cache: #" Memory Total: #:  Avail: #;    Cache: # fmt4$="Kernal Total: #:  Pages: #; NotPaged:  #;  Page Size:  #" Kernal Total: #:  Pages: #; NotPaged:  #;  Page Size:  # fmt5$="Handles: #;  Processes: # ;  Threads:  #" Handles: #;  Processes: # ;  Threads:  # print using fmt1$,mem_private/k,mem_workset/k,mem_peakworkset/k,mem_pagefaults      Private: 18856;  MSINSCTL: 37400;     Peak: 37864;  Pagefaults: 16904 print using fmt2$,ctotal,climit,c_peak Commit Total: 1160984;  Limit: 4764747;     Peak: 1193380 print using fmt3$,ptotal,pavail,scache Memory Total: 4142155:  Avail: 2892148;    Cache: 2945486 print using fmt4$,ktotal,kpaged,knpage,p_size Kernal Total: 301064:  Pages: 128474; NotPaged:  172590;  Page Size:  4096 print using fmt5$,handle,proces,thread Handles: 84901;  Processes: 202 ;  Threads:  2963 domemrpt phmemok,availok,icmemok, local f$ ,kbyte,wordsize wordsize=4 4 kbyte=1024 1024 f$=_instpath$+"Resources.txt" C:\msdchem\1\Resources.txt closit on_error close #13 File 13 is not open  return open f$ for output as #13 print using #13,"  Resource Report  %/",time$() print #13,"" print using #13,"       MSINSTCTL: ######## /",mem_workset/kbyte print using #13,"         Virtual: ######## /",mem_private/kbyte print using #13,"            Peak: ######## /",mem_peakworkset/kbyte print using #13,"      PageFaults: ######## /",mem_pagefaults print #13,"" print using #13,"  Physical Total: ######## /",ptotal*wordsize print using #13,"  Physical Avail: ######## /",pavail*wordsize print using #13,"           Cache: ######## /",scache*wordsize print #13,"" print using #13,"         Handles: ######## /",handle print using #13,"         Process: ######## /",proces print using #13,"         Threads: ######## /",thread print #13,"" print using #13,"    Commit Total: ######## /",ctotal*wordsize print using #13,"    Commit Limit: ######## /",climit*wordsize print using #13,"    Commit  Peak: ######## /",c_peak*wordsize print #13," " print using #13,"    Kernel Total: ######## /",ktotal*wordsize print using #13,"    Kernel Paged: ######## /",kpaged*wordsize print using #13,"    Kernel NPage: ######## /",knpage*wordsize print using #13,"    Size of Page: ######## /",p_size print #13,"" phmemok=1 1 if ptotal*wordsize < 524000 endif availok=1 1 swapbnd=1 1 if (0 < ptotal) if (ctotal/ptotal) > 0.8 endif endif local maxworkset maxworkset=450000 450000 if _ismsQQQ=1 endif if check("variable","_ismsTOF")=1 if _ismsTOF=1 endif endif if _ismsQTOF=1 endif if _ismsTRAP=1 endif icmemok=1 1 if (mem_workset/kbyte) > maxworkset endif print using #13,"             Physical Memory OK 0\/1:  #   1=OK, 0=bad/",phmemok print using #13,"            Available Memory OK 0\/1:  # /",availok print using #13,"              Not Swap Bound OK 0\/1:  # /",swapbnd print using #13,"   Instrument Control Memory OK 0\/1:  # /",icmemok print #13,"" print #13," To disable memory test, set the following entry " print #13," into the [PCS] section of <windir>\MSDCHEM.INI:" print #13,"" print #13,"     [PCS]" print #13,"     NOMEMSTEST=1" print #13,"" closit on_error close #13 return f$=_instpath$+"Resources.csv" C:\msdchem\1\Resources.csv filesize f$ open f$ for append as #13 if size<10 endif print using #13,"#,#,#,#,",mem_workset/kbyte, mem_private/kbyte, mem_peakworkset/kbyte, mem_pagefaults print using #13,"#,#,#," ,ptotal*wordsize, pavail*wordsize, scache*wordsize print using #13,"#,#,#," ,handle,proces,thread, print using #13,"#,#,#," ,ctotal*wordsize, climit*wordsize, c_peak*wordsize print using #13,"#,#,#,#,",ktotal*wordsize, kpaged*wordsize, knpage*wordsize, p_size print using #13,"%,%,#,#,#,#/" ,_datafile$,time$(),phmemok,availok,swapbnd,icmemok closit on_error close #13 return print "" return return else endif return mems_start if phmemok=0 endif if availok=0 endif return set_IC_logging if inst_startup = 1 or check("macro","RunSequence") endif filesize _InstPath$+"MSINSCTL.LOG" if size>1000000 logging 1,_InstPath$+"MSINSCTL.LOG",0,0,1,
Children
No Data
Was this helpful?