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

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>

1 0

Eduard Lebedyuk · Jul 19, 2023

$property works with all objects, dynamic or not:

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

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

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",
               ...
               }

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

Michael Wood · Jul 19, 2023

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

}