source: WorldVistAEHR/trunk/r/SOCIAL_WORK-SOW-SWBH-SWFG/SOWKNTEG.m@ 1489

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

initial load of WorldVistAEHR

File size: 2.2 KB
Line 
1SOWKNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;APR 27, 1993@13:24:55
2 ;;3.0; Social Work ;;27 Apr 93
3 ;;7.0;APR 27, 1993@13:24:55
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 ;;
12SOWKAI ;;16305479
13SOWKAR10 ;;14236043
14SOWKARS ;;14521939
15SOWKARS1 ;;18777021
16SOWKARS2 ;;7449645
17SOWKARS3 ;;16667309
18SOWKARS4 ;;10817406
19SOWKARS5 ;;15465749
20SOWKARS6 ;;16633298
21SOWKAWB ;;13339750
22SOWKAWI ;;13217836
23SOWKAWS ;;13951899
24SOWKAWU ;;13765101
25SOWKBH ;;12299984
26SOWKCDR ;;7116274
27SOWKCLCR ;;18567302
28SOWKCLEA ;;10538327
29SOWKCLIS ;;14247325
30SOWKCLIW ;;16363946
31SOWKCLOS ;;8092518
32SOWKCLSP ;;16805620
33SOWKCLSS ;;14979588
34SOWKCLSW ;;17185283
35SOWKCO ;;3898139
36SOWKCONV ;;4436757
37SOWKCOR ;;5609249
38SOWKCP ;;15376647
39SOWKCS ;;5761811
40SOWKDB ;;15800513
41SOWKDB1 ;;18335188
42SOWKDB2 ;;14758265
43SOWKDBE ;;11529639
44SOWKDBEN ;;4819385
45SOWKDBPA ;;15244363
46SOWKDBPN ;;13688251
47SOWKDBSR ;;6093680
48SOWKDSC ;;9428821
49SOWKHELP ;;451888
50SOWKHINC ;;5240870
51SOWKHIRH ;;9003381
52SOWKHIRM ;;4296299
53SOWKHR ;;18756024
54SOWKHR1 ;;12359499
55SOWKHRM ;;11699697
56SOWKHRM1 ;;8787118
57SOWKLC ;;11342110
58SOWKLCD ;;7717468
59SOWKLOC ;;1966030
60SOWKND ;;14149382
61SOWKNEW ;;17310955
62SOWKOPEN ;;13991685
63SOWKOPT ;;15130764
64SOWKPAD ;;2712545
65SOWKPAO ;;17447663
66SOWKPAOD ;;12709807
67SOWKPAOQ ;;7129575
68SOWKPC ;;12576211
69SOWKPLC ;;14761937
70SOWKPNTF ;;8707402
71SOWKPREI ;;3898958
72SOWKPTC ;;9609396
73SOWKQAM1 ;;10904679
74SOWKQAM3 ;;10977624
75SOWKQAM4 ;;17408693
76SOWKQAM5 ;;12713872
77SOWKQAMN ;;12542049
78SOWKQAMR ;;15354672
79SOWKQAR2 ;;13111829
80SOWKQAR4 ;;10616112
81SOWKQARI ;;13804667
82SOWKRCH ;;14957542
83SOWKRCH1 ;;5741075
84SOWKRCS ;;8410142
85SOWKRF ;;11343394
86SOWKRFD ;;6784701
87SOWKRKD ;;6058520
88SOWKSITE ;;5418158
89SOWKTC ;;11716158
90SOWKTRAN ;;5223185
91SOWKTY ;;1236574
Note: See TracBrowser for help on using the repository browser.