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 |  Marked Items  | All
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>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
VA FileMan 7 ^DIC  FILE^DICN  ^DIE  $$GET1^DIQ  ^DIR  ^DIWP  ^DIWW  
Toolkit 6 SHOW^XDRDPICK  FILE^XDRDQUE  ^XDRDSCOR  ^XDRDUP  EN^XDRMAIN  ^XDRMAINI  
Master Patient Index VistA 1 ($$DNLCHK,DNLCHK)^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: 1

Package Total Caller Graph
Toolkit 1 XDR ADD VERIFIED DUPS  

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 ;

External References

Name Field # of Occurrence
^DIC LKUP+5, LKUP2+3
FILE^DICN ADD+14
^DIE ADD+18
$$GET1^DIQ BYPASS+3
^DIR START+22, LKUP2+13, BYPASS+7, BYPASS+12
^DIWP DNLCHECK+23
^DIWW DNLCHECK+23
$$DNLCHK^MPIFDNL DNLCHECK+14
DNLCHK^MPIFDNL DNLCHECK+10
SHOW^XDRDPICK START+49
FILE^XDRDQUE START+9
^XDRDSCOR START+38
^XDRDUP START+39
EN^XDRMAIN MERGE+2
^XDRMAINI ADD+2

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
Routine Call
  • DIC
  • Line Location:
    • LKUP+5
    • LKUP2+3
Routine Call
  • DIE
  • Line Location:
    • ADD+18
