source: FOIAVistA/trunk/r/HEALTH_SUMMARY-GMTS/GMTSNTEG.m@ 1607

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

initial load of FOIAVistA 6/30/08 version

File size: 3.5 KB
Line 
1GMTSNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;OCT 20, 1995@15:13:16
2 ;;2.7;Health Summary;;Oct 20, 1995
3 ;;7.2;OCT 20, 1995@15:13:16
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^GMTSNTE0
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 ;;
12GMTS ;;9747615
13GMTS1 ;;9107723
14GMTS2 ;;1686893
15GMTSADH ;;7009924
16GMTSADH1 ;;9118153
17GMTSADH2 ;;8921291
18GMTSADH3 ;;4175388
19GMTSADH4 ;;2108172
20GMTSADHC ;;7616551
21GMTSADOR ;;5770178
22GMTSALG ;;13299334
23GMTSALGB ;;3649701
24GMTSAMIE ;;2215141
25GMTSCI ;;980795
26GMTSCM ;;6771561
27GMTSCW ;;8466205
28GMTSDA ;;7935436
29GMTSDCB ;;3376310
30GMTSDD ;;5832737
31GMTSDEM ;;8355003
32GMTSDEMB ;;1645478
33GMTSDGA ;;3278741
34GMTSDGA1 ;;7480178
35GMTSDGA2 ;;5406373
36GMTSDGC1 ;;5335387
37GMTSDGC2 ;;3280399
38GMTSDGCH ;;6109698
39GMTSDGD ;;2236947
40GMTSDGH ;;2898086
41GMTSDGP ;;5958742
42GMTSDS ;;2014917
43GMTSDSB ;;1887589
44GMTSDVR ;;9357098
45GMTSENV ;;527430
46GMTSFH ;;6355772
47GMTSI001 ;;6797667
48GMTSI002 ;;8625906
49GMTSI003 ;;7915035
50GMTSI004 ;;7496079
51GMTSI005 ;;9611811
52GMTSI006 ;;9190966
53GMTSI007 ;;7703599
54GMTSI008 ;;4005876
55GMTSI009 ;;3932193
56GMTSI00A ;;827350
57GMTSI00B ;;8455149
58GMTSI00C ;;7584757
59GMTSI00D ;;8910779
60GMTSI00E ;;7448609
61GMTSI00F ;;2867454
62GMTSI00G ;;8852473
63GMTSI00H ;;8717091
64GMTSI00I ;;8773516
65GMTSI00J ;;9224995
66GMTSI00K ;;9276724
67GMTSI00L ;;8906270
68GMTSI00M ;;8948291
69GMTSI00N ;;8903831
70GMTSI00O ;;9109697
71GMTSI00P ;;8788001
72GMTSI00Q ;;9144600
73GMTSI00R ;;8661231
74GMTSI00S ;;9040355
75GMTSI00T ;;8440721
76GMTSI00U ;;8849266
77GMTSI00V ;;8597654
78GMTSI00W ;;8347201
79GMTSI00X ;;8589121
80GMTSI00Y ;;2513711
81GMTSI00Z ;;951613
82GMTSI010 ;;12236555
83GMTSI011 ;;10099099
84GMTSI012 ;;10044917
85GMTSI013 ;;6048930
86GMTSI014 ;;6222248
87GMTSI015 ;;6848123
88GMTSI016 ;;8673195
89GMTSI017 ;;7578064
90GMTSI018 ;;6048832
91GMTSI019 ;;5845546
92GMTSI01A ;;7616684
93GMTSI01B ;;7997413
94GMTSI01C ;;4992646
95GMTSI01D ;;899861
96GMTSINI1 ;;4982983
97GMTSINI2 ;;5232640
98GMTSINI3 ;;16807836
99GMTSINI4 ;;3357812
100GMTSINI5 ;;773825
101GMTSINIS ;;2215261
102GMTSINIT ;;10511864
103GMTSLOAD ;;5796287
104GMTSLRA ;;6876199
105GMTSLRAE ;;11147933
106GMTSLRB ;;2250319
107GMTSLRBE ;;3672773
108GMTSLRC ;;3788772
109GMTSLRCE ;;5397241
110GMTSLRCP ;;12992921
111GMTSLREE ;;6175432
112GMTSLREM ;;5357355
113GMTSLRM ;;10576209
114GMTSLRM1 ;;5092747
115GMTSLRMB ;;8141523
116GMTSLRME ;;7612887
117GMTSLRMX ;;7993355
118GMTSLROB ;;1646167
119GMTSLROE ;;6516628
120GMTSLROS ;;2358998
121GMTSLRPE ;;6517490
122GMTSLRS ;;4721162
123GMTSLRS7 ;;7478778
124GMTSLRSC ;;7505823
125GMTSLRSE ;;3321038
126GMTSLRT ;;2843052
127GMTSLRTE ;;1320704
128GMTSLTR ;;2903951
129GMTSLTR2 ;;3282162
130GMTSMCMA ;;7527516
131GMTSMCPZ ;;3705188
132GMTSMCZZ ;;5276229
133GMTSMHPE ;;8497501
134GMTSO001 ;;8057336
135GMTSO002 ;;6065150
136GMTSO003 ;;7512952
137GMTSO004 ;;7684644
138GMTSO005 ;;7812945
139GMTSO006 ;;7948804
140GMTSO007 ;;7635764
141GMTSO008 ;;7443333
142GMTSO009 ;;7739191
143GMTSO010 ;;7582026
144GMTSO011 ;;8030504
145GMTSO012 ;;8409618
146GMTSO013 ;;7775470
147GMTSO014 ;;7954689
148GMTSO015 ;;7423432
149GMTSO016 ;;7911113
150GMTSO017 ;;7145833
151GMTSO018 ;;7647663
152GMTSO019 ;;7562703
153GMTSO020 ;;7805175
154GMTSO021 ;;7281432
155GMTSO022 ;;7825234
156GMTSO023 ;;7784074
157GMTSO024 ;;725714
158GMTSONI1 ;;1703362
159GMTSONI2 ;;82866
160GMTSONI3 ;;10576628
161GMTSONIT ;;935085
162GMTSORC ;;4886475
163GMTSPCD ;;3405698
164GMTSPD ;;5306590
165GMTSPD2 ;;1434592
166GMTSPDX ;;6721830
Note: See TracBrowser for help on using the repository browser.