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 | 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 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN(DFN,APTTM) | ; Entry to the routine to build an HL7 message
|
|
| PID(DFN,SEQ,SEG) | ;
|
|
| PD1 | ||
| PV1(DFN,SEQ,SEG) | ;
|
|
| SCH(DFN,SEQ,SEG,ANODE,SNODE) | ||
| SCHCAN(DFN,SEQ,SEG,ANODE,SNODE,CNODE) | ||
| PV2 | ||
| OBX1 | ||
| OBX2 | ||
| OBX3 | ||
| OBX4 | ||
| RGS1(FLAG,SEQ,SEG) | ; At least one RGS segment is required
|
|
| AIS1 | ||
| NTE(SEQ,SEG) | ;
|
|
| AIL1(ANODE,SEQ,SEG) | ;
|
|
| TMCONV(X,INST) | ;Uses division/institution to determine tz instead of mailman files / 773
|
|
| 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
|
|
| INST(CLNC) | ;Derives the institution value for the clinic
|
|
| CHKINST(INST) | ;Derives the parent institution if the passed-in institution does not have a time zone
|
|
| STATION(CLNC) | ;Derives the station number from the clinic
|
| Name | Field # of Occurrence |
|---|---|
| $$GET1^DIQ | EN+25, SCH+14, SCHCAN+7, SCHCAN+12, CHKCLIN+5, STATION+11 |
| $$UTC^DIUTC | TMCONV+9 |
| $$ADDSEG^HLOAPI | EN+31, EN+33, EN+35, EN+37, EN+39, EN+41, EN+43 |
| $$NEWMSG^HLOAPI | EN+28 |
| 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+17, SCH+18 , SCH+19, SCH+20, SCH+21, SCH+22, SCH+23, SCH+24, SCH+25, SCH+26, SCH+27, SCH+28 , SCH+29, SCHCAN+14, SCHCAN+15, SCHCAN+16, SCHCAN+17, SCHCAN+18, SCHCAN+19, SCHCAN+20, SCHCAN+21, SCHCAN+22 , SCHCAN+23, SCHCAN+24, SCHCAN+25, SCHCAN+26, RGS1+3, RGS1+4, RGS1+5, RGS1+6, NTE+3, NTE+4 , NTE+5, NTE+6, AIL1+4, AIL1+5, AIL1+6 |
| $$SENDONE^HLOAPI1 | EN+49 |
| SETAD^HLOAPI4 | PID+29 |
| SETCE^HLOAPI4 | SCH+30, SCHCAN+27, AIL1+7 |
| SETDT^HLOAPI4 | PID+27 |
| SETXPN^HLOAPI4 | PID+25 |
| $$GETICN^MPIF001 | PID+10 |
| ADD^VADPT | PID+8 |
| DEM^VADPT | PID+4 |
| $$FMADD^XLFDT | SCH+8, SCHCAN+6, TMCONV+10 |
| $$FMTHL7^XLFDT | TMCONV+10 |
| STDNAME^XLFNAME | PID+5 |
| $$KSP^XUPARAM | PV1+3, SCHCAN+4 |
| FileNo | Call Tags |
|---|---|
| ^GMR(123 - [#123] | GET1^DIQ |
| 2.98 | GET1^DIQ |
| ^DIC(4 - [#4] | GET1^DIQ |
| ^DIC(40.7 - [#40.7] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DG(40.8 - [#40.8] | INST+12, STATION+10 |
| ^DIC(4 - [#4] | INST+10, CHKINST+3, CHKINST+4, CHKINST+5 |
| ^DPT - [#2] | EN+9, EN+10 |
| ^GMR(123 - [#123] | SCH+9 |
| ^GMR(123.5 - [#123.5] | SCH+9 |
| ^HLCS(870 - [#870] | EN+48 |
| ^SC - [#44] | EN+14, EN+15, EN+16, EN+24, SCH+6, SCH+10, SCHCAN+5, SCHCAN+8, AIL1+2, INST+7 , STATION+9 |
| ^SD(40.6 - [#40.6] | CHKCLIN+5 |
| ^SDEC(409.84 - [#409.84] | SCH+6 |
| ^VA(200 - [#200] | SCH+10, SCH+15, SCH+16, SCHCAN+8, SCHCAN+13 |
| ^XTMP("SDTMP" | EN+12 |
| Name | Line Occurrences |
|---|---|
| $$CHKCLIN | EN+20, EN+21 |
| $$CHKINST | INST+13 |
| $$INST | SCH+8, SCHCAN+6 |
| $$STATION | AIL1+3 |
| $$STATUS | SCH+12, SCHCAN+10 |
| $$TMCONV | SCH+8, SCHCAN+6 |
| AIL1 | EN+42 |
| NTE | EN+34 |
| PID | EN+36 |
| PV1 | EN+38 |
| RGS1 | EN+40 |
| SCH | EN+30 |
| SCHCAN | EN+32 |
| >> | 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+5~, EN+9*, EN+13, EN+23, EN+30, EN+32, EN+42, SCH~, SCH+11, SCHCAN~ , SCHCAN+9, AIL1~, AIL1+2 |
| ANODE1 | EN+5~, EN+10* |
| APTSTATUS | EN+25*, EN+50!, PV1+9, SCH+1~, SCH+14*, SCH+19, SCHCAN+1~, SCHCAN+12*, SCHCAN+16 |
| APTTM | EN~, EN+4, EN+9, EN+10, EN+15, EN+16, EN+24, EN+25, SCH+8, SCH+14 , SCHCAN+6, SCHCAN+12 |
| AS | CHKINST+2~, CHKINST+4* |
| CAN | EN+8*, EN+23*, EN+26, EN+27, EN+30, EN+31, EN+32, EN+33, EN+50! |
| CLASS | PV1+2*, PV1+7, PV1+15! |
| CLINID | EN+7!, EN+13*, EN+14, EN+15, EN+16, EN+24, EN+50!, SCH+6, SCH+8, SCH+10 , SCHCAN+5, SCHCAN+6, SCHCAN+8, NTE+1~, NTE+2*, AIL1+3 |
| CLINNM | NTE+1~, NTE+2* |
| CLINODE | EN+5~, EN+14*, EN+17 |
| CLNC | INST~, INST+5, INST+7, STATION~, STATION+6, STATION+9 |
| CNODE | EN+5~, EN+16*, EN+32, SCH+9, SCH+20, SCHCAN~, SCHCAN+7, SCHCAN+17 |
| CODE | AIL1+2*, AIL1+6, AIL1+8!, CHKCLIN+3~ |
| CONNM | SCH+1~, SCH+9*, SCHCAN+7* |
| DFN | EN~, EN+3, EN+9, EN+10, EN+16, EN+25, EN+30, EN+32, EN+36, EN+38 , PID~, PID+10, PID+16, PV1~, SCH~, SCH+14, SCHCAN~, SCHCAN+12 |
| DIV | INST+6~, INST+11*, INST+12, STATION+7~, STATION+10* |
| DOB | PID+1~, PID+6*, PID+27 |
| DUZ | SCH+16, SCHCAN+3*, SCHCAN+4* |
| DUZ(2 | SCHCAN+4 |
| END | SCH+1~, SCH+8*, SCH+24, SCHCAN+1~, SCHCAN+6*, SCHCAN+21 |
| ENTEREDBY | SCH+1~, SCH+15*, SCH+16*, SCH+28, SCHCAN+1~, SCHCAN+13*, SCHCAN+25 |
| ERROR | EN+5~, EN+28, EN+31, EN+33, EN+35, EN+37, EN+39, EN+41, EN+43, EN+49 |
| FAC | PV1+1~, PV1+3*, PV1+14 |
| FLAG | RGS1~, RGS1+5 |
| 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, STATION+7~, STATION+8*, STATION+10*, STATION+11 |
| LENDEF | SCH+6~*, SCH+7 |
| LENGTH | SCH+1~, SCH+2*, SCH+7*, SCH+8, SCH+21, SCHCAN+1~, SCHCAN+5*, SCHCAN+6, SCHCAN+18 |
| LOC | AIL1+1!, AIL1+7, AIL1+8! |
| 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+5~, EN+28, EN+31, EN+33, EN+35, EN+37, EN+39, EN+41, EN+43, EN+49 |
| >> MSH(9 | EN+12 |
| NAME | PID+1~, PID+5*, PID+25 |
| NEWINST | INST+6~, INST+13*, INST+14 |
| NODE0 | STATION+7~, STATION+9*, STATION+10 |
| NOTES | NTE+1~, NTE+2*, NTE+6 |
| OFFSET | TMCONV+7~, TMCONV+9*, TMCONV+10 |
| PARMS | EN+5~, EN+28, EN+49 |
| PARMS("APP AC | K TYPE" , EN+45* |
| PARMS("EVENT" | EN+26*, EN+27* |
| PARMS("MESSAG | E TYPE" , EN+26*, EN+27* |
| PARMS("SENDIN | G APPLICATION" , EN+44* |
| PREMAIL | SCH+1~, SCH+10*, SCH+27, SCHCAN+1~, SCHCAN+8*, SCHCAN+24 |
| PROVID | EN+50!, PV1+11, SCH+10*, SCH+25, SCHCAN+8*, SCHCAN+22 |
| PROVNM | EN+50!, PV1+12, SCH+10*, SCH+26, SCHCAN+8*, SCHCAN+23 |
| PSTOP | EN+6*, EN+17*, EN+19, EN+20, EN+50! |
| RTN | EN+5~, EN+8*, EN+49*, EN+51 |
| SCHED | SCH+1~, SCHCAN+1~ |
| SCHEMAIL | SCH+15*, SCH+16*, SCH+29, SCHCAN+13*, SCHCAN+26, SCHCAN+28! |
| >> SDECAPPTID | SCH+6 |
| >> SDECLEN | SCH+7 |
| SEG | EN+5~, EN+30, EN+31, EN+32, EN+33, EN+34, EN+35, EN+36, EN+37, EN+38 , EN+39, EN+40, EN+41, EN+42, EN+43, 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+17, SCH+18, SCH+19, SCH+20, SCH+21, SCH+22, SCH+23, SCH+24, SCH+25, SCH+26 , SCH+27, SCH+28, SCH+29, SCH+30, SCHCAN~, SCHCAN+14, SCHCAN+15, SCHCAN+16, SCHCAN+17, SCHCAN+18 , SCHCAN+19, SCHCAN+20, SCHCAN+21, SCHCAN+22, SCHCAN+23, SCHCAN+24, SCHCAN+25, SCHCAN+26, SCHCAN+27, RGS1~ , RGS1+3, RGS1+4, RGS1+5, RGS1+6, NTE~, NTE+3, NTE+4, NTE+5, NTE+6, AIL1~ , AIL1+4, AIL1+5, AIL1+6, AIL1+7 |
| SEQ | EN+29*, EN+30, EN+32, EN+34, EN+36, EN+38, EN+40, EN+42, PID~, PID+12 , PV1~, PV1+5, SCH~, SCH+18, SCHCAN~, SCHCAN+15, RGS1~, RGS1+4, NTE~, NTE+4 , AIL1~, AIL1+5 |
| SNODE | EN+5~, EN+16*, EN+24*, EN+30, EN+32, SCH~, SCH+2, SCH+15, SCH+16, SCHCAN~ , SCHCAN+2, SCHCAN+13 |
| SSN | PID+1~, PID+6*, PID+20 |
| SSTOP | EN+6*, EN+17*, EN+19, EN+21, EN+50! |
| START | SCH+1~, SCH+8*, SCH+23, SCHCAN+1~, SCHCAN+6*, SCHCAN+20 |
| STATN | STATION+7~, STATION+8*, STATION+11*, STATION+12 |
| STATUS | SCH+1~, SCH+30, SCHCAN+1~, SCHCAN+27 |
| STATUS("ID" | SCH+11*, SCH+12, SCHCAN+9*, SCHCAN+10 |
| STATUS("SYSTEM" | SCH+13*, SCHCAN+11* |
| STATUS("TEXT" | SCH+11*, SCH+12*, SCHCAN+9*, SCHCAN+10* |
| STOP | EN+6*, EN+20*, EN+21*, EN+22, EN+50!, CHKCLIN+1*, CHKCLIN+2*, CHKCLIN+6*, CHKCLIN+7 |
| TEST | CHKCLIN+3~ |
| TMUNITS | SCH+1~, SCH+3*, SCH+22, SCHCAN+1~, SCHCAN+5*, SCHCAN+19 |
| TZ | INST+6~, INST+10*, CHKINST+2~, CHKINST+3*, CHKINST+5*, CHKINST+6 |
| U | EN+13, SCH+6, INST+9, INST+10, INST+11, INST+12, CHKINST+3, CHKINST+4, CHKINST+5, STATION+10 |
| 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+5~, EN+49 |
| WHOTO("FACILI | TY LINK IEN" , EN+48*, TY LINK NAME" , EN+47* |
| WHOTO("RECEIV | ING APPLICATION" , EN+46* |
| X | SCH+12~, SCHCAN+10~, 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 | SCH+12~, 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 |
| X2 | CHKCLIN+3~, CHKCLIN+4*, CHKCLIN+5*, CHKCLIN+6 |
| XS | SCH+11!, SCHCAN+9!* |
| XX | EN+15*, EN+16, EN+50! |
