Routine: EASXDR

Information

EASXDR ;ALB/BRM - ROUTINE TO MERGE ENTRIES DURING PATIENT MERGE; ; 5/10/02 9:27am

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
VA FileMan	3	FILE^DIE EN^DIQ ^DIR
Enrollment Application System	1	($$CHKRELAT,$$REMOVE)^EASXDR1
Kernel	1	$$FMTE^XLFDT

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 3

Package	Total	Caller Graph
Enrollment Application System	3	EAS DELETE MT/COPAY DEPENDENT EAS MERGE DUP MT/COPAY DEP EASXDR1

Entry Points

Name	Comments	DBIA/ICR reference
EN(ARRAY)	;Entry point called with the name of the array containing the ; from and to pointers of the record being merged. The array is ; formatted as follows: ; ARRAY(FROM_IEN,TO_IEN,"FROM_IEN;DPT(","TO_IEN;DPT(")=""
OPTION	; entry point from 'Fix Duplicate Patient Relations' menu option
CHGACT(MRGFRIEN,MRGTOIEN,EFFDT)	;
FINDSSN(IEN40812,SSN)	;find SSN associated with Patient Relation entry
DELETE	; entry point from 'Delete Duplicate MT/Copay Dependents' menu option

External References

Name	Field # of Occurrence
FILE^DIE	CHGACT+22
EN^DIQ	CHGACT+6, CHGACT+8, DELETE+9
^DIR	OPTION+6, OPTION+24, CHGACT+12, DELETE+6, DELETE+16
$$CHKRELAT^EASXDR1	EN+14, OPTION+28
$$REMOVE^EASXDR1	DELETE+18
$$FMTE^XLFDT	CHGACT+11

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: OPTION+7
Function Call: WRITE	Prompt: !?2,Y(0)," Cannot be merged. Please select a new entry." Line Location: OPTION+8
Function Call: WRITE	Prompt: !?2,Y(0)," Cannot be merged. Please select a new entry." Line Location: OPTION+10
Function Call: WRITE	Prompt: !?2,"No Patient Relation entries were merged for this patient.",!! Line Location: OPTION+29
Function Call: WRITE	Prompt: !?2,+MSG_" Patient Relation "_$S(+MSG=1:"entry was",1:"entries were")_" successfully merged." Line Location: OPTION+30
Function Call: WRITE	Prompt: !!?2,"Data deleted during this merge will be stored for 10 days" Line Location: OPTION+31
Function Call: WRITE	Prompt: !?2,"in the following global: ^XTMP(""EASXDR1"",""DATA"","_DFN_")",!! Line Location: OPTION+32
Function Call: WRITE	Prompt: !!?2,Y(0)," Cannot be deleted. Please select a new entry.",! Line Location: DELETE+8
Function Call: WRITE	Prompt: !?2,"No Patient Relation entries were deleted for this patient.",!! Line Location: DELETE+19
Function Call: WRITE	Prompt: !?2,+MSG_" Patient Relation "_$S(+MSG=1:"entry was",1:"entries were")_" successfully deleted." Line Location: DELETE+20
Function Call: WRITE	Prompt: !!?2,"Data deleted during this process will be stored for 10 days" Line Location: DELETE+21
Function Call: WRITE	Prompt: !?2,"in the following global: ^XTMP(""EASXDR1"",""DATA"",""DELETE"",408.12,"_IEN12_")",!! Line Location: DELETE+22
Routine Call	DIE Line Location: CHGACT+22
Routine Call	DIR Line Location: OPTION+6 OPTION+24 CHGACT+12 DELETE+6 DELETE+16

