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 |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: MAGDSTA4

Package: Imaging

Routine: MAGDSTA4


Information

MAGDSTA4 ;WOIFO/PMK - Q/R Retrieve of DICOM images from PACS to VistA ; Mar 03, 2022@08:41:56

Source Information

Source file <MAGDSTA4.m>

Call Graph

Call Graph

Call Graph Total: 2

Package Total Call Graph
Imaging 1 ($$YESNO,CONTINUE)^MAGDSTQ  
Kernel 1 $$FMTE^XLFDT  

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

Package Total Caller Graph
Imaging 1 MAGDSTQA  

Entry Points

Name Comments DBIA/ICR reference
RADLKUP(DFN,COUNT,FIRSTDAY,LASTDAY,FIRSTIEN,LASTIEN) ;
RARPT1 ; get the radiology report ien - called by MAGDSTA1
RARPT1A ; get new value
RARPT1B(RARPTIEN,ACNUMB,DATE) ; get accession number and date from ^RARPT(RARPTIEN,0)

External References

Name Field # of Occurrence
$$YESNO^MAGDSTQ RARPT1+5, RARPT1A+28
CONTINUE^MAGDSTQ RADLKUP+6, RADLKUP+32
$$FMTE^XLFDT RADLKUP+24, RADLKUP+28, RARPT1B+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"*** Patient does not have any radiology reports on file. ***"
  • Line Location: RADLKUP+5
Function Call: WRITE
  • Prompt: !!,"Patient has ",COUNT," radiology reports on file, from "
  • Line Location: RADLKUP+23
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT(FIRSTDAY,1)," to ",$$FMTE^XLFDT(LASTDAY,1)
  • Line Location: RADLKUP+24
Function Call: WRITE
  • Prompt: !!,"Patient has just one radiology report in file for "
  • Line Location: RADLKUP+27
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT(FIRSTDAY,1)
  • Line Location: RADLKUP+28
Function Call: WRITE
  • Prompt: !!,"*** Patient does not have any radiology reports on file. ***"
  • Line Location: RADLKUP+31
Function Call: WRITE
  • Prompt: !!,"Scanning will start with radiology report # """,RARPT1,"""."
  • Line Location: RARPT1+4
Function Call: WRITE
  • Prompt: !!,"The first radiology report is #",BEGPTR," (",ACNUMB,") entered on ",DATE,"."
  • Line Location: RARPT1A+10
Function Call: WRITE
  • Prompt: !,"The last radiology report is #",ENDPTR," (",ACNUMB,") entered on ",DATE,"."
  • Line Location: RARPT1A+14
Function Call: WRITE
  • Prompt: !!,"Enter the new value of the radiology report #: ",DEFAULT,"// "
  • Line Location: RARPT1A+18
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: RARPT1A+19
Function Call: WRITE
  • Prompt: X
  • Line Location: RARPT1A+21
Function Call: WRITE
  • Prompt: !!,"Please enter a number between ",BEGPTR," and ",ENDPTR,"."
  • Line Location: RARPT1A+23
Function Call: WRITE
  • Prompt: !!,"Radiology report #",NEWPTR," (",ACNUMB,") entered on ",DATE,"."
  • Line Location: RARPT1A+27

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RARPT - [#74] RADLKUP+13, RARPT1B+2
^RARPT(" " RARPT1A+12
^RARPT("C" RADLKUP+3, RADLKUP+12
^RARPT(0 RARPT1A+8
^TMP("MAG" RARPT1+2, RARPT1A+33*

Label References

Name Line Occurrences
RARPT1A RARPT1+6, RARPT1+8
RARPT1B RARPT1A+9, RARPT1A+13, RARPT1A+26

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACNUMB RARPT1A+4~, RARPT1A+9, RARPT1A+10, RARPT1A+13, RARPT1A+14, RARPT1A+26, RARPT1A+27, RARPT1B~, RARPT1B+3*
BEGPTR RARPT1A+1~, RARPT1A+8*, RARPT1A+9, RARPT1A+10, RARPT1A+17, RARPT1A+22, RARPT1A+23
COUNT RADLKUP~, RADLKUP+2*, RADLKUP+19*, RADLKUP+22, RADLKUP+23, RADLKUP+26
DATE RARPT1A+5~, RARPT1A+9, RARPT1A+10, RARPT1A+13, RARPT1A+14, RARPT1A+26, RARPT1A+27, RARPT1A+33, RARPT1B~, RARPT1B+4*
>> DATETIME RADLKUP+16*, RADLKUP+17, RADLKUP+18
DEFAULT RARPT1A+6~, RARPT1A+17*, RARPT1A+18, RARPT1A+21, RARPT1A+29
DFN RADLKUP~, RADLKUP+3, RADLKUP+12
DTIME RARPT1A+19
ENDPTR RARPT1A+3~, RARPT1A+12*, RARPT1A+13, RARPT1A+14, RARPT1A+17, RARPT1A+22, RARPT1A+23
FIRSTDAY RADLKUP~, RADLKUP+2*, RADLKUP+10*, RADLKUP+17*, RADLKUP+21*, RADLKUP+24, RADLKUP+28
FIRSTIEN RADLKUP~, RADLKUP+2*, RADLKUP+17*
LASTDAY RADLKUP~, RADLKUP+2*, RADLKUP+10*, RADLKUP+18*, RADLKUP+21*, RADLKUP+24
LASTIEN RADLKUP~, RADLKUP+2*, RADLKUP+18*
NEWPTR RARPT1A+2~, RARPT1A+25*, RARPT1A+26, RARPT1A+27, RARPT1A+29, RARPT1A+32, RARPT1A+33
OK RARPT1A+6~, RARPT1A+16*, RARPT1A+19*, RARPT1A+20*, RARPT1A+28*, RARPT1A+29*, RARPT1A+31, RARPT1A+34
>> QUIT RARPT1+5*, RARPT1A+31*
RARPT0 RADLKUP+1~, RADLKUP+13*, RADLKUP+14, RADLKUP+16, RARPT1B+1~, RARPT1B+2*, RARPT1B+3, RARPT1B+4
RARPT1 RADLKUP+1~, RADLKUP+3*, RADLKUP+4, RADLKUP+11*, RADLKUP+12*, RADLKUP+13, RADLKUP+17, RADLKUP+18, RARPT1+1~, RARPT1+2*
RARPT1+3, RARPT1+4, RARPT1+6*, RARPT1A+17, RARPT1A+32
RARPTIEN RARPT1B~, RARPT1B+2
>> SORTORDER RARPT1A+17
STATUS RADLKUP+1~, RADLKUP+14*, RADLKUP+15
X RARPT1+1~, RARPT1+5, RARPT1+6, RARPT1A+6~, RARPT1A+19*, RARPT1A+20, RARPT1A+21*, RARPT1A+22, RARPT1A+25, RARPT1A+28
RARPT1A+29
Y RARPT1B+1~
Z RARPT1A+6~, RARPT1B+1~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All