#parse xml_line and create heading records
Set Variable [ $ID_Collection; Value:Get(ScriptParameter) ]
Freeze Window
Set Error Capture [ On ]
#delete existing heading records
Perform Script [ “Delete_Heading”; Parameter: $ID_Collection ]
Go to Layout [ “XML_Line” (XML_Line) ]
#select fk_Collection = $ID_Collection
Perform Find [ Specified Find Requests: Find Records; Criteria: XML_Line::fk_Collection: “=$ID_Collection” ] [ Restore ]
If [ Get(FoundCount) > 0 ]
Sort Records by Field [ Ascending; XML_Line::Order ]
Else
Exit Script [ ]
End If
Set Variable [ $order; Value:1 ]
Loop
#read time
// Set Variable [ $StartRead; Value:Get(CurrentTimeUTCMilliseconds) ]
#document title
If [ Left ( XML_Line::Line ; 5 ) = "<DIV1" ]
Set Variable [ $Type; Value:"Heading" ]
Set Variable [ $HeadingType; Value:"Document" ]
Set Variable [ $TopicType; Value:"" ]
Set Variable [ $Node; Value:ECFR_GetNode ( Substitute ( XML_Line::Line ; "\"" ; "||" ) ) ]
Go to Record/Request/Page [ Next; Exit after last ]
Set Variable [ $Title; Value:RemoveTags ( XML_Line::Line ) ]
#chapter
Else If [ Left ( XML_Line::Line ; 5 ) = "<DIV3" ]
Set Variable [ $Type; Value:"Heading" ]
Set Variable [ $HeadingType; Value:"Chapter" ]
Set Variable [ $TopicType; Value:"" ]
Set Variable [ $Node; Value:ECFR_GetNode ( Substitute ( XML_Line::Line ; "\"" ; "||" ) ) ]
Go to Record/Request/Page [ Next; Exit after last ]
Set Variable [ $Title; Value:RemoveTags ( XML_Line::Line ) ]
#subchapter
Else If [ Left ( XML_Line::Line ; 5 ) = "<DIV4" ]
Set Variable [ $Type; Value:"Heading" ]
Set Variable [ $HeadingType; Value:"Subchapter" ]
Set Variable [ $TopicType; Value:"" ]
Set Variable [ $Node; Value:ECFR_GetNode ( Substitute ( XML_Line::Line ; "\"" ; "||" ) ) ]
Go to Record/Request/Page [ Next; Exit after last ]
Set Variable [ $Title; Value:RemoveTags ( XML_Line::Line ) ]
#part
Else If [ Left ( XML_Line::Line ; 5 ) = "<DIV5" ]
Set Variable [ $Type; Value:"Heading" ]
Set Variable [ $HeadingType; Value:"Part" ]
Set Variable [ $TopicType; Value:"" ]
Set Variable [ $Node; Value:ECFR_GetNode ( Substitute ( XML_Line::Line ; "\"" ; "||" ) ) ]
Go to Record/Request/Page [ Next; Exit after last ]
Set Variable [ $Title; Value:RemoveTags ( XML_Line::Line ) ]
#subpart
Else If [ Left ( XML_Line::Line ; 5 ) = "<DIV6" and PatternCount ( XML_Line::Line ; "N=\"0\"" ) = 0 ]
Set Variable [ $Type; Value:"Heading" ]
Set Variable [ $HeadingType; Value:"Subpart" ]
Set Variable [ $TopicType; Value:"" ]
Set Variable [ $Node; Value:ECFR_GetNode ( Substitute ( XML_Line::Line ; "\"" ; "||" ) ) ]
Go to Record/Request/Page [ Next; Exit after last ]
Set Variable [ $Title; Value:RemoveTags ( XML_Line::Line ) ]
#subject group
Else If [ Left ( XML_Line::Line ; 5 ) = "<DIV7" ]
Set Variable [ $Type; Value:"Heading" ]
Set Variable [ $HeadingType; Value:"Topicgroup" ]
Set Variable [ $TopicType; Value:"" ]
Set Variable [ $Node; Value:ECFR_GetNode ( Substitute ( XML_Line::Line ; "\"" ; "||" ) ) ]
Go to Record/Request/Page [ Next; Exit after last ]
Set Variable [ $Title; Value:RemoveTags ( XML_Line::Line ) ]
#topic
Else If [ Left ( XML_Line::Line ; 5 ) = "<DIV8" ]
Set Variable [ $Type; Value:"Topic" ]
Set Variable [ $HeadingType; Value:"" ]
Set Variable [ $TopicType; Value:"IR" ]
Set Variable [ $TypeOfContent; Value:"IR" ]
Set Variable [ $Node; Value:ECFR_GetNode ( Substitute ( XML_Line::Line ; "\"" ; "||" ) ) ]
Go to Record/Request/Page [ Next; Exit after last ]
Set Variable [ $Title; Value:RemoveTags ( XML_Line::Line ) ]
Set Variable [ $RuleCode; Value:Let ( [ title = Substitute ($Title ; [ " " ; " " ] ; [ " " ; " " ] ); firstspace = Position ( title ; " " ; 1 ; 1 ); secondspace = Position ( title ; " " ; 1 ; 2 ) ]; Trim ( Middle ( title ; firstspace + 1 ; secondspace - firstspace ) ) ) ]
#appendix
Else If [ Left ( XML_Line::Line ; 5 ) = "<DIV9" ]
Set Variable [ $Type; Value:"Topic" ]
Set Variable [ $HeadingType; Value:"Appendix" ]
Set Variable [ $TopicType; Value:"" ]
Set Variable [ $TypeOfContent; Value:"" ]
Set Variable [ $Node; Value:ECFR_GetNode ( Substitute ( XML_Line::Line ; "\"" ; "||" ) ) ]
Go to Record/Request/Page [ Next; Exit after last ]
Set Variable [ $Title; Value:RemoveTags ( XML_Line::Line ) ]
Set Variable [ $RuleCode; Value:Let ( [ title = Substitute ($Title ; [ " " ; " " ] ; [ " " ; " " ] ); firstspace = Position ( title ; " " ; 1 ; 1 ); secondspace = Position ( title ; " " ; 1 ; 2 ) ]; Trim ( Middle ( title ; firstspace + 1 ; secondspace - firstspace ) ) ) ]
End If
#end read
// Set Variable [ $EndRead; Value:Get(CurrentTimeUTCMilliseconds) ]
If [ not IsEmpty ( $Title ) ]
#write time
// Set Variable [ $StartWrite; Value:Get(CurrentTimeUTCMilliseconds) ]
Go to Layout [ “Heading” (Heading) ]
New Record/Request
Set Field [ Heading::fk_Collection; $ID_Collection ]
Set Field [ Heading::Type; $Type ]
Set Field [ Heading::TopicType; $TopicType ]
Set Field [ Heading::TypeOfContent; $TypeOfContent ]
Set Field [ Heading::SourceTitle; $Title ]
Set Field [ Heading::Order; $order ]
Set Field [ Heading::Bookmark; "Title_" & $Node ]
Set Field [ Heading::Node; $Node ]
Set Field [ Heading::RuleCode; $RuleCode ]
Commit Records/Requests [ Skip data entry validation; No dialog ]
Go to Layout [ “XML_Line” (XML_Line) ]
Set Variable [ $order; Value:$order + 1 ]
Set Variable [ $TypeOfContent; Value:"" ]
Set Variable [ $Title; Value:"" ]
Set Variable [ $RuleCode; Value:"" ]
// Set Variable [ $EndWrite; Value:Get(CurrentTimeUTCMilliseconds) ]
End If
// Set Variable [ $StartNextRecord; Value:Get(CurrentTimeUTCMilliseconds) ]
Go to Record/Request/Page [ Next; Exit after last ]
// Set Variable [ $EndNextRecord; Value:Get(CurrentTimeUTCMilliseconds) ]
// Perform Script [ “TimeLog”; Parameter: $ID_Collection & "¶" & Get(ScriptName) & "¶" & Get(LayoutName) & "¶" & XML_Line::Order & "¶" & $StartRead & "¶" & $EndRead & "¶" & $StartWrite & "¶" & $EndWrite & "¶" & $StartNextRecord & "¶" & $EndNextRecord ]
// Set Variable [ $StartWrite; Value:"" ]
// Set Variable [ $EndWrite; Value:"" ]
End Loop
Go to Layout [ original layout ]
Exit Script [ ]