- 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 Mar 13, 2025@21:30:35 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
