Routine: MAGDSTA4

Information

MAGDSTA4 ;WOIFO/PMK - Q/R Retrieve of DICOM images from PACS to VistA ; Mar 03, 2022@08:41:56

Call Graph

Call Graph Total: 2

Package	Total	Call Graph
Imaging	1	($$YESNO,CONTINUE)^MAGDSTQ
Kernel	1	$$FMTE^XLFDT

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

Package	Total	Caller Graph
Imaging	1	MAGDSTQA

Entry Points

Name	Comments	DBIA/ICR reference
RADLKUP(DFN,COUNT,FIRSTDAY,LASTDAY,FIRSTIEN,LASTIEN)	;
RARPT1	; get the radiology report ien - called by MAGDSTA1
RARPT1A	; get new value
RARPT1B(RARPTIEN,ACNUMB,DATE)	; get accession number and date from ^RARPT(RARPTIEN,0)

External References

Name	Field # of Occurrence
$$YESNO^MAGDSTQ	RARPT1+5, RARPT1A+28
CONTINUE^MAGDSTQ	RADLKUP+6, RADLKUP+32
$$FMTE^XLFDT	RADLKUP+24, RADLKUP+28, RARPT1B+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"* Patient does not have any radiology reports on file. *" Line Location: RADLKUP+5
Function Call: WRITE	Prompt: !!,"Patient has ",COUNT," radiology reports on file, from " Line Location: RADLKUP+23
Function Call: WRITE	Prompt: $$FMTE^XLFDT(FIRSTDAY,1)," to ",$$FMTE^XLFDT(LASTDAY,1) Line Location: RADLKUP+24
Function Call: WRITE	Prompt: !!,"Patient has just one radiology report in file for " Line Location: RADLKUP+27
Function Call: WRITE	Prompt: $$FMTE^XLFDT(FIRSTDAY,1) Line Location: RADLKUP+28
Function Call: WRITE	Prompt: !!,"* Patient does not have any radiology reports on file. *" Line Location: RADLKUP+31
Function Call: WRITE	Prompt: !!,"Scanning will start with radiology report # """,RARPT1,"""." Line Location: RARPT1+4
Function Call: WRITE	Prompt: !!,"The first radiology report is #",BEGPTR," (",ACNUMB,") entered on ",DATE,"." Line Location: RARPT1A+10
Function Call: WRITE	Prompt: !,"The last radiology report is #",ENDPTR," (",ACNUMB,") entered on ",DATE,"." Line Location: RARPT1A+14
Function Call: WRITE	Prompt: !!,"Enter the new value of the radiology report #: ",DEFAULT,"// " Line Location: RARPT1A+18
Function Call: READ	Variable: X Timeout: DTIME Line Location: RARPT1A+19
Function Call: WRITE	Prompt: X Line Location: RARPT1A+21
Function Call: WRITE	Prompt: !!,"Please enter a number between ",BEGPTR," and ",ENDPTR,"." Line Location: RARPT1A+23
Function Call: WRITE	Prompt: !!,"Radiology report #",NEWPTR," (",ACNUMB,") entered on ",DATE,"." Line Location: RARPT1A+27

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^RARPT - [#74]	RADLKUP+13, RARPT1B+2
^RARPT(" "	RARPT1A+12
^RARPT("C"	RADLKUP+3, RADLKUP+12
^RARPT(0	RARPT1A+8
^TMP("MAG"	RARPT1+2, RARPT1A+33*

Label References

Name	Line Occurrences
RARPT1A	RARPT1+6, RARPT1+8
RARPT1B	RARPT1A+9, RARPT1A+13, RARPT1A+26

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACNUMB	RARPT1A+4~, RARPT1A+9, RARPT1A+10, RARPT1A+13, RARPT1A+14, RARPT1A+26, RARPT1A+27, RARPT1B~, RARPT1B+3*
BEGPTR	RARPT1A+1~, RARPT1A+8*, RARPT1A+9, RARPT1A+10, RARPT1A+17, RARPT1A+22, RARPT1A+23
COUNT	RADLKUP~, RADLKUP+2, RADLKUP+19, RADLKUP+22, RADLKUP+23, RADLKUP+26
DATE	RARPT1A+5~, RARPT1A+9, RARPT1A+10, RARPT1A+13, RARPT1A+14, RARPT1A+26, RARPT1A+27, RARPT1A+33, RARPT1B~, RARPT1B+4*
>> DATETIME	RADLKUP+16*, RADLKUP+17, RADLKUP+18
DEFAULT	RARPT1A+6~, RARPT1A+17*, RARPT1A+18, RARPT1A+21, RARPT1A+29
DFN	RADLKUP~, RADLKUP+3, RADLKUP+12
DTIME	RARPT1A+19
ENDPTR	RARPT1A+3~, RARPT1A+12*, RARPT1A+13, RARPT1A+14, RARPT1A+17, RARPT1A+22, RARPT1A+23
FIRSTDAY	RADLKUP~, RADLKUP+2, RADLKUP+10, RADLKUP+17, RADLKUP+21, RADLKUP+24, RADLKUP+28
FIRSTIEN	RADLKUP~, RADLKUP+2, RADLKUP+17
LASTDAY	RADLKUP~, RADLKUP+2, RADLKUP+10, RADLKUP+18, RADLKUP+21, RADLKUP+24
LASTIEN	RADLKUP~, RADLKUP+2, RADLKUP+18
NEWPTR	RARPT1A+2~, RARPT1A+25*, RARPT1A+26, RARPT1A+27, RARPT1A+29, RARPT1A+32, RARPT1A+33
OK	RARPT1A+6~, RARPT1A+16, RARPT1A+19, RARPT1A+20, RARPT1A+28, RARPT1A+29*, RARPT1A+31, RARPT1A+34
>> QUIT	RARPT1+5, RARPT1A+31
RARPT0	RADLKUP+1~, RADLKUP+13, RADLKUP+14, RADLKUP+16, RARPT1B+1~, RARPT1B+2, RARPT1B+3, RARPT1B+4
RARPT1	RADLKUP+1~, RADLKUP+3, RADLKUP+4, RADLKUP+11, RADLKUP+12, RADLKUP+13, RADLKUP+17, RADLKUP+18, RARPT1+1~, RARPT1+2 , RARPT1+3, RARPT1+4, RARPT1+6*, RARPT1A+17, RARPT1A+32
RARPTIEN	RARPT1B~, RARPT1B+2
>> SORTORDER	RARPT1A+17
STATUS	RADLKUP+1~, RADLKUP+14*, RADLKUP+15
X	RARPT1+1~, RARPT1+5, RARPT1+6, RARPT1A+6~, RARPT1A+19, RARPT1A+20, RARPT1A+21, RARPT1A+22, RARPT1A+25, RARPT1A+28 , RARPT1A+29
Y	RARPT1B+1~
Z	RARPT1A+6~, RARPT1B+1~

Customize PDF page

Package: Imaging