Routine: MAGDSTA1

Information

MAGDSTA1 ;WOIFO/PMK - Q/R Retrieve of DICOM images from PACS to VistA ; Mar 23, 2023@08:45:36

Package	Total	Call Graph
Imaging	13	$$HOSTNAME^MAGDFCNV INITSTT^MAGDSTA ($$DIRECTION,COPYPARM,SAVE)^MAGDSTA0 (ACNUM,QRSCP)^MAGDSTA2 $$MAIN^MAGDSTA5 $$MAIN^MAGDSTA7 $$SERVICES^MAGDSTA8 (DISPLAY,DISPLAY1)^MAGDSTA9 CSVSAVE^MAGDSTAA $$CHECKDIV^MAGDSTAB LASTRUN^MAGDSTAS ($$YESNO,CONTINUE)^MAGDSTQ $$INITXTMP^MAGDSTQ0
Kernel	2	($$FMTE,$$NOW)^XLFDT EN^XUTMDEVQ
Registration	1	DEM^VADPT
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

External References

Name	Field # of Occurrence
$$GET1^DIQ	TASK+6
$$HOSTNAME^MAGDFCNV	ENTRY+12
INITSTT^MAGDSTA	BEGIN+103
$$DIRECTION^MAGDSTA0	BEGIN+107
COPYPARM^MAGDSTA0	ENTRY+60, ENTRY+72, ENTRY+83, ENTRY+95
SAVE^MAGDSTA0	BEGIN+57
ACNUM^MAGDSTA2	ENTRY+114
QRSCP^MAGDSTA2	ENTRY+108
$$MAIN^MAGDSTA5	BEGIN+114
$$MAIN^MAGDSTA7	BEGIN+117
$$SERVICES^MAGDSTA8	ENTRY+119
DISPLAY^MAGDSTA9	TASK+8
DISPLAY1^MAGDSTA9	ENTRY+54
CSVSAVE^MAGDSTAA	BEGIN+44, BEGIN+45, BEGIN+46, BEGIN+47, BEGIN+49, BEGIN+129, BEGIN+130, BEGIN+131
$$CHECKDIV^MAGDSTAB	ENTRY+14, ENTRY+19
LASTRUN^MAGDSTAS	ENTRY+53
$$YESNO^MAGDSTQ	ENTRY+57, ENTRY+69, ENTRY+80, ENTRY+92
CONTINUE^MAGDSTQ	ENTRY+16, ENTRY+21, BEGIN+59, BEGIN+135
$$INITXTMP^MAGDSTQ0	ENTRY+24
DEM^VADPT	BEGIN+37
$$FMTE^XLFDT	ENTRY+56, ENTRY+68, ENTRY+79, ENTRY+91, TASK+5, BEGIN+24, BEGIN+27, BEGIN+28, BEGIN+126
$$NOW^XLFDT	TASK+5, BEGIN+24, BEGIN+68, BEGIN+111, BEGIN+122, BEGIN+126
EN^XUTMDEVQ	ENTRY+177

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"* Use the PARM option to set Check Study Division switch *" Line Location: ENTRY+15
Function Call: WRITE	Prompt: !!,"* User's Division is not defined *" Line Location: ENTRY+20
Function Call: WRITE	Prompt: ! Line Location: ENTRY+27
Function Call: WRITE	Prompt: !!,"Scan by Date, Report Number, Patient, or Accession (D, N, P, or A): " Line Location: ENTRY+29
Function Call: WRITE	Prompt: !!,"Scan by Date, Consult Number, Patient, or Accession (D, N, P, or A): " Line Location: ENTRY+32
Function Call: WRITE	Prompt: DEFAULT,"// " Line Location: ENTRY+34
Function Call: READ	Variable: X Timeout: DTIME Line Location: ENTRY+35
Function Call: WRITE	Prompt: X Line Location: ENTRY+36
Function Call: WRITE	Prompt: " ???",!,"Please enter ""D"", ""N"", ""P"", or ""A""." Line Location: ENTRY+43
Function Call: WRITE	Prompt: !!?10,X,!?10 Line Location: ENTRY+52
Function Call: WRITE	Prompt: "-" Line Location: ENTRY+52
Function Call: WRITE	Prompt: !!,"The last ",SCANMODE," scan run completed on ",$$FMTE^XLFDT(RUNTIME) Line Location: ENTRY+56
Function Call: WRITE	Prompt: " YESNO ERROR" Line Location: ENTRY+58
Function Call: WRITE	Prompt: !!,"THE LAST ",SCANMODE," SCAN RUN HAS NOT YET COMPLETED. The last action was on ",$$FMTE^XLFDT(RUNTIME) Line Location: ENTRY+68
Function Call: WRITE	Prompt: " YESNO ERROR" Line Location: ENTRY+70
Function Call: WRITE	Prompt: !!,"THE LAST ",SCANMODE," SCAN RUN HAS NOT YET BEGUN. The last action was on ",$$FMTE^XLFDT(RUNTIME) Line Location: ENTRY+79
Function Call: WRITE	Prompt: " YESNO ERROR" Line Location: ENTRY+81
Function Call: WRITE	Prompt: !!,"THE LAST ",SCANMODE," SCAN RUN ABNORMALLY TERMINATED: ",STATUS Line Location: ENTRY+90
Function Call: WRITE	Prompt: !,"The last action was on ",$$FMTE^XLFDT(RUNTIME) Line Location: ENTRY+91
Function Call: WRITE	Prompt: " YESNO ERROR" Line Location: ENTRY+93
Function Call: WRITE	Prompt: " -- Exiting" Line Location: ENTRY+109
Function Call: WRITE	Prompt: !,"Exiting" Line Location: ENTRY+123
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: !!,X,!! Line Location: BEGIN+55
Function Call: WRITE	Prompt: !!,Y Line Location: BEGIN+127

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("RM"	BEGIN+7
^MAGDSTT(2006.543 - [#2006.543]	ENTRY+49, BEGIN+53, BEGIN+62, BEGIN+64, BEGIN+66, BEGIN+89, BEGIN+94, BEGIN+95, BEGIN+97, BEGIN+99 , BEGIN+100, BEGIN+101, BEGIN+123, BEGIN+125*
^TMP("MAG"	ENTRY+9, ENTRY+10, ENTRY+26, ENTRY+46, ENTRY+63!, ENTRY+75!, ENTRY+86!, ENTRY+98!, ENTRY+104, ENTRY+105 , ENTRY+109, ENTRY+120!, ENTRY+121, TASKINIT+1, BEGIN+9, BEGIN+10, BEGIN+11, BEGIN+12, BEGIN+13, BEGIN+14 , BEGIN+15, BEGIN+16, BEGIN+17, BEGIN+18, BEGIN+19, BEGIN+20, BEGIN+48, BEGIN+105, BEGIN+134!
^XTMP(	BEGIN+109, BEGIN+110, BEGIN+111*, BEGIN+133!

Label References

Name	Line Occurrences
@(	ENTRY+153
TASKINIT	ENTRY+159

Naked Globals

Name	Field # of Occurrence
^("IMAGING SERVICE"	BEGIN+109*
^("OPTION"	BEGIN+110*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	ENTRY+165~, ENTRY+177
ACNUMB	ENTRY+1~, BEGIN+1~
AUTOSCROLL	ENTRY+4~
BATCHSIZE	ENTRY+1~, BEGIN+1~, BEGIN+13*, BEGIN+31, BEGIN+79
BEGDATE	ENTRY+1~, BEGIN+1~, BEGIN+15*, BEGIN+27, BEGIN+76
CONSULTSERVICES	ENTRY+3~, ENTRY+119, ENTRY+121
CONSULTSERVICES(	BEGIN+92
DEFAULT	ENTRY+3~, ENTRY+26*, ENTRY+34, ENTRY+36
DEL	BEGIN+4~, BEGIN+5*
DFN	ENTRY+1~, BEGIN+1~, BEGIN+20*, BEGIN+82
DIRECTION	BEGIN+3~, BEGIN+107*
DIVISION	ENTRY+3~, ENTRY+18*, ENTRY+19
DOB	BEGIN+34~, BEGIN+39*, BEGIN+42
DONE	ENTRY+3~
DTIME	ENTRY+35
DUZ	TASK+6, BEGIN+87
DUZ(2	ENTRY+18
ENDDATE	ENTRY+1~, BEGIN+1~, BEGIN+16*, BEGIN+28, BEGIN+77
ERROR	ENTRY+3~, ENTRY+57, ENTRY+58, ENTRY+69, ENTRY+70, ENTRY+80, ENTRY+81, ENTRY+92, ENTRY+93
HOSTNAME	ENTRY+1~, ENTRY+12*, BEGIN+109, BEGIN+110, BEGIN+111, BEGIN+133
HOURS	ENTRY+1~, BEGIN+1~, BEGIN+18*, BEGIN+81
I	ENTRY+3~, ENTRY+52, ENTRY+151, ENTRY+153, ENTRY+154, ENTRY+155, TASK+2~, TASK+3, TASK+4, BEGIN+3~ , BEGIN+91, BEGIN+92, BEGIN+94, BEGIN+95
IMAGINGSERVICE	ENTRY+1~, ENTRY+10, ENTRY+28, ENTRY+118, ENTRY+127, TASKINIT+10, BEGIN+1~, BEGIN+10, BEGIN+24, BEGIN+70 , BEGIN+90, BEGIN+109, BEGIN+113
IO	ENTRY+112~, ENTRY+113*
J	BEGIN+3~, BEGIN+91, BEGIN+93, BEGIN+94, BEGIN+95, BEGIN+97
K	BEGIN+3~
L	BEGIN+3~
LASTRUN	ENTRY+3~, ENTRY+49*, ENTRY+50, ENTRY+53
MAGIOM	ENTRY+2~, TASKINIT+3, TASKINIT+7, BEGIN+7
MAGXTMP	ENTRY+2~, ENTRY+24*, BEGIN+109, BEGIN+110, BEGIN+111, BEGIN+133
MENUOPTION	ENTRY~, ENTRY+49, BEGIN+88, BEGIN+100
NAME	BEGIN+34~, BEGIN+39*, BEGIN+40
OK	ENTRY+3~, ENTRY+27, ENTRY+35, ENTRY+37, ENTRY+38, ENTRY+39, ENTRY+40, ENTRY+41, ENTRY+42, ENTRY+45
OPTION	ENTRY+1~, ENTRY+9, BEGIN+1~, BEGIN+9, BEGIN+25, BEGIN+72, BEGIN+110
OUTPUTEXCEL	ENTRY+4~, ENTRY+13*, BEGIN+23, BEGIN+56, BEGIN+57, BEGIN+128
PICK	ENTRY+64!
QRSCP	ENTRY+1~, BEGIN+1~, BEGIN+19*, BEGIN+75
QRSTACK	ENTRY+1~, ENTRY+11*
QUESTION	ENTRY+3~, ENTRY+126, ENTRY+128, ENTRY+131, ENTRY+133, ENTRY+134, ENTRY+135, ENTRY+138, ENTRY+139, ENTRY+140 , ENTRY+143, ENTRY+144, ENTRY+145
QUESTION(	ENTRY+151, ENTRY+153
QUESTION("ASCENDING"	ENTRY+134, ENTRY+139, ENTRY+144*, ENTRY+148
QUESTION("DESCENDING"	ENTRY+135, ENTRY+140, ENTRY+145*
QUESTION("NONE"	ENTRY+148*
QUIT	ENTRY+3~, ENTRY+151, ENTRY+152, ENTRY+154, ENTRY+155, ENTRY+157
RUNNUMBER	BEGIN+3~, BEGIN+64*, BEGIN+89, BEGIN+94, BEGIN+95, BEGIN+97, BEGIN+99, BEGIN+100, BEGIN+103, BEGIN+105 , BEGIN+123, BEGIN+125
RUNTIME	ENTRY+2~, ENTRY+56, ENTRY+68, ENTRY+79, ENTRY+91, BEGIN+1~, BEGIN+68, BEGIN+71, BEGIN+122, BEGIN+123
SCANMODE	ENTRY+2~, ENTRY+39, ENTRY+40, ENTRY+41, ENTRY+42, ENTRY+46, ENTRY+49, ENTRY+51, ENTRY+56, ENTRY+57 , ENTRY+68, ENTRY+69, ENTRY+79, ENTRY+80, ENTRY+90, ENTRY+92, ENTRY+111, ENTRY+125, ENTRY+137, ENTRY+142 , BEGIN+2~, BEGIN+11*, BEGIN+26, BEGIN+30, BEGIN+33, BEGIN+74, BEGIN+100, BEGIN+110
SERVICES	ENTRY+3~
SORTORDER	ENTRY+2~, ENTRY+150, ENTRY+151, ENTRY+153, BEGIN+2~, BEGIN+12, BEGIN+17*, BEGIN+80, BEGIN+107
SSN	BEGIN+34~, BEGIN+39*, BEGIN+41
STARTIEN	ENTRY+2~, BEGIN+2~, BEGIN+14*, BEGIN+31, BEGIN+78
STARTTIME	ENTRY+2~, BEGIN+2~, BEGIN+68*, BEGIN+69, BEGIN+99
STATUS	ENTRY+2~, ENTRY+55, ENTRY+67, ENTRY+78, ENTRY+90, BEGIN+2~
STOP	BEGIN+3~, BEGIN+114, BEGIN+117, BEGIN+124
STUDYDATE	ENTRY+2~, BEGIN+2~
STUDYIEN	ENTRY+2~, BEGIN+2~
VADM	BEGIN+34~
VADM(1	BEGIN+39
VADM(2	BEGIN+39
VADM(3	BEGIN+39
X	ENTRY+3~, ENTRY+35, ENTRY+36, ENTRY+37, ENTRY+38, ENTRY+39, ENTRY+40, ENTRY+41, ENTRY+42, ENTRY+51* , ENTRY+52, ENTRY+57, ENTRY+59, ENTRY+69, ENTRY+71, ENTRY+80, ENTRY+82, ENTRY+92, ENTRY+94, ENTRY+117* , ENTRY+119, ENTRY+123, BEGIN+3~, BEGIN+7, BEGIN+24, BEGIN+25, BEGIN+27, BEGIN+28, BEGIN+31, BEGIN+36~ , BEGIN+40, BEGIN+41, BEGIN+42, BEGIN+44, BEGIN+54, BEGIN+55, BEGIN+57, BEGIN+62, BEGIN+63, BEGIN+64 , BEGIN+65, BEGIN+66, BEGIN+68, BEGIN+69, BEGIN+70, BEGIN+71, BEGIN+72, BEGIN+73, BEGIN+74, BEGIN+75* , BEGIN+76, BEGIN+77, BEGIN+78, BEGIN+79, BEGIN+80, BEGIN+81, BEGIN+82, BEGIN+87, BEGIN+88, BEGIN+89 , BEGIN+124, BEGIN+125, BEGIN+126
Y	BEGIN+3~, BEGIN+126*, BEGIN+127, BEGIN+131
ZTDESC	ENTRY+3~, ENTRY+177, TASKINIT+4, TASKINIT+8, TASKINIT+10*, TASK+3, TASK+4
ZTSAVE	ENTRY+165~, ENTRY+177
ZTSAVE("AUTOSCROLL"	ENTRY+166*
ZTSAVE("CONSULTSERVICES("	ENTRY+176*
ZTSAVE("DIVISION"	ENTRY+168*
ZTSAVE("HOSTNAME"	ENTRY+167*
ZTSAVE("MAGIOM"	ENTRY+170*
ZTSAVE("MAGXTMP"	ENTRY+171*
ZTSAVE("MENUOPTION"	ENTRY+172*
ZTSAVE("OUTPUTEXCEL"	ENTRY+169*
ZTSAVE("QRSTACK"	ENTRY+175*
ZTSAVE("^TMP(	""MAG"", $J, ""BATCH Q/R"", " , ENTRY+173, ""MAG"", $J, ""Q/R PARAM"", " , ENTRY+174

Marked Items

Name	Field # of Occurrence
$T(	ENTRY+177

Customize PDF page

Package: Imaging