BLRWU4 ;VA/DALOI/RWF - READ ACCESSION ; 22-Oct-2013 09:22 ; MKK
Source file <BLRWU4.m>
Package | Total | Call Graph |
---|---|---|
VA Fileman | 3 | ^%DT ^DIC ^DIR |
Kernel | 2 | ($$DT,$$FMTE)^XLFDT $$LKUP^XPDKEY |
Lab Service | 1 | DATE^LRWU |
Name | Comments | DBIA/ICR reference |
---|---|---|
AA | ;
|
|
QUIT | ;
|
|
EN | ;
|
|
END | ;
|
|
CHECKUID(LRX) | ; Check if UID is valid, accession exists.
; Call with LRX = UID to check ; Returns Y = 0 (accession does not exist) ; = 1 (accession exists)^area^date^number |
|
QUES | ;
|
|
SELBY(X1) | ; Select by accession number or unique identifier (UID)
; Call with X1 = message prompt ; Returns Y = 0 (abort) ; = 1 (accession number) ; = 2 (unique identifier) |
|
WLQUES | ; Ask user if acession area enter does not match any existing entries
|
|
UID(LRX,LRY) | ; Lookup accession by UID
; Call with LRX = message prompt ; LRY = default UID to display ; Returns Y = 0 (abort) ; = UID |
|
UNIV | ; see if entry is UID
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^LRO(68 - [#68] | Classic Fileman Calls |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^BLRARC68( | AA+21, AA+25, AA+54, AA+69, AA+70, UNIV+6, CHECKUID+10 |
^BLRARC68("B" | AA+19 |
^BLRARC68("C" | AA+13, CHECKUID+8 |
^DISV( | AA+8*, AA+9 |
^XUSEC( | AA+23 |
Name | Line Occurrences |
---|---|
$$CHECKUID | UNIV+2 |
AA | EN+5 |
QUES | AA+18, AA+34, AA+50, AA+67, UNIV+3 |
QUIT | AA+4, AA+33, AA+65 |
UNIV | AA+13 |
WLQUES | AA+20, AA+23 |
Name | Field # of Occurrence |
---|---|
^("LRACC" | AA+9 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
% | EN+1~, AA+21*, AA+22*, AA+23 |
%DT | AA+30~, AA+31*, AA+42~, AA+47*, END+1! |
%DT("A" | AA+31* |
%DT("B" | AA+31* |
DIC | EN+1~, END+1!, WLQUES+1~, WLQUES+2* |
DIC("S" | WLQUES+3* |
DIC(0 | WLQUES+2* |
DIR | EN+1~, AA+59~, SELBY+5~, UID+6~ |
DIR("?" | AA+2*, UID+10* |
DIR("A" | AA+1*, AA+60*, SELBY+7*, UID+10* |
DIR("B" | SELBY+7*, UID+11* |
DIR(0 | AA+1*, AA+60*, SELBY+7*, UID+9* |
DIROUT | SELBY+5~, UID+6~ |
DIRUT | EN+1~, AA+4, AA+59~, AA+62, SELBY+5~, SELBY+9, UID+6~, UID+13 |
DT | EN+4*, AA+43, AA+45, AA+46 |
DTOUT | EN+1~, AA+59~, SELBY+5~, UID+6~ |
DUOUT | EN+1~, AA+33, AA+59~, SELBY+5~, UID+6~ |
DUZ | AA+8, AA+9, AA+23 |
>> LRAA | AA+10*, AA+19*, AA+20, AA+21, AA+23, AA+25, AA+54, AA+69, AA+70, QUIT+1* , UNIV+3*, UNIV+4*, UNIV+6, WLQUES+5* |
>> LRACC | AA+58, AA+65, AA+67, AA+69, QUES+5, QUES+6 |
>> LRAD | AA+10*, AA+35*, AA+41, AA+49*, AA+51, AA+55*, AA+69, AA+70, QUIT+1*, UNIV+3* , UNIV+4*, UNIV+6 |
>> LRAN | AA+10*, AA+66*, AA+67, AA+69, AA+70, QUIT+1*, UNIV+3*, UNIV+4*, UNIV+6 |
>> LRAS | AA+6* |
LRIDIV | AA+25*, END+1! |
LRNATURE | EN+3! |
LRQUIT | EN+1~, EN+4*, EN+5, AA+36, AA+72*, END+2*, UNIV+5* |
>> LRVBY | AA+1, AA+13, QUES+1, QUES+7 |
LRX | EN+1~, AA+5*, AA+8, AA+9*, AA+13, AA+16, AA+25*, AA+26, UNIV+2, UID~ , UID+8*, UID+10, CHECKUID~, CHECKUID+8, CHECKUID+9 |
LRY | UNIV+1~, UNIV+2*, UNIV+3, UNIV+4, UID~, UID+11, CHECKUID+5~, CHECKUID+7*, CHECKUID+11*, CHECKUID+12 |
U | EN+4*, AA+21, AA+25, AA+26, AA+54, AA+70 |
X | AA+6, AA+47*, AA+54*, AA+55, AA+59~, WLQUES+1~, WLQUES+2*, WLQUES+4, SELBY+5~, UID+6~ |
X1 | AA+16*, AA+18, AA+19, END+1!, WLQUES+2, SELBY~, SELBY+6*, SELBY+7 |
X2 | AA+16*, AA+17*, AA+29, AA+43*, AA+44, AA+45*, AA+46*, AA+47, END+1! |
X3 | AA+16*, AA+17*, AA+29, AA+56, AA+58, AA+63*, AA+65, AA+66, END+1! |
Y | AA+4, AA+5, AA+34, AA+35, AA+49, AA+59~, AA+62, AA+63, WLQUES+5, SELBY+5~ , SELBY+9*, SELBY+10, UID+6~, UID+13*, UID+14, CHECKUID+5~, CHECKUID+8*, CHECKUID+9, CHECKUID+10, CHECKUID+11 |