Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: BLSMIT

Package: IHS Lab LOINC Surveillance

Routine: BLSMIT


Information

BLSMIT ;IHS/CMI/LAB - map individual test; [ SEP 10, 2010 6:48 AM ]

Source Information

Source file <BLSMIT.m>

Call Graph

Call Graph Total: 4

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
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All