LRWU4 ;DALOI/RWF - READ ACCESSION ;10/28/10 17:22
Source file <LRWU4.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EN | ;
|
|
SCR | ; Screened entry point, called by ENA below
|
|
AA | ;
|
|
QUIT | ;
|
|
END | ;
|
|
ENA(LRSCR) | ; Alternate entry to pass in file 63 subscript value to screen accession areas.
; Used for MI and AP accession lookup. |
|
UNIV | ; see if entry is UID
|
|
QUES | ;
|
|
WLQUES | ; Ask user if accession area enter does not match any existing entries
|
|
SELBY(LRX1,LRX2) | ; Select by accession number or unique identifier (UID)
; Call with LRX1 = message prompt ; LRX2 = default method ; Returns Y = 0 (abort), 1 (accession number), 2 (unique identifier) |
|
UID(LRX,LRY) | ; Lookup accession by UID
; Call with LRX = message prompt ; LRY = default UID to display ; Returns Y = 0 (abort) ; = UID |
|
CHECKUID(LRX,LRSCR) | ; Check if UID is valid, accession exists.
; Call with LRX = UID to check ; LRSCR = subscript screen ; Returns Y = 0 (accession does not exist) ; = 1 (accession exists)^area^date^number |
|
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 |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^LRO(68 - [#68] | Classic Fileman Calls, EXTERNAL^DILFD |