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 |