Routine: LRLNC1

Package

Total

Call Graph

^DIC ^DIR

$$CJ^XLFSTR

DISPL^LRLNCC

Package	Total	Caller Graph
Lab Service	1	LR LOINC LOOKUP

Package

Total

Caller Graph

Name	Comments	DBIA/ICR reference
DISPL	;Show LOINC entry selected in file 95.3
START	;entry point from option LR LOINC LOOKUP
ENT
TEST
EXIT
SPEC	; Ask Specimen- Lookup in Specimen multiple in Lab Test file #60

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: LRLNC1+6
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR(" Your initial lookup entry is ",IOM) Line Location: ENT+6
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR(LRTEST_".."_$G(LRSPECL),IOM) Line Location: ENT+7
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("e.g. TEST NAME..SPECIMEN",IOM),! Line Location: ENT+8
Function Call: WRITE	Prompt: !!,"NO MATCHES FOUND" Line Location: ENT+11
Function Call: WRITE	Prompt: !! Line Location: TEST+0
Routine Call	DIC Line Location: ENT+9 SPEC+7
Routine Call	DIR Line Location: TEST+3

FileNo	Call Tags
^LAB(95.3 - [#95.3]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DD(60.01	SPEC+6
^LAB(60 - [#60]	ENT+1
^LAB(61 - [#61]	SPEC+11, SPEC+13
^LAB(64.061 - [#64.061]	SPEC+15

Name	Field # of Occurrence
DA	EXIT!, SPEC+1!, SPEC+8!
DA(1	SPEC+2*
DIC	START+5!, ENT, EXIT!, SPEC+1!, SPEC+3, SPEC+8!
DIC("A"	ENT+5, SPEC+5
DIC("B"	ENT+2, ENT+4
DIC("P"	SPEC+6*
DIC(0	ENT, SPEC+4
DIE	EXIT!, SPEC+1!
DINUM	EXIT!
DIR	EXIT!, TEST!, TEST+3!
DIR("?"	TEST+2*
DIR("A"	TEST+1*
DIR(0	TEST+1*
DIRUT	ENT+10, EXIT!, TEST!, TEST+4!, SPEC+8!
DR	EXIT!, SPEC+1!
DTOUT	EXIT!
I	EXIT!
IOF	LRLNC1+6
IOM	ENT+6, ENT+7, ENT+8
LRCODE	ENT+12*, EXIT!
LRDATA	EXIT!
LRELEC	EXIT!, SPEC+13*, SPEC+14, SPEC+15
LREND	START+2, START+4, EXIT!, TEST+4, SPEC+8
LRIEN	ENT+1, EXIT!, TEST+5*, SPEC+2, SPEC+3
LRLNC	EXIT!
LRLNC0	EXIT!
LRLOINC	LRLNC1+5~, ENT+1*, ENT+2, ENT+3, EXIT!
LRNLT	EXIT!
LRSPEC	ENT+1, EXIT!, SPEC+9*, SPEC+11, SPEC+13
LRSPECL	ENT+4, ENT+7, EXIT!, SPEC+15*
LRSPECN	EXIT!, SPEC+9*, SPEC+12
LRTEST	ENT+4, ENT+7, EXIT!, TEST+5*
LRTIME	EXIT!
LRUNITS	EXIT!
S	EXIT!
U	TEST+5, SPEC+11, SPEC+13, SPEC+15
Y	ENT+11, ENT+12, EXIT!, TEST+4, TEST+5, SPEC+8, SPEC+9
Y(0	SPEC+9

Information