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

Package: Toolkit

Routine: XDRRMRG1


Information

XDRRMRG1 ;SF-IRMFO.SEA/JLI - DUP VERIFICATION FOR ANCILLARY SERVICES ;10/21/2010

Source Information

Source file <XDRRMRG1.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Toolkit 4 SHOW^XDRDSHOW  (SEND,SETARY)^XDRRMRG0  ($$COUNT,$$LABIEN,ASK,PRINT2)^XDRRMRG2  FINALVER^XDRVCHEK  
VA FileMan 4 $$FIND1^DIC  UPDATE^DIE  $$GET1^DIQ  ^DIR  
Kernel 3 HOME^%ZIS  ($$FMTE,$$NOW)^XLFDT  DELETEA^XQALERT  
Registration 1 ^VADPT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Toolkit 3 XDRDPICK  XDRMVFY  XDRRMRG0  

Entry Points

Name Comments DBIA/ICR reference
CHEKVER ;
LDATE
SHOW ;
SETUP(XDRDA) ;
CHK ;
CHK1
EN ;
VERWARN ;Warning message when ready to Verified Dupicates; p126-REM

External References

Name Field # of Occurrence
HOME^%ZIS CHK1+71
$$FIND1^DIC CHK1+25, CHK1+36, CHEKVER+10, SETUP+21
UPDATE^DIE CHK1+32, CHK1+44, CHK1+51, CHK1+64, SETUP+24
$$GET1^DIQ SETUP+11
^DIR CHK1+2, CHK1+21
^VADPT EN+15, EN+16
SHOW^XDRDSHOW SHOW+25
SEND^XDRRMRG0 SETUP+31
SETARY^XDRRMRG0 SETUP+27
$$COUNT^XDRRMRG2 SHOW+2, CHK1+14
$$LABIEN^XDRRMRG2 SHOW+9
ASK^XDRRMRG2 CHK1+65
PRINT2^XDRRMRG2 CHK1+70
FINALVER^XDRVCHEK CHEKVER+12
$$FMTE^XLFDT LDATE+13
$$NOW^XLFDT CHK1+30, CHK1+62
DELETEA^XQALERT CHK1+59

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$C(7),"NO DATA TO REVIEW....",!!
  • Line Location: EN+20
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: SHOW+3
Function Call: WRITE
  • Prompt: !," RECORD"_N1_" contains fewer data elements, usually this would indicate",!," that this record would be merged INTO the other."
  • Line Location: SHOW+3
Function Call: WRITE
  • Prompt: !!,"Determine if these entries ARE or ARE NOT duplicates."
  • Line Location: SHOW+6
Function Call: WRITE
  • Prompt: !
  • Line Location: SHOW+7
Function Call: WRITE
  • Prompt: !,$S($D(LABEL(I)):LABEL(I),1:I),?20,$E(DFNFR(I),1,20),?45,$E(DFNTO(I),1,20)
  • Line Location: SHOW+16
Function Call: WRITE
  • Prompt: !
  • Line Location: SHOW+17
Function Call: WRITE
  • Prompt: !!,"There is NO DATA in the "_PACKAGE_" file for either entry."
  • Line Location: SHOW+19
Function Call: WRITE
  • Prompt: !!,"There is NO DATA in the "_PACKAGE_" file for (",DFNFRX,") ",DFNFR(1)," ",DFNFR(2)
  • Line Location: SHOW+20
Function Call: WRITE
  • Prompt: !!,"There is NO DATA in the "_PACKAGE_" file for (",DFNTOX,") ",DFNTO(1)," ",DFNTO(2)
  • Line Location: SHOW+21
Function Call: WRITE
  • Prompt: !!!,?20,"RECORD1 [#"_DFNFR_"]",?45,"RECORD2 [#"_DFNTO_"]"
  • Line Location: CHK1+18
Function Call: WRITE
  • Prompt: !,?20,DFNFR(1),?45,DFNTO(1)
  • Line Location: CHK1+19
Function Call: WRITE
  • Prompt: !!!,$C(7),"VERIFICATION ABORTED!",!
  • Line Location: CHK1+22
Function Call: WRITE
  • Prompt: !!,"*** WARNING!!! You have verified these two records are the SAME"
  • Line Location: VERWARN+1
Function Call: WRITE
  • Prompt: !,"patient. Once these records are merged, there is no automated way to"
  • Line Location: VERWARN+2
