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

Package: Imaging

Routine: MAGDRA2


Information

MAGDRA2 ;WOIFO/LB,JSL,SAF - Routine for DICOM fix ; 13 Jul 2011 10:22 AM

Source Information

Source file <MAGDRA2.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;
; MAGDY variable to be created during this execution.
READ ;
PTINFO() ;
LCASE(MAGDT,MAGCASE) ; return the accession number
IMG(MAGRPT) ;
PROC(MAGPRC) ;
ONE ;
MAGDY ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Entry not found, enter a ""^"" to quit."
  • Line Location: READ+4
Function Call: WRITE
  • Prompt: !,"No Radiology information found for the supplied answer.",$C(7)
  • Line Location: READ+18
Function Call: WRITE
  • Prompt: !,"PATIENT: ",MAGNME,?51,$$PIDLABEL^MAGSPID(),": ",MAGPID
  • Line Location: ONE+42
Function Call: WRITE
  • Prompt: !,"Case No.",?15,"Procedure",?42,"Location",?64,"Exam Date"
  • Line Location: ONE+43
Function Call: WRITE
  • Prompt: !,"________",?15,"_________",?42,"________________",?64,"________"
  • Line Location: ONE+44
Function Call: WRITE
  • Prompt: !,$G(PP),CASE,$$IMG(MAGRPT),?15,MAGPRC,?42,MAGLOC,?64,MAGDATE
  • Line Location: ONE+45
Function Call: WRITE
  • Prompt: !,"Exam status: ",MAGEXST," "," ",$G(MAGPST)
  • Line Location: ONE+46

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GETS^DIQ
^RADPT - [#70] FIND1^DIC
70.03 GET1^DIQ
^RAMIS(71 - [#71] FIND1^DIC
^RARPT - [#74] GETS^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call