Annotation of freem_fileman/DINTEG.m, revision 1.1
1.1 ! snw 1: DINTEG ;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^DINTEG1
! 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: DDBR ;;6656482
! 18: DDBR0 ;;5416202
! 19: DDBR1 ;;6994470
! 20: DDBR2 ;;6163949
! 21: DDBR3 ;;3667049
! 22: DDBR4 ;;2471318
! 23: DDBRGE ;;6779515
! 24: DDBRS ;;2651711
! 25: DDBRT ;;545522
! 26: DDBRU ;;4293844
! 27: DDBRU2 ;;6369140
! 28: DDBRZIS ;;1235043
! 29: DDGF ;;1882381
! 30: DDGF0 ;;4477329
! 31: DDGF1 ;;3080012
! 32: DDGF2 ;;4585362
! 33: DDGF3 ;;5347663
! 34: DDGF4 ;;2607874
! 35: DDGFADL ;;1121232
! 36: DDGFAPC ;;2980494
! 37: DDGFASUB ;;1650486
! 38: DDGFBK ;;4312844
! 39: DDGFBSEL ;;3244989
! 40: DDGFEL ;;5557457
! 41: DDGFFLD ;;3054325
! 42: DDGFFLDA ;;4410148
! 43: DDGFFM ;;3288743
! 44: DDGFH ;;240939
! 45: DDGFHBK ;;2815103
! 46: DDGFLOAD ;;3902698
! 47: DDGFORD ;;1345365
! 48: DDGFPG ;;6127977
! 49: DDGFSV ;;3315854
! 50: DDGFU ;;5078352
! 51: DDGFUPDB ;;1575190
! 52: DDGFUPDP ;;4297868
! 53: DDGLIB0 ;;9549853
! 54: DDGLIBH ;;5117670
! 55: DDGLIBW ;;4337005
! 56: DDGLIBW1 ;;2290469
! 57: DDIOL ;;1605858
! 58: DDMAP ;;9789930
! 59: DDMAP1 ;;11711835
! 60: DDMAP2 ;;7579160
! 61: DDS ;;5814424
! 62: DDS0 ;;3566448
! 63: DDS01 ;;6420175
! 64: DDS02 ;;3319070
! 65: DDS1 ;;4756070
! 66: DDS10 ;;2611728
! 67: DDS11 ;;6987462
! 68: DDS2 ;;8724593
! 69: DDS3 ;;1851493
! 70: DDS4 ;;4728317
! 71: DDS41 ;;6148926
! 72: DDS5 ;;3748023
! 73: DDS6 ;;3000113
! 74: DDS7 ;;4113826
! 75: DDSBOX ;;1558787
! 76: DDSCAP ;;814742
! 77: DDSCLONE ;;7839361
! 78: DDSCLONF ;;3063828
! 79: DDSCOM ;;2718993
! 80: DDSCOMP ;;2917663
! 81: DDSDBLK ;;3731849
! 82: DDSDEL ;;3237448
! 83: DDSDFRM ;;6758733
! 84: DDSFO ;;818960
! 85: DDSIT ;;758636
! 86: DDSLIB ;;3572314
! 87: DDSM ;;4207841
! 88: DDSM1 ;;1945642
! 89: DDSMSG ;;2481467
! 90: DDSOPT ;;388239
! 91: DDSPRNT ;;5807476
! 92: DDSPRNT1 ;;5755088
! 93: DDSPRNT2 ;;6371861
! 94: DDSPTR ;;5051244
! 95: DDSR ;;7658709
! 96: DDSR1 ;;1176619
! 97: DDSRSEL ;;2155464
! 98: DDSRUN ;;931423
! 99: DDSSTK ;;984511
! 100: DDSU ;;3929829
! 101: DDSUTL ;;3424694
! 102: DDSVAL ;;5793531
! 103: DDSVALF ;;7911395
! 104: DDSVALM ;;2353363
! 105: DDSWP ;;1727487
! 106: DDSZ ;;7533949
! 107: DDSZ1 ;;7045550
! 108: DDSZ2 ;;4151736
! 109: DDSZ3 ;;1057668
! 110: DDU ;;472706
! 111: DDUCHK ;;8257588
! 112: DDUCHK1 ;;9514982
! 113: DDUCHK2 ;;7981614
! 114: DDUCHK3 ;;6554582
! 115: DDW ;;3949746
! 116: DDW1 ;;3442094
! 117: DDW2 ;;2675168
! 118: DDW3 ;;7006195
! 119: DDW4 ;;3296631
! 120: DDW5 ;;4768415
! 121: DDW6 ;;5120328
! 122: DDW7 ;;2048152
! 123: DDW8 ;;4701532
! 124: DDW9 ;;4876814
! 125: DDWC ;;5373992
! 126: DDWC1 ;;2968865
! 127: DDWF ;;2289329
! 128: DDWG ;;3724454
! 129: DDWH ;;2072618
! 130: DDWK ;;785878
! 131: DDWT1 ;;4384411
! 132: DDXP ;;2355934
! 133: DDXP1 ;;8242677
! 134: DDXP2 ;;4539899
! 135: DDXP3 ;;6242061
! 136: DDXP31 ;;10768233
! 137: DDXP32 ;;4257847
! 138: DDXP33 ;;1616122
! 139: DDXP4 ;;7016440
! 140: DDXP41 ;;1471391
! 141: DDXP5 ;;883390
! 142: DDXPLIB ;;2740156
! 143: DI ;;385007
! 144: DIA ;;6481291
! 145: DIA1 ;;8353215
! 146: DIA2 ;;4082017
! 147: DIA3 ;;10625537
! 148: DIAC ;;959403
! 149: DIALOG ;;9961294
! 150: DIALOGU ;;1585021
! 151: DIAR ;;12160588
! 152: DIARA ;;14770992
! 153: DIARB ;;7839337
! 154: DIARCALC ;;1999709
! 155: DIARR ;;10340004
! 156: DIARR1 ;;10326725
! 157: DIARR2 ;;4740869
! 158: DIARR3 ;;10772756
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to DINTEG.m CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Coherent Logic Development] / freem_fileman