Function Call: WRITE
  • Prompt: !,"""un-do"" the merge. If you are not certain these are the same patient,"
  • Line Location: VERWARN+3
Function Call: WRITE
  • Prompt: !,"edit the status back to 'Potential Duplicate, Unverified' and repeat the"
  • Line Location: VERWARN+4
Function Call: WRITE
  • Prompt: !,"verification process. For additional assistance, please log a NOIS/Remedy"
  • Line Location: VERWARN+5
Function Call: WRITE
  • Prompt: !,"ticket. ***"
  • Line Location: VERWARN+6
Function Call: WRITE
  • Prompt: !!
  • Line Location: VERWARN+7
Routine Call
  • %ZIS
  • Line Location:
    • CHK1+71
Routine Call
  • DIC
  • Line Location:
    • CHK1+25
    • CHK1+36
    • CHEKVER+10
    • SETUP+21
Routine Call
  • DIR
  • Line Location:
    • CHK1+2
    • CHK1+21
Routine Call
  • DIE
  • Line Location:
    • CHK1+32
    • CHK1+44
    • CHK1+51
    • CHK1+64
    • SETUP+24

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
15.02 FIND1^DIC
15.03 FIND1^DIC
^XMB(3.8 - [#3.8] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( LDATE+3
^DIC - [#1] EN+13, SETUP+15
^DPT - [#2] EN+18, EN+19, SETUP+16, SETUP+17
^VA(15 - [#15] EN+4, CHK1+23, CHEKVER+11, SETUP+2, SETUP+3
^VA(15.1 - [#15.1] CHK1+56, CHEKVER+3, CHEKVER+4, CHEKVER+5, CHEKVER+9, SETUP+6, SETUP+7, SETUP+8, SETUP+29
^XMB(3.8 - [#3.8] CHEKVER+7

Label References

Name Line Occurrences
CHEKVER CHK1+53
CHK LDATE+18
CHK1 CHK1+3, CHK1+4, CHK1+72
SHOW LDATE+15, CHK1+3, CHK1+4
VERWARN CHK1+10

Naked Globals

Name Field # of Occurrence
^( SETUP+29
^(0 CHEKVER+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> ABORT CHK1+65*, CHK1+70
>> DFN EN+15*, EN+16*, LDATE*, LDATE+8, CHK1+12*
DFNFR EN+2~, EN+6*, EN+7, EN+8*, EN+15*, EN+18*, EN+20, LDATE, LDATE+16*, SHOW+9
, SHOW+25, CHK1+18, SETUP+3*, SETUP+4*, SETUP+16, SETUP+25
DFNFR(1 CHK1+19
DFNFRX EN+2~, EN+8*, LDATE+16, SHOW+2, CHK1+12, CHK1+14, CHK1+23
>> DFNNAM LDATE*, LDATE+1, LDATE+12, LDATE+13, LDATE+14
DFNTO EN+2~, EN+7*, EN+16*, EN+19*, EN+20, LDATE, LDATE+16*, SHOW+9, SHOW+25, CHK1+18
, SETUP+3*, SETUP+4*, SETUP+17, SETUP+25
DFNTO(1 CHK1+19
DFNTOX EN+2~, EN+7*, LDATE+16, SHOW+2, CHK1+12, CHK1+14
DIR CHK+1~, CHK1!, CHK1+2!, CHK1+12*, CHK1+13!, CHK1+21!
DIR("A" CHK1+1*, CHK1+20*
DIR("B" CHK1+1*, CHK1+14*, CHK1+15*, CHK1+16!
DIR(0 CHK1+1*, CHK1+17*
>> DIRUT CHK1+2, CHK1+22
DT LDATE+10
DUZ CHK1+29, CHK1+63
>> FILEDIC EN+13*, LDATE+8, LDATE+9, LDATE+14, CHK1+12
I LDATE+1*, LDATE+8*, LDATE+9, CHK1+35~, CHK1+47*, CHK1+49, CHK1+50, CHK1+55~, CHK1+56*, CHK1+57
, CHEKVER+3*, CHEKVER+4, CHEKVER+5, CHEKVER+9, SETUP+29*
IOF SHOW+3
IOST LDATE+17
>> ISUBS LDATE+2*, LDATE+11
>> LASTNAM LDATE+11*, LDATE+12, LDATE+13
>> N1 SHOW+2*, SHOW+3
NAMIEN1 SHOW+1~, SHOW+9*
NAMIEN2 SHOW+1~, SHOW+9*
OVERWRIT EN+2~, SHOW+25, CHK1+34
OVERWRIT( CHK1+47
>> PACKAGE EN+9*, SHOW+3, CHK1+11, CHK1+25, CHK1+27, CHK1+34, CHK1+42
PRIFILE EN+2~, EN+4*, CHK1+56, CHEKVER+3, CHEKVER+4, CHEKVER+5, CHEKVER+9, SETUP+6, SETUP+7, SETUP+8
, SETUP+29
>> QLIST CHK1+65
R CHEKVER+1~, CHEKVER+7*, CHEKVER+8, SETUP+31!
REVIEW EN+2~, EN+3*, SHOW+25, CHK1+3*, CHK1+4*
>> SUBFILES EN+10*, LDATE+2
>> SUBNAMES EN+11*, LDATE+11
>> SUBSCR LDATE+2*, LDATE+3, LDATE+6*, LDATE+8, LDATE+9
U EN+4, EN+5, EN+6, EN+9, EN+10, EN+11, EN+12, LDATE+4, LDATE+5, LDATE+6
, LDATE+9, CHEKVER+4, CHEKVER+5, CHEKVER+11, SETUP+3, SETUP+4, SETUP+5, SETUP+9, SETUP+10, SETUP+13
, SETUP+25
VA EN+15!, EN+16!
VADM EN+15!, EN+16!
>> X LDATE+9*, LDATE+10, SETUP+2*, SETUP+3, SETUP+4, SETUP+5, SETUP+29*, SETUP+30
>> X1 CHEKVER+4*, CHEKVER+6, CHEKVER+7, CHEKVER+8*, CHEKVER+9, CHEKVER+10*, CHEKVER+11
XDAT1 LDATE+7~*, LDATE+10*, LDATE+13
>> XDRAID CHK1+55*, CHK1+57, SETUP+6*, SETUP+7, SETUP+8, SETUP+29
XDRARR SETUP+21~
XDRARR( SETUP+22*, SETUP+23*
XDRDA EN+2~, EN+5*, CHK1+23, CHK1+25, CHK1+26, CHK1+36, CHK1+38, CHK1+46, CHK1+61, CHK1+62
, CHK1+63, CHEKVER+10, CHEKVER+11, CHEKVER+12, SETUP~, SETUP+2, SETUP+3, SETUP+21, SETUP+22, SETUP+23
, SETUP+25
XDRDA1 CHK1+24~, CHK1+25*, CHK1+26*, CHK1+27, CHK1+28, CHK1+29, CHK1+30, CHK1+31, CHK1+36*, CHK1+37
, CHK1+38*, CHK1+41, CHK1+43, CHK1+45*, CHK1+46*, CHK1+50
XDRDAX CHK1+39!, CHK1+48!
XDRDAX(1 CHK1+40*, CHK1+45, CHK1+49*
XDRDIC SETUP+14~, SETUP+15*, SETUP+19
>> XDRDIR CHK1+9*, CHK1+21*, CHK1+23*, CHK1+31, CHK1+34, CHK1+42
XDRFDA CHK1+24~, CHK1+39!, CHK1+48!, CHK1+60~
XDRFDA( CHK1+27*, CHK1+28*, CHK1+29*, CHK1+30*, CHK1+31*, CHK1+41*, CHK1+43*, CHK1+50*
XDRFDA(15 CHK1+61*, CHK1+62*, CHK1+63*
XDRFILE EN+12*, EN+13, EN+17, LDATE+3, LDATE+16, SHOW+2, SHOW+9, SHOW+25, CHK1+14, CHK1+36
, CHK1+40, CHK1+41, SETUP+1~, SETUP+5*, SETUP+13*, SETUP+15, SETUP+16, SETUP+17, SETUP+25
XDRFR SETUP+14~, SETUP+16*, SETUP+18, SETUP+19
XDRGL EN+2~, EN+4*, EN+14
>> XDRGRP SETUP+10*, SETUP+11, SETUP+12*, SETUP+28
XDRGRPN SETUP+1~, SETUP+11*, SETUP+12
>> XDRI LDATE*
>> XDRNAME SETUP+9*, SETUP+21, SETUP+22, SETUP+25
>> XDRNOD2 SETUP+8*, SETUP+25
XDRNODE SETUP+7*, SETUP+9, SETUP+10, SETUP+13, SETUP+18!, SETUP+19!, SETUP+20
XDRSSN SETUP+1~
XDRTO SETUP+14~, SETUP+17*, SETUP+18, SETUP+19
>> XDRY CHK1+2*, CHK1+3, CHK1+4, CHK1+5, CHK1+7, CHK1+8, CHK1+10, CHK1+11, CHK1+22*, CHK1+28
, CHK1+52, CHK1+54
>> XMTEXT SETUP+27*
>> XMY( SETUP+28*
>> XN CHEKVER+5*, CHEKVER+10
>> XQA( SETUP+30*
>> XQADATA EN+1, EN+4, EN+5, EN+6, EN+9, EN+10, EN+11, EN+12, SETUP+25*
XQAID CHK1+55~, CHK1+57*
XQAKILL CHK1+2!, CHK1+6!, CHK1+8*, CHK1+58*
>> XVER CHEKVER+2*, CHEKVER+3, CHEKVER+11*, CHEKVER+12
>> XX LDATE+3*, LDATE+4, LDATE+5, LDATE+6
>> Y CHK1+2, CHK1+21
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