Routine: LRLNCPMP

Information

LRLNCPMP ;DALOI/FHS - PRINT LAB TESTS MAPPED/NOT MAPPED TO LOINC CODES ;1-OCT-1998

Call Graph

Call Graph Total: 8

Package	Total	Call Graph
Kernel	5	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD $$HTE^XLFDT $$CJ^XLFSTR
VA FileMan	2	GETS^DIQ ^DIR
Lab Service	1	LOINCLA^LRSRVR1

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Lab Service	1	LR LOINC PRINT 60/LOINC MAP

Entry Points

Name	Comments	DBIA/ICR reference
EN	;
WHICH	;
SING	; Select individual lab test for report
QUE	;
START	; Begins report
EN1	; Print mapped or not mapped lab tests if there is a data name
YMAPPRT
NMAP	;
YMAP	;
INI	; Initialize variables
HDR	; Print heading
EXIT

External References

Name	Field # of Occurrence
^%ZIS	WHICH+9
HOME^%ZIS	QUE+5
^%ZISC	WHICH+13
^%ZTLOAD	QUE+3
GETS^DIQ	NMAP+7
^DIR	WHICH+5, SING+11
LOINCLA^LRSRVR1	YMAP+8, YMAP+12
$$HTE^XLFDT	INI+3
$$CJ^XLFSTR	EN+2, EN+3, EN+4, EN+5, SING+4, SING+5, SING+6

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 the LABORATORY TESTS from the LABORATORY TEST FILE.",IOM) Line Location: EN+2
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("You will be prompted to print lab tests that are",IOM) Line Location: EN+3
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("mapped/not mapped to a LOINC code.",IOM) Line Location: EN+4
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("Inactive(Type:Neither) lab tests are not reported.",IOM) Line Location: EN+5
Function Call: WRITE	Prompt: !!!,"Print lab tests that are mapped/not mapped to a LOINC code." Line Location: WHICH+1
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("You can only select test that have been mapped.",IOM) Line Location: SING+4
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("You can a quick list of mapped tests by entering '?'.",IOM) Line Location: SING+5
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("Then enter 'Yes' you want a complete list.",IOM),! Line Location: SING+6
Function Call: WRITE	Prompt: !!?5,"Nothing Selected" Line Location: SING+12
Function Call: WRITE	Prompt: !,"REQUEST QUEUED ",ION Line Location: QUE+4
Function Call: WRITE	Prompt: !,^TMP($J,"LRDATA",LRPRT) Line Location: YMAPPRT+4
Function Call: WRITE	Prompt: !,?1,LRTESTN Line Location: NMAP+3
Function Call: WRITE	Prompt: !?5,$G(LROUT(64,LRNLT_",",1,"E")),?18,$G(LROUT(64,LRNLT_",",.01,"E")) Line Location: NMAP+8
Function Call: WRITE	Prompt: ! Line Location: NMAP+9
Function Call: READ	Variable: N Timeout: DTIME Line Location: HDR+1
Function Call: WRITE	Prompt: !?5,LRPDT,?(IOM-15)," Page ",$J(LRPAGE,3) Line Location: HDR+4
Function Call: WRITE	Prompt: !,?5,"LAB TEST" Line Location: HDR+5
Function Call: WRITE	Prompt: !,?10,"RESULT NLT" Line Location: HDR+6
Function Call: WRITE	Prompt: !,LRLINE,! Line Location: HDR+7
Function Call: WRITE	Prompt: @IOF Line Location: EXIT+0
Routine Call	%ZIS Line Location: WHICH+9
Routine Call	%ZIS Line Location: QUE+5
Routine Call	DIR Line Location: WHICH+5 SING+11

