BQINTEG0.m

BQINTEG0 ;ISC/XTSUMBLD KERNEL - Package checksum checker ;3110207.111622

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

 ;;7.3;3110207.111622

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

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

BQIPLPP ;;17686174

BQIPLPT ;;1027436

BQIPLRF ;;9864764

BQIPLRP ;;9711793

BQIPLRT ;;11823052

BQIPLRT1 ;;7462201

BQIPLRVW ;;11116007

BQIPLSH ;;28442988

BQIPLSL ;;2390220

BQIPLSTA ;;916035

BQIPLTP ;;10395277

BQIPLUSR ;;6764374

BQIPLUTL ;;4831094

BQIPLVEW ;;7376321

BQIPLVW ;;1894034

BQIPLVWC ;;16196070

BQIPLVWP ;;8335668

BQIPTALG ;;2783472

BQIPTAP ;;2430124

BQIPTBTL ;;1726138

BQIPTCPT ;;3406175

BQIPTDDG ;;3542558

BQIPTDG ;;6066728

BQIPTDMG ;;3647420

BQIPTDX ;;12366996

BQIPTED ;;4546048

BQIPTELD ;;2567534

BQIPTEXM ;;3674848

BQIPTFHD ;;8077043

BQIPTFHE ;;19255184

BQIPTFHH ;;2813429

BQIPTFHR ;;12170077

BQIPTFHS ;;12122392

BQIPTFHT ;;4347490

BQIPTFLG ;;2658744

BQIPTHF ;;3120462

BQIPTIMM ;;4210008

BQIPTIMP ;;730150

BQIPTINS ;;3835508

BQIPTLKP ;;6038259

BQIPTLNK ;;1490865

BQIPTMRG ;;5071810

BQIPTMSR ;;11551785

BQIPTPNL ;;4176717

BQIPTPR ;;8859558

BQIPTPRC ;;4722890

BQIPTPRV ;;1019557

BQIPTREG ;;5076891

BQIPTREP ;;21701271

BQIPTREV ;;2537416

BQIPTRF ;;4509233

BQIPTRPF ;;4543112

BQIPTRPU ;;8023200

BQIPTSEN ;;1223871

BQIPTSKN ;;3678842

BQIPTTR ;;3784978

BQIPTUPD ;;5848627

BQIPTVFV ;;2322912

BQIPTVS ;;3773522

BQIPTVST ;;1088540

BQIREM ;;5394135

BQIRFCE ;;1898272

BQIRFCRQ ;;1929658

BQIRGADD ;;13735075

BQIRGAGL ;;1478972

BQIRGASP ;;5664756

BQIRGASU ;;15087849

BQIRGDEF ;;3681014

BQIRGHGL ;;1511743

BQIRGHLP ;;3444406

BQIRGHML ;;2207797

BQIRGHOF ;;2633696

BQIRGLK ;;4383268

BQIRGLST ;;1781669

BQIRGPL ;;12300702

BQIRGPT ;;3499705

BQIRGTH1 ;;3600199

BQIRGTH2 ;;1766733

BQIRGTHM ;;3253611

BQIRGUTL ;;7831664

BQIRGVW ;;1939483

BQIRHS ;;1576976

BQIRHSR ;;1260043

BQIRLB ;;9248083

BQIRMAGG ;;6592014

BQIRMD ;;6723642

BQIRMDR ;;20495776

BQIRMDR1 ;;5167961

BQIRMHLP ;;15151487

BQIRMPAT ;;844277

BQIRMPL ;;12456012

BQIRMREG ;;6135022

BQIRMRHL ;;3058356

BQIRMRUN ;;1169574

BQIRPASM ;;2430660

BQIRPL ;;20222499

BQIRPLN ;;6341547

BQIRPWH ;;1374057

BQIRRD ;;4022763

BQIRREG ;;1555122

BQIRRHSP ;;871549

BQIRRPT ;;4420201

BQIRSPMT ;;2155661

BQIRSPR ;;1870737

BQIRWS ;;3344079

BQISCHED ;;2619147

BQISYKEY ;;10240117

BQISYSIT ;;9305664

BQISYWEB ;;1315357

BQITASK ;;18133637

BQITASK1 ;;2733306

BQITASK2 ;;94903

BQITASK3 ;;1885980

BQITAXX ;;15729295

BQITAXX1 ;;2627364

BQITAXX2 ;;7124892

BQITAXX3 ;;5407944

BQITAXX4 ;;2171184

BQITBMI ;;23987176

BQITD01 ;;188170

BQITD02 ;;191416

BQITD03 ;;18409071

BQITD031 ;;11158751

BQITD04 ;;1308499

BQITD05 ;;12195069

BQITD06 ;;1858003

BQITD07 ;;217141

BQITD08 ;;12887837

BQITD081 ;;3312396

BQITD09 ;;213491

BQITD10 ;;2642278

BQITD11 ;;18220375

BQITD12 ;;213448

BQITDGN ;;13780472

BQITDLST ;;9802161

BQITDPAT ;;2549206

BQITDPNL ;;6235520

BQITDPRC ;;10736145

BQITDRUN ;;2341435

BQITDTG ;;2701199

BQITDUTL ;;10028784

BQITDVAL ;;9223791

BQITDWC ;;2258769

BQITHCH ;;14841697

BQITIULS ;;5166192

BQITIUTX ;;1314381

BQITNPH ;;17537108

BQITRACB ;;3268302

BQITRADD ;;2399274

BQITRALG ;;3931799

BQITRCHR ;;14399661

BQITRCKN ;;24295303

BQITRCON ;;4423913

BQITRCSG ;;8806178

BQINTEG0  ;ISC/XTSUMBLD KERNEL - Package checksum checker ;3110207.111622

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

 +2       ;;7.3;3110207.111622

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

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

