Annotation of freem_fileman/DINTEG3.m, revision 1.1
1.1 ! snw 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
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to DINTEG3.m CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Coherent Logic Development] / freem_fileman