Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

Entry Points

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(15 - [#15] Classic Fileman Calls
^VA(15.2 - [#15.2] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call