Routine: LRWU4

Information

LRWU4 ;VA/DALOI/RWF - READ ACCESSION ; 13-Aug-2013 09:14 ; MKK

Source Information

Source file <LRWU4.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

Caller Graph

Caller Graph Total: 38

Package	Total	Caller Graph
Lab Service	17	LR7OGMC LR7OGMM LR7OGMU LRCAPES LRGP1 LRHYDEL LRHYU4 LRLABXT LRLLS LRLLS3 LRMILL LRTSTJAN LRTSTOUT LRVER LRVERA LRVR LRWRKLST
Automated Lab Instruments	10	LA7ADLS LA7CHLU3 LA7CORUB LA7HDR1 LA7PURG LA7SM LA7SRR LA7VHLU3 LA7VORUB LAMILL
IHS Changes To Lab	10	BLR6249R BLR7OGMM BLRADDCD BLRCHGPL BLRLDFIS BLRMANP3 BLRMANPU BLRMIRPT BLRRLMUM BLRUTIL8
IHS Laboratory Point of Care	1	BLRPOC3

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	ICR #4636 Status: Active Usage: Private
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+69
$$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(^LRO(68,LRAA,0),U,11)," ",$$FMTE^XLFDT(LRAD,"5D")," ",LRAN," DOES NOT EXIST!" Line Location: AA+69
Function Call: WRITE	Prompt: " (",$P($G(^LRO(68,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)
^DISV(	AA+8*, AA+9
^LRO(68 - [#68]	AA+13, AA+19, AA+21, AA+25, AA+54, AA+68, AA+69, UNIV+6, CHECKUID+8, CHECKUID+10
^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*
>> BLRLRAS	AA+6*
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+68, AA+69, QUIT+1* , UNIV+3, UNIV+4, UNIV+6, WLQUES+5*
>> LRACC	AA+58, AA+65, AA+67, AA+68, QUES+5, QUES+6
>> LRAD	AA+10, AA+35, AA+41, AA+49, AA+51, AA+55, AA+68, AA+69, QUIT+1, UNIV+3 , UNIV+4*, UNIV+6
>> LRAN	AA+10, AA+66, AA+67, AA+68, AA+69, QUIT+1, UNIV+3, UNIV+4*, UNIV+6
LRIDIV	AA+25*, END+1!
LRNATURE	EN+3!
LRQUIT	EN+1~, EN+4, EN+5, AA+36, AA+71, 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+69
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: Lab Service

Routine: LRWU4

Call Graph Total: 6

Caller Graph Total: 38