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

Customize PDF page

Package: IHS Changes To Lab

Routine: BLRWU4

Call Graph Total: 6