157 lines
3.4 KiB
Mathematica
157 lines
3.4 KiB
Mathematica
PSONTEG0 ;ISC/XTSUMBLD KERNEL - Package checksum checker ;2971222.09512
|
|
;;7.0;OUTPATIENT PHARMACY;;DEC 1997
|
|
;;7.3;2971222.09512
|
|
S XT4="I 1",X=$T(+3) W !!,"Checksum routine created on ",$P(X,";",4)," by KERNEL V",$P(X,";",3),!
|
|
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")
|
|
;
|
|
K %1,%2,%3,X,Y,XT1,XT2,XT3,XT4 Q
|
|
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),!
|
|
W !,"Check a subset of routines:" K ^UTILITY($J) X ^%ZOSF("RSEL")
|
|
W ! G CONT
|
|
ROU ;;
|
|
PSOLMPAT ;;2077877
|
|
PSOLMPF ;;82942
|
|
PSOLMPI ;;236025
|
|
PSOLMPO ;;574251
|
|
PSOLMPO1 ;;631906
|
|
PSOLMPO2 ;;309636
|
|
PSOLMRN ;;149494
|
|
PSOLMUTL ;;3907839
|
|
PSOLSET ;;18071759
|
|
PSOMGCM1 ;;18199513
|
|
PSOMGCOM ;;14747963
|
|
PSOMGM31 ;;8642183
|
|
PSOMGMN1 ;;9199713
|
|
PSOMGMN2 ;;10913986
|
|
PSOMGMN3 ;;21220452
|
|
PSOMGMN4 ;;13607235
|
|
PSOMGMRP ;;17512057
|
|
PSOMGR31 ;;5472288
|
|
PSOMGREP ;;14509657
|
|
PSOMGRP1 ;;10005146
|
|
PSOMGRP2 ;;12746057
|
|
PSOMGRP3 ;;22051038
|
|
PSOMGRP4 ;;14193453
|
|
PSON52 ;;15058449
|
|
PSONEW ;;10857033
|
|
PSONEW1 ;;5853188
|
|
PSONEW2 ;;5747569
|
|
PSONEW3 ;;4823153
|
|
PSONGR ;;1642324
|
|
PSONRXN ;;5166343
|
|
PSOORAL ;;1953958
|
|
PSOORAL1 ;;14844886
|
|
PSOORAL2 ;;15285227
|
|
PSOORCPY ;;6201885
|
|
PSOORDA ;;23785410
|
|
PSOORDER ;;24139932
|
|
PSOORDRG ;;15391172
|
|
PSOORED1 ;;15120313
|
|
PSOORED2 ;;13743509
|
|
PSOOREDT ;;27715444
|
|
PSOORFI1 ;;34184243
|
|
PSOORFI2 ;;11898144
|
|
PSOORFIN ;;29613344
|
|
PSOORNE1 ;;18429602
|
|
PSOORNE2 ;;32087079
|
|
PSOORNE3 ;;34298369
|
|
PSOORNE4 ;;16801213
|
|
PSOORNE5 ;;4747585
|
|
PSOORNEW ;;33298659
|
|
PSOORNW1 ;;16686302
|
|
PSOORNW2 ;;19314033
|
|
PSOORRL ;;32892842
|
|
PSOORRNW ;;7620577
|
|
PSOORUT1 ;;25104398
|
|
PSOORUT2 ;;11110235
|
|
PSOORUT3 ;;7030365
|
|
PSOORUTL ;;16417066
|
|
PSOP ;;26901334
|
|
PSOP1 ;;14922973
|
|
PSOP2 ;;7742346
|
|
PSOPAT ;;3373034
|
|
PSOPOLY ;;19048209
|
|
PSOPOST ;;11860998
|
|
PSOPOST1 ;;3803788
|
|
PSOPRF ;;16636561
|
|
PSOPRFSS ;;11665475
|
|
PSOPRVW ;;15709488
|
|
PSOPTPST ;;11916464
|
|
PSOR52 ;;9823686
|
|
PSORDS ;;7510779
|
|
PSOREF ;;22849705
|
|
PSOREF0 ;;17663887
|
|
PSOREF1 ;;4675116
|
|
PSOREF2 ;;4285052
|
|
PSORENW ;;7868447
|
|
PSORENW0 ;;17581309
|
|
PSORENW1 ;;7561359
|
|
PSORENW2 ;;3114014
|
|
PSORENW3 ;;7725131
|
|
PSORENW4 ;;11953560
|
|
PSORESK ;;19949534
|
|
PSORESK1 ;;5577574
|
|
PSORFL ;;7091639
|
|
PSORN52 ;;14654715
|
|
PSORN52C ;;11670503
|
|
PSORPTS ;;4390596
|
|
PSORPTS1 ;;10870691
|
|
PSORX1 ;;13739820
|
|
PSORXDL ;;8292823
|
|
PSORXED ;;19772932
|
|
PSORXED1 ;;13216882
|
|
PSORXI ;;4007749
|
|
PSORXL ;;30811210
|
|
PSORXL1 ;;17622725
|
|
PSORXLAB ;;17184627
|
|
PSORXPA1 ;;10282253
|
|
PSORXPR ;;20068051
|
|
PSORXPR1 ;;9326949
|
|
PSORXRP1 ;;12432743
|
|
PSORXRP2 ;;16270284
|
|
PSORXRPT ;;18273562
|
|
PSORXVW ;;31330798
|
|
PSORXVW1 ;;24881247
|
|
PSORXVW2 ;;6339614
|
|
PSOSD ;;21513648
|
|
PSOSD0 ;;18808868
|
|
PSOSD1 ;;25474451
|
|
PSOSD2 ;;15671850
|
|
PSOSD3 ;;13566482
|
|
PSOSDP ;;22741952
|
|
PSOSIGNO ;;8860973
|
|
PSOSITED ;;4084959
|
|
PSOSTART ;;3654679
|
|
PSOSUBCH ;;13569666
|
|
PSOSUCH1 ;;14382618
|
|
PSOSUCHG ;;36479970
|
|
PSOSUDCN ;;5688481
|
|
PSOSUDEL ;;5176204
|
|
PSOSUDP1 ;;22550976
|
|
PSOSUDP2 ;;2671676
|
|
PSOSUDPR ;;20603485
|
|
PSOSUINV ;;4955002
|
|
PSOSULB1 ;;14468070
|
|
PSOSULBL ;;20325252
|
|
PSOSULOG ;;3451426
|
|
PSOSUP ;;6112613
|
|
PSOSUPAT ;;25778529
|
|
PSOSUPOE ;;20956068
|
|
PSOSUPRX ;;27824240
|
|
PSOSURST ;;22950023
|
|
PSOSUSRP ;;11551615
|
|
PSOSUTL ;;30422344
|
|
PSOSUTL1 ;;19577048
|
|
PSOTRLBL ;;12824470
|
|
PSOUTIL ;;22136773
|
|
PSOUTL ;;23844742
|
|
PSOUTLA ;;16954930
|
|
PSOUTLA1 ;;3764410
|
|
PSOVCNT ;;8718043
|
|
PSOVER ;;20917337
|
|
PSOVER1 ;;18464868
|
|
PSOVER2 ;;11072834
|
|
PSOVERC ;;6875668
|
|
PSOVRPT ;;13870743
|
|
PSOVWI ;;994942
|