Routine: GMTSOBU

Package	Total	Call Graph
Health Summary	1	$$EN2^GMTSUMX
Kernel	1	$$UP^XLFSTR
Registration	1	$$SITE^VASITE
VA Fileman	1	^DIR

Package	Total	Caller Graph
Health Summary	1	GMTSOBI

Entry Points

Name	Comments	DBIA/ICR reference
YNH	; Yes No Help
EDN(X)	; Edit Health Summary Type Name
NN(X)	; New Name
TX(R,T,L)	; Get Text (Routine/Tag/Line)
REN	; Rename Health Summary Type
OIEN(X)	; Object IEN
CKT(X)	; Check New Title is Unique
ROK(X)	; Routine Ok
DEL(X)	; Delete Routine X
LNH	; Length Help
EDT(X,Y)	; Edit Health Summary Type Title
TWX(X)	; Get HS Title IEN from Word Index
WER2	; Write Error Text
NWX(X)	; Get HS Name IEN from Word Index
EHST(X)	; Existing Health Summary Type
TIEN(X)	; Type IEN
WER	; Write Error
BOX(X)	; Get HS Object IEN from B Index
ER1	; Health Summary Object Exist
ER2	; Health Summary Type Exist
ER3	; Health Summary Title Exist
TRIM(X)	; Trim Spaces
CKN(X)	; Check New Name is Unique

External References

Name	Field # of Occurrence
^DIR	EHST+16, REN+5, EDN+8, EDT+8
$$EN2^GMTSUMX	EDT+2, EDT+3
$$SITE^VASITE	OIEN+1
$$UP^XLFSTR	BOX+3, NWX+1, NWX+3, TWX+1, TWX+3, TRIM+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !," Error:" Line Location: WER+1
Function Call: WRITE	Prompt: ! Line Location: EHST+5
Function Call: WRITE	Prompt: ! Line Location: EHST+16
Function Call: WRITE	Prompt: ! Line Location: REN+5
Function Call: WRITE	Prompt: !," Enter either 'Y' or 'N'." Line Location: YNH+1
Function Call: WRITE	Prompt: !," This response must have at least 3 characters and no more than 30" Line Location: LNH+1
Function Call: WRITE	Prompt: !," characters and must not contain embedded uparrow." Line Location: LNH+2
Routine Call	DIR Line Location: EHST+16 REN+5 EDN+8 EDT+8

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("DEL"	DEL+1
^GMT(142 - [#142]	TIEN+2, TIEN+3, NWX+2, NWX+3, TWX+2, TWX+3
^GMT(142.5 - [#142.5]	OIEN+2, BOX+2, BOX+3

Label References

Name	Line Occurrences
$$EDN	REN+6
$$EDT	REN+7
$$NN	EDN+4, EDT+4
$$NWX	EHST+7, EDN+4, CKN+1
$$ROK	DEL+1
$$TIEN	EHST+21
$$TRIM	WER2+1, WER2+2, WER2+3, EHST+9, EHST+10, EHST+11, EHST+12, EHST+13, EHST+14, EHST+15 , EDN+4, EDT+4, NN+5, NN+7
$$TWX	EDT+4, CKT+1
$$TX	EHST+3
REN	EHST+21
WER	ER1+1, ER2+1, ER3+1
WER2	EHST+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DIR	EHST+2~, REN+1~, EDN+1~, EDT+1~
DIR("?"	EHST+16, REN+4, EDN+7, EDT+7
DIR("??"	EHST+16, REN+4, EDN+7, EDT+7
DIR("A"	EHST+11, EHST+15, REN+2, EDN+3, EDT+5*
DIR("B"	EHST+16, REN+3, EDN+5, EDT+5
DIR(0	EHST+16, REN+3, EDN+6, EDT+6
DIROUT	EHST+2~, REN+1~, EDN+1~, EDT+1~
DTOUT	EHST+2~, REN+1~, EDN+1~, EDT+1~
DUOUT	EHST+2~, REN+1~, EDN+1~, EDT+1~
GMTS	EHST+1~, EHST+17*, EHST+19, EHST+24
>> GMTSDAT	EHST+21*, EHST+24
GMTSEDAT	EHST+1~, EHST+7, EHST+19, EHST+21, EHST+22, EHST+24
>> GMTSETTL	EHST+21, REN+1, REN+7
GMTSETYP	EHST+21, REN+1, REN+6, REN+7, EDN+1~, EDN+2, EDT+1~
GMTSEX	ROK+2~, TX+1~
GMTSI	TIEN+1~, TIEN+2, TIEN+3, BOX+1~, BOX+2, BOX+3, NWX+1~, NWX+2, NWX+3, TWX+1~ , TWX+2*, TWX+3
GMTSIEN	TIEN+1~, TIEN+3, TIEN+4, OIEN+1~, OIEN+2*, OIEN+3
GMTSIT	OIEN+1~*, OIEN+2
GMTSLN	ER1+1~, ER2+1~, ER3+1~, WER2+1, WER2+2, WER2+3, EHST+1~, EHST+9, EHST+10, EHST+11 , EHST+12, EHST+13, EHST+14, EHST+15*
GMTSN	BOX+1~, BOX+2, BOX+3, NWX+1~, NWX+2, NWX+3, TWX+1~*, TWX+2, TWX+3
GMTSNA	REN+1~, EDN+1~, EDT+1~
GMTSNI	NN+1~, NN+2, NN+4, NN+6, NN+7
GMTSNN	REN+1~, EDN+1~, EDN+4, EDN+5, NN+1~, NN+2, NN+3, NN+4
GMTSNS	NN+1~, NN+3, NN+4, NN+5, NN+6, NN+7
GMTSNT	REN+1~, EDT+1~, EDT+3, EDT+4, EDT+5
GMTSO	BOX+1~, BOX+2, BOX+3, BOX+4
GMTSOBJ	ER1+1, ER2+1, ER3+1, EHST+1~, EHST+3*, EHST+4
GMTSON	EDN+1~, EDN+2*, EDN+3, EDN+4
GMTSOT	EDT+1~, EDT+2*, EDT+3
>> GMTSQIT	ER1+1, ER2+1, ER3+1, EHST+17, EHST+19, EHST+22, EHST+24*
GMTSRTN	EHST+1~, EHST+3*
GMTST	NWX+1~, NWX+2, NWX+3, NWX+4, TWX+1~, TWX+2, TWX+3, TWX+4
>> GMTSTE	EHST+24*
GMTSTT	EDT+1~, EDT+2*, EDT+3
>> GMTSTTL	ER3+1, EHST+21*, REN+7
GMTSTXT	ER1+1~, ER2+1~, ER3+1~, WER2+1, WER2+2, WER2+3, EHST+1~, EHST+5, EHST+6, EHST+8 , EHST+9, EHST+11, EHST+12*, EHST+13, EHST+15, ROK+2~, TX+1~
GMTSTY	EDT+1~, EDT+2*
GMTSTYP	ER2+1, ER3+1, EHST+1~, EHST+3, EHST+4, EHST+5, EHST+7, EHST+8, EHST+21, EHST+24 , REN+6
GMTSW	NWX+1~, NWX+2, TWX+1~, TWX+2
GMTSX	BOX+1~, BOX+3, NWX+1~, NWX+3, TWX+1~, TWX+3*
L	TX~, TX+1
R	TX~, TX+1
T	TX~, TX+1
X	EHST~, EHST+17, EHST+19, EHST+22, EHST+24, EHST+25, REN+1~, EDN~, EDN+2, EDN+8 , EDN+9, EDT~, EDT+2, EDT+8, EDT+9, CKN~, CKN+1, CKT~, CKT+1, TIEN~ , TIEN+4, OIEN~, OIEN+3, OIEN+4, BOX~, BOX+1, BOX+4, BOX+5, NWX~, NWX+1 , NWX+4, NWX+5, TWX~, TWX+1, TWX+4, TWX+5, NN~, NN+2, NN+7, NN+8 , DEL~, DEL+1, ROK~, ROK+1, ROK+2, TX+1, TX+2, TRIM~, TRIM+1, TRIM+2 , TRIM+3*, TRIM+4
Y	EHST+2~, EHST+17, REN+1~, REN+5, EDN+1~, EDN+8, EDT~, EDT+2, EDT+8

Customize PDF page

Package: Health Summary

Routine: GMTSOBU

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: