Return to DINTEG2.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DINTEG2.m, revision 1.1

1.1     ! snw         1: DINTEG2        ;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^DINTEG3
        !             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: DIFGGU ;;5525512
        !            18: DIFGO  ;;3849638
        !            19: DIFGSRV        ;;1145738
        !            20: DIFROM ;;11038655
        !            21: DIFROM0        ;;9100392
        !            22: DIFROM1        ;;9679123
        !            23: DIFROM11       ;;8986254
        !            24: DIFROM12       ;;6395291
        !            25: DIFROM2        ;;6822749
        !            26: DIFROM3        ;;7863608
        !            27: DIFROM4        ;;3939991
        !            28: DIFROM41       ;;14320255
        !            29: DIFROM42       ;;3811931
        !            30: DIFROM5        ;;13318228
        !            31: DIFROM6        ;;8014990
        !            32: DIFROM7        ;;5693246
        !            33: DIFROMH        ;;8812360
        !            34: DIFROMH1       ;;7701962
        !            35: DIFROMS        ;;1725573
        !            36: DIFROMS1       ;;5768831
        !            37: DIFROMS2       ;;6190772
        !            38: DIFROMS3       ;;7300037
        !            39: DIFROMS4       ;;4240259
        !            40: DIFROMS5       ;;3415060
        !            41: DIFROMS6       ;;868273
        !            42: DIFROMSB       ;;1316407
        !            43: DIFROMSC       ;;1542160
        !            44: DIFROMSD       ;;3803374
        !            45: DIFROMSE       ;;5059847
        !            46: DIFROMSF       ;;8096661
        !            47: DIFROMSI       ;;8134488
        !            48: DIFROMSK       ;;1421979
        !            49: DIFROMSL       ;;371524
        !            50: DIFROMSO       ;;1847867
        !            51: DIFROMSP       ;;6888702
        !            52: DIFROMSR       ;;4646734
        !            53: DIFROMSS       ;;3496020
        !            54: DIFROMSU       ;;5168157
        !            55: DIFROMSV       ;;89285
        !            56: DIG    ;;6265281
        !            57: DIH    ;;4688941
        !            58: DII    ;;6413260
        !            59: DII1   ;;455555
        !            60: DIINI001       ;;7758746
        !            61: DIINI002       ;;7185246
        !            62: DIINI003       ;;9033478
        !            63: DIINI004       ;;7890739
        !            64: DIINI005       ;;6512960
        !            65: DIINI006       ;;8018142
        !            66: DIINI007       ;;8798951
        !            67: DIINI008       ;;7232119
        !            68: DIINI009       ;;8236800
        !            69: DIINI00A       ;;4880814
        !            70: DIINIS ;;2127703
        !            71: DIINIT ;;10268911
        !            72: DIINIT1        ;;4312623
        !            73: DIINIT2        ;;5232051
        !            74: DIINIT3        ;;16801795
        !            75: DIINIT4        ;;3357221
        !            76: DIINIT5        ;;364747
        !            77: DIIS   ;;374782
        !            78: DIISS  ;;2408793
        !            79: DIK    ;;7325945
        !            80: DIK1   ;;5820262
        !            81: DIKZ   ;;9722227
        !            82: DIKZ0  ;;5940541
        !            83: DIKZ1  ;;8933794
        !            84: DIKZ11 ;;4558086
        !            85: DIKZ2  ;;5230837
        !            86: DIL    ;;6332887
        !            87: DIL0   ;;5148814
        !            88: DIL1   ;;6752508
        !            89: DIL11  ;;5151125
        !            90: DIL2   ;;9065502
        !            91: DILF   ;;1129307
        !            92: DILFD  ;;231253
        !            93: DILIBF ;;6348908
        !            94: DILL   ;;6076491
        !            95: DIM    ;;2096545
        !            96: DIM1   ;;7391479
        !            97: DIM2   ;;4847408
        !            98: DIM3   ;;4724114
        !            99: DIM4   ;;3593321
        !           100: DINIT  ;;14307293
        !           101: DINIT0 ;;5228258
        !           102: DINIT001       ;;9222884
        !           103: DINIT002       ;;9770143
        !           104: DINIT003       ;;9283558
        !           105: DINIT004       ;;7878368
        !           106: DINIT005       ;;7116172
        !           107: DINIT006       ;;7804999
        !           108: DINIT007       ;;7371481
        !           109: DINIT008       ;;7455825
        !           110: DINIT009       ;;7710262
        !           111: DINIT00A       ;;7298150
        !           112: DINIT00B       ;;6817873
        !           113: DINIT00C       ;;7474896
        !           114: DINIT00D       ;;6215508
        !           115: DINIT00E       ;;6203285
        !           116: DINIT00F       ;;6944836
        !           117: DINIT00G       ;;6618387
        !           118: DINIT00H       ;;7525400
        !           119: DINIT00I       ;;7064051
        !           120: DINIT00J       ;;6340692
        !           121: DINIT00K       ;;6814146
        !           122: DINIT00L       ;;4996601
        !           123: DINIT00M       ;;4988352
        !           124: DINIT00N       ;;4358748
        !           125: DINIT00O       ;;5099250
        !           126: DINIT00P       ;;7094936
        !           127: DINIT00Q       ;;7854917
        !           128: DINIT00R       ;;6685186
        !           129: DINIT00S       ;;6285951
        !           130: DINIT00T       ;;6976234
        !           131: DINIT00U       ;;6454261
        !           132: DINIT00V       ;;10494647
        !           133: DINIT00W       ;;10423570
        !           134: DINIT00X       ;;7260573
        !           135: DINIT00Y       ;;6362756
        !           136: DINIT00Z       ;;7186746
        !           137: DINIT010       ;;8406869
        !           138: DINIT011       ;;8500074
        !           139: DINIT012       ;;7486356
        !           140: DINIT013       ;;6313482
        !           141: DINIT014       ;;6116898
        !           142: DINIT015       ;;5524998
        !           143: DINIT016       ;;1335499
        !           144: DINIT017       ;;8281492
        !           145: DINIT018       ;;6764686
        !           146: DINIT019       ;;3674630