freem_fileman/USER/DINTEG3.m - view

File: [Coherent Logic Development] / freem_fileman / USER / DINTEG3.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

DINTEG3 ;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^DINTEG4 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 ;; DINIT02 ;;2462683 DINIT03 ;;2421273 DINIT04 ;;3697957 DINIT05 ;;1825546 DINIT06 ;;1001974 DINIT07 ;;3740650 DINIT08 ;;7989773 DINIT0F0 ;;4401468 DINIT0F1 ;;2844141 DINIT0F2 ;;5669730 DINIT0F3 ;;6115371 DINIT0F4 ;;5916366 DINIT0F5 ;;4792287 DINIT0F6 ;;3822369 DINIT0F7 ;;3809021 DINIT0F8 ;;3681049 DINIT0F9 ;;2083336 DINIT1 ;;6609056 DINIT11 ;;7807097 DINIT11A ;;9392153 DINIT11B ;;3195420 DINIT11C ;;6005195 DINIT12 ;;9306353 DINIT120 ;;8317853 DINIT121 ;;10875848 DINIT122 ;;10992491 DINIT123 ;;11544691 DINIT124 ;;12338353 DINIT125 ;;10484654 DINIT126 ;;10127786 DINIT127 ;;8335195 DINIT13 ;;10341008 DINIT14 ;;3422144 DINIT2 ;;729944 DINIT20 ;;5340670 DINIT21 ;;3491420 DINIT22 ;;1548661 DINIT220 ;;487349 DINIT24 ;;11140614 DINIT25 ;;8381842 DINIT250 ;;4565635 DINIT255 ;;3074177 DINIT26 ;;7320579 DINIT260 ;;7558780 DINIT27 ;;8893587 DINIT270 ;;8954842 DINIT271 ;;4962636 DINIT27A ;;4535134 DINIT27B ;;3392667 DINIT27C ;;3010708 DINIT27D ;;3129310 DINIT27E ;;2362322 DINIT27F ;;7294806 DINIT27G ;;7287275 DINIT27H ;;991763 DINIT27I ;;1784973 DINIT27J ;;4891073 DINIT27K ;;4910854 DINIT27L ;;2952488 DINIT28 ;;2224020 DINIT285 ;;9217149 DINIT286 ;;2757795 DINIT287 ;;939077 DINIT290 ;;9040841 DINIT291 ;;8374884 DINIT292 ;;8869220 DINIT293 ;;11561311 DINIT294 ;;8359242 DINIT295 ;;10019078 DINIT296 ;;9334293 DINIT297 ;;1310471 DINIT298 ;;9267752 DINIT299 ;;11066049 DINIT29A ;;11649557 DINIT29B ;;9992422 DINIT29C ;;10380082 DINIT29D ;;8208281 DINIT29E ;;2998981 DINIT29P ;;1161392 DINIT3 ;;9096420 DINIT4 ;;9010496 DINIT41 ;;11669306 DINIT42 ;;8065804 DINIT5 ;;9581562 DINIT6 ;;3176942 DINITPST ;;118426 DINV1DTM ;;1497765 DINV1VXD ;;2343090 DINVDTM ;;6129007 DINVMSM ;;8405664 DINVVXD ;;6649372 DINZDTM ;;6206888 DINZMGR ;;8170762 DINZMGR1 ;;5426403 DINZMSM ;;3819112 DINZVXD ;;4163974 DIO ;;7212010 DIO0 ;;9337666 DIO1 ;;6789778 DIO2 ;;4090173 DIO3 ;;4969134 DIO4 ;;5969086 DIOC ;;906643 DIOQ ;;951380 DIOS ;;7207594 DIOS1 ;;1190642 DIOU ;;4893133 DIOZ ;;5699472 DIP ;;10842684 DIP0 ;;9017625 DIP1 ;;9630060 DIP10 ;;5485584 DIP11 ;;8098143 DIP12 ;;5158083 DIP2 ;;8015552 DIP21 ;;12550282 DIP22 ;;6639498 DIP23 ;;467210 DIP3 ;;10660874 DIP31 ;;1492535 DIP4 ;;2871248 DIP5 ;;9722926 DIPKI001 ;;8527821 DIPKI002 ;;8311211 DIPKI003 ;;10161905 DIPKI004 ;;11066884 DIPKI005 ;;9699423 DIPKI006 ;;7153468 DIPKI007 ;;8930731 DIPKI008 ;;8606961