source: FOIAVistA/trunk/r/PROSTHETICS-RMPR-RMPO-RMPS/RMPRNTE0.m@ 794

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

initial load of FOIAVistA 6/30/08 version

File size: 2.4 KB
Line 
1RMPRNTE0 ;ISC/XTSUMBLD KERNEL - Package checksum checker ;2960209.165831
2 ;;3.0;PROSTHETICS;;Feb 09, 1996
3 ;;7.3;2960209.165831
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 ;;
12RMPRI02C ;;17018673
13RMPRI02D ;;11563027
14RMPRI02E ;;8865635
15RMPRI02F ;;7027166
16RMPRI02G ;;6842109
17RMPRI02H ;;7244905
18RMPRI02I ;;5925694
19RMPRI02J ;;7534905
20RMPRI02K ;;6078959
21RMPRI02L ;;7201032
22RMPRI02M ;;7004564
23RMPRI02N ;;6741062
24RMPRI02O ;;7457773
25RMPRI02P ;;7839986
26RMPRI02Q ;;8526976
27RMPRI02R ;;7708749
28RMPRI02S ;;8803448
29RMPRI02T ;;6563270
30RMPRI02U ;;7870262
31RMPRI02V ;;10580744
32RMPRI02W ;;7403138
33RMPRI02X ;;5302860
34RMPRI02Y ;;5789094
35RMPRI02Z ;;3515264
36RMPRINI1 ;;4973915
37RMPRINI2 ;;5232635
38RMPRINI3 ;;16808150
39RMPRINI4 ;;3357807
40RMPRINI5 ;;3278376
41RMPRINIS ;;2216491
42RMPRINIT ;;10531058
43RMPRKIL ;;2168834
44RMPRL22 ;;4975183
45RMPRL9 ;;15167046
46RMPRLI ;;6459285
47RMPRM ;;9889881
48RMPROP ;;3115920
49RMPROPN ;;12427496
50RMPROPN1 ;;7720327
51RMPRP2 ;;4917982
52RMPRP21 ;;19620260
53RMPRP22 ;;11385923
54RMPRP23 ;;11575829
55RMPRP24 ;;6186689
56RMPRP55 ;;19076827
57RMPRPAT ;;15563799
58RMPRPAT0 ;;8504379
59RMPRPAT1 ;;14399533
60RMPRPAT2 ;;7570637
61RMPRPAT3 ;;6735087
62RMPRPAT5 ;;7777843
63RMPRPAT6 ;;8200177
64RMPRPOST ;;8415128
65RMPRPRE ;;9046510
66RMPRPRT ;;12871392
67RMPRPRT1 ;;11245195
68RMPRPSC ;;9702495
69RMPRRET1 ;;19291270
70RMPRRET2 ;;7642705
71RMPRRET9 ;;11136432
72RMPRS ;;13212379
73RMPRSC ;;3366650
74RMPRSCA ;;22684531
75RMPRSCB ;;15730148
76RMPRSE1 ;;15517066
77RMPRSEA ;;17966677
78RMPRSEC ;;5488013
79RMPRSIT ;;4951282
80RMPRSP ;;10258059
81RMPRSP1 ;;9806970
82RMPRSP2 ;;16273581
83RMPRST2 ;;2509518
84RMPRSTK ;;15195669
85RMPRSTL ;;13233381
86RMPRU ;;2634577
87RMPRUTIL ;;9649163
88RMPRUTL1 ;;4432980
89RMPRUTL2 ;;2045338
90RMPRUTL3 ;;3687098
91RMPTI001 ;;8815267
92RMPTI002 ;;9116374
93RMPTI003 ;;10325495
94RMPTI004 ;;2105536
95RMPTI005 ;;1755613
96RMPTINI1 ;;4835438
97RMPTINI2 ;;5232643
98RMPTINI3 ;;16808274
99RMPTINI4 ;;3357815
100RMPTINI5 ;;493030
101RMPTINIS ;;2217017
102RMPTINIT ;;10238404
Note: See TracBrowser for help on using the repository browser.