source: FOIAVistA/trunk/r/DIETETICS-FH/FHNTEG.m@ 868

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

initial load of FOIAVistA 6/30/08 version
File size: 3.5 KB
Line 
1FHNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;OCT 11, 1995@10:01:46
2 ;;0.0;
3 ;;7.1;OCT 11, 1995@10:01:46
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 G CONT^FHNTEG0
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 ;;
12FH ;;1933177
13FHADM2 ;;2855586
14FHADM21 ;;7966786
15FHADM2A ;;2375833
16FHADM3 ;;5810121
17FHADM4 ;;9500389
18FHADM5 ;;323152
19FHADR1 ;;6236966
20FHADR10 ;;2472024
21FHADR1A ;;6939546
22FHADR2 ;;3823209
23FHADR3 ;;1811235
24FHADR3A ;;6395711
25FHADR4 ;;3651849
26FHADR5 ;;3779837
27FHADR6 ;;10058150
28FHADR61 ;;2724873
29FHADR7 ;;6397935
30FHADR8 ;;3103134
31FHADR81 ;;5662701
32FHADR9 ;;7544892
33FHADR9A ;;4060734
34FHADRPT ;;2949179
35FHADRSY ;;1383849
36FHASC ;;1661812
37FHASE ;;12352922
38FHASE1 ;;4636527
39FHASE1A ;;10368196
40FHASE2 ;;4358156
41FHASE3 ;;1455346
42FHASM1 ;;8647619
43FHASM2 ;;8399539
44FHASM2A ;;2430817
45FHASM2B ;;3386101
46FHASM2C ;;3102927
47FHASM2D ;;2275862
48FHASM3 ;;5096802
49FHASM3A ;;9169407
50FHASM4 ;;6344698
51FHASM5 ;;8945494
52FHASM6 ;;7486877
53FHASM7 ;;9593313
54FHASMR ;;2727928
55FHASMR1 ;;9517687
56FHASN ;;3149876
57FHASN1 ;;3511694
58FHASN3 ;;6030523
59FHASN4 ;;9774004
60FHASN5 ;;8678046
61FHASN6 ;;7635637
62FHASN7 ;;2602313
63FHASN71 ;;9171190
64FHASP ;;7858984
65FHASP1 ;;5062129
66FHASP2 ;;3530400
67FHASXR ;;6537891
68FHASXR1 ;;8965616
69FHBIR ;;4059872
70FHCLN ;;740822
71FHCMS1 ;;778447
72FHCMSR ;;4571401
73FHCMSR1 ;;6665228
74FHCTF ;;681451
75FHCTF1 ;;6124347
76FHCTF2 ;;397188
77FHCTF3 ;;13151878
78FHCTF4 ;;6160915
79FHDCR1 ;;8507036
80FHDCR11 ;;4507014
81FHDCR1A ;;6164513
82FHDCR1B ;;9131155
83FHDCR1C ;;2162795
84FHDCR1D ;;6930746
85FHDCR2 ;;872781
86FHDEV ;;1319169
87FHDMP ;;7066349
88FHDMP1 ;;3150137
89FHDMP2 ;;5848038
90FHDMP3 ;;4936568
91FHDMP4 ;;7823399
92FHDMP5 ;;5203454
93FHDPA ;;2974151
94FHIPST ;;5821572
95FHIPST1 ;;2376175
96FHIPST10 ;;5608317
97FHIPST11 ;;5908172
98FHIPST12 ;;5840142
99FHIPST13 ;;5669546
100FHIPST14 ;;6093522
101FHIPST15 ;;4681408
102FHIPST16 ;;5603245
103FHIPST17 ;;1797845
104FHIPST18 ;;1252543
105FHIPST19 ;;811740
106FHIPST2 ;;1871064
107FHIPST20 ;;3761391
108FHIPST3 ;;5363809
109FHIPST4 ;;1980574
110FHIPST5 ;;1154415
111FHIPST6 ;;700221
112FHIPST7 ;;1254271
113FHIPST8 ;;1109712
114FHIPST9 ;;6158714
115FHMTK ;;8334209
116FHMTK1 ;;9736775
117FHMTK11 ;;9501249
118FHMTK1A ;;5652773
119FHMTK1B ;;9506136
120FHMTK1C ;;7533994
121FHMTK2 ;;4933044
122FHMTK21 ;;5663649
123FHMTK3 ;;7247098
124FHMTK4 ;;6393503
125FHMTK5 ;;7788180
126FHMTK6 ;;6997795
127FHMTK7 ;;4842201
128FHNO1 ;;2554062
129FHNO2 ;;10768538
130FHNO21 ;;3984168
131FHNO3 ;;3504490
132FHNO31 ;;7450905
133FHNO4 ;;1121656
134FHNO41 ;;7922111
135FHNO5 ;;5224038
136FHNO6 ;;9801097
137FHNO7 ;;2361316
138FHNO8 ;;2731298
139FHNU ;;1616737
140FHNU1 ;;4573798
141FHNU10 ;;5583463
142FHNU11 ;;10048442
143FHNU12 ;;5447130
144FHNU2 ;;12335468
145FHNU3 ;;6834955
146FHNU4 ;;11724524
147FHNU5 ;;10454629
148FHNU6 ;;4729171
149FHNU7 ;;5806572
150FHNU8 ;;7815140
151FHNU9 ;;4484537
152FHNUT ;;4362721
153FHORC ;;4988961
154FHORC1 ;;3376539
155FHORC2 ;;10784717
156FHORC3 ;;7547945
157FHORC4 ;;2770986
158FHORC5 ;;2011042
159FHORCW ;;6949788
160FHORD ;;1618989
161FHORD1 ;;12718924
162FHORD10 ;;6881787
163FHORD11 ;;10078328
164FHORD13 ;;7875615
165FHORD1A ;;3630323
166FHORD2 ;;6094066
167FHORD3 ;;6474710
168FHORD4 ;;5320132
169FHORD41 ;;4108718
170FHORD5 ;;5286069
171FHORD6 ;;9749127
172FHORD61 ;;7575939
173FHORD7 ;;5790814
174FHORD71 ;;7838090
175FHORD72 ;;7184640
176FHORD8 ;;6489332
177FHORD81 ;;5717162
178FHORD82 ;;7938833
Note: See TracBrowser for help on using the repository browser.