Routine Call
  • DIR
  • Line Location:
    • START+22
    • LKUP2+13
    • BYPASS+7
    • BYPASS+12

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(15 - [#15] Classic Fileman Calls
^DIC(19.1 - [#19.1] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("TEST" DNLCHECK+9
^DIC - [#1] START+19, LKUP+4, LKUP2+2
^UTILITY($J DNLCHECK+20!
^VA(15 - [#15] CHECK+1, CHECK+2, CHECK+3, ADD+13
^VA(15.1 - [#15.1] START+17*
^VA(200 - [#200] BYPASS+2

Label References

Name Line Occurrences
$$DNLCHECK START+35
ADD START+47
ADDX ADD+16
BYPASS START+29
CHECK START+31
END START+12, START+20, START+29, START+30
EOJ END
LKUP START+30, LKUP2+4
LKUP2 LKUP2+6
LKUPX LKUP+6
SCORE START+42
START START+31, START+35, START+43, START+48, START+50

Naked Globals

Name Field # of Occurrence
^( CHECK+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA LKUP+5!, LKUP2+3!, ADD+17*, ADDX!
DIC START+2!, LKUP+2*, LKUP+5!, LKUP2*, LKUP2+3!, ADD+3*, ADD+15!
DIC("A" START+9*, LKUP+4*, LKUP2+2*
DIC("DR" ADD+5*, ADD+7*, ADD+8*, ADD+9*
DIC("S" LKUP+3*, LKUP2+1*
DIC(0 LKUP+2*, LKUP2*, ADD+3*
DIE ADD+17*, ADDX!
DIR START+21!, START+22!, LKUP2+13!, BYPASS+7!, BYPASS+12!
DIR("??" BYPASS+6*
DIR("A" START+21*, BYPASS+5*, BYPASS+11*
DIR("B" BYPASS+11*
DIR(0 START+21*, LKUP2+13*, BYPASS+5*, BYPASS+11*
>> DIRUT START+22, LKUP+6, LKUP2+4, LKUP2+13, BYPASS+12
DIWF DNLCHECK+19~, DNLCHECK+21*
DIWL DNLCHECK+19~, DNLCHECK+21*
DIWR DNLCHECK+19~, DNLCHECK+21*
DLAYGO ADD+3*, ADD+15!
DR ADD+15!, ADD+18*!, ADDX!
DR(2 ADD+18*
DT ADD+7
>> DTOUT BYPASS+7
>> DUOUT BYPASS+7
DUZ ADD+7, BYPASS+2
I ADD+11~, ADD+13*
IOM DNLCHECK+21
U START+14, START+17, LKUP+4, LKUP2+2, LKUP2+11, LKUP2+12, CHECK+1, CHECK+2, CHECK+3, DNLCHECK+18
, DNLCHECK+21, ADD+3, ADD+4, ADD+12, ADD+13, ADD+18
X DNLCHECK+6~, DNLCHECK+9*, DNLCHECK+19~, DNLCHECK+21*, ADD+3*, ADD+12, ADD+13!, ADD+14, ADD+15!, BYPASS+1~
BYPASS+2*, BYPASS+3, EOJ+1!
X1 ADD+11~, ADD+12*, ADD+13
X2 ADD+11~, ADD+12*, ADD+13
X3 ADD+11~, ADD+13*
XDRADFLG START+1~, START+7*, START+28*, START+38, BYPASS+7*, BYPASS+8, BYPASS+9, BYPASS+12*, BYPASS+13
XDRCD LKUP+1!, LKUP+7*, LKUP2+6, LKUP2+7, LKUP2+8, LKUP2+9*, LKUP2+11, CHECK+1, CHECK+2, CHECK+3
, DNLCHECK+14, SCORE+6, SCORE+7, ADD+16!, EOJ+1!
XDRCD2 LKUP+1!, LKUP2+5*, LKUP2+6!, LKUP2+7, LKUP2+8, LKUP2+9*, LKUP2+12, CHECK+1, CHECK+2, CHECK+3
, DNLCHECK+14, SCORE+6, SCORE+7, ADD+16!, EOJ+1!
XDRCNTR XDRMADD+4~, XDRMADD+5*, START+20, START+24*
XDRD EOJ+1!
XDRD("DUPSCORE" START+27*, SCORE+2, ADD+8
XDRD("NOADD" START+39*
XDRD(0 START+14
>> XDRDA START+47*, ADD+17*
>> XDRDFLG START+35, START+47, CHECK+1*, CHECK+2*, CHECK+3*, CHECK+4
XDRDFR SCORE+6*, SCORE+7, ADD+3, MERGE+1, EOJ+1!
XDRDI CHECK+1*, CHECK+2, CHECK+3, CHECK+5!
XDRDSCOR EOJ+2!
XDRDSCOR("MAX" START+27*, SCORE+2, ADD+8
XDRDSCOR("PDT%" START+27*, START+38*, START+43, START+45, ADD+8
XDRDSCOR("VDT%" ADD+9
XDRDTEST EOJ+2!
XDRDTEST( ADD+18
XDRDTO SCORE+7*, ADD+4, MERGE+1, EOJ+1!
XDRDTYPE START+14*, START+15, START+17*, START+41!
>> XDRDUP("TEST SCORE" , ADD+18, ADDX!
XDRFL XDRMADD+4~, START+8, START+10, START+13, START+17, START+19, START+26, START+29, START+35, START+37
START+43, LKUP+4, LKUP2+2, DNLCHECK+5, SCORE+1, EOJ+1!, EOJ+2!
XDRGL START+19*, LKUP+2, LKUP2LKUP2+11, LKUP2+12, CHECK+1, CHECK+2, CHECK+3, ADD+3, ADD+4
EOJ+1!
XDRKEY BYPASS+1~, BYPASS+2*, BYPASS+3*, BYPASS+4
XDRM MERGEX!
XDRM("NOVERIFY" MERGE+1*
XDRMADD EOJ+1!
XDRMADD("DUPSCORE%" START+27*, START+43, START+44, SCORE+2*, SCORE+3*, SCORE+4*, ADD+8
XDRMADD("REC1" LKUP2+7*, LKUP2+8, LKUP2+9
XDRMADD("REC2" LKUP2+8*, LKUP2+9
XDRMADD("STATUS" SCORE+8*, ADD+5
XDRMADDX ADD+4*, ADD+12, ADDX!
>> XDRMAINI ADD+2*
XDRMORD ADD+18*, ADDX!, EOJ+1!
XDRMPAIR MERGE+1*, EOJ+2!
XDRMPDA ADD+17*, EOJ+2!
XDRNOPT START+1~, START+7*
XDRQFLG START+7*, START+9, START+12, START+20, START+22*, START+29, START+30, START+31, START+48, LKUP+6*
LKUP2+13*, ADD+16*, BYPASS+7*, BYPASS+12*, EOJ+2!
XDRRES DNLCHECK+6~, DNLCHECK+14*, DNLCHECK+18, DNLCHECK+21
Y START+22, LKUP+6, LKUP+7, LKUP2+4, LKUP2+5, ADD+14*, ADD+16, ADD+17, BYPASS+7, BYPASS+12
EOJ+1!

Marked Items

Name Field # of Occurrence
$T(DNLCHK^MPIFDNL DNLCHECK+10
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 |  Marked Items  | All