|
Last change
on this file since 1635 was 628, checked in by George Lilly, 15 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
File size:
3.5 KB
|
| Line | |
|---|
| 1 | MCNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;2960909.113955
|
|---|
| 2 | ;;2.3;Medicine;;09/13/1996
|
|---|
| 3 | ;;7.3;2960909.113955
|
|---|
| 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^MCNTEG0
|
|---|
| 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 | MCARAM ;;7513129
|
|---|
| 13 | MCARAM0 ;;8652928
|
|---|
| 14 | MCARAM0A ;;3324603
|
|---|
| 15 | MCARAM0B ;;1635444
|
|---|
| 16 | MCARAM0C ;;259164
|
|---|
| 17 | MCARAM0D ;;1414732
|
|---|
| 18 | MCARAM0E ;;2281887
|
|---|
| 19 | MCARAM0F ;;1175131
|
|---|
| 20 | MCARAM0G ;;965472
|
|---|
| 21 | MCARAM0H ;;1245689
|
|---|
| 22 | MCARAM1 ;;9634784
|
|---|
| 23 | MCARAM2 ;;5013333
|
|---|
| 24 | MCARAM3 ;;7540725
|
|---|
| 25 | MCARAM4 ;;5388145
|
|---|
| 26 | MCARAM5 ;;7414846
|
|---|
| 27 | MCARAM6 ;;4370819
|
|---|
| 28 | MCARAM7 ;;3389255
|
|---|
| 29 | MCARAML ;;884394
|
|---|
| 30 | MCARAMLA ;;1770487
|
|---|
| 31 | MCARAMLB ;;1030845
|
|---|
| 32 | MCARAMLC ;;2145896
|
|---|
| 33 | MCARAMLD ;;1213232
|
|---|
| 34 | MCARAMLE ;;985870
|
|---|
| 35 | MCARAMLF ;;1648647
|
|---|
| 36 | MCARAMLG ;;3429686
|
|---|
| 37 | MCARAMLH ;;4812240
|
|---|
| 38 | MCARAP ;;13128865
|
|---|
| 39 | MCARAP1 ;;8368139
|
|---|
| 40 | MCARAP2 ;;8581535
|
|---|
| 41 | MCARASE ;;1343241
|
|---|
| 42 | MCARATVE ;;4660706
|
|---|
| 43 | MCARBSA ;;1893009
|
|---|
| 44 | MCARD ;;7219348
|
|---|
| 45 | MCARD1 ;;9153309
|
|---|
| 46 | MCARDBL ;;2745397
|
|---|
| 47 | MCARDC ;;8324014
|
|---|
| 48 | MCARDC1 ;;10958868
|
|---|
| 49 | MCARDCM ;;8624300
|
|---|
| 50 | MCARDCM1 ;;9199269
|
|---|
| 51 | MCARDCM2 ;;16019523
|
|---|
| 52 | MCARDCM3 ;;4461677
|
|---|
| 53 | MCARDCN ;;8168560
|
|---|
| 54 | MCARDCN1 ;;11879348
|
|---|
| 55 | MCARDCQ ;;9767978
|
|---|
| 56 | MCARDCQ1 ;;14107855
|
|---|
| 57 | MCARDHLP ;;7413320
|
|---|
| 58 | MCARDML ;;7891874
|
|---|
| 59 | MCARDNJ ;;12950077
|
|---|
| 60 | MCARDNJ1 ;;11164953
|
|---|
| 61 | MCARDNJ2 ;;8566701
|
|---|
| 62 | MCARDNK ;;4192119
|
|---|
| 63 | MCARDNQ ;;9677299
|
|---|
| 64 | MCARDNQ2 ;;5603751
|
|---|
| 65 | MCARDPAR ;;1087615
|
|---|
| 66 | MCARDPL ;;6589975
|
|---|
| 67 | MCARDSE ;;4910080
|
|---|
| 68 | MCARDSS ;;2795427
|
|---|
| 69 | MCARE ;;10169181
|
|---|
| 70 | MCARE1 ;;587426
|
|---|
| 71 | MCARED ;;1346233
|
|---|
| 72 | MCAREH ;;2668985
|
|---|
| 73 | MCARENV ;;1706772
|
|---|
| 74 | MCARENV1 ;;5645418
|
|---|
| 75 | MCAREO ;;1226288
|
|---|
| 76 | MCARGD ;;10355791
|
|---|
| 77 | MCARGE ;;12626600
|
|---|
| 78 | MCARGEA ;;2183926
|
|---|
| 79 | MCARGEO ;;1273111
|
|---|
| 80 | MCARGES ;;8749771
|
|---|
| 81 | MCARGP ;;8855698
|
|---|
| 82 | MCARGPA ;;2450896
|
|---|
| 83 | MCARGS ;;15196656
|
|---|
| 84 | MCARHP ;;9526217
|
|---|
| 85 | MCARLV ;;1224221
|
|---|
| 86 | MCARP ;;12050941
|
|---|
| 87 | MCARP1 ;;6483686
|
|---|
| 88 | MCARPAC ;;4176211
|
|---|
| 89 | MCARPACE ;;7935031
|
|---|
| 90 | MCARPAL ;;8294365
|
|---|
| 91 | MCARPCE ;;6947531
|
|---|
| 92 | MCARPCS ;;2823538
|
|---|
| 93 | MCARPCS1 ;;8993163
|
|---|
| 94 | MCARPCS2 ;;6070211
|
|---|
| 95 | MCARPCS3 ;;10490801
|
|---|
| 96 | MCARPCS4 ;;6236777
|
|---|
| 97 | MCARPROC ;;2609457
|
|---|
| 98 | MCARPS ;;12724091
|
|---|
| 99 | MCARPS1 ;;4080525
|
|---|
| 100 | MCARSRE ;;2689053
|
|---|
| 101 | MCARSRP ;;4956056
|
|---|
| 102 | MCARSRR ;;7715339
|
|---|
| 103 | MCARSUP ;;5565217
|
|---|
| 104 | MCARVCHK ;;5828316
|
|---|
| 105 | MCBPFTP1 ;;13843469
|
|---|
| 106 | MCBPFTP2 ;;7860225
|
|---|
| 107 | MCBPFTP3 ;;7872831
|
|---|
| 108 | MCBPFTP4 ;;2488267
|
|---|
| 109 | MCBPFTP5 ;;4778343
|
|---|
| 110 | MCBPFTP6 ;;1682113
|
|---|
| 111 | MCBPFTP7 ;;3150765
|
|---|
| 112 | MCDBELM ;;8207435
|
|---|
| 113 | MCDBSAVE ;;4573907
|
|---|
| 114 | MCDIE001 ;;5582646
|
|---|
| 115 | MCDIE002 ;;5818428
|
|---|
| 116 | MCDIE003 ;;4575251
|
|---|
| 117 | MCDIEDIE ;;4025966
|
|---|
| 118 | MCDUP1 ;;10974055
|
|---|
| 119 | MCDUPE ;;28907
|
|---|
| 120 | MCDUPM ;;4383298
|
|---|
| 121 | MCDUPP ;;5884894
|
|---|
| 122 | MCDUPR ;;8492052
|
|---|
| 123 | MCEF ;;2902953
|
|---|
| 124 | MCENDIQ1 ;;198583
|
|---|
| 125 | MCENV00 ;;6610520
|
|---|
| 126 | MCENVCHK ;;160465
|
|---|
| 127 | MCEO ;;1629111
|
|---|
| 128 | MCEPROC ;;1763322
|
|---|
| 129 | MCESCON3 ;;626548
|
|---|
| 130 | MCESCONV ;;10707161
|
|---|
| 131 | MCESEDT ;;12796040
|
|---|
| 132 | MCESEDT2 ;;10366787
|
|---|
| 133 | MCESHLP ;;6844447
|
|---|
| 134 | MCESLIST ;;5146729
|
|---|
| 135 | MCESMFDV ;;2288072
|
|---|
| 136 | MCESPRT ;;6425050
|
|---|
| 137 | MCESSCR ;;5268874
|
|---|
| 138 | MCFIXOEP ;;740019
|
|---|
| 139 | MCGBL ;;5394986
|
|---|
| 140 | MCMAG ;;1044714
|
|---|
| 141 | MCMAGDSP ;;5147124
|
|---|
| 142 | MCMENUDE ;;5822044
|
|---|
| 143 | MCNMDUP ;;2619985
|
|---|
| 144 | MCNP2CHK ;;4467177
|
|---|
| 145 | MCNP2X ;;793498
|
|---|
| 146 | MCOR ;;14232069
|
|---|
| 147 | MCOR1 ;;5268190
|
|---|
| 148 | MCOREX ;;2660895
|
|---|
| 149 | MCORMN ;;4051049
|
|---|
| 150 | MCORMN0 ;;6741624
|
|---|
| 151 | MCORMN01 ;;1977484
|
|---|
| 152 | MCORMN1 ;;5869467
|
|---|
| 153 | MCORMN2 ;;6151277
|
|---|
| 154 | MCPARAM ;;504047
|
|---|
| 155 | MCPFTE ;;4844525
|
|---|
| 156 | MCPFTI ;;6287475
|
|---|
| 157 | MCPFTIC ;;5278858
|
|---|
| 158 | MCPFTP ;;1702907
|
|---|
| 159 | MCPFTP1 ;;12497840
|
|---|
| 160 | MCPFTP1A ;;1637882
|
|---|
| 161 | MCPFTP2 ;;11990988
|
|---|
| 162 | MCPFTP2A ;;12428437
|
|---|
| 163 | MCPFTP3 ;;5993259
|
|---|
| 164 | MCPFTP4 ;;6787432
|
|---|
| 165 | MCPFTP4A ;;1678587
|
|---|
| 166 | MCPFTP5 ;;13958685
|
|---|
| 167 | MCPFTR ;;1913488
|
|---|
| 168 | MCPFTSS ;;546237
|
|---|
| 169 | MCPMV ;;2778636
|
|---|
| 170 | MCPMVA ;;641401
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
