Return to DINTEG4.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Initial revision

DINTEG4	;SFISC/dizSUM FILEMAN-FileMan checksum checker ;DEC 28, 1994@11:30:03
	;;21.0;VA FileMan;;Dec 28, 1994;
	;Per VHA Directive 10-93-142, this routine should not be modified.
	S DIZ4="I 1" D DSP,INI
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")
	;
	S X="" F  S X=$O(^UTILITY($J,X)) Q:X=""  W !,X,?10,"not a routine in this INTEGRITY checker"
	K D,D1,D2,D3,X,Y,DIZ,DIZ1,DIZ2,DIZ3,DIZ4,DIZ5,DIZ6,DIZTEST,DIZSUM,DISYS,DIZSEL,^UTILITY($J) Q
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)=""""")
	S DIZ4="I $D(^UTILITY($J,X)) K ^(X)" D DSP
	W !,"Check a subset of routines:" K ^UTILITY($J) X DIZSEL
	W ! G CONT
DSP	S X=$T(+2) W !!,"Checksum routine created on "_$P(X,";",6)_" by "_$P(X,";",4)_" V"_$P(X,";",3) Q
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"
	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
ROU	;;
DIPKI009	;;8334011
DIPKI00A	;;8305104
DIPKI00B	;;6001022
DIPKI00C	;;4378943
DIPKI00D	;;802177
DIPKI00E	;;3841062
DIPKINI1	;;4282575
DIPKINI2	;;5232585
DIPKINI3	;;16806700
DIPKINI4	;;3357757
DIPKINI5	;;446749
DIPKINIS	;;2210516
DIPKINIT	;;10364554
DIPT	;;9127950
DIPZ	;;8349066
DIPZ0	;;2495452
DIPZ1	;;3058662
DIPZ2	;;8696417
DIQ	;;6607325
DIQ1	;;4398976
DIQG	;;11439696
DIQGDD	;;7426471
DIQGDD0	;;1846736
DIQGDDT	;;7439422
DIQGDDU	;;1298733
DIQGQ	;;15365752
DIQGU	;;4906837
DIQGU0	;;3019674
DIQQ	;;9990243
DIQQ1	;;1235348
DIQQQ	;;5024310
DIR	;;8200401
DIR0	;;5122108
DIR01	;;4681732
DIR02	;;2178268
DIR03	;;4352430
DIR0H	;;2000761
DIR0K	;;1385205
DIR0W	;;3089175
DIR1	;;7620389
DIR2	;;8922361
DIR3	;;3582829
DIRCR	;;3369745
DIRQ	;;968045
DIS	;;8071449
DIS0	;;7360682
DIS1	;;6004236
DIS2	;;5717533
DIS3	;;1548747
DIT	;;9006532
DIT0	;;2588866
DIT1	;;7324106
DIT2	;;2621259
DIT3	;;5880904
DITC	;;8730630
DITC0	;;3191582
DITC1	;;5739425
DITC2	;;9411545
DITC3	;;4586809
DITM	;;3764313
DITM1	;;3291696
DITM2	;;4300014
DITMGM1	;;3241730
DITMGM2	;;3998925
DITMGM2A	;;7225704
DITMGM2B	;;3795853
DITMGM2C	;;3479803
DITMGMRG	;;4234244
DITMGMRI	;;3560391
DITMU1	;;267174
DITMU2	;;1127015
DITMU3	;;422892
DITMU4	;;7174363
DITP	;;6552936
DITR	;;5643781
DITR1	;;6414011
DIU	;;4034034
DIU0	;;6188632
DIU1	;;7395199
DIU2	;;5805915
DIU21	;;6146003
DIU3	;;5768668
DIU31	;;9874154
DIU4	;;5389344
DIU5	;;251900
DIV	;;3715836
DIVR	;;6095014
DIVRE	;;6418390
DIVRE1	;;634136
DIWE	;;6067379
DIWE1	;;6185993
DIWE11	;;4308475
DIWE12	;;5577760
DIWE2	;;6639751
DIWE3	;;8633894
DIWE4	;;9748975
DIWE5	;;8399507
DIWF	;;5538065
DIWP	;;5103576
DIWW	;;5725412
DIX	;;2522654
DIXC	;;4724715