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+127, PROCMSG+132
$$GET1^DIQ	PROCMSG+46, PROCMSG+84, PROCMSG+123, PROCMSG+124, PROCMSG+125, PROCMSG+128, PROCMSG+129, PROCMSG+130, PROCMSG+133, PROCMSG+134 , PROCMSG+135
$$FMNAME^HLFNC	PROCMSG+38
$$UPPER^HLFNC	PROCMSG+38, PROCMSG+58, PROCMSG+59, PROCMSG+82
$$GETDFN^MPIF001	PROCMSG+46
$$TIULKUP^TIUCCHL7UT	PROCMSG+144, WORD+6
ANAK^TIUCCHL7UT	PROCMSG+43, PROCMSG+48, PROCMSG+75, PROCMSG+79
ERR^TIUCCHL7UT	PROCMSG+27, PROCMSG+115, PROCMSG+117, PROCMSG+125, PROCMSG+130, PROCMSG+135, PROCMSG+137
CONTINUE^TIUCCRHL7P2	PROCMSG+146
MESSAGE^TIUCCRHL7P3	PROCMSG+43, PROCMSG+48, PROCMSG+75, PROCMSG+79
$$GETDATE^TIUCCRHL7P4	WORD+4
$$NOTENUM^TIUCCRHL7P4	WORD+5
WORD^TIUCCRHL7P4	PROCMSG+107
$$COMPARE^TIUHL7U1	PROCMSG+125, PROCMSG+130, PROCMSG+135
$$LU^TIUHL7U1	PROCMSG+65
$$PNAME^TIUHL7U1	PROCMSG+118, PROCMSG+123, PROCMSG+128, PROCMSG+133
$$REMESC^TIUHL7U1	PROCMSG+29, PROCMSG+38, PROCMSG+58, PROCMSG+59, PROCMSG+83, PROCMSG+86, PROCMSG+89
CLEAN^TIUHL7U1	PROCMSG+6
$$STRIP^TIUHL7U2	PROCMSG+89
$$NOW^TIULC	PROCMSG+70
$$FMADD^XLFDT	PROCMSG+14
$$NOW^XLFDT	PROCMSG+9
$$LOW^XLFSTR	PROCMSG+74
$$REPLACE^XLFSTR	PROCMSG+62, PROCMSG+95, PROCMSG+98, WORD+11, WORD+13, WORD+14, WORD+18, WORD+19, WORD+20, WORD+21 , WORD+22, WORD+23, WORD+24, WORD+25, WORD+26, WORD+27, WORD+28, WORD+29, 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+49, WORD+50, WORD+51, WORD+52, WORD+53, WORD+54, WORD+55 , WORD+57, WORD+58, WORD+68
$$TRIM^XLFSTR	WORD+63, WORD+65

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+78, PROCMSG+82
^XTMP("TIUHL7"	PROCMSG+14*

Name	Line Occurrences
SPLIT	PROCMSG+101
WORD	PROCMSG+106

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

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

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: