source: FOIAVistA/trunk/r/PATIENT_DATA_EXCHANGE-VAQ/VAQNTEG0.m@ 1397

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

initial load of FOIAVistA 6/30/08 version
File size: 2.5 KB
Line 
1VAQNTEG0 ;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 ;
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 ;;
12VAQIN057 ;;8670003
13VAQIN058 ;;12087698
14VAQIN059 ;;12286037
15VAQIN060 ;;6852836
16VAQIN061 ;;5297635
17VAQIN062 ;;4779642
18VAQIN063 ;;6226761
19VAQIN064 ;;6365462
20VAQIN065 ;;5964235
21VAQIN066 ;;5634536
22VAQIN067 ;;6484532
23VAQIN068 ;;6022388
24VAQIN069 ;;3994473
25VAQIN070 ;;2626845
26VAQINIT ;;10527661
27VAQINIT1 ;;5724227
28VAQINIT2 ;;5232654
29VAQINIT3 ;;16094381
30VAQINIT4 ;;3357826
31VAQINIT5 ;;2381973
32VAQINITY ;;15302173
33VAQLED01 ;;5227014
34VAQLED02 ;;3706614
35VAQLED03 ;;2552336
36VAQLED04 ;;1371437
37VAQLED05 ;;5243841
38VAQLED07 ;;5461822
39VAQLED09 ;;2819147
40VAQLED10 ;;2269021
41VAQON001 ;;5039803
42VAQON002 ;;5429303
43VAQON003 ;;5050536
44VAQON004 ;;5410521
45VAQON005 ;;2067030
46VAQONIT ;;985790
47VAQONIT1 ;;1702666
48VAQONIT2 ;;82874
49VAQONIT3 ;;10576636
50VAQPAR1 ;;4057523
51VAQPAR10 ;;2132222
52VAQPAR11 ;;6358641
53VAQPAR6 ;;1190252
54VAQPAR60 ;;2321560
55VAQPAR61 ;;1663308
56VAQPSE01 ;;6697231
57VAQPSE02 ;;5744737
58VAQPSE03 ;;3755878
59VAQPSE04 ;;10337589
60VAQPSL ;;6880843
61VAQPSL1 ;;6668278
62VAQPSL2 ;;7070001
63VAQPSL3 ;;5092352
64VAQPST01 ;;4846072
65VAQPST02 ;;3653169
66VAQPST03 ;;5893015
67VAQPST04 ;;2363361
68VAQPST05 ;;1783930
69VAQPST10 ;;4238957
70VAQPST20 ;;9859635
71VAQPST21 ;;3695767
72VAQPST22 ;;3677988
73VAQPST23 ;;7275908
74VAQPST24 ;;2831063
75VAQPST25 ;;1644171
76VAQPST30 ;;3803265
77VAQPST31 ;;665330
78VAQPST40 ;;2063031
79VAQPUR ;;2604304
80VAQPUR10 ;;4828736
81VAQPUR11 ;;1795000
82VAQREQ01 ;;5103405
83VAQREQ02 ;;4279045
84VAQREQ03 ;;3699641
85VAQREQ04 ;;4933003
86VAQREQ05 ;;4065406
87VAQREQ06 ;;4957964
88VAQREQ07 ;;4654674
89VAQREQ08 ;;196494
90VAQREQ09 ;;6206842
91VAQREQ10 ;;6036863
92VAQREQ11 ;;1458438
93VAQUIN01 ;;5272447
94VAQUPD1 ;;3950454
95VAQUPD2 ;;5217698
96VAQUPD25 ;;2213566
97VAQUTL1 ;;2067120
98VAQUTL2 ;;587104
99VAQUTL3 ;;985218
100VAQUTL4 ;;2714753
101VAQUTL92 ;;1371964
102VAQUTL93 ;;783669
103VAQUTL94 ;;1525592
104VAQUTL95 ;;1148867
105VAQUTL96 ;;370770
106VAQUTL97 ;;1449446
107VAQUTL98 ;;723049
108VAQUTL99 ;;2220245
109VAQXRF1 ;;855609
110VAQXRF2 ;;2617277
111VAQXRF3 ;;861029
Note: See TracBrowser for help on using the repository browser.