Routine: GMTSPI98

Entry Points

Name	Comments	DBIA/ICR reference
MSG(IEN)	;abort message to screen
PRE	;housekeeping
POST	;post
GMTSET	;reset ^GMT(142,0) to last low IEN
EXARRAY(MODE,ARRAY)	;List of exchange entries used by delete and install
INSTUB	; create stubs for REMOTE types
AWRITE(REF)	;Write all the descendants of the array reference.

Name	Field # of Occurrence
UPDATE^DIE	INSTUB+8, INSTUB+12
DELEXE^PXRMEXSI	PRE+1
SMEXINS^PXRMEXSI	POST+1
$$PATCH^XPDUTL	GMTSPI98+13
BMES^XPDUTL	GMTSPI98+11, GMTSPI98+17, GMTSPI98+20, GMTSPI98+24, GMTSPI98+25, MSG+1, MSG+6
MES^XPDUTL	MSG+2, MSG+3, MSG+4, MSG+5, MSG+7, AWRITE+20

Name	Line Occurrences (* Changed, ! Killed)
^GMT(142 - [#142]	GMTSPI98+15, GMTSPI98+16, GMTSPI98+22, GMTSET+2, GMTSET+4*, INSTUB+3, INSTUB+5, INSTUB+9

Name	Field # of Occurrence
ARRAY	EXARRAY~
ARRAY(	EXARRAY+6, EXARRAY+7, EXARRAY+8*
DONE	AWRITE+3~, AWRITE+12, AWRITE+13, AWRITE+19
FDA	INSTUB+4~
FDA(1	INSTUB+6, INSTUB+10
FLG18	GMTSPI98+12~, GMTSPI98+15, GMTSPI98+17, GMTSPI98+18
FLG19	GMTSPI98+12~, GMTSPI98+16, GMTSPI98+17, GMTSPI98+19
GMTSABRT	GMTSPI98+12~, GMTSPI98+18, GMTSPI98+19, GMTSPI98+20, GMTSPI98+23, GMTSPI98+24, GMTSPI98+25
GMTSRIEN	GMTSPI98+12~, GMTSPI98+21*, GMTSPI98+22, GMTSPI98+23
HSIEN	INSTUB+4~
HSIEN(1	INSTUB+7, INSTUB+11
IEN	MSG~, MSG+2, MSG+5, GMTSET+1~, GMTSET+2*, GMTSET+3
IND	AWRITE+3~, AWRITE+16*, AWRITE+17
LEN	AWRITE+3~, AWRITE+15*, AWRITE+16
LIEN	GMTSET+1~, GMTSET+3*, GMTSET+4
LN	EXARRAY+2~, EXARRAY+3, EXARRAY+5, EXARRAY+6, EXARRAY+7, EXARRAY+8, AWRITE+3~, AWRITE+5, AWRITE+17
MODE	EXARRAY~, EXARRAY+7, EXARRAY+8
MSG	INSTUB+4~, INSTUB+13
PROOT	AWRITE+3~, AWRITE+6*, AWRITE+17
REF	AWRITE~, AWRITE+4, AWRITE+6, AWRITE+8, AWRITE+10, AWRITE+11, AWRITE+13, AWRITE+14, AWRITE+15, AWRITE+16 , AWRITE+17, AWRITE+18, AWRITE+19
ROOT	AWRITE+3~, AWRITE+9*, AWRITE+11, AWRITE+14, AWRITE+19
START	AWRITE+3~, AWRITE+14*, AWRITE+16
TEMP	AWRITE+3~, AWRITE+8*, AWRITE+9
TEXT	AWRITE+3~, AWRITE+20
TEXT(	AWRITE+17*
U	GMTSET+4
>> XPDABORT	GMTSPI98+20, GMTSPI98+24