Routine: MAGDSTA1

Information

MAGDSTA1 ;WOIFO/PMK - Q/R Retrieve of DICOM images from PACS to VistA ; Mar 08, 2022@07:55:07

Package	Total	Call Graph
Imaging	11	$$HOSTNAME^MAGDFCNV INITSTT^MAGDSTA (ACNUM,QRSCP)^MAGDSTA2 $$MAIN^MAGDSTA5 $$MAIN^MAGDSTA7 $$SERVICES^MAGDSTA8 (DISPLAY,DISPLAY1)^MAGDSTA9 $$CHECKDIV^MAGDSTAB LASTRUN^MAGDSTAS ($$YESNO,CONTINUE)^MAGDSTQ $$INITXTMP^MAGDSTQ0
Kernel	2	($$FMADD,$$FMTE,$$NOW)^XLFDT EN^XUTMDEVQ
VA FileMan	1	$$GET1^DIQ

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 2

Package	Total	Caller Graph
Imaging	2	MAGDSTA MAGDSTA2

Entry Points

Name	Comments	DBIA/ICR reference
ENTRY(MENUOPTION)	; Entry point from main menu
TASKINIT	; initialize MAGIOM and ZTDESC
TASK	; entry point for a tasked job
BEGIN	; entry point for running the image compare or retrieve process
DIRECTON(SORTORDER)	; return the direction for $order ; 1 = normal order ; -1 = reverse order
COPYPARM(NORMALRUN)	; copy last run's parameters for the next run
NEXTDATE(DATE,DIRECTION)	; get the next date, but not in the future

External References

