- 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 Mar 13, 2025@20:51:43 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
