Routine: BLSMAP

Information

BLSMAP ; IHS/CMI/LAB - MASTER LOINC MAPPER ; [ JUL 20, 2010 2:00 PM ]

Source Information

Source file <BLSMAP.m>

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
IHS VA Utilities	3	^XBDBQUE ^XBFMK EN^XBVK
VA Fileman	2	^DIE ^DIR
Kernel	1	($$FMADD,$$FMTE)^XLFDT

Entry Points

Name	Comments	DBIA/ICR reference
TRIMTSPC(X)	;
CONT	;
EOJ	;
UCASE(X)	;
ELOG	; Log error - tests that don't map
USR()	;EP - Return name of current user from ^VA(200.
EOP	;EP - End of page.
PRINT	;EP
LOC()	;EP - Return location name from file 4 based on DUZ(2).
TRIMTC(X)	;
TRIMLSPC(X)	;
TRIMALL(X)	;
EN	;EP
ZIS	;
UPDATE	;
HEADER
TRIMN(X)	;
ILOG	; Inactive tests - don't map
CLEAN(X)	;
TRIMLS(X)	;
HEAD1	;
LIST	;
EXIT	;
CTR(X,Y)	;EP - Center X in a field Y wide.
PROC	;

Name	Field # of Occurrence
^DIE	UPDATE+8, UPDATE+9
^DIR	LIST+2, CONT+2, HEADER+1, EOP+5
^XBDBQUE	ZIS+2
^XBFMK	EXIT+2, UPDATE+4
EN^XBVK	EXIT+1
$$FMADD^XLFDT	PROC+4
$$FMTE^XLFDT	HEAD1+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"UCUM CONVERSION MUST BE DONE FIRST!" Line Location: EN+2
Function Call: WRITE	Prompt: !!,$$CTR($$LOC) Line Location: EN+7
Function Call: WRITE	Prompt: !!,$$CTR("AUTO-MAP LOINC CODES INTO THE LABORATORY TEST FILE") Line Location: EN+8
Function Call: WRITE	Prompt: !!,"This option is used to automatically map LOINC Codes from the IHS Master",!,"LOINC table to your Laboratory test file (file 60)." Line Location: EN+9
Function Call: WRITE	Prompt: !,"The test must match the master by Test name, Site/Specimen and Units. If a ",!,"match is found in the master file, that loinc code is added to your test",!,"in the Laboratory test file" Line Location: EN+10
Function Call: WRITE	Prompt: ! Line Location: LIST+2
Function Call: WRITE	Prompt: !! Line Location: CONT+1
Function Call: WRITE	Prompt: !,"Mapping loinc code ",BLSLOI," - ",$G(^LAB(95.3,BLSLOI,80))," to lab test ",BLSUNAME Line Location: UPDATE+5
Function Call: WRITE	Prompt: !!,"No Lab Tests were assigned LOINC Codes" Line Location: PRINT+2
Function Call: WRITE	Prompt: !!,"Total number of tests assigned LOINC codes: ",BLSCNT,! Line Location: PRINT+3
Function Call: WRITE	Prompt: ! Line Location: HEADER+1
Function Call: WRITE	Prompt: ! Line Location: HEAD1+2
Function Call: WRITE	Prompt: ?20,$$LOC,?72,"Page ",BLSPG,! Line Location: HEAD1+3
Function Call: WRITE	Prompt: !,$$CTR("LOINC CODES ASSIGNED WITH AUTO MAPPER",80) Line Location: HEAD1+4
Function Call: WRITE	Prompt: !,$$CTR("DATE: "_$$FMTE^XLFDT(DT),80) Line Location: HEAD1+5
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-"),! Line Location: HEAD1+6
Routine Call	DIE Line Location: UPDATE+8 UPDATE+9
Routine Call	DIR Line Location: LIST+2 CONT+2 HEADER+1 EOP+5

FileNo	Call Tags
^LAB(60 - [#60]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BLSLMAST - [#90220]	UPDATE+2, PRINT+12
^BLSLMAST("AA"	PROC+24, PROC+28, PROC+37, PROC+41, PROC+43, PROC+44, UPDATE+1
^BLSLMAST("C"	PRINT+12
^DIC(4 - [#4]	LOC+1
^LAB(60 - [#60]	PROC+10, PROC+12, PROC+13, PROC+20, PROC+21, PROC+31, PROC+33, PROC+34, PROC+35, PRINT+8 , PRINT+9, PRINT+11
^LAB(61 - [#61]	PROC+34, PRINT+11
^LAB(95.3 - [#95.3]	UPDATE+5, PRINT+9, PRINT+14
^VA(200 - [#200]	USR+1
^XTMP("BLRUCUM"	EN+2
^XTMP("BLSLIST"	PROC+4, PROC+5!, UPDATE+14, PRINT+2, PRINT+4, PRINT+5, EOJ+1!
^XTMP("BLSMAP"	PROC+1!, ILOG+1, ILOG+2, ELOG+1, ELOG+2

Label References

Name	Line Occurrences
$$CLEAN	PROC+34
$$CTR	EN+7, EN+8, HEAD1+4, HEAD1+5
$$LOC	EN+7, HEAD1+3
$$TRIMALL	CLEAN+1
$$TRIMLSPC	TRIMALL+1
$$TRIMN	PROC+18, PROC+26, PROC+39
$$TRIMTSPC	TRIMALL+1
$$UCASE	CLEAN+1
ELOG	PROC+45
EOJ	PRINT+2
EOP	EOJ+3
EXIT	LIST+3, CONT+3, CONT+4, ZIS+3
HEAD1	HEADER
HEADER	PRINT+1, PRINT+6
ILOG	PROC+15
UPDATE	PROC+24, PROC+28, PROC+37, PROC+41, PROC+44

Name	Field # of Occurrence
^(0	USR+1, LOC+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BLSCNT	PROC+2, UPDATE+12, PRINT+3
BLSH	PROC+3*, PROC+5, UPDATE+14, PRINT+2, PRINT+4, PRINT+5, EOJ+1, EOJ+2!
>> BLSIEN	PROC+10, PROC+12, PROC+13, PROC+20, PROC+21, PROC+31, PROC+33, PROC+34, PROC+35, UPDATE+8 , UPDATE+9, UPDATE+14, ILOG+1, ELOG+1, PRINT+4, PRINT+5, PRINT+8, PRINT+9, PRINT+11
BLSJ	PROC+3*, PROC+5, UPDATE+14, PRINT+2, PRINT+4, PRINT+5, EOJ+1, EOJ+2!
>> BLSL	UPDATE+1, UPDATE+2, PRINT+9, PRINT+12, PRINT+13, PRINT+14
>> BLSLIST	LIST+1, LIST+4, UPDATE+13
>> BLSLNC	PRINT+9*, PRINT+11
>> BLSLOI	UPDATE+2*, UPDATE+3, UPDATE+5
>> BLSNAME	PROC+12, PROC+15, PROC+16, PROC+17*, PROC+18
>> BLSPG	PRINT+1, HEADER, HEAD1+1, HEAD1+3
>> BLSQUIT	PROC+2, PRINT+1, PRINT+4, PRINT+5, PRINT+6, HEADER+1*
>> BLSSS	PROC+22, PROC+24, PROC+28, PROC+34, PROC+37, PROC+41, PROC+43, PROC+44, UPDATE+1, ELOG+1
>> BLSSSIEN	PROC+31, PROC+33, PROC+34, PROC+35, UPDATE+8, UPDATE+14, ELOG+1, PRINT+5, PRINT+8, PRINT+9 , PRINT+11
>> BLSTYP	PROC+13*
>> BLSUNAME	PROC+18, PROC+24, PROC+26, PROC+27, PROC+28, PROC+37, PROC+39*, PROC+40, PROC+41, PROC+43 , PROC+44, UPDATE+1, UPDATE+5, ELOG+1
>> BLSUNITS	PROC+22, PROC+24, PROC+28, PROC+35, PROC+37, PROC+41, PROC+43, PROC+44, UPDATE+1, ELOG+1 , PRINT+8, PRINT+11
>> BLSUP	PROC+24, PROC+28, PROC+37, PROC+41, PROC+44*, UPDATE+8, UPDATE+9
DA	LIST+2!, CONT+2!, UPDATE+8, UPDATE+9
DA(1	UPDATE+8*
DFOUT	EOP+4!
DIADD	UPDATE+4!
>> DIE	UPDATE+8, UPDATE+9
DIR	LIST+2!, CONT+2!, HEADER+1!, EOP+3~
DIR("A"	LIST+2, CONT+2
DIR("B"	LIST+2, CONT+2
DIR(0	LIST+2, CONT+2, HEADER+1, EOP+5
DIRUT	LIST+3, CONT+3, EOP+4!
DLAYGO	UPDATE+4!
DLOUT	EOP+4!
>> DR	UPDATE+8, UPDATE+9
DT	PROC+4, HEAD1+5
DTOUT	HEADER+1, EOP+4!
DUOUT	EOP+4!
DUZ	USR+1
DUZ(2	LOC+1
IO	HEADER+1
IO("S"	EOP+2
IO(0	HEADER+1
IOF	EN+6, HEAD1+1
IOM	CTR+1
IOSL	PRINT+6
IOST	HEADER+1, EOP+1
>> IOT	EOP+2
>> OK	PROC+11, PROC+21, PROC+24, PROC+28, PROC+33, PROC+37, PROC+41, PROC+44, PROC+45
>> REC	PRINT+12*
U	PROC+12, PROC+13, PROC+21, PROC+33, PROC+34, PROC+35, UPDATE+2, ELOG+1, PRINT+8, PRINT+9 , PRINT+11, PRINT+14, USR+1, LOC+1
X	CTR~, CTR+1, TRIMLSPC~, TRIMLSPC+1, TRIMLSPC+2, TRIMTSPC~, TRIMTSPC+1, TRIMTSPC+2, TRIMLS~, TRIMLS+1* , TRIMLS+2, TRIMTC~, TRIMTC+1, TRIMTC+2, TRIMN~, TRIMN+1, TRIMN+2, TRIMALL~, TRIMALL+1, UCASE~ , UCASE+1, CLEAN~, CLEAN+1
>> XBNS	ZIS+1*
>> XBRC	ZIS+1*
>> XBRP	ZIS+1*
>> XBRX	ZIS+1*
Y	LIST+4, CONT+4, UPDATE+11, CTR~, CTR+1, HEADER+1
>> ZTQUEUED	PROC+6, EOP+2

Customize PDF page

Package: IHS Lab LOINC Surveillance

Routine: BLSMAP

Information

Source Information

Call Graph

Call Graph Total: 6

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: