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
Print Page as PDF
Routine: MAGDSTD1

Package: Imaging

Routine: MAGDSTD1


Information

MAGDSTD1 ;OI&T-CLIN-THREE/DWM,WOIFO/PMK - accession lookup, including new sops; Feb 15, 2022@10:52:41

Source Information

Source file <MAGDSTD1.m>

Entry Points

Name Comments DBIA/ICR reference
SHOWINFO(ACNUMB,MAGARR) ;
; show patient name, procedures, studies, series, #of images/series
CONFSENS() ; Continue processing confirmation for sensitive patient

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$P(OUT,SSEP,2)
  • Line Location: MAGDSTD1+31
Function Call: WRITE
  • Prompt: !!,"No images were found for this accession number"
  • Line Location: MAGDSTD1+33
Function Call: WRITE
  • Prompt: !!
  • Line Location: MAGDSTD1+48
Function Call: WRITE
  • Prompt: !!,"Information on Study for Accession Number: ",ACNUMB
  • Line Location: SHOWINFO+3
Function Call: WRITE
  • Prompt: !
  • Line Location: SHOWINFO+4
Function Call: WRITE
  • Prompt: "-"
  • Line Location: SHOWINFO+4
Function Call: WRITE
  • Prompt: !,"Set #",MAGARRIX,": ",DATABASE
  • Line Location: SHOWINFO+17
Function Call: WRITE
  • Prompt: " (Group: "
  • Line Location: SHOWINFO+19
Function Call: WRITE
  • Prompt: ", "
  • Condition for execution: I>1
  • Line Location: SHOWINFO+21
Function Call: WRITE
  • Prompt: GROUPIEN
  • Line Location: SHOWINFO+21
Function Call: WRITE
  • Prompt: ")"
  • Line Location: SHOWINFO+23
Function Call: WRITE
  • Prompt: !,"PATIENT: ",$G(VADM(1))
  • Line Location: SHOWINFO+29
Function Call: WRITE
  • Prompt: ?30," SSN: ",$P($G(VADM(2)),"^",2)
  • Line Location: SHOWINFO+30
Function Call: WRITE
  • Prompt: ?55," DOB: ",$P($G(VADM(3)),"^",2)
  • Line Location: SHOWINFO+31
Function Call: WRITE
  • Prompt: !,"PROCEDURE: ",$G(MAGARR(MAGARRIX,"PROC"))
  • Line Location: SHOWINFO+32
Function Call: WRITE
  • Prompt: !,"DICOM -- STUDIES: ",$G(STYSERKT("STUDY"))
  • Line Location: SHOWINFO+44
Function Call: WRITE
  • Prompt: ?22," SERIES: ",$G(STYSERKT("SERIES"))
  • Line Location: SHOWINFO+45
Function Call: WRITE
  • Prompt: ?37,"IMAGES: ",$G(STYSERKT("IMAGE"))
  • Line Location: SHOWINFO+47
Function Call: WRITE
  • Prompt: " -- no series information"
  • Line Location: SHOWINFO+50
Function Call: WRITE
  • Prompt: !,EXTENSION,": ",$G(FILETYPE(EXTENSION))
  • Line Location: SHOWINFO+56
Function Call: WRITE
  • Prompt: !,"*** Image Group Deleted ***"
  • Line Location: SHOWINFO+58
Function Call: WRITE
  • Prompt: !
  • Line Location: SHOWINFO+59
Info |  Source |  Entry Points |  Interaction Calls