Parsing a JSON message with

Question

Question

I have the JSON message below. I am struggling with parsing the data in the OtherProcedures section. That section can be null, or have from one to many other procedures. Any help is greatly appreciated. I have tried using/setting an iterator to go thru the data but not having any success with that.

{
"Action": "1",
"CaseNumber": "",
"MessageId": "",
"ControlId": "",
"Patient": "idz",
"DateOfOperation": "20240401",
"PrimarySurgeon": "you",
"AttendingSurgeon": "me",
"SurgicalSpecialty": "12",
"PrincipalOperativeProcedure": "Ingenuial Hernia Repair",
"PrincipalPreOperativeDiagnosis": "Hernia Surgery",
"LateralityOfProcedure": "2",
"PlannedAdmissionStatus": "I",
"PlannedPrincipalProcedureCode": "29848",
"ICD10Code": "K40.00",
"HospitalAdmissionStatus": "I",
"MajorOrMinor": "J",
"CaseScheduleType": "EL",
"Palliation": "Y",
"PlannedPostOpCare": "PACU for 4 hrs",
"RequestAnesthesiaTechnique": "S",
"intraoperativeXRays": "Y",
"ReferringPhysician": "mine",
"ConsultId": "692",
"Scheduler": "scheduler",
"OtherProcedures": [
{
"otherProcedure": "Liposuction",
"plannedOtherProcCPTCode": "15772",
"otherProcedureCodeComments": "Adding a second procedure."
},
{
"otherProcedure": "colonoscopy",
"plannedOtherProcCPTCode": "44389",
"otherProcedureCodeComments": "Adding a third procedure."
}
]
}

Product version: IRIS 2022.1

$ZV: IRIS for Windows (x86-64) 2021.1.2 (Build 338U) Tue Apr 12 2022 12:04:03 EDT

Discussion (5)2

Log in or sign up to continue

Phil Burkhalter · May 2

got it to work, but there might be a better solution, if so, please comment

ClassMethod EditSurgery() As %Status
{
S EditData={}.%FromJSON(%request.Content)
w !,EditData.SurgeryCase,!
#Dim otherProc As %DynamicObject
s otherProc=EditData.OtherProcedures
s iterator=otherProc.%GetIterator()
while iterator.%GetNext(.key, .OtherProcedure) {
set type = otherProc.%GetTypeOf(key)
s name=otherProc.%Get(key).OtherProcedure
s cpt=otherProc.%Get(key).PlannedOtherProcCPTCode
s comment=otherProc.%Get(key).ProcedureCodeComments
w !," name= ",name," cpt= ",cpt," comments= ",comment
}

q 200
}

0 0

score 1 · Answer 1 · 2024-05-02T02:19:19-04:00

Can you show us your iterator so we can tell you what's wrong with it. Or should we try to guess your code?

score 0 · Answer 2 · 2024-05-02T09:03:46-04:00

Sorry, got pulled away before I finished the post to add my code. This code is a REST API. The pInput is the JSON message in the original post. this code does write out the key and type but I need to get the values for each procedure. Not sure how to get that data.

ClassMethod fileSurgery1(pInput As REST.SwitchLane.Periopt.SurgeryData, Output pOutput As %String) As %Status

#Dim obj As %DynamicAbstractObject

s obj =pInput.OtherProcedures

s iterator = obj.%GetIterator()

while iterator.%GetNext(.key, .value)

{

set type = obj.%GetTypeOf(key)

write !,"key= ",key,!,"Type= ",type

}

q 200

score 0 · Answer 3 · 2024-05-02T10:01:44-04:00

Luis Angel Pére... · May 2

What is the type of OtherProcedures property?

obj should be a dynamic array.

0 0

score 0 · Answer 4 · 2024-05-02T14:41:30-04:00

OtherProcedures is a dynamic abstract object. I parse it out of the main JSON message. In the class definition for the JSON message:

Property OtherProcedures As list Of OtherProcedures;

Class REST.SwitchLane.Periopt.OtherProcedures Extends (%JSON.Adaptor, %Persistent)

{

Property OtherProcedure As %String;

Property PlannedOtherProcCPTCode As %String;

Property ProcedureCodeComments As %String;

}