Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

Entry Points

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

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
Info |  Source |  Entry Points |  Interaction Calls