'----------------------------------------------
'---------Creation Information-----------------
'----------------------------------------------
'
'Name: sortpoint
'Author:  Cindy How
'Date:    4/97
'      
'----------------------------------------------
'------------Purpose/Description---------------
'----------------------------------------------
'
'This script will take all points in the inodes.shp theme
'and find which are terminal points (elbows vs online drains
'or manholes).  It also flags the nodes which are
'manholes by calling on the script SELECT.
'
'-----------------------------------------------
'-------------------Input-----------------------
'-----------------------------------------------
'
'1.  Attribute table for the theme nodes 
'
'-----------------------------------------------
'------------------Output-----------------------
'-----------------------------------------------
'
'1.  Added field to node theme, indicating elbow (-1)
'    or online drain or manhole (numbered)
'
'-----------------------------------------------
'---------Get Initial Information---------------
'-----------------------------------------------

TheProject = av.GetProject
TheView = av.GetActiveDoc
ThemeList = TheView.GetThemes
TheTheme=MsgBox.ChoiceAsString(ThemeList,"Choose the theme representing your nodes.",ThemeList.Get(0).GetName)
  If (TheTheme = nil) then
  msgbox.info("No theme was selected","Exit")
  exit
  end
TheFtab = TheTheme.GetFtab
TheField = TheFtab.FindField("Inodes")

BrTheme = MsgBox.ChoiceAsString(ThemeList,"Choose your branch theme.",ThemeList.Get(0).GetName)
  If (BrTheme = nil) then
  msgbox.info("No theme was selected","Exit")
  exit
  end
BrTab = BrTheme.GetFtab
TNodeField=BrTab.FindField("Tnode_")
FnodeField = BrTab.FindField("Fnode_")
'-----------------------------------------------
'-----Add New Fields to Node Attribute Table----
'-----------------------------------------------

TheFtab.setEditable(true)
TypeFld=Field.make("Node_Type",#Field_short,4,0)
NodeFld=Field.make("Node",#Field_short,4,0)
NTypeFld = Field.make("Manhole",#Field_short,4,0)
TheFtab.AddFields({TypeFld,NodeFld,NTypeFld})


TNodeList = List.Make 'Makes List of "to Nodes"
Fnodelist = list.make 'makes a list of "from nodes"
i=0
For each rec in BrTab
  TNode = BrTab.ReturnValue(TNodeField,i)
  TNodeList.Add(Tnode)
  Fnode = BrTab.ReturnValue(FnodeField,i)
  Fnodelist.Add(Fnode)
    i = i +1
end

j= 1  'Assigns value of -1 to the field "Node_Type" for terminal nodes
For each rec in TheFtab
  Check = TNodeList.FindbyValue(j)
      If (check = -1) then
      TheFtab.SetValue(TypeFld,rec,check)
    else
      TheFtab.SetValue(TypeFld,rec,1)
    end
  Check2 = FnodeList.FindByValue(j)
    If (check2 = -1) then
    TheFtab.SetValue(typeFld,rec,2) 'set type value of last node in system to 2
    Else
    end
    j = j+1
end


k = 1
for each rec in TheFtab
  type = TheFtab.ReturnValue(TypeFld,rec)
  if (type = -1) then
  elseif (type = 2) then
    TheFtab.SetValue(NodeFld,rec,-1)
  else
    TheFtab.SetValue(NodeFld,rec,k)
    k=k+1
  end
end  


'----------------------------------------------
'-----------Junction or Manhole----------------
'----------------------------------------------
'Prompt user to select which nodes represent manholes.
'Assign a value of 1 to manholes and -1 to junctions

msgbox.info("Click on the nodes which represent manholes","Select Manholes")
av.run("select",{})