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

Package: Toolkit

Routine: XDRDEDT


Information

XDRDEDT ;SF-IRMFO/REM - EDIT STATUS FIELD IN FILE 15 ;10/10/08 13:38

Source Information

Source file <XDRDEDT.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA FileMan 5 (,FIND)^DIC  ^DIE  ^DIK  $$GET1^DIQ  ^DIR  
Master Patient Index VistA 1 CALLRPC^MPIFDNL  
Toolkit 1 $$FILE^XDRDPICK  

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

Package Total Caller Graph
Toolkit 2 XDR EDIT DUP RECORD STATUS  XDRDPICK  

Entry Points

Name Comments DBIA/ICR reference
EN ;;
EN2
SCRN(DA,GLOBAL) ;Screen for verified dup. or verified not dup.
NAME(DA) ;
PEELNAM(NAME) ;
DELETE ;
LOOKUP(FILE) ; FIND PAIRS IN DUPLICATE RECORD FILE
LOOK1
PAIR(IENDIC,IDARR) ;
ASK(ARRAY) ;
ASKEM(NCUR,NMAX) ;
NOFILE ;
NONAME ;

External References

Name Field # of Occurrence
^DIC EN2+5
FIND^DIC LOOK1+8
^DIE EN2+21
^DIK EN2+19
$$GET1^DIQ EN2+12, PAIR+9, PAIR+10
^DIR EN2+15, LOOK1, ASKEM+4
CALLRPC^MPIFDNL EN2+33
$$FILE^XDRDPICK EN2+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!!," Duplicate Record File Entry ",DA," for the ",$P(^DIC(XDRFIL,0),U)," FILE"
  • Line Location: EN2+10
Function Call: WRITE
  • Prompt: !?10,X1,?20,N1,!?10,X2,?20,N2,!!?10,"Currently listed as ",XDROSTAT,!!
  • Line Location: EN2+13
Function Call: WRITE
  • Prompt: !!," ",$S($D(XDRDELET):"Entry DELETED!",1:"Status RESET to POTENTIAL DUPLICATE RECORD."),!!,*7
  • Line Location: EN2+25
Function Call: WRITE
  • Prompt: @NAME2@(X)
  • Line Location: LOOK1+30
Function Call: WRITE
  • Prompt: !!,"This entry is paired with more than one other record.",!,"Select which pair from the following list:",!
  • Line Location: PAIR+12
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: "There are "_N_" choices.",!!
  • Line Location: ASK+5
Function Call: WRITE
  • Prompt: !!
  • Line Location: ASKEM+2
Function Call: WRITE
  • Prompt: !,"Choose from 1 to "_NCUR
  • Line Location: ASKEM+2
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKEM+4
Function Call: WRITE
  • Prompt: !,"FILE ",FILE," NOT FOUND",$C(7),!!
  • Line Location: NOFILE+1
Function Call: WRITE
  • Prompt: $C(7),"??"
  • Line Location: NONAME+1
Routine Call
  • DIC
  • Line Location:
    • EN2+5
Routine Call
  • DIC
  • Line Location:
    • LOOK1+8
Routine Call
  • DIE
  • Line Location:
    • EN2+21
