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

Package: Imaging

Routine: MAGDSTA7


Information

MAGDSTA7 ;WOIFO/PMK - Q/R Retrieve of DICOM images from PACS to VistA ; Jun 16, 2020@08:35:42

Source Information

Source file <MAGDSTA7.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Imaging 4 $$GMRCACN^MAGDFCNV  $$CHECK^MAGDSTA6  ($$LOOKUP,HEADER)^MAGDSTAA  CONTINUE^MAGDSTQ  
VA FileMan 1 ($$GET1,GETS)^DIQ  

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

Package Total Caller Graph
Imaging 4 MAGDSTA1  MAGDSTA2  MAGDSTA6  MAGDSTD3  

Entry Points

Name Comments DBIA/ICR reference
MAIN() ; The main loop for the program for consults and procedures
; Input Variables
; SCANMODE ;-- "PATIENT", "DATE", or "NUMBER"
; DIRECTION ;- 1="ASCENDING" or 0="DESCENDING"
; BATCHSIZE ;- number of consult & procedure requests to process on this run
; BEGDATE ;--- begin date for search
; ENDDATE ;-- end date for search
; QRSCP ;----- default query/retrieve provider
; HOURS ;----- 24 character string of Y's and N's indicating active times
;
CONLKUP() ; Find the next study to retrieve
PATIENT() ; use "AD" cross-reference to find studies for a single patient
; ^GMR(123,"AD",DFN,GMRCDATE,GMRCIEN)=""
DATE() ; use "AE" cross-reference to find completed studies
; ^GMR(123,"AE",SERVICE,STATUS,GMRCDATE,GMRCIEN)=""
; only look for COMPLETED studies and PARTIAL RESULTS
NUMBER() ; use GMRCIEN to find completed studies
; ^GMR(123,GMRC)=<consult record>
CONLKUP1(GMRCIEN) ;
CONSULT(GMRCIEN,MAGIENLIST) ; return a list of MAG Group IENs
; A consult may have multiple TIU notes and a TIU note may have multiple image groups.
; A consult may also have images associated in the DICOM TEMP LIST file (#2006.5839).
CONSULT1(GMRCIEN,TIULIST) ; return a list of TIU IENs
; a consult may have multiple TIU notes - get the list
T892591(TIUIEN,MAGIENLIST) ;
SETDATES(DATEBEG,DATESTOP,BEGDATE,ENDDATE,DIRECTION) ; get date range
; get the beginning and ending dates for the FOR loop
; these are in GMRC reverse date format
; they are also DIRECTION specific
GMRCDATE(GMRCDATE) ; convert a GMRC date to a FM date and vice versa
HEADER(CONTINUE) ;

External References

Name Field # of Occurrence
$$GET1^DIQ CONLKUP1+4, CONLKUP1+5, T892591+4
GETS^DIQ CONSULT1+5
$$GMRCACN^MAGDFCNV CONLKUP1+3
$$CHECK^MAGDSTA6 PATIENT+13, DATE+18, NUMBER+10
$$LOOKUP^MAGDSTAA CONLKUP1+7
HEADER^MAGDSTAA MAIN+12
CONTINUE^MAGDSTQ HEADER+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"*** Illegal SCAN MODE: """,SCANMODE,""""
  • Line Location: CONLKUP+12
Function Call: WRITE
  • Prompt: !!,CONSULTSERVICES(SERVICE)," -- "
  • Line Location: DATE+8
Function Call: WRITE
  • Prompt: $S(STATUS=2:"COMPLETE",STATUS=9:"PARTIAL RESULTS",1:"Unknown Status "_STATUS)
  • Line Location: DATE+9
Function Call: WRITE
  • Prompt: @IOF," Patient",?12," Accession ",?30," Date",?40,"Images",?51,"Group #",?60,"VistA",?68,"PACS",?75,"Need"
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: !,"---------",?12,"----------------",?30,"--------",?40,"------",?51,"-------",?60,"-----",?68,"----",?75,"----"
  • Line Location: HEADER+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^GMR(123 - [#123] GET1^DIQ,  GETS^DIQ
^TIU(8925.91 - [#8925.91] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^GMR(123 - [#123] PATIENT+7, PATIENT+11, DATE+12, DATE+16, NUMBER+8
^MAG(2006.5839 - [#2006.5839] CONSULT+11, CONSULT+12
^TIU(8925.91 - [#8925.91] T892591+3
^TMP("MAG" NUMBER+5, NUMBER+6

Label References

Name Line Occurrences
$$CONLKUP MAIN+15
$$CONLKUP1 PATIENT+14, DATE+19, NUMBER+12
$$CONSULT CONLKUP1+6
$$CONSULT1 CONSULT+4
$$DATE CONLKUP+6
$$GMRCDATE SETDATES+5, SETDATES+6, SETDATES+9, SETDATES+10
$$NUMBER CONLKUP+9
$$PATIENT CONLKUP+3
SETDATES PATIENT+4, DATE+5
T892591 CONSULT+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A CONSULT1+2~, CONSULT1+6
A( CONSULT1+7, CONSULT1+8
ACNUMB CONLKUP1+1~, CONLKUP1+3*, CONLKUP1+7
BATCHSIZE NUMBER+2~, NUMBER+5*, NUMBER+8
BEGDATE PATIENT+4, DATE+5, SETDATES~, SETDATES+5, SETDATES+10
>> CONSULTSERVICES( DATE+6, DATE+8
CONTINUE HEADER~, HEADER+1
DATEBEG PATIENT+2~, PATIENT+4, PATIENT+5, DATE+3~, DATE+5, DATE+10, SETDATES~, SETDATES+5*, SETDATES+9*
DATESTOP PATIENT+2~, PATIENT+4, PATIENT+8, PATIENT+9, DATE+3~, DATE+5, DATE+13, DATE+14, SETDATES~, SETDATES+6*
, SETDATES+10*
DFN PATIENT+7, PATIENT+11, CONLKUP1+1~, CONLKUP1+5*, CONLKUP1+7
DIRECTION PATIENT+4, PATIENT+7, PATIENT+8, PATIENT+11, DATE+5, DATE+12, DATE+13, DATE+16, NUMBER+7, NUMBER+8
, SETDATES~, SETDATES+4
DONE PATIENT+2~, PATIENT+5*, PATIENT+7, PATIENT+8*, PATIENT+9*, DATE+3~, DATE+10*, DATE+12, DATE+13*, DATE+14*
ENDDATE PATIENT+4, DATE+5, SETDATES~, SETDATES+6, SETDATES+9
ERROR CONSULT+3~, CONSULT+4*, CONSULT+5
EXAMDATE CONLKUP1+1~, CONLKUP1+4*, CONLKUP1+7
GMRCDATE PATIENT+2~, PATIENT+5*, PATIENT+7*, PATIENT+8, PATIENT+9, PATIENT+11, DATE+3~, DATE+10*, DATE+12*, DATE+13
, DATE+14, DATE+16, GMRCDATE~, GMRCDATE+1
GMRCIEN MAIN+10~, PATIENT+10*, PATIENT+11*, PATIENT+13, PATIENT+14, DATE+15*, DATE+16*, DATE+18, DATE+19, NUMBER+2~
, NUMBER+6*, NUMBER+7*, NUMBER+8*, NUMBER+10, NUMBER+12, CONLKUP1~, CONLKUP1+3, CONLKUP1+4, CONLKUP1+5, CONLKUP1+6
, CONLKUP1+7, CONSULT~, CONSULT+4, CONSULT+11, CONSULT1~, CONSULT1+5
GROUPIEN CONSULT+3~, CONSULT+13*, CONSULT+14, T892591+1~, T892591+4*, T892591+5
I CONLKUP1+1~, CONSULT+3~, CONSULT+7*, CONSULT+8, CONSULT1+2~, CONSULT1+7*, CONSULT1+10*, CONSULT1+11
IOF HEADER+2
MAG20065839 CONSULT+3~, CONSULT+10*, CONSULT+11*, CONSULT+12
MAGIENLIST CONLKUP1+1~, CONLKUP1+6, CONLKUP1+7, CONSULT~, CONSULT+8, T892591~
MAGIENLIST( CONSULT+14*, T892591+5*
>> OUT(1 CONSULT1+6*
RUNTIME MAIN+10~
>> SCANMODE CONLKUP+2, CONLKUP+5, CONLKUP+8, CONLKUP+12
>> SERVICE DATE+6*, DATE+8, DATE+12, DATE+16
SS2 CONSULT1+2~, CONSULT1+7*, CONSULT1+8
STATUS DATE+3~, DATE+7*, DATE+9, DATE+12, DATE+16
STOP MAIN+10~, MAIN+15*, MAIN+16, CONLKUP+1~, CONLKUP+3*, CONLKUP+6*, CONLKUP+9*, CONLKUP+13*, CONLKUP+15, PATIENT+2~
, PATIENT+3*, PATIENT+7, PATIENT+11, PATIENT+14*, PATIENT+17, DATE+3~, DATE+4*, DATE+6, DATE+12, DATE+16
, DATE+19*, DATE+24, NUMBER+2~, NUMBER+3*, NUMBER+8, NUMBER+12*, NUMBER+14
STUDYCNT NUMBER+2~, NUMBER+4*, NUMBER+8, NUMBER+11*
TIU892591 T892591+1~, T892591+2*, T892591+3*, T892591+4
TIUIEN CONSULT1+2~, CONSULT1+8*, CONSULT1+9, CONSULT1+11, T892591~, T892591+3
TIULIST CONSULT+3~, CONSULT+4, CONSULT1~, CONSULT1+3!
TIULIST( CONSULT+8, CONSULT1+11*
TIULIST(0 CONSULT+7, CONSULT1+4*, CONSULT1+10*
X MAIN+10~, CONSULT+3~, CONSULT+12*, CONSULT+13
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