Return to DINTEG1.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Initial revision

DINTEG1	;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")
	G CONT^DINTEG2
	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	;;
DIARR4	;;4010759
DIARR5	;;5439123
DIARR6	;;5070511
DIARU	;;14044819
DIARX	;;8134238
DIAU	;;6095280
DIAX	;;7377151
DIAXERR	;;2053556
DIAXG	;;1267519
DIAXG1	;;7996370
DIAXG2	;;3197219
DIAXGI	;;5956398
DIAXGU	;;2267957
DIAXM	;;9420934
DIAXM1	;;4345149
DIAXM2	;;8396635
DIAXM3	;;5623823
DIAXMS	;;7778891
DIAXU	;;4749815
DIAXU1	;;4154353
DIAXU2	;;1494240
DIAXU3	;;2533149
DIB	;;7193228
DIBT	;;9013461
DIBT1	;;7178879
DIC	;;9799355
DIC1	;;7157061
DIC2	;;3386307
DICA	;;4983313
DICA1	;;4452180
DICA2	;;3685071
DICA3	;;1548694
DICATT	;;6265805
DICATT0	;;7932864
DICATT1	;;6222908
DICATT2	;;9604401
DICATT22	;;7969359
DICATT3	;;6166227
DICATT4	;;10657620
DICATT5	;;6797753
DICATT6	;;5640525
DICATTA	;;6837632
DICD	;;9944972
DICE	;;11062736
DICE0	;;7809447
DICE1	;;5929202
DICE2	;;9103183
DICE3	;;1063202
DICE4	;;7914237
DICE7	;;7414372
DICF	;;6837157
DICF1	;;5555141
DICF2	;;5350507
DICF3	;;6340984
DICF4	;;3617198
DICF5	;;2906278
DICF6	;;876049
DICL	;;4413233
DICL1	;;2485213
DICL2	;;6137651
DICL3	;;3930489
DICLIB	;;471121
DICM	;;8204058
DICM0	;;4884024
DICM1	;;5299460
DICM2	;;6920486
DICM3	;;4620259
DICN	;;7476828
DICN1	;;7148963
DICOMP	;;5808899
DICOMP0	;;9824026
DICOMP1	;;6095234
DICOMPV	;;7164570
DICOMPW	;;8864346
DICOMPX	;;3752529
DICOMPY	;;6302870
DICOMPZ	;;8915237
DICQ	;;8535882
DICQ1	;;5481016
DICR	;;3769352
DICRW	;;6500587
DICRW1	;;1020868
DICU	;;2626995
DICU1	;;4570410
DICU2	;;1979705
DID	;;9150099
DID1	;;9878801
DID2	;;10525120
DIDC	;;8081975
DIDG	;;5459532
DIDH	;;6400533
DIDH1	;;9224809
DIDT	;;6670456
DIDTC	;;7237147
DIDU	;;5971833
DIDU1	;;1818582
DIDU2	;;3625878
DIDX	;;8293948
DIE	;;9505864
DIE0	;;4635966
DIE1	;;6179725
DIE17	;;6822014
DIE2	;;5770548
DIE3	;;4863655
DIE9	;;5112765
DIED	;;6239632
DIEF	;;6851994
DIEF1	;;4030819
DIEFU	;;4587189
DIEFW	;;3026875
DIEH	;;6060388
DIEH1	;;1151210
DIEQ	;;5172657
DIEQ1	;;1766980
DIET	;;5241814
DIEV	;;9085395
DIEV1	;;4308402
DIEZ	;;8995968
DIEZ0	;;9127230
DIEZ1	;;7548083
DIEZ2	;;7389106
DIFG	;;9615801
DIFG0	;;9271581
DIFG0A	;;5263645
DIFG0B	;;3277889
DIFG1	;;6466432
DIFG2	;;6268614
DIFG3	;;11191749
DIFG3A	;;5426591
DIFG4	;;11076453
DIFG4A	;;4158452
DIFG5	;;11716060
DIFG6	;;12531183
DIFG7	;;3294917
DIFGA	;;10149588
DIFGA1	;;1672112
DIFGB	;;7763085
DIFGG	;;5089070
DIFGG2	;;9806486
DIFGG4	;;5207113
DIFGGI	;;5710645
DIFGGSB	;;483886
DIFGGSB1	;;7045792
DIFGGSB2	;;5150555