Routine: TIUMAP1

Package	Total	Call Graph
Text Integration Utility	2	$$PAGE^TIUMAP2 $$READ^TIUU
VA Fileman	2	^DIC ^DIE
Kernel	1	$$NOW^XLFDT

Package	Total	Caller Graph
Text Integration Utility	2	TIUMAP TIUMAP2

Entry Points

Name	Comments	DBIA/ICR reference
ASK(X,DIC)	; Call DIC to perform look-up
ROLE(RESULT,TIUWORD,TIUNM,TIUI)	; Is word a ROLE?
DTYP(RESULT,TIUWORD,TIUNM,TIUI)	; Is word a DOCUMENT TYPE?
CONFIRM(RESULT,DEFAULT)	; Show selected title to user, ask to confirm
LOG(TIULOCAL,DA)	; Log a mapping failure
PARSE(RESULT,TIUNM)	; Attempt to map each word to one of the LOINC axes - build parse tree
SET(RESULT,TIUWORD,TIUNM,TIUI)	; Is word a SETTING?
PLUCK(TIUNM,TIUWORD,TIUI)	; Pluck word from name
SVC(RESULT,TIUWORD,TIUNM,TIUI)	; Is word a SERVICE?
ANDTOOR(SCRN)	; Replaces AND operators with OR
SMD(RESULT,TIUWORD,TIUNM,TIUI)	; Is word a SMD?
EXPLAT()	; Random selector of explatives

External References

