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

Package: Imaging

Routine: MAGDSTA6


Information

MAGDSTA6 ;WOIFO/PMK - Q/R Retrieve of DICOM images from PACS to VistA ; Jul 06, 2021@08:04:39

Source Information

Source file <MAGDSTA6.m>

Entry Points

Name Comments DBIA/ICR reference
CONLKUP(DFN,COUNT,FIRSTDAY,LASTDAY,FIRSTIEN,LASTIEN) ;
CHECK(GMRCIEN) ; check if this consult or procedure should have images
; 1) check for designated service
; 2) check complete status
; 3) check if it is defined for DICOM MWL
;
STUDY1 ; get the consult ien - called by MAGDSTA1
STUDY1A ; get new value
STUDY1B(GMRCIEN,DATE) ; get date from ^GMR(123,GMRCIEN,0)

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"*** Patient does not have any consults or procedures on file. ***"
  • Line Location: CONLKUP+5
Function Call: WRITE
  • Prompt: !!,"*** Patient does not have any imaging consults or procedures on file. ***"
  • Line Location: CONLKUP+30
Function Call: WRITE
  • Prompt: !!,"Patient has ",COUNT," imaging studies on file, from "
  • Line Location: CONLKUP+34
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT(FIRSTDAY,1)," to ",$$FMTE^XLFDT(LASTDAY,1)
  • Line Location: CONLKUP+35
Function Call: WRITE
  • Prompt: !!,"Patient has just one consult study in file for "
  • Line Location: CONLKUP+38
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT(FIRSTDAY,1)
  • Line Location: CONLKUP+39
Function Call: WRITE
  • Prompt: !!,"Scanning will start with consult #",STUDY1,"."
  • Line Location: STUDY1+4
Function Call: WRITE
  • Prompt: !!,"The first consult is #",BEGPTR," entered on ",DATE,"."
  • Line Location: STUDY1A+9
Function Call: WRITE
  • Prompt: !,"The last consult is #",ENDPTR," entered on ",DATE,"."
  • Line Location: STUDY1A+13
Function Call: WRITE
  • Prompt: !!,"Enter the new value of the consult #: ",DEFAULT,"// "
  • Line Location: STUDY1A+17
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: STUDY1A+18
Function Call: WRITE
  • Prompt: X
  • Line Location: STUDY1A+20
Function Call: WRITE
  • Prompt: !!,"Please enter a number between ",BEGPTR," and ",ENDPTR,"."
  • Line Location: STUDY1A+22
Function Call: WRITE
  • Prompt: !!,"Consult #",NEWPTR," entered on ",DATE,"."
  • Line Location: STUDY1A+26

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^GMR(123 - [#123] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call