Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: YTWJSONE

Package: Mental Health

Routine: YTWJSONE


Information

YTWJSONE ;SLC/KCM - Simple Editor for JSON Instrument Spec ; 7/20/2018

Source Information

Source file <YTWJSONE.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; edit instrument Entry Specification
LOOKUP() ; return 601.712 IEN for selected instrument
EDIT(TESTNM) ; edit copy of document in ^TMP("YTQ-EDIT",$J,
HASMODS(SPEC) ; return 1 if edited version differs from 601.712
OKSAVE() ; return 1 if OK to save changes
EOP() ; return 1 if continue, 0 if exit
CHKSPEC(SRC,ERRS,CRC) ; parses JSON and calculates checksum
; .ERRS: returns 1 if JSON parses without errors
; .CRC: returns checksum
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
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
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.
JSONSTR(X) ; return 1 if should be treated as a string
NVCRC(LIST) ; return CRC32 for LIST(name)=value
; LIST: reference to global containing @LIST@(name)=value pairs
TSCRC() ; return CRC32 of all checksums for active instruments
SHA1ALL() ; return SHA-1 of all checksums for active instruments
SAVE712(IEN,CRC) ; save updated specification to 601.712
; expects ^TMP("YTQ-EDIT,$J,n,0) to be entry spec text
VALIDATE ; compare CRC with actual and check JSON structure
FILE(TEST,PATH) ; write JSON from 601.712 to host file in PATH
LOAD(TEST,PATH) ; read host file in PATH and load into 601.712

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Nothing changed"
  • Line Location: EN+10
Function Call: WRITE
  • Prompt: !,"Changes saved. Old Checksum: ",CRCOLD," New Checksum: ",CRCNEW
  • Line Location: EN+14
Function Call: WRITE
  • Prompt: !,"ERRORS found while parsing JSON document"
  • Line Location: CHKJSON+8
Function Call: WRITE
  • Prompt: !,?2,ERRORS(I)
  • Line Location: CHKJSON+9
Function Call: WRITE
  • Prompt: !!,"Returning to editor..."
  • Line Location: CHKJSON+10
Function Call: WRITE
  • Prompt: !,"Length: ",$L(X)," X=",!,X
  • Line Location: SHA1ALL+4
Function Call: WRITE
  • Prompt: !,$$SHAHASH^XUSHSH(160,X,"H")
  • Line Location: SHA1ALL+5
Function Call: WRITE
  • Prompt: !,"Missing entry in 601.71: ",TEST," ",^YTT(601.712,SPEC,1,1,0)
  • Line Location: VALIDATE+5
Function Call: WRITE
  • Prompt: !,$P(^YTT(601.71,+^YTT(601.712,SPEC,0),0),U)
  • Line Location: VALIDATE+6
Function Call: WRITE
  • Prompt: ?30,"ok"
  • Line Location: VALIDATE+10
Function Call: WRITE
  • Prompt: ?30,"Saved Checksum: ",CRCSAVED," Actual: ",CRCCALC
  • Line Location: VALIDATE+11
Function Call: WRITE
  • Prompt: " JSON errors"
  • Line Location: VALIDATE+12
Function Call: WRITE
  • Prompt: !,"Error writing file: "_NAME
  • Line Location: FILE+10
Function Call: WRITE
  • Prompt: !,"Error reading file: "_FILE
  • Line Location: LOAD+10
Function Call: WRITE
  • Prompt: !,"Nothing changed"
  • Line Location: LOAD+11
Function Call: WRITE
  • Prompt: !,TESTNM," entry spec saved. Old Checksum: ",CRCOLD," New Checksum: ",CRCNEW
  • Line Location: LOAD+15

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^YTT(601.712 - [#601.712] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call