SDTMPHLC ;TMP/DRF - TMP HL7 Routine;May 29, 2018
Source file <SDTMPHLC.m>
Package | Total | Call Graph |
---|---|---|
Health Level Seven | 3 | ($$ADDSEG,$$NEWMSG,SET)^HLOAPI $$SENDONE^HLOAPI1 (SETAD,SETCE,SETDT,SETXPN)^HLOAPI4 |
Kernel | 3 | ($$FMADD,$$FMDIFF,$$FMTHL7)^XLFDT STDNAME^XLFNAME $$KSP^XUPARAM |
Scheduling | 2 | $$DAYSINFUTURE^SDB1 $$STATION^SDTMPHLA |
VA FileMan | 2 | $$GET1^DIQ $$UTC^DIUTC |
Master Patient Index VistA | 1 | $$GETICN^MPIF001 |
Registration | 1 | (ADD,DEM)^VADPT |
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Package | Total | Caller Graph |
---|---|---|
Scheduling | 10 | SD53P780 SDAUT1 SDB1 SDC SDD0 SDES2CANCLNAVAIL SDES2RSTCAVAIL SDESCCAVAIL SDTMPPRC SDUNC |
Name | Comments | DBIA/ICR reference |
---|---|---|
EN(CLINID,NCDATE,NCSTOP,FUNCTION,COMMENT) | ;Entry to the routine to build an HL7 message
|
|
PID(DFN,SEQ,SEG) | ;
|
|
PD1 | ||
PV1(DFN,SEQ,SEG) | ;
|
|
SCH(DFN,SEQ,SEG,ANODE,SNODE) | ||
PV2 | ||
OBX1 | ||
OBX2 | ||
OBX3 | ||
OBX4 | ||
RGS1(FLAG,SEQ,SEG) | ; At least one RGS segment is required
|
|
AIS1(FLAG,SEQ,SEG) | ;
|
|
NTE(SEQ,SEG) | ;
|
|
AIL1(CLINID,SEQ,SEG) | ;
|
|
TMCONV(X,INST) | ;Uses division/institution to determine tz instead of mailman files / 773
|
|
INST(CLNC) | ;Derives the institution value for the clinic
|
|
CHKCLIN(X) | ; check to see if this is a primary or secondary stop code for a tele health clinic
|
|
CHKINST(INST) | ;Derives the parent institution if the passed-in institution does not have a time zone
|
|
STATUS(X) | ; a $Select to convert code to text too many characters in a single line. returns the text version of the appointment code
|
|
SEND(SC,DATE,PATTERN) | ;Send a transaction from SDBUILD - SD*5.3*806
|
Name | Field # of Occurrence |
---|---|
$$GET1^DIQ | CHKCLIN+5 |
$$UTC^DIUTC | TMCONV+9 |
$$ADDSEG^HLOAPI | EN+32, EN+34, EN+36, EN+38 |
$$NEWMSG^HLOAPI | EN+29 |
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+10, SCH+11 , SCH+12, SCH+13, SCH+14, SCH+15, SCH+16, SCH+17, SCH+18, SCH+19, SCH+20, SCH+21 , RGS1+3, RGS1+4, RGS1+5, RGS1+6, NTE+3, NTE+4, NTE+5, NTE+6, AIL1+4, AIL1+5 , AIL1+6, AIL1+8, AIL1+9, AIL1+10 |
$$SENDONE^HLOAPI1 | EN+44 |
SETAD^HLOAPI4 | PID+29 |
SETCE^HLOAPI4 | SCH+22, AIL1+7 |
SETDT^HLOAPI4 | PID+27 |
SETXPN^HLOAPI4 | PID+25 |
$$GETICN^MPIF001 | PID+10 |
$$DAYSINFUTURE^SDB1 | SEND+5 |
$$STATION^SDTMPHLA | AIL1+3 |
ADD^VADPT | PID+8 |
DEM^VADPT | PID+4 |
$$FMADD^XLFDT | TMCONV+10, SEND+6 |
$$FMDIFF^XLFDT | SCH+3 |
$$FMTHL7^XLFDT | TMCONV+10 |
STDNAME^XLFNAME | PID+5 |
$$KSP^XUPARAM | PV1+3 |
FileNo | Call Tags |
---|---|
^DIC(40.7 - [#40.7] | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DG(40.8 - [#40.8] | INST+12 |
^DIC(4 - [#4] | INST+10, CHKINST+3, CHKINST+4, CHKINST+5 |
^GMR(123 - [#123] | SCH+5 |
^GMR(123.5 - [#123.5] | SCH+5 |
^HLCS(870 - [#870] | EN+43 |
^SC - [#44] | EN+20, AIL1+2, INST+7, SEND+7 |
^SD(40.6 - [#40.6] | CHKCLIN+6 |
^VA(200 - [#200] | SCH+9 |
^XTMP("SDTMPX" | SEND+9*, SEND+11* |
Name | Line Occurrences |
---|---|
$$CHKCLIN | EN+24, EN+25 |
$$CHKINST | INST+13 |
$$INST | SCH+4 |
$$TMCONV | SCH+4 |
AIL1 | EN+37 |
NTE | EN+33 |
RGS1 | EN+35 |
SCH | EN+31 |
>> | 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+14~, EN+31, SCH~ |
ANODE1 | EN+14~ |
APTSTATUS | EN+45!, PV1+9, SCH+1~, SCH+8*, SCH+12 |
APTTM | EN+14~, EN+17*, EN+18* |
AS | CHKINST+2~, CHKINST+4* |
CAN | EN+19*, EN+27, EN+28, EN+32, EN+45! |
CLASS | PV1+2*, PV1+7, PV1+15! |
CLINID | EN~, EN+9, EN+20, EN+37, EN+45!, SCH+4, NTE+1~, AIL1~, AIL1+2, AIL1+3 |
CLINNM | NTE+1~ |
CLINODE | EN+14~, EN+20*, EN+21 |
CLNC | INST~, INST+5, INST+7 |
CNODE | EN+14~, SCH+5 |
CODE | AIL1+2*, AIL1+6, AIL1+11!, CHKCLIN+3~ |
COMMENT | EN~, EN+12, SCH+7, NTE+2 |
CONNM | SCH+1~, SCH+5* |
DATE | SEND~, SEND+6, SEND+7, SEND+9, SEND+11 |
DFN | PID~, PID+10, PID+16, PV1~, SCH~ |
DIV | INST+6~, INST+11*, INST+12 |
DOB | PID+1~, PID+6*, PID+27 |
DT | SEND+5, SEND+6 |
DUZ | SCH+9, SEND+9, SEND+11 |
END | SCH+1~ |
ENTEREDBY | SCH+1~, SCH+9*, SCH+20 |
ERROR | EN+14~, EN+29, EN+32, EN+34, EN+36, EN+38, EN+44 |
FAC | PV1+1~, PV1+3*, PV1+14 |
FLAG | RGS1~, RGS1+5, AIS1~ |
FUNCTION | EN~, EN+11, EN+13, EN+17, EN+18, SCH+3, SCH+7 |
GRP | RGS1+1~, RGS1+2*, RGS1+6 |
I | CHKCLIN+3~ |
ICN | PID+1~, PID+10*, PID+14, PID+15 |
INST | TMCONV~, TMCONV+9, INST+6~, INST+9*, INST+10, INST+12*, INST+13, CHKINST~, CHKINST+1, CHKINST+3 , CHKINST+4*, CHKINST+5, CHKINST+6 |
JOB | SEND+4~, SEND+7*, SEND+9, SEND+11 |
LENGTH | EN+14~, SCH+3*, SCH+13, AIL1+9 |
LIMIT | SEND+4~, SEND+5*, SEND+6 |
LOC | AIL1+1!, AIL1+7, AIL1+11! |
LOC("ALTERNAT | E ID" , AIL1+3* |
LOC("ID" | AIL1+2* |
LOC("SYSTEM" | AIL1+2* |
LOC("TEXT" | AIL1+2* |
MCD0 | INST+6~, INST+7*, INST+8, INST+9, INST+11 |
MSG | EN+14~, EN+29, EN+32, EN+34, EN+36, EN+38, EN+44 |
NAME | PID+1~, PID+5*, PID+25 |
NCDATE | EN~, EN+10, EN+13, EN+17, EN+18, SCH+3, SCH+4 |
NCSTOP | EN~, EN+13, SCH+3 |
NEWINST | INST+6~, INST+13*, INST+14 |
NOTES | NTE+1~, NTE+2*, NTE+6 |
OFFSET | TMCONV+7~, TMCONV+9*, TMCONV+10 |
OLDPAT | SEND+4~, SEND+7*, SEND+9, SEND+11 |
PARMS | EN+14~, EN+29, EN+44 |
PARMS("APP AC | K TYPE" , EN+40* |
PARMS("EVENT" | EN+27*, EN+28* |
PARMS("MESSAG | E TYPE" , EN+27*, EN+28* |
PARMS("SENDIN | G APPLICATION" , EN+39* |
PATTERN | SEND~, SEND+9, SEND+11 |
PREMAIL | SCH+1~, SCH+6*, SCH+19 |
PROVID | EN+45!, PV1+11, SCH+6*, SCH+17 |
PROVNM | EN+45!, PV1+12, SCH+6*, SCH+18 |
PSTOP | EN+16*, EN+21*, EN+23, EN+24, EN+45! |
RTN | EN+14~, EN+19*, EN+44*, EN+46 |
SC | SEND~, SEND+5, SEND+7, SEND+9, SEND+11 |
SCHED | SCH+1~ |
SCHEMAIL | SCH+1~, SCH+9*, SCH+21 |
SEG | EN+14~, EN+31, EN+32, EN+33, EN+34, EN+35, EN+36, EN+37, EN+38, 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+10, SCH+11, SCH+12, SCH+13, SCH+14, SCH+15 , SCH+16, SCH+17, SCH+18, SCH+19, SCH+20, SCH+21, SCH+22, RGS1~, RGS1+3, RGS1+4 , RGS1+5, RGS1+6, AIS1~, NTE~, NTE+3, NTE+4, NTE+5, NTE+6, AIL1~, AIL1+4 , AIL1+5, AIL1+6, AIL1+7, AIL1+8, AIL1+9, AIL1+10 |
SEQ | EN+30*, EN+33, EN+35, EN+37, PID~, PID+12, PV1~, PV1+5, SCH~, SCH+11 , RGS1~, RGS1+4, AIS1~, NTE~, NTE+4, AIL1~, AIL1+5, SEND+9*, SEND+11* |
SNODE | EN+14~, EN+31, SCH~ |
SSN | PID+1~, PID+6*, PID+20 |
SSTOP | EN+16*, EN+21*, EN+23, EN+25, EN+45! |
START | EN+14~, SCH+4*, SCH+15, AIL1+8 |
STATUS | SCH+1~, SCH+22 |
STATUS("ID" | SCH+7* |
STATUS("SYSTEM" | SCH+7* |
STATUS("TEXT" | SCH+7* |
STOP | EN+16*, EN+24*, EN+25*, EN+26, EN+45!, CHKCLIN+1*, CHKCLIN+2*, CHKCLIN+5, CHKCLIN+7*, CHKCLIN+8 |
TEST | CHKCLIN+3~ |
TMUNITS | SCH+1~, SCH+2*, SCH+14 |
TZ | INST+6~, INST+10*, CHKINST+2~, CHKINST+3*, CHKINST+5*, CHKINST+6 |
U | INST+9, INST+10, INST+11, INST+12, CHKINST+3, CHKINST+4, CHKINST+5, SEND+9, SEND+11 |
UTC | TMCONV+7~, TMCONV+10* |
UTC1 | TMCONV+7~, TMCONV+10*, TMCONV+11 |
UTC2 | TMCONV+7~, TMCONV+11*, TMCONV+12 |
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+14~, EN+44 |
WHOTO("FACILI | TY LINK IEN" , EN+43*, TY LINK NAME" , EN+42* |
WHOTO("RECEIV | ING APPLICATION" , EN+41* |
X | TMCONV~, TMCONV+8*, TMCONV+9, TMCONV+10, 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 |
X1 | CHKCLIN+3~, CHKCLIN+5*, CHKCLIN+6, STATUS+1*, STATUS+2, STATUS+3*, STATUS+4*, STATUS+5*, STATUS+6*, STATUS+7* , STATUS+8*, STATUS+9*, STATUS+10*, STATUS+11*, STATUS+12 |
X2 | CHKCLIN+3~, CHKCLIN+4*, CHKCLIN+6*, CHKCLIN+7 |
XX | EN+45! |