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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All
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>

Call Graph

Call Graph Total: 9

Package Total Call Graph
Text Integration Utility 5 $$PERSNAME^TIULC1  $$NAME^TIULS  (CONFIRM,LOG,PARSE)^TIUMAP1  ($$PAGE,$$STRIP,INACT)^TIUMAP2  $$READ^TIUU  
VA Fileman 2 ^DIC  ^DIE  
Kernel 1 ($$FMADD,$$NOW)^XLFDT  
Toolkit 1 $$SCREEN^XTID  

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Text Integration Utility 4 TIU MAP ACTIVE LOCAL TITLES  TIU MAP SELECTED LOCAL TITLES  TIUMAP2  TIUMAPR  

Entry Points

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

External References

Name Field # of Occurrence
^DIC LTTL+4
^DIE POINT+2
$$PERSNAME^TIULC1 MAIN+6
$$NAME^TIULS MAIN+6
CONFIRM^TIUMAP1 MAP+28, MAP+33
LOG^TIUMAP1 MAP+29, MAP+34
PARSE^TIUMAP1 MAP+26, MAP+32
$$PAGE^TIUMAP2 SINGLES+8, MAP+2, MAP+18
$$STRIP^TIUMAP2 LOOP+10, SINGLES+7
INACT^TIUMAP2 MAP+25
$$READ^TIUU MAIN+37, LOOP+19, MAP+7, MAP+12, MAP+24
$$FMADD^XLFDT MAIN+3
$$NOW^XLFDT MAIN+3, POINT+1
$$SCREEN^XTID MAP+19

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
Routine Call
  • DIE
  • Line Location:
    • POINT+2
Routine Call
  • DIC
  • Line Location:
    • LTTL+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^TIU(8925.1 - [#8925.1] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TIU(8925.1 - [#8925.1] LOOP+3, LOOP+5, LOOP+6, LOOP+11, LOOP+15, SINGLES+4, ACTCNT+2, MAPTCNT+2, MAPTCNT+4, ACTIVE+1
, MAP+4, MAP+9, MAP+11, POINT+4
^TIU(8926.1 - [#8926.1] MAP+16, MAP+27, LOINCNM+1
^XTMP("TIUMAP" MAIN+3*, MAIN+7, MAIN+39*, LOOP+2, LOOP+20*, LOOP+21*, MAPTCNT+5, POINT+5!

Label References

Name Line Occurrences
$$ACTCNT MAIN+8
$$ACTIVE ACTCNT+2, MAPTCNT+4
$$LOINCNM MAP+11
$$LTTL SINGLES+2
$$MAPTCNT MAIN+8
$$PAD MAIN+14, MAIN+15, MAIN+24, MAIN+25
$$PROGRESS MAIN+10
LOOP MAIN+40
MAP LOOP+14, SINGLES+9
POINT MAP+35

Naked Globals

Name Field # of Occurrence
^("MAPCNT" MAPTCNT+5*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACTIVE PROGRESS~, PROGRESS+2
BR PROGRESS+1~, PROGRESS+2*
BRSIZE PROGRESS+1~, PROGRESS+2*
DA POINT~, POINT+4, POINT+5
DIC LTTL+1~, LTTL+2*
DIC("A" LTTL+2*
DIC("S" LTTL+3*, LTTL+4!
DIC(0 LTTL+2*
DIE POINT+1~*
>> DIROUT LOOP+3, SINGLES+2, LTTL+4*
DIRUT MAIN+2~, MAIN+37, LOOP+4~, LOOP+17, LOOP+18~, LOOP+19, SINGLES+3~, SINGLES+9, LTTL+4*, MAP+7
, MAP+9, MAP+17, MAP+24, MAP+29, MAP+31, MAP+33, MAP+34
DR POINT+1~*
DT MAIN+3
DTOUT MAIN+2~, LTTL+1~, LTTL+4
DUOUT MAIN+2~, LTTL+1~, LTTL+4
DUZ MAIN+6, MAIN+7, MAIN+39, POINT+1
GREET MAIN+2~, MAIN+12*, MAIN+15
IOF MAIN+13, LOOP+1, SINGLES+1
LEN PAD+1~, PAD+2*, PAD+3*, PAD+4
MAPPED PROGRESS~, PROGRESS+2
MESSAGE PAD~, PAD+2, PAD+3
PAD PAD+1~, PAD+4*, PAD+5
PROGRESS MAIN+2~
PROGRESS(0 MAIN+9*, MAIN+24
PROGRESS(1 MAIN+10*, MAIN+25
RESULT MAP+1~*, MAP+9, MAP+13*, MAP+16*, MAP+17, MAP+19, MAP+23*, MAP+26, MAP+27, MAP+28
, MAP+29, MAP+31, MAP+32, MAP+33, MAP+34, MAP+35, POINT~, POINT+1
RESULT(1 MAP+27*, POINT+5
SALUT MAIN+2~, MAIN+11*, MAIN+14
SIDE PAD~, PAD+3
TIUACT MAIN+1~, MAIN+8*, MAIN+9, MAIN+10, MAP+20~, MAP+24*, MAP+25, MAP+26
TIUBACK MAIN+1~
TIUD0 LOOP+4~, LOOP+6*, LOOP+9, LOOP+10, SINGLES+3~, SINGLES+4*, SINGLES+7
TIUDA LOOP+1~, LOOP+2*, LOOP+3*, LOOP+5, LOOP+6, LOOP+11, LOOP+14, LOOP+15, LOOP+20, SINGLES+1~
, SINGLES+2*, SINGLES+4, SINGLES+9, LTTL+1~, ACTIVE~, ACTIVE+1, MAP~, MAP+4, MAP+9, MAP+11
, MAP+25, MAP+29, MAP+34, MAP+35
TIUHOUR MAIN+1~, MAIN+4*, MAIN+5
TIUI PROGRESS+1~, ACTCNT+1~*, ACTCNT+2*, MAPTCNT+1~*, MAPTCNT+2*, MAPTCNT+4
TIUJ MAPTCNT+3~*, MAPTCNT+4*
TIULDA LOINCNM~, LOINCNM+1
TIULUSE MAIN+1~, MAIN+7*, MAIN+12, MAIN+16
TIUMAPT MAIN+1~, MAIN+8*, MAIN+9, MAIN+10, MAIN+22
TIUMODE MAIN+1~
TIUNM LOOP+4~, LOOP+10*, LOOP+13, LOOP+14, SINGLES+3~, SINGLES+7*, SINGLES+8, SINGLES+9, LTTL+1~, MAP~
, MAP+2, MAP+11, MAP+16, MAP+18, MAP+22, MAP+26, MAP+27, MAP+29, MAP+32, MAP+34
TIUNOW MAIN+1~, MAIN+3*, MAIN+4, MAIN+39
TIUOK MAIN+1~, MAIN+37*, MAIN+38
TIUOUT MAIN+2~*, LOOP+1~, LOOP+3, LOOP+16, LOOP+19*, SINGLES+1~, SINGLES+2, MAP+7*, MAP+24*, MAP+31
TIUT ACTCNT+1~*, ACTCNT+2*, ACTCNT+3
TIUTOD MAIN+1~, MAIN+5*, MAIN+11
TIUTYP LOOP+4~, LOOP+6*, LOOP+8, SINGLES+3~, SINGLES+4*, SINGLES+6
TIUY PROGRESS+1~*, PROGRESS+3*, PROGRESS+4, ACTCNT+1~*, ACTCNT+2*, ACTCNT+3, MAPTCNT+1~*, MAPTCNT+4*, MAPTCNT+5, MAPTCNT+6
, MAP+10~*, MAP+12*, MAP+13
TIUZR MAIN+1~, MAIN+6*, MAIN+11
U MAIN+3, LOOP+6, LOOP+9, LOOP+10, SINGLES+4, SINGLES+7, ACTCNT+3, ACTIVE+1, MAP+25, MAP+26
, MAP+27, LOINCNM+1, POINT+5
X LTTL+1~, LTTL+4
Y LTTL+1~, LTTL+5

Marked Items

Name Field # of Occurrence
$T(STOPS+BR PROGRESS+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All