Routine: BADEEVNT

Package	Total	Call Graph
Electronic Dental Record	3	A28^BADEEVNT (NEWMSG,NOTIF)^BADEHL1 EDPROT^BADEUTIL
VA Fileman	3	^DIC ^DIE ^DIR
Kernel	2	^%ZTLOAD $$DT^XLFDT
Health Level Seven	1	($$ADDSEG,SET)^HLOAPI
Toolkit	1	($$GET,EN)^XPAR

Package

Total

Call Graph

Electronic Dental Record

A28^BADEEVNT (NEWMSG,NOTIF)^BADEHL1 EDPROT^BADEUTIL

VA Fileman

^DIC ^DIE ^DIR

Kernel

^%ZTLOAD $$DT^XLFDT

Health Level Seven

($$ADDSEG,SET)^HLOAPI

Toolkit

($$GET,EN)^XPAR

Package	Total	Caller Graph
Electronic Dental Record	1	BADEEVNT

Package

Total

Caller Graph

Electronic Dental Record

BADEEVNT

Entry Points

Name	Comments	DBIA/ICR reference
COMPLETE	;Mark options out of order
LOADPT	;EP Load all patient's data
A28(DFN)	;EP Create and send one A28 message
MSA	;EP
SENDA28	;Send one A28 message
TLOADPT	;EP Taskman call to start patient load
A31(DFN)	;EP Create and send one A31 message
SET(ARY,V,F,C,S,R)	;EP
RESTPT	;EP Restart the patient load
LOOP2
TRESTRT	;EP Taskman call to restart patient load
SENDA31	;Send one A31 message
LOOP

External References

Name	Field # of Occurrence
^%ZTLOAD	TLOADPT+14, TRESTRT+11
A28^BADEEVNT	LOOP+9, LOOP2+10
NEWMSG^BADEHL1	A28+8, A31+7
NOTIF^BADEHL1	A28+5, A31+3
EDPROT^BADEUTIL	COMPLETE+15, COMPLETE+16
^DIC	SENDA28+2, SENDA31+2
^DIE	COMPLETE+13
^DIR	SENDA28+7, SENDA31+7
$$ADDSEG^HLOAPI	MSA+7
SET^HLOAPI	SET+1
$$DT^XLFDT	SENDA28+2, SENDA31+2
$$GET^XPAR	TLOADPT+3, TLOADPT+7, LOADPT+5, LOADPT+7, LOOP+17, LOOP+21, LOOP+22, TRESTRT+3, RESTPT+3, RESTPT+7 , RESTPT+8, LOOP2+18, LOOP2+22, LOOP2+23
EN^XPAR	TLOADPT+16, LOADPT+3, LOOP+12, LOOP+15, LOOP+27, LOOP+28, TRESTRT+13, RESTPT+5, LOOP2+13, LOOP2+16 , LOOP2+28, LOOP2+29

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Process is already running",!!! Line Location: TRESTRT+5
Function Call: WRITE	Prompt: !,"Message was sent" Line Location: SENDA28+5
Function Call: WRITE	Prompt: !,"Unable to send HL7 message" Line Location: SENDA28+6
Function Call: WRITE	Prompt: !,"Message was sent" Line Location: SENDA31+5
Function Call: WRITE	Prompt: !,"Unable to send HL7 message" Line Location: SENDA31+6
Function Call: WRITE	Prompt: ! Line Location: SENDA31+7
Routine Call	DIE Line Location: COMPLETE+13
Routine Call	DIC Line Location: SENDA28+2 SENDA31+2
Routine Call	DIR Line Location: SENDA28+7 SENDA31+7

