Return to DINTEG3.m CVS log

Up to [Coherent Logic Development] / freem_fileman / USER

Restructure repository

    1: DINTEG3	;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^DINTEG4
    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: DINIT02	;;2462683
   18: DINIT03	;;2421273
   19: DINIT04	;;3697957
   20: DINIT05	;;1825546
   21: DINIT06	;;1001974
   22: DINIT07	;;3740650
   23: DINIT08	;;7989773
   24: DINIT0F0	;;4401468
   25: DINIT0F1	;;2844141
   26: DINIT0F2	;;5669730
   27: DINIT0F3	;;6115371
   28: DINIT0F4	;;5916366
   29: DINIT0F5	;;4792287
   30: DINIT0F6	;;3822369
   31: DINIT0F7	;;3809021
   32: DINIT0F8	;;3681049
   33: DINIT0F9	;;2083336
   34: DINIT1	;;6609056
   35: DINIT11	;;7807097
   36: DINIT11A	;;9392153
   37: DINIT11B	;;3195420
   38: DINIT11C	;;6005195
   39: DINIT12	;;9306353
   40: DINIT120	;;8317853
   41: DINIT121	;;10875848
   42: DINIT122	;;10992491
   43: DINIT123	;;11544691
   44: DINIT124	;;12338353
   45: DINIT125	;;10484654
   46: DINIT126	;;10127786
   47: DINIT127	;;8335195
   48: DINIT13	;;10341008
   49: DINIT14	;;3422144
   50: DINIT2	;;729944
   51: DINIT20	;;5340670
   52: DINIT21	;;3491420
   53: DINIT22	;;1548661
   54: DINIT220	;;487349
   55: DINIT24	;;11140614
   56: DINIT25	;;8381842
   57: DINIT250	;;4565635
   58: DINIT255	;;3074177
   59: DINIT26	;;7320579
   60: DINIT260	;;7558780
   61: DINIT27	;;8893587
   62: DINIT270	;;8954842
   63: DINIT271	;;4962636
   64: DINIT27A	;;4535134
   65: DINIT27B	;;3392667
   66: DINIT27C	;;3010708
   67: DINIT27D	;;3129310
   68: DINIT27E	;;2362322
   69: DINIT27F	;;7294806
   70: DINIT27G	;;7287275
   71: DINIT27H	;;991763
   72: DINIT27I	;;1784973
   73: DINIT27J	;;4891073
   74: DINIT27K	;;4910854
   75: DINIT27L	;;2952488
   76: DINIT28	;;2224020
   77: DINIT285	;;9217149
   78: DINIT286	;;2757795
   79: DINIT287	;;939077
   80: DINIT290	;;9040841
   81: DINIT291	;;8374884
   82: DINIT292	;;8869220
   83: DINIT293	;;11561311
   84: DINIT294	;;8359242
   85: DINIT295	;;10019078
   86: DINIT296	;;9334293
   87: DINIT297	;;1310471
   88: DINIT298	;;9267752
   89: DINIT299	;;11066049
   90: DINIT29A	;;11649557
   91: DINIT29B	;;9992422
   92: DINIT29C	;;10380082
   93: DINIT29D	;;8208281
   94: DINIT29E	;;2998981
   95: DINIT29P	;;1161392
   96: DINIT3	;;9096420
   97: DINIT4	;;9010496
   98: DINIT41	;;11669306
   99: DINIT42	;;8065804
  100: DINIT5	;;9581562
  101: DINIT6	;;3176942
  102: DINITPST	;;118426
  103: DINV1DTM	;;1497765
  104: DINV1VXD	;;2343090
  105: DINVDTM	;;6129007
  106: DINVMSM	;;8405664
  107: DINVVXD	;;6649372
  108: DINZDTM	;;6206888
  109: DINZMGR	;;8170762
  110: DINZMGR1	;;5426403
  111: DINZMSM	;;3819112
  112: DINZVXD	;;4163974
  113: DIO	;;7212010
  114: DIO0	;;9337666
  115: DIO1	;;6789778
  116: DIO2	;;4090173
  117: DIO3	;;4969134
  118: DIO4	;;5969086
  119: DIOC	;;906643
  120: DIOQ	;;951380
  121: DIOS	;;7207594
  122: DIOS1	;;1190642
  123: DIOU	;;4893133
  124: DIOZ	;;5699472
  125: DIP	;;10842684
  126: DIP0	;;9017625
  127: DIP1	;;9630060
  128: DIP10	;;5485584
  129: DIP11	;;8098143
  130: DIP12	;;5158083
  131: DIP2	;;8015552
  132: DIP21	;;12550282
  133: DIP22	;;6639498
  134: DIP23	;;467210
  135: DIP3	;;10660874
  136: DIP31	;;1492535
  137: DIP4	;;2871248
  138: DIP5	;;9722926
  139: DIPKI001	;;8527821
  140: DIPKI002	;;8311211
  141: DIPKI003	;;10161905
  142: DIPKI004	;;11066884
  143: DIPKI005	;;9699423
  144: DIPKI006	;;7153468
  145: DIPKI007	;;8930731
  146: DIPKI008	;;8606961