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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: TIUMAP1

Package: Text Integration Utility

Routine: TIUMAP1


Information

TIUMAP1 ; ISL/JER - TIU/VHA Enterprise Document Type Ontology Mapper ;10/24/06 09:01

Source Information

Source file <TIUMAP1.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Text Integration Utility 2 $$PAGE^TIUMAP2  $$READ^TIUU  
VA Fileman 2 ^DIC  ^DIE  
Kernel 1 $$NOW^XLFDT  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Text Integration Utility 2 TIUMAP  TIUMAP2  

Entry Points

Name Comments DBIA/ICR reference
ASK(X,DIC) ; Call DIC to perform look-up
ROLE(RESULT,TIUWORD,TIUNM,TIUI) ; Is word a ROLE?
DTYP(RESULT,TIUWORD,TIUNM,TIUI) ; Is word a DOCUMENT TYPE?
CONFIRM(RESULT,DEFAULT) ; Show selected title to user, ask to confirm
LOG(TIULOCAL,DA) ; Log a mapping failure
PARSE(RESULT,TIUNM) ; Attempt to map each word to one of the LOINC axes - build parse tree
SET(RESULT,TIUWORD,TIUNM,TIUI) ; Is word a SETTING?
PLUCK(TIUNM,TIUWORD,TIUI) ; Pluck word from name
SVC(RESULT,TIUWORD,TIUNM,TIUI) ; Is word a SERVICE?
ANDTOOR(SCRN) ; Replaces AND operators with OR
SMD(RESULT,TIUWORD,TIUNM,TIUI) ; Is word a SMD?
EXPLAT() ; Random selector of explatives

External References

Name Field # of Occurrence
^DIC ASK+6
^DIE LOG+4
$$PAGE^TIUMAP2 PARSE+27, PARSE+28, PARSE+32, PARSE+36, PARSE+40, PARSE+44, PARSE+48, PARSE+49, PARSE+53, PARSE+59
, PARSE+60, PARSE+65, SMD+2, SMD+9, ROLE+2, ROLE+9, SET+2, SET+9, SVC+2, SVC+9
, DTYP+2, DTYP+9
$$READ^TIUU PARSE+67, CONFIRM+3, ASK+10
$$NOW^XLFDT LOG+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"No Document Type found...Setting Document Type to 'NOTE.'",!
  • Line Location: PARSE+26
Function Call: WRITE
  • Prompt: !,"Now, we'll query the VHA Enterprise Standard Titles for an entry with:",!
  • Line Location: PARSE+27
Function Call: WRITE
  • Prompt: !?12,"LOCAL Title: ",TIULOCAL
  • Line Location: PARSE+28
Function Call: WRITE
  • Prompt: !?2,"Subject Matter Domain: ",$P(SMD,U,2)
  • Line Location: PARSE+32
Function Call: WRITE
  • Prompt: !?19,"Role: ",$P(ROLE,U,2)
  • Line Location: PARSE+36
Function Call: WRITE
  • Prompt: !?16,"Setting: ",$P(SET,U,2)
  • Line Location: PARSE+40
Function Call: WRITE
  • Prompt: !?16,"Service: ",$P(SVC,U,2)
  • Line Location: PARSE+44
Function Call: WRITE
  • Prompt: !?10,"Document Type: ",$P(DTYP,U,2)
  • Line Location: PARSE+48
Function Call: WRITE
  • Prompt: !!,"First, we'll try an EXCLUSIVE match (i.e., ALL conditions met):"
  • Line Location: PARSE+49
Function Call: WRITE
  • Prompt: !!,"Since that failed, we'll try an INCLUSIVE match (i.e., ANY conditions met):"
  • Line Location: PARSE+53
Function Call: WRITE
  • Prompt: !!,$$EXPLAT," Let's try a manual look-up..."
  • Line Location: PARSE+59
Function Call: WRITE
  • Prompt: !,"Again, your LOCAL Title is: ",TIULOCAL,!!," NOTE: Only ACTIVE Titles may be selected...",!
  • Line Location: PARSE+60
