BTPWNTEG.m

BTPWNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;3110202.081722

 ;;1.0;CARE MANAGEMENT EVENT TRACKING;;Feb 07, 2011

 ;;7.3;3110202.081722

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

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

BTPW1PRE ;;561169

BTPW1PST ;;33628018

BTPW1PSU ;;8433932

BTPWBTAD ;;11636880

BTPWBTTR ;;15857450

BTPWEHIS ;;6849202

BTPWETRG ;;18013386

BTPWEVNT ;;18264904

BTPWGLSY ;;1323508

BTPWHIST ;;17602238

BTPWLOCK ;;3279681

BTPWLTMP ;;13298311

BTPWNTE0 ;;2902951

BTPWPBTH ;;4168613

BTPWPCHT ;;10734896

BTPWPCLO ;;3855043

BTPWPDSP ;;20402251

BTPWPEVC ;;5944096

BTPWPEVO ;;14755072

BTPWPEVT ;;26588078

BTPWPFNC ;;2449358

BTPWPFND ;;19170865

BTPWPHIS ;;1316126

BTPWPLND ;;25963829

BTPWPLVW ;;15626786

BTPWPNLV ;;20872991

BTPWPPAT ;;15818492

BTPWPQVW ;;9387983

BTPWPSNP ;;10579859

BTPWPTBL ;;7198666

BTPWPTMP ;;8510812

BTPWPTRG ;;9273410

BTPWPUTL ;;2360283

BTPWPWRK ;;5029247

BTPWPWRS ;;9058444

BTPWRLAB ;;4420301

BTPWRMDR ;;7295374

BTPWRRAD ;;3139709

BTPWRVFL ;;1356905

BTPWRWHP ;;1246199

BTPWSCHD ;;15820970

BTPWTAB ;;4831675

BTPWTAX ;;3408390

BTPWTIAD ;;1329022

BTPWTINT ;;6785185

BTPWTIUN ;;4827044

BTPWTIUP ;;8140186

BTPWTIUS ;;978826

BTPWTIUT ;;9658203

BTPWTIUU ;;1768885

BTPWUX ;;3954892

BTPWUXA ;;1095307

BTPWUXB ;;1330390

BTPWUXC ;;3385887

BTPWUXCB ;;2324666

BTPWUXD ;;1066261

BTPWUXE ;;1297602

BTPWUXF ;;920747

BTPWUXG ;;1056953

BTPWUXH ;;1566292

BTPWUXI ;;1268491

BTPWUXJ ;;1758778

BTPWUXK ;;1525001

BTPWUXL ;;972077

BTPWUXM ;;1004019

BTPWUXN ;;956093

BTPWUXO ;;1138505

BTPWUXP ;;2220146

BTPWUXQ ;;925952

BTPWUXR ;;1371612

BTPWUXS ;;965510

BTPWUXT ;;916573

BTPWUXU ;;1156721

BTPWUXV ;;3201944

BTPWUXW ;;1018127

BTPWVTRG ;;5000429

BTPWVVAL ;;3701530

BTPWVX ;;1390370

BTPWVXA ;;1087897

BTPWVXB ;;1079906

BTPWVXC ;;1632078

BTPWVXD ;;1204846

BTPWVXE ;;1140473

BTPWVXF ;;931521

BTPWVXG ;;964856

BTPWVXH ;;1090169

BTPWVXI ;;1168520

BTPWVXJ ;;1030662

BTPWVXK ;;1661886

BTPWVXL ;;936968

BTPWVXM ;;1279459

BTPWVXN ;;952636

BTPWVXO ;;952206

BTPWVXP ;;954098

BTPWVXQ ;;1030189

BTPWVXR ;;951986

BTPWVXS ;;1225412

BTPWVXT ;;947764

BTPWVXU ;;1151635

BTPWVXV ;;1010698

BTPWVXW ;;927974

BTPWVXX ;;1059045

BTPWVXY ;;1012613

BTPWVXZ ;;1006474

BTPWWX ;;1347223

BTPWWXA ;;1405780

BTPWWXB ;;986411

