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 ---[H[J[2J[HDINTEG 3798 printed Dec 13, 2024@02:52:05 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
