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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: SDTMPHLA

Package: Scheduling

Routine: SDTMPHLA


Information

SDTMPHLA ;MS/PB - TMP HL7 Routine;May 29, 2018

Source Information

Source file <SDTMPHLA.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Health Level Seven 3 ($$ADDSEG,$$NEWMSG,SET)^HLOAPI  $$SENDONE^HLOAPI1  (SETAD,SETCE,SETDT,SETXPN)^HLOAPI4  
Kernel 3 ($$FMADD,$$FMTHL7)^XLFDT  STDNAME^XLFNAME  $$KSP^XUPARAM  
VA FileMan 3 UPDATE^DIE  $$GET1^DIQ  ^DIR  
Master Patient Index VistA 1 $$GETICN^MPIF001  
Registration 1 (ADD,DEM)^VADPT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Scheduling 3 SD EDIT TELE HEALTH STOP CODES  SDM1A  SDTMPHLB  

Entry Points

Name Comments DBIA/ICR reference
EN(DFN,APTTM) ; Entry to the routine to build an HL7 message
PID(DFN,SEQ,SEG) ;
PD1 ; Not needed right now
PV1(DFN,SEQ,SEG) ;
SCH(DFN,SEQ,SEG,ANODE,SNODE)
SCHCAN(DFN,SEQ,SEG,ANODE,SNODE,CNODE)
PV2 ; Not needed right now
OBX1 ; Not needed right now
OBX2 ; Not needed right now
OBX3 ; Not needed right now
OBX4 ; Not needed right now
RGS1(FLAG,SEQ,SEG) ; At least one RGS segment is required
AIS1 ;
NTE(SEQ,SEG) ;
AIL1(ANODE,SEQ,SEG) ;
TMCONV(X) ;
TEST ;
CHKCLIN(X) ; check to see if this is a primary or secondary stop code for a tele health clinic
STATUS(X) ; a $Select to convert code to text too many characters in a single line. returns the text version of the appointment code
EDIT406 ; Add/edit the stop code entries in file 40.6
UPD(DEL,STOPCODE) ;
ASKDEL ;
CHKSTOP(STOPCODE) ;
EX1 ;
EXIT ;
MSG(TEXT) ; give user error message if stop code is not valid

External References

Name Field # of Occurrence
UPDATE^DIE UPD+4
$$GET1^DIQ EN+32, SCH+12, SCHCAN+7, SCHCAN+12, TMCONV+3, CHKCLIN+5
^DIR EDIT406+6, ASKDEL+3, MSG+3
$$ADDSEG^HLOAPI EN+38, EN+40, EN+42, EN+44, EN+46, EN+48, EN+50
$$NEWMSG^HLOAPI EN+35
SET^HLOAPI PID+11, PID+12, PID+14, PID+15, PID+16, PID+17, PID+18, PID+20, PID+21, PID+22
, PID+23, PV1+4, PV1+5, PV1+7, PV1+9, PV1+11, PV1+12, PV1+14, SCH+15, SCH+16
, SCH+17, SCH+18, SCH+20, SCH+21, SCH+22, SCH+23, SCH+24, SCH+25, SCH+26, SCH+27
, SCH+28, SCHCAN+14, SCHCAN+15, SCHCAN+16, SCHCAN+17, SCHCAN+19, SCHCAN+20, SCHCAN+21, SCHCAN+22, SCHCAN+23
, SCHCAN+24, SCHCAN+25, SCHCAN+26, SCHCAN+27, RGS1+3, RGS1+4, RGS1+5, RGS1+6, NTE+3, NTE+4
, NTE+5, NTE+6, AIL1+3, AIL1+4, AIL1+5
$$SENDONE^HLOAPI1 EN+56
SETAD^HLOAPI4 PID+29
SETCE^HLOAPI4 SCH+29, SCHCAN+28, AIL1+6
SETDT^HLOAPI4 PID+27
SETXPN^HLOAPI4 PID+25
$$GETICN^MPIF001 PID+10
ADD^VADPT PID+8
DEM^VADPT PID+4
$$FMADD^XLFDT SCH+6, SCHCAN+6, TMCONV+4
$$FMTHL7^XLFDT TMCONV+4
STDNAME^XLFNAME PID+5
$$KSP^XUPARAM PV1+3, SCHCAN+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,START," ",END
  • Line Location: TEST+4
Routine Call
  • DIE
  • Line Location:
    • UPD+4
