source: FOIAVistA/trunk/r/OCCURRENCE_SCREEN-QAO/QAONTEG.m@ 1757

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

initial load of FOIAVistA 6/30/08 version

File size: 2.3 KB
Line 
1QAONTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;SEP 17, 1993@08:50:31
2 ;;3.0;Occurrence Screen;;09/14/1993
3 ;;7.0;SEP 17, 1993@08:50:31
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 ;;
12QAOAUTO ;;5064591
13QAOC0 ;;2052153
14QAOC1011 ;;3880218
15QAOC102 ;;5657394
16QAOC1061 ;;5265433
17QAOC107 ;;5103193
18QAOC109 ;;2548352
19QAOC199 ;;4557250
20QAOEDT ;;4502289
21QAOEDT0 ;;8938807
22QAOEDT0C ;;4761999
23QAOEDT0M ;;1199694
24QAOEDT0P ;;5115209
25QAOEDT1 ;;6151957
26QAOEDT2 ;;5459204
27QAOEDT3 ;;4243620
28QAOSAHO2 ;;12313936
29QAOSAHOC ;;1706676
30QAOSCKEY ;;8532871
31QAOSCNV0 ;;1121987
32QAOSCNV1 ;;7345141
33QAOSCNV2 ;;1762227
34QAOSCNV3 ;;5054127
35QAOSCNV4 ;;974707
36QAOSCNV5 ;;1347925
37QAOSCNV6 ;;1116658
38QAOSCNV8 ;;9837176
39QAOSCNV9 ;;10965659
40QAOSCREE ;;2756664
41QAOSDDUT ;;2531266
42QAOSDELT ;;4756542
43QAOSENT1 ;;2771352
44QAOSENTR ;;10020436
45QAOSERCR ;;3178121
46QAOSEWS0 ;;4397519
47QAOSEWS1 ;;1996228
48QAOSLAPS ;;1457784
49QAOSOCID ;;1644318
50QAOSOPEN ;;1656999
51QAOSPAD0 ;;10841320
52QAOSPAD1 ;;10711388
53QAOSPAU0 ;;3991645
54QAOSPAUD ;;1663345
55QAOSPCL0 ;;17341183
56QAOSPCL1 ;;14501122
57QAOSPCM0 ;;6091939
58QAOSPDQ0 ;;13234378
59QAOSPDQ1 ;;8045530
60QAOSPHDR ;;4885629
61QAOSPINQ ;;2460212
62QAOSPMG0 ;;8291204
63QAOSPNAM ;;3193959
64QAOSPPR0 ;;14910313
65QAOSPRD0 ;;7437499
66QAOSPRD1 ;;3686172
67QAOSPRS0 ;;12316412
68QAOSPRS1 ;;7231457
69QAOSPRS2 ;;5578201
70QAOSPSM ;;3190885
71QAOSPSM0 ;;7845537
72QAOSPSM1 ;;4820419
73QAOSPSM2 ;;5186585
74QAOSPSM3 ;;8989780
75QAOSPSM4 ;;2462086
76QAOSPSM5 ;;4736414
77QAOSPSR0 ;;11905628
78QAOSPSS ;;6652480
79QAOSPSS0 ;;10523427
80QAOSPSS1 ;;4313607
81QAOSPSS2 ;;4689826
82QAOSPSY0 ;;11366556
83QAOSPTR0 ;;10364347
84QAOSPTR1 ;;6566036
85QAOSPTX0 ;;3485753
86QAOSPURG ;;5360503
87QAOSPWT0 ;;6244769
88QAOSSFR0 ;;8509712
89QAOSSFR1 ;;5952409
90QAOSUPL0 ;;5003608
91QAOSUPL1 ;;6004414
92QAOSUPL2 ;;6544135
93QAOSWRK0 ;;11994383
94QAOSXTRN ;;957679
95QAOUTL0 ;;3561155
Note: See TracBrowser for help on using the repository browser.