DINTEG.m

DINTEG ;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^DINTEG1

 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 ;;

DDBR ;;7526796

DDBR0 ;;6068442

DDBR1 ;;8129766

DDBR2 ;;6468410

DDBR3 ;;3667049

DDBR4 ;;3289215

DDBRAHT ;;2626328

DDBRAHTE ;;3952571

DDBRAHTJ ;;8060105

DDBRAHTR ;;3022903

DDBRAP ;;6218981

DDBRGE ;;5997888

DDBRP ;;2499911

DDBRS ;;2734141

DDBRT ;;545522

DDBRU ;;4307614

DDBRU2 ;;6369140

DDBRWB ;;4334644

DDBRZIS ;;2052651

DDFIX ;;8711878

DDGF ;;1882381

DDGF0 ;;4477329

DDGF1 ;;3080012

DDGF2 ;;4585362

DDGF3 ;;5347663

DDGF4 ;;2607874

DDGFADL ;;1121232

DDGFAPC ;;2980494

DDGFASUB ;;1650486

DDGFBK ;;4441116

DDGFBSEL ;;3244989

DDGFEL ;;5668227

DDGFFLD ;;3054325

DDGFFLDA ;;4448977

DDGFFM ;;3288743

DDGFH ;;240939

DDGFHBK ;;2815103

DDGFLOAD ;;5494739

DDGFORD ;;1345365

DDGFPG ;;6147639

DDGFSV ;;3377368

DDGFU ;;5495160

DDGFUPDB ;;1575190

DDGFUPDP ;;4297868

DDGLBXA ;;6113990

DDGLBXA1 ;;5124092

DDGLCBOX ;;2605527

DDGLIB0 ;;9579693

DDGLIBH ;;5354158

DDGLIBW ;;4337005

DDGLIBW1 ;;2290469

DDIOL ;;1626460

DDMAP ;;9789930

DDMAP1 ;;11711835

DDMAP2 ;;7579160

DDMP ;;11678999

DDMP1 ;;9723042

DDMP2 ;;9295425

DDMPSM ;;7179788

DDMPSM1 ;;3485759

DDMPU ;;8199841

DDPA2 ;;4730783

DDR ;;8899777

DDR0 ;;5407990

DDR1 ;;1043214

DDR2 ;;7680688

DDR3 ;;3479219

DDR4 ;;550304

DDS ;;6295432

DDS0 ;;3581244

DDS01 ;;6365933

DDS02 ;;4809285

DDS1 ;;5578191

DDS10 ;;2626414

DDS11 ;;7440235

DDS2 ;;7821354

DDS3 ;;1581880

DDS4 ;;7040272

DDS41 ;;8608658

DDS5 ;;3745102

DDS6 ;;3805424

DDS7 ;;3559395

DDSBOX ;;1558787

DDSCAP ;;860878

DDSCLONE ;;7839361

DDSCLONF ;;3064638

DDSCOM ;;2718993

DDSCOMP ;;3213158

DDSDBLK ;;3731849

DDSDEL ;;3257396

DDSDFRM ;;6758733

DDSFO ;;807544

DDSIT ;;758636

DDSLIB ;;3572314

DDSM ;;5357504

DDSM1 ;;3065959

DDSMSG ;;2897314

DDSOPT ;;388239

DDSPRNT ;;5807476

DDSPRNT1 ;;5755088

DDSPRNT2 ;;6388488

DDSPTR ;;5419548

DDSR ;;7813886

DDSR1 ;;1176619

DDSRSEL ;;2211257

DDSRUN ;;1173936

DDSSTK ;;984511

DDSU ;;4516702

DDSUTL ;;4198294

DDSVAL ;;6234187

DDSVALF ;;8689254

DDSVALM ;;2353363

DDSWP ;;1941187

DDSZ ;;7500821

DDSZ1 ;;7675105

DDSZ2 ;;4499790

DDSZ3 ;;1057668

DDU ;;472706

DDUCHK ;;8383376

DDUCHK1 ;;9514982

DDUCHK2 ;;7981614

DDUCHK3 ;;6554582

DDUCHK4 ;;8185538

DDUCHK5 ;;8943454

DDW ;;4153339

DDW1 ;;6076530

DDW2 ;;2685539

DDW3 ;;7251035

DDW4 ;;3312730

DDW5 ;;4768415

DDW6 ;;5466358

DDW7 ;;2042737

DDW8 ;;4708520

DDW9 ;;4876814

DDWC ;;5407122

DDWC1 ;;2968865

DDWF ;;2376711

DDWG ;;3685558

DDWH ;;2072618

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DINTEG   3798     printed  Apr 09, 2024@21:53:02                                                                                                                                                                                                      Page 2

DINTEG    ;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^DINTEG1

 +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       ;;

