| 1 | DINTEG3 ;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^DINTEG4
|
|---|
| 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 | DIKK ;;8668460
|
|---|
| 18 | DIKK1 ;;2999261
|
|---|
| 19 | DIKK2 ;;7003020
|
|---|
| 20 | DIKKDD ;;619322
|
|---|
| 21 | DIKKFORM ;;4020610
|
|---|
| 22 | DIKKP ;;4960174
|
|---|
| 23 | DIKKUTL ;;7891682
|
|---|
| 24 | DIKKUTL1 ;;7440382
|
|---|
| 25 | DIKKUTL2 ;;3321012
|
|---|
| 26 | DIKKUTL3 ;;5832605
|
|---|
| 27 | DIKKUTL4 ;;5542445
|
|---|
| 28 | DIKZ ;;10002654
|
|---|
| 29 | DIKZ0 ;;10320064
|
|---|
| 30 | DIKZ1 ;;9229373
|
|---|
| 31 | DIKZ11 ;;4558086
|
|---|
| 32 | DIKZ2 ;;5046219
|
|---|
| 33 | DIL ;;6333527
|
|---|
| 34 | DIL0 ;;5148814
|
|---|
| 35 | DIL1 ;;6856617
|
|---|
| 36 | DIL11 ;;5151125
|
|---|
| 37 | DIL2 ;;9004976
|
|---|
| 38 | DILF ;;2130649
|
|---|
| 39 | DILFD ;;231253
|
|---|
| 40 | DILIBF ;;7474309
|
|---|
| 41 | DILL ;;6100960
|
|---|
| 42 | DIM ;;2236006
|
|---|
| 43 | DIM1 ;;6135531
|
|---|
| 44 | DIM2 ;;4310650
|
|---|
| 45 | DIM3 ;;4265731
|
|---|
| 46 | DIM4 ;;3292224
|
|---|
| 47 | DINIT ;;14206897
|
|---|
| 48 | DINIT0 ;;5228258
|
|---|
| 49 | DINIT001 ;;14508772
|
|---|
| 50 | DINIT002 ;;13588488
|
|---|
| 51 | DINIT003 ;;1581370
|
|---|
| 52 | DINIT004 ;;11043470
|
|---|
| 53 | DINIT005 ;;10186263
|
|---|
| 54 | DINIT006 ;;11577960
|
|---|
| 55 | DINIT007 ;;10157790
|
|---|
| 56 | DINIT008 ;;10934076
|
|---|
| 57 | DINIT009 ;;10025795
|
|---|
| 58 | DINIT00A ;;10964723
|
|---|
| 59 | DINIT00B ;;10114739
|
|---|
| 60 | DINIT00C ;;11848580
|
|---|
| 61 | DINIT00D ;;9602595
|
|---|
| 62 | DINIT00E ;;9681953
|
|---|
| 63 | DINIT00F ;;10204123
|
|---|
| 64 | DINIT00G ;;10224518
|
|---|
| 65 | DINIT00H ;;8865487
|
|---|
| 66 | DINIT00I ;;8471256
|
|---|
| 67 | DINIT00J ;;7134655
|
|---|
| 68 | DINIT00K ;;7241879
|
|---|
| 69 | DINIT00L ;;9874316
|
|---|
| 70 | DINIT00M ;;10643142
|
|---|
| 71 | DINIT00N ;;10071584
|
|---|
| 72 | DINIT00O ;;11551621
|
|---|
| 73 | DINIT00P ;;8727020
|
|---|
| 74 | DINIT00Q ;;15168785
|
|---|
| 75 | DINIT00R ;;14638500
|
|---|
| 76 | DINIT00S ;;10098710
|
|---|
| 77 | DINIT00T ;;12267505
|
|---|
| 78 | DINIT00U ;;9544524
|
|---|
| 79 | DINIT00V ;;11149620
|
|---|
| 80 | DINIT00W ;;11855494
|
|---|
| 81 | DINIT00X ;;9838636
|
|---|
| 82 | DINIT00Y ;;8368445
|
|---|
| 83 | DINIT00Z ;;9947320
|
|---|
| 84 | DINIT010 ;;1380027
|
|---|
| 85 | DINIT011 ;;11943970
|
|---|
| 86 | DINIT012 ;;4026838
|
|---|
| 87 | DINIT013 ;;6100108
|
|---|
| 88 | DINIT02 ;;2462843
|
|---|
| 89 | DINIT07 ;;3740650
|
|---|
| 90 | DINIT08 ;;7989773
|
|---|
| 91 | DINIT0F0 ;;6212996
|
|---|
| 92 | DINIT0F1 ;;5527731
|
|---|
| 93 | DINIT0F2 ;;6166174
|
|---|
| 94 | DINIT0F3 ;;4903781
|
|---|
| 95 | DINIT0F4 ;;6382515
|
|---|
| 96 | DINIT0F5 ;;7697568
|
|---|
| 97 | DINIT0F6 ;;6316746
|
|---|
| 98 | DINIT0F7 ;;4711128
|
|---|
| 99 | DINIT0F8 ;;7102472
|
|---|
| 100 | DINIT0F9 ;;6185855
|
|---|
| 101 | DINIT0FA ;;7807085
|
|---|
| 102 | DINIT0FB ;;9020615
|
|---|
| 103 | DINIT0FC ;;5772591
|
|---|
| 104 | DINIT0FD ;;6456159
|
|---|
| 105 | DINIT0FE ;;5897346
|
|---|
| 106 | DINIT0FF ;;8836421
|
|---|
| 107 | DINIT0FG ;;8409070
|
|---|
| 108 | DINIT0FH ;;8855011
|
|---|
| 109 | DINIT0FI ;;5372744
|
|---|
| 110 | DINIT0FJ ;;5577122
|
|---|
| 111 | DINIT0FK ;;5843271
|
|---|
| 112 | DINIT0FL ;;9505191
|
|---|
| 113 | DINIT0FM ;;19265777
|
|---|
| 114 | DINIT0FN ;;11731152
|
|---|
| 115 | DINIT1 ;;6609056
|
|---|
| 116 | DINIT11 ;;7807097
|
|---|
| 117 | DINIT11A ;;9397074
|
|---|
| 118 | DINIT11B ;;3195420
|
|---|
| 119 | DINIT11C ;;6005195
|
|---|
| 120 | DINIT12 ;;8644619
|
|---|
| 121 | DINIT120 ;;13978285
|
|---|
| 122 | DINIT121 ;;13775662
|
|---|
| 123 | DINIT122 ;;14151880
|
|---|
| 124 | DINIT123 ;;15919572
|
|---|
| 125 | DINIT124 ;;18245323
|
|---|
| 126 | DINIT125 ;;14791473
|
|---|
| 127 | DINIT126 ;;14076027
|
|---|
| 128 | DINIT127 ;;1844442
|
|---|
| 129 | DINIT13 ;;6745649
|
|---|
| 130 | DINIT14 ;;3422144
|
|---|
| 131 | DINIT2 ;;729944
|
|---|
| 132 | DINIT20 ;;8343419
|
|---|
| 133 | DINIT21 ;;3404826
|
|---|
| 134 | DINIT22 ;;1548661
|
|---|
| 135 | DINIT220 ;;487349
|
|---|
| 136 | DINIT24 ;;11140614
|
|---|
| 137 | DINIT25 ;;8381842
|
|---|
| 138 | DINIT250 ;;4565635
|
|---|
| 139 | DINIT255 ;;3074177
|
|---|
| 140 | DINIT26 ;;7320579
|
|---|
| 141 | DINIT260 ;;7558780
|
|---|
| 142 | DINIT27 ;;8893587
|
|---|
