Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Used in HL7 Interface |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: TIUCCRHL7P1

Package: Text Integration Utility

Routine: TIUCCRHL7P1


Information

TIUCCRHL7P1 ; CCRA/PB - TIU CCRA HL7 Msg Processing; January 6, 2006

Source Information

Source file <TIUCCRHL7P1.m>

Call Graph

Call Graph

Call Graph Total: 13

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  

Entry Points

Name Comments DBIA/ICR reference
PROCMSG ;
WORD ;

External References

Name Field # of Occurrence
$$FIND1^DIC PROCMSG+109, PROCMSG+114
$$GET1^DIQ PROCMSG+45, PROCMSG+51, PROCMSG+81, PROCMSG+105, PROCMSG+106, PROCMSG+107, PROCMSG+110, PROCMSG+111, PROCMSG+112, PROCMSG+115
PROCMSG+116, PROCMSG+117
$$FMNAME^HLFNC PROCMSG+37
$$UPPER^HLFNC PROCMSG+37, PROCMSG+57, PROCMSG+58, PROCMSG+79
$$GETDFN^MPIF001 PROCMSG+45
$$TIULKUP^TIUCCHL7UT WORD+6
ANAK^TIUCCHL7UT PROCMSG+33, PROCMSG+42, PROCMSG+47, PROCMSG+53, PROCMSG+69, PROCMSG+72, PROCMSG+76
ERR^TIUCCHL7UT PROCMSG+27, PROCMSG+97, PROCMSG+99, PROCMSG+107, PROCMSG+112, PROCMSG+117, PROCMSG+119
CONTINUE^TIUCCRHL7P2 PROCMSG+123
MESSAGE^TIUCCRHL7P3 PROCMSG+33, PROCMSG+42, PROCMSG+47, PROCMSG+53, PROCMSG+69, PROCMSG+72, PROCMSG+76
$$GETDATE^TIUCCRHL7P4 WORD+4
$$NOTENUM^TIUCCRHL7P4 WORD+5
WORD^TIUCCRHL7P4 PROCMSG+89
$$COMPARE^TIUHL7U1 PROCMSG+107, PROCMSG+112, PROCMSG+117
$$LU^TIUHL7U1 PROCMSG+64
$$PNAME^TIUHL7U1 PROCMSG+100, PROCMSG+105, PROCMSG+110, PROCMSG+115
$$REMESC^TIUHL7U1 PROCMSG+29, PROCMSG+37, PROCMSG+57, PROCMSG+58, PROCMSG+80, PROCMSG+84, PROCMSG+87
CLEAN^TIUHL7U1 PROCMSG+6
$$STRIP^TIUHL7U2 PROCMSG+87
$$NOW^TIULC PROCMSG+67
$$FMADD^XLFDT PROCMSG+14
$$NOW^XLFDT PROCMSG+9
$$LOW^XLFSTR PROCMSG+71
$$REPLACE^XLFSTR PROCMSG+61, 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

