Routine: GMTSULT

Information

GMTSULT ; SLC/KER - HS Type Lookup ; 01/06/2003

Source file <GMTSULT.m>

Name	Comments	DBIA/ICR reference
EN	; Lookup (general)
ADD	; Add Health Summary Type
DA(X)	; Get IEN
ET(T)	; Error Text
BL	; Blank Line
MSG()	; Message
ASKA(X)	; Ask if adding
N(X)	; Number of Types
SI	; Set Indexes
KI	; Kill Indexes
MS	; Merge Set
MK	; Merge Kill
TYPE(GMTSI)	; Get Health Summary Type ; Needs DIC(0)
XIEN(X)	; Is X in a Y or `IEN format Quit +IEN
LD	; Load DIC Variables
EOK(X)	; Edit OK
EST(X)	; Edit Health Summary Type (other than Adhoc)
HST(X)	; Health Summary Type
DHST(X)	; Delete Health Summary Type
AHST(X)	; Add Health Summary Type
ADH(X)	; Adhoc
REM(X)	; Remote Adhoc
DICHK	; Check DIC variables
RD	; Restore DIC Variables
ECHO(X)	; Echo Results (writes/reads)
SDISV(Y)	; Set DISV (IEN)
RDISV(X)	; Read DISV
ROK(X)	; Routine OK
CLR	; Kill ^TMP("GMTS*
CLEAN	; Kill ^TMP("GMTSULT2")

Name	Line Occurrences
Function Call: WRITE	Prompt: " ??" Line Location: EN+14
Function Call: WRITE	Prompt: GMTSLERR Condition for execution: $L($G(GMTSLERR)) Line Location: EN+18
Function Call: WRITE	Prompt: ! Line Location: EN+18
Function Call: WRITE	Prompt: !!," Undefined/Invalid User",! Line Location: ADD+3
Function Call: WRITE	Prompt: !!," Terminated Users may not add a Health Summary",! Line Location: ADD+6
Function Call: WRITE	Prompt: ?5 Line Location: ET+3
Function Call: WRITE	Prompt: !,?5 Line Location: BL+1
Function Call: WRITE	Prompt: ! Line Location: ASKA+4
Function Call: WRITE	Prompt: !,GMTSC,?60,X,?70,DA Line Location: KI+4

FileNo	Call Tags
^GMT(142 - [#142]	Classic Fileman Calls, RECALL^DILFD
^VA(200 - [#200]	GET1^DIQ