Routine: LRLNCX

Information

LRLNCX ;DALOI/FS- ROUTINE TO EXTRACT VISTA TEST NAMES FOR LOINC MAPPING;1-FEB-2001

Call Graph

Call Graph Total: 1

Package	Total	Call Graph
VA FileMan	1	^DIR

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

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

Entry Points

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

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_"-"_LRSP_LRFS_$TR(LR60N,"*?"," ")_" "_LRSPN_LRFS_LRUNIT,1,80) Line Location: WRT+1
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: !!,"Only 'CH' subscripted test having a dataname and having a type" Line Location: MSG+7
Function Call: WRITE	Prompt: !,"of 'BOTH', 'INPUT' or 'OUTPUT' will be extracted." Line Location: MSG+8
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

Global Variables Directly Accessed

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

Label References

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

Naked Globals

Name	Field # of Occurrence
^(	OUT+5
^(0	2+6

Local Variables

Legend:

>>	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
IOF	MSG+1
LR60	EN+4, 2+3, 2+4, 2+5, 2+6, 1+11, 1+12, 1+13, OUT+2, OUT+3 , OUT+4, WRT+1, END+1!
LR60N	EN+4, 2+2, 2+3, 2+4, 2+5, 1+13*, WRT+1, END+1!
LR61	OUT+5*, OUT+6, END+1!
LR64061	OUT+6*, OUT+7, END+1!
LR64N	OUT+7!*, OUT+8, 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+1, END+1!
LRLSPN	OUT+6*, OUT+8, 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+4*, OUT+5, WRT+1, END+1!
LRSP0	OUT+5*, END+1!
LRSPN	OUT+6, OUT+8, WRT+1, END+1!
LRUNIT	OUT+5*, WRT+1, END+1!
U	2+6, 1+2, 1+6, 1+13, OUT+3, OUT+5, OUT+6, OUT+7
Y	1+6, SEL+6, SEL+11, SEL+12, END+1!
Y(0	1+6

Customize PDF page

Package: Lab Service