©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
LA7ADL1 ;DALOI/JMC - Automatic Download of Test Orders (Cont'd) ; 1/30/95 09:00 [ 04/21/2003 8:15 AM ]
Source file <LA7ADL1.m>
| Package | Total | Call Graph |
|---|---|---|
| Kernel | 2 | $$VERSION^%ZOSV ($$FMTE,$$HTFM)^XLFDT |
| Automated Lab Instruments | 1 | ERROR^LA7UID |
| VA Fileman | 1 | $$GET1^DIQ |
| Package | Total | Caller Graph |
|---|---|---|
| Automated Lab Instruments | 4 | LA7ADL LA7ADL2 LA7UID LA7UID1 |
| Lab Service | 1 | LRSRVR2 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| BLDTST | ; Build list of test that can be downloaded.
|
|
| CHKRTN() | ; Check if download routine defined and valid
|
|
| UNWIND(LA760,LA7URG,LA7TYP) | ; Unwind profile - set tests into array LA7TREE with urgency.
|
|
| BLDINST(LA7INST,LA7WL) | ; Build list of instrument tests
; Call with LA7INST = ien of entry in file #62.4 ; LA7WL = ien of entry in file #62.8 (optional) ; will default to list associated with #62.4 entry. |
|
| SHOWST() | ; Show status
|
|
| BUILD | ; Build test listing for all instruments designated for auto download.
|
|
| SETSTOP(FLAG,USER) | ; Set "STOP" node in ^LA("ADL") global..
; Required parameters ; FLAG - Values passed can be: ; 0 = Auto download background task running. ; 1 = Start/Restart background task. ; 2 = Shutdown auto download background task, don't restart. ; 3 = Shutdown, don't start auto download task and don't collect accessions for downloading. ; USER - DUZ of user. |
| FileNo | Call Tags |
|---|---|
| ^VA(200 - [#200] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZOSF("TEST" | CHKRTN+13 |
| ^LA("ADL" | SETSTOP+15*, SHOWST+4 |
| ^LAB(60 - [#60] | BLDTST+16, UNWIND+14, UNWIND+17, UNWIND+28, UNWIND+36, UNWIND+39 |
| ^LAB(62.4 - [#62.4] | BUILD+11, BLDINST+7, BLDINST+11, BLDINST+22, BLDTST+4, BLDTST+8, BLDTST+9 |
| ^LRO(68.2 - [#68.2] | BLDINST+19 |
| ^TMP("LA7" | BLDTST+15*, BLDTST+16* |
| ^TMP("LA7-INST" | BUILD+4!, BLDINST+5!, BLDINST+19*, BLDINST+25, BLDINST+27!, BLDTST+12* |
| Name | Line Occurrences |
|---|---|
| $$CHKRTN | BLDINST+13 |
| BLDINST | BUILD+11 |
| BLDTST | BLDINST+22 |
| UNWIND | UNWIND+42 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| FLAG | SETSTOP~, SETSTOP+10, SETSTOP+15 |
| >> HLZOS | CHKRTN+20*, CHKRTN+21 |
| I | UNWIND+30~, UNWIND+33*, UNWIND+36*, UNWIND+39 |
| II | UNWIND+37~, UNWIND+39*, UNWIND+41, UNWIND+42 |
| LA760 | UNWIND~, UNWIND+14, UNWIND+17, UNWIND+20, UNWIND+25, UNWIND+28, UNWIND+36, UNWIND+39, UNWIND+41 |
| >> LA7ADL | BUILD+8* |
| LA7AUTO | BUILD+5! |
| LA7AUTO( | BLDINST+7*, BLDINST+9!, BLDINST+11*, BLDINST+16, BLDINST+26!, CHKRTN+7, CHKRTN+12, CHKRTN+13, CHKRTN+18, CHKRTN+29 , CHKRTN+31! |
| LA7ERR | CHKRTN+2~, CHKRTN+4*, CHKRTN+8*, CHKRTN+14*, CHKRTN+18, CHKRTN+24*, CHKRTN+28, CHKRTN+33 |
| LA7I | BUILD+2~, BLDINST+21*, BLDINST+22*, BLDTST+4, BLDTST+8, BLDTST+9, BLDTST+12, BLDTST+15, BLDTST+16 |
| LA7INST | BUILD+2~, BUILD+10*, BUILD+11*, BLDINST~, BLDINST+5, BLDINST+7, BLDINST+9, BLDINST+11, BLDINST+16, BLDINST+19 , BLDINST+22, BLDINST+25, BLDINST+26, BLDINST+27, BLDTST+4, BLDTST+8, BLDTST+9, BLDTST+12, BLDTST+15, BLDTST+16 , CHKRTN+7, CHKRTN+12, CHKRTN+13, CHKRTN+18, CHKRTN+29, CHKRTN+31 |
| >> LA7PCNT | UNWIND+8, UNWIND+21*, UNWIND+28*, UNWIND+33* |
| >> LA7TREE( | UNWIND+20, UNWIND+25*, UNWIND+28* |
| LA7TYP | UNWIND~, UNWIND+28 |
| LA7URG | UNWIND~, UNWIND+11*, UNWIND+23*, UNWIND+25, UNWIND+28, UNWIND+42 |
| LA7WL | BUILD+2~, BLDINST~, BLDINST+16*, BLDINST+19 |
| USER | SETSTOP~, SETSTOP+12*, SETSTOP+15 |
| X | BLDTST+2~, BLDTST+8*, BLDTST+12, BLDTST+15, BLDTST+16, CHKRTN+2~, CHKRTN+13*, SHOWST+2~, SHOWST+4*, SHOWST+5 , SHOWST+7, SHOWST+8, SHOWST+9, SHOWST+10 |
| XQA | CHKRTN+2~ |
| XQAMSG | CHKRTN+2~, CHKRTN+4*, CHKRTN+9*, CHKRTN+15*, CHKRTN+25*, CHKRTN+29* |
| Y | BLDTST+2~, BLDTST+9*, BLDTST+12, SHOWST+2~, SHOWST+5*, SHOWST+8*, SHOWST+9*, SHOWST+10*, SHOWST+12 |
| Name | Field # of Occurrence |
|---|---|
| $T(@$PIECE^2;4(10) | CHKRTN+23 |