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: XDRMADD

Package: Toolkit

Routine: XDRMADD


Information

XDRMADD ;SF-IRMFO/IHS/OHPRD/JCM,JLI,REM - USER CREATED VERIFIED DUPLICATE PAIR ENTRY ;27 Jul 2010 6:18 PM

Source Information

Source file <XDRMADD.m>

Entry Points

Name Comments DBIA/ICR reference
START ;
END
LKUP ;Looks up the records to add.
LKUP2
LKUPX
CHECK ;
DNLCHECK() ; If patients are being selected for merge, check the MPI to
; determine whether the records are marked as DO NOT LINK and
; therefore should not be added to the DUPLICATE RECORD file.
; Returns 1 if OK.
; Created in XT*7.3*125
SCORE ;
ADD ;
ADDX
MERGE
MERGEX
BYPASS ;REM -8/20/96 Add record directly into file 15, bypass threshold.
EOJ ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: "* No potential duplicate threshold % check will be calculated for PATIENTS"
  • Line Location: START+10
Function Call: WRITE
  • Prompt: !
  • Line Location: START+21
Function Call: WRITE
  • Prompt: !!,$C(7),"This pair of patients has a duplicate percentage of only ",XDRMADD("DUPSCORE%"),"% which"
  • Line Location: START+44
Function Call: WRITE
  • Prompt: !,"is less than the minimal percentage for potential duplicates (",XDRDSCOR("PDT%"),"%)."
  • Line Location: START+45
Function Call: WRITE
  • Prompt: !!?30,"Patients not added!!!",!!
  • Line Location: START+46
Function Call: WRITE
  • Prompt: !!,"Please do not try and merge the same patients together.",!!
  • Line Location: LKUP2+6
Function Call: WRITE
  • Prompt: !!,"You will be adding the following pair of records to the duplicate record file:",!
  • Line Location: LKUP2+10
Function Call: WRITE
  • Prompt: !?5,"RECORD1: ",$P(@(XDRGL_XDRCD_",0)"),U)
  • Line Location: LKUP2+11
Function Call: WRITE
  • Prompt: !?5,"RECORD2: ",$P(@(XDRGL_XDRCD2_",0)"),U)
  • Line Location: LKUP2+12
Function Call: WRITE
  • Prompt: !!
  • Line Location: LKUP2+13
Function Call: WRITE
  • Prompt: " Ok, continuing, hold on ...",!
  • Line Location: LKUP2+14
Function Call: READ
  • Variable: XDRMADD("ANS")
  • Timeout: DTIME
  • Line Location: LKUP2+15
Function Call: WRITE
  • Prompt: " Okay, continuing, hold on ...",!
  • Line Location: LKUP2+15
Function Call: WRITE
  • Prompt: !!,"They are already entered in Duplicate Record file.",!!
  • Line Location: CHECK+4
Function Call: WRITE
  • Prompt: !,$C(7)
  • Line Location: DNLCHECK+22
Function Call: WRITE
  • Prompt: !!,*7,"Potential duplicate threshold % will NOT be bypassed!",!
  • Line Location: BYPASS+8
Function Call: WRITE
  • Prompt: !
  • Line Location: BYPASS+12
Function Call: WRITE
  • Prompt: *7,!!,"Potential duplicate threshold % will NOT be bypassed!",!
  • Line Location: BYPASS+13

FileMan Files Accessed Via FileMan Db Call

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