Works like a charm!

Thank you Marc.

You can check for the size of the %request content reading "%request.Content.Size" and read the exact amount of bytes but keep in mind that , as Vitaliy already said, as long as you read a stream into a string you have to deal with the string Max Length. 

Hi Mark,

 in my experience mixed indexes (both with pure numbers and strings) are not a good choice if you need to perform something like a "STARTSWITH" function. 

In order to be able to always find your matching records near one to another and speed up the search, I think you have to normalize all the values by adding the space suffix to every code, assuming that values with and without space at the end refer to the same entity.
This way you can easily search for all the occurrence of a code that is starting with a specified prefix, without reading extra lines from the global.

Also you have to add a space at the prefix variable when searching if it is not present at the end of the passed value.

But if i look at your first screen, looks like you have no pure numbers in the second subscript of the global at the moment so I do not get the point.. 

Following you can find some of my tests:

d INIT^TESTRTN
^WK3SORT(1,0,9999)=""
^WK3SORT(1,801,307077)=""
^WK3SORT(1,802,306650)=""
^WK3SORT(1,800999,311404)=""
^WK3SORT(1," ",43017)=""
^WK3SORT(1," ",161692)=""
^WK3SORT(1," ",161693)=""
^WK3SORT(1," ",209576)=""
^WK3SORT(1,"80094NMGM ",528126)=""
^WK3SORT(1,"800999 ",305403)=""
^WK3SORT(1,"800999 ",305404)=""
^WK3SORT(1,"800999 ",311403)=""
^WK3SORT(1,"800999/T51316 ",364551)=""
^WK3SORT(1,"800999CAMDEN ",356252)=""
^WK3SORT(1,"801 ",307076)=""
^WK3SORT(1,"801 ",555780)=""
^WK3SORT(1,"80110 ",479476)=""
^WK3SORT(1,"802 ",306649)=""

d NORMALIZE^TESTRTN(1)
4 Lines Converted
^WK3SORT(1," ",43017)=""
^WK3SORT(1," ",161692)=""
^WK3SORT(1," ",161693)=""
^WK3SORT(1," ",209576)=""
^WK3SORT(1,"0 ",9999)=""
^WK3SORT(1,"80094NMGM ",528126)=""
^WK3SORT(1,"800999 ",305403)=""
^WK3SORT(1,"800999 ",305404)=""
^WK3SORT(1,"800999 ",311403)=""
^WK3SORT(1,"800999 ",311404)=""
^WK3SORT(1,"800999/T51316 ",364551)=""
^WK3SORT(1,"800999CAMDEN ",356252)=""
^WK3SORT(1,"801 ",307076)=""
^WK3SORT(1,"801 ",307077)=""
^WK3SORT(1,"801 ",555780)=""
^WK3SORT(1,"80110 ",479476)=""
^WK3SORT(1,"802 ",306649)=""
^WK3SORT(1,"802 ",306650)=""

d FIND^TESTRTN(1,"8009 ")
Order: 1-80094NMGM
  Detail: 528126
Order: 1-800999
  Detail: 305403
  Detail: 305404
  Detail: 311403
  Detail: 311404
Order: 1-800999/T51316
  Detail: 364551
Order: 1-800999CAMDEN
  Detail: 356252
 
5 lines read

TESTRTN
INIT
	//Create some dataKill^WK3SORT//StringsSet^WK3SORT(1," ",43017)=""Set^WK3SORT(1," ",161692)=""Set^WK3SORT(1," ",161693)=""Set^WK3SORT(1," ",209576)=""Set^WK3SORT(1,"80094NMGM ",528126)=""Set^WK3SORT(1,"800999 ",305403)=""Set^WK3SORT(1,"800999 ",305404)=""Set^WK3SORT(1,"800999 ",311403)=""Set^WK3SORT(1,"800999/T51316 ",364551)=""Set^WK3SORT(1,"800999CAMDEN ",356252)=""Set^WK3SORT(1,"801 ",307076)=""Set^WK3SORT(1,"801 ",555780)=""Set^WK3SORT(1,"80110 ",479476)=""Set^WK3SORT(1,"802 ",306649)=""//NumbersSet^WK3SORT(1,0,9999)=""Set^WK3SORT(1,801,307077)=""Set^WK3SORT(1,802,306650)=""Set^WK3SORT(1,800999,311404)=""//Show contentzw^WK3SORTQuit
NORMALIZE(Sub)
	New (Sub)
	Set (cnt,End)=0Set Next=""Set Next=$Order(^WK3SORT(Sub,Next))
	While (Next'="")&(End=0) {
		//Check if code is pure numberIf (Next=+Next) {
			Merge^WK3SORT(Sub,Next_" ")=^WK3SORT(Sub,Next)
			Kill^WK3SORT(Sub,Next)
			Set cnt=$I(cnt)
		} Else {
			Set End=1
		}
		Set Next=$Order(^WK3SORT(Sub,Next))
	}
	Use0Write cnt_" Lines Converted",!
	//Show contentzw^WK3SORTQuit
FIND(Sub,Prefix)
	New (Sub,Prefix)
	//Setting the space char to normalize the searchIf$Extract(Prefix,$Length(Prefix))'=" "Set Prefix=Prefix_" "//Dealing with exact matchIf$Data(^WK3SORT(Sub,Prefix)) {
		Use0Write"Order: "_Sub_"-"_Prefix_" ",! 
		Do GETDETAILS(Sub,Prefix)
	}
	//Looping trough the recordsSet End=0,Cnt=0Set Next=$Order(^WK3SORT(Sub,Prefix))
	While (Next'="")&(End=0) {
		Set cnt=$Increment(cnt)
		//Test if current value starts with the Prefix string passed or if it is a single space charIf ($Extract(Next,1,$Length(Prefix)-1)=$Extract(Prefix,1,$Length(Prefix-1)))!((Prefix=" ")&(Prefix=Next)) {
			Use0Write"Order: "_Sub_"-"_Next_" ",!
			Do GETDETAILS(Sub,Next)
		} Else {
			Set End=1
		}
		Set Next=$Order(^WK3SORT(Sub,Next))
	}
	Use0Write !,cnt_" lines read",!
	Quit//Extract detils subscripts
GETDETAILS(Sub,Ord)
	New (Sub,Ord)
	Set Det=""Set Det=$Order(^WK3SORT(Sub,Ord,Det))
	While Det'="" {
		Use0Write"  Detail: "_Det,!
		Set Det=$Order(^WK3SORT(Sub,Ord,Det))
	}
	Quit

The User table is SQL Mapped so I guess you can simply use the sql INSERT statement to insert users data into that table or, if you prefer, just create a new instance of the User object using .%New() and populate all the needed property of the User object.

Just pay attention to Group, Profile and password.