BADEHL1 ;IHS/MSC/MGH/PLS/VAC/AMF - Dentrix HL7 interface ;20-Feb-2013;fje
Source file <BADEHL1.m>
| Package | Total | Call Graph | 
|---|---|---|
| Electronic Dental Record | 3 | $$ASUFAC^BADEHL1 INS^BADEHLI ZP2^BADEHLZ | 
| Health Level Seven | 3 | ($$HLDATE,$$HLNAME,$$HLPHONE)^HLFNC ($$ADDSEG,$$NEWMSG,SET)^HLOAPI $$SENDONE^HLOAPI1 | 
| Kernel | 2 | $$HLNAME^XLFNAME SETUP^XQALERT | 
| Registration | 2 | $$ADDR^VAFHLFNC $$EN^VAFHLPID | 
| VA Fileman | 2 | NOW^%DTC $$GET1^DIQ | 
| Toolkit | 1 | ($$GET,EN)^XPAR | 
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| AACK | ; EP - Application ACK callback - called when AA, AE or AR is received. | |
| NOTIF(DFN,MSG) | ;EP ----- IHS/MSC/AMF 11/23/10 More descriptive alert | |
| ERR | ; | |
| GETCHART(P,L) | ; | |
| ASUFAC(DFN) | ;Set up all the ASUFAC numbers for this patient | |
| PD1(DFN) | ;EP | |
| EVN(EVNTTYPE) | ;Create the EVN segment | |
| MSA | ;EP | |
| ALIAS(DFN) | ;EP | |
| PID(DFN) | ;EP | |
| NK1 | ;EP | |
| FMTHRN(L,HRN) | ; | |
| FIXZIP(DFN,ZIP) | ;EP | |
| SET(ARY,V,F,C,S,R) | ;EP | |
| NEWMSG(DFN,EVNTTYPE) | ;EP | |
| FINDHRN(PAT,LOC) | ;DD | |
| HRN(PAT,LOC) | ;;FJE 1/1/2013 Patch 02 Finds an HRCN active or inactive | |
| CACK | ; EP - Commit ACK callback - called when CA, CE or CR is received. | 
| Name | Field # of Occurrence | 
|---|---|
| NOW^%DTC | EVN+2 | 
| $$ASUFAC^BADEHL1 | PID+22 | 
| INS^BADEHLI | NEWMSG+21 | 
| ZP2^BADEHLZ | NEWMSG+22 | 
| $$GET1^DIQ | PID+36, PID+56, PID+57, PID+58, PID+59, PID+62, PD1+5, PD1+6, FIXZIP+2 | 
| $$HLDATE^HLFNC | EVN+3, PID+62, ASUFAC+5 | 
| $$HLNAME^HLFNC | ALIAS+7, PD1+6 | 
| $$HLPHONE^HLFNC | NK1+26, NK1+31 | 
| $$ADDSEG^HLOAPI | EVN+11, PID+63, PD1+9, NK1+38, MSA+7, MSA+13 | 
| $$NEWMSG^HLOAPI | NEWMSG+7 | 
| SET^HLOAPI | SET+1 | 
| $$SENDONE^HLOAPI1 | NEWMSG+38 | 
| $$ADDR^VAFHLFNC | NK1+23 | 
| $$EN^VAFHLPID | PID+10 | 
| $$HLNAME^XLFNAME | PID+36, NK1+14 | 
| $$GET^XPAR | NOTIF+12 | 
| EN^XPAR | NOTIF+15, NOTIF+16 | 
| SETUP^XQALERT | AACK+10, CACK+9, NOTIF+10 | 
| FileNo | Call Tags | 
|---|---|
| ^DIC(11 - [#11] | GET1^DIQ | 
| ^DPT - [#2] | GET1^DIQ | 
| ^AUPNPAT - [#9000001] | GET1^DIQ | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^AUPNPAT - [#9000001] | NK1+18, ASUFAC+3, ASUFAC+4, GETCHART+3, GETCHART+4, GETCHART+14, FINDHRN+3, FINDHRN+6, FINDHRN+7, HRN+3 , HRN+6, HRN+7 | 
| ^AUTTLOC - [#9999999.06] | GETCHART+11, FMTHRN+2 | 
| ^AUTTRLSH - [#9999999.36] | NK1+20 | 
| ^DPT - [#2] | NOTIF+4, PID+5, PID+7, ALIAS+5, ALIAS+6, NK1+5, NK1+6 | 
| ^HLB - [#778] | AACK+3, AACK+4, CACK+2, CACK+3 | 
| Name | Line Occurrences | 
|---|---|
| $$FINDHRN | PID+19 | 
| $$FIXZIP | PID+45 | 
| $$FMTHRN | FINDHRN+4, FINDHRN+10, HRN+4, HRN+9 | 
| $$GETCHART | ASUFAC+6 | 
| $$HRN | PID+24 | 
| ALIAS | PID+34 | 
| EVN | NEWMSG+17 | 
| NK1 | NEWMSG+20 | 
| NOTIF | NEWMSG+8, NEWMSG+39, EVN+12, PID+3, PID+5, PID+7, PID+12, PID+23, PID+25, PID+30 , PID+35, PID+64, ALIAS+3, PD1+2, PD1+10, NK1+39 | 
| PD1 | NEWMSG+19 | 
| PID | NEWMSG+18 | 
| SET | EVN+4, EVN+5, EVN+8, EVN+9, EVN+10, PID+13, PID+14, PID+15, PID+26, PID+32 , PID+33, PID+38, PID+39, PID+40, PID+41, PID+46, PID+48, PID+49, PID+50, PID+52 , PID+53, PID+54, PID+57, PID+58, PID+59, PID+61, PID+62, ALIAS+9, ALIAS+10, PD1+4 , PD1+8, NK1+9, NK1+10, NK1+16, NK1+22, NK1+25, NK1+28, NK1+29, NK1+30, NK1+33 , NK1+34, NK1+35, NK1+36, NK1+37, ASUFAC+12, ASUFAC+13, MSA+2, MSA+3, MSA+4, MSA+5 , MSA+6, MSA+12 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| % | EVN+1~, EVN+3, GETCHART+1~, GETCHART+17*, GETCHART+18 | 
| AACK | AACK+1~, AACK+4*, AACK+5, AACK+8 | 
| ADDR | NK1+1~, NK1+23*, NK1+24 | 
| >> AGDUZ2 | PID+19, PID+24 | 
| AL | ALIAS+1~, ALIAS+5*, ALIAS+6 | 
| ALN | ALIAS+1~, ALIAS+6*, ALIAS+7 | 
| APPARMS | NEWMSG+1~, NEWMSG+38 | 
| APPARMS("ACCE | PT ACK RESPONSE" , NEWMSG+28*, PT ACK TYPE" , NEWMSG+26* | 
| APPARMS("APP | ACK RESPONSE" , NEWMSG+27*, ACK TYPE" , NEWMSG+29* | 
| APPARMS("QUEUE" | NEWMSG+30* | 
| APPARMS("SEND | ING APPLICATION" , NEWMSG+25* | 
| ARY | NEWMSG+1~, EVN+4, EVN+5, EVN+8, EVN+9, EVN+10, EVN+11, PID+13, PID+14, PID+15 , PID+26, PID+32, PID+33, PID+38, PID+39, PID+40, PID+41, PID+46, PID+48, PID+49 , PID+50, PID+52, PID+53, PID+54, PID+57, PID+58, PID+59, PID+61, PID+62, PID+63 , ALIAS+9, ALIAS+10, PD1+4, PD1+8, PD1+9, NK1+9, NK1+10, NK1+16, NK1+22, NK1+25 , NK1+28, NK1+29, NK1+30, NK1+33, NK1+34, NK1+35, NK1+36, NK1+37, NK1+38, ASUFAC+12 , ASUFAC+13, MSA+2, MSA+3, MSA+4, MSA+5, MSA+6, MSA+7, MSA+12, MSA+13, SET~ , SET+1 | 
| ASU | PID+1~, PID+8~, PID+21*, PID+22*, PID+23 | 
| ASUFAC | ASUFAC+1~, ASUFAC+6*, ASUFAC+7, ASUFAC+8 | 
| >> BADELOAD | PID+23, PID+25 | 
| C | GETCHART+1~, GETCHART+14*, GETCHART+15, GETCHART+16*, GETCHART+17, SET~, SET+1 | 
| CACK | CACK+1~, CACK+3*, CACK+4, CACK+7 | 
| CNT | ALIAS+1~, ALIAS+4*, ALIAS+9, ALIAS+10, ALIAS+11*, NK1+1~, NK1+2*, NK1+8*, NK1+10 | 
| DATA | AACK+1~, ASUFAC+1~, ASUFAC+4*, ASUFAC+5 | 
| DATE | ASUFAC+1~, ASUFAC+5*, ASUFAC+7, ASUFAC+8 | 
| DFN | NEWMSG~, NEWMSG+8, NEWMSG+18, NEWMSG+19, NEWMSG+39, NOTIF~, NOTIF+3, NOTIF+4, NOTIF+5, NOTIF+7 , NOTIF+8, NOTIF+14, EVN+12, PID~, PID+3, PID+5, PID+7, PID+10, PID+12, PID+15 , PID+19, PID+22, PID+23, PID+24, PID+25, PID+30, PID+34, PID+35, PID+36, PID+45 , PID+56, PID+58, PID+59, PID+62, PID+64, ALIAS~, ALIAS+3, ALIAS+5, ALIAS+6, PD1~ , PD1+2, PD1+5, PD1+6, PD1+10, NK1+5, NK1+6, NK1+11, NK1+18, NK1+39, ASUFAC~ , ASUFAC+3, ASUFAC+4, ASUFAC+6, FIXZIP~, FIXZIP+2 | 
| DGNAME | NK1+1~, NK1+14 | 
| DGNAME("FIELD" | NK1+12* | 
| DGNAME("FILE" | NK1+11* | 
| DGNAME("IENS" | NK1+11* | 
| DUZ(2 | PID+19, PID+24 | 
| ERR | NEWMSG+1~, NEWMSG+7, NEWMSG+8, NEWMSG+18, NEWMSG+19, NEWMSG+20, NEWMSG+21, NEWMSG+22, NEWMSG+23, NEWMSG+38 , NEWMSG+39, EVN+11, EVN+12, PID+3*, PID+5*, PID+7*, PID+12*, PID+23*, PID+25*, PID+30* , PID+35*, PID+63, PID+64, ALIAS+3*, PD1+2*, PD1+9, PD1+10, NK1+38, NK1+39 | 
| EVNTTYPE | NEWMSG~, NEWMSG+5, NEWMSG+17, EVN~, EVN+5, EVN+6 | 
| F | SET~, SET+1 | 
| FAC | ASUFAC+1~, ASUFAC+2*, ASUFAC+7*, ASUFAC+8*, ASUFAC+9, ASUFAC+10 | 
| FLD | NEWMSG+2~, EVN+1~, EVN+6*, EVN+7, PID+1~, PID+29*, PID+30, PID+31, PID+36*, PID+37 , PID+42*, PID+43, ALIAS+1~, ALIAS+7*, ALIAS+8, PD1+3~, PD1+6*, PD1+7, NK1+1~, NK1+14* , NK1+15 | 
| HL1 | NEWMSG+2~ | 
| HL1("ECH" | NEWMSG+11* | 
| HL1("FS" | NEWMSG+12* | 
| HL1("Q" | NEWMSG+13*, PID+9, NK1+3 | 
| HL1("VER" | NEWMSG+14* | 
| HLECH | NEWMSG+1~, NEWMSG+10*, NEWMSG+11, EVN+7, PID+31, PID+37, PID+43, ALIAS+8, PD1+6, PD1+7 , NK1+15, NK1+21, NK1+24, ASUFAC+10, ASUFAC+11 | 
| HLFS | NEWMSG+1~, NEWMSG+9*, NEWMSG+12, PID+29, PID+35, PID+40, PID+41, PID+42, PID+47, PID+48 , PID+51, PID+52, PID+61 | 
| HLMSGIEN | NEWMSG+1~, AACK+2, AACK+3, AACK+4, CACK+2, CACK+3 | 
| HLPM | NEWMSG+1~, NEWMSG+7 | 
| HLPM("ENCODIN | G CHARACTERS" , NEWMSG+10 | 
| HLPM("EVENT" | NEWMSG+5* | 
| HLPM("FIELD S | EPARATOR" , NEWMSG+9 | 
| HLPM("MESSAGE | TYPE" , NEWMSG+4* | 
| HLPM("VERSION" | NEWMSG+6*, NEWMSG+14 | 
| HLQ | NEWMSG+1~, PID+8~, PID+9*, NK1+1~, NK1+3* | 
| HLST | NEWMSG+1~, NEWMSG+7, NEWMSG+38, EVN+11, PID+63, PD1+9, NK1+38, MSA+7, MSA+13 | 
| HRCN | NEWMSG+2~, PID+1~, PID+19*, PID+24*, PID+25, PID+26 | 
| HRN | ASUFAC+1~, FMTHRN~, FMTHRN+5, FMTHRN+6*, FMTHRN+7 | 
| IEN | ASUFAC+1~, ASUFAC+2*, ASUFAC+3*, ASUFAC+4 | 
| K | NK1+1~, NK1+4*, NK1+5, NK1+6, NK1+12, NK1+18, NK1+36, NK1+37 | 
| L | GETCHART~, GETCHART+3, GETCHART+8*, GETCHART+11, GETCHART+14, FINDHRN+1~, FINDHRN+6*, FINDHRN+7, FINDHRN+10, HRN+1~ , HRN+6*, HRN+7, HRN+9, FMTHRN~, FMTHRN+2 | 
| LEN | NOTIF+1~, NOTIF+3*, NOTIF+4 | 
| LL | GETCHART+3*, GETCHART+7*, GETCHART+8, GETCHART+9! | 
| LN | NEWMSG+2~, NEWMSG+3* | 
| LOC | ASUFAC+1~, ASUFAC+5*, ASUFAC+6, FINDHRN~, FINDHRN+3, FINDHRN+4, FINDHRN+10, HRN~, HRN+3, HRN+4 , HRN+9 | 
| LP | NEWMSG+2~, EVN+7*, EVN+8, PID+1~, PID+8~, PID+31*, PID+32, PID+37*, PID+38, PID+43* , PID+45, PID+46, ALIAS+1~, ALIAS+8*, ALIAS+9, PD1+3~, PD1+7*, PD1+8, NK1+15*, NK1+16 , NK1+21*, NK1+22, NK1+24*, NK1+25, ASUFAC+1~, ASUFAC+11*, ASUFAC+12, ASUFAC+13 | 
| MSA | MSA+1~, MSA+7* | 
| MSG | NOTIF~, NOTIF+3, NOTIF+5, NOTIF+14 | 
| MSGID | AACK+1~, AACK+3*, AACK+6, AACK+7, CACK+1~, CACK+2*, CACK+5, CACK+6 | 
| MSH | MSA+11~, MSA+13* | 
| MSTS | PID+8~, PID+56*, PID+57 | 
| NK1 | NK1+1~, NK1+38* | 
| NODE | NK1+1~, NK1+5*, NK1+6*, NK1+7, NK1+23, NK1+26, NK1+31 | 
| P | GETCHART~, GETCHART+3, GETCHART+4, GETCHART+14 | 
| PART | ASUFAC+1~, ASUFAC+10*, ASUFAC+11 | 
| PAT | FINDHRN~, FINDHRN+3, FINDHRN+6, FINDHRN+7, HRN~, HRN+3, HRN+6, HRN+7 | 
| PD1 | PD1+3~, PD1+9* | 
| PHONE | NK1+1~, NK1+26*, NK1+27, NK1+28, NK1+31*, NK1+32, NK1+33 | 
| PID | PID+1~, PID+8~, PID+10*, PID+12, PID+29, PID+35, PID+40, PID+41, PID+42, PID+47 , PID+48, PID+51, PID+52, PID+61 | 
| PPRV | PD1+3~, PD1+5*, PD1+6 | 
| PVDIEN | NOTIF+1~ | 
| R | SET~, SET+1 | 
| REL | NK1+1~ | 
| REP | ASUFAC+1~, ASUFAC+10*, ASUFAC+12, ASUFAC+13 | 
| RET | NOTIF+1~, FINDHRN+1~, FINDHRN+2*, FINDHRN+4*, FINDHRN+5, FINDHRN+6, FINDHRN+10*, FINDHRN+11 | 
| RETHRN | HRN+1~, HRN+2*, HRN+4*, HRN+5, HRN+6, HRN+9*, HRN+10 | 
| S | GETCHART+1~, GETCHART+11*, GETCHART+12, GETCHART+13*, GETCHART+17, FMTHRN+1~, FMTHRN+2*, FMTHRN+3, FMTHRN+4*, FMTHRN+7 , SET~, SET+1 | 
| SAVE | NOTIF+1~, NOTIF+14*, NOTIF+15 | 
| SGM | PID+8~ | 
| SHIP | NK1+1~, NK1+18*, NK1+19, NK1+20 | 
| STR | NOTIF+1~, NOTIF+4*, NOTIF+5 | 
| U | AACK+3, AACK+5, AACK+8, CACK+2, CACK+4, CACK+7, NOTIF+4, PID+7, PID+26, ALIAS+6 , NK1+18, NK1+20, NK1+23, NK1+26, NK1+31, ASUFAC+5, GETCHART+11, GETCHART+14, FINDHRN+4, FINDHRN+8 , FINDHRN+9, FINDHRN+10, HRN+4, HRN+8, HRN+9, FMTHRN+2 | 
| V | SET~, SET+1 | 
| VAL | EVN+1~, EVN+7*, EVN+8, PID+1~, PID+8~, PID+31*, PID+32, PID+37*, PID+38, PID+43* , PID+45*, PID+46, ALIAS+8*, ALIAS+9, PD1+7*, PD1+8, NK1+15*, NK1+16, NK1+21*, NK1+22 , NK1+24*, NK1+25, ASUFAC+1~, ASUFAC+11*, ASUFAC+12 | 
| WHO | NEWMSG+1~, NEWMSG+38 | 
| WHO("FACILITY | LINK NAME" , NEWMSG+35* | 
| WHO("RECEIVIN | G APPLICATION" , NEWMSG+34* | 
| X | NEWMSG+2~, NOTIF+1~, NOTIF+12*, NOTIF+13*, NOTIF+15, NOTIF+16, EVN+1~, EVN+3*, EVN+9, EVN+11* , PID+8~, PID+63*, NK1+20*, NK1+21, GETCHART+3*, GETCHART+4, GETCHART+9!, FINDHRN+1~, FINDHRN+3*, FINDHRN+4 , FINDHRN+7*, FINDHRN+8, FINDHRN+9, FINDHRN+10, HRN+1~, HRN+3*, HRN+4, HRN+7*, HRN+8, HRN+9 | 
| XQA | AACK+1~, CACK+1~, NOTIF+2~ | 
| XQA("G.RPMS D | ENTAL" , AACK+9*, CACK+8*, NOTIF+9* | 
| XQADATA | NOTIF+2~ | 
| XQAID | AACK+1~, AACK+7*, CACK+1~, CACK+6*, NOTIF+2~, NOTIF+7* | 
| XQAMSG | AACK+1~, AACK+6*, CACK+1~, CACK+5*, NOTIF+2~, NOTIF+5* | 
| XQDATA | AACK+1~, AACK+8*, CACK+1~, CACK+7*, NOTIF+8* | 
| Y | GETCHART+4*, GETCHART+5, GETCHART+6, GETCHART+7, GETCHART+9! | 
| ZIP | FIXZIP~, FIXZIP+1 |