PSDNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;2970224.092204
;;3.0; CONTROLLED SUBSTANCES ;;13 Feb 97
;;7.3;2970224.092204
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^PSDNTEG0
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 ;;
PSDACT ;;9975594
PSDACT1 ;;11604254
PSDACT2 ;;6805666
PSDADJ ;;13992080
PSDADJB ;;3411172
PSDADJC ;;12709010
PSDADJD ;;13684417
PSDADJI ;;9664608
PSDADJIN ;;10882845
PSDADJN ;;12308094
PSDADJN1 ;;9209503
PSDADJR ;;9137032
PSDADJW ;;3140510
PSDADT ;;1852503
PSDADT1 ;;2880338
PSDAMIS ;;12951751
PSDAMIS0 ;;12093150
PSDAMIS1 ;;10954000
PSDAMIS2 ;;8653026
PSDAMIS3 ;;11517002
PSDAMIS4 ;;6905875
PSDAPU ;;453681
PSDBAL ;;11324223
PSDBALI ;;13145477
PSDBALI1 ;;4034805
PSDBAN ;;11322182
PSDBAN1 ;;6447121
PSDCODE ;;1276619
PSDCOR ;;12698386
PSDCOR1 ;;13395954
PSDCOR2 ;;13487461
PSDCOR3 ;;1989323
PSDCORP ;;10704766
PSDCORP1 ;;8074809
PSDCORP2 ;;8214810
PSDCORP3 ;;9384457
PSDCOSD ;;11666341
PSDCOSH ;;8058420
PSDCOSM ;;1588896
PSDCOSN ;;11610030
PSDCOST ;;17808268
PSDCOSV ;;8309730
PSDCPO ;;15492261
PSDCRP ;;15861595
PSDCSI ;;8739313
PSDCSL ;;9907995
PSDDFP ;;13632184
PSDDFP1 ;;4717046
PSDDWK ;;14582819
PSDDWK1 ;;8730816
PSDDWK2 ;;7776016
PSDDWK3 ;;7689842
PSDDWK4 ;;5365045
PSDDWKE ;;10267106
PSDEA ;;7236323
PSDEA41 ;;13153026
PSDEM ;;11848547
PSDEM1 ;;12993745
PSDEM2 ;;11157976
PSDEM3 ;;2984202
PSDEM4 ;;7256790
PSDEN ;;9553918
PSDERCP ;;15389660
PSDERD ;;7069296
PSDERP ;;15124151
PSDEST ;;14170737
PSDESTF ;;11545390
PSDESTO ;;12940785
PSDESTP ;;24798965
PSDEVO ;;13442414
PSDEVO1 ;;11404589
PSDEVOR ;;15314902
PSDEXGS ;;12646994
PSDEXGS1 ;;6305959
PSDEXP ;;15048479
PSDEXP1 ;;5042879
PSDFIL2 ;;14725710
PSDFIL3 ;;14685555
PSDFILM ;;2926376
PSDFND ;;16502908
PSDFND1 ;;2124618
PSDFT ;;14866922
PSDFT1 ;;15918295
PSDGEN ;;1437730
PSDGPR ;;11702075
PSDGSH ;;3741711
PSDGSH1 ;;5746281
PSDGSH11 ;;6013794
PSDGSH2 ;;13901298
PSDGSK ;;7890554
PSDGSL ;;8633650
PSDGSL1 ;;8018119
PSDGSPU ;;8969282
PSDGSRV ;;13538823
PSDGSRV1 ;;16149091
PSDGSRV2 ;;14427491
PSDHELP ;;167485
PSDHL7 ;;6316421
PSDHLK ;;1069196
PSDHLP ;;1933023
PSDHLX ;;1153846
PSDHLY ;;924987
PSDHRPT ;;14954948
PSDINPRE ;;3161234
PSDIPOS1 ;;4077569
PSDIPOST ;;6876049
PSDLBL ;;14060349
PSDLBL0 ;;8605513
PSDLBL1 ;;13258327
PSDLBL2 ;;10638900
PSDLBL3 ;;10994226
PSDLBL4 ;;4065314
PSDLBL5 ;;7201861
PSDLBLB ;;7160018
PSDLBLI ;;9423541
PSDLBLP ;;12044908
PSDLBLR ;;9703853
PSDLBLR0 ;;6059606
PSDLBLR1 ;;2638419
PSDLBLR2 ;;4532916
PSDLSTK ;;8066682
PSDLSTK1 ;;9733870
PSDLSTK2 ;;8185271
PSDMAPU ;;7479575
PSDMFG ;;3721775
PSDNACT ;;6740699
PSDNARC ;;3678699
PSDNBT ;;11058243
PSDNCGS ;;10321965
PSDNDES ;;13786726
PSDNRGO ;;12162069
PSDNRGS ;;15623486
PSDNSCG ;;10659453
PSDNSCL ;;9525064
PSDNSTK ;;16898603
PSDNTF ;;19598600
PSDNTR ;;14807386
PSDNTT ;;10244486
PSDNTT1 ;;8835538
PSDNU ;;13021502
PSDNU1 ;;14738135
PSDNU2 ;;12732100
PSDNU3 ;;2907042
PSDNVT ;;1478644
PSDOPT ;;12920789
PSDOPT0 ;;9875269
PSDOPT1 ;;7115187
PSDOPT2 ;;2480174
PSDOPTI ;;16473032
PSDOPTN ;;10853518
PSDOPTR ;;2226366
PSDOPTS ;;15071130
PSDOPTX ;;10178752
PSDOPTY ;;5930170
PSDOPTZ ;;7145611
PSDOR2 ;;7280763
PSDOR21 ;;9843322
PSDORD ;;13245815
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSDNTEG 3780 printed Dec 13, 2024@01:47:03 Page 2
PSDNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;2970224.092204
+1 ;;3.0; CONTROLLED SUBSTANCES ;;13 Feb 97
+2 ;;7.3;2970224.092204
+3 SET XT4="I 1"
SET X=$TEXT(+3)
WRITE !!,"Checksum routine created on ",$PIECE(X,";",4)," by KERNEL V",$PIECE(X,";",3),!
CONT FOR XT1=1:1
SET XT2=$TEXT(ROU+XT1)
if XT2=""
QUIT
SET X=$PIECE(XT2," ",1)
SET XT3=$PIECE(XT2,";",3)
XECUTE XT4
IF $TEST
WRITE !,X
XECUTE ^%ZOSF("TEST")
if '$TEST
SET XT3=0
if XT3
XECUTE ^%ZOSF("RSUM")
WRITE ?10,$SELECT('XT3:"Routine not in UCI",XT3'=Y:"Calculated "_$CHAR(7)_Y_", off by "_(Y-XT3),1:"ok")
+1 GOTO CONT^PSDNTEG0
+2 KILL %1,%2,%3,X,Y,XT1,XT2,XT3,XT4
QUIT
ONE SET XT4="I $D(^UTILITY($J,X))"
SET X=$TEXT(+3)
WRITE !!,"Checksum routine created on ",$PIECE(X,";",4)," by KERNEL V",$PIECE(X,";",3),!
+1 WRITE !,"Check a subset of routines:"
KILL ^UTILITY($JOB)
XECUTE ^%ZOSF("RSEL")
+2 WRITE !
GOTO CONT
ROU ;;
PSDACT ;;9975594
PSDACT1 ;;11604254
PSDACT2 ;;6805666
PSDADJ ;;13992080
PSDADJB ;;3411172
PSDADJC ;;12709010
PSDADJD ;;13684417
PSDADJI ;;9664608
PSDADJIN ;;10882845
PSDADJN ;;12308094
PSDADJN1 ;;9209503
PSDADJR ;;9137032
PSDADJW ;;3140510
PSDADT ;;1852503
PSDADT1 ;;2880338
PSDAMIS ;;12951751
PSDAMIS0 ;;12093150
PSDAMIS1 ;;10954000
PSDAMIS2 ;;8653026
PSDAMIS3 ;;11517002
PSDAMIS4 ;;6905875
PSDAPU ;;453681
PSDBAL ;;11324223
PSDBALI ;;13145477
PSDBALI1 ;;4034805
PSDBAN ;;11322182
PSDBAN1 ;;6447121
PSDCODE ;;1276619
PSDCOR ;;12698386
PSDCOR1 ;;13395954
PSDCOR2 ;;13487461
PSDCOR3 ;;1989323
PSDCORP ;;10704766
PSDCORP1 ;;8074809
PSDCORP2 ;;8214810
PSDCORP3 ;;9384457
PSDCOSD ;;11666341
PSDCOSH ;;8058420
PSDCOSM ;;1588896
PSDCOSN ;;11610030
PSDCOST ;;17808268
PSDCOSV ;;8309730
PSDCPO ;;15492261
PSDCRP ;;15861595
PSDCSI ;;8739313
PSDCSL ;;9907995
PSDDFP ;;13632184
PSDDFP1 ;;4717046
PSDDWK ;;14582819
PSDDWK1 ;;8730816
PSDDWK2 ;;7776016
PSDDWK3 ;;7689842
PSDDWK4 ;;5365045
PSDDWKE ;;10267106
PSDEA ;;7236323
PSDEA41 ;;13153026
PSDEM ;;11848547
PSDEM1 ;;12993745
PSDEM2 ;;11157976
PSDEM3 ;;2984202
PSDEM4 ;;7256790
PSDEN ;;9553918
PSDERCP ;;15389660
PSDERD ;;7069296
PSDERP ;;15124151
PSDEST ;;14170737
PSDESTF ;;11545390
PSDESTO ;;12940785
PSDESTP ;;24798965
PSDEVO ;;13442414
PSDEVO1 ;;11404589
PSDEVOR ;;15314902
PSDEXGS ;;12646994
PSDEXGS1 ;;6305959
PSDEXP ;;15048479
PSDEXP1 ;;5042879
PSDFIL2 ;;14725710
PSDFIL3 ;;14685555
PSDFILM ;;2926376
PSDFND ;;16502908
PSDFND1 ;;2124618
PSDFT ;;14866922
PSDFT1 ;;15918295
PSDGEN ;;1437730
PSDGPR ;;11702075
PSDGSH ;;3741711
PSDGSH1 ;;5746281
PSDGSH11 ;;6013794
PSDGSH2 ;;13901298
PSDGSK ;;7890554
PSDGSL ;;8633650
PSDGSL1 ;;8018119
PSDGSPU ;;8969282
PSDGSRV ;;13538823
PSDGSRV1 ;;16149091
PSDGSRV2 ;;14427491
PSDHELP ;;167485
PSDHL7 ;;6316421
PSDHLK ;;1069196
PSDHLP ;;1933023
PSDHLX ;;1153846
PSDHLY ;;924987
PSDHRPT ;;14954948
PSDINPRE ;;3161234
PSDIPOS1 ;;4077569
PSDIPOST ;;6876049
PSDLBL ;;14060349
PSDLBL0 ;;8605513
PSDLBL1 ;;13258327
PSDLBL2 ;;10638900
PSDLBL3 ;;10994226
PSDLBL4 ;;4065314
PSDLBL5 ;;7201861
PSDLBLB ;;7160018
PSDLBLI ;;9423541
PSDLBLP ;;12044908
PSDLBLR ;;9703853
PSDLBLR0 ;;6059606
PSDLBLR1 ;;2638419
PSDLBLR2 ;;4532916
PSDLSTK ;;8066682
PSDLSTK1 ;;9733870
PSDLSTK2 ;;8185271
PSDMAPU ;;7479575
PSDMFG ;;3721775
PSDNACT ;;6740699
PSDNARC ;;3678699
PSDNBT ;;11058243
PSDNCGS ;;10321965
PSDNDES ;;13786726
PSDNRGO ;;12162069
PSDNRGS ;;15623486
PSDNSCG ;;10659453
PSDNSCL ;;9525064
PSDNSTK ;;16898603
PSDNTF ;;19598600
PSDNTR ;;14807386
PSDNTT ;;10244486
PSDNTT1 ;;8835538
PSDNU ;;13021502
PSDNU1 ;;14738135
PSDNU2 ;;12732100
PSDNU3 ;;2907042
PSDNVT ;;1478644
PSDOPT ;;12920789
PSDOPT0 ;;9875269
PSDOPT1 ;;7115187
PSDOPT2 ;;2480174
PSDOPTI ;;16473032
PSDOPTN ;;10853518
PSDOPTR ;;2226366
PSDOPTS ;;15071130
PSDOPTX ;;10178752
PSDOPTY ;;5930170
PSDOPTZ ;;7145611
PSDOR2 ;;7280763
PSDOR21 ;;9843322
PSDORD ;;13245815
