Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: BADEHL1

Package: Electronic Dental Record

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

FileMan Files Accessed Via FileMan Db Call

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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All