source: FOIAVistA/trunk/r/OUTPATIENT_PHARMACY-PSO-APSP-HUIP/PSONTEG0.m@ 1423

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

initial load of FOIAVistA 6/30/08 version

File size: 3.4 KB
Line 
1PSONTEG0 ;ISC/XTSUMBLD KERNEL - Package checksum checker ;2971222.09512
2 ;;7.0;OUTPATIENT PHARMACY;;DEC 1997
3 ;;7.3;2971222.09512
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 ;;
12PSOLMPAT ;;2077877
13PSOLMPF ;;82942
14PSOLMPI ;;236025
15PSOLMPO ;;574251
16PSOLMPO1 ;;631906
17PSOLMPO2 ;;309636
18PSOLMRN ;;149494
19PSOLMUTL ;;3907839
20PSOLSET ;;18071759
21PSOMGCM1 ;;18199513
22PSOMGCOM ;;14747963
23PSOMGM31 ;;8642183
24PSOMGMN1 ;;9199713
25PSOMGMN2 ;;10913986
26PSOMGMN3 ;;21220452
27PSOMGMN4 ;;13607235
28PSOMGMRP ;;17512057
29PSOMGR31 ;;5472288
30PSOMGREP ;;14509657
31PSOMGRP1 ;;10005146
32PSOMGRP2 ;;12746057
33PSOMGRP3 ;;22051038
34PSOMGRP4 ;;14193453
35PSON52 ;;15058449
36PSONEW ;;10857033
37PSONEW1 ;;5853188
38PSONEW2 ;;5747569
39PSONEW3 ;;4823153
40PSONGR ;;1642324
41PSONRXN ;;5166343
42PSOORAL ;;1953958
43PSOORAL1 ;;14844886
44PSOORAL2 ;;15285227
45PSOORCPY ;;6201885
46PSOORDA ;;23785410
47PSOORDER ;;24139932
48PSOORDRG ;;15391172
49PSOORED1 ;;15120313
50PSOORED2 ;;13743509
51PSOOREDT ;;27715444
52PSOORFI1 ;;34184243
53PSOORFI2 ;;11898144
54PSOORFIN ;;29613344
55PSOORNE1 ;;18429602
56PSOORNE2 ;;32087079
57PSOORNE3 ;;34298369
58PSOORNE4 ;;16801213
59PSOORNE5 ;;4747585
60PSOORNEW ;;33298659
61PSOORNW1 ;;16686302
62PSOORNW2 ;;19314033
63PSOORRL ;;32892842
64PSOORRNW ;;7620577
65PSOORUT1 ;;25104398
66PSOORUT2 ;;11110235
67PSOORUT3 ;;7030365
68PSOORUTL ;;16417066
69PSOP ;;26901334
70PSOP1 ;;14922973
71PSOP2 ;;7742346
72PSOPAT ;;3373034
73PSOPOLY ;;19048209
74PSOPOST ;;11860998
75PSOPOST1 ;;3803788
76PSOPRF ;;16636561
77PSOPRFSS ;;11665475
78PSOPRVW ;;15709488
79PSOPTPST ;;11916464
80PSOR52 ;;9823686
81PSORDS ;;7510779
82PSOREF ;;22849705
83PSOREF0 ;;17663887
84PSOREF1 ;;4675116
85PSOREF2 ;;4285052
86PSORENW ;;7868447
87PSORENW0 ;;17581309
88PSORENW1 ;;7561359
89PSORENW2 ;;3114014
90PSORENW3 ;;7725131
91PSORENW4 ;;11953560
92PSORESK ;;19949534
93PSORESK1 ;;5577574
94PSORFL ;;7091639
95PSORN52 ;;14654715
96PSORN52C ;;11670503
97PSORPTS ;;4390596
98PSORPTS1 ;;10870691
99PSORX1 ;;13739820
100PSORXDL ;;8292823
101PSORXED ;;19772932
102PSORXED1 ;;13216882
103PSORXI ;;4007749
104PSORXL ;;30811210
105PSORXL1 ;;17622725
106PSORXLAB ;;17184627
107PSORXPA1 ;;10282253
108PSORXPR ;;20068051
109PSORXPR1 ;;9326949
110PSORXRP1 ;;12432743
111PSORXRP2 ;;16270284
112PSORXRPT ;;18273562
113PSORXVW ;;31330798
114PSORXVW1 ;;24881247
115PSORXVW2 ;;6339614
116PSOSD ;;21513648
117PSOSD0 ;;18808868
118PSOSD1 ;;25474451
119PSOSD2 ;;15671850
120PSOSD3 ;;13566482
121PSOSDP ;;22741952
122PSOSIGNO ;;8860973
123PSOSITED ;;4084959
124PSOSTART ;;3654679
125PSOSUBCH ;;13569666
126PSOSUCH1 ;;14382618
127PSOSUCHG ;;36479970
128PSOSUDCN ;;5688481
129PSOSUDEL ;;5176204
130PSOSUDP1 ;;22550976
131PSOSUDP2 ;;2671676
132PSOSUDPR ;;20603485
133PSOSUINV ;;4955002
134PSOSULB1 ;;14468070
135PSOSULBL ;;20325252
136PSOSULOG ;;3451426
137PSOSUP ;;6112613
138PSOSUPAT ;;25778529
139PSOSUPOE ;;20956068
140PSOSUPRX ;;27824240
141PSOSURST ;;22950023
142PSOSUSRP ;;11551615
143PSOSUTL ;;30422344
144PSOSUTL1 ;;19577048
145PSOTRLBL ;;12824470
146PSOUTIL ;;22136773
147PSOUTL ;;23844742
148PSOUTLA ;;16954930
149PSOUTLA1 ;;3764410
150PSOVCNT ;;8718043
151PSOVER ;;20917337
152PSOVER1 ;;18464868
153PSOVER2 ;;11072834
154PSOVERC ;;6875668
155PSOVRPT ;;13870743
156PSOVWI ;;994942
Note: See TracBrowser for help on using the repository browser.