🚀 go-pugleaf

I'm am trying to modify a script included in OS X  which calls an XML-RPC server and gets a delayed stock quote so that it will generate an InDesign page filled with different stock quotes. 

I have got the basic script working but I would really need some help on to repeat it in an effcient way so that the script doesn't become ridiculously verbose 

Here's the script 

 
�(* 
WSDL URL:	http://services.xmethods.net/soap/urn <http://services.xmethods.net/soap/urn>:xmethods-delayed-quotes.wsdl � 
(IBM WSDL Toolkit 1.1 - compatible version)  
* )

-- SET THE DEFAULT VALUES 
property SOAP_Endpoint_URL : "http://services.xmethods.net:80/soap" 
property SOAP_app : "soap" 
property method_name : "getQuote" 
property method_namespace_URI : "urn:xmethods-delayed-quotes" 
property SOAP_action : "" 

-- SET WHICH STOCK TO LOOK  UP USING NASDAQ SYMBOLS, Other symbols to use for testing purpose could be APPL, MACR, MSFT etc. 
set this_text to "ADBE" 

-- CREATE THE PARAMETER RECORD 
set the method_parameters to {Symbol:this_text} 

-- CALL THE SOAP SUB-ROUTINE 
on SOAP_call(SOAP_Endpoint_URL, method_name, method_namespace_URI, method_parameters, SOAP_action) 
	using terms from application "http://www.apple.com/placebo" 
		tell application SOAP_Endpoint_URL 
			set this_result to call soap � 
				{method name:method_name � 
					, method namespace uri:method_namespace_URI � 
					, parameters:method_parameters � 
					, SOAPAction:SOAP_action} 
		end tell 
	end using terms from 
	return {this_result} 
end SOAP_call 

copy my SOAP_call(SOAP_Endpoint_URL, method_name, method_namespace_URI, method_parameters, SOAP_action) to {call_result} 

-- MOVE RESULTS TO INDESIGN 
tell application "InDesign 2.0.1" 
	set myDocument to active document 
	tell spread 1 of myDocument 
		set contents of text frame 1 to (this_text & tab & call_result) 
	end tell 
end tell