Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: XDRMERGA

Package: Toolkit

Routine: XDRMERGA


Information

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

Source Information

Source file <XDRMERGA.m>

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

FileMan Files Accessed Via FileMan Db Call

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*

Label References

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

Naked Globals

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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All