source: WorldVistAEHR/trunk/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSNTEG0.m@ 1489

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

initial load of WorldVistAEHR

File size: 1.7 KB
Line 
1YSNTEG0 ;ISC/XTSUMBLD KERNEL - Package checksum checker ;DEC 30, 1994@12:03:30
2 ;;5.01;MENTAL HEALTH;;Dec 30, 1994
3 ;;7.2;DEC 30, 1994@12:03:30
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 ;;
12YTATQ ;;783989
13YTAUDIT ;;6602350
14YTAUIR ;;6595891
15YTAUIRR ;;7352162
16YTBECK ;;2239696
17YTBI ;;10263261
18YTBPRS ;;1984880
19YTCHECK ;;13786690
20YTCLERK ;;10496816
21YTCLERK1 ;;5396070
22YTCROSS ;;2730385
23YTDEMO ;;925892
24YTDESC ;;4447470
25YTDP ;;12233757
26YTDP1 ;;4433852
27YTDRIV ;;6138159
28YTEX ;;8262478
29YTEXT ;;12642311
30YTEXT1 ;;6625740
31YTFEAR ;;2515560
32YTFILE ;;10292787
33YTFIRO ;;1838163
34YTKIL ;;6560459
35YTKILINC ;;4999571
36YTLCTD ;;2849688
37YTLIST ;;6963730
38YTMATE ;;2398541
39YTMCMI ;;6559924
40YTMCMI2 ;;5805727
41YTMCMI2A ;;6622615
42YTMCMI2B ;;11536510
43YTMCMI2C ;;15542391
44YTMCMI2D ;;4032856
45YTMILL ;;4357641
46YTMMP1 ;;4734122
47YTMMP2 ;;9566672
48YTMMP3 ;;7456953
49YTMMP4 ;;5122198
50YTMMP5 ;;8096895
51YTMMP6 ;;5119686
52YTMMP7 ;;1105934
53YTMMPI ;;4597251
54YTMMPI2 ;;11681822
55YTMMPI2A ;;8018650
56YTMMPI2B ;;15269695
57YTMMPI2C ;;3920472
58YTMMPI2P ;;10613293
59YTMMPP ;;6260198
60YTMYER ;;3777254
61YTPIT ;;2928525
62YTPSI ;;2321930
63YTREPT ;;8566612
64YTS ;;9326856
65YTSCII ;;10186838
66YTSTAT ;;5058469
67YTTB ;;13326259
68YTTLS ;;2366172
Note: See TracBrowser for help on using the repository browser.