source: FOIAVistA/tag/r/SCHEDULING-SD-SC/SDNTEG0.m@ 1621

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

initial load of FOIAVistA 6/30/08 version
File size: 2.6 KB
Line 
1SDNTEG0 ;ISC/XTSUMBLD KERNEL - Package checksum checker ;AUG 13, 1993@12:51:49
2 ;;5.3;Scheduling;;Aug 13, 1993
3 ;;7.0;AUG 13, 1993@12:51:49
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 ;;
12SDMULT ;;7484316
13SDMULT0 ;;15841854
14SDMULT1 ;;9609770
15SDN ;;13190633
16SDN0 ;;10745291
17SDN1 ;;15925636
18SDN2 ;;2148726
19SDNACT ;;13249640
20SDNACT1 ;;5666984
21SDNDIS ;;8278294
22SDNEXT ;;3901484
23SDNOS ;;16972788
24SDNOS0 ;;16880853
25SDNOS1 ;;12327597
26SDNOS1A ;;2101232
27SDNOS2 ;;5107044
28SDNP ;;3355964
29SDONI001 ;;6235821
30SDONI002 ;;5848496
31SDONI003 ;;5872589
32SDONI004 ;;6366190
33SDONI005 ;;7545844
34SDONI006 ;;8448875
35SDONI007 ;;5917220
36SDONI008 ;;7027147
37SDONI009 ;;7223308
38SDONI010 ;;7596385
39SDONI011 ;;1869958
40SDONIT ;;975625
41SDONIT1 ;;1683550
42SDONIT2 ;;82270
43SDONIT3 ;;10576031
44SDOPC ;;13893366
45SDOPC0 ;;8303286
46SDOPC1 ;;19561908
47SDOPC2 ;;8401400
48SDOPC3 ;;15775861
49SDOPC4 ;;5237052
50SDOPC5 ;;5436070
51SDOPCDEL ;;7891083
52SDOUTPUT ;;2244356
53SDPARM ;;5249701
54SDPARM1 ;;1553513
55SDPARM2 ;;671202
56SDPP ;;3034351
57SDPPADD1 ;;4364131
58SDPPALL ;;5112745
59SDPPAPP1 ;;5177737
60SDPPAPP2 ;;2219211
61SDPPAT1 ;;7771900
62SDPPAT2 ;;5274978
63SDPPDIS1 ;;6965566
64SDPPDIS2 ;;4256184
65SDPPENR1 ;;3517678
66SDPPHLP ;;5694325
67SDPPMT1 ;;3905693
68SDPPMT2 ;;4801073
69SDPPSEL ;;3358971
70SDPSDR ;;14768443
71SDPSDR1 ;;15374612
72SDPURG ;;11231352
73SDPURG1 ;;11787942
74SDPURG2 ;;5183530
75SDREACT ;;13194688
76SDREV ;;5852789
77SDRFC ;;7940120
78SDROUT ;;9180900
79SDROUT0 ;;13234586
80SDROUT1 ;;12264522
81SDROUT2 ;;8476364
82SDSCE ;;6418042
83SDSCP ;;20087063
84SDSCP1 ;;15494739
85SDST ;;10694638
86SDSTAT ;;6678622
87SDSTP ;;7342317
88SDSTP1 ;;5317060
89SDSTP2 ;;6761871
90SDSTP3 ;;4306362
91SDSURMEN ;;1001315
92SDTRAN ;;9494629
93SDTRAN1 ;;8582962
94SDTRAN3 ;;4915408
95SDTRAN4 ;;6282195
96SDTRAND1 ;;9304255
97SDTRAND2 ;;11346585
98SDTRANDV ;;3512495
99SDUL ;;3945856
100SDUL0 ;;6331480
101SDUL1 ;;6667122
102SDUL2 ;;3405578
103SDUL4 ;;3922391
104SDUL40 ;;3773937
105SDUNC ;;14954499
106SDUNC1 ;;3608531
107SDUTL ;;5100474
108SDUTL1 ;;4495031
109SDUTL2 ;;1377730
110SDV53PP ;;878308
111SDV53PR ;;532938
112SDV53PT ;;540485
113SDVADAT ;;9027439
114SDVADS ;;2822966
115SDVER ;;306362
116SDVLT ;;8167296
117SDVPP ;;5092613
118SDVPR ;;418341
119SDVPT ;;10774005
120SDVSIT ;;4191071
121SDVSIT0 ;;2375396
122SDVSIT2 ;;2433623
123SDWARD ;;5293772
Note: See TracBrowser for help on using the repository browser.