Name	Field # of Occurrence
^DIC	ASK+6
^DIE	LOG+4
$$PAGE^TIUMAP2	PARSE+27, PARSE+28, PARSE+32, PARSE+36, PARSE+40, PARSE+44, PARSE+48, PARSE+49, PARSE+53, PARSE+59 , PARSE+60, PARSE+65, SMD+2, SMD+9, ROLE+2, ROLE+9, SET+2, SET+9, SVC+2, SVC+9 , DTYP+2, DTYP+9
$$READ^TIUU	PARSE+67, CONFIRM+3, ASK+10
$$NOW^XLFDT	LOG+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"No Document Type found...Setting Document Type to 'NOTE.'",! Line Location: PARSE+26
Function Call: WRITE	Prompt: !,"Now, we'll query the VHA Enterprise Standard Titles for an entry with:",! Line Location: PARSE+27
Function Call: WRITE	Prompt: !?12,"LOCAL Title: ",TIULOCAL Line Location: PARSE+28
Function Call: WRITE	Prompt: !?2,"Subject Matter Domain: ",$P(SMD,U,2) Line Location: PARSE+32
Function Call: WRITE	Prompt: !?19,"Role: ",$P(ROLE,U,2) Line Location: PARSE+36
Function Call: WRITE	Prompt: !?16,"Setting: ",$P(SET,U,2) Line Location: PARSE+40
Function Call: WRITE	Prompt: !?16,"Service: ",$P(SVC,U,2) Line Location: PARSE+44
Function Call: WRITE	Prompt: !?10,"Document Type: ",$P(DTYP,U,2) Line Location: PARSE+48
Function Call: WRITE	Prompt: !!,"First, we'll try an EXCLUSIVE match (i.e., ALL conditions met):" Line Location: PARSE+49
Function Call: WRITE	Prompt: !!,"Since that failed, we'll try an INCLUSIVE match (i.e., ANY conditions met):" Line Location: PARSE+53
Function Call: WRITE	Prompt: !!,$$EXPLAT," Let's try a manual look-up..." Line Location: PARSE+59
Function Call: WRITE	Prompt: !,"Again, your LOCAL Title is: ",TIULOCAL,!!," NOTE: Only ACTIVE Titles may be selected...",! Line Location: PARSE+60
Function Call: WRITE	Prompt: !!,"You didn't select a VHA Enterprise Standard Title...",! Line Location: PARSE+66
Function Call: WRITE	Prompt: ! Line Location: PARSE+67
Function Call: WRITE	Prompt: !!,"Recording the unmapped LOCAL Title: ",TIULOCAL,! Line Location: LOG+2
Function Call: WRITE	Prompt: !,"Is """,TIUWORD,""" a Subject Matter Domain? " Line Location: SMD+2
Function Call: WRITE	Prompt: "No." Line Location: SMD+8
Function Call: WRITE	Prompt: !,"Is """,TIUWORD,""" a SYNONYM for a Subject Matter Domain? " Line Location: SMD+9
Function Call: WRITE	Prompt: "No.",! Line Location: SMD+16
Function Call: WRITE	Prompt: !,"Is """,TIUWORD,""" a LOINC Role? " Line Location: ROLE+2
Function Call: WRITE	Prompt: "No." Line Location: ROLE+8
Function Call: WRITE	Prompt: !,"Is """,TIUWORD,""" a SYNONYM for a LOINC Role? " Line Location: ROLE+9
Function Call: WRITE	Prompt: "No.",! Line Location: ROLE+16
Function Call: WRITE	Prompt: !,"Is """,TIUWORD,""" a Setting? " Line Location: SET+2
Function Call: WRITE	Prompt: "No." Line Location: SET+8
Function Call: WRITE	Prompt: !,"Is """,TIUWORD,""" a SYNONYM for a Setting? " Line Location: SET+9
Function Call: WRITE	Prompt: "No.",! Line Location: SET+16
Function Call: WRITE	Prompt: !,"Is """,TIUWORD,""" a Service? " Line Location: SVC+2
Function Call: WRITE	Prompt: "No." Line Location: SVC+8
Function Call: WRITE	Prompt: !,"Is """,TIUWORD,""" a SYNONYM for a Service? " Line Location: SVC+9
Function Call: WRITE	Prompt: "No.",! Line Location: SVC+16
Function Call: WRITE	Prompt: !,"Is """,TIUWORD,""" a Document Type? " Line Location: DTYP+2
Function Call: WRITE	Prompt: "No." Line Location: DTYP+8
Function Call: WRITE	Prompt: !,"Is """,TIUWORD,""" a SYNONYM for a Document Type? " Line Location: DTYP+9
Function Call: WRITE	Prompt: "No.",! Line Location: DTYP+16
Function Call: WRITE	Prompt: !?5,"Ready to map LOCAL Title: ",$P(RESULT(1),U,3)," to",!,"VHA Enterprise Standard Title: ",$P(RESULT(1),U,2),"." Line Location: CONFIRM+2
Function Call: WRITE	Prompt: !?4,"I found a match of: ",$P(Y,U,2) Line Location: ASK+8
Function Call: WRITE	Prompt: !?(22-$L(TIUSNM)),TIUSNM,": ",$P($G(^TIU(TIUSYN,+$P(Y(0),U,2),0)),U) Line Location: ASK+9
Function Call: WRITE	Prompt: ! Line Location: ASK+10
Routine Call	DIE Line Location: LOG+4
Routine Call	DIC Line Location: ASK+6

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^TIU(	ASK+9
^TIU(8925.1 - [#8925.1]	LOG+6
^TIU(8926.2 - [#8926.2]	SMD+13
^TIU(8926.3 - [#8926.3]	ROLE+13
^TIU(8926.4 - [#8926.4]	SET+13
^TIU(8926.5 - [#8926.5]	SVC+13
^TIU(8926.6 - [#8926.6]	PARSE+25, DTYP+13
^TIU(8926.72 - [#8926.72]	SMD+12
^TIU(8926.73 - [#8926.73]	ROLE+12
^TIU(8926.74 - [#8926.74]	SET+12
^TIU(8926.75 - [#8926.75]	SVC+12
^TIU(8926.76 - [#8926.76]	DTYP+12
^TMP("TIUMAP"	PARSE+2
^XTMP("TIUMAP"	LOG+3*

Label References

Name	Line Occurrences
$$ANDTOOR	PARSE+54
$$ASK	PARSE+51, PARSE+56, PARSE+64, SMD+3, SMD+10, ROLE+4, ROLE+10, SET+4, SET+10, SVC+4 , SVC+10, DTYP+4, DTYP+10
$$EXPLAT	PARSE+59
DTYP	PARSE+16
PLUCK	SMD+5, SMD+15, ROLE+5, ROLE+15, SET+5, SET+15, SVC+5, SVC+15, DTYP+5, DTYP+15
ROLE	PARSE+7
SET	PARSE+10
SMD	PARSE+4
SVC	PARSE+13

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	LOG~, LOG+3, LOG+6
DEFAULT	CONFIRM~, CONFIRM+3
DIC	PARSE+19~, PARSE+50, PARSE+51, PARSE+55, PARSE+56, PARSE+62~*, PARSE+64, ASK~, ASK+2, ASK+3
DIC("A"	PARSE+62*
DIC("S"	PARSE+50, PARSE+55, PARSE+63*
DIC(0	PARSE+62, ASK+4, ASK+5*
DIE	LOG+1~, LOG+4*
>> DIROUT	ASK+6*
DIRUT	PARSE+4, PARSE+5, PARSE+7, PARSE+8, PARSE+10, PARSE+11, PARSE+13, PARSE+14, PARSE+16, PARSE+17 , PARSE+51, PARSE+52, PARSE+57, PARSE+68, PARSE+69, SMD+3, SMD+7, SMD+10, ROLE+4, ROLE+7 , ROLE+10, SET+4, SET+7, SET+10, SVC+4, SVC+7, SVC+10, DTYP+4, DTYP+7, DTYP+10 , CONFIRM+1~, ASK+6*
DR	LOG+1~, LOG+4*
DTOUT	CONFIRM+1~, ASK+6
DTYP	PARSE+19~, PARSE+24, PARSE+25, PARSE+45, PARSE+46, PARSE+47, PARSE+48
DUOUT	CONFIRM+1~, ASK+6
DUZ	LOG+4
EXP	EXPLAT+1~*, EXPLAT+2
RESULT	PARSE~, PARSE+70, SMD~, SMD+5, SMD+14, ROLE~, ROLE+5, ROLE+14, SET~, SET+5 , SET+14, SVC~, SVC+5, SVC+14, DTYP~, DTYP+5, DTYP+14, CONFIRM~, CONFIRM+4
RESULT(1	PARSE+70*, CONFIRM+2, CONFIRM+4!
ROLE	PARSE+19~, PARSE+21*, PARSE+33, PARSE+34, PARSE+35, PARSE+36
SCRN	PARSE+19~, PARSE+30, PARSE+34, PARSE+38, PARSE+42, PARSE+46, PARSE+50, PARSE+52, PARSE+54, PARSE+55 , ANDTOOR~, ANDTOOR+1, ANDTOOR+2
SET	PARSE+19~, PARSE+22*, PARSE+37, PARSE+38, PARSE+39, PARSE+40
SMD	PARSE+19~, PARSE+20*, PARSE+29, PARSE+30, PARSE+31, PARSE+32
SVC	PARSE+19~, PARSE+23*, PARSE+41, PARSE+42, PARSE+43, PARSE+44
TIUCONT	PARSE+58~, PARSE+61, PARSE+64, PARSE+65, PARSE+67
TIUI	PARSE+1~, PARSE+4, PARSE+7, PARSE+10, PARSE+13, PARSE+16*, SMD~, SMD+5, SMD+15, ROLE~ , ROLE+5, ROLE+15, SET~, SET+5, SET+15, SVC~, SVC+5, SVC+15, DTYP~, DTYP+5 , DTYP+15, PLUCK~, PLUCK+1, PLUCK+2
TIULOCAL	PARSE+1~*, PARSE+27, PARSE+28, PARSE+32, PARSE+36, PARSE+40, PARSE+44, PARSE+48, PARSE+49, PARSE+53 , PARSE+59, PARSE+60, PARSE+65, PARSE+67, PARSE+70, LOG~, LOG+2, LOG+3, SMD+2, SMD+9 , ROLE+2, ROLE+9, SET+2, SET+9, SVC+2, SVC+9, DTYP+2, DTYP+9
TIUNM	PARSE~, PARSE+1, PARSE+4, PARSE+7, PARSE+10, PARSE+13, PARSE+16, SMD~, SMD+5, SMD+15 , ROLE~, ROLE+5, ROLE+15, SET~, SET+5, SET+15, SVC~, SVC+5, SVC+15, DTYP~ , DTYP+5, DTYP+15, PLUCK~, PLUCK+1, PLUCK+2*
TIUOUT	PARSE+68, PLUCK+1~
TIUPTREE	PARSE+1~, PARSE+2*, PARSE+4, PARSE+7, PARSE+10, PARSE+13, PARSE+16, PARSE+18, PARSE+20, PARSE+21 , PARSE+22, PARSE+23, PARSE+24
TIUSNM	ASK+1~, ASK+2, ASK+9
TIUSYN	ASK+1~, ASK+3*, ASK+5, ASK+9
TIUWORD	PARSE+1~, PARSE+4, PARSE+7, PARSE+10, PARSE+13, PARSE+16*, SMD~, SMD+2, SMD+3, SMD+5 , SMD+9, SMD+10, SMD+15, ROLE~, ROLE+2, ROLE+4, ROLE+5, ROLE+9, ROLE+10, ROLE+15 , SET~, SET+2, SET+4, SET+5, SET+9, SET+10, SET+15, SVC~, SVC+2, SVC+4 , SVC+5, SVC+9, SVC+10, SVC+15, DTYP~, DTYP+2, DTYP+4, DTYP+5, DTYP+9, DTYP+10 , DTYP+15, PLUCK~, PLUCK+1
TIUY	PARSE+1~, PARSE+51, PARSE+52, PARSE+56, PARSE+57, PARSE+64, PARSE+69, PARSE+70, SMD+1~, SMD+3 , SMD+5, SMD+10, SMD+11, SMD+12, SMD+13, SMD+14, SMD+16, ROLE+1~, ROLE+4, ROLE+5 , ROLE+10, ROLE+11, ROLE+12, ROLE+13, ROLE+14, ROLE+16, SET+1~, SET+4, SET+5, SET+10* , SET+11, SET+12, SET+13, SET+14, SET+16, SVC+1~, SVC+4, SVC+5, SVC+10, SVC+11 , SVC+12, SVC+13, SVC+14, SVC+16, DTYP+1~, DTYP+4, DTYP+5, DTYP+10, DTYP+11, DTYP+12* , DTYP+13, DTYP+14, DTYP+16, CONFIRM+1~, CONFIRM+3, CONFIRM+4, ASK+1~, ASK+10*, ASK+11
U	PARSE+25, PARSE+31, PARSE+32, PARSE+35, PARSE+36, PARSE+39, PARSE+40, PARSE+43, PARSE+44, PARSE+47 , PARSE+48, PARSE+70, SMD+12, SMD+13, ROLE+12, ROLE+13, SET+12, SET+13, SVC+12, SVC+13 , DTYP+12, DTYP+13, CONFIRM+2, ASK+8, ASK+9
X	PARSE+19~, PARSE+31, PARSE+35, PARSE+39, PARSE+43, PARSE+47, PARSE+51, PARSE+56, ASK~, ASK+6
Y	ASK+1~, ASK+7, ASK+8, ASK+11*, ASK+12
Y(0	ASK+9

Customize PDF page

Package: Text Integration Utility

Routine: TIUMAP1

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: