Routine: LRLNCSUF

Package	Total	Call Graph
Kernel	5	^%ZIS ^%ZISC ^%ZTLOAD ($$FMTE,$$NOW)^XLFDT $$CJ^XLFSTR
VA Fileman	1	^DIR

Package	Total	Caller Graph
Lab Service	1	LR LOINC PRINT DEFAULT/LOINC

Entry Points

Name	Comments	DBIA/ICR reference
SDEFCD	;SET DEFAULT LOINC CODE
EN	;
END	;
HDR	;
ACWK	;GET ACCESSION WORKLOAD CODE
GRNLT(LRNLTIEN)	;GET RESULT NLT CODE
GTLNC	;GET LOINC CODE BASED ON THE SPECIMEN
PRT	;PRINT INFO
SMPCD	;GET SAMPLE WORKLOAD CODE
ASK	;
VRWKD	;GET VERIFY WORKLOAD CODE
TOP	;
DQ	;

External References

Name	Field # of Occurrence
^%ZIS	ASK+4
^%ZISC	END+3
^%ZTLOAD	ASK+6
^DIR	ASK+2, TOP+4
$$FMTE^XLFDT	DQ+3
$$NOW^XLFDT	DQ+3
$$CJ^XLFSTR	EN+2, EN+3, HDR+4, HDR+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!! Line Location: EN+1
Function Call: WRITE	Prompt: $$CJ^XLFSTR("This option will print WORKLOAD CODES and their LOINC CODES.",IOM) Line Location: EN+2
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("You may use the option 'MAP LOINC TEST TO NLT' to make necessary changes.",IOM) Line Location: EN+3
Function Call: WRITE	Prompt: !!?5," Tasked to Print on : ",ION Line Location: ASK+6
Function Call: WRITE	Prompt: @IOF Line Location: ASK+7
Function Call: WRITE	Prompt: !,LRTSTNM,?45,"THERE IS NO RESULT NLT CODE" Line Location: DQ+23
Function Call: WRITE	Prompt: !,LRLINE Line Location: DQ+24
Function Call: WRITE	Prompt: !?2,$G(LRTSTNM),?47,$G(LRSPNM) Line Location: PRT+2
Function Call: WRITE	Prompt: !?2,$G(LRNLTIEN),?12,LRCODE_" "_$G(LRNAME) Line Location: PRT+3
Function Call: WRITE	Prompt: !,"LOINC CODE = ",LRLOINC," ",$G(LRFULL) Line Location: PRT+4
Function Call: WRITE	Prompt: !,"DEFAULT LOINC CODE = ",$G(LRDEF) Line Location: PRT+5
Function Call: WRITE	Prompt: !,LRLINE Line Location: PRT+7
Function Call: WRITE	Prompt: !?15,"Total Number of Mapped WKLD CODES/Specimens: ",LRCNT,! Line Location: END+1
Function Call: WRITE	Prompt: @IOF Line Location: END+2
Function Call: WRITE	Prompt: @IOF Line Location: HDR+1
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("Alphabetical Listing of Laboratory Tests ",IOM) Line Location: HDR+4
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("that are Mapped to LOINC Codes.",IOM) Line Location: HDR+5
Function Call: WRITE	Prompt: !,?5,LRPDT,?60,"Page: ",LRPAGE Line Location: HDR+6
Function Call: WRITE	Prompt: !!,"LABORATORY TEST NAME",?45,"SPECIMEN" Line Location: HDR+7
Function Call: WRITE	Prompt: !,"NLT IEN # WKLD CODE Name ",! Line Location: HDR+8
Routine Call	DIR Line Location: ASK+2 TOP+4
Routine Call	%ZIS Line Location: ASK+4

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LAB(60 - [#60]	DQ+14, DQ+15, DQ+16, SMPCD+2, SMPCD+3, SMPCD+4, SMPCD+5, VRWKD+1, VRWKD+2, VRWKD+3 , ACWK+2, ACWK+3, ACWK+4
^LAB(61 - [#61]	GTLNC+7
^LAB(95.3 - [#95.3]	GTLNC+6, GTLNC+7
^LAM - [#64]	GRNLT+1, GRNLT+2, GRNLT+4, SDEFCD+1, SDEFCD+3, GTLNC+1, GTLNC+3, GTLNC+5

Label References

Name	Line Occurrences
ACWK	DQ+19
DQ	ASK+7
END	ASK+3, ASK+5, ASK+6, ASK+8
GRNLT	DQ+17, DQ+18, DQ+19, DQ+21
GTLNC	GRNLT+4
HDR	DQ+6, DQ+25, PRT+8
PRT	SDEFCD+3, GTLNC+8
SMPCD	DQ+17
TOP	DQ+25, GRNLT+3, GTLNC+2, GTLNC+4, PRT+1, PRT+8
VRWKD	DQ+18

Naked Globals

Name	Field # of Occurrence
^(0	GRNLT+2, SDEFCD+1, GTLNC+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	ASK+4!*
DIR	ASK+1!, ASK+2!, DQ+1~, END+4!
DIR(0	ASK+1, TOP+4
DIRUT	ASK+3, END+4!, TOP+5
>> DTOUT	ASK+3
DUOUT	ASK+3, END+4!, TOP+5
IO	ASK+6
IO(0	ASK+6
IOF	EN+1, ASK+7, END+2, HDR+1
IOM	EN+2, EN+3, DQ+2, HDR+4, HDR+5
ION	ASK+6
IOSL	TOP+2
IOST	END+2, TOP+3
LRACCIEN	DQ+13, DQ+19, DQ+20, ACWK+5, END+4!
LRASP	GTLNC+3*, GTLNC+5, END+4!
LRCNT	DQ+4, DQ+8, PRT+6*, END+1, END+4!
LRCODE	GRNLT+2*, PRT+3, END+4!
LRD1	SMPCD+1, SMPCD+2, SMPCD+3, SMPCD+4, SMPCD+5, VRWKD+1, VRWKD+2, VRWKD+3, END+4!
LRD2	SMPCD+1, SMPCD+4, SMPCD+5, END+4!
LRDEF	DQ+5, SDEFCD+1, SDEFCD+2*, PRT+5, PRT+6, END+4!
LREND	EN+1, DQ+1~, DQ+4, DQ+9, DQ+10, DQ+25, GRNLT+3, GTLNC+1, GTLNC+2, GTLNC+4 , PRT+1, PRT+8, END+5!, TOP+1, TOP+3, TOP+5*
LRFULL	GTLNC+7, GTLNC+9, PRT+4, END+5!
LRIEN	DQ+12*, DQ+14, DQ+15, DQ+16, SMPCD+2, SMPCD+3, SMPCD+4, SMPCD+5, VRWKD+1, VRWKD+2 , VRWKD+3, ACWK+2, ACWK+3, ACWK+4, END+5!
LRLINE	DQ+2*, DQ+24, PRT+7, END+5!
LRLOINC	DQ+13, GTLNC+6, GTLNC+8, GTLNC+9*, PRT+4, PRT+6, END+5!
LRNAME	GRNLT+2*, PRT+3, END+5!
LRNLTIEN	GRNLT~, GRNLT+1, GRNLT+2, GRNLT+4, SDEFCD+1, SDEFCD+3, GTLNC+1, GTLNC+3, GTLNC+5, PRT+3 , END+5!
LRNODE	DQ+8, DQ+9, DQ+10, DQ+11, DQ+12, END+5!
LRPAGE	DQ+4, END+5!, HDR+1, HDR+2, HDR+6
LRPDT	DQ+3*, END+6!, HDR+6
LRREC	ACWK+4*, ACWK+5, END+6!
LRRNLT	DQ+16*, DQ+21, DQ+22, END+6!
LRSEL	ASK+4*, END+6!
LRSMPIEN	DQ+13, DQ+17, DQ+20, SMPCD+6, END+6!
LRSPEC	GTLNC+1*, GTLNC+3, GTLNC+5, GTLNC+7, END+6!
LRSPNM	GTLNC+7*, PRT+2, END+6!
LRSREC	SMPCD+5*, SMPCD+6, END+6!
LRSUB	ACWK+1, ACWK+3, ACWK+4, END+6!
LRTOP	DQ+2*, END+7!, HDR+3
LRTSTNM	DQ+11*, DQ+23, PRT+2, END+7!
LRVACD	DQ+15*, END+7!
LRVREC	VRWKD+3*, VRWKD+4, END+7!
LRVWKIEN	DQ+13, DQ+18, DQ+20, VRWKD+4, END+7!
LRX	DQ+14, GTLNC+5, GTLNC+6, GTLNC+7, END+7!
POP	ASK+5, END+7!
U	DQ+14, DQ+15, DQ+16, SMPCD+6, VRWKD+4, ACWK+5, GRNLT+2, SDEFCD+1, GTLNC+6, GTLNC+7
>> Y	ASK+3, ASK+4
ZTDESC	ASK+6*, END+7!
ZTIO	ASK+6*, END+7!
>> ZTQUEUED	DQ+3
>> ZTREQ	DQ+3*
ZTRTN	ASK+6*, END+7!
ZTSAVE	END+7!
ZTSAVE("LRSEL"	ASK+6*
>> ZTSK	ASK+6

Customize PDF page

Package: Lab Service

Routine: LRLNCSUF

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: