'++LotusScript Development Environment:2:5:(Options):0:66
Option Public

'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Function MainTableOfRepPanel(FNAME As String, RP As REPEATINGPANEL) As Integer

'++LotusScript Development Environment:2:5:(Declarations):0:10
Dim QuestionName As String
Dim QesRespName As String

'++LotusScript Development Environment:2:1:MainTableOfRepPanel:1:8
Function MainTableOfRepPanel(FNAME As String, RP As REPEATINGPANEL) As Integer
	FNAME = ""
	Dim N As Integer
	N = -1
	Dim FILENAME As String
	Dim D As DOCUMENT
	Set D = CURRENTDOCUMENT
	Dim BC As BASECOLLECTION
	Set BC = D.TABLES
	FNAME = RP.MAINTABLE
	N = Instr(FNAME,":")
	If Not N = 0 Then FNAME = Left$(FNAME,N-1)
	
	Forall T In BC
		Set TBL = T
		FILENAME = TBL.FILENAME
		N = Instr(FILENAME,".")
		If Not N = 0 Then FILENAME = Left$(FILENAME,N-1)
		N = Strcompare(FNAME,FILENAME)
		
		If N = 0 Then 
			FNAME = TBL.FULLNAME
			Goto OUT
		End If
		
		
	End Forall
	
	
OUT:
	If N = 0 Then 
		MainTableOfRepPanel = True
	Else 
		MainTableOfRepPanel = False
	End If
End Function