Name	Field # of Occurrence
$$GET1^DIQ	TASK+6
$$HOSTNAME^MAGDFCNV	ENTRY+11
INITSTT^MAGDSTA	BEGIN+64
ACNUM^MAGDSTA2	ENTRY+110
QRSCP^MAGDSTA2	ENTRY+106
$$MAIN^MAGDSTA5	BEGIN+75
$$MAIN^MAGDSTA7	BEGIN+78
$$SERVICES^MAGDSTA8	ENTRY+115
DISPLAY^MAGDSTA9	TASK+8
DISPLAY1^MAGDSTA9	ENTRY+52
$$CHECKDIV^MAGDSTAB	ENTRY+12, ENTRY+17
LASTRUN^MAGDSTAS	ENTRY+51
$$YESNO^MAGDSTQ	ENTRY+55, ENTRY+67, ENTRY+78, ENTRY+90
CONTINUE^MAGDSTQ	ENTRY+14, ENTRY+19, BEGIN+91
$$INITXTMP^MAGDSTQ0	ENTRY+22
$$FMADD^XLFDT	NEXTDATE+3
$$FMTE^XLFDT	ENTRY+54, ENTRY+66, ENTRY+77, ENTRY+89, TASK+5, BEGIN+88
$$NOW^XLFDT	TASK+5, BEGIN+29, BEGIN+72, BEGIN+83, BEGIN+88, NEXTDATE+2
EN^XUTMDEVQ	ENTRY+170

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"* Use the PARM option to set Check Study Division switch *" Line Location: ENTRY+13
Function Call: WRITE	Prompt: !!,"* User's Division is not defined *" Line Location: ENTRY+18
Function Call: WRITE	Prompt: ! Line Location: ENTRY+25
Function Call: WRITE	Prompt: !!,"Scan by Date, Report Number, Patient, or Accession (D, N, P, or A): " Line Location: ENTRY+27
Function Call: WRITE	Prompt: !!,"Scan by Date, Consult Number, Patient, or Accession (D, N, P, or A): " Line Location: ENTRY+30
Function Call: WRITE	Prompt: DEFAULT,"// " Line Location: ENTRY+32
Function Call: READ	Variable: X Timeout: DTIME Line Location: ENTRY+33
Function Call: WRITE	Prompt: X Line Location: ENTRY+34
Function Call: WRITE	Prompt: " ???",!,"Please enter ""D"", ""N"", ""P"", or ""A""." Line Location: ENTRY+41
Function Call: WRITE	Prompt: !!?10,X,!?10 Line Location: ENTRY+50
Function Call: WRITE	Prompt: "-" Line Location: ENTRY+50
Function Call: WRITE	Prompt: !!,"The last ",SCANMODE," scan run completed on ",$$FMTE^XLFDT(RUNTIME) Line Location: ENTRY+54
Function Call: WRITE	Prompt: " YESNO ERROR" Line Location: ENTRY+56
Function Call: WRITE	Prompt: !!,"THE LAST ",SCANMODE," SCAN RUN HAS NOT YET COMPLETED. The last action was on ",$$FMTE^XLFDT(RUNTIME) Line Location: ENTRY+66
Function Call: WRITE	Prompt: " YESNO ERROR" Line Location: ENTRY+68
Function Call: WRITE	Prompt: !!,"THE LAST ",SCANMODE," SCAN RUN HAS NOT YET BEGUN. The last action was on ",$$FMTE^XLFDT(RUNTIME) Line Location: ENTRY+77
Function Call: WRITE	Prompt: " YESNO ERROR" Line Location: ENTRY+79
Function Call: WRITE	Prompt: !!,"THE LAST ",SCANMODE," SCAN RUN ABNORMALLY TERMINATED: ",STATUS Line Location: ENTRY+88
Function Call: WRITE	Prompt: !,"The last action was on ",$$FMTE^XLFDT(RUNTIME) Line Location: ENTRY+89
Function Call: WRITE	Prompt: " YESNO ERROR" Line Location: ENTRY+91
Function Call: WRITE	Prompt: " -- Exiting" Line Location: ENTRY+107
Function Call: WRITE	Prompt: !,"Exiting" Line Location: ENTRY+119
Function Call: WRITE	Prompt: !!,"Recommend report output of 132 columns",!! Line Location: TASKINIT+2
Function Call: WRITE	Prompt: $E(ZTDESC,I)," " Line Location: TASK+3
Function Call: WRITE	Prompt: !,"-" Line Location: TASK+4
Function Call: WRITE	Prompt: "--" Line Location: TASK+4
Function Call: WRITE	Prompt: !,"Started on ",$$FMTE^XLFDT($$NOW^XLFDT,1) Line Location: TASK+5
Function Call: WRITE	Prompt: " by ",$$GET1^DIQ(200,DUZ,.01,"E")," (DUZ: ",DUZ,")" Line Location: TASK+6
Function Call: WRITE	Prompt: " Job Number: ",$J Line Location: TASK+7
Function Call: WRITE	Prompt: !! Line Location: TASK+9
Function Call: WRITE	Prompt: !!,"Cannot obtain LOCK on Q/R RETRIEVE DICOM RUN STATISTICS Table.",!! Line Location: BEGIN+21
Function Call: WRITE	Prompt: !!,"RUN ",X Line Location: BEGIN+87
Function Call: WRITE	Prompt: " at ",$$FMTE^XLFDT($$NOW^XLFDT,1) Line Location: BEGIN+88

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("RM"	BEGIN+5
^MAGDSTT(2006.543 - [#2006.543]	ENTRY+47, BEGIN+20, BEGIN+23, BEGIN+25, BEGIN+27, BEGIN+50, BEGIN+55, BEGIN+56, BEGIN+58, BEGIN+60 , BEGIN+61, BEGIN+62, BEGIN+84, BEGIN+86*
^TMP("MAG"	ENTRY+8, ENTRY+9, ENTRY+24, ENTRY+44, ENTRY+61!, ENTRY+73!, ENTRY+84!, ENTRY+96!, ENTRY+102, ENTRY+103 , ENTRY+107, ENTRY+116!, ENTRY+117, TASKINIT+1, BEGIN+7, BEGIN+8, BEGIN+9, BEGIN+10, BEGIN+11, BEGIN+12 , BEGIN+13, BEGIN+14, BEGIN+15, BEGIN+16, BEGIN+17, BEGIN+18, BEGIN+66, BEGIN+90!, COPYPARM+2, COPYPARM+3 , COPYPARM+4, COPYPARM+5, COPYPARM+7, COPYPARM+14, COPYPARM+18, COPYPARM+19, COPYPARM+20, COPYPARM+23, COPYPARM+24, COPYPARM+25 , COPYPARM+30, COPYPARM+31, COPYPARM+35*
^XTMP(	BEGIN+70, BEGIN+71, BEGIN+72*, BEGIN+89!

Label References

Name	Line Occurrences
$$DIRECTON	BEGIN+68, COPYPARM+9
$$NEXTDATE	COPYPARM+18, COPYPARM+23
@(	ENTRY+149
COPYPARM	ENTRY+58, ENTRY+70, ENTRY+81, ENTRY+93
TASKINIT	ENTRY+155

Naked Globals

Name	Field # of Occurrence
^("IMAGING SERVICE"	BEGIN+70*
^("OPTION"	BEGIN+71*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	ENTRY+161~, ENTRY+170
ACNUMB	ENTRY+1~, BEGIN+1~
BATCHSIZE	ENTRY+1~, BEGIN+1~, BEGIN+11*, BEGIN+40, COPYPARM+31
BEGDATE	ENTRY+1~, BEGIN+1~, BEGIN+13*, BEGIN+37, COPYPARM+23
CONSULTSERVICES	ENTRY+3~, ENTRY+115, ENTRY+117, COPYPARM+35
CONSULTSERVICES(	BEGIN+53
DATE	NEXTDATE~, NEXTDATE+3
DEFAULT	ENTRY+3~, ENTRY+24*, ENTRY+32, ENTRY+34
DFN	ENTRY+1~, BEGIN+1~, BEGIN+18*, BEGIN+43, COPYPARM+14
DIRECTION	BEGIN+3~, BEGIN+68, COPYPARM+1~, COPYPARM+9, COPYPARM+18, COPYPARM+23, COPYPARM+30, NEXTDATE~, NEXTDATE+3
DIVISION	ENTRY+3~, ENTRY+16*, ENTRY+17
DONE	ENTRY+3~
DTIME	ENTRY+33
DUZ	TASK+6, BEGIN+48
DUZ(2	ENTRY+16
ENDDATE	ENTRY+1~, BEGIN+1~, BEGIN+14*, BEGIN+38, COPYPARM+18
ERROR	ENTRY+3~, ENTRY+55, ENTRY+56, ENTRY+67, ENTRY+68, ENTRY+78, ENTRY+79, ENTRY+90, ENTRY+91
HOSTNAME	ENTRY+1~, ENTRY+11*, BEGIN+70, BEGIN+71, BEGIN+72, BEGIN+89
HOURS	ENTRY+1~, BEGIN+1~, BEGIN+16*, BEGIN+42, COPYPARM+5
I	ENTRY+3~, ENTRY+50, ENTRY+147, ENTRY+149, ENTRY+150, ENTRY+151, TASK+2~, TASK+3, TASK+4, BEGIN+3~ , BEGIN+52, BEGIN+53, BEGIN+55, BEGIN+56, COPYPARM+1~
IMAGINGSERVICE	ENTRY+1~, ENTRY+9, ENTRY+26, ENTRY+114, ENTRY+123, TASKINIT+10, BEGIN+1~, BEGIN+8, BEGIN+31, BEGIN+51 , BEGIN+70, BEGIN+74
J	BEGIN+3~, BEGIN+52, BEGIN+54, BEGIN+55, BEGIN+56, BEGIN+58
K	BEGIN+3~
L	BEGIN+3~
LASTRUN	ENTRY+3~, ENTRY+47*, ENTRY+48, ENTRY+51
MAGIOM	ENTRY+2~, TASKINIT+3, TASKINIT+7, BEGIN+5
MAGXTMP	ENTRY+2~, ENTRY+22*, BEGIN+70, BEGIN+71, BEGIN+72, BEGIN+89
MENUOPTION	ENTRY~, ENTRY+47, BEGIN+49, BEGIN+61
NEXTDATE	NEXTDATE+1~, NEXTDATE+3, NEXTDATE+4, NEXTDATE+5
NORMALRUN	COPYPARM~, COPYPARM+18, COPYPARM+23
NOW	NEXTDATE+1~, NEXTDATE+2*, NEXTDATE+4
OK	ENTRY+3~, ENTRY+25, ENTRY+33, ENTRY+35, ENTRY+36, ENTRY+37, ENTRY+38, ENTRY+39, ENTRY+40, ENTRY+43
OPTION	ENTRY+1~, ENTRY+8, BEGIN+1~, BEGIN+7, BEGIN+33, BEGIN+71
PICK	ENTRY+62!
QRSCP	ENTRY+1~, BEGIN+1~, BEGIN+17*, BEGIN+36, COPYPARM+2, COPYPARM+7
QRSTACK	ENTRY+1~, ENTRY+10*
QUESTION	ENTRY+3~, ENTRY+122, ENTRY+124, ENTRY+127, ENTRY+129, ENTRY+130, ENTRY+131, ENTRY+134, ENTRY+135, ENTRY+136 , ENTRY+139, ENTRY+140, ENTRY+141
QUESTION(	ENTRY+147, ENTRY+149
QUESTION("ASCENDING"	ENTRY+130, ENTRY+135, ENTRY+140*, ENTRY+144
QUESTION("DESCENDING"	ENTRY+131, ENTRY+136, ENTRY+141*
QUESTION("NONE"	ENTRY+144*
QUIT	ENTRY+3~, ENTRY+147, ENTRY+148, ENTRY+150, ENTRY+151, ENTRY+153
RUNNUMBER	BEGIN+3~, BEGIN+25*, BEGIN+50, BEGIN+55, BEGIN+56, BEGIN+58, BEGIN+60, BEGIN+61, BEGIN+64, BEGIN+66 , BEGIN+84, BEGIN+86
RUNTIME	ENTRY+2~, ENTRY+54, ENTRY+66, ENTRY+77, ENTRY+89, BEGIN+1~, BEGIN+29, BEGIN+32, BEGIN+83, BEGIN+84
SCANMODE	ENTRY+2~, ENTRY+37, ENTRY+38, ENTRY+39, ENTRY+40, ENTRY+44, ENTRY+47, ENTRY+49, ENTRY+54, ENTRY+55 , ENTRY+66, ENTRY+67, ENTRY+77, ENTRY+78, ENTRY+88, ENTRY+90, ENTRY+109, ENTRY+121, ENTRY+133, ENTRY+138 , BEGIN+2~, BEGIN+9*, BEGIN+35, BEGIN+61, BEGIN+71, COPYPARM+3, COPYPARM+12, COPYPARM+16, COPYPARM+28
SERVICES	ENTRY+3~
SORTORDER	ENTRY+2~, ENTRY+146, ENTRY+147, ENTRY+149, BEGIN+2~, BEGIN+10, BEGIN+15*, BEGIN+41, BEGIN+68, DIRECTON~ , DIRECTON+3, COPYPARM+4, COPYPARM+9, COPYPARM+17
STARTIEN	ENTRY+2~, BEGIN+2~, BEGIN+12*, BEGIN+39
STARTTIME	ENTRY+2~, BEGIN+2~, BEGIN+29*, BEGIN+30, BEGIN+60
STATUS	ENTRY+2~, ENTRY+53, ENTRY+65, ENTRY+76, ENTRY+88, BEGIN+2~
STOP	BEGIN+3~, BEGIN+75, BEGIN+78, BEGIN+85
STUDYDATE	ENTRY+2~, BEGIN+2~, COPYPARM+19, COPYPARM+24
STUDYIEN	ENTRY+2~, BEGIN+2~, COPYPARM+30
X	ENTRY+3~, ENTRY+33, ENTRY+34, ENTRY+35, ENTRY+36, ENTRY+37, ENTRY+38, ENTRY+39, ENTRY+40, ENTRY+49* , ENTRY+50, ENTRY+55, ENTRY+57, ENTRY+67, ENTRY+69, ENTRY+78, ENTRY+80, ENTRY+90, ENTRY+92, ENTRY+113* , ENTRY+115, ENTRY+119, BEGIN+5, BEGIN+23, BEGIN+24, BEGIN+25, BEGIN+26, BEGIN+27, BEGIN+29, BEGIN+30 , BEGIN+31, BEGIN+32, BEGIN+33, BEGIN+34, BEGIN+35, BEGIN+36, BEGIN+37, BEGIN+38, BEGIN+39, BEGIN+40 , BEGIN+41, BEGIN+42, BEGIN+43, BEGIN+48, BEGIN+49, BEGIN+50, BEGIN+85, BEGIN+86, BEGIN+87
ZTDESC	ENTRY+3~, ENTRY+170, TASKINIT+4, TASKINIT+8, TASKINIT+10*, TASK+3, TASK+4
ZTSAVE	ENTRY+161~, ENTRY+170
ZTSAVE("CONSULTSERVICES("	ENTRY+169*
ZTSAVE("HOSTNAME"	ENTRY+162*
ZTSAVE("MAGIOM"	ENTRY+163*
ZTSAVE("MAGXTMP"	ENTRY+164*
ZTSAVE("MENUOPTION"	ENTRY+165*
ZTSAVE("QRSTACK"	ENTRY+168*
ZTSAVE("^TMP(	""MAG"", $J, ""BATCH Q/R"", " , ENTRY+166, ""MAG"", $J, ""Q/R PARAM"", " , ENTRY+167

Marked Items

Name	Field # of Occurrence
$T(	ENTRY+170

Customize PDF page

Package: Imaging