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

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Imaging 7 TASKINIT^MAGDSTA1  $$RADLKUP1^MAGDSTA5  $$CONLKUP1^MAGDSTA7  SERVICE4^MAGDSTA8  HEADER^MAGDSTAA  $$YESNO^MAGDSTQ  $$PICKSCP^MAGDSTQ9  
VA FileMan 3 ^%DT  NOW^%DTC  $$GET1^DIQ  
Kernel 1 $$FMTE^XLFDT  
Radiology Nuclear Medicine 1 $$ACCFIND^RAAPI  

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 MAGDSTA1  MAGDSTD2  MAGDSTD3  

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

External References

Name Field # of Occurrence
^%DT BEGDATE+13, ENDDATE+14
NOW^%DTC MIDNIGHT+2
$$GET1^DIQ ACNUMCON+6
TASKINIT^MAGDSTA1 ACNUM+5
$$RADLKUP1^MAGDSTA5 ACNUMRAD+16
$$CONLKUP1^MAGDSTA7 ACNUMCON+25
SERVICE4^MAGDSTA8 ACNUMCON+9
HEADER^MAGDSTAA ACNUMRAD+15, ACNUMCON+24
$$YESNO^MAGDSTQ QRSCP+16, SORTORDR+5, BATCHSIZ+8, HOURS+7
$$PICKSCP^MAGDSTQ9 QRSCP1+4
$$ACCFIND^RAAPI ACNUMRAD+8
$$FMTE^XLFDT BEGDATE+6, ENDDATE+6

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("RM" ACNUM+6
^GMR(123 - [#123] ACNUMCON+21
^MAG(2006.5831 - [#2006.5831] ACNUMCON+5
^RADPT - [#70] ACNUMRAD+13
^TMP("MAG" QRSCP+10!, QRSCP+13, QRSCP+21*, QRSCP1+6*, QRSCP1+7*, SORTORDR+2, SORTORD1+13, SORTORD1+14*, BEGDATE+5, BEGDATE+11
, BEGDATE+15*, ENDDATE+5, ENDDATE+9, ENDDATE+18*, BATCHSIZ+2, BATCHSZ1+13*, HOURS+2, HOURS1+15*, ACNUM+8, ACNUM+13!
, ACNUMCON+10!, ACNUMCON+11*

Label References

Name Line Occurrences
$$ACNUMCON ACNUM+12
$$ACNUMRAD ACNUM+9
$$MIDNIGHT BEGDATE+8, ENDDATE+12
BATCHSZ1 BATCHSIZ+9, BATCHSIZ+11
HOURS1 HOURS+8, HOURS+10
QRSCP1 QRSCP+18, QRSCP+24
SORTORD1 SORTORDR+6, SORTORDR+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% MIDNIGHT+1~
%DT BEGDATE+1~, BEGDATE+13*, ENDDATE+1~, ENDDATE+14*
%DT("A" BEGDATE+13*, ENDDATE+14*
%DT("B" BEGDATE+6*, ENDDATE+6*
%DT(0 BEGDATE+8*, BEGDATE+11*, ENDDATE+9*, ENDDATE+12*
%H MIDNIGHT+1~
%I MIDNIGHT+1~
BATCHSIZE BATCHSIZ+1~, BATCHSIZ+2*, BATCHSIZ+3, BATCHSIZ+4, BATCHSZ1+2, BATCHSZ1+12
CONSULTSERVICES ACNUMCON+1~, ACNUMCON+9, ACNUMCON+11
DEFAULT QRSCP+1~, QRSCP+13*, QRSCP+14, QRSCP+15, QRSCP+21, QRSCP1+4, BATCHSZ1+1~, BATCHSZ1+2*, BATCHSZ1+4, BATCHSZ1+7
, BATCHSZ1+8, HOURS1+1~, HOURS1+3*, HOURS1+4*, HOURS1+7, HOURS1+10
DTIME SORTORD1+5, BATCHSZ1+5, HOURS1+8, ACNUMRAD+2, ACNUMCON+14
>> FIRSTTIME ACNUM+4*
FULLDAY HOURS1+1~, HOURS1+2*, HOURS1+3, HOURS1+13
GMRCIEN ACNUM+1~, ACNUMCON+20*, ACNUMCON+21, ACNUMCON+25
HOURS HOURS+1~, HOURS+2*, HOURS+3, HOURS+6, HOURS1+3, ACNUM+1~, ACNUM+2*
I HOURS1+1~, HOURS1+19*, ACNUMCON+5*, ACNUMCON+7
>> IMAGINGSERVICE QRSCP+3, BATCHSIZ+5
LIST ACNUMCON+1~, ACNUMCON+9
LIST( ACNUMCON+7*
>> MAGIOM ACNUM+6
OK QRSCP1+1~, QRSCP1+2*, QRSCP1+5*, QRSCP1+8*, SORTORD1+1~, SORTORD1+2*, SORTORD1+5*, SORTORD1+6*, SORTORD1+7*, SORTORD1+8*
, SORTORD1+9*, SORTORD1+12, SORTORD1+15, BATCHSZ1+1~, BATCHSZ1+3*, BATCHSZ1+5*, BATCHSZ1+6*, BATCHSZ1+8*, BATCHSZ1+11, HOURS1+1~
, HOURS1+5*, HOURS1+8*, HOURS1+9*, HOURS1+14*, HOURS1+25, ACNUM+1~, ACNUM+7*, ACNUM+9*, ACNUM+12*
PICK ACNUMCON+1~, ACNUMCON+9
PICK( ACNUMCON+7*
QRSCP QRSCP1+1~, QRSCP1+4*, QRSCP1+5, QRSCP1+6, QRSCP1+7
>> QUIT SORTORDR+5*, SORTORD1+12*, BEGDATE+14*, ENDDATE+15*, BATCHSIZ+8*, BATCHSZ1+11*, HOURS+7*, HOURS1+25*
>> RAA ACNUMRAD+8
>> RAA(1 ACNUMRAD+12
RADPT1 ACNUM+1~, ACNUMRAD+12*, ACNUMRAD+13
RADPT2 ACNUM+1~, ACNUMRAD+12*, ACNUMRAD+13
RADPT3 ACNUM+1~, ACNUMRAD+12*, ACNUMRAD+13
RARPT1 ACNUM+1~, ACNUMRAD+14*, ACNUMRAD+16
RUNNUMBER ACNUM+1~, ACNUM+3*
SERVICE ACNUMCON+1~, ACNUMCON+4*, ACNUMCON+5*, ACNUMCON+6, ACNUMCON+7
SERVICENAME ACNUMCON+1~, ACNUMCON+6*, ACNUMCON+7
SORTORDER SORTORDR+2*, SORTORDR+3, SORTORDR+4, SORTORD1+3*, SORTORD1+4, SORTORD1+7, SORTORD1+8*, SORTORD1+9*, SORTORD1+13, SORTORD1+14
, BEGDATE+3~*, BEGDATE+7, ENDDATE+3~*, ENDDATE+8
TITLE QRSCP+1~, QRSCP+4*, QRSCP+7*, QRSCP+15, QRSCP1+3, QRSCP1+5
X QRSCP+1~, QRSCP+16, QRSCP+17, SORTORDR+1~, SORTORDR+5, SORTORDR+6, SORTORD1+5*, SORTORD1+6, SORTORD1+7*, SORTORD1+8
, SORTORD1+9, BEGDATE+1~, BEGDATE+13*, ENDDATE+1~, ENDDATE+14*, MIDNIGHT+1~, MIDNIGHT+3, BATCHSIZ+1~, BATCHSIZ+8, BATCHSIZ+9
, BATCHSZ1+1~, BATCHSZ1+5*, BATCHSZ1+6, BATCHSZ1+7*, BATCHSZ1+8, BATCHSZ1+12, BATCHSZ1+13, BATCHSZ1+14, HOURS+1~, HOURS+7
, HOURS+8, HOURS1+1~, HOURS1+8*, HOURS1+9, HOURS1+10*, HOURS1+11*, HOURS1+12, HOURS1+13*, HOURS1+15, HOURS1+19
, ACNUM+1~, ACNUM+6*, ACNUMRAD+2*, ACNUMRAD+3, ACNUMRAD+4, ACNUMRAD+8*, ACNUMRAD+9, ACNUMCON+14*, ACNUMCON+15, ACNUMCON+16
, ACNUMCON+20
Y BEGDATE+1~, BEGDATE+5*, BEGDATE+6, BEGDATE+14, BEGDATE+15, ENDDATE+1~, ENDDATE+5*, ENDDATE+6, ENDDATE+15, ENDDATE+17*
, ENDDATE+18, ACNUM+1~, ACNUMRAD+13*, ACNUMRAD+14
Z HOURS1+19*, ACNUM+1~, ACNUMRAD+16*, ACNUMCON+25*
ZTDESC ACNUM+1~
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