Routine: BLSLNCPM

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

Entry Points

Name	Comments	DBIA/ICR reference
EXIT
EN	;
HDR	;PRINT HEADING
START	;BEGINS REPORT
NMAP	;
YMAPPRT
YMAP	;
EN1	;PRINT MAPPED OR NOT MAPPED LAB TESTS IF THERE IS A DATA NAME
QUE	;
INI	;INITIALIZE VARIABLES
WHICH	;
SING	; Select individual lab test for report
BLRLOINC	;

External References

Name	Field # of Occurrence
^%ZIS	WHICH+11
HOME^%ZIS	QUE+5
^%ZISC	WHICH+13
^%ZTLOAD	QUE+3
GETS^DIQ	NMAP+7
^DIR	WHICH+7, SING+11
LOINCLA^LRSRVR	YMAP+7, YMAP+11
$$FMTE^XLFDT	INI+3
$$NOW^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	Timeout: DTIME Variable: N Line Location: HDR+1
Function Call: WRITE	Prompt: @IOF Line Location: HDR+2
Function Call: WRITE	Prompt: !?5,LRPDT,?(IOM-15)," Page ",$J(LRPAGE,3) Line Location: HDR+5
Function Call: WRITE	Prompt: !?5,"LAB TEST" Line Location: HDR+6
Function Call: WRITE	Prompt: !,?10,"RESULT NLT" Line Location: HDR+7
Function Call: WRITE	Prompt: !!?5,"LAB TEST",?37,"SPECIMEN",?67,"LOINC CODE" Line Location: HDR+8
Function Call: WRITE	Prompt: !!?5,"LAB TEST",?37,"SPECIMEN" Line Location: HDR+9
Function Call: WRITE	Prompt: !,LRLINE,! Line Location: HDR+10
Function Call: WRITE	Prompt: @IOF Line Location: EXIT+0
Function Call: WRITE	Prompt: ?67,BLRLOINC,!,$G(^LAB(95.3,BLRLOINC,80)),! Line Location: BLRLOINC+10
Routine Call	%ZIS Line Location: QUE+5
Routine Call	DIR Line Location: WHICH+7 SING+11
Routine Call	%ZIS Line Location: WHICH+11

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

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

Label References

Name	Line Occurrences
BLRLOINC	EN1+9
EN1	START+5
EXIT	WHICH+8, WHICH+10, WHICH+11, START+8
HDR	YMAPPRT+3, NMAP+1, BLRLOINC+9
INI	START+4
NMAP	EN1+14
QUE	WHICH+12
SING	WHICH+10
START	WHICH+13
YMAP	START+7, EN1+15
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+11!*
>> BLRLOINC	BLRLOINC+4*, BLRLOINC+5, BLRLOINC+6, BLRLOINC+10
DIR	WHICH+2!, WHICH+7!, SING+7!, EXIT+3!
DIR("?"	WHICH+6, SING+10
DIR("S"	SING+9*
DIR(0	WHICH+7, SING+8
DIRUT	WHICH+8, SING+11, EXIT+3!
DTIME	HDR+1
DUOUT	EXIT+4!
I	EXIT+3!
IO	WHICH+13
IO("Q"	WHICH+12, QUE+5!
IOF	EN+1, HDR+2, EXIT
IOM	EN+2, EN+3, EN+4, EN+5, SING+4, SING+5, SING+6, INI+2, HDR+5
ION	QUE+4
IOSL	YMAPPRT+3, NMAP+1, BLRLOINC+9
IOST	HDR+1, EXIT
J	EXIT+3!
LINE	START+2~, START+3, YMAP+1, YMAP+2, YMAP+12, YMAP+13*
LOINCDTA	START+1~
LOINCDTB	START+1~
LOINCTAS	START+1~
LRA	YMAP+3~, YMAP+6, YMAP+10, EXIT+3!
LRAA	START+1~
LRAA1	START+1~
>> LRDBUG	EXIT+2
LREND	EN+1!, WHICH+10, SING+3, SING+12, EN1+3, YMAPPRT+2, YMAPPRT+3, NMAP+1, INI+2, HDR+1 , EXIT+3!, BLRLOINC+3, BLRLOINC+9
LRIEN	START+7, EN1+5, EN1+6, EN1+13, EN1+14, EN1+15, NMAP+4, YMAP+5, YMAP+9, EXIT+3! , BLRLOINC+3, BLRLOINC+4
LRLINE	INI+2*, HDR+10, EXIT+4!
LRLOC	EXIT+3!
LRLOINC	EXIT+4!
LRMAP	EN+1!, WHICH+2!, WHICH+9, SING+1, SING+2!, SING+3, START+5, START+6, EN1+14, EN1+15 , HDR+4, HDR+8, HDR+9, EXIT+4!, BLRLOINC+5, BLRLOINC+6, BLRLOINC+10
LRMAP(	SING+11*, START+7
LRMAP(0	SING+12
LRNLT	EN1+12~, EN1+13, NMAP+4, NMAP+5, NMAP+7, NMAP+8, YMAP+4, YMAP+5, YMAP+6, YMAP+8* , YMAP+9*, YMAP+10, EXIT+5!
LRNLTN	EXIT+5!
LRNLTX	YMAP+3~
LRNLTX(	YMAP+5, YMAP+6, YMAP+9, YMAP+10
LRNODE	START+7, EN1+6, EN1+7, NMAP+2, YMAP+2, EXIT+5!, BLRLOINC+1
LROUT	NMAP+6~
LROUT(64	NMAP+8
LRPAGE	INI+2, HDR+1, HDR+2, HDR+5, EXIT+3!
LRPDT	INI+3*, HDR+5, EXIT+4!
LRPNTA	START+1~
LRPNTB	START+1~
LRPREV	EXIT+3!
LRPRT	YMAPPRT+1, YMAPPRT+2, YMAPPRT+4, EXIT+5!
LRSPEC	EXIT+4!, BLRLOINC+7*, BLRLOINC+10
LRSPECN	EXIT+5!
LRTEST	EN1+1, EXIT+4!, BLRLOINC+1, BLRLOINC+10
LRTESTN	NMAP+2*, NMAP+3, EXIT+4!
LRTST	EN1+2, EN1+3, EN1+4, EN1+5, EXIT+5!
LRX	EXIT+4!, BLRLOINC+2, BLRLOINC+3, BLRLOINC+4, BLRLOINC+7
N	HDR+1*, EXIT+5!
POP	WHICH+11, EXIT+5!
U	EN1+7, EN1+13, NMAP+2, NMAP+4, YMAP+2, BLRLOINC+1, BLRLOINC+7
X	SING+7!
Y	WHICH+8, WHICH+9, WHICH+10, 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: IHS Lab LOINC Surveillance

Routine: BLSLNCPM

Information

Source Information

Call Graph

Call Graph Total: 8

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: