Routine: LRLNCLK

Information

LRLNCLK ;DALOI/RSH/FHS - LOOK UP LOINC CODE AND DISPLAY;31 -AUG-2001

Source file <LRLNCLK.m>

Package	Total	Call Graph
VA Fileman	1	^DIR

Package	Total	Caller Graph
Lab Service	1	LR LOINC PRINT LOINC CODE

Name	Comments	DBIA/ICR reference
EXIT
START	;
ENTERLNC	;Enter LOINC code for lookup
SP
DISPL	;Show LOINC entry selected in file 95.3

Name	Field # of Occurrence
^DIR	ENTERLNC+5

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: ENTERLNC+1
Function Call: WRITE	Prompt: @IOF Line Location: DISPL+7
Function Call: WRITE	Prompt: !,"LOINC CODE: ",LRCODE_"-"_LRLNC0(15)," ",LRLNCNAM Line Location: DISPL+8
Function Call: WRITE	Prompt: !,"SYSTEM: ",$P($G(^LAB(64.061,+LRLNC0(8),0)),U),?40,"CLASS: ",$P($G(^LAB(64.061,+LRLNC0(11),0)),U) Line Location: DISPL+9
Routine Call	DIR Line Location: ENTERLNC+5

Name	Line Occurrences (* Changed, ! Killed)
^LAB(64.061 - [#64.061]	DISPL+9, DISPL+11, DISPL+12, DISPL+13, DISPL+15
^LAB(64.2 - [#64.2]	DISPL+14
^LAB(95.3 - [#95.3]	DISPL+4, DISPL+6
^LAB(95.31 - [#95.31]	DISPL+10

Name	Field # of Occurrence
DA	DISPL+3*, DISPL+4, DISPL+6, EXIT!
DIR	ENTERLNC+1!, ENTERLNC+5!, EXIT!
DIR("?"	ENTERLNC+2, ENTERLNC+3, ENTERLNC+4*
DIR("A"	ENTERLNC+1*
DIR(0	ENTERLNC+1*
DIRUT	EXIT!
DTOUT	ENTERLNC+6!, EXIT!
DUOUT	ENTERLNC+6!
>> I	DISPL+5*
IOF	DISPL+7
LRCODE	ENTERLNC+7*, DISPL+3, DISPL+8, EXIT!
LREND	START+2, ENTERLNC+1, ENTERLNC+6, EXIT!
LRLNC0	DISPL+4*, DISPL+5, EXIT!
LRLNC0(	DISPL+5*
LRLNC0(10	DISPL+14
LRLNC0(11	DISPL+9
LRLNC0(14	DISPL+15
LRLNC0(15	DISPL+8
LRLNC0(2	DISPL+10
LRLNC0(6	DISPL+11
LRLNC0(7	DISPL+12
LRLNC0(8	DISPL+9
LRLNC0(9	DISPL+13
LRLNCNAM	DISPL+6*, DISPL+8, EXIT!
U	DISPL+5, DISPL+6, DISPL+9, DISPL+10, DISPL+11, DISPL+12, DISPL+13, DISPL+14, DISPL+15
X	EXIT!
Y	ENTERLNC+6, ENTERLNC+7, EXIT!