VAQNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;NOV 16, 1993@16:51:52
;;1.5;PATIENT DATA EXCHANGE;;NOV 17, 1993
;;7.1;NOV 16, 1993@16:51:52
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^VAQNTEG0
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 ;;
VAQADM2 ;;2534049
VAQADM21 ;;7566837
VAQADM22 ;;4062600
VAQADM23 ;;1720751
VAQADM5 ;;991826
VAQADM50 ;;4266988
VAQADM51 ;;2675417
VAQADS01 ;;3223516
VAQAUT ;;57128
VAQBUL ;;1410805
VAQBUL01 ;;6191768
VAQBUL02 ;;4173593
VAQBUL03 ;;4328969
VAQBUL04 ;;4109872
VAQBUL05 ;;2779034
VAQBUL06 ;;4045789
VAQBUL07 ;;2114615
VAQCON ;;1897603
VAQCON0 ;;4178078
VAQCON1 ;;3710285
VAQCON2 ;;3901976
VAQCON3 ;;2418997
VAQCON4 ;;5919951
VAQCON5 ;;2014239
VAQCON6 ;;4158972
VAQCON7 ;;3413184
VAQCON8 ;;3133423
VAQCON93 ;;3200661
VAQCON94 ;;4187477
VAQCON95 ;;4706111
VAQCON96 ;;3725887
VAQCON97 ;;2136266
VAQCON98 ;;3539410
VAQCON99 ;;7142752
VAQDBI ;;4230776
VAQDBIH1 ;;1189457
VAQDBIH2 ;;201661
VAQDBIH3 ;;1069293
VAQDBII1 ;;2814535
VAQDBIM ;;4078867
VAQDBIM0 ;;3374789
VAQDBIM1 ;;6825977
VAQDBIM2 ;;3183687
VAQDBIM3 ;;4667668
VAQDBIM4 ;;3774719
VAQDBIP ;;2495177
VAQDBIP1 ;;4400113
VAQDBIP2 ;;3062191
VAQDBIP3 ;;2952159
VAQDBIP4 ;;3364106
VAQDBIP5 ;;3822343
VAQDBIP6 ;;3718206
VAQDBIP7 ;;1790976
VAQDBIP8 ;;2295398
VAQDIS01 ;;1896058
VAQDIS10 ;;1624428
VAQDIS11 ;;4203630
VAQDIS12 ;;3706146
VAQDIS15 ;;4593059
VAQDIS16 ;;683699
VAQDIS17 ;;2004342
VAQDIS20 ;;1296885
VAQDIS21 ;;6090509
VAQDIS22 ;;1303042
VAQDIS23 ;;6243334
VAQDIS24 ;;1874893
VAQDIS25 ;;3511138
VAQDIS26 ;;5333730
VAQDIS27 ;;3568967
VAQDIS28 ;;2475175
VAQDIS29 ;;2673654
VAQDIS30 ;;5919796
VAQDIS31 ;;5487602
VAQDIS32 ;;2412502
VAQDIS33 ;;2388125
VAQDIS40 ;;1008917
VAQDIS41 ;;1753300
VAQDIS42 ;;4972452
VAQDIS43 ;;5326399
VAQEXT01 ;;5600484
VAQEXT02 ;;2704473
VAQEXT03 ;;3158917
VAQEXT04 ;;1885174
VAQEXT05 ;;758435
VAQEXT06 ;;2134337
VAQFIL10 ;;5988372
VAQFIL11 ;;6300784
VAQFIL12 ;;2569328
VAQFIL13 ;;4237289
VAQFIL14 ;;3197988
VAQFIL15 ;;4998877
VAQFIL16 ;;4406732
VAQFIL17 ;;4128016
VAQFIL18 ;;5999161
VAQFILE ;;3150174
VAQFILE1 ;;4122421
VAQHSH ;;3465882
VAQHSH1 ;;177225
VAQIN001 ;;3353811
VAQIN002 ;;5958081
VAQIN003 ;;6764102
VAQIN004 ;;1660214
VAQIN005 ;;4535842
VAQIN006 ;;7231176
VAQIN007 ;;6153912
VAQIN008 ;;3096824
VAQIN009 ;;908995
VAQIN010 ;;8045910
VAQIN011 ;;2849277
VAQIN012 ;;6314695
VAQIN013 ;;10958673
VAQIN014 ;;6952614
VAQIN015 ;;5500825
VAQIN016 ;;6172399
VAQIN017 ;;5813919
VAQIN018 ;;1306083
VAQIN019 ;;6893354
VAQIN020 ;;6173758
VAQIN021 ;;6106598
VAQIN022 ;;864757
VAQIN023 ;;7176590
VAQIN024 ;;6431188
VAQIN025 ;;3876927
VAQIN026 ;;6146380
VAQIN027 ;;6184362
VAQIN028 ;;3967254
VAQIN029 ;;5013810
VAQIN030 ;;1166077
VAQIN031 ;;7296448
VAQIN032 ;;3255539
VAQIN033 ;;1108766
VAQIN034 ;;5546534
VAQIN035 ;;9435555
VAQIN036 ;;4135861
VAQIN037 ;;6690535
VAQIN038 ;;8416327
VAQIN039 ;;9640544
VAQIN040 ;;2256364
VAQIN041 ;;7952553
VAQIN042 ;;5330688
VAQIN043 ;;7965778
VAQIN044 ;;1127143
VAQIN045 ;;3810401
VAQIN046 ;;3993963
VAQIN047 ;;3511679
VAQIN048 ;;8342667
VAQIN049 ;;7202720
VAQIN050 ;;1138839
VAQIN051 ;;2482435
VAQIN052 ;;8388145
VAQIN053 ;;2300108
VAQIN054 ;;2439428
VAQIN055 ;;7197745
VAQIN056 ;;8933707
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HVAQNTEG 3802 printed Dec 13, 2024@02:26:06 Page 2
VAQNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;NOV 16, 1993@16:51:52
+1 ;;1.5;PATIENT DATA EXCHANGE;;NOV 17, 1993
+2 ;;7.1;NOV 16, 1993@16:51:52
+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^VAQNTEG0
+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 ;;
VAQADM2 ;;2534049
VAQADM21 ;;7566837
VAQADM22 ;;4062600
VAQADM23 ;;1720751
VAQADM5 ;;991826
VAQADM50 ;;4266988
VAQADM51 ;;2675417
VAQADS01 ;;3223516
VAQAUT ;;57128
VAQBUL ;;1410805
VAQBUL01 ;;6191768
VAQBUL02 ;;4173593
VAQBUL03 ;;4328969
VAQBUL04 ;;4109872
VAQBUL05 ;;2779034
VAQBUL06 ;;4045789
VAQBUL07 ;;2114615
VAQCON ;;1897603
VAQCON0 ;;4178078
VAQCON1 ;;3710285
VAQCON2 ;;3901976
VAQCON3 ;;2418997
VAQCON4 ;;5919951
VAQCON5 ;;2014239
VAQCON6 ;;4158972
VAQCON7 ;;3413184
VAQCON8 ;;3133423
VAQCON93 ;;3200661
VAQCON94 ;;4187477
VAQCON95 ;;4706111
VAQCON96 ;;3725887
VAQCON97 ;;2136266
VAQCON98 ;;3539410
VAQCON99 ;;7142752
VAQDBI ;;4230776
VAQDBIH1 ;;1189457
VAQDBIH2 ;;201661
VAQDBIH3 ;;1069293
VAQDBII1 ;;2814535
VAQDBIM ;;4078867
VAQDBIM0 ;;3374789
VAQDBIM1 ;;6825977
VAQDBIM2 ;;3183687
VAQDBIM3 ;;4667668
VAQDBIM4 ;;3774719
VAQDBIP ;;2495177
VAQDBIP1 ;;4400113
VAQDBIP2 ;;3062191
VAQDBIP3 ;;2952159
VAQDBIP4 ;;3364106
VAQDBIP5 ;;3822343
VAQDBIP6 ;;3718206
VAQDBIP7 ;;1790976
VAQDBIP8 ;;2295398
VAQDIS01 ;;1896058
VAQDIS10 ;;1624428
VAQDIS11 ;;4203630
VAQDIS12 ;;3706146
VAQDIS15 ;;4593059
VAQDIS16 ;;683699
VAQDIS17 ;;2004342
VAQDIS20 ;;1296885
VAQDIS21 ;;6090509
VAQDIS22 ;;1303042
VAQDIS23 ;;6243334
VAQDIS24 ;;1874893
VAQDIS25 ;;3511138
VAQDIS26 ;;5333730
VAQDIS27 ;;3568967
VAQDIS28 ;;2475175
VAQDIS29 ;;2673654
VAQDIS30 ;;5919796
VAQDIS31 ;;5487602
VAQDIS32 ;;2412502
VAQDIS33 ;;2388125
VAQDIS40 ;;1008917
VAQDIS41 ;;1753300
VAQDIS42 ;;4972452
VAQDIS43 ;;5326399
VAQEXT01 ;;5600484
VAQEXT02 ;;2704473
VAQEXT03 ;;3158917
VAQEXT04 ;;1885174
VAQEXT05 ;;758435
VAQEXT06 ;;2134337
VAQFIL10 ;;5988372
VAQFIL11 ;;6300784
VAQFIL12 ;;2569328
VAQFIL13 ;;4237289
VAQFIL14 ;;3197988
VAQFIL15 ;;4998877
VAQFIL16 ;;4406732
VAQFIL17 ;;4128016
VAQFIL18 ;;5999161
VAQFILE ;;3150174
VAQFILE1 ;;4122421
VAQHSH ;;3465882
VAQHSH1 ;;177225
VAQIN001 ;;3353811
VAQIN002 ;;5958081
VAQIN003 ;;6764102
VAQIN004 ;;1660214
VAQIN005 ;;4535842
VAQIN006 ;;7231176
VAQIN007 ;;6153912
VAQIN008 ;;3096824
VAQIN009 ;;908995
VAQIN010 ;;8045910
VAQIN011 ;;2849277
VAQIN012 ;;6314695
VAQIN013 ;;10958673
VAQIN014 ;;6952614
VAQIN015 ;;5500825
VAQIN016 ;;6172399
VAQIN017 ;;5813919
VAQIN018 ;;1306083
VAQIN019 ;;6893354
VAQIN020 ;;6173758
VAQIN021 ;;6106598
VAQIN022 ;;864757
VAQIN023 ;;7176590
VAQIN024 ;;6431188
VAQIN025 ;;3876927
VAQIN026 ;;6146380
VAQIN027 ;;6184362
VAQIN028 ;;3967254
VAQIN029 ;;5013810
VAQIN030 ;;1166077
VAQIN031 ;;7296448
VAQIN032 ;;3255539
VAQIN033 ;;1108766
VAQIN034 ;;5546534
VAQIN035 ;;9435555
VAQIN036 ;;4135861
VAQIN037 ;;6690535
VAQIN038 ;;8416327
VAQIN039 ;;9640544
VAQIN040 ;;2256364
VAQIN041 ;;7952553
VAQIN042 ;;5330688
VAQIN043 ;;7965778
VAQIN044 ;;1127143
VAQIN045 ;;3810401
VAQIN046 ;;3993963
VAQIN047 ;;3511679
VAQIN048 ;;8342667
VAQIN049 ;;7202720
VAQIN050 ;;1138839
VAQIN051 ;;2482435
VAQIN052 ;;8388145
VAQIN053 ;;2300108
VAQIN054 ;;2439428
VAQIN055 ;;7197745
VAQIN056 ;;8933707
