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 |  FileMan Files Accessed Via FileMan Db Call
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>

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) ;

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(15 - [#15] Classic Fileman Calls
15.02 FIND1^DIC
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call