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