Return to DINTEG4.m CVS log

Up to [Coherent Logic Development] / freem_fileman / USER

Restructure repository

    1: DINTEG4	;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: 	;
    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: DIPKI009	;;8334011
   18: DIPKI00A	;;8305104
   19: DIPKI00B	;;6001022
   20: DIPKI00C	;;4378943
   21: DIPKI00D	;;802177
   22: DIPKI00E	;;3841062
   23: DIPKINI1	;;4282575
   24: DIPKINI2	;;5232585
   25: DIPKINI3	;;16806700
   26: DIPKINI4	;;3357757
   27: DIPKINI5	;;446749
   28: DIPKINIS	;;2210516
   29: DIPKINIT	;;10364554
   30: DIPT	;;9127950
   31: DIPZ	;;8349066
   32: DIPZ0	;;2495452
   33: DIPZ1	;;3058662
   34: DIPZ2	;;8696417
   35: DIQ	;;6607325
   36: DIQ1	;;4398976
   37: DIQG	;;11439696
   38: DIQGDD	;;7426471
   39: DIQGDD0	;;1846736
   40: DIQGDDT	;;7439422
   41: DIQGDDU	;;1298733
   42: DIQGQ	;;15365752
   43: DIQGU	;;4906837
   44: DIQGU0	;;3019674
   45: DIQQ	;;9990243
   46: DIQQ1	;;1235348
   47: DIQQQ	;;5024310
   48: DIR	;;8200401
   49: DIR0	;;5122108
   50: DIR01	;;4681732
   51: DIR02	;;2178268
   52: DIR03	;;4352430
   53: DIR0H	;;2000761
   54: DIR0K	;;1385205
   55: DIR0W	;;3089175
   56: DIR1	;;7620389
   57: DIR2	;;8922361
   58: DIR3	;;3582829
   59: DIRCR	;;3369745
   60: DIRQ	;;968045
   61: DIS	;;8071449
   62: DIS0	;;7360682
   63: DIS1	;;6004236
   64: DIS2	;;5717533
   65: DIS3	;;1548747
   66: DIT	;;9006532
   67: DIT0	;;2588866
   68: DIT1	;;7324106
   69: DIT2	;;2621259
   70: DIT3	;;5880904
   71: DITC	;;8730630
   72: DITC0	;;3191582
   73: DITC1	;;5739425
   74: DITC2	;;9411545
   75: DITC3	;;4586809
   76: DITM	;;3764313
   77: DITM1	;;3291696
   78: DITM2	;;4300014
   79: DITMGM1	;;3241730
   80: DITMGM2	;;3998925
   81: DITMGM2A	;;7225704
   82: DITMGM2B	;;3795853
   83: DITMGM2C	;;3479803
   84: DITMGMRG	;;4234244
   85: DITMGMRI	;;3560391
   86: DITMU1	;;267174
   87: DITMU2	;;1127015
   88: DITMU3	;;422892
   89: DITMU4	;;7174363
   90: DITP	;;6552936
   91: DITR	;;5643781
   92: DITR1	;;6414011
   93: DIU	;;4034034
   94: DIU0	;;6188632
   95: DIU1	;;7395199
   96: DIU2	;;5805915
   97: DIU21	;;6146003
   98: DIU3	;;5768668
   99: DIU31	;;9874154
  100: DIU4	;;5389344
  101: DIU5	;;251900
  102: DIV	;;3715836
  103: DIVR	;;6095014
  104: DIVRE	;;6418390
  105: DIVRE1	;;634136
  106: DIWE	;;6067379
  107: DIWE1	;;6185993
  108: DIWE11	;;4308475
  109: DIWE12	;;5577760
  110: DIWE2	;;6639751
  111: DIWE3	;;8633894
  112: DIWE4	;;9748975
  113: DIWE5	;;8399507
  114: DIWF	;;5538065
  115: DIWP	;;5103576
  116: DIWW	;;5725412
  117: DIX	;;2522654
  118: DIXC	;;4724715