source: WorldVistAEHR/trunk/r/PATIENT_DATA_EXCHANGE-VAQ/VAQNTEG.m@ 1608

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

initial load of WorldVistAEHR
File size: 3.6 KB
RevLine 
[613]1VAQNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;NOV 16, 1993@16:51:52
2 ;;1.5;PATIENT DATA EXCHANGE;;NOV 17, 1993
3 ;;7.1;NOV 16, 1993@16:51:52
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^VAQNTEG0
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 ;;
12VAQADM2 ;;2534049
13VAQADM21 ;;7566837
14VAQADM22 ;;4062600
15VAQADM23 ;;1720751
16VAQADM5 ;;991826
17VAQADM50 ;;4266988
18VAQADM51 ;;2675417
19VAQADS01 ;;3223516
20VAQAUT ;;57128
21VAQBUL ;;1410805
22VAQBUL01 ;;6191768
23VAQBUL02 ;;4173593
24VAQBUL03 ;;4328969
25VAQBUL04 ;;4109872
26VAQBUL05 ;;2779034
27VAQBUL06 ;;4045789
28VAQBUL07 ;;2114615
29VAQCON ;;1897603
30VAQCON0 ;;4178078
31VAQCON1 ;;3710285
32VAQCON2 ;;3901976
33VAQCON3 ;;2418997
34VAQCON4 ;;5919951
35VAQCON5 ;;2014239
36VAQCON6 ;;4158972
37VAQCON7 ;;3413184
38VAQCON8 ;;3133423
39VAQCON93 ;;3200661
40VAQCON94 ;;4187477
41VAQCON95 ;;4706111
42VAQCON96 ;;3725887
43VAQCON97 ;;2136266
44VAQCON98 ;;3539410
45VAQCON99 ;;7142752
46VAQDBI ;;4230776
47VAQDBIH1 ;;1189457
48VAQDBIH2 ;;201661
49VAQDBIH3 ;;1069293
50VAQDBII1 ;;2814535
51VAQDBIM ;;4078867
52VAQDBIM0 ;;3374789
53VAQDBIM1 ;;6825977
54VAQDBIM2 ;;3183687
55VAQDBIM3 ;;4667668
56VAQDBIM4 ;;3774719
57VAQDBIP ;;2495177
58VAQDBIP1 ;;4400113
59VAQDBIP2 ;;3062191
60VAQDBIP3 ;;2952159
61VAQDBIP4 ;;3364106
62VAQDBIP5 ;;3822343
63VAQDBIP6 ;;3718206
64VAQDBIP7 ;;1790976
65VAQDBIP8 ;;2295398
66VAQDIS01 ;;1896058
67VAQDIS10 ;;1624428
68VAQDIS11 ;;4203630
69VAQDIS12 ;;3706146
70VAQDIS15 ;;4593059
71VAQDIS16 ;;683699
72VAQDIS17 ;;2004342
73VAQDIS20 ;;1296885
74VAQDIS21 ;;6090509
75VAQDIS22 ;;1303042
76VAQDIS23 ;;6243334
77VAQDIS24 ;;1874893
78VAQDIS25 ;;3511138
79VAQDIS26 ;;5333730
80VAQDIS27 ;;3568967
81VAQDIS28 ;;2475175
82VAQDIS29 ;;2673654
83VAQDIS30 ;;5919796
84VAQDIS31 ;;5487602
85VAQDIS32 ;;2412502
86VAQDIS33 ;;2388125
87VAQDIS40 ;;1008917
88VAQDIS41 ;;1753300
89VAQDIS42 ;;4972452
90VAQDIS43 ;;5326399
91VAQEXT01 ;;5600484
92VAQEXT02 ;;2704473
93VAQEXT03 ;;3158917
94VAQEXT04 ;;1885174
95VAQEXT05 ;;758435
96VAQEXT06 ;;2134337
97VAQFIL10 ;;5988372
98VAQFIL11 ;;6300784
99VAQFIL12 ;;2569328
100VAQFIL13 ;;4237289
101VAQFIL14 ;;3197988
102VAQFIL15 ;;4998877
103VAQFIL16 ;;4406732
104VAQFIL17 ;;4128016
105VAQFIL18 ;;5999161
106VAQFILE ;;3150174
107VAQFILE1 ;;4122421
108VAQHSH ;;3465882
109VAQHSH1 ;;177225
110VAQIN001 ;;3353811
111VAQIN002 ;;5958081
112VAQIN003 ;;6764102
113VAQIN004 ;;1660214
114VAQIN005 ;;4535842
115VAQIN006 ;;7231176
116VAQIN007 ;;6153912
117VAQIN008 ;;3096824
118VAQIN009 ;;908995
119VAQIN010 ;;8045910
120VAQIN011 ;;2849277
121VAQIN012 ;;6314695
122VAQIN013 ;;10958673
123VAQIN014 ;;6952614
124VAQIN015 ;;5500825
125VAQIN016 ;;6172399
126VAQIN017 ;;5813919
127VAQIN018 ;;1306083
128VAQIN019 ;;6893354
129VAQIN020 ;;6173758
130VAQIN021 ;;6106598
131VAQIN022 ;;864757
132VAQIN023 ;;7176590
133VAQIN024 ;;6431188
134VAQIN025 ;;3876927
135VAQIN026 ;;6146380
136VAQIN027 ;;6184362
137VAQIN028 ;;3967254
138VAQIN029 ;;5013810
139VAQIN030 ;;1166077
140VAQIN031 ;;7296448
141VAQIN032 ;;3255539
142VAQIN033 ;;1108766
143VAQIN034 ;;5546534
144VAQIN035 ;;9435555
145VAQIN036 ;;4135861
146VAQIN037 ;;6690535
147VAQIN038 ;;8416327
148VAQIN039 ;;9640544
149VAQIN040 ;;2256364
150VAQIN041 ;;7952553
151VAQIN042 ;;5330688
152VAQIN043 ;;7965778
153VAQIN044 ;;1127143
154VAQIN045 ;;3810401
155VAQIN046 ;;3993963
156VAQIN047 ;;3511679
157VAQIN048 ;;8342667
158VAQIN049 ;;7202720
159VAQIN050 ;;1138839
160VAQIN051 ;;2482435
161VAQIN052 ;;8388145
162VAQIN053 ;;2300108
163VAQIN054 ;;2439428
164VAQIN055 ;;7197745
165VAQIN056 ;;8933707
Note: See TracBrowser for help on using the repository browser.