Routine: BADEHL2

Package	Total	Call Graph
Kernel	4	($$DT,$$NOW)^XLFDT $$HLNAME^XLFNAME SETUP^XQALERT $$NPI^XUSNPI
Health Level Seven	3	($$HLDATE,$$HLPHONE)^HLFNC ($$ADDSEG,$$NEWMSG,SET)^HLOAPI $$SENDONE^HLOAPI1
Registration	1	$$ADDR^VAFHLFNC
Toolkit	1	($$GET,EN)^XPAR

Package	Total	Caller Graph
Electronic Dental Record	1	BADEVNT1

Name	Comments	DBIA/ICR reference
ERR	;
MFI	;Create the MFI segment
STF(IEN)	;Create the STF segment
FINDTYP(IEN)	;Find out if a new or update message should be sent
NOTIF(IEN,MSG)	;EP ------- IHS/MSC/AMF 11/23/10 More descriptive alert
SET(ARY,V,F,C,S,R)	;EP
PRA(IEN)	;Create the PRA segment
NEWMSG(IEN,MFNTYP)	;EP
MFE(IEN)	;EP

Name	Field # of Occurrence
$$HLDATE^HLFNC	MFI+3, MFE+7
$$HLPHONE^HLFNC	STF+27
$$ADDSEG^HLOAPI	MFI+11, MFE+10, STF+43, PRA+41
$$NEWMSG^HLOAPI	NEWMSG+7
SET^HLOAPI	SET+1
$$SENDONE^HLOAPI1	NEWMSG+32
$$ADDR^VAFHLFNC	STF+39
$$DT^XLFDT	MFE+7, FINDTYP+4
$$NOW^XLFDT	MFI+2
$$HLNAME^XLFNAME	STF+18
$$GET^XPAR	NOTIF+13
EN^XPAR	NOTIF+16, NOTIF+17
SETUP^XQALERT	NOTIF+11
$$NPI^XUSNPI	STF+11

