##
my ( $orderDetail ) = $message->{OrderDetail};
my ( $itemDetails ) = $orderDetail->{ListOfItemDetail}->{ItemDetail};
$LineNoteNum = scalar ( @$itemDetails );
for ( $itemNum = 0; $itemNum < $LineNoteNum; $itemNum++ )
{
my ( $lineItemNote ) = $$itemDetails[$itemNum]{ListOfStructuredNote}->{StructuredNote};
for ( $NoteNum = 0; $NoteNum < $LineNoteNum; $NoteNum++ )
{
my ( $testString ) = $$lineItemNote[$NoteNum]{GeneralNote};
}
}