Routine: MAGDSTAX

Information

MAGDSTAX ;WOIFO/PMK - Display of CSV report for Excel ; Nov 08, 2022@13:48:26

Call Graph

Call Graph Total: 4

Package	Total	Call Graph
Imaging	3	$$LIST^MAGDSTA0 DISPLAY^MAGDSTA9 ($$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	MAGDSTAS

Entry Points

Name	Comments	DBIA/ICR reference
EXCELCSV(MYSERVICE,CSVLIST)	; output a CMP/RET comma-separated values report
SELECT()	; pick the study to output
DATE(I)	; return the date of the report
INFO(I)	;
COPY(I)	;
OUTPUT(I)	;

External References

Name	Field # of Occurrence
$$LIST^MAGDSTA0	EXCELCSV+3
DISPLAY^MAGDSTA9	INFO+2
$$YESNO^MAGDSTQ	EXCELCSV+14, SELECT+17, OUTPUT+17
CONTINUE^MAGDSTQ	EXCELCSV+22
$$FMTE^XLFDT	DATE+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Sorry, there are no run results in Excel *.CSV file format on file" Line Location: EXCELCSV+4
Function Call: WRITE	Prompt: !!,"Output run results in Excel *.CSV file format" Line Location: EXCELCSV+7
Function Call: WRITE	Prompt: " -- ",CSVLIST(0)," sets of results on file" Line Location: EXCELCSV+8
Function Call: WRITE	Prompt: ! Line Location: EXCELCSV+9
Function Call: WRITE	Prompt: !!,"There is just one CMP/RET CSV report for a run started ",DATE,! Line Location: EXCELCSV+12
Function Call: WRITE	Prompt: !,$J(I,3)," -- ",$$DATE(I) Line Location: SELECT+6
Function Call: WRITE	Prompt: " -- ",^TMP("MAG",$J,"BATCH Q/R","OPTION") Line Location: SELECT+7
Function Call: WRITE	Prompt: " -- ",^XTMP(CSVLIST(I),"REPORT",0)," records" Line Location: SELECT+8
Function Call: WRITE	Prompt: !!,"Enter report number 1-",N,": " Line Location: SELECT+10
Function Call: READ	Variable: J Timeout: DTIME Line Location: SELECT+11
Function Call: WRITE	Prompt: " ??? - Please enter an integer",! Line Location: SELECT+13
Function Call: WRITE	Prompt: " ??? Please enter an integer greater than zero",! Line Location: SELECT+14
Function Call: WRITE	Prompt: " ??? Please enter an integer no greater than ",N,! Line Location: SELECT+15
Function Call: WRITE	Prompt: !! Line Location: OUTPUT+2
Function Call: WRITE	Prompt: "=" Line Location: OUTPUT+2
Function Call: WRITE	Prompt: ! Line Location: OUTPUT+3
Function Call: WRITE	Prompt: !,"For best results, set the Reflection Workplace screen width to 512:" Line Location: OUTPUT+4
Function Call: WRITE	Prompt: !," Menu - File/Settings under Terminal Configuration 'Set Up Display Settings'" Line Location: OUTPUT+5
Function Call: WRITE	Prompt: !," Scroll down to 'Number of characters per row', enter 512, click 'OK'",! Line Location: OUTPUT+6
Function Call: WRITE	Prompt: !,"Specify the Logging output *.CSV file for Excel:" Line Location: OUTPUT+7
Function Call: WRITE	Prompt: !," Menu - Tools/Logging, unselect Printer, select Disk, and enter a path" Line Location: OUTPUT+8
Function Call: WRITE	Prompt: !," for the *.CSV file (ex. ...\Auto QR\Retrieve_2022-11-24.CSV), click 'OK'",! Line Location: OUTPUT+9
Function Call: WRITE	Prompt: !," *** Be sure to select a different .CVS file name for each run. **",! Line Location: OUTPUT+10
Function Call: WRITE	Prompt: !," Clicking on the *.CSV file will automatically launch Excel.",! Line Location: OUTPUT+11
Function Call: WRITE	Prompt: !,"Turn on Logging:" Line Location: OUTPUT+12
Function Call: WRITE	Prompt: !," Menu - Tools 'Start Logging'",! Line Location: OUTPUT+13
Function Call: WRITE	Prompt: !,"Turn off Logging:" Line Location: OUTPUT+14
Function Call: WRITE	Prompt: !," Menu - Tools 'Stop Logging'" Line Location: OUTPUT+15
Function Call: WRITE	Prompt: !! Line Location: OUTPUT+16
Function Call: WRITE	Prompt: "=" Line Location: OUTPUT+16
Function Call: WRITE	Prompt: ! Line Location: OUTPUT+17
Function Call: WRITE	Prompt: " -- output cancelled" Line Location: OUTPUT+18
Function Call: WRITE	Prompt: ! Line Location: OUTPUT+20
Function Call: WRITE	Prompt: ^(J),! Line Location: OUTPUT+21

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^TMP("MAG"	SELECT+7, COPY+1!, COPY+2*
^XTMP(	SELECT+8, COPY+2, OUTPUT+21

Label References

Name	Line Occurrences
$$DATE	EXCELCSV+11, SELECT+6
$$SELECT	EXCELCSV+18
COPY	SELECT+7, INFO+1
INFO	EXCELCSV+13, SELECT+16
OUTPUT	EXCELCSV+15, EXCELCSV+19

Naked Globals

Name	Field # of Occurrence
^(	OUTPUT+21

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CHOICE	SELECT+1~, SELECT+3, SELECT+4, SELECT+12, SELECT+18*, SELECT+20
CSVLIST	EXCELCSV~, EXCELCSV+3
CSVLIST(	SELECT+8, DATE+2, COPY+2, OUTPUT+19
CSVLIST(0	EXCELCSV+8, EXCELCSV+10, SELECT+2
DATE	EXCELCSV+1~, EXCELCSV+11*, EXCELCSV+12
DTIME	SELECT+11, OUTPUT+23
FMDT	DATE+1~, DATE+2*, DATE+3
I	EXCELCSV+1~, EXCELCSV+18, EXCELCSV+19, SELECT+1~, SELECT+5, SELECT+6, SELECT+7, SELECT+8, DATE~, DATE+2 , INFO~, INFO+1, COPY~, COPY+2, OUTPUT~, OUTPUT+19
IOM	OUTPUT+2, OUTPUT+16
J	SELECT+1~, SELECT+11, SELECT+12, SELECT+13, SELECT+14, SELECT+15, SELECT+16, SELECT+18, OUTPUT+1~, OUTPUT+2 , OUTPUT+16, OUTPUT+21
MYSERVICE	EXCELCSV~, EXCELCSV+3
N	SELECT+1~, SELECT+2*, SELECT+5, SELECT+10, SELECT+15
OUTPUT	EXCELCSV+1~, EXCELCSV+2, EXCELCSV+22, OUTPUT+24
OUTPUTCSV	OUTPUT+1~, OUTPUT+19*, OUTPUT+21
X	EXCELCSV+1~, EXCELCSV+14, EXCELCSV+15, SELECT+1~, SELECT+17, SELECT+18, OUTPUT+1~, OUTPUT+17, OUTPUT+18, OUTPUT+23*

Customize PDF page

Package: Imaging