Routine: LRLNC0

Package	Total	Call Graph
VA Fileman	5	(,FIND)^DIC FILE^DICN (,FILE,UPDATE)^DIE ($$GET1,EN,GETS)^DIQ ^DIR
Lab Service	2	(CODE,ENTERLNC)^LRLNCC DEFAULT^LRLNCMD

Package	Total	Caller Graph
Lab Service	3	LR LOINC MAP LR LOINC MAP ANTIMICROBIAL LRLNCMD

Entry Points

Name	Comments	DBIA/ICR reference
CODE	;ask which code to map
KILL1
CHKSPEC	;Check that specimen of LOINC code same as specimen of test
DEFAULT	;
OVER	;Check to see if linked to file 64.061. If not, then let enter link.
LR64	;
LINK	;Link the code with file 64
DIS64
INDEX60	;Stores LOINC code in Laboratory Test file (#60) so know what tests are mapped.
CORRECT
ASKSPEC
6206	;LOINC mapping ANTIMICROBIAL [^LAB(62.060)]
CHECK	;Check to see if already mapped to a LOINC code
LOINC	;Lookup possible LOINC matches in LAB LOINC file #95.3
SHOWPRE	;DISPLAY LOINC CODE ALREADY MAPPED TO NLT
START	;entry point from option LR LOINC MAPPING
EXITMI	;Clean up 6206 variables.
NEXTSP
MAP	;DIE call to add data name,time aspect,units, LOINC code, and lab test fields
EXIT
TEST
SPEC	; Ask Specimen- Lookup in Specimen multiple in Lab Test file #60
LOOK61

External References

Name	Field # of Occurrence
^DIC	LOOK61+5, LR64+4
FIND^DIC	LOINC+1
FILE^DICN	LOOK61+22, MAP+8, MAP+16
^DIE	DEFAULT+18, DIS64+12, LOOK61+28, OVER+7, MAP+20, 6206+17
FILE^DIE	INDEX60+11
UPDATE^DIE	INDEX60+7
$$GET1^DIQ	6206+22
EN^DIQ	DIS64+17, MAP+31
GETS^DIQ	DIS64+4, DIS64+5
^DIR	DEFAULT+9, ASKSPEC+6, CORRECT+4, TEST+4, LOOK61+17, SHOWPRE+8, CHKSPEC+8, 6206+6
CODE^LRLNCC	CODE+1
ENTERLNC^LRLNCC	ASKSPEC+8, ASKSPEC+13, CORRECT+6
DEFAULT^LRLNCMD	DEFAULT+14

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?5,"Locked by another user",! Line Location: DEFAULT+4
Function Call: WRITE	Prompt: ! Line Location: DEFAULT+5
Function Call: WRITE	Prompt: !!?5,"Deleting LOINC Default Code",! Line Location: DEFAULT+16
Function Call: WRITE	Prompt: !! Line Location: ASKSPEC+2
Function Call: WRITE	Prompt: !! Line Location: CORRECT+0
Function Call: WRITE	Prompt: @IOF Line Location: TEST+0
Function Call: WRITE	Prompt: !?4,"Another user is editing this entry",! Line Location: TEST+7
Function Call: WRITE	Prompt: !,!?5,$G(LRANS(64,LRNLT_",",.01,"E"))_" "_$G(LRANS(64,LRNLT_",",1,"E")) Line Location: DIS64+6
Function Call: WRITE	Prompt: !?4,"Default LOINC Already Mapped to:" Line Location: DIS64+7
Function Call: WRITE	Prompt: !,$G(LRANS(95.3,LRLNC_",",.01,"E"))_" "_$G(LRANS(95.3,LRLNC_",",80,"E")) Line Location: DIS64+8
Function Call: WRITE	Prompt: !! Line Location: DIS64+17
Function Call: WRITE	Prompt: ?5,"IEN: [",DA,"] ",$P(^LAB(60,LRIEN,0),U) Line Location: DIS64+17
Function Call: WRITE	Prompt: ! Line Location: DIS64+18
Function Call: WRITE	Prompt: !! Line Location: SPEC+1
Function Call: WRITE	Prompt: !," Are you sure you want to add this specimen" Line Location: LOOK61+16
Function Call: WRITE	Prompt: !! Line Location: LR64+2
Function Call: WRITE	Prompt: !,"Another user is editing this record" Line Location: MAP+1
Function Call: WRITE	Prompt: @IOF Line Location: MAP+23
Function Call: WRITE	Prompt: !! Line Location: MAP+24
Function Call: WRITE	Prompt: !,"NLT: ",$P($G(^LAM(LRNLT,0)),U) Line Location: MAP+25
Function Call: WRITE	Prompt: !,"WKLD CODE: ",$P($G(^LAM(LRNLT,0)),U,2) Line Location: MAP+26
Function Call: WRITE	Prompt: !,"SPECIMEN: ",$P($G(^LAB(61,LRSPEC,0)),U) Line Location: MAP+27
Function Call: WRITE	Prompt: !!,"This test and specimen is already mapped to:" Line Location: SHOWPRE+2
Function Call: WRITE	Prompt: !,"LOINC code: ",LRLNC," ",$G(^LAB(95.3,+LRLNC,80)) Line Location: SHOWPRE+3
Function Call: WRITE	Prompt: ! Line Location: SHOWPRE+4
Function Call: WRITE	Prompt: !!,"The LOINC code that you have selected does not have the" Line Location: CHKSPEC+3
Function Call: WRITE	Prompt: !,"same specimen that you chose to map." Line Location: CHKSPEC+4
Function Call: WRITE	Prompt: !! Line Location: 6206+1
Function Call: WRITE	Prompt: !?4,"Being edited by another user" Line Location: 6206+9
Function Call: WRITE	Prompt: ! Line Location: 6206+23
Routine Call	DIE Line Location: INDEX60+7
Routine Call	DIE Line Location: DEFAULT+18 DIS64+12 LOOK61+28 OVER+7 MAP+20 6206+17
Routine Call	DIR Line Location: DEFAULT+9 ASKSPEC+6 CORRECT+4 TEST+4 LOOK61+17 SHOWPRE+8 CHKSPEC+8 6206+6
Routine Call	DIC Line Location: LOOK61+5 LR64+4
Routine Call	DIE Line Location: INDEX60+11
Routine Call	DIC Line Location: LOINC+1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^LAB(60 - [#60]	Classic Fileman Calls
^LAB(61 - [#61]	Classic Fileman Calls
^LAB(62.06 - [#62.06]	Classic Fileman Calls
^LAM - [#64]	Classic Fileman Calls, GET1^DIQ, GETS^DIQ
^LAB(95.3 - [#95.3]	FIND^DIC, GETS^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(60	LOOK61+13
^DD(64	MAP+3
^DD(64.01	MAP+10
^LAB(60 - [#60]	DEFAULT+21, TEST+7, TEST+9, DIS64+9, DIS64+13, DIS64+15, DIS64+17, DIS64+19, LOOK61+11, LOOK61+12 , LOOK61+14, LINK+1, LINK+2, INDEX60+1, INDEX60+3
^LAB(61 - [#61]	OVER+1, OVER+4, OVER+9, MAP+27
^LAB(62.06 - [#62.06]	6206+9, 6206+11, 6206+18, 6206+19, 6206+21
^LAB(64.061 - [#64.061]	OVER+11
^LAB(95.3 - [#95.3]	LINK+3, LINK+4, SHOWPRE+3
^LAM - [#64]	DEFAULT+2, DEFAULT+4, DEFAULT+10, DEFAULT+15, DEFAULT+19, KILL1, EXIT, DIS64+3, LINK+5, CHECK+1 , MAP+1, MAP+2, MAP+4, MAP+9, MAP+13, MAP+21, MAP+25, MAP+26, SHOWPRE+1

Label References

Name	Line Occurrences
6206	6206+9, 6206+19, 6206+24
ASKSPEC	NEXTSP+1
CHECK	CORRECT+17
CHKSPEC	CORRECT+10
DEFAULT	6206+23
DIS64	6206+14
EXIT	START+2, DEFAULT+13, ASKSPEC+1, ASKSPEC+7, ASKSPEC+9, ASKSPEC+11, ASKSPEC+12, ASKSPEC+14, CORRECT+5, CORRECT+8 , CORRECT+9, CORRECT+11, CORRECT+13, CORRECT+16, CORRECT+19, LR64+5, LR64+6, CHECK+1
EXITMI	6206+2, 6206+7
KILL1	NEXTSP
LINK	CORRECT+14
LOINC	ASKSPEC+10, CORRECT+7
LOOK61	LOOK61+14, OVER+4
MAP	CORRECT+20
NEXTSP	CORRECT+12, CORRECT+15, CORRECT+18
OVER	LOOK61+11
SHOWPRE	CHECK+1
SPEC	ASKSPEC, OVER+10
START	START+3, DEFAULT+13, ASKSPEC+1, ASKSPEC+7, ASKSPEC+9, ASKSPEC+11, ASKSPEC+12, ASKSPEC+14, CORRECT+5, CORRECT+8 , CORRECT+9, CORRECT+11, CORRECT+13, CORRECT+16, CORRECT+19
TEST	START+1, DIS64+20

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ANS	EXITMI+1!
D0	KILL1+2!
DA	DEFAULT+17~, DEFAULT+18, KILL1+1!, EXIT+1!, DIS64+12!, DIS64+16~, DIS64+17, LOOK61!, LOOK61+7!, LOOK61+10! , LOOK61+26, LOOK61+29!, OVER+6!, LR64+1!, MAP+6, MAP+17, 6206+16~, 6206+17, EXITMI+1!
DA(1	LOOK61+19, LOOK61+20, MAP+6, MAP+7, MAP+11*, MAP+12
DA(2	MAP+11*, MAP+12
DD	KILL1+2!, EXIT+3!, LOOK61+18!, MAP+5!, MAP+14!
DIC	KILL1+1!, EXIT+1!, DIS64+16~, DIS64+17, LOOK61!, LOOK61+3, LOOK61+7!, LOOK61+10!, LOOK61+20, LOOK61+25! , LR64+1!, LR64+3, MAP+7, MAP+12, MAP+18!, MAP+28!, MAP+29, 6206+17, EXITMI+1!
DIC("A"	LOOK61+4*
DIC("P"	LOOK61+13, MAP+3, MAP+10*
DIC(0	LOOK61+3, LOOK61+21, LR64+3, MAP+7, MAP+15*
DIE	DEFAULT+17~, DEFAULT+18, KILL1+1!, EXIT+1!, DIS64+12!, LOOK61+10!, LOOK61+25, LOOK61+29!, OVER+6!, MAP+18!* , MAP+29, 6206+16~, 6206+17*, EXITMI+1!
DINUM	KILL1+1!, EXIT+1!, LOOK61+19, MAP+7, MAP+11*
DIR	DEFAULT+6!, DEFAULT+9!, ASKSPEC+6!, CORRECT+4!, KILL1+1!, EXIT+1!, TEST+1!, TEST+4!, LOOK61+15~, SHOWPRE+5! , SHOWPRE+8!, CHKSPEC+8!, 6206+6!, EXITMI+1!
DIR("?"	DEFAULT+8, ASKSPEC+4, CORRECT+3, TEST+3, SHOWPRE+7, CHKSPEC+6, 6206+5*
DIR("A"	DEFAULT+7, ASKSPEC+3, CORRECT+1, TEST+2, SHOWPRE+6, CHKSPEC+5, 6206+4*
DIR("B"	DEFAULT+6, ASKSPEC+5, CORRECT+2, SHOWPRE+5, CHKSPEC+7*
DIR(0	DEFAULT+7, ASKSPEC+3, CORRECT+1, TEST+2, LOOK61+17, SHOWPRE+6, CHKSPEC+5, 6206+4
DIRUT	DEFAULT+11, DEFAULT+12, DEFAULT+13, ASKSPEC+7, CORRECT+5, KILL1+1!, EXIT+1!, TEST+5!, OVER+8, CHECK+1 , CHKSPEC+9, 6206+7!, EXITMI+1!
DLAYGO	KILL1+2!, EXIT+3!, LOOK61+21, MAP+7, MAP+15*
DO	EXIT+3!, LOOK61+18!, MAP+5!, MAP+14!
DR	DEFAULT+17~, DEFAULT+18, KILL1+1!, EXIT+1!, DIS64+12!, DIS64+16~, DIS64+17, LOOK61+10!, LOOK61+27, LOOK61+29! , OVER+6!, MAP+18!, MAP+19, MAP+28!, 6206+16~, 6206+17*, EXITMI+1!
DTOUT	KILL1+1!, EXIT+1!, LOOK61+6, LOOK61+7!, LR64+6!, 6206+19, EXITMI+1!
DUOUT	LOOK61+6, LOOK61+7!, LR64+6!, 6206+19, EXITMI+1!
ERR	EXITMI+1!
I	KILL1+1!, EXIT+1!
IOF	TEST, MAP+23
LR64DIS	DIS64, 6206+13~, 6206+14*
LRANS	DIS64+2~, LOOK61+1~, LOOK61+22*, LOOK61+24, EXITMI+1!
LRANS(	DIS64+8
LRANS(64	DIS64+6
LRCODE	ASKSPEC+10, KILL1+1!, EXIT+1!, LINK+3, LINK+4, MAP+19, INDEX60+10
LRDA	INDEX60+2~, INDEX60+4!
LRDA(1	INDEX60+6*
LRDATA	EXIT+1!, LINK+1, LINK+2, MAP+19, 6206+20*, EXITMI+1!
LRDEF	EXIT+3!, EXITMI+1!
LRDEL	TEST+2, TEST+3, TEST+5!, DIS64+14!, 6206+3*, EXITMI+2!
LRDFONLY	DEFAULT+12, DEFAULT+13, DEFAULT+20, 6206+3*, EXITMI+1!, EXITMI+2!
LRELEC	KILL1+1!, EXIT+1!, OVER+9*, OVER+10, OVER+11, CHKSPEC+1, CHKSPEC+2
LREND	START+1, START+2, ASKSPEC+1, ASKSPEC+9, ASKSPEC+12, ASKSPEC+14, CORRECT+5, CORRECT+9, CORRECT+13, CORRECT+16 , CORRECT+19, EXIT+1!, TEST+5, DIS64+14, LOOK61+7, LOOK61+8, LR64+5, LR64+6, CHECK+1, CHKSPEC+9
LRERR	INDEX60+2~, INDEX60+8
LRFDA	INDEX60+2~, INDEX60+4!, INDEX60+9!
LRFDA(1	INDEX60+5*
LRFDA(2	INDEX60+10*
LRIEN	DEFAULT+21, EXIT+1!, TEST+6, TEST+7, TEST+9, DIS64+9, DIS64+12, DIS64+13, DIS64+15, DIS64+17 , DIS64+19, LOOK61+2, LOOK61+11, LOOK61+12, LOOK61+14, LOOK61+19, LINK+1, LINK+2, MAP+19, INDEX60+1 , INDEX60+3, INDEX60+5, INDEX60+10, 6206+8, 6206+9, 6206+11, 6206+17, 6206+18, 6206+19, 6206+20* , 6206+21, EXITMI+1!
LRLNC	KILL1+1!, EXIT+1!, DIS64+2~, DIS64+3, DIS64+5, DIS64+8, SHOWPRE+1, SHOWPRE+3
LRLNC0	KILL1+1!, EXIT+1!
LRLNC0(8	CHKSPEC+1, CHKSPEC+2
LRLNC1	START+1*, KILL1+2!, EXIT+3!
LRLNCNAM	KILL1+2!, EXIT+3!
LRLOINC	KILL1+1!, EXIT+1!
LRNEXT	CORRECT+12, CORRECT+15, CORRECT+18, KILL1+2!, EXIT+3!, LR64+7, CHECK+2
LRNLT	START+3, DEFAULT+2, DEFAULT+3, DEFAULT+15, DEFAULT+18, KILL1, EXIT, EXIT+1!, TEST+1!, TEST+9* , DIS64+1, DIS64+3, DIS64+4, DIS64+6, DIS64+14, DIS64+19, DIS64+20, LINK+5, LR64+3, LR64+8 , CHECK+1, MAP+1, MAP+2, MAP+4, MAP+6, MAP+9, MAP+11, MAP+13, MAP+21, MAP+25 , MAP+26, SHOWPRE+1, 6206+11, 6206+12, 6206+21, 6206+22, 6206+23, EXITMI+1!
LRNLTX	DEFAULT+1~, DEFAULT+3, DEFAULT+4, DEFAULT+10, DEFAULT+19, 6206+11, EXITMI+1!
LRNO	ASKSPEC+11, ASKSPEC+13, CORRECT+6, CORRECT+7, CORRECT+8, CORRECT+11, KILL1+2!, EXIT+3!, CHKSPEC+10*
LRNOP	KILL1+2!, EXIT+3!, LOOK61+14, LOOK61+17, OVER+4, OVER+8
LRODLCD	KILL1+2!
LROLDCD	EXIT+3!
LRSPEC	KILL1+1!, EXIT+2!, LOOK61+9*, LOOK61+14, LOOK61+19, OVER+1, OVER+4, OVER+6, OVER+9, CHECK+1 , MAP+4, MAP+6, MAP+7, MAP+9, MAP+11, MAP+13, MAP+27, INDEX60+3, INDEX60+5, INDEX60+6 , INDEX60+10, SHOWPRE+1
LRSPECL	KILL1+1!, EXIT+2!, OVER+11*
LRSPECN	KILL1+1!, EXIT+2!, LOOK61+9*, OVER+2, OVER+5
LRTEST	EXIT+2!, TEST+6, DIS64+10, LOINC+1, 6206+8, 6206+22*, EXITMI+1!
LRTIME	KILL1+1!, EXIT+2!, LINK+3*, CHECK+1, MAP+11, MAP+13, MAP+17, SHOWPRE+1
LRUNITS	EXIT+2!, LINK+4*, MAP+19
LRUNTIS	KILL1+1!
S	KILL1+1!, EXIT+2!, DIS64+17, MAP+30
U	DEFAULT+21, TEST+6, TEST+9, DIS64+3, DIS64+9, DIS64+15, DIS64+17, DIS64+19, LOOK61+11, LOOK61+24 , OVER+1, OVER+4, OVER+9, OVER+11, LINK+1, LINK+2, LINK+3, LINK+4, LINK+5, MAP+25 , MAP+26, MAP+27, INDEX60+1, SHOWPRE+1, 6206+8, 6206+11, 6206+21
X	DEFAULT+17~, KILL1+2!, EXIT+3!, DIS64+14, LOOK61+19, LR64+3, MAP+7, MAP+11, EXITMI+2!
Y	DEFAULT+14, ASKSPEC+8, CORRECT+6, CORRECT+7, KILL1+1!, EXIT+2!, TEST+5, TEST+6, DIS64+14, LOOK61+6 , LOOK61+9, LOOK61+17, LOOK61+22, LOOK61+26, LR64+5, LR64+7, LR64+8, CHECK+2, CHKSPEC+10, 6206+7 , 6206+8, EXITMI+2!
Y(0	LOOK61+9, 6206+8

Customize PDF page

Package: Lab Service

Routine: LRLNC0

Information

Source Information

Call Graph

Call Graph Total: 7

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: