;UI.Utils.RtnFind.MainForm.5 ;(C)InterSystems, generated for class UI.Utils.RtnFind.MainForm. Do NOT edit. 11/07/2002 09:27AM ;;7C9FD9F4074C5F60;UI.Utils.RtnFind.MainForm q ; #classcontext UI.Utils.RtnFind.MainForm #; method code import packages begin #import %Library #import UI.Utils.RtnFind #; method code import packages end #; method code include files begin #include %Const #include %occExtent #include %occInclude #include KeyCodesCNTs #include MakovaDrawTextCnts #; method code include files end chkCaseSensitiveSetObject(%this,newvalue) ; i r%chkCaseSensitive=$$$NULLOREF s:i%chkCaseSensitive'=$$$oidPrimary(newvalue) $$$objModBit(##this,18)=1 s i%chkCaseSensitive=$$$oidPrimary(newvalue) QUIT $$$OK n sc,oid s sc=..chkCaseSensitive.%GetSwizzleObject(0,.oid) q:$$$ISERR(sc) sc s:oid'=newvalue $$$objModBit(##this,18)=1 i newvalue'="",oid=newvalue QUIT $$$OK n temp $$$objReferenceListRemove(r%chkCaseSensitive,%this,temp) do ..chkCaseSensitive.%Close() s r%chkCaseSensitive=$$$NULLOREF s i%chkCaseSensitive=$$$oidPrimary(newvalue) QUIT $$$OK q "" chkCaseSensitiveSetObjectId(%this,newid) ; q ..chkCaseSensitiveSetObject($$$oidForm(newid)) chkCaseSensitiveUnSwizzle(%this) ; q:r%chkCaseSensitive=$$$NULLOREF n sc s sc=..chkCaseSensitiveResetObject() q:$$$ISERR(sc) sc n temp $$$objReferenceListRemove(r%chkCaseSensitive,%this,temp) d ..chkCaseSensitive.%Close() s r%chkCaseSensitive=$$$NULLOREF QUIT $$$OK q "" chkIgnoreSysClassesGet(%this) ; i r%chkIgnoreSysClasses'=$$$NULLOREF q r%chkIgnoreSysClasses n oid,oref s oid=i%chkIgnoreSysClasses s oid=$$$oidForm(oid) s oref=##class(%Library.TMCheckBox).%Open(oid) i oref=$$$NULLOREF q $$$NULLOREF $$$objReferenceListAdd(oref,%this) s r%chkIgnoreSysClasses=oref q r%chkIgnoreSysClasses q "" chkIgnoreSysClassesGetObject(%this,force) s force=$g(force,0) q:r%chkIgnoreSysClasses=$$$NULLOREF $s(i%chkIgnoreSysClasses="":"",1:$lb(i%chkIgnoreSysClasses_"")) n oid q:$$$ISOK(..chkIgnoreSysClasses.%GetSwizzleObject(force,.oid)) oid q "" q "" chkIgnoreSysClassesGetObjectId(%this,force) s force=$g(force,0) q $$$oidPrimary(..chkIgnoreSysClassesGetObject(force)) chkIgnoreSysClassesIsModified(%this) ; q $$$objModBit(##this,19) #classmethod chkIgnoreSysClassesIsValid(value) ; q 1 #endclassmethod chkIgnoreSysClassesNewObject(%this) ; n newobject s newobject=##class(%Library.TMCheckBox).%New("") i newobject=$$$NULLOREF q newobject s ..chkIgnoreSysClasses=newobject d newobject.%Close() q newobject q "" chkIgnoreSysClassesResetObject(%this,force) s force=$g(force,0) n sc,newvalue i r%chkIgnoreSysClasses'=$$$NULLOREF s sc=..chkIgnoreSysClasses.%GetSwizzleObject(force,.newvalue) q:$$$ISERR(sc) sc s:i%chkIgnoreSysClasses'=$$$oidPrimary(newvalue) $$$objModBit(##this,19)=1 s i%chkIgnoreSysClasses=$$$oidPrimary(newvalue) QUIT $$$OK q "" chkIgnoreSysClassesSet(%this,newvalue) ; i newvalue'=$$$NULLOREF,'$$$objExists(newvalue) q $$$ERROR($$$OrefInvalid,newvalue) i newvalue'=$$$NULLOREF,r%chkIgnoreSysClasses=newvalue q $$$OK i r%chkIgnoreSysClasses'=$$$NULLOREF n temp $$$objReferenceListRemove(r%chkIgnoreSysClasses,%this,temp) d ..chkIgnoreSysClasses.%Close() s:(r%chkIgnoreSysClasses'=newvalue)!((newvalue=$$$NULLOREF)&(i%chkIgnoreSysClasses'="")) $$$objModBit(##this,19)=1 s r%chkIgnoreSysClasses=newvalue,i%chkIgnoreSysClasses=$$$NULLOID i newvalue=$$$NULLOREF QUIT $$$OK $$$objReferenceListAdd(r%chkIgnoreSysClasses,%this) $$$IncrementReferenceCount(newvalue) QUIT $$$OK q "" chkIgnoreSysClassesSetModified(%this,newvalue) ; s $$$objModBit(##this,19)=''newvalue QUIT $$$OK q "" chkIgnoreSysClassesSetObject(%this,newvalue) ; i r%chkIgnoreSysClasses=$$$NULLOREF s:i%chkIgnoreSysClasses'=$$$oidPrimary(newvalue) $$$objModBit(##this,19)=1 s i%chkIgnoreSysClasses=$$$oidPrimary(newvalue) QUIT $$$OK n sc,oid s sc=..chkIgnoreSysClasses.%GetSwizzleObject(0,.oid) q:$$$ISERR(sc) sc s:oid'=newvalue $$$objModBit(##this,19)=1 i newvalue'="",oid=newvalue QUIT $$$OK n temp $$$objReferenceListRemove(r%chkIgnoreSysClasses,%this,temp) do ..chkIgnoreSysClasses.%Close() s r%chkIgnoreSysClasses=$$$NULLOREF s i%chkIgnoreSysClasses=$$$oidPrimary(newvalue) QUIT $$$OK q "" chkIgnoreSysClassesSetObjectId(%this,newid) ; q ..chkIgnoreSysClassesSetObject($$$oidForm(newid)) chkIgnoreSysClassesUnSwizzle(%this) ; q:r%chkIgnoreSysClasses=$$$NULLOREF n sc s sc=..chkIgnoreSysClassesResetObject() q:$$$ISERR(sc) sc n temp $$$objReferenceListRemove(r%chkIgnoreSysClasses,%this,temp) d ..chkIgnoreSysClasses.%Close() s r%chkIgnoreSysClasses=$$$NULLOREF QUIT $$$OK q "" chkMatchWholeStrGet(%this) ; i r%chkMatchWholeStr'=$$$NULLOREF q r%chkMatchWholeStr n oid,oref s oid=i%chkMatchWholeStr s oid=$$$oidForm(oid) s oref=##class(%Library.TMCheckBox).%Open(oid) i oref=$$$NULLOREF q $$$NULLOREF $$$objReferenceListAdd(oref,%this) s r%chkMatchWholeStr=oref q r%chkMatchWholeStr q "" chkMatchWholeStrGetObject(%this,force) s force=$g(force,0) q:r%chkMatchWholeStr=$$$NULLOREF $s(i%chkMatchWholeStr="":"",1:$lb(i%chkMatchWholeStr_"")) n oid q:$$$ISOK(..chkMatchWholeStr.%GetSwizzleObject(force,.oid)) oid q "" q "" chkMatchWholeStrGetObjectId(%this,force) s force=$g(force,0) q $$$oidPrimary(..chkMatchWholeStrGetObject(force)) chkMatchWholeStrIsModified(%this) ; q $$$objModBit(##this,20) #classmethod chkMatchWholeStrIsValid(value) ; q 1 #endclassmethod chkMatchWholeStrNewObject(%this) ; n newobject s newobject=##class(%Library.TMCheckBox).%New("") i newobject=$$$NULLOREF q newobject s ..chkMatchWholeStr=newobject d newobject.%Close() q newobject q "" chkMatchWholeStrResetObject(%this,force) s force=$g(force,0) n sc,newvalue i r%chkMatchWholeStr'=$$$NULLOREF s sc=..chkMatchWholeStr.%GetSwizzleObject(force,.newvalue) q:$$$ISERR(sc) sc s:i%chkMatchWholeStr'=$$$oidPrimary(newvalue) $$$objModBit(##this,20)=1 s i%chkMatchWholeStr=$$$oidPrimary(newvalue) QUIT $$$OK q "" chkMatchWholeStrSet(%this,newvalue) ; i newvalue'=$$$NULLOREF,'$$$objExists(newvalue) q $$$ERROR($$$OrefInvalid,newvalue) i newvalue'=$$$NULLOREF,r%chkMatchWholeStr=newvalue q $$$OK i r%chkMatchWholeStr'=$$$NULLOREF n temp $$$objReferenceListRemove(r%chkMatchWholeStr,%this,temp) d ..chkMatchWholeStr.%Close() s:(r%chkMatchWholeStr'=newvalue)!((newvalue=$$$NULLOREF)&(i%chkMatchWholeStr'="")) $$$objModBit(##this,20)=1 s r%chkMatchWholeStr=newvalue,i%chkMatchWholeStr=$$$NULLOID i newvalue=$$$NULLOREF QUIT $$$OK $$$objReferenceListAdd(r%chkMatchWholeStr,%this) $$$IncrementReferenceCount(newvalue) QUIT $$$OK q "" chkMatchWholeStrSetModified(%this,newvalue) ; s $$$objModBit(##this,20)=''newvalue QUIT $$$OK q "" chkMatchWholeStrSetObject(%this,newvalue) ; i r%chkMatchWholeStr=$$$NULLOREF s:i%chkMatchWholeStr'=$$$oidPrimary(newvalue) $$$objModBit(##this,20)=1 s i%chkMatchWholeStr=$$$oidPrimary(newvalue) QUIT $$$OK n sc,oid s sc=..chkMatchWholeStr.%GetSwizzleObject(0,.oid) q:$$$ISERR(sc) sc s:oid'=newvalue $$$objModBit(##this,20)=1 i newvalue'="",oid=newvalue QUIT $$$OK n temp $$$objReferenceListRemove(r%chkMatchWholeStr,%this,temp) do ..chkMatchWholeStr.%Close() s r%chkMatchWholeStr=$$$NULLOREF s i%chkMatchWholeStr=$$$oidPrimary(newvalue) QUIT $$$OK q "" chkMatchWholeStrSetObjectId(%this,newid) ; q ..chkMatchWholeStrSetObject($$$oidForm(newid)) chkMatchWholeStrUnSwizzle(%this) ; q:r%chkMatchWholeStr=$$$NULLOREF n sc s sc=..chkMatchWholeStrResetObject() q:$$$ISERR(sc) sc n temp $$$objReferenceListRemove(r%chkMatchWholeStr,%this,temp) d ..chkMatchWholeStr.%Close() s r%chkMatchWholeStr=$$$NULLOREF QUIT $$$OK q "" chkOnLblGet(%this) ; i r%chkOnLbl'=$$$NULLOREF q r%chkOnLbl n oid,oref s oid=i%chkOnLbl s oid=$$$oidForm(oid) s oref=##class(%Library.TMCheckBox).%Open(oid) i oref=$$$NULLOREF q $$$NULLOREF $$$objReferenceListAdd(oref,%this) s r%chkOnLbl=oref q r%chkOnLbl q "" chkOnLblGetObject(%this,force) s force=$g(force,0) q:r%chkOnLbl=$$$NULLOREF $s(i%chkOnLbl="":"",1:$lb(i%chkOnLbl_"")) n oid q:$$$ISOK(..chkOnLbl.%GetSwizzleObject(force,.oid)) oid q "" q "" chkOnLblGetObjectId(%this,force) s force=$g(force,0) q $$$oidPrimary(..chkOnLblGetObject(force)) chkOnLblIsModified(%this) ; q $$$objModBit(##this,21) #classmethod chkOnLblIsValid(value) ; q 1 #endclassmethod chkOnLblNewObject(%this) ; n newobject s newobject=##class(%Library.TMCheckBox).%New("") i newobject=$$$NULLOREF q newobject s ..chkOnLbl=newobject d newobject.%Close() q newobject q "" chkOnLblResetObject(%this,force) s force=$g(force,0) n sc,newvalue i r%chkOnLbl'=$$$NULLOREF s sc=..chkOnLbl.%GetSwizzleObject(force,.newvalue) q:$$$ISERR(sc) sc s:i%chkOnLbl'=$$$oidPrimary(newvalue) $$$objModBit(##this,21)=1 s i%chkOnLbl=$$$oidPrimary(newvalue) QUIT $$$OK q "" chkOnLblSet(%this,newvalue) ; i newvalue'=$$$NULLOREF,'$$$objExists(newvalue) q $$$ERROR($$$OrefInvalid,newvalue) i newvalue'=$$$NULLOREF,r%chkOnLbl=newvalue q $$$OK i r%chkOnLbl'=$$$NULLOREF n temp $$$objReferenceListRemove(r%chkOnLbl,%this,temp) d ..chkOnLbl.%Close() s:(r%chkOnLbl'=newvalue)!((newvalue=$$$NULLOREF)&(i%chkOnLbl'="")) $$$objModBit(##this,21)=1 s r%chkOnLbl=newvalue,i%chkOnLbl=$$$NULLOID i newvalue=$$$NULLOREF QUIT $$$OK $$$objReferenceListAdd(r%chkOnLbl,%this) $$$IncrementReferenceCount(newvalue) QUIT $$$OK q "" chkOnLblSetModified(%this,newvalue) ; s $$$objModBit(##this,21)=''newvalue QUIT $$$OK q "" chkOnLblSetObject(%this,newvalue) ; i r%chkOnLbl=$$$NULLOREF s:i%chkOnLbl'=$$$oidPrimary(newvalue) $$$objModBit(##this,21)=1 s i%chkOnLbl=$$$oidPrimary(newvalue) QUIT $$$OK n sc,oid s sc=..chkOnLbl.%GetSwizzleObject(0,.oid) q:$$$ISERR(sc) sc s:oid'=newvalue $$$objModBit(##this,21)=1 i newvalue'="",oid=newvalue QUIT $$$OK n temp $$$objReferenceListRemove(r%chkOnLbl,%this,temp) do ..chkOnLbl.%Close() s r%chkOnLbl=$$$NULLOREF s i%chkOnLbl=$$$oidPrimary(newvalue) QUIT $$$OK q "" chkOnLblSetObjectId(%this,newid) ; q ..chkOnLblSetObject($$$oidForm(newid)) chkOnLblUnSwizzle(%this) ; q:r%chkOnLbl=$$$NULLOREF n sc s sc=..chkOnLblResetObject() q:$$$ISERR(sc) sc n temp $$$objReferenceListRemove(r%chkOnLbl,%this,temp) d ..chkOnLbl.%Close() s r%chkOnLbl=$$$NULLOREF QUIT $$$OK q "" chkOnRtnGet(%this) ; i r%chkOnRtn'=$$$NULLOREF q r%chkOnRtn n oid,oref s oid=i%chkOnRtn s oid=$$$oidForm(oid) s oref=##class(%Library.TMCheckBox).%Open(oid) i oref=$$$NULLOREF q $$$NULLOREF $$$objReferenceListAdd(oref,%this) s r%chkOnRtn=oref q r%chkOnRtn q "" chkOnRtnGetObject(%this,force) s force=$g(force,0) q:r%chkOnRtn=$$$NULLOREF $s(i%chkOnRtn="":"",1:$lb(i%chkOnRtn_"")) n oid q:$$$ISOK(..chkOnRtn.%GetSwizzleObject(force,.oid)) oid q "" q "" chkOnRtnGetObjectId(%this,force) s force=$g(force,0) q $$$oidPrimary(..chkOnRtnGetObject(force)) chkOnRtnIsModified(%this) ; q $$$objModBit(##this,22) #classmethod chkOnRtnIsValid(value) ; q 1 #endclassmethod chkOnRtnNewObject(%this) ; n newobject s newobject=##class(%Library.TMCheckBox).%New("") i newobject=$$$NULLOREF q newobject s ..chkOnRtn=newobject d newobject.%Close() q newobject q "" chkOnRtnResetObject(%this,force) s force=$g(force,0) n sc,newvalue i r%chkOnRtn'=$$$NULLOREF s sc=..chkOnRtn.%GetSwizzleObject(force,.newvalue) q:$$$ISERR(sc) sc s:i%chkOnRtn'=$$$oidPrimary(newvalue) $$$objModBit(##this,22)=1 s i%chkOnRtn=$$$oidPrimary(newvalue) QUIT $$$OK q "" chkOnRtnSet(%this,newvalue) ; i newvalue'=$$$NULLOREF,'$$$objExists(newvalue) q $$$ERROR($$$OrefInvalid,newvalue) i newvalue'=$$$NULLOREF,r%chkOnRtn=newvalue q $$$OK i r%chkOnRtn'=$$$NULLOREF n temp $$$objReferenceListRemove(r%chkOnRtn,%this,temp) d ..chkOnRtn.%Close() s:(r%chkOnRtn'=newvalue)!((newvalue=$$$NULLOREF)&(i%chkOnRtn'="")) $$$objModBit(##this,22)=1 s r%chkOnRtn=newvalue,i%chkOnRtn=$$$NULLOID i newvalue=$$$NULLOREF QUIT $$$OK $$$objReferenceListAdd(r%chkOnRtn,%this) $$$IncrementReferenceCount(newvalue) QUIT $$$OK q "" chkOnRtnSetModified(%this,newvalue) ; s $$$objModBit(##this,22)=''newvalue QUIT $$$OK q "" chkOnRtnSetObject(%this,newvalue) ; i r%chkOnRtn=$$$NULLOREF s:i%chkOnRtn'=$$$oidPrimary(newvalue) $$$objModBit(##this,22)=1 s i%chkOnRtn=$$$oidPrimary(newvalue) QUIT $$$OK n sc,oid s sc=..chkOnRtn.%GetSwizzleObject(0,.oid) q:$$$ISERR(sc) sc s:oid'=newvalue $$$objModBit(##this,22)=1 i newvalue'="",oid=newvalue QUIT $$$OK n temp $$$objReferenceListRemove(r%chkOnRtn,%this,temp) do ..chkOnRtn.%Close() s r%chkOnRtn=$$$NULLOREF s i%chkOnRtn=$$$oidPrimary(newvalue) QUIT $$$OK q "" chkOnRtnSetObjectId(%this,newid) ; q ..chkOnRtnSetObject($$$oidForm(newid)) chkOnRtnUnSwizzle(%this) ; q:r%chkOnRtn=$$$NULLOREF n sc s sc=..chkOnRtnResetObject() q:$$$ISERR(sc) sc n temp $$$objReferenceListRemove(r%chkOnRtn,%this,temp) d ..chkOnRtn.%Close() s r%chkOnRtn=$$$NULLOREF QUIT $$$OK q "" chkOpenMACsGet(%this) ; i r%chkOpenMACs'=$$$NULLOREF q r%chkOpenMACs n oid,oref s oid=i%chkOpenMACs s oid=$$$oidForm(oid) s oref=##class(%Library.TMCheckBox).%Open(oid) i oref=$$$NULLOREF q $$$NULLOREF $$$objReferenceListAdd(oref,%this) s r%chkOpenMACs=oref q r%chkOpenMACs q "" chkOpenMACsGetObject(%this,force) s force=$g(force,0) q:r%chkOpenMACs=$$$NULLOREF $s(i%chkOpenMACs="":"",1:$lb(i%chkOpenMACs_"")) n oid q:$$$ISOK(..chkOpenMACs.%GetSwizzleObject(force,.oid)) oid q "" q "" chkOpenMACsGetObjectId(%this,force) s force=$g(force,0) q $$$oidPrimary(..chkOpenMACsGetObject(force)) chkOpenMACsIsModified(%this) ; q $$$objModBit(##this,23) #classmethod chkOpenMACsIsValid(value) ; q 1 #endclassmethod chkOpenMACsNewObject(%this) ; n newobject s newobject=##class(%Library.TMCheckBox).%New("") i newobject=$$$NULLOREF q newobject s ..chkOpenMACs=newobject d newobject.%Close() q newobject q "" chkOpenMACsResetObject(%this,force) s force=$g(force,0) n sc,newvalue i r%chkOpenMACs'=$$$NULLOREF s sc=..chkOpenMACs.%GetSwizzleObject(force,.newvalue) q:$$$ISERR(sc) sc s:i%chkOpenMACs'=$$$oidPrimary(newvalue) $$$objModBit(##this,23)=1 s i%chkOpenMACs=$$$oidPrimary(newvalue) QUIT $$$OK q "" chkOpenMACsSet(%this,newvalue) ; i newvalue'=$$$NULLOREF,'$$$objExists(newvalue) q $$$ERROR($$$OrefInvalid,newvalue) i newvalue'=$$$NULLOREF,r%chkOpenMACs=newvalue q $$$OK i r%chkOpenMACs'=$$$NULLOREF n temp $$$objReferenceListRemove(r%chkOpenMACs,%this,temp) d ..chkOpenMACs.%Close() s:(r%chkOpenMACs'=newvalue)!((newvalue=$$$NULLOREF)&(i%chkOpenMACs'="")) $$$objModBit(##this,23)=1 s r%chkOpenMACs=newvalue,i%chkOpenMACs=$$$NULLOID i newvalue=$$$NULLOREF QUIT $$$OK $$$objReferenceListAdd(r%chkOpenMACs,%this) $$$IncrementReferenceCount(newvalue) QUIT $$$OK q "" chkOpenMACsSetModified(%this,newvalue) ; s $$$objModBit(##this,23)=''newvalue QUIT $$$OK q "" chkOpenMACsSetObject(%this,newvalue) ; i r%chkOpenMACs=$$$NULLOREF s:i%chkOpenMACs'=$$$oidPrimary(newvalue) $$$objModBit(##this,23)=1 s i%chkOpenMACs=$$$oidPrimary(newvalue) QUIT $$$OK n sc,oid s sc=..chkOpenMACs.%GetSwizzleObject(0,.oid) q:$$$ISERR(sc) sc s:oid'=newvalue $$$objModBit(##this,23)=1 i newvalue'="",oid=newvalue QUIT $$$OK n temp $$$objReferenceListRemove(r%chkOpenMACs,%this,temp) do ..chkOpenMACs.%Close() s r%chkOpenMACs=$$$NULLOREF s i%chkOpenMACs=$$$oidPrimary(newvalue) QUIT $$$OK q "" chkOpenMACsSetObjectId(%this,newid) ; q ..chkOpenMACsSetObject($$$oidForm(newid)) chkOpenMACsUnSwizzle(%this) ; q:r%chkOpenMACs=$$$NULLOREF n sc s sc=..chkOpenMACsResetObject() q:$$$ISERR(sc) sc n temp $$$objReferenceListRemove(r%chkOpenMACs,%this,temp) d ..chkOpenMACs.%Close() s r%chkOpenMACs=$$$NULLOREF QUIT $$$OK q "" chkSimpleSearchGet(%this) ; i r%chkSimpleSearch'=$$$NULLOREF q r%chkSimpleSearch n oid,oref s oid=i%chkSimpleSearch s oid=$$$oidForm(oid) s oref=##class(%Library.TMCheckBox).%Open(oid) i oref=$$$NULLOREF q $$$NULLOREF $$$objReferenceListAdd(oref,%this) s r%chkSimpleSearch=oref q r%chkSimpleSearch q "" chkSimpleSearchGetObject(%this,force) s force=$g(force,0) q:r%chkSimpleSearch=$$$NULLOREF $s(i%chkSimpleSearch="":"",1:$lb(i%chkSimpleSearch_"")) n oid q:$$$ISOK(..chkSimpleSearch.%GetSwizzleObject(force,.oid)) oid q "" q "" chkSimpleSearchGetObjectId(%this,force) s force=$g(force,0) q $$$oidPrimary(..chkSimpleSearchGetObject(force)) chkSimpleSearchIsModified(%this) ; q $$$objModBit(##this,24) #classmethod chkSimpleSearchIsValid(value) ; q 1 #endclassmethod chkSimpleSearchNewObject(%this) ; n newobject s newobject=##class(%Library.TMCheckBox).%New("") i newobject=$$$NULLOREF q newobject s ..chkSimpleSearch=newobject d newobject.%Close() q newobject q "" chkSimpleSearchResetObject(%this,force) s force=$g(force,0) n sc,newvalue i r%chkSimpleSearch'=$$$NULLOREF s sc=..chkSimpleSearch.%GetSwizzleObject(force,.newvalue) q:$$$ISERR(sc) sc s:i%chkSimpleSearch'=$$$oidPrimary(newvalue) $$$objModBit(##this,24)=1 s i%chkSimpleSearch=$$$oidPrimary(newvalue) QUIT $$$OK q "" chkSimpleSearchSet(%this,newvalue) ; i newvalue'=$$$NULLOREF,'$$$objExists(newvalue) q $$$ERROR($$$OrefInvalid,newvalue) i newvalue'=$$$NULLOREF,r%chkSimpleSearch=newvalue q $$$OK i r%chkSimpleSearch'=$$$NULLOREF n temp $$$objReferenceListRemove(r%chkSimpleSearch,%this,temp) d ..chkSimpleSearch.%Close() s:(r%chkSimpleSearch'=newvalue)!((newvalue=$$$NULLOREF)&(i%chkSimpleSearch'="")) $$$objModBit(##this,24)=1 s r%chkSimpleSearch=newvalue,i%chkSimpleSearch=$$$NULLOID i newvalue=$$$NULLOREF QUIT $$$OK $$$objReferenceListAdd(r%chkSimpleSearch,%this) $$$IncrementReferenceCount(newvalue) QUIT $$$OK q "" chkSimpleSearchSetModified(%this,newvalue) ; s $$$objModBit(##this,24)=''newvalue QUIT $$$OK q "" chkSimpleSearchSetObject(%this,newvalue) ; i r%chkSimpleSearch=$$$NULLOREF s:i%chkSimpleSearch'=$$$oidPrimary(newvalue) $$$objModBit(##this,24)=1 s i%chkSimpleSearch=$$$oidPrimary(newvalue) QUIT $$$OK n sc,oid s sc=..chkSimpleSearch.%GetSwizzleObject(0,.oid) q:$$$ISERR(sc) sc s:oid'=newvalue $$$objModBit(##this,24)=1 i newvalue'="",oid=newvalue QUIT $$$OK n temp $$$objReferenceListRemove(r%chkSimpleSearch,%this,temp) do ..chkSimpleSearch.%Close() s r%chkSimpleSearch=$$$NULLOREF s i%chkSimpleSearch=$$$oidPrimary(newvalue) QUIT $$$OK q "" chkSimpleSearchSetObjectId(%this,newid) ; q ..chkSimpleSearchSetObject($$$oidForm(newid)) chkSimpleSearchUnSwizzle(%this) ; q:r%chkSimpleSearch=$$$NULLOREF n sc s sc=..chkSimpleSearchResetObject() q:$$$ISERR(sc) sc n temp $$$objReferenceListRemove(r%chkSimpleSearch,%this,temp) d ..chkSimpleSearch.%Close() s r%chkSimpleSearch=$$$NULLOREF QUIT $$$OK q "" gbAdvancedGet(%this) ; i r%gbAdvanced'=$$$NULLOREF q r%gbAdvanced n oid,oref s oid=i%gbAdvanced s oid=$$$oidForm(oid) s oref=##class(%Library.TMGroupBox).%Open(oid) i oref=$$$NULLOREF q $$$NULLOREF $$$objReferenceListAdd(oref,%this) s r%gbAdvanced=oref q r%gbAdvanced q "" gbAdvancedGetObject(%this,force) s force=$g(force,0) q:r%gbAdvanced=$$$NULLOREF $s(i%gbAdvanced="":"",1:$lb(i%gbAdvanced_"")) n oid q:$$$ISOK(..gbAdvanced.%GetSwizzleObject(force,.oid)) oid q "" q "" gbAdvancedGetObjectId(%this,force) s force=$g(force,0) q $$$oidPrimary(..gbAdvancedGetObject(force)) gbAdvancedIsModified(%this) ; q $$$objModBit(##this,25) #classmethod gbAdvancedIsValid(value) ; q 1 #endclassmethod gbAdvancedNewObject(%this) ; n newobject s newobject=##class(%Library.TMGroupBox).%New("") i newobject=$$$NULLOREF q newobject s ..gbAdvanced=newobject d newobject.%Close() q newobject q "" gbAdvancedResetObject(%this,force) s force=$g(force,0) n sc,newvalue i r%gbAdvanced'=$$$NULLOREF s sc=..gbAdvanced.%GetSwizzleObject(force,.newvalue) q:$$$ISERR(sc) sc s:i%gbAdvanced'=$$$oidPrimary(newvalue) $$$objModBit(##this,25)=1 s i%gbAdvanced=$$$oidPrimary(newvalue) QUIT $$$OK q "" gbAdvancedSet(%this,newvalue) ; i newvalue'=$$$NULLOREF,'$$$objExists(newvalue) q $$$ERROR($$$OrefInvalid,newvalue) i newvalue'=$$$NULLOREF,r%gbAdvanced=newvalue q $$$OK i r%gbAdvanced'=$$$NULLOREF n temp $$$objReferenceListRemove(r%gbAdvanced,%this,temp) d ..gbAdvanced.%Close() s:(r%gbAdvanced'=newvalue)!((newvalue=$$$NULLOREF)&(i%gbAdvanced'="")) $$$objModBit(##this,25)=1 s r%gbAdvanced=newvalue,i%gbAdvanced=$$$NULLOID i newvalue=$$$NULLOREF QUIT $$$OK $$$objReferenceListAdd(r%gbAdvanced,%this) $$$IncrementReferenceCount(newvalue) QUIT $$$OK q "" gbAdvancedSetModified(%this,newvalue) ; s $$$objModBit(##this,25)=''newvalue QUIT $$$OK q "" gbAdvancedSetObject(%this,newvalue) ; i r%gbAdvanced=$$$NULLOREF s:i%gbAdvanced'=$$$oidPrimary(newvalue) $$$objModBit(##this,25)=1 s i%gbAdvanced=$$$oidPrimary(newvalue) QUIT $$$OK n sc,oid s sc=..gbAdvanced.%GetSwizzleObject(0,.oid) q:$$$ISERR(sc) sc s:oid'=newvalue $$$objModBit(##this,25)=1 i newvalue'="",oid=newvalue QUIT $$$OK n temp $$$objReferenceListRemove(r%gbAdvanced,%this,temp) do ..gbAdvanced.%Close() s r%gbAdvanced=$$$NULLOREF s i%gbAdvanced=$$$oidPrimary(newvalue) QUIT $$$OK q "" gbAdvancedSetObjectId(%this,newid) ; q ..gbAdvancedSetObject($$$oidForm(newid)) gbAdvancedUnSwizzle(%this) ; q:r%gbAdvanced=$$$NULLOREF n sc s sc=..gbAdvancedResetObject() q:$$$ISERR(sc) sc n temp $$$objReferenceListRemove(r%gbAdvanced,%this,temp) d ..gbAdvanced.%Close() s r%gbAdvanced=$$$NULLOREF QUIT $$$OK q "" lblSearchMsgGet(%this) ; i r%lblSearchMsg'=$$$NULLOREF q r%lblSearchMsg n oid,oref s oid=i%lblSearchMsg s oid=$$$oidForm(oid) s oref=##class(%Library.TMLabel).%Open(oid) i oref=$$$NULLOREF q $$$NULLOREF $$$objReferenceListAdd(oref,%this) s r%lblSearchMsg=oref q r%lblSearchMsg q "" lblSearchMsgGetObject(%this,force) s force=$g(force,0) q:r%lblSearchMsg=$$$NULLOREF $s(i%lblSearchMsg="":"",1:$lb(i%lblSearchMsg_"")) n oid q:$$$ISOK(..lblSearchMsg.%GetSwizzleObject(force,.oid)) oid q "" q "" lblSearchMsgGetObjectId(%this,force) s force=$g(force,0) q $$$oidPrimary(..lblSearchMsgGetObject(force)) lblSearchMsgIsModified(%this) ; q $$$objModBit(##this,26) #classmethod lblSearchMsgIsValid(value) ; q 1 #endclassmethod lblSearchMsgNewObject(%this) ; n newobject s newobject=##class(%Library.TMLabel).%New("") i newobject=$$$NULLOREF q newobject s ..lblSearchMsg=newobject d newobject.%Close() q newobject q "" lblSearchMsgResetObject(%this,force) s force=$g(force,0) n sc,newvalue i r%lblSearchMsg'=$$$NULLOREF s sc=..lblSearchMsg.%GetSwizzleObject(force,.newvalue) q:$$$ISERR(sc) sc s:i%lblSearchMsg'=$$$oidPrimary(newvalue) $$$objModBit(##this,26)=1 s i%lblSearchMsg=$$$oidPrimary(newvalue) QUIT $$$OK q "" lblSearchMsgSet(%this,newvalue) ; i newvalue'=$$$NULLOREF,'$$$objExists(newvalue) q $$$ERROR($$$OrefInvalid,newvalue) i newvalue'=$$$NULLOREF,r%lblSearchMsg=newvalue q $$$OK i r%lblSearchMsg'=$$$NULLOREF n temp $$$objReferenceListRemove(r%lblSearchMsg,%this,temp) d ..lblSearchMsg.%Close() s:(r%lblSearchMsg'=newvalue)!((newvalue=$$$NULLOREF)&(i%lblSearchMsg'="")) $$$objModBit(##this,26)=1 s r%lblSearchMsg=newvalue,i%lblSearchMsg=$$$NULLOID i newvalue=$$$NULLOREF QUIT $$$OK $$$objReferenceListAdd(r%lblSearchMsg,%this) $$$IncrementReferenceCount(newvalue) QUIT $$$OK q "" lblSearchMsgSetModified(%this,newvalue) ; s $$$objModBit(##this,26)=''newvalue QUIT $$$OK q "" lblSearchMsgSetObject(%this,newvalue) ; i r%lblSearchMsg=$$$NULLOREF s:i%lblSearchMsg'=$$$oidPrimary(newvalue) $$$objModBit(##this,26)=1 s i%lblSearchMsg=$$$oidPrimary(newvalue) QUIT $$$OK n sc,oid s sc=..lblSearchMsg.%GetSwizzleObject(0,.oid) q:$$$ISERR(sc) sc s:oid'=newvalue $$$objModBit(##this,26)=1 i newvalue'="",oid=newvalue QUIT $$$OK n temp $$$objReferenceListRemove(r%lblSearchMsg,%this,temp) do ..lblSearchMsg.%Close() s r%lblSearchMsg=$$$NULLOREF s i%lblSearchMsg=$$$oidPrimary(newvalue) QUIT $$$OK q "" lblSearchMsgSetObjectId(%this,newid) ; q ..lblSearchMsgSetObject($$$oidForm(newid)) lblSearchMsgUnSwizzle(%this) ; q:r%lblSearchMsg=$$$NULLOREF n sc s sc=..lblSearchMsgResetObject() q:$$$ISERR(sc) sc n temp $$$objReferenceListRemove(r%lblSearchMsg,%this,temp) d ..lblSearchMsg.%Close() s r%lblSearchMsg=$$$NULLOREF QUIT $$$OK q "" pbProgGet(%this) ; i r%pbProg'=$$$NULLOREF q r%pbProg n oid,oref s oid=i%pbProg s oid=$$$oidForm(oid) s oref=##class(%Library.TMProgressBar).%Open(oid) i oref=$$$NULLOREF q $$$NULLOREF $$$objReferenceListAdd(oref,%this) s r%pbProg=oref q r%pbProg q "" pbProgGetObject(%this,force) s force=$g(force,0) q:r%pbProg=$$$NULLOREF $s(i%pbProg="":"",1:$lb(i%pbProg_"")) n oid q:$$$ISOK(..pbProg.%GetSwizzleObject(force,.oid)) oid q "" q "" pbProgGetObjectId(%this,force) s force=$g(force,0) q $$$oidPrimary(..pbProgGetObject(force)) pbProgIsModified(%this) ; q $$$objModBit(##this,27) #classmethod pbProgIsValid(value) ; q 1 #endclassmethod #endclasscontext UI.Utils.RtnFind.MainForm