Return to DINTEG.m CVS log

Up to [Coherent Logic Development] / freem_fileman / USER

Restructure repository

    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