BQINTEG.m

BQINTEG ;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^BQINTEG0

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

BQI11PRE ;;532847

BQI11PST ;;14938198

BQI1POJB ;;15472537

BQI1POST ;;5488855

BQI1PRE ;;218715

BQI202PR ;;813605

BQI202PS ;;35108041

BQI202PU ;;25466716

BQI21POS ;;12592647

BQI21PRE ;;2062229

BQI2POS1 ;;8733324

BQI2POSI ;;2718815

BQI2POST ;;18213063

BQI2PRE ;;1393520

BQIAAP ;;1854587

BQIAGE ;;2613778

BQIATX ;;769406

BQIATXA ;;948686

BQIATXB ;;1031361

BQIATXC ;;985799

BQIATXD ;;1884156

BQIATXE ;;3377367

BQIATXEB ;;1074817

BQIATXF ;;1803661

BQIATXG ;;1439272

BQIATXH ;;1297923

BQIATXI ;;925975

BQIATXJ ;;2787687

BQIATXJB ;;2677142

BQIATXJC ;;4011458

BQIATXJD ;;4788877

BQIATXJE ;;4786327

BQIATXJF ;;4815841

BQIATXJG ;;4830303

BQIATXJH ;;4840537

BQIATXJI ;;4822794

BQIATXJJ ;;4815812

BQIATXJK ;;2379140

BQIATXK ;;1604090

BQIATXL ;;879259

BQIATXM ;;930951

BQIBTX ;;739344

BQIBTXA ;;1101739

BQIBTXB ;;968820

BQIBTXC ;;1019507

BQIBTXD ;;1072623

BQIBTXE ;;974479

BQIBTXF ;;3353829

BQIBTXG ;;1815558

BQIBTXH ;;4055315

BQIBTXHB ;;1056490

BQIBTXI ;;1011118

BQIBTXJ ;;3517914

BQIBTXK ;;931106

BQIBTXL ;;851556

BQIBTXM ;;883190

BQICAHLP ;;1581094

BQICALRT ;;7408788

BQICAPT ;;9893275

BQICASPL ;;9660583

BQICASUI ;;9907389

BQICAVW ;;7063719

BQICEVW ;;17199922

BQICMDNM ;;1942636

BQICMHLP ;;1898057

BQICMLST ;;6709831

BQICMRUN ;;1491494

BQICMVW ;;16766769

BQIDCABA ;;1083447

BQIDCABK ;;2222167

BQIDCAH ;;16294782

BQIDCAH1 ;;12534480

BQIDCAH2 ;;5475566

BQIDCAPC ;;5449356

BQIDCAPH ;;5188391

BQIDCASN ;;5919851

BQIDCDF ;;1928580

BQIDCEPL ;;2175836

BQIDCERA ;;1700335

BQIDCEUA ;;1858593

BQIDCHSA ;;1711276

BQIDCLK ;;3107543

BQIDCMCM ;;939569

BQIDCMDP ;;1725988

BQIDCMPR ;;1903837

BQIDCMSP ;;1500011

BQIDCMYC ;;1567038

BQIDCPM ;;2350869

BQIDCREG ;;3352604

BQIDCTX ;;3868545

BQIDCUTL ;;8229960

BQIETX ;;465273

BQIETXA ;;3237086

BQIETXAB ;;3560969

BQIETXB ;;1367652

BQIETXC ;;1672919

BQIETXD ;;1316640

BQIETXE ;;1918856

BQIETXF ;;1803689

BQIETXG ;;1297927

BQIETXH ;;2867074

BQIFLAG ;;4651585

BQIFLFLG ;;5259533

BQIFLG ;;6972163

BQIFLGET ;;18769684

BQIFLRUN ;;1176442

BQIFLUPD ;;1181452

BQIGPAGG ;;1552848

BQIGPHLP ;;10704458

BQIGPPL ;;11084920

BQIGPRA ;;11880437

BQIGPRA1 ;;12033298

BQIGPRA2 ;;9257666

BQIGPRA3 ;;1528340

BQIGPRA4 ;;4882233

BQIGPRUN ;;2353576

BQIGPUPD ;;12419817

BQIGPUTL ;;986180

BQIGPVW ;;13585227

BQIHTX ;;106384

BQIHTXA ;;1240244

BQIHTXB ;;1079185

BQIITX ;;95052

BQIITXA ;;1209526

BQIITXB ;;1448008

BQILYDEF ;;9894517

BQILYUTL ;;225482

BQIMSLST ;;5361105

BQIMSPL ;;12955818

BQIMSVW ;;8953813

BQINIGH1 ;;14255407

BQINIGH2 ;;5142911

BQINIGHT ;;14661818

BQINOTF ;;6136849

BQINRUN ;;1123549

BQIPLADR ;;4283527

BQIPLAP ;;3945929

BQIPLCP ;;9109790

BQIPLCR ;;14289955

BQIPLCTX ;;5309137

BQIPLDF ;;8707971

BQIPLDFN ;;726453

BQIPLDL ;;2692860

BQIPLDS1 ;;13284346

BQIPLDS2 ;;749607

BQIPLDSC ;;19785114

BQIPLFL ;;17898099

BQIPLFLG ;;9771423

BQIPLLAY ;;8488390

BQIPLLK ;;4205427

BQIPLLOG ;;1676820

BQIPLMF ;;996805

BQIPLMRU ;;1918652

BQIPLMY ;;6894919

BQIPLPM ;;11038713

BQIPLPNL ;;1703856

BQINTEG   ;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^BQINTEG0

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

BQI11PRE  ;;532847

BQI11PST  ;;14938198

BQI1POJB  ;;15472537

