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
Print Page as PDF
Routine: XDRDFPD

Package: Toolkit

Routine: XDRDFPD


Information

XDRDFPD ;IHS/OHPRD/LAB - find all potential duplicates for an entry in a file ;6/9/08 11:26

Source Information

Source file <XDRDFPD.m>

Entry Points

Name Comments DBIA/ICR reference
START ;
INIT ;Initialization
END
PROCESS ;
PROCESSX
EOJ ;clean up
EN ;Entry Point (caller must pass XDRCD,XDRFL)
  • ICR #3525
    • Status: Active
    • Usage: Private
    ENX ;
    LKUP ;
    LKUPX ;
    SETUP ;
  • ICR #3526
    • Status: Active
    • Usage: Private
    SETUPX ;
    CHECK ;check for duplicates and add to Duplicate record file
    INFORM ;

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !,"This option will collect all Potential Duplicates for an entry in a file.",!,"It will then add any pairs found to the Duplicate Record file.",!
    • Line Location: INIT+1
    Function Call: WRITE
    • Prompt: !!,"NO Potential Duplicates were found for ",$P(^DIC(XDRFL,0),U),": ",$P(@(XDRGL_XDRCD_",0)"),U)
    • Line Location: INFORM+4
    Function Call: WRITE
    • Prompt: !!,"The following ",$P(^DIC(XDRFL,0),U)," entry(ies) are now in the Duplicate ",!,"Record file as Potential Duplicates to ",!,$P(^DIC(XDRFL,0),U),": ",$P(@(XDRGL_XDRCD_",0)"),U)
    • Line Location: INFORM+5
    Info |  Source |  Entry Points |  Interaction Calls