BQIPLPP   ;;17686174

BQIPLPT   ;;1027436

BQIPLRF   ;;9864764

BQIPLRP   ;;9711793

BQIPLRT   ;;11823052

BQIPLRT1  ;;7462201

BQIPLRVW  ;;11116007

BQIPLSH   ;;28442988

BQIPLSL   ;;2390220

BQIPLSTA  ;;916035

BQIPLTP   ;;10395277

BQIPLUSR  ;;6764374

BQIPLUTL  ;;4831094

BQIPLVEW  ;;7376321

BQIPLVW   ;;1894034

BQIPLVWC  ;;16196070

BQIPLVWP  ;;8335668

BQIPTALG  ;;2783472

BQIPTAP   ;;2430124

BQIPTBTL  ;;1726138

BQIPTCPT  ;;3406175

BQIPTDDG  ;;3542558

BQIPTDG   ;;6066728

BQIPTDMG  ;;3647420

BQIPTDX   ;;12366996

BQIPTED   ;;4546048

BQIPTELD  ;;2567534

BQIPTEXM  ;;3674848

BQIPTFHD  ;;8077043

BQIPTFHE  ;;19255184

BQIPTFHH  ;;2813429

BQIPTFHR  ;;12170077

BQIPTFHS  ;;12122392

BQIPTFHT  ;;4347490

BQIPTFLG  ;;2658744

BQIPTHF   ;;3120462

BQIPTIMM  ;;4210008

BQIPTIMP  ;;730150

BQIPTINS  ;;3835508

BQIPTLKP  ;;6038259

BQIPTLNK  ;;1490865

BQIPTMRG  ;;5071810

BQIPTMSR  ;;11551785

BQIPTPNL  ;;4176717

BQIPTPR   ;;8859558

BQIPTPRC  ;;4722890

BQIPTPRV  ;;1019557

BQIPTREG  ;;5076891

BQIPTREP  ;;21701271

BQIPTREV  ;;2537416

BQIPTRF   ;;4509233

BQIPTRPF  ;;4543112

BQIPTRPU  ;;8023200

BQIPTSEN  ;;1223871

BQIPTSKN  ;;3678842

BQIPTTR   ;;3784978

BQIPTUPD  ;;5848627

BQIPTVFV  ;;2322912

BQIPTVS   ;;3773522

BQIPTVST  ;;1088540

BQIREM    ;;5394135

BQIRFCE   ;;1898272

BQIRFCRQ  ;;1929658

BQIRGADD  ;;13735075

BQIRGAGL  ;;1478972

BQIRGASP  ;;5664756

BQIRGASU  ;;15087849

BQIRGDEF  ;;3681014

BQIRGHGL  ;;1511743

BQIRGHLP  ;;3444406

BQIRGHML  ;;2207797

BQIRGHOF  ;;2633696

BQIRGLK   ;;4383268

BQIRGLST  ;;1781669

BQIRGPL   ;;12300702

BQIRGPT   ;;3499705

BQIRGTH1  ;;3600199

BQIRGTH2  ;;1766733

BQIRGTHM  ;;3253611

BQIRGUTL  ;;7831664

BQIRGVW   ;;1939483

BQIRHS    ;;1576976

BQIRHSR   ;;1260043

BQIRLB    ;;9248083

BQIRMAGG  ;;6592014

BQIRMD    ;;6723642

BQIRMDR   ;;20495776

BQIRMDR1  ;;5167961

BQIRMHLP  ;;15151487

BQIRMPAT  ;;844277

BQIRMPL   ;;12456012

BQIRMREG  ;;6135022

BQIRMRHL  ;;3058356

BQIRMRUN  ;;1169574

BQIRPASM  ;;2430660

BQIRPL    ;;20222499

BQIRPLN   ;;6341547

BQIRPWH   ;;1374057

BQIRRD    ;;4022763

BQIRREG   ;;1555122

BQIRRHSP  ;;871549

BQIRRPT   ;;4420201

BQIRSPMT  ;;2155661

BQIRSPR   ;;1870737

BQIRWS    ;;3344079

BQISCHED  ;;2619147

BQISYKEY  ;;10240117

BQISYSIT  ;;9305664

BQISYWEB  ;;1315357

BQITASK   ;;18133637

BQITASK1  ;;2733306

BQITASK2  ;;94903

BQITASK3  ;;1885980

BQITAXX   ;;15729295

BQITAXX1  ;;2627364

BQITAXX2  ;;7124892

BQITAXX3  ;;5407944

BQITAXX4  ;;2171184

BQITBMI   ;;23987176

BQITD01   ;;188170

BQITD02   ;;191416

BQITD03   ;;18409071

BQITD031  ;;11158751

BQITD04   ;;1308499

BQITD05   ;;12195069

BQITD06   ;;1858003

BQITD07   ;;217141

BQITD08   ;;12887837

BQITD081  ;;3312396

BQITD09   ;;213491

BQITD10   ;;2642278

BQITD11   ;;18220375

BQITD12   ;;213448

BQITDGN   ;;13780472

BQITDLST  ;;9802161

BQITDPAT  ;;2549206

BQITDPNL  ;;6235520

BQITDPRC  ;;10736145

BQITDRUN  ;;2341435

BQITDTG   ;;2701199

BQITDUTL  ;;10028784

BQITDVAL  ;;9223791

BQITDWC   ;;2258769

BQITHCH   ;;14841697

BQITIULS  ;;5166192

BQITIUTX  ;;1314381

BQITNPH   ;;17537108

BQITRACB  ;;3268302

BQITRADD  ;;2399274

BQITRALG  ;;3931799

BQITRCHR  ;;14399661

BQITRCKN  ;;24295303

BQITRCON  ;;4423913

BQITRCSG  ;;8806178