Last change
on this file since 952 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
3.5 KB
|
Rev | Line | |
---|
[628] | 1 | PSDNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;2970224.092204
|
---|
| 2 | ;;3.0; CONTROLLED SUBSTANCES ;;13 Feb 97
|
---|
| 3 | ;;7.3;2970224.092204
|
---|
| 4 | S XT4="I 1",X=$T(+3) W !!,"Checksum routine created on ",$P(X,";",4)," by KERNEL V",$P(X,";",3),!
|
---|
| 5 | CONT 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^PSDNTEG0
|
---|
| 7 | K %1,%2,%3,X,Y,XT1,XT2,XT3,XT4 Q
|
---|
| 8 | ONE 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
|
---|
| 11 | ROU ;;
|
---|
| 12 | PSDACT ;;9975594
|
---|
| 13 | PSDACT1 ;;11604254
|
---|
| 14 | PSDACT2 ;;6805666
|
---|
| 15 | PSDADJ ;;13992080
|
---|
| 16 | PSDADJB ;;3411172
|
---|
| 17 | PSDADJC ;;12709010
|
---|
| 18 | PSDADJD ;;13684417
|
---|
| 19 | PSDADJI ;;9664608
|
---|
| 20 | PSDADJIN ;;10882845
|
---|
| 21 | PSDADJN ;;12308094
|
---|
| 22 | PSDADJN1 ;;9209503
|
---|
| 23 | PSDADJR ;;9137032
|
---|
| 24 | PSDADJW ;;3140510
|
---|
| 25 | PSDADT ;;1852503
|
---|
| 26 | PSDADT1 ;;2880338
|
---|
| 27 | PSDAMIS ;;12951751
|
---|
| 28 | PSDAMIS0 ;;12093150
|
---|
| 29 | PSDAMIS1 ;;10954000
|
---|
| 30 | PSDAMIS2 ;;8653026
|
---|
| 31 | PSDAMIS3 ;;11517002
|
---|
| 32 | PSDAMIS4 ;;6905875
|
---|
| 33 | PSDAPU ;;453681
|
---|
| 34 | PSDBAL ;;11324223
|
---|
| 35 | PSDBALI ;;13145477
|
---|
| 36 | PSDBALI1 ;;4034805
|
---|
| 37 | PSDBAN ;;11322182
|
---|
| 38 | PSDBAN1 ;;6447121
|
---|
| 39 | PSDCODE ;;1276619
|
---|
| 40 | PSDCOR ;;12698386
|
---|
| 41 | PSDCOR1 ;;13395954
|
---|
| 42 | PSDCOR2 ;;13487461
|
---|
| 43 | PSDCOR3 ;;1989323
|
---|
| 44 | PSDCORP ;;10704766
|
---|
| 45 | PSDCORP1 ;;8074809
|
---|
| 46 | PSDCORP2 ;;8214810
|
---|
| 47 | PSDCORP3 ;;9384457
|
---|
| 48 | PSDCOSD ;;11666341
|
---|
| 49 | PSDCOSH ;;8058420
|
---|
| 50 | PSDCOSM ;;1588896
|
---|
| 51 | PSDCOSN ;;11610030
|
---|
| 52 | PSDCOST ;;17808268
|
---|
| 53 | PSDCOSV ;;8309730
|
---|
| 54 | PSDCPO ;;15492261
|
---|
| 55 | PSDCRP ;;15861595
|
---|
| 56 | PSDCSI ;;8739313
|
---|
| 57 | PSDCSL ;;9907995
|
---|
| 58 | PSDDFP ;;13632184
|
---|
| 59 | PSDDFP1 ;;4717046
|
---|
| 60 | PSDDWK ;;14582819
|
---|
| 61 | PSDDWK1 ;;8730816
|
---|
| 62 | PSDDWK2 ;;7776016
|
---|
| 63 | PSDDWK3 ;;7689842
|
---|
| 64 | PSDDWK4 ;;5365045
|
---|
| 65 | PSDDWKE ;;10267106
|
---|
| 66 | PSDEA ;;7236323
|
---|
| 67 | PSDEA41 ;;13153026
|
---|
| 68 | PSDEM ;;11848547
|
---|
| 69 | PSDEM1 ;;12993745
|
---|
| 70 | PSDEM2 ;;11157976
|
---|
| 71 | PSDEM3 ;;2984202
|
---|
| 72 | PSDEM4 ;;7256790
|
---|
| 73 | PSDEN ;;9553918
|
---|
| 74 | PSDERCP ;;15389660
|
---|
| 75 | PSDERD ;;7069296
|
---|
| 76 | PSDERP ;;15124151
|
---|
| 77 | PSDEST ;;14170737
|
---|
| 78 | PSDESTF ;;11545390
|
---|
| 79 | PSDESTO ;;12940785
|
---|
| 80 | PSDESTP ;;24798965
|
---|
| 81 | PSDEVO ;;13442414
|
---|
| 82 | PSDEVO1 ;;11404589
|
---|
| 83 | PSDEVOR ;;15314902
|
---|
| 84 | PSDEXGS ;;12646994
|
---|
| 85 | PSDEXGS1 ;;6305959
|
---|
| 86 | PSDEXP ;;15048479
|
---|
| 87 | PSDEXP1 ;;5042879
|
---|
| 88 | PSDFIL2 ;;14725710
|
---|
| 89 | PSDFIL3 ;;14685555
|
---|
| 90 | PSDFILM ;;2926376
|
---|
| 91 | PSDFND ;;16502908
|
---|
| 92 | PSDFND1 ;;2124618
|
---|
| 93 | PSDFT ;;14866922
|
---|
| 94 | PSDFT1 ;;15918295
|
---|
| 95 | PSDGEN ;;1437730
|
---|
| 96 | PSDGPR ;;11702075
|
---|
| 97 | PSDGSH ;;3741711
|
---|
| 98 | PSDGSH1 ;;5746281
|
---|
| 99 | PSDGSH11 ;;6013794
|
---|
| 100 | PSDGSH2 ;;13901298
|
---|
| 101 | PSDGSK ;;7890554
|
---|
| 102 | PSDGSL ;;8633650
|
---|
| 103 | PSDGSL1 ;;8018119
|
---|
| 104 | PSDGSPU ;;8969282
|
---|
| 105 | PSDGSRV ;;13538823
|
---|
| 106 | PSDGSRV1 ;;16149091
|
---|
| 107 | PSDGSRV2 ;;14427491
|
---|
| 108 | PSDHELP ;;167485
|
---|
| 109 | PSDHL7 ;;6316421
|
---|
| 110 | PSDHLK ;;1069196
|
---|
| 111 | PSDHLP ;;1933023
|
---|
| 112 | PSDHLX ;;1153846
|
---|
| 113 | PSDHLY ;;924987
|
---|
| 114 | PSDHRPT ;;14954948
|
---|
| 115 | PSDINPRE ;;3161234
|
---|
| 116 | PSDIPOS1 ;;4077569
|
---|
| 117 | PSDIPOST ;;6876049
|
---|
| 118 | PSDLBL ;;14060349
|
---|
| 119 | PSDLBL0 ;;8605513
|
---|
| 120 | PSDLBL1 ;;13258327
|
---|
| 121 | PSDLBL2 ;;10638900
|
---|
| 122 | PSDLBL3 ;;10994226
|
---|
| 123 | PSDLBL4 ;;4065314
|
---|
| 124 | PSDLBL5 ;;7201861
|
---|
| 125 | PSDLBLB ;;7160018
|
---|
| 126 | PSDLBLI ;;9423541
|
---|
| 127 | PSDLBLP ;;12044908
|
---|
| 128 | PSDLBLR ;;9703853
|
---|
| 129 | PSDLBLR0 ;;6059606
|
---|
| 130 | PSDLBLR1 ;;2638419
|
---|
| 131 | PSDLBLR2 ;;4532916
|
---|
| 132 | PSDLSTK ;;8066682
|
---|
| 133 | PSDLSTK1 ;;9733870
|
---|
| 134 | PSDLSTK2 ;;8185271
|
---|
| 135 | PSDMAPU ;;7479575
|
---|
| 136 | PSDMFG ;;3721775
|
---|
| 137 | PSDNACT ;;6740699
|
---|
| 138 | PSDNARC ;;3678699
|
---|
| 139 | PSDNBT ;;11058243
|
---|
| 140 | PSDNCGS ;;10321965
|
---|
| 141 | PSDNDES ;;13786726
|
---|
| 142 | PSDNRGO ;;12162069
|
---|
| 143 | PSDNRGS ;;15623486
|
---|
| 144 | PSDNSCG ;;10659453
|
---|
| 145 | PSDNSCL ;;9525064
|
---|
| 146 | PSDNSTK ;;16898603
|
---|
| 147 | PSDNTF ;;19598600
|
---|
| 148 | PSDNTR ;;14807386
|
---|
| 149 | PSDNTT ;;10244486
|
---|
| 150 | PSDNTT1 ;;8835538
|
---|
| 151 | PSDNU ;;13021502
|
---|
| 152 | PSDNU1 ;;14738135
|
---|
| 153 | PSDNU2 ;;12732100
|
---|
| 154 | PSDNU3 ;;2907042
|
---|
| 155 | PSDNVT ;;1478644
|
---|
| 156 | PSDOPT ;;12920789
|
---|
| 157 | PSDOPT0 ;;9875269
|
---|
| 158 | PSDOPT1 ;;7115187
|
---|
| 159 | PSDOPT2 ;;2480174
|
---|
| 160 | PSDOPTI ;;16473032
|
---|
| 161 | PSDOPTN ;;10853518
|
---|
| 162 | PSDOPTR ;;2226366
|
---|
| 163 | PSDOPTS ;;15071130
|
---|
| 164 | PSDOPTX ;;10178752
|
---|
| 165 | PSDOPTY ;;5930170
|
---|
| 166 | PSDOPTZ ;;7145611
|
---|
| 167 | PSDOR2 ;;7280763
|
---|
| 168 | PSDOR21 ;;9843322
|
---|
| 169 | PSDORD ;;13245815
|
---|
Note:
See
TracBrowser
for help on using the repository browser.