Routine: BADEHL1

Information

BADEHL1 ;IHS/MSC/MGH/PLS/VAC/AMF - Dentrix HL7 interface ;20-Feb-2013;fje

Source Information

Source file <BADEHL1.m>

Call Graph

Call Graph Total: 13

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

Caller Graph

Caller Graph Total: 7

Package	Total	Caller Graph
Electronic Dental Record	7	BADEEVNT BADEHL1 BADEHLI BADEHLZ BADEMRG BADEMRG1 BADESND

Entry Points

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.

External References

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

Global Variables Directly Accessed

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

Label References

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

Local Variables

Legend:

>>	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

Customize PDF page

Package: Electronic Dental Record

Routine: BADEHL1

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Caller Graph Total: 7

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: