116 lines
2.6 KiB
Mathematica
116 lines
2.6 KiB
Mathematica
PPPNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;APR 18, 1995@11:09:08
|
|
;;V1.0;PHARMACY PRESCRIPTION PRACTICE;;APR 7,1995
|
|
;;7.2;APR 18, 1995@11:09:08
|
|
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 ;;
|
|
PPPBLD1 ;;2674563
|
|
PPPBLD1A ;;5847926
|
|
PPPBLD2 ;;394949
|
|
PPPBLD3 ;;6948632
|
|
PPPBLD4 ;;2913891
|
|
PPPBLD5 ;;4336923
|
|
PPPBTCH ;;365966
|
|
PPPCHK1 ;;804087
|
|
PPPCNV1 ;;716480
|
|
PPPDSP1 ;;1159723
|
|
PPPDSP2 ;;5901875
|
|
PPPDSP3 ;;4632394
|
|
PPPDSP4 ;;3386142
|
|
PPPEDT1 ;;1823946
|
|
PPPEDT12 ;;3336958
|
|
PPPEDT13 ;;3644164
|
|
PPPEDT14 ;;2412220
|
|
PPPEDT15 ;;1041767
|
|
PPPEDT16 ;;981541
|
|
PPPEDT20 ;;518882
|
|
PPPEDT21 ;;2237681
|
|
PPPEDT22 ;;1993891
|
|
PPPFMA1 ;;3046745
|
|
PPPFMX ;;2007376
|
|
PPPFMX1 ;;747795
|
|
PPPFMX2 ;;2180744
|
|
PPPGET1 ;;4294187
|
|
PPPGET2 ;;2645148
|
|
PPPGET3 ;;1577217
|
|
PPPGET5 ;;1952674
|
|
PPPGET6 ;;1633297
|
|
PPPGET7 ;;3968129
|
|
PPPGET8 ;;2455904
|
|
PPPHLP01 ;;1973526
|
|
PPPIN001 ;;6901716
|
|
PPPIN002 ;;2105781
|
|
PPPIN003 ;;7015782
|
|
PPPIN004 ;;7777718
|
|
PPPIN005 ;;2568655
|
|
PPPIN006 ;;5931008
|
|
PPPIN007 ;;8764387
|
|
PPPIN008 ;;5743796
|
|
PPPIN009 ;;6766971
|
|
PPPIN00A ;;2469257
|
|
PPPIN00B ;;6968003
|
|
PPPIN00C ;;2381152
|
|
PPPIN00D ;;5367154
|
|
PPPIN00E ;;2629440
|
|
PPPIN00F ;;3350804
|
|
PPPIN00G ;;2704089
|
|
PPPIN00H ;;7206691
|
|
PPPIN00I ;;1569814
|
|
PPPIN00J ;;1817728
|
|
PPPIN00K ;;10029495
|
|
PPPIN00L ;;7330901
|
|
PPPIN00M ;;6308005
|
|
PPPIN00N ;;5909343
|
|
PPPIN00O ;;3263826
|
|
PPPINIS ;;2379938
|
|
PPPINIT ;;11450247
|
|
PPPINIT1 ;;5962275
|
|
PPPINIT2 ;;5438929
|
|
PPPINIT3 ;;16301109
|
|
PPPINIT4 ;;3564101
|
|
PPPINIT5 ;;1495354
|
|
PPPINITY ;;15430433
|
|
PPPMSC1 ;;3141862
|
|
PPPON001 ;;6704810
|
|
PPPON002 ;;5657554
|
|
PPPONIT ;;1192328
|
|
PPPONIT1 ;;1910236
|
|
PPPONIT2 ;;289149
|
|
PPPONIT3 ;;10782911
|
|
PPPPDA1 ;;1868832
|
|
PPPPDX1 ;;4992507
|
|
PPPPDX2 ;;1464076
|
|
PPPPDX3 ;;1552783
|
|
PPPPRT1 ;;3871745
|
|
PPPPRT10 ;;570726
|
|
PPPPRT11 ;;2201483
|
|
PPPPRT2 ;;6878120
|
|
PPPPRT20 ;;2754854
|
|
PPPPRT21 ;;2776145
|
|
PPPPRT22 ;;2692686
|
|
PPPPRT23 ;;2913949
|
|
PPPPRT24 ;;4206718
|
|
PPPPRT25 ;;2763303
|
|
PPPPRT29 ;;886020
|
|
PPPPRT3 ;;1315374
|
|
PPPPRT4 ;;3417329
|
|
PPPPRT8 ;;2732678
|
|
PPPPRT9 ;;4099331
|
|
PPPPSL ;;6939795
|
|
PPPPSL1 ;;5565473
|
|
PPPPURG ;;2777669
|
|
PPPSCN1 ;;4207716
|
|
PPPSCN2 ;;5196311
|
|
PPPST01 ;;2318554
|
|
PPPST04 ;;2472403
|
|
PPPST08 ;;2432160
|
|
PPPST09 ;;1987518
|
|
PPPUTL1 ;;948986
|
|
PPPVPP ;;4636377
|
|
PPPVPPIN ;;1485676
|