source: FOIAVistA/trunk/r/PHARMACY_DATA_MANAGEMENT-PSS/PSSNTEG.m@ 811

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

initial load of FOIAVistA 6/30/08 version

File size: 2.5 KB
Line 
1PSSNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;2970930.145828
2 ;;1.0;PHARMACY DATA MANAGEMENT;;9/30/97
3 ;;7.3;2970930.145828
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 ;;
12PSSADDIT ;;30685202
13PSSAUTL ;;2539995
14PSSCHENV ;;1140827
15PSSCHPRE ;;1626421
16PSSCHPST ;;3751390
17PSSCLDRG ;;7333743
18PSSCREAT ;;24972545
19PSSD1 ;;10676
20PSSDDUT ;;14994173
21PSSDDUT2 ;;10950246
22PSSDDUT3 ;;12058890
23PSSDEE ;;43704990
24PSSDEE1 ;;26240841
25PSSDEE2 ;;5494501
26PSSDELOI ;;3460320
27PSSDENT ;;1634109
28PSSENV ;;203759
29PSSENVN ;;1146911
30PSSFIL ;;18709905
31PSSFILED ;;16572342
32PSSGEN ;;462676
33PSSGENM ;;434339
34PSSGFILD ;;15862350
35PSSGIU ;;9608320
36PSSGMI ;;4459902
37PSSGS0 ;;8551998
38PSSGSH ;;5680648
39PSSHELP ;;3001299
40PSSHL1 ;;10469844
41PSSHLSCH ;;1141341
42PSSHLU ;;3879886
43PSSITES1 ;;5263233
44PSSITEST ;;5269974
45PSSIVDRG ;;15593758
46PSSJEEU ;;5145075
47PSSJORDF ;;4873243
48PSSJSPU ;;10488182
49PSSJSPU0 ;;2605125
50PSSJSV ;;13264221
51PSSJSV0 ;;18084796
52PSSJXR ;;6435098
53PSSJXR1 ;;283291
54PSSJXR10 ;;2104500
55PSSJXR11 ;;690370
56PSSJXR12 ;;927686
57PSSJXR13 ;;2010380
58PSSJXR14 ;;358482
59PSSJXR15 ;;283700
60PSSJXR16 ;;11238641
61PSSJXR17 ;;9426208
62PSSJXR18 ;;737442
63PSSJXR19 ;;2124963
64PSSJXR2 ;;1688794
65PSSJXR20 ;;5762877
66PSSJXR21 ;;1426401
67PSSJXR22 ;;683202
68PSSJXR3 ;;363618
69PSSJXR4 ;;288930
70PSSJXR5 ;;11117778
71PSSJXR6 ;;9332083
72PSSJXR7 ;;743494
73PSSJXR8 ;;3365639
74PSSJXR9 ;;3366364
75PSSLAB ;;14173358
76PSSLOOK ;;19462443
77PSSMARK ;;26334152
78PSSMATCH ;;21769167
79PSSOICT ;;7252188
80PSSOICT1 ;;8390406
81PSSPOI ;;15938224
82PSSPOIC ;;19806247
83PSSPOIDT ;;33282191
84PSSPOIKA ;;21393690
85PSSPOIM ;;12995320
86PSSPOIM1 ;;35563255
87PSSPOIM2 ;;28347728
88PSSPOIM3 ;;9862483
89PSSPOIMN ;;27314811
90PSSPOIMO ;;28153203
91PSSPOST ;;5393689
92PSSPRE ;;3908870
93PSSPRETR ;;460682
94PSSQOC ;;4706994
95PSSREF ;;4469291
96PSSSOLI1 ;;12192527
97PSSSOLIT ;;14008478
98PSSSPD ;;6082698
99PSSSUTIL ;;7176881
100PSSSYN ;;2968065
101PSSVIDRG ;;16214050
102PSSVX6 ;;4793258
103PSSVX61 ;;1695682
104PSSVX62 ;;401947
105PSSVX63 ;;387628
106PSSVX64 ;;1499523
107PSSVX65 ;;401610
108PSSVX66 ;;387249
109PSSYSP ;;62952
Note: See TracBrowser for help on using the repository browser.