Used in HL7 Interface

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

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^VA(200 - [#200] PROCMSG+75, PROCMSG+79
^XTMP("TIUHL7" PROCMSG+14*

Label References

Name Line Occurrences
WORD PROCMSG+88

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ADDENDUM PROCMSG+2~, PROCMSG+3*, PROCMSG+62*, PROCMSG+88, PROCMSG+89, WORD+3
CDFN PROCMSG+51~*, PROCMSG+55
CNT WORD+1!, WORD+59*
DFN PROCMSG+1~, PROCMSG+45*, PROCMSG+121*
DFN( PROCMSG+104*, PROCMSG+107, PROCMSG+109*, PROCMSG+110, PROCMSG+111, PROCMSG+112, PROCMSG+114*, PROCMSG+115, PROCMSG+116, PROCMSG+117
PROCMSG+119
DFN(1 PROCMSG+121
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 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~*
LASTWORDS WORD+1!, WORD+9*
LCNT WORD+1!, WORD+59*, WORD+61*, WORD+62, WORD+63*, WORD+65*
LEN WORD+1!, WORD+59*, WORD+60, WORD+68
LINES WORD+1!
LINES("TEXT" WORD+63*, WORD+65*, WORD+68*, WORD+69, WORD+70!
MSGID PROCMSG+1~, PROCMSG+15*, PROCMSG+33, PROCMSG+42, PROCMSG+47, PROCMSG+53, PROCMSG+69, PROCMSG+72, PROCMSG+76
MSGTEXT PROCMSG+2~, PROCMSG+33*, PROCMSG+42*, PROCMSG+47*, PROCMSG+52*, PROCMSG+53, PROCMSG+69*, PROCMSG+72*, PROCMSG+76*
>> NOTEDATE WORD+4*, WORD+6
>> NOTENUM WORD+5*, WORD+6
STOP PROCMSG+1~, PROCMSG+31*, PROCMSG+33*, PROCMSG+34, PROCMSG+42*, PROCMSG+43, PROCMSG+47*, PROCMSG+48, PROCMSG+52*, PROCMSG+54
PROCMSG+69*, PROCMSG+70, PROCMSG+72*, PROCMSG+73, PROCMSG+76*, PROCMSG+77
T2 PROCMSG+61!, 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+61*
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 WORD+1!, WORD+31!*, WORD+32!
TEST1 WORD+1!, WORD+9*
TIU PROCMSG+1~, PROCMSG+14*
TIU("AUDA" PROCMSG+75*
TIU("AUIEN" PROCMSG+75*, PROCMSG+76, PROCMSG+78, PROCMSG+79, PROCMSG+81
TIU("AUNAME" PROCMSG+79*, PROCMSG+80*
TIU("AVAIL" PROCMSG+66*
TIU("COMP" PROCMSG+66*
TIU("CSIGNED" PROCMSG+67*
TIU("DFN" PROCMSG+40*, PROCMSG+45*, PROCMSG+47, PROCMSG+49, PROCMSG+51, PROCMSG+55, PROCMSG+96, PROCMSG+104, PROCMSG+105, PROCMSG+106
PROCMSG+107
TIU("EC" PROCMSG+14*, PROCMSG+120
TIU("ELESIG" PROCMSG+81*
TIU("ICN" PROCMSG+40*, PROCMSG+41*, PROCMSG+42, PROCMSG+44, PROCMSG+45, PROCMSG+109, PROCMSG+112
TIU("PTNAME" PROCMSG+37*, PROCMSG+52, PROCMSG+97, PROCMSG+99, PROCMSG+100, PROCMSG+101, PROCMSG+107, PROCMSG+112, PROCMSG+117
TIU("SIGNED" PROCMSG+67*
TIU("SSN" PROCMSG+40*, PROCMSG+45*, PROCMSG+114, PROCMSG+117
TIU("SUB" PROCMSG+84*
TIU("TDA" PROCMSG+64*
TIU("TITLE" PROCMSG+57*, PROCMSG+64*, WORD+6
TIU("TITLEB" PROCMSG+58*, PROCMSG+60, PROCMSG+61*, PROCMSG+62
TIU("VNUM" PROCMSG+29*, PROCMSG+30*, PROCMSG+66
TIU("XTMP" PROCMSG+23*
TIUCS PROCMSG+2~, PROCMSG+37, PROCMSG+46, PROCMSG+84
TIUDA PROCMSG+1~, PROCMSG+14*
TIUDPRM PROCMSG+1~
TIUDT PROCMSG+1~, PROCMSG+9*, PROCMSG+14
TIUELS PROCMSG+1~
TIUEMAIL PROCMSG+2~, PROCMSG+71*, PROCMSG+72, PROCMSG+74, PROCMSG+75, PROCMSG+76
TIUERR PROCMSG+1~, PROCMSG+95~
TIUES PROCMSG+2~
TIUFS PROCMSG+2~, PROCMSG+12*, PROCMSG+27, PROCMSG+29, PROCMSG+37, PROCMSG+40, PROCMSG+57, PROCMSG+58, PROCMSG+71, PROCMSG+83
PROCMSG+84, PROCMSG+85, PROCMSG+86
TIUI PROCMSG+1~, PROCMSG+12*, PROCMSG+17*, PROCMSG+18, PROCMSG+20, PROCMSG+23*, PROCMSG+25*, PROCMSG+26, PROCMSG+27, PROCMSG+40*
PROCMSG+85*, PROCMSG+86, PROCMSG+87, PROCMSG+95~, PROCMSG+119*
>> TIUIEN WORD+6*
TIUJ PROCMSG+1~, PROCMSG+12*, PROCMSG+18*, PROCMSG+19*, PROCMSG+20, PROCMSG+26*, PROCMSG+27, PROCMSG+40*, PROCMSG+41, PROCMSG+46
PROCMSG+95~, PROCMSG+96*, PROCMSG+98, PROCMSG+102*, PROCMSG+104*, PROCMSG+107, PROCMSG+109*, PROCMSG+110, PROCMSG+111, PROCMSG+112
PROCMSG+114*, PROCMSG+115, PROCMSG+116, PROCMSG+117, PROCMSG+119*
TIUMSG PROCMSG+1~, PROCMSG+22*
TIUMSG( PROCMSG+23*
TIUN PROCMSG+95~
TIUN("DFN" PROCMSG+105*, PROCMSG+106*, PROCMSG+107
TIUN("ICN" PROCMSG+110*, PROCMSG+111*, PROCMSG+112
TIUN("PT" PROCMSG+100*, PROCMSG+101*, PROCMSG+107, PROCMSG+112, PROCMSG+117
TIUN("SSN" PROCMSG+115*, PROCMSG+116*, PROCMSG+117
TIUNAME PROCMSG+2~, PROCMSG+14*, PROCMSG+18, PROCMSG+20, PROCMSG+22, PROCMSG+23*, PROCMSG+25, PROCMSG+27, PROCMSG+29, PROCMSG+37
PROCMSG+40, PROCMSG+57, PROCMSG+58, PROCMSG+71, PROCMSG+83, PROCMSG+84, PROCMSG+85, PROCMSG+86
TIUOUT PROCMSG+95~
TIUQUIT PROCMSG+95~
TIURS PROCMSG+2~, PROCMSG+40, PROCMSG+85, PROCMSG+86
TIUSS PROCMSG+2~
TIUTMP PROCMSG+2~, PROCMSG+46*, PROCMSG+83*, PROCMSG+84, PROCMSG+85, PROCMSG+86, PROCMSG+95~, PROCMSG+100*, PROCMSG+105, PROCMSG+110
PROCMSG+115
TIUZ PROCMSG+2~
TIUZ("TEXT" PROCMSG+86*, PROCMSG+87*, WORD+2, WORD+9, WORD+69*
U PROCMSG+8*, PROCMSG+14, PROCMSG+40, PROCMSG+41, PROCMSG+79
VNUM PROCMSG+2~, PROCMSG+30*, PROCMSG+32, PROCMSG+33, PROCMSG+35, PROCMSG+42, PROCMSG+47, PROCMSG+51, PROCMSG+53, PROCMSG+68
PROCMSG+69, PROCMSG+72, PROCMSG+76, WORD+6
WORDS 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
XX WORD+1!, WORD+59*, WORD+63*, WORD+64, WORD+65*, WORD+68
Info |  Source |  Call Graph |  Entry Points |  External References |  Used in HL7 Interface |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All