freem_fileman/USER/DINTEG.m - view

File: [Coherent Logic Development] / freem_fileman / USER / DINTEG.m
Revision 1.1: download - view: text, annotated - select for diffs
Mon Apr 28 14:13:21 2025 UTC (5 weeks, 5 days ago) by snw
Branches: MAIN
CVS tags: HEAD

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