BQI1POST  ;;5488855

BQI1PRE   ;;218715

BQI202PR  ;;813605

BQI202PS  ;;35108041

BQI202PU  ;;25466716

BQI21POS  ;;12592647

BQI21PRE  ;;2062229

BQI2POS1  ;;8733324

BQI2POSI  ;;2718815

BQI2POST  ;;18213063

BQI2PRE   ;;1393520

BQIAAP    ;;1854587

BQIAGE    ;;2613778

BQIATX    ;;769406

BQIATXA   ;;948686

BQIATXB   ;;1031361

BQIATXC   ;;985799

BQIATXD   ;;1884156

BQIATXE   ;;3377367

BQIATXEB  ;;1074817

BQIATXF   ;;1803661

BQIATXG   ;;1439272

BQIATXH   ;;1297923

BQIATXI   ;;925975

BQIATXJ   ;;2787687

BQIATXJB  ;;2677142

BQIATXJC  ;;4011458

BQIATXJD  ;;4788877

BQIATXJE  ;;4786327

BQIATXJF  ;;4815841

BQIATXJG  ;;4830303

BQIATXJH  ;;4840537

BQIATXJI  ;;4822794

BQIATXJJ  ;;4815812

BQIATXJK  ;;2379140

BQIATXK   ;;1604090

BQIATXL   ;;879259

BQIATXM   ;;930951

BQIBTX    ;;739344

BQIBTXA   ;;1101739

BQIBTXB   ;;968820

BQIBTXC   ;;1019507

BQIBTXD   ;;1072623

BQIBTXE   ;;974479

BQIBTXF   ;;3353829

BQIBTXG   ;;1815558

BQIBTXH   ;;4055315

BQIBTXHB  ;;1056490

BQIBTXI   ;;1011118

BQIBTXJ   ;;3517914

BQIBTXK   ;;931106

BQIBTXL   ;;851556

BQIBTXM   ;;883190

BQICAHLP  ;;1581094

BQICALRT  ;;7408788

BQICAPT   ;;9893275

BQICASPL  ;;9660583

BQICASUI  ;;9907389

BQICAVW   ;;7063719

BQICEVW   ;;17199922

BQICMDNM  ;;1942636

BQICMHLP  ;;1898057

BQICMLST  ;;6709831

BQICMRUN  ;;1491494

BQICMVW   ;;16766769

BQIDCABA  ;;1083447

BQIDCABK  ;;2222167

BQIDCAH   ;;16294782

BQIDCAH1  ;;12534480

BQIDCAH2  ;;5475566

BQIDCAPC  ;;5449356

BQIDCAPH  ;;5188391

BQIDCASN  ;;5919851

BQIDCDF   ;;1928580

BQIDCEPL  ;;2175836

BQIDCERA  ;;1700335

BQIDCEUA  ;;1858593

BQIDCHSA  ;;1711276

BQIDCLK   ;;3107543

BQIDCMCM  ;;939569

BQIDCMDP  ;;1725988

BQIDCMPR  ;;1903837

BQIDCMSP  ;;1500011

BQIDCMYC  ;;1567038

BQIDCPM   ;;2350869

BQIDCREG  ;;3352604

BQIDCTX   ;;3868545

BQIDCUTL  ;;8229960

BQIETX    ;;465273

BQIETXA   ;;3237086

BQIETXAB  ;;3560969

BQIETXB   ;;1367652

BQIETXC   ;;1672919

BQIETXD   ;;1316640

BQIETXE   ;;1918856

BQIETXF   ;;1803689

BQIETXG   ;;1297927

BQIETXH   ;;2867074

BQIFLAG   ;;4651585

BQIFLFLG  ;;5259533

BQIFLG    ;;6972163

BQIFLGET  ;;18769684

BQIFLRUN  ;;1176442

BQIFLUPD  ;;1181452

BQIGPAGG  ;;1552848

BQIGPHLP  ;;10704458

BQIGPPL   ;;11084920

BQIGPRA   ;;11880437

BQIGPRA1  ;;12033298

BQIGPRA2  ;;9257666

BQIGPRA3  ;;1528340

BQIGPRA4  ;;4882233

BQIGPRUN  ;;2353576

BQIGPUPD  ;;12419817

BQIGPUTL  ;;986180

BQIGPVW   ;;13585227

BQIHTX    ;;106384

BQIHTXA   ;;1240244

BQIHTXB   ;;1079185

BQIITX    ;;95052

BQIITXA   ;;1209526

BQIITXB   ;;1448008

BQILYDEF  ;;9894517

BQILYUTL  ;;225482

BQIMSLST  ;;5361105

BQIMSPL   ;;12955818

BQIMSVW   ;;8953813

BQINIGH1  ;;14255407

BQINIGH2  ;;5142911

BQINIGHT  ;;14661818

BQINOTF   ;;6136849

BQINRUN   ;;1123549

BQIPLADR  ;;4283527

BQIPLAP   ;;3945929

BQIPLCP   ;;9109790

BQIPLCR   ;;14289955

BQIPLCTX  ;;5309137

BQIPLDF   ;;8707971

BQIPLDFN  ;;726453

BQIPLDL   ;;2692860

BQIPLDS1  ;;13284346

BQIPLDS2  ;;749607

BQIPLDSC  ;;19785114

BQIPLFL   ;;17898099

BQIPLFLG  ;;9771423

BQIPLLAY  ;;8488390

BQIPLLK   ;;4205427

BQIPLLOG  ;;1676820

BQIPLMF   ;;996805

BQIPLMRU  ;;1918652

BQIPLMY   ;;6894919

BQIPLPM   ;;11038713

BQIPLPNL  ;;1703856