Hello,
Here is the complete code that i have used.
HTTPClient http
http = CREATE HTTPClient
li_rc = http.SendRequest("GET", "http://www.mocky.io/v2/5d2810152c000072003ed79e")
http.GetResponseBody(ls_response)
if (li_rc = 1 and http.GetResponseStatusCode() = 200) then //Succeeded
http.GetResponseBody(ls_response)
ll_RowCount = tab_api.tabpage_more.dw_response.ImportJsonByKey(ls_response, ls_Error, Primary!)
//Checks if any warning
If len(ls_Error) > 0 Then
MessageBox("Warning", "With warning information:~r~n" + ls_Error)
Else
JSONParser json
json = CREATE JSONParser
ls_Json = ls_response
ls_result = json.LoadString (ls_Json)
ll_root = json.GetRootItem()
ll_claims = json.GetItemArray(ll_root, 'claims')
ll_cnt_claims = json.GetChildCount(ll_claims)
For i = 1 to ll_cnt_claims
ll_index_claims = json.GetChildItem(ll_claims, i)
ll_provider = long(json.GetItemString(ll_index_claims, "payer_prov_code"))
ls_member_no = json.GetItemString(ll_index_claims, "member_number")
ll_claim_id = json.GetItemnumber(ll_index_claims, "claim_id")
lc_amount = json.GetItemnumber(ll_index_claims, "amount")
lc_gross_amount = json.GetItemnumber(ll_index_claims, "gross_amount")
ls_visit_number = json.GetItemString(ll_index_claims, "visit_number")
dt_invoice_date = datetime(json.GetItemString(ll_index_claims, "visit_start"))
ld_invoice_date = date(dt_invoice_date)
end if
//Invoices.....................................................................
ll_invoices = json.GetItemArray(ll_index_claims, 'invoices')
ll_cnt_invoices = json.GetChildCount(ll_invoices)
for ll_inv = 1 to ll_cnt_invoices
setnull(ll_fund)
setnull(ll_sub)
ll_index_invoices = json.GetChildItem(ll_invoices, ll_inv)
ll_invoice_id = json.GetItemNumber(ll_index_invoices, "invoice_id")
ll_bene_id = long(json.GetItemString(ll_index_invoices, "payer_benefit_code"))
lc_inv_amount = json.GetItemNumber(ll_index_invoices, "amount")
lc_inv_gross_amount = json.GetItemNumber(ll_index_invoices, "gross_amount")
ls_invoice_no = json.GetItemString(ll_index_invoices, "invoice_number")
//Invoices line items
ll_line_items = json.GetItemArray(ll_index_invoices, 'line_items')
ll_cnt_line_items = json.GetChildCount(ll_line_items)
for ll_items = 1 to ll_cnt_line_items
ll_index_line_items = json.GetChildItem(ll_line_items, ll_items)
ll_items_id = json.GetItemNumber(ll_index_line_items, "item_id")
ls_item_name = json.GetItemString(ll_index_line_items, "prov_item_name")
ls_service_group = json.GetItemString(ll_index_line_items, "service_group")
ll_quantity = json.GetItemNumber(ll_index_line_items, "quantity")
lc_unit_price = json.GetItemNumber(ll_index_line_items, "unit_price")
lc_amount = json.GetItemNumber(ll_index_line_items, "amount")
dt_charge_date = datetime(json.GetItemString(ll_index_line_items, "charge_date"))
next
next
//Diagnosis
ll_diagnosis = json.GetItemArray(ll_index_claims, 'diagnosis')
ll_cnt_diagnosis = json.GetChildCount(ll_diagnosis)
for ll_diag = 1 to ll_cnt_diagnosis
ll_index_diagnosis = json.GetChildItem(ll_diagnosis, ll_diag)
ll_diag_id = json.GetItemNumber(ll_index_diagnosis, "id")
ls_coding_standard = json.GetItemString(ll_index_diagnosis, "coding_standard")
ls_diag_name = json.GetItemString(ll_index_diagnosis, "name")
ls_diag_code = json.GetItemString(ll_index_diagnosis, "code")
next
//Preauth
ll_preauth = json.GetItemArray(ll_index_claims, 'preauth')
ll_cnt_preauth = json.GetChildCount(ll_preauth)
for ll_pre_auth = 1 to ll_cnt_preauth
ll_index_preauth = json.GetChildItem(ll_preauth, ll_pre_auth)
ll_preauth_id = json.GetItemNumber(ll_index_preauth, "id")
ls_preauth_code = json.GetItemString(ll_index_preauth, "code")
lc_pre_amount = json.GetItemNumber(ll_index_preauth, "amount")
ls_authorized_by = json.GetItemString(ll_index_preauth, "authorized_by")
ls_notes = json.GetItemString(ll_index_preauth, "message")
ldt_preauth_date = datetime(json.GetItemString(ll_index_preauth, "insert_time"))
next
//Admissions
ll_admissions = json.GetItemArray(ll_index_claims, 'admissions')
ll_cnt_admissions = json.GetChildCount(ll_admissions)
for ll_admissions_id = 1 to ll_cnt_admissions
ll_index_admissions = json.GetChildItem(ll_admissions, ll_admissions_id)
ll_admit_id = json.GetItemNumber(ll_index_admissions, "id")
ld_admit_date = date(json.GetItemString(ll_index_admissions, "admit_date"))
ld_discharge_date = date(json.GetItemString(ll_index_admissions, "discharge_date"))
ls_discharge_summary = json.GetItemString(ll_index_admissions, "discharge_summary")
ldt_admissions_date = datetime(json.GetItemString(ll_index_admissions, "insert_time")
next
Next
End If
end if