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

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)

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
Info |  Source |  Entry Points |  Interaction Calls