BTPWWXC ;;1211060

BTPWWXD ;;933997

BTPWWXE ;;937564

BTPWWXF ;;1163330

BTPWWXG ;;954494

BTPWWXH ;;1104802

BTPWWXI ;;964833

BTPWWXJ ;;1091467

BTPWWXK ;;1159695

BTPWWXL ;;1229991

BTPWWXM ;;955084

BTPWWXN ;;949790

BTPWWXO ;;1102436

BTPWWXP ;;1978222

BTPWWXQ ;;1300283

BTPWWXR ;;1221164

BTPWWXS ;;1007316

BTPWWXT ;;1069764

BTPWWXU ;;921497

BTPWWXV ;;921059

BTPWWXW ;;1147998

BTPWWXX ;;936064

BTPWWXY ;;1089073

BTPWWXZ ;;1098250

BTPWXX ;;1325736

BTPWXXA ;;1095978

BTPWXXB ;;1020378

BTPWXXC ;;930932

BTPWXXD ;;955453

BTPWXXE ;;931385

BTPWXXF ;;953531

BTPWXXG ;;951864

BTPWXXH ;;950077

BTPWXXI ;;947779

BTPWXXJ ;;981041

BTPWXXK ;;981640

BTPWXXL ;;938252

BTPWXXM ;;940990

BTPWXXN ;;1007535

BTPWXXO ;;936366

BTPWXXP ;;1005278

BTPWXXQ ;;938264

BTPWXXR ;;1004209

BTPWXXS ;;934353

BTPWXXT ;;1021147

BTPWXXU ;;1108324

BTPWXXV ;;1259597

BTPWXXW ;;926070

BTPWXXX ;;930170

BTPWXXY ;;1301723

BTPWXXZ ;;1430092

BTPWYX ;;415042

BTPWNTEG  ;ISC/XTSUMBLD KERNEL - Package checksum checker ;3110202.081722

 +1       ;;1.0;CARE MANAGEMENT EVENT TRACKING;;Feb 07, 2011

 +2       ;;7.3;3110202.081722

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

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

BTPW1PRE  ;;561169

BTPW1PST  ;;33628018

BTPW1PSU  ;;8433932

BTPWBTAD  ;;11636880

BTPWBTTR  ;;15857450

BTPWEHIS  ;;6849202

BTPWETRG  ;;18013386

BTPWEVNT  ;;18264904

BTPWGLSY  ;;1323508

BTPWHIST  ;;17602238

BTPWLOCK  ;;3279681

BTPWLTMP  ;;13298311

BTPWNTE0  ;;2902951

BTPWPBTH  ;;4168613

BTPWPCHT  ;;10734896

BTPWPCLO  ;;3855043

BTPWPDSP  ;;20402251

BTPWPEVC  ;;5944096

BTPWPEVO  ;;14755072

BTPWPEVT  ;;26588078

BTPWPFNC  ;;2449358

BTPWPFND  ;;19170865

BTPWPHIS  ;;1316126

BTPWPLND  ;;25963829

BTPWPLVW  ;;15626786

BTPWPNLV  ;;20872991

BTPWPPAT  ;;15818492

BTPWPQVW  ;;9387983

BTPWPSNP  ;;10579859

BTPWPTBL  ;;7198666

BTPWPTMP  ;;8510812

BTPWPTRG  ;;9273410

BTPWPUTL  ;;2360283

BTPWPWRK  ;;5029247

BTPWPWRS  ;;9058444

BTPWRLAB  ;;4420301

BTPWRMDR  ;;7295374

BTPWRRAD  ;;3139709

BTPWRVFL  ;;1356905

BTPWRWHP  ;;1246199

BTPWSCHD  ;;15820970

BTPWTAB   ;;4831675

BTPWTAX   ;;3408390

BTPWTIAD  ;;1329022

BTPWTINT  ;;6785185

BTPWTIUN  ;;4827044

BTPWTIUP  ;;8140186

BTPWTIUS  ;;978826

BTPWTIUT  ;;9658203

BTPWTIUU  ;;1768885

BTPWUX    ;;3954892

BTPWUXA   ;;1095307

BTPWUXB   ;;1330390

BTPWUXC   ;;3385887

BTPWUXCB  ;;2324666

BTPWUXD   ;;1066261

BTPWUXE   ;;1297602

BTPWUXF   ;;920747

BTPWUXG   ;;1056953

BTPWUXH   ;;1566292

BTPWUXI   ;;1268491

BTPWUXJ   ;;1758778

BTPWUXK   ;;1525001

BTPWUXL   ;;972077

BTPWUXM   ;;1004019

BTPWUXN   ;;956093

BTPWUXO   ;;1138505

BTPWUXP   ;;2220146

BTPWUXQ   ;;925952

BTPWUXR   ;;1371612

BTPWUXS   ;;965510

BTPWUXT   ;;916573

BTPWUXU   ;;1156721

BTPWUXV   ;;3201944

BTPWUXW   ;;1018127

BTPWVTRG  ;;5000429

BTPWVVAL  ;;3701530

BTPWVX    ;;1390370

BTPWVXA   ;;1087897

BTPWVXB   ;;1079906

BTPWVXC   ;;1632078

BTPWVXD   ;;1204846

BTPWVXE   ;;1140473

BTPWVXF   ;;931521

BTPWVXG   ;;964856

BTPWVXH   ;;1090169

BTPWVXI   ;;1168520

BTPWVXJ   ;;1030662

BTPWVXK   ;;1661886

BTPWVXL   ;;936968

BTPWVXM   ;;1279459

BTPWVXN   ;;952636

BTPWVXO   ;;952206

BTPWVXP   ;;954098

BTPWVXQ   ;;1030189

BTPWVXR   ;;951986

BTPWVXS   ;;1225412

BTPWVXT   ;;947764

BTPWVXU   ;;1151635

BTPWVXV   ;;1010698

BTPWVXW   ;;927974

BTPWVXX   ;;1059045

BTPWVXY   ;;1012613

BTPWVXZ   ;;1006474

BTPWWX    ;;1347223

BTPWWXA   ;;1405780

BTPWWXB   ;;986411

BTPWWXC   ;;1211060

BTPWWXD   ;;933997

BTPWWXE   ;;937564

BTPWWXF   ;;1163330

BTPWWXG   ;;954494

BTPWWXH   ;;1104802

BTPWWXI   ;;964833

BTPWWXJ   ;;1091467

BTPWWXK   ;;1159695

BTPWWXL   ;;1229991

BTPWWXM   ;;955084

BTPWWXN   ;;949790

BTPWWXO   ;;1102436

BTPWWXP   ;;1978222

BTPWWXQ   ;;1300283

BTPWWXR   ;;1221164

BTPWWXS   ;;1007316

BTPWWXT   ;;1069764

BTPWWXU   ;;921497

BTPWWXV   ;;921059

BTPWWXW   ;;1147998

BTPWWXX   ;;936064

BTPWWXY   ;;1089073

BTPWWXZ   ;;1098250

BTPWXX    ;;1325736

BTPWXXA   ;;1095978

BTPWXXB   ;;1020378

BTPWXXC   ;;930932

BTPWXXD   ;;955453

BTPWXXE   ;;931385

BTPWXXF   ;;953531

BTPWXXG   ;;951864

BTPWXXH   ;;950077

BTPWXXI   ;;947779

BTPWXXJ   ;;981041

BTPWXXK   ;;981640

BTPWXXL   ;;938252

BTPWXXM   ;;940990

BTPWXXN   ;;1007535

BTPWXXO   ;;936366

BTPWXXP   ;;1005278

BTPWXXQ   ;;938264

BTPWXXR   ;;1004209

BTPWXXS   ;;934353

BTPWXXT   ;;1021147

BTPWXXU   ;;1108324

BTPWXXV   ;;1259597

BTPWXXW   ;;926070

BTPWXXX   ;;930170

BTPWXXY   ;;1301723

BTPWXXZ   ;;1430092

BTPWYX    ;;415042