DINTEG1 ;SFISC/dizSUMB FILEMAN-FileMan checksum checker ;MAR 30, 1999 13:20
;;22.0;VA FileMan;;Mar 30, 1999;Build 1
;Per VHA Directive 10-93-142, this routine should not be modified.
S DIZ4="I 1" D DSP,INI
CONT F DIZ1=1:1 S DIZ2=$T(ROU+DIZ1) Q:DIZ2="" S X=$P(DIZ2," ",1),DIZ3=$P(DIZ2,";",3) X DIZ4 I $T W !,X X DIZTEST W:'$T ?28,DIZ6 S:'$T DIZ3=0 X:DIZ3 DIZSUM W ?10,$S('DIZ3:"",DIZ3'=Y:$C(7)_"Calculated "_Y_", off by "_(Y-DIZ3),1:"ok")
G CONT^DINTEG2
S X="" F S X=$O(^UTILITY($J,X)) Q:X="" W !,X,?10,"not a routine in this INTEGRITY checker"
K D,D1,D2,D3,X,Y,DIZ,DIZ1,DIZ2,DIZ3,DIZ4,DIZ5,DIZ6,DIZTEST,DIZSUM,DISYS,DIZSEL,^UTILITY($J) Q
ONE D INI S DIZSEL=$S($D(^%ZOSF("RSEL")):^("RSEL"),1:"F S DIR(0)=""FO^1:8"",DIR(""A"")=""ROUTINE NAME"" D ^DIR Q:$D(DIRUT) X DIZTEST W:'$T ?28,DIZ6 I $T S ^UTILITY($J,Y)=""""")
S DIZ4="I $D(^UTILITY($J,X)) K ^(X)" D DSP
W !,"Check a subset of routines:" K ^UTILITY($J) X DIZSEL
W ! G CONT
DSP S X=$T(+2) W !!,"Checksum routine created on "_$P(X,";",6)_" by "_$P(X,";",4)_" V"_$P(X,";",3) Q
INI K ^UTILITY($J) D OS^DII S DIZTEST=$S($D(^DD("OS",DISYS,18)):^(18),1:"I $T(^@X)]"""""),DIZ5="",DIZ6=$C(7)_"Routine not in UCI"
S DIZSUM="ZL @X S Y=0 F D=1,3:1 S D1=$T(+D),D3=$F(D1,"" "") Q:'D3 S D3=$S($E(D1,D3)'="";"":$L(D1),$E(D1,D3+1)="";"":$L(D1),1:D3-2) F D2=1:1:D3 S Y=$A(D1,D2)*D2+Y" Q
ROU ;;
DDWK ;;1021815
DDWT1 ;;5205058
DDXP ;;2355934
DDXP1 ;;8242677
DDXP2 ;;4539899
DDXP3 ;;6242061
DDXP31 ;;10768233
DDXP32 ;;4257847
DDXP33 ;;1616122
DDXP4 ;;7016440
DDXP41 ;;1471391
DDXP5 ;;883390
DDXPLIB ;;2740156
DI ;;385007
DIA ;;7752413
DIA1 ;;8353215
DIA2 ;;3778793
DIA3 ;;10625537
DIAC ;;960436
DIALOG ;;9955906
DIALOGU ;;1585021
DIAR ;;12160588
DIARA ;;14013708
DIARB ;;6210401
DIARCALC ;;2009574
DIARR ;;10469571
DIARR1 ;;10326725
DIARR2 ;;4740869
DIARR3 ;;10772756
DIARR4 ;;4010759
DIARR5 ;;5439123
DIARR6 ;;5070511
DIARU ;;14044819
DIARX ;;8629637
DIAU ;;6245085
DIAX ;;11303014
DIAXD ;;11580617
DIAXERR ;;600222
DIAXF ;;373535
DIAXM ;;9420934
DIAXM1 ;;4416751
DIAXM2 ;;8396635
DIAXM3 ;;5623823
DIAXMS ;;7778891
DIAXP ;;2094474
DIAXT ;;1965631
DIAXU ;;7159038
DIB ;;7431185
DIBT ;;11367668
DIBT1 ;;7178879
DIBTED ;;10413273
DIC ;;10513568
DIC0 ;;4489087
DIC1 ;;7920273
DIC11 ;;3133605
DIC2 ;;2989510
DIC3 ;;8044472
DIC4 ;;4973984
DICA ;;8337676
DICA1 ;;7134262
DICA2 ;;3685096
DICA3 ;;1604228
DICATT ;;8217226
DICATT0 ;;7932864
DICATT1 ;;6222908
DICATT2 ;;9604401
DICATT22 ;;7969359
DICATT3 ;;6345117
DICATT4 ;;11895745
DICATT5 ;;6797753
DICATT6 ;;5640525
DICATTA ;;6837632
DICATTD ;;9780938
DICATTD0 ;;1008871
DICATTD1 ;;3443939
DICATTD2 ;;2061431
DICATTD3 ;;2948456
DICATTD4 ;;1244779
DICATTD5 ;;429848
DICATTD6 ;;3662352
DICATTD7 ;;788242
DICATTD8 ;;5071999
DICATTD9 ;;488739
DICATTDD ;;1815314
DICATTDE ;;10836616
DICATTDK ;;2170130
DICATTDM ;;4014417
DICD ;;9956379
DICE ;;11530586
DICE0 ;;7809447
DICE1 ;;5929202
DICE2 ;;9103183
DICE3 ;;1063202
DICE4 ;;7914237
DICE7 ;;6858722
DICF ;;8504495
DICF0 ;;5072927
DICF1 ;;6446378
DICF2 ;;8772057
DICF3 ;;3363767
DICF4 ;;7990992
DICF5 ;;2319707
DICFIX ;;6867704
DICFIX1 ;;1160939
DICL ;;4252310
DICL1 ;;4176424
DICL10 ;;3112263
DICL2 ;;4796448
DICL3 ;;4999363
DICLIB ;;770990
DICLIX ;;6388314
DICLIX0 ;;2323129
DICLIX1 ;;2988293
DICM ;;8046960
DICM0 ;;6941241
DICM1 ;;6170473
DICM2 ;;5782025
DICM3 ;;3812212
DICN ;;6535731
DICN0 ;;4104440
DICN1 ;;7864160
DICOMP ;;7232175
DICOMP0 ;;9896481
DICOMP1 ;;6197157
DICOMPV ;;8888896
DICOMPW ;;8886232
DICOMPX ;;3939321
DICOMPY ;;6302870
DICOMPZ ;;8915237
DICQ ;;6248469
DICQ1 ;;7645506
DICR ;;3769352
DICRW ;;6532741
DICRW1 ;;1020868
DICU ;;3198839
DICU1 ;;6382864
DICU11 ;;3617845
DICU2 ;;8083831
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDINTEG1 3798 printed Nov 22, 2024@18:02:02 Page 2
DINTEG1 ;SFISC/dizSUMB FILEMAN-FileMan checksum checker ;MAR 30, 1999 13:20
+1 ;;22.0;VA FileMan;;Mar 30, 1999;Build 1
+2 ;Per VHA Directive 10-93-142, this routine should not be modified.
+3 SET DIZ4="I 1"
DO DSP
DO INI
CONT FOR DIZ1=1:1
SET DIZ2=$TEXT(ROU+DIZ1)
if DIZ2=""
QUIT
SET X=$PIECE(DIZ2," ",1)
SET DIZ3=$PIECE(DIZ2,";",3)
XECUTE DIZ4
IF $TEST
WRITE !,X
XECUTE DIZTEST
if '$TEST
WRITE ?28,DIZ6
if '$TEST
SET DIZ3=0
if DIZ3
XECUTE DIZSUM
WRITE ?10,$SELECT('DIZ3:"",DIZ3'=Y:$CHAR(7)_"Calculated "_Y_", off by "_(Y-DIZ3),1:"ok")
+1 GOTO CONT^DINTEG2
+2 SET X=""
FOR
SET X=$ORDER(^UTILITY($JOB,X))
if X=""
QUIT
WRITE !,X,?10,"not a routine in this INTEGRITY checker"
+3 KILL D,D1,D2,D3,X,Y,DIZ,DIZ1,DIZ2,DIZ3,DIZ4,DIZ5,DIZ6,DIZTEST,DIZSUM,DISYS,DIZSEL,^UTILITY($JOB)
QUIT
ONE DO INI
SET DIZSEL=$SELECT($DATA(^%ZOSF("RSEL")):^("RSEL"),1:"F S DIR(0)=""FO^1:8"",DIR(""A"")=""ROUTINE NAME"" D ^DIR Q:$D(DIRUT) X DIZTEST W:'$T ?28,DIZ6 I $T S ^UTILITY($J,Y)=""""")
+1 SET DIZ4="I $D(^UTILITY($J,X)) K ^(X)"
DO DSP
+2 WRITE !,"Check a subset of routines:"
KILL ^UTILITY($JOB)
XECUTE DIZSEL
+3 WRITE !
GOTO CONT
DSP SET X=$TEXT(+2)
WRITE !!,"Checksum routine created on "_$PIECE(X,";",6)_" by "_$PIECE(X,";",4)_" V"_$PIECE(X,";",3)
QUIT
INI KILL ^UTILITY($JOB)
DO OS^DII
SET DIZTEST=$SELECT($DATA(^DD("OS",DISYS,18)):^(18),1:"I $T(^@X)]""""")
SET DIZ5=""
SET DIZ6=$CHAR(7)_"Routine not in UCI"
+1 SET DIZSUM="ZL @X S Y=0 F D=1,3:1 S D1=$T(+D),D3=$F(D1,"" "") Q:'D3 S D3=$S($E(D1,D3)'="";"":$L(D1),$E(D1,D3+1)="";"":$L(D1),1:D3-2) F D2=1:1:D3 S Y=$A(D1,D2)*D2+Y"
QUIT
ROU ;;
DDWK ;;1021815
DDWT1 ;;5205058
DDXP ;;2355934
DDXP1 ;;8242677
DDXP2 ;;4539899
DDXP3 ;;6242061
DDXP31 ;;10768233
DDXP32 ;;4257847
DDXP33 ;;1616122
DDXP4 ;;7016440
DDXP41 ;;1471391
DDXP5 ;;883390
DDXPLIB ;;2740156
DI ;;385007
DIA ;;7752413
DIA1 ;;8353215
DIA2 ;;3778793
DIA3 ;;10625537
DIAC ;;960436
DIALOG ;;9955906
DIALOGU ;;1585021
DIAR ;;12160588
DIARA ;;14013708
DIARB ;;6210401
DIARCALC ;;2009574
DIARR ;;10469571
DIARR1 ;;10326725
DIARR2 ;;4740869
DIARR3 ;;10772756
DIARR4 ;;4010759
DIARR5 ;;5439123
DIARR6 ;;5070511
DIARU ;;14044819
DIARX ;;8629637
DIAU ;;6245085
DIAX ;;11303014
DIAXD ;;11580617
DIAXERR ;;600222
DIAXF ;;373535
DIAXM ;;9420934
DIAXM1 ;;4416751
DIAXM2 ;;8396635
DIAXM3 ;;5623823
DIAXMS ;;7778891
DIAXP ;;2094474
DIAXT ;;1965631
DIAXU ;;7159038
DIB ;;7431185
DIBT ;;11367668
DIBT1 ;;7178879
DIBTED ;;10413273
DIC ;;10513568
DIC0 ;;4489087
DIC1 ;;7920273
DIC11 ;;3133605
DIC2 ;;2989510
DIC3 ;;8044472
DIC4 ;;4973984
DICA ;;8337676
DICA1 ;;7134262
DICA2 ;;3685096
DICA3 ;;1604228
DICATT ;;8217226
DICATT0 ;;7932864
DICATT1 ;;6222908
DICATT2 ;;9604401
DICATT22 ;;7969359
DICATT3 ;;6345117
DICATT4 ;;11895745
DICATT5 ;;6797753
DICATT6 ;;5640525
DICATTA ;;6837632
DICATTD ;;9780938
DICATTD0 ;;1008871
DICATTD1 ;;3443939
DICATTD2 ;;2061431
DICATTD3 ;;2948456
DICATTD4 ;;1244779
DICATTD5 ;;429848
DICATTD6 ;;3662352
DICATTD7 ;;788242
DICATTD8 ;;5071999
DICATTD9 ;;488739
DICATTDD ;;1815314
DICATTDE ;;10836616
DICATTDK ;;2170130
DICATTDM ;;4014417
DICD ;;9956379
DICE ;;11530586
DICE0 ;;7809447
DICE1 ;;5929202
DICE2 ;;9103183
DICE3 ;;1063202
DICE4 ;;7914237
DICE7 ;;6858722
DICF ;;8504495
DICF0 ;;5072927
DICF1 ;;6446378
DICF2 ;;8772057
DICF3 ;;3363767
DICF4 ;;7990992
DICF5 ;;2319707
DICFIX ;;6867704
DICFIX1 ;;1160939
DICL ;;4252310
DICL1 ;;4176424
DICL10 ;;3112263
DICL2 ;;4796448
DICL3 ;;4999363
DICLIB ;;770990
DICLIX ;;6388314
DICLIX0 ;;2323129
DICLIX1 ;;2988293
DICM ;;8046960
DICM0 ;;6941241
DICM1 ;;6170473
DICM2 ;;5782025
DICM3 ;;3812212
DICN ;;6535731
DICN0 ;;4104440
DICN1 ;;7864160
DICOMP ;;7232175
DICOMP0 ;;9896481
DICOMP1 ;;6197157
DICOMPV ;;8888896
DICOMPW ;;8886232
DICOMPX ;;3939321
DICOMPY ;;6302870
DICOMPZ ;;8915237
DICQ ;;6248469
DICQ1 ;;7645506
DICR ;;3769352
DICRW ;;6532741
DICRW1 ;;1020868
DICU ;;3198839
DICU1 ;;6382864
DICU11 ;;3617845
DICU2 ;;8083831
