MCNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;2960909.113955
;;2.3;Medicine;;09/13/1996
;;7.3;2960909.113955
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^MCNTEG0
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 ;;
MCARAM ;;7513129
MCARAM0 ;;8652928
MCARAM0A ;;3324603
MCARAM0B ;;1635444
MCARAM0C ;;259164
MCARAM0D ;;1414732
MCARAM0E ;;2281887
MCARAM0F ;;1175131
MCARAM0G ;;965472
MCARAM0H ;;1245689
MCARAM1 ;;9634784
MCARAM2 ;;5013333
MCARAM3 ;;7540725
MCARAM4 ;;5388145
MCARAM5 ;;7414846
MCARAM6 ;;4370819
MCARAM7 ;;3389255
MCARAML ;;884394
MCARAMLA ;;1770487
MCARAMLB ;;1030845
MCARAMLC ;;2145896
MCARAMLD ;;1213232
MCARAMLE ;;985870
MCARAMLF ;;1648647
MCARAMLG ;;3429686
MCARAMLH ;;4812240
MCARAP ;;13128865
MCARAP1 ;;8368139
MCARAP2 ;;8581535
MCARASE ;;1343241
MCARATVE ;;4660706
MCARBSA ;;1893009
MCARD ;;7219348
MCARD1 ;;9153309
MCARDBL ;;2745397
MCARDC ;;8324014
MCARDC1 ;;10958868
MCARDCM ;;8624300
MCARDCM1 ;;9199269
MCARDCM2 ;;16019523
MCARDCM3 ;;4461677
MCARDCN ;;8168560
MCARDCN1 ;;11879348
MCARDCQ ;;9767978
MCARDCQ1 ;;14107855
MCARDHLP ;;7413320
MCARDML ;;7891874
MCARDNJ ;;12950077
MCARDNJ1 ;;11164953
MCARDNJ2 ;;8566701
MCARDNK ;;4192119
MCARDNQ ;;9677299
MCARDNQ2 ;;5603751
MCARDPAR ;;1087615
MCARDPL ;;6589975
MCARDSE ;;4910080
MCARDSS ;;2795427
MCARE ;;10169181
MCARE1 ;;587426
MCARED ;;1346233
MCAREH ;;2668985
MCARENV ;;1706772
MCARENV1 ;;5645418
MCAREO ;;1226288
MCARGD ;;10355791
MCARGE ;;12626600
MCARGEA ;;2183926
MCARGEO ;;1273111
MCARGES ;;8749771
MCARGP ;;8855698
MCARGPA ;;2450896
MCARGS ;;15196656
MCARHP ;;9526217
MCARLV ;;1224221
MCARP ;;12050941
MCARP1 ;;6483686
MCARPAC ;;4176211
MCARPACE ;;7935031
MCARPAL ;;8294365
MCARPCE ;;6947531
MCARPCS ;;2823538
MCARPCS1 ;;8993163
MCARPCS2 ;;6070211
MCARPCS3 ;;10490801
MCARPCS4 ;;6236777
MCARPROC ;;2609457
MCARPS ;;12724091
MCARPS1 ;;4080525
MCARSRE ;;2689053
MCARSRP ;;4956056
MCARSRR ;;7715339
MCARSUP ;;5565217
MCARVCHK ;;5828316
MCBPFTP1 ;;13843469
MCBPFTP2 ;;7860225
MCBPFTP3 ;;7872831
MCBPFTP4 ;;2488267
MCBPFTP5 ;;4778343
MCBPFTP6 ;;1682113
MCBPFTP7 ;;3150765
MCDBELM ;;8207435
MCDBSAVE ;;4573907
MCDIE001 ;;5582646
MCDIE002 ;;5818428
MCDIE003 ;;4575251
MCDIEDIE ;;4025966
MCDUP1 ;;10974055
MCDUPE ;;28907
MCDUPM ;;4383298
MCDUPP ;;5884894
MCDUPR ;;8492052
MCEF ;;2902953
MCENDIQ1 ;;198583
MCENV00 ;;6610520
MCENVCHK ;;160465
MCEO ;;1629111
MCEPROC ;;1763322
MCESCON3 ;;626548
MCESCONV ;;10707161
MCESEDT ;;12796040
MCESEDT2 ;;10366787
MCESHLP ;;6844447
MCESLIST ;;5146729
MCESMFDV ;;2288072
MCESPRT ;;6425050
MCESSCR ;;5268874
MCFIXOEP ;;740019
MCGBL ;;5394986
MCMAG ;;1044714
MCMAGDSP ;;5147124
MCNMDUP ;;2619985
MCNP2CHK ;;4467177
MCNP2X ;;793498
MCOR ;;14232069
MCOR1 ;;5268190
MCOREX ;;2660895
MCORMN ;;4051049
MCORMN0 ;;6741624
MCORMN01 ;;1977484
MCORMN1 ;;5869467
MCORMN2 ;;6151277
MCPARAM ;;504047
MCPFTE ;;4844525
MCPFTI ;;6287475
MCPFTIC ;;5278858
MCPFTP ;;1702907
MCPFTP1 ;;12497840
MCPFTP1A ;;1637882
MCPFTP2 ;;11990988
MCPFTP2A ;;12428437
MCPFTP3 ;;5993259
MCPFTP4 ;;6787432
MCPFTP4A ;;1678587
MCPFTP5 ;;13958685
MCPFTR ;;1913488
MCPFTSS ;;546237
MCPMV ;;2778636
MCPMVA ;;641401
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HMCNTEG 3764 printed Sep 15, 2024@21:39:16 Page 2
MCNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;2960909.113955
+1 ;;2.3;Medicine;;09/13/1996
+2 ;;7.3;2960909.113955
+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^MCNTEG0
+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 ;;
MCARAM ;;7513129
MCARAM0 ;;8652928
MCARAM0A ;;3324603
MCARAM0B ;;1635444
MCARAM0C ;;259164
MCARAM0D ;;1414732
MCARAM0E ;;2281887
MCARAM0F ;;1175131
MCARAM0G ;;965472
MCARAM0H ;;1245689
MCARAM1 ;;9634784
MCARAM2 ;;5013333
MCARAM3 ;;7540725
MCARAM4 ;;5388145
MCARAM5 ;;7414846
MCARAM6 ;;4370819
MCARAM7 ;;3389255
MCARAML ;;884394
MCARAMLA ;;1770487
MCARAMLB ;;1030845
MCARAMLC ;;2145896
MCARAMLD ;;1213232
MCARAMLE ;;985870
MCARAMLF ;;1648647
MCARAMLG ;;3429686
MCARAMLH ;;4812240
MCARAP ;;13128865
MCARAP1 ;;8368139
MCARAP2 ;;8581535
MCARASE ;;1343241
MCARATVE ;;4660706
MCARBSA ;;1893009
MCARD ;;7219348
MCARD1 ;;9153309
MCARDBL ;;2745397
MCARDC ;;8324014
MCARDC1 ;;10958868
MCARDCM ;;8624300
MCARDCM1 ;;9199269
MCARDCM2 ;;16019523
MCARDCM3 ;;4461677
MCARDCN ;;8168560
MCARDCN1 ;;11879348
MCARDCQ ;;9767978
MCARDCQ1 ;;14107855
MCARDHLP ;;7413320
MCARDML ;;7891874
MCARDNJ ;;12950077
MCARDNJ1 ;;11164953
MCARDNJ2 ;;8566701
MCARDNK ;;4192119
MCARDNQ ;;9677299
MCARDNQ2 ;;5603751
MCARDPAR ;;1087615
MCARDPL ;;6589975
MCARDSE ;;4910080
MCARDSS ;;2795427
MCARE ;;10169181
MCARE1 ;;587426
MCARED ;;1346233
MCAREH ;;2668985
MCARENV ;;1706772
MCARENV1 ;;5645418
MCAREO ;;1226288
MCARGD ;;10355791
MCARGE ;;12626600
MCARGEA ;;2183926
MCARGEO ;;1273111
MCARGES ;;8749771
MCARGP ;;8855698
MCARGPA ;;2450896
MCARGS ;;15196656
MCARHP ;;9526217
MCARLV ;;1224221
MCARP ;;12050941
MCARP1 ;;6483686
MCARPAC ;;4176211
MCARPACE ;;7935031
MCARPAL ;;8294365
MCARPCE ;;6947531
MCARPCS ;;2823538
MCARPCS1 ;;8993163
MCARPCS2 ;;6070211
MCARPCS3 ;;10490801
MCARPCS4 ;;6236777
MCARPROC ;;2609457
MCARPS ;;12724091
MCARPS1 ;;4080525
MCARSRE ;;2689053
MCARSRP ;;4956056
MCARSRR ;;7715339
MCARSUP ;;5565217
MCARVCHK ;;5828316
MCBPFTP1 ;;13843469
MCBPFTP2 ;;7860225
MCBPFTP3 ;;7872831
MCBPFTP4 ;;2488267
MCBPFTP5 ;;4778343
MCBPFTP6 ;;1682113
MCBPFTP7 ;;3150765
MCDBELM ;;8207435
MCDBSAVE ;;4573907
MCDIE001 ;;5582646
MCDIE002 ;;5818428
MCDIE003 ;;4575251
MCDIEDIE ;;4025966
MCDUP1 ;;10974055
MCDUPE ;;28907
MCDUPM ;;4383298
MCDUPP ;;5884894
MCDUPR ;;8492052
MCEF ;;2902953
MCENDIQ1 ;;198583
MCENV00 ;;6610520
MCENVCHK ;;160465
MCEO ;;1629111
MCEPROC ;;1763322
MCESCON3 ;;626548
MCESCONV ;;10707161
MCESEDT ;;12796040
MCESEDT2 ;;10366787
MCESHLP ;;6844447
MCESLIST ;;5146729
MCESMFDV ;;2288072
MCESPRT ;;6425050
MCESSCR ;;5268874
MCFIXOEP ;;740019
MCGBL ;;5394986
MCMAG ;;1044714
MCMAGDSP ;;5147124
MCNMDUP ;;2619985
MCNP2CHK ;;4467177
MCNP2X ;;793498
MCOR ;;14232069
MCOR1 ;;5268190
MCOREX ;;2660895
MCORMN ;;4051049
MCORMN0 ;;6741624
MCORMN01 ;;1977484
MCORMN1 ;;5869467
MCORMN2 ;;6151277
MCPARAM ;;504047
MCPFTE ;;4844525
MCPFTI ;;6287475
MCPFTIC ;;5278858
MCPFTP ;;1702907
MCPFTP1 ;;12497840
MCPFTP1A ;;1637882
MCPFTP2 ;;11990988
MCPFTP2A ;;12428437
MCPFTP3 ;;5993259
MCPFTP4 ;;6787432
MCPFTP4A ;;1678587
MCPFTP5 ;;13958685
MCPFTR ;;1913488
MCPFTSS ;;546237
MCPMV ;;2778636
MCPMVA ;;641401