IBNTEG02.m

IBNTEG02	;ISC/XTSUMBLD KERNEL - Package checksum checker ;MAR 21, 1994@00:43:44

	;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94

	;;7.2;MAR 21, 1994@00:43:44

	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	;;

IBOCPD	;;1720455

IBOCPDS	;;5830293

IBODISP	;;2933885

IBODIV	;;5128254

IBOEMP	;;6678171

IBOEMP1	;;10672548

IBOEMP2	;;6906404

IBOHLD1	;;4207713

IBOHLD2	;;5592060

IBOLK	;;7791103

IBOLK1	;;2492902

IBOMBL	;;8192932

IBOMTC	;;1690451

IBOMTC1	;;4373193

IBOMTE	;;5475821

IBOMTE1	;;7538361

IBOMTE2	;;3031067

IBOMTP	;;1425622

IBOMTP1	;;8257030

IBORAT	;;2629438

IBORAT1A	;;1249079

IBORAT1B	;;747816

IBORAT1C	;;2564792

IBORAT2A	;;2888714

IBORAT2B	;;1609133

IBORAT2C	;;4187545

IBORT	;;12589852

IBORT1	;;5196896

IBOST	;;8728133

IBOSTUS	;;8222172

IBOSTUS1	;;13901156

IBOTR	;;6890483

IBOTR1	;;9609343

IBOTR2	;;4054313

IBOTR3	;;7294292

IBOTR4	;;4986294

IBOUNP1	;;5103611

IBOUNP2	;;5551837

IBOUNP3	;;11102312

IBOUNP4	;;5816740

IBOUNP5	;;4930314

IBOUNP6	;;11719330

IBOUTL	;;3588665

IBOVOP	;;3951706

IBOVOP1	;;6521237

IBOVOP2	;;6328287

IBP	;;4383002

IBPA	;;5621480

IBPEX	;;4674014

IBPF	;;3366298

IBPF1	;;3550746

IBPFU	;;1975348

IBPO	;;6256568

IBPP	;;3866201

IBPU	;;6660057

IBPU1	;;4549333

IBPU2	;;3153479

IBPUBUL	;;4295755

IBPUDEL	;;9049505

IBR	;;4785208

IBRBUL	;;4871478

IBRCON1	;;11061579

IBRCON2	;;5758144

IBRCON3	;;2246092

IBRFN	;;1579924

IBRFN1	;;2791885

IBRFN2	;;3905109

IBRREL	;;10253828

IBRUTL	;;2441491

IBTOAT	;;5478898

IBTOAT1	;;5305537

IBTOAT2	;;2761554

IBTOBI	;;8662378

IBTOBI1	;;6435712

IBTOBI2	;;7990714

IBTOBI3	;;6401647

IBTOBI4	;;6224530

IBTODD	;;8031779

IBTODD1	;;8068439

IBTOLR	;;6224360

IBTONB	;;1885921

IBTOPW	;;10707392

IBTOSA	;;8113371

IBTOSUM	;;9538577

IBTOSUM1	;;8816791

IBTOSUM2	;;9298424

IBTOTR	;;5609897

IBTOUA	;;6974196

IBTOUR	;;10111309

IBTOUR1	;;7984547

IBTOUR2	;;6908472

IBTOUR3	;;8357145

IBTOUR4	;;8040075

IBTOUR5	;;4041626

IBTOVS	;;1551317

IBTRC	;;10516194

IBTRC1	;;5987611

IBTRC2	;;3262204

IBTRC3	;;3166666

IBTRC4	;;8767502

IBTRCD	;;9107959

IBTRCD0	;;7861660

IBTRCD1	;;8922819

IBTRD	;;7786538

IBTRD1	;;7381107

IBTRDD	;;2526056

IBTRDD1	;;597735

IBTRE	;;10429015

IBTRE0	;;598105

IBTRE1	;;8033144

IBTRE2	;;11012571

IBTRE20	;;5512238

IBTRE3	;;7554651

IBTRE4	;;6681407

IBTRE5	;;8002645

IBTRE6	;;4226128

IBTRED	;;8017886

IBTRED0	;;8966982

IBTRED01	;;11523940

IBTRED1	;;3540207

IBTRED2	;;2529514

IBTRKR	;;7275239

IBTRKR1	;;3200384

IBTRKR2	;;2075452

IBTRKR3	;;9828445

IBTRKR31	;;4093132

IBTRKR4	;;6029559

IBTRKR41	;;5933356

IBTRKR5	;;8668310

IBTRP	;;2908119

IBTRPR	;;9093794

IBTRPR0	;;9571992

IBTRPR01	;;9199268

IBTRPR1	;;6920311

IBTRPR2	;;1544197

IBTRV	;;8563669

IBTRV1	;;5485789

IBTRV2	;;7873619

IBTRV3	;;8401862

IBTRV31	;;6699387

IBTRVD	;;3563633

IBTRVD0	;;9150563

IBTRVD1	;;8867639

IBTUTL	;;6486404

IBTUTL1	;;5474483

IBTUTL2	;;2288421

IBTUTL3	;;7164634

IBTUTL4	;;14424130

IBNTEG02  ;ISC/XTSUMBLD KERNEL - Package checksum checker ;MAR 21, 1994@00:43:44

 +1       ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94

 +2       ;;7.2;MAR 21, 1994@00:43:44

 +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       ;;

