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 |  Naked Globals |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: MAGDSTA8

Package: Imaging

Routine: MAGDSTA8


Information

MAGDSTA8 ;WOIFO/PMK - Q/R Retrieve of DICOM images from PACS to VistA ; Sep 18, 2020@14:34:24

Source Information

Source file <MAGDSTA8.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
Imaging 2 $$MWLFIND^MAGDHOW1  ($$YESNO,CONTINUE)^MAGDSTQ  
VA FileMan 1 $$GET1^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: 9

Package Total Caller Graph
Imaging 9 MAGDSTA1  MAGDSTA2  MAGDSTAA  MAGDSTAB  MAGDSTAC  MAGDSTAD  MAGDSTAE  MAGDSTAF  
MAGDSTD3  

Entry Points

Name Comments DBIA/ICR reference
LEGACY(GROUPIEN,SERIESCOUNT,IMAGECOUNT) ; get all the UIDs for the imaging group
NEWSOPDB(ACNUMB,SERIESCOUNT,IMAGECOUNT) ; look for UIDs in the P34 database for the new SOP Classes
; Rules:
; 1) the Attribute On File field is not checked at all.
; 2) for the Procedure Reference file (#2005.61), there has to be a pointer to the Patient
; Reference file (#2005.6) and the patient id type in file #2005.6 needs to be "DFN".
; 3) for the Image Study file (#2005.62), the study must be "accessible"
; 4) for the Image Series file (#2006.63), the series must be "accessible"
; 5) for the SOP Instance file ("2006.64), the SOP instance must be "accessible"
SERIES(VISTASTUDYUID,SERIESUID,SERIESCOUNT) ; increment series counters
IMAGE(VISTASTUDYUID,SERIESUID,SOPUID,IMAGECOUNNT) ; increment image counters
SERVICES(CONSULTSERVICES,GETQRSCP) ; get services to query
SERVICE1 ; present selection screen(s)
SERVICE2 ; select the service from a screen full
SERVICE3 ; output one service
SERVICE4(CONSULTSERVICES,GETQRSCP,LIST,PICK) ; build list of selected services, by ien
QRSCP() ; get the q/r scp for the consult

External References

Name Field # of Occurrence
$$GET1^DIQ SERVICES+10, SERVICE4+14, QRSCP+7, QRSCP+10
$$MWLFIND^MAGDHOW1 QRSCP+8
$$YESNO^MAGDSTQ SERVICES+39
CONTINUE^MAGDSTQ SERVICES+37, SERVICES+51

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"SERVICES^",$T(+0)," invoked with unrecognized GETQRSCP parameter: """,GETQRSCP,"""",!
  • Line Location: SERVICES+5
Function Call: WRITE
  • Prompt: !
  • Line Location: SERVICES+22
Function Call: WRITE
  • Prompt: !!,"CPRS Consult/Procedure Service(s) from Previous Run"
  • Line Location: SERVICES+23
Function Call: WRITE
  • Prompt: !,"---------------------------------------------------"
  • Line Location: SERVICES+24
Function Call: WRITE
  • Prompt: @IOF,"CPRS Consult/Procedure Service(s) from Previous Run"
  • Line Location: SERVICES+31
Function Call: WRITE
  • Prompt: !,"---------------------------------------------------"
  • Line Location: SERVICES+32
Function Call: WRITE
  • Prompt: !?5
  • Line Location: SERVICES+34
Function Call: WRITE
  • Prompt: !!,"*** No consult/procedure service was selected ***"
  • Line Location: SERVICES+50
Function Call: WRITE
  • Prompt: @IOF,"Select CPRS Consult/Procedure Service(s) with DICOM Imaging Capabilities"
  • Line Location: SERVICE2+2
Function Call: WRITE
  • Prompt: !,"------------------------------------------------------------------------",!
  • Line Location: SERVICE2+3
Function Call: WRITE
  • Prompt: "There are ",N," services. Enter a number to select or deselect each service,"
  • Line Location: SERVICE2+5
Function Call: WRITE
  • Prompt: !,"enter ""A"" for all, and enter ""D"" when done with the selection.",!
  • Line Location: SERVICE2+6
Function Call: WRITE
  • Prompt: !,$J(I,3),") "
  • Line Location: SERVICE2+8
Function Call: WRITE
  • Prompt: !!,"Please enter ",IBEGIN,"-",IEND," to select/deselect a service (and ""D"" when done): "
  • Line Location: SERVICE2+13
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: SERVICE2+14
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: SERVICE2+27
Function Call: WRITE
  • Prompt: " ???"
  • Line Location: SERVICE2+27
Function Call: WRITE
  • Prompt: $S($G(PICK(I)):"-->",1:" "),$P(LIST(I),"^",1)
  • Line Location: SERVICE3+1
Function Call: WRITE
  • Prompt: !?20,"<<< Q/R SCP: ",QRSCP," >>>"
  • Line Location: QRSCP+11

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^GMR(123 - [#123] GET1^DIQ
^GMR(123.3 - [#123.3] GET1^DIQ
^GMR(123.5 - [#123.5] GET1^DIQ
^MAG(2006.5831 - [#2006.5831] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^MAG(2005 - [#2005] LEGACY+3, LEGACY+12, LEGACY+13, LEGACY+15
^MAG(2006.5831 - [#2006.5831] SERVICES+9, SERVICE4+8, SERVICE4+9
^MAGV(2005.6 - [#2005.6] NEWSOPDB+22
^MAGV(2005.61 - [#2005.61] NEWSOPDB+17, NEWSOPDB+19
^MAGV(2005.62 - [#2005.62] NEWSOPDB+27, NEWSOPDB+28, NEWSOPDB+30
^MAGV(2005.63 - [#2005.63] NEWSOPDB+34, NEWSOPDB+36, NEWSOPDB+38
^MAGV(2005.64 - [#2005.64] NEWSOPDB+41, NEWSOPDB+43, NEWSOPDB+45
^TMP("MAG" LEGACY+7, LEGACY+9, NEWSOPDB+31, SERIES+1, SERIES+2, SERIES+4, SERIES+8*, IMAGE+1, IMAGE+3, IMAGE+5*
, SERVICES+17, QRSCP+3

Label References

Name Line Occurrences
IMAGE LEGACY+20, NEWSOPDB+46
SERIES LEGACY+19, NEWSOPDB+39
SERVICE1 SERVICES+40, SERVICES+43, SERVICE1+9
SERVICE2 SERVICE1+7, SERVICE2+30
SERVICE3 SERVICES+35, SERVICE2+9
SERVICE4 SERVICES+47

Naked Globals

Name Field # of Occurrence
^("SERIESUID" LEGACY+15
^(0 LEGACY+9*, NEWSOPDB+31*, SERIES+2*, IMAGE+3*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACNUMB NEWSOPDB~, NEWSOPDB+15, NEWSOPDB+17
ALPHA SERVICES+1~
ALPHA( SERVICES+11*, SERVICES+14, SERVICES+15
CONSULTSERVICES SERVICES~, SERVICES+7!, SERVICES+47, SERVICES+49, SERVICE4~
CONSULTSERVICES( SERVICE4+5*, SERVICE4+15*
DONE SERVICES+1~, SERVICE1+1*, SERVICE1+3, SERVICE1+9, SERVICE2+7, SERVICE2+16*, SERVICE2+17*
DTIME SERVICE2+14, SERVICE2+27
GETQRSCP SERVICES~, SERVICES+3*, SERVICES+4, SERVICES+5, SERVICES+47, SERVICE4~, SERVICE4+6
>> GMRCIEN QRSCP+7, QRSCP+8
GROUPIEN LEGACY~, LEGACY+3, LEGACY+12, LEGACY+13
I LEGACY+1~, LEGACY+11*, LEGACY+12*, LEGACY+13, NEWSOPDB+12~, SERVICES+1~, SERVICES+9*, SERVICES+14*, SERVICES+16, SERVICES+17
, SERVICES+20, SERVICES+33*, SERVICE2+7*, SERVICE2+8, SERVICE2+19*, SERVICE3+1, SERVICE4+1~, SERVICE4+3*, SERVICE4+4
IBEGIN SERVICES+1~, SERVICES+28*, SERVICES+33, SERVICE1+4*, SERVICE2+7, SERVICE2+13, SERVICE2+21
IEN SERVICE4+1~, SERVICE4+8*, SERVICE4+9
IEND SERVICES+1~, SERVICES+29*, SERVICES+30*, SERVICES+33, SERVICE1+5*, SERVICE1+6*, SERVICE2+7, SERVICE2+13, SERVICE2+21
IMAGECOUNNT IMAGE~
IMAGECOUNT LEGACY~, LEGACY+2*, LEGACY+20, NEWSOPDB~, NEWSOPDB+14*, NEWSOPDB+46, IMAGE+4*
IMAGEIEN LEGACY+1~, LEGACY+14*, LEGACY+15
>> IMAGINGSERVICE QRSCP+6
INACCESSIBLE NEWSOPDB+12~, NEWSOPDB+29*
>> INCREMENT SERVICES+25*, SERVICES+26, SERVICES+28, SERVICES+29, SERVICE1+1*, SERVICE1+2, SERVICE1+4, SERVICE1+5
INCRMENT SERVICES+1~
IOF SERVICES+31, SERVICE2+2
IOSL SERVICES+25, SERVICE1+1
ISCREEN SERVICES+1~, SERVICES+27*, SERVICES+28, SERVICES+29, SERVICES+37, SERVICE1+3*, SERVICE1+4, SERVICE1+5
KEEPSCREEN SERVICES+1~, SERVICE2+1*, SERVICE2+24*, SERVICE2+27*, SERVICE2+30
LIST SERVICES+2~, SERVICES+47, SERVICE4~
LIST( SERVICES+16*, SERVICE3+1, SERVICE4+4
LIST("" SERVICE4+2
MAG5831 QRSCP+1~, QRSCP+8*, QRSCP+9, QRSCP+10
MAGD0 NEWSOPDB+12~, NEWSOPDB+24*, NEWSOPDB+25
MAGIEN0 SERVICE4+1~, SERVICE4+9*, SERVICE4+10, SERVICE4+12
N SERVICES+20*, SERVICES+26, SERVICES+30, SERVICE1+2, SERVICE1+6, SERVICE2+5, SERVICE2+19, SERVICE4+1~, SERVICE4+2*, SERVICE4+3
NPICK SERVICES+2~
NSCREENS SERVICES+2~, SERVICES+26*, SERVICES+27, SERVICES+37, SERVICE1+2*, SERVICE1+3
PATREFDATA NEWSOPDB+12~, NEWSOPDB+22*, NEWSOPDB+23, NEWSOPDB+24
PATREFIX NEWSOPDB+12~, NEWSOPDB+20*, NEWSOPDB+21, NEWSOPDB+22
PICK SERVICES+22, SERVICES+47, SERVICE4~
PICK( SERVICES+17*, SERVICE2+19*, SERVICE2+22*, SERVICE2+23*, SERVICE3+1, SERVICE4+3
PROCEDURE SERVICE4+1~, SERVICE4+10*, SERVICE4+14, SERVICE4+15
PROCIX NEWSOPDB+12~, NEWSOPDB+16*, NEWSOPDB+17*, NEWSOPDB+19, NEWSOPDB+27
PROCNAME SERVICES+2~, SERVICE4+14*, SERVICE4+15
QRPROVIDER SERVICE4+1~, SERVICE4+12*, SERVICE4+13, SERVICE4+15
QRSCP QRSCP+1~, QRSCP+3*, QRSCP+11*, QRSCP+15
QUIT SERVICES+2~, SERVICES+20*, SERVICES+22, SERVICES+39*
RETURN NEWSOPDB+12~, SERVICES+2~, SERVICES+20*, SERVICES+46, SERVICES+52*, SERVICES+54, SERVICE2+16*
SERIESCOUNT LEGACY~, LEGACY+2*, LEGACY+19, NEWSOPDB~, NEWSOPDB+14*, NEWSOPDB+39, SERIES~, SERIES+5*
SERIESIX NEWSOPDB+13~, NEWSOPDB+33*, NEWSOPDB+34*, NEWSOPDB+36, NEWSOPDB+38, NEWSOPDB+41
SERIESUID LEGACY+1~, LEGACY+15*, LEGACY+18, LEGACY+19, LEGACY+20, NEWSOPDB+13~, NEWSOPDB+38*, NEWSOPDB+39, NEWSOPDB+46, SERIES~
, SERIES+1, SERIES+4, SERIES+8, IMAGE~, IMAGE+1, IMAGE+3, IMAGE+5
SERVICE SERVICES+2~, SERVICES+8*, SERVICES+9*, SERVICES+10, SERVICES+11, SERVICES+15*, SERVICES+16, SERVICES+17, SERVICE4+1~, SERVICE4+4*
, SERVICE4+5, SERVICE4+8, SERVICE4+15
SERVICENAME SERVICES+2~, SERVICES+10*, SERVICES+11, SERVICES+13*, SERVICES+14*, SERVICES+15, SERVICES+16
SOPIX NEWSOPDB+13~, NEWSOPDB+40*, NEWSOPDB+41*, NEWSOPDB+43, NEWSOPDB+45
SOPUID LEGACY+1~, LEGACY+16*, LEGACY+18, LEGACY+20, NEWSOPDB+13~, NEWSOPDB+45*, NEWSOPDB+46, IMAGE~, IMAGE+1, IMAGE+5
STATUS NEWSOPDB+13~, NEWSOPDB+36*, NEWSOPDB+37, NEWSOPDB+43*, NEWSOPDB+44
STUDYIX NEWSOPDB+13~, NEWSOPDB+26*, NEWSOPDB+27*, NEWSOPDB+28, NEWSOPDB+30, NEWSOPDB+34
SVCNAME SERVICE4+1~, SERVICE4+4*, SERVICE4+5
TOSERVICE QRSCP+1~, QRSCP+7*, QRSCP+8
VISTASTUDYUID LEGACY+1~, LEGACY+4*, LEGACY+5, LEGACY+7, LEGACY+19, LEGACY+20, NEWSOPDB+13~, NEWSOPDB+30*, NEWSOPDB+39, NEWSOPDB+46
, SERIES~, SERIES+1, SERIES+2, SERIES+8, IMAGE~, IMAGE+1, IMAGE+3, IMAGE+5
X LEGACY+1~, LEGACY+3*, LEGACY+4, NEWSOPDB+13~, NEWSOPDB+19*, NEWSOPDB+20, NEWSOPDB+28*, NEWSOPDB+29, SERVICES+2~, SERVICES+39
, SERVICES+40, SERVICE2+14*, SERVICE2+15*, SERVICE2+16, SERVICE2+17, SERVICE2+18, SERVICE2+21, SERVICE2+22, SERVICE2+23, SERVICE2+27*
, QRSCP+1~, QRSCP+10*, QRSCP+11
Y LEGACY+1~, LEGACY+13*, LEGACY+14
Z LEGACY+1~, LEGACY+15*, LEGACY+16

Marked Items

Name Field # of Occurrence
$T( SERVICES+5
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 |  Naked Globals |  Local Variables |  Marked Items  | All