IBNTEG.m

IBNTEG	;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")

	G CONT^IBNTEG0

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

DGCRAMS	;;6214

DGCRNS	;;3661765

DGCRP3	;;107277

IB20IN	;;8009057

IB20PRE	;;8986169

IB20PT	;;7649477

IB20PT1	;;11063312

IB20PT2	;;4475525

IB20PT3	;;8076696

IB20PT31	;;6506886

IB20PT32	;;4317775

IB20PT4	;;7440773

IB20PT41	;;9986705

IB20PT42	;;9509377

IB20PT43	;;7387627

IB20PT44	;;8110297

IB20PT45	;;8306385

IB20PT46	;;8451128

IB20PT47	;;8563366

IB20PT48	;;9037639

IB20PT5	;;7032869

IB20PT51	;;7063314

IB20PT6	;;8955028

IB20PT61	;;6802850

IB20PT62	;;3225606

IB20PT7	;;8586962

IB20PT71	;;3338696

IB20PT8	;;2336162

IB20PT81	;;14448170

IB20PT82	;;11280903

IB20PT83	;;11209659

IB20PT84	;;16844506

IB20PT85	;;10911111

IB20PT86	;;8217996

IB20PT87	;;8505416

IB20PT88	;;7644188

IB20PT89	;;4557349

IB20PT8A	;;12040816

IB20PT8B	;;6866758

IB20PT8C	;;4652761

IBACVA	;;1769880

IBACVA1	;;4739079

IBACVA2	;;5370087

IBAERR	;;13780590

IBAERR1	;;5702039

IBAERR2	;;5326975

IBAERR3	;;9712468

IBAFIL	;;1923294

IBAMTBU	;;9650419

IBAMTBU1	;;9010226

IBAMTBU2	;;12041191

IBAMTC	;;6299589

IBAMTC1	;;7286348

IBAMTC2	;;3598454

IBAMTC3	;;6705455

IBAMTD	;;6465662

IBAMTD1	;;3267263

IBAMTD2	;;4636001

IBAMTED	;;2233627

IBAMTED1	;;8697962

IBAMTEDU	;;6182045

IBAMTEL	;;11828371

IBAMTI	;;9852587

IBAMTI1	;;7575816

IBAMTI2	;;2115607

IBAMTS	;;4935501

IBAMTS1	;;3867145

IBAMTS2	;;4234104

IBAPDX	;;5950991

IBAPDX0	;;3962132

IBAPDX1	;;10543843

IBAREP	;;2549777

IBARX	;;8244090

IBARX1	;;6596075

IBARXDOC	;;213627

IBARXEB	;;5398431

IBARXEC	;;9610214

IBARXEC0	;;9458042

IBARXEC1	;;11194005

IBARXEC2	;;3871811

IBARXEC3	;;6042009

IBARXEC4	;;612524

IBARXEC5	;;4692020

IBARXECA	;;5437412

IBARXEI	;;10800989

IBARXEP	;;6629685

IBARXEPE	;;2540349

IBARXEPL	;;10573402

IBARXEPV	;;10609884

IBARXET	;;9354161

IBARXEU	;;6806792

IBARXEU0	;;3601400

IBARXEU1	;;4150451

IBARXEU3	;;8350055

IBARXEU4	;;2171391

IBARXEU5	;;5703854

IBARXEVT	;;689754

IBARXEX	;;11713090

IBARXEX1	;;4260548

IBAUTL	;;6486243

IBAUTL1	;;2419237

IBAUTL2	;;4160094

IBAUTL3	;;6062540

IBAUTL4	;;6590985

IBAUTL5	;;2584138

IBAUTL6	;;6890980

IBAUTL7	;;3072190

IBCA	;;13403312

IBCA0	;;16511939

IBCA1	;;8761375

IBCA2	;;6208012

IBCA3	;;12718941

IBCAMS	;;1172097

IBCB	;;13881326

IBCB1	;;9850339

IBCB2	;;5883922

IBCBB	;;3144978

IBCBB1	;;5791591

IBCBB2	;;1343158

IBCBR	;;6665598

IBCBULL	;;9263228

IBCC	;;6548911

IBCCC	;;6939695

IBCCC1	;;4406795

IBCCC2	;;12947856

IBCCC3	;;4412585

IBCCPT	;;15501049

IBCD	;;3476576

IBCD1	;;4844291

IBCD2	;;8429080

IBCD3	;;9743645

IBCD4	;;8964833

IBCD5	;;9117539

IBCDC	;;4705205

IBCDE	;;7152633

IBCF	;;5123217

IBCF1	;;8752631

IBCF10	;;13246466

IBCF11	;;3618060

IBCF12	;;8199876

IBCF13	;;3359698

IBCF14	;;4671426

IBCF1TP	;;4608893

IBCF2	;;5400608

IBCF21	;;6867457

IBCF22	;;3951879

IBCF23	;;7041230

IBCF2P	;;5194801

IBCF2TP	;;5572923

IBCF3	;;8119511

IBCF31	;;7087284

IBCF32	;;4769225

IBCF33	;;8685819

IBCF331	;;3343184

IBCF34	;;4562880

IBCF3P	;;8274883

IBCF3TP	;;6312363

IBCF4	;;5431811

IBCFP	;;13317164

IBCMENU	;;5258201

IBCNADD	;;2016355

IBCNQ	;;12255106

IBNTEG    ;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        GOTO CONT^IBNTEG0

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

DGCRAMS   ;;6214

DGCRNS    ;;3661765

DGCRP3    ;;107277

IB20IN    ;;8009057

