Routine: LRLNCTOP

Package	Total	Call Graph
Kernel	5	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD ($$FMTE,$$NOW)^XLFDT $$CJ^XLFSTR
VA Fileman	2	$$GET1^DIQ ^DIR
Lab Service	1	EQUALS^LRX

Package	Total	Caller Graph
Lab Service	1	LR LOINC TOPOGRAPHY

Entry Points

Name	Comments	DBIA/ICR reference
EN	;
HDR2	;PRINT HEADING FOR TESTS WITHOUT A LEDI HL7 CODE
HDR	;PRINT HEADING
HDR1	;PRINT HEADING FOR SPECIMENS WITH A LEDI HL7 CODE
EXIT	;
START	;BEGINS PRINTING THE REPORT
EN2	;PRINTS THE SPECIMEN THAT DO NOT HAVE A LEDI HL7 CODE
QUE	;
INI	;INITIALIZE VARIABLES
WHICH	;
ALPHA	;PRINTS THE ALPHABETIC LISTING OF SPECIMEN THAT HAVE A LEDI HL7 CODE IN THE TOPOGRAPHY FILE

External References

Name	Field # of Occurrence
^%ZIS	WHICH+7
HOME^%ZIS	QUE+5
^%ZISC	WHICH+9
^%ZTLOAD	QUE+3
$$GET1^DIQ	ALPHA+11
^DIR	WHICH+4
EQUALS^LRX	ALPHA+1, ALPHA+7, EN2+1, EN2+10
$$FMTE^XLFDT	HDR+3
$$NOW^XLFDT	HDR+3
$$CJ^XLFSTR	EN+2, EN+3, EN+4, HDR1+4, HDR1+5, HDR2+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: EN+1
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("This option prints a list of SITE/SPECIMENS from the LABORATORY TEST FILE",IOM) Line Location: EN+2
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR(" Standard LEDI HL7 specimen codes in the Topography file.",IOM) Line Location: EN+3
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("You will be prompted to print the specimen with or without the LEDI HL7 codes; ",IOM) Line Location: EN+4
Function Call: WRITE	Prompt: !! Line Location: WHICH+1
Function Call: WRITE	Prompt: !,"Print Topography with or without a LEDI HL7 CODE and Time Aspect." Line Location: WHICH+2
Function Call: WRITE	Prompt: !,"REQUEST QUEUED TO ",ION Line Location: QUE+4
Function Call: WRITE	Prompt: !?3,"[",$J(LRIEN,4),"]",?11,$E($P(LRY,U),1,20) Line Location: ALPHA+9
Function Call: WRITE	Prompt: ?33,$E($P(^LAB(64.061,LRIEN,0),U),1,20)_"\|"_$$GET1^DIQ(64.061,+$P(LRY,U,10),1) Line Location: ALPHA+11
Function Call: WRITE	Prompt: ! Line Location: EN2+11
Function Call: WRITE	Prompt: ?37,$E($P(LRY,U),1,30) Line Location: EN2+13
Function Call: READ	Timeout: DTIME Variable: LRN Line Location: HDR+1
Function Call: WRITE	Prompt: @IOF Line Location: HDR1+1
Function Call: WRITE	Prompt: !?50,LRDT,?(IOM-10)," Page ",$J(LRPAGE,3) Line Location: HDR1+2
Function Call: WRITE	Prompt: ! Line Location: HDR1+3
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("A LISTING FROM THE TOPOGRAPHY FILE OF SPECIMENS WITH LEDI HL7 CODE",IOM) Line Location: HDR1+4
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("AND HAVE TIME ASPECT ENTERED",IOM) Line Location: HDR1+5
Function Call: WRITE	Prompt: ! Line Location: HDR1+6
Function Call: WRITE	Prompt: !?3,"FILE 61" Line Location: HDR1+7
Function Call: WRITE	Prompt: !?4,"[IEN]",?11,"SITE/SPECIMEN",?32,"ELEC CODE NAME\|TIME ASPECT" Line Location: HDR1+8
Function Call: WRITE	Prompt: @IOF Line Location: HDR2+1
Function Call: WRITE	Prompt: !?50,LRDT,?(IOM-10)," Page ",$J(LRPAGE,3) Line Location: HDR2+2
Function Call: WRITE	Prompt: !!?23,"LAB SPECIMEN WITHOUT LEDI HL7 CODE" Line Location: HDR2+3
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("THESE SPECIMENS NEED LEDI HL7 CODES DEFINED IN THE TOPOGRAPHY FILE",IOM) Line Location: HDR2+4
Function Call: WRITE	Prompt: !!?5,"LAB TEST NAME",?37,"SITE/SPECIMEN" Line Location: HDR2+5
Routine Call	%ZIS Line Location: QUE+5
Routine Call	DIR Line Location: WHICH+4
Routine Call	%ZIS Line Location: WHICH+7

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^LAB(64.061 - [#64.061]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LAB(60 - [#60]	EN2+6, EN2+7
^LAB(61 - [#61]	ALPHA+6, ALPHA+8, EN2+8
^LAB(64.061 - [#64.061]	ALPHA+10, ALPHA+11

Label References

Name	Line Occurrences
ALPHA	START+1
EN2	START+2
EXIT	WHICH+6, WHICH+7, START+3
HDR	ALPHA+7, EN2+10
HDR1	ALPHA+1, ALPHA+7
HDR2	EN2+1, EN2+10
INI	ALPHA+1, EN2+1
QUE	WHICH+8
START	WHICH+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	WHICH+7!*
DIR	WHICH+3!, WHICH+4!, EXIT+3!
DIR("?"	WHICH+3*
DIR(0	WHICH+4*
DIRUT	WHICH+6, EXIT+3!
DTIME	HDR+1
DUOUT	EXIT+3!
IO	WHICH+9
IO("Q"	WHICH+8, QUE+5!
IOF	EN+1, INI+1, HDR1+1, HDR2+1
IOM	EN+2, EN+3, EN+4, HDR1+2, HDR1+4, HDR1+5, HDR2+2, HDR2+4
ION	QUE+4
IOSL	ALPHA+7, EN2+10
IOST	INI+1, HDR+1
LRANS	WHICH+5*, START+1, START+2, EXIT+2!
LRDT	HDR+3*, HDR1+2, HDR2+2, EXIT+2!
LREND	ALPHA+3, ALPHA+4, ALPHA+7, EN2+3, EN2+4, EN2+7, EN2+10, INI+1, HDR+1, EXIT+2!
LRI	EN2+5*, EN2+6, EN2+7, EXIT+2!
LRIEN	ALPHA+5, ALPHA+6, ALPHA+8, ALPHA+9, ALPHA+10, ALPHA+11, EN2+7*, EN2+8, EXIT+2!
LRN	HDR+1*, EXIT+4!
>> LRNODE	EN2+2, EN2+3, EN2+4, EN2+5
LRPAGE	INI+1, HDR+1, HDR+2, HDR1+2, HDR2+2, EXIT+2!
LRTEST	EN2+12, EN2+14, INI+1, EXIT+2!
>> LRTOP	ALPHA+2, ALPHA+3, ALPHA+4, ALPHA+5
LRX	EN2+6*, EN2+12, EN2+14, EXIT+2!
LRY	ALPHA+6, ALPHA+9, ALPHA+10, ALPHA+11, EN2+8, EN2+9, EN2+13, EXIT+2!
POP	WHICH+7, EXIT+4!
U	ALPHA+8, ALPHA+9, ALPHA+10, ALPHA+11, EN2+6, EN2+8, EN2+9, EN2+12, EN2+13, EN2+14
Y	WHICH+5, EXIT+4!
ZTDESC	QUE+1*, EXIT+3!
ZTIO	EXIT+3!
ZTQUEUED	EXIT+1, EXIT+4!
ZTREQ	EXIT+1*, EXIT+4!
ZTRTN	QUE+1*, EXIT+3!
ZTSAVE	EXIT+3!
ZTSAVE("LRANS"	QUE+2*
ZTSK	QUE+4, EXIT+4!

Customize PDF page

Package: Lab Service

Routine: LRLNCTOP

Information

Source Information

Call Graph

Call Graph Total: 8

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

Local Variables

Legend: