'----------------------------------------
'---------Creation Information-----------
'----------------------------------------
'
'Name: oinflow
'Author:  Cindy How
'Date:    6/27/97
'
'----------------------------------------
'-----------Purpose/Description----------
'----------------------------------------
'
'This script will give the user two options
'on entering data for inflow to the OSBL
'system:  1) User specified input at locations
'clicked on or 2) Information taken from ISBL
'subdirectories with possible additional inflow.
'
'(for the present, as the structure for option
'2 is not yet ready, option one will be programmed)
'
'This is to be used with OSBL units.
'
'This script will run as the Click event
'with the script OSELFLOW.
'
'----------------------------------------
'-----------------Input------------------
'----------------------------------------
'
'1.  Node theme Onodes.shp
'2.  Attribute table to node theme
'    - Field "Ex_br"
'
'----------------------------------------
'-----------------Output-----------------
'----------------------------------------
'
'1.  oinflow.dbf file with branch, flow,
'    temperature, concentration, and oil
'    fraction for each inflow site (empty
'    fields).
'
'This file will help create the OSBL.IN
'naUTilus input file
'
'----------------------------------------
'-----------Get Initial Info-------------
'----------------------------------------
'
TheProject = av.GetProject

'Add New Table
Tabname = "oinflow.dbf".AsFilename
NewTable = VTab.MakeNew(Tabname,dBase)

'----------------------------------------
'-----Adding Fields to the New Table-----
'----------------------------------------

BFld = Field.Make("Branch",#Field_short,6,0)
FFld = Field.Make("Flow",#Field_decimal,10,4)
TFld = Field.Make("Temperat",#Field_decimal,8,3)
CFld = Field.Make("Concentra",#Field_decimal,10,4)
OFld = Field.Make("Oil_frac",#Field_decimal,7,5)
NewTable.AddFields({BFld,FFld,TFld,CFld,OFld})

'AddTable
TheTable = Table.Make(NewTable)
TheTable.SetName("oinflow.dbf")

MsgBox.Info("Click on each point where flow occurs","User Input")