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

Package: Imaging

Routine: MAGDSTA2


Information

MAGDSTA2 ;WOIFO/PMK - Q/R Retrieve of DICOM images from PACS to VistA ; Aug 19, 2020@16:04:13

Source Information

Source file <MAGDSTA2.m>

Entry Points

Name Comments DBIA/ICR reference
QRSCP ; get the PACS DICOM Q/R SCP for the retrieve
QRSCP1 ; get new value
SORTORDR ; get the direction for the ^RARPT OR ^GMR search
SORTORD1 ; get new value
BEGDATE ; get the beginning date for the scan
ENDDATE ; get the ending date for the scan
MIDNIGHT() ; return midnight today
BATCHSIZ ; get the size of the batch of studies to be retrieved in one run
BATCHSZ1 ; get the batch size for the retrieve run
HOURS ; get hours of operation
HOURS1 ; initialize/modify the hours of operations
ACNUM ; get the accession number
ACNUMRAD() ; get and process a radiology study
ACNUMCON() ; get and process a consult study

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"The ",TITLE," Query/Retrieve Provider is """,DEFAULT,"""."
  • Line Location: QRSCP+15
Function Call: WRITE
  • Prompt: !!,"Please select the ",TITLE," Query/Retrieve Provider"
  • Line Location: QRSCP1+3
Function Call: WRITE
  • Prompt: !!,"No ",TITLE," query/retrieve SCP was selected"
  • Line Location: QRSCP1+5
Function Call: WRITE
  • Prompt: !!,"The studies will be scanned in the """,SORTORDER,""" order."
  • Line Location: SORTORDR+4
Function Call: WRITE
  • Prompt: !!,"Enter the scanning order for studies: ",SORTORDER,"// "
  • Line Location: SORTORD1+4
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: SORTORD1+5
Function Call: WRITE
  • Prompt: X
  • Line Location: SORTORD1+7
Function Call: WRITE
  • Prompt: !!,"Enter either Ascending (oldest to newest) or Descending (newest to oldest).",!
  • Line Location: SORTORD1+10
Function Call: WRITE
  • Prompt: !!,"Enter the earliest date for the study.",!
  • Line Location: BEGDATE+4
Function Call: WRITE
  • Prompt: !!,"Enter the latest date for the study.",!
  • Line Location: ENDDATE+4
Function Call: WRITE
  • Prompt: !!,"This run will try to retrieve images for ",BATCHSIZE," studies."
  • Line Location: BATCHSIZ+4
Function Call: WRITE
  • Prompt: !,"Only image-enabled consults and procedures are counted."
  • Line Location: BATCHSIZ+6
Function Call: WRITE
  • Prompt: !!,"Enter the new value of the batch size: ",DEFAULT,"// "
  • Line Location: BATCHSZ1+4
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: BATCHSZ1+5
Function Call: WRITE
  • Prompt: X
  • Line Location: BATCHSZ1+7
Function Call: WRITE
  • Prompt: " ??? (enter a a positive integer number)"
  • Line Location: BATCHSZ1+9
Function Call: WRITE
  • Prompt: !!,"The active hours of operation are indicated below with a ""Y"""
  • Line Location: HOURS+4
Function Call: WRITE
  • Prompt: !?18,"M12345678901N12345678901 (M=midnight, N=noon)"
  • Line Location: HOURS+5
Function Call: WRITE
  • Prompt: !,"Active hours are: ",HOURS
  • Line Location: HOURS+6
Function Call: WRITE
  • Prompt: !?18,"M12345678901N12345678901 (M=midnight, N=noon)"
  • Line Location: HOURS1+6
Function Call: WRITE
  • Prompt: !,"Active hours are: ",DEFAULT
  • Line Location: HOURS1+7
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: HOURS1+8
Function Call: WRITE
  • Prompt: !?15,"// "
  • Line Location: HOURS1+8
Function Call: WRITE
  • Prompt: X
  • Line Location: HOURS1+10
Function Call: WRITE
  • Prompt: " -- changed"
  • Line Location: HOURS1+16
Function Call: WRITE
  • Prompt: !!,"Enter a sequence of (up to) 24 ""Y's"" and ""N's""."
  • Line Location: HOURS1+20
Function Call: WRITE
  • Prompt: !,"Every ""Y"" represents an hour when DICOM Query/Retrieve will be active."
  • Line Location: HOURS1+21
Function Call: WRITE
  • Prompt: !,"Every ""N"" represents an hour when DICOM Query/Retrieve will not be active.",!
  • Line Location: HOURS1+22
Function Call: WRITE
  • Prompt: !!!!,"Enter the accession number: "
  • Line Location: ACNUMRAD+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ACNUMRAD+2
Function Call: WRITE
  • Prompt: !,"Enter either the site-specific accession number (sss-MMDDYY-nnnn),"
  • Line Location: ACNUMRAD+5
Function Call: WRITE
  • Prompt: !,"or just the legacy accession number (MMDDYY-nnnn) portion."
  • Line Location: ACNUMRAD+6
Function Call: WRITE
  • Prompt: " ??? not on file"
  • Line Location: ACNUMRAD+10
Function Call: WRITE
  • Prompt: !!!!,"Enter the accession number: "
  • Line Location: ACNUMCON+13
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ACNUMCON+14
Function Call: WRITE
  • Prompt: !,"The consult accession number has two formats: ""sss-GMR-nnnn"" and ""GMRC-nnnn""."
  • Line Location: ACNUMCON+17
Function Call: WRITE
  • Prompt: !,"Enter the accession number or just the digits following the ""GMR-"" or ""GMRC-""."
  • Line Location: ACNUMCON+18
Function Call: WRITE
  • Prompt: " ??? not on file"
  • Line Location: ACNUMCON+22

FileMan Files Accessed Via FileMan Db Call

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