YTXCHGT ;SLC/KCM - JSON / Tree Conversions ; 9/15/2015
Source file <YTXCHGT.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| MHA2TR(TEST,DEST) | ; Load MHA test into DEST tree
|
|
| TR2MHA(TREE,YTXDRY) | ; Save SRC tree into MHA file entries
; TREE: closed reference to node that represents 1 instrument ; YTXDRY: defined and true if this is just a dry run |
|
| TR2JSON(SRC,DEST) | ; Convert tree representation to JSON
|
|
| JSON2TR(SRC,DEST) | ; Convert JSON to tree representation
; returns 1 if converted without error ; SRC contains JSON representation ; DEST is $NA value and should be empty |
|
| SPEC2TR(XCHGIEN,DEST) | ; Convert JSON WP entry in 601.95 to tree representation
; returns 1 if converted without error ; DEST is $NA value and should be empty |
|
| ADDEND(XCHGIEN) | ; Process any contents in addendum
; example: {"ignoreConflicts": ["601.72:6488","601.72:6491","601.72:6734"]} |
|
| CHKSCORE(XCHGIEN) | ; Check addendum for instruments that should be re-scored
; example: {"rescoreInstruments":["PCL-5"]} |
|
| ADD2TR(XCHGIEN,ARRAY) | ; Load Addendum JSON into TREE
|
|
| JSON2WP(SRC,DEST) | ; Convert JSON array (n) to WP array (n,0)
|
|
| WP2TR(SRC,DEST) | ; Convert FM WP field to tree representation
; SRC: glvn of source array ; DEST: glvn of destination array |
|
| TR2WP(SRC,DEST) | ; Convert tree representation to FM WP
; SRC: glvn of source array (JSON node with wp text) ; DEST: glvn of destination array (will add [line,0] nodes) |
|
| SPLITLN(SRC,DEST,MAX) | ; Split JSON lines into lines of MAX length
|
|
| TEST2WP | ; test TR2WP entry point
|
| Name | Field # of Occurrence |
|---|---|
| DECODE^VPRJSON | JSON2TR+5, SPEC2TR+7, ADD2TR+4 |
| ENCODE^VPRJSON | TR2JSON+5 |
| QTASK^YTSCOREV | CHKSCORE+8 |
| FILE96^YTWJSONF | TR2MHA+21 |
| EXPORT^YTXCHGE | MHA2TR+1 |
| IMPTREE^YTXCHGI | TR2MHA+10, TR2MHA+15 |
| SHOSUMM^YTXCHGP | TR2MHA+11, TR2MHA+16 |
| BACKUP^YTXCHGU | TR2MHA+14 |
| LOG^YTXCHGU | TR2MHA+8, TR2MHA+17, TR2JSON+6, JSON2TR+6, SPEC2TR+9, ADD2TR+5 |
| NEWDATE^YTXCHGU | TR2MHA+20 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^TMP("YTXCHG" | TR2JSON+2, SPEC2TR+3!, SPEC2TR+6*, SPEC2TR+7, SPEC2TR+8! |
| ^XTMP("YTXIDX" | ADDEND+4!, ADDEND+7* |
| ^YTT(601.71 - [#601.71] | CHKSCORE+6, CHKSCORE+7 |
| ^YTT(601.95 - [#601.95] | SPEC2TR+6, ADD2TR+2 |
| Name | Line Occurrences |
|---|---|
| ADD2TR | ADDEND+3, CHKSCORE+3 |
| ADDEND | SPEC2TR+10 |
| SPLITLN | TR2JSON+7 |
| TR2WP | TEST2WP+5 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ARRAY | ADDEND+2~, ADDEND+3, CHKSCORE+2~, CHKSCORE+3, ADD2TR~ |
| ARRAY("ignoreConflicts" | ADDEND+5, ADDEND+6 |
| ARRAY("rescoreInstruments" | CHKSCORE+4, CHKSCORE+5 |
| DEST | MHA2TR~, MHA2TR+1, TR2JSON~, TR2JSON+4, TR2JSON+7, JSON2TR~, JSON2TR+5, SPEC2TR~, SPEC2TR+7, JSON2WP~ , JSON2WP+2, WP2TR~, WP2TR+3, WP2TR+6, WP2TR+7, TR2WP~, TR2WP+5, TR2WP+9, TR2WP+10, SPLITLN~ , SPLITLN+5 |
| >> DRYRUN | TR2MHA+17 |
| I | SPEC2TR+4~, SPEC2TR+6*, ADDEND+2~, ADDEND+5*, ADDEND+6, CHKSCORE+2~, CHKSCORE+4*, CHKSCORE+5, ADD2TR+1~, ADD2TR+2* , JSON2WP+1~, JSON2WP+2*, TR2WP+3~, TR2WP+6*, TR2WP+7, SPLITLN+1~, SPLITLN+3*, SPLITLN+4 |
| IEN | CHKSCORE+2~, CHKSCORE+6*, CHKSCORE+7, CHKSCORE+8 |
| INTERIM | TR2JSON+1~, TR2JSON+2*, TR2JSON+3, TR2JSON+5, TR2JSON+7, TR2JSON+8 |
| J | TR2WP+3~, TR2WP+5*, TR2WP+8*, TR2WP+9, TR2WP+10 |
| JSON | TEST2WP+1~ |
| JSON("wp" | TEST2WP+2*, TEST2WP+3*, TEST2WP+4*, TEST2WP+5 |
| JSONERR | TR2JSON+1~, TR2JSON+6, JSON2TR+4~, JSON2TR+6, SPEC2TR+4~, SPEC2TR+9, ADD2TR+1~, ADD2TR+5 |
| JSONERR(1 | TR2JSON+6, JSON2TR+6, SPEC2TR+9, ADD2TR+5 |
| JSONTMP | ADD2TR+1~, ADD2TR+3 |
| JSONTMP( | ADD2TR+2* |
| LN | WP2TR+4~*, WP2TR+5*, WP2TR+6, WP2TR+7, TR2WP+3~, TR2WP+4*, TR2WP+5*, TR2WP+9, TR2WP+10*, SPLITLN+1~ , SPLITLN+3*, SPLITLN+5* |
| MAX | SPLITLN~, SPLITLN+2*, SPLITLN+5 |
| NEWDT | TR2MHA+3~, TR2MHA+19*, TR2MHA+20 |
| OK | TR2JSON+1~ |
| PREFIX | TR2MHA+3~, TR2MHA+4*, TR2MHA+8 |
| REV | CHKSCORE+2~, CHKSCORE+7*, CHKSCORE+8 |
| SEQ | TR2MHA+3~, TR2MHA+5*, TR2MHA+7, TR2MHA+10, TR2MHA+14, TR2MHA+15, TR2MHA+19, TR2MHA+21 |
| SRC | TR2JSON~, TR2JSON+5, JSON2TR~, JSON2TR+5, JSON2WP~, JSON2WP+2, WP2TR~, WP2TR+5, WP2TR+6, WP2TR+7 , TR2WP~, TR2WP+4, TR2WP+6, TR2WP+7, SPLITLN~, SPLITLN+3, SPLITLN+4 |
| TEST | MHA2TR~, MHA2TR+1 |
| TESTNM | TR2MHA+3~, TR2MHA+7*, TR2MHA+8, TR2MHA+20 |
| TEXT | TEST2WP+1~ |
| TEXT(2 | TEST2WP+5 |
| TREE | TR2MHA~, TR2MHA+5, TR2MHA+7, TR2MHA+10, TR2MHA+14, TR2MHA+15, TR2MHA+19, TR2MHA+21 |
| U | TR2JSON+4, CHKSCORE+7, WP2TR+3 |
| X | ADDEND+2~, ADDEND+6*, ADDEND+7, CHKSCORE+2~, CHKSCORE+5*, CHKSCORE+6, TR2WP+3~, TR2WP+4*, TR2WP+5, TR2WP+7* , TR2WP+8, TR2WP+9, TR2WP+10, SPLITLN+1~, SPLITLN+4*, SPLITLN+5* |
| XCHGIEN | SPEC2TR~, SPEC2TR+6, SPEC2TR+10, ADDEND~, ADDEND+3, CHKSCORE~, CHKSCORE+3, ADD2TR~, ADD2TR+2 |
| YTXDRY | TR2MHA~, TR2MHA+4, TR2MHA+10, TR2MHA+14, TR2MHA+15, TR2MHA+16, TR2MHA+18 |
| YTXLOG | TR2MHA+6~*, TR2MHA+11, TR2MHA+13!*, TR2MHA+16 |
| YTXLOG("added" | TR2MHA+20 |
| YTXLOG("conflict" | TR2MHA+11 |
| YTXLOG("updated" | TR2MHA+20 |
