source: FOIAVistA/trunk/r/PCE_PATIENT_CARE_ENCOUNTER-AUTN-EFDP-PX-VSIT--PXRM/PXNTEG.m@ 1742

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

initial load of FOIAVistA 6/30/08 version
File size: 3.5 KB
Line 
1PXNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;2960814.111525
2 ;;1.0;PCE PATIENT CARE ENCOUNTER;;Aug 12, 1996
3 ;;7.3;2960814.111525
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^PXNTEG0
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 ;;
12AUPNPAT ;;741709
13AUPNSICD ;;268724
14AUTNPOV ;;776769
15IBDFPCE ;;2696567
16PXAI ;;3686164
17PXAICPT ;;5419204
18PXAICPTV ;;3087233
19PXAIHF ;;1635608
20PXAIHFV ;;351726
21PXAIIMM ;;1652845
22PXAIIMMV ;;338030
23PXAIPED ;;1547637
24PXAIPEDV ;;278691
25PXAIPL ;;1471437
26PXAIPOV ;;6162167
27PXAIPOVV ;;1191657
28PXAIPRV ;;4280356
29PXAIPRVV ;;3708267
30PXAISK ;;1546855
31PXAISKV ;;295298
32PXAIUPRV ;;2122779
33PXAIVST ;;4110981
34PXAIVSTV ;;21773405
35PXAIXAM ;;1461117
36PXAIXAMV ;;247075
37PXAPI ;;7755262
38PXAPIDEL ;;9660476
39PXAPIEED ;;2523944
40PXAPIIB ;;1387457
41PXAPIUTL ;;88009
42PXBAICS ;;277824
43PXBAPI ;;11386903
44PXBAPI1 ;;9105147
45PXBAPI2 ;;4683743
46PXBAPI21 ;;4799017
47PXBAPI22 ;;3140600
48PXBCC ;;6797457
49PXBDCPT ;;8592978
50PXBDPL ;;5995372
51PXBDPOV ;;8212402
52PXBDPRV ;;8453744
53PXBDREQ ;;1918733
54PXBDSTP ;;5143593
55PXBDVST ;;5647529
56PXBGCPT ;;1918001
57PXBGCPT2 ;;9008579
58PXBGCPT4 ;;4628558
59PXBGHF ;;1049671
60PXBGIMM ;;1435633
61PXBGPED ;;1185979
62PXBGPL ;;941159
63PXBGPL2 ;;3950665
64PXBGPOV ;;2788193
65PXBGPOV2 ;;7271462
66PXBGPOV3 ;;4208771
67PXBGPOV4 ;;4678588
68PXBGPRV ;;1616122
69PXBGPRV2 ;;6160224
70PXBGPRV3 ;;4028981
71PXBGPRV4 ;;4202360
72PXBGSK ;;1553050
73PXBGSTP ;;2240562
74PXBGSTP2 ;;6944203
75PXBGVST ;;8977407
76PXBGXAM ;;1198724
77PXBHLP0 ;;1260401
78PXBHLP1 ;;4652826
79PXBHLP2 ;;6539318
80PXBHLP3 ;;7157764
81PXBHLP4 ;;6207068
82PXBHLPR ;;734674
83PXBMCPT ;;4594493
84PXBMCPT2 ;;2235327
85PXBMPOV ;;2663469
86PXBMPRV ;;1699541
87PXBMSTP ;;2729842
88PXBPCPT ;;13804267
89PXBPCPT1 ;;5092280
90PXBPL ;;4291505
91PXBPPOV ;;8079021
92PXBPPOV1 ;;4309492
93PXBPPRV ;;13140093
94PXBPPRV1 ;;4760701
95PXBPQUA ;;1440529
96PXBPSTP ;;5772061
97PXBPSTP1 ;;3451342
98PXBPVST ;;13388527
99PXBPWCH ;;1562375
100PXBSTOR ;;6614542
101PXBSTOR1 ;;1652983
102PXBUTL ;;8211033
103PXBUTL0 ;;8269509
104PXBUTL1 ;;3471042
105PXBUTL2 ;;2260528
106PXBUTL3 ;;1533990
107PXCA ;;2933977
108PXCA0 ;;5365776
109PXCACPT ;;10674254
110PXCACPT1 ;;1734330
111PXCADX ;;3434565
112PXCADXP1 ;;12087451
113PXCADXP2 ;;12276828
114PXCADXPL ;;3913980
115PXCAERR ;;2452313
116PXCAHF ;;4813066
117PXCAPED ;;5490983
118PXCAPL ;;13786607
119PXCAPL1 ;;2426957
120PXCAPL2 ;;3619358
121PXCAPOV ;;11098877
122PXCAPOV1 ;;3476960
123PXCAPRV ;;6993740
124PXCASK ;;5972282
125PXCASOR ;;1954287
126PXCATRT ;;1377182
127PXCAVIMM ;;8829329
128PXCAVST ;;16785044
129PXCAVST1 ;;5115097
130PXCAVST2 ;;4129627
131PXCAXAM ;;3974596
132PXCE ;;6555449
133PXCEAE ;;6703732
134PXCEAE1 ;;4594348
135PXCEAE2 ;;2868684
136PXCEAPPM ;;3476471
137PXCECPT ;;6133689
138PXCECSTP ;;4574573
139PXCEDATE ;;1078083
140PXCEE800 ;;1064572
141PXCEEXP ;;2851965
142PXCEHELP ;;5222075
143PXCEHF ;;2885800
144PXCEHIST ;;4442569
145PXCEHLOC ;;3323806
146PXCEINTR ;;3867891
147PXCENEW ;;1336203
148PXCEPAT ;;5573206
149PXCEPED ;;2474866
150PXCEPOV ;;4467333
151PXCEPOV1 ;;5695017
152PXCEPRV ;;5672258
153PXCESDA1 ;;645416
154PXCESDA3 ;;670753
155PXCESDAM ;;5365433
156PXCESIT ;;5008398
157PXCESK ;;6571828
158PXCETRT ;;3327845
159PXCEVFI1 ;;4958653
160PXCEVFI2 ;;8845926
161PXCEVFI4 ;;5368384
162PXCEVFI5 ;;1650454
163PXCEVFIL ;;14040305
164PXCEVIMM ;;5452259
165PXCEVSIT ;;6206404
166PXCEVST ;;3476006
167PXCEXAM ;;2160690
168PXEDIEL ;;4701234
169PXEDIELU ;;1034636
170PXEDILUD ;;3241222
Note: See TracBrowser for help on using the repository browser.