Function Call: WRITE
  • Prompt: !!,"You didn't select a VHA Enterprise Standard Title...",!
  • Line Location: PARSE+66
Function Call: WRITE
  • Prompt: !
  • Line Location: PARSE+67
Function Call: WRITE
  • Prompt: !!,"Recording the unmapped LOCAL Title: ",TIULOCAL,!
  • Line Location: LOG+2
Function Call: WRITE
  • Prompt: !,"Is """,TIUWORD,""" a Subject Matter Domain? "
  • Line Location: SMD+2
Function Call: WRITE
  • Prompt: "No."
  • Line Location: SMD+8
Function Call: WRITE
  • Prompt: !,"Is """,TIUWORD,""" a SYNONYM for a Subject Matter Domain? "
  • Line Location: SMD+9
Function Call: WRITE
  • Prompt: "No.",!
  • Line Location: SMD+16
Function Call: WRITE
  • Prompt: !,"Is """,TIUWORD,""" a LOINC Role? "
  • Line Location: ROLE+2
Function Call: WRITE
  • Prompt: "No."
  • Line Location: ROLE+8
Function Call: WRITE
  • Prompt: !,"Is """,TIUWORD,""" a SYNONYM for a LOINC Role? "
  • Line Location: ROLE+9
Function Call: WRITE
  • Prompt: "No.",!
  • Line Location: ROLE+16
Function Call: WRITE
  • Prompt: !,"Is """,TIUWORD,""" a Setting? "
  • Line Location: SET+2
Function Call: WRITE
  • Prompt: "No."
  • Line Location: SET+8
Function Call: WRITE
  • Prompt: !,"Is """,TIUWORD,""" a SYNONYM for a Setting? "
  • Line Location: SET+9
Function Call: WRITE
  • Prompt: "No.",!
  • Line Location: SET+16
Function Call: WRITE
  • Prompt: !,"Is """,TIUWORD,""" a Service? "
  • Line Location: SVC+2
Function Call: WRITE
  • Prompt: "No."
  • Line Location: SVC+8
Function Call: WRITE
  • Prompt: !,"Is """,TIUWORD,""" a SYNONYM for a Service? "
  • Line Location: SVC+9
Function Call: WRITE
  • Prompt: "No.",!
  • Line Location: SVC+16
Function Call: WRITE
  • Prompt: !,"Is """,TIUWORD,""" a Document Type? "
  • Line Location: DTYP+2
Function Call: WRITE
  • Prompt: "No."
  • Line Location: DTYP+8
Function Call: WRITE
  • Prompt: !,"Is """,TIUWORD,""" a SYNONYM for a Document Type? "
  • Line Location: DTYP+9
Function Call: WRITE
  • Prompt: "No.",!
  • Line Location: DTYP+16
Function Call: WRITE
  • Prompt: !?5,"Ready to map LOCAL Title: ",$P(RESULT(1),U,3)," to",!,"VHA Enterprise Standard Title: ",$P(RESULT(1),U,2),"."
  • Line Location: CONFIRM+2
Function Call: WRITE
  • Prompt: !?4,"I found a match of: ",$P(Y,U,2)
  • Line Location: ASK+8
Function Call: WRITE
  • Prompt: !?(22-$L(TIUSNM)),TIUSNM,": ",$P($G(^TIU(TIUSYN,+$P(Y(0),U,2),0)),U)
  • Line Location: ASK+9
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+10
Routine Call
  • DIE
  • Line Location:
    • LOG+4
Routine Call
  • DIC
  • Line Location:
    • ASK+6

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TIU( ASK+9
^TIU(8925.1 - [#8925.1] LOG+6
^TIU(8926.2 - [#8926.2] SMD+13
^TIU(8926.3 - [#8926.3] ROLE+13
^TIU(8926.4 - [#8926.4] SET+13
^TIU(8926.5 - [#8926.5] SVC+13
^TIU(8926.6 - [#8926.6] PARSE+25, DTYP+13
^TIU(8926.72 - [#8926.72] SMD+12
^TIU(8926.73 - [#8926.73] ROLE+12
^TIU(8926.74 - [#8926.74] SET+12
^TIU(8926.75 - [#8926.75] SVC+12
^TIU(8926.76 - [#8926.76] DTYP+12
^TMP("TIUMAP" PARSE+2
^XTMP("TIUMAP" LOG+3*

Label References

Name Line Occurrences
$$ANDTOOR PARSE+54
$$ASK PARSE+51, PARSE+56, PARSE+64, SMD+3, SMD+10, ROLE+4, ROLE+10, SET+4, SET+10, SVC+4
, SVC+10, DTYP+4, DTYP+10
$$EXPLAT PARSE+59
DTYP PARSE+16
PLUCK SMD+5, SMD+15, ROLE+5, ROLE+15, SET+5, SET+15, SVC+5, SVC+15, DTYP+5, DTYP+15
ROLE PARSE+7
SET PARSE+10
SMD PARSE+4
SVC PARSE+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA LOG~, LOG+3, LOG+6
DEFAULT CONFIRM~, CONFIRM+3
DIC PARSE+19~, PARSE+50*, PARSE+51, PARSE+55*, PARSE+56, PARSE+62~*, PARSE+64, ASK~, ASK+2, ASK+3
DIC("A" PARSE+62*
DIC("S" PARSE+50*, PARSE+55*, PARSE+63*
DIC(0 PARSE+62*, ASK+4*, ASK+5*
DIE LOG+1~, LOG+4*
>> DIROUT ASK+6*
DIRUT PARSE+4, PARSE+5, PARSE+7, PARSE+8, PARSE+10, PARSE+11, PARSE+13, PARSE+14, PARSE+16, PARSE+17
, PARSE+51, PARSE+52, PARSE+57, PARSE+68, PARSE+69, SMD+3, SMD+7, SMD+10, ROLE+4, ROLE+7
, ROLE+10, SET+4, SET+7, SET+10, SVC+4, SVC+7, SVC+10, DTYP+4, DTYP+7, DTYP+10
, CONFIRM+1~, ASK+6*
DR LOG+1~, LOG+4*
DTOUT CONFIRM+1~, ASK+6
DTYP PARSE+19~, PARSE+24*, PARSE+25*, PARSE+45, PARSE+46, PARSE+47, PARSE+48
DUOUT CONFIRM+1~, ASK+6
DUZ LOG+4
EXP EXPLAT+1~*, EXPLAT+2
RESULT PARSE~, PARSE+70*, SMD~, SMD+5, SMD+14, ROLE~, ROLE+5, ROLE+14, SET~, SET+5
, SET+14, SVC~, SVC+5, SVC+14, DTYP~, DTYP+5, DTYP+14, CONFIRM~, CONFIRM+4*
RESULT(1 PARSE+70*, CONFIRM+2, CONFIRM+4!
ROLE PARSE+19~, PARSE+21*, PARSE+33, PARSE+34, PARSE+35, PARSE+36
SCRN PARSE+19~*, PARSE+30*, PARSE+34*, PARSE+38*, PARSE+42*, PARSE+46*, PARSE+50, PARSE+52, PARSE+54*, PARSE+55
, ANDTOOR~, ANDTOOR+1*, ANDTOOR+2
SET PARSE+19~, PARSE+22*, PARSE+37, PARSE+38, PARSE+39, PARSE+40
SMD PARSE+19~, PARSE+20*, PARSE+29, PARSE+30, PARSE+31, PARSE+32
SVC PARSE+19~, PARSE+23*, PARSE+41, PARSE+42, PARSE+43, PARSE+44
TIUCONT PARSE+58~*, PARSE+61, PARSE+64*, PARSE+65*, PARSE+67*
TIUI PARSE+1~, PARSE+4*, PARSE+7*, PARSE+10*, PARSE+13*, PARSE+16*, SMD~, SMD+5, SMD+15, ROLE~
, ROLE+5, ROLE+15, SET~, SET+5, SET+15, SVC~, SVC+5, SVC+15, DTYP~, DTYP+5
, DTYP+15, PLUCK~, PLUCK+1, PLUCK+2
TIULOCAL PARSE+1~*, PARSE+27, PARSE+28, PARSE+32, PARSE+36, PARSE+40, PARSE+44, PARSE+48, PARSE+49, PARSE+53
, PARSE+59, PARSE+60, PARSE+65, PARSE+67, PARSE+70, LOG~, LOG+2, LOG+3, SMD+2, SMD+9
, ROLE+2, ROLE+9, SET+2, SET+9, SVC+2, SVC+9, DTYP+2, DTYP+9
TIUNM PARSE~, PARSE+1, PARSE+4, PARSE+7, PARSE+10, PARSE+13, PARSE+16, SMD~, SMD+5, SMD+15
, ROLE~, ROLE+5, ROLE+15, SET~, SET+5, SET+15, SVC~, SVC+5, SVC+15, DTYP~
, DTYP+5, DTYP+15, PLUCK~, PLUCK+1, PLUCK+2*
TIUOUT PARSE+68*, PLUCK+1~*
TIUPTREE PARSE+1~, PARSE+2*, PARSE+4, PARSE+7, PARSE+10, PARSE+13, PARSE+16, PARSE+18, PARSE+20, PARSE+21
, PARSE+22, PARSE+23, PARSE+24
TIUSNM ASK+1~*, ASK+2*, ASK+9
TIUSYN ASK+1~, ASK+3*, ASK+5, ASK+9
TIUWORD PARSE+1~, PARSE+4*, PARSE+7*, PARSE+10*, PARSE+13*, PARSE+16*, SMD~, SMD+2, SMD+3, SMD+5
, SMD+9, SMD+10, SMD+15, ROLE~, ROLE+2, ROLE+4, ROLE+5, ROLE+9, ROLE+10, ROLE+15
, SET~, SET+2, SET+4, SET+5, SET+9, SET+10, SET+15, SVC~, SVC+2, SVC+4
, SVC+5, SVC+9, SVC+10, SVC+15, DTYP~, DTYP+2, DTYP+4, DTYP+5, DTYP+9, DTYP+10
, DTYP+15, PLUCK~, PLUCK+1
TIUY PARSE+1~*, PARSE+51*, PARSE+52, PARSE+56*, PARSE+57, PARSE+64*, PARSE+69, PARSE+70, SMD+1~*, SMD+3*
, SMD+5, SMD+10*, SMD+11, SMD+12*, SMD+13*, SMD+14, SMD+16, ROLE+1~*, ROLE+4*, ROLE+5
, ROLE+10*, ROLE+11, ROLE+12*, ROLE+13*, ROLE+14, ROLE+16, SET+1~*, SET+4*, SET+5, SET+10*
, SET+11, SET+12*, SET+13*, SET+14, SET+16, SVC+1~*, SVC+4*, SVC+5, SVC+10*, SVC+11
, SVC+12*, SVC+13*, SVC+14, SVC+16, DTYP+1~*, DTYP+4*, DTYP+5, DTYP+10*, DTYP+11, DTYP+12*
, DTYP+13*, DTYP+14, DTYP+16, CONFIRM+1~*, CONFIRM+3*, CONFIRM+4, ASK+1~*, ASK+10*, ASK+11
U PARSE+25, PARSE+31, PARSE+32, PARSE+35, PARSE+36, PARSE+39, PARSE+40, PARSE+43, PARSE+44, PARSE+47
, PARSE+48, PARSE+70, SMD+12, SMD+13, ROLE+12, ROLE+13, SET+12, SET+13, SVC+12, SVC+13
, DTYP+12, DTYP+13, CONFIRM+2, ASK+8, ASK+9
X PARSE+19~*, PARSE+31*, PARSE+35*, PARSE+39*, PARSE+43*, PARSE+47*, PARSE+51, PARSE+56, ASK~, ASK+6
Y ASK+1~, ASK+7, ASK+8, ASK+11*, ASK+12
Y(0 ASK+9
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All