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

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!

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

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

Customize PDF page

Package: Text Integration Utility

Routine: TIUMAP

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items