Routine Call
  • DIR
  • Line Location:
    • EN2+15
    • LOOK1
    • ASKEM+4

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("TEST" EN2+31
^DIC - [#1] EN2+1, EN2+10, LOOKUP+2, LOOKUP+3
^TMP($J LOOK1+7, LOOK1+24, PAIR+2
^VA(15 - [#15] EN2+6, EN2+7, EN2+22*, EN2+23!, EN2+24!, EN2+32, NAME+2, LOOK1+17, PAIR+4, PAIR+6

Label References

Name Line Occurrences
$$ASK LOOK1+29, PAIR+13
$$ASKEM ASK+7, ASK+8
$$PAIR LOOK1+32
$$PEELNAM EN2+9, NAME+5, NAME+7
EN2 DELETE+3
LOOK1 NONAME+2
NAME EN2+16
NOFILE LOOKUP+2, LOOKUP+3
NONAME LOOK1+22, LOOK1+29, LOOK1+32

Naked Globals

Name Field # of Occurrence
^( LOOK1+15
^(0 EN2+6, EN2+7, SCRN+1, SCRN+2, SCRN+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ARRAY ASK~, ASK+3, ASK+4, ASK+7
DA EN2+2, EN2+5*, EN2+6, EN2+7, EN2+10, EN2+12, EN2+16, EN2+22, EN2+23, EN2+24
, EN2+32, EN2+35!, SCRN~, NAME~, NAME+2
DIC EN2!, EN2+3*, EN2+35!
DIC("A" EN2+4*
DIC("S" EN2+3*
DIC(0 EN2+3*
DIE EN2!, EN2+21!*, EN2+35!
DIK EN2+18~, EN2+19*
DIR LOOKUP+1~, LOOK1!, ASKEM+1~
DIR("A" EN2+14*, LOOK1*, ASKEM+2*, ASKEM+3*
DIR("B" EN2+14*
DIR(0 EN2+14*, LOOK1*, ASKEM+2*, ASKEM+3*
DIRUT LOOK1+2, ASK+7, ASK+8, ASKEM+4!
DR EN2+21*, EN2+35!
>> DTOUT ASKEM+4
>> DUOUT ASKEM+4
DUZ EN2+22, EN2+33
DUZ(2 EN2+33
FILE LOOKUP~, LOOKUP+2, LOOKUP+3, LOOK1+8, PAIR+1~, PAIR+3*, PAIR+9, PAIR+10, NOFILE+1
FILENAM LOOKUP+1~, LOOKUP+2*, LOOK1
FILID LOOKUP+1~
FILID( LOOK1+27*
GLOBAL SCRN~, SCRN+3
I LOOKUP+1~, LOOK1+15*, LOOK1+19, LOOK1+25*, LOOK1+27, LOOK1+28, ASK+1~, ASK+3*, ASK+4*, ASK+7*
IDARR PAIR~, PAIR+10
IEN LOOKUP+1~, LOOK1+15*, LOOK1+16, PAIR+1~, PAIR+4*, PAIR+6, PAIR+11
IEN1 LOOKUP+1~, LOOK1+31*, LOOK1+32
IEN2 PAIR+1~, PAIR+7*, PAIR+8*, PAIR+9
IENDIC PAIR~, PAIR+3, PAIR+4, PAIR+7
>> IENS PAIR+8*, PAIR+9, PAIR+10
J LOOKUP+1~, LOOK1+17*, LOOK1+19*, LOOK1+22*, LOOK1+27*
N NAME+1~, NAME+5*, NAME+6, NAME+7*, NAME+8, LOOKUP+1~, LOOK1+25*, LOOK1+26*, LOOK1+28, LOOK1+30
, ASK+1~, ASK+3*, ASK+4, ASK+5, ASK+7
N1 EN+1~, EN2+8*, EN2+9*, EN2+13, NAME+1~, NAME+3*, NAME+5, NAME+6, DELETE+1~, ASK+1~
, ASK+6*, ASK+7*, ASK+8
N2 EN+1~, EN2+8*, EN2+9*, EN2+13, NAME+1~, NAME+4*, NAME+7, NAME+8, DELETE+1~
NAME PEELNAM~, PEELNAM+1*, PEELNAM+2, LOOKUP+1~, LOOK1+7*, LOOK1+8, LOOK1+10, LOOK1+31, PAIR+1~, PAIR+2*
, PAIR+11, PAIR+13, PAIR+14
NAME1 LOOKUP+1~, LOOK1+10*, LOOK1+15, LOOK1+19, LOOK1+22, LOOK1+25, LOOK1+27, LOOK1+28
NAME2 LOOKUP+1~, LOOK1+24*, LOOK1+28, LOOK1+29, LOOK1+30, LOOK1+31
NAMEA LOOKUP+1~
NCHOICE ASK+1~, ASK+6*, ASK+7*, ASK+8*, ASK+9
NCUR ASKEM~, ASKEM+2, ASKEM+3
NMAX ASKEM~, ASKEM+2
U EN2+6, EN2+7, EN2+8, EN2+10, EN2+22, EN2+33, SCRN+1, SCRN+2, SCRN+3, NAME+2
, NAME+3, NAME+4, NAME+6*, NAME+8*, LOOKUP+2, LOOK1+17, PAIR+3, PAIR+4, PAIR+7
X EN+1~, EN2+31*, EN2+32*, EN2+33, NAME+1~, NAME+2*, NAME+3, NAME+4, NAME+6, NAME+8
, DELETE+1~, LOOKUP+1~, LOOK1+1, LOOK1+8, LOOK1+27*, LOOK1+28, LOOK1+29*, LOOK1+30, LOOK1+31, LOOK1+32*
, LOOK1+33
X1 EN+1~, EN2+6*, EN2+7*, EN2+8, EN2+13, NAME+1~, NAME+2*, NAME+3, NAME+6, DELETE+1~
X2 EN+1~, EN2+6*, EN2+7*, EN2+8, EN2+13, NAME+1~, NAME+2*, NAME+4, NAME+8, DELETE+1~
XDR1 LOOKUP+1~, LOOK1+16*, LOOK1+17
XDRDELET EN+1~, EN2+4, EN2+14, EN2+17, EN2+20, EN2+25, SCRN+2, DELETE+1~, DELETE+2*
XDRDIC LOOKUP+1~, LOOKUP+3*, LOOKUP+4*, LOOK1+16, LOOK1+31
XDRFIL EN+1~, EN2+1*, EN2+10, EN2+29, DELETE+1~
>> XDRGLB EN2+1*, EN2+8
XDRJ PAIR+1~, PAIR+10*
XDRN PAIR+1~, PAIR+3*, PAIR+5*, PAIR+11, PAIR+12
XDROSTAT EN+1~, EN2+12*, EN2+13, EN2+28
XDRX PAIR+1~, PAIR+6*, PAIR+7, PAIR+13*, PAIR+15
XDRX1 PAIR+1~, PAIR+9*, PAIR+10*, PAIR+11
Y EN2+5, EN2+15, LOOKUP+1~, LOOK1+2, ASKEM+1~, ASKEM+5
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