Routine: SR67NTEG

Information

SR67NTEG ;ISC/XTSUMBLD KERNEL - Checksum checker/Post-install for SR*3*67 ; [ 04/30/97 12:11 PM ]

Source file <SR67NTEG.m>

Name	Comments	DBIA/ICR reference
CONT
POST	; post-install action for SR367 ; task install notification message
QUEUE	; queue install message
MSG	; send mail message to national database
QR	; queue quarterly report for second quarter of FY97
END
ONE
ROU	;;
SROAMAN	;;10732363
SROANIN	;;4346480
SROAOP	;;11423846
SROERR	;;13316369
SROERR0	;;3823905
SROMENU	;;8331686
SRONEW	;;13836962
SRONOP	;;15684243
SRONOP1	;;7266555
SROPDEL	;;10314081
SROQT	;;11758414
SROVER1	;;3582812
SROVAR	;;12870410
SRSCAN0	;;9502382
SRSCAN2	;;11457002
SRSCHC	;;6707139
SRSCHC1	;;9376968
SRSCHC2	;;1178878
SRSCHCC	;;7237294
SRSCHD2	;;7736772
SRSCHDC	;;14420991
SRSCHUN	;;12469080
SRSCHUN1	;;8264047
SRSCONR	;;11765761
SRSCRAP	;;6233987
SRSDT	;;6145753
SRSRQST	;;11840366
SRSRQST1	;;8766002
SRSUP1	;;16938759
SRSUPRQ	;;18261241
SRSUTL2	;;6000113

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Checksum routine created on ",$P(X,";",4)," by KERNEL V",$P(X,";",3),! Line Location: SR67NTEG+3
Function Call: WRITE	Prompt: ?10,$S('XT3:"Routine not in UCI",XT3'=Y:"Calculated "_$C(7)_Y_", off by "_(Y-XT3),1:"ok") Line Location: CONT+0
Function Call: WRITE	Prompt: !!,"Checksum routine created on ",$P(X,";",4)," by KERNEL V",$P(X,";",3),! Line Location: ONE+0
Function Call: WRITE	Prompt: !,"Check a subset of routines:" Line Location: ONE+1
Function Call: WRITE	Prompt: ! Line Location: ONE+2

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("PROD"	POST+2
^%ZOSF("RSEL"	ONE+1
^%ZOSF("RSUM"	CONT
^%ZOSF("TEST"	CONT
^%ZOSF("UCI"	POST+2
^SRO(133 - [#133]	QR+1*
^UTILITY($J	ONE+1!
^XMB("NETNAME"	POST+3, MSG+1
^XPD(9.7 - [#9.7]	MSG+1, MSG+2

Name	Line Occurrences
CONT	ONE+2
END	MSG+2, QR+2

Name	Field # of Occurrence
>> %	QUEUE+1
%1	CONT+2!
%2	CONT+2!
%3	CONT+2!
DT	QR+2
DUZ	MSG+5
SRD	POST+2~, POST+3, MSG+1, MSG+3
>> SRDA	MSG+1*, MSG+2
>> SREND	QR+3*
>> SRFLG	QR+3*
SRMSG	MSG+3!
SRMSG(1	MSG+3*
SRMSG(2	MSG+4*
SRMSG(3	MSG+4*
SRNOW	POST+2~, QUEUE+1*, MSG+2
>> SRSTART	QR+3*
>> SRT	QR+3*
>> SRY	MSG+2*, MSG+4
>> SRZ	MSG+2*, MSG+4
X	SR67NTEG+3, CONT, CONT+2!, MSG+1, QR+1, ONE*
>> XMDUZ	MSG+5*
>> XMSUB	MSG+5*
>> XMTEXT	MSG+7*
>> XMY("G.SR-INSTALL@ISC-BIRM.DOMAIN.EXT"	MSG+6*
XT1	CONT*, CONT+2!
XT2	CONT*, CONT+2!
XT3	CONT*, CONT+2!
XT4	SR67NTEG+3, CONT, CONT+2!, ONE
Y	CONT, CONT+2!, POST+2
>> Z	MSG+2*
>> ZTDESC	QUEUE+1*
>> ZTDTH	QUEUE+1*
>> ZTIO	QUEUE+1*
>> ZTREQ	END*
>> ZTRTN	QUEUE+1*
>> ZTSAVE("SRNOW"	QUEUE+1*

Name	Field # of Occurrence
$T(	SR67NTEG+3, ONE
$T(ROU+XT1	CONT