Return to DINTEG.m CVS log

Up to [Coherent Logic Development] / freem_fileman / USER

Restructure repository

DINTEG	;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^DINTEG1
	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	;;
DDBR	;;6656482
DDBR0	;;5416202
DDBR1	;;6994470
DDBR2	;;6163949
DDBR3	;;3667049
DDBR4	;;2471318
DDBRGE	;;6779515
DDBRS	;;2651711
DDBRT	;;545522
DDBRU	;;4293844
DDBRU2	;;6369140
DDBRZIS	;;1235043
DDGF	;;1882381
DDGF0	;;4477329
DDGF1	;;3080012
DDGF2	;;4585362
DDGF3	;;5347663
DDGF4	;;2607874
DDGFADL	;;1121232
DDGFAPC	;;2980494
DDGFASUB	;;1650486
DDGFBK	;;4312844
DDGFBSEL	;;3244989
DDGFEL	;;5557457
DDGFFLD	;;3054325
DDGFFLDA	;;4410148
DDGFFM	;;3288743
DDGFH	;;240939
DDGFHBK	;;2815103
DDGFLOAD	;;3902698
DDGFORD	;;1345365
DDGFPG	;;6127977
DDGFSV	;;3315854
DDGFU	;;5078352
DDGFUPDB	;;1575190
DDGFUPDP	;;4297868
DDGLIB0	;;9549853
DDGLIBH	;;5117670
DDGLIBW	;;4337005
DDGLIBW1	;;2290469
DDIOL	;;1605858
DDMAP	;;9789930
DDMAP1	;;11711835
DDMAP2	;;7579160
DDS	;;5814424
DDS0	;;3566448
DDS01	;;6420175
DDS02	;;3319070
DDS1	;;4756070
DDS10	;;2611728
DDS11	;;6987462
DDS2	;;8724593
DDS3	;;1851493
DDS4	;;4728317
DDS41	;;6148926
DDS5	;;3748023
DDS6	;;3000113
DDS7	;;4113826
DDSBOX	;;1558787
DDSCAP	;;814742
DDSCLONE	;;7839361
DDSCLONF	;;3063828
DDSCOM	;;2718993
DDSCOMP	;;2917663
DDSDBLK	;;3731849
DDSDEL	;;3237448
DDSDFRM	;;6758733
DDSFO	;;818960
DDSIT	;;758636
DDSLIB	;;3572314
DDSM	;;4207841
DDSM1	;;1945642
DDSMSG	;;2481467
DDSOPT	;;388239
DDSPRNT	;;5807476
DDSPRNT1	;;5755088
DDSPRNT2	;;6371861
DDSPTR	;;5051244
DDSR	;;7658709
DDSR1	;;1176619
DDSRSEL	;;2155464
DDSRUN	;;931423
DDSSTK	;;984511
DDSU	;;3929829
DDSUTL	;;3424694
DDSVAL	;;5793531
DDSVALF	;;7911395
DDSVALM	;;2353363
DDSWP	;;1727487
DDSZ	;;7533949
DDSZ1	;;7045550
DDSZ2	;;4151736
DDSZ3	;;1057668
DDU	;;472706
DDUCHK	;;8257588
DDUCHK1	;;9514982
DDUCHK2	;;7981614
DDUCHK3	;;6554582
DDW	;;3949746
DDW1	;;3442094
DDW2	;;2675168
DDW3	;;7006195
DDW4	;;3296631
DDW5	;;4768415
DDW6	;;5120328
DDW7	;;2048152
DDW8	;;4701532
DDW9	;;4876814
DDWC	;;5373992
DDWC1	;;2968865
DDWF	;;2289329
DDWG	;;3724454
DDWH	;;2072618
DDWK	;;785878
DDWT1	;;4384411
DDXP	;;2355934
DDXP1	;;8242677
DDXP2	;;4539899
DDXP3	;;6242061
DDXP31	;;10768233
DDXP32	;;4257847
DDXP33	;;1616122
DDXP4	;;7016440
DDXP41	;;1471391
DDXP5	;;883390
DDXPLIB	;;2740156
DI	;;385007
DIA	;;6481291
DIA1	;;8353215
DIA2	;;4082017
DIA3	;;10625537
DIAC	;;959403
DIALOG	;;9961294
DIALOGU	;;1585021
DIAR	;;12160588
DIARA	;;14770992
DIARB	;;7839337
DIARCALC	;;1999709
DIARR	;;10340004
DIARR1	;;10326725
DIARR2	;;4740869
DIARR3	;;10772756