source: FOIAVistA/trunk/r/HEALTH_LEVEL_SEVEN-HL/HLNTEG0.m

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

initial load of FOIAVistA 6/30/08 version

File size: 1.8 KB
Line 
1HLNTEG0 ;ISC/XTSUMBLD KERNEL - Package checksum checker ;2950912.142601
2 ;;1.6;HEALTH LEVEL SEVEN;;Oct 13, 1995
3 ;;7.3;2950912.142601
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 ;;
12HLINI02M ;;9275464
13HLINI02N ;;11459443
14HLINI02O ;;9427882
15HLINI02P ;;6027409
16HLINI02Q ;;10293885
17HLINI02R ;;7757452
18HLINI02S ;;10198154
19HLINI02T ;;7325413
20HLINI02U ;;7046467
21HLINI02V ;;8301282
22HLINI02W ;;6905022
23HLINI02X ;;5922992
24HLINI02Y ;;3168490
25HLINIS ;;2129328
26HLINIT ;;10216312
27HLINIT1 ;;4920297
28HLINIT2 ;;5232061
29HLINIT3 ;;16802193
30HLINIT4 ;;3357231
31HLINIT5 ;;2876409
32HLLM ;;10329188
33HLLM1 ;;3316521
34HLLP ;;13196280
35HLMA ;;3791837
36HLMA0 ;;603501
37HLMA1 ;;4194174
38HLMA2 ;;1082489
39HLONI001 ;;7503778
40HLONI002 ;;8735162
41HLONI003 ;;6432025
42HLONI004 ;;7866718
43HLONI005 ;;8087954
44HLONI006 ;;7933359
45HLONI007 ;;9360681
46HLONI008 ;;8744626
47HLONI009 ;;8315666
48HLONI010 ;;8282845
49HLONI011 ;;833649
50HLONIT ;;973222
51HLONIT1 ;;1682976
52HLONIT2 ;;82275
53HLONIT3 ;;10576036
54HLPOST ;;4060423
55HLPOST16 ;;7441421
56HLPOSTQ ;;4443120
57HLPRE16 ;;997068
58HLSERV ;;3192635
59HLTASK ;;2348227
60HLTF ;;8479084
61HLTF0 ;;4497673
62HLTF1 ;;12182659
63HLTP ;;5313409
64HLTP0 ;;3059568
65HLTP01 ;;3910226
66HLTP1 ;;4281970
67HLTP2 ;;1168795
68HLTPCK1 ;;3874944
69HLTPCK1A ;;9780503
70HLTRANS ;;11965538
71HLUOPT ;;11331726
72HLUOPT1 ;;7058881
73HLUTIL1 ;;1134063
74HLUTIL2 ;;3877956
75HLUTIL3 ;;424284
Note: See TracBrowser for help on using the repository browser.