Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: BLRWU4

Package: IHS Changes To Lab

Routine: BLRWU4


Information

BLRWU4 ;VA/DALOI/RWF - READ ACCESSION ; 22-Oct-2013 09:22 ; MKK

Source Information

Source file <BLRWU4.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA Fileman 3 ^%DT  ^DIC  ^DIR  
Kernel 2 ($$DT,$$FMTE)^XLFDT  $$LKUP^XPDKEY  
Lab Service 1 DATE^LRWU  

Entry Points

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

External References

Name Field # of Occurrence
^%DT AA+48
^DIC WLQUES+5
^DIR AA+3, AA+61, SELBY+8, UID+12
DATE^LRWU AA+32
$$DT^XLFDT EN+4
$$FMTE^XLFDT AA+70
$$LKUP^XPDKEY AA+22

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$P(LRX,U)
  • Line Location: AA+26
Function Call: WRITE
  • Prompt: !,"ACCESSION: ",$P(^BLRARC68(LRAA,0),U,11)," ",$$FMTE^XLFDT(LRAD,"5D")," ",LRAN," DOES NOT EXIST!"
  • Line Location: AA+70
Function Call: WRITE
  • Prompt: " (",$P($G(^BLRARC68(LRAA,1,LRAD,1,LRAN,.2)),"^"),")"
  • Line Location: UNIV+6
Function Call: WRITE
  • Prompt: $C(7),!,"Enter the accession number",$S($G(LRVBY)<1:" or the unique identifier (UID)",1:""),"."
  • Line Location: QUES+1
Function Call: WRITE
  • Prompt: !,"If entering the accession number, enter in this format:"
  • Line Location: QUES+2
Function Call: WRITE
  • Prompt: !?5," <ACCESSION AREA> <DATE> <NUMBER>"
  • Line Location: QUES+3
Function Call: WRITE
  • Prompt: !?5," ie. CH 0426 125 or CH 125 or CH T 125",!?5," or if it's a yearly accession area ie. MICRO 85 30173"
  • Line Location: QUES+4
Function Call: WRITE
  • Prompt: !,"If entering the UID, enter the entire 10-15 characters."
  • Line Location: QUES+7
Function Call: WRITE
  • Prompt: !,X
  • Line Location: WLQUES+4
Routine Call
  • DIC
  • Line Location:
    • WLQUES+5
Routine Call
  • DIR
  • Line Location:
    • AA+3
    • AA+61
    • SELBY+8
    • UID+12

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LRO(68 - [#68] Classic Fileman Calls

Global Variables Directly Accessed

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

Label References

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

Naked Globals

Name Field # of Occurrence
^("LRACC" AA+9

Local Variables

Legend:

>> 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
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All