source: WorldVistAEHR/trunk/r/CLINICAL_MONITORING_SYSTEM-QAM/QAMNTEG.m@ 1261

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

initial load of WorldVistAEHR

File size: 2.1 KB
Line 
1QAMNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;SEP 13, 1993@10:24:02
2 ;;1.0;Clinical Monitoring System;;09/13/1993
3 ;;7.0;SEP 13, 1993@10:24:02
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 ;;
12QAMAHO1 ;;13519726
13QAMAHO2 ;;10344951
14QAMAHO3 ;;6035849
15QAMAHO3A ;;11476228
16QAMAHO4 ;;7656720
17QAMAHO5 ;;5688190
18QAMAHOC ;;6915667
19QAMAPGRP ;;867681
20QAMARCH0 ;;7523632
21QAMARCH1 ;;6562099
22QAMAUTO0 ;;9756005
23QAMAUTO1 ;;10013460
24QAMAUTO2 ;;6370885
25QAMAUTO3 ;;7561731
26QAMAUTO4 ;;16251365
27QAMAUTO5 ;;5096785
28QAMAUTO6 ;;1733251
29QAMAUTO7 ;;6409975
30QAMAUTO8 ;;6266089
31QAMC0 ;;1697
32QAMC1 ;;3503224
33QAMC10 ;;9917495
34QAMC11 ;;10610333
35QAMC12 ;;10546368
36QAMC13 ;;4323573
37QAMC14 ;;3900265
38QAMC15 ;;3615839
39QAMC16 ;;12936687
40QAMC17 ;;15971002
41QAMC18 ;;12045749
42QAMC19 ;;9416245
43QAMC2 ;;6414343
44QAMC20 ;;9682209
45QAMC21 ;;11414085
46QAMC22 ;;8020479
47QAMC23 ;;13333075
48QAMC24 ;;3465336
49QAMC25 ;;1899426
50QAMC3 ;;6624119
51QAMC4 ;;1198638
52QAMC5 ;;6803011
53QAMC6 ;;3255007
54QAMC7 ;;8674914
55QAMC8 ;;9947471
56QAMC9 ;;8396448
57QAMDUP0 ;;5634386
58QAMEDT0 ;;14457590
59QAMEDT1 ;;1683863
60QAMEDT2 ;;14249388
61QAMEDT3 ;;2250000
62QAMEDT4 ;;9700021
63QAMEDT5 ;;18080508
64QAMEDT5A ;;9809256
65QAMEDT6 ;;13540381
66QAMEDT7 ;;14609780
67QAMGPOP0 ;;4938857
68QAMGRP1 ;;3953916
69QAMGRP2 ;;4144531
70QAMPBMW0 ;;3766912
71QAMPBMW1 ;;8481112
72QAMPFAL0 ;;9791557
73QAMPFAL1 ;;4613077
74QAMPHIS1 ;;7823461
75QAMPINQ1 ;;9132290
76QAMPINQ2 ;;6209223
77QAMPINQ3 ;;6483708
78QAMPINQ4 ;;8566250
79QAMPINQ5 ;;1834055
80QAMPMON0 ;;8857969
81QAMPMON1 ;;10931686
82QAMPRUN0 ;;8091519
83QAMSANE ;;6322601
84QAMTIME0 ;;3671119
85QAMUTL0 ;;7958787
86QAMUTL1 ;;11876082
87QAMUTL2 ;;2157829
Note: See TracBrowser for help on using the repository browser.