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

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Imaging 4 LOOP^MAGDRA1  $$LCASE^MAGDRA2  $$READ^MAGDRA3  ($$ISIHS,$$PIDLABEL)^MAGSPID  
Radiology Nuclear Medicine 4 $$ACCFIND^RAAPI  $$USESSAN^RAHLRU1  EN1^RAO7PC1  EN1^RAUTL20  
VA FileMan 2 $$FIND1^DIC  ($$GET1,GETS)^DIQ  
Kernel 1 ($$DT,$$FMADD,$$FMTE)^XLFDT  
Registration 1 DEM^VADPT  

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

Package Total Caller Graph
Imaging 3 MAGDLB1  MAGDRA1  MAGDRA2  

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 ;

External References

Name Field # of Occurrence
$$FIND1^DIC READ+7, PROC+1
$$GET1^DIQ LCASE+8
GETS^DIQ PTINFO+8, IMG+3
LOOP^MAGDRA1 READ+15
$$LCASE^MAGDRA2 ONE+36
$$READ^MAGDRA3 READ+1
$$ISIHS^MAGSPID PTINFO+3
$$PIDLABEL^MAGSPID ONE+42
$$ACCFIND^RAAPI LCASE+3
$$USESSAN^RAHLRU1 LCASE+3
EN1^RAO7PC1 READ+14, ONE+13
EN1^RAUTL20 ONE+27
DEM^VADPT PTINFO+4
$$DT^XLFDT EN+3
$$FMADD^XLFDT ONE+11
$$FMTE^XLFDT LCASE+2, ONE+19

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
Routine Call
  • DIC
  • Line Location:
    • READ+7
    • PROC+1

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP($J READ+12!, READ+15, ONE+12!, ONE+15, ONE+16, ONE+17, ONE+32, ONE+33

Label References

Name Line Occurrences
$$IMG ONE+45
$$LCASE ONE+25
$$PROC ONE+25
$$PTINFO READ+10, ONE+8
MAGDY ONE+47
ONE READ+6
READ READ+4, READ+17

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACNUMB LCASE+1~, LCASE+2*, LCASE+3, LCASE+9*, LCASE+11
ACNUMB1 LCASE+5~, LCASE+8*, LCASE+9
ARESULT LCASE+1~, LCASE+3
ARESULT(1 LCASE+6, LCASE+7
BEG ONE+3~, ONE+11*, ONE+13
CASE ONE+3~, ONE+20*, ONE+25, ONE+37, ONE+45
CDATE ONE+3~, ONE+18*, ONE+19, ONE+25, ONE+34*, ONE+35*, ONE+36
CS ONE+3~
DATA ONE+3~, ONE+17*, ONE+20, ONE+21, ONE+22
DFN PTINFO+4~*
END ONE+3~, ONE+11*, ONE+13
FLDS ONE+3~
INFO EN+2~, READ+10*, READ+11, PTINFO+1~, PTINFO+3, PTINFO+4*, PTINFO+5*, PTINFO+6*, PTINFO+10, PTINFO+11*
, PTINFO+12*, IMG+1~, ONE+3~, ONE+8*, ONE+9
MAGBEG EN+2~, EN+3*, READ+14
MAGCASE LCASE~, LCASE+2, ONE+3~, ONE+25*, ONE+33*, ONE+36*, MAGDY+1, MAGDY+3!
MAGCNI ONE+3~, ONE+24*, ONE+40, ONE+41*, MAGDY+2, MAGDY+3!
MAGDATE ONE+3~, ONE+18*, ONE+19*, ONE+45
MAGDFN EN+2~, READ+1*, READ+3*, READ+4, READ+7, READ+9, READ+14, PTINFO+2, PTINFO+4, PTINFO+8
, PTINFO+11, PTINFO+12, ONE+2, ONE+8*, ONE+13, ONE+16, ONE+17, ONE+24, ONE+32, ONE+33
, MAGDY+1
MAGDT LCASE~, LCASE+2
MAGDTI ONE+3~, ONE+23*, MAGDY+1, MAGDY+3!
>> MAGDY MAGDY+1*, MAGDY+2*
MAGEND EN+2~, EN+3*, READ+14
MAGERR READ+10, PTINFO+9, IMG+1~, IMG+4
MAGEXST ONE+4~, ONE+21*, ONE+46
MAGLOC ONE+4~, ONE+21*, ONE+45
MAGNME EN+2~, READ+11*, ONE+4~, ONE+9*, ONE+42, MAGDY+1, MAGDY+3!
MAGOUT EN+2~, PTINFO+1~, PTINFO+10, IMG+1~, ONE+4~
MAGOUT( IMG+5
MAGOUT(2 PTINFO+11, PTINFO+12
MAGPID EN+2~, READ+11*, ONE+9*, ONE+42, MAGDY+1, MAGDY+3!
MAGPIEN ONE+4~, ONE+25*, MAGDY+2, MAGDY+3!
MAGPRC PROC~, PROC+1, ONE+4~, ONE+20*, ONE+25, ONE+45, MAGDY+1, MAGDY+3!
MAGPSET ONE+4~, ONE+28*
MAGPST ONE+4~, ONE+37*, ONE+46, MAGDY+2
MAGRPT IMG~, IMG+2, IMG+3, ONE+4~, ONE+22*, ONE+45
MAGX EN+2~, READ+1*, READ+2, READ+6, READ+17, ONE+2, ONE+8, ONE+10, ONE+11, ONE+14
MAGXX EN+2~, READ+7*, READ+9
MAPST MAGDY+3!
OLDENTRY ONE+31~*, ONE+32*, ONE+33, ONE+36
PP ONE+5~, ONE+40*, ONE+45
PSET ONE+5~, ONE+28*, ONE+29*, ONE+30
RACNI LCASE+5~, LCASE+7*, LCASE+8, ONE+6~, ONE+24*, ONE+30, ONE+36*, ONE+41
RADFN LCASE+5~, LCASE+6*, LCASE+8, ONE+6~, ONE+24*
RADTI LCASE+5~, LCASE+6*, LCASE+8, ONE+6~, ONE+23*
RAENTRY ONE+5~, ONE+14*, ONE+16, ONE+17, ONE+18, ONE+23, ONE+24, ONE+31, ONE+34
RAMEMLOW ONE+5~, ONE+29
RAPRTSET ONE+5~, ONE+29, ONE+40
RARPT ONE+6~, ONE+22*
RIEN ONE+5~, ONE+10*
STAT ONE+5~, ONE+20*, ONE+21
>> VA("PID" PTINFO+5
>> VADM(1 PTINFO+5, PTINFO+6
>> VADM(2 PTINFO+6
X ONE+5~
X1 ONE+5~
X2 ONE+5~
XX ONE+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 |  Local Variables  | All