Routine: GMTSXPS1

Information

GMTSXPS1 ; SLC/KER - Health Summary Status ; 08/27/2002

Source Information

Source file <GMTSXPS1.m>

Call Graph

Call Graph Total: 8

Package	Total	Call Graph
Kernel	4	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD ($$FMTE,$$NOW)^XLFDT
Health Summary	2	INS^GMTSXPS2 STA^GMTSXPS3
MailMan	1	^XMD
VA Fileman	1	$$GET1^DIQ

Caller Graph

Caller Graph Total: 4

Package	Total	Caller Graph
Health Summary	4	GMTSP65 GMTSPI63 GMTSXPS2 GMTSXPS3

Entry Points

Name	Comments	DBIA/ICR reference
CONT	; Page/Form Feed
HDR	; Report Header
TITLE	; As of date
BL	; Blank Line
UP(X)	; Uppercase
NX(X)	; Next Line #
PA(X)	; Remove Parenthesis
MTBY	; Maintained by
NOQUE	; Do not que task
DEV	; Select a device
MX(X)	; Mixed Case
FI	; Health Summary Files
ST	; Show ^TMP($J,"GMTSINFO")
DISPLAY	; Display global array
INST(X)	; Institution
LO(X)	; Lowercase
LF	; Line Feed
TRIM(X)	; Trim Space Characters
ROK(X)	; Routine OK (in UCI) (NDBI)
ENV2(X)	; Environment check
F14299	; Health Summary Parameter file 142.9
ASOF	; As of date
EN	; Display status only
DSP	; Display ^TMP($J,"GMTSINFO")
TT(X)	; Title Line
BK1	; Break Line
MAIL	; Mail global array in message
EDT(X)	; External Date Foramt
BLD	; Install Build
F1421	; Health Summary Component file 142.1
P(X)	; Person
CLR	; Clean up
UCI(X)	; UCI Format
F142	; Health Summary Type file 142
TB(X)	; Tab
NOW(X)	; Today's Date
DSPI	; Display installation information
SEND	; Send status to G.GMTS@DOMAIN.NAME
INAC	; In Account
DSPQ	; Quit Display
QUE	; Task queued to print user defaults
SENDTO	; Send (Tasked)
ENV(X)	; Environment check
OUTPUT	; Show global array (display or mail)
U(X)	; UCI where Health Summary is installed
TL(X)	; Text Line

External References

