SDTMPHLB ;MS/PB - TMP HL7 Routine;MAY 29, 2018
Source file <SDTMPHLB.m>
| 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(CLINID) | ; Entry to the routine to build an HL7 message
|
|
| MFI(CLINID,SEQ,SEG) | ;
|
|
| MFE(CLINID,SEQ,SEG) | ;
|
|
| LOC(CLINID,SEQ,SEG) | ;
|
|
| NTE(CLINID,SEQ,SEG) | ;
|
|
| LDP(CLINID,SEQ,SEG) | ;
|
|
| ZPU(CLINID,SEQ,SEG) | ;
|
|
| ZDP(CLINID,SEQ,SEG) | ; has the default provider duz, default provider name and default provider email
|
|
| CLINDATA(CLINID) | ; get the clinic data, add code to pull the data from file 44 and 200
|
|
| VISN(INSTNUM) | ;
|
|
| ACT | ;894 Pass Inactivate Date and Reactivate Date to HL7
|
| Name | Field # of Occurrence |
|---|---|
| NOW^%DTC | EN+18 |
| $$GET1^DIQ | LOC+5, LDP+6, LDP+7, ZPU+7, ZDP+6 |
| GETS^DIQ | CLINDATA+4 |
| $$ADDSEG^HLOAPI | EN+21, EN+23, EN+25, EN+27, EN+29, EN+31, ZPU+16 |
| $$NEWMSG^HLOAPI | EN+16 |
| SET^HLOAPI | MFI+2, MFI+4, MFI+6, MFI+7, MFI+8, MFI+9, MFI+10, MFE+2, MFE+4, MFE+5 , MFE+6, MFE+7, MFE+8, LOC+6, LOC+7, LOC+8, LOC+9, LOC+14, LOC+15, LOC+16 , LOC+17, NTE+4, NTE+5, NTE+6, NTE+7, LDP+8, LDP+9, LDP+11, LDP+12, LDP+13 , LDP+14, LDP+15, LDP+16, LDP+17, LDP+19, ZPU+10, ZPU+11, ZPU+12, ZPU+13, ZPU+14 , ZDP+9, ZDP+10, ZDP+11, ZDP+12, ZDP+13 |
| $$SENDONE^HLOAPI1 | EN+37 |
| $$CHKCLIN^SDTMPHLA | EN+10, EN+12 |
| $$INST^SDTMPHLA | EN+18, ACT+3 |
| $$TMCONV^SDTMPHLA | EN+18, ACT+3 |
| $$IEN^XUAF4 | VISN+3 |
| $$KSP^XUPARAM | LOC+10 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^VA(200 - [#200] | GET1^DIQ |
| ^DIC(4 - [#4] | GET1^DIQ |
| ^DIC(40.7 - [#40.7] | GET1^DIQ |
| ^SC - [#44] | GET1^DIQ, GETS^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DG(40.8 - [#40.8] | LOC+5 |
| ^DIC(4 - [#4] | LOC+10, VISN+4, VISN+6 |
| ^HLCS(870 - [#870] | EN+36 |
| ^SC - [#44] | EN+8, ZPU+3, ZPU+4 |
| Name | Line Occurrences |
|---|---|
| $$VISN | LOC+11 |
| ACT | LDP+2 |
| CLINDATA | EN+19 |
| LDP | EN+28 |
| LOC | EN+24 |
| MFE | EN+22 |
| MFI | EN+20 |
| NTE | EN+26 |
| ZDP | EN+30 |
| ZPU | EN+32 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | EN+18~ |
| ACT | LDP+1~, LDP+14, ACT+3*, ACT+4*, ACT+5*, ACT+6* |
| ACTDT | EN+7~, LDP+15, ACT+3* |
| ADT | ACT+1~, ACT+2*, ACT+3, ACT+4, ACT+6 |
| APPID | MFI+1~, MFI+5*, MFI+6 |
| CIEN | ZPU+4~*, ZPU+5, ZPU+7 |
| CLERKEMAIL | ZPU+6~, ZPU+7*, ZPU+8*, ZPU+13 |
| CLERKNM | ZPU+6~, ZPU+7*, ZPU+8, ZPU+12 |
| CLIN | EN+19! |
| CLIN(44 | LOC+3, NTE+3, LDP+3, LDP+4, LDP+5, ZDP+4, ACT+2 |
| CLINID | EN~, EN+8, EN+18, EN+19, EN+20, EN+22, EN+24, EN+26, EN+28, EN+30 , EN+32, EN+38!, MFI~, MFI+4, MFE~, MFE+5, MFE+7, LOC~, LOC+3, LOC+5 , LOC+7, NTE~, NTE+3, LDP~, LDP+3, LDP+4, LDP+5, LDP+9, ZPU~, ZPU+3 , ZPU+4, ZDP~, ZDP+4, CLINDATA~, CLINDATA+2, CLINDATA+3, ACT+2, ACT+3 |
| CLINNM | LOC+1~, LOC+3*, LOC+8, LOC+13, LOC+14 |
| CLINSTRT | NTE+2~, NTE+3*, NTE+6 |
| CSNM | LDP+1~, LDP+5*, LDP+19 |
| CVPID | ZPU+6~, ZPU+7*, ZPU+9*, ZPU+14 |
| DIV | LOC+1~ |
| DIV1 | LOC+1~, LOC+5* |
| DIV2 | LOC+1~, LOC+5* |
| DIV3 | LOC+1~, LOC+5*, LOC+17 |
| DT | ACT+6 |
| ERROR | EN+14~, EN+16, EN+21, EN+23, EN+25, EN+27, EN+29, EN+31, EN+37, ZPU+16 |
| FLDS | CLINDATA+1~, CLINDATA+3*, CLINDATA+4 |
| IADT | ACT+1~, ACT+2*, ACT+3, ACT+4, ACT+5, ACT+6 |
| IEN | EN+19!*, CLINDATA+3*, CLINDATA+4, VISN+1~, VISN+3*, VISN+4 |
| INACTDT | EN+7~, LDP+16, ACT+3* |
| INSTNUM | LOC+1~, LOC+10*, LOC+11, LOC+13, LOC+15, VISN~, VISN+3 |
| LOC | EN+38!, LOC+2!, LOC+13*, LDP+11 |
| LS | LDP+1~, LDP+3*, LDP+12 |
| MSG | EN+7~, EN+16, EN+21, EN+23, EN+25, EN+27, EN+29, EN+31, EN+37, ZPU+16 |
| OVERBK | NTE+2~, NTE+3*, NTE+7 |
| PARMS | EN+14~, EN+16, EN+37 |
| PARMS("EVENT" | EN+15* |
| PARMS("MESSAG | E TYPE" , EN+15* |
| PARMS("SENDIN | G APPLICATION" , EN+33* |
| PROVDUZ | ZDP+2!, ZDP+4*, ZDP+6 |
| PROVEMAIL | ZDP+2!, ZDP+5*, ZDP+6*, ZDP+7*, ZDP+12, ZDP+14! |
| PROVNM | ZDP+2!, ZDP+4*, ZDP+11, ZDP+14! |
| PSNM | LDP+1~, LDP+5*, LDP+19 |
| PSTOP | EN+7~, EN+8*, EN+9, EN+10, LDP+1~, LDP+5*, LDP+6*, LDP+19 |
| RTN | EN+7~, EN+37*, EN+39 |
| SEG | EN+14~, EN+20, EN+21, EN+22, EN+23, EN+24, EN+25, EN+26, EN+27, EN+28 , EN+29, EN+30, EN+31, EN+32, MFI~, MFI+2, MFI+4, MFI+6, MFI+7, MFI+8 , MFI+9, MFI+10, MFE~, MFE+2, MFE+4, MFE+5, MFE+6, MFE+7, MFE+8, LOC~ , LOC+6, LOC+7, LOC+8, LOC+9, LOC+14, LOC+15, LOC+16, LOC+17, NTE~, NTE+4 , NTE+5, NTE+6, NTE+7, LDP~, LDP+8, LDP+9, LDP+11, LDP+12, LDP+13, LDP+14 , LDP+15, LDP+16, LDP+17, LDP+19, ZPU~, ZPU+10, ZPU+11, ZPU+12, ZPU+13, ZPU+14 , ZPU+16, ZDP~, ZDP+9, ZDP+10, ZDP+11, ZDP+12, ZDP+13 |
| SEQ | EN+14~, EN+17*, EN+20, EN+22, EN+24, EN+26, EN+28, EN+30, EN+32, MFI~ , MFE~, LOC~, NTE~, LDP~, ZPU~, ZDP~, ZDP+10 |
| SEQA | ZPU+1~, ZPU+3*, ZPU+11, ZPU+15* |
| SSTOP | EN+7~, EN+8*, EN+9, EN+12, LDP+1~, LDP+5*, LDP+7*, LDP+19 |
| STATNUM | LOC+1~, LOC+3*, LOC+13 |
| STOP | EN+7~, EN+10*, EN+12*, EN+13 |
| TSPEC | LDP+1~, LDP+4*, LDP+13 |
| TYPE | MFE+1~, MFE+3*, MFE+4 |
| UPDTTM | EN+7~, EN+18*, MFI+8, MFI+9, MFE+6 |
| VISN | LOC+1~, LOC+11*, LOC+13, LOC+16, VISN+2*, VISN+6*, VISN+7*, VISN+8 |
| VISNPTR | VISN+1~, VISN+4*, VISN+5, VISN+6 |
| VPID | ZDP+2!, ZDP+5*, ZDP+6*, ZDP+8*, ZDP+13, ZDP+14! |
| WHOTO | EN+14~, EN+37 |
| WHOTO("FACILI | TY LINK IEN" , EN+36*, TY LINK NAME" , EN+35* |
| WHOTO("RECEIV | ING APPLICATION" , EN+34* |
| XX | ZPU+1~, ZPU+3*, ZPU+4 |
