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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: XDRDPICK

Package: Toolkit

Routine: XDRDPICK


Information

XDRDPICK ;SF-IRMFO.SEA/JLI - SELECT A PAIR OF POTENTIAL DUPLICATES AND VIEW ;10/10/08 13:38

Source Information

Source file <XDRDPICK.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Toolkit 3 ($$LOOKUP,NAME)^XDRDEDT  (,CHEKVER,SETUP)^XDRRMRG1  $$COUNT^XDRRMRG2  
VA FileMan 3 (,$$FIND1)^DIC  (,FILE)^DIE  ^DIR  
Kernel 1 $$FMDIFF^XLFDT  
Master Patient Index VistA 1 CALLRPC^MPIFDNL  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 11

Package Total Caller Graph
Toolkit 11 XDR VERIFY ALL  XDRDCOMP  XDRDEDT  XDRDPRE1  XDRDPREL  XDRDVAL1  XDRMADD  XDRMERGA  
XDRMERGB  XDRMERGC  XDRRMRG0  

Entry Points

Name Comments DBIA/ICR reference
EN ;
LOOP ;
GETLIST ;
ASK ;
CHEK ;
SHOW ;
BUSY ;
FILE(XDRFLAG) ;
; If XDRFLAG=1, option not available to the PATIENT file (#2) (new with XT*7.3*113)
CMORS ; RETURN DATA RANKED BY CMORS (HIGH VALUES FIRST)
SETCMOR ;
ASKCMOR ;
SET1 ; HANDLES SETTING OF X-REF ON CMOR SCORES FOR POTENTIAL DUPLICATES
KILL1 ; HANDLES KILLING OF X-REF ON CMOR SCORES FOR POTENTIAL DUPLICATES
OTHERS ; CHECKS AND MARKS OTHER PAIRS SO ONLY ONE CAN BE PROCESSED AT A TIME
RESET(DA) ;

External References

Name Field # of Occurrence
^DIC FILE+19
$$FIND1^DIC SHOW+16
^DIE SHOW+23
FILE^DIE OTHERS+38, RESET+14
^DIR LOOP+10, CHEK+6, ASKCMOR+4
CALLRPC^MPIFDNL SHOW+31
$$LOOKUP^XDRDEDT LOOP+5
NAME^XDRDEDT RESET+3
^XDRRMRG1 SHOW+13
CHEKVER^XDRRMRG1 SHOW+25
SETUP^XDRRMRG1 SHOW+24
$$COUNT^XDRRMRG2 SHOW+11
$$FMDIFF^XLFDT CMORS+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!!,"At the following prompt select a POTENTIAL DUPLICATE ENTRY. If a selection"
  • Line Location: LOOP+1
Function Call: WRITE
  • Prompt: !,"is not made, you will be given a chance to select from a list if you"
  • Line Location: LOOP+2
Function Call: WRITE
  • Prompt: !,"want to. Otherwise, you will be returned to the menu system."
  • Line Location: LOOP+3
Function Call: WRITE
  • Prompt: !
  • Line Location: LOOP+4
Function Call: WRITE
  • Prompt: !!!,$J(JCNT,5),". ",@TMPGLB@(JCNT,1)
  • Line Location: ASK+6
Function Call: WRITE
  • Prompt: !,?8,@TMPGLB@(JCNT,2)
  • Line Location: ASK+7
Function Call: WRITE
  • Prompt: !
  • Line Location: CHEK+1
Function Call: WRITE
  • Prompt: !,$C(7),"One of these entries has already been merged. Pick another pair.",!!
  • Line Location: SHOW+7
Function Call: WRITE
  • Prompt: !!,$C(7),"Record is being processed by someone else.",!!
  • Line Location: BUSY+1
Function Call: WRITE
  • Prompt: !,"* This option is not available for PATIENTS"
  • Line Location: FILE+5
Routine Call
  • DIC
  • Line Location:
    • FILE+19
Routine Call
  • DIC
  • Line Location:
    • SHOW+16
Routine Call
  • DIE
  • Line Location:
    • SHOW+23
Routine Call
  • DIE
  • Line Location:
    • OTHERS+38
    • RESET+14
Routine Call
  • DIR
  • Line Location:
    • LOOP+10
    • CHEK+6
    • ASKCMOR+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(15 - [#15] Classic Fileman Calls
15.02 FIND1^DIC

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("TEST" SHOW+29
^DIC - [#1] EN+3, FILE+10
^DPT - [#2] CMORS+13, SETCMOR+7, SETCMOR+9, SET1+5, SET1+7, KILL1+5, KILL1+7
^DPT("ACMORS" GETLIST+1
^TMP("XDRDPICA" LOOP+11
^TMP("XDRDPICK" LOOP+11
^VA(15 - [#15] GETLIST+3, SHOW+6, SHOW+7, SHOW+9, SHOW+18, SHOW+20, SHOW+27, SHOW+30, CMORS+1, CMORS+2
, CMORS+3, CMORS+6, CMORS+7, CMORS+8, SETCMOR+2!, SETCMOR+3, SETCMOR+8*, SETCMOR+10*, SETCMOR+11*, SET1+3
, SET1+6*, SET1+8*, KILL1+3, KILL1+6!, KILL1+8!, OTHERS+20, OTHERS+22, OTHERS+23, OTHERS+24, OTHERS+36
, OTHERS+41, OTHERS+42, OTHERS+43, OTHERS+45, OTHERS+46, OTHERS+47, RESET+2, RESET+4, RESET+15*, RESET+16!
, RESET+17!
^VA(15.1 - [#15.1] FILE+7

Label References

Name Line Occurrences
$$FILE EN+3
ASK LOOP+13
ASKCMOR CMORS+3
CHEK ASK+2
CMORS GETLIST+1
GETLIST ASK+3
LOOP LOOP+6, LOOP+14
RESET SHOW+7, OTHERS+32, OTHERS+55
SETCMOR CMORS+1, CMORS+2, ASKCMOR+4
SHOW LOOP+6, ASK+8

Naked Globals

Name Field # of Occurrence
^( GETLIST+3, SETCMOR+3
^(0 CMORS+3, OTHERS+22, OTHERS+45

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CMORS1 EN+1~, CMORS+13*, CMORS+14
CMORS2 EN+1~, CMORS+13*, CMORS+15
D0 EN+1~, SET1+3, SET1+6, SET1+8, KILL1+3, KILL1+6, KILL1+8
DA EN+1~, SHOW+16*, SHOW+17, SHOW+20, SHOW+23*, OTHERS+15~, RESET~, RESET+2, RESET+3, RESET+4
, RESET+5, RESET+15, RESET+16, RESET+17
DIC EN+1~, FILE+15!*, FILE+19!
DIC("A" FILE+16*
DIC("B" FILE+17*
DIC("S" FILE+18*
DIC(0 FILE+15*
DIE EN+1~, SHOW+23*!
DIR EN+1~, LOOP+10!, CHEK+6!, ASKCMOR+1~
DIR("A" LOOP+8*, CHEK+3*, CHEK+4*, ASKCMOR+2*
DIR("B" LOOP+9*, ASKCMOR+3*
DIR(0 LOOP+7*, CHEK+2*, CHEK+3*, CHEK+5*, ASKCMOR+2*
DIREC OTHERS+16~, OTHERS+28*, OTHERS+29, OTHERS+42*, OTHERS+51*, OTHERS+52
DIRUT CHEK+9!
DONE OTHERS+16~, OTHERS+23*, OTHERS+26*, OTHERS+27, OTHERS+29*, OTHERS+46*, OTHERS+49*, OTHERS+50, OTHERS+52*
DR SHOW+22*, SHOW+23!
DT SHOW+22, CMORS+3, SETCMOR+11
DTOUT CHEK+8!
DUOUT CHEK+8!
DUZ SHOW+31, RESET+15
DUZ(2 SHOW+31
FLG GETLIST+2~, GETLIST+3, GETLIST+4*, GETLIST+5*
I FILE+7*, FILE+8, FILE+9, FILE+10, SETCMOR+1~, SETCMOR+3*, SETCMOR+8, SETCMOR+10
ICNT EN+1~, GETLIST+3*, GETLIST+9, ASK+1*, CMORS+4*, CMORS+6*, CMORS+7
ICNT1 EN+1~, ASK+1*, CMORS+4, CMORS+7*, CMORS+8, CMORS+12
>> IENPAIR OTHERS+23*, OTHERS+24, OTHERS+46*, OTHERS+47
IENS RESET+1~, RESET+5*, RESET+6, RESET+7, RESET+8, RESET+9, RESET+10, RESET+11, RESET+12, RESET+13
IENVAL OTHERS+16~, OTHERS+20*, OTHERS+22, OTHERS+23, OTHERS+32, OTHERS+36*, OTHERS+37, OTHERS+43*, OTHERS+45, OTHERS+46
, OTHERS+55
JCNT EN+1~, ASK+1*, ASK+2, ASK+5*, ASK+6, ASK+7, CHEK+2
LCNT EN+1~, CMORS+5*, CMORS+6, CMORS+7, CMORS+11*
NCNT EN+1~, GETLIST+3, GETLIST+5, GETLIST+7*, GETLIST+8*, GETLIST+9, GETLIST+10, GETLIST+11, ASK+1*, ASK+4
, CHEK+5, CMORS+6, CMORS+7, CMORS+11*, CMORS+12, CMORS+14, CMORS+15
OLDDA OTHERS+15~*, OTHERS+20, OTHERS+36, OTHERS+41, OTHERS+42, OTHERS+43
OLDX OTHERS+15~*, OTHERS+19, OTHERS+35, OTHERS+40
PCNT LOOP+15!, GETLIST+5, ASK+1*, ASK+4*
PNCT EN+1~
PRIFILE EN+1~, EN+3*
SCOR SETCMOR+1~, SETCMOR+7*, SETCMOR+8, SETCMOR+9*, SETCMOR+10
STATUS OTHERS+16~, OTHERS+25*, OTHERS+26, OTHERS+27, OTHERS+48*, OTHERS+49, OTHERS+50
TMPGLA EN+1~, LOOP+11*, LOOP+12, CMORS+9, CMORS+10
TMPGLB EN+1~, LOOP+11*, LOOP+12, GETLIST+9, GETLIST+10, GETLIST+11, ASK+5, ASK+6, ASK+7, ASK+8
, CMORS+12, CMORS+14, CMORS+15
U EN+3, GETLIST+5, GETLIST+6, GETLIST+7, GETLIST+8, GETLIST+9, GETLIST+10, GETLIST+11, SHOW+6, SHOW+7
, SHOW+10, SHOW+12, SHOW+18, SHOW+21, SHOW+27, SHOW+31, FILE+10, CMORS+8, CMORS+12, CMORS+13
, CMORS+14, CMORS+15, SETCMOR+4, SETCMOR+5, SETCMOR+6, SETCMOR+7, SETCMOR+9, SET1+4, SET1+5, SET1+7
, KILL1+4, KILL1+5, KILL1+7, OTHERS+20, OTHERS+22, OTHERS+25, OTHERS+28, OTHERS+29, OTHERS+36, OTHERS+41
, OTHERS+42, OTHERS+43, OTHERS+45, OTHERS+48, OTHERS+51, OTHERS+52, RESET+2, RESET+7, RESET+8, RESET+9
, RESET+10, RESET+11, RESET+12, RESET+13, RESET+15
X GETLIST+3*, GETLIST+5, GETLIST+6, GETLIST+7, SHOW+9*, SHOW+10, SHOW+11, SHOW+18*, SHOW+19, SHOW+20*
, SHOW+21, SHOW+29*, SHOW+30*, SHOW+31, FILE+2~, FILE+3*, FILE+9*, FILE+12, FILE+13, CMORS+8*
, SETCMOR+1~, SETCMOR+3*, SETCMOR+4, SETCMOR+5, SETCMOR+6, SET1+1, KILL1+1, OTHERS+14, OTHERS+15~, RESET+1~
, RESET+4*, RESET+7, RESET+8, RESET+9, RESET+10, RESET+11, RESET+12, RESET+13
X( FILE+9*
X("" FILE+13
X1 GETLIST+7*, GETLIST+8, GETLIST+9, GETLIST+10, SHOW+10*, SHOW+11*, SHOW+12, CMORS+8*, CMORS+9, CMORS+10
, CMORS+12, CMORS+13, CMORS+14, SETCMOR+1~, SETCMOR+6*, SETCMOR+7
X2 GETLIST+7*, GETLIST+8, GETLIST+9, GETLIST+11, SHOW+10*, SHOW+11*, SHOW+12, CMORS+8*, CMORS+9, CMORS+10
, CMORS+12, CMORS+13, CMORS+15, SETCMOR+1~, SETCMOR+6*, SETCMOR+9
XDR0 OTHERS+16~, OTHERS+24*, OTHERS+25, OTHERS+28, OTHERS+29, OTHERS+47*, OTHERS+48, OTHERS+51, OTHERS+52
XDRDA EN+1~, LOOP+6*, LOOP+14, ASK+1*, ASK+2, ASK+8*, CHEK+7*, CHEK+8*, SHOW+6, SHOW+7
, SHOW+9, SHOW+12, SHOW+16, SHOW+18, SHOW+20, SHOW+23, SHOW+24, SHOW+27, SHOW+30
>> XDRDADJX OTHERS+40
XDRENTR OTHERS+16~, OTHERS+20*, OTHERS+22, OTHERS+36*, OTHERS+41*, OTHERS+43, OTHERS+45
XDRFILN EN+1~, EN+3*
XDRFL EN+1~, EN+3*, LOOP+5, SHOW+11, SHOW+12, SHOW+27
XDRFLAG FILE~, FILE+4*, FILE+5, FILE+8, FILE+14, FILE+18
XDRFLNM FILE+2~, FILE+6*, FILE+10*, FILE+14*, FILE+16, FILE+17
XDRGLB EN+1~, EN+3*, GETLIST+1, GETLIST+6, GETLIST+8, GETLIST+10, GETLIST+11, SHOW+6~*, SHOW+7, CMORS+14
, CMORS+15
XDROTHER OTHERS+17, OTHERS+18~*
XDRPAIR OTHERS+16~, OTHERS+22*, OTHERS+23, OTHERS+29, OTHERS+45*, OTHERS+46, OTHERS+52
XDRPT FILE+2~, FILE+3*, FILE+8*
XDRXVAL SET1+2~, SET1+3*, SET1+4, SET1+5, SET1+7, KILL1+2~, KILL1+3*, KILL1+4, KILL1+5, KILL1+7
XDRXVAL1 SET1+2~, SET1+5*, SET1+6, SET1+7*, SET1+8, KILL1+2~, KILL1+5*, KILL1+6, KILL1+7*, KILL1+8
XDRXX OTHERS+37~, RESET+1~
XDRXX(15 OTHERS+37*, RESET+6*, RESET+7*, RESET+8*, RESET+9*, RESET+10*, RESET+11*, RESET+12*, RESET+13*
>> XQADATA SHOW+12*
>> XQAID SHOW+8*
Y EN+1~, LOOP+5*, LOOP+6, LOOP+10, CHEK+7, FILE+20, ASKCMOR+4
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All