Routine: SR47UTL

Information

SR47UTL ;BIR/ADM-PRE & POST INIT FOR SR*3*47 ; [ 03/05/96 2:00 PM ]

Source file <SR47UTL.m>

Name	Comments	DBIA/ICR reference
PRE	; preinit action for SR347
POST	; postinit action for SR347 ; update completed assessments with PIMS info
TSK	; task install notification message
QMSG	; queue install message to national database
END
MSG	; send mail message to national database

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("PROD"	TSK+1
^%ZOSF("UCI"	TSK+1
^DD(130	PRE+5!, PRE+6!
^SRF - [#130]	POST+3, POST+4
^SRF("ARS"	POST+2
^SRO(136.5 - [#136.5]	PRE+1, PRE+2, PRE+3, PRE+4
^XMB("NETNAME"	TSK+2, MSG+1
^XPD(9.7 - [#9.7]	MSG+1, MSG+2

Name	Line Occurrences
END	TSK+1, TSK+2, MSG+2

Name	Field # of Occurrence
>> %	QMSG+1
DFN	POST+2*, END!
DUZ	MSG+5
>> I	PRE+4, POST+4
NOGO	POST+4*, POST+5, END!
SR	POST+4*, END!
SRD	TSK+2, END!, MSG+1, MSG+3
SRDA	END!, MSG+1*, MSG+2
SRMSG	END!, MSG+3!
SRMSG(1	MSG+3*
SRMSG(2	MSG+4*
SRMSG(3	MSG+4*
SRTN	POST+2*, POST+3, POST+4, END!
SRX	END!
SRY	END!, MSG+2*, MSG+4
SRZ	END!, MSG+2*, MSG+4
>> X	POST+4, MSG+1
XMDUZ	END!, MSG+5*
XMSUB	END!, MSG+5*
XMTEXT	END!, MSG+7*
XMY	END!
XMY("G.SRCOSERV@ISC-CHICAGO.DOMAIN.EXT"	MSG+6*
>> Y	TSK+1
>> Z	MSG+2*
>> ZTDESC	QMSG+1*
>> ZTDTH	QMSG+1*
>> ZTIO	QMSG+1*
>> ZTREQ	MSG+7*
>> ZTRTN	QMSG+1*