IBDNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;2970424.083551
;;3.0;AUTOMATED INFO COLLECTION SYS;;APR 24, 1997
;;7.3;2970424.083551
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^IBDNTEG0
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 ;;
IBD3KENV ;;2482893
IBD3KPT ;;11964813
IBDE ;;2997987
IBDE1 ;;7343104
IBDE1A ;;3361399
IBDE1B ;;1339223
IBDE2 ;;409473
IBDE3 ;;9480134
IBDE4 ;;4707082
IBDEHELP ;;7817644
IBDEPRE ;;4328499
IBDEPT ;;239186
IBDF10 ;;11871257
IBDF10A ;;14844945
IBDF10B ;;4334206
IBDF10C ;;7145394
IBDF11 ;;3746255
IBDF11A ;;3372216
IBDF12 ;;2449474
IBDF13 ;;6065810
IBDF14 ;;2806524
IBDF14A ;;8128142
IBDF15 ;;2835740
IBDF15A ;;9106437
IBDF16 ;;8212382
IBDF17 ;;7062222
IBDF18 ;;5760005
IBDF18A ;;3427205
IBDF18A1 ;;8968373
IBDF18B ;;1183119
IBDF18C ;;9383133
IBDF18D ;;2224052
IBDF18E ;;11340277
IBDF18E0 ;;11693827
IBDF18E1 ;;10375249
IBDF18E2 ;;4914156
IBDF18E3 ;;554180
IBDF19 ;;7787654
IBDF1A ;;6906704
IBDF1B ;;13886733
IBDF1B1 ;;11709608
IBDF1B1A ;;12963462
IBDF1B1B ;;1767481
IBDF1B2 ;;2289984
IBDF1B3 ;;7853311
IBDF1B5 ;;11098411
IBDF1BA ;;11321310
IBDF1C ;;4183587
IBDF2A ;;13089889
IBDF2A1 ;;16675892
IBDF2A2 ;;5398601
IBDF2B ;;7733441
IBDF2B1 ;;2426473
IBDF2D ;;11307498
IBDF2D1 ;;7091947
IBDF2D2 ;;20452649
IBDF2D3 ;;12284133
IBDF2E ;;1625292
IBDF2F ;;14953767
IBDF2F1 ;;6492541
IBDF2G ;;1305076
IBDF2H ;;1131607
IBDF3 ;;7478886
IBDF4 ;;18681956
IBDF4A ;;13810939
IBDF5 ;;9209729
IBDF5A ;;4140889
IBDF5B ;;6698423
IBDF5C ;;3822764
IBDF5D ;;5086357
IBDF6 ;;8604587
IBDF6A ;;6144443
IBDF6C ;;1009133
IBDF7 ;;2565275
IBDF8 ;;1630744
IBDF9 ;;3819084
IBDF9A ;;16913688
IBDF9A1 ;;7479813
IBDF9A3 ;;7052911
IBDF9B ;;11180213
IBDF9B1 ;;13740809
IBDF9B2 ;;6322343
IBDF9B3 ;;5177091
IBDF9B4 ;;6134853
IBDF9C ;;5406188
IBDF9D ;;5163363
IBDF9E ;;5934543
IBDFBK1 ;;4906853
IBDFBK2 ;;6362708
IBDFBK3 ;;16698204
IBDFBKR ;;7402561
IBDFBKS ;;15247370
IBDFBKS1 ;;5830972
IBDFBKS2 ;;14974345
IBDFBKS3 ;;12904114
IBDFBKS4 ;;8554663
IBDFC ;;11407114
IBDFC1 ;;4784941
IBDFC2 ;;8753867
IBDFC2A ;;8223304
IBDFC2B ;;13124658
IBDFC3 ;;3078465
IBDFC4 ;;60053
IBDFCG ;;16657494
IBDFCG1 ;;6651180
IBDFCMP ;;10284232
IBDFCMP1 ;;12808450
IBDFCNOF ;;9651795
IBDFDE ;;28292527
IBDFDE0 ;;11338817
IBDFDE1 ;;13698331
IBDFDE10 ;;424026
IBDFDE2 ;;20881171
IBDFDE21 ;;20139881
IBDFDE22 ;;5338516
IBDFDE3 ;;18089819
IBDFDE4 ;;11204271
IBDFDE41 ;;6974404
IBDFDE42 ;;2472593
IBDFDE5 ;;20092356
IBDFDE6 ;;20813168
IBDFDE61 ;;2306021
IBDFDE7 ;;13809118
IBDFDE8 ;;7762272
IBDFDE9 ;;7383712
IBDFDEA ;;11764220
IBDFDVE ;;392266
IBDFESP ;;5681865
IBDFFRFT ;;5605728
IBDFFSMP ;;4992963
IBDFFT ;;19343496
IBDFFT1 ;;38001031
IBDFFT2 ;;3352777
IBDFFT3 ;;19870534
IBDFFT4 ;;4158691
IBDFFV ;;7432713
IBDFFV1 ;;2385105
IBDFFV2 ;;4347225
IBDFFV3 ;;5257927
IBDFGRP ;;9136849
IBDFHLP ;;3402730
IBDFLST ;;11634433
IBDFLST1 ;;1683695
IBDFM1 ;;13441067
IBDFN ;;15680196
IBDFN1 ;;1213860
IBDFN10 ;;2765146
IBDFN11 ;;2856878
IBDFN12 ;;1612905
IBDFN13 ;;66244
IBDFN14 ;;2226507
IBDFN2 ;;8020032
IBDFN3 ;;2845147
IBDFN4 ;;2973307
IBDFN5 ;;3054776
IBDFN6 ;;2853724
IBDFN7 ;;1460739
IBDFN8 ;;124808
IBDFN9 ;;194363
IBDFOSG ;;10173582
IBDFOSG1 ;;7086168
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDNTEG 3789 printed Dec 13, 2024@02:54:01 Page 2
IBDNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;2970424.083551
+1 ;;3.0;AUTOMATED INFO COLLECTION SYS;;APR 24, 1997
+2 ;;7.3;2970424.083551
+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^IBDNTEG0
+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 ;;
IBD3KENV ;;2482893
IBD3KPT ;;11964813
IBDE ;;2997987
IBDE1 ;;7343104
IBDE1A ;;3361399
IBDE1B ;;1339223
IBDE2 ;;409473
IBDE3 ;;9480134
IBDE4 ;;4707082
IBDEHELP ;;7817644
IBDEPRE ;;4328499
IBDEPT ;;239186
IBDF10 ;;11871257
IBDF10A ;;14844945
IBDF10B ;;4334206
IBDF10C ;;7145394
IBDF11 ;;3746255
IBDF11A ;;3372216
IBDF12 ;;2449474
IBDF13 ;;6065810
IBDF14 ;;2806524
IBDF14A ;;8128142
IBDF15 ;;2835740
IBDF15A ;;9106437
IBDF16 ;;8212382
IBDF17 ;;7062222
IBDF18 ;;5760005
IBDF18A ;;3427205
IBDF18A1 ;;8968373
IBDF18B ;;1183119
IBDF18C ;;9383133
IBDF18D ;;2224052
IBDF18E ;;11340277
IBDF18E0 ;;11693827
IBDF18E1 ;;10375249
IBDF18E2 ;;4914156
IBDF18E3 ;;554180
IBDF19 ;;7787654
IBDF1A ;;6906704
IBDF1B ;;13886733
IBDF1B1 ;;11709608
IBDF1B1A ;;12963462
IBDF1B1B ;;1767481
IBDF1B2 ;;2289984
IBDF1B3 ;;7853311
IBDF1B5 ;;11098411
IBDF1BA ;;11321310
IBDF1C ;;4183587
IBDF2A ;;13089889
IBDF2A1 ;;16675892
IBDF2A2 ;;5398601
IBDF2B ;;7733441
IBDF2B1 ;;2426473
IBDF2D ;;11307498
IBDF2D1 ;;7091947
IBDF2D2 ;;20452649
IBDF2D3 ;;12284133
IBDF2E ;;1625292
IBDF2F ;;14953767
IBDF2F1 ;;6492541
IBDF2G ;;1305076
IBDF2H ;;1131607
IBDF3 ;;7478886
IBDF4 ;;18681956
IBDF4A ;;13810939
IBDF5 ;;9209729
IBDF5A ;;4140889
IBDF5B ;;6698423
IBDF5C ;;3822764
IBDF5D ;;5086357
IBDF6 ;;8604587
IBDF6A ;;6144443
IBDF6C ;;1009133
IBDF7 ;;2565275
IBDF8 ;;1630744
IBDF9 ;;3819084
IBDF9A ;;16913688
IBDF9A1 ;;7479813
IBDF9A3 ;;7052911
IBDF9B ;;11180213
IBDF9B1 ;;13740809
IBDF9B2 ;;6322343
IBDF9B3 ;;5177091
IBDF9B4 ;;6134853
IBDF9C ;;5406188
IBDF9D ;;5163363
IBDF9E ;;5934543
IBDFBK1 ;;4906853
IBDFBK2 ;;6362708
IBDFBK3 ;;16698204
IBDFBKR ;;7402561
IBDFBKS ;;15247370
IBDFBKS1 ;;5830972
IBDFBKS2 ;;14974345
IBDFBKS3 ;;12904114
IBDFBKS4 ;;8554663
IBDFC ;;11407114
IBDFC1 ;;4784941
IBDFC2 ;;8753867
IBDFC2A ;;8223304
IBDFC2B ;;13124658
IBDFC3 ;;3078465
IBDFC4 ;;60053
IBDFCG ;;16657494
IBDFCG1 ;;6651180
IBDFCMP ;;10284232
IBDFCMP1 ;;12808450
IBDFCNOF ;;9651795
IBDFDE ;;28292527
IBDFDE0 ;;11338817
IBDFDE1 ;;13698331
IBDFDE10 ;;424026
IBDFDE2 ;;20881171
IBDFDE21 ;;20139881
IBDFDE22 ;;5338516
IBDFDE3 ;;18089819
IBDFDE4 ;;11204271
IBDFDE41 ;;6974404
IBDFDE42 ;;2472593
IBDFDE5 ;;20092356
IBDFDE6 ;;20813168
IBDFDE61 ;;2306021
IBDFDE7 ;;13809118
IBDFDE8 ;;7762272
IBDFDE9 ;;7383712
IBDFDEA ;;11764220
IBDFDVE ;;392266
IBDFESP ;;5681865
IBDFFRFT ;;5605728
IBDFFSMP ;;4992963
IBDFFT ;;19343496
IBDFFT1 ;;38001031
IBDFFT2 ;;3352777
IBDFFT3 ;;19870534
IBDFFT4 ;;4158691
IBDFFV ;;7432713
IBDFFV1 ;;2385105
IBDFFV2 ;;4347225
IBDFFV3 ;;5257927
IBDFGRP ;;9136849
IBDFHLP ;;3402730
IBDFLST ;;11634433
IBDFLST1 ;;1683695
IBDFM1 ;;13441067
IBDFN ;;15680196
IBDFN1 ;;1213860
IBDFN10 ;;2765146
IBDFN11 ;;2856878
IBDFN12 ;;1612905
IBDFN13 ;;66244
IBDFN14 ;;2226507
IBDFN2 ;;8020032
IBDFN3 ;;2845147
IBDFN4 ;;2973307
IBDFN5 ;;3054776
IBDFN6 ;;2853724
IBDFN7 ;;1460739
IBDFN8 ;;124808
IBDFN9 ;;194363
IBDFOSG ;;10173582
IBDFOSG1 ;;7086168
