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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---IBNTEG   3806     printed  Mar 13, 2025@21:30:09                                                                                                                                                                                                      Page 2

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