SDESBUILDJSON.m

SDESBUILDJSON ;ALB/RRM - BUILD JSON RETURN FORMAT VISTA SCHEDULING RPCS ;MAY 27, 2022@11:48

 ;;5.3;Scheduling;**818**;Aug 13, 1993;Build 9

 ;;Per VHA Directive 6402, this routine should not be modified

 ;

 Q

 ;

BUILDJSON(JSONRETURN,INPUT) ;

 ; Input:

 ; JSONRETURN [Required] = destination variable for the string array formatted as JSON

 ; INPUT      [Required] = closed array reference for M representation of object

 ;

 ; Output:

 ; JSONRETURN = the string array formatted as JSON

 ;

 N JSONERROR

 S JSONERROR=""

 D ENCODE^XLFJSON("INPUT","JSONRETURN","JSONERROR")

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---SDESBUILDJSON   593     printed  Apr 09, 2024@21:40:55                                                                                                                                                                                                Page 2

SDESBUILDJSON ;ALB/RRM - BUILD JSON RETURN FORMAT VISTA SCHEDULING RPCS ;MAY 27, 2022@11:48

 +1       ;;5.3;Scheduling;**818**;Aug 13, 1993;Build 9

 +2       ;;Per VHA Directive 6402, this routine should not be modified

 +3       ;

 +4        QUIT 

 +5       ;

BUILDJSON(JSONRETURN,INPUT) ;

 +1       ; Input:

 +2       ; JSONRETURN [Required] = destination variable for the string array formatted as JSON

 +3       ; INPUT      [Required] = closed array reference for M representation of object

 +4       ;

 +5       ; Output:

 +6       ; JSONRETURN = the string array formatted as JSON

 +7       ;

 +8        NEW JSONERROR

 +9        SET JSONERROR=""

 +10       DO ENCODE^XLFJSON("INPUT","JSONRETURN","JSONERROR")

 +11       QUIT 

 +12      ;