IBDNTEG.m

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

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