DINTEG1.m

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 ---DINTEG1   3798     printed  Apr 09, 2024@21:48:52                                                                                                                                                                                                     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