XDRMERGA ;SF-IRMFO.SEA/JLI - START OF NON-INTERACTIVE BATCH MERGE ;01/31/2000 09:14
Source file <XDRMERGA.m>
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
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^VA(15 - [#15] | Classic Fileman Calls |
^VA(15.2 - [#15.2] | Classic Fileman Calls |