- XDRDOC2 ;IHS/OHPRD/JCM - CONTINUATION OF ROUTINE DOCUMENTATION ;07/06/93 16:47
- ;;7.3;TOOLKIT;;Apr 25, 1995
- ;
- XDRMADD ; ADDS VERIFIED DUPLICATES TO DUPLICATE RECORD FILE
- ;
- ; This routine allows an operator to select two records that are
- ; not already in duplicate record file and add them as verified
- ; duplicates and proceeds with the merge as package entries allow.
- ;
- ; Input variables: XDRFL
- ;
- ; Calls: DIC,FILE^DICN,DIE,FILE^XDRDQUE,XDRDSCOR,XDRDUP,EN^XDRMAIN
- ;
- XDRMAIN ; MAIN DRIVER FOR DUPLICATE MERGE SOFTWARE
- ;
- ; Called by: XDRDADD,XDRMADD
- ;
- ; Calls: DIC,DIE,DIR,XDRMAINI,XDRMPACK,XDRMRG,XDRMSG,XDRMVFY
- ;
- ;EN Entry Point for Automatic Merge
- ;
- ;EN1 Entry point for looping through Verified ready
- ; to merge duplicates
- ;
- ;EN2 Entry point to select Verified Ready to Merge Duplicate Pair
- ;
- ;EN3 Entry point to select Unverified Potential Duplicate Pair
- ;
- XDRMAINI ; INITIALIZATION ROUTINE FOR XDRMAIN AND XDRDMAIN
- ;
- ; This routine is used to initialize variables needed for the
- ; Duplicate Checker and the Merge process.
- ;
- ; Called by: XDRDMAIN,XDRMAIN
- ;
- ; Calls: DIC,XDRDSCOR,XDREMSG
- ;
- XDRMPACK ; CHECKS PACKAGE FILE FOR UNIQUE PACKAGE MERGES
- ;
- ; This routine goes through the package file and checks to see
- ; which packages are affected by patient merge. It then enters
- ; these packages in the merge package mulitple and sets their
- ; merge status to not ready. It then polls the packages to see if
- ; they have the XDRMRG("FR") record and if they have an interactive
- ; merge.
- ;
- ; Input variables: XDRMPDA,XDRMRG("FR"),XDRMRG("TO")
- ;
- ; Called by: XDRMAIN
- ;
- ; Calls: DIE
- ;
- XDRMRG ; MERGES DUPLICATE RECORDS
- ;
- ; Called by: XDRMAIN
- ;
- ; Calls: DIE,DIK,EN^DIT0,DITM2,EN^DITMGMRG,LOCK^XDRU1
- ;
- XDRMRG1 ; ERROR TRAP FOR XDRMRG
- ;
- ; Calls: INT^%ET,DIE
- ;
- XDRMSG ; SENDS VERIFIED AND MERGED MESSAGES
- ;
- ; This routine is responsible for sending the Verified Duplicate
- ; Bulletin and the Merged Duplicate Bulletin. If there is a
- ; Verified Msg Routine entry in the Duplicate Resolution file
- ; the 'XDR VERIFIED' bulletin will not be sent and the Verfied
- ; Msg Routine will be allowed to send a customized bulletin.
- ; The same holds true if there is a Merge Msg Routine entry for
- ; when a duplicate pair are merged. These bulletins will be sent
- ; to the members of the Verified Duplicate and Merge Mail Group
- ; entries in the Duplicate Resolution file.
- ;
- ; Called by: XDRMAIN
- ;
- ; Calls: XMB, the Verified and Merged Msg Routine entries in the
- ; Duplicate Resolution file.
- ;
- XDRMVFY ; VERIFIES POTENTIAL DUPLICATES
- ;
- ; Input Variables: XDRCD,XDRCD2
- ;
- ; Called by: XDRMAIN
- ;
- ; Calls: DIE,DIR,EN^DITC
- ;
- XDRU1 ; GENERAL UTILITIES FOR THE KERNEL MERGE
- ;
- ; This routine is a utility routine that at this time is used
- ; only to check the Duplicate Resolution file entry to see
- ; if all the information necessary to run the duplicate checking
- ; software.
- ;
- ; Called by: XDRDQUE,XDRMRG
- ;
- ; Calls: XDREMSG
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXDRDOC2 3100 printed Mar 13, 2025@21:44:10 Page 2
- XDRDOC2 ;IHS/OHPRD/JCM - CONTINUATION OF ROUTINE DOCUMENTATION ;07/06/93 16:47
- +1 ;;7.3;TOOLKIT;;Apr 25, 1995
- +2 ;
- XDRMADD ; ADDS VERIFIED DUPLICATES TO DUPLICATE RECORD FILE
- +1 ;
- +2 ; This routine allows an operator to select two records that are
- +3 ; not already in duplicate record file and add them as verified
- +4 ; duplicates and proceeds with the merge as package entries allow.
- +5 ;
- +6 ; Input variables: XDRFL
- +7 ;
- +8 ; Calls: DIC,FILE^DICN,DIE,FILE^XDRDQUE,XDRDSCOR,XDRDUP,EN^XDRMAIN
- +9 ;
- XDRMAIN ; MAIN DRIVER FOR DUPLICATE MERGE SOFTWARE
- +1 ;
- +2 ; Called by: XDRDADD,XDRMADD
- +3 ;
- +4 ; Calls: DIC,DIE,DIR,XDRMAINI,XDRMPACK,XDRMRG,XDRMSG,XDRMVFY
- +5 ;
- +6 ;EN Entry Point for Automatic Merge
- +7 ;
- +8 ;EN1 Entry point for looping through Verified ready
- +9 ; to merge duplicates
- +10 ;
- +11 ;EN2 Entry point to select Verified Ready to Merge Duplicate Pair
- +12 ;
- +13 ;EN3 Entry point to select Unverified Potential Duplicate Pair
- +14 ;
- XDRMAINI ; INITIALIZATION ROUTINE FOR XDRMAIN AND XDRDMAIN
- +1 ;
- +2 ; This routine is used to initialize variables needed for the
- +3 ; Duplicate Checker and the Merge process.
- +4 ;
- +5 ; Called by: XDRDMAIN,XDRMAIN
- +6 ;
- +7 ; Calls: DIC,XDRDSCOR,XDREMSG
- +8 ;
- XDRMPACK ; CHECKS PACKAGE FILE FOR UNIQUE PACKAGE MERGES
- +1 ;
- +2 ; This routine goes through the package file and checks to see
- +3 ; which packages are affected by patient merge. It then enters
- +4 ; these packages in the merge package mulitple and sets their
- +5 ; merge status to not ready. It then polls the packages to see if
- +6 ; they have the XDRMRG("FR") record and if they have an interactive
- +7 ; merge.
- +8 ;
- +9 ; Input variables: XDRMPDA,XDRMRG("FR"),XDRMRG("TO")
- +10 ;
- +11 ; Called by: XDRMAIN
- +12 ;
- +13 ; Calls: DIE
- +14 ;
- XDRMRG ; MERGES DUPLICATE RECORDS
- +1 ;
- +2 ; Called by: XDRMAIN
- +3 ;
- +4 ; Calls: DIE,DIK,EN^DIT0,DITM2,EN^DITMGMRG,LOCK^XDRU1
- +5 ;
- XDRMRG1 ; ERROR TRAP FOR XDRMRG
- +1 ;
- +2 ; Calls: INT^%ET,DIE
- +3 ;
- XDRMSG ; SENDS VERIFIED AND MERGED MESSAGES
- +1 ;
- +2 ; This routine is responsible for sending the Verified Duplicate
- +3 ; Bulletin and the Merged Duplicate Bulletin. If there is a
- +4 ; Verified Msg Routine entry in the Duplicate Resolution file
- +5 ; the 'XDR VERIFIED' bulletin will not be sent and the Verfied
- +6 ; Msg Routine will be allowed to send a customized bulletin.
- +7 ; The same holds true if there is a Merge Msg Routine entry for
- +8 ; when a duplicate pair are merged. These bulletins will be sent
- +9 ; to the members of the Verified Duplicate and Merge Mail Group
- +10 ; entries in the Duplicate Resolution file.
- +11 ;
- +12 ; Called by: XDRMAIN
- +13 ;
- +14 ; Calls: XMB, the Verified and Merged Msg Routine entries in the
- +15 ; Duplicate Resolution file.
- +16 ;
- XDRMVFY ; VERIFIES POTENTIAL DUPLICATES
- +1 ;
- +2 ; Input Variables: XDRCD,XDRCD2
- +3 ;
- +4 ; Called by: XDRMAIN
- +5 ;
- +6 ; Calls: DIE,DIR,EN^DITC
- +7 ;
- XDRU1 ; GENERAL UTILITIES FOR THE KERNEL MERGE
- +1 ;
- +2 ; This routine is a utility routine that at this time is used
- +3 ; only to check the Duplicate Resolution file entry to see
- +4 ; if all the information necessary to run the duplicate checking
- +5 ; software.
- +6 ;
- +7 ; Called by: XDRDQUE,XDRMRG
- +8 ;
- +9 ; Calls: XDREMSG