freem_fileman/USER/DINTEG1.m - view

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

Restructure repository

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