RORNTEG.m

RORNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ; 10/20/06 4:10pm

 ;;0.0;;**1**;;Build 24

 ;;7.3;3060622.15354

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

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

ROR ;;2717781

ROR01 ;;1117

ROR02 ;;1122

ROR10 ;;7730208

ROR11 ;;8580380

RORAPI01 ;;1957725

RORBIN ;;2967124

RORDD ;;4656034

RORDD01 ;;3739193

RORERR ;;4405971

RORERR20 ;;14492523

ROREVT01 ;;2008294

ROREXPR ;;5694255

ROREXT ;;3147105

ROREXT01 ;;8425154

ROREXT02 ;;5834876

ROREXT03 ;;4554817

ROREXTUT ;;5555893

RORHDT ;;3387490

RORHDT01 ;;1390687

RORHDT02 ;;2997526

RORHDT03 ;;4297815

RORHDT04 ;;9379124

RORHDT05 ;;2711736

RORHDT06 ;;3568354

RORHDTAC ;;2854289

RORHDTUT ;;5831331

RORHIV03 ;;4806950

RORHIVUT ;;357536

RORHL01 ;;1491461

RORHL02 ;;5546944

RORHL03 ;;5627421

RORHL031 ;;6064797

RORHL04 ;;5297245

RORHL05 ;;4084796

RORHL06 ;;4217993

RORHL07 ;;2524507

RORHL071 ;;2486458

RORHL08 ;;5887870

RORHL081 ;;7585616

RORHL09 ;;6026195

RORHL10 ;;5509115

RORHL11 ;;4565613

RORHL12 ;;2399116

RORHL121 ;;9878360

RORHL13 ;;3466976

RORHL14 ;;5357488

RORHL15 ;;3649245

RORHL16 ;;3252430

RORHL17 ;;4936158

RORHL7 ;;4806448

RORHL7A ;;4554021

RORHLUT1 ;;1806943

RORKIDS ;;6182684

RORLOCK ;;4943216

RORLOG ;;6030893

RORLOG01 ;;3716383

RORPUT01 ;;4800327

RORPUT02 ;;5936706

RORREP01 ;;9158405

RORREP02 ;;10911089

RORRP007 ;;4442755

RORRP010 ;;1881192

RORRP011 ;;2555508

RORRP012 ;;1144389

RORRP013 ;;4665100

RORRP014 ;;2785597

RORRP015 ;;3365112

RORRP016 ;;6117318

RORRP017 ;;1924388

RORRP018 ;;1666201

RORRP019 ;;6121598

RORRP020 ;;4475572

RORRP021 ;;3721454

RORRP022 ;;1262090

RORRP023 ;;2273081

RORRP024 ;;3821351

RORRP025 ;;4917408

RORRP026 ;;10244091

RORRP027 ;;6675003

RORRP029 ;;1527601

RORRP030 ;;1101835

RORRP031 ;;4897990

RORRP032 ;;5035421

RORRP033 ;;2395118

RORRP034 ;;3041648

RORRP035 ;;1597804

RORRP036 ;;1773818

RORRP037 ;;2638742

RORRP038 ;;4339809

RORRP040 ;;4049054

RORRP041 ;;2687037

RORRP042 ;;2333070

RORSET01 ;;4563146

RORSETU1 ;;2833894

RORSETU2 ;;2447593

RORTMP ;;679112

RORTSK ;;3964693

RORTSK01 ;;7070947

RORTSK02 ;;4523778

RORTSK03 ;;2058050

RORTSK10 ;;5996899

RORTSK11 ;;3147053

RORTSK12 ;;2274583

RORTSK13 ;;6727870

RORTSK14 ;;2157270

RORTXT ;;141117

RORUPD ;;3118364

RORUPD01 ;;7989261

RORUPD04 ;;5421758

RORUPD05 ;;7081275

RORUPD06 ;;3084967

RORUPD07 ;;2356625

RORUPD08 ;;4579765

RORUPD09 ;;2869944

RORUPD50 ;;3764045

RORUPD51 ;;8479975

RORUPD52 ;;2557167

RORUPD62 ;;1941130

RORUPDUT ;;7113425

RORUPEX ;;3382608

RORUPP01 ;;3620688

RORUPP02 ;;3149282

RORUPR ;;5364149

RORUPR1 ;;10955587

RORUTL01 ;;4692322

RORUTL02 ;;5296575

RORUTL03 ;;8066801

RORUTL04 ;;2076790

RORUTL05 ;;7047621

RORUTL06 ;;10075666

RORUTL07 ;;2099977

RORUTL08 ;;3164502

RORUTL09 ;;1836557

RORUTL10 ;;5740794

RORUTL11 ;;942933

RORUTL14 ;;1375993

RORUTL15 ;;6511088

RORUTL16 ;;2364514

RORUTL17 ;;6994520

RORUTL18 ;;3250231

RORUTL19 ;;1203624

RORVM001 ;;609363

RORX000 ;;2233772

RORX001 ;;5778832

RORX002 ;;3845106

RORX003 ;;5545892

RORX003A ;;7545014

RORX004 ;;3369267

RORX005 ;;1558283

RORX005A ;;5728919

RORX005B ;;2068516

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---RORNTEG   3685     printed  Apr 09, 2024@20:50:13                                                                                                                                                                                                     Page 2

RORNTEG   ;ISC/XTSUMBLD KERNEL - Package checksum checker ; 10/20/06 4:10pm

 +1       ;;0.0;;**1**;;Build 24

 +2       ;;7.3;3060622.15354

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

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

ROR       ;;2717781

ROR01     ;;1117

ROR02     ;;1122

ROR10     ;;7730208

ROR11     ;;8580380

RORAPI01  ;;1957725

RORBIN    ;;2967124

RORDD     ;;4656034

RORDD01   ;;3739193

RORERR    ;;4405971

RORERR20  ;;14492523

ROREVT01  ;;2008294

ROREXPR   ;;5694255

ROREXT    ;;3147105

ROREXT01  ;;8425154

ROREXT02  ;;5834876

ROREXT03  ;;4554817

ROREXTUT  ;;5555893

RORHDT    ;;3387490

RORHDT01  ;;1390687

RORHDT02  ;;2997526

RORHDT03  ;;4297815

RORHDT04  ;;9379124

RORHDT05  ;;2711736

RORHDT06  ;;3568354

RORHDTAC  ;;2854289

RORHDTUT  ;;5831331

RORHIV03  ;;4806950

RORHIVUT  ;;357536

RORHL01   ;;1491461

RORHL02   ;;5546944

RORHL03   ;;5627421

RORHL031  ;;6064797

RORHL04   ;;5297245

RORHL05   ;;4084796

RORHL06   ;;4217993

RORHL07   ;;2524507

RORHL071  ;;2486458

RORHL08   ;;5887870

RORHL081  ;;7585616

RORHL09   ;;6026195

RORHL10   ;;5509115

RORHL11   ;;4565613

RORHL12   ;;2399116

RORHL121  ;;9878360

RORHL13   ;;3466976

RORHL14   ;;5357488

RORHL15   ;;3649245

RORHL16   ;;3252430

RORHL17   ;;4936158

RORHL7    ;;4806448

RORHL7A   ;;4554021

RORHLUT1  ;;1806943

RORKIDS   ;;6182684

RORLOCK   ;;4943216

RORLOG    ;;6030893

RORLOG01  ;;3716383

RORPUT01  ;;4800327

RORPUT02  ;;5936706

RORREP01  ;;9158405

RORREP02  ;;10911089

RORRP007  ;;4442755

RORRP010  ;;1881192

RORRP011  ;;2555508

RORRP012  ;;1144389

RORRP013  ;;4665100

RORRP014  ;;2785597

RORRP015  ;;3365112

RORRP016  ;;6117318

RORRP017  ;;1924388

RORRP018  ;;1666201

RORRP019  ;;6121598

RORRP020  ;;4475572

RORRP021  ;;3721454

RORRP022  ;;1262090

RORRP023  ;;2273081

RORRP024  ;;3821351

RORRP025  ;;4917408

RORRP026  ;;10244091

RORRP027  ;;6675003

RORRP029  ;;1527601

RORRP030  ;;1101835

RORRP031  ;;4897990

RORRP032  ;;5035421

RORRP033  ;;2395118

RORRP034  ;;3041648

RORRP035  ;;1597804

RORRP036  ;;1773818

RORRP037  ;;2638742

RORRP038  ;;4339809

RORRP040  ;;4049054

RORRP041  ;;2687037

RORRP042  ;;2333070

RORSET01  ;;4563146

RORSETU1  ;;2833894

RORSETU2  ;;2447593

RORTMP    ;;679112

RORTSK    ;;3964693

RORTSK01  ;;7070947

RORTSK02  ;;4523778

RORTSK03  ;;2058050

RORTSK10  ;;5996899

RORTSK11  ;;3147053

RORTSK12  ;;2274583

RORTSK13  ;;6727870

RORTSK14  ;;2157270

RORTXT    ;;141117

RORUPD    ;;3118364

RORUPD01  ;;7989261

RORUPD04  ;;5421758

RORUPD05  ;;7081275

RORUPD06  ;;3084967

RORUPD07  ;;2356625

RORUPD08  ;;4579765

RORUPD09  ;;2869944

RORUPD50  ;;3764045

RORUPD51  ;;8479975

RORUPD52  ;;2557167

RORUPD62  ;;1941130

RORUPDUT  ;;7113425

RORUPEX   ;;3382608

RORUPP01  ;;3620688

RORUPP02  ;;3149282

RORUPR    ;;5364149

RORUPR1   ;;10955587

RORUTL01  ;;4692322

RORUTL02  ;;5296575

RORUTL03  ;;8066801

RORUTL04  ;;2076790

RORUTL05  ;;7047621

RORUTL06  ;;10075666

RORUTL07  ;;2099977

RORUTL08  ;;3164502

RORUTL09  ;;1836557

RORUTL10  ;;5740794

RORUTL11  ;;942933

RORUTL14  ;;1375993

RORUTL15  ;;6511088

RORUTL16  ;;2364514

RORUTL17  ;;6994520

RORUTL18  ;;3250231

RORUTL19  ;;1203624

RORVM001  ;;609363

RORX000   ;;2233772

RORX001   ;;5778832

RORX002   ;;3845106

RORX003   ;;5545892

RORX003A  ;;7545014

RORX004   ;;3369267

RORX005   ;;1558283

RORX005A  ;;5728919

RORX005B  ;;2068516