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: TIUMAP2

Package: Text Integration Utility

Routine: TIUMAP2

Information

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

Source Information

Source file <TIUMAP2.m>

Entry Points

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

Interaction Calls

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

Info | Source | Entry Points | Interaction Calls