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 |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: MAGVCLN1

Package: Imaging

Routine: MAGVCLN1


Information

MAGVCLN1 ;WOIFO/DAC - File 2005.6X Duplicate Removal Utility ; Feb 22, 2022@21:12:01

Source Information

Source file <MAGVCLN1.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 3 (,HOME)^%ZIS  ^%ZTLOAD  ($$FMTE,$$NOW)^XLFDT  
VA FileMan 3 UPDATE^DIE  $$GET1^DIQ  ^DIR  
Imaging 1 $$GETP^MAGVCLN1  
MailMan 1 ^XMD  

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
Imaging 2 MAGVCLN  MAGVCLN1  

Entry Points

Name Comments DBIA/ICR reference
MSG(DELETE,MAGQ) ; Display intro message
DEVICE(DELETE,MAGQUIT,MAGQUE,MAGSCR) ; Request Device Information
CONT ; Continue
GETP(FILE,IEN) ; Get Patient Reference from File entry
GETP61(IEN) ; Get Patient Reference from file 2005.61
GETP62(IEN) ; Get Patient Reference from file 2005.62
GETP63(IEN) ; Get Patient Reference from file 2005.63
GETP64(IEN) ; Get Patient Reference from file 2005.64
GETP65(IEN) ; Get Patient Reference from file 2005.64
TMPMSG(DELETE)
MSGHDR(MAGLICNT,DELETE) ; Output header for Mailman - when run silently (as in post-install)
OUTPUT(TEXT,MAGBLF,MAGALF,MAGPOST) ; Output a line of TEXT
; TEXT= Line of text
; MAGBLF = Number of 'before' line feeds
; MAGALF = Number of 'after' line feeds
; MAGPOST = Called as post-install routine, output mailed to DUZ
AUDIT(KEY,FILE,IEN,ORIGIEN,REASON,ACTION,DELIEN,ORIGAOF,DUPEIEN) ; Audit File for Problem Records?
PATNAME(FILE,IEN) ; Get patient name from 2005.6x file
PATMAGID(FILE,IEN) ; Get ENTERPRISE PATIENT ID file (#2005.6) ID

External References

Name Field # of Occurrence
^%ZIS DEVICE+5
HOME^%ZIS DEVICE+17
^%ZTLOAD DEVICE+15
UPDATE^DIE AUDIT+26
$$GET1^DIQ PATNAME+7
^DIR MSG+18, CONT+1
$$GETP^MAGVCLN1 PATNAME+3, PATMAGID+3
$$FMTE^XLFDT TMPMSG+3
$$NOW^XLFDT AUDIT+12
^XMD TMPMSG+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: MSG+4
Function Call: WRITE
  • Prompt: !
  • Line Location: DEVICE+5
Function Call: WRITE
  • Prompt: !,$S($D(ZTSK):"REQUEST QUEUED TASK="_ZTSK,1:"REQUEST CANCELLED")
  • Line Location: DEVICE+16
Function Call: WRITE
  • Prompt: !
  • Line Location: CONT+1
Function Call: WRITE
  • Prompt: !
  • Line Location: OUTPUT+12
Function Call: WRITE
  • Prompt: !,TEXT
  • Line Location: OUTPUT+14
Function Call: WRITE
  • Prompt: !
  • Line Location: OUTPUT+20
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+5
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+17
Routine Call
  • DIE
  • Line Location:
    • AUDIT+26
Routine Call
  • DIR
  • Line Location:
    • MSG+18
    • CONT+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^MAGV(2005.6 - [#2005.6] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^MAGV(2005.6 - [#2005.6] GETP+3, GETP61+3, GETP62+4, PATNAME+5
^MAGV(2005.61 - [#2005.61] GETP61+2
^MAGV(2005.62 - [#2005.62] GETP62+2
^MAGV(2005.63 - [#2005.63] GETP63+2
^MAGV(2005.64 - [#2005.64] GETP64+2
^MAGV(2005.65 - [#2005.65] GETP65+2
^TMP("MAGVCLN" MSGHDR+1*, MSGHDR+2*, MSGHDR+3*, MSGHDR+4*, MSGHDR+5*, OUTPUT+13*, OUTPUT+15*, OUTPUT+21*

Label References

Name Line Occurrences
$$GETP61 GETP+4
$$GETP62 GETP+5, GETP63+3
$$GETP63 GETP+6, GETP64+3
$$GETP64 GETP+7, GETP65+3
$$GETP65 GETP+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DEVICE+1~, DEVICE+3*
ACTION AUDIT~, AUDIT+4*, AUDIT+11
DELETE MSG~, MSG+5, MSG+11, MSG+14, MSG+15, MSG+17, DEVICE~, TMPMSG~, TMPMSG+3, MSGHDR~
, MSGHDR+1, MSGHDR+2
DELIEN AUDIT~, AUDIT+14
DELOPT MSG+1~, MSG+2*, MSG+15
DIFROM TMPMSG+5~!
DIR MSG+1~, CONT+1!
DIR("A" MSG+5*, MSG+6*, MSG+7*, MSG+8*, MSG+9*, MSG+10*, MSG+11*, MSG+12*, MSG+13*, MSG+14*
, MSG+15*, MSG+16*, MSG+17*, CONT+1!
DIR("B" MSG+18*
DIR(0 MSG+18*, CONT+1*
DT TMPMSG+3
DUPEIEN AUDIT~, AUDIT+16
DUZ TMPMSG+3
FILE GETP~, GETP+2, GETP+3, GETP+4, GETP+5, GETP+6, GETP+7, GETP+8, AUDIT~, AUDIT+8
, PATNAME~, PATNAME+2, PATNAME+3, PATMAGID~, PATMAGID+2, PATMAGID+3
IDOPT MSG+1~, MSG+3*, MSG+15
IEN GETP~, GETP+2, GETP+3, GETP+4, GETP+5, GETP+6, GETP+7, GETP+8, GETP61~, GETP61+2
, GETP62~, GETP62+2, GETP63~, GETP63+2, GETP64~, GETP64+2, GETP65~, GETP65+2, AUDIT~, AUDIT+3
, AUDIT+7, PATNAME~, PATNAME+3, PATMAGID~, PATMAGID+3
IO DEVICE+18
IO("Q" DEVICE+2!, DEVICE+8
ION DEVICE+11
IOP DEVICE+1~
IOST DEVICE+7
KEY AUDIT~, AUDIT+2, AUDIT+13
LOGFIEN AUDIT+1~
LOGIEN AUDIT+1~
MAGALF OUTPUT~, OUTPUT+17
MAGBLF OUTPUT~, OUTPUT+9, OUTPUT+10, OUTPUT+18
MAGCNT OUTPUT+6~, OUTPUT+7*, OUTPUT+10*, OUTPUT+11, OUTPUT+18*, OUTPUT+19
MAGDONE OUTPUT+6~, OUTPUT+7*, OUTPUT+10, OUTPUT+11*, OUTPUT+16*, OUTPUT+18, OUTPUT+19*
MAGFDA AUDIT+1~, AUDIT+6!, AUDIT+27!
MAGFDA( AUDIT+7*, AUDIT+8*, AUDIT+9*, AUDIT+10*, AUDIT+11*, AUDIT+12*, AUDIT+13*, AUDIT+14*, AUDIT+15*, AUDIT+16*
MAGLICNT MSGHDR~, MSGHDR+1*, MSGHDR+2*, MSGHDR+3*, MSGHDR+4*, MSGHDR+5, OUTPUT+13*, OUTPUT+15*, OUTPUT+21*
MAGMAXLF OUTPUT+6~, OUTPUT+8*, OUTPUT+11, OUTPUT+19
MAGMSG AUDIT+1~, AUDIT+6!
MAGPATID PATNAME+1~, PATNAME+3*, PATNAME+4, PATNAME+5, PATMAGID+1~, PATMAGID+3*, PATMAGID+4, PATMAGID+5
MAGPATIEN PATNAME+1~, PATNAME+5*, PATNAME+6, PATNAME+7, PATMAGID+1~
MAGPOST OUTPUT~, OUTPUT+12, OUTPUT+13, OUTPUT+14, OUTPUT+15, OUTPUT+20, OUTPUT+21
MAGQ MSG~, MSG+19*
MAGQUE DEVICE~, DEVICE+4*, DEVICE+8*
MAGQUIT DEVICE~, DEVICE+4*, DEVICE+6*
MAGSCR DEVICE~, DEVICE+7*
MAGXMD TMPMSG+1~, TMPMSG+2*, TMPMSG+5
ORIGAOF AUDIT~, AUDIT+15, AUDIT+16
ORIGIEN AUDIT~, AUDIT+9
PATIEN PATNAME+1~, PATMAGID+1~
PATNAME PATNAME+1~, PATNAME+7*, PATNAME+8*, PATNAME+9, PATMAGID+1~
POP DEVICE+1~, DEVICE+6
PTR1 GETP+1~
PTR2 GETP+1~
PTR6 GETP61+1~, GETP61+2*, GETP61+3, GETP62+1~, GETP62+2*, GETP62+3, GETP62+4
PTR62 GETP63+1~, GETP63+2*, GETP63+3
PTR63 GETP64+1~, GETP64+2*, GETP64+3
PTR64 GETP65+1~, GETP65+2*, GETP65+3
REASON AUDIT~, AUDIT+10
RTN DEVICE+1~, DEVICE+9*, DEVICE+10
TEXT OUTPUT~, OUTPUT+14, OUTPUT+15
VAR DEVICE+1~
XMDUZ TMPMSG+1~, TMPMSG+3*, TMPMSG+4
XMSUB TMPMSG+1~, TMPMSG+3*
XMTEXT TMPMSG+5*, TMPMSG+6!
XMY TMPMSG+1~
XMY( TMPMSG+4*
XMY("G.MAG SE RVER" , TMPMSG+4*
Y MSG+1~, MSG+19
ZTDESC DEVICE+1~, DEVICE+14*
ZTIO DEVICE+1~, DEVICE+11*
ZTRTN DEVICE+1~, DEVICE+10*
ZTSAVE DEVICE+1~
ZTSAVE("DELETE" DEVICE+13*
ZTSAVE("MAG**" DEVICE+12*
ZTSK DEVICE+1~, DEVICE+16

Marked Items

Name Field # of Occurrence
$T( DEVICE+9
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 |  Local Variables |  Marked Items  | All