;UI.Utils.RtnFind.MainForm.6
 ;(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


pbProgNewObject(%this) ;
 n newobject
 s newobject=##class(%Library.TMProgressBar).%New("") i newobject=$$$NULLOREF q newobject
 s ..pbProg=newobject d newobject.%Close()
 q newobject
 q ""

pbProgResetObject(%this,force) s force=$g(force,0)
 n sc,newvalue i r%pbProg'=$$$NULLOREF s sc=..pbProg.%GetSwizzleObject(force,.newvalue) q:$$$ISERR(sc) sc s:i%pbProg'=$$$oidPrimary(newvalue) $$$objModBit(##this,27)=1 s i%pbProg=$$$oidPrimary(newvalue)
 QUIT $$$OK
 q ""

pbProgSet(%this,newvalue) ;
 i newvalue'=$$$NULLOREF,'$$$objExists(newvalue) q $$$ERROR($$$OrefInvalid,newvalue)
 i newvalue'=$$$NULLOREF,r%pbProg=newvalue q $$$OK
 i r%pbProg'=$$$NULLOREF n temp $$$objReferenceListRemove(r%pbProg,%this,temp) d ..pbProg.%Close()
 s:(r%pbProg'=newvalue)!((newvalue=$$$NULLOREF)&(i%pbProg'="")) $$$objModBit(##this,27)=1
 s r%pbProg=newvalue,i%pbProg=$$$NULLOID
 i newvalue=$$$NULLOREF QUIT $$$OK
 $$$objReferenceListAdd(r%pbProg,%this) $$$IncrementReferenceCount(newvalue)
 QUIT $$$OK
 q ""

pbProgSetModified(%this,newvalue) ;
 s $$$objModBit(##this,27)=''newvalue
 QUIT $$$OK
 q ""

pbProgSetObject(%this,newvalue) ;
 i r%pbProg=$$$NULLOREF s:i%pbProg'=$$$oidPrimary(newvalue) $$$objModBit(##this,27)=1 s i%pbProg=$$$oidPrimary(newvalue) QUIT $$$OK
 n sc,oid s sc=..pbProg.%GetSwizzleObject(0,.oid) q:$$$ISERR(sc) sc
 s:oid'=newvalue $$$objModBit(##this,27)=1
 i newvalue'="",oid=newvalue QUIT $$$OK
 n temp $$$objReferenceListRemove(r%pbProg,%this,temp) do ..pbProg.%Close() s r%pbProg=$$$NULLOREF s i%pbProg=$$$oidPrimary(newvalue) QUIT $$$OK
 q ""

pbProgSetObjectId(%this,newid) ;
 q ..pbProgSetObject($$$oidForm(newid))

pbProgUnSwizzle(%this) ;
 q:r%pbProg=$$$NULLOREF
 n sc s sc=..pbProgResetObject() q:$$$ISERR(sc) sc
 n temp $$$objReferenceListRemove(r%pbProg,%this,temp) d ..pbProg.%Close() s r%pbProg=$$$NULLOREF QUIT $$$OK
 q ""

rePrintGet(%this) ;
 i r%rePrint'=$$$NULLOREF q r%rePrint
 n oid,oref s oid=i%rePrint
 s oid=$$$oidForm(oid)
 s oref=##class(%Library.TMRichEdit).%Open(oid) i oref=$$$NULLOREF q $$$NULLOREF
 $$$objReferenceListAdd(oref,%this)
 s r%rePrint=oref
 q r%rePrint
 q ""

rePrintGetObject(%this,force) s force=$g(force,0)
 q:r%rePrint=$$$NULLOREF $s(i%rePrint="":"",1:$lb(i%rePrint_"")) n oid q:$$$ISOK(..rePrint.%GetSwizzleObject(force,.oid)) oid q ""
 q ""

rePrintGetObjectId(%this,force) s force=$g(force,0)
 q $$$oidPrimary(..rePrintGetObject(force))

rePrintIsModified(%this) ;
 q $$$objModBit(##this,28)

#classmethod
rePrintIsValid(value) ;
 q 1
#endclassmethod

rePrintNewObject(%this) ;
 n newobject
 s newobject=##class(%Library.TMRichEdit).%New("") i newobject=$$$NULLOREF q newobject
 s ..rePrint=newobject d newobject.%Close()
 q newobject
 q ""

rePrintResetObject(%this,force) s force=$g(force,0)
 n sc,newvalue i r%rePrint'=$$$NULLOREF s sc=..rePrint.%GetSwizzleObject(force,.newvalue) q:$$$ISERR(sc) sc s:i%rePrint'=$$$oidPrimary(newvalue) $$$objModBit(##this,28)=1 s i%rePrint=$$$oidPrimary(newvalue)
 QUIT $$$OK
 q ""

rePrintSet(%this,newvalue) ;
 i newvalue'=$$$NULLOREF,'$$$objExists(newvalue) q $$$ERROR($$$OrefInvalid,newvalue)
 i newvalue'=$$$NULLOREF,r%rePrint=newvalue q $$$OK
 i r%rePrint'=$$$NULLOREF n temp $$$objReferenceListRemove(r%rePrint,%this,temp) d ..rePrint.%Close()
 s:(r%rePrint'=newvalue)!((newvalue=$$$NULLOREF)&(i%rePrint'="")) $$$objModBit(##this,28)=1
 s r%rePrint=newvalue,i%rePrint=$$$NULLOID
 i newvalue=$$$NULLOREF QUIT $$$OK
 $$$objReferenceListAdd(r%rePrint,%this) $$$IncrementReferenceCount(newvalue)
 QUIT $$$OK
 q ""

rePrintSetModified(%this,newvalue) ;
 s $$$objModBit(##this,28)=''newvalue
 QUIT $$$OK
 q ""

rePrintSetObject(%this,newvalue) ;
 i r%rePrint=$$$NULLOREF s:i%rePrint'=$$$oidPrimary(newvalue) $$$objModBit(##this,28)=1 s i%rePrint=$$$oidPrimary(newvalue) QUIT $$$OK
 n sc,oid s sc=..rePrint.%GetSwizzleObject(0,.oid) q:$$$ISERR(sc) sc
 s:oid'=newvalue $$$objModBit(##this,28)=1
 i newvalue'="",oid=newvalue QUIT $$$OK
 n temp $$$objReferenceListRemove(r%rePrint,%this,temp) do ..rePrint.%Close() s r%rePrint=$$$NULLOREF s i%rePrint=$$$oidPrimary(newvalue) QUIT $$$OK
 q ""

rePrintSetObjectId(%this,newid) ;
 q ..rePrintSetObject($$$oidForm(newid))

rePrintUnSwizzle(%this) ;
 q:r%rePrint=$$$NULLOREF
 n sc s sc=..rePrintResetObject() q:$$$ISERR(sc) sc
 n temp $$$objReferenceListRemove(r%rePrint,%this,temp) d ..rePrint.%Close() s r%rePrint=$$$NULLOREF QUIT $$$OK
 q ""

tvBrowserGet(%this) ;
 i r%tvBrowser'=$$$NULLOREF q r%tvBrowser
 n oid,oref s oid=i%tvBrowser
 s oid=$$$oidForm(oid)
 s oref=##class(%Library.TMTreeView).%Open(oid) i oref=$$$NULLOREF q $$$NULLOREF
 $$$objReferenceListAdd(oref,%this)
 s r%tvBrowser=oref
 q r%tvBrowser
 q ""

tvBrowserGetObject(%this,force) s force=$g(force,0)
 q:r%tvBrowser=$$$NULLOREF $s(i%tvBrowser="":"",1:$lb(i%tvBrowser_"")) n oid q:$$$ISOK(..tvBrowser.%GetSwizzleObject(force,.oid)) oid q ""
 q ""

tvBrowserGetObjectId(%this,force) s force=$g(force,0)
 q $$$oidPrimary(..tvBrowserGetObject(force))

tvBrowserIsModified(%this) ;
 q $$$objModBit(##this,29)

#classmethod
tvBrowserIsValid(value) ;
 q 1
#endclassmethod

tvBrowserNewObject(%this) ;
 n newobject
 s newobject=##class(%Library.TMTreeView).%New("") i newobject=$$$NULLOREF q newobject
 s ..tvBrowser=newobject d newobject.%Close()
 q newobject
 q ""

tvBrowserResetObject(%this,force) s force=$g(force,0)
 n sc,newvalue i r%tvBrowser'=$$$NULLOREF s sc=..tvBrowser.%GetSwizzleObject(force,.newvalue) q:$$$ISERR(sc) sc s:i%tvBrowser'=$$$oidPrimary(newvalue) $$$objModBit(##this,29)=1 s i%tvBrowser=$$$oidPrimary(newvalue)
 QUIT $$$OK
 q ""

tvBrowserSet(%this,newvalue) ;
 i newvalue'=$$$NULLOREF,'$$$objExists(newvalue) q $$$ERROR($$$OrefInvalid,newvalue)
 i newvalue'=$$$NULLOREF,r%tvBrowser=newvalue q $$$OK
 i r%tvBrowser'=$$$NULLOREF n temp $$$objReferenceListRemove(r%tvBrowser,%this,temp) d ..tvBrowser.%Close()
 s:(r%tvBrowser'=newvalue)!((newvalue=$$$NULLOREF)&(i%tvBrowser'="")) $$$objModBit(##this,29)=1
 s r%tvBrowser=newvalue,i%tvBrowser=$$$NULLOID
 i newvalue=$$$NULLOREF QUIT $$$OK
 $$$objReferenceListAdd(r%tvBrowser,%this) $$$IncrementReferenceCount(newvalue)
 QUIT $$$OK
 q ""

tvBrowserSetModified(%this,newvalue) ;
 s $$$objModBit(##this,29)=''newvalue
 QUIT $$$OK
 q ""

tvBrowserSetObject(%this,newvalue) ;
 i r%tvBrowser=$$$NULLOREF s:i%tvBrowser'=$$$oidPrimary(newvalue) $$$objModBit(##this,29)=1 s i%tvBrowser=$$$oidPrimary(newvalue) QUIT $$$OK
 n sc,oid s sc=..tvBrowser.%GetSwizzleObject(0,.oid) q:$$$ISERR(sc) sc
 s:oid'=newvalue $$$objModBit(##this,29)=1
 i newvalue'="",oid=newvalue QUIT $$$OK
 n temp $$$objReferenceListRemove(r%tvBrowser,%this,temp) do ..tvBrowser.%Close() s r%tvBrowser=$$$NULLOREF s i%tvBrowser=$$$oidPrimary(newvalue) QUIT $$$OK
 q ""

tvBrowserSetObjectId(%this,newid) ;
 q ..tvBrowserSetObject($$$oidForm(newid))

tvBrowserUnSwizzle(%this) ;
 q:r%tvBrowser=$$$NULLOREF
 n sc s sc=..tvBrowserResetObject() q:$$$ISERR(sc) sc
 n temp $$$objReferenceListRemove(r%tvBrowser,%this,temp) d ..tvBrowser.%Close() s r%tvBrowser=$$$NULLOREF QUIT $$$OK
 q ""

txtOnLblGet(%this) ;
 i r%txtOnLbl'=$$$NULLOREF q r%txtOnLbl
 n oid,oref s oid=i%txtOnLbl
 s oid=$$$oidForm(oid)
 s oref=##class(%Library.TMEdit).%Open(oid) i oref=$$$NULLOREF q $$$NULLOREF
 $$$objReferenceListAdd(oref,%this)
 s r%txtOnLbl=oref
 q r%txtOnLbl
 q ""

txtOnLblGetObject(%this,force) s force=$g(force,0)
 q:r%txtOnLbl=$$$NULLOREF $s(i%txtOnLbl="":"",1:$lb(i%txtOnLbl_"")) n oid q:$$$ISOK(..txtOnLbl.%GetSwizzleObject(force,.oid)) oid q ""
 q ""

txtOnLblGetObjectId(%this,force) s force=$g(force,0)
 q $$$oidPrimary(..txtOnLblGetObject(force))

txtOnLblIsModified(%this) ;
 q $$$objModBit(##this,30)

#classmethod
txtOnLblIsValid(value) ;
 q 1
#endclassmethod

txtOnLblNewObject(%this) ;
 n newobject
 s newobject=##class(%Library.TMEdit).%New("") i newobject=$$$NULLOREF q newobject
 s ..txtOnLbl=newobject d newobject.%Close()
 q newobject
 q ""

txtOnLblResetObject(%this,force) s force=$g(force,0)
 n sc,newvalue i r%txtOnLbl'=$$$NULLOREF s sc=..txtOnLbl.%GetSwizzleObject(force,.newvalue) q:$$$ISERR(sc) sc s:i%txtOnLbl'=$$$oidPrimary(newvalue) $$$objModBit(##this,30)=1 s i%txtOnLbl=$$$oidPrimary(newvalue)
 QUIT $$$OK
 q ""

txtOnLblSet(%this,newvalue) ;
 i newvalue'=$$$NULLOREF,'$$$objExists(newvalue) q $$$ERROR($$$OrefInvalid,newvalue)
 i newvalue'=$$$NULLOREF,r%txtOnLbl=newvalue q $$$OK
 i r%txtOnLbl'=$$$NULLOREF n temp $$$objReferenceListRemove(r%txtOnLbl,%this,temp) d ..txtOnLbl.%Close()
 s:(r%txtOnLbl'=newvalue)!((newvalue=$$$NULLOREF)&(i%txtOnLbl'="")) $$$objModBit(##this,30)=1
 s r%txtOnLbl=newvalue,i%txtOnLbl=$$$NULLOID
 i newvalue=$$$NULLOREF QUIT $$$OK
 $$$objReferenceListAdd(r%txtOnLbl,%this) $$$IncrementReferenceCount(newvalue)
 QUIT $$$OK
 q ""

txtOnLblSetModified(%this,newvalue) ;
 s $$$objModBit(##this,30)=''newvalue
 QUIT $$$OK
 q ""

txtOnLblSetObject(%this,newvalue) ;
 i r%txtOnLbl=$$$NULLOREF s:i%txtOnLbl'=$$$oidPrimary(newvalue) $$$objModBit(##this,30)=1 s i%txtOnLbl=$$$oidPrimary(newvalue) QUIT $$$OK
 n sc,oid s sc=..txtOnLbl.%GetSwizzleObject(0,.oid) q:$$$ISERR(sc) sc
 s:oid'=newvalue $$$objModBit(##this,30)=1
 i newvalue'="",oid=newvalue QUIT $$$OK
 n temp $$$objReferenceListRemove(r%txtOnLbl,%this,temp) do ..txtOnLbl.%Close() s r%txtOnLbl=$$$NULLOREF s i%txtOnLbl=$$$oidPrimary(newvalue) QUIT $$$OK
 q ""

txtOnLblSetObjectId(%this,newid) ;
 q ..txtOnLblSetObject($$$oidForm(newid))

txtOnLblUnSwizzle(%this) ;
 q:r%txtOnLbl=$$$NULLOREF
 n sc s sc=..txtOnLblResetObject() q:$$$ISERR(sc) sc
 n temp $$$objReferenceListRemove(r%txtOnLbl,%this,temp) d ..txtOnLbl.%Close() s r%txtOnLbl=$$$NULLOREF QUIT $$$OK
 q ""

txtOnRtnGet(%this) ;
 i r%txtOnRtn'=$$$NULLOREF q r%txtOnRtn
 n oid,oref s oid=i%txtOnRtn
 s oid=$$$oidForm(oid)
 s oref=##class(%Library.TMEdit).%Open(oid) i oref=$$$NULLOREF q $$$NULLOREF
 $$$objReferenceListAdd(oref,%this)
 s r%txtOnRtn=oref
 q r%txtOnRtn
 q ""

txtOnRtnGetObject(%this,force) s force=$g(force,0)
 q:r%txtOnRtn=$$$NULLOREF $s(i%txtOnRtn="":"",1:$lb(i%txtOnRtn_"")) n oid q:$$$ISOK(..txtOnRtn.%GetSwizzleObject(force,.oid)) oid q ""
 q ""

txtOnRtnGetObjectId(%this,force) s force=$g(force,0)
 q $$$oidPrimary(..txtOnRtnGetObject(force))

txtOnRtnIsModified(%this) ;
 q $$$objModBit(##this,31)

#classmethod
txtOnRtnIsValid(value) ;
 q 1
#endclassmethod

txtOnRtnNewObject(%this) ;
 n newobject
 s newobject=##class(%Library.TMEdit).%New("") i newobject=$$$NULLOREF q newobject
 s ..txtOnRtn=newobject d newobject.%Close()
 q newobject
 q ""

txtOnRtnResetObject(%this,force) s force=$g(force,0)
 n sc,newvalue i r%txtOnRtn'=$$$NULLOREF s sc=..txtOnRtn.%GetSwizzleObject(force,.newvalue) q:$$$ISERR(sc) sc s:i%txtOnRtn'=$$$oidPrimary(newvalue) $$$objModBit(##this,31)=1 s i%txtOnRtn=$$$oidPrimary(newvalue)
 QUIT $$$OK
 q ""

txtOnRtnSet(%this,newvalue) ;
 i newvalue'=$$$NULLOREF,'$$$objExists(newvalue) q $$$ERROR($$$OrefInvalid,newvalue)
 i newvalue'=$$$NULLOREF,r%txtOnRtn=newvalue q $$$OK
 i r%txtOnRtn'=$$$NULLOREF n temp $$$objReferenceListRemove(r%txtOnRtn,%this,temp) d ..txtOnRtn.%Close()
 s:(r%txtOnRtn'=newvalue)!((newvalue=$$$NULLOREF)&(i%txtOnRtn'="")) $$$objModBit(##this,31)=1
 s r%txtOnRtn=newvalue,i%txtOnRtn=$$$NULLOID
 i newvalue=$$$NULLOREF QUIT $$$OK
 $$$objReferenceListAdd(r%txtOnRtn,%this) $$$IncrementReferenceCount(newvalue)
 QUIT $$$OK
 q ""

txtOnRtnSetModified(%this,newvalue) ;
 s $$$objModBit(##this,31)=''newvalue
 QUIT $$$OK
 q ""

txtOnRtnSetObject(%this,newvalue) ;
 i r%txtOnRtn=$$$NULLOREF s:i%txtOnRtn'=$$$oidPrimary(newvalue) $$$objModBit(##this,31)=1 s i%txtOnRtn=$$$oidPrimary(newvalue) QUIT $$$OK
 n sc,oid s sc=..txtOnRtn.%GetSwizzleObject(0,.oid) q:$$$ISERR(sc) sc
 s:oid'=newvalue $$$objModBit(##this,31)=1
 i newvalue'="",oid=newvalue QUIT $$$OK
 n temp $$$objReferenceListRemove(r%txtOnRtn,%this,temp) do ..txtOnRtn.%Close() s r%txtOnRtn=$$$NULLOREF s i%txtOnRtn=$$$oidPrimary(newvalue) QUIT $$$OK
 q ""

txtOnRtnSetObjectId(%this,newid) ;
 q ..txtOnRtnSetObject($$$oidForm(newid))

txtOnRtnUnSwizzle(%this) ;
 q:r%txtOnRtn=$$$NULLOREF
 n sc s sc=..txtOnRtnResetObject() q:$$$ISERR(sc) sc
 n temp $$$objReferenceListRemove(r%txtOnRtn,%this,temp) d ..txtOnRtn.%Close() s r%txtOnRtn=$$$NULLOREF QUIT $$$OK
 q ""

txtSearchForGet(%this) ;
 i r%txtSearchFor'=$$$NULLOREF q r%txtSearchFor
 n oid,oref s oid=i%txtSearchFor
 s oid=$$$oidForm(oid)
 s oref=##class(%Library.TMEdit).%Open(oid) i oref=$$$NULLOREF q $$$NULLOREF
 $$$objReferenceListAdd(oref,%this)
 s r%txtSearchFor=oref
 q r%txtSearchFor
 q ""

txtSearchForGetObject(%this,force) s force=$g(force,0)
 q:r%txtSearchFor=$$$NULLOREF $s(i%txtSearchFor="":"",1:$lb(i%txtSearchFor_"")) n oid q:$$$ISOK(..txtSearchFor.%GetSwizzleObject(force,.oid)) oid q ""
 q ""

txtSearchForGetObjectId(%this,force) s force=$g(force,0)
 q $$$oidPrimary(..txtSearchForGetObject(force))

txtSearchForIsModified(%this) ;
 q $$$objModBit(##this,32)

#classmethod
txtSearchForIsValid(value) ;
 q 1
#endclassmethod

txtSearchForNewObject(%this) ;
 n newobject
 s newobject=##class(%Library.TMEdit).%New("") i newobject=$$$NULLOREF q newobject
 s ..txtSearchFor=newobject d newobject.%Close()
 q newobject
 q ""

txtSearchForResetObject(%this,force) s force=$g(force,0)
 n sc,newvalue i r%txtSearchFor'=$$$NULLOREF s sc=..txtSearchFor.%GetSwizzleObject(force,.newvalue) q:$$$ISERR(sc) sc s:i%txtSearchFor'=$$$oidPrimary(newvalue) $$$objModBit(##this,32)=1 s i%txtSearchFor=$$$oidPrimary(newvalue)
 QUIT $$$OK
 q ""

txtSearchForSet(%this,newvalue) ;
 i newvalue'=$$$NULLOREF,'$$$objExists(newvalue) q $$$ERROR($$$OrefInvalid,newvalue)
 i newvalue'=$$$NULLOREF,r%txtSearchFor=newvalue q $$$OK
 i r%txtSearchFor'=$$$NULLOREF n temp $$$objReferenceListRemove(r%txtSearchFor,%this,temp) d ..txtSearchFor.%Close()
 s:(r%txtSearchFor'=newvalue)!((newvalue=$$$NULLOREF)&(i%txtSearchFor'="")) $$$objModBit(##this,32)=1
 s r%txtSearchFor=newvalue,i%txtSearchFor=$$$NULLOID
 i newvalue=$$$NULLOREF QUIT $$$OK
 $$$objReferenceListAdd(r%txtSearchFor,%this) $$$IncrementReferenceCount(newvalue)
 QUIT $$$OK
 q ""

txtSearchForSetModified(%this,newvalue) ;
 s $$$objModBit(##this,32)=''newvalue
 QUIT $$$OK
 q ""

txtSearchForSetObject(%this,newvalue) ;
 i r%txtSearchFor=$$$NULLOREF s:i%txtSearchFor'=$$$oidPrimary(newvalue) $$$objModBit(##this,32)=1 s i%txtSearchFor=$$$oidPrimary(newvalue) QUIT $$$OK
 n sc,oid s sc=..txtSearchFor.%GetSwizzleObject(0,.oid) q:$$$ISERR(sc) sc
 s:oid'=newvalue $$$objModBit(##this,32)=1
 i newvalue'="",oid=newvalue QUIT $$$OK
 n temp $$$objReferenceListRemove(r%txtSearchFor,%this,temp) do ..txtSearchFor.%Close() s r%txtSearchFor=$$$NULLOREF s i%txtSearchFor=$$$oidPrimary(newvalue) QUIT $$$OK
 q ""

txtSearchForSetObjectId(%this,newid) ;
 q ..txtSearchForSetObject($$$oidForm(newid))

txtSearchForUnSwizzle(%this) ;
 q:r%txtSearchFor=$$$NULLOREF
 n sc s sc=..txtSearchForResetObject() q:$$$ISERR(sc) sc
 n temp $$$objReferenceListRemove(r%txtSearchFor,%this,temp) d ..txtSearchFor.%Close() s r%txtSearchFor=$$$NULLOREF QUIT $$$OK
 q ""

#endclasscontext UI.Utils.RtnFind.MainForm