FileNo	Call Tags
^LAM - [#64]	GETS^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LAB(60 - [#60]	START+7, EN1+6, EN1+9, NMAP+4
^LAM("AL"	EN1+10, EN1+11, YMAP+10
^LAM("AM"	EN1+10, EN1+11, YMAP+6
^TMP($J	YMAPPRT, YMAPPRT+2, YMAPPRT+4, YMAP+2, YMAP+13, YMAP+14*, INI+1!, EXIT+6!

Label References

Name	Line Occurrences
EN1	START+4
EXIT	WHICH+6, WHICH+8, WHICH+9, START+8
HDR	YMAPPRT+3, NMAP+1
INI	START+3
NMAP	EN1+10
QUE	WHICH+10
SING	WHICH+8
START	WHICH+13
YMAP	START+7, EN1+11
YMAPPRT	START+8

Naked Globals

Name	Field # of Occurrence
^(0	EN1+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	WHICH+9!*
DIR	WHICH+2!, WHICH+5!, SING+7!, EXIT+3!
DIR("?"	WHICH+3, SING+10
DIR("S"	SING+9*
DIR(0	WHICH+4, SING+8
DIRUT	WHICH+6, SING+11, EXIT+3!
DTIME	HDR+1
DUOUT	EXIT+4!
I	EXIT+3!
IO	WHICH+12
IO("Q"	WHICH+10, QUE+6!
IOF	EN+1, HDR+3, EXIT
IOM	EN+2, EN+3, EN+4, EN+5, SING+4, SING+5, SING+6, INI+2, HDR+4
ION	QUE+4
IOSL	YMAPPRT+3, NMAP+1
IOST	HDR+1, EXIT
J	EXIT+3!
LINE	START+1~, START+2, YMAP+1, YMAP+2, YMAP+13, YMAP+14*
LOINCDTA	START+1~
LOINCDTB	START+1~
LOINCTAS	START+1~
LRA	YMAP+4~, YMAP+7, YMAP+11, EXIT+3!
LRAA	START+1~
LRAA1	START+1~
>> LRDBUG	EXIT+2
LREND	EN+1!, WHICH+8, SING+3, SING+12, EN1+3, YMAPPRT+2, YMAPPRT+3, NMAP+1, INI+2, HDR+1 , EXIT+3!
LRIEN	START+6, START+7, EN1+5*, EN1+6, EN1+9, EN1+10, EN1+11, NMAP+4, YMAP+6, YMAP+10 , EXIT+3!
LRLINE	INI+2*, HDR+7, EXIT+4!
LRLOC	EXIT+3!
LRLOINC	EXIT+4!
LRMAP	EN+1!, WHICH+2!, WHICH+7, SING+1, SING+2!, SING+3, START+4, START+5, EN1+10, EN1+11 , HDR+3, HDR+5, HDR+6, EXIT+4!
LRMAP(	SING+11*, START+7
LRMAP(0	SING+12
LRNLT	EN1+8~, EN1+9, NMAP+4, NMAP+5, NMAP+7, NMAP+8, YMAP+5, YMAP+6, YMAP+7, YMAP+9* , YMAP+10*, YMAP+11, EXIT+5!
LRNLTN	EXIT+5!
LRNLTX	YMAP+4~
LRNLTX(	YMAP+6, YMAP+7, YMAP+10, YMAP+11
LRNODE	START+7, EN1+6, EN1+7, NMAP+2, YMAP+2, EXIT+5!
LROUT	NMAP+6~
LROUT(64	NMAP+8
LRPAGE	INI+2, HDR+1, HDR+2, HDR+4, EXIT+3!
LRPDT	INI+3*, HDR+4, EXIT+4!
LRPNTA	START+1~
LRPNTB	START+1~
LRPREV	EXIT+3!
LRPRT	YMAPPRT+1, YMAPPRT+2, YMAPPRT+4, EXIT+5!
LRSPEC	EXIT+4!
LRSPECN	EXIT+5!
LRSUB	START+1~, YMAP+3*
LRTEST	EN1+1*, EXIT+4!
LRTESTN	NMAP+2*, NMAP+3, EXIT+4!
LRTST	EN1+2, EN1+3, EN1+4, EN1+5, EXIT+5!
LRX	EXIT+4!
N	HDR+1*, EXIT+5!
POP	WHICH+9, EXIT+5!
U	EN1+7, EN1+9, NMAP+2, NMAP+4, YMAP+2
X	SING+7!
Y	WHICH+6, WHICH+7, WHICH+8, SING+7!, SING+11, EXIT+5!
ZTDESC	QUE+2*, EXIT+3!
ZTIO	EXIT+3!
ZTQUEUED	EXIT+1, EXIT+5!
ZTREQ	EXIT+1*, EXIT+5!
ZTRTN	QUE+1*, EXIT+3!
ZTSAVE	EXIT+4!
ZTSAVE("LRMAP*"	QUE+2*
ZTSK	QUE+4, EXIT+5!

Customize PDF page

Package: Lab Service