SR67NTEG ;ISC/XTSUMBLD KERNEL - Checksum checker/Post-install for SR*3*67 ; [ 04/30/97 12:11 PM ]
;;3.0; Surgery ;**67**;24 Jun 93
;;7.3;April 30, 1997
S XT4="I 1",X=$T(+3) W !!,"Checksum routine created on ",$P(X,";",4)," by KERNEL V",$P(X,";",3),!
CONT F XT1=1:1 S XT2=$T(ROU+XT1) Q:XT2="" S X=$P(XT2," ",1),XT3=$P(XT2,";",3) X XT4 I $T W !,X X ^%ZOSF("TEST") S:'$T XT3=0 X:XT3 ^%ZOSF("RSUM") W ?10,$S('XT3:"Routine not in UCI",XT3'=Y:"Calculated "_$C(7)_Y_", off by "_(Y-XT3),1:"ok")
;
K %1,%2,%3,X,Y,XT1,XT2,XT3,XT4 Q
POST ; post-install action for SR*3*67
; task install notification message
N SRD,SRNOW X ^%ZOSF("UCI") I Y'=^%ZOSF("PROD") Q
S SRD=^XMB("NETNAME") I $E(SRD,1,3)="ISC"!(SRD["ISC-")!(SRD["ISC.")!(SRD["FORUM")!(SRD["TST") Q
QUEUE ; queue install message
D NOW^%DTC S (SRNOW,ZTDTH)=$E(%,1,12),ZTRTN="MSG^SR67NTEG",ZTSAVE("SRNOW")=SRNOW,ZTDESC="Patch SR*3*67 Install Message",ZTIO="" D ^%ZTLOAD
Q
MSG ; send mail message to national database
H 20 S SRD=^XMB("NETNAME"),X=0 F S X=$O(^XPD(9.7,"B","SR*3.0*67",X)) Q:'X S SRDA=X
G:'$G(SRDA) END S Z=$G(^XPD(9.7,SRDA,1)),SRZ=$E($P(Z,"^"),1,12),SRY=SRNOW,SRZ=$$FMTE^XLFDT(SRZ),SRY=$$FMTE^XLFDT(SRY)
K SRMSG S SRMSG(1)="Patch SR*3*67 has been installed at "_SRD_"."
S SRMSG(2)="Start time: "_SRZ,SRMSG(3)="End time: "_SRY
S XMSUB="SR*3*67 Installed",XMDUZ=DUZ
S XMY("G.SR-INSTALL@ISC-BIRM.DOMAIN.EXT")=""
S XMTEXT="SRMSG(" D ^XMD
QR ; queue quarterly report for second quarter of FY97
S X=0 F S X=$O(^SRO(133,X)) Q:'X S $P(^SRO(133,X,0),"^",18)="19971"
I DT<2970516 G END
S SRSTART=2970101,SREND=2970331,SRFLG=1,SRT=1 D EN^SROQT
END S ZTREQ="@"
Q
ONE S XT4="I $D(^UTILITY($J,X))",X=$T(+3) W !!,"Checksum routine created on ",$P(X,";",4)," by KERNEL V",$P(X,";",3),!
W !,"Check a subset of routines:" K ^UTILITY($J) X ^%ZOSF("RSEL")
W ! G CONT
ROU ;;
SROAMAN ;;10732363
SROANIN ;;4346480
SROAOP ;;11423846
SROERR ;;13316369
SROERR0 ;;3823905
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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSR67NTEG 2466 printed Apr 09, 2024@21:43:31 Page 2
SR67NTEG ;ISC/XTSUMBLD KERNEL - Checksum checker/Post-install for SR*3*67 ; [ 04/30/97 12:11 PM ]
+1 ;;3.0; Surgery ;**67**;24 Jun 93
+2 ;;7.3;April 30, 1997
+3 SET XT4="I 1"
SET X=$TEXT(+3)
WRITE !!,"Checksum routine created on ",$PIECE(X,";",4)," by KERNEL V",$PIECE(X,";",3),!
CONT FOR XT1=1:1
SET XT2=$TEXT(ROU+XT1)
if XT2=""
QUIT
SET X=$PIECE(XT2," ",1)
SET XT3=$PIECE(XT2,";",3)
XECUTE XT4
IF $TEST
WRITE !,X
XECUTE ^%ZOSF("TEST")
if '$TEST
SET XT3=0
if XT3
XECUTE ^%ZOSF("RSUM")
WRITE ?10,$SELECT('XT3:"Routine not in UCI",XT3'=Y:"Calculated "_$CHAR(7)_Y_", off by "_(Y-XT3),1:"ok")
+1 ;
+2 KILL %1,%2,%3,X,Y,XT1,XT2,XT3,XT4
QUIT
POST ; post-install action for SR*3*67
+1 ; task install notification message
+2 NEW SRD,SRNOW
XECUTE ^%ZOSF("UCI")
IF Y'=^%ZOSF("PROD")
QUIT
+3 SET SRD=^XMB("NETNAME")
IF $EXTRACT(SRD,1,3)="ISC"!(SRD["ISC-")!(SRD["ISC.")!(SRD["FORUM")!(SRD["TST")
QUIT
QUEUE ; queue install message
+1 DO NOW^%DTC
SET (SRNOW,ZTDTH)=$EXTRACT(%,1,12)
SET ZTRTN="MSG^SR67NTEG"
SET ZTSAVE("SRNOW")=SRNOW
SET ZTDESC="Patch SR*3*67 Install Message"
SET ZTIO=""
DO ^%ZTLOAD
+2 QUIT
MSG ; send mail message to national database
+1 HANG 20
SET SRD=^XMB("NETNAME")
SET X=0
FOR
SET X=$ORDER(^XPD(9.7,"B","SR*3.0*67",X))
if 'X
QUIT
SET SRDA=X
+2 if '$GET(SRDA)
GOTO END
SET Z=$GET(^XPD(9.7,SRDA,1))
SET SRZ=$EXTRACT($PIECE(Z,"^"),1,12)
SET SRY=SRNOW
SET SRZ=$$FMTE^XLFDT(SRZ)
SET SRY=$$FMTE^XLFDT(SRY)
+3 KILL SRMSG
SET SRMSG(1)="Patch SR*3*67 has been installed at "_SRD_"."
+4 SET SRMSG(2)="Start time: "_SRZ
SET SRMSG(3)="End time: "_SRY
+5 SET XMSUB="SR*3*67 Installed"
SET XMDUZ=DUZ
+6 SET XMY("G.SR-INSTALL@ISC-BIRM.DOMAIN.EXT")=""
+7 SET XMTEXT="SRMSG("
DO ^XMD
QR ; queue quarterly report for second quarter of FY97
+1 SET X=0
FOR
SET X=$ORDER(^SRO(133,X))
if 'X
QUIT
SET $PIECE(^SRO(133,X,0),"^",18)="19971"
+2 IF DT<2970516
GOTO END
+3 SET SRSTART=2970101
SET SREND=2970331
SET SRFLG=1
SET SRT=1
DO EN^SROQT
END SET ZTREQ="@"
+1 QUIT
ONE SET XT4="I $D(^UTILITY($J,X))"
SET X=$TEXT(+3)
WRITE !!,"Checksum routine created on ",$PIECE(X,";",4)," by KERNEL V",$PIECE(X,";",3),!
+1 WRITE !,"Check a subset of routines:"
KILL ^UTILITY($JOB)
XECUTE ^%ZOSF("RSEL")
+2 WRITE !
GOTO CONT
ROU ;;
SROAMAN ;;10732363
SROANIN ;;4346480
SROAOP ;;11423846
SROERR ;;13316369
SROERR0 ;;3823905
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
