LA7ADL ;DALOI/JMC - Automatic Download of Test Orders ;11/23/10 12:04
Source file <LA7ADL.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 |
|---|---|---|
| EN(LA7UID) | ; Set flag to check accession for downloading, start background job if needed.
; Called by LR7OMERG, LRCONJAM, LRTSTSET, LRWLST1. |
|
| DQ | ; Entry point from Taskman.
|
|
| UID | ; Start loop to monitor for accessions to download.
|
|
| BLDTST | ; Build array of tests on accession to check for downloading
|
|
| CHKTEST | ; Check tests to determine if they should build in message.
; Array LA7ACC returned with tests to send in message |
|
| CHKMASK | ; Check pattern mask for tests that match download pattern mask
|
|
| ADD | ; Add to list of tests to download
|
|
| CLEANUP | ; Delete flag after accession has been checked.
; NOTE: Lock previously set above. |
|
| CHKTSK | ; Check if we shoud task the auto download processing routine.
; Check if we recently tasked the processing routine for this process by compaing values in the XTMP global. ; Done to avoid repetitive locking attempts on each new accessione since the FileMan locking API uses a site-defined timeout which is usually 3 seconds ; but can be more. Slows down the interface if on each accession we are waiting 3 or more seconds for the lock to find out if the processing routine ; is already running. |
|
| ZTSK | ; Task background job to run.
|
|
| BUILD | ; Build TMP global with list of tests for instruments flagged for auto download.
|
|
| XTMP | ; Set/update XTMP with current run time of this processing routine
|
|
| EXIT | ; Exit and cleanup.
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^LA("ADL" | EN+10, EN+13, EN+16*, EN+19, EN+22, EN+28, DQ+3, DQ+11, UID+7, UID+9 , UID+10, UID+40, UID+41, CLEANUP+3!, CLEANUP+6, EXIT+3, EXIT+9! |
| ^LAB(62.4 - [#62.4] | EN+7, DQ+8 |
| ^LRO(68 - [#68] | UID+17, UID+23, UID+24, UID+25, UID+26, BLDTST+6, BLDTST+8 |
| ^TMP("LA7" | EXIT+5! |
| ^TMP("LA7-INST" | CHKTEST+10, CHKTEST+14, CHKTEST+16, CHKMASK+3, CHKMASK+6, CHKMASK+9, CHKMASK+12, CHKMASK+15, CHKMASK+18, CHKMASK+21 , CHKMASK+24 |
| ^TMP($J | EXIT+5! |
| ^XTMP("LA7ADL" | CHKTSK+7, XTMP+3*, XTMP+4*, EXIT+5! |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DT | XTMP+2*, XTMP+3 |
| DUZ | BUILD+5 |
| LA760 | BLDTST+2~, BLDTST+5*, BLDTST+6*, BLDTST+8, BLDTST+13, CHKTEST+3~, CHKTEST+12*, CHKTEST+13*, CHKTEST+14, CHKTEST+16 , CHKTEST+17, CHKMASK+3, CHKMASK+6, CHKMASK+9, CHKMASK+12, CHKMASK+15, CHKMASK+18, CHKMASK+21, CHKMASK+24, ADD+2 |
| LA761 | UID+2~, UID+25*, UID+26*, CHKMASK+9, CHKMASK+15, CHKMASK+21, CHKMASK+24 |
| LA76205 | CHKTEST+3~, CHKTEST+17*, CHKMASK+12, CHKMASK+18, CHKMASK+21, CHKMASK+24 |
| LA768 | CHKTEST+3~ |
| LA7ACC | UID+33, CHKTEST+5! |
| LA7ACC( | ADD+2* |
| LA7ADL | EXIT+6! |
| LA7AUTO | EXIT+6! |
| LA7AUTO( | UID+30, UID+34, UID+37 |
| LA7I | CHKTEST+3~, CHKTEST+15*, CHKTEST+16*, CHKMASK+3, CHKMASK+6, CHKMASK+9, CHKMASK+12, CHKMASK+15, CHKMASK+18, CHKMASK+21 , CHKMASK+24, ADD+2 |
| >> LA7INST | UID+29*, UID+30*, UID+34, UID+37, CHKTEST+10, CHKTEST+14, CHKTEST+16, CHKMASK+3, CHKMASK+6, CHKMASK+9 , CHKMASK+12, CHKMASK+15, CHKMASK+18, CHKMASK+21, CHKMASK+24 |
| LA7NVAF | EXIT+6! |
| LA7PCNT | BLDTST+2~, BLDTST+12* |
| LA7TREE | BLDTST+4! |
| LA7TREE( | CHKTEST+13, CHKTEST+17, ADD+2 |
| LA7UID | EN~, EN+4, EN+13, EN+16, EN+19, UID+4*, UID+9*, UID+11, UID+17, UID+19 , UID+35~, CLEANUP+3, CLEANUP+6 |
| LA7X | CHKTSK+6~, CHKTSK+7*, CHKTSK+8 |
| LA7Y | CHKTSK+6~, CHKTSK+7*, CHKTSK+8 |
| LRAA | UID+22*, UID+23, UID+24, UID+25, UID+26, BLDTST+6, BLDTST+8, CHKMASK+6, CHKMASK+15, CHKMASK+18 , CHKMASK+24, EXIT+6! |
| LRAD | UID+22*, UID+23, UID+24, UID+25, UID+26, BLDTST+6, BLDTST+8, EXIT+6! |
| LRAN | UID+22*, UID+23, UID+24, UID+25, UID+26, BLDTST+6, BLDTST+8, EXIT+6! |
| >> LRAUTO | UID+34* |
| LRCOLLECT | UID+2~, UID+24*, CHKTEST+10 |
| LRDPF | UID+2~, UID+23*, UID+35~, CHKTEST+10 |
| >> LRINST | UID+34* |
| TOUT | DQ+17, UID+4*, UID+9, UID+10*, UID+11*, UID+40, UID+41*, UID+43*, UID+44*, EXIT+6! |
| X | UID+17*, UID+19, UID+22, UID+25*, UID+26, BLDTST+2~, BLDTST+8*, BLDTST+10, BLDTST+13 |
| ZTDESC | ZTSK+5~, ZTSK+6* |
| ZTDTH | ZTSK+5~, ZTSK+6* |
| ZTIO | ZTSK+5~, ZTSK+6* |
| >> ZTQUEUED | DQ+5, EXIT+12 |
| >> ZTREQ | DQ+5*, EXIT+12* |
| ZTRTN | ZTSK+5~, ZTSK+6* |
| ZTSAVE | ZTSK+5~ |
| >> ZTSTOP | UID+4*, UID+7, UID+9, UID+11*, UID+43* |
