Routine: GMTSULT2

Package	Total	Call Graph
Health Summary	5	($$ECHO,CLR)^GMTSULT (REO,SM)^GMTSULT3 Y^GMTSULT6 B^GMTSULT7 $$EN^GMTSUMX
VA Fileman	1	^DIM

Package	Total	Caller Graph
Health Summary	4	GMTSULT GMTSULT3 GMTSULT5 GMTSULT7

Entry Points

Name	Comments	DBIA/ICR reference
TMP	; Show first ^TMP Global
CM(X)	; Get Number of Components
PAR	; Parse User Input
IF(X)	; Internal Entry Number Flag
UP(X)	; Uppercase
FNDQ	; Find Quit
BI(X)	; Use the B Index flag
IENS(X)	; Internal Entry Number Save
EMO(X)	; Exact match flag, only one
OW(X)	; Mix Case (owner name)
IENF(X)	; Internal Entry Number Find
EMQ(X)	; Exact match flag
FND	; Find Health Summary Types (word search)
LIST(X)	; Get global array of Health Summary Types ; ; LIST^GMTSULT2(<search string>) ; ; ^TMP("GMTSULT",$J,#) ; ; Piece 1 = Internal Entry Number (IEN) in file 142 ; Piece 2 = Health Summary Type Name ; Piece 3 = Health Summary Type Title ; Piece 4 = Health Summary Type Owner ; Piece 5 = Location Using Health Summary Type ; Piece 6 = Number of Components in Summary Type ; Piece 7 = Recommended Display Text (for ; selection or list box) ; ; List Builder can use variable DIC("S") and DIC(0) ; ; DIC("S") Screen out entries for selection/list ; ; Processes DIC(0) N, OE (combination),X or B ; ; Does not process DIC(0) components C or M. Cross ; reference suppression (C) is automatic in a multi- ; term lookup, and the use of multiple indexes is ; implied in the lookup and DD file structure. ;	ICR #2745 Status: Pending Usage: Supported
LQ	; Quit List
MX(X)	; Mix Case
EM(X)	; Exact Match when DIC(0) contains X
DICS(S,X,DA)	; Check DIC("S") Screen
TMP2	; Show second ^TMP Global

External References

Name	Field # of Occurrence
^DIM	DICS+2
$$ECHO^GMTSULT	FND+3
CLR^GMTSULT	LIST+26, FND+5
REO^GMTSULT3	LIST+32, IENS+2
SM^GMTSULT3	FND+17, IENS+2
Y^GMTSULT6	EM+6
B^GMTSULT7	LIST+31
$$EN^GMTSUMX	OW+1, OW+2, MX+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Condition for execution: GMTSC=1 Line Location: TMP+4
Function Call: WRITE	Prompt: !,GMTSNQ,"=",GMTSND Line Location: TMP+4
Function Call: WRITE	Prompt: !,GMTSNQ,"=",GMTSND Line Location: TMP2+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^GMT(142 - [#142]	FND+13, FND+15, IENF+2, IENF+3, IENS+1, CM+1, CM+2, EM+3, EM+4, EM+5 , DICS+2, IF+2, IF+3
^TMP("GMTSULT"	LIST+30
^TMP("GMTSULT2"	FND+6, FND+19, FND+20, FND+21, FND+22!

Label References

Name	Line Occurrences
$$BI	LIST+27
$$EM	FND+5
$$EMO	LIST+27
$$EMQ	LIST+27
$$IENF	LIST+30
$$IF	LIST+27
$$UP	PAR+5, EM+2, EM+5
FND	LIST+32
FNDQ	FND+5, FND+11
IENS	LIST+30
LQ	LIST+30, LIST+31
PAR	LIST+32

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	DICS~, DICS+1, DICS+2
>> DIC("S"	LIST+28
>> DIC(0	LIST+29, IENF+1, EMQ+1, EMO+1, BI+1, IF+1
GMTS0	IENF+1~, IENF+2, EMQ+1~, EMQ+2, EMO+1~, EMO+2, BI+1~, BI+2, IF+1~*, IF+3
GMTSASM	FND+1~
GMTSB	FND+1~, FND+20*, FND+22
GMTSBI	LIST+26~, LIST+27*, LIST+31
GMTSC	FND+1~, FND+14, PAR+1~, PAR+2, PAR+4, CM+2~, CM+3, EM+1~, EM+2, EM+3 , TMP+1~, TMP+2, TMP+4, TMP+5, TMP2+1, TMP2+3*, TMP2+4
GMTSCMP	FND+1~
GMTSCT	PAR+1~, PAR+2, PAR+5
GMTSCTL	FND+1~, FND+11*, FND+12, FND+13
GMTSD0	LIST+26~, LIST+29*, LQ+1, FND+1~, FNDQ+1
GMTSDIC0	LIST+29*, LQ+1!, FND+5, FND+8, FNDQ+1!
GMTSDICS	LIST+28, LQ+1!, FNDQ+1!, DICS+1~, DICS+3
GMTSDS	LIST+26~, LIST+28*, LQ+1, FND+1~, FNDQ+1
GMTSE	FND+3~*
GMTSEO	LIST+26~, LIST+27*
GMTSEQ	LIST+26~, LIST+27*
GMTSFND	FND+1~
GMTSI	FND+1~, FND+19, FND+20, FND+21, FND+22, IENF+1~, IENF+2, IENF+3, CM+2~, EM+1~ , EM+4, EM+5, IF+1~, IF+2, IF+3*, IF+4
GMTSI1	FND+1~, FND+14, FND+15, FND+16, IENS+1~*
GMTSI2	FND+1~, IENS+1~
GMTSI3	FND+1~, IENS+1~
GMTSIEN	LIST+26~, LIST+30, FND+16~, IENS+1~, DICS+1~, DICS+2
GMTSIF	LIST+26~, LIST+27, LIST+30, FND+3
GMTSKWRD	FND+16~*
GMTSLEX	FND+1~, FND+5*, FND+6
GMTSLEXM	FND+1~, FND+8*
GMTSLOC	FND+1~
GMTSM	EM+1~, EM+2, EM+3, EM+4, EM+5, EM+6*
GMTSN	EM+1~, EM+5*
GMTSNAM	FND+1~
GMTSNC	TMP+1~, TMP+2, TMP+3, TMP2+1, TMP2+2
GMTSND	TMP+1~, TMP+4, TMP2+3
GMTSNQ	TMP+1~, TMP+2, TMP+3, TMP+4, TMP2+1, TMP2+2, TMP2+3
GMTSO	EM+1~, EM+2, EM+3, EM+4
GMTSOK	FND+1~
GMTSOW	FND+1~
GMTSOX	DICS+1~*, DICS+2
GMTSPSN	PAR+1~, PAR+2*, PAR+3, PAR+4
GMTSRC	FND+1~
GMTSRD	FND+1~
GMTST	DICS+1~, DICS+2*
GMTSTMP	FND+1~, FND+3, TMP+1~, TMP+2, TMP2+3
GMTSTR	PAR+1~, PAR+2*, PAR+3, PAR+4
GMTSTTL	FND+1~
GMTSU	EM+1~, EM+2*, EM+5
GMTSWDS	FND+1~, FND+10*
GMTSWRD	FND+1~, FND+10, FND+11, FND+12, FND+13, FND+15, FND+16, PAR+1~, PAR+3, PAR+4 , PAR+5
GMTSWRDS	LIST+26~, PAR+1!
GMTSWRDS(	PAR+5*
GMTSWRDS(" "	FND+10
GMTSWRDS(1	FND+10
S	DICS~, DICS+1
U	FND+3, PAR+2, EM+1*, EM+5
X	LIST~, LIST+27, LIST+30, FND+5, PAR+2, IENF~, IENF+1, IENF+2, IENF+3, IENS~ , IENS+1, CM~, CM+1, CM+2, CM+3, CM+4, EM~, EM+1, EM+2, EM+6* , EM+7, DICS~, DICS+1, DICS+2, DICS+3, EMQ~, EMQ+1, EMQ+2, EMO~, EMO+1 , EMO+2, BI~, BI+1, BI+2, IF~, IF+1, IF+2, IF+3, IF+4, UP~ , UP+1, OW~, OW+1, OW+2, MX~, MX+1
Y	FND+1~, DICS+1~, DICS+2

Customize PDF page

Package: Health Summary

Routine: GMTSULT2

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: