|
Last change
on this file since 674 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 | PSONTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;2971222.09512
|
|---|
| 2 | ;;7.0;OUTPATIENT PHARMACY;;DEC 1997
|
|---|
| 3 | ;;7.3;2971222.09512
|
|---|
| 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^PSONTEG0
|
|---|
| 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 | PSOAMIS ;;8088370
|
|---|
| 13 | PSOAMIS0 ;;15530501
|
|---|
| 14 | PSOAMIS1 ;;15933021
|
|---|
| 15 | PSOARC ;;1543895
|
|---|
| 16 | PSOARCCO ;;7879291
|
|---|
| 17 | PSOARCCV ;;16524016
|
|---|
| 18 | PSOARCDE ;;1519886
|
|---|
| 19 | PSOARCF1 ;;9938950
|
|---|
| 20 | PSOARCF2 ;;6313447
|
|---|
| 21 | PSOARCF3 ;;10989252
|
|---|
| 22 | PSOARCF4 ;;14824919
|
|---|
| 23 | PSOARCF5 ;;10373233
|
|---|
| 24 | PSOARCF6 ;;2114902
|
|---|
| 25 | PSOARCIN ;;10467127
|
|---|
| 26 | PSOARCLT ;;11361257
|
|---|
| 27 | PSOARCR1 ;;6659841
|
|---|
| 28 | PSOARCR2 ;;11410187
|
|---|
| 29 | PSOARCRR ;;12610244
|
|---|
| 30 | PSOARCS2 ;;11785445
|
|---|
| 31 | PSOARCSV ;;14563867
|
|---|
| 32 | PSOARCTG ;;9524360
|
|---|
| 33 | PSOARCTP ;;4774424
|
|---|
| 34 | PSOARX ;;24537743
|
|---|
| 35 | PSOARX1 ;;8732603
|
|---|
| 36 | PSOAUTOC ;;11799857
|
|---|
| 37 | PSOB ;;12093795
|
|---|
| 38 | PSOBARV ;;4590989
|
|---|
| 39 | PSOBBC ;;17077721
|
|---|
| 40 | PSOBGMG1 ;;9615217
|
|---|
| 41 | PSOBGMG2 ;;16559725
|
|---|
| 42 | PSOBGMG3 ;;11706993
|
|---|
| 43 | PSOBGMGR ;;26029612
|
|---|
| 44 | PSOBING1 ;;20449880
|
|---|
| 45 | PSOBINGO ;;27965067
|
|---|
| 46 | PSOBKDED ;;3390318
|
|---|
| 47 | PSOBMST ;;12548532
|
|---|
| 48 | PSOBRPRT ;;12685512
|
|---|
| 49 | PSOBSET ;;8800979
|
|---|
| 50 | PSOBSET1 ;;8233165
|
|---|
| 51 | PSOBUILD ;;18513958
|
|---|
| 52 | PSOCAN ;;18537431
|
|---|
| 53 | PSOCAN1 ;;24583271
|
|---|
| 54 | PSOCAN2 ;;22710446
|
|---|
| 55 | PSOCAN3 ;;17987886
|
|---|
| 56 | PSOCAN4 ;;12203613
|
|---|
| 57 | PSOCLERK ;;580896
|
|---|
| 58 | PSOCLO1 ;;16692398
|
|---|
| 59 | PSOCLOLS ;;7584419
|
|---|
| 60 | PSOCLUTL ;;24520306
|
|---|
| 61 | PSOCMOP ;;8682406
|
|---|
| 62 | PSOCMOPA ;;6009311
|
|---|
| 63 | PSOCMOPB ;;5657331
|
|---|
| 64 | PSOCMOPC ;;3165423
|
|---|
| 65 | PSOCOPAY ;;2628544
|
|---|
| 66 | PSOCOST ;;16988098
|
|---|
| 67 | PSOCOSTP ;;4824429
|
|---|
| 68 | PSOCP ;;3646662
|
|---|
| 69 | PSOCPA ;;8121410
|
|---|
| 70 | PSOCPB ;;14175665
|
|---|
| 71 | PSOCPC ;;2336163
|
|---|
| 72 | PSOCPD ;;11289046
|
|---|
| 73 | PSOCPDUP ;;14367470
|
|---|
| 74 | PSOCPE ;;2802442
|
|---|
| 75 | PSOCPTRH ;;3598887
|
|---|
| 76 | PSOCPTRI ;;9927109
|
|---|
| 77 | PSOCPVW ;;3063870
|
|---|
| 78 | PSOCSRL ;;19568056
|
|---|
| 79 | PSOCST ;;1243245
|
|---|
| 80 | PSOCST10 ;;11107494
|
|---|
| 81 | PSOCST11 ;;11338986
|
|---|
| 82 | PSOCST12 ;;18885137
|
|---|
| 83 | PSOCST2 ;;10800053
|
|---|
| 84 | PSOCST3 ;;11384106
|
|---|
| 85 | PSOCST4 ;;11040507
|
|---|
| 86 | PSOCST5 ;;13475863
|
|---|
| 87 | PSOCST6 ;;10963759
|
|---|
| 88 | PSOCST7 ;;9540110
|
|---|
| 89 | PSOCST8 ;;10397479
|
|---|
| 90 | PSOCST9 ;;14526699
|
|---|
| 91 | PSOCSTD ;;16715457
|
|---|
| 92 | PSOCSTM ;;17123922
|
|---|
| 93 | PSODACT ;;8653547
|
|---|
| 94 | PSODEA ;;2282011
|
|---|
| 95 | PSODEDT ;;8093286
|
|---|
| 96 | PSODELI ;;1437148
|
|---|
| 97 | PSODEM ;;10715086
|
|---|
| 98 | PSODGAL ;;5387171
|
|---|
| 99 | PSODGDG1 ;;22372333
|
|---|
| 100 | PSODGDG2 ;;7110510
|
|---|
| 101 | PSODGDGI ;;21636668
|
|---|
| 102 | PSODIR ;;6314040
|
|---|
| 103 | PSODIR1 ;;16914116
|
|---|
| 104 | PSODIR2 ;;9167439
|
|---|
| 105 | PSODIR3 ;;5216246
|
|---|
| 106 | PSODISP ;;24192299
|
|---|
| 107 | PSODISP1 ;;20533972
|
|---|
| 108 | PSODISP2 ;;2853632
|
|---|
| 109 | PSODISP3 ;;8688157
|
|---|
| 110 | PSODISPS ;;15792743
|
|---|
| 111 | PSODIV ;;9106287
|
|---|
| 112 | PSODLKP ;;12394095
|
|---|
| 113 | PSODP ;;7869809
|
|---|
| 114 | PSODRDU1 ;;13178884
|
|---|
| 115 | PSODRDU2 ;;9325905
|
|---|
| 116 | PSODRDUP ;;22075959
|
|---|
| 117 | PSODRG ;;7801992
|
|---|
| 118 | PSODSPL ;;8767448
|
|---|
| 119 | PSODSRC ;;2809154
|
|---|
| 120 | PSODUE ;;4990585
|
|---|
| 121 | PSOEXBCH ;;17471798
|
|---|
| 122 | PSOEXDT ;;3390663
|
|---|
| 123 | PSOEXREF ;;2938164
|
|---|
| 124 | PSOEXRST ;;27534572
|
|---|
| 125 | PSOFUNC ;;5153561
|
|---|
| 126 | PSOHCSUM ;;7694494
|
|---|
| 127 | PSOHELP ;;20630563
|
|---|
| 128 | PSOHELP1 ;;18428458
|
|---|
| 129 | PSOHELP2 ;;5206648
|
|---|
| 130 | PSOHELP3 ;;4616409
|
|---|
| 131 | PSOHELP4 ;;782147
|
|---|
| 132 | PSOHLD ;;18883227
|
|---|
| 133 | PSOHLEXP ;;6671290
|
|---|
| 134 | PSOHLNE1 ;;10306531
|
|---|
| 135 | PSOHLNE2 ;;24072158
|
|---|
| 136 | PSOHLNEW ;;33884077
|
|---|
| 137 | PSOHLSG ;;14426239
|
|---|
| 138 | PSOHLSG1 ;;22096952
|
|---|
| 139 | PSOHLSG2 ;;11980019
|
|---|
| 140 | PSOHLSG3 ;;17462571
|
|---|
| 141 | PSOHLSG4 ;;5082832
|
|---|
| 142 | PSOHLSIG ;;16078021
|
|---|
| 143 | PSOHLSIH ;;12638114
|
|---|
| 144 | PSOHLSN ;;15349796
|
|---|
| 145 | PSOHLSN1 ;;20803809
|
|---|
| 146 | PSOHLUP ;;12005271
|
|---|
| 147 | PSOHLUP1 ;;7432439
|
|---|
| 148 | PSOLAB ;;4226213
|
|---|
| 149 | PSOLBL ;;26777589
|
|---|
| 150 | PSOLBL1 ;;18314169
|
|---|
| 151 | PSOLBL2 ;;18742229
|
|---|
| 152 | PSOLBL3 ;;2387864
|
|---|
| 153 | PSOLBL4 ;;22298368
|
|---|
| 154 | PSOLBLD ;;18323127
|
|---|
| 155 | PSOLBLD1 ;;6414526
|
|---|
| 156 | PSOLBLN ;;17575125
|
|---|
| 157 | PSOLBLN1 ;;25664258
|
|---|
| 158 | PSOLBLN2 ;;20535870
|
|---|
| 159 | PSOLBLS ;;18302467
|
|---|
| 160 | PSOLBLT ;;3427886
|
|---|
| 161 | PSOLMAL ;;100919
|
|---|
| 162 | PSOLMAO ;;95773
|
|---|
| 163 | PSOLMDA ;;197910
|
|---|
| 164 | PSOLMLST ;;1673965
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
