|
Last change
on this file since 1713 was 628, checked in by George Lilly, 15 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
File size:
2.5 KB
|
| Line | |
|---|
| 1 | PSSNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;2970930.145828
|
|---|
| 2 | ;;1.0;PHARMACY DATA MANAGEMENT;;9/30/97
|
|---|
| 3 | ;;7.3;2970930.145828
|
|---|
| 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 | ;
|
|---|
| 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 | PSSADDIT ;;30685202
|
|---|
| 13 | PSSAUTL ;;2539995
|
|---|
| 14 | PSSCHENV ;;1140827
|
|---|
| 15 | PSSCHPRE ;;1626421
|
|---|
| 16 | PSSCHPST ;;3751390
|
|---|
| 17 | PSSCLDRG ;;7333743
|
|---|
| 18 | PSSCREAT ;;24972545
|
|---|
| 19 | PSSD1 ;;10676
|
|---|
| 20 | PSSDDUT ;;14994173
|
|---|
| 21 | PSSDDUT2 ;;10950246
|
|---|
| 22 | PSSDDUT3 ;;12058890
|
|---|
| 23 | PSSDEE ;;43704990
|
|---|
| 24 | PSSDEE1 ;;26240841
|
|---|
| 25 | PSSDEE2 ;;5494501
|
|---|
| 26 | PSSDELOI ;;3460320
|
|---|
| 27 | PSSDENT ;;1634109
|
|---|
| 28 | PSSENV ;;203759
|
|---|
| 29 | PSSENVN ;;1146911
|
|---|
| 30 | PSSFIL ;;18709905
|
|---|
| 31 | PSSFILED ;;16572342
|
|---|
| 32 | PSSGEN ;;462676
|
|---|
| 33 | PSSGENM ;;434339
|
|---|
| 34 | PSSGFILD ;;15862350
|
|---|
| 35 | PSSGIU ;;9608320
|
|---|
| 36 | PSSGMI ;;4459902
|
|---|
| 37 | PSSGS0 ;;8551998
|
|---|
| 38 | PSSGSH ;;5680648
|
|---|
| 39 | PSSHELP ;;3001299
|
|---|
| 40 | PSSHL1 ;;10469844
|
|---|
| 41 | PSSHLSCH ;;1141341
|
|---|
| 42 | PSSHLU ;;3879886
|
|---|
| 43 | PSSITES1 ;;5263233
|
|---|
| 44 | PSSITEST ;;5269974
|
|---|
| 45 | PSSIVDRG ;;15593758
|
|---|
| 46 | PSSJEEU ;;5145075
|
|---|
| 47 | PSSJORDF ;;4873243
|
|---|
| 48 | PSSJSPU ;;10488182
|
|---|
| 49 | PSSJSPU0 ;;2605125
|
|---|
| 50 | PSSJSV ;;13264221
|
|---|
| 51 | PSSJSV0 ;;18084796
|
|---|
| 52 | PSSJXR ;;6435098
|
|---|
| 53 | PSSJXR1 ;;283291
|
|---|
| 54 | PSSJXR10 ;;2104500
|
|---|
| 55 | PSSJXR11 ;;690370
|
|---|
| 56 | PSSJXR12 ;;927686
|
|---|
| 57 | PSSJXR13 ;;2010380
|
|---|
| 58 | PSSJXR14 ;;358482
|
|---|
| 59 | PSSJXR15 ;;283700
|
|---|
| 60 | PSSJXR16 ;;11238641
|
|---|
| 61 | PSSJXR17 ;;9426208
|
|---|
| 62 | PSSJXR18 ;;737442
|
|---|
| 63 | PSSJXR19 ;;2124963
|
|---|
| 64 | PSSJXR2 ;;1688794
|
|---|
| 65 | PSSJXR20 ;;5762877
|
|---|
| 66 | PSSJXR21 ;;1426401
|
|---|
| 67 | PSSJXR22 ;;683202
|
|---|
| 68 | PSSJXR3 ;;363618
|
|---|
| 69 | PSSJXR4 ;;288930
|
|---|
| 70 | PSSJXR5 ;;11117778
|
|---|
| 71 | PSSJXR6 ;;9332083
|
|---|
| 72 | PSSJXR7 ;;743494
|
|---|
| 73 | PSSJXR8 ;;3365639
|
|---|
| 74 | PSSJXR9 ;;3366364
|
|---|
| 75 | PSSLAB ;;14173358
|
|---|
| 76 | PSSLOOK ;;19462443
|
|---|
| 77 | PSSMARK ;;26334152
|
|---|
| 78 | PSSMATCH ;;21769167
|
|---|
| 79 | PSSOICT ;;7252188
|
|---|
| 80 | PSSOICT1 ;;8390406
|
|---|
| 81 | PSSPOI ;;15938224
|
|---|
| 82 | PSSPOIC ;;19806247
|
|---|
| 83 | PSSPOIDT ;;33282191
|
|---|
| 84 | PSSPOIKA ;;21393690
|
|---|
| 85 | PSSPOIM ;;12995320
|
|---|
| 86 | PSSPOIM1 ;;35563255
|
|---|
| 87 | PSSPOIM2 ;;28347728
|
|---|
| 88 | PSSPOIM3 ;;9862483
|
|---|
| 89 | PSSPOIMN ;;27314811
|
|---|
| 90 | PSSPOIMO ;;28153203
|
|---|
| 91 | PSSPOST ;;5393689
|
|---|
| 92 | PSSPRE ;;3908870
|
|---|
| 93 | PSSPRETR ;;460682
|
|---|
| 94 | PSSQOC ;;4706994
|
|---|
| 95 | PSSREF ;;4469291
|
|---|
| 96 | PSSSOLI1 ;;12192527
|
|---|
| 97 | PSSSOLIT ;;14008478
|
|---|
| 98 | PSSSPD ;;6082698
|
|---|
| 99 | PSSSUTIL ;;7176881
|
|---|
| 100 | PSSSYN ;;2968065
|
|---|
| 101 | PSSVIDRG ;;16214050
|
|---|
| 102 | PSSVX6 ;;4793258
|
|---|
| 103 | PSSVX61 ;;1695682
|
|---|
| 104 | PSSVX62 ;;401947
|
|---|
| 105 | PSSVX63 ;;387628
|
|---|
| 106 | PSSVX64 ;;1499523
|
|---|
| 107 | PSSVX65 ;;401610
|
|---|
| 108 | PSSVX66 ;;387249
|
|---|
| 109 | PSSYSP ;;62952
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
