Routine: TIUCCRHL7P1

Package	Total	Call Graph
Text Integration Utility	7	($$TIULKUP,ANAK,ERR)^TIUCCHL7UT CONTINUE^TIUCCRHL7P2 MESSAGE^TIUCCRHL7P3 ($$GETDATE,$$NOTENUM,WORD)^TIUCCRHL7P4 ($$COMPARE,$$LU,$$PNAME,$$REMESC,CLEAN)^TIUHL7U1 $$STRIP^TIUHL7U2 $$NOW^TIULC
Kernel	2	($$FMADD,$$NOW)^XLFDT ($$LOW,$$REPLACE,$$TRIM)^XLFSTR
VA FileMan	2	$$FIND1^DIC $$GET1^DIQ
Health Level Seven	1	($$FMNAME,$$UPPER)^HLFNC
Master Patient Index VistA	1	$$GETDFN^MPIF001

Package	Total	Caller Graph
Kernel	1	^ORD(101

Name	Comments	DBIA/ICR reference
PROCMSG	;
SPLIT(NODE,CNTR)	;
WORD	;

Name	Field # of Occurrence
$$FIND1^DIC	PROCMSG+105, PROCMSG+110
$$GET1^DIQ	PROCMSG+35, PROCMSG+63, PROCMSG+101, PROCMSG+102, PROCMSG+103, PROCMSG+106, PROCMSG+107, PROCMSG+108, PROCMSG+111, PROCMSG+112 , PROCMSG+113
$$FMNAME^HLFNC	PROCMSG+28
$$UPPER^HLFNC	PROCMSG+28, PROCMSG+41, PROCMSG+42, PROCMSG+61
$$GETDFN^MPIF001	PROCMSG+35
$$TIULKUP^TIUCCHL7UT	PROCMSG+125, WORD+6
ANAK^TIUCCHL7UT	PROCMSG+32, PROCMSG+37, PROCMSG+54, PROCMSG+58
ERR^TIUCCHL7UT	PROCMSG+24, PROCMSG+93, PROCMSG+95, PROCMSG+103, PROCMSG+108, PROCMSG+113, PROCMSG+115
CONTINUE^TIUCCRHL7P2	PROCMSG+127
MESSAGE^TIUCCRHL7P3	PROCMSG+32, PROCMSG+37, PROCMSG+54, PROCMSG+58
$$GETDATE^TIUCCRHL7P4	WORD+4
$$NOTENUM^TIUCCRHL7P4	WORD+5
WORD^TIUCCRHL7P4	PROCMSG+86
$$COMPARE^TIUHL7U1	PROCMSG+103, PROCMSG+108, PROCMSG+113
$$LU^TIUHL7U1	PROCMSG+47
$$PNAME^TIUHL7U1	PROCMSG+96, PROCMSG+101, PROCMSG+106, PROCMSG+111
$$REMESC^TIUHL7U1	PROCMSG+26, PROCMSG+28, PROCMSG+41, PROCMSG+42, PROCMSG+62, PROCMSG+65, PROCMSG+68
CLEAN^TIUHL7U1	PROCMSG+5
$$STRIP^TIUHL7U2	PROCMSG+68
$$NOW^TIULC	PROCMSG+52
$$FMADD^XLFDT	PROCMSG+11
$$NOW^XLFDT	PROCMSG+7
$$LOW^XLFSTR	PROCMSG+53
$$REPLACE^XLFSTR	PROCMSG+45, PROCMSG+74, PROCMSG+77, WORD+9, WORD+10, WORD+11, WORD+12, WORD+13, WORD+14, WORD+15 , WORD+16, WORD+17, WORD+18, WORD+19, WORD+20, WORD+21, WORD+22, WORD+23, WORD+26, WORD+27 , WORD+28, WORD+29, WORD+30, WORD+31, WORD+32, WORD+33, WORD+34, WORD+35, WORD+36, WORD+37 , WORD+38, WORD+39, WORD+40, WORD+42, WORD+43, WORD+44, WORD+45, WORD+46, WORD+47, WORD+48 , WORD+50, WORD+51, WORD+60
$$TRIM^XLFSTR	WORD+56, WORD+58

HL7 Protocol Name	Call Tags
TIU HSRM-VISTA MDM-T02 SUB	PROCMSG

FileNo	Call Tags
^DPT - [#2]	FIND1^DIC, GET1^DIQ
^VA(200 - [#200]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^VA(200 - [#200]	PROCMSG+57, PROCMSG+61
^XTMP("TIUHL7"	PROCMSG+11*

Name	Line Occurrences
SPLIT	PROCMSG+80
WORD	PROCMSG+85

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ADDENDUM	PROCMSG+2~, PROCMSG+3, PROCMSG+46, PROCMSG+85, PROCMSG+86, PROCMSG+118, WORD+3
CFNOTE	PROCMSG+2~, PROCMSG+82*
CNT	SPLIT+9, SPLIT+14, SPLIT+16, SPLIT+17!, WORD+1!, WORD+52*
CNTR	SPLIT~, SPLIT+2, SPLIT+5
CONSULTID	PROCMSG+1~, PROCMSG+2~, PROCMSG+26*, PROCMSG+32, PROCMSG+37, PROCMSG+54, PROCMSG+58, PROCMSG+125, WORD+6
DFN	PROCMSG+1~, PROCMSG+35, PROCMSG+117
DFN(	PROCMSG+100, PROCMSG+103, PROCMSG+105, PROCMSG+106, PROCMSG+107, PROCMSG+108, PROCMSG+110*, PROCMSG+111, PROCMSG+112, PROCMSG+113 , PROCMSG+115
DFN(1	PROCMSG+117
DUZ	PROCMSG+1~
>> HL("ECH"	PROCMSG+9
>> HL("FS"	PROCMSG+9
>> HL("MID"	PROCMSG+12
>> HLMTIENS	PROCMSG+11
>> HLNEXT	PROCMSG+14
>> HLNODE	PROCMSG+15
>> HLNODE(	PROCMSG+16, PROCMSG+17
>> HLQUIT	PROCMSG+14
I	SPLIT+6~, SPLIT+8, SPLIT+10, SPLIT+11, SPLIT+13, SPLIT+17!, WORD+1!, WORD+53, WORD+55, WORD+56 , WORD+58, WORD+59, WORD+60
I1	WORD+1!, WORD+52, WORD+56, WORD+58, WORD+59*, WORD+60
LASTLINES	WORD+60~*
LASTWORD	SPLIT+9, SPLIT+13, SPLIT+15, SPLIT+16, SPLIT+17!
LASTWORDS	WORD+1!, WORD+7*
LCNT	WORD+1!, WORD+52, WORD+54, WORD+55, WORD+56, WORD+58
LEN	SPLIT+6~, SPLIT+7, WORD+1!, WORD+52, WORD+53, WORD+60
LINE	SPLIT+4!
LINE(	SPLIT+14, SPLIT+16
LINES	WORD+1!
LINES("TEXT"	WORD+56, WORD+58, WORD+60*, WORD+61, WORD+62!
MSGID	PROCMSG+1~, PROCMSG+12*, PROCMSG+32, PROCMSG+37, PROCMSG+54, PROCMSG+58
MSGTEXT	PROCMSG+2~, PROCMSG+32, PROCMSG+37, PROCMSG+54, PROCMSG+58
N1	PROCMSG+119~*, PROCMSG+120, PROCMSG+121, PROCMSG+124
NODE	SPLIT~, SPLIT+1, SPLIT+3, SPLIT+5*, SPLIT+7, SPLIT+8, SPLIT+11, SPLIT+16
NOTEDATE	PROCMSG+1~, PROCMSG+78, PROCMSG+120, PROCMSG+125, WORD+4*, WORD+6
NOTENUM	PROCMSG+1~, PROCMSG+79, PROCMSG+121, PROCMSG+124, PROCMSG+125, WORD+5, WORD+6
ORIGSTAT	PROCMSG+2~
SEGS	SPLIT+6~, SPLIT+7*
SPEC	PROCMSG+73~, PROCMSG+74, PROCMSG+76~, PROCMSG+77
SPEC("'"	PROCMSG+73*
SPEC("""	PROCMSG+76*
STOP	PROCMSG+1~, PROCMSG+32, PROCMSG+33, PROCMSG+37, PROCMSG+38, PROCMSG+54, PROCMSG+55, PROCMSG+58, PROCMSG+59
T2	PROCMSG+45!, WORD+1!, WORD+8!, WORD+9, WORD+10!, WORD+11!, WORD+12!, WORD+13!, WORD+14!, WORD+15! , WORD+16!, WORD+17!, WORD+18!, WORD+19!, WORD+20!, WORD+21!, WORD+22!, WORD+23!, WORD+24!, WORD+26 , WORD+27!, WORD+28!, WORD+29!, WORD+30!, WORD+31!, WORD+32!, WORD+33!, WORD+34!, WORD+35!, WORD+36! , WORD+37!, WORD+38!, WORD+39!, WORD+40!, WORD+41!, WORD+42, WORD+43!, WORD+44!, WORD+45!, WORD+46! , WORD+47!, WORD+48!, WORD+49!, WORD+50, WORD+51!, WORD+60!
T2(	WORD+15, WORD+26, WORD+42, WORD+50, WORD+60*
T2(" Phone N	umber:" , WORD+40*
T2(" - "	PROCMSG+45*
T2("ADDITIONA	L NOTES:" , WORD+51*
T2("Appointme	nt Management:" , WORD+28*
T2("CCP Note	Create Date:" , WORD+10*
T2("CCPN Numb	er:" , WORD+11*
T2("Care Coor	dination Follow Up:" , WORD+27, dination Point of Contact:" , WORD+39
T2("Caregiver	's Alternate Phone Number:" , WORD+47, 's Primary Phone Number:" , WORD+46, 's Relationship to Veteran:" , WORD+45*
T2("Case Mana	gement:" , WORD+29*
T2("Chief Com	plaint: " , WORD+21*
T2("Continued	Stay Review:" , WORD+30*
T2("Discharge	Disposition:" , WORD+33, Planning:" , WORD+32
T2("Disease M	anagement:" , WORD+31*
T2("FACILITY	COMMUNITY CARE OFFICE CONTACT" , WORD+38*
T2("If no, pr	ovide the following:" , WORD+43*
T2("Level of	Care Coordination: " , WORD+23*
T2("Name of R	eferring VA Provider:" , WORD+16*
T2("PLAN:"	WORD+48*
T2("PROVIDER"	WORD+8*
T2("Patient A	dmitted (Yes/No): If yes, then please complete the Discharge Planning Addendum." , WORD+20*
T2("Provider	Contact: " , WORD+35*
T2("Referral	Number:" , WORD+18*
T2("Risks"	WORD+22*
T2("Selected	SEOC:" , WORD+17*
T2("Transfer:"	WORD+36*
T2("Unique Co	nsult ID:" , WORD+19*
T2("Veteran C	ontact: " , WORD+34*
T2("Veteran F	irst Name:" , WORD+13*
T2("Veteran H	andoff:" , WORD+37*
T2("Veteran L	ast Name:" , WORD+12*
T2("Veteran S	ocial:" , WORD+14*
T2("Veteran's	Caregiver Point of Contact:" , WORD+44*
T4	WORD+1!, WORD+24!, WORD+26, WORD+41!, WORD+42, WORD+49!*, WORD+50
T5	PROCMSG+73~, PROCMSG+74, PROCMSG+76~, PROCMSG+77, WORD+1!, WORD+25!*, WORD+26!
TEST1	WORD+1!, WORD+7*
TIU	PROCMSG+1~, PROCMSG+11*
TIU("AUDA"	PROCMSG+57*
TIU("AUIEN"	PROCMSG+57*, PROCMSG+58, PROCMSG+60, PROCMSG+61, PROCMSG+63
TIU("AUNAME"	PROCMSG+61, PROCMSG+62
TIU("AVAIL"	PROCMSG+49, PROCMSG+51
TIU("COMP"	PROCMSG+49, PROCMSG+51
TIU("CSIGNED"	PROCMSG+52*
TIU("DFN"	PROCMSG+30, PROCMSG+35, PROCMSG+37, PROCMSG+39, PROCMSG+92, PROCMSG+100, PROCMSG+101, PROCMSG+102, PROCMSG+103
TIU("EC"	PROCMSG+11*, PROCMSG+116
TIU("ELESIG"	PROCMSG+63*
TIU("ICN"	PROCMSG+30, PROCMSG+31, PROCMSG+32, PROCMSG+34, PROCMSG+35, PROCMSG+105, PROCMSG+108
TIU("PTNAME"	PROCMSG+28*, PROCMSG+93, PROCMSG+95, PROCMSG+96, PROCMSG+97, PROCMSG+103, PROCMSG+108, PROCMSG+113
TIU("SIGNED"	PROCMSG+52*
TIU("SSN"	PROCMSG+30, PROCMSG+35, PROCMSG+110, PROCMSG+113
TIU("SUB"	PROCMSG+65*
TIU("TDA"	PROCMSG+47*, PROCMSG+125, WORD+6
TIU("TITLE"	PROCMSG+41, PROCMSG+47
TIU("TITLEB"	PROCMSG+42, PROCMSG+44, PROCMSG+45, PROCMSG+46
TIU("VNUM"	PROCMSG+49
TIU("XTMP"	PROCMSG+20*
TIUCS	PROCMSG+2~, PROCMSG+28, PROCMSG+36, PROCMSG+65
TIUDA	PROCMSG+1~, PROCMSG+11*
TIUDPRM	PROCMSG+1~
TIUDT	PROCMSG+1~, PROCMSG+7*, PROCMSG+11
TIUELS	PROCMSG+1~
TIUEMAIL	PROCMSG+2~, PROCMSG+53*, PROCMSG+54, PROCMSG+56, PROCMSG+57, PROCMSG+58
TIUERR	PROCMSG+1~, PROCMSG+91~
TIUES	PROCMSG+2~
TIUFS	PROCMSG+2~, PROCMSG+9*, PROCMSG+24, PROCMSG+26, PROCMSG+28, PROCMSG+30, PROCMSG+41, PROCMSG+42, PROCMSG+53, PROCMSG+64 , PROCMSG+65, PROCMSG+66, PROCMSG+67
TIUI	PROCMSG+1~, PROCMSG+9, PROCMSG+14, PROCMSG+15, PROCMSG+17, PROCMSG+20, PROCMSG+22, PROCMSG+23, PROCMSG+24, PROCMSG+30* , PROCMSG+66, PROCMSG+67, PROCMSG+68, PROCMSG+91~, PROCMSG+115
TIUIEN	PROCMSG+1~, PROCMSG+125, WORD+6
TIUJ	PROCMSG+1~, PROCMSG+9, PROCMSG+15, PROCMSG+16, PROCMSG+17, PROCMSG+23, PROCMSG+24, PROCMSG+30, PROCMSG+31, PROCMSG+36 , PROCMSG+91~, PROCMSG+92, PROCMSG+94, PROCMSG+98, PROCMSG+100, PROCMSG+103, PROCMSG+105, PROCMSG+106, PROCMSG+107, PROCMSG+108 , PROCMSG+110, PROCMSG+111, PROCMSG+112, PROCMSG+113, PROCMSG+115*
TIUMSG	PROCMSG+1~, PROCMSG+19*
TIUMSG(	PROCMSG+20*
TIUN	PROCMSG+91~
TIUN("DFN"	PROCMSG+101, PROCMSG+102, PROCMSG+103
TIUN("ICN"	PROCMSG+106, PROCMSG+107, PROCMSG+108
TIUN("PT"	PROCMSG+96, PROCMSG+97, PROCMSG+103, PROCMSG+108, PROCMSG+113
TIUN("SSN"	PROCMSG+111, PROCMSG+112, PROCMSG+113
TIUNAME	PROCMSG+2~, PROCMSG+11, PROCMSG+15, PROCMSG+17, PROCMSG+19, PROCMSG+20, PROCMSG+22, PROCMSG+24, PROCMSG+26, PROCMSG+28 , PROCMSG+30, PROCMSG+41, PROCMSG+42, PROCMSG+53, PROCMSG+64, PROCMSG+65, PROCMSG+66, PROCMSG+67, PROCMSG+69, PROCMSG+70 , PROCMSG+71, PROCMSG+84
TIUOUT	PROCMSG+91~
TIUQUIT	PROCMSG+91~
TIURS	PROCMSG+2~, PROCMSG+30, PROCMSG+66, PROCMSG+67
TIUSS	PROCMSG+2~
TIUTMP	PROCMSG+2~, PROCMSG+36, PROCMSG+64, PROCMSG+65, PROCMSG+66, PROCMSG+67, PROCMSG+91~, PROCMSG+96*, PROCMSG+101, PROCMSG+106 , PROCMSG+111
TIUZ	PROCMSG+2~
TIUZ("TEXT"	PROCMSG+67, PROCMSG+68, PROCMSG+71, PROCMSG+72, PROCMSG+73, PROCMSG+74, PROCMSG+75, PROCMSG+76, PROCMSG+77, PROCMSG+78 , PROCMSG+79, PROCMSG+80, PROCMSG+82, PROCMSG+119, PROCMSG+120, PROCMSG+121, PROCMSG+124, SPLIT+14, SPLIT+16, WORD+2 , WORD+7, WORD+61
U	PROCMSG+6*, PROCMSG+11, PROCMSG+30, PROCMSG+31, PROCMSG+61
VNUM	PROCMSG+2~
WORDS	SPLIT+6~, SPLIT+8, SPLIT+10, SPLIT+15, SPLIT+16, WORD+1!, WORD+2, WORD+9, WORD+10, WORD+11* , WORD+12, WORD+13, WORD+14, WORD+15, WORD+16, WORD+17, WORD+18, WORD+19, WORD+20, WORD+21 , WORD+22, WORD+23, WORD+26, WORD+27, WORD+28, WORD+29, WORD+30, WORD+31, WORD+32, WORD+33 , WORD+34, WORD+35, WORD+36, WORD+37, WORD+38, WORD+39, WORD+40, WORD+42, WORD+43, WORD+44 , WORD+45, WORD+46, WORD+47, WORD+48, WORD+50, WORD+51, WORD+52, WORD+55, WORD+56, WORD+58 , WORD+60
WORDSLEN	WORD+1!, WORD+2*, WORD+7
X1X	PROCMSG+70~*, PROCMSG+71
XCNTX	PROCMSG+70~, PROCMSG+71, PROCMSG+72, PROCMSG+73, PROCMSG+74, PROCMSG+75, PROCMSG+76, PROCMSG+77, PROCMSG+78, PROCMSG+79 , PROCMSG+80, PROCMSG+82, PROCMSG+83, SPLIT+5, SPLIT+14, SPLIT+16*
XX	SPLIT+6~, SPLIT+9, SPLIT+11, SPLIT+12, SPLIT+14, WORD+1!, WORD+52, WORD+56, WORD+57, WORD+58 , WORD+60

Customize PDF page

Package: Text Integration Utility

Routine: TIUCCRHL7P1

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 1

Entry Points

External References

Used in HL7 Interface

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: