AVANTEG ; DSM/GTH - Package checksum checker ; 27-MAY-1993
;;93.2;VA SUPPORT FILES;;JUL 01, 1993;Build 12
;;7.0;MAY 27, 1993@15:14:55
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^AVANTEG0
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 ;;
AVA200 ;;4893267
AVA4A7 ;;1273718
AVAIN001 ;;6181162
AVAIN002 ;;3859050
AVAIN003 ;;9769675
AVAIN004 ;;11090397
AVAIN005 ;;10330111
AVAIN006 ;;9522525
AVAIN007 ;;8780866
AVAIN008 ;;12082079
AVAIN009 ;;11786103
AVAIN010 ;;8323260
AVAIN011 ;;8171316
AVAIN012 ;;10198302
AVAIN013 ;;7459876
AVAIN014 ;;10714881
AVAIN015 ;;8390304
AVAIN016 ;;1593617
AVAIN017 ;;4250085
AVAIN018 ;;2150340
AVAIN019 ;;5536933
AVAIN020 ;;8698888
AVAIN021 ;;10526526
AVAIN022 ;;10411818
AVAIN023 ;;11490332
AVAIN024 ;;8600537
AVAIN025 ;;4707619
AVAIN026 ;;3673430
AVAIN027 ;;1846277
AVAIN028 ;;2064626
AVAIN029 ;;8834909
AVAIN030 ;;6751052
AVAIN031 ;;6625021
AVAIN032 ;;2881448
AVAIN033 ;;1849355
AVAIN034 ;;1941725
AVAIN035 ;;2114576
AVAIN036 ;;2513043
AVAIN037 ;;11612476
AVAIN038 ;;11271598
AVAIN039 ;;9674317
AVAIN040 ;;12043843
AVAIN041 ;;14812660
AVAIN042 ;;11797498
AVAIN043 ;;10115714
AVAIN044 ;;10255889
AVAIN045 ;;8853561
AVAIN046 ;;9523592
AVAIN047 ;;8974915
AVAIN048 ;;9128591
AVAIN049 ;;2329345
AVAIN050 ;;10097116
AVAIN051 ;;10976282
AVAIN052 ;;11232302
AVAIN053 ;;12989361
AVAIN054 ;;11175689
AVAIN055 ;;9561591
AVAIN056 ;;10376653
AVAIN057 ;;8509631
AVAIN058 ;;7995990
AVAIN059 ;;11536450
AVAIN060 ;;10297534
AVAIN061 ;;7633718
AVAIN062 ;;14887261
AVAIN063 ;;8154152
AVAIN064 ;;9263986
AVAIN065 ;;9688368
AVAIN066 ;;10872687
AVAIN067 ;;9946436
AVAIN068 ;;9431781
AVAIN069 ;;11806927
AVAIN070 ;;11003664
AVAIN071 ;;9224213
AVAIN072 ;;9356379
AVAIN073 ;;9325419
AVAIN074 ;;8468221
AVAIN075 ;;9391027
AVAIN076 ;;12046168
AVAIN077 ;;9220000
AVAIN078 ;;8134702
AVAIN079 ;;7844559
AVAIN080 ;;8773716
AVAIN081 ;;7815624
AVAIN082 ;;2602467
AVAIN083 ;;2290414
AVAIN084 ;;1621247
AVAIN085 ;;2081779
AVAIN086 ;;1446015
AVAIN087 ;;1759280
AVAIN088 ;;1825386
AVAIN089 ;;4228708
AVAIN090 ;;3289024
AVAIN091 ;;5209042
AVAIN092 ;;6093342
AVAIN093 ;;7658613
AVAIN094 ;;13881893
AVAIN095 ;;8957544
AVAIN096 ;;11425227
AVAIN097 ;;12188388
AVAIN098 ;;3303086
AVAIN099 ;;7327918
AVAIN100 ;;5814898
AVAIN101 ;;1088488
AVAIN102 ;;9753980
AVAIN103 ;;10008776
AVAIN104 ;;8548053
AVAIN105 ;;10129460
AVAIN106 ;;10838126
AVAIN107 ;;808250
AVAIN108 ;;8530334
AVAIN109 ;;8766483
AVAIN110 ;;8845418
AVAIN111 ;;9299977
AVAIN112 ;;8873901
AVAIN113 ;;15778882
AVAIN114 ;;9596641
AVAIN115 ;;6550437
AVAIN116 ;;4399594
AVAIN117 ;;5241112
AVAIN118 ;;6932723
AVAIN119 ;;10532933
AVAIN120 ;;10088353
AVAIN121 ;;8041896
AVAIN122 ;;10316751
AVAIN123 ;;8865273
AVAIN124 ;;10216436
AVAIN125 ;;9302772
AVAIN126 ;;9507931
AVAIN127 ;;9234924
AVAIN128 ;;10732375
AVAIN129 ;;10458707
AVAIN130 ;;9796648
AVAIN131 ;;11386522
AVAIN132 ;;10503716
AVAIN133 ;;9374372
AVAIN134 ;;8321699
AVAIN135 ;;9184472
AVAIN136 ;;8541252
AVAIN137 ;;9335867
AVAIN138 ;;10960321
AVAIN139 ;;9565157
AVAIN140 ;;8767210
AVAIN141 ;;9493645
AVAIN142 ;;9139993
AVAIN143 ;;6681094
AVAIN144 ;;7656333
AVAIN145 ;;9662750
AVAIN146 ;;6382245
AVAIN147 ;;7887160
AVAIN148 ;;6370251
AVANTEG ; DSM/GTH - Package checksum checker ; 27-MAY-1993
+1 ;;93.2;VA SUPPORT FILES;;JUL 01, 1993;Build 12
+2 ;;7.0;MAY 27, 1993@15:14:55
+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^AVANTEG0
+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 ;;
AVA200 ;;4893267
AVA4A7 ;;1273718
AVAIN001 ;;6181162
AVAIN002 ;;3859050
AVAIN003 ;;9769675
AVAIN004 ;;11090397
AVAIN005 ;;10330111
AVAIN006 ;;9522525
AVAIN007 ;;8780866
AVAIN008 ;;12082079
AVAIN009 ;;11786103
AVAIN010 ;;8323260
AVAIN011 ;;8171316
AVAIN012 ;;10198302
AVAIN013 ;;7459876
AVAIN014 ;;10714881
AVAIN015 ;;8390304
AVAIN016 ;;1593617
AVAIN017 ;;4250085
AVAIN018 ;;2150340
AVAIN019 ;;5536933
AVAIN020 ;;8698888
AVAIN021 ;;10526526
AVAIN022 ;;10411818
AVAIN023 ;;11490332
AVAIN024 ;;8600537
AVAIN025 ;;4707619
AVAIN026 ;;3673430
AVAIN027 ;;1846277
AVAIN028 ;;2064626
AVAIN029 ;;8834909
AVAIN030 ;;6751052
AVAIN031 ;;6625021
AVAIN032 ;;2881448
AVAIN033 ;;1849355
AVAIN034 ;;1941725
AVAIN035 ;;2114576
AVAIN036 ;;2513043
AVAIN037 ;;11612476
AVAIN038 ;;11271598
AVAIN039 ;;9674317
AVAIN040 ;;12043843
AVAIN041 ;;14812660
AVAIN042 ;;11797498
AVAIN043 ;;10115714
AVAIN044 ;;10255889
AVAIN045 ;;8853561
AVAIN046 ;;9523592
AVAIN047 ;;8974915
AVAIN048 ;;9128591
AVAIN049 ;;2329345
AVAIN050 ;;10097116
AVAIN051 ;;10976282
AVAIN052 ;;11232302
AVAIN053 ;;12989361
AVAIN054 ;;11175689
AVAIN055 ;;9561591
AVAIN056 ;;10376653
AVAIN057 ;;8509631
AVAIN058 ;;7995990
AVAIN059 ;;11536450
AVAIN060 ;;10297534
AVAIN061 ;;7633718
AVAIN062 ;;14887261
AVAIN063 ;;8154152
AVAIN064 ;;9263986
AVAIN065 ;;9688368
AVAIN066 ;;10872687
AVAIN067 ;;9946436
AVAIN068 ;;9431781
AVAIN069 ;;11806927
AVAIN070 ;;11003664
AVAIN071 ;;9224213
AVAIN072 ;;9356379
AVAIN073 ;;9325419
AVAIN074 ;;8468221
AVAIN075 ;;9391027
AVAIN076 ;;12046168
AVAIN077 ;;9220000
AVAIN078 ;;8134702
AVAIN079 ;;7844559
AVAIN080 ;;8773716
AVAIN081 ;;7815624
AVAIN082 ;;2602467
AVAIN083 ;;2290414
AVAIN084 ;;1621247
AVAIN085 ;;2081779
AVAIN086 ;;1446015
AVAIN087 ;;1759280
AVAIN088 ;;1825386
AVAIN089 ;;4228708
AVAIN090 ;;3289024
AVAIN091 ;;5209042
AVAIN092 ;;6093342
AVAIN093 ;;7658613
AVAIN094 ;;13881893
AVAIN095 ;;8957544
AVAIN096 ;;11425227
AVAIN097 ;;12188388
AVAIN098 ;;3303086
AVAIN099 ;;7327918
AVAIN100 ;;5814898
AVAIN101 ;;1088488
AVAIN102 ;;9753980
AVAIN103 ;;10008776
AVAIN104 ;;8548053
AVAIN105 ;;10129460
AVAIN106 ;;10838126
AVAIN107 ;;808250
AVAIN108 ;;8530334
AVAIN109 ;;8766483
AVAIN110 ;;8845418
AVAIN111 ;;9299977
AVAIN112 ;;8873901
AVAIN113 ;;15778882
AVAIN114 ;;9596641
AVAIN115 ;;6550437
AVAIN116 ;;4399594
AVAIN117 ;;5241112
AVAIN118 ;;6932723
AVAIN119 ;;10532933
AVAIN120 ;;10088353
AVAIN121 ;;8041896
AVAIN122 ;;10316751
AVAIN123 ;;8865273
AVAIN124 ;;10216436
AVAIN125 ;;9302772
AVAIN126 ;;9507931
AVAIN127 ;;9234924
AVAIN128 ;;10732375
AVAIN129 ;;10458707
AVAIN130 ;;9796648
AVAIN131 ;;11386522
AVAIN132 ;;10503716
AVAIN133 ;;9374372
AVAIN134 ;;8321699
AVAIN135 ;;9184472
AVAIN136 ;;8541252
AVAIN137 ;;9335867
AVAIN138 ;;10960321
AVAIN139 ;;9565157
AVAIN140 ;;8767210
AVAIN141 ;;9493645
AVAIN142 ;;9139993
AVAIN143 ;;6681094
AVAIN144 ;;7656333
AVAIN145 ;;9662750
AVAIN146 ;;6382245
AVAIN147 ;;7887160
AVAIN148 ;;6370251