LA7SMB ;DALOI/JMC - Shipping Manifest Build ;11/16/11 13:08
Source file <LA7SMB.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EN | ;
|
|
DQ | ; Taskman entry point
; Build list of tests and criteria for manifest. |
|
SMONLY | ; Start a shipping manifest only, no building
|
|
SCAN | ; Scan accession for tests to build
|
|
CKTEST(LA7AA,LA7AD,LA7AN,LA760) | ; Check other tests on accession if test is part of another panel that
; has been flagged for shipping. ; Call with LA7AA = ien of accession area. ; LA7AD = accession date ; LA7AN = accession number ; LA760 = ien of lab test ; Returns LA7FLAG = 0 (part of another panel) ; = 1 (not part of another panel) |
|
UNWIND(LA760) | ; Unwind profile - set tests into global ^TMP("LA7TREE",$J).
; Initialize variable LA7PCNT=0 before calling. ; Kill ^TMP("LA7TREE",$J) before calling. |
|
LOCK68 | ; Lock entry in file 68
; Called from above, LA7SM |
|
UNLOCK68 | ; Unlock entry in file 68
; Called from above, LA7SM |
|
CLEANUP | ; Cleanup variables
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^LAB(60 - [#60] | GET1^DIQ |