source: FOIAVistA/trunk/r/PHARMACY_PRESCRIPTION_PRACTICE-PPP/PPPNTEG.m@ 1119

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

initial load of FOIAVistA 6/30/08 version
File size: 2.6 KB
Line 
1PPPNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;APR 18, 1995@11:09:08
2 ;;V1.0;PHARMACY PRESCRIPTION PRACTICE;;APR 7,1995
3 ;;7.2;APR 18, 1995@11:09:08
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 ;;
12PPPBLD1 ;;2674563
13PPPBLD1A ;;5847926
14PPPBLD2 ;;394949
15PPPBLD3 ;;6948632
16PPPBLD4 ;;2913891
17PPPBLD5 ;;4336923
18PPPBTCH ;;365966
19PPPCHK1 ;;804087
20PPPCNV1 ;;716480
21PPPDSP1 ;;1159723
22PPPDSP2 ;;5901875
23PPPDSP3 ;;4632394
24PPPDSP4 ;;3386142
25PPPEDT1 ;;1823946
26PPPEDT12 ;;3336958
27PPPEDT13 ;;3644164
28PPPEDT14 ;;2412220
29PPPEDT15 ;;1041767
30PPPEDT16 ;;981541
31PPPEDT20 ;;518882
32PPPEDT21 ;;2237681
33PPPEDT22 ;;1993891
34PPPFMA1 ;;3046745
35PPPFMX ;;2007376
36PPPFMX1 ;;747795
37PPPFMX2 ;;2180744
38PPPGET1 ;;4294187
39PPPGET2 ;;2645148
40PPPGET3 ;;1577217
41PPPGET5 ;;1952674
42PPPGET6 ;;1633297
43PPPGET7 ;;3968129
44PPPGET8 ;;2455904
45PPPHLP01 ;;1973526
46PPPIN001 ;;6901716
47PPPIN002 ;;2105781
48PPPIN003 ;;7015782
49PPPIN004 ;;7777718
50PPPIN005 ;;2568655
51PPPIN006 ;;5931008
52PPPIN007 ;;8764387
53PPPIN008 ;;5743796
54PPPIN009 ;;6766971
55PPPIN00A ;;2469257
56PPPIN00B ;;6968003
57PPPIN00C ;;2381152
58PPPIN00D ;;5367154
59PPPIN00E ;;2629440
60PPPIN00F ;;3350804
61PPPIN00G ;;2704089
62PPPIN00H ;;7206691
63PPPIN00I ;;1569814
64PPPIN00J ;;1817728
65PPPIN00K ;;10029495
66PPPIN00L ;;7330901
67PPPIN00M ;;6308005
68PPPIN00N ;;5909343
69PPPIN00O ;;3263826
70PPPINIS ;;2379938
71PPPINIT ;;11450247
72PPPINIT1 ;;5962275
73PPPINIT2 ;;5438929
74PPPINIT3 ;;16301109
75PPPINIT4 ;;3564101
76PPPINIT5 ;;1495354
77PPPINITY ;;15430433
78PPPMSC1 ;;3141862
79PPPON001 ;;6704810
80PPPON002 ;;5657554
81PPPONIT ;;1192328
82PPPONIT1 ;;1910236
83PPPONIT2 ;;289149
84PPPONIT3 ;;10782911
85PPPPDA1 ;;1868832
86PPPPDX1 ;;4992507
87PPPPDX2 ;;1464076
88PPPPDX3 ;;1552783
89PPPPRT1 ;;3871745
90PPPPRT10 ;;570726
91PPPPRT11 ;;2201483
92PPPPRT2 ;;6878120
93PPPPRT20 ;;2754854
94PPPPRT21 ;;2776145
95PPPPRT22 ;;2692686
96PPPPRT23 ;;2913949
97PPPPRT24 ;;4206718
98PPPPRT25 ;;2763303
99PPPPRT29 ;;886020
100PPPPRT3 ;;1315374
101PPPPRT4 ;;3417329
102PPPPRT8 ;;2732678
103PPPPRT9 ;;4099331
104PPPPSL ;;6939795
105PPPPSL1 ;;5565473
106PPPPURG ;;2777669
107PPPSCN1 ;;4207716
108PPPSCN2 ;;5196311
109PPPST01 ;;2318554
110PPPST04 ;;2472403
111PPPST08 ;;2432160
112PPPST09 ;;1987518
113PPPUTL1 ;;948986
114PPPVPP ;;4636377
115PPPVPPIN ;;1485676
Note: See TracBrowser for help on using the repository browser.