YTXCHG ;SLC/KCM - Instrument Exchange Calls ; 9/15/2015
Source file <YTXCHG.m>
| 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
|
| FileNo | Call Tags |
|---|---|
| ^YTT(601.95 - [#601.95] | Classic Fileman Calls, FIND1^DIC |
