Routine: LRLNCNLT

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

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

Entry Points

Name	Comments	DBIA/ICR reference
EN	;
END	;
HDR	;
TOF1
NLTPRT(LRC)	;
ASK	;
TOF	;
DQ	;

External References

Name	Field # of Occurrence
^%ZIS	ASK+6
^%ZISC	END+3
^%ZTLOAD	ASK+8
^DIR	ASK+3, TOF1+1
$$FMTE^XLFDT	DQ+2
$$NOW^XLFDT	DQ+2
$$CJ^XLFSTR	EN+2, EN+3, EN+4, EN+5, HDR+3, HDR+4, HDR+5
$$RJ^XLFSTR	DQ+17, NLTPRT+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!! Line Location: EN+1
Function Call: WRITE	Prompt: $$CJ^XLFSTR("This option will print tests and their RESULT NLT CODES",IOM) Line Location: EN+2
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("assigned. Result NLT codes are required for LEDI and LOINC",IOM) Line Location: EN+3
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("Mapping software to function properly.",IOM) Line Location: EN+4
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("You may use the option 'Link Result NLT Manual' to make necessary changes.",IOM) Line Location: EN+5
Function Call: WRITE	Prompt: !!?5," Tasked to Print on : ",ION Line Location: ASK+8
Function Call: WRITE	Prompt: @IOF Line Location: ASK+9
Function Call: WRITE	Prompt: !,$$RJ^XLFSTR(LRIEN,5),?8,LRNAME Line Location: DQ+17
Function Call: WRITE	Prompt: !?15," ** Corrupt DATABASE **" Line Location: NLTPRT+3
Function Call: WRITE	Prompt: !?5,"[ ",$P(^LAM(LRC,0),U,2),?18,$P(^(0),U)," ]",! Line Location: NLTPRT+4
Function Call: WRITE	Prompt: !,$$RJ^XLFSTR(LRIEN,5),?8,LRNAME Line Location: NLTPRT+7
Function Call: WRITE	Prompt: !?10,"Specimen [ ",$P($G(^LAB(61,LRSPEC,0)),U),"] Mapped to LOINC CODE" Line Location: NLTPRT+8
Function Call: WRITE	Prompt: !,$G(^LAB(95.3,LRX,80)),! Line Location: NLTPRT+9
Function Call: WRITE	Prompt: !?20,"Total Printed Tests: ",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: !,?5,LRPDT,?60,"Page: ",LRPAGE Line Location: HDR+2
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("Alphabetical Listing of CH Subscripted Lab Tests",IOM) Line Location: HDR+3
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("That have RESULT NLT CODES assigned",IOM),! Line Location: HDR+4
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("That do not have RESULT NLT CODES assigned",IOM),! Line Location: HDR+5
Function Call: WRITE	Prompt: !," IEN Lab Test Name " Line Location: HDR+6
Function Call: WRITE	Prompt: ! Line Location: HDR+6
Function Call: WRITE	Prompt: !," NLT # Result NLT Code Name ",! Line Location: HDR+7
Routine Call	DIR Line Location: ASK+3 TOF1+1
Routine Call	%ZIS Line Location: ASK+6

Name	Line Occurrences (* Changed, ! Killed)
^LAB(60 - [#60]	DQ+8, DQ+9, DQ+11, NLTPRT+5, NLTPRT+6
^LAB(61 - [#61]	NLTPRT+8
^LAB(95.3 - [#95.3]	NLTPRT+9
^LAM - [#64]	NLTPRT+3, NLTPRT+4

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	ASK+6!*
DIR	ASK+1!, ASK+3!, DQ+1~, END+4!
DIR("?"	ASK+2*
DIR(0	ASK+1, TOF1+1
DIRUT	ASK+4, END+4!, TOF1+2
>> DTOUT	ASK+4
DUOUT	ASK+4, END+4!, TOF1+2
IO	ASK+8
IO(0	ASK+8
IOF	EN+1, ASK+9, END+2, HDR+1
IOM	EN+2, EN+3, EN+4, EN+5, HDR+3, HDR+4, HDR+5
ION	ASK+8
IOSL	NLTPRT+7, TOF+1
IOST	END+2, TOF1
LRC	DQ+8*, DQ+13, DQ+14, DQ+18, NLTPRT~, NLTPRT+3, NLTPRT+4, END+4!
LRCNT	DQ+3, DQ+5, DQ+15*, END+1, END+4!
LREND	EN+1, DQ+1~, DQ+3, DQ+6, DQ+7, DQ+16, NLTPRT+1, NLTPRT+5, NLTPRT+7, END+4! , TOF1, TOF1+2*
LRIEN	DQ+8*, DQ+9, DQ+11, DQ+17, NLTPRT+5, NLTPRT+6, NLTPRT+7, END+4!
LRNAME	DQ+8*, DQ+17, NLTPRT+7, END+4!
LRNODE	DQ+5, DQ+6, DQ+7, DQ+8, END+4!
LRPAGE	DQ+3, END+4!, HDR+1, HDR+2
LRPDT	DQ+2*, END+5!, HDR+2
LRSEL	ASK+5*, DQ+13, DQ+14, END+5!, HDR+4, HDR+5, HDR+6
LRSPEC	NLTPRT+2~, NLTPRT+5*, NLTPRT+6, NLTPRT+8
LRX	DQ+9, DQ+10, DQ+12, NLTPRT+6, NLTPRT+9, END+5!
POP	ASK+7, END+5!
U	DQ+8, DQ+9, DQ+12, NLTPRT+4, NLTPRT+8
>> Y	ASK+5
ZTDESC	ASK+8*, END+5!
ZTIO	ASK+8*, END+5!
>> ZTQUEUED	DQ+2
>> ZTREQ	DQ+2*
ZTRTN	ASK+8*, END+5!
ZTSAVE	END+5!
ZTSAVE("LRSEL"	ASK+8*
>> ZTSK	ASK+8

Customize PDF page

Package: Lab Service

Routine: LRLNCNLT

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:

Name	Line Occurrences
DQ	ASK+9
END	ASK+4, ASK+7, ASK+8, ASK+9
HDR	DQ+4
NLTPRT	DQ+18
TOF	DQ+16, NLTPRT+1
TOF1	NLTPRT+7