| 1 | XDRDOC2 ;IHS/OHPRD/JCM - CONTINUATION OF ROUTINE DOCUMENTATION ;07/06/93 16:47
|
|---|
| 2 | ;;7.3;TOOLKIT;;Apr 25, 1995
|
|---|
| 3 | ;
|
|---|
| 4 | XDRMADD ; ADDS VERIFIED DUPLICATES TO DUPLICATE RECORD FILE
|
|---|
| 5 | ;
|
|---|
| 6 | ; This routine allows an operator to select two records that are
|
|---|
| 7 | ; not already in duplicate record file and add them as verified
|
|---|
| 8 | ; duplicates and proceeds with the merge as package entries allow.
|
|---|
| 9 | ;
|
|---|
| 10 | ; Input variables: XDRFL
|
|---|
| 11 | ;
|
|---|
| 12 | ; Calls: DIC,FILE^DICN,DIE,FILE^XDRDQUE,XDRDSCOR,XDRDUP,EN^XDRMAIN
|
|---|
| 13 | ;
|
|---|
| 14 | XDRMAIN ; MAIN DRIVER FOR DUPLICATE MERGE SOFTWARE
|
|---|
| 15 | ;
|
|---|
| 16 | ; Called by: XDRDADD,XDRMADD
|
|---|
| 17 | ;
|
|---|
| 18 | ; Calls: DIC,DIE,DIR,XDRMAINI,XDRMPACK,XDRMRG,XDRMSG,XDRMVFY
|
|---|
| 19 | ;
|
|---|
| 20 | ;EN Entry Point for Automatic Merge
|
|---|
| 21 | ;
|
|---|
| 22 | ;EN1 Entry point for looping through Verified ready
|
|---|
| 23 | ; to merge duplicates
|
|---|
| 24 | ;
|
|---|
| 25 | ;EN2 Entry point to select Verified Ready to Merge Duplicate Pair
|
|---|
| 26 | ;
|
|---|
| 27 | ;EN3 Entry point to select Unverified Potential Duplicate Pair
|
|---|
| 28 | ;
|
|---|
| 29 | XDRMAINI ; INITIALIZATION ROUTINE FOR XDRMAIN AND XDRDMAIN
|
|---|
| 30 | ;
|
|---|
| 31 | ; This routine is used to initialize variables needed for the
|
|---|
| 32 | ; Duplicate Checker and the Merge process.
|
|---|
| 33 | ;
|
|---|
| 34 | ; Called by: XDRDMAIN,XDRMAIN
|
|---|
| 35 | ;
|
|---|
| 36 | ; Calls: DIC,XDRDSCOR,XDREMSG
|
|---|
| 37 | ;
|
|---|
| 38 | XDRMPACK ; CHECKS PACKAGE FILE FOR UNIQUE PACKAGE MERGES
|
|---|
| 39 | ;
|
|---|
| 40 | ; This routine goes through the package file and checks to see
|
|---|
| 41 | ; which packages are affected by patient merge. It then enters
|
|---|
| 42 | ; these packages in the merge package mulitple and sets their
|
|---|
| 43 | ; merge status to not ready. It then polls the packages to see if
|
|---|
| 44 | ; they have the XDRMRG("FR") record and if they have an interactive
|
|---|
| 45 | ; merge.
|
|---|
| 46 | ;
|
|---|
| 47 | ; Input variables: XDRMPDA,XDRMRG("FR"),XDRMRG("TO")
|
|---|
| 48 | ;
|
|---|
| 49 | ; Called by: XDRMAIN
|
|---|
| 50 | ;
|
|---|
| 51 | ; Calls: DIE
|
|---|
| 52 | ;
|
|---|
| 53 | XDRMRG ; MERGES DUPLICATE RECORDS
|
|---|
| 54 | ;
|
|---|
| 55 | ; Called by: XDRMAIN
|
|---|
| 56 | ;
|
|---|
| 57 | ; Calls: DIE,DIK,EN^DIT0,DITM2,EN^DITMGMRG,LOCK^XDRU1
|
|---|
| 58 | ;
|
|---|
| 59 | XDRMRG1 ; ERROR TRAP FOR XDRMRG
|
|---|
| 60 | ;
|
|---|
| 61 | ; Calls: INT^%ET,DIE
|
|---|
| 62 | ;
|
|---|
| 63 | XDRMSG ; SENDS VERIFIED AND MERGED MESSAGES
|
|---|
| 64 | ;
|
|---|
| 65 | ; This routine is responsible for sending the Verified Duplicate
|
|---|
| 66 | ; Bulletin and the Merged Duplicate Bulletin. If there is a
|
|---|
| 67 | ; Verified Msg Routine entry in the Duplicate Resolution file
|
|---|
| 68 | ; the 'XDR VERIFIED' bulletin will not be sent and the Verfied
|
|---|
| 69 | ; Msg Routine will be allowed to send a customized bulletin.
|
|---|
| 70 | ; The same holds true if there is a Merge Msg Routine entry for
|
|---|
| 71 | ; when a duplicate pair are merged. These bulletins will be sent
|
|---|
| 72 | ; to the members of the Verified Duplicate and Merge Mail Group
|
|---|
| 73 | ; entries in the Duplicate Resolution file.
|
|---|
| 74 | ;
|
|---|
| 75 | ; Called by: XDRMAIN
|
|---|
| 76 | ;
|
|---|
| 77 | ; Calls: XMB, the Verified and Merged Msg Routine entries in the
|
|---|
| 78 | ; Duplicate Resolution file.
|
|---|
| 79 | ;
|
|---|
| 80 | XDRMVFY ; VERIFIES POTENTIAL DUPLICATES
|
|---|
| 81 | ;
|
|---|
| 82 | ; Input Variables: XDRCD,XDRCD2
|
|---|
| 83 | ;
|
|---|
| 84 | ; Called by: XDRMAIN
|
|---|
| 85 | ;
|
|---|
| 86 | ; Calls: DIE,DIR,EN^DITC
|
|---|
| 87 | ;
|
|---|
| 88 | XDRU1 ; GENERAL UTILITIES FOR THE KERNEL MERGE
|
|---|
| 89 | ;
|
|---|
| 90 | ; This routine is a utility routine that at this time is used
|
|---|
| 91 | ; only to check the Duplicate Resolution file entry to see
|
|---|
| 92 | ; if all the information necessary to run the duplicate checking
|
|---|
| 93 | ; software.
|
|---|
| 94 | ;
|
|---|
| 95 | ; Called by: XDRDQUE,XDRMRG
|
|---|
| 96 | ;
|
|---|
| 97 | ; Calls: XDREMSG
|
|---|
