SDTMPHLA ;MS/PB - TMP HL7 Routine;May 29, 2018
Source file <SDTMPHLA.m>
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 |
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 | 3 | SD EDIT TELE HEALTH STOP CODES SDM1A SDTMPHLB |
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
|
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 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Routine Call |
|
Routine 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 |
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 |
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 |
>> | 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 |