BKMNTEG.m

BKMNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;3110202.073146

 ;;2.1;HIV MANAGEMENT SYSTEM;;Feb 07, 2011

 ;;7.3;3110202.073146

 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^BKMNTEG0

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

BKM21POS ;;422416

BKMCRS ;;7797734

BKMED ;;450104

BKMHTX ;;522856

BKMHTXA ;;1595029

BKMHTXB ;;974720

BKMHTXC ;;989748

BKMHTXD ;;2935560

BKMHTXE ;;994743

BKMHTXF ;;1048107

BKMHTXG ;;1186987

BKMHTXH ;;2753930

BKMHTXI ;;1636494

BKMHTXJ ;;1677439

BKMIDTF ;;50821

BKMIHSM ;;1492933

BKMILK ;;4888059

BKMIMRP ;;24551028

BKMIMRP1 ;;15539786

BKMIMRP2 ;;15358774

BKMIMRP3 ;;15713454

BKMIXX ;;10748330

BKMIXX1 ;;8203930

BKMIXX2 ;;14585023

BKMIXX3 ;;10077313

BKMIXX4 ;;9118523

BKMIXX5 ;;6802845

BKMOFF ;;3227574

BKMPLKP ;;1170199

BKMQQCR ;;12848786

BKMQQCR1 ;;14528605

BKMQQCR2 ;;15563748

BKMQQCR3 ;;8164733

BKMQQCR4 ;;19889661

BKMQQCR5 ;;7259896

BKMQQCR6 ;;8625341

BKMQQCR7 ;;13169820

BKMQQCR8 ;;5198242

BKMQQCR9 ;;25912063

BKMQQCRA ;;22339821

BKMQQCRB ;;13787176

BKMQQCRC ;;13563948

BKMQQCRD ;;6894621

BKMQQCRU ;;11946917

BKMQQCRV ;;2632517

BKMQSSR ;;6590860

BKMQSSR1 ;;1816225

BKMQSSR2 ;;1302646

BKMQSSR3 ;;3165456

BKMQSSR4 ;;5189017

BKMQSSR5 ;;2606309

BKMQSSR6 ;;9711599

BKMQUTL ;;1447848

BKMRMDR ;;15224193

BKMRMED ;;1846689

BKMRMEX ;;3086007

BKMRMIM ;;4977206

BKMRMLB ;;16240382

BKMRMLB1 ;;4801653

BKMRMWH ;;4883007

BKMSTI ;;8738899

BKMSTID1 ;;6821807

BKMSTID2 ;;8053841

BKMSTIDS ;;4695233

BKMSUPP ;;21714137

BKMSUPP1 ;;18315909

BKMSUPP2 ;;23149830

BKMSUPP3 ;;13670678

BKMSUPP4 ;;13758028

BKMSUPP5 ;;13028407

BKMUL3 ;;965726

BKMVA1 ;;21074134

BKMVA1A ;;18614934

BKMVA1B ;;9158094

BKMVA1C ;;11408989

BKMVA1U ;;6535245

BKMVA2 ;;26419597

BKMVA4 ;;7456110

BKMVA41 ;;5497418

BKMVA5 ;;7314080

BKMVA51 ;;3780908

BKMVA6 ;;7787184

BKMVA61 ;;2522994

BKMVA9 ;;22188030

BKMVAUC ;;10907093

BKMVAUD ;;13963522

BKMVAUD1 ;;5506849

BKMVAUD2 ;;5314382

BKMVAUDN ;;1048189

BKMVAUP ;;4321428

BKMVAUP1 ;;4158

BKMVAUPO ;;787256

BKMVAUTR ;;2430471

BKMVB0 ;;12905121

BKMVB1 ;;9943517

BKMVB2 ;;5583174

BKMVC0 ;;5382428

BKMVC1 ;;3110911

BKMVC10 ;;5954277

BKMVC11 ;;5293433

BKMVC12 ;;4820020

BKMVC2 ;;28845485

BKMVC3 ;;13375968

BKMVC4 ;;2368362

BKMVC5 ;;2526905

BKMVC6 ;;8012374

