source: FOIAVistA/tag/r/AUTO_REPLENISHMENT_WARD_STOCK-PSGW/PSGWNTEG.m@ 628

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

initial load of FOIAVistA 6/30/08 version
File size: 2.6 KB
Line 
1PSGWNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;DEC 29, 1993@14:32:42
2 ;;2.3; Automatic Replenishment/Ward Stock ;;4 JAN 94
3 ;;7.1;DEC 29, 1993@14:32:42
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 ;;
12PSGWADE ;;5846325
13PSGWADE1 ;;14948420
14PSGWADP ;;10440536
15PSGWADP1 ;;7139779
16PSGWAIO ;;10895622
17PSGWAOU ;;7642629
18PSGWAOUI ;;8589667
19PSGWAP ;;5873548
20PSGWAR ;;13010701
21PSGWAR1 ;;5874442
22PSGWARP ;;7999478
23PSGWATR ;;9067134
24PSGWATR1 ;;8722201
25PSGWBGIN ;;15240669
26PSGWBO ;;13307403
27PSGWBO1 ;;4182102
28PSGWBOA ;;14982807
29PSGWBOE ;;7211426
30PSGWBOI ;;8488836
31PSGWBOIP ;;5337394
32PSGWBOS ;;14262354
33PSGWCAD ;;13822666
34PSGWCAD1 ;;10592470
35PSGWCAD2 ;;10973869
36PSGWCAD3 ;;10927751
37PSGWCCE ;;851128
38PSGWCCP ;;6746655
39PSGWCHG ;;17641519
40PSGWCL ;;8811361
41PSGWCLP ;;9392322
42PSGWCPA ;;11713939
43PSGWCPA1 ;;14134524
44PSGWDEL ;;8358632
45PSGWDR ;;11959846
46PSGWDUP ;;9744636
47PSGWDUP1 ;;12298655
48PSGWEDI ;;13589597
49PSGWEDI1 ;;2529136
50PSGWEDIS ;;4420181
51PSGWEE ;;895250
52PSGWEXP ;;1618724
53PSGWEXR ;;12646958
54PSGWEXR1 ;;4384605
55PSGWEXR2 ;;7099192
56PSGWFIL ;;641249
57PSGWFLBO ;;2970440
58PSGWHC ;;12430303
59PSGWHC0 ;;6955744
60PSGWHC1 ;;5916074
61PSGWHV ;;8690535
62PSGWHV0 ;;6712805
63PSGWHV1 ;;5588983
64PSGWKINV ;;286315
65PSGWL ;;13973426
66PSGWLSI ;;6513133
67PSGWLSI1 ;;11512487
68PSGWLSI2 ;;7691709
69PSGWNU ;;9603147
70PSGWNU1 ;;6882055
71PSGWOD2 ;;2664332
72PSGWODP ;;9462668
73PSGWODPR ;;7461754
74PSGWODRN ;;17619352
75PSGWOLD ;;12732432
76PSGWOLD1 ;;2110087
77PSGWOND ;;11310229
78PSGWONDM ;;19072476
79PSGWPAW ;;6593463
80PSGWPAW1 ;;15460526
81PSGWPERC ;;1919931
82PSGWPERE ;;1523274
83PSGWPI ;;6679648
84PSGWPI1 ;;13320049
85PSGWPI2 ;;9680378
86PSGWPIG ;;10827983
87PSGWPIS ;;12279683
88PSGWPL ;;13836679
89PSGWPL0 ;;14308325
90PSGWPL1 ;;5068891
91PSGWPOST ;;19592480
92PSGWPRE1 ;;6549690
93PSGWPSI ;;7769362
94PSGWPSI1 ;;6999982
95PSGWPST1 ;;2283832
96PSGWRA ;;16600066
97PSGWRAC ;;11116098
98PSGWRI ;;3716796
99PSGWSC ;;9216557
100PSGWSC1 ;;6105570
101PSGWSET ;;5617928
102PSGWSIG ;;7288214
103PSGWSTD ;;5434665
104PSGWSTKI ;;6517961
105PSGWTOT ;;8644984
106PSGWTOT1 ;;11144490
107PSGWTOT2 ;;13583982
108PSGWTR ;;15688724
109PSGWTR1 ;;7061927
110PSGWUAS ;;10975746
111PSGWUTL ;;14759833
112PSGWUTL1 ;;7498103
113PSGWVW ;;11025406
114PSGWWRD ;;17109762
115PSGWXREF ;;10462873
Note: See TracBrowser for help on using the repository browser.