IBOCPD    ;;1720455

IBOCPDS   ;;5830293

IBODISP   ;;2933885

IBODIV    ;;5128254

IBOEMP    ;;6678171

IBOEMP1   ;;10672548

IBOEMP2   ;;6906404

IBOHLD1   ;;4207713

IBOHLD2   ;;5592060

IBOLK     ;;7791103

IBOLK1    ;;2492902

IBOMBL    ;;8192932

IBOMTC    ;;1690451

IBOMTC1   ;;4373193

IBOMTE    ;;5475821

IBOMTE1   ;;7538361

IBOMTE2   ;;3031067

IBOMTP    ;;1425622

IBOMTP1   ;;8257030

IBORAT    ;;2629438

IBORAT1A  ;;1249079

IBORAT1B  ;;747816

IBORAT1C  ;;2564792

IBORAT2A  ;;2888714

IBORAT2B  ;;1609133

IBORAT2C  ;;4187545

IBORT     ;;12589852

IBORT1    ;;5196896

IBOST     ;;8728133

IBOSTUS   ;;8222172

IBOSTUS1  ;;13901156

IBOTR     ;;6890483

IBOTR1    ;;9609343

IBOTR2    ;;4054313

IBOTR3    ;;7294292

IBOTR4    ;;4986294

IBOUNP1   ;;5103611

IBOUNP2   ;;5551837

IBOUNP3   ;;11102312

IBOUNP4   ;;5816740

IBOUNP5   ;;4930314

IBOUNP6   ;;11719330

IBOUTL    ;;3588665

IBOVOP    ;;3951706

IBOVOP1   ;;6521237

IBOVOP2   ;;6328287

IBP       ;;4383002

IBPA      ;;5621480

IBPEX     ;;4674014

IBPF      ;;3366298

IBPF1     ;;3550746

IBPFU     ;;1975348

IBPO      ;;6256568

IBPP      ;;3866201

IBPU      ;;6660057

IBPU1     ;;4549333

IBPU2     ;;3153479

IBPUBUL   ;;4295755

IBPUDEL   ;;9049505

IBR       ;;4785208

IBRBUL    ;;4871478

IBRCON1   ;;11061579

IBRCON2   ;;5758144

IBRCON3   ;;2246092

IBRFN     ;;1579924

IBRFN1    ;;2791885

IBRFN2    ;;3905109

IBRREL    ;;10253828

IBRUTL    ;;2441491

IBTOAT    ;;5478898

IBTOAT1   ;;5305537

IBTOAT2   ;;2761554

IBTOBI    ;;8662378

IBTOBI1   ;;6435712

IBTOBI2   ;;7990714

IBTOBI3   ;;6401647

IBTOBI4   ;;6224530

IBTODD    ;;8031779

IBTODD1   ;;8068439

IBTOLR    ;;6224360

IBTONB    ;;1885921

IBTOPW    ;;10707392

IBTOSA    ;;8113371

IBTOSUM   ;;9538577

IBTOSUM1  ;;8816791

IBTOSUM2  ;;9298424

IBTOTR    ;;5609897

IBTOUA    ;;6974196

IBTOUR    ;;10111309

IBTOUR1   ;;7984547

IBTOUR2   ;;6908472

IBTOUR3   ;;8357145

IBTOUR4   ;;8040075

IBTOUR5   ;;4041626

IBTOVS    ;;1551317

IBTRC     ;;10516194

IBTRC1    ;;5987611

IBTRC2    ;;3262204

IBTRC3    ;;3166666

IBTRC4    ;;8767502

IBTRCD    ;;9107959

IBTRCD0   ;;7861660

IBTRCD1   ;;8922819

IBTRD     ;;7786538

IBTRD1    ;;7381107

IBTRDD    ;;2526056

IBTRDD1   ;;597735

IBTRE     ;;10429015

IBTRE0    ;;598105

IBTRE1    ;;8033144

IBTRE2    ;;11012571

IBTRE20   ;;5512238

IBTRE3    ;;7554651

IBTRE4    ;;6681407

IBTRE5    ;;8002645

IBTRE6    ;;4226128

IBTRED    ;;8017886

IBTRED0   ;;8966982

IBTRED01  ;;11523940

IBTRED1   ;;3540207

IBTRED2   ;;2529514

IBTRKR    ;;7275239

IBTRKR1   ;;3200384

IBTRKR2   ;;2075452

IBTRKR3   ;;9828445

IBTRKR31  ;;4093132

IBTRKR4   ;;6029559

IBTRKR41  ;;5933356

IBTRKR5   ;;8668310

IBTRP     ;;2908119

IBTRPR    ;;9093794

IBTRPR0   ;;9571992

IBTRPR01  ;;9199268

IBTRPR1   ;;6920311

IBTRPR2   ;;1544197

IBTRV     ;;8563669

IBTRV1    ;;5485789

IBTRV2    ;;7873619

IBTRV3    ;;8401862

IBTRV31   ;;6699387

IBTRVD    ;;3563633

IBTRVD0   ;;9150563

IBTRVD1   ;;8867639

IBTUTL    ;;6486404

IBTUTL1   ;;5474483

IBTUTL2   ;;2288421

IBTUTL3   ;;7164634

IBTUTL4   ;;14424130