IB20PRE   ;;8986169

IB20PT    ;;7649477

IB20PT1   ;;11063312

IB20PT2   ;;4475525

IB20PT3   ;;8076696

IB20PT31  ;;6506886

IB20PT32  ;;4317775

IB20PT4   ;;7440773

IB20PT41  ;;9986705

IB20PT42  ;;9509377

IB20PT43  ;;7387627

IB20PT44  ;;8110297

IB20PT45  ;;8306385

IB20PT46  ;;8451128

IB20PT47  ;;8563366

IB20PT48  ;;9037639

IB20PT5   ;;7032869

IB20PT51  ;;7063314

IB20PT6   ;;8955028

IB20PT61  ;;6802850

IB20PT62  ;;3225606

IB20PT7   ;;8586962

IB20PT71  ;;3338696

IB20PT8   ;;2336162

IB20PT81  ;;14448170

IB20PT82  ;;11280903

IB20PT83  ;;11209659

IB20PT84  ;;16844506

IB20PT85  ;;10911111

IB20PT86  ;;8217996

IB20PT87  ;;8505416

IB20PT88  ;;7644188

IB20PT89  ;;4557349

IB20PT8A  ;;12040816

IB20PT8B  ;;6866758

IB20PT8C  ;;4652761

IBACVA    ;;1769880

IBACVA1   ;;4739079

IBACVA2   ;;5370087

IBAERR    ;;13780590

IBAERR1   ;;5702039

IBAERR2   ;;5326975

IBAERR3   ;;9712468

IBAFIL    ;;1923294

IBAMTBU   ;;9650419

IBAMTBU1  ;;9010226

IBAMTBU2  ;;12041191

IBAMTC    ;;6299589

IBAMTC1   ;;7286348

IBAMTC2   ;;3598454

IBAMTC3   ;;6705455

IBAMTD    ;;6465662

IBAMTD1   ;;3267263

IBAMTD2   ;;4636001

IBAMTED   ;;2233627

IBAMTED1  ;;8697962

IBAMTEDU  ;;6182045

IBAMTEL   ;;11828371

IBAMTI    ;;9852587

IBAMTI1   ;;7575816

IBAMTI2   ;;2115607

IBAMTS    ;;4935501

IBAMTS1   ;;3867145

IBAMTS2   ;;4234104

IBAPDX    ;;5950991

IBAPDX0   ;;3962132

IBAPDX1   ;;10543843

IBAREP    ;;2549777

IBARX     ;;8244090

IBARX1    ;;6596075

IBARXDOC  ;;213627

IBARXEB   ;;5398431

IBARXEC   ;;9610214

IBARXEC0  ;;9458042

IBARXEC1  ;;11194005

IBARXEC2  ;;3871811

IBARXEC3  ;;6042009

IBARXEC4  ;;612524

IBARXEC5  ;;4692020

IBARXECA  ;;5437412

IBARXEI   ;;10800989

IBARXEP   ;;6629685

IBARXEPE  ;;2540349

IBARXEPL  ;;10573402

IBARXEPV  ;;10609884

IBARXET   ;;9354161

IBARXEU   ;;6806792

IBARXEU0  ;;3601400

IBARXEU1  ;;4150451

IBARXEU3  ;;8350055

IBARXEU4  ;;2171391

IBARXEU5  ;;5703854

IBARXEVT  ;;689754

IBARXEX   ;;11713090

IBARXEX1  ;;4260548

IBAUTL    ;;6486243

IBAUTL1   ;;2419237

IBAUTL2   ;;4160094

IBAUTL3   ;;6062540

IBAUTL4   ;;6590985

IBAUTL5   ;;2584138

IBAUTL6   ;;6890980

IBAUTL7   ;;3072190

IBCA      ;;13403312

IBCA0     ;;16511939

IBCA1     ;;8761375

IBCA2     ;;6208012

IBCA3     ;;12718941

IBCAMS    ;;1172097

IBCB      ;;13881326

IBCB1     ;;9850339

IBCB2     ;;5883922

IBCBB     ;;3144978

IBCBB1    ;;5791591

IBCBB2    ;;1343158

IBCBR     ;;6665598

IBCBULL   ;;9263228

IBCC      ;;6548911

IBCCC     ;;6939695

IBCCC1    ;;4406795

IBCCC2    ;;12947856

IBCCC3    ;;4412585

IBCCPT    ;;15501049

IBCD      ;;3476576

IBCD1     ;;4844291

IBCD2     ;;8429080

IBCD3     ;;9743645

IBCD4     ;;8964833

IBCD5     ;;9117539

IBCDC     ;;4705205

IBCDE     ;;7152633

IBCF      ;;5123217

IBCF1     ;;8752631

IBCF10    ;;13246466

IBCF11    ;;3618060

IBCF12    ;;8199876

IBCF13    ;;3359698

IBCF14    ;;4671426

IBCF1TP   ;;4608893

IBCF2     ;;5400608

IBCF21    ;;6867457

IBCF22    ;;3951879

IBCF23    ;;7041230

IBCF2P    ;;5194801

IBCF2TP   ;;5572923

IBCF3     ;;8119511

IBCF31    ;;7087284

IBCF32    ;;4769225

IBCF33    ;;8685819

IBCF331   ;;3343184

IBCF34    ;;4562880

IBCF3P    ;;8274883

IBCF3TP   ;;6312363

IBCF4     ;;5431811

IBCFP     ;;13317164

IBCMENU   ;;5258201

IBCNADD   ;;2016355

IBCNQ     ;;12255106