source: WorldVistAEHR/trunk/r/LEXICON_UTILITY-LEX-GMPT/LEXXFI2.m@ 1639

LEXXFI2 ; ISL/KER - File Info - Checksums            ; 07/28/2004
 ;;2.0;LEXICON UTILITY;**32**;Sep 23, 1996;Build 1
 Q
 ;            
 ; Global Variables
 ;   None
 ;                   
 ; External References
 ;   None
 ;            
 Q
ONE(X) ; Checksum for ONE file
 N LEXENV S LEXENV=$$ENV^LEXXFI Q:+LEXENV'>0
 N LEXFI,LEXFC,LEXMOD,LEXMUL,LEXNM,LEXTXT,LEXTT,LEXLDR,LEXTND
 N LEXTSND,LEXTCS,LEXTSCS,LEXEX,LEXLINE,LEXCTLC
 S (LEXTND,LEXTSND,LEXTCS,LEXTSCS,LEXMOD,LEXMUL)=0,LEXFI=$G(X) Q:+LEXFI'>0
 S LEXLDR=$$LDR^LEXXFI8(LEXFI),LEXMOD=LEXMOD+($$MOD^LEXXFI8(LEXFI))
 S LEXNM=$$FN^LEXXFI8(LEXFI),LEXTT=" "
 D TT^LEXXFI8(LEXFI,"Checksum"),BL^LEXXFI8
 D CS,CTLD,MF^LEXXFI8(LEXMOD),CTLD
 Q
