Routine: LRLNCST

Package	Total	Call Graph
Kernel	4	^%ZIS ^%ZISC ^%ZTLOAD $$CJ^XLFSTR
VA Fileman	2	GETS^DIQ ^DIR

Package	Total	Caller Graph
Lab Service	1	LR LOINC STATUS PRINT

Entry Points

Name	Comments	DBIA/ICR reference
LOAD	;
LK64	;Start looking for NLT linked fields.
DEF(LRNLT,FLD)	;Check LOINC default code
EN	;
END	;
HDR	;
MSG(MSG)	;Print
CHK(LRP,FLD)	;Check for valid node
LST	;Print list of deprecated code
LNC(LRNLT,LRFLD)	;Check for LOINC in suffixed NLT codes
RESULT	;Look up result NLT codes
LNK	;Provide list of mapped deprecated LOINC codes
DEVICE	;
PLN	;
SPEC(LRNLT,LRFLD)	;Check specimen time aspect LOINC
DISP	;
ORDER	;Look up NLT order codes

External References

Name	Field # of Occurrence
^%ZIS	DEVICE+2
^%ZISC	END+3
^%ZTLOAD	LOAD+5
GETS^DIQ	LST+6
^DIR	EN+7
$$CJ^XLFSTR	MSG+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$S($G(ZTSK):"Tasked to "_ION_" "_ZTSK,1:"Not Tasked") Line Location: LOAD+6
Function Call: WRITE	Prompt: !,$G(LRANS(95.3,LRLNC_",",.01,"E"))," ",$E($G(LRANS(95.3,LRLNC_",",80,"E")),1,60) Line Location: LST+8
Function Call: WRITE	Prompt: !,"Test Name: ",LR60NM Line Location: DEF+6
Function Call: WRITE	Prompt: !,$S(FLD=1:"RESULT NLT Code LOINC Default ",1:"ORDER NLT Code LOINC Default ") Line Location: DEF+7
Function Call: WRITE	Prompt: !,"NLT Code: ",LRNLTNM Line Location: DEF+8
Function Call: WRITE	Prompt: !,LRDEF_"-"_$P(^LAB(95.3,LRDEF,0),U,15)_" "_$G(^LAB(95.3,LRDEF,80)),! Line Location: DEF+9
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR(MSG,IOM) Line Location: MSG+1
Function Call: WRITE	Prompt: !,"Test Name: ",LR60NM Line Location: DISP+3
Function Call: WRITE	Prompt: !,"NLT Code: ",$P($G(^LAM(LRNLT,0)),U)," ",$P(^(0),U,2) Line Location: DISP+4
Function Call: WRITE	Prompt: !," ("_LRSPEC_") "_LRSPECN Line Location: DISP+5
Function Call: WRITE	Prompt: !,"LOINC Code: ",LRTASPN_" ["_LRLNC_"-"_$P(^LAB(95.3,LRLNC,0),U,15)_"]" Line Location: DISP+6
Function Call: WRITE	Prompt: !,"LOINC Name: ",$G(^LAB(95.3,LRLNC,80)) Line Location: DISP+7
Function Call: WRITE	Prompt: !,LRPLN,! Line Location: PLN+2
Function Call: WRITE	Prompt: ! Line Location: END+1
Function Call: WRITE	Prompt: @IOF,LRHDR," Page: ",LRPG,! Line Location: HDR+2
Routine Call	DIR Line Location: EN+7
Routine Call	%ZIS Line Location: DEVICE+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^LAB(95.3 - [#95.3]	GETS^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LAB(60 - [#60]	LNK+5, LNK+6, LNK+7, LK64+1
^LAB(61 - [#61]	SPEC+2
^LAB(64.061 - [#64.061]	SPEC+4
^LAB(95.3 - [#95.3]	LST+4, DEF+3, DEF+9, SPEC+6, DISP+6, DISP+7
^LAM - [#64]	DEF+1, DEF+2, CHK+1, CHK+6, LNC+3, SPEC+1, SPEC+3, SPEC+5, DISP+4

Label References

Name	Line Occurrences
CHK	RESULT+2, ORDER+2
DEF	ORDER+3, LNC+7
DISP	SPEC+6
END	EN+7, DEVICE+2, DEVICE+3, DEVICE+4, DEVICE+5, LST+10, LNK+10
HDR	LST+3, LST+9, LNK+3, DEF+4, DISP+1, PLN+1
LK64	LNK+9
LNC	RESULT+3
LNK	DEVICE+4
LOAD	DEVICE+3
LST	DEVICE+5
MSG	CHK+5
ORDER	LK64+2
PLN	DEF+5, CHK+2, DISP+2
RESULT	LK64+3
SPEC	LNC+8

Naked Globals

Name	Field # of Occurrence
^(0	DEF+2, CHK+6, DISP+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	EN+1!, DEVICE+1*
%ZIS("A"	DEVICE+1*
%ZIS("B"	DEVICE+1*
DIR	EN+2!, END+5!
DIR("?"	EN+4, EN+5, EN+6*
DIR(0	EN+3*
DIRUT	EN+7, END+4!
ERR	LST+5!, LST+7, END+4!
FLD	DEF~, DEF+7, CHK~, CHK+4
IO	DEVICE+3, LOAD+4
IO(0	DEVICE+3
IOF	END+2, HDR+2
IOM	MSG+1
ION	LOAD+6
IOSL	LST+9, DEF+4, DISP+1, PLN+1
IOST	END+2
LR60NM	LNK+8*, DEF+6, DISP+3, END+5!
LR64	LK64+1*, END+4!
LRANS	EN+2!, EN+8*, DEVICE+4, DEVICE+5, LOAD+2, LST+5!, END+5!
LRANS(	LST+8
LRCC	CHK+6, LNC+2!, LNC+3, LNC+4, LNC+5, END+5!
LRDEF	DEF+1*, DEF+3, DEF+9, END+5!
LRFLD	RESULT+1, RESULT+2, RESULT+3, ORDER+1, ORDER+2, ORDER+3, LNC~, LNC+1*, LNC+7, SPEC~ , END+5!
LRHDR	LST+2, LNK+3, END+5!, HDR+2
LRIEN	LNK+2, LNK+6, LNK+7, LNK+8, LK64+1, CHK+4, END+5!
LRINLT	LNC+7*, LNC+8, END+5!
LRIO	EN+1!
LRLNC	LST+3, LST+4, LST+6, LST+8, SPEC+5*, SPEC+6, DISP+6, DISP+7, END+6!
LRMSG	CHK+4*, CHK+5, END+4!
LRNLT	DEF~, DEF+1, DEF+2, LNC~, LNC+3, SPEC~, SPEC+1, SPEC+3, SPEC+5, DISP+4
LRNLTNM	DEF+2*, DEF+8, END+5!
LRNM	LNK+2, LNK+5, LNK+6, LNK+7, LNK+8, CHK+4, END+4!
LRNODE	CHK+6*, END+4!
LRNOP	RESULT+2, ORDER+2, CHK+1, CHK+5, LNC+2!, LNC+3, LNC+6*
LRNOPE	END+4!
LRONLT	LK64+1*, LK64+2, ORDER+2, ORDER+3, END+5!
LRP	CHK~, CHK+1, CHK+6
LRPG	LST+3, LNK+2, END+5!, HDR+1*, HDR+2
LRPLINE	LNK+2, LNK+8, DEF+5, CHK+2, DISP+2, PLN+3*, END+5!
LRPLN	LNK+4*, PLN+2, END+6!
LRQ	LNC+2!, LNC+5*, END+6!
LRQB	LNC+2!, LNC+4*, LNC+6, END+6!
LRRNLT	LK64+1*, LK64+3, RESULT+2, RESULT+3, END+6!
LRSPEC	SPEC+1*, SPEC+2, SPEC+3, SPEC+5, DISP+5, END+4!
LRSPECN	SPEC+2*, DISP+5, END+6!
LRTASP	SPEC+3*, SPEC+4, SPEC+5, END+6!
LRTASPN	SPEC+4*, DISP+6, END+6!
LRTXT	CHK+3*, CHK+4, END+4!
MSG	MSG~, MSG+1
NODE	LNC+2!, LNC+5, LNC+6, LNC+7, END+6!
POP	DEVICE+2, END+6!
U	LK64+1, DEF+2, DEF+9, CHK+6, LNC+3, SPEC+2, SPEC+4, DISP+4, DISP+6
X	END+6!
Y	EN+2!, EN+7, EN+8, END+6!
ZTDESC	LOAD+1~, LOAD+3*
ZTDTH	LOAD+1~, LOAD+3*
ZTIO	LOAD+1~, LOAD+4*
>> ZTQUEUED	LST+1, LNK+1
>> ZTREQ	LST+1, LNK+1
ZTRTN	LOAD+1~, LOAD+2*
ZTSK	LOAD+6, END+4!

Customize PDF page

Package: Lab Service

Routine: LRLNCST

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: