sub CREATE_GLOBAL_PTF_VIA_PTFMGR {
	my $pnum = (@_[0]);   ##part number passed arg @_ into local var pnum
	my $coreid = (@_[1]);
	#use XML::Simple;
	#use HTTP::Response;
	#use LWP::UserAgent;
	my $ptfmgr_server= "v02k603.am.mot.com:9090/pcs/";
	############## Call to PTF web services for description information #############
	
	my $url = "http://$ptfmgr_server/services/GenerateGlobalPtf?coreid=$coreid&partNumber=$pnum";
	my $ua= new LWP::UserAgent;
	#my $ua->agent("Mozilla/5.0");
	my $ua->agent("");
	my $request = new HTTP::Request GET => "$url";
	my $response = $ua->request($request);
	my $ptf_filename;
	my $log = ""
	if ( $response->is_success ) {
		my $content= $response->content;
		#print "\$content = $content\n";
		############## Read XML information #############
		my $xml = new XML::Simple(suppressempty => ''); ### create object suppressempty returns empty elements as strings.
		my $data =  $xml->XMLin($content);		 ### read XML file
		my $return_value = $data->{ReturnValue};
		my $ptfmgr_error = $data->{Error};
		my $ptf_filename = $data->{PtfFileName};
		#print "\$return_value = $return_value\n";
		#if ( $return_value == "1" ) {
		#	my $log = "\sGlobal PTF generation to \"$ptf_filename\" was successful.\n";
		#} else {
		#  	my $log = "\sPTFMGR returned the error:\n\n$ptfmgr_error\n\nGlobal PTF not created for $ptf_filename.\n.";
		#}
	#} else {
		#	my $log = "\sCould not create PTF via PTFMGR! It may be offline.\n";
		#	}
	
	} 
	return $ptf_filename;
}