Routine Call
  • DIR
  • Line Location:
    • EDIT406+6
    • ASKDEL+3
    • MSG+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^GMR(123 - [#123] GET1^DIQ
2.98 GET1^DIQ
^XMB(1 - [#4.3] GET1^DIQ
^XMB(4.4 - [#4.4] GET1^DIQ
^DIC(40.7 - [#40.7] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(40.7 - [#40.7] CHKSTOP+2
^DPT - [#2] EN+12, EN+13
^GMR(123 - [#123] SCH+7
^GMR(123.5 - [#123.5] SCH+7
^HLCS(870 - [#870] EN+55
^SC - [#44] EN+17, EN+18, EN+19, EN+31, SCH+8, SCHCAN+5, SCHCAN+8, AIL1+2
^SD(40.6 - [#40.6] CHKCLIN+5, EDIT406+9
^VA(200 - [#200] SCH+8, SCH+13, SCH+14, SCHCAN+8, SCHCAN+13

Label References

Name Line Occurrences
$$CHKCLIN EN+25, EN+27
$$CHKSTOP EDIT406+7
$$STATUS SCH+10, SCHCAN+10
$$TMCONV SCH+6, SCHCAN+6, TEST+3
AIL1 EN+49
ASKDEL EDIT406+10
EDIT406 MSG+5
EX1 ASKDEL+1, MSG+1
EXIT EDIT406+6, ASKDEL+3, MSG+4
MSG EDIT406+8, EDIT406+11, EDIT406+14
NTE EN+41
PID EN+43
PV1 EN+45
RGS1 EN+47
SCH EN+37
SCHCAN EN+39
UPD EDIT406+12

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ADDRESS PID+1~, PID+29
ADDRESS("CITY" PID+9*
ADDRESS("STATE" PID+9*
ADDRESS("STREET" PID+9*
ADDRESS("STREET2" PID+9*
ADDRESS("ZIP" PID+9*
ANODE EN+7~, EN+12*, EN+16, EN+30, EN+37, EN+39, EN+49, SCH~, SCH+9, SCHCAN~
, SCHCAN+9, AIL1~, AIL1+2
ANODE1 EN+7~, EN+13*, EN+15
APTSTATUS EN+32*, EN+57!, PV1+9, SCH+1~, SCH+12*, SCH+17, SCHCAN+1~, SCHCAN+12*, SCHCAN+16
APTTM EN~, EN+6, EN+12, EN+13, EN+18, EN+19, EN+31, EN+32, SCH+6, SCH+12
, SCHCAN+6, SCHCAN+12
CAN EN+10*, EN+30*, EN+33, EN+34, EN+37, EN+38, EN+39, EN+40, EN+57!
CLASS PV1+2*, PV1+7, PV1+15!
CLINID EN+9!, EN+16*, EN+17, EN+18, EN+19, EN+31, EN+57!, SCH+8, SCHCAN+5, SCHCAN+8
, NTE+1~, NTE+2*
CLINNM NTE+1~, NTE+2*
CLINODE EN+7~, EN+17*, EN+22
CNODE EN+7~, EN+19*, EN+39, SCH+7, SCH+18, SCHCAN~, SCHCAN+7, SCHCAN+17
CODE AIL1+2*, AIL1+5, AIL1+7!, CHKCLIN+3~
CONNM SCH+1~, SCH+7*, SCHCAN+7*
DEL EDIT406+2*, EDIT406+11, EDIT406+12, UPD~, UPD+2, ASKDEL+3*
DFN EN~, EN+5, EN+12, EN+13, EN+19, EN+32, EN+37, EN+39, EN+43, EN+45
, PID~, PID+10, PID+16, PV1~, SCH~, SCH+12, SCHCAN~, SCHCAN+12
DIFF TMCONV+2~, TMCONV+3*, TMCONV+4
DIR EDIT406+6!, ASKDEL+3!
DIR("?" EDIT406+3!, EDIT406+5*, EX1+1!, EXIT+1!
DIR("A" EDIT406+3!, EDIT406+4*, ASKDEL+2*, EX1+1!, EXIT+1!, MSG+2*
DIR("B" EDIT406+3!, ASKDEL+2*, MSG+3*
DIR(0 EDIT406+3!, EDIT406+4*, ASKDEL+2*, EX1+1!, EXIT+1!, MSG+2*
DIROUT EDIT406+3!, EDIT406+6, ASKDEL+3, EX1+1!, EXIT+1!
DIRUT EDIT406+3!, EDIT406+6, ASKDEL+3, EX1+1!, EXIT+1!
DOB PID+1~, PID+6*, PID+27
DTOUT EDIT406+3!, EDIT406+6, ASKDEL+3, EX1+1!, EXIT+1!
DUOUT EDIT406+3!, EDIT406+6, ASKDEL+3, EX1+1!, EXIT+1!
DUZ SCH+14, SCHCAN+3*, SCHCAN+4*
DUZ(2 SCHCAN+4
EN TEST+1~, TEST+2*, TEST+3
END SCH+6*, SCH+23, SCHCAN+6*, SCHCAN+22, TEST+1~, TEST+3*, TEST+4
ENTEREDBY SCH+1~, SCH+13*, SCH+14*, SCH+27, SCHCAN+1~, SCHCAN+13*, SCHCAN+26
ERROR EN+7~, EN+35, EN+38, EN+40, EN+42, EN+44, EN+46, EN+48, EN+50, EN+56
FAC PV1+1~, PV1+3*, PV1+14
FDA UPD+1~
FDA( UPD+2*, UPD+3*
FLAG RGS1~, RGS1+5
GOOD EDIT406+1~, EDIT406+2*, EDIT406+7*, EDIT406+8
GRP RGS1+1~, RGS1+2*, RGS1+6
I CHKCLIN+3~
ICN PID+1~, PID+10*, PID+14, PID+15
LENGTH SCH+1~, SCH+3*, SCH+5*, SCH+6, SCH+20, SCHCAN+1~, SCHCAN+5*, SCHCAN+6, SCHCAN+19
LOC AIL1+1!, AIL1+6, AIL1+7!
LOC("ID" AIL1+2*
LOC("SYSTEM" AIL1+2*
LOC("TEXT" AIL1+2*
MSG EN+7~, EN+35, EN+38, EN+40, EN+42, EN+44, EN+46, EN+48, EN+50, EN+56
NAME PID+1~, PID+5*, PID+25
NOTES NTE+1~, NTE+2*, NTE+6
PARMS EN+7~, EN+35, EN+56
PARMS("APP AC K TYPE" , EN+52*
PARMS("EVENT" EN+33*, EN+34*
PARMS("MESSAG E TYPE" , EN+33*, EN+34*
PARMS("SENDIN G APPLICATION" , EN+51*
PREMAIL SCH+1~, SCH+8*, SCH+26, SCHCAN+1~, SCHCAN+8*, SCHCAN+25
PROVID EN+57!, PV1+11, SCH+8*, SCH+24, SCHCAN+8*, SCHCAN+23
PROVNM EN+57!, PV1+12, SCH+8*, SCH+25, SCHCAN+8*, SCHCAN+24
PSTOP EN+8*, EN+22*, EN+24, EN+25, EN+57!
>> RTN EN+10*, EN+56*, EN+58
SCHED SCH+1~, SCHCAN+1~
SCHEMAIL SCH+13*, SCH+14*, SCH+28, SCHCAN+13*, SCHCAN+27, SCHCAN+29!
>> SDECC("LEN" SCH+5
SEG EN+7~, EN+37, EN+38, EN+39, EN+40, EN+41, EN+42, EN+43, EN+44, EN+45
, EN+46, EN+47, EN+48, EN+49, EN+50, PID~, PID+2!*, PID+11, PID+12, PID+14
, PID+15, PID+16, PID+17, PID+18, PID+20, PID+21, PID+22, PID+23, PID+25, PID+27
, PID+29, PV1~, PV1+4, PV1+5, PV1+7, PV1+9, PV1+11, PV1+12, PV1+14, SCH~
, SCH+15, SCH+16, SCH+17, SCH+18, SCH+20, SCH+21, SCH+22, SCH+23, SCH+24, SCH+25
, SCH+26, SCH+27, SCH+28, SCH+29, SCHCAN~, SCHCAN+14, SCHCAN+15, SCHCAN+16, SCHCAN+17, SCHCAN+19
, SCHCAN+20, SCHCAN+21, SCHCAN+22, SCHCAN+23, SCHCAN+24, SCHCAN+25, SCHCAN+26, SCHCAN+27, SCHCAN+28, RGS1~
, RGS1+3, RGS1+4, RGS1+5, RGS1+6, NTE~, NTE+3, NTE+4, NTE+5, NTE+6, AIL1~
, AIL1+3, AIL1+4, AIL1+5, AIL1+6
SEQ EN+36*, EN+37, EN+39, EN+41, EN+43, EN+45, EN+47, EN+49, PID~, PID+12
, PV1~, PV1+5, SCH~, SCH+16, SCHCAN~, SCHCAN+15, RGS1~, RGS1+4, NTE~, NTE+4
, AIL1~, AIL1+4
SNODE EN+7~, EN+19*, EN+31*, EN+37, EN+39, SCH~, SCH+3, SCH+13, SCH+14, SCHCAN~
, SCHCAN+2, SCHCAN+13
SSN PID+1~, PID+6*, PID+20
SSTOP EN+8*, EN+22*, EN+24, EN+27, EN+57!
ST TEST+1~, TEST+2*, TEST+3
START SCH+1~, SCH+6*, SCH+22, SCHCAN+1~, SCHCAN+6*, SCHCAN+21, TEST+1~, TEST+3*, TEST+4
STATUS SCH+1~, SCH+29, SCHCAN+1~, SCHCAN+28
STATUS("ID" SCH+9*, SCH+10, SCHCAN+9*, SCHCAN+10
STATUS("SYSTEM" SCH+11*, SCHCAN+11*
STATUS("TEXT" SCH+9*, SCH+10*, SCHCAN+9*, SCHCAN+10*
STOP EN+8*, EN+25*, EN+27*, EN+28, EN+57!, CHKCLIN+1*, CHKCLIN+2*, CHKCLIN+6*, CHKCLIN+7
STOPCODE EDIT406+1~, EDIT406+6*, EDIT406+7, EDIT406+9, EDIT406+12, UPD~, UPD+3, CHKSTOP~, CHKSTOP+2, EXIT+1!
TEST CHKCLIN+3~
TEXT EDIT406+8*, EDIT406+13*, MSG~, MSG+2
TMPERR EDIT406+1~, EDIT406+13
TMUNITS SCH+1~, SCH+4*, SCH+21, SCHCAN+1~, SCHCAN+5*, SCHCAN+20
TZONE TMCONV+2~, TMCONV+3*
U EN+15, EN+16
UTC TMCONV+2~, TMCONV+4*
UTC1 TMCONV+2~, TMCONV+5*, TMCONV+6
UTC2 TMCONV+2~, TMCONV+4*, TMCONV+5
VA PID+1~
VADM PID+1~
VADM("DB" PID+6
VADM("NM" PID+5
VADM("SS" PID+6
VAHOW PID+1~, PID+3*, PID+7*
VAPA PID+1~
VAPA(1 PID+9
VAPA(2 PID+9
VAPA(4 PID+9
VAPA(5 PID+9
VAPA(6 PID+9
VAROOT PID+1~
VATEST PID+1~
WHOTO EN+7~, EN+56
WHOTO("FACILI TY LINK IEN" , EN+55*, TY LINK NAME" , EN+54*
WHOTO("RECEIV ING APPLICATION" , EN+53*
X SCH+10~, SCHCAN+10~, TMCONV~, TMCONV+4, CHKCLIN~, CHKCLIN+1, CHKCLIN+5, STATUS~, STATUS+2, STATUS+3
, STATUS+4, STATUS+5, STATUS+6, STATUS+7, STATUS+8, STATUS+9, STATUS+10, STATUS+11, EDIT406+1~, EX1+1!
EXIT+1!
X1 SCH+10~, SCHCAN+10~, CHKCLIN+3~, CHKCLIN+5*, STATUS+1*, STATUS+3*, STATUS+4*, STATUS+5*, STATUS+6*, STATUS+7*
, STATUS+8*, STATUS+9*, STATUS+10*, STATUS+11*, STATUS+12, EDIT406+1~, EDIT406+2*, EDIT406+9*, EDIT406+10, UPD+2
EXIT+1!
X2 CHKCLIN+3~, CHKCLIN+4*, CHKCLIN+5*, CHKCLIN+6
XS SCH+9!, SCHCAN+9!*
XX EN+18*, EN+19, EN+57!, CHKSTOP+1~, CHKSTOP+2*, CHKSTOP+3
Y EDIT406+1~, EDIT406+6, ASKDEL+3, EX1+1!, EXIT+1!, MSG+4, MSG+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All