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

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^MAGV(2005.6 - [#2005.6] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call