YTXCHG ;SLC/KCM - Instrument Exchange Calls ; 9/15/2015
Source file <YTXCHG.m>
| Package | Total | Call Graph |
|---|---|---|
| Mental Health | 5 | LIST96^YTWJSONF BLDSEQ^YTXCHGM ($$JSON2TR,$$SPEC2TR,$$TR2JSON,CHKSCORE,JSON2WP,MHA2TR,TR2MHA,TR2WP,WP2TR)^YTXCHGT (FMADD,LOG,LOGINST,SPLTDIR)^YTXCHGU IDXALL^YTXCHGV |
| Kernel | 2 | ($$FTG,$$GTF)^%ZISH BMES^XPDUTL |
| VA FileMan | 2 | $$FIND1^DIC ^DIK |
| Toolkit | 1 | $$GETURL^XTHC10 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| VERSION | ;; current Instrument Exchange version
|
|
| INCLUDE(Y,TAG,RTN) | ; return true for Y in list produced by TAG^RTN
; Y: IEN of entry currently being checked for inclusion ; TAG^RTN(.ARRAY) is called to build list of 601.95 entries in ARRAY ; .ARRAY(n,1): name (.01) value in 601.95 ; .ARRAY(n,2): date (.02) value in 601.95 |
|
| CREATE(TESTS,XCHGREC) | ; return IEN or error after creating exchange entry
; .TESTS(n)=instrumentIEN ; instruments to include in JSON spec ; .XCHGREC(field)=value ; values used to create exchange entry |
|
| INFO(XCHGIEN,INFO) | ; put build information into .INFO
; .INFO(fld)=value ; .INFO("tests",n)=testName |
|
| XINFO | ; exit here
|
|
| DELETE(XCHGIEN) | ; delete instrument exchange entry
|
|
| INSTALL(XCHGIEN,DRYRUN) | ; install instrument exchange entry locally
|
|
| INSTALLQ(TAG,RTN) | ; install exchange entries listed by TAG^RTN in post-init
; TAG^RTN(.ARRAY) is called to build list of 601.95 entries in ARRAY ; .ARRAY(n,1): name (.01) value in 601.95 ; .ARRAY(n,2): date (.02) value in 601.95 |
|
| BADVER(VERSION) | ; return true if version conflict
|
|
| BLDVIEW(TREE,DEST) | ; create array for BROWSER view
; TREE: $NA global reference for the instrument node of the tree ; DEST: $NA global reference for the output lines |
|
| ITER(MAPREF) | ;
; expects IDX where IDX(IDX) is current index ; MAPREF: $NA for the current reference in the map of JSON labels |
|
| TREEREF(MAPREF,IDX) | ; return reference to data tree given map reference
; expects TREE from BLDVIEW for root tree reference |
|
| LINEOUT(NODE) | ; add output line
; expects CNTROOT,CNTLINE,DEST from BLDVIEW |
|
| TLTOUT(NODE) | ; output the report template
; expects CNTLINE,DEST from BLDVIEW |
|
| SAVEHFS(XCHGIEN,FULLNM) | ; save instrument exchange entry to host file
; return 1 if successful, otherwise 0 |
|
| LOADFILE(PATH,INFO) | ; load file into JSON & tree structures
; PATH is full HFS name or URL ; .INFO returns the fields for 601.95 entry ; word processing values are in ^TMP("YTXCHG",$J,"WP",field) ; Specification ends up in ^TMP("YTXCHG",$J,"WP",1) ; Description content ends up in ^TMP("YTXCHG",$J,"WP",2) |
|
| XLOADF | ; exit LOADFILE here
; ^TMP("YTXCHG",$J,"WP) should be cleaned up by caller |
|
| LOADHFS(FULLNM,INFO) | ; load file from HFS into JSON & tree structures
|
|
| LOADURL(URL,INFO) | ; load file from URL into JSON & tree structures
|
|
| SETINFO(INFO,TREE) | ; set .INFO array from specification TREE
|
|
| SENDMAIL | ; interactive -- send instrument exchange entry in mail message
|
|
| LOADMAIL | ; interactive -- load instrument exchange entry from mail message
|
| Name | Field # of Occurrence |
|---|---|
| $$FTG^%ZISH | LOADHFS+3 |
| $$GTF^%ZISH | SAVEHFS+12 |
| $$FIND1^DIC | INCLUDE+11, INSTALLQ+8 |
| ^DIK | DELETE+4 |
| BMES^XPDUTL | INSTALLQ+12 |
| $$GETURL^XTHC10 | LOADURL+2 |
| LIST96^YTWJSONF | INSTALL+16 |
| BLDSEQ^YTXCHGM | BLDVIEW+5 |
| $$JSON2TR^YTXCHGT | LOADFILE+13 |
| $$SPEC2TR^YTXCHGT | INFO+6, INSTALL+9, SAVEHFS+6 |
| $$TR2JSON^YTXCHGT | CREATE+13, SAVEHFS+8 |
| CHKSCORE^YTXCHGT | INSTALL+15 |
| JSON2WP^YTXCHGT | LOADFILE+17 |
| MHA2TR^YTXCHGT | CREATE+7 |
| TR2MHA^YTXCHGT | INSTALL+12 |
| TR2WP^YTXCHGT | TLTOUT+5, SETINFO+5, SETINFO+8 |
| WP2TR^YTXCHGT | CREATE+12, INFO+8, SAVEHFS+7 |
| FMADD^YTXCHGU | CREATE+15 |
| LOG^YTXCHGU | INFO+3, DELETE+2, INSTALL+1, INSTALL+5, BADVER+2, LOADHFS+4, LOADURL+4 |
| LOGINST^YTXCHGU | INSTALL+14 |
| SPLTDIR^YTXCHGU | SAVEHFS+11, LOADHFS+2 |
| IDXALL^YTXCHGV | INSTALL+4 |
| FileNo | Call Tags |
|---|---|
| ^YTT(601.95 - [#601.95] | Classic Fileman Calls, FIND1^DIC |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^TMP("YTXCHG" | INFO+5!, INFO+6, INFO+8, INFO+9, INFO+10, INFO+11, XINFO+1!, TLTOUT+4!, TLTOUT+5, TLTOUT+9 , TLTOUT+10, TLTOUT+14!, SAVEHFS+5!, SAVEHFS+6, SAVEHFS+7, SAVEHFS+8, SAVEHFS+9, LOADFILE+6!, LOADFILE+7!, LOADFILE+8! , LOADFILE+13, LOADFILE+15, LOADFILE+16, LOADFILE+17, XLOADF+2!, XLOADF+3!, LOADHFS+3, LOADURL+2, SETINFO+4, SETINFO+7 |
| ^TMP("YTXCHGE" | CREATE+4!, CREATE+5!, CREATE+7, CREATE+8*, CREATE+9*, CREATE+10*, CREATE+11*, CREATE+12, CREATE+13, CREATE+14 , CREATE+16!, CREATE+17! |
| ^TMP("YTXCHGI" | INSTALL+7!, INSTALL+9, INSTALL+11, INSTALL+12, INSTALL+17! |
| ^XTMP("YTXIDX" | INSTALL+4, INSTALL+5 |
| ^YTT(601.95 - [#601.95] | INFO+3, INFO+7, INFO+8, DELETE+2, INSTALL+1, SAVEHFS+3, SAVEHFS+4, SAVEHFS+7 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ARRAY | INCLUDE+6~, INSTALLQ+4~ |
| ARRAY( | INCLUDE+9, INCLUDE+10, INSTALLQ+6, INSTALLQ+7 |
| CNTLINE | BLDVIEW+3~, BLDVIEW+4*, LINEOUT+10*, TLTOUT+6*, TLTOUT+7*, TLTOUT+12, TLTOUT+13* |
| CNTROOT | BLDVIEW+3~, BLDVIEW+4*, LINEOUT+3, LINEOUT+6 |
| DA | DELETE+1~, DELETE+3* |
| DEST | BLDVIEW~, LINEOUT+10, TLTOUT+6, TLTOUT+12, TLTOUT+13 |
| DIK | DELETE+1~, DELETE+3* |
| DIR | LOADHFS+1~, LOADHFS+2, LOADHFS+3 |
| DRYRUN | INSTALL~, INSTALL+12, INSTALL+13 |
| DT | INSTALL+4, INSTALL+5 |
| FILE | SAVEHFS+2~, SAVEHFS+11, SAVEHFS+12, LOADHFS+1~, LOADHFS+2, LOADHFS+3 |
| FOUND | INCLUDE+6~, INCLUDE+8*, INCLUDE+9, INCLUDE+12*, INCLUDE+13 |
| FULLNM | SAVEHFS~, SAVEHFS+11, LOADHFS~, LOADHFS+2, LOADHFS+4 |
| HEADER | LOADURL+1~, LOADURL+2 |
| I | INFO+4~, INFO+9*, INFO+10, TREEREF+2~, TREEREF+4*, LINEOUT+4~, LINEOUT+6*, TLTOUT+8~, TLTOUT+9*, TLTOUT+10 |
| IDX | INCLUDE+6~, INCLUDE+9*, INCLUDE+10, BLDVIEW+3~, BLDVIEW+4*, ITER+5, ITER+7*, ITER+11, ITER+12, ITER+14* , TREEREF~, TREEREF+9 |
| IDX( | ITER+7*, ITER+12*, TREEREF+9 |
| IEN | INCLUDE+6~, INCLUDE+11*, INCLUDE+12 |
| INFO | INFO~, INFO+11, LOADFILE~, LOADFILE+9, LOADFILE+10, LOADFILE+11, LOADFILE+14*, LOADFILE+15, LOADHFS~, LOADHFS+4* , LOADURL~, LOADURL+5*, SETINFO~ |
| INFO( | SETINFO+1*, SETINFO+2*, SETINFO+3* |
| INFO("tests" | INFO+10* |
| INFO(1 | LOADFILE+16* |
| INFO(2 | SETINFO+4*, SETINFO+5 |
| INFO(4 | SETINFO+7*, SETINFO+8 |
| J | TLTOUT+8~, TLTOUT+11*, TLTOUT+12, TLTOUT+13 |
| LABEL | ITER+3~, ITER+9*, ITER+10, ITER+11, ITER+12, ITER+13, TREEREF+2~, TREEREF+4*, TREEREF+7, TREEREF+8 , TREEREF+10 |
| LEVEL | TREEREF+2~, TREEREF+3*, TREEREF+5*, TREEREF+9 |
| LINE | LINEOUT+4~, LINEOUT+5*, LINEOUT+8*, LINEOUT+9*, LINEOUT+10 |
| MAP | BLDVIEW+3~, BLDVIEW+5 |
| MAPREF | ITER~, ITER+5, ITER+8, ITER+9, ITER+11, ITER+12, ITER+13, TREEREF~, TREEREF+4 |
| NODE | ITER+3~, ITER+5*, ITER+11*, ITER+12, LINEOUT~, LINEOUT+2, LINEOUT+3, LINEOUT+6, LINEOUT+10, TLTOUT~ , TLTOUT+2, TLTOUT+5 |
| OK | CREATE+3~, CREATE+13*, CREATE+15, CREATE+18, INFO+4~, INFO+6*, INSTALL+8~, INSTALL+9*, INSTALL+10, SAVEHFS+2~ , SAVEHFS+6*, SAVEHFS+8*, SAVEHFS+12*, SAVEHFS+13, LOADFILE+12~, LOADFILE+13*, LOADFILE+14, LOADHFS+1~, LOADHFS+3*, LOADHFS+4 |
| PATH | SAVEHFS+2~, SAVEHFS+11, SAVEHFS+12, LOADFILE~, LOADFILE+9, LOADFILE+10 |
| RESULT | TREEREF+2~, TREEREF+3*, TREEREF+6*, TREEREF+8*, TREEREF+9*, TREEREF+10*, TREEREF+11*, TREEREF+12, LOADURL+1~, LOADURL+2* , LOADURL+3, LOADURL+4 |
| RTN | INCLUDE~, INCLUDE+7, INSTALLQ~, INSTALLQ+5 |
| SEQ | CREATE+3~, CREATE+6*, CREATE+7, ITER+3~, ITER+8*, ITER+9, ITER+11, ITER+12, ITER+13 |
| SPECLOC | SAVEHFS+2~, SAVEHFS+3*, SAVEHFS+9*, SAVEHFS+12 |
| SUB | LINEOUT+4~, LINEOUT+6*, LINEOUT+7*, LINEOUT+9 |
| TAG | INCLUDE~, INCLUDE+7, INSTALLQ~, INSTALLQ+5 |
| TESTS | CREATE~ |
| TESTS( | CREATE+6, CREATE+7 |
| TREE | BLDVIEW~, BLDVIEW+4, TREEREF+11, SETINFO~, SETINFO+1, SETINFO+2, SETINFO+3, SETINFO+5, SETINFO+6, SETINFO+8 , SETINFO+9 |
| U | INCLUDE+7, INSTALL+4, INSTALL+5, INSTALLQ+5, LOADURL+3, LOADURL+4 |
| URL | LOADURL~, LOADURL+2 |
| VALS | INCLUDE+6~, INCLUDE+10*, INCLUDE+11, INSTALLQ+4~, INSTALLQ+7*, INSTALLQ+8 |
| VERSION | BADVER~, BADVER+1 |
| X | TLTOUT+8~, TLTOUT+10*, TLTOUT+11, TLTOUT+12, TLTOUT+13 |
| XCHGI | INSTALLQ+4~, INSTALLQ+6*, INSTALLQ+7 |
| XCHGIEN | CREATE+3~, CREATE+15, CREATE+18, INFO~, INFO+3, INFO+6, INFO+7, INFO+8, DELETE~, DELETE+2 , DELETE+3, INSTALL~, INSTALL+1, INSTALL+9, INSTALL+14, INSTALL+15, INSTALLQ+4~, INSTALLQ+8*, INSTALLQ+9, INSTALLQ+10 , SAVEHFS~, SAVEHFS+3, SAVEHFS+4, SAVEHFS+6, SAVEHFS+7 |
| XCHGREC | CREATE~, CREATE+15 |
| XCHGREC( | CREATE+8, CREATE+9, CREATE+10 |
| XCHGREC(1 | CREATE+14* |
| XCHGREC(2 | CREATE+12 |
| Y | INCLUDE~, INCLUDE+12 |
| Name | Field # of Occurrence |
|---|---|
| $T(VERSION+1 | CREATE+11, BADVER+1 |
