freem_fileman/USER/DINTEG2.m - view

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

DINTEG2 ;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^DINTEG3 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 ;; DIFGGU ;;5525512 DIFGO ;;3849638 DIFGSRV ;;1145738 DIFROM ;;11038655 DIFROM0 ;;9100392 DIFROM1 ;;9679123 DIFROM11 ;;8986254 DIFROM12 ;;6395291 DIFROM2 ;;6822749 DIFROM3 ;;7863608 DIFROM4 ;;3939991 DIFROM41 ;;14320255 DIFROM42 ;;3811931 DIFROM5 ;;13318228 DIFROM6 ;;8014990 DIFROM7 ;;5693246 DIFROMH ;;8812360 DIFROMH1 ;;7701962 DIFROMS ;;1725573 DIFROMS1 ;;5768831 DIFROMS2 ;;6190772 DIFROMS3 ;;7300037 DIFROMS4 ;;4240259 DIFROMS5 ;;3415060 DIFROMS6 ;;868273 DIFROMSB ;;1316407 DIFROMSC ;;1542160 DIFROMSD ;;3803374 DIFROMSE ;;5059847 DIFROMSF ;;8096661 DIFROMSI ;;8134488 DIFROMSK ;;1421979 DIFROMSL ;;371524 DIFROMSO ;;1847867 DIFROMSP ;;6888702 DIFROMSR ;;4646734 DIFROMSS ;;3496020 DIFROMSU ;;5168157 DIFROMSV ;;89285 DIG ;;6265281 DIH ;;4688941 DII ;;6413260 DII1 ;;455555 DIINI001 ;;7758746 DIINI002 ;;7185246 DIINI003 ;;9033478 DIINI004 ;;7890739 DIINI005 ;;6512960 DIINI006 ;;8018142 DIINI007 ;;8798951 DIINI008 ;;7232119 DIINI009 ;;8236800 DIINI00A ;;4880814 DIINIS ;;2127703 DIINIT ;;10268911 DIINIT1 ;;4312623 DIINIT2 ;;5232051 DIINIT3 ;;16801795 DIINIT4 ;;3357221 DIINIT5 ;;364747 DIIS ;;374782 DIISS ;;2408793 DIK ;;7325945 DIK1 ;;5820262 DIKZ ;;9722227 DIKZ0 ;;5940541 DIKZ1 ;;8933794 DIKZ11 ;;4558086 DIKZ2 ;;5230837 DIL ;;6332887 DIL0 ;;5148814 DIL1 ;;6752508 DIL11 ;;5151125 DIL2 ;;9065502 DILF ;;1129307 DILFD ;;231253 DILIBF ;;6348908 DILL ;;6076491 DIM ;;2096545 DIM1 ;;7391479 DIM2 ;;4847408 DIM3 ;;4724114 DIM4 ;;3593321 DINIT ;;14307293 DINIT0 ;;5228258 DINIT001 ;;9222884 DINIT002 ;;9770143 DINIT003 ;;9283558 DINIT004 ;;7878368 DINIT005 ;;7116172 DINIT006 ;;7804999 DINIT007 ;;7371481 DINIT008 ;;7455825 DINIT009 ;;7710262 DINIT00A ;;7298150 DINIT00B ;;6817873 DINIT00C ;;7474896 DINIT00D ;;6215508 DINIT00E ;;6203285 DINIT00F ;;6944836 DINIT00G ;;6618387 DINIT00H ;;7525400 DINIT00I ;;7064051 DINIT00J ;;6340692 DINIT00K ;;6814146 DINIT00L ;;4996601 DINIT00M ;;4988352 DINIT00N ;;4358748 DINIT00O ;;5099250 DINIT00P ;;7094936 DINIT00Q ;;7854917 DINIT00R ;;6685186 DINIT00S ;;6285951 DINIT00T ;;6976234 DINIT00U ;;6454261 DINIT00V ;;10494647 DINIT00W ;;10423570 DINIT00X ;;7260573 DINIT00Y ;;6362756 DINIT00Z ;;7186746 DINIT010 ;;8406869 DINIT011 ;;8500074 DINIT012 ;;7486356 DINIT013 ;;6313482 DINIT014 ;;6116898 DINIT015 ;;5524998 DINIT016 ;;1335499 DINIT017 ;;8281492 DINIT018 ;;6764686 DINIT019 ;;3674630