subprosedure kirimsirs

Private Function kirimSirs(id_tt, NamaRuangan, jumlahruang, jmlkamar, terpakai, prepare, prepareplan, covid As String) As Boolean
On Error GoTo ErrorNda
    Dim unixtime As String
    Dim url As String
    Dim xUserrs As String
    Dim xPassrs As String
    Dim tPost As String
    Dim req As WinHttp.WinHttpRequest
    Dim hasil As String
    
    unixtime = ConvertToTglUnix(xtime(Now))   
    url = "http://sirs.kemkes.go.id/fo/index.php/Fasyankes"
    xUserrs = "" 'Username SIRS
    xPassrs = ""  'Password SIRS
     'tPost = "id_tt=" & id_tt & "&ruang=" & NamaRuangan & "&jumlah_ruang=" & jumlahruang & "&jumlah=" & jmlkamar & "&terpakai=" & terpakai & "&prepare=" & prepare & "&prepare_plan=" & prepareplan & "&covid=" & covid
    tPost = "{$$id_tt$$:$$" & id_tt & "$$,$$ruang$$:$$" & NamaRuangan & "$$,$$jumlah_ruang$$:$$" & jumlahruang & "$$,$$jumlah$$:$$" & jmlkamar & "$$,$$terpakai$$:$$" & terpakai & "$$,$$prepare$$:$$" & prepare & "$$,$$prepare_plan$$:$$" & prepareplan & "$$,$$covid$$:$$" & covid & "$$}"
    tPost = Replace(tPost, "$$", """")
    Set req = New WinHttp.WinHttpRequest
    req.Open "PUT", url
    req.SetRequestHeader "X-rs-id", xUserrs
    req.SetRequestHeader "X-Timestamp", unixtime
    req.SetRequestHeader "X-pass", xPassrs
    req.SetRequestHeader "Content-Type", "application/json"
    req.Send tPost
    hasil = req.ResponseText
    If hasil = "" Then
        kirimSirs = False
    Else
        kirimSirs = True
        txtresult.Text = txtresult.Text & vbNewLine & Now() & " " & hasil
    End If
    Exit Function
ErrorNda:
    kirimSirs = False
    Exit Function
End Function