Routine: BADEMRG

Call Graph

Call Graph Total: 10

Package	Total	Call Graph
Electronic Dental Record	3	(NEWMSG,NOTIF)^BADEHL1 NEWMSG^BADEMRG1 ($$MRGTODFN,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

(NEWMSG,NOTIF)^BADEHL1 NEWMSG^BADEMRG1 ($$MRGTODFN,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
IHS Patient Merge	2	BPMXEDR BPMXFX1
Electronic Dental Record	1	BADEECP1

Package

Total

Caller Graph

IHS Patient Merge

BPMXEDR BPMXFX1

Electronic Dental Record

BADEECP1

Entry Points

Name	Comments	DBIA/ICR reference
SENDX
MSG(FROM,TO)	;EP to send A40 and A31 messages
LOADPT	;EP Load all patient's data
SENDA40	;Send one A40 message
MSA	;EP
A40(FROM,TO)	;EP Create and send one A40 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
COMPLETE(WHICH)	;Mark options out of order
LOOP

External References

Name	Field # of Occurrence
^%ZTLOAD	TLOADPT+14, TRESTRT+11
NEWMSG^BADEHL1	A31+4
NOTIF^BADEHL1	A31+3
NEWMSG^BADEMRG1	A40+3
$$MRGTODFN^BADEUTIL	LOOP+6, LOOP2+7, SENDA40+11
EDPROT^BADEUTIL	COMPLETE+15
^DIC	SENDA40+4
^DIE	COMPLETE+13
^DIR	SENDA40+21
$$ADDSEG^HLOAPI	MSA+7
SET^HLOAPI	SET+1
$$DT^XLFDT	SENDA40+3
$$GET^XPAR	TLOADPT+3, TLOADPT+7, LOADPT+5, LOOP+15, TRESTRT+3, RESTPT+3, RESTPT+7, LOOP2+17
EN^XPAR	TLOADPT+16, LOADPT+3, LOOP+10, LOOP+13, LOOP+19, LOOP+20, TRESTRT+13, RESTPT+5, LOOP2+12, LOOP2+15 , LOOP2+21, LOOP2+22

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Process is already running",!!! Line Location: TRESTRT+5
Function Call: WRITE	Prompt: !,"There were no patients merged to "_NAME Line Location: SENDA40+15
Function Call: WRITE	Prompt: !,"Invalid Selection, Try again" Line Location: SENDA40+22
Function Call: WRITE	Prompt: !,"Unable to send HL7 message" Line Location: MSG+2
Function Call: WRITE	Prompt: !,"Message was sent" Line Location: MSG+4
Function Call: WRITE	Prompt: !,"Unable to send HL7 message" Line Location: MSG+5
Routine Call	DIE Line Location: COMPLETE+13
Routine Call	DIC Line Location: SENDA40+4
Routine Call	DIR Line Location: SENDA40+21

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

Name	Line Occurrences (* Changed, ! Killed)
^DIC(19 - [#19]	COMPLETE+10
^DPT - [#2]	LOOP+1, LOOP+2, LOOP2+2, LOOP2+3, SENDA40+8, SENDA40+9, SENDA40+10, SENDA40+14, A31+3

Name	Line Occurrences
A31	LOOP+8, LOOP2+9, MSG+3
A40	LOOP+7, LOOP2+8, MSG+1
COMPLETE	LOOP+21, LOOP2+23
MSG	SENDA40+23
SENDA40	SENDA40+15, SENDA40+24
SENDX	SENDA40+4
SET	MSA+2, MSA+3, MSA+4, MSA+5, MSA+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ARRAY	SENDA40+1~
ARRAY(	SENDA40+14*, SENDA40+19, SENDA40+20, SENDA40+22, SENDA40+23
ARY	MSA+2, MSA+3, MSA+4, MSA+5, MSA+6, MSA+7, SET~, SET+1
BADERR	SENDA40+1~
C	SET~, SET+1
CNT	LOADPT+1~, LOOP, RESTPT+1~, LOOP2, SENDA40+1~, SENDA40+2, SENDA40+13, SENDA40+14, SENDA40+15, SENDA40+17 , SENDA40+20
CNTCHK	LOADPT+1~, RESTPT+1~
DA	COMPLETE+7~, COMPLETE+10*, COMPLETE+11
DATA	LOADPT+1~, RESTPT+1~
DFN	SENDA40+1~, SENDA40+6*, SENDA40+7, SENDA40+8, SENDA40+12, SENDA40+23, A31~, A31+3, A31+4
DFN2	SENDA40+1~, SENDA40+9*, SENDA40+10, SENDA40+11, SENDA40+14
DIC	SENDA40+1~, SENDA40+3*
DIC("A"	SENDA40+3*
DIC(0	SENDA40+3*
DIE	COMPLETE+7~, COMPLETE+12*
DIR	SENDA40+1~
DIR("A"	SENDA40+21*
DIR(0	SENDA40+21*
DOD	A31+1~
DR	COMPLETE+7~, COMPLETE+12*
DT	SENDA40+1~, SENDA40+3*
ERR	SENDA40+1~, MSG+2, MSG+4, MSG+5
EVNTTYPE	A40+1~, A40+2, A40+3, A31+1~, A31+2, A31+4
F	SET~, SET+1
FDFN	LOADPT+1~, LOADPT+5, LOOP, LOOP+1, LOOP+2, LOOP+6, LOOP+7, LOOP+10, RESTPT+1~, RESTPT+3 , LOOP2+1, LOOP2+2, LOOP2+3, LOOP2+7, LOOP2+8, LOOP2+12
FROM	SENDA40+23*, MSG~, MSG+1, A40~, A40+3
HLST	MSA+1~, MSA+7
I	COMPLETE+1~, COMPLETE+6, COMPLETE+8, COMPLETE+10, SENDA40+18~, SENDA40+19, SENDA40+20
MENU	COMPLETE+1~
MENU(	COMPLETE+10
MENU(1	COMPLETE+2*
MENU(2	COMPLETE+3*
MENU(3	COMPLETE+4*
MENU(4	COMPLETE+5*
MSA	MSA+1~, MSA+7*
MSG	COMPLETE+1~, COMPLETE+9*
NAME	SENDA40+1~, SENDA40+8*, SENDA40+15
QUIT	SENDA40+1~, SENDA40+16, SENDA40+22, SENDA40+24
R	SET~, SET+1
RESULT	LOADPT+1~, LOOP+5, LOOP+6, LOOP+7, LOOP+8, RESTPT+1~, LOOP2+6, LOOP2+7, LOOP2+8, LOOP2+9 , SENDA40+1~, SENDA40+11*, SENDA40+12
S	SET~, SET+1
STOP	TLOADPT+1~, TLOADPT+3, TLOADPT+5, LOADPT+1~, LOOP, LOOP+1, LOOP+15, LOOP+16, LOOP+18, TRESTRT+1~ , TRESTRT+3, TRESTRT+5, RESTPT+1~, LOOP2, LOOP2+2, LOOP2+17, LOOP2+18, LOOP2+20
THROTTLE	LOADPT+1~
TO	SENDA40+23*, MSG~, MSG+1, MSG+3, A40~, A40+3
TOTAL	LOADPT+1~, LOOP, LOOP+12, LOOP+13, RESTPT+1~, RESTPT+7, LOOP2+14, LOOP2+15
U	SENDA40+8, SENDA40+14, SENDA40+20, SENDA40+23
V	SET~, SET+1
WHICH	COMPLETE~, COMPLETE+8, COMPLETE+9
X	SENDA40+1~, SENDA40+22, SENDA40+23
Y	SENDA40+1~, SENDA40+4, SENDA40+5, SENDA40+6
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: BADEMRG

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: