Return to DINTEG1.m CVS log

Up to [Coherent Logic Development] / freem_fileman / USER

Restructure repository

    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