|
Last change
on this file since 1061 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 | PSJNTEG0 ;ISC/XTSUMBLD KERNEL - Package checksum checker ;2971216.152955
|
|---|
| 2 | ;;0.0;
|
|---|
| 3 | ;;7.3;2971216.152955
|
|---|
| 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^PSJNTEG1
|
|---|
| 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 | PSGTCTD ;;6065289
|
|---|
| 13 | PSGTCTD0 ;;8315839
|
|---|
| 14 | PSGTI ;;6401473
|
|---|
| 15 | PSGVBW ;;18130677
|
|---|
| 16 | PSGVBW0 ;;15711004
|
|---|
| 17 | PSGVBW1 ;;2577458
|
|---|
| 18 | PSGVBWP ;;13781808
|
|---|
| 19 | PSGVBWU ;;14654477
|
|---|
| 20 | PSGVDS ;;7457905
|
|---|
| 21 | PSGVW ;;13617950
|
|---|
| 22 | PSGVW0 ;;4907591
|
|---|
| 23 | PSGVWP ;;3618804
|
|---|
| 24 | PSIV ;;9632222
|
|---|
| 25 | PSIVACT ;;5206018
|
|---|
| 26 | PSIVAL ;;7219660
|
|---|
| 27 | PSIVALN ;;3733100
|
|---|
| 28 | PSIVAMIS ;;13357019
|
|---|
| 29 | PSIVAOR ;;15769366
|
|---|
| 30 | PSIVAOR1 ;;4646774
|
|---|
| 31 | PSIVCAL ;;13734655
|
|---|
| 32 | PSIVCHK ;;11955268
|
|---|
| 33 | PSIVCHK1 ;;10650255
|
|---|
| 34 | PSIVCSED ;;4498107
|
|---|
| 35 | PSIVDCR ;;15391673
|
|---|
| 36 | PSIVDCR1 ;;15555679
|
|---|
| 37 | PSIVDCR2 ;;10558819
|
|---|
| 38 | PSIVDRG ;;8093131
|
|---|
| 39 | PSIVEDRG ;;12165589
|
|---|
| 40 | PSIVEDT ;;11834139
|
|---|
| 41 | PSIVEDT1 ;;8513857
|
|---|
| 42 | PSIVHIS ;;3341319
|
|---|
| 43 | PSIVHLD ;;1849135
|
|---|
| 44 | PSIVHLP ;;11111969
|
|---|
| 45 | PSIVHLP1 ;;10706730
|
|---|
| 46 | PSIVHLP2 ;;11000260
|
|---|
| 47 | PSIVHLP3 ;;3588957
|
|---|
| 48 | PSIVHYP ;;3653720
|
|---|
| 49 | PSIVHYPL ;;15011059
|
|---|
| 50 | PSIVLABL ;;12986653
|
|---|
| 51 | PSIVLBDL ;;7062706
|
|---|
| 52 | PSIVLBL1 ;;16294393
|
|---|
| 53 | PSIVLTR ;;1848959
|
|---|
| 54 | PSIVLTR1 ;;4469996
|
|---|
| 55 | PSIVMAN ;;11277462
|
|---|
| 56 | PSIVMAN1 ;;13852085
|
|---|
| 57 | PSIVOE ;;4165977
|
|---|
| 58 | PSIVOPT ;;10674345
|
|---|
| 59 | PSIVOPT1 ;;10501516
|
|---|
| 60 | PSIVOPT2 ;;12232659
|
|---|
| 61 | PSIVORA ;;13128297
|
|---|
| 62 | PSIVORA1 ;;11240725
|
|---|
| 63 | PSIVORAL ;;9610524
|
|---|
| 64 | PSIVORC ;;10141585
|
|---|
| 65 | PSIVORC1 ;;14586162
|
|---|
| 66 | PSIVORC2 ;;13696024
|
|---|
| 67 | PSIVORE ;;14225817
|
|---|
| 68 | PSIVORE1 ;;14892529
|
|---|
| 69 | PSIVORE2 ;;7806596
|
|---|
| 70 | PSIVOREN ;;11929114
|
|---|
| 71 | PSIVORFA ;;11673391
|
|---|
| 72 | PSIVORFB ;;11186136
|
|---|
| 73 | PSIVORFE ;;7975789
|
|---|
| 74 | PSIVORH ;;4076816
|
|---|
| 75 | PSIVORLB ;;9232616
|
|---|
| 76 | PSIVORV1 ;;11935581
|
|---|
| 77 | PSIVORV2 ;;6852622
|
|---|
| 78 | PSIVPAT ;;7058627
|
|---|
| 79 | PSIVPCR ;;12828965
|
|---|
| 80 | PSIVPCR1 ;;3217504
|
|---|
| 81 | PSIVPGE ;;16101277
|
|---|
| 82 | PSIVPR ;;11856703
|
|---|
| 83 | PSIVPRO ;;10241971
|
|---|
| 84 | PSIVQUI ;;7058626
|
|---|
| 85 | PSIVRD ;;12883074
|
|---|
| 86 | PSIVREC ;;4540790
|
|---|
| 87 | PSIVRNL ;;17941560
|
|---|
| 88 | PSIVRP ;;19368402
|
|---|
| 89 | PSIVRP1 ;;9529006
|
|---|
| 90 | PSIVRQ ;;11580483
|
|---|
| 91 | PSIVRQ1 ;;14193047
|
|---|
| 92 | PSIVSET ;;11971611
|
|---|
| 93 | PSIVSP ;;11493491
|
|---|
| 94 | PSIVSPDC ;;4523227
|
|---|
| 95 | PSIVST2 ;;10812968
|
|---|
| 96 | PSIVSTAT ;;11185386
|
|---|
| 97 | PSIVSUS ;;20540089
|
|---|
| 98 | PSIVSUS1 ;;9233493
|
|---|
| 99 | PSIVUDL ;;12893010
|
|---|
| 100 | PSIVUTL ;;7154813
|
|---|
| 101 | PSIVUTL1 ;;7128902
|
|---|
| 102 | PSIVUWL ;;9325172
|
|---|
| 103 | PSIVVW1 ;;8162548
|
|---|
| 104 | PSIVWCR ;;12737296
|
|---|
| 105 | PSIVWCR1 ;;2836925
|
|---|
| 106 | PSIVWL ;;15985042
|
|---|
| 107 | PSIVWL1 ;;15920427
|
|---|
| 108 | PSIVWRP ;;14216186
|
|---|
| 109 | PSIVXREF ;;672248
|
|---|
| 110 | PSIVXU ;;2636747
|
|---|
| 111 | PSJ200 ;;11883362
|
|---|
| 112 | PSJAC ;;8790985
|
|---|
| 113 | PSJADT ;;14320096
|
|---|
| 114 | PSJADT0 ;;17469396
|
|---|
| 115 | PSJADT1 ;;3886524
|
|---|
| 116 | PSJALG ;;4878413
|
|---|
| 117 | PSJDCHK ;;11850014
|
|---|
| 118 | PSJDDUT ;;16989030
|
|---|
| 119 | PSJDDUT2 ;;12090780
|
|---|
| 120 | PSJDDUT3 ;;4798877
|
|---|
| 121 | PSJDEA ;;4418374
|
|---|
| 122 | PSJDGAL ;;2657545
|
|---|
| 123 | PSJEEU ;;5082000
|
|---|
| 124 | PSJEEU0 ;;11810342
|
|---|
| 125 | PSJEXP ;;22569862
|
|---|
| 126 | PSJEXP0 ;;17975167
|
|---|
| 127 | PSJFL ;;7929486
|
|---|
| 128 | PSJFL1 ;;4540012
|
|---|
| 129 | PSJH1 ;;9462313
|
|---|
| 130 | PSJHEAD ;;15526491
|
|---|
| 131 | PSJHIS ;;4373003
|
|---|
| 132 | PSJHL2 ;;8978069
|
|---|
| 133 | PSJHL3 ;;13294105
|
|---|
| 134 | PSJHL4 ;;21181671
|
|---|
| 135 | PSJHL5 ;;6805998
|
|---|
| 136 | PSJHL6 ;;10385690
|
|---|
| 137 | PSJHL7 ;;15568482
|
|---|
| 138 | PSJHL9 ;;11661940
|
|---|
| 139 | PSJHLERR ;;2035077
|
|---|
| 140 | PSJHLU ;;4443407
|
|---|
| 141 | PSJHVARS ;;7325044
|
|---|
| 142 | PSJIENV ;;712925
|
|---|
| 143 | PSJIPRE ;;4561152
|
|---|
| 144 | PSJIPST ;;9594885
|
|---|
| 145 | PSJIPST1 ;;14509257
|
|---|
| 146 | PSJIPST2 ;;9596551
|
|---|
| 147 | PSJIPST3 ;;17764021
|
|---|
| 148 | PSJIPSTA ;;6270357
|
|---|
| 149 | PSJLIACT ;;2257018
|
|---|
| 150 | PSJLIFN ;;4534897
|
|---|
| 151 | PSJLIFNI ;;1742255
|
|---|
| 152 | PSJLIORD ;;999487
|
|---|
| 153 | PSJLIPRF ;;653170
|
|---|
| 154 | PSJLIUTL ;;6126958
|
|---|
| 155 | PSJLIVFD ;;5508085
|
|---|
| 156 | PSJLIVMD ;;5160354
|
|---|
| 157 | PSJLMAL ;;98929
|
|---|
| 158 | PSJLMDA ;;178896
|
|---|
| 159 | PSJLMGUD ;;17316547
|
|---|
| 160 | PSJLMHED ;;9814074
|
|---|
| 161 | PSJLMPRI ;;6611303
|
|---|
| 162 | PSJLMPRU ;;5945946
|
|---|
| 163 | PSJLMUDE ;;19967093
|
|---|
| 164 | PSJLMUT1 ;;17706585
|
|---|
| 165 | PSJLMUTL ;;10117738
|
|---|
| 166 | PSJLOI ;;863278
|
|---|
| 167 | PSJMDIR ;;15822387
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
