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