source: FOIAVistA/tag/r/DIETETICS-FH/FHNTEG0.m@ 1499

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

initial load of FOIAVistA 6/30/08 version
File size: 2.6 KB
Line 
1FHNTEG0 ;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 ;
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 ;;
12FHORD83 ;;1799300
13FHORD9 ;;5847432
14FHORD91 ;;3834038
15FHORD92 ;;7559275
16FHORD93 ;;8620031
17FHORDR ;;2998872
18FHORDW ;;6878589
19FHORDW1 ;;5597195
20FHORDW2 ;;4056534
21FHORDW3 ;;6541293
22FHORE1 ;;11602421
23FHORE1A ;;2003255
24FHORE2 ;;4556343
25FHORE21 ;;7400532
26FHORE3 ;;3649653
27FHOREW ;;7916080
28FHORO ;;4704498
29FHOROW ;;4629985
30FHORT1 ;;10129017
31FHORT10 ;;13332346
32FHORT11 ;;2453906
33FHORT2 ;;5921412
34FHORT3 ;;2509939
35FHORT5 ;;4446291
36FHORT5A ;;6669315
37FHORT5B ;;2194934
38FHORT5C ;;3301928
39FHORT5D ;;5290071
40FHORTW ;;7141005
41FHORX ;;564826
42FHORX1 ;;5217469
43FHORX1A ;;3214593
44FHORX1B ;;3634063
45FHORX1C ;;6936807
46FHORX2 ;;2683671
47FHORX3 ;;8023019
48FHPATM ;;6006350
49FHPRC ;;5655183
50FHPRC1 ;;5569532
51FHPRC10 ;;12077237
52FHPRC11 ;;14257467
53FHPRC12 ;;7937756
54FHPRC13 ;;12025361
55FHPRC14 ;;9606339
56FHPRC2 ;;5268120
57FHPRC3 ;;4313560
58FHPRC4 ;;2168815
59FHPRC5 ;;1913669
60FHPRC6 ;;4475322
61FHPRC7 ;;3360749
62FHPRC8 ;;9271546
63FHPRC9 ;;7757957
64FHPRF ;;1601618
65FHPRF1 ;;6509145
66FHPRF1A ;;3914573
67FHPRF2 ;;2915934
68FHPRF4 ;;1629107
69FHPRI ;;3919334
70FHPRI1 ;;4796204
71FHPRI2 ;;8125121
72FHPRI3 ;;1952818
73FHPRO ;;4733042
74FHPRO1 ;;10716446
75FHPRO2 ;;12102730
76FHPRO3 ;;2512818
77FHPRO4 ;;5871635
78FHPRO4A ;;3732530
79FHPRO5 ;;4997921
80FHPRO6 ;;2943379
81FHPRO7 ;;1769356
82FHPRR1 ;;4210131
83FHPRR2 ;;6726603
84FHPRW ;;10160467
85FHPRW1 ;;4038651
86FHPRW2 ;;3657285
87FHPRW3 ;;4037054
88FHPRW4 ;;1975449
89FHREC ;;3913108
90FHREC1 ;;4357665
91FHREC2 ;;5088857
92FHREC3 ;;1924284
93FHREC4 ;;3456680
94FHREC5 ;;2832308
95FHREC6 ;;8800982
96FHREC7 ;;1770111
97FHREP ;;4497192
98FHREP1 ;;11157584
99FHSEL1 ;;7821155
100FHSEL2 ;;9245176
101FHSEL3 ;;6646024
102FHSEL4 ;;6487559
103FHSP ;;962380
104FHSP1 ;;12519643
105FHSP11 ;;2598854
106FHSPED ;;11321876
107FHSPTAB ;;6298568
108FHSYSF ;;798296
109FHSYSK ;;3838891
110FHSYSP ;;1520196
111FHVER ;;1524619
112FHWADM ;;5975597
113FHWDIS ;;5304192
114FHWDISD ;;3992628
115FHWHEA ;;11863618
116FHWMAS ;;1763412
117FHWTRN ;;2567274
118FHXCNV ;;3360157
119FHXDB ;;12710968
120FHXDB1 ;;14538448
121FHXDB2 ;;8339509
122FHXIN ;;2450638
123FHXMOV ;;8770539
124FHXWRD ;;3711181
Note: See TracBrowser for help on using the repository browser.