source: FOIAVistA/trunk/r/INPATIENT_MEDICATIONS-PSJ-PSIV-PSG--PSGW/PSJNTEG0.m@ 1061

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

initial load of FOIAVistA 6/30/08 version

File size: 3.5 KB
Line 
1PSJNTEG0 ;ISC/XTSUMBLD KERNEL - Package checksum checker ;2971216.152955
2 ;;0.0;
3 ;;7.3;2971216.152955
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^PSJNTEG1
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 ;;
12PSGTCTD ;;6065289
13PSGTCTD0 ;;8315839
14PSGTI ;;6401473
15PSGVBW ;;18130677
16PSGVBW0 ;;15711004
17PSGVBW1 ;;2577458
18PSGVBWP ;;13781808
19PSGVBWU ;;14654477
20PSGVDS ;;7457905
21PSGVW ;;13617950
22PSGVW0 ;;4907591
23PSGVWP ;;3618804
24PSIV ;;9632222
25PSIVACT ;;5206018
26PSIVAL ;;7219660
27PSIVALN ;;3733100
28PSIVAMIS ;;13357019
29PSIVAOR ;;15769366
30PSIVAOR1 ;;4646774
31PSIVCAL ;;13734655
32PSIVCHK ;;11955268
33PSIVCHK1 ;;10650255
34PSIVCSED ;;4498107
35PSIVDCR ;;15391673
36PSIVDCR1 ;;15555679
37PSIVDCR2 ;;10558819
38PSIVDRG ;;8093131
39PSIVEDRG ;;12165589
40PSIVEDT ;;11834139
41PSIVEDT1 ;;8513857
42PSIVHIS ;;3341319
43PSIVHLD ;;1849135
44PSIVHLP ;;11111969
45PSIVHLP1 ;;10706730
46PSIVHLP2 ;;11000260
47PSIVHLP3 ;;3588957
48PSIVHYP ;;3653720
49PSIVHYPL ;;15011059
50PSIVLABL ;;12986653
51PSIVLBDL ;;7062706
52PSIVLBL1 ;;16294393
53PSIVLTR ;;1848959
54PSIVLTR1 ;;4469996
55PSIVMAN ;;11277462
56PSIVMAN1 ;;13852085
57PSIVOE ;;4165977
58PSIVOPT ;;10674345
59PSIVOPT1 ;;10501516
60PSIVOPT2 ;;12232659
61PSIVORA ;;13128297
62PSIVORA1 ;;11240725
63PSIVORAL ;;9610524
64PSIVORC ;;10141585
65PSIVORC1 ;;14586162
66PSIVORC2 ;;13696024
67PSIVORE ;;14225817
68PSIVORE1 ;;14892529
69PSIVORE2 ;;7806596
70PSIVOREN ;;11929114
71PSIVORFA ;;11673391
72PSIVORFB ;;11186136
73PSIVORFE ;;7975789
74PSIVORH ;;4076816
75PSIVORLB ;;9232616
76PSIVORV1 ;;11935581
77PSIVORV2 ;;6852622
78PSIVPAT ;;7058627
79PSIVPCR ;;12828965
80PSIVPCR1 ;;3217504
81PSIVPGE ;;16101277
82PSIVPR ;;11856703
83PSIVPRO ;;10241971
84PSIVQUI ;;7058626
85PSIVRD ;;12883074
86PSIVREC ;;4540790
87PSIVRNL ;;17941560
88PSIVRP ;;19368402
89PSIVRP1 ;;9529006
90PSIVRQ ;;11580483
91PSIVRQ1 ;;14193047
92PSIVSET ;;11971611
93PSIVSP ;;11493491
94PSIVSPDC ;;4523227
95PSIVST2 ;;10812968
96PSIVSTAT ;;11185386
97PSIVSUS ;;20540089
98PSIVSUS1 ;;9233493
99PSIVUDL ;;12893010
100PSIVUTL ;;7154813
101PSIVUTL1 ;;7128902
102PSIVUWL ;;9325172
103PSIVVW1 ;;8162548
104PSIVWCR ;;12737296
105PSIVWCR1 ;;2836925
106PSIVWL ;;15985042
107PSIVWL1 ;;15920427
108PSIVWRP ;;14216186
109PSIVXREF ;;672248
110PSIVXU ;;2636747
111PSJ200 ;;11883362
112PSJAC ;;8790985
113PSJADT ;;14320096
114PSJADT0 ;;17469396
115PSJADT1 ;;3886524
116PSJALG ;;4878413
117PSJDCHK ;;11850014
118PSJDDUT ;;16989030
119PSJDDUT2 ;;12090780
120PSJDDUT3 ;;4798877
121PSJDEA ;;4418374
122PSJDGAL ;;2657545
123PSJEEU ;;5082000
124PSJEEU0 ;;11810342
125PSJEXP ;;22569862
126PSJEXP0 ;;17975167
127PSJFL ;;7929486
128PSJFL1 ;;4540012
129PSJH1 ;;9462313
130PSJHEAD ;;15526491
131PSJHIS ;;4373003
132PSJHL2 ;;8978069
133PSJHL3 ;;13294105
134PSJHL4 ;;21181671
135PSJHL5 ;;6805998
136PSJHL6 ;;10385690
137PSJHL7 ;;15568482
138PSJHL9 ;;11661940
139PSJHLERR ;;2035077
140PSJHLU ;;4443407
141PSJHVARS ;;7325044
142PSJIENV ;;712925
143PSJIPRE ;;4561152
144PSJIPST ;;9594885
145PSJIPST1 ;;14509257
146PSJIPST2 ;;9596551
147PSJIPST3 ;;17764021
148PSJIPSTA ;;6270357
149PSJLIACT ;;2257018
150PSJLIFN ;;4534897
151PSJLIFNI ;;1742255
152PSJLIORD ;;999487
153PSJLIPRF ;;653170
154PSJLIUTL ;;6126958
155PSJLIVFD ;;5508085
156PSJLIVMD ;;5160354
157PSJLMAL ;;98929
158PSJLMDA ;;178896
159PSJLMGUD ;;17316547
160PSJLMHED ;;9814074
161PSJLMPRI ;;6611303
162PSJLMPRU ;;5945946
163PSJLMUDE ;;19967093
164PSJLMUT1 ;;17706585
165PSJLMUTL ;;10117738
166PSJLOI ;;863278
167PSJMDIR ;;15822387
Note: See TracBrowser for help on using the repository browser.