- 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 ---[H[J[2J[HSDESBUILDJSON 593 printed Jan 18, 2025@03:57:02 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 ;