FileNo	Call Tags
^DGPR(408.12 - [#408.12]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DGPR(408.12 - [#408.12]	OPTION+10, OPTION+11, OPTION+12, CHGACT+25, CHGACT+26, FINDSSN+3, DELETE+7
^DPT - [#2]	OPTION+13, OPTION+14
^TMP($J	CHGACT+24!, CHGACT+25, CHGACT+26

Label References

Name	Line Occurrences
DELETE	DELETE+8, DELETE+17, DELETE+19, DELETE+23
FINDSSN	CHGACT+4
OPTION	OPTION+9, OPTION+29, OPTION+33

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACTIVE	CHGACT+2~, CHGACT+13*, CHGACT+20, CHGACT+21
ACTROOT	CHGACT+14~, CHGACT+16*, CHGACT+18, CHGACT+19, CHGACT+20
ARRAY	EN~, EN+9, EN+10, EN+11, EN+12
DA	OPTION+1~, CHGACT+1~, CHGACT+6, CHGACT+8, DELETE+1~, DELETE+9*
DFN	OPTION+1~, OPTION+9, OPTION+12, OPTION+13, OPTION+14, OPTION+25!, OPTION+26, OPTION+27, OPTION+28, OPTION+32 , DELETE+1~
DFNFR	EN+8~, EN+9*, EN+10, EN+11, EN+12, EN+14
DFNTO	EN+8~, EN+10*, EN+11, EN+12, EN+14
DGMSGF	OPTION+1~, OPTION+2, DELETE+1~, DELETE+2
DIC	OPTION+1~, CHGACT+1~, CHGACT+6, CHGACT+8, DELETE+1~, DELETE+9*
DIE	CHGACT+1~
DIERR	CHGACT+14~
DIQ	CHGACT+1~
DIQ(0	CHGACT+6, CHGACT+8, DELETE+9*
DIR	OPTION+1~, OPTION+18!, CHGACT+1~, DELETE+1~, DELETE+10!
DIR("?"	OPTION+5, OPTION+21, OPTION+22, OPTION+23, DELETE+5, DELETE+13, DELETE+14, DELETE+15
DIR("A"	OPTION+4, OPTION+20, CHGACT+11, DELETE+4, DELETE+12*
DIR("B"	OPTION+19, DELETE+11
DIR(0	OPTION+3, OPTION+19, CHGACT+10, DELETE+3, DELETE+11*
DIROUT	OPTION+1~, OPTION+6, OPTION+24, CHGACT+1~, CHGACT+12, DELETE+1~, DELETE+6, DELETE+10!, DELETE+17
DIRUT	OPTION+1~, OPTION+6, OPTION+24, CHGACT+1~, CHGACT+12, DELETE+1~, DELETE+6, DELETE+10!, DELETE+17
DR	CHGACT+1~
DTOUT	OPTION+1~, OPTION+6, OPTION+24, CHGACT+1~, CHGACT+12, DELETE+1~, DELETE+6, DELETE+10!, DELETE+17
DUOUT	OPTION+1~, OPTION+6, OPTION+24, CHGACT+1~, CHGACT+12, DELETE+1~, DELETE+6, DELETE+10!, DELETE+17
EASARY	EN+8~
EFFDT	CHGACT~, CHGACT+11, CHGACT+18, CHGACT+19
ERROR	CHGACT+24!
FDA	CHGACT+14~
FDA(	CHGACT+21*
IEN	EN+8~
IEN12	OPTION+11, OPTION+12, CHGACT+14~, CHGACT+15, CHGACT+16, CHGACT+21, DELETE+7*, DELETE+8, DELETE+9, DELETE+18 , DELETE+22
IEN40812	FINDSSN~, FINDSSN+3
IENFR	EN+8~, EN+11*, EN+12
IENTO	EN+8~, EN+12*
MRGFRIEN	CHGACT~, CHGACT+4, CHGACT+6, CHGACT+15, CHGACT+26
MRGTOIEN	CHGACT~, CHGACT+4, CHGACT+8, CHGACT+15, CHGACT+25
MSG	OPTION+28, OPTION+29, OPTION+30, DELETE+1~, DELETE+18, DELETE+19, DELETE+20
NODE12	FINDSSN+1~, FINDSSN+3*, FINDSSN+4
OKTOMRG	EN+8~, EN+14*
POINT	FINDSSN+1~, FINDSSN+4*, FINDSSN+5
ROOT	FINDSSN+1~, FINDSSN+5*, FINDSSN+6, FINDSSN+7
SSN	OPTION+1~, OPTION+14, OPTION+17, FINDSSN~, FINDSSN+2, FINDSSN+7*, DELETE+1~
SSNFR	CHGACT+1~, CHGACT+4, CHGACT+5
SSNTO	CHGACT+1~, CHGACT+4, CHGACT+7
SUBIEN	CHGACT+14~, CHGACT+17, CHGACT+19, CHGACT+20, CHGACT+21
VETNAM	OPTION+1~, OPTION+13*, OPTION+17, OPTION+20, DELETE+1~
X	OPTION+1~, CHGACT+1~, DELETE+1~
Y	OPTION+1~, OPTION+8, OPTION+9, OPTION+10, OPTION+11, OPTION+18!, OPTION+25, OPTION+26*, OPTION+27, CHGACT+1~ , CHGACT+13, DELETE+1~, DELETE+7, DELETE+10!, DELETE+17
Y(0	OPTION+8, OPTION+10, OPTION+15, DELETE+8

Customize PDF page

Package: Enrollment Application System