FiveTech Support Forums

{
 "rtnCode": "00",
 "sub": [
 {
 "oType": "08",
 "rtnNum": "2",
 "sub": [
         {
         "oOrder": "BC26000245",
         "sub": [
                 {
                 "ddiOrder": "BC22932100",
                 "hosPsub": [
                             {
                             "hospName": "中華藥局",
                             "funcDT": "1130501"
                             },
                             {
                             "hospName": "中華藥局",
                             "funcDT": "1130601"
                             }
                             ],
                 "ddIsub": [
                            {
                            "ingName": "Omeprazole",
                            "ddiIngName": "Clopidogrel",
                            "effect": "增加冠心症病人心血管栓塞風險。",
                            "mechanism": "抑制 clopidogrel 經 CYP2C19 轉化為活性代謝物。",
                            "management": "避免併用；如需併用氫離子幫浦抑制劑，考慮rabeprazole (間隔 4 小時)、pantoprazol",
                            "alternatives": "無建議"
                            }
                           ]
                 }
                ]
         },
 {
 "oOrder": "BC26000245",
 "sub": [
         {
           "ddiOrder": "BC25071100",
           "hosPsub": [
                      {
                        "hospName": "大林慈濟醫",
                        "funcDT": "1130524"
                      },
                      {
                        "hospName": "大林慈濟醫",
                        "funcDT": "1130624"
                      }
                      ],
            "ddIsub": [
                      {
                        "ingName": "Omeprazole",
                        "ddiIngName": "Erlotinib",
                        "effect": "降低 erlotinib 曝藥量。",
                        "mechanism": "erlotinib 溶解度隨 pH 值增加而降低，進而減少吸收。",
                        "management": "避免併用。必要時改用制酸劑，但與 erlotinib 給藥間隔數小時。",
                        "alternatives": "無建議"
                      }
                      ]
 }
 ]
 }
 ]
 }
 ]
}

  hb_JsonDecode( uResponse, @hDatos )     // -> Hash
  xbrowser ( hDatos )TITLE "R Click" setup ( oBrw:bRClicked := { |r,c,f,oBrw| aResult := XbrToArray( oBrw ) } )

function XbrToArray( Self, aCols )

   local aData    := {}
   local nRows    := ::nLen
   local nRow, bm

   if nRows > 0
      if aCols == nil
         aCols    := ::GetVisibleCols()
      else
         aCols    := { |o,i| aCols[ i ] := ::oCol( i ) }
      endif

      aData       := Array( nRows, Len( aCols ) )

      //  Zet de headers mee in de array op lijn 1
      for i = 1 to len(aCols)
        aData[1][I] = ::cHeaders[I]
      next

      xbrowser(aData) title "Adata Test"

      bm          := ::BookMark

      Eval( ::bGoTop, Self )

      for nRow := 2 to nRows
         AEval( aCols, { |o,i| aData[ nRow, i ] := o:Value } )
         Eval( ::bSkip, 1 )
      next

      ::BookMark  := bm

   endif
   xbrowser(aData) COLUMNS 1,3 SETUP ( oBrw:cHeaders := {"ID","Naam"}) Title "aData extracted"

return aData