Name	Field # of Occurrence
^%ZIS	DEV+4
HOME^%ZIS	SEND+5, ENV+1, ENV2+1
^%ZISC	DEV+4, NOQUE+1
^%ZTLOAD	SEND+5, QUE+1
$$GET1^DIQ	INST+2
INS^GMTSXPS2	EN+3, SENDTO+2
STA^GMTSXPS3	F1421+11
$$FMTE^XLFDT	EDT+1
$$NOW^XLFDT	NOW+1
^XMD	MAIL+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,^TMP($J,"GMTSINFO",GMTSI) Line Location: DISPLAY+2
Function Call: WRITE	Prompt: @IOF Line Location: NOQUE+1
Function Call: WRITE	Prompt: !,"< Not queued, printing Health Summary Info >",! Condition for execution: IOST["P-" Line Location: NOQUE+1
Function Call: WRITE	Prompt: !,$S($D(ZTSK):"Request Queued",1:"Request Cancelled"),! Line Location: QUE+1
Function Call: WRITE	Prompt: !,"Health Summary Installation not found" Line Location: DSPI+1
Function Call: WRITE	Prompt: !,^TMP($J,"GMTSINFO",GMTSI) Line Location: DSPI+6
Function Call: READ	Timeout: 300 Variable: GMTSCONT Line Location: CONT+1
Function Call: WRITE	Prompt: @IOF Condition for execution: IOST["P-" Line Location: CONT+1
Function Call: WRITE	Prompt: !!,"Press <Return> to continue " Line Location: CONT+1
Function Call: WRITE	Prompt: !!," User (DUZ) not defined",! Line Location: ENV+1
Routine Call	%ZIS Line Location: SEND+5 ENV+1 ENV2+1
Routine Call	%ZIS Line Location: DEV+4

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DIC(4 - [#4]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("PROD"	U+2
^%ZOSF("TEST"	ROK+1
^%ZOSF("UCI"	U+1
^GMT(142 - [#142]	F142+2, F142+4, F142+7
^GMT(142.1 - [#142.1]	F1421+3, F1421+5
^GMT(142.99 - [#142.99]	F14299+2
^TMP($J	EN+2!, SEND+3!, DISPLAY+1, DISPLAY+2, MAIL+5!, BL+1, TL+1, BK1+1, NX+1, DSPI+1 , DSPI+3, DSPI+5, DSPI+6, CLR+1!
^VA(200 - [#200]	P+1, P+3, P+4, ENV+1, ENV2+1
^XMB("NETNAME"	INST+1
^XMB(1 - [#4.3]	INST+2

Label References

Name	Line Occurrences
$$EDT	NOW+1
$$ENV	EN+1
$$ENV2	SEND+1
$$MX	UCI+1
$$NOW	ASOF+1
$$NX	BL+1, TL+1, BK1+1
$$P	MTBY+1
$$PA	UCI+1
$$ROK	SEND+3
$$TB	ASOF+1, INAC+1, MTBY+1, BLD+1
$$TRIM	UCI+1
$$U	INAC+1
$$UCI	INAC+1
@(	NOQUE+1
ASOF	HDR+1
BL	HDR+1, TITLE+1, FI+5
BLD	HDR+1
CLR	OUTPUT+1
CONT	LF+1
DEV	DSP+1
DSP	OUTPUT+1
DSPQ	DSPI+3
F142	FI+5
F1421	FI+5
F14299	FI+5
FI	EN+3, SENDTO+2
HDR	EN+2, SENDTO+2
INAC	HDR+1
LF	DSPI+6
MAIL	OUTPUT+1
MTBY	HDR+1
NOQUE	DEV+5
OUTPUT	EN+3, SENDTO+2
QUE	DEV+4
TITLE	HDR+1
TL	ASOF+1, INAC+1, MTBY+1, BLD+1, FI+2, FI+3, FI+4, F142+3, F142+6, F142+8 , F1421+6, F1421+7, F1421+8, F1421+9, F1421+10, F14299+3, TT+1
TT	TITLE+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	DEV+1~
%Z	MAIL+5!
%ZIS	DEV+1~, DEV+3*
DIFROM	MAIL+1~
DUZ	P+1, P+2, ENV+1, ENV2+1
GMTSA	F142+1~, F142+4, F142+6, F142+7, F142+8, F1421+1~, F1421+5, F14299+1~, UCI+1~, UCI+2 , UCI+3
GMTSAC	F1421+1~, F1421+2, F1421+5, F1421+10
GMTSAP	F142+1~, F1421+1~, F1421+2, F1421+5, F1421+9
GMTSAT	F142+1~, F1421+1~, F1421+2, F1421+5, F1421+8
GMTSBK	TT+1~*
>> GMTSBLD	SEND+4, TITLE+1, BLD+1, MAIL+2
GMTSCONT	DSPI+4~, DSPI+5, DSPI+6, CONT+1
GMTSDUZ	P+2~, P+3, P+4
GMTSE	F1421+1~, F1421+2, F1421+4, F1421+7
GMTSENV	EN+1~, SEND+1~, SEND+3*
GMTSEOP	DSPI+4~*, LF+1
>> GMTSHORT	EN+3, SEND+4, SENDTO+2, FI+1
GMTSI	F142+1~, F142+2, F142+5, F142+7, F1421+1~, F1421+2, F1421+3, F1421+4, F1421+5, F14299+1~* , F14299+2, DISPLAY+1~, DISPLAY+2, DSPI+4~, DSPI+5, DSPI+6
>> GMTSIENS	SEND+2*, SEND+4
>> GMTSINST	SEND+4, HDR+1, TITLE+1, ASOF+1, MTBY+1, BLD+1, MAIL+2
GMTSL	F142+1~, F142+2, F142+3, F142+5, F142+7, F142+8, F1421+1~, F1421+2, F1421+4, F1421+6 , F14299+1~, F14299+2, F14299+3
GMTSLC	DSPI+4~, LF+1, CONT+1*
GMTSMAIL	EN+2!, SENDTO+1~*, OUTPUT+1
GMTSNC	ST+1~*, ST+2
GMTSNN	ST+1~, ST+2
GMTSNX	BL+1~, TL+1~, BK1+1~*
GMTSP	U+1~, U+2*, U+3
GMTSPH	P+2~, P+3*, P+4
GMTST	F142+1~, F142+2, F142+3, F142+5, F142+7, F142+8, F1421+1~, F1421+2, F1421+4, F1421+6 , F1421+10, F14299+1~, F14299+2, F14299+3, U+1~, UCI+1~, UCI+2*, UCI+3
GMTSU	U+1~*, U+2, U+3
IO	NOQUE+1, DSPI+2
IO("Q"	DEV+4, QUE+1!
IOF	NOQUE+1, DSPI+8, CONT+1
ION	DEV+3, DEV+4
IOP	DEV+1~
IOSL	DSPI+4
IOST	NOQUE+1, DSPI+1, DSPI+2, DSPI+8, LF+1, CONT+1
POP	EN+1~, SEND+1~, DEV+4
U	MAIL+1*
X	EN+2~, SEND+3~, SENDTO+2~, HDR+1~, TITLE+1~, ASOF+1~, INAC+1~, MTBY+1~, BLD+1~, FI+2~ , FI+3, FI+4, F142+1~, F142+3, F142+5, F142+6, F142+8, F1421+1~, F1421+2, F1421+6* , F1421+7, F1421+8, F1421+9, F1421+10, F14299+1~, F14299+3, U~, U+1, U+3, UCI~ , UCI+1, UCI+3, UCI+4, P~, P+1, P+4, INST~, INST+1, INST+2, INST+3 , TT~, TT+1, TL~, TL+1, NX~, NX+1, TB~, TB+1, TB+2, PA~ , PA+1, LO~, LO+1, UP~, UP+1, MX~, MX+1, TRIM~, TRIM+1, TRIM+2 , TRIM+3, NOW~, NOW+1, EDT~, EDT+1, ROK~, ROK+1*, ENV~, ENV2~
XCNP	MAIL+5!
XMDUZ	MAIL+4*, MAIL+5!
XMSCR	MAIL+5!
XMSUB	MAIL+1, MAIL+2, MAIL+5!
XMTEXT	MAIL+4*, MAIL+5!
XMY	MAIL+5!
XMY("G.GMTS@DOMAIN.NAME"	MAIL+3*, MAIL+5!
XMZ	MAIL+5!
Y	EN+2~, SEND+3~, SEND+5!, SENDTO+2~, MTBY+1~*, U+1, U+2
ZTDESC	SEND+5!, DEV+1~, DEV+2
ZTDTH	SEND+5!, DEV+1~, DEV+3
ZTIO	SEND+5!, DEV+1~, DEV+3, DEV+4*
ZTQUEUED	SEND+3~, SENDTO+1, DSPI+1, DSPI+7
ZTREQ	SEND+3~, SENDTO+1, DSPI+7
ZTRTN	SEND+3~, SEND+5!, DEV+1~, DEV+2, NOQUE+1
ZTSAVE	EN+2~, SEND+3~, DEV+1~
ZTSAVE("GMTSBLD"	SEND+4*
ZTSAVE("GMTSHORT"	SEND+4*
ZTSAVE("GMTSIENS"	SEND+4*
ZTSAVE("GMTSINST"	SEND+4*
ZTSAVE("^TMP($J,""GMTSINFO"","	DEV+3*
ZTSK	SEND+5!, DEV+1~, QUE+1

Customize PDF page

Package: Health Summary

Routine: GMTSXPS1

Call Graph Total: 8

Caller Graph Total: 4