Return to DINTEG4.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DINTEG4.m, revision 1.1.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