YTWJSONE ;SLC/KCM - Simple Editor for JSON Instrument Spec ; 7/20/2018
;;5.01;MENTAL HEALTH;**141,172**;Dec 30, 1994;Build 10
;
; Usage: D EN^YTWJSONE edit entry spec JSON & update checksum
; D VALIDATE^YTWJSONE checks recorded checksum against JSON actual
;
EN ; edit instrument Entry Specification
K ^TMP("YTQ-EDIT",$J)
N SPEC,TESTNM,DONE,ERRS,CRCOLD,CRCNEW
S SPEC=$$LOOKUP() Q:'SPEC
S TESTNM=$P(^YTT(601.71,+^YTT(601.712,SPEC,0),0),U)
S CRCOLD=$P(^YTT(601.712,SPEC,0),U,3)
M ^TMP("YTQ-EDIT",$J)=^YTT(601.712,SPEC,1)
S DONE=0 F D Q:DONE
. K ERRS S DONE=1
. D EDIT(TESTNM)
. I '$$HASMODS(SPEC) W !,"Nothing changed" QUIT
. D CHKSPEC($NA(^TMP("YTQ-EDIT",$J)),.ERRS,.CRCNEW)
. I $G(ERRS) S DONE=$S($$EOP:0,1:1) QUIT
. D SAVE712(SPEC,CRCNEW)
. W !,"Changes saved. Old Checksum: ",CRCOLD," New Checksum: ",CRCNEW
K ^TMP("YTQ-EDIT",$J)
Q
LOOKUP() ; return 601.712 IEN for selected instrument
N DIC,X,Y
S DIC="^YTT(601.712,",DIC(0)="AEMQ" D ^DIC
Q +Y
;
EDIT(TESTNM) ; edit copy of document in ^TMP("YTQ-EDIT",$J,
N DIC,DDWAUTO,DDWFLAGS,DWLW,DWPK,DIWETXT,DIWESUB
S DDWAUTO=1,DDWFLAGS="M"
S DIC="^TMP(""YTQ-EDIT"","_$J_","
S DWLW=132,DWPK=1,DIWETXT=TESTNM,DIWESUB="Entry Specification"
D EN^DIWE
Q
HASMODS(SPEC) ; return 1 if edited version differs from 601.712
N I,CHANGES,ORIG,EDIT
S CHANGES=0
S I=0 F S I=$O(^YTT(601.712,SPEC,1,I)) Q:'I D Q:CHANGES
. S ORIG=$G(^YTT(601.712,SPEC,1,I,0))
. S EDIT=$G(^TMP("YTQ-EDIT",$J,I,0))
. I ORIG'=EDIT S CHANGES=1
Q CHANGES
;
OKSAVE() ; return 1 if OK to save changes
N DIR,X,Y,DTOUT,DUOUT,DIRUT,DIROUT
S DIR("A")="Save changes",DIR(0)="Y",DIR("B")="YES" D ^DIR
Q +Y
;
EOP() ; return 1 if continue, 0 if exit
N DIR,X,Y,DTOUT,DUOUT,DIRUT,DIROUT
S DIR(0)="E" D ^DIR
Q +Y
;
CHKSPEC(SRC,ERRS,CRC) ; parses JSON and calculates checksum
; .ERRS: returns 1 if JSON parses without errors
; .CRC: returns checksum
K ^TMP("YTQ-JSON",$J),^TMP("YTQ-TREE",$J),^TMP("YTQ-LIST",$J)
N JSON,TREE,LIST
S JSON=$NA(^TMP("YTQ-JSON",$J))
S TREE=$NA(^TMP("YTQ-TREE",$J))
S LIST=$NA(^TMP("YTQ-LIST",$J))
D FIXLF(SRC,JSON)
D CHKJSON(JSON,TREE,.ERRS) I $G(ERRS) S CRC=0 QUIT
D NAMEVAL(TREE,LIST)
S CRC=$$NVCRC(LIST)
K ^TMP("YTQ-JSON",$J),^TMP("YTQ-TREE",$J),^TMP("YTQ-LIST",$J)
Q
FIXLF(SRC,DEST) ; Load spec from SRC, cleaning up line feeds
; SPEC: reference to global with original JSON
; DEST: reference to global root for destination JSON
N I,J,X,Y
S (I,J)=0 F S I=$O(@SRC@(I)) Q:'I S X=^(I,0) D
. S J=J+1,@DEST@(J)=X
. I (($L(X)-$L($TR(X,"""","")))#2) D ; check for odd number of quotes
. . F S I=I+1 Q:'$D(@SRC@(I,0)) D Q:Y[""""
. . . S Y=@SRC@(I,0)
. . . S @DEST@(J)=@DEST@(J)_Y
Q
CHKJSON(JSON,TREE,ERRS) ; decode JSON and display any errors
; JSON: reference to JSON global
; TREE: reference to TREE global
; .ERRORS: return errors found or 0
N ERRORS
D DECODE^XLFJSON(JSON,TREE,"ERRORS")
I $G(ERRORS(0)) D
. S ERRS=ERRORS(0)
. W !,"ERRORS found while parsing JSON document"
. N I S I=0 F S I=$O(ERRORS(I)) Q:'I W !,?2,ERRORS(I)
. W !!,"Returning to editor..."
Q
;
NAMEVAL(TREE,LIST) ; Convert TREE to external object name/value list in LIST
; TREE: reference to global containing documents tree structure
; LIST: reference to global where @LIST@(name)=value will be saved
; NOTE -- resulting names will collate as string, so the order may be odd
; for example, obj[1], obj[10], obj[11], obj[2], etc.
N ROOT,LROOT,SB,SL,S,X,I,NM,VAL,ADDQ
S ROOT=$E(TREE,1,$L(TREE)-1),LROOT=$L(ROOT) ; drop last ")" for compare
S X=TREE,SB=$QL(TREE)+1 ; begin at subscript after root
F S X=$Q(@X) Q:$E(X,1,LROOT)'=ROOT D
. S SL=$QL(X),NM="" ; SL is last subscript
. I $D(@X@("\s"))!$D(@X@("\n")) Q ; node already evaluated
. F I=SB:1:SL S S=$QS(X,I) S NM=NM_$S(+S:"["_S_"]",(I>3)&'S:"."_S,1:S)
. S VAL=@X
. S ADDQ=$$JSONSTR(VAL) ; check if num, str, bool
. I $D(@X@("\s")) S ADDQ=1 ; "\s" forces string
. I $D(@X@("\n")) S ADDQ=0 ; "\n" forces numeric
. S @LIST@(NM)=$S(ADDQ:""""_VAL_"""",1:VAL) ; NM=VAL, NM collates as string
Q
JSONSTR(X) ; return 1 if should be treated as a string
Q:X="true" 0 ; boolean
Q:X="false" 0 ; boolean
Q:X="null" 0 ; null object
Q:+X=X 0 ; numeric
Q 1
;
NVCRC(LIST) ; return CRC32 for LIST(name)=value
; LIST: reference to global containing @LIST@(name)=value pairs
N X,STR,CRC
S CRC=0
S X="" F S X=$O(@LIST@(X)) Q:'$L(X) D
. S STR=X_"="_@LIST@(X)
. S CRC=$$CRC32^XLFCRC(STR,CRC)
Q CRC
;
TSCRC() ; return CRC32 of all checksums for active instruments
N IEN,X,CRC
S (IEN,CRC)=0 F S IEN=$O(^YTT(601.712,IEN)) Q:'IEN D
. S CRC=$$CRC32^XLFCRC($P(^YTT(601.712,IEN,0),U,3),CRC)
Q CRC
;
SHA1ALL() ; return SHA-1 of all checksums for active instruments
N IEN,X
S X=""
S IEN=0 F S IEN=$O(^YTT(601.712,IEN)) Q:'IEN S X=X_$P(^(IEN,0),U,3)
W !,"Length: ",$L(X)," X=",!,X
W !,$$SHAHASH^XUSHSH(160,X,"H")
Q
SAVE712(IEN,CRC) ; save updated specification to 601.712
; expects ^TMP("YTQ-EDIT,$J,n,0) to be entry spec text
N REC
S REC(.02)=$$NOW^XLFDT
S REC(.03)=CRC
S REC(1)=$NA(^TMP("YTQ-EDIT",$J))
D FMUPD^YTXCHGU(601.712,.REC,IEN)
Q
;
VALIDATE ; compare CRC with actual and check JSON structure
N SPEC,TEST
S SPEC=0 F S SPEC=$O(^YTT(601.712,SPEC)) Q:'SPEC D
. S TEST=+$P(^YTT(601.712,SPEC,0),U)
. I '$D(^YTT(601.71,TEST,0)) D QUIT
. . W !,"Missing entry in 601.71: ",TEST," ",^YTT(601.712,SPEC,1,1,0)
. W !,$P(^YTT(601.71,+^YTT(601.712,SPEC,0),0),U)
. N ERRS,CRCCALC,CRCSAVED
. S CRCSAVED=$P(^YTT(601.712,SPEC,0),U,3)
. D CHKSPEC($NA(^YTT(601.712,SPEC,1)),.ERRS,.CRCCALC)
. I '$G(ERRS),(CRCSAVED=CRCCALC) W ?30,"ok" QUIT
. I CRCSAVED'=CRCCALC W ?30,"Saved Checksum: ",CRCSAVED," Actual: ",CRCCALC
. I $G(ERRS) W " JSON errors"
Q
;
FILE(TEST,PATH) ; write JSON from 601.712 to host file in PATH
N IEN,OK,NAME
I TEST'=+TEST S TEST=$O(^YTT(601.71,"B",TEST,0)) Q:'TEST
S IEN=$O(^YTT(601.712,"B",TEST,0)) Q:'IEN
S NAME=$TR($P(^YTT(601.71,TEST,0),U)," ","_")_"-espec.json"
;
K ^TMP($J)
M ^TMP($J)=^YTT(601.712,IEN,1) ; so can use $$GTF^%ZISH
K ^TMP($J,0) ; remove count & date node
S OK=$$GTF^%ZISH($NA(^TMP($J,1,0)),2,PATH,NAME)
I 'OK W !,"Error writing file: "_NAME
K ^TMP($J)
Q
LOAD(TEST,PATH) ; read host file in PATH and load into 601.712
N TESTNM,SPEC,FILE,OK,CRCOLD,CRCNEW,ERRS
I TEST'=+TEST S TEST=$O(^YTT(601.71,"B",TEST,0)) QUIT:'TEST
S TESTNM=$P(^YTT(601.71,TEST,0),U)
S SPEC=$O(^YTT(601.712,"B",TEST,0)) QUIT:'SPEC
S FILE=$TR(TESTNM," ","_")_"-espec.json"
S CRCOLD=$P(^YTT(601.712,SPEC,0),U,3)
;
K ^TMP("YTQ-EDIT",$J)
S OK=$$FTG^%ZISH(PATH,FILE,$NA(^TMP("YTQ-EDIT",$J,1,0)),3)
I 'OK W !,"Error reading file: "_FILE QUIT
I '$$HASMODS(SPEC) W !,"Nothing changed" QUIT
;
D CHKSPEC($NA(^TMP("YTQ-EDIT",$J)),.ERRS,.CRCNEW) QUIT:$G(ERRS)
D SAVE712(SPEC,CRCNEW)
W !,TESTNM," entry spec saved. Old Checksum: ",CRCOLD," New Checksum: ",CRCNEW
K ^TMP("YTQ-EDIT",$J)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HYTWJSONE 7247 printed Sep 23, 2025@19:58:07 Page 2
YTWJSONE ;SLC/KCM - Simple Editor for JSON Instrument Spec ; 7/20/2018
+1 ;;5.01;MENTAL HEALTH;**141,172**;Dec 30, 1994;Build 10
+2 ;
+3 ; Usage: D EN^YTWJSONE edit entry spec JSON & update checksum
+4 ; D VALIDATE^YTWJSONE checks recorded checksum against JSON actual
+5 ;
EN ; edit instrument Entry Specification
+1 KILL ^TMP("YTQ-EDIT",$JOB)
+2 NEW SPEC,TESTNM,DONE,ERRS,CRCOLD,CRCNEW
+3 SET SPEC=$$LOOKUP()
if 'SPEC
QUIT
+4 SET TESTNM=$PIECE(^YTT(601.71,+^YTT(601.712,SPEC,0),0),U)
+5 SET CRCOLD=$PIECE(^YTT(601.712,SPEC,0),U,3)
+6 MERGE ^TMP("YTQ-EDIT",$JOB)=^YTT(601.712,SPEC,1)
+7 SET DONE=0
FOR
Begin DoDot:1
+8 KILL ERRS
SET DONE=1
+9 DO EDIT(TESTNM)
+10 IF '$$HASMODS(SPEC)
WRITE !,"Nothing changed"
QUIT
+11 DO CHKSPEC($NAME(^TMP("YTQ-EDIT",$JOB)),.ERRS,.CRCNEW)
+12 IF $GET(ERRS)
SET DONE=$SELECT($$EOP:0,1:1)
QUIT
+13 DO SAVE712(SPEC,CRCNEW)
+14 WRITE !,"Changes saved. Old Checksum: ",CRCOLD," New Checksum: ",CRCNEW
End DoDot:1
if DONE
QUIT
+15 KILL ^TMP("YTQ-EDIT",$JOB)
+16 QUIT
LOOKUP() ; return 601.712 IEN for selected instrument
+1 NEW DIC,X,Y
+2 SET DIC="^YTT(601.712,"
SET DIC(0)="AEMQ"
DO ^DIC
+3 QUIT +Y
+4 ;
EDIT(TESTNM) ; edit copy of document in ^TMP("YTQ-EDIT",$J,
+1 NEW DIC,DDWAUTO,DDWFLAGS,DWLW,DWPK,DIWETXT,DIWESUB
+2 SET DDWAUTO=1
SET DDWFLAGS="M"
+3 SET DIC="^TMP(""YTQ-EDIT"","_$JOB_","
+4 SET DWLW=132
SET DWPK=1
SET DIWETXT=TESTNM
SET DIWESUB="Entry Specification"
+5 DO EN^DIWE
+6 QUIT
HASMODS(SPEC) ; return 1 if edited version differs from 601.712
+1 NEW I,CHANGES,ORIG,EDIT
+2 SET CHANGES=0
+3 SET I=0
FOR
SET I=$ORDER(^YTT(601.712,SPEC,1,I))
if 'I
QUIT
Begin DoDot:1
+4 SET ORIG=$GET(^YTT(601.712,SPEC,1,I,0))
+5 SET EDIT=$GET(^TMP("YTQ-EDIT",$JOB,I,0))
+6 IF ORIG'=EDIT
SET CHANGES=1
End DoDot:1
if CHANGES
QUIT
+7 QUIT CHANGES
+8 ;
OKSAVE() ; return 1 if OK to save changes
+1 NEW DIR,X,Y,DTOUT,DUOUT,DIRUT,DIROUT
+2 SET DIR("A")="Save changes"
SET DIR(0)="Y"
SET DIR("B")="YES"
DO ^DIR
+3 QUIT +Y
+4 ;
EOP() ; return 1 if continue, 0 if exit
+1 NEW DIR,X,Y,DTOUT,DUOUT,DIRUT,DIROUT
+2 SET DIR(0)="E"
DO ^DIR
+3 QUIT +Y
+4 ;
CHKSPEC(SRC,ERRS,CRC) ; parses JSON and calculates checksum
+1 ; .ERRS: returns 1 if JSON parses without errors
+2 ; .CRC: returns checksum
+3 KILL ^TMP("YTQ-JSON",$JOB),^TMP("YTQ-TREE",$JOB),^TMP("YTQ-LIST",$JOB)
+4 NEW JSON,TREE,LIST
+5 SET JSON=$NAME(^TMP("YTQ-JSON",$JOB))
+6 SET TREE=$NAME(^TMP("YTQ-TREE",$JOB))
+7 SET LIST=$NAME(^TMP("YTQ-LIST",$JOB))
+8 DO FIXLF(SRC,JSON)
+9 DO CHKJSON(JSON,TREE,.ERRS)
IF $GET(ERRS)
SET CRC=0
QUIT
+10 DO NAMEVAL(TREE,LIST)
+11 SET CRC=$$NVCRC(LIST)
+12 KILL ^TMP("YTQ-JSON",$JOB),^TMP("YTQ-TREE",$JOB),^TMP("YTQ-LIST",$JOB)
+13 QUIT
FIXLF(SRC,DEST) ; Load spec from SRC, cleaning up line feeds
+1 ; SPEC: reference to global with original JSON
+2 ; DEST: reference to global root for destination JSON
+3 NEW I,J,X,Y
+4 SET (I,J)=0
FOR
SET I=$ORDER(@SRC@(I))
if 'I
QUIT
SET X=^(I,0)
Begin DoDot:1
+5 SET J=J+1
SET @DEST@(J)=X
+6 ; check for odd number of quotes
IF (($LENGTH(X)-$LENGTH($TRANSLATE(X,"""","")))#2)
Begin DoDot:2
+7 FOR
SET I=I+1
if '$DATA(@SRC@(I,0))
QUIT
Begin DoDot:3
+8 SET Y=@SRC@(I,0)
+9 SET @DEST@(J)=@DEST@(J)_Y
End DoDot:3
if Y[""""
QUIT
End DoDot:2
End DoDot:1
+10 QUIT
CHKJSON(JSON,TREE,ERRS) ; decode JSON and display any errors
+1 ; JSON: reference to JSON global
+2 ; TREE: reference to TREE global
+3 ; .ERRORS: return errors found or 0
+4 NEW ERRORS
+5 DO DECODE^XLFJSON(JSON,TREE,"ERRORS")
+6 IF $GET(ERRORS(0))
Begin DoDot:1
+7 SET ERRS=ERRORS(0)
+8 WRITE !,"ERRORS found while parsing JSON document"
+9 NEW I
SET I=0
FOR
SET I=$ORDER(ERRORS(I))
if 'I
QUIT
WRITE !,?2,ERRORS(I)
+10 WRITE !!,"Returning to editor..."
End DoDot:1
+11 QUIT
+12 ;
NAMEVAL(TREE,LIST) ; Convert TREE to external object name/value list in LIST
+1 ; TREE: reference to global containing documents tree structure
+2 ; LIST: reference to global where @LIST@(name)=value will be saved
+3 ; NOTE -- resulting names will collate as string, so the order may be odd
+4 ; for example, obj[1], obj[10], obj[11], obj[2], etc.
+5 NEW ROOT,LROOT,SB,SL,S,X,I,NM,VAL,ADDQ
+6 ; drop last ")" for compare
SET ROOT=$EXTRACT(TREE,1,$LENGTH(TREE)-1)
SET LROOT=$LENGTH(ROOT)
+7 ; begin at subscript after root
SET X=TREE
SET SB=$QLENGTH(TREE)+1
+8 FOR
SET X=$QUERY(@X)
if $EXTRACT(X,1,LROOT)'=ROOT
QUIT
Begin DoDot:1
+9 ; SL is last subscript
SET SL=$QLENGTH(X)
SET NM=""
+10 ; node already evaluated
IF $DATA(@X@("\s"))!$DATA(@X@("\n"))
QUIT
+11 FOR I=SB:1:SL
SET S=$QSUBSCRIPT(X,I)
SET NM=NM_$SELECT(+S:"["_S_"]",(I>3)&'S:"."_S,1:S)
+12 SET VAL=@X
+13 ; check if num, str, bool
SET ADDQ=$$JSONSTR(VAL)
+14 ; "\s" forces string
IF $DATA(@X@("\s"))
SET ADDQ=1
+15 ; "\n" forces numeric
IF $DATA(@X@("\n"))
SET ADDQ=0
+16 ; NM=VAL, NM collates as string
SET @LIST@(NM)=$SELECT(ADDQ:""""_VAL_"""",1:VAL)
End DoDot:1
+17 QUIT
JSONSTR(X) ; return 1 if should be treated as a string
+1 ; boolean
if X="true"
QUIT 0
+2 ; boolean
if X="false"
QUIT 0
+3 ; null object
if X="null"
QUIT 0
+4 ; numeric
if +X=X
QUIT 0
+5 QUIT 1
+6 ;
NVCRC(LIST) ; return CRC32 for LIST(name)=value
+1 ; LIST: reference to global containing @LIST@(name)=value pairs
+2 NEW X,STR,CRC
+3 SET CRC=0
+4 SET X=""
FOR
SET X=$ORDER(@LIST@(X))
if '$LENGTH(X)
QUIT
Begin DoDot:1
+5 SET STR=X_"="_@LIST@(X)
+6 SET CRC=$$CRC32^XLFCRC(STR,CRC)
End DoDot:1
+7 QUIT CRC
+8 ;
TSCRC() ; return CRC32 of all checksums for active instruments
+1 NEW IEN,X,CRC
+2 SET (IEN,CRC)=0
FOR
SET IEN=$ORDER(^YTT(601.712,IEN))
if 'IEN
QUIT
Begin DoDot:1
+3 SET CRC=$$CRC32^XLFCRC($PIECE(^YTT(601.712,IEN,0),U,3),CRC)
End DoDot:1
+4 QUIT CRC
+5 ;
SHA1ALL() ; return SHA-1 of all checksums for active instruments
+1 NEW IEN,X
+2 SET X=""
+3 SET IEN=0
FOR
SET IEN=$ORDER(^YTT(601.712,IEN))
if 'IEN
QUIT
SET X=X_$PIECE(^(IEN,0),U,3)
+4 WRITE !,"Length: ",$LENGTH(X)," X=",!,X
+5 WRITE !,$$SHAHASH^XUSHSH(160,X,"H")
+6 QUIT
SAVE712(IEN,CRC) ; save updated specification to 601.712
+1 ; expects ^TMP("YTQ-EDIT,$J,n,0) to be entry spec text
+2 NEW REC
+3 SET REC(.02)=$$NOW^XLFDT
+4 SET REC(.03)=CRC
+5 SET REC(1)=$NAME(^TMP("YTQ-EDIT",$JOB))
+6 DO FMUPD^YTXCHGU(601.712,.REC,IEN)
+7 QUIT
+8 ;
VALIDATE ; compare CRC with actual and check JSON structure
+1 NEW SPEC,TEST
+2 SET SPEC=0
FOR
SET SPEC=$ORDER(^YTT(601.712,SPEC))
if 'SPEC
QUIT
Begin DoDot:1
+3 SET TEST=+$PIECE(^YTT(601.712,SPEC,0),U)
+4 IF '$DATA(^YTT(601.71,TEST,0))
Begin DoDot:2
+5 WRITE !,"Missing entry in 601.71: ",TEST," ",^YTT(601.712,SPEC,1,1,0)
End DoDot:2
QUIT
+6 WRITE !,$PIECE(^YTT(601.71,+^YTT(601.712,SPEC,0),0),U)
+7 NEW ERRS,CRCCALC,CRCSAVED
+8 SET CRCSAVED=$PIECE(^YTT(601.712,SPEC,0),U,3)
+9 DO CHKSPEC($NAME(^YTT(601.712,SPEC,1)),.ERRS,.CRCCALC)
+10 IF '$GET(ERRS)
IF (CRCSAVED=CRCCALC)
WRITE ?30,"ok"
QUIT
+11 IF CRCSAVED'=CRCCALC
WRITE ?30,"Saved Checksum: ",CRCSAVED," Actual: ",CRCCALC
+12 IF $GET(ERRS)
WRITE " JSON errors"
End DoDot:1
+13 QUIT
+14 ;
FILE(TEST,PATH) ; write JSON from 601.712 to host file in PATH
+1 NEW IEN,OK,NAME
+2 IF TEST'=+TEST
SET TEST=$ORDER(^YTT(601.71,"B",TEST,0))
if 'TEST
QUIT
+3 SET IEN=$ORDER(^YTT(601.712,"B",TEST,0))
if 'IEN
QUIT
+4 SET NAME=$TRANSLATE($PIECE(^YTT(601.71,TEST,0),U)," ","_")_"-espec.json"
+5 ;
+6 KILL ^TMP($JOB)
+7 ; so can use $$GTF^%ZISH
MERGE ^TMP($JOB)=^YTT(601.712,IEN,1)
+8 ; remove count & date node
KILL ^TMP($JOB,0)
+9 SET OK=$$GTF^%ZISH($NAME(^TMP($JOB,1,0)),2,PATH,NAME)
+10 IF 'OK
WRITE !,"Error writing file: "_NAME
+11 KILL ^TMP($JOB)
+12 QUIT
LOAD(TEST,PATH) ; read host file in PATH and load into 601.712
+1 NEW TESTNM,SPEC,FILE,OK,CRCOLD,CRCNEW,ERRS
+2 IF TEST'=+TEST
SET TEST=$ORDER(^YTT(601.71,"B",TEST,0))
if 'TEST
QUIT
+3 SET TESTNM=$PIECE(^YTT(601.71,TEST,0),U)
+4 SET SPEC=$ORDER(^YTT(601.712,"B",TEST,0))
if 'SPEC
QUIT
+5 SET FILE=$TRANSLATE(TESTNM," ","_")_"-espec.json"
+6 SET CRCOLD=$PIECE(^YTT(601.712,SPEC,0),U,3)
+7 ;
+8 KILL ^TMP("YTQ-EDIT",$JOB)
+9 SET OK=$$FTG^%ZISH(PATH,FILE,$NAME(^TMP("YTQ-EDIT",$JOB,1,0)),3)
+10 IF 'OK
WRITE !,"Error reading file: "_FILE
QUIT
+11 IF '$$HASMODS(SPEC)
WRITE !,"Nothing changed"
QUIT
+12 ;
+13 DO CHKSPEC($NAME(^TMP("YTQ-EDIT",$JOB)),.ERRS,.CRCNEW)
if $GET(ERRS)
QUIT
+14 DO SAVE712(SPEC,CRCNEW)
+15 WRITE !,TESTNM," entry spec saved. Old Checksum: ",CRCOLD," New Checksum: ",CRCNEW
+16 KILL ^TMP("YTQ-EDIT",$JOB)
+17 QUIT
