165 lines
3.5 KiB
Mathematica
165 lines
3.5 KiB
Mathematica
PSONTEG ;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")
|
|
G CONT^PSONTEG0
|
|
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 ;;
|
|
PSOAMIS ;;8088370
|
|
PSOAMIS0 ;;15530501
|
|
PSOAMIS1 ;;15933021
|
|
PSOARC ;;1543895
|
|
PSOARCCO ;;7879291
|
|
PSOARCCV ;;16524016
|
|
PSOARCDE ;;1519886
|
|
PSOARCF1 ;;9938950
|
|
PSOARCF2 ;;6313447
|
|
PSOARCF3 ;;10989252
|
|
PSOARCF4 ;;14824919
|
|
PSOARCF5 ;;10373233
|
|
PSOARCF6 ;;2114902
|
|
PSOARCIN ;;10467127
|
|
PSOARCLT ;;11361257
|
|
PSOARCR1 ;;6659841
|
|
PSOARCR2 ;;11410187
|
|
PSOARCRR ;;12610244
|
|
PSOARCS2 ;;11785445
|
|
PSOARCSV ;;14563867
|
|
PSOARCTG ;;9524360
|
|
PSOARCTP ;;4774424
|
|
PSOARX ;;24537743
|
|
PSOARX1 ;;8732603
|
|
PSOAUTOC ;;11799857
|
|
PSOB ;;12093795
|
|
PSOBARV ;;4590989
|
|
PSOBBC ;;17077721
|
|
PSOBGMG1 ;;9615217
|
|
PSOBGMG2 ;;16559725
|
|
PSOBGMG3 ;;11706993
|
|
PSOBGMGR ;;26029612
|
|
PSOBING1 ;;20449880
|
|
PSOBINGO ;;27965067
|
|
PSOBKDED ;;3390318
|
|
PSOBMST ;;12548532
|
|
PSOBRPRT ;;12685512
|
|
PSOBSET ;;8800979
|
|
PSOBSET1 ;;8233165
|
|
PSOBUILD ;;18513958
|
|
PSOCAN ;;18537431
|
|
PSOCAN1 ;;24583271
|
|
PSOCAN2 ;;22710446
|
|
PSOCAN3 ;;17987886
|
|
PSOCAN4 ;;12203613
|
|
PSOCLERK ;;580896
|
|
PSOCLO1 ;;16692398
|
|
PSOCLOLS ;;7584419
|
|
PSOCLUTL ;;24520306
|
|
PSOCMOP ;;8682406
|
|
PSOCMOPA ;;6009311
|
|
PSOCMOPB ;;5657331
|
|
PSOCMOPC ;;3165423
|
|
PSOCOPAY ;;2628544
|
|
PSOCOST ;;16988098
|
|
PSOCOSTP ;;4824429
|
|
PSOCP ;;3646662
|
|
PSOCPA ;;8121410
|
|
PSOCPB ;;14175665
|
|
PSOCPC ;;2336163
|
|
PSOCPD ;;11289046
|
|
PSOCPDUP ;;14367470
|
|
PSOCPE ;;2802442
|
|
PSOCPTRH ;;3598887
|
|
PSOCPTRI ;;9927109
|
|
PSOCPVW ;;3063870
|
|
PSOCSRL ;;19568056
|
|
PSOCST ;;1243245
|
|
PSOCST10 ;;11107494
|
|
PSOCST11 ;;11338986
|
|
PSOCST12 ;;18885137
|
|
PSOCST2 ;;10800053
|
|
PSOCST3 ;;11384106
|
|
PSOCST4 ;;11040507
|
|
PSOCST5 ;;13475863
|
|
PSOCST6 ;;10963759
|
|
PSOCST7 ;;9540110
|
|
PSOCST8 ;;10397479
|
|
PSOCST9 ;;14526699
|
|
PSOCSTD ;;16715457
|
|
PSOCSTM ;;17123922
|
|
PSODACT ;;8653547
|
|
PSODEA ;;2282011
|
|
PSODEDT ;;8093286
|
|
PSODELI ;;1437148
|
|
PSODEM ;;10715086
|
|
PSODGAL ;;5387171
|
|
PSODGDG1 ;;22372333
|
|
PSODGDG2 ;;7110510
|
|
PSODGDGI ;;21636668
|
|
PSODIR ;;6314040
|
|
PSODIR1 ;;16914116
|
|
PSODIR2 ;;9167439
|
|
PSODIR3 ;;5216246
|
|
PSODISP ;;24192299
|
|
PSODISP1 ;;20533972
|
|
PSODISP2 ;;2853632
|
|
PSODISP3 ;;8688157
|
|
PSODISPS ;;15792743
|
|
PSODIV ;;9106287
|
|
PSODLKP ;;12394095
|
|
PSODP ;;7869809
|
|
PSODRDU1 ;;13178884
|
|
PSODRDU2 ;;9325905
|
|
PSODRDUP ;;22075959
|
|
PSODRG ;;7801992
|
|
PSODSPL ;;8767448
|
|
PSODSRC ;;2809154
|
|
PSODUE ;;4990585
|
|
PSOEXBCH ;;17471798
|
|
PSOEXDT ;;3390663
|
|
PSOEXREF ;;2938164
|
|
PSOEXRST ;;27534572
|
|
PSOFUNC ;;5153561
|
|
PSOHCSUM ;;7694494
|
|
PSOHELP ;;20630563
|
|
PSOHELP1 ;;18428458
|
|
PSOHELP2 ;;5206648
|
|
PSOHELP3 ;;4616409
|
|
PSOHELP4 ;;782147
|
|
PSOHLD ;;18883227
|
|
PSOHLEXP ;;6671290
|
|
PSOHLNE1 ;;10306531
|
|
PSOHLNE2 ;;24072158
|
|
PSOHLNEW ;;33884077
|
|
PSOHLSG ;;14426239
|
|
PSOHLSG1 ;;22096952
|
|
PSOHLSG2 ;;11980019
|
|
PSOHLSG3 ;;17462571
|
|
PSOHLSG4 ;;5082832
|
|
PSOHLSIG ;;16078021
|
|
PSOHLSIH ;;12638114
|
|
PSOHLSN ;;15349796
|
|
PSOHLSN1 ;;20803809
|
|
PSOHLUP ;;12005271
|
|
PSOHLUP1 ;;7432439
|
|
PSOLAB ;;4226213
|
|
PSOLBL ;;26777589
|
|
PSOLBL1 ;;18314169
|
|
PSOLBL2 ;;18742229
|
|
PSOLBL3 ;;2387864
|
|
PSOLBL4 ;;22298368
|
|
PSOLBLD ;;18323127
|
|
PSOLBLD1 ;;6414526
|
|
PSOLBLN ;;17575125
|
|
PSOLBLN1 ;;25664258
|
|
PSOLBLN2 ;;20535870
|
|
PSOLBLS ;;18302467
|
|
PSOLBLT ;;3427886
|
|
PSOLMAL ;;100919
|
|
PSOLMAO ;;95773
|
|
PSOLMDA ;;197910
|
|
PSOLMLST ;;1673965
|