Name	Line Occurrences (* Changed, ! Killed)
^VA(200 - [#200]	STF+5, STF+6, STF+7, PRA+7, PRA+8, PRA+9, NOTIF+5, FINDTYP+5, FINDTYP+8, FINDTYP+9 , FINDTYP+10

Name	Line Occurrences
MFE	NEWMSG+18
MFI	NEWMSG+17
NOTIF	NEWMSG+8, NEWMSG+33, MFI+12, MFE+11, STF+12, STF+19, STF+44, PRA+42
PRA	NEWMSG+20
SET	MFI+4, MFI+5, MFI+6, MFI+7, MFI+8, MFI+9, MFI+10, MFE+4, MFE+5, MFE+6 , MFE+7, MFE+8, MFE+9, STF+9, STF+13, STF+14, STF+22, STF+23, STF+26, STF+29 , STF+30, STF+33, STF+36, STF+38, STF+41, PRA+3, PRA+4, PRA+5, PRA+14, PRA+15 , PRA+18, PRA+19, PRA+22, PRA+23, PRA+26, PRA+27, PRA+30, PRA+31
STF	NEWMSG+19

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AC	STF+3~, STF+32*, STF+33
ACTIVE	FINDTYP+2~
ADDR	STF+2~, STF+39*, STF+40
APPARMS	NEWMSG+2~, NEWMSG+32
APPARMS("ACCE	PT ACK RESPONSE" , NEWMSG+27, PT ACK TYPE" , NEWMSG+25
APPARMS("APP	ACK RESPONSE" , NEWMSG+26, ACK TYPE" , NEWMSG+28
APPARMS("QUEUE"	NEWMSG+29*
APPARMS("SEND	ING APPLICATION" , NEWMSG+24*
ARY	NEWMSG+1~, MFI+4, MFI+5, MFI+6, MFI+7, MFI+8, MFI+9, MFI+10, MFI+11, MFE+4 , MFE+5, MFE+6, MFE+7, MFE+8, MFE+9, MFE+10, STF+9, STF+13, STF+14, STF+22 , STF+23, STF+26, STF+29, STF+30, STF+33, STF+36, STF+38, STF+41, STF+43, PRA+3 , PRA+4, PRA+5, PRA+14, PRA+15, PRA+18, PRA+19, PRA+22, PRA+23, PRA+26, PRA+27 , PRA+30, PRA+31, PRA+41, SET~, SET+1
C	SET~, SET+1
CNT	STF+2~
DATA	PRA+2~
DEA	PRA+2~, PRA+8*, PRA+21, PRA+22
DGNAME	STF+2~, STF+18
DGNAME("FIELD"	STF+16*
DGNAME("FILE"	STF+15*
DGNAME("IENS"	STF+15*
ENTER	FINDTYP+2~, FINDTYP+5*, FINDTYP+6, FINDTYP+7
ERR	NEWMSG+1~, NEWMSG+7, NEWMSG+8, NEWMSG+18, NEWMSG+19, NEWMSG+20, NEWMSG+21, NEWMSG+23, NEWMSG+32, NEWMSG+33 , MFI+11, MFI+12, MFE+10, MFE+11, STF+12, STF+19, STF+43, STF+44, PRA+41, PRA+42
EX	STF+3~, STF+37*, STF+38
F	SET~, SET+1
FLD	MFI+1~, STF+2~, STF+18, STF+19, STF+21, PRA+2~, PRA+11, PRA+14, PRA+15, PRA+16* , PRA+18, PRA+19, PRA+20, PRA+22, PRA+23, PRA+24, PRA+26, PRA+27, PRA+28, PRA+30 , PRA+31, PRA+32
HL1	NEWMSG+2~
HL1("ECH"	NEWMSG+11*
HL1("FS"	NEWMSG+12*
HL1("Q"	NEWMSG+13*, MFE+3, STF+4
HL1("VER"	NEWMSG+14*
HLECH	NEWMSG+2~, NEWMSG+10*, NEWMSG+11, STF+21, STF+40
HLFS	NEWMSG+2~, NEWMSG+9*, NEWMSG+12
HLPM	NEWMSG+1~, NEWMSG+2~, 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~, MFE+2~, MFE+3, STF+4
HLST	NEWMSG+1~, NEWMSG+7, NEWMSG+32, MFI+11, MFE+10, STF+43, PRA+41
I	PRA+2~
IEN	NEWMSG~, NEWMSG+8, NEWMSG+18, NEWMSG+19, NEWMSG+20, NEWMSG+33, MFI+12, MFE~, MFE+1, MFE+8 , MFE+11, STF~, STF+1, STF+5, STF+6, STF+7, STF+11, STF+12, STF+13, STF+15 , STF+19, STF+44, PRA~, PRA+1, PRA+4, PRA+7, PRA+8, PRA+9, PRA+42, NOTIF~ , NOTIF+3, NOTIF+5, NOTIF+6, NOTIF+8, NOTIF+9, NOTIF+15, FINDTYP~, FINDTYP+5, FINDTYP+8, FINDTYP+9 , FINDTYP+10
K	STF+2~
LEN	NOTIF+1~, NOTIF+3*, NOTIF+5
LN	NEWMSG+2~, NEWMSG+3*
LP	MFE+2~, STF+2~, STF+21, STF+22, STF+40, STF+41, PRA+2~
MEDICAID	PRA+2~, PRA+7*, PRA+29, PRA+30
MFNTYP	NEWMSG~, MFE+5, STF+26, FINDTYP+3
MSG	NOTIF~, NOTIF+3, NOTIF+6, NOTIF+15
NODE	NEWMSG+1~, STF+5*, STF+8
NODE1	NEWMSG+1~, STF+6*, PRA+6
NODE11	NEWMSG+1~, STF+7*, STF+39
NODE13	NEWMSG+1~, STF+5*, STF+27
NOW	MFI+1~, MFI+2, MFI+3, MFI+8, MFI+9
NPI	NEWMSG+2~, STF+10, STF+11, STF+12, STF+14, PRA+13, PRA+14
PHONE	STF+2~, STF+27*, STF+28, STF+29, STF+31, STF+32, STF+34, STF+35, STF+37
PID	MFE+2~
PN	STF+3~, STF+35*, STF+36
PVDIEN	NOTIF+1~
R	SET~, SET+1
REL	STF+2~
RES	FINDTYP+2~, FINDTYP+6, FINDTYP+8, FINDTYP+9, FINDTYP+10, FINDTYP+11
RET	NOTIF+1~
RP	PRA+2~
S	SET~, SET+1
SAVE	NOTIF+1~, NOTIF+15*, NOTIF+17
SGM	MFE+2~
SHIP	STF+2~
SSN	PRA+2~, PRA+6*, PRA+17, PRA+18
STR	NOTIF+1~, NOTIF+4, NOTIF+5, NOTIF+6
TD	FINDTYP+2~, FINDTYP+4*, FINDTYP+6, FINDTYP+7
TODAY	NEWMSG+1~
U	STF+27, STF+39, PRA+6, PRA+7, PRA+8, PRA+9, NOTIF+5, FINDTYP+5, FINDTYP+8, FINDTYP+9 , FINDTYP+10
V	SET~, SET+1
VA	PRA+2~, PRA+9*, PRA+25, PRA+26
VAL	MFE+2~, STF+2~, STF+21, STF+22, STF+40, STF+41, PRA+2~
VAL1	PRA+2~
WHO	NEWMSG+1~, NEWMSG+32
WHO("FACILITY	LINK NAME" , NEWMSG+31*
WHO("RECEIVIN	G APPLICATION" , NEWMSG+30*
X	MFI+11, MFE+2~, MFE+10, STF+2~, STF+43, PRA+2~, PRA+41, NOTIF+1~, NOTIF+13, NOTIF+14 , NOTIF+16, NOTIF+17
XQA	NOTIF+2~
XQA("G.RPMS D	ENTAL" , NOTIF+10*
XQAID	NOTIF+2~, NOTIF+8*
XQAMSG	NOTIF+2~, NOTIF+6*
XQDATA	NOTIF+2~, NOTIF+9*

Customize PDF page

Package: Electronic Dental Record

Routine: BADEHL2

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Global Variables Directly Accessed

Label References

Local Variables

Legend: