Routine: GMTSULT2

Information

GMTSULT2 ; SLC/KER - HS Type Lookup (Search/List) ; 08/27/2002

Name	Comments	DBIA/ICR reference
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
FND	; Find Health Summary Types (word search)
FNDQ	; Find Quit
PAR	; Parse User Input
IENF(X)	; Internal Entry Number Find
IENS(X)	; Internal Entry Number Save
CM(X)	; Get Number of Components
EM(X)	; Exact Match when DIC(0) contains X
DICS(S,X,DA)	; Check DIC("S") Screen
EMQ(X)	; Exact match flag
EMO(X)	; Exact match flag, only one
BI(X)	; Use the B Index flag
IF(X)	; Internal Entry Number Flag
TMP	; Show first ^TMP Global
TMP2	; Show second ^TMP Global
UP(X)	; Uppercase
OW(X)	; Mix Case (owner name)
MX(X)	; Mix Case

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