©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
LA7ADL ;VA/DALOI/JMC - Automatic Download of Test Orders; 1/30/95 09:00
Source file <LA7ADL.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| CHKTEST | ; Check tests to determine if they should build in message.
; Array LA7ACC returned with tests to send in message |
|
| UID | ; Start loop to monitor for accessions to download.
|
|
| EN(LA7UID) | ; Set flag to check accession for downloading, start background job if needed.
; Called by LR7OMERG, LRCONJAM, LRTSTSET, LRWLST1. |
|
| ADD | ; Add to list of tests to download
|
|
| CLEANUP | ; Delete flag after accession has been checked.
; NOTE: Lock previously set above. |
|
| EXIT | ; Exit and cleanup.
|
|
| BUILD | ; Build TMP global with list of tests for instruments flagged for auto download.
|
|
| CHKMASK | ; Check pattern mask for tests that match download pattern mask
|
|
| ZTSK | ; Task background job to run.
|
|
| MAILALRT | ; Send mail message alert
|
|
| DQ | ; Entry point from Taskman.
|
|
| BLDTST | ; Build array of tests on accession to check for downloading
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^LA("ADL" | EN+10, EN+13, EN+16*, EN+19, EN+22, EN+27, EN+35, DQ+6, DQ+14, UID+5 , UID+7, UID+8, UID+11, UID+35, UID+36, CLEANUP+3!, CLEANUP+6, EXIT+3, EXIT+11! |
| ^LAB(62.4 - [#62.4] | EN+7, DQ+11 |
| ^LRO(68 - [#68] | UID+15, UID+21, BLDTST+6, BLDTST+8, CHKTEST+9, CHKTEST+10, CHKTEST+13, CHKTEST+17 |
| ^TMP("LA7" | EXIT+5! |
| ^TMP("LA7-INST" | CHKTEST+11, CHKTEST+20, CHKTEST+22, CHKMASK+3, CHKMASK+6, CHKMASK+9, CHKMASK+12, CHKMASK+15, CHKMASK+18, CHKMASK+21 |
| ^TMP($J | EXIT+5! |
| Name | Line Occurrences |
|---|---|
| @( | UID+32 |
| ADD | CHKMASK+3, CHKMASK+6, CHKMASK+9, CHKMASK+12, CHKMASK+15, CHKMASK+18, CHKMASK+21 |
| BLDTST | UID+23 |
| BUILD | DQ+16, UID+5 |
| CHKMASK | CHKTEST+24 |
| CHKTEST | UID+26 |
| CLEANUP | UID+17, UID+21, UID+33 |
| EXIT | DQ+11, DQ+19 |
| MAILALRT | UID+21 |
| UID | DQ+18 |
| ZTSK | EN+32 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DUZ | BUILD+4, MAILALRT+23 |
| J | MAILALRT+1~, MAILALRT+14*, MAILALRT+15, MAILALRT+16, MAILALRT+17* |
| LA760 | BLDTST+2~, BLDTST+5*, BLDTST+6*, BLDTST+8, BLDTST+13, CHKTEST+3~, CHKTEST+18*, CHKTEST+19*, CHKTEST+20, CHKTEST+22 , CHKTEST+23, CHKMASK+3, CHKMASK+6, CHKMASK+9, CHKMASK+12, CHKMASK+15, CHKMASK+18, CHKMASK+21, ADD+2 |
| LA761 | CHKTEST+3~, CHKTEST+17*, CHKMASK+9, CHKMASK+15, CHKMASK+18, CHKMASK+21 |
| LA76205 | CHKTEST+3~, CHKTEST+23*, CHKMASK+12, CHKMASK+18, CHKMASK+21 |
| LA768 | CHKTEST+3~ |
| LA7ACC | UID+28, CHKTEST+5! |
| LA7ACC( | ADD+2* |
| LA7ADL | EXIT+6! |
| >> LA7AUTO( | UID+25, UID+29, UID+32 |
| LA7I | CHKTEST+3~, CHKTEST+21*, CHKTEST+22*, CHKMASK+3, CHKMASK+6, CHKMASK+9, CHKMASK+12, CHKMASK+15, CHKMASK+18, CHKMASK+21 , ADD+2 |
| >> LA7INST | UID+24*, UID+25*, UID+29, UID+32, CHKTEST+11, CHKTEST+20, CHKTEST+22, CHKMASK+3, CHKMASK+6, CHKMASK+9 , CHKMASK+12, CHKMASK+15, CHKMASK+18, CHKMASK+21 |
| LA7PCNT | BLDTST+2~, BLDTST+12* |
| LA7TREE | BLDTST+4! |
| LA7TREE( | CHKTEST+19, CHKTEST+23, ADD+2 |
| LA7UID | EN~, EN+4, EN+13, EN+16, EN+19, UID+2*, UID+7*, UID+11, UID+15, UID+17 , UID+30~, CLEANUP+3, CLEANUP+6 |
| LRAA | UID+19*, UID+21, BLDTST+6, BLDTST+8, CHKTEST+9, CHKTEST+10, CHKTEST+13, CHKTEST+17, CHKMASK+6, CHKMASK+15 , CHKMASK+21, EXIT+7! |
| LRAD | UID+19*, UID+21, BLDTST+6, BLDTST+8, CHKTEST+9, CHKTEST+10, CHKTEST+13, CHKTEST+17, EXIT+7! |
| LRAN | UID+19*, UID+21, BLDTST+6, BLDTST+8, CHKTEST+9, CHKTEST+10, CHKTEST+13, CHKTEST+17, EXIT+7! |
| >> LRAUTO | UID+29* |
| LRCNT | MAILALRT+1~, MAILALRT+12*, MAILALRT+16*, MAILALRT+17* |
| LRDPF | CHKTEST+3~, CHKTEST+9*, CHKTEST+11 |
| >> LRINST | UID+29* |
| LRMTXT | MAILALRT+1~ |
| LRMTXT( | MAILALRT+16*, MAILALRT+17* |
| LRMTXT(1 | MAILALRT+3* |
| LRMTXT(2 | MAILALRT+4* |
| LRMTXT(3 | MAILALRT+5* |
| LRMTXT(4 | MAILALRT+6* |
| LRMTXT(5 | MAILALRT+7* |
| LRMTXT(6 | MAILALRT+8* |
| LRMTXT(7 | MAILALRT+9* |
| LRMTXT(8 | MAILALRT+10* |
| LRMTXT(9 | MAILALRT+11* |
| TOUT | DQ+18, UID+2*, UID+7, UID+8*, UID+9*, UID+35, UID+36*, UID+38*, UID+39*, EXIT+8! |
| X | UID+15*, UID+17, UID+19, BLDTST+2~, BLDTST+8*, BLDTST+10, BLDTST+13, CHKTEST+3~, CHKTEST+10*, CHKTEST+11 , CHKTEST+13*, CHKTEST+15, CHKTEST+17, MAILALRT+1~, MAILALRT+15*, MAILALRT+16 |
| XMINSTR | MAILALRT+1~, MAILALRT+23 |
| XMINSTR("ADDR | FLAGS" , MAILALRT+22* |
| XMINSTR("FROM" | MAILALRT+21* |
| XMSUB | MAILALRT+1~, MAILALRT+19*, MAILALRT+23 |
| XMTO | MAILALRT+1~, MAILALRT+23 |
| XMTO("G.LMI" | MAILALRT+20* |
| ZTDESC | ZTSK+2~, ZTSK+5* |
| ZTDTH | ZTSK+2~, ZTSK+5* |
| ZTIO | ZTSK+2~, ZTSK+5* |
| >> ZTQUEUED | DQ+3 |
| >> ZTREQ | DQ+3* |
| ZTRTN | ZTSK+2~, ZTSK+5* |
| ZTSAVE | ZTSK+2~ |
| ZTSK | EN+31~ |
| >> ZTSTOP | UID+2*, UID+5, UID+7, UID+9*, UID+38* |