Return to DINTEG4.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DINTEG4.m, revision 1.1

1.1     ! snw         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