source: FOIAVistA/trunk/r/INPATIENT_MEDICATIONS-PSJ-PSIV-PSG--PSGW/PSJNTEG.m@ 1757

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

initial load of FOIAVistA 6/30/08 version

File size: 3.5 KB
Line 
1PSJNTEG ;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^PSJNTEG0
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 ;;
12PSGAL5 ;;5441715
13PSGAMS ;;10549502
14PSGAMS0 ;;4344378
15PSGAMSA ;;14801593
16PSGAP ;;4559319
17PSGAP0 ;;16505444
18PSGAPH ;;6145898
19PSGAPIV ;;3389953
20PSGAPP ;;15835658
21PSGAXR ;;5177686
22PSGBRJ ;;9623144
23PSGCAP ;;17489925
24PSGCAP0 ;;10614134
25PSGCAPIV ;;4278138
26PSGCAPP ;;9869420
27PSGCAPP0 ;;8107032
28PSGCT ;;1115903
29PSGDCC ;;15581084
30PSGDCCM ;;2683467
31PSGDCR0 ;;8457985
32PSGDCT ;;14158481
33PSGDCT1 ;;12490651
34PSGDCTP ;;10089690
35PSGDL ;;5483697
36PSGDS ;;9579866
37PSGDS0 ;;16727020
38PSGDSP ;;18990871
39PSGDSP0 ;;10630520
40PSGDSP1 ;;14595476
41PSGDSPN ;;1638530
42PSGEUD ;;17336835
43PSGEUDD ;;6739300
44PSGEUDP ;;9687269
45PSGFILD0 ;;17335163
46PSGFILD1 ;;7990496
47PSGFILD2 ;;7016689
48PSGFILD3 ;;17423076
49PSGFILED ;;16058941
50PSGGAO ;;3063407
51PSGIU ;;7949412
52PSGL ;;14712907
53PSGL0 ;;19187109
54PSGLBA ;;8090709
55PSGLH ;;3878428
56PSGLOI ;;16236725
57PSGLPI ;;8004914
58PSGLW ;;3035966
59PSGMAR ;;20496280
60PSGMAR0 ;;11114308
61PSGMAR1 ;;5353727
62PSGMAR2 ;;6844638
63PSGMAR3 ;;9629120
64PSGMI ;;4459432
65PSGMIV ;;11254029
66PSGMMAR ;;10224180
67PSGMMAR0 ;;14132728
68PSGMMAR1 ;;11878013
69PSGMMAR2 ;;14235109
70PSGMMAR3 ;;3590276
71PSGMMAR4 ;;6026439
72PSGMMAR5 ;;1681370
73PSGMMARH ;;12079638
74PSGMMIV ;;7749701
75PSGMMIVC ;;9786381
76PSGMUTL ;;5913174
77PSGNE3 ;;9394484
78PSGO ;;12018164
79PSGOD ;;11807794
80PSGOE ;;15327106
81PSGOE0 ;;9193131
82PSGOE1 ;;10594208
83PSGOE2 ;;4879241
84PSGOE3 ;;11951889
85PSGOE31 ;;10243258
86PSGOE4 ;;13490764
87PSGOE41 ;;8440726
88PSGOE42 ;;6382038
89PSGOE5 ;;7735156
90PSGOE6 ;;9943306
91PSGOE7 ;;10161162
92PSGOE8 ;;15618643
93PSGOE81 ;;10028730
94PSGOE82 ;;8607048
95PSGOE9 ;;11804717
96PSGOE91 ;;9890263
97PSGOE92 ;;7143515
98PSGOEC ;;15996336
99PSGOECA ;;991050
100PSGOECS ;;9031224
101PSGOEE ;;17491629
102PSGOEE0 ;;15138328
103PSGOEEW ;;21844297
104PSGOEF ;;13928521
105PSGOEF1 ;;12680599
106PSGOEH0 ;;8383765
107PSGOEH1 ;;6724834
108PSGOEHA ;;7007783
109PSGOEI ;;3890619
110PSGOEL ;;11267940
111PSGOEM ;;19080178
112PSGOEM1 ;;1940971
113PSGOENG ;;4761090
114PSGOEPO ;;15018055
115PSGOER ;;13469511
116PSGOER0 ;;13260485
117PSGOER1 ;;3148238
118PSGOERI ;;8898891
119PSGOERS ;;18950616
120PSGOES ;;11817894
121PSGOESF ;;12518909
122PSGOETO ;;16306689
123PSGOETO1 ;;786017
124PSGOEV ;;15864210
125PSGOEVS ;;3588216
126PSGON ;;19424974
127PSGORS0 ;;7336776
128PSGORVW ;;3907762
129PSGOT ;;8547772
130PSGOU ;;15325899
131PSGP ;;9585275
132PSGPEN ;;23532440
133PSGPER ;;5408903
134PSGPER0 ;;15726318
135PSGPL ;;13097481
136PSGPL0 ;;8430342
137PSGPL1 ;;12319794
138PSGPLD ;;12099262
139PSGPLDP ;;10718642
140PSGPLDP0 ;;18184874
141PSGPLDPH ;;5015172
142PSGPLF ;;14706289
143PSGPLFM ;;8373997
144PSGPLG ;;6885757
145PSGPLPRG ;;11179828
146PSGPLR ;;19302586
147PSGPLR0 ;;15517159
148PSGPLRP ;;12596914
149PSGPLUP ;;16498991
150PSGPLUP0 ;;11294576
151PSGPLUTL ;;3186752
152PSGPLXR ;;6638397
153PSGPO ;;20554722
154PSGPOR ;;4200448
155PSGPR ;;17577726
156PSGPRVR ;;12528305
157PSGPRVR0 ;;7870922
158PSGRET ;;9621475
159PSGRPNT ;;581186
160PSGS0 ;;8767968
161PSGSCT ;;3903425
162PSGSCT0 ;;5656609
163PSGSEL ;;17761667
164PSGSET ;;5107091
165PSGSETU ;;6081391
166PSGSH ;;5840841
167PSGSICHK ;;17299903
168PSGSSP ;;476867
169PSGTAP ;;15795289
170PSGTAP0 ;;8345851
171PSGTAP1 ;;10767230
Note: See TracBrowser for help on using the repository browser.