| 1 | DINTEG ;SFISC/dizSUMB FILEMAN-FileMan checksum checker ;MAR 30, 1999 13:20
|
|---|
| 2 | ;;22.0;VA FileMan;;Mar 30, 1999
|
|---|
| 3 | ;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | S DIZ4="I 1" D DSP,INI
|
|---|
| 5 | 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")
|
|---|
| 6 | G CONT^DINTEG1
|
|---|
| 7 | S X="" F S X=$O(^UTILITY($J,X)) Q:X="" W !,X,?10,"not a routine in this INTEGRITY checker"
|
|---|
| 8 | K D,D1,D2,D3,X,Y,DIZ,DIZ1,DIZ2,DIZ3,DIZ4,DIZ5,DIZ6,DIZTEST,DIZSUM,DISYS,DIZSEL,^UTILITY($J) Q
|
|---|
| 9 | 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)=""""")
|
|---|
| 10 | S DIZ4="I $D(^UTILITY($J,X)) K ^(X)" D DSP
|
|---|
| 11 | W !,"Check a subset of routines:" K ^UTILITY($J) X DIZSEL
|
|---|
| 12 | W ! G CONT
|
|---|
| 13 | DSP S X=$T(+2) W !!,"Checksum routine created on "_$P(X,";",6)_" by "_$P(X,";",4)_" V"_$P(X,";",3) Q
|
|---|
| 14 | 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"
|
|---|
| 15 | 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
|
|---|
| 16 | ROU ;;
|
|---|
| 17 | DDBR ;;7526796
|
|---|
| 18 | DDBR0 ;;6068442
|
|---|
| 19 | DDBR1 ;;8129766
|
|---|
| 20 | DDBR2 ;;6468410
|
|---|
| 21 | DDBR3 ;;3667049
|
|---|
| 22 | DDBR4 ;;3289215
|
|---|
| 23 | DDBRAHT ;;2626328
|
|---|
| 24 | DDBRAHTE ;;3952571
|
|---|
| 25 | DDBRAHTJ ;;8060105
|
|---|
| 26 | DDBRAHTR ;;3022903
|
|---|
| 27 | DDBRAP ;;6218981
|
|---|
| 28 | DDBRGE ;;5997888
|
|---|
| 29 | DDBRP ;;2499911
|
|---|
| 30 | DDBRS ;;2734141
|
|---|
| 31 | DDBRT ;;545522
|
|---|
| 32 | DDBRU ;;4307614
|
|---|
| 33 | DDBRU2 ;;6369140
|
|---|
| 34 | DDBRWB ;;4334644
|
|---|
| 35 | DDBRZIS ;;2052651
|
|---|
| 36 | DDFIX ;;8711878
|
|---|
| 37 | DDGF ;;1882381
|
|---|
| 38 | DDGF0 ;;4477329
|
|---|
| 39 | DDGF1 ;;3080012
|
|---|
| 40 | DDGF2 ;;4585362
|
|---|
| 41 | DDGF3 ;;5347663
|
|---|
| 42 | DDGF4 ;;2607874
|
|---|
| 43 | DDGFADL ;;1121232
|
|---|
| 44 | DDGFAPC ;;2980494
|
|---|
| 45 | DDGFASUB ;;1650486
|
|---|
| 46 | DDGFBK ;;4441116
|
|---|
| 47 | DDGFBSEL ;;3244989
|
|---|
| 48 | DDGFEL ;;5668227
|
|---|
| 49 | DDGFFLD ;;3054325
|
|---|
| 50 | DDGFFLDA ;;4448977
|
|---|
| 51 | DDGFFM ;;3288743
|
|---|
| 52 | DDGFH ;;240939
|
|---|
| 53 | DDGFHBK ;;2815103
|
|---|
| 54 | DDGFLOAD ;;5494739
|
|---|
| 55 | DDGFORD ;;1345365
|
|---|
| 56 | DDGFPG ;;6147639
|
|---|
| 57 | DDGFSV ;;3377368
|
|---|
| 58 | DDGFU ;;5495160
|
|---|
| 59 | DDGFUPDB ;;1575190
|
|---|
| 60 | DDGFUPDP ;;4297868
|
|---|
| 61 | DDGLBXA ;;6113990
|
|---|
| 62 | DDGLBXA1 ;;5124092
|
|---|
| 63 | DDGLCBOX ;;2605527
|
|---|
| 64 | DDGLIB0 ;;9579693
|
|---|
| 65 | DDGLIBH ;;5354158
|
|---|
| 66 | DDGLIBW ;;4337005
|
|---|
| 67 | DDGLIBW1 ;;2290469
|
|---|
| 68 | DDIOL ;;1626460
|
|---|
| 69 | DDMAP ;;9789930
|
|---|
| 70 | DDMAP1 ;;11711835
|
|---|
| 71 | DDMAP2 ;;7579160
|
|---|
| 72 | DDMP ;;11678999
|
|---|
| 73 | DDMP1 ;;9723042
|
|---|
| 74 | DDMP2 ;;9295425
|
|---|
| 75 | DDMPSM ;;7179788
|
|---|
| 76 | DDMPSM1 ;;3485759
|
|---|
| 77 | DDMPU ;;8199841
|
|---|
| 78 | DDPA2 ;;4730783
|
|---|
| 79 | DDR ;;8899777
|
|---|
| 80 | DDR0 ;;5407990
|
|---|
| 81 | DDR1 ;;1043214
|
|---|
| 82 | DDR2 ;;7680688
|
|---|
| 83 | DDR3 ;;3479219
|
|---|
| 84 | DDR4 ;;550304
|
|---|
| 85 | DDS ;;6295432
|
|---|
| 86 | DDS0 ;;3581244
|
|---|
| 87 | DDS01 ;;6365933
|
|---|
| 88 | DDS02 ;;4809285
|
|---|
| 89 | DDS1 ;;5578191
|
|---|
| 90 | DDS10 ;;2626414
|
|---|
| 91 | DDS11 ;;7440235
|
|---|
| 92 | DDS2 ;;7821354
|
|---|
| 93 | DDS3 ;;1581880
|
|---|
| 94 | DDS4 ;;7040272
|
|---|
| 95 | DDS41 ;;8608658
|
|---|
| 96 | DDS5 ;;3745102
|
|---|
| 97 | DDS6 ;;3805424
|
|---|
| 98 | DDS7 ;;3559395
|
|---|
| 99 | DDSBOX ;;1558787
|
|---|
| 100 | DDSCAP ;;860878
|
|---|
| 101 | DDSCLONE ;;7839361
|
|---|
| 102 | DDSCLONF ;;3064638
|
|---|
| 103 | DDSCOM ;;2718993
|
|---|
| 104 | DDSCOMP ;;3213158
|
|---|
| 105 | DDSDBLK ;;3731849
|
|---|
| 106 | DDSDEL ;;3257396
|
|---|
| 107 | DDSDFRM ;;6758733
|
|---|
| 108 | DDSFO ;;807544
|
|---|
| 109 | DDSIT ;;758636
|
|---|
| 110 | DDSLIB ;;3572314
|
|---|
| 111 | DDSM ;;5357504
|
|---|
| 112 | DDSM1 ;;3065959
|
|---|
| 113 | DDSMSG ;;2897314
|
|---|
| 114 | DDSOPT ;;388239
|
|---|
| 115 | DDSPRNT ;;5807476
|
|---|
| 116 | DDSPRNT1 ;;5755088
|
|---|
| 117 | DDSPRNT2 ;;6388488
|
|---|
| 118 | DDSPTR ;;5419548
|
|---|
| 119 | DDSR ;;7813886
|
|---|
| 120 | DDSR1 ;;1176619
|
|---|
| 121 | DDSRSEL ;;2211257
|
|---|
| 122 | DDSRUN ;;1173936
|
|---|
| 123 | DDSSTK ;;984511
|
|---|
| 124 | DDSU ;;4516702
|
|---|
| 125 | DDSUTL ;;4198294
|
|---|
| 126 | DDSVAL ;;6234187
|
|---|
| 127 | DDSVALF ;;8689254
|
|---|
| 128 | DDSVALM ;;2353363
|
|---|
| 129 | DDSWP ;;1941187
|
|---|
| 130 | DDSZ ;;7500821
|
|---|
| 131 | DDSZ1 ;;7675105
|
|---|
| 132 | DDSZ2 ;;4499790
|
|---|
| 133 | DDSZ3 ;;1057668
|
|---|
| 134 | DDU ;;472706
|
|---|
| 135 | DDUCHK ;;8383376
|
|---|
| 136 | DDUCHK1 ;;9514982
|
|---|
| 137 | DDUCHK2 ;;7981614
|
|---|
| 138 | DDUCHK3 ;;6554582
|
|---|
| 139 | DDUCHK4 ;;8185538
|
|---|
| 140 | DDUCHK5 ;;8943454
|
|---|
| 141 | DDW ;;4153339
|
|---|
| 142 | DDW1 ;;6076530
|
|---|
| 143 | DDW2 ;;2685539
|
|---|
| 144 | DDW3 ;;7251035
|
|---|
| 145 | DDW4 ;;3312730
|
|---|
| 146 | DDW5 ;;4768415
|
|---|
| 147 | DDW6 ;;5466358
|
|---|
| 148 | DDW7 ;;2042737
|
|---|
| 149 | DDW8 ;;4708520
|
|---|
| 150 | DDW9 ;;4876814
|
|---|
| 151 | DDWC ;;5407122
|
|---|
| 152 | DDWC1 ;;2968865
|
|---|
| 153 | DDWF ;;2376711
|
|---|
| 154 | DDWG ;;3685558
|
|---|
| 155 | DDWH ;;2072618
|
|---|
