source: FOIAVistA/trunk/r/TOOLKIT-AWCM-XD-XIN-XPAR-XQAB-XT-XUC-XUR-ZIN-ZTED/XTNTEG01.m@ 810

Last change on this file since 810 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 1.5 KB
Line 
1XTNTEG01 ;ISC/XTSUMBLD KERNEL - Package checksum checker ;2950425.092013
2 ;;7.3;TOOLKIT;;Apr 25, 1995
3 ;;7.3;2950425.092013
4 S XT4="I 1",X=$T(+3) W !!,"Checksum routine created on ",$P(X,";",4)," by KERNEL V",$P(X,";",3),!
5CONT 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")
6 ;
7 K %1,%2,%3,X,Y,XT1,XT2,XT3,XT4 Q
8ONE S XT4="I $D(^UTILITY($J,X))",X=$T(+3) W !!,"Checksum routine created on ",$P(X,";",4)," by KERNEL V",$P(X,";",3),!
9 W !,"Check a subset of routines:" K ^UTILITY($J) X ^%ZOSF("RSEL")
10 W ! G CONT
11ROU ;;
12XUCSINI1 ;;5671874
13XUCSINI2 ;;5232622
14XUCSINI3 ;;16094695
15XUCSINI4 ;;3357794
16XUCSINI5 ;;628012
17XUCSINIS ;;2216765
18XUCSINIT ;;10890951
19XUCSLOAD ;;6778573
20XUCSPRG ;;4520058
21XUCSRV ;;5969322
22XUCSTM ;;6457738
23XUCSTME ;;13223145
24XUCSUTL ;;2837344
25XUCSUTL2 ;;6021611
26XUCSUTL3 ;;11276783
27XURTL ;;7949393
28XURTL1 ;;7623474
29XURTL2 ;;5911591
30XURTL3 ;;9463174
31XURTL4 ;;8083788
32XURTLC ;;3647421
33XURTLK ;;5463315
34ZINDEX ;;7934389
35ZINDX1 ;;5876099
36ZINDX10 ;;11716270
37ZINDX11 ;;6160284
38ZINDX2 ;;4603647
39ZINDX3 ;;3896672
40ZINDX4 ;;4546127
41ZINDX5 ;;6415684
42ZINDX51 ;;8782796
43ZINDX52 ;;2299766
44ZINDX53 ;;4122137
45ZINDX6 ;;12035964
46ZINDX8 ;;6760814
47ZINDX9 ;;4986099
48ZINDXH ;;1579327
49ZTEDIT ;;11385452
50ZTEDIT1 ;;9783719
51ZTEDIT2 ;;12580728
52ZTEDIT3 ;;9890321
53ZTEDIT4 ;;4936626
54ZTGS ;;1511640
55ZTP1 ;;7893577
56ZTPP ;;7019346
57ZTRDEL ;;959784
58ZTRTHV ;;6018658
Note: See TracBrowser for help on using the repository browser.