Annotation of freem_fileman/DINTEG1.m, revision 1.1
1.1 ! snw 1: DINTEG1 ;SFISC/dizSUM FILEMAN-FileMan checksum checker ;DEC 28, 1994@11:30:03
! 2: ;;21.0;VA FileMan;;Dec 28, 1994;
! 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^DINTEG2
! 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 $D(^ (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: DIARR4 ;;4010759
! 18: DIARR5 ;;5439123
! 19: DIARR6 ;;5070511
! 20: DIARU ;;14044819
! 21: DIARX ;;8134238
! 22: DIAU ;;6095280
! 23: DIAX ;;7377151
! 24: DIAXERR ;;2053556
! 25: DIAXG ;;1267519
! 26: DIAXG1 ;;7996370
! 27: DIAXG2 ;;3197219
! 28: DIAXGI ;;5956398
! 29: DIAXGU ;;2267957
! 30: DIAXM ;;9420934
! 31: DIAXM1 ;;4345149
! 32: DIAXM2 ;;8396635
! 33: DIAXM3 ;;5623823
! 34: DIAXMS ;;7778891
! 35: DIAXU ;;4749815
! 36: DIAXU1 ;;4154353
! 37: DIAXU2 ;;1494240
! 38: DIAXU3 ;;2533149
! 39: DIB ;;7193228
! 40: DIBT ;;9013461
! 41: DIBT1 ;;7178879
! 42: DIC ;;9799355
! 43: DIC1 ;;7157061
! 44: DIC2 ;;3386307
! 45: DICA ;;4983313
! 46: DICA1 ;;4452180
! 47: DICA2 ;;3685071
! 48: DICA3 ;;1548694
! 49: DICATT ;;6265805
! 50: DICATT0 ;;7932864
! 51: DICATT1 ;;6222908
! 52: DICATT2 ;;9604401
! 53: DICATT22 ;;7969359
! 54: DICATT3 ;;6166227
! 55: DICATT4 ;;10657620
! 56: DICATT5 ;;6797753
! 57: DICATT6 ;;5640525
! 58: DICATTA ;;6837632
! 59: DICD ;;9944972
! 60: DICE ;;11062736
! 61: DICE0 ;;7809447
! 62: DICE1 ;;5929202
! 63: DICE2 ;;9103183
! 64: DICE3 ;;1063202
! 65: DICE4 ;;7914237
! 66: DICE7 ;;7414372
! 67: DICF ;;6837157
! 68: DICF1 ;;5555141
! 69: DICF2 ;;5350507
! 70: DICF3 ;;6340984
! 71: DICF4 ;;3617198
! 72: DICF5 ;;2906278
! 73: DICF6 ;;876049
! 74: DICL ;;4413233
! 75: DICL1 ;;2485213
! 76: DICL2 ;;6137651
! 77: DICL3 ;;3930489
! 78: DICLIB ;;471121
! 79: DICM ;;8204058
! 80: DICM0 ;;4884024
! 81: DICM1 ;;5299460
! 82: DICM2 ;;6920486
! 83: DICM3 ;;4620259
! 84: DICN ;;7476828
! 85: DICN1 ;;7148963
! 86: DICOMP ;;5808899
! 87: DICOMP0 ;;9824026
! 88: DICOMP1 ;;6095234
! 89: DICOMPV ;;7164570
! 90: DICOMPW ;;8864346
! 91: DICOMPX ;;3752529
! 92: DICOMPY ;;6302870
! 93: DICOMPZ ;;8915237
! 94: DICQ ;;8535882
! 95: DICQ1 ;;5481016
! 96: DICR ;;3769352
! 97: DICRW ;;6500587
! 98: DICRW1 ;;1020868
! 99: DICU ;;2626995
! 100: DICU1 ;;4570410
! 101: DICU2 ;;1979705
! 102: DID ;;9150099
! 103: DID1 ;;9878801
! 104: DID2 ;;10525120
! 105: DIDC ;;8081975
! 106: DIDG ;;5459532
! 107: DIDH ;;6400533
! 108: DIDH1 ;;9224809
! 109: DIDT ;;6670456
! 110: DIDTC ;;7237147
! 111: DIDU ;;5971833
! 112: DIDU1 ;;1818582
! 113: DIDU2 ;;3625878
! 114: DIDX ;;8293948
! 115: DIE ;;9505864
! 116: DIE0 ;;4635966
! 117: DIE1 ;;6179725
! 118: DIE17 ;;6822014
! 119: DIE2 ;;5770548
! 120: DIE3 ;;4863655
! 121: DIE9 ;;5112765
! 122: DIED ;;6239632
! 123: DIEF ;;6851994
! 124: DIEF1 ;;4030819
! 125: DIEFU ;;4587189
! 126: DIEFW ;;3026875
! 127: DIEH ;;6060388
! 128: DIEH1 ;;1151210
! 129: DIEQ ;;5172657
! 130: DIEQ1 ;;1766980
! 131: DIET ;;5241814
! 132: DIEV ;;9085395
! 133: DIEV1 ;;4308402
! 134: DIEZ ;;8995968
! 135: DIEZ0 ;;9127230
! 136: DIEZ1 ;;7548083
! 137: DIEZ2 ;;7389106
! 138: DIFG ;;9615801
! 139: DIFG0 ;;9271581
! 140: DIFG0A ;;5263645
! 141: DIFG0B ;;3277889
! 142: DIFG1 ;;6466432
! 143: DIFG2 ;;6268614
! 144: DIFG3 ;;11191749
! 145: DIFG3A ;;5426591
! 146: DIFG4 ;;11076453
! 147: DIFG4A ;;4158452
! 148: DIFG5 ;;11716060
! 149: DIFG6 ;;12531183
! 150: DIFG7 ;;3294917
! 151: DIFGA ;;10149588
! 152: DIFGA1 ;;1672112
! 153: DIFGB ;;7763085
! 154: DIFGG ;;5089070
! 155: DIFGG2 ;;9806486
! 156: DIFGG4 ;;5207113
! 157: DIFGGI ;;5710645
! 158: DIFGGSB ;;483886
! 159: DIFGGSB1 ;;7045792
! 160: DIFGGSB2 ;;5150555
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to DINTEG1.m CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Coherent Logic Development] / freem_fileman