Routine: LRLNCPRT

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

Package

Total

Call Graph

Kernel

^%ZIS ^%ZISC ^%ZTLOAD ($$FMTE,$$NOW)^XLFDT $$CJ^XLFSTR

VA Fileman

^DIR

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

Package

Total

Caller Graph

Lab Service

LR LOINC PRINT NLT/LOINC

Name	Comments	DBIA/ICR reference
EN	;
END	;
HDR	;
TOP	;
SPEC(LRIEN,LRTOP)	;
ASK	;
DQ	;

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: !?5,"* WKLD CODE ",LRCN," *",!?10," [ ",LRNAME," ] IS CORRUPTED ",! Line Location: SPEC+11
Function Call: WRITE	Prompt: !?2,LRIEN,?12,LRCN_" "_LRNAME Line Location: SPEC+13
Function Call: WRITE	Prompt: !?5,"Specimen: ",$P($G(^LAB(61,LRSPEC,0)),U) Line Location: SPEC+14
Function Call: WRITE	Prompt: !?10,"Collection Type: ",$P($G(^LAB(64.061,LRASP,0)),U) Line Location: SPEC+15
Function Call: WRITE	Prompt: !,"LOINC= ",LRX," [",$G(^LAB(95.3,LRX,80)),"]" Line Location: SPEC+16
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 Workload (WKLD) CODES ",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: !!,"NLT IEN # WKLD CODE Name ",! Line Location: HDR+7
Routine Call	DIR Line Location: ASK+2 TOP+4
Routine Call	%ZIS Line Location: ASK+4

Name	Line Occurrences (* Changed, ! Killed)
^LAB(61 - [#61]	SPEC+14
^LAB(64.061 - [#64.061]	SPEC+15
^LAB(95.3 - [#95.3]	SPEC+10, SPEC+16
^LAM - [#64]	DQ+10, SPEC+2, SPEC+3, SPEC+5, SPEC+7, SPEC+9

Name	Line Occurrences
DQ	ASK+7
END	ASK+3, ASK+5, ASK+6, ASK+7, DQ+12
HDR	DQ+5
SPEC	DQ+11
TOP	SPEC+4, SPEC+6, SPEC+8, SPEC+12

Name	Field # of Occurrence
^(0	SPEC+2

Local Variables

>>	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
>> LRASP	SPEC+7*, SPEC+9, SPEC+15
LRC	END+4!
LRCK	SPEC+1~, SPEC+7, SPEC+8, SPEC+18
>> LRCN	SPEC+2*, SPEC+11, SPEC+13
LRCNT	DQ+4, DQ+6, SPEC+17*, END+1, END+4!
LREND	EN+1, DQ+1~, DQ+4, DQ+7, DQ+8, SPEC+4, SPEC+5, SPEC+6, SPEC+8, SPEC+12 , END+4!, TOP+1, TOP+3, TOP+5*
LRIEN	DQ+9*, DQ+10, DQ+11, SPEC~, SPEC+2, SPEC+3, SPEC+5, SPEC+7, SPEC+9, SPEC+13 , END+4!
>> LRLINE	DQ+2*, SPEC+18
LRNAME	SPEC+2*, SPEC+11, SPEC+13, END+4!
LRNODE	DQ+6, DQ+7, DQ+8, DQ+9, END+4!
LRPAGE	DQ+4, END+4!, HDR+1, HDR+2, HDR+6
LRPDT	DQ+3*, END+5!, HDR+6
LRSEL	ASK+4*, END+5!
>> LRSPEC	SPEC+5*, SPEC+7, SPEC+9, SPEC+14
LRTOP	DQ+2*, SPEC~, HDR+3
LRX	DQ+10, SPEC+9, SPEC+10, SPEC+16, END+5!
POP	ASK+5, END+5!
U	DQ+10, SPEC+2, SPEC+14, SPEC+15
>> Y	ASK+3, ASK+4
ZTDESC	ASK+6*, END+5!
ZTIO	ASK+6*, END+5!
>> ZTQUEUED	DQ+3
>> ZTREQ	DQ+3*
ZTRTN	ASK+6*, END+5!
ZTSAVE	END+5!
ZTSAVE("LRSEL"	ASK+6*
>> ZTSK	ASK+6

Customize PDF page

Package: Lab Service

Routine: LRLNCPRT

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: