Routine: MAGIP163

Package	Total	Call Graph
Kernel	3	GETENV^%ZOSV ($$FMADD,$$FMTE,$$NOW)^XLFDT BMES^XPDUTL
Imaging	2	INS^MAGQBUT4 $$ISIHS^MAGSPID
MailMan	1	KILL^XM
VA FileMan	1	^DIR

Entry Points

Name	Comments	DBIA/ICR reference
PRE	;PRECHECK
MAKEBKUP(TKID)	;make last MAG INDEX backup before install
POST	;POSTINSTALL
POS	;
ERR	;error handler
CHKSTA	;verify current site status w/ National
RECOVER	;Call restore old value, in case of error

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Restore Code: "_TKID,! Line Location: PRE+8
Function Call: WRITE	Prompt: !,"backup" Line Location: MAKEBKUP+2
Function Call: WRITE	Prompt: "*" Line Location: MAKEBKUP+3
Function Call: WRITE	Prompt: ! Line Location: MAKEBKUP+5
Function Call: WRITE	Prompt: ^MAG(IN,0),! Line Location: RECOVER+3
Routine Call	DIR Line Location: PRE+4

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("ERRTN"	ERR+4
^%ZOSF("TRAP"	PRE+6
^DD(	POS+7, POS+8, POS+9, POS+24, POS+27*
^MAG(	MAKEBKUP+3, CHKSTA+3, CHKSTA+5, CHKSTA+8, CHKSTA+10, RECOVER+3, RECOVER+4, RECOVER+5!*
^MAG(2005.83 - [#2005.83]	POS+5, POS+12
^MAG(2005.84 - [#2005.84]	POS+6, POS+23
^MAG(2005.85 - [#2005.85]	POS+13, POS+14, POS+15, POS+16, POS+17, POS+18, POS+19, POS+20
^TMP(	PRE+5!, PRE+9, MAKEBKUP+5, POS+3, CHKSTA+2, CHKSTA+3, CHKSTA+7, CHKSTA+8
^XTMP(	MAKEBKUP+3, MAKEBKUP+4, MAKEBKUP+5
^XTMP("MAG INDEX TERMS BACKUP"	ERR+2, RECOVER+4, RECOVER+5

Name	Field # of Occurrence
^(0	POS+5, POS+6, POS+8, POS+9, POS+12, POS+23

Name	Field # of Occurrence
CNT	POS+1~
COM	POS+1~
CT	POS+1~
D	POS+1~, POS+7, POS+8, POS+9, POS+24, POS+27
D0	POS+1~, POS+7, POS+8, POS+9, POS+24
D1	POS+1~
D2	POS+1~, POS+24, POS+25, POS+26*, POS+27
DG	POS+1~
DIC	POS+1~, POS+7, POS+8, POS+9, POS+24, POS+27
DICR	POS+1~
DIR	PRE+2~, POS+1~
DIR("A"	PRE+3*
DIR("B"	PRE+3*
DIR(0	PRE+3*
DIW	POS+1~
DUZ	POS+32, ERR+1
IEN	CHKSTA+1~, CHKSTA+2, CHKSTA+3, CHKSTA+5, CHKSTA+7*, CHKSTA+8, CHKSTA+10
IN	MAKEBKUP+1~, MAKEBKUP+3, POS+1~, POS+5, POS+6, POS+12, POS+23, CHKSTA+1~, CHKSTA+2, CHKSTA+3 , CHKSTA+5, CHKSTA+7, CHKSTA+8, CHKSTA+10, RECOVER+2~, RECOVER+3, RECOVER+4, RECOVER+5
IO(0	PRE+3, PRE+8, MAKEBKUP+2, MAKEBKUP+3, MAKEBKUP+5, RECOVER+3
MAGMSG	POS+1~
ST	POS+1~
STA	CHKSTA+1~, CHKSTA+3, CHKSTA+4, CHKSTA+8, CHKSTA+9
STO	CHKSTA+1~, CHKSTA+3, CHKSTA+5, CHKSTA+8, CHKSTA+10
SUB	PRE+2~, PRE+5, PRE+9, MAKEBKUP+5, POS+1~, POS+2, POS+3, CHKSTA+2, CHKSTA+3, CHKSTA+7 , CHKSTA+8
SUBJ	MAKEBKUP+1~, MAKEBKUP+2*, MAKEBKUP+3, MAKEBKUP+4, MAKEBKUP+5
TKID	PRE+2~, PRE+7, PRE+8, PRE+9, MAKEBKUP~, MAKEBKUP+3, MAKEBKUP+5, POS+1~, POS+3, ERR+2 , RECOVER+1, RECOVER+4, RECOVER+5
U	MAKEBKUP+4, POS+7, POS+8, POS+9, POS+24, POS+27, CHKSTA+3, CHKSTA+5, CHKSTA+8, CHKSTA+10
X	PRE+2~, PRE+6, MAKEBKUP+1~, MAKEBKUP+4
X0	MAKEBKUP+1~, MAKEBKUP+4*
X1	MAKEBKUP+1~
XMERR	POS+1~
XMID	POS+1~
XMSUB	POS+1~
XMY	POS+1~
XMZ	POS+1~
>> XPDA	POS+32
>> XPDABORT	PRE+4, ERR+3
>> XPDNM	POS+32
Y	PRE+2~, PRE+4, POS+1~