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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: TIUMAP

Package: Text Integration Utility

Routine: TIUMAP


Information

TIUMAP ; ISL/JER - TIU/VHA Enterprise Document Type Ontology Mapper ; 04/18/07

Source Information

Source file <TIUMAP.m>

Entry Points

Name Comments DBIA/ICR reference
MAIN ; Main subroutine
PROGRESS(MAPPED,ACTIVE) ; Figure out progress
STOPS ; Get the stops
PAD(MESSAGE,SIDE) ; Compute pad for message
LOOP ; Loop sequentially through titles
SINGLES ; Map specific INDIVIDUAL titles
LTTL() ; Call DIC to look-up title
ACTCNT() ; Get count of active titles
MAPTCNT() ; Get count of mapped titles
ACTIVE(TIUDA) ; Is a given title active?
MAP(TIUDA,TIUNM) ; Map each LOCAL Title
LOINCNM(TIULDA) ; Resolve name of VHA Enterprise Title
POINT(DA,RESULT) ; Point the LOCAL Title entry in file #8925.1 at the VHA Enterprise Title

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!!?9,"****************************************************************"
  • Line Location: MAIN+13
Function Call: WRITE
  • Prompt: !?9,"*",$$PAD(SALUT,"L"),SALUT,$$PAD(SALUT,"R"),"*"
  • Line Location: MAIN+14
Function Call: WRITE
  • Prompt: !?9,"*",$$PAD(GREET,"L"),GREET,$$PAD(GREET,"R"),"*"
  • Line Location: MAIN+15
Function Call: WRITE
  • Prompt: !?9,"* *"
  • Line Location: MAIN+17
Function Call: WRITE
  • Prompt: !?9,"* This option will help you map your LOCAL TIU Titles to the *"
  • Line Location: MAIN+18
Function Call: WRITE
  • Prompt: !?9,"* VHA Enterprise Document Type Ontology which VA is helping to *"
  • Line Location: MAIN+19
Function Call: WRITE
  • Prompt: !?9,"* Develop as an International Normative Standard supporting *"
  • Line Location: MAIN+20
Function Call: WRITE
  • Prompt: !?9,"* interchange of Clinical Documents. *"
  • Line Location: MAIN+21
Function Call: WRITE
  • Prompt: !?9,"* *"
  • Line Location: MAIN+23
Function Call: WRITE
  • Prompt: !?9,"*",$$PAD(PROGRESS(0),"L"),PROGRESS(0),$$PAD(PROGRESS(0),"R"),"*"
  • Line Location: MAIN+24
Function Call: WRITE
  • Prompt: !?9,"*",$$PAD(PROGRESS(1),"L"),PROGRESS(1),$$PAD(PROGRESS(1),"R"),"*"
  • Line Location: MAIN+25
Function Call: WRITE
  • Prompt: !?9,"* *"
  • Line Location: MAIN+26
Function Call: WRITE
  • Prompt: !?9,"* In preparation for migration to the HDR, ALL LOCAL titles *"
  • Line Location: MAIN+27
Function Call: WRITE
  • Prompt: !?9,"* MUST be mapped to Standard Titles BEFORE transmittal of TIU *"
  • Line Location: MAIN+28
Function Call: WRITE
  • Prompt: !?9,"* Documents to the HDR can begin. *"
  • Line Location: MAIN+29
Function Call: WRITE
  • Prompt: !?9,"* *"
  • Line Location: MAIN+30
Function Call: WRITE
  • Prompt: !?9,"* You may quit mapping titles at any time, and continue your *"
  • Line Location: MAIN+31
Function Call: WRITE
  • Prompt: !?9,"* work from the last successfully mapped title. The only *"
  • Line Location: MAIN+32
Function Call: WRITE
  • Prompt: !?9,"* catch is that any ACTIVE LOCAL Titles that are not mapped *"
  • Line Location: MAIN+33
Function Call: WRITE
  • Prompt: !?9,"* when transmission to the HDR is initiated will be *"
  • Line Location: MAIN+34
Function Call: WRITE
  • Prompt: !?9,"* INACTIVATED, so please finish this process expeditiously... *"
  • Line Location: MAIN+35
Function Call: WRITE
  • Prompt: !?9,"****************************************************************",!
  • Line Location: MAIN+36
Function Call: WRITE
  • Prompt: !!?9,$C(7),"... Very well, no damage done!"
  • Line Location: MAIN+38
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: LOOP+1
Function Call: WRITE
  • Prompt: !,"For the LOCAL Title: ",TIUNM,!
  • Line Location: LOOP+13
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: SINGLES+1
Function Call: WRITE
  • Prompt: !!,"For the LOCAL Title: ",TIUNM,!
  • Line Location: SINGLES+8
Function Call: WRITE
  • Prompt: !,"Attempting to map ",TIUNM,!?2,"to a VHA Enterprise Standard Title...",!
  • Line Location: MAP+2
Function Call: WRITE
  • Prompt: !,$C(7),"Another user is mapping this title...",!
  • Line Location: MAP+6
Function Call: WRITE
  • Prompt: !?5,"The LOCAL Title: ",TIUNM,!?7,"is already mapped to",!,"VHA Enterprise Title: ",$$LOINCNM(+$G(^TIU(8925.1,+TIUDA,15))),!
  • Line Location: MAP+11
Function Call: WRITE
  • Prompt: $C(7),!,"... OK, No Harm Done!",!
  • Line Location: MAP+13
Function Call: WRITE
  • Prompt: !
  • Line Location: MAP+14
Function Call: WRITE
  • Prompt: !,"Found Exact Match with VHA Enterprise Standard Title: ",TIUNM,"."
  • Line Location: MAP+18
Function Call: WRITE
  • Prompt: !,"The corresponding VHA Enterprise Standard Title is INACTIVE."
  • Line Location: MAP+21
Function Call: WRITE
  • Prompt: !,"You'll need to map ",TIUNM," manually to a different title,",!," or inactivate the local title.",!
  • Line Location: MAP+22
Function Call: WRITE
  • Prompt: !!,"Attempting to map ",TIUNM," to a different title...",!
  • Line Location: MAP+26
Function Call: WRITE
  • Prompt: !?13,"Done.",!
  • Line Location: POINT+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^TIU(8925.1 - [#8925.1] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call