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

Package: Imaging

Routine: MAGDSTA8


Information

MAGDSTA8 ;WOIFO/PMK - Q/R Retrieve of DICOM images from PACS to VistA ; Feb 15, 2022@10:50:15

Source Information

Source file <MAGDSTA8.m>

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" and AOF
; 4) for the Image Series file (#2006.63), the series must be "accessible" and AOF
; 5) for the SOP Instance file ("2006.64), the SOP instance must be "accessible" and AOF
PROBLEM61(PROCIX) ; check both file 2005.6 and 2005.61
PROBLEM62(STUDYIX) ; check file 2005.62
PROBLEM63(SERIESIX) ; check file 2005.63
PROBLEM64(SOPIX) ; check file 2005.64
PROBLEM65(IMAGEIX) ; check file 2005.65
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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call