| 1 | DINTEG4 ;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^DINTEG5
|
|---|
| 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 | DINIT270 ;;8954842
|
|---|
| 18 | DINIT271 ;;4962636
|
|---|
| 19 | DINIT27A ;;4535134
|
|---|
| 20 | DINIT27B ;;3392667
|
|---|
| 21 | DINIT27C ;;3010708
|
|---|
| 22 | DINIT27D ;;3129310
|
|---|
| 23 | DINIT27E ;;2362322
|
|---|
| 24 | DINIT27F ;;7294806
|
|---|
| 25 | DINIT27G ;;7287275
|
|---|
| 26 | DINIT27H ;;991763
|
|---|
| 27 | DINIT27I ;;1784973
|
|---|
| 28 | DINIT27J ;;4891073
|
|---|
| 29 | DINIT27K ;;4910854
|
|---|
| 30 | DINIT28 ;;2224020
|
|---|
| 31 | DINIT285 ;;9217149
|
|---|
| 32 | DINIT286 ;;2757795
|
|---|
| 33 | DINIT287 ;;939077
|
|---|
| 34 | DINIT290 ;;12627486
|
|---|
| 35 | DINIT291 ;;12341008
|
|---|
| 36 | DINIT292 ;;16217546
|
|---|
| 37 | DINIT293 ;;12549234
|
|---|
| 38 | DINIT294 ;;10659059
|
|---|
| 39 | DINIT295 ;;14571752
|
|---|
| 40 | DINIT296 ;;15350237
|
|---|
| 41 | DINIT297 ;;14629146
|
|---|
| 42 | DINIT298 ;;13172471
|
|---|
| 43 | DINIT299 ;;4171222
|
|---|
| 44 | DINIT29P ;;1227629
|
|---|
| 45 | DINIT2A0 ;;14158575
|
|---|
| 46 | DINIT2A1 ;;13956613
|
|---|
| 47 | DINIT2A2 ;;12584241
|
|---|
| 48 | DINIT2A3 ;;14285423
|
|---|
| 49 | DINIT2A4 ;;2212843
|
|---|
| 50 | DINIT2A5 ;;13007561
|
|---|
| 51 | DINIT2A6 ;;1584040
|
|---|
| 52 | DINIT2AA ;;11408392
|
|---|
| 53 | DINIT2AB ;;1806296
|
|---|
| 54 | DINIT2AC ;;584349
|
|---|
| 55 | DINIT2B0 ;;2944946
|
|---|
| 56 | DINIT2B1 ;;1938633
|
|---|
| 57 | DINIT2B2 ;;4698975
|
|---|
| 58 | DINIT2B3 ;;9453897
|
|---|
| 59 | DINIT2B4 ;;2674007
|
|---|
| 60 | DINIT2B5 ;;3829788
|
|---|
| 61 | DINIT2B6 ;;3933969
|
|---|
| 62 | DINIT2B7 ;;7974587
|
|---|
| 63 | DINIT2B8 ;;4876657
|
|---|
| 64 | DINIT2B9 ;;9536397
|
|---|
| 65 | DINIT2BA ;;4224327
|
|---|
| 66 | DINIT2BB ;;7365189
|
|---|
| 67 | DINIT2BC ;;3580721
|
|---|
| 68 | DINIT2BD ;;1744928
|
|---|
| 69 | DINIT2BE ;;4515155
|
|---|
| 70 | DINIT2C0 ;;10313096
|
|---|
| 71 | DINIT3 ;;10198775
|
|---|
| 72 | DINIT4 ;;9010496
|
|---|
| 73 | DINIT41 ;;11669306
|
|---|
| 74 | DINIT42 ;;8202093
|
|---|
| 75 | DINIT5 ;;9815153
|
|---|
| 76 | DINIT6 ;;5517845
|
|---|
| 77 | DINITPST ;;230107
|
|---|
| 78 | DINV1DTM ;;1336349
|
|---|
| 79 | DINV1VXD ;;2355845
|
|---|
| 80 | DINVDTM ;;5506361
|
|---|
| 81 | DINVMSM ;;9845770
|
|---|
| 82 | DINVONT ;;5190925
|
|---|
| 83 | DINVVXD ;;7769546
|
|---|
| 84 | DINZDTM ;;6205637
|
|---|
| 85 | DINZMGR ;;8024981
|
|---|
| 86 | DINZMGR1 ;;5435949
|
|---|
| 87 | DINZMSM ;;3819112
|
|---|
| 88 | DINZONT ;;4158081
|
|---|
| 89 | DINZVXD ;;3949461
|
|---|
| 90 | DIO ;;7212010
|
|---|
| 91 | DIO0 ;;9418636
|
|---|
| 92 | DIO1 ;;6789778
|
|---|
| 93 | DIO2 ;;4090173
|
|---|
| 94 | DIO3 ;;4969134
|
|---|
| 95 | DIO4 ;;6003254
|
|---|
| 96 | DIOC ;;906643
|
|---|
| 97 | DIOQ ;;935142
|
|---|
| 98 | DIOS ;;7143993
|
|---|
| 99 | DIOS1 ;;1190642
|
|---|
| 100 | DIOU ;;5001668
|
|---|
| 101 | DIOZ ;;5699472
|
|---|
| 102 | DIP ;;12986358
|
|---|
| 103 | DIP0 ;;10722447
|
|---|
| 104 | DIP1 ;;9773580
|
|---|
| 105 | DIP10 ;;5293036
|
|---|
| 106 | DIP100 ;;9375337
|
|---|
| 107 | DIP11 ;;8935890
|
|---|
| 108 | DIP12 ;;4793661
|
|---|
| 109 | DIP2 ;;8015552
|
|---|
| 110 | DIP21 ;;12760477
|
|---|
| 111 | DIP22 ;;6717942
|
|---|
| 112 | DIP23 ;;467210
|
|---|
| 113 | DIP3 ;;10828796
|
|---|
| 114 | DIP31 ;;1504438
|
|---|
| 115 | DIP4 ;;3001858
|
|---|
| 116 | DIP5 ;;10818616
|
|---|
| 117 | DIPKI001 ;;11994951
|
|---|
| 118 | DIPKI002 ;;13583361
|
|---|
| 119 | DIPKI003 ;;16344686
|
|---|
| 120 | DIPKI004 ;;9299430
|
|---|
| 121 | DIPKI005 ;;12415096
|
|---|
| 122 | DIPKI006 ;;12648954
|
|---|
| 123 | DIPKI007 ;;11376629
|
|---|
| 124 | DIPKI008 ;;9312880
|
|---|
| 125 | DIPKI009 ;;1334837
|
|---|
| 126 | DIPKI00A ;;802153
|
|---|
| 127 | DIPKI00B ;;1691482
|
|---|
| 128 | DIPKINI1 ;;4282951
|
|---|
| 129 | DIPKINI2 ;;5232585
|
|---|
| 130 | DIPKINI3 ;;16994134
|
|---|
| 131 | DIPKINI4 ;;3363697
|
|---|
| 132 | DIPKINI5 ;;446749
|
|---|
| 133 | DIPKINIS ;;2210516
|
|---|
| 134 | DIPKINIT ;;10363975
|
|---|
| 135 | DIPT ;;9409778
|
|---|
| 136 | DIPTED ;;11871501
|
|---|
| 137 | DIPZ ;;8356691
|
|---|
| 138 | DIPZ0 ;;2524580
|
|---|
| 139 | DIPZ1 ;;3058662
|
|---|
| 140 | DIPZ2 ;;7970549
|
|---|
| 141 | DIQ ;;9758667
|
|---|
| 142 | DIQ1 ;;4399041
|
|---|
| 143 | DIQG ;;11168657
|
|---|
| 144 | DIQGDD ;;6585703
|
|---|
