source: FOIAVistA/trunk/r/AUTOMATED_MED_INFO_EXCHANGE-DVBA-DVBC/DVBANTE1.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: 2.2 KB
Line 
1DVBANTE1 ;ISC/XTSUMBLD KERNEL - Package checksum checker ;APR 10, 1995@13:51:40
2 ;;2.7;AMIE;;Apr 10, 1995
3 ;;7.2;APR 10, 1995@13:51:40
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 ;;
12DVBCPGC ;;3629785
13DVBCPGD ;;11420689
14DVBCPGD1 ;;572906
15DVBCPGH ;;3373772
16DVBCPGL ;;1850746
17DVBCPGR ;;9240313
18DVBCPGR2 ;;5229832
19DVBCPGU ;;203249
20DVBCPICK ;;13939469
21DVBCPNCK ;;10044404
22DVBCPND1 ;;16899646
23DVBCPNDR ;;16810308
24DVBCPRCK ;;9547206
25DVBCPRN1 ;;13330130
26DVBCPRNT ;;10116611
27DVBCPTCK ;;11835787
28DVBCPTS1 ;;9638269
29DVBCPUCK ;;8892327
30DVBCPURG ;;2431903
31DVBCPWC1 ;;22513970
32DVBCPWC2 ;;8815419
33DVBCPWC3 ;;4489767
34DVBCPWC4 ;;7046962
35DVBCPWCK ;;12425723
36DVBCPYCK ;;8272715
37DVBCRACK ;;8048704
38DVBCREDT ;;10184147
39DVBCRELS ;;11302743
40DVBCREQ1 ;;9905931
41DVBCREQ2 ;;8627439
42DVBCREQ3 ;;2872183
43DVBCREQM ;;3068313
44DVBCREQP ;;13619707
45DVBCRLST ;;5612320
46DVBCRMCK ;;10472657
47DVBCROP1 ;;2112790
48DVBCROPN ;;13604559
49DVBCRPON ;;10309052
50DVBCRPR1 ;;8547301
51DVBCRPRT ;;9132762
52DVBCSCCK ;;14602586
53DVBCSCHD ;;14356477
54DVBCSDEV ;;742431
55DVBCSECK ;;5042896
56DVBCSKCK ;;16733993
57DVBCSMCK ;;9642868
58DVBCSPCK ;;12224238
59DVBCSRCK ;;10038108
60DVBCSTCK ;;9443868
61DVBCSYCK ;;11659947
62DVBCTRN ;;7222901
63DVBCTRN1 ;;2117428
64DVBCTRNN ;;1315735
65DVBCTSCK ;;9953638
66DVBCTTCK ;;8903016
67DVBCULAP ;;6951849
68DVBCUTA1 ;;7784264
69DVBCUTA2 ;;7425828
70DVBCUTA3 ;;6525329
71DVBCUTA4 ;;1930083
72DVBCUTIL ;;17784731
73DVBCUTL2 ;;16484712
74DVBCUTL3 ;;14291313
75DVBCUTL4 ;;6410758
76DVBCUTL5 ;;4812185
77DVBCUTL6 ;;5521630
78DVBCUTL7 ;;4066959
79DVBCUTL8 ;;5560283
80DVBCVSC1 ;;8410639
81DVBCVSC2 ;;3179214
82DVBCVSCK ;;8269704
83DVBCVW2 ;;3362992
84DVBCXFRA ;;14804015
85DVBCXFRB ;;10012404
86DVBCXFRC ;;14794975
87DVBCXFRD ;;5143029
88DVBCXFRE ;;14434836
89DVBCXFRS ;;6119351
90DVBCXSCK ;;10643105
91DVBCXUTL ;;1017429
Note: See TracBrowser for help on using the repository browser.