ALL ; Checksum for ALL files
 N LEXENV S LEXENV=$$ENV^LEXXFI Q:+LEXENV'>0
 N LEXA,LEXCTR,LEXD,LEXEX,LEXF,LEXFC,LEXFI,LEXI,LEXLDR,LEXMOD,LEXMUL
 N LEXN,LEXND,LEXP,LEXRTN,LEXT,LEXTAG,LEXTND,LEXTSND,LEXTCS,LEXTSCS,LEXU
 S LEXMUL=1,(LEXTND,LEXTSND,LEXTCS,LEXTSCS,LEXMOD,LEXFC)=0
 D TT^LEXXFI8("","Checksums"),BL^LEXXFI8
 S LEXFI="",LEXTAG="FILES",LEXRTN="LEXXFI",LEXCTR=0
 F  D  Q:LEXFI=""
 . S LEXCTR=LEXCTR+1,LEXEX="S LEXLINE=$T("_LEXTAG_"+"_LEXCTR_"^"_LEXRTN_")"
 . X LEXEX S LEXFI=$P(LEXLINE,";;",2,3) Q:'$L(LEXFI)
 . S LEXLDR=$P(LEXFI,";;",1),LEXFI=$P(LEXFI,";;",2) Q:'$L(LEXFI)
 . S LEXLDR=$S(+LEXLDR>0:" * ",1:"   ")
 . S:LEXLDR["*" LEXMOD=+($G(LEXMOD))+1 D CS
 I +LEXTND>0 D
 . I +($G(LEXTCS))>0,+($G(LEXTSCS))>0,+($G(LEXTND))>0,+($G(LEXTSND))>0 D
 . . Q:+LEXTSND>LEXTND  Q:+LEXTSCS>LEXTCS
 . . D BL^LEXXFI8,TL^LEXXFI8("   Totals"),TL^LEXXFI8("   ------")
 . . D TL^LEXXFI8($$FMT("   ","Static Files",LEXTSND,LEXTSCS))
 . . D TL^LEXXFI8($$FMT(" * ","Variable Files",(LEXTND-LEXTSND),(LEXTCS-LEXTSCS)))
 . . D TL^LEXXFI8($$FMT("   ","All Files",LEXTND,LEXTCS))
 D MF^LEXXFI8(LEXMOD),CTLD
 Q
CS ; Checksum for File X
 N LEXCS,LEXND,LEX S LEXFI=+($G(LEXFI)) Q:+LEXFI'>0
 D DDI^LEXXFI6(+LEXFI,.LEX) Q:'$D(LEX("DIC",LEXFI,0,"GL"))  Q:+LEXFI=757.09
 S LEXLDR=$G(LEXLDR),LEXCS=$$CHECKSUM(LEXFI,.LEX),LEXND=+($P(LEXCS,"^",2)),LEXCS=+($P(LEXCS,"^",1))
 S LEXTND=+($G(LEXTND))+LEXND,LEXTCS=+($G(LEXTCS))+LEXCS,LEXFC=+($G(LEXFC))+1
 S:$G(LEXLDR)'["*" LEXTSCS=+($G(LEXTSCS))+LEXCS,LEXTSND=+($G(LEXTSND))+LEXND
 D:LEXFC=1 TL^LEXXFI8($$FMT("   ","File #","Nodes",$S(+LEXMUL>0:"Checksums",1:"Checksum")))
 D:LEXFC=1 TL^LEXXFI8($$FMT("   ","------------","----------","---------------"))
 D TL^LEXXFI8($$FMT(LEXLDR,LEXFI,LEXND,LEXCS))
 Q
FMT(X,LEXFI,LEXND,LEXCS)        ; Format Line
 N LEXT S LEXT=$G(X)_$G(LEXFI) S LEXT=LEXT_$J("",(18-$L(LEXT)))_$J($G(LEXND),10)
 S X=LEXT_$J("",(31-$L(LEXT)))_$J($G(LEXCS),15)
 Q X
CHECKSUM(X,LEX) ; Return CHECKSUM^NODES
 N DIC,LEXC,LEXCNT,LEXCTR,LEXD,LEXE,LEXFI,LEXGCS,LEXN,LEXP,LEXRT,LEXT
 N LEXTYP,LEXID,LEXRC,LEXIC,LEXCTL
 S (LEXRC,LEXIC)=0
 S LEXFI=+($G(X)) Q:+LEXFI'>0 "0^0"  Q:'$D(LEX("DIC",LEXFI,0,"GL")) "0^0"
 S DIC=$G(LEX("DIC",LEXFI,0,"GL")) Q:'$L(DIC) "0^0"
 S LEXRT=$S(DIC[",":($E(DIC,1,($L(DIC)-1))_")"),1:$E(DIC,1,($L(DIC)-1))),LEXC=DIC
 S LEXN=LEXRT,(LEXCNT,LEXCTR,LEXGCS)=0
 F  S LEXN=$Q(@LEXN) Q:LEXN=""!(LEXN'[LEXC)  D
 . S LEXCTR=LEXCTR+1,LEXD=@LEXN
 . S LEXT=LEXN_"="_LEXD,LEXE=$L(LEXT)
 . S LEXID=$P(LEXN,DIC,2,200)
 . S:LEXID["," LEXID=$P(LEXID,",",1)
 . S:LEXID[")" LEXID=$P(LEXID,")",1)
 . S LEXTYP="UNK" S:+LEXID=LEXID LEXTYP="REC"
 . S:+LEXID'=LEXID LEXTYP="IDX"
 . S LEXCTL=$$CTL(LEXT) I +LEXCTL>0 D
 . . Q:LEXTYP="UNK"  N LEXTOT S LEXTOT=0
 . . S:LEXTYP="REC" (LEXTOT,LEXRC)=LEXRC+LEXCTL
 . . S:LEXTYP="IDX" (LEXTOT,LEXIC)=LEXIC+LEXCTL
 . . S $P(LEXCTLC(+LEXFI,LEXTYP),"^",1)=$P($G(LEXCTLC(+LEXFI,LEXTYP)),"^",1)+1
 . . S $P(LEXCTLC(+LEXFI,LEXTYP),"^",2)=LEXTOT
 . ;
 . F LEXP=1:1:LEXE S LEXGCS=$A(LEXT,LEXP)*LEXP+LEXGCS
 S X=LEXGCS_"^"_LEXCTR D CTLC
 Q X
CTLD ; Control Characters (Display)
 Q:$G(LEXCTLC(0))'>0
 N LEXFI,LEXFIN,LEXFINC,LEXFII,LEXFIIC,LEXLN,LEXTH,LEXT1,LEXT2
 S (LEXFI,LEXFIN,LEXFINC,LEXFII,LEXFIIC,LEXLN)=0
 F  S LEXFI=$O(LEXCTLC(LEXFI)) Q:+LEXFI=0  D
 . S LEXFIN=$G(LEXCTLC(LEXFI,"REC"))
 . S LEXFINC=$P(LEXFIN,"^",2),LEXFIN=$P(LEXFIN,"^",1)
 . S LEXFII=$G(LEXCTLC(LEXFI,"IDX"))
 . S LEXFIIC=$P(LEXFII,"^",2),LEXFII=$P(LEXFII,"^",1)
 . S LEXTH=$$FN^LEXXFI8(LEXFI) Q:'$L(LEXTH)
 . S LEXTH=" "_LEXTH_" file #"_LEXFI S (LEXT1,LEXT2)=""
 . I LEXFIN>0,LEXFINC>0 D
 . . S LEXT1=" "_$J(LEXFIN,4)_" Data Record"_$S(LEXFIN>0:"s",1:"")_" with "_LEXFINC_" control character"_$S(LEXFINC>0:"s",1:"")
 . I LEXFII>0,LEXFIIC>0 D
 . . S LEXT2=" "_$J(LEXFII,4)_" Cross-Reference entr"_$S(LEXFII>0:"ies",1:"y")_" with "_LEXFIIC_" control character"_$S(LEXFIIC>0:"s",1:"")
 . Q:'$L(LEXT1)&('$L(LEXT2))
 . S LEXLN=LEXLN+1 I LEXLN=1 D
 . . D BL^LEXXFI8,TL^LEXXFI8(" Control Character(s) Found")
 . . D TL^LEXXFI8(" =========================="),BL^LEXXFI8
 . D TL^LEXXFI8(LEXTH)
 . D:$L(LEXT1) TL^LEXXFI8(LEXT1)
 . D:$L(LEXT2) TL^LEXXFI8(LEXT2)
 Q
CTL(X) ; Control Characters
 N TXT S TXT=$G(X)
 N I,CHR S X=0 F I=1:1 S CHR=$E($G(TXT),I) Q:'$L(CHR)  D
 . I $A(CHR)<32!($A(CHR)>126) S X=X+1
 Q X
CTLC ; Control Character Array
 N LEXFI,LEXND,LEXCC,LEXFIC,LEXNDC,LEXCCC
 S (LEXFI,LEXND,LEXCC,LEXFIC,LEXNDC,LEXCCC)=0
 F  S LEXFI=$O(LEXCTLC(LEXFI)) Q:+LEXFI=0  D
 . S LEXFIC=LEXFIC+1,(LEXNDC,LEXCCC)=0
 . S LEXND=$P($G(LEXCTLC(LEXFI,"REC")),"^",1)
 . S LEXCC=$P($G(LEXCTLC(LEXFI,"REC")),"^",2)
 . S LEXNDC=LEXNDC+LEXND,LEXCCC=LEXCCC+LEXCC
 . S LEXND=$P($G(LEXCTLC(LEXFI,"IDX")),"^",1)
 . S LEXCC=$P($G(LEXCTLC(LEXFI,"IDX")),"^",2)
 . S LEXNDC=LEXNDC+LEXND,LEXCCC=LEXCCC+LEXCC
 . S LEXCTLC(LEXFI,0)=LEXNDC_"^"_LEXCCC
 . S LEXCTLC(0)=LEXFIC
 Q
TT ;
 S LEXCTLC(0)=1
 S LEXCTLC(80,0)="43^43"
 S LEXCTLC(80,"IDX")="12^14"
 S LEXCTLC(80,"REC")="8^10"
 S LEXCTLC(81,0)="43^43"
 S LEXCTLC(81,"IDX")="20^28"
 S LEXCTLC(81,"REC")="23^26"
 Q