source: FOIAVistA/trunk/r/REMOTE_ORDER_ENTRY_SYSTEM-RMPF-RMPJ/RMPFNTEG.m@ 674

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

initial load of FOIAVistA 6/30/08 version
File size: 3.6 KB
Line 
1RMPFNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;JUN 16, 1995@15:11:16 [ 06/16/95 3:12 PM ]
2 ;;2.0;REMOTE ORDER/ENTRY SYSTEM;;JUN 16, 1995
3 ;;7.2;JUN 16, 1995@15:11:16
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 G CONT^RMPFNTE0
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 ;;
12RMPFDB ;;7985494
13RMPFDB1 ;;5327145
14RMPFDD ;;6780535
15RMPFDD1 ;;1853521
16RMPFDD2 ;;7548855
17RMPFDD3 ;;1694297
18RMPFDE ;;4145081
19RMPFDE1 ;;4645621
20RMPFDM ;;3979050
21RMPFDS ;;7728252
22RMPFDS1 ;;11491484
23RMPFDS2 ;;3763842
24RMPFDT ;;5032550
25RMPFDT1 ;;7210498
26RMPFDT10 ;;5932828
27RMPFDT2 ;;9298702
28RMPFDT3 ;;12151565
29RMPFDT4 ;;4871722
30RMPFDT5 ;;5420260
31RMPFDT6 ;;16073715
32RMPFDT7 ;;7639492
33RMPFDT8 ;;3077554
34RMPFDT9 ;;3205473
35RMPFDX ;;3285892
36RMPFEA ;;8405794
37RMPFEA1 ;;5771148
38RMPFEA2 ;;9168132
39RMPFEA3 ;;3698817
40RMPFEB ;;6611117
41RMPFEC ;;6345785
42RMPFED ;;6121487
43RMPFEI ;;4568983
44RMPFEM ;;5413808
45RMPFEP ;;5214494
46RMPFEP2 ;;1787421
47RMPFER ;;10009792
48RMPFES ;;2678622
49RMPFET ;;4884433
50RMPFET0 ;;8247791
51RMPFET1 ;;6898827
52RMPFET10 ;;1395589
53RMPFET2 ;;7527775
54RMPFET3 ;;5074361
55RMPFET4 ;;6180170
56RMPFET5 ;;1937126
57RMPFET6 ;;9736183
58RMPFET61 ;;5076416
59RMPFET62 ;;3336855
60RMPFET7 ;;9887002
61RMPFET71 ;;5061804
62RMPFET8 ;;12230430
63RMPFET81 ;;8528583
64RMPFET82 ;;9437093
65RMPFET83 ;;4334108
66RMPFET84 ;;12653919
67RMPFET85 ;;3473283
68RMPFET9 ;;7120144
69RMPFETL ;;5221909
70RMPFETL1 ;;5113827
71RMPFEU ;;5339587
72RMPFEV ;;3791462
73RMPFEV1 ;;3776913
74RMPFI001 ;;9101182
75RMPFI002 ;;7785053
76RMPFI003 ;;7449233
77RMPFI004 ;;9396389
78RMPFI005 ;;8568642
79RMPFI006 ;;8383334
80RMPFI007 ;;9271411
81RMPFI008 ;;9404335
82RMPFI009 ;;8532634
83RMPFI00A ;;7450884
84RMPFI00B ;;6905976
85RMPFI00C ;;7981514
86RMPFI00D ;;5775527
87RMPFI00E ;;8567448
88RMPFI00F ;;8740739
89RMPFI00G ;;7502855
90RMPFI00H ;;2558708
91RMPFI00I ;;5469255
92RMPFI00J ;;5759139
93RMPFI00K ;;5206111
94RMPFI00L ;;5367661
95RMPFI00M ;;5479747
96RMPFI00N ;;1700337
97RMPFI00O ;;7710079
98RMPFI00P ;;6057943
99RMPFI00Q ;;2842637
100RMPFI00R ;;4279262
101RMPFI00S ;;2630007
102RMPFI00T ;;4666119
103RMPFI00U ;;1987706
104RMPFI00V ;;5816632
105RMPFI00W ;;1029154
106RMPFI00X ;;3140327
107RMPFI00Y ;;1750613
108RMPFI00Z ;;7909735
109RMPFI010 ;;8746974
110RMPFI011 ;;2111574
111RMPFI012 ;;5193014
112RMPFI013 ;;5619373
113RMPFI014 ;;5653983
114RMPFI015 ;;5633232
115RMPFI016 ;;5944417
116RMPFI017 ;;5803751
117RMPFI018 ;;6015885
118RMPFI019 ;;6446026
119RMPFI01A ;;6084904
120RMPFI01B ;;5692774
121RMPFI01C ;;5489433
122RMPFI01D ;;5524367
123RMPFI01E ;;5769437
124RMPFI01F ;;5954284
125RMPFI01G ;;5632547
126RMPFI01H ;;5500705
127RMPFI01I ;;5659791
128RMPFI01J ;;5721878
129RMPFI01K ;;5688757
130RMPFI01L ;;5648234
131RMPFI01M ;;5728190
132RMPFI01N ;;5638332
133RMPFI01O ;;5685290
134RMPFI01P ;;5662656
135RMPFI01Q ;;5635562
136RMPFI01R ;;5608347
137RMPFI01S ;;5722882
138RMPFI01T ;;5869215
139RMPFI01U ;;5807891
140RMPFI01V ;;5884150
141RMPFI01W ;;5724166
142RMPFI01X ;;5782541
143RMPFI01Y ;;5823401
144RMPFI01Z ;;5786037
145RMPFI020 ;;5752784
146RMPFI021 ;;5712284
147RMPFI022 ;;5693920
148RMPFI023 ;;5643376
149RMPFI024 ;;5817109
150RMPFI025 ;;5668655
151RMPFI026 ;;5740613
152RMPFI027 ;;5715820
153RMPFI028 ;;5671808
154RMPFI029 ;;5588855
155RMPFI02A ;;5755110
156RMPFI02B ;;5452628
157RMPFI02C ;;5615315
158RMPFI02D ;;5074153
159RMPFI02E ;;5372538
160RMPFI02F ;;5781953
161RMPFI02G ;;5969567
162RMPFI02H ;;5557799
163RMPFI02I ;;5684725
164RMPFI02J ;;855995
165RMPFI02K ;;7064576
166RMPFI02L ;;2588815
167RMPFI02M ;;5536519
Note: See TracBrowser for help on using the repository browser.