Routine: XDRMERGA

Information

XDRMERGA ;SF-IRMFO.SEA/JLI - START OF NON-INTERACTIVE BATCH MERGE ;01/31/2000 09:14

Source Information

Call Graph

Call Graph Total: 11

Package	Total	Call Graph
VA Fileman	6	$$FIND1^DIC (,UPDATE)^DIE (EN1,IX)^DIK ($$GET1,GETS)^DIQ EN^DIQ1 ^DIR
Kernel	2	^%ZTLOAD ($$FMTE,$$NOW)^XLFDT
Toolkit	2	($$FILE,RESET)^XDRDPICK EN^XDRVCHEK
Registration	1	$$TESTPAT^VADPT

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Toolkit	1	XDRMERGB

Entry Points

Name	Comments	DBIA/ICR reference
ASK1	;
GETEXT(DICA,DA,FILNUM)	; GET EXTERNAL VALUE FOR .01 FIELD
STOP	;
DODIS	; CODE TO HANDLE DISPOSITION ENTRIES IN PATIENT FILE
DINUMDAT	; PROCESS ENTRIES WITH SAMPLE DATE/TIMES WITH SECONDS, NEEDS DINUM
DOSUBS(XDRFROM,XDRTO,IENTOSTR,XDRDASEQ)	;
CHKBKUP	; Check if backups have been generated for outstanding pairs
APPROVE	; This is the entry point for approving a duplicate pair for merge
CHECK	;
RESTART	; Entry point to restart non-completed merges

External References

