Routine: MAGIP155

Package	Total	Call Graph
Kernel	4	GETENV^%ZOSV ($$FMADD,$$FMTE,$$NOW)^XLFDT BMES^XPDUTL $$KSP^XUPARAM
Imaging	2	INS^MAGQBUT4 $$ISIHS^MAGSPID
MailMan	2	KILL^XM SENDMSG^XMXAPI
VA FileMan	2	$$GET1^DIQ ^DIR

Entry Points

Name	Comments	DBIA/ICR reference
PRE	;PRECHECK
MAKEBKUP(TKID)	;make last known backup
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

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("ERRTN"	ERR+4
^%ZOSF("TRAP"	PRE+6
^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+7
^MAG(2005.85 - [#2005.85]	POS+8, POS+9, POS+10, POS+11, POS+12, POS+13, POS+14, POS+15
^TMP(	PRE+5!, PRE+9, MAKEBKUP+5, POS+3, POS+38!, CHKSTA+2, CHKSTA+3, CHKSTA+7, CHKSTA+8
^TMP("XMERR"	POS+33
^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+7

Name	Field # of Occurrence
CNT	POS+1~, POS+19, POS+20, POS+21, POS+23, POS+24, POS+25, POS+26*
COM	POS+1~
CT	POS+1~, POS+22*, POS+23
D	POS+1~
D0	POS+1~
D1	POS+1~
D2	POS+1~
DG	POS+1~
DIC	POS+1~
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+26, POS+28, POS+37, 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+7, 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
>> MAGDUZ	POS+30
MAGMSG	POS+1~
MAGMSG(	POS+19, POS+20, POS+21, POS+23, POS+24, POS+25, POS+26*
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, POS+38, 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, POS+25 , ERR+2, RECOVER+1, RECOVER+4, RECOVER+5
U	MAKEBKUP+4, 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~, POS+33*
XMID	POS+1~, POS+28*, POS+32
XMSUB	POS+1~, POS+27, POS+31, POS+32
XMY	POS+1~, POS+32
XMY(	POS+28, POS+30
XMY("G.MAG SE	RVER" , POS+29*
XMZ	POS+1~, POS+32
>> XPDA	POS+37
>> XPDABORT	PRE+4, ERR+3
>> XPDNM	POS+21, POS+37
Y	PRE+2~, PRE+4, POS+1~, POS+24