FileNo	Call Tags
^DIC(19 - [#19]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	LOOP+3, LOOP+5, LOOP2+4, LOOP2+6
^DIC(19 - [#19]	COMPLETE+10
^DPT - [#2]	LOOP+1, LOOP2+2, A28+4, A28+5, A28+7, A31+3

Name	Line Occurrences
A28	SENDA28+4
A31	SENDA31+4
COMPLETE	LOOP+29, LOOP2+30
SET	MSA+2, MSA+3, MSA+4, MSA+5, MSA+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ARY	MSA+2, MSA+3, MSA+4, MSA+5, MSA+6, MSA+7, SET~, SET+1
BADELOAD	LOADPT+1~, LOOP+8, LOOP+10!, LOOP2+9, LOOP2+11!
BADERR	SENDA31+1~
C	SET~, SET+1
CNT	LOADPT+1~, LOOP, LOOP+7, LOOP+20, LOOP+24, RESTPT+1~, LOOP2, LOOP2+8, LOOP2+21, LOOP2+25
CNTCHK	LOADPT+1~, LOADPT+7, LOOP+20, LOOP+22, RESTPT+1~, RESTPT+8, LOOP2+21, LOOP2+23
DA	COMPLETE+8~, COMPLETE+10*, COMPLETE+11
DATA	LOADPT+1~, RESTPT+1~
DFN	LOADPT+1~, LOADPT+5, LOOP, LOOP+1, LOOP+3, LOOP+4, LOOP+5, LOOP+9, LOOP+12, RESTPT+1~ , RESTPT+3, LOOP2+1, LOOP2+2, LOOP2+4, LOOP2+5, LOOP2+6, LOOP2+10, LOOP2+13, SENDA28+1~, SENDA28+3* , SENDA28+4, SENDA31+1~, SENDA31+3*, SENDA31+4, A28~, A28+4, A28+5, A28+7, A28+8, A31~ , A31+3, A31+7
DIC	SENDA28+1~, SENDA28+2, SENDA31+1~, SENDA31+2
DIC("A"	SENDA28+2, SENDA31+2
DIC(0	SENDA28+2, SENDA31+2
DIE	COMPLETE+8~, COMPLETE+12*
DIR	SENDA28+7!, SENDA31+7!
DIR("?"	SENDA28+7, SENDA31+7
DIR("A"	SENDA28+7, SENDA31+7
DIR(0	SENDA28+7, SENDA31+7
DOD	A28+1~, A28+7*, A28+8, A31+1~
DR	COMPLETE+8~, COMPLETE+12*
DT	SENDA28+1~, SENDA28+2, SENDA31+1~, SENDA31+2
ERR	SENDA28+1~, SENDA28+5, SENDA31+1~, SENDA31+5, A28+5, A31+3
EVNTTYPE	A28+1~, A28+2, A28+8, A31+1~, A31+2, A31+7
F	SET~, SET+1
HLST	MSA+1~, MSA+7
I	COMPLETE+1~, COMPLETE+7*, COMPLETE+10
MENU	COMPLETE+1~
MENU(	COMPLETE+10
MENU(1	COMPLETE+2*
MENU(2	COMPLETE+3*
MENU(3	COMPLETE+4*
MENU(4	COMPLETE+5*
MENU(5	COMPLETE+6*
MSA	MSA+1~, MSA+7*
MSG	COMPLETE+1~, COMPLETE+9*
PATNO	LOOP+2!, LOOP+3, LOOP+4, LOOP+5, LOOP+6, LOOP2+3!, LOOP2+4, LOOP2+5, LOOP2+6, LOOP2+7
R	SET~, SET+1
S	SET~, SET+1
STOP	TLOADPT+1~, TLOADPT+3, TLOADPT+5, LOADPT+1~, LOOP, LOOP+1, LOOP+17, LOOP+18, LOOP+26, TRESTRT+1~ , TRESTRT+3, TRESTRT+5, RESTPT+1~, LOOP2, LOOP2+2, LOOP2+18, LOOP2+19, LOOP2+27
THROTTLE	LOADPT+1~, LOOP+21, LOOP+23, LOOP2+22, LOOP2+24
TOTAL	LOADPT+1~, LOOP, LOOP+14, LOOP+15, RESTPT+1~, RESTPT+7, LOOP2+15, LOOP2+16
U	A28+7
V	SET~, SET+1
Y	SENDA28+1~, SENDA28+2, SENDA28+3, SENDA31+1~, SENDA31+2, SENDA31+3
ZTDESC	TLOADPT+1~, TLOADPT+11, TRESTRT+1~, TRESTRT+8
ZTDTH	TLOADPT+1~, TRESTRT+1~
ZTIO	TLOADPT+1~, TLOADPT+9, TRESTRT+1~, TRESTRT+6
ZTPRI	TLOADPT+1~, TLOADPT+10, TRESTRT+1~, TRESTRT+7
ZTRTN	TLOADPT+1~, TLOADPT+12, TRESTRT+1~, TRESTRT+9
ZTSAVE	TLOADPT+1~, TRESTRT+1~
ZTSAVE("DUZ"	TLOADPT+13, TRESTRT+10
ZTSK	TLOADPT+1~, TLOADPT+15, TLOADPT+16, TLOADPT+17, TRESTRT+1~, TRESTRT+12, TRESTRT+13, TRESTRT+14

Customize PDF page

Package: Electronic Dental Record

Routine: BADEEVNT

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: