Routine: TIUMAP2

Information

TIUMAP2 ; ISL/JER - TIU/VHA Enterprise Document Type Ontology Mapper ;10/20/06 09:28

Package	Total	Call Graph
Text Integration Utility	3	($$LOINCNM,POINT)^TIUMAP ($$ASK,CONFIRM,LOG)^TIUMAP1 $$READ^TIUU
VA Fileman	1	^DIE

Package	Total	Caller Graph
Text Integration Utility	6	TIUFHA3 TIUFLF1 TIUFLF6 TIUMAP TIUMAP1 TIUMAPR

Name	Comments	DBIA/ICR reference
DIRECT(TIUDA)	; Direct Title Mapping action
STRIP(TEXT)	; Remove punctuation & excess white space
INACT(TIUDA)	; Inactivate LOCAL title TIUDA
PAGE(TIULOCAL)	; Handle pagination

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: PAGE+4
Function Call: WRITE	Prompt: "Remember, your LOCAL title is: ",$G(TIULOCAL) Condition for execution: $G(TIULOCAL)]"" Line Location: PAGE+4
Function Call: WRITE	Prompt: !!,"Inactivating ",$P($G(^TIU(8925.1,TIUDA,0)),U) Line Location: INACT+2
Function Call: WRITE	Prompt: ".",! Line Location: INACT+3
Function Call: WRITE	Prompt: !,"You must specify a local title." Line Location: DIRECT+2
Function Call: WRITE	Prompt: !!,"Direct Mapping to Enterprise Standard Title..." Line Location: DIRECT+4
Function Call: WRITE	Prompt: !,"Your LOCAL Title is: ",TIULOCAL,!!," NOTE: Only ACTIVE Titles may be selected...",! Line Location: DIRECT+5
Function Call: WRITE	Prompt: !,$C(7),"Another user is mapping this title...",! Line Location: DIRECT+9
Function Call: WRITE	Prompt: !?5,"The LOCAL Title: ",TIULOCAL,!?7,"is already mapped to",!,"VHA Enterprise Title: ",$$LOINCNM^TIUMAP(+$G(^(15))),! Line Location: DIRECT+14
Function Call: WRITE	Prompt: $C(7),!,"... OK, No Harm Done!",! Line Location: DIRECT+16
Function Call: WRITE	Prompt: ! Line Location: DIRECT+17
Function Call: WRITE	Prompt: !!,"You didn't select a VHA Enterprise Standard Title...",! Line Location: DIRECT+22
Function Call: WRITE	Prompt: ! Line Location: DIRECT+23
Routine Call	DIE Line Location: INACT+3

Name	Line Occurrences (* Changed, ! Killed)
^TIU(8925.1 - [#8925.1]	INACT+2, DIRECT+3, DIRECT+7, DIRECT+12

Name	Field # of Occurrence
^(15	DIRECT+14

Name	Field # of Occurrence
DA	INACT+1~, INACT+3*
DIC	DIRECT+19~*, DIRECT+21
DIC("A"	DIRECT+19*
DIC("S"	DIRECT+20*
DIC(0	DIRECT+19*
DIE	INACT+1~, INACT+3*
>> DIRUT	PAGE+3, DIRECT+10, DIRECT+12, DIRECT+25, DIRECT+26, DIRECT+29
DR	INACT+1~, INACT+3*
IOF	PAGE+4
IOSL	PAGE+2
RESULT	DIRECT+1~, DIRECT+12, DIRECT+16, DIRECT+17, DIRECT+27*, DIRECT+28, DIRECT+29, DIRECT+30
RESULT(1	DIRECT+27*
TEXT	STRIP~, STRIP+3, STRIP+5, STRIP+7, STRIP+8*, STRIP+9
TIUCONT	DIRECT+1~, DIRECT+3, DIRECT+18, DIRECT+21, DIRECT+23*, DIRECT+24
TIUDA	INACT~, INACT+2, INACT+3, DIRECT~, DIRECT+2, DIRECT+3, DIRECT+7, DIRECT+12, DIRECT+24, DIRECT+29 , DIRECT+30
TIUFPRIV	INACT+1~*
TIULOCAL	PAGE~, PAGE+4, DIRECT+1~, DIRECT+3*, DIRECT+5, DIRECT+14, DIRECT+23, DIRECT+24, DIRECT+27, DIRECT+29
>> TIUOUT	PAGE+3, DIRECT+10, DIRECT+25*
TIUTI	STRIP+1~, STRIP+5, STRIP+7
TIUX	STRIP+1~, STRIP+7*, STRIP+8
TIUY	PAGE+1~, PAGE+2, PAGE+3, PAGE+4, PAGE+5, DIRECT+1~, DIRECT+13~, DIRECT+15, DIRECT+16, DIRECT+21* , DIRECT+26, DIRECT+27
U	INACT+2, DIRECT+3, DIRECT+27