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

Package: Imaging

Routine: MAGDSTAA


Information

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

Source Information

Source file <MAGDSTAA.m>

Entry Points

Name Comments DBIA/ICR reference
LOOKUP(DFN,STUDYDATE,STUDYIEN,ACNUMB,MAGIENLIST) ; called by MAGDSTA5 and MAGDSTA7
; STUDYDATE ---- date of study
; STUDYIEN ----- RARPT1 or GMRCIEN
; ACNUMB ------- accession number
; MAGIENLIST --- array of MAGIEN pointers
; VISTAUIDFLAG - flag to indicate that an acn query failed
HEADER(CONTINUE,CLEARSCREEN) ;
QRSTATUS(TEXT) ; output query/retrieve status text
SUSPEND(HOURS) ; check date/time & request to stop
; HOURS is a 24 character string of Y's and N's indicating active times
; Assume that Saturday and Sunday are 24 hours
STOP ; stop job
STOP1(LIST) ; get list of running VistA Automatic Q/R Processes
STOP2(LIST,COUNT) ; display the jobs
STOP3(LIST,I) ; signal the process to stop by killing the "STATUS" node
STTWRITE(NAME,VALUE) ; write statistics for the run
STTREAD(NAME) ; read a statistics parameter
STTUPDT(NAME,VALUE) ; update a statistics parameter
STTINC(NAME,VALUE) ; increment a statistics parameter
STTNAME(NAME) ; get IEN for NAME
; return: -1 for an error, "" for no NAME, IEN otherwise

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: LOOKUP+20
Function Call: WRITE
  • Prompt: !,$J(STUDYIEN,8),?11,ACNUMB,?30,$P($$FMTE^XLFDT(STUDYDATE,"2Z"),"@",1)
  • Line Location: LOOKUP+23
Function Call: WRITE
  • Prompt: !
  • Condition for execution: I>1
  • Line Location: LOOKUP+28
Function Call: WRITE
  • Prompt: ?40,$J(MAGIEN,8)
  • Line Location: LOOKUP+28
Function Call: WRITE
  • Prompt: ?52,$J(SERIESCOUNT,5)
  • Line Location: LOOKUP+30
Function Call: WRITE
  • Prompt: ?55,"non-DICOM"
  • Line Location: LOOKUP+34
Function Call: WRITE
  • Prompt: ?59,$J(IMAGECOUNT,5)
  • Line Location: LOOKUP+38
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $D(MAGIENLIST)
  • Line Location: LOOKUP+52
Function Call: WRITE
  • Prompt: ?41,"NEW SOP",?52,$J(SERIESCOUNT,5),?59,$J(IMAGECOUNT,5)
  • Line Location: LOOKUP+52
Function Call: WRITE
  • Prompt: ?46,"--",?55,"--",?62,"--"
  • Line Location: LOOKUP+69
Function Call: WRITE
  • Prompt: ?67,$J(SERIESCOUNT,5),?74,$J(IMAGECOUNT,5)
  • Line Location: LOOKUP+85
Function Call: WRITE
  • Prompt: !," (Query with Accession Number failed, but worked with VistA Study Instance UID)"
  • Line Location: LOOKUP+90
Function Call: WRITE
  • Prompt: ?70,"--",?77,"--"
  • Line Location: LOOKUP+94
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: HEADER+5
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT($$NOW^XLFDT,1),?55,"VistA",?71,"PACS"
  • Line Location: HEADER+6
Function Call: WRITE
  • Prompt: !,"Report #",?11,"Accession Number",?32,"Date",?40,"Group #",?51,"Series Images",?66,"Series Images"
  • Line Location: HEADER+7
Function Call: WRITE
  • Prompt: ?82,"Retrieve Status"
  • Line Location: HEADER+9
Function Call: WRITE
  • Prompt: !,"--------",?11,"----------------",?30,"--------",?40,"--------",?51,"------ ------",?66,"------ ------"
  • Line Location: HEADER+11
Function Call: WRITE
  • Prompt: ?82,"-------- ------"
  • Line Location: HEADER+13
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X>82
  • Line Location: QRSTATUS+2
Function Call: WRITE
  • Prompt: ?82,TEXT
  • Line Location: QRSTATUS+2
Function Call: WRITE
  • Prompt: !!,"User requested VistA Automatic Q/R Processing to stop at ",$$FMTE^XLFDT($$NOW^XLFDT,1)
  • Line Location: SUSPEND+12
Function Call: WRITE
  • Prompt: !!,"User requested task to stop at ",$$FMTE^XLFDT($$NOW^XLFDT,1)
  • Line Location: SUSPEND+17
Function Call: WRITE
  • Prompt: !!,"Waiting for time to start "
  • Line Location: SUSPEND+22
Function Call: WRITE
  • Prompt: $E("-\|/",TICKER),$C(8)
  • Line Location: SUSPEND+25
Function Call: WRITE
  • Prompt: !!,"No VistA Automatic Q/R Processes appear to be running."
  • Line Location: STOP+4
Function Call: WRITE
  • Prompt: " YESNO ERROR"
  • Line Location: STOP+10
Function Call: WRITE
  • Prompt: !!,"Enter 1-",COUNT," to stop a procss: "
  • Line Location: STOP+17
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: STOP+18
Function Call: WRITE
  • Prompt: " -- nothing selected"
  • Line Location: STOP+19
Function Call: WRITE
  • Prompt: " ???"
  • Line Location: STOP+26
Function Call: WRITE
  • Prompt: !
  • Line Location: STOP2+4
Function Call: WRITE
  • Prompt: $J(I,2),")"
  • Condition for execution: COUNT>1
  • Line Location: STOP2+4
Function Call: WRITE
  • Prompt: ?4,^XTMP(MAGXTMP,"AUTO Q/R",HOSTNAME,JOB,"IMAGING SERVICE")
  • Line Location: STOP2+5
Function Call: WRITE
  • Prompt: ?20,^XTMP(MAGXTMP,"AUTO Q/R",HOSTNAME,JOB,"OPTION")
  • Line Location: STOP2+6
Function Call: WRITE
  • Prompt: ?50,"Started: ",$$FMTE^XLFDT(^XTMP(MAGXTMP,"AUTO Q/R",HOSTNAME,JOB,"START TIME"),"2MP")
  • Line Location: STOP2+7
Function Call: WRITE
  • Prompt: !!,"VistA Automatic Q/R Processing will stop soon."
  • Line Location: STOP3+4
Function Call: WRITE
  • Prompt: !,"*** ERROR in STTREAD^",$T(+0)," ***"
  • Line Location: STTREAD+4
Function Call: WRITE
  • Prompt: !,"NAME """,NAME,""" is not defined in"
  • Line Location: STTREAD+5
Function Call: WRITE
  • Prompt: " ^MAGDSTT(2006.543,",RUNNUMBER,")."
  • Line Location: STTREAD+6
Function Call: WRITE
  • Prompt: !,"*** ERROR in STTNAME^",$T(+0)
  • Line Location: STTNAME+5
Function Call: WRITE
  • Prompt: " NAME is null or undefined ***"
  • Line Location: STTNAME+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call