DDBR      ;;7526796

DDBR0     ;;6068442

DDBR1     ;;8129766

DDBR2     ;;6468410

DDBR3     ;;3667049

DDBR4     ;;3289215

DDBRAHT   ;;2626328

DDBRAHTE  ;;3952571

DDBRAHTJ  ;;8060105

DDBRAHTR  ;;3022903

DDBRAP    ;;6218981

DDBRGE    ;;5997888

DDBRP     ;;2499911

DDBRS     ;;2734141

DDBRT     ;;545522

DDBRU     ;;4307614

DDBRU2    ;;6369140

DDBRWB    ;;4334644

DDBRZIS   ;;2052651

DDFIX     ;;8711878

DDGF      ;;1882381

DDGF0     ;;4477329

DDGF1     ;;3080012

DDGF2     ;;4585362

DDGF3     ;;5347663

DDGF4     ;;2607874

DDGFADL   ;;1121232

DDGFAPC   ;;2980494

DDGFASUB  ;;1650486

DDGFBK    ;;4441116

DDGFBSEL  ;;3244989

DDGFEL    ;;5668227

DDGFFLD   ;;3054325

DDGFFLDA  ;;4448977

DDGFFM    ;;3288743

DDGFH     ;;240939

DDGFHBK   ;;2815103

DDGFLOAD  ;;5494739

DDGFORD   ;;1345365

DDGFPG    ;;6147639

DDGFSV    ;;3377368

DDGFU     ;;5495160

DDGFUPDB  ;;1575190

DDGFUPDP  ;;4297868

DDGLBXA   ;;6113990

DDGLBXA1  ;;5124092

DDGLCBOX  ;;2605527

DDGLIB0   ;;9579693

DDGLIBH   ;;5354158

DDGLIBW   ;;4337005

DDGLIBW1  ;;2290469

DDIOL     ;;1626460

DDMAP     ;;9789930

DDMAP1    ;;11711835

DDMAP2    ;;7579160

DDMP      ;;11678999

DDMP1     ;;9723042

DDMP2     ;;9295425

DDMPSM    ;;7179788

DDMPSM1   ;;3485759

DDMPU     ;;8199841

DDPA2     ;;4730783

DDR       ;;8899777

DDR0      ;;5407990

DDR1      ;;1043214

DDR2      ;;7680688

DDR3      ;;3479219

DDR4      ;;550304

DDS       ;;6295432

DDS0      ;;3581244

DDS01     ;;6365933

DDS02     ;;4809285

DDS1      ;;5578191

DDS10     ;;2626414

DDS11     ;;7440235

DDS2      ;;7821354

DDS3      ;;1581880

DDS4      ;;7040272

DDS41     ;;8608658

DDS5      ;;3745102

DDS6      ;;3805424

DDS7      ;;3559395

DDSBOX    ;;1558787

DDSCAP    ;;860878

DDSCLONE  ;;7839361

DDSCLONF  ;;3064638

DDSCOM    ;;2718993

DDSCOMP   ;;3213158

DDSDBLK   ;;3731849

DDSDEL    ;;3257396

DDSDFRM   ;;6758733

DDSFO     ;;807544

DDSIT     ;;758636

DDSLIB    ;;3572314

DDSM      ;;5357504

DDSM1     ;;3065959

DDSMSG    ;;2897314

DDSOPT    ;;388239

DDSPRNT   ;;5807476

DDSPRNT1  ;;5755088

DDSPRNT2  ;;6388488

DDSPTR    ;;5419548

DDSR      ;;7813886

DDSR1     ;;1176619

DDSRSEL   ;;2211257

DDSRUN    ;;1173936

DDSSTK    ;;984511

DDSU      ;;4516702

DDSUTL    ;;4198294

DDSVAL    ;;6234187

DDSVALF   ;;8689254

DDSVALM   ;;2353363

DDSWP     ;;1941187

DDSZ      ;;7500821

DDSZ1     ;;7675105

DDSZ2     ;;4499790

DDSZ3     ;;1057668

DDU       ;;472706

DDUCHK    ;;8383376

DDUCHK1   ;;9514982

DDUCHK2   ;;7981614

DDUCHK3   ;;6554582

DDUCHK4   ;;8185538

DDUCHK5   ;;8943454

DDW       ;;4153339

DDW1      ;;6076530

DDW2      ;;2685539

DDW3      ;;7251035

DDW4      ;;3312730

DDW5      ;;4768415

DDW6      ;;5466358

DDW7      ;;2042737

DDW8      ;;4708520

DDW9      ;;4876814

DDWC      ;;5407122

DDWC1     ;;2968865

DDWF      ;;2376711

DDWG      ;;3685558

DDWH      ;;2072618