Name	Field # of Occurrence
^%ZTLOAD	RESTART+9
$$FIND1^DIC	DOSUBS+38
^DIE	STOP+6, ASK1+21
UPDATE^DIE	DOSUBS+75
EN1^DIK	DOSUBS+81
IX^DIK	DOSUBS+82, DINUMDAT+8, DODIS+5
$$GET1^DIQ	DOSUBS+68
GETS^DIQ	DOSUBS+9, DOSUBS+11
EN^DIQ1	GETEXT+3
^DIR	STOP+5, ASK1+3, ASK1+13, RESTART+7
$$TESTPAT^VADPT	ASK1+7
$$FILE^XDRDPICK	APPROVE+8
RESET^XDRDPICK	APPROVE+22
EN^XDRVCHEK	APPROVE+2
$$FMTE^XLFDT	ASK1+18
$$NOW^XLFDT	DOSUBS+76

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Entry `",Y," DOES NOT HAVE MERGE DIRECTION DEFINED - CAN'T APPROVE" Line Location: APPROVE+19
Function Call: WRITE	Prompt: !!,XNCNT0," Entries are awaiting approval for merging Return to continue..." Line Location: APPROVE+27
Function Call: WRITE	Prompt: !!,$C(7),"No active merge processes were found.",!! Line Location: STOP+8
Function Call: WRITE	Prompt: @IOF Line Location: CHECK+1
Function Call: WRITE	Prompt: !!,$J(XNCNT,3)," ",?8,X1,?42,X1S,?60,"[",I,"]" Line Location: CHECK+10
Function Call: WRITE	Prompt: !,?8,X2,?42,X2S,?60,"[",J,"]" Line Location: CHECK+11
Function Call: WRITE	Prompt: @IOF Line Location: CHECK+13
Function Call: WRITE	Prompt: ! Line Location: ASK1+1
Function Call: WRITE	Prompt: !!,$J(N,3)," ",?8,XDRPC(1),?42,XDRPC(2),?60,"[",XDRPC(3),"]" Line Location: ASK1+10
Function Call: WRITE	Prompt: !,?8,XDRPC(4),?42,XDRPC(5),?60,"[",XDRPC(6),"]" Line Location: ASK1+11
Function Call: WRITE	Prompt: !!!! Line Location: ASK1+12
Function Call: WRITE	Prompt: !!,"*****[",XDRPC(3),"] WILL NOT BE MERGED INTO [",XDRPC(6),"]" Line Location: ASK1+14
Function Call: WRITE	Prompt: !!,$C(7),"RESTART NOT QUEUED" Line Location: RESTART+9
Function Call: WRITE	Prompt: !,"Restart queued as task ",ZTSK,! Line Location: RESTART+11
Function Call: WRITE	Prompt: !!,$C(7),"No merge processes found that needed restarting.",!! Line Location: RESTART+12
Routine Call	DIE Line Location: DOSUBS+75
Routine Call	DIE Line Location: STOP+6 ASK1+21
Routine Call	DIC Line Location: DOSUBS+38
Routine Call	DIR Line Location: STOP+5 ASK1+3 ASK1+13 RESTART+7

FileNo	Call Tags
^VA(15 - [#15]	Classic Fileman Calls
^VA(15.2 - [#15.2]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(	DOSUBS+21, DOSUBS+34, DOSUBS+36, DOSUBS+37, DOSUBS+50, DOSUBS+60, DOSUBS+63, DOSUBS+67
^DIC - [#1]	APPROVE+9
^TMP("XDR"	CHECK+12*, ASK1+9
^VA(15 - [#15]	APPROVE+13, APPROVE+14
^VA(15.2 - [#15.2]	STOP+2, STOP+4, RESTART+2, RESTART+3, RESTART+4, RESTART+6, RESTART+10*
^VA(200 - [#200]	ASK1+19
^XTMP("XDRTESTK"	DOSUBS+76*

Name	Line Occurrences
$$GETEXT	DOSUBS+58
@(	CHECK+13, CHECK+14
CHECK	CHKBKUP+6
CHKBKUP	APPROVE+28
DINUMDAT	DOSUBS+35
DOSUBS	DOSUBS+47

Name	Field # of Occurrence
^(	APPROVE+13, STOP+2, RESTART+4
^("ZZ"	DOSUBS+76*
^(0	ASK1+19

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ASKNAME	CHKBKUP+6*, CHECK+13, CHECK+14
DA	APPROVE+6~, STOP+1~, STOP+6, ASK1+15, DOSUBS+79, GETEXT~, GETEXT+4, DINUMDAT+8, DODIS+1~, DODIS+5*
DA(	DOSUBS+80!, DINUMDAT+9!
DA(1	DODIS+5*
DIC	APPROVE+4~, GETEXT+1~, GETEXT+2*
DIC("P"	GETEXT+2*
DICA	GETEXT~, GETEXT+2
DIE	APPROVE+4~, STOP+1~, STOP+6, STOP+7!, ASK1+16~, ASK1+17
DIK	APPROVE+6~, DOSUBS+79, DINUMDAT+8, DODIS+1~, DODIS+5*
DIK(1	DOSUBS+81*
DIQ	GETEXT+1~, GETEXT+2*
DIQ(0	GETEXT+2*
DIR	APPROVE+4~, STOP+1~, STOP+5!, CHKBKUP+2!, ASK1+3!, ASK1+13!, RESTART+7!
DIR("A"	STOP+4, ASK1+1, ASK1+12, RESTART+6
DIR("B"	RESTART+6*
DIR(0	STOP+4, ASK1+1, ASK1+12, RESTART+6
DIRUT	APPROVE+1!, ASK1+3!
DIU	DOSUBS+81~, DOSUBS+82~
DIU(0	DOSUBS+81, DOSUBS+82
DR	APPROVE+4~, STOP+1~, STOP+6, STOP+7!, ASK1+16~, ASK1+20, GETEXT+1~, GETEXT+2*
DT	ASK1+18
DTIME	APPROVE+27
DTOUT	APPROVE+1!, APPROVE+28, CHECK+3, CHECK+4, CHECK+13, CHECK+14, ASK1+3
DUOUT	APPROVE+1!, APPROVE+28, CHECK+3, CHECK+4, CHECK+13, CHECK+14, ASK1+3
DUZ	ASK1+19
>> FILE	DOSUBS+8, DOSUBS+9, DOSUBS+11
FILNUM	GETEXT~, GETEXT+2, GETEXT+4
I	CHKBKUP+1~, CHECK+3, CHECK+4, CHECK+5, CHECK+7, CHECK+9, CHECK+10, CHECK+12, ASK1+16~, DOSUBS+62~ , DOSUBS+63, DOSUBS+65, DOSUBS+80, DINUMDAT+9*
IENFR	DOSUBS+62~, DOSUBS+64, DOSUBS+65, DOSUBS+68
>> IENFROM	DODIS+2, DODIS+4
>> IENTO	DODIS+3, DODIS+4, DODIS+5
IENTOSTR	DOSUBS~, DOSUBS+38, DOSUBS+46, DOSUBS+49
IOF	CHECK+1, CHECK+13
J	CHKBKUP+1~, CHECK+4, CHECK+6, CHECK+7, CHECK+9, CHECK+11, CHECK+12, ASK1+16~, RESTART+4
K	CHKBKUP+1~, ASK1+4*, ASK1+16~
L	CHKBKUP+1~
M	CHKBKUP+1~, ASK1+5*, ASK1+16~
N	CHKBKUP+1~, ASK1+5, ASK1+6, ASK1+10, ASK1+16~, RESTART+1~, RESTART+3, RESTART+4, DOSUBS+62~, DOSUBS+63 , DOSUBS+65, DOSUBS+68, DOSUBS+69
N1	ASK1+6*, ASK1+7, ASK1+15, ASK1+16~
N2	ASK1+6*, ASK1+7, ASK1+15, ASK1+16~
NC	RESTART+1~, RESTART+5, RESTART+12
NEWFROM	DOSUBS+40~, DOSUBS+44*, DOSUBS+47
NEWTO	DOSUBS+40~, DOSUBS+45*, DOSUBS+47
NEWTOIEN	DOSUBS+40~, DOSUBS+46*, DOSUBS+47
NEWVAL	DINUMDAT+1~, DINUMDAT+4, DINUMDAT+5, DINUMDAT+7
NODE	DOSUBS+40~, DOSUBS+41, DOSUBS+42, DOSUBS+43, DOSUBS+44, DOSUBS+45
NODEA	DOSUBS+1~, DOSUBS+28*, DOSUBS+32, DOSUBS+33, DOSUBS+36, DOSUBS+37, DOSUBS+42, DOSUBS+43, DOSUBS+44, DOSUBS+58 , DOSUBS+64, DOSUBS+78, DINUMDAT+2, DINUMDAT+3, DINUMDAT+6, DINUMDAT+8
NODEB	DOSUBS+3~, DOSUBS+77*, DOSUBS+78, DOSUBS+79
NODETO	DINUMDAT+1~, DINUMDAT+2, DINUMDAT+5, DINUMDAT+6, DINUMDAT+7
SFILE	DOSUBS+1~, DOSUBS+4*, DOSUBS+5, DOSUBS+8, DOSUBS+10, DOSUBS+12, DOSUBS+21, DOSUBS+32, DOSUBS+34, DOSUBS+36 , DOSUBS+37, DOSUBS+38, DOSUBS+50, DOSUBS+57, DOSUBS+58, DOSUBS+59, DOSUBS+60, DOSUBS+63, DOSUBS+67, DOSUBS+68 , DOSUBS+69, DOSUBS+76, DOSUBS+81, DOSUBS+82, DINUMDAT+3
U	APPROVE+15, APPROVE+16, APPROVE+17, APPROVE+18, APPROVE+20, APPROVE+21, APPROVE+23, APPROVE+24, APPROVE+25, STOP+2 , STOP+4, CHECK+5, CHECK+6, CHECK+9, CHECK+12, ASK1+6, ASK1+9, ASK1+19, RESTART+3, RESTART+4 , RESTART+6, RESTART+10, DOSUBS+4, DOSUBS+9, DOSUBS+11, DOSUBS+15, DOSUBS+18, DOSUBS+21, DOSUBS+32, DOSUBS+33 , DOSUBS+35, DOSUBS+37, DOSUBS+47, DOSUBS+50, DOSUBS+54, DOSUBS+80, DINUMDAT+7, DINUMDAT+9
VALUE	DOSUBS+1~, DOSUBS+33, DOSUBS+38, DOSUBS+51, DOSUBS+53, DOSUBS+55, DOSUBS+58, DOSUBS+59, DINUMDAT+4
X	APPROVE+5~, APPROVE+11, APPROVE+13, APPROVE+27, CHKBKUP+1~, ASK1+16~, ASK1+18, ASK1+19, ASK1+20, RESTART+3 , DOSUBS+40~
>> X01	CHECK+5*
>> X02	CHECK+6*
X1	CHKBKUP+1~, CHECK+5, CHECK+7, CHECK+8, CHECK+10, CHECK+12, ASK1+16~, DOSUBS+40~
>> X1S	CHECK+5*, CHECK+10, CHECK+12
X2	CHKBKUP+1~, CHECK+6*, CHECK+7, CHECK+11, CHECK+12, ASK1+16~
>> X2S	CHECK+6*, CHECK+11, CHECK+12
XDR1	DOSUBS+3~, DOSUBS+13, DOSUBS+14, DOSUBS+15, DOSUBS+16, DOSUBS+17, DOSUBS+18
XDRAA	DOSUBS+2~, DOSUBS+73!*, DOSUBS+76
XDRALY1	DOSUBS+3~
XDRALY1(	DOSUBS+10
XDRALY1A	DOSUBS+3~, DOSUBS+10*
XDRALY1A(	DOSUBS+13, DOSUBS+14
XDRALY2	DOSUBS+3~
XDRALY2(	DOSUBS+12
XDRALY2A	DOSUBS+3~, DOSUBS+12*
XDRALY2A(	DOSUBS+16, DOSUBS+17
XDRALYNM	DOSUBS+3~, DOSUBS+14, DOSUBS+15, DOSUBS+17, DOSUBS+18
XDRALYSS	DOSUBS+3~, DOSUBS+14, DOSUBS+15, DOSUBS+17, DOSUBS+18
XDRC	STOP+1~, STOP+2, STOP+3, STOP+8
XDRDASEQ	DOSUBS~, DOSUBS+47, DOSUBS+80, DINUMDAT+9
>> XDRDIC	APPROVE+9*, APPROVE+10, CHECK+5, CHECK+6, DODIS+2, DODIS+3, DODIS+4, DODIS+5
XDRDICA	APPROVE+20~*, APPROVE+21
>> XDRDINUM	DOSUBS+35*
XDRDT	DOSUBS+34~, DOSUBS+35, DINUMDAT+10*
XDRDUPAF	DOSUBS+3~
XDRDUPAF(	DOSUBS+15*, DOSUBS+32
XDRDUPAT	DOSUBS+3~
XDRDUPAT(	DOSUBS+18*, DOSUBS+32
XDRFDA	APPROVE+6~, RESTART+2*, RESTART+3, RESTART+4, RESTART+6, RESTART+10
XDRFIL	APPROVE+5~, APPROVE+8*, APPROVE+9
>> XDRFILTY	DOSUBS+50, DOSUBS+51, DOSUBS+52, DOSUBS+57, DOSUBS+58, DOSUBS+75
XDRFLDI	ASK1+8~, ASK1+9*
XDRFROM	DOSUBS~, DOSUBS+4, DOSUBS+24, DOSUBS+28, DOSUBS+32, DOSUBS+33, DOSUBS+42, DOSUBS+43, DOSUBS+44, DOSUBS+58 , DOSUBS+64, DOSUBS+78, DINUMDAT+6
XDRFROM1	DOSUBS+62~, DOSUBS+64*, DOSUBS+65
>> XDRGID	DOSUBS+9, DOSUBS+11
XDRGLOB	APPROVE+5~, APPROVE+10*, APPROVE+13
XDRI	APPROVE+6~, STOP+1~, STOP+2, STOP+4, STOP+6, DODIS+1~, DODIS+2, DODIS+3, DODIS+4, DODIS+5
>> XDRID	DOSUBS+67*, DOSUBS+68, DOSUBS+69
XDRIENS	APPROVE+6~
XDRJ	APPROVE+6~
XDRK	APPROVE+6~
XDRMA	APPROVE+4~
XDRNAME	APPROVE+5~
XDRPC	ASK1+8~
XDRPC(	ASK1+9*
XDRPC(1	ASK1+10
XDRPC(2	ASK1+10
XDRPC(3	ASK1+10, ASK1+14
XDRPC(4	ASK1+11
XDRPC(5	ASK1+11
XDRPC(6	ASK1+11, ASK1+14
XDRQ	GETEXT+1~
XDRQ(	GETEXT+4
>> XDRTESTK	DOSUBS+73, DOSUBS+76*
XDRTO	DOSUBS~, DOSUBS+22, DOSUBS+36, DOSUBS+37, DOSUBS+45, DOSUBS+78, DOSUBS+79, DINUMDAT+3, DINUMDAT+5, DINUMDAT+6 , DINUMDAT+7*, DINUMDAT+8
XDRX	APPROVE+5~
XDRX(	ASK1+15*
XDRXX	APPROVE+4~, DOSUBS+1~, DOSUBS+73
XDRXX(	DOSUBS+59, DOSUBS+69
XDRY	APPROVE+5~, APPROVE+28, APPROVE+29!
XDRY(	APPROVE+24, APPROVE+25, CHECK+3, CHECK+4, CHECK+7!, ASK1+15
XDRYY	APPROVE+4~, DOSUBS+1~, DOSUBS+48!
XDRYY(1	DOSUBS+48*, DOSUBS+77
XDRZZ	DOSUBS+2~, DOSUBS+73!, DOSUBS+76
XENTOSTR	DOSUBS+1~, DOSUBS+49*, DOSUBS+59, DOSUBS+69
XF	DOSUBS+22~, DOSUBS+24*, DOSUBS+25
XNCNT	APPROVE+12, CHKBKUP+1~, CHECK+2, CHECK+9*, CHECK+10, CHECK+12, CHECK+13, ASK1+1, ASK1+9, ASK1+12
>> XNCNT0	APPROVE+12, APPROVE+26, APPROVE+27
XT	DOSUBS+22~*, DOSUBS+23, DOSUBS+25
XVALUE	DOSUBS+1~, DOSUBS+36, DOSUBS+37, DOSUBS+38*, DOSUBS+39, DOSUBS+45, DOSUBS+46, DOSUBS+47
XX	CHKBKUP+1~
XX(	CHECK+9*, ASK1+6
Y	APPROVE+5~, APPROVE+13, APPROVE+14, APPROVE+19, APPROVE+22, APPROVE+24, APPROVE+25, STOP+5, CHKBKUP+1~, ASK1+4 , ASK1+5, ASK1+7, ASK1+14, ASK1+16~, RESTART+7, DOSUBS+53~, DOSUBS+54, DOSUBS+55
Y(	ASK1+4!
YVAL	APPROVE+14~*, APPROVE+15, APPROVE+16, APPROVE+17, APPROVE+18, APPROVE+20, APPROVE+21, APPROVE+23, APPROVE+24, APPROVE+25
YVALUE	DOSUBS+1~, DOSUBS+36*, DOSUBS+48
ZTDTH	APPROVE+4~
>> ZTIO	RESTART+8*
>> ZTRTN	RESTART+8*
>> ZTSAVE("XDRFDA"	RESTART+8*
ZTSK	APPROVE+4~, RESTART+9, RESTART+10, RESTART+11

Customize PDF page

Package: Toolkit

Routine: XDRMERGA

Information

Source Information

Call Graph

Call Graph Total: 11

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

Naked Globals

Local Variables

Legend: