Routine: LRLNCMD

Information

LRLNCMD ;DALOI/CA/FHS-MAP LAB TESTS TO DEFAULT LOINC CODES ; 13-Aug-2013 09:15 ; MKK

Source Information

Source file <LRLNCMD.m>

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
VA Fileman	4	(,FIND)^DIC ^DIE EN^DIQ ^DIR
Lab Service	2	TEST^LRLNC0 (DISPL,ENTERLNC)^LRLNCC

Caller Graph

Caller Graph Total: 3

Package	Total	Caller Graph
Lab Service	3	LR LOINC MAP DEFAULT LR LOINC UNMAP/DELETE DEFAULT LRLNC0

Entry Points

Name	Comments	DBIA/ICR reference
MAP	;DIE call to add DEFAULT LOINC CODE
CODE	;ask which code to map
LOINC	;Lookup possible LOINC matches in LAB LOINC file #95.3
DEFAULT	;ENTRY POINT FROM LRLNC0
SHOWPRE	;DISPLAY LOINC CODE ALREADY MAPPED TO NLT
LR64	;
CHECK	;Check to see if already mapped to a LOINC code
MAP2	;HERE SHOW WHAT WAS MAPPED
START	;entry point from option LR LOINC MAPPING
EXIT
TEST
LINK	;Link the code with file 64
CORRECT
DELETE	;DELETE/UNMAP DEFAULT LOINC CODE

Name	Field # of Occurrence
^DIC	LR64+4
FIND^DIC	LOINC+1
^DIE	CHECK+7, MAP+7
EN^DIQ	MAP2+8
^DIR	DEFAULT+5, CORRECT+4, CODE+7, CODE+14, SHOWPRE+8
TEST^LRLNC0	TEST
DISPL^LRLNCC	CODE+17
ENTERLNC^LRLNCC	DEFAULT+8, DEFAULT+16, CORRECT+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: DEFAULT+1
Function Call: WRITE	Prompt: !! Line Location: CORRECT+0
Function Call: WRITE	Prompt: ! Line Location: CODE+4
Function Call: WRITE	Prompt: !! Line Location: CODE+11
Function Call: WRITE	Prompt: !! Line Location: LR64+2
Function Call: WRITE	Prompt: !,"Another user is editing this record!!" Line Location: MAP+5
Function Call: WRITE	Prompt: !! Line Location: MAP2+2
Function Call: WRITE	Prompt: !,"NLT: ",$P($G(^LAM(LRNLT,0)),U) Line Location: MAP2+3
Function Call: WRITE	Prompt: !,"WKLD CODE: ",$P($G(^LAM(LRNLT,0)),U,2) Line Location: MAP2+4
Function Call: WRITE	Prompt: !!,"This test is already mapped to:" Line Location: SHOWPRE+2
Function Call: WRITE	Prompt: !,"Default LOINC code: ",LROLDCD_"-"_$P(^LAB(95.3,+$G(LROLDCD),0),U,15)," ",$G(^LAB(95.3,LROLDCD,80)) Line Location: SHOWPRE+3
Function Call: WRITE	Prompt: !! Line Location: SHOWPRE+4
Routine Call	DIE Line Location: CHECK+7 MAP+7
Routine Call	DIC Line Location: LOINC+1
Routine Call	DIC Line Location: LR64+4
Routine Call	DIR Line Location: DEFAULT+5 CORRECT+4 CODE+7 CODE+14 SHOWPRE+8

FileNo	Call Tags
^LAM - [#64]	Classic Fileman Calls
^LAB(95.3 - [#95.3]	FIND^DIC

Name	Line Occurrences (* Changed, ! Killed)
^LAB(60 - [#60]	MAP+1, MAP+2
^LAB(95.3 - [#95.3]	MAP+3, MAP+4, SHOWPRE+3
^LAM - [#64]	EXIT, LINK+1, CHECK+1, MAP+5, MAP+8, MAP2+1, MAP2+3, MAP2+4, SHOWPRE+1

Label References

Name	Line Occurrences
CHECK	CORRECT+15, DELETE+3
EXIT	START+3, DEFAULT+7, DEFAULT+10, DEFAULT+13, DEFAULT+15, DEFAULT+18, CORRECT+6, CORRECT+9, CORRECT+11, CORRECT+14 , CORRECT+17, CORRECT+20, DELETE+2, DELETE+5
LINK	CORRECT+12
LOINC	DEFAULT+11, CORRECT+8
MAP	CORRECT+18
SHOWPRE	CHECK+2
START	START+4, DEFAULT+7, DEFAULT+10, DEFAULT+13, DEFAULT+15, DEFAULT+18, CORRECT+6, CORRECT+9, CORRECT+11, CORRECT+14 , CORRECT+17, CORRECT+21
TEST	START+2, DELETE+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	EXIT+1!, LR64+1!, CHECK+5, CHECK+8!, MAP+6, MAP2+6*
DD	EXIT+2!
DIC	EXIT+1!, LR64+1!, LR64+3, MAP2+5!, MAP2+6
DIC(0	LR64+3*
DIE	EXIT+1!, CHECK+6, CHECK+8!, MAP+6
DINUM	EXIT+1!
DIR	DEFAULT+5!, CORRECT+4!, EXIT+1!, CODE+14!, SHOWPRE+8!
DIR("?"	DEFAULT+3, CORRECT+3, SHOWPRE+6, SHOWPRE+7
DIR("A"	DEFAULT+2, CORRECT+1, CODE+13, SHOWPRE+5
DIR("B"	DEFAULT+4, CORRECT+2, SHOWPRE+5*
DIR(0	DEFAULT+2, CORRECT+1, CODE+7, CODE+12, SHOWPRE+5*
DIRUT	DEFAULT+6, DEFAULT+7, CORRECT+5, CORRECT+6, EXIT+1!, CODE+8, CODE+10!, CODE+15, CHECK+3
DLAYGO	EXIT+2!
DO	EXIT+2!
DR	EXIT+1!, CHECK+6, MAP+6, MAP2+5!
DTOUT	EXIT+1!, LR64+5!
DUOUT	CODE+8, CODE+10!, LR64+5!
I	EXIT+1!, CODE+4, CODE+5, CODE+6, CODE+9, CODE+12
IOST	CODE+6
LRCODE	DEFAULT+11, CORRECT+19!, EXIT+1!, CODE+16*, MAP+3, MAP+4, MAP+6
LRDATA	EXIT+1!, MAP+1, MAP+2, MAP+6
LRDEL	SHOWPRE+5, SHOWPRE+6, SHOWPRE+7, DELETE+1*, DELETE+4!
>> LRDFONLY	START+1, MAP+1, MAP+6
LRELEC	EXIT+1!
LREND	START+2, START+3, DEFAULT+9!, DEFAULT+10, DEFAULT+12!, DEFAULT+14!, DEFAULT+15, DEFAULT+17!, DEFAULT+18, CORRECT+5! , CORRECT+6, CORRECT+10!, CORRECT+11, CORRECT+13!, CORRECT+14, CORRECT+16!, CORRECT+17, EXIT+1!, CODE+5, CODE+6 , CODE+8, CODE+12, CODE+14!, CODE+15, LR64+5, CHECK+3, DELETE+1, DELETE+2
LRIEN	EXIT+1!, MAP+1, MAP+2, MAP+6
LRLNC	EXIT+1!
LRLNC0	EXIT+1!
>> LRLNC1	DEFAULT+6, DEFAULT+9, DEFAULT+12, DEFAULT+14, DEFAULT+17, CORRECT+5, CORRECT+10, CORRECT+13, CORRECT+16, CORRECT+19
LRLNCNAM	EXIT+2!
LRLOINC	EXIT+1!
LRLOINC("DILIST"	CODE+1, CODE+5, CODE+9, CODE+12, CODE+16
LRNLT	START+4, EXIT, EXIT+1!, LINK+1, LR64+3, LR64+6, CHECK+1, CHECK+5, MAP+5, MAP+6 , MAP+8, MAP2+1, MAP2+3, MAP2+4, MAP2+6, SHOWPRE+1
LRNO	DEFAULT+12, DEFAULT+13, DEFAULT+16, CORRECT+7, CORRECT+8, CORRECT+9, EXIT+2!, CODE+3*
LRNUM	EXIT+2!
LROLDCD	EXIT+2!, SHOWPRE+1*, SHOWPRE+3
LRSPEC	EXIT+1!
LRSPECL	EXIT+1!
LRSPECN	EXIT+1!
LRTEST	EXIT+1!, LOINC+1
LRTIME	EXIT+1!, MAP+3*, MAP+6
LRUNITS	EXIT+1!, MAP+4*, MAP+6
S	EXIT+1!, MAP2+7*
U	CODE+12, LINK+1, CHECK+1, MAP+1, MAP+2, MAP+3, MAP+4, MAP2+3, MAP2+4, SHOWPRE+1 , SHOWPRE+3
X	EXIT+2!, LR64+3*
Y	DEFAULT+8, CORRECT+7, CORRECT+8, EXIT+1!, CODE+16, LR64+5, LR64+6, CHECK+3

Customize PDF page

Package: Lab Service

Routine: LRLNCMD

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: