Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
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>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Toolkit 4 (CHECK,POSDUPS)^XDRDMAIN  FILE^XDRDQUE  ^XDRDSCOR  ^XDREMSG  
VA Fileman 1 ^DIC  

Entry Points

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

    External References

    Name Field # of Occurrence
    ^DIC LKUP+2
    CHECK^XDRDMAIN CHECK+1
    POSDUPS^XDRDMAIN PROCESS+12
    FILE^XDRDQUE PROCESS+5
    ^XDRDSCOR SETUP+4
    ^XDREMSG EN+1, EN+2, EN+3

    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
    Routine Call
    • DIC
    • Line Location:
      • LKUP+2

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DIC - [#1] PROCESS+8, LKUP+1, INFORM+4, INFORM+5
    ^TMP("XDRD" PROCESS+13, EOJ+2!, CHECK+1
    ^VA(15 - [#15] INFORM+1
    ^VA(15.1 - [#15.1] EN+3
    ^XMB(3.8 - [#3.8] SETUP+2

    Label References

    Name Line Occurrences
    CHECK PROCESS+13
    END INIT+3
    ENX EN+1, EN+2, EN+3
    EOJ END
    INFORM INIT+4
    LKUP PROCESS+9
    LKUPX LKUP+3
    PROCESS INIT+2, EN+4
    PROCESSX PROCESS+6
    SETUP PROCESS+7

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> % INFORM+1*, INFORM+2*
    DA LKUP+2!
    DIC LKUP+1*, LKUP+2!
    DIC("A" PROCESS+5*, LKUP+1*
    DIC(0 LKUP+1*
    U LKUP+1, SETUP+1, SETUP+2, INFORM+2, INFORM+4, INFORM+5, INFORM+7
    >> X INFORM+6*, INFORM+7
    XDRCD PROCESS+9, EOJ+1!, EN+1, LKUP+4*, INFORM+2, INFORM+4, INFORM+5, INFORM+7
    XDRCD2 EOJ+1!, ENX+1!, CHECK+1*
    XDRD PROCESS+1!, EOJ+1!, ENX+1!
    XDRD("COLLECT ION ROUTINE" , SETUP+1*
    XDRD("DMAILGRP" SETUP+2*
    XDRD(0 SETUP+1, SETUP+2
    XDRDCNT EOJ+1!, ENX+1!
    XDRDFPD EOJ+1!, ENX+1!
    XDRDFPD("FOUND" INFORM+2*, INFORM+4, INFORM+6, INFORM+7
    XDRDFPD("PAIR" INFORM+1*, INFORM+2
    XDRDMAIN EOJ+1!, ENX+1!
    XDRDSCOR EOJ+1!, ENX+1!
    XDRDTEST EOJ+1!, ENX+1!
    XDRDTYPE PROCESS+4*, EOJ+1!, ENX+1!
    XDRDUP EOJ+1!, ENX+1!
    >> XDRERR EN+1*, EN+2*, EN+3*
    XDRFL PROCESS+8, PROCESS+13, EOJ+1!, EN+2, EN+3, LKUP+1, CHECK+1, INFORM+4, INFORM+5
    XDRGL PROCESS+8*, EOJ+1!, ENX+1!, LKUP+1, INFORM+1, INFORM+4, INFORM+5, INFORM+7
    XDRI SETUP+2*, SETUP+3!
    XDRNOPT PROCESS+3~*
    XDRQFLG INIT+3, PROCESS+4*, PROCESS+6, PROCESS+9, EOJ+1!, LKUP+3*, CHECK+1
    >> Y LKUP+3, LKUP+4
    >> ZTQUEUED PROCESS+10
    Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All