BKMVC7 ;;6074384

BKMVC8 ;;2285548

BKMVCD ;;22919184

BKMVD1 ;;14133690

BKMVD11 ;;10433070

BKMVD2 ;;7016028

BKMVD21 ;;3947965

BKMVD3 ;;6634001

BKMVD31 ;;2334497

BKMVD4 ;;6896466

BKMVD41 ;;3991524

BKMVD5 ;;7023256

BKMVD51 ;;3993793

BKMVD6 ;;7337138

BKMVD61 ;;4545377

BKMVD7 ;;9090549

BKMVD71 ;;4080138

BKMVD8 ;;7349841

BKMVD81 ;;4343544

BKMVDOD ;;9373709

BKMVDOD1 ;;851240

BKMVDOD4 ;;6616223

BKMVDOD8 ;;10266493

BKMVF1 ;;8880541

BKMVF3 ;;14507414

BKMVF31 ;;16503982

BKMVF32 ;;9958194

BKMVF33 ;;14389214

BKMVF4 ;;5189281

BKMVF5 ;;978333

BKMVFAP1 ;;20045863

BKMVFAPI ;;7243732

BKMVFLD ;;2962916

BKMVFMP1 ;;5029406

BKMVIST3 ;;10856340

BKMVIST4 ;;12246054

BKMVIST5 ;;13420243

BKMVPG ;;6019274

BKMVQCR ;;13121342

BKMVQCR1 ;;5142457

BKMVQCR2 ;;9641433

BKMVQCR3 ;;7917168

BKMVQCR4 ;;7745635

BKMVQCR5 ;;5523688

BKMVQCR6 ;;9008921

BKMVQCR7 ;;14549496

BKMVQCR8 ;;3734371

BKMVQCR9 ;;7876259

BKMVQCRA ;;13543683

BKMVSCD ;;1233791

BKMVSRP1 ;;6380235

BKMVSSR ;;7153773

BKMNTEG   ;ISC/XTSUMBLD KERNEL - Package checksum checker ;3110202.073146

 +1       ;;2.1;HIV MANAGEMENT SYSTEM;;Feb 07, 2011

 +2       ;;7.3;3110202.073146

 +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^BKMNTEG0

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

BKM21POS  ;;422416

BKMCRS    ;;7797734

BKMED     ;;450104

BKMHTX    ;;522856

BKMHTXA   ;;1595029

BKMHTXB   ;;974720

BKMHTXC   ;;989748

BKMHTXD   ;;2935560

BKMHTXE   ;;994743

BKMHTXF   ;;1048107

BKMHTXG   ;;1186987

BKMHTXH   ;;2753930

BKMHTXI   ;;1636494

BKMHTXJ   ;;1677439

BKMIDTF   ;;50821

BKMIHSM   ;;1492933

BKMILK    ;;4888059

BKMIMRP   ;;24551028

BKMIMRP1  ;;15539786

BKMIMRP2  ;;15358774

BKMIMRP3  ;;15713454

BKMIXX    ;;10748330

BKMIXX1   ;;8203930

BKMIXX2   ;;14585023

BKMIXX3   ;;10077313

BKMIXX4   ;;9118523

BKMIXX5   ;;6802845

BKMOFF    ;;3227574

BKMPLKP   ;;1170199

BKMQQCR   ;;12848786

BKMQQCR1  ;;14528605

BKMQQCR2  ;;15563748

BKMQQCR3  ;;8164733

BKMQQCR4  ;;19889661

BKMQQCR5  ;;7259896

BKMQQCR6  ;;8625341

BKMQQCR7  ;;13169820

BKMQQCR8  ;;5198242

BKMQQCR9  ;;25912063

BKMQQCRA  ;;22339821

BKMQQCRB  ;;13787176

BKMQQCRC  ;;13563948

BKMQQCRD  ;;6894621

BKMQQCRU  ;;11946917

BKMQQCRV  ;;2632517

BKMQSSR   ;;6590860

BKMQSSR1  ;;1816225

BKMQSSR2  ;;1302646

BKMQSSR3  ;;3165456

BKMQSSR4  ;;5189017

BKMQSSR5  ;;2606309

BKMQSSR6  ;;9711599

BKMQUTL   ;;1447848

BKMRMDR   ;;15224193

BKMRMED   ;;1846689

BKMRMEX   ;;3086007

BKMRMIM   ;;4977206

BKMRMLB   ;;16240382

BKMRMLB1  ;;4801653

BKMRMWH   ;;4883007

BKMSTI    ;;8738899

BKMSTID1  ;;6821807

BKMSTID2  ;;8053841

BKMSTIDS  ;;4695233

BKMSUPP   ;;21714137

BKMSUPP1  ;;18315909

BKMSUPP2  ;;23149830

BKMSUPP3  ;;13670678

BKMSUPP4  ;;13758028

BKMSUPP5  ;;13028407

BKMUL3    ;;965726

BKMVA1    ;;21074134

BKMVA1A   ;;18614934

BKMVA1B   ;;9158094

BKMVA1C   ;;11408989

BKMVA1U   ;;6535245

BKMVA2    ;;26419597

BKMVA4    ;;7456110

BKMVA41   ;;5497418

BKMVA5    ;;7314080

BKMVA51   ;;3780908

BKMVA6    ;;7787184

BKMVA61   ;;2522994

BKMVA9    ;;22188030

BKMVAUC   ;;10907093

BKMVAUD   ;;13963522

BKMVAUD1  ;;5506849

BKMVAUD2  ;;5314382

BKMVAUDN  ;;1048189

BKMVAUP   ;;4321428

BKMVAUP1  ;;4158

BKMVAUPO  ;;787256

BKMVAUTR  ;;2430471

BKMVB0    ;;12905121

BKMVB1    ;;9943517

BKMVB2    ;;5583174

BKMVC0    ;;5382428

BKMVC1    ;;3110911

BKMVC10   ;;5954277

BKMVC11   ;;5293433

BKMVC12   ;;4820020

BKMVC2    ;;28845485

BKMVC3    ;;13375968

BKMVC4    ;;2368362

BKMVC5    ;;2526905

BKMVC6    ;;8012374

BKMVC7    ;;6074384

BKMVC8    ;;2285548

BKMVCD    ;;22919184

BKMVD1    ;;14133690

BKMVD11   ;;10433070

BKMVD2    ;;7016028

BKMVD21   ;;3947965

BKMVD3    ;;6634001

BKMVD31   ;;2334497

BKMVD4    ;;6896466

BKMVD41   ;;3991524

BKMVD5    ;;7023256

BKMVD51   ;;3993793

BKMVD6    ;;7337138

BKMVD61   ;;4545377

BKMVD7    ;;9090549

BKMVD71   ;;4080138

BKMVD8    ;;7349841

BKMVD81   ;;4343544

BKMVDOD   ;;9373709

BKMVDOD1  ;;851240

BKMVDOD4  ;;6616223

BKMVDOD8  ;;10266493

BKMVF1    ;;8880541

BKMVF3    ;;14507414

BKMVF31   ;;16503982

BKMVF32   ;;9958194

BKMVF33   ;;14389214

BKMVF4    ;;5189281

BKMVF5    ;;978333

BKMVFAP1  ;;20045863

BKMVFAPI  ;;7243732

BKMVFLD   ;;2962916

BKMVFMP1  ;;5029406

BKMVIST3  ;;10856340

BKMVIST4  ;;12246054

BKMVIST5  ;;13420243

BKMVPG    ;;6019274

BKMVQCR   ;;13121342

BKMVQCR1  ;;5142457

BKMVQCR2  ;;9641433

BKMVQCR3  ;;7917168

BKMVQCR4  ;;7745635

BKMVQCR5  ;;5523688

BKMVQCR6  ;;9008921

BKMVQCR7  ;;14549496

BKMVQCR8  ;;3734371

BKMVQCR9  ;;7876259

BKMVQCRA  ;;13543683

BKMVSCD   ;;1233791

BKMVSRP1  ;;6380235

BKMVSSR   ;;7153773