Routine: LRLNCX

Package	Total	Call Graph
VA Fileman	1	^DIR

Package	Total	Caller Graph
Lab Service	1	LR LOINC EXTRACT LAB NAMES

Entry Points

Name	Comments	DBIA/ICR reference
EN	;
END	;
WRT	;LR60N [test name] - translate "*" or "?" to spaces
1	;create individual test list.
MSG	;
3	;Selected all tests
2	;Selected accession area - screen on LRAA(#)
ASK	;
SEL	;Select method of extraction
OUT	;

External References

Name	Field # of Occurrence
^DIR	1+6, ASK+2, MSG+20, SEL+5, SEL+11

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: EN+2
Function Call: WRITE	Prompt: !,$E(LR60_$S(LRSP'="":"-",1:"")_LRSP_LRFS_$TR(LR60N,"*?"," ")_$S(LRSPN'="":" ",1:"")_LRSPN_LRFS_LRUNIT,1,80) Line Location: WRT+2
Function Call: WRITE	Prompt: @IOF Line Location: MSG+1
Function Call: WRITE	Prompt: !,"(NOTE) You should use the Add/Edit Topography Specimen HL7 Code" Line Location: MSG+2
Function Call: WRITE	Prompt: !,"[LR LOINC LEDI HL7 CODE] option before you proceed." Line Location: MSG+3
Function Call: WRITE	Prompt: !," ----- ----- ----- ----" Line Location: MSG+4
Function Call: WRITE	Prompt: !,"This option will create a Local Master Observation File (LMOF)" Line Location: MSG+5
Function Call: WRITE	Prompt: !,"from your local LABORATORY TEST (#60) file." Line Location: MSG+6
Function Call: WRITE	Prompt: !,"The LMOF file will use the vertical bar '\|' as the field separator." Line Location: MSG+9
Function Call: WRITE	Prompt: !,"The 1st. field is the test internal number and internal number" Line Location: MSG+10
Function Call: WRITE	Prompt: !,"of the spec. (i.e. 1-72 will represent test 1 and specimen 72)." Line Location: MSG+11
Function Call: WRITE	Prompt: !,"The 2nd field contains \|test name<SP>specimen." Line Location: MSG+12
Function Call: WRITE	Prompt: !,"The 3rd field is the reporting unit only (if any)." Line Location: MSG+13
Function Call: WRITE	Prompt: !!,"You will need to capture this printout into a text file." Line Location: MSG+14
Function Call: WRITE	Prompt: !,"Using a text editor, remove extraneous lines from the beginning" Line Location: MSG+15
Function Call: WRITE	Prompt: !,"and the end of the file so that only extracted test names remain." Line Location: MSG+16
Function Call: WRITE	Prompt: !,"Save the edited file. Use this file in the import function of the" Line Location: MSG+17
Function Call: WRITE	Prompt: !,"Regenstrief LOINC Mapping Assistant (RELMA)." Line Location: MSG+18
Function Call: WRITE	Prompt: !,"Consult the Regenstrief RELMA documentation for specifics." Line Location: MSG+19
Routine Call	DIR Line Location: 1+6 ASK+2 MSG+20 SEL+5 SEL+11

Name	Line Occurrences (* Changed, ! Killed)
^BLRUCUM - [#90475.3]	OUT+8
^LAB(60 - [#60]	2+10, 2+11, 2+16, OUT+2, OUT+3, OUT+5, OUT+6, OUT+10
^LAB(61 - [#61]	OUT+8
^LAB(64.061 - [#64.061]	OUT+12
^TMP("LR LOINC"	EN+1!, 1+1!, 1+2, 1+6, 1+7, 1+10, 1+11

Name	Field # of Occurrence
^(	OUT+8
^(0	2+16

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DIR	1+3!, ASK+1!, MSG+20!, SEL+1!, SEL+8!, END+1!
DIR("A"	ASK+1, SEL+4, SEL+9, SEL+13
DIR("S"	1+5, SEL+10
DIR(0	1+4, ASK+1, MSG+20, SEL+3, SEL+9*
DIRUT	ASK+2, MSG+20, SEL+5, END+1!
DT	1+2
>> I	2+14*
IOF	MSG+1
LR60	EN+4, 2+9, 2+10, 2+11, 2+16, 1+11, 1+12, 1+13*, OUT+2, OUT+3 , OUT+5, OUT+6, OUT+10, WRT+2, END+1!
LR60N	EN+4, 2+11, 2+13, 2+14, 2+15, 1+13*, WRT+2, END+1!
LR61	OUT+8*, OUT+11, END+1!
LR64061	OUT+11*, OUT+12, END+1!
LR64N	OUT+12!*, OUT+13, END+1!
LR8	OUT+2*, OUT+3, END+1!
LRAA	EN+1!, OUT+1, SEL+1!, SEL+12*, SEL+13, END+1!
LRAA(	OUT+3, SEL+13*
LRANS	EN+5, SEL+2, SEL+6, SEL+7, END+1!
LREND	EN+1!, EN+3, 2+1, 1+7, ASK+2, MSG+20, SEL+2, SEL+5, END+1!
LRFS	EN+4*, WRT+2, END+1!
LRLSPN	OUT+11*, OUT+13, END+1!
LRNOP	OUT+1, OUT+2, OUT+3, END+1!
LRNX	1+8, 1+10, 1+11, END+1!
LRSITE	END+1!
LRSP	OUT+5, OUT+6, OUT+8, OUT+10, WRT+2, END+1!
LRSP0	OUT+8*, END+1!
LRSPN	OUT+5, OUT+11, OUT+13*, WRT+2, END+1!
LRUNIT	OUT+5, OUT+8, WRT+2, END+1!
U	2+11, 2+16, 1+2, 1+6, 1+13, OUT+3, OUT+8, OUT+11, OUT+12
Y	1+6, SEL+6, SEL+11, SEL+12, END+1!
Y(0	1+6

Customize PDF page

Package: Lab Service

Routine: LRLNCX

Information

Source Information

Call Graph

Call Graph Total: 1

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Line Occurrences
@(	EN+5
ASK	2+1, 1+7
END	EN+3, 2+1, 1+7, 1+14
MSG	EN+2
OUT	2+16, 1+13
WRT	OUT+5, OUT+14