Routine: LRLNCV

Package

Total

Call Graph

^DIC ^DIE ^DIR

EN^LRDIQ $$LNC^LRVER1

$$CJ^XLFSTR

Package	Total	Caller Graph
Lab Service	1	LR LOINC VALIDATE

Package

Total

Caller Graph

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"NAME OF NLT CODE: ",$P(^LAM(LRNLT,0),U) Line Location: START+4
Function Call: WRITE	Prompt: !,"NLT CODE: ",$P(^LAM(LRNLT,0),U,2) Line Location: START+5
Function Call: WRITE	Prompt: !,"DEFAULT LOINC CODE: ",$S(LRDEF:LRDEF_" "_$P(^LAB(95.3,LRDEF,80),U),1:"NONE") Line Location: START+7
Function Call: WRITE	Prompt: !! Line Location: ASKSPEC+1
Function Call: WRITE	Prompt: !!,"TEST NOT MAPPED",!! Line Location: LOINC+3
Function Call: WRITE	Prompt: !!,"LOINC Code: ",LRLOINC,!,$G(^LAB(95.3,+LRLOINC,80)),! Line Location: LOINC+7
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("LOINC code was located @ NLT CODE: "_LRDAN,IOM) Line Location: LOINC+8
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR($P(LRMSGM,"-",2,99),IOM) Line Location: LOINC+9
Function Call: WRITE	Prompt: !! Line Location: TEST+0
Function Call: WRITE	Prompt: !! Line Location: TEST+15
Function Call: WRITE	Prompt: ?5,"IEN: [",DA,"] ",$P(^LAB(60,LRIEN,0),U) Line Location: TEST+15
Function Call: WRITE	Prompt: ?5,"IEN: [",DA,"] ",$P(^LAB(60,LRIEN,0),U) Line Location: TEST+15
Function Call: WRITE	Prompt: ! Line Location: TEST+16
Routine Call	DIE Line Location: TEST+12
Routine Call	DIC Line Location: SUFFIX+1
Routine Call	DIR Line Location: LOOK61+4 TEST+4

FileNo	Call Tags
^LAB(60 - [#60]	Classic Fileman Calls
^LRO(68.2 - [#68.2]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^LAB(60 - [#60]	TEST+8, TEST+14, TEST+15, TEST+17
^LAB(95.3 - [#95.3]	START+7, LOINC+2, LOINC+7
^LAM - [#64]	START+4, START+5, START+6, LOINC+6
^LAM("C"	LOINC+4
^LRO(68.2 - [#68.2]	SUFFIX+3

Name	Field # of Occurrence
DA	LOOK61!, EXIT!, TEST+11!*, TEST+15
DD	EXIT+1!
DIC	SUFFIX+1!, EXIT!, TEST+15
DIC("A"	LOOK61+3, SUFFIX+1
DIC("S"	SUFFIX+1*
DIC(0	SUFFIX+1*
DIE	EXIT!, TEST+11!*, TEST+15
DINUM	EXIT!
DIR	LOOK61!, EXIT!, TEST+1!, TEST+4!
DIR("?"	TEST+3*
DIR("A"	LOOK61+2, TEST+2
DIR("S"	LOOK61+1*
DIR(0	LOOK61+1, TEST+2
DIRUT	EXIT!, TEST+5!
DLAYGO	EXIT+1!
DO	EXIT+1!
DR	EXIT!, TEST+11!, TEST+15
DTOUT	LOOK61+5, EXIT!, TEST+13
DUOUT	LOOK61+5, EXIT!, TEST+13
IOM	LOINC+8, LOINC+9, TEST+9, TEST+10
>> LRCDEF	SUFFIX+3*, LOINC+1
>> LRDA	LOINC+4*, LOINC+6
>> LRDAN	LOINC+5, LOINC+6, LOINC+8
LRDEF	START+6*, START+7, EXIT+1!
LREND	START+1, START+2, SUFFIX+1, SUFFIX+2, EXIT!, TEST+5*
LRIEN	EXIT!, TEST+6*, TEST+8, TEST+11, TEST+14, TEST+15, TEST+17
LRLOINC	LOINC+1, LOINC+2, LOINC+3, LOINC+7, EXIT!
LRMSG	LOINC*, EXIT!
>> LRMSGM	LOINC+4, LOINC+9
LRNLT	START+4, START+5, START+6, EXIT!, TEST+17*, TEST+18
>> LRNLTN	START+5*, LOINC+1
LRSPEC	LOOK61+6*, LOINC+1, EXIT!
LRSPECN	EXIT!
LRSUF	EXIT!
LRTEST	EXIT!, TEST+6*, TEST+9
S	EXIT!, TEST+15*
U	START+4, START+5, START+7, SUFFIX+3, LOINC+2, LOINC+6, TEST+6, TEST+8, TEST+14, TEST+15 , TEST+17
X	EXIT+1!
Y	LOOK61+5, LOOK61+6, SUFFIX+1, SUFFIX+3, EXIT!, TEST+5, TEST+6

Information

Name	Comments	DBIA/ICR reference
LOINC
SUFFIX	;Set LRCDEF Value
ASKSPEC	; Ask Specimen- Lookup in Specimen multiple in Lab Test file #60
LOOK61
START	;entry point from option LR LOINC VALIDATE
EXIT
TEST