PRCANTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;SEP 19, 1995@07:50:48
;;0.0;
;;7.2;SEP 19, 1995@07:50:48
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")
G CONT^PRCANTE0
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 ;;
PRCAACC ;;4043366
PRCAADBO ;;7034078
PRCAADIN ;;8227592
PRCAAPR ;;8140887
PRCAAPR1 ;;11564152
PRCAATR ;;8783907
PRCABD ;;12291906
PRCABIL ;;5564563
PRCABIL1 ;;12422838
PRCABIL2 ;;7387356
PRCABIL3 ;;8121698
PRCABJ ;;6692362
PRCABJ1 ;;4663573
PRCABJV ;;5372708
PRCABP1 ;;16980544
PRCABP2 ;;18171823
PRCABPF ;;2946867
PRCACLM ;;10348676
PRCACM ;;12117368
PRCACOL ;;11033444
PRCACPV ;;7264265
PRCACV10 ;;5428098
PRCADCDJ ;;9619500
PRCADCJ1 ;;3167285
PRCADEL ;;5304005
PRCADIN ;;4845537
PRCADJ ;;10533524
PRCADR ;;9677108
PRCADR1 ;;11064839
PRCADR2 ;;7168312
PRCADR3 ;;9610774
PRCAEA ;;418637
PRCAEA1 ;;3517911
PRCAEIN ;;11764234
PRCAEOL ;;10518361
PRCAEXM ;;7481608
PRCAFBD ;;8294390
PRCAFBD1 ;;261027
PRCAFBDM ;;3222877
PRCAFBDU ;;10728645
PRCAFDCT ;;1379875
PRCAFN ;;7392695
PRCAFN1 ;;973771
PRCAFOR ;;1315459
PRCAFUT ;;7677086
PRCAFWO ;;3376487
PRCAG ;;13321013
PRCAGD ;;7990199
PRCAGDR ;;5054538
PRCAGDT ;;13912127
PRCAGF ;;9875365
PRCAGF1 ;;2876711
PRCAGP ;;4992125
PRCAGS ;;12982296
PRCAGST ;;5366761
PRCAGST1 ;;8964951
PRCAGST2 ;;2033418
PRCAGT ;;5306041
PRCAGU ;;5343760
PRCAHIS ;;12620784
PRCAHIS1 ;;1270244
PRCAHOL ;;4781886
PRCAI001 ;;10494501
PRCAI002 ;;10270191
PRCAI003 ;;10643856
PRCAI004 ;;5223325
PRCAI005 ;;10294153
PRCAI006 ;;9782997
PRCAI007 ;;9921433
PRCAI008 ;;7685656
PRCAI009 ;;8595920
PRCAI00A ;;1514956
PRCAI00B ;;10354031
PRCAI00C ;;10732944
PRCAI00D ;;10713175
PRCAI00E ;;9703211
PRCAI00F ;;2226181
PRCAI00G ;;8572946
PRCAI00H ;;7759041
PRCAI00I ;;5083256
PRCAI00J ;;1682048
PRCAI00K ;;6804588
PRCAI00L ;;11058467
PRCAI00M ;;12092172
PRCAI00N ;;12009282
PRCAI00O ;;11132794
PRCAI00P ;;10588558
PRCAI00Q ;;11870810
PRCAI00R ;;10563027
PRCAI00S ;;11709448
PRCAI00T ;;10733716
PRCAI00U ;;12043887
PRCAI00V ;;11209150
PRCAI00W ;;12055251
PRCAI00X ;;12174925
PRCAI00Y ;;10083230
PRCAI00Z ;;11734912
PRCAI010 ;;11753448
PRCAI011 ;;12423487
PRCAI012 ;;11161716
PRCAI013 ;;11937677
PRCAI014 ;;11274950
PRCAI015 ;;12191184
PRCAI016 ;;12316390
PRCAI017 ;;11848678
PRCAI018 ;;9793777
PRCAI019 ;;9067966
PRCAI01A ;;8871846
PRCAI01B ;;10973851
PRCAI01C ;;9544703
PRCAI01D ;;1329297
PRCAI01E ;;8149208
PRCAI01F ;;6405246
PRCAI01G ;;7699411
PRCAI01H ;;2271317
PRCAI01I ;;3458480
PRCAI01J ;;1308374
PRCAI01K ;;5188583
PRCAI01L ;;2982491
PRCAI01M ;;2777196
PRCAI01N ;;6471211
PRCAI01O ;;1330888
PRCAI01P ;;5671362
PRCAI01Q ;;5765023
PRCAI01R ;;985299
PRCAI01S ;;8843474
PRCAI01T ;;2981051
PRCAI01U ;;10391329
PRCAI01V ;;11193669
PRCAI01W ;;11423867
PRCAI01X ;;8911230
PRCAI01Y ;;9863908
PRCAI01Z ;;9048562
PRCAI020 ;;8483072
PRCAI021 ;;9763786
PRCAI022 ;;9708713
PRCAI023 ;;8723029
PRCAI024 ;;7678151
PRCAI025 ;;8154091
PRCAI026 ;;7528430
PRCAI027 ;;9113682
PRCAI028 ;;8796987
PRCAI029 ;;10356723
PRCAI02A ;;7361260
PRCAI02B ;;3016704
PRCAI02C ;;7563131
PRCAI02D ;;8426136
PRCAI02E ;;3979266
PRCAI02F ;;7202613
PRCAI02G ;;3340026
PRCAI02H ;;7455606
PRCAI02I ;;6439710
PRCAI02J ;;10255391
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRCANTEG 3769 printed Sep 23, 2025@19:16:33 Page 2
PRCANTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;SEP 19, 1995@07:50:48
+1 ;;0.0;
+2 ;;7.2;SEP 19, 1995@07:50:48
+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 GOTO CONT^PRCANTE0
+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 ;;
PRCAACC ;;4043366
PRCAADBO ;;7034078
PRCAADIN ;;8227592
PRCAAPR ;;8140887
PRCAAPR1 ;;11564152
PRCAATR ;;8783907
PRCABD ;;12291906
PRCABIL ;;5564563
PRCABIL1 ;;12422838
PRCABIL2 ;;7387356
PRCABIL3 ;;8121698
PRCABJ ;;6692362
PRCABJ1 ;;4663573
PRCABJV ;;5372708
PRCABP1 ;;16980544
PRCABP2 ;;18171823
PRCABPF ;;2946867
PRCACLM ;;10348676
PRCACM ;;12117368
PRCACOL ;;11033444
PRCACPV ;;7264265
PRCACV10 ;;5428098
PRCADCDJ ;;9619500
PRCADCJ1 ;;3167285
PRCADEL ;;5304005
PRCADIN ;;4845537
PRCADJ ;;10533524
PRCADR ;;9677108
PRCADR1 ;;11064839
PRCADR2 ;;7168312
PRCADR3 ;;9610774
PRCAEA ;;418637
PRCAEA1 ;;3517911
PRCAEIN ;;11764234
PRCAEOL ;;10518361
PRCAEXM ;;7481608
PRCAFBD ;;8294390
PRCAFBD1 ;;261027
PRCAFBDM ;;3222877
PRCAFBDU ;;10728645
PRCAFDCT ;;1379875
PRCAFN ;;7392695
PRCAFN1 ;;973771
PRCAFOR ;;1315459
PRCAFUT ;;7677086
PRCAFWO ;;3376487
PRCAG ;;13321013
PRCAGD ;;7990199
PRCAGDR ;;5054538
PRCAGDT ;;13912127
PRCAGF ;;9875365
PRCAGF1 ;;2876711
PRCAGP ;;4992125
PRCAGS ;;12982296
PRCAGST ;;5366761
PRCAGST1 ;;8964951
PRCAGST2 ;;2033418
PRCAGT ;;5306041
PRCAGU ;;5343760
PRCAHIS ;;12620784
PRCAHIS1 ;;1270244
PRCAHOL ;;4781886
PRCAI001 ;;10494501
PRCAI002 ;;10270191
PRCAI003 ;;10643856
PRCAI004 ;;5223325
PRCAI005 ;;10294153
PRCAI006 ;;9782997
PRCAI007 ;;9921433
PRCAI008 ;;7685656
PRCAI009 ;;8595920
PRCAI00A ;;1514956
PRCAI00B ;;10354031
PRCAI00C ;;10732944
PRCAI00D ;;10713175
PRCAI00E ;;9703211
PRCAI00F ;;2226181
PRCAI00G ;;8572946
PRCAI00H ;;7759041
PRCAI00I ;;5083256
PRCAI00J ;;1682048
PRCAI00K ;;6804588
PRCAI00L ;;11058467
PRCAI00M ;;12092172
PRCAI00N ;;12009282
PRCAI00O ;;11132794
PRCAI00P ;;10588558
PRCAI00Q ;;11870810
PRCAI00R ;;10563027
PRCAI00S ;;11709448
PRCAI00T ;;10733716
PRCAI00U ;;12043887
PRCAI00V ;;11209150
PRCAI00W ;;12055251
PRCAI00X ;;12174925
PRCAI00Y ;;10083230
PRCAI00Z ;;11734912
PRCAI010 ;;11753448
PRCAI011 ;;12423487
PRCAI012 ;;11161716
PRCAI013 ;;11937677
PRCAI014 ;;11274950
PRCAI015 ;;12191184
PRCAI016 ;;12316390
PRCAI017 ;;11848678
PRCAI018 ;;9793777
PRCAI019 ;;9067966
PRCAI01A ;;8871846
PRCAI01B ;;10973851
PRCAI01C ;;9544703
PRCAI01D ;;1329297
PRCAI01E ;;8149208
PRCAI01F ;;6405246
PRCAI01G ;;7699411
PRCAI01H ;;2271317
PRCAI01I ;;3458480
PRCAI01J ;;1308374
PRCAI01K ;;5188583
PRCAI01L ;;2982491
PRCAI01M ;;2777196
PRCAI01N ;;6471211
PRCAI01O ;;1330888
PRCAI01P ;;5671362
PRCAI01Q ;;5765023
PRCAI01R ;;985299
PRCAI01S ;;8843474
PRCAI01T ;;2981051
PRCAI01U ;;10391329
PRCAI01V ;;11193669
PRCAI01W ;;11423867
PRCAI01X ;;8911230
PRCAI01Y ;;9863908
PRCAI01Z ;;9048562
PRCAI020 ;;8483072
PRCAI021 ;;9763786
PRCAI022 ;;9708713
PRCAI023 ;;8723029
PRCAI024 ;;7678151
PRCAI025 ;;8154091
PRCAI026 ;;7528430
PRCAI027 ;;9113682
PRCAI028 ;;8796987
PRCAI029 ;;10356723
PRCAI02A ;;7361260
PRCAI02B ;;3016704
PRCAI02C ;;7563131
PRCAI02D ;;8426136
PRCAI02E ;;3979266
PRCAI02F ;;7202613
PRCAI02G ;;3340026
PRCAI02H ;;7455606
PRCAI02I ;;6439710
PRCAI02J ;;10255391
