Routine: BLSMIT

Package	Total	Call Graph
VA Fileman	4	FIND^DIC ^DIE EN^DIQ ^DIR

Entry Points

Name	Comments	DBIA/ICR reference
MAP	;DIE call to add data name,time aspect,units, LOINC code, and lab test fields
CODE	;ask which code to map
LOINC	;Lookup possible LOINC matches in LAB LOINC file #95.3
DISPL	;Show LOINC entry selected in file 95.3
SHOWPRE	;DISPLAY LOINC CODE ABLSEADY MAPPED TO NLT
ENTERLNC	;Enter LOINC code when already know the LOINC code
SPEC	; Ask Specimen- Lookup in Specimen multiple in Lab Test file #60
START	;entry point from option BLS LOINC MAPPING
EXIT
TEST
INDEX60	;Stores LOINC code in Laboratory Test file (#60) so know what tests are mapped.
CORRECT
SPEC1	;

External References

Name	Field # of Occurrence
FIND^DIC	LOINC+2
^DIE	INDEX60+2, INDEX60+3
EN^DIQ	SPEC+6, INDEX60+8
^DIR	CORRECT+3, TEST+5, SPEC1+17, CODE+7, CODE+14, MAP+4, SHOWPRE+7, ENTERLNC+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: START+5
Function Call: WRITE	Prompt: !! Line Location: CORRECT+0
Function Call: WRITE	Prompt: !! Line Location: TEST+0
Function Call: WRITE	Prompt: ! Line Location: TEST+8
Function Call: WRITE	Prompt: !!,"You have selected the following test:" Line Location: SPEC+4
Function Call: WRITE	Prompt: !!,"There are no site/specimens defined for this test.",!! Line Location: SPEC1+1
Function Call: WRITE	Prompt: !!,"There are no site/specimens defined for this test.",!! Line Location: SPEC1+2
Function Call: WRITE	Prompt: !,"Select from the available site/specimens:",! Line Location: SPEC1+3
Function Call: WRITE	Prompt: !?4,"SITE/SPECIMEN",?35,"UNITS",?50,"LOINC CODE" Line Location: SPEC1+4
Function Call: WRITE	Prompt: !?4,"-------------",?35,"-----",?50,"----------" Line Location: SPEC1+5
Function Call: WRITE	Prompt: !! Line Location: CODE+4
Function Call: WRITE	Prompt: !! Line Location: CODE+11
Function Call: WRITE	Prompt: @IOF Line Location: DISPL+7
Function Call: WRITE	Prompt: !,"LOINC CODE: ",BLSCODE," ",BLSNAM Line Location: DISPL+8
Function Call: WRITE	Prompt: !,"SYSTEM: ",$P($G(^LAB(64.061,+BLSLNC0(8),0)),U),?40,"CLASS: ",$P($G(^LAB(64.061,+BLSLNC0(11),0)),U) Line Location: DISPL+9
Function Call: WRITE	Prompt: !!,"LOINC Code ",$P(^LAB(95.3,BLSCODE,0),U)," will be mapped to test ",$P(^LAB(60,BLSIEN,0),U),! Line Location: MAP+1
Function Call: WRITE	Prompt: !!,"LOINC CODE mapping failed.",! Line Location: INDEX60+5
Function Call: WRITE	Prompt: !!,"Loinc Code has been successfully mapped.",! Line Location: INDEX60+6
Function Call: WRITE	Prompt: !!,"This test and specimen is already mapped to:" Line Location: SHOWPRE+2
Function Call: WRITE	Prompt: !,"LOINC code: ",BLSLNC," ",$G(^LAB(95.3,+BLSLNC,80)) Line Location: SHOWPRE+3
Function Call: WRITE	Prompt: !! Line Location: SHOWPRE+4
Function Call: WRITE	Prompt: !! Line Location: ENTERLNC+1
Routine Call	DIE Line Location: INDEX60+2 INDEX60+3
Routine Call	DIC Line Location: LOINC+2
Routine Call	DIR Line Location: CORRECT+3 TEST+5 SPEC1+17 CODE+7 CODE+14 MAP+4 SHOWPRE+7 ENTERLNC+9

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BLRUCUM - [#90475.3]	SPEC1+13, DISPL+16
^LAB(60 - [#60]	SPEC1+2, SPEC1+7, SPEC1+9, SPEC1+14, MAP+1
^LAB(61 - [#61]	SPEC1+12
^LAB(64.061 - [#64.061]	DISPL+9, DISPL+11, DISPL+12, DISPL+13
^LAB(64.2 - [#64.2]	DISPL+14
^LAB(95.3 - [#95.3]	DISPL+4, DISPL+6, MAP+1, SHOWPRE+3
^LAB(95.31 - [#95.31]	DISPL+10
^LAM - [#64]	SHOWPRE+1

Label References

Name	Line Occurrences
DISPL	ENTERLNC+12
ENTERLNC	START+6, CORRECT+7
EXIT	START+2, START+4, START+7, CORRECT+4, CORRECT+8, CORRECT+10
MAP	CORRECT+9
SPEC	START+3
START	START+4, START+7, CORRECT+4, CORRECT+8, CORRECT+11
TEST	START+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BLSC	SPEC1+7, SPEC1+8, SPEC1+9, SPEC1+12, SPEC1+17
BLSCODE	EXIT!, CODE+16, DISPL+3, DISPL+8, MAP+1, INDEX60+2, INDEX60+3, ENTERLNC+11
BLSDATA	EXIT!
BLSELEC	EXIT!
BLSEND	START+1, START+2, START+4, START+7, CORRECT+4, CORRECT+8, EXIT!, TEST+6, SPEC+1, SPEC1+18 , CODE+5, CODE+6, CODE+8, CODE+12, CODE+14!, CODE+15, MAP+5, MAP+6, ENTERLNC+1, ENTERLNC+10
BLSIEN	EXIT!, TEST+7*, SPEC+6, SPEC1+2, SPEC1+7, SPEC1+9, SPEC1+14, MAP+1, INDEX60+2, INDEX60+3 , INDEX60+8
BLSLNC	EXIT!, SHOWPRE+1*, SHOWPRE+3
BLSLNC0	EXIT!, DISPL+4*, DISPL+5
BLSLNC0(	DISPL+5*
BLSLNC0(10	DISPL+14
BLSLNC0(11	DISPL+9
BLSLNC0(14	DISPL+16
BLSLNC0(2	DISPL+10
BLSLNC0(6	DISPL+11
BLSLNC0(7	DISPL+12
BLSLNC0(8	DISPL+9
BLSLNC0(9	DISPL+13
BLSLOINC	EXIT!
BLSLOINC("DILIST"	CODE+1, CODE+5, CODE+9, CODE+12, CODE+16
BLSNAM	EXIT+1!, DISPL+6*, DISPL+8
BLSNLT	EXIT!, SHOWPRE+1
BLSNO	EXIT+1!, CODE+3*
>> BLSS	SPEC1+9*, SPEC1+12, SPEC1+13
BLSSPEC	EXIT!, SPEC1+19*, INDEX60+2, INDEX60+3, SHOWPRE+1
BLSSPECL	EXIT!
BLSSPECN	EXIT!
BLSSS	SPEC1+6!
BLSSS(	SPEC1+9*, SPEC1+19
BLSTEST	EXIT!, TEST+7*, LOINC+2
BLSTIME	EXIT!, SHOWPRE+1
BLSUNITS	EXIT!
>> BLSX	SPEC1+7*, SPEC1+9, SPEC1+14
DA	EXIT!, SPEC+6, SPEC1+17!, DISPL+3, DISPL+4, DISPL+6, INDEX60+2!, INDEX60+3!, INDEX60+8*
DA(1	INDEX60+2*
DD	EXIT+1!
DIC	EXIT!, SPEC+5!, SPEC+6, INDEX60+7!, INDEX60+8
DIE	EXIT!, INDEX60+2!, INDEX60+3!
DINUM	EXIT!
DIQ	SPEC+5!, INDEX60+7!
DIQ(0	SPEC+6, INDEX60+8
DIR	CORRECT+3!, EXIT!, TEST+1!, TEST+5!, SPEC1+16!, SPEC1+17!, CODE+14!, MAP+4!, SHOWPRE+7!, ENTERLNC+1! , ENTERLNC+9!
DIR("?"	CORRECT+2, TEST+4, MAP+3, SHOWPRE+6, ENTERLNC+2, ENTERLNC+3, ENTERLNC+6*
DIR("A"	CORRECT+1, TEST+3, SPEC1+17, CODE+13, MAP+2, SHOWPRE+5, ENTERLNC+1*
DIR("B"	CORRECT+1*
DIR(0	CORRECT+1, TEST+3, SPEC1+17, CODE+7, CODE+12, MAP+2, SHOWPRE+5, ENTERLNC+1
DIRUT	CORRECT+4, EXIT!, TEST+6!, SPEC1+18, CODE+8, CODE+10!, CODE+15, MAP+5
DLAYGO	EXIT+1!
DO	EXIT+1!
DR	EXIT!, SPEC+5!, INDEX60+2!, INDEX60+3!, INDEX60+7!
DTOUT	EXIT!, ENTERLNC+10!
DUOUT	CODE+8, CODE+10!, ENTERLNC+10!
I	EXIT!, CODE+4, CODE+5, CODE+6, CODE+9, CODE+12, DISPL+5*
IOF	DISPL+7
IOST	CODE+6
S	EXIT!
U	TEST+7, SPEC1+12, SPEC1+13, SPEC1+14, CODE+12, DISPL+5, DISPL+6, DISPL+9, DISPL+10, DISPL+11 , DISPL+12, DISPL+13, DISPL+14, DISPL+16, MAP+1, SHOWPRE+1
X	EXIT+1!
Y	CORRECT+7, EXIT!, TEST+6, TEST+7, SPEC1+19, CODE+16, MAP+6, INDEX60+5, ENTERLNC+10, ENTERLNC+11

Customize PDF page

Package: IHS Lab LOINC Surveillance

Routine: BLSMIT

Information

Source Information

Call Graph

Call Graph Total: 4

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: