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 ; Nov 09, 2022@16:22:06

Source Information

Source file <MAGDSTA2.m>

Call Graph

Call Graph

Call Graph Total: 15

Package Total Call Graph
Imaging 8 INITXTMP^MAGDSTA0  TASKINIT^MAGDSTA1  $$RADLKUP1^MAGDSTA5  $$CONLKUP1^MAGDSTA7  SERVICE4^MAGDSTA8  HEADER^MAGDSTAA  $$YESNO^MAGDSTQ  $$PICKSCP^MAGDSTQ9  
VA FileMan 4 ^%DT  NOW^%DTC  UPDATE^DIE  $$GET1^DIQ  
Kernel 2 $$FMTE^XLFDT  $$KSP^XUPARAM  
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
SCROLL ; auto scroll or manual scroll (with Press <Enter> to continue...)
REPORT ; get output report file, if any - P333 PMK 07/13/2022

External References

Name Field # of Occurrence
^%DT BEGDATE+13, ENDDATE+14
NOW^%DTC MIDNIGHT+2
UPDATE^DIE SCROLL+15, REPORT+9
$$GET1^DIQ ACNUMCON+6, SCROLL+4, REPORT+4
INITXTMP^MAGDSTA0 REPORT+12
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, SCROLL+12, REPORT+6
$$PICKSCP^MAGDSTQ9 QRSCP1+4
$$ACCFIND^RAAPI ACNUMRAD+8
$$FMTE^XLFDT BEGDATE+6, ENDDATE+6
$$KSP^XUPARAM SCROLL+2, REPORT+2

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
Function Call: WRITE
  • Prompt: !!
  • Line Location: REPORT+13
Function Call: WRITE
  • Prompt: "="
  • Line Location: REPORT+13
Function Call: WRITE
  • Prompt: !,"The results are stored in the ^XTMP global in Comma-Separated Values format."
  • Line Location: REPORT+14
Function Call: WRITE
  • Prompt: !,"They may be exported to a *.CSV file by a Reflection log and then analyzed"
  • Line Location: REPORT+15
Function Call: WRITE
  • Prompt: !,"with Excel. The results will be automatically removed from ^XTMP in 14 days."
  • Line Location: REPORT+16
Function Call: WRITE
  • Prompt: !!,"Use the ""STAT -- Display stats for automatic radiology Q/R runs option"""
  • Line Location: REPORT+17
Function Call: WRITE
  • Prompt: !,"with Reflection to access and output the results."
  • Line Location: REPORT+18
Function Call: WRITE
  • Prompt: !
  • Line Location: REPORT+19
Function Call: WRITE
  • Prompt: "="
  • Line Location: REPORT+19
Routine Call
  • DIE
  • Line Location:
    • SCROLL+15
    • REPORT+9

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^GMR(123.5 - [#123.5] GET1^DIQ
^MAG(2006.1 - [#2006.1] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("RM" ACNUM+6
^GMR(123 - [#123] ACNUMCON+21
^MAG(2006.1 - [#2006.1] SCROLL+3, REPORT+3
^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~
>> AUTOSCROLL SCROLL+17*
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, SCROLL+1~, SCROLL+4*, SCROLL+5, SCROLL+13
, REPORT+1~, REPORT+4*, REPORT+5, REPORT+7
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
HELP SCROLL+1~, SCROLL+12
HELP(1 SCROLL+6*
HELP(2 SCROLL+7*
HELP(3 SCROLL+8*
HELP(4 SCROLL+9*
HELP(5 SCROLL+10*
HOURS HOURS+1~, HOURS+2*, HOURS+3, HOURS+6, HOURS1+3, ACNUM+1~, ACNUM+2*
I HOURS1+1~, HOURS1+19*, ACNUMCON+5*, ACNUMCON+7
IEN SCROLL+1~, SCROLL+3*, SCROLL+14, REPORT+1~, REPORT+3*, REPORT+8
>> IMAGINGSERVICE QRSCP+3, BATCHSIZ+5
IOM REPORT+13, REPORT+19
>> J REPORT+13*, REPORT+19*
KSITEPAR SCROLL+1~, SCROLL+2*, SCROLL+3, REPORT+1~, REPORT+2*, REPORT+3
LIST ACNUMCON+1~, ACNUMCON+9
LIST( ACNUMCON+7*
>> MAGFDA( SCROLL+14*, REPORT+8*
>> 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*
>> OUTPUTEXCEL REPORT+12
PICK ACNUMCON+1~, ACNUMCON+9
PICK( ACNUMCON+7*
PROMPT SCROLL+1~, SCROLL+11*, SCROLL+12
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*, SCROLL+12*
>> 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
SITE SCROLL+3*, SCROLL+4, REPORT+1~, REPORT+3*, REPORT+4
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, SCROLL+1~, SCROLL+12, SCROLL+13, SCROLL+14, SCROLL+17, REPORT+1~, REPORT+6, REPORT+7, REPORT+8
, REPORT+11
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
YESNO SCROLL+1~, SCROLL+5*, SCROLL+12, REPORT+1~, REPORT+5*, REPORT+6
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