PRSNTEG0 ;ISC/XTSUMBLD KERNEL - Package checksum checker ;2950922.134403
;;4.0;PAID;;Sep 21, 1995
;;7.3V5;2950922.134403
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
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 ;;
PRSDPR04 ;;10376550
PRSDPR05 ;;9056249
PRSDPR06 ;;12243616
PRSDPR07 ;;10123623
PRSDPR08 ;;12984025
PRSDPRIN ;;5124408
PRSDPRNT ;;3192947
PRSDPROC ;;9127564
PRSDPTYP ;;1820900
PRSDRPT ;;9515151
PRSDSERV ;;12920197
PRSDSET ;;4557983
PRSDSRC ;;10180339
PRSDSRC1 ;;7237187
PRSDSRC2 ;;6729387
PRSDSRP ;;11564257
PRSDSRP1 ;;5752540
PRSDSRP2 ;;9688760
PRSDSRP3 ;;4184347
PRSDSRS ;;10057777
PRSDSTAT ;;12706108
PRSDUTIL ;;11600620
PRSDV450 ;;8169233
PRSDV459 ;;11968865
PRSDVTBL ;;17687548
PRSDW450 ;;5877732
PRSDXREF ;;837590
PRSDYTD ;;6067724
PRSE ;;658463
PRSECAL ;;10923874
PRSEDEL ;;5780899
PRSEDEL1 ;;14732844
PRSEDESC ;;629815
PRSEED0 ;;18936199
PRSEED1 ;;18722471
PRSEED10 ;;15411781
PRSEED12 ;;21326941
PRSEED13 ;;17905239
PRSEED14 ;;19074363
PRSEED2 ;;11035087
PRSEED3 ;;4235837
PRSEED4 ;;18201446
PRSEED5 ;;9006607
PRSEED6 ;;16737764
PRSEED7 ;;9090273
PRSEED8 ;;18155658
PRSEED9 ;;11534377
PRSEEMP ;;18475913
PRSEEMP1 ;;20736910
PRSEEMP2 ;;5816372
PRSEKILL ;;5155972
PRSEMSG ;;6298587
PRSEPMC ;;11359804
PRSEPMD1 ;;1112371
PRSEPMD4 ;;9243091
PRSEPMD5 ;;9340731
PRSEPMD6 ;;4595909
PRSEPOL0 ;;6594077
PRSEPOL1 ;;7099353
PRSEPRG0 ;;4422374
PRSERSTR ;;12499513
PRSEUTL ;;12877412
PRSEUTL1 ;;11112934
PRSEUTL2 ;;17179426
PRSEUTL3 ;;8905762
PRSEUTL4 ;;13139355
PRSEUTL5 ;;4591639
PRSEUTL6 ;;5396946
PRSIKIL ;;1770086
PRSIPRE ;;1216145
PRSIPST ;;7286608
PRSIPST1 ;;1162735
PRSIPST2 ;;6554352
PRSRASOR ;;4039296
PRSRAU1 ;;14502424
PRSRAU11 ;;8488427
PRSREX1 ;;7698322
PRSREX11 ;;11706748
PRSRL1 ;;15355425
PRSRL11 ;;7069885
PRSRL12 ;;7560663
PRSRL2 ;;11631557
PRSRL21 ;;14565134
PRSRL4 ;;17913492
PRSRL41 ;;8781797
PRSRLL ;;3492456
PRSRLSOR ;;8310218
PRSROSOR ;;7085759
PRSROT1 ;;12576227
PRSROT11 ;;11558630
PRSRPSOR ;;8085363
PRSRTLPR ;;8848863
PRSRUT0 ;;6657202
PRSRUTL ;;3691610
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRSNTEG0 2585 printed Dec 13, 2024@02:27:40 Page 2
PRSNTEG0 ;ISC/XTSUMBLD KERNEL - Package checksum checker ;2950922.134403
+1 ;;4.0;PAID;;Sep 21, 1995
+2 ;;7.3V5;2950922.134403
+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
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 ;;
PRSDPR04 ;;10376550
PRSDPR05 ;;9056249
PRSDPR06 ;;12243616
PRSDPR07 ;;10123623
PRSDPR08 ;;12984025
PRSDPRIN ;;5124408
PRSDPRNT ;;3192947
PRSDPROC ;;9127564
PRSDPTYP ;;1820900
PRSDRPT ;;9515151
PRSDSERV ;;12920197
PRSDSET ;;4557983
PRSDSRC ;;10180339
PRSDSRC1 ;;7237187
PRSDSRC2 ;;6729387
PRSDSRP ;;11564257
PRSDSRP1 ;;5752540
PRSDSRP2 ;;9688760
PRSDSRP3 ;;4184347
PRSDSRS ;;10057777
PRSDSTAT ;;12706108
PRSDUTIL ;;11600620
PRSDV450 ;;8169233
PRSDV459 ;;11968865
PRSDVTBL ;;17687548
PRSDW450 ;;5877732
PRSDXREF ;;837590
PRSDYTD ;;6067724
PRSE ;;658463
PRSECAL ;;10923874
PRSEDEL ;;5780899
PRSEDEL1 ;;14732844
PRSEDESC ;;629815
PRSEED0 ;;18936199
PRSEED1 ;;18722471
PRSEED10 ;;15411781
PRSEED12 ;;21326941
PRSEED13 ;;17905239
PRSEED14 ;;19074363
PRSEED2 ;;11035087
PRSEED3 ;;4235837
PRSEED4 ;;18201446
PRSEED5 ;;9006607
PRSEED6 ;;16737764
PRSEED7 ;;9090273
PRSEED8 ;;18155658
PRSEED9 ;;11534377
PRSEEMP ;;18475913
PRSEEMP1 ;;20736910
PRSEEMP2 ;;5816372
PRSEKILL ;;5155972
PRSEMSG ;;6298587
PRSEPMC ;;11359804
PRSEPMD1 ;;1112371
PRSEPMD4 ;;9243091
PRSEPMD5 ;;9340731
PRSEPMD6 ;;4595909
PRSEPOL0 ;;6594077
PRSEPOL1 ;;7099353
PRSEPRG0 ;;4422374
PRSERSTR ;;12499513
PRSEUTL ;;12877412
PRSEUTL1 ;;11112934
PRSEUTL2 ;;17179426
PRSEUTL3 ;;8905762
PRSEUTL4 ;;13139355
PRSEUTL5 ;;4591639
PRSEUTL6 ;;5396946
PRSIKIL ;;1770086
PRSIPRE ;;1216145
PRSIPST ;;7286608
PRSIPST1 ;;1162735
PRSIPST2 ;;6554352
PRSRASOR ;;4039296
PRSRAU1 ;;14502424
PRSRAU11 ;;8488427
PRSREX1 ;;7698322
PRSREX11 ;;11706748
PRSRL1 ;;15355425
PRSRL11 ;;7069885
PRSRL12 ;;7560663
PRSRL2 ;;11631557
PRSRL21 ;;14565134
PRSRL4 ;;17913492
PRSRL41 ;;8781797
PRSRLL ;;3492456
PRSRLSOR ;;8310218
PRSROSOR ;;7085759
PRSROT1 ;;12576227
PRSROT11 ;;11558630
PRSRPSOR ;;8085363
PRSRTLPR ;;8848863
PRSRUT0 ;;6657202
PRSRUTL ;;3691610
