;UI.Utils.RtnFind.MainForm.4 ;(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 Label4UnSwizzle(%this) ; q:r%Label4=$$$NULLOREF n sc s sc=..Label4ResetObject() q:$$$ISERR(sc) sc n temp $$$objReferenceListRemove(r%Label4,%this,temp) d ..Label4.%Close() s r%Label4=$$$NULLOREF QUIT $$$OK q "" Label5Get(%this) ; i r%Label5'=$$$NULLOREF q r%Label5 n oid,oref s oid=i%Label5 s oid=$$$oidForm(oid) s oref=##class(%Library.TMLabel).%Open(oid) i oref=$$$NULLOREF q $$$NULLOREF $$$objReferenceListAdd(oref,%this) s r%Label5=oref q r%Label5 q "" Label5GetObject(%this,force) s force=$g(force,0) q:r%Label5=$$$NULLOREF $s(i%Label5="":"",1:$lb(i%Label5_"")) n oid q:$$$ISOK(..Label5.%GetSwizzleObject(force,.oid)) oid q "" q "" Label5GetObjectId(%this,force) s force=$g(force,0) q $$$oidPrimary(..Label5GetObject(force)) Label5IsModified(%this) ; q $$$objModBit(##this,9) #classmethod Label5IsValid(value) ; q 1 #endclassmethod Label5NewObject(%this) ; n newobject s newobject=##class(%Library.TMLabel).%New("") i newobject=$$$NULLOREF q newobject s ..Label5=newobject d newobject.%Close() q newobject q "" Label5ResetObject(%this,force) s force=$g(force,0) n sc,newvalue i r%Label5'=$$$NULLOREF s sc=..Label5.%GetSwizzleObject(force,.newvalue) q:$$$ISERR(sc) sc s:i%Label5'=$$$oidPrimary(newvalue) $$$objModBit(##this,9)=1 s i%Label5=$$$oidPrimary(newvalue) QUIT $$$OK q "" Label5Set(%this,newvalue) ; i newvalue'=$$$NULLOREF,'$$$objExists(newvalue) q $$$ERROR($$$OrefInvalid,newvalue) i newvalue'=$$$NULLOREF,r%Label5=newvalue q $$$OK i r%Label5'=$$$NULLOREF n temp $$$objReferenceListRemove(r%Label5,%this,temp) d ..Label5.%Close() s:(r%Label5'=newvalue)!((newvalue=$$$NULLOREF)&(i%Label5'="")) $$$objModBit(##this,9)=1 s r%Label5=newvalue,i%Label5=$$$NULLOID i newvalue=$$$NULLOREF QUIT $$$OK $$$objReferenceListAdd(r%Label5,%this) $$$IncrementReferenceCount(newvalue) QUIT $$$OK q "" Label5SetModified(%this,newvalue) ; s $$$objModBit(##this,9)=''newvalue QUIT $$$OK q "" Label5SetObject(%this,newvalue) ; i r%Label5=$$$NULLOREF s:i%Label5'=$$$oidPrimary(newvalue) $$$objModBit(##this,9)=1 s i%Label5=$$$oidPrimary(newvalue) QUIT $$$OK n sc,oid s sc=..Label5.%GetSwizzleObject(0,.oid) q:$$$ISERR(sc) sc s:oid'=newvalue $$$objModBit(##this,9)=1 i newvalue'="",oid=newvalue QUIT $$$OK n temp $$$objReferenceListRemove(r%Label5,%this,temp) do ..Label5.%Close() s r%Label5=$$$NULLOREF s i%Label5=$$$oidPrimary(newvalue) QUIT $$$OK q "" Label5SetObjectId(%this,newid) ; q ..Label5SetObject($$$oidForm(newid)) Label5UnSwizzle(%this) ; q:r%Label5=$$$NULLOREF n sc s sc=..Label5ResetObject() q:$$$ISERR(sc) sc n temp $$$objReferenceListRemove(r%Label5,%this,temp) d ..Label5.%Close() s r%Label5=$$$NULLOREF QUIT $$$OK q "" ListBox1Get(%this) ; i r%ListBox1'=$$$NULLOREF q r%ListBox1 n oid,oref s oid=i%ListBox1 s oid=$$$oidForm(oid) s oref=##class(%Library.TMListBox).%Open(oid) i oref=$$$NULLOREF q $$$NULLOREF $$$objReferenceListAdd(oref,%this) s r%ListBox1=oref q r%ListBox1 q "" ListBox1GetObject(%this,force) s force=$g(force,0) q:r%ListBox1=$$$NULLOREF $s(i%ListBox1="":"",1:$lb(i%ListBox1_"")) n oid q:$$$ISOK(..ListBox1.%GetSwizzleObject(force,.oid)) oid q "" q "" ListBox1GetObjectId(%this,force) s force=$g(force,0) q $$$oidPrimary(..ListBox1GetObject(force)) ListBox1IsModified(%this) ; q $$$objModBit(##this,10) #classmethod ListBox1IsValid(value) ; q 1 #endclassmethod ListBox1NewObject(%this) ; n newobject s newobject=##class(%Library.TMListBox).%New("") i newobject=$$$NULLOREF q newobject s ..ListBox1=newobject d newobject.%Close() q newobject q "" ListBox1ResetObject(%this,force) s force=$g(force,0) n sc,newvalue i r%ListBox1'=$$$NULLOREF s sc=..ListBox1.%GetSwizzleObject(force,.newvalue) q:$$$ISERR(sc) sc s:i%ListBox1'=$$$oidPrimary(newvalue) $$$objModBit(##this,10)=1 s i%ListBox1=$$$oidPrimary(newvalue) QUIT $$$OK q "" ListBox1Set(%this,newvalue) ; i newvalue'=$$$NULLOREF,'$$$objExists(newvalue) q $$$ERROR($$$OrefInvalid,newvalue) i newvalue'=$$$NULLOREF,r%ListBox1=newvalue q $$$OK i r%ListBox1'=$$$NULLOREF n temp $$$objReferenceListRemove(r%ListBox1,%this,temp) d ..ListBox1.%Close() s:(r%ListBox1'=newvalue)!((newvalue=$$$NULLOREF)&(i%ListBox1'="")) $$$objModBit(##this,10)=1 s r%ListBox1=newvalue,i%ListBox1=$$$NULLOID i newvalue=$$$NULLOREF QUIT $$$OK $$$objReferenceListAdd(r%ListBox1,%this) $$$IncrementReferenceCount(newvalue) QUIT $$$OK q "" ListBox1SetModified(%this,newvalue) ; s $$$objModBit(##this,10)=''newvalue QUIT $$$OK q "" ListBox1SetObject(%this,newvalue) ; i r%ListBox1=$$$NULLOREF s:i%ListBox1'=$$$oidPrimary(newvalue) $$$objModBit(##this,10)=1 s i%ListBox1=$$$oidPrimary(newvalue) QUIT $$$OK n sc,oid s sc=..ListBox1.%GetSwizzleObject(0,.oid) q:$$$ISERR(sc) sc s:oid'=newvalue $$$objModBit(##this,10)=1 i newvalue'="",oid=newvalue QUIT $$$OK n temp $$$objReferenceListRemove(r%ListBox1,%this,temp) do ..ListBox1.%Close() s r%ListBox1=$$$NULLOREF s i%ListBox1=$$$oidPrimary(newvalue) QUIT $$$OK q "" ListBox1SetObjectId(%this,newid) ; q ..ListBox1SetObject($$$oidForm(newid)) ListBox1UnSwizzle(%this) ; q:r%ListBox1=$$$NULLOREF n sc s sc=..ListBox1ResetObject() q:$$$ISERR(sc) sc n temp $$$objReferenceListRemove(r%ListBox1,%this,temp) d ..ListBox1.%Close() s r%ListBox1=$$$NULLOREF QUIT $$$OK q "" Panel1Get(%this) ; i r%Panel1'=$$$NULLOREF q r%Panel1 n oid,oref s oid=i%Panel1 s oid=$$$oidForm(oid) s oref=##class(%Library.TMPanel).%Open(oid) i oref=$$$NULLOREF q $$$NULLOREF $$$objReferenceListAdd(oref,%this) s r%Panel1=oref q r%Panel1 q "" Panel1GetObject(%this,force) s force=$g(force,0) q:r%Panel1=$$$NULLOREF $s(i%Panel1="":"",1:$lb(i%Panel1_"")) n oid q:$$$ISOK(..Panel1.%GetSwizzleObject(force,.oid)) oid q "" q "" Panel1GetObjectId(%this,force) s force=$g(force,0) q $$$oidPrimary(..Panel1GetObject(force)) Panel1IsModified(%this) ; q $$$objModBit(##this,11) #classmethod Panel1IsValid(value) ; q 1 #endclassmethod Panel1NewObject(%this) ; n newobject s newobject=##class(%Library.TMPanel).%New("") i newobject=$$$NULLOREF q newobject s ..Panel1=newobject d newobject.%Close() q newobject q "" Panel1ResetObject(%this,force) s force=$g(force,0) n sc,newvalue i r%Panel1'=$$$NULLOREF s sc=..Panel1.%GetSwizzleObject(force,.newvalue) q:$$$ISERR(sc) sc s:i%Panel1'=$$$oidPrimary(newvalue) $$$objModBit(##this,11)=1 s i%Panel1=$$$oidPrimary(newvalue) QUIT $$$OK q "" Panel1Set(%this,newvalue) ; i newvalue'=$$$NULLOREF,'$$$objExists(newvalue) q $$$ERROR($$$OrefInvalid,newvalue) i newvalue'=$$$NULLOREF,r%Panel1=newvalue q $$$OK i r%Panel1'=$$$NULLOREF n temp $$$objReferenceListRemove(r%Panel1,%this,temp) d ..Panel1.%Close() s:(r%Panel1'=newvalue)!((newvalue=$$$NULLOREF)&(i%Panel1'="")) $$$objModBit(##this,11)=1 s r%Panel1=newvalue,i%Panel1=$$$NULLOID i newvalue=$$$NULLOREF QUIT $$$OK $$$objReferenceListAdd(r%Panel1,%this) $$$IncrementReferenceCount(newvalue) QUIT $$$OK q "" Panel1SetModified(%this,newvalue) ; s $$$objModBit(##this,11)=''newvalue QUIT $$$OK q "" Panel1SetObject(%this,newvalue) ; i r%Panel1=$$$NULLOREF s:i%Panel1'=$$$oidPrimary(newvalue) $$$objModBit(##this,11)=1 s i%Panel1=$$$oidPrimary(newvalue) QUIT $$$OK n sc,oid s sc=..Panel1.%GetSwizzleObject(0,.oid) q:$$$ISERR(sc) sc s:oid'=newvalue $$$objModBit(##this,11)=1 i newvalue'="",oid=newvalue QUIT $$$OK n temp $$$objReferenceListRemove(r%Panel1,%this,temp) do ..Panel1.%Close() s r%Panel1=$$$NULLOREF s i%Panel1=$$$oidPrimary(newvalue) QUIT $$$OK q "" Panel1SetObjectId(%this,newid) ; q ..Panel1SetObject($$$oidForm(newid)) Panel1UnSwizzle(%this) ; q:r%Panel1=$$$NULLOREF n sc s sc=..Panel1ResetObject() q:$$$ISERR(sc) sc n temp $$$objReferenceListRemove(r%Panel1,%this,temp) d ..Panel1.%Close() s r%Panel1=$$$NULLOREF QUIT $$$OK q "" #classcontext ..SearchStr #classmethod SearchStrDisplayToLogical(%val) ; q %val #endclassmethod #endclasscontext ..SearchStr SearchStrGet(%this) ; q i%SearchStr SearchStrIsModified(%this) ; q $$$objModBit(##this,12) #classmethod SearchStrIsValid(value) ; q $s(..SearchStrIsValidDT(value):1,1:$$$ERROR($$$DatatypeValidationFailed,"UI.Utils.RtnFind.MainForm.SearchStr")) #endclassmethod #classcontext ..SearchStr #classmethod SearchStrIsValidDT(%val) ; q 1 #endclassmethod #endclasscontext ..SearchStr #classcontext ..SearchStr #classmethod SearchStrLogicalToDisplay(%val) ; q %val #endclassmethod #endclasscontext ..SearchStr #classcontext ..SearchStr #classmethod SearchStrNormalize(%val) ; q $e(%val,1,50) #endclassmethod #endclasscontext ..SearchStr SearchStrSet(%this,newvalue) ; s:newvalue'=i%SearchStr $$$objModBit(##this,12)=1 s i%SearchStr=newvalue QUIT $$$OK q "" SearchStrSetModified(%this,newvalue) ; s $$$objModBit(##this,12)=''newvalue QUIT $$$OK q "" Splitter1Get(%this) ; i r%Splitter1'=$$$NULLOREF q r%Splitter1 n oid,oref s oid=i%Splitter1 s oid=$$$oidForm(oid) s oref=##class(%Library.TMSplitter).%Open(oid) i oref=$$$NULLOREF q $$$NULLOREF $$$objReferenceListAdd(oref,%this) s r%Splitter1=oref q r%Splitter1 q "" Splitter1GetObject(%this,force) s force=$g(force,0) q:r%Splitter1=$$$NULLOREF $s(i%Splitter1="":"",1:$lb(i%Splitter1_"")) n oid q:$$$ISOK(..Splitter1.%GetSwizzleObject(force,.oid)) oid q "" q "" Splitter1GetObjectId(%this,force) s force=$g(force,0) q $$$oidPrimary(..Splitter1GetObject(force)) Splitter1IsModified(%this) ; q $$$objModBit(##this,13) #classmethod Splitter1IsValid(value) ; q 1 #endclassmethod Splitter1NewObject(%this) ; n newobject s newobject=##class(%Library.TMSplitter).%New("") i newobject=$$$NULLOREF q newobject s ..Splitter1=newobject d newobject.%Close() q newobject q "" Splitter1ResetObject(%this,force) s force=$g(force,0) n sc,newvalue i r%Splitter1'=$$$NULLOREF s sc=..Splitter1.%GetSwizzleObject(force,.newvalue) q:$$$ISERR(sc) sc s:i%Splitter1'=$$$oidPrimary(newvalue) $$$objModBit(##this,13)=1 s i%Splitter1=$$$oidPrimary(newvalue) QUIT $$$OK q "" Splitter1Set(%this,newvalue) ; i newvalue'=$$$NULLOREF,'$$$objExists(newvalue) q $$$ERROR($$$OrefInvalid,newvalue) i newvalue'=$$$NULLOREF,r%Splitter1=newvalue q $$$OK i r%Splitter1'=$$$NULLOREF n temp $$$objReferenceListRemove(r%Splitter1,%this,temp) d ..Splitter1.%Close() s:(r%Splitter1'=newvalue)!((newvalue=$$$NULLOREF)&(i%Splitter1'="")) $$$objModBit(##this,13)=1 s r%Splitter1=newvalue,i%Splitter1=$$$NULLOID i newvalue=$$$NULLOREF QUIT $$$OK $$$objReferenceListAdd(r%Splitter1,%this) $$$IncrementReferenceCount(newvalue) QUIT $$$OK q "" Splitter1SetModified(%this,newvalue) ; s $$$objModBit(##this,13)=''newvalue QUIT $$$OK q "" Splitter1SetObject(%this,newvalue) ; i r%Splitter1=$$$NULLOREF s:i%Splitter1'=$$$oidPrimary(newvalue) $$$objModBit(##this,13)=1 s i%Splitter1=$$$oidPrimary(newvalue) QUIT $$$OK n sc,oid s sc=..Splitter1.%GetSwizzleObject(0,.oid) q:$$$ISERR(sc) sc s:oid'=newvalue $$$objModBit(##this,13)=1 i newvalue'="",oid=newvalue QUIT $$$OK n temp $$$objReferenceListRemove(r%Splitter1,%this,temp) do ..Splitter1.%Close() s r%Splitter1=$$$NULLOREF s i%Splitter1=$$$oidPrimary(newvalue) QUIT $$$OK q "" Splitter1SetObjectId(%this,newid) ; q ..Splitter1SetObject($$$oidForm(newid)) Splitter1UnSwizzle(%this) ; q:r%Splitter1=$$$NULLOREF n sc s sc=..Splitter1ResetObject() q:$$$ISERR(sc) sc n temp $$$objReferenceListRemove(r%Splitter1,%this,temp) d ..Splitter1.%Close() s r%Splitter1=$$$NULLOREF QUIT $$$OK q "" btnCancelGet(%this) ; i r%btnCancel'=$$$NULLOREF q r%btnCancel n oid,oref s oid=i%btnCancel s oid=$$$oidForm(oid) s oref=##class(%Library.TMButton).%Open(oid) i oref=$$$NULLOREF q $$$NULLOREF $$$objReferenceListAdd(oref,%this) s r%btnCancel=oref q r%btnCancel q "" btnCancelGetObject(%this,force) s force=$g(force,0) q:r%btnCancel=$$$NULLOREF $s(i%btnCancel="":"",1:$lb(i%btnCancel_"")) n oid q:$$$ISOK(..btnCancel.%GetSwizzleObject(force,.oid)) oid q "" q "" btnCancelGetObjectId(%this,force) s force=$g(force,0) q $$$oidPrimary(..btnCancelGetObject(force)) btnCancelIsModified(%this) ; q $$$objModBit(##this,14) #classmethod btnCancelIsValid(value) ; q 1 #endclassmethod btnCancelNewObject(%this) ; n newobject s newobject=##class(%Library.TMButton).%New("") i newobject=$$$NULLOREF q newobject s ..btnCancel=newobject d newobject.%Close() q newobject q "" btnCancelResetObject(%this,force) s force=$g(force,0) n sc,newvalue i r%btnCancel'=$$$NULLOREF s sc=..btnCancel.%GetSwizzleObject(force,.newvalue) q:$$$ISERR(sc) sc s:i%btnCancel'=$$$oidPrimary(newvalue) $$$objModBit(##this,14)=1 s i%btnCancel=$$$oidPrimary(newvalue) QUIT $$$OK q "" btnCancelSet(%this,newvalue) ; i newvalue'=$$$NULLOREF,'$$$objExists(newvalue) q $$$ERROR($$$OrefInvalid,newvalue) i newvalue'=$$$NULLOREF,r%btnCancel=newvalue q $$$OK i r%btnCancel'=$$$NULLOREF n temp $$$objReferenceListRemove(r%btnCancel,%this,temp) d ..btnCancel.%Close() s:(r%btnCancel'=newvalue)!((newvalue=$$$NULLOREF)&(i%btnCancel'="")) $$$objModBit(##this,14)=1 s r%btnCancel=newvalue,i%btnCancel=$$$NULLOID i newvalue=$$$NULLOREF QUIT $$$OK $$$objReferenceListAdd(r%btnCancel,%this) $$$IncrementReferenceCount(newvalue) QUIT $$$OK q "" btnCancelSetModified(%this,newvalue) ; s $$$objModBit(##this,14)=''newvalue QUIT $$$OK q "" btnCancelSetObject(%this,newvalue) ; i r%btnCancel=$$$NULLOREF s:i%btnCancel'=$$$oidPrimary(newvalue) $$$objModBit(##this,14)=1 s i%btnCancel=$$$oidPrimary(newvalue) QUIT $$$OK n sc,oid s sc=..btnCancel.%GetSwizzleObject(0,.oid) q:$$$ISERR(sc) sc s:oid'=newvalue $$$objModBit(##this,14)=1 i newvalue'="",oid=newvalue QUIT $$$OK n temp $$$objReferenceListRemove(r%btnCancel,%this,temp) do ..btnCancel.%Close() s r%btnCancel=$$$NULLOREF s i%btnCancel=$$$oidPrimary(newvalue) QUIT $$$OK q "" btnCancelSetObjectId(%this,newid) ; q ..btnCancelSetObject($$$oidForm(newid)) btnCancelUnSwizzle(%this) ; q:r%btnCancel=$$$NULLOREF n sc s sc=..btnCancelResetObject() q:$$$ISERR(sc) sc n temp $$$objReferenceListRemove(r%btnCancel,%this,temp) d ..btnCancel.%Close() s r%btnCancel=$$$NULLOREF QUIT $$$OK q "" btnGoPrintGet(%this) ; i r%btnGoPrint'=$$$NULLOREF q r%btnGoPrint n oid,oref s oid=i%btnGoPrint s oid=$$$oidForm(oid) s oref=##class(%Library.TMButton).%Open(oid) i oref=$$$NULLOREF q $$$NULLOREF $$$objReferenceListAdd(oref,%this) s r%btnGoPrint=oref q r%btnGoPrint q "" btnGoPrintGetObject(%this,force) s force=$g(force,0) q:r%btnGoPrint=$$$NULLOREF $s(i%btnGoPrint="":"",1:$lb(i%btnGoPrint_"")) n oid q:$$$ISOK(..btnGoPrint.%GetSwizzleObject(force,.oid)) oid q "" q "" btnGoPrintGetObjectId(%this,force) s force=$g(force,0) q $$$oidPrimary(..btnGoPrintGetObject(force)) btnGoPrintIsModified(%this) ; q $$$objModBit(##this,15) #classmethod btnGoPrintIsValid(value) ; q 1 #endclassmethod btnGoPrintNewObject(%this) ; n newobject s newobject=##class(%Library.TMButton).%New("") i newobject=$$$NULLOREF q newobject s ..btnGoPrint=newobject d newobject.%Close() q newobject q "" btnGoPrintResetObject(%this,force) s force=$g(force,0) n sc,newvalue i r%btnGoPrint'=$$$NULLOREF s sc=..btnGoPrint.%GetSwizzleObject(force,.newvalue) q:$$$ISERR(sc) sc s:i%btnGoPrint'=$$$oidPrimary(newvalue) $$$objModBit(##this,15)=1 s i%btnGoPrint=$$$oidPrimary(newvalue) QUIT $$$OK q "" btnGoPrintSet(%this,newvalue) ; i newvalue'=$$$NULLOREF,'$$$objExists(newvalue) q $$$ERROR($$$OrefInvalid,newvalue) i newvalue'=$$$NULLOREF,r%btnGoPrint=newvalue q $$$OK i r%btnGoPrint'=$$$NULLOREF n temp $$$objReferenceListRemove(r%btnGoPrint,%this,temp) d ..btnGoPrint.%Close() s:(r%btnGoPrint'=newvalue)!((newvalue=$$$NULLOREF)&(i%btnGoPrint'="")) $$$objModBit(##this,15)=1 s r%btnGoPrint=newvalue,i%btnGoPrint=$$$NULLOID i newvalue=$$$NULLOREF QUIT $$$OK $$$objReferenceListAdd(r%btnGoPrint,%this) $$$IncrementReferenceCount(newvalue) QUIT $$$OK q "" btnGoPrintSetModified(%this,newvalue) ; s $$$objModBit(##this,15)=''newvalue QUIT $$$OK q "" btnGoPrintSetObject(%this,newvalue) ; i r%btnGoPrint=$$$NULLOREF s:i%btnGoPrint'=$$$oidPrimary(newvalue) $$$objModBit(##this,15)=1 s i%btnGoPrint=$$$oidPrimary(newvalue) QUIT $$$OK n sc,oid s sc=..btnGoPrint.%GetSwizzleObject(0,.oid) q:$$$ISERR(sc) sc s:oid'=newvalue $$$objModBit(##this,15)=1 i newvalue'="",oid=newvalue QUIT $$$OK n temp $$$objReferenceListRemove(r%btnGoPrint,%this,temp) do ..btnGoPrint.%Close() s r%btnGoPrint=$$$NULLOREF s i%btnGoPrint=$$$oidPrimary(newvalue) QUIT $$$OK q "" btnGoPrintSetObjectId(%this,newid) ; q ..btnGoPrintSetObject($$$oidForm(newid)) btnGoPrintUnSwizzle(%this) ; q:r%btnGoPrint=$$$NULLOREF n sc s sc=..btnGoPrintResetObject() q:$$$ISERR(sc) sc n temp $$$objReferenceListRemove(r%btnGoPrint,%this,temp) d ..btnGoPrint.%Close() s r%btnGoPrint=$$$NULLOREF QUIT $$$OK q "" btnPrintGet(%this) ; i r%btnPrint'=$$$NULLOREF q r%btnPrint n oid,oref s oid=i%btnPrint s oid=$$$oidForm(oid) s oref=##class(%Library.TMButton).%Open(oid) i oref=$$$NULLOREF q $$$NULLOREF $$$objReferenceListAdd(oref,%this) s r%btnPrint=oref q r%btnPrint q "" btnPrintGetObject(%this,force) s force=$g(force,0) q:r%btnPrint=$$$NULLOREF $s(i%btnPrint="":"",1:$lb(i%btnPrint_"")) n oid q:$$$ISOK(..btnPrint.%GetSwizzleObject(force,.oid)) oid q "" q "" btnPrintGetObjectId(%this,force) s force=$g(force,0) q $$$oidPrimary(..btnPrintGetObject(force)) btnPrintIsModified(%this) ; q $$$objModBit(##this,16) #classmethod btnPrintIsValid(value) ; q 1 #endclassmethod btnPrintNewObject(%this) ; n newobject s newobject=##class(%Library.TMButton).%New("") i newobject=$$$NULLOREF q newobject s ..btnPrint=newobject d newobject.%Close() q newobject q "" btnPrintResetObject(%this,force) s force=$g(force,0) n sc,newvalue i r%btnPrint'=$$$NULLOREF s sc=..btnPrint.%GetSwizzleObject(force,.newvalue) q:$$$ISERR(sc) sc s:i%btnPrint'=$$$oidPrimary(newvalue) $$$objModBit(##this,16)=1 s i%btnPrint=$$$oidPrimary(newvalue) QUIT $$$OK q "" btnPrintSet(%this,newvalue) ; i newvalue'=$$$NULLOREF,'$$$objExists(newvalue) q $$$ERROR($$$OrefInvalid,newvalue) i newvalue'=$$$NULLOREF,r%btnPrint=newvalue q $$$OK i r%btnPrint'=$$$NULLOREF n temp $$$objReferenceListRemove(r%btnPrint,%this,temp) d ..btnPrint.%Close() s:(r%btnPrint'=newvalue)!((newvalue=$$$NULLOREF)&(i%btnPrint'="")) $$$objModBit(##this,16)=1 s r%btnPrint=newvalue,i%btnPrint=$$$NULLOID i newvalue=$$$NULLOREF QUIT $$$OK $$$objReferenceListAdd(r%btnPrint,%this) $$$IncrementReferenceCount(newvalue) QUIT $$$OK q "" btnPrintSetModified(%this,newvalue) ; s $$$objModBit(##this,16)=''newvalue QUIT $$$OK q "" btnPrintSetObject(%this,newvalue) ; i r%btnPrint=$$$NULLOREF s:i%btnPrint'=$$$oidPrimary(newvalue) $$$objModBit(##this,16)=1 s i%btnPrint=$$$oidPrimary(newvalue) QUIT $$$OK n sc,oid s sc=..btnPrint.%GetSwizzleObject(0,.oid) q:$$$ISERR(sc) sc s:oid'=newvalue $$$objModBit(##this,16)=1 i newvalue'="",oid=newvalue QUIT $$$OK n temp $$$objReferenceListRemove(r%btnPrint,%this,temp) do ..btnPrint.%Close() s r%btnPrint=$$$NULLOREF s i%btnPrint=$$$oidPrimary(newvalue) QUIT $$$OK q "" btnPrintSetObjectId(%this,newid) ; q ..btnPrintSetObject($$$oidForm(newid)) btnPrintUnSwizzle(%this) ; q:r%btnPrint=$$$NULLOREF n sc s sc=..btnPrintResetObject() q:$$$ISERR(sc) sc n temp $$$objReferenceListRemove(r%btnPrint,%this,temp) d ..btnPrint.%Close() s r%btnPrint=$$$NULLOREF QUIT $$$OK q "" btnSearchGet(%this) ; i r%btnSearch'=$$$NULLOREF q r%btnSearch n oid,oref s oid=i%btnSearch s oid=$$$oidForm(oid) s oref=##class(%Library.TMButton).%Open(oid) i oref=$$$NULLOREF q $$$NULLOREF $$$objReferenceListAdd(oref,%this) s r%btnSearch=oref q r%btnSearch q "" btnSearchGetObject(%this,force) s force=$g(force,0) q:r%btnSearch=$$$NULLOREF $s(i%btnSearch="":"",1:$lb(i%btnSearch_"")) n oid q:$$$ISOK(..btnSearch.%GetSwizzleObject(force,.oid)) oid q "" q "" btnSearchGetObjectId(%this,force) s force=$g(force,0) q $$$oidPrimary(..btnSearchGetObject(force)) btnSearchIsModified(%this) ; q $$$objModBit(##this,17) #classmethod btnSearchIsValid(value) ; q 1 #endclassmethod btnSearchNewObject(%this) ; n newobject s newobject=##class(%Library.TMButton).%New("") i newobject=$$$NULLOREF q newobject s ..btnSearch=newobject d newobject.%Close() q newobject q "" btnSearchResetObject(%this,force) s force=$g(force,0) n sc,newvalue i r%btnSearch'=$$$NULLOREF s sc=..btnSearch.%GetSwizzleObject(force,.newvalue) q:$$$ISERR(sc) sc s:i%btnSearch'=$$$oidPrimary(newvalue) $$$objModBit(##this,17)=1 s i%btnSearch=$$$oidPrimary(newvalue) QUIT $$$OK q "" btnSearchSet(%this,newvalue) ; i newvalue'=$$$NULLOREF,'$$$objExists(newvalue) q $$$ERROR($$$OrefInvalid,newvalue) i newvalue'=$$$NULLOREF,r%btnSearch=newvalue q $$$OK i r%btnSearch'=$$$NULLOREF n temp $$$objReferenceListRemove(r%btnSearch,%this,temp) d ..btnSearch.%Close() s:(r%btnSearch'=newvalue)!((newvalue=$$$NULLOREF)&(i%btnSearch'="")) $$$objModBit(##this,17)=1 s r%btnSearch=newvalue,i%btnSearch=$$$NULLOID i newvalue=$$$NULLOREF QUIT $$$OK $$$objReferenceListAdd(r%btnSearch,%this) $$$IncrementReferenceCount(newvalue) QUIT $$$OK q "" btnSearchSetModified(%this,newvalue) ; s $$$objModBit(##this,17)=''newvalue QUIT $$$OK q "" btnSearchSetObject(%this,newvalue) ; i r%btnSearch=$$$NULLOREF s:i%btnSearch'=$$$oidPrimary(newvalue) $$$objModBit(##this,17)=1 s i%btnSearch=$$$oidPrimary(newvalue) QUIT $$$OK n sc,oid s sc=..btnSearch.%GetSwizzleObject(0,.oid) q:$$$ISERR(sc) sc s:oid'=newvalue $$$objModBit(##this,17)=1 i newvalue'="",oid=newvalue QUIT $$$OK n temp $$$objReferenceListRemove(r%btnSearch,%this,temp) do ..btnSearch.%Close() s r%btnSearch=$$$NULLOREF s i%btnSearch=$$$oidPrimary(newvalue) QUIT $$$OK q "" btnSearchSetObjectId(%this,newid) ; q ..btnSearchSetObject($$$oidForm(newid)) btnSearchUnSwizzle(%this) ; q:r%btnSearch=$$$NULLOREF n sc s sc=..btnSearchResetObject() q:$$$ISERR(sc) sc n temp $$$objReferenceListRemove(r%btnSearch,%this,temp) d ..btnSearch.%Close() s r%btnSearch=$$$NULLOREF QUIT $$$OK q "" chkCaseSensitiveGet(%this) ; i r%chkCaseSensitive'=$$$NULLOREF q r%chkCaseSensitive n oid,oref s oid=i%chkCaseSensitive s oid=$$$oidForm(oid) s oref=##class(%Library.TMCheckBox).%Open(oid) i oref=$$$NULLOREF q $$$NULLOREF $$$objReferenceListAdd(oref,%this) s r%chkCaseSensitive=oref q r%chkCaseSensitive q "" chkCaseSensitiveGetObject(%this,force) s force=$g(force,0) q:r%chkCaseSensitive=$$$NULLOREF $s(i%chkCaseSensitive="":"",1:$lb(i%chkCaseSensitive_"")) n oid q:$$$ISOK(..chkCaseSensitive.%GetSwizzleObject(force,.oid)) oid q "" q "" chkCaseSensitiveGetObjectId(%this,force) s force=$g(force,0) q $$$oidPrimary(..chkCaseSensitiveGetObject(force)) chkCaseSensitiveIsModified(%this) ; q $$$objModBit(##this,18) #classmethod chkCaseSensitiveIsValid(value) ; q 1 #endclassmethod chkCaseSensitiveNewObject(%this) ; n newobject s newobject=##class(%Library.TMCheckBox).%New("") i newobject=$$$NULLOREF q newobject s ..chkCaseSensitive=newobject d newobject.%Close() q newobject q "" chkCaseSensitiveResetObject(%this,force) s force=$g(force,0) n sc,newvalue i r%chkCaseSensitive'=$$$NULLOREF s sc=..chkCaseSensitive.%GetSwizzleObject(force,.newvalue) q:$$$ISERR(sc) sc s:i%chkCaseSensitive'=$$$oidPrimary(newvalue) $$$objModBit(##this,18)=1 s i%chkCaseSensitive=$$$oidPrimary(newvalue) QUIT $$$OK q "" chkCaseSensitiveSet(%this,newvalue) ; i newvalue'=$$$NULLOREF,'$$$objExists(newvalue) q $$$ERROR($$$OrefInvalid,newvalue) i newvalue'=$$$NULLOREF,r%chkCaseSensitive=newvalue q $$$OK i r%chkCaseSensitive'=$$$NULLOREF n temp $$$objReferenceListRemove(r%chkCaseSensitive,%this,temp) d ..chkCaseSensitive.%Close() s:(r%chkCaseSensitive'=newvalue)!((newvalue=$$$NULLOREF)&(i%chkCaseSensitive'="")) $$$objModBit(##this,18)=1 s r%chkCaseSensitive=newvalue,i%chkCaseSensitive=$$$NULLOID i newvalue=$$$NULLOREF QUIT $$$OK $$$objReferenceListAdd(r%chkCaseSensitive,%this) $$$IncrementReferenceCount(newvalue) QUIT $$$OK q "" chkCaseSensitiveSetModified(%this,newvalue) ; s $$$objModBit(##this,18)=''newvalue QUIT $$$OK q "" #endclasscontext UI.Utils.RtnFind.MainForm