Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: SR47NTEG

SR47NTEG.m

Go to the documentation of this file.
  1. SR47NTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;2960416.105153
  1. ;;3.0; Surgery ;**47**;24 Jun 93
  1. ;;7.3;2960416.105153
  1. S XT4="I 1",X=$T(+3) W !!,"Checksum routine created on ",$P(X,";",4)," by KERNEL V",$P(X,";",3),!
  1. 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")
  1. ;
  1. K %1,%2,%3,X,Y,XT1,XT2,XT3,XT4 Q
  1. 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),!
  1. W !,"Check a subset of routines:" K ^UTILITY($J) X ^%ZOSF("RSEL")
  1. W ! G CONT
  1. ROU ;;
  1. SR47UTL ;;5186696
  1. SROACAT ;;6834629
  1. SROACLN ;;6382097
  1. SROACMP ;;15283606
  1. SROACMP1 ;;23147328
  1. SROACOP ;;11057961
  1. SROAEX ;;11497138
  1. SROAL1 ;;11556805
  1. SROAL11 ;;6185305
  1. SROAL2 ;;10750948
  1. SROAL21 ;;4560325
  1. SROALDP ;;3293717
  1. SROALL ;;8208388
  1. SROALLP ;;7157469
  1. SROALLS ;;9420995
  1. SROALLSP ;;9396385
  1. SROALN3 ;;8782134
  1. SROALSS ;;9386797
  1. SROALSSP ;;9401244
  1. SROALST ;;7998160
  1. SROALSTP ;;7163403
  1. SROANEW ;;12648353
  1. SROAOP ;;11502577
  1. SROAOP1 ;;9115661
  1. SROAPAS ;;10345055
  1. SROAPCA ;;12866038
  1. SROAPIMS ;;9883808
  1. SROAPM ;;13636932
  1. SROAPRE ;;9679925
  1. SROAPRE1 ;;4729875
  1. SROAPRE2 ;;4097864
  1. SROAPRT1 ;;8082582
  1. SROAPRT3 ;;8454802
  1. SROAPRT6 ;;5446204
  1. SROAPRT7 ;;19000597
  1. SROAPS1 ;;7709387
  1. SROAPS2 ;;8985142
  1. SROASS ;;15084905
  1. SROATM1 ;;16910089
  1. SROATM2 ;;20513629
  1. SROATMNO ;;2391304
  1. SROAUTL ;;16235018
  1. SROAUTL0 ;;13849655
  1. SROAUTL1 ;;6288964
  1. SROAUTL2 ;;10038625
  1. SROAUTL3 ;;9274940
  1. SROAWL ;;19121947
  1. SROAWL1 ;;12759360
  1. SROCCAT ;;10145167
  1. SROCMPED ;;15262076
  1. SRODTH ;;8958275
  1. SRONASS ;;11518910
  1. SRONEW ;;12423013
  1. SRONITE ;;48989
  1. SRSCHUN1 ;;8317107
  1. SRSRQST1 ;;8780087
  1. SRSUP1 ;;16919215
  1. SRSUPRQ ;;18207165