B4J Question Token authentication coding practice for a JSON/REST API

Sub Send_SMS(msg As String ,tonumber As String)
    
    Dim smsurl As String="https://ippanel.com/api/select"
    Dim token As String = "fi3IVytk8Pdu8r0wQM=654515678578"
    
    Dim objMap As Map
    objMap.Initialize
    objMap.Put("op" , "send")
    objMap.Put("uname","1545140241")
    objMap.Put("pass","155454")
    objMap.Put("message" , msg)
    objMap.Put("from", "454151005")
    objMap.Put("to" , tonumber)
    objMap.Put("time" , "")
    
    Dim objJSon As JSONGenerator
    objJSon.Initialize(objMap)
    
    Dim j As HttpJob
    j.Initialize("j",Me)
    j.PostString(smsurl,objJSon.ToPrettyString(2))
    j.GetRequest.SetContentType("application/json")
    j.GetRequest.SetHeader("authorization",token )
    
    Wait For (j) JobDone(j As HttpJob)
    If j.Success Then
        Log(j.GetString)
        
        Dim parser As JSONParser
        parser.Initialize(j.GetString)
        Dim m As List = parser.NextArray
        Dim state As Int = m.Get(0)
        
        If state<>0 Then
            log("ok")
        End If
        
    Else
        log("error")
    End If
    j.Release
    
    
End Sub

'Non-UI application (console / server application)
#Region Project Attributes 
    #CommandLineArgs:
    #MergeLibraries: True 
#End Region

Sub Process_Globals
    
End Sub

'Note: use http://basic4ppc.com:51042/json/index.html to parse returned JSON and help with code for accessing information

Sub AppStart (Args() As String)

    
    Log("Hello world!!!")
    testAPI
    StartMessageLoop
End Sub

Sub testAPI
    Wait for(fetchToken) Complete (result As Map)
    If result.IsInitialized Then
        wait for (receiveRCU(result.Get("accessToken"))) complete (success As Boolean)
        Log($"receiveRCU was successful: ${success}"$)
    End If
    StopMessageLoop
End Sub

Sub fetchToken As ResumableSub
    Dim result As Map
    
    Dim jsonMaker As JSONGenerator
    Dim userInfo As Map
    userInfo = CreateMap("UserNameOrEmailAddress":"elecon",  "Password":"1q2w3E*")
    jsonMaker.Initialize(userInfo)
    
    Dim j As HttpJob
    j.Initialize("", Me)
    j.PostString("https://hskpapidev.staypls.com/api/TokenAuth/Authenticate", jsonMaker.ToString)
    j.GetRequest.SetHeader("Abp.TenantId", "1")
    j.GetRequest.SetContentType("application/json")
    Wait For (j) JobDone(j As HttpJob)
    If j.Success Then
        Log(j.GetString)
        'The site is inconsistent in using HTML status codes. It returns error HTML w/200 status code
        Dim error As Boolean = False
        Try
            Dim parser As JSONParser
            parser.Initialize(j.GetString)
            Dim root As Map = parser.NextObject
        Catch
            error = True
        End Try
        If Not(error) Then
            Dim success As String = root.Get("success")
            If success.EqualsIgnoreCase("true") Then
                Dim result As Map = root.Get("result")
                Dim expireInSeconds As Int = result.Get("expireInSeconds")
                Log(expireInSeconds)
                Dim accessToken As String = result.Get("accessToken")
                Log(accessToken)
            End If
        End If
    Else
        Log($"Error: ${j.ErrorMessage}"$)
    End If
    
    Return result
End Sub

Sub receiveRCU(token As String) As ResumableSub
    Dim succesful As Boolean = False
        
    Dim jsonMaker As JSONGenerator
    Dim requestInfo As Map
    requestInfo = CreateMap("RoomNo": "1505", "Attribute": "MUR", "AttributeValue": "1" )
    jsonMaker.Initialize(requestInfo)
    
    Dim j As HttpJob
    j.Initialize("", Me)
    j.PostString("https://hskpapidev.staypls.com/api/services/app/Elecon/RCUTask", jsonMaker.ToString)
    j.GetRequest.SetHeader("Authorization", $"Bearer ${token}"$)
    j.GetRequest.SetContentType("application/json")
    Wait For (j) JobDone(j As HttpJob)
    If j.Success Then
        Log(j.GetString)
        Dim error As Boolean = False
        Try
            Dim parser As JSONParser
            parser.Initialize(j.GetString)
            Dim root As Map = parser.NextObject
        Catch
            error = True
        End Try
        If Not(error) Then
            Dim success As String = root.Get("success")
            If success.EqualsIgnoreCase("true") Then
                succesful = True
            End If
        End If
    Else
        Log($"Error: ${j.ErrorMessage}"$)
    End If
    
    Return succesful
End Sub