Method to return value of object element

Question

Question

Michael Wood · Jul 18, 2023

#ObjectScript #InterSystems IRIS for Health

I am trying to write a class method to return the value of a object element. Input to method is the object and element. I am not getting a value returned. What am I missing?

ClassMethod GetObjectFieldValue(pObject As %DynamicAbstractObject, pField As %String) As %String
{
quit:pObject="" ""
quit:pField="" "" set tResponse=""
set tResponse = pObject.%Get(pField)
return tResponse

}

Here is my input data,

{
   "priority": "2",
   "lastmodifieduser": "PORTAL",
   "assignedto": "jdoe01 STAFF",
   "status": "REVIEW",
   "documentclass": "PATIENTCASE",
   "versiontoken": "937486",
   "departmentid": "999",
   "patientcaseid": "105555424",
   "providerusername": "jdoe01",
   "internalnote": "firstMessage",
   "subject": "first123",
   "patientid": 9877654321,
   "createduser": "PORTAL",
   "description": "patient case - first123",
   "documentroute": "MDP",
   "documentsubclass": "PATIENTCASE_CLINICALQUESTION",
   "documentsource": "PORTAL",
   "createddate": "07/17/2023",
   "lastmodifieddate": "07/17/2023"
}

Product version: IRIS 2021.2

Discussion (8)2

Log in or sign up to continue

Davide Vittorio... Jul 19, 2023 to Vitaliy Serdtsev

It works also for me... maybe it depends on how Michael Wood is passing the json object to the method...

If he is passing a string, there is a conversion needed from string to %DynamicAbstractObject like:

Set str="{""prio"":""2"",""code"":""A001""}"
Write str
{"prio":"2","code":"A001"}
Set obj=##Class(%DynamicAbstractObject).%FromJSON(str)
Write obj
1@%Library.DynamicObject
ZW obj
obj={"prio":"2","code":"A001"}  ; <DYNAMIC OBJECT>ObjectScript
ObjectScript

1 0

Eduard Lebedyuk · Jul 19, 2023

$property works with all objects, dynamic or not:

>s a={"b":2}
>w $property(a, "b")
2ObjectScript
ObjectScript

2 0

score 0 · Answer 1 · 2023-07-18T16:48:49-04:00

It looks to me like you might want to use %DynamicObject instead of %DynamicAbstractObject. %DynamicAbstractObject doesn't have a %Get method.

score 0 · Answer 2 · 2023-07-18T17:20:21-04:00

Michael Wood Jul 18, 2023 to David Hockenbroch

Tried that. Still did not get a response with a value.

0 0

score 0 · Answer 3 · 2023-07-18T17:59:53-04:00

Nice, now we know nearly everything, except the most important info: what is the content of pField?

I assume, pObject contains the above JSON, i.e.

set pObject = {"priority": "2",
               "lastmodifieduser": "PORTAL",
               "assignedto": "jdoe01 STAFF",
               ...
               }
               ObjectScript
ObjectScript

score 0 · Answer 4 · 2023-07-19T08:04:20-04:00

Michael Wood Jul 19, 2023 to Julius Kavay

pField = "patientid"

0 0

score 1 · Answer 5 · 2023-07-19T03:13:17-04:00

Did a little test:

Class dc.test [ Abstract ]
{

ClassMethod GetObjectFieldValue(
  pObject As %DynamicAbstractObject,
  pField As %String) As %String
{
  quit:pObject="" ""
  quit:pField="" "" set tResponse=""
  set tResponse = pObject.%Get(pField)
  return tResponse
}

ClassMethod Test()
{
  s p1={
    "priority": "2",
    "lastmodifieduser": "PORTAL",
    "assignedto": "jdoe01 STAFF",
    "status": "REVIEW",
    "documentclass": "PATIENTCASE",
    "versiontoken": "937486",
    "departmentid": "999",
    "patientcaseid": "105555424",
    "providerusername": "jdoe01",
    "internalnote": "firstMessage",
    "subject": "first123",
    "patientid": 9877654321,
    "createduser": "PORTAL",
    "description": "patient case - first123",
    "documentroute": "MDP",
    "documentsubclass": "PATIENTCASE_CLINICALQUESTION",
    "documentsource": "PORTAL",
    "createddate": "07/17/2023",
    "lastmodifieddate": "07/17/2023"}
    
  s p2="documentsubclass"
  w ..GetObjectFieldValue(p1,p2)
}

}

Result:

USER>d ##class(dc.test).Test()
PATIENTCASE_CLINICALQUESTION

score 1 · Answer 6 · 2023-07-19T09:23:18-04:00

That worked. Thanks.

ClassMethod GetObjectFieldValue(pObject As %String, pField As %String) As %String
{
quit:pObject="" ""
quit:pField="" ""
$$$TRACE("pObject="_pObject)
$$$TRACE("pField="_pField)

set dynObj=##Class(%DynamicAbstractObject).%FromJSON(pObject)
set tValue=$PROPERTY(dynObj,pField)

return tValue

}