LEXXFI4.m

LEXXFI4 ;ISL/KER - File Info - Record Counts (2) ;04/21/2014

 ;;2.0;LEXICON UTILITY;**32,80**;Sep 23, 1996;Build 1

 ;               

 ; Global Variables

 ;    ^TMP("LEXCNT")      SACC 2.3.2.5.1

 ;               

 ; External References

 ;    $$FMDIFF^XLFDT      ICR  10103

 ;               

 Q

DSP ; Display Results

 N LEXFP,LEXCT,LEXFI,LEXGTOT,LEXHSF,LEXJOB,LEXMD,LEXX,LEXLVL,LEXML

 N LEXNCFI,LEXNFI,LEXNPAR,LEXOPAR,LEXO,LEXPAR,LEXTAB,LEXTXT

 S (LEXCT,LEXGTOT,LEXML)=0,LEXOPAR=""

 S LEXJOB=$J S:+($G(LEXMD))>0 LEXJOB=+($G(LEXMD))

 K:$D(LEXMD) LEXMD S LEXFP="" S LEXFP=""

 F  S LEXFP=$O(^TMP("LEXCNT",LEXJOB,"ORDER",LEXFP)) Q:LEXFP=""  D

 . S LEXO=""

 . F  S LEXO=$O(^TMP("LEXCNT",LEXJOB,"ORDER",LEXFP,LEXO)) Q:LEXO=""  D

 . . N LEXFI,LEXPAR,LEXLVL,LEXTAB,LEXTXT,LEXHSF,LEXX

 . . S LEXTAB="",LEXHSF=0

 . . S LEXPAR=$G(^TMP("LEXCNT",LEXJOB,"ORDER",LEXFP,LEXO))

 . . S LEXFI=+($P(LEXPAR,"^",2)),LEXLVL=+($P(LEXPAR,"^",3))

 . . S LEXPAR=+($P(LEXPAR,"^",1)) Q:LEXPAR=0

 . . S LEXNFI=$O(^TMP("LEXCNT",LEXJOB,LEXPAR,LEXPAR))

 . . S:LEXNFI>0&(LEXNFI'=LEXPAR) LEXHSF=1

 . . S LEXX=$G(^TMP("LEXCNT",LEXJOB,LEXPAR,LEXFI)),LEXCT=LEXCT+1

 . . S LEXNPAR=$O(^TMP("LEXCNT",LEXJOB,"ORDER",LEXFP,LEXO))

 . . S LEXNPAR=$P(LEXNPAR,";",1)

 . . S LEXNCFI=$O(^TMP("LEXCNT",LEXJOB,"ORDER",LEXFP))

 . . I '$L(LEXNPAR),$L(LEXNCFI) S LEXML=1

 . . I LEXCT=1 D TTL,HDR

 . . I +LEXFI>0 D TSF

 . . I +LEXFI'>0,+($G(LEXHSF))>0 D GTSF

 D GT,CK

 Q

TSF ;   Total for a Single File/Sub-File

 N LEXNM,LEXTAB,LEXTOT,LEXTXT,LEXTYP

 S LEXX=$G(LEXX),LEXTOT=+LEXX,LEXNM=$P(LEXX,"^",2)

 S LEXTYP=$P(LEXX,"^",3),LEXTAB=""

 Q:+LEXTOT'>0  Q:'$L(LEXNM)  Q:'$L(LEXTYP)

 S $P(LEXTAB," ",(+($G(LEXLVL))*2))=""

 S LEXTXT="  "_LEXTAB_LEXNM_" ("_LEXTYP_")"

 S LEXTXT=LEXTXT_$J("",(60-$L(LEXTXT)))_$J(LEXTOT,9)

 S LEXGTOT=+($G(LEXGTOT))+LEXTOT D TL^LEXXFI8(LEXTXT)

 Q

GTSF ;   Grand Total for a Single File

 N LEXLVL,LEXNM,LEXTAB,LEXTOT,LEXTXT,LEXTYP,LEXX

 S LEXX=$G(^TMP("LEXCNT",LEXJOB,LEXPAR,LEXPAR)),LEXLVL=+($$ML)+2

 S LEXNM=$P(LEXX,"^",2),LEXTYP=$P(LEXX,"^",3) Q:'$L(LEXNM)  Q:'$L(LEXTYP)

 S LEXTAB="",LEXX=$G(^TMP("LEXCNT",LEXJOB,LEXPAR,0))

 S LEXTOT=+LEXX,$P(LEXTAB," ",(LEXLVL*2))=""

 S LEXTXT="  "_LEXTAB_" - Total Records for "_LEXTYP

 S LEXTXT=LEXTXT_$J("",(60-$L(LEXTXT)))_$J(LEXTOT,9)

 D TL^LEXXFI8(LEXTXT)

 Q

GT ;   Grand Totals for Multiple Files

 N LEXCT,LEXFI,LEXTXT S LEXCT=0,LEXFI="" I +($G(LEXGTOT))>0,+($G(LEXML))>0 D

 . D BL^LEXXFI8 S LEXTXT="   GRAND TOTAL (ALL FILES) "

 . S LEXTXT=LEXTXT_$J("",(50-$L(LEXTXT)))_$J(LEXGTOT,19) D TL^LEXXFI8(LEXTXT)

 Q

TTL ; Record Count Title

 D:+($G(LEXMUL))>0 TT^LEXXFI8("","Record Counts")

 D:+($G(LEXMUL))'>0 TT^LEXXFI8($G(LEXFI),"Record Count")

 D BL^LEXXFI8

 Q

HDR ; Record Count Header

 N LEXTXT S LEXTXT="   Name (File Number)"

 S LEXTXT=LEXTXT_$J("",(60-$L(LEXTXT)))_$J("Entries",9) D TL^LEXXFI8(LEXTXT)

 S LEXTXT="   -------------------------------------------------"

 S LEXTXT=LEXTXT_$J("",(60-$L(LEXTXT)))_$J("-------",9) D TL^LEXXFI8(LEXTXT)

 Q

CK ; Records Checked

 N LEXF,LEXS,LEXFT,LEXST,LEXJ S LEXJ=$S(+($G(LEXJOB))>0:+($G(LEXJOB)),1:$J)

 S LEXF=+($G(^TMP("LEXCNT",LEXJ,"CNT")))

 S LEXFT=$S(LEXF=1:"1 File",LEXF>1:(LEXF_" Files"),1:"")

 S LEXS=+($G(^TMP("LEXCNT",LEXJ,"SUB")))

 S LEXST=$S(LEXS=1:"1 Sub-File",LEXS>1:(LEXS_" Sub-Files"),1:"")

 I (LEXF+LEXS)>1 D

 . S LEXTXT="   " S:$L(LEXFT) LEXTXT=LEXTXT_LEXFT

 . S:$L(LEXFT)&($L(LEXST)) LEXTXT=LEXTXT_" and "_LEXST

 . S:'$L(LEXFT)&($L(LEXST)) LEXTXT=LEXTXT_LEXST

 . I $L(LEXFT)!($L(LEXST)) S LEXTXT=LEXTXT_" Checked" D

 . . D BL^LEXXFI8,TL^LEXXFI8(LEXTXT)

 Q

ML(X) ; Maximum Level

 N LEXJ S LEXJ=$S(+($G(LEXJOB))>0:+($G(LEXJOB)),1:$J)

 S X=+($G(^TMP("LEXCNT",LEXJ,"LVL"))) S:+X'>0 X=1

 Q X

NF(X) ; Number of Files

 N LEXJ S LEXJ=$S(+($G(LEXJOB))>0:+($G(LEXJOB)),1:$J)

 S X=+($G(^TMP("LEXCNT",LEXJ,"CNT")))

 Q X

NS(X) ; Number of Sub-Files

 N LEXJ S LEXJ=$S(+($G(LEXJOB))>0:+($G(LEXJOB)),1:$J)

 S X=+($G(^TMP("LEXCNT",LEXJ,"SUB")))

 Q X

ST ; Show TMP Array

 N NN,NC S NN="^TMP(""LEXCNT"")",NC="^TMP(""LEXCNT"","

 F  S NN=$Q(@NN) Q:NN=""!(NN'[NC)  D

 . W !,NN,"=",@NN

 Q

EP(X,Y) ;   Elapsed Time (Begin, End)

 N LEXTIM,LEXBEG,LEXEND

 S LEXBEG=$G(X),LEXEND=$G(Y) Q:+LEXBEG'>0 ""  Q:+LEXEND'>0 ""

 S LEXTIM=$$FMDIFF^XLFDT(LEXEND,LEXBEG,2) Q:+LEXTIM'>0 "00:00:00"

 S LEXTIM=$$TIM(LEXTIM)

 Q LEXTIM

TIM(X) ;   Format Time Elapsed

 N LEXD,LEXH,LEXM,LEXS,LEXT,LEXV S X=+($G(X)) Q:X'>0 "00:00:00"

 S LEXD=X\86400 S LEXV=LEXD*86400 S:+LEXV>0&(LEXV<X) X=X-LEXV

 S LEXH=X\3600 S LEXV=LEXH*3600 S:+LEXV>0&(LEXV<X) X=X-LEXV

 S:$L(LEXH)<2 LEXH="0"_LEXH S:$L(LEXH)<2 LEXH="0"_LEXH

 S LEXM=X\60 S LEXV=LEXM*60 S:+LEXV>0&(LEXV<X) X=X-LEXV

 S:$L(LEXM)<2 LEXM="0"_LEXM S:$L(LEXM)<2 LEXM="0"_LEXM

 S LEXS=X S:$L(LEXS)<2 LEXS="0"_LEXS S:$L(LEXS)<2 LEXS="0"_LEXS

 S LEXT="" S:+LEXD>0 LEXT=+LEXD_" day"_$S(+LEXD>1:"s",1:"")_" "

 S LEXT=LEXT_LEXH_":"_LEXM_":"_LEXS,X=LEXT

 Q X

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---LEXXFI4   4943     printed  Mar 13, 2025@21:14:36                                                                                                                                                                                                     Page 2

LEXXFI4   ;ISL/KER - File Info - Record Counts (2) ;04/21/2014

 +1       ;;2.0;LEXICON UTILITY;**32,80**;Sep 23, 1996;Build 1

 +2       ;               

 +3       ; Global Variables

 +4       ;    ^TMP("LEXCNT")      SACC 2.3.2.5.1

 +5       ;               

 +6       ; External References

 +7       ;    $$FMDIFF^XLFDT      ICR  10103

 +8       ;               

 +9        QUIT 

DSP       ; Display Results

 +1        NEW LEXFP,LEXCT,LEXFI,LEXGTOT,LEXHSF,LEXJOB,LEXMD,LEXX,LEXLVL,LEXML

 +2        NEW LEXNCFI,LEXNFI,LEXNPAR,LEXOPAR,LEXO,LEXPAR,LEXTAB,LEXTXT

 +3        SET (LEXCT,LEXGTOT,LEXML)=0

           SET LEXOPAR=""

 +4        SET LEXJOB=$JOB

           if +($GET(LEXMD))>0

               SET LEXJOB=+($GET(LEXMD))

 +5        if $DATA(LEXMD)

               KILL LEXMD

           SET LEXFP=""

           SET LEXFP=""

 +6        FOR 

               SET LEXFP=$ORDER(^TMP("LEXCNT",LEXJOB,"ORDER",LEXFP))

               if LEXFP=""

                   QUIT 

               Begin DoDot:1

 +7                SET LEXO=""

 +8                FOR 

                       SET LEXO=$ORDER(^TMP("LEXCNT",LEXJOB,"ORDER",LEXFP,LEXO))

                       if LEXO=""

                           QUIT 

                       Begin DoDot:2

 +9                        NEW LEXFI,LEXPAR,LEXLVL,LEXTAB,LEXTXT,LEXHSF,LEXX

 +10                       SET LEXTAB=""

                           SET LEXHSF=0

 +11                       SET LEXPAR=$GET(^TMP("LEXCNT",LEXJOB,"ORDER",LEXFP,LEXO))

 +12                       SET LEXFI=+($PIECE(LEXPAR,"^",2))

                           SET LEXLVL=+($PIECE(LEXPAR,"^",3))

 +13                       SET LEXPAR=+($PIECE(LEXPAR,"^",1))

                           if LEXPAR=0

                               QUIT 

 +14                       SET LEXNFI=$ORDER(^TMP("LEXCNT",LEXJOB,LEXPAR,LEXPAR))

 +15                       if LEXNFI>0&(LEXNFI'=LEXPAR)

                               SET LEXHSF=1

 +16                       SET LEXX=$GET(^TMP("LEXCNT",LEXJOB,LEXPAR,LEXFI))

                           SET LEXCT=LEXCT+1

 +17                       SET LEXNPAR=$ORDER(^TMP("LEXCNT",LEXJOB,"ORDER",LEXFP,LEXO))

 +18                       SET LEXNPAR=$PIECE(LEXNPAR,";",1)

 +19                       SET LEXNCFI=$ORDER(^TMP("LEXCNT",LEXJOB,"ORDER",LEXFP))

 +20                       IF '$LENGTH(LEXNPAR)

                               IF $LENGTH(LEXNCFI)

                                   SET LEXML=1

 +21                       IF LEXCT=1

                               DO TTL

                               DO HDR

 +22                       IF +LEXFI>0

                               DO TSF

 +23                       IF +LEXFI'>0

                               IF +($GET(LEXHSF))>0

                                   DO GTSF

                       End DoDot:2

               End DoDot:1

 +24       DO GT

           DO CK

 +25       QUIT 

TSF       ;   Total for a Single File/Sub-File

 +1        NEW LEXNM,LEXTAB,LEXTOT,LEXTXT,LEXTYP

 +2        SET LEXX=$GET(LEXX)

           SET LEXTOT=+LEXX

           SET LEXNM=$PIECE(LEXX,"^",2)

 +3        SET LEXTYP=$PIECE(LEXX,"^",3)

           SET LEXTAB=""

 +4        if +LEXTOT'>0

               QUIT 

           if '$LENGTH(LEXNM)

               QUIT 

           if '$LENGTH(LEXTYP)

               QUIT 

 +5        SET $PIECE(LEXTAB," ",(+($GET(LEXLVL))*2))=""

 +6        SET LEXTXT="  "_LEXTAB_LEXNM_" ("_LEXTYP_")"

 +7        SET LEXTXT=LEXTXT_$JUSTIFY("",(60-$LENGTH(LEXTXT)))_$JUSTIFY(LEXTOT,9)

 +8        SET LEXGTOT=+($GET(LEXGTOT))+LEXTOT

           DO TL^LEXXFI8(LEXTXT)

 +9        QUIT 

GTSF      ;   Grand Total for a Single File

 +1        NEW LEXLVL,LEXNM,LEXTAB,LEXTOT,LEXTXT,LEXTYP,LEXX

 +2        SET LEXX=$GET(^TMP("LEXCNT",LEXJOB,LEXPAR,LEXPAR))

           SET LEXLVL=+($$ML)+2

 +3        SET LEXNM=$PIECE(LEXX,"^",2)

           SET LEXTYP=$PIECE(LEXX,"^",3)

           if '$LENGTH(LEXNM)

               QUIT 

           if '$LENGTH(LEXTYP)

               QUIT 

 +4        SET LEXTAB=""

           SET LEXX=$GET(^TMP("LEXCNT",LEXJOB,LEXPAR,0))

 +5        SET LEXTOT=+LEXX

           SET $PIECE(LEXTAB," ",(LEXLVL*2))=""

 +6        SET LEXTXT="  "_LEXTAB_" - Total Records for "_LEXTYP

 +7        SET LEXTXT=LEXTXT_$JUSTIFY("",(60-$LENGTH(LEXTXT)))_$JUSTIFY(LEXTOT,9)

 +8        DO TL^LEXXFI8(LEXTXT)

 +9        QUIT 

GT        ;   Grand Totals for Multiple Files

 +1        NEW LEXCT,LEXFI,LEXTXT

           SET LEXCT=0

           SET LEXFI=""

           IF +($GET(LEXGTOT))>0

               IF +($GET(LEXML))>0

                   Begin DoDot:1

 +2                    DO BL^LEXXFI8

                       SET LEXTXT="   GRAND TOTAL (ALL FILES) "

 +3                    SET LEXTXT=LEXTXT_$JUSTIFY("",(50-$LENGTH(LEXTXT)))_$JUSTIFY(LEXGTOT,19)

                       DO TL^LEXXFI8(LEXTXT)

                   End DoDot:1

 +4        QUIT 

TTL       ; Record Count Title

 +1        if +($GET(LEXMUL))>0

               DO TT^LEXXFI8("","Record Counts")

 +2        if +($GET(LEXMUL))'>0

               DO TT^LEXXFI8($GET(LEXFI),"Record Count")

 +3        DO BL^LEXXFI8

 +4        QUIT 

HDR       ; Record Count Header

 +1        NEW LEXTXT

           SET LEXTXT="   Name (File Number)"

 +2        SET LEXTXT=LEXTXT_$JUSTIFY("",(60-$LENGTH(LEXTXT)))_$JUSTIFY("Entries",9)

           DO TL^LEXXFI8(LEXTXT)

 +3        SET LEXTXT="   -------------------------------------------------"

 +4        SET LEXTXT=LEXTXT_$JUSTIFY("",(60-$LENGTH(LEXTXT)))_$JUSTIFY("-------",9)

           DO TL^LEXXFI8(LEXTXT)

 +5        QUIT 

CK        ; Records Checked

 +1        NEW LEXF,LEXS,LEXFT,LEXST,LEXJ

           SET LEXJ=$SELECT(+($GET(LEXJOB))>0:+($GET(LEXJOB)),1:$JOB)

 +2        SET LEXF=+($GET(^TMP("LEXCNT",LEXJ,"CNT")))

 +3        SET LEXFT=$SELECT(LEXF=1:"1 File",LEXF>1:(LEXF_" Files"),1:"")

 +4        SET LEXS=+($GET(^TMP("LEXCNT",LEXJ,"SUB")))

 +5        SET LEXST=$SELECT(LEXS=1:"1 Sub-File",LEXS>1:(LEXS_" Sub-Files"),1:"")

 +6        IF (LEXF+LEXS)>1

               Begin DoDot:1

 +7                SET LEXTXT="   "

                   if $LENGTH(LEXFT)

                       SET LEXTXT=LEXTXT_LEXFT

 +8                if $LENGTH(LEXFT)&($LENGTH(LEXST))

                       SET LEXTXT=LEXTXT_" and "_LEXST

 +9                if '$LENGTH(LEXFT)&($LENGTH(LEXST))

                       SET LEXTXT=LEXTXT_LEXST

 +10               IF $LENGTH(LEXFT)!($LENGTH(LEXST))

                       SET LEXTXT=LEXTXT_" Checked"

                       Begin DoDot:2

 +11                       DO BL^LEXXFI8

                           DO TL^LEXXFI8(LEXTXT)

                       End DoDot:2

               End DoDot:1

 +12       QUIT 

ML(X)     ; Maximum Level

 +1        NEW LEXJ

           SET LEXJ=$SELECT(+($GET(LEXJOB))>0:+($GET(LEXJOB)),1:$JOB)

 +2        SET X=+($GET(^TMP("LEXCNT",LEXJ,"LVL")))

           if +X'>0

               SET X=1

 +3        QUIT X

NF(X)     ; Number of Files

 +1        NEW LEXJ

           SET LEXJ=$SELECT(+($GET(LEXJOB))>0:+($GET(LEXJOB)),1:$JOB)

 +2        SET X=+($GET(^TMP("LEXCNT",LEXJ,"CNT")))

 +3        QUIT X

NS(X)     ; Number of Sub-Files

 +1        NEW LEXJ

           SET LEXJ=$SELECT(+($GET(LEXJOB))>0:+($GET(LEXJOB)),1:$JOB)

 +2        SET X=+($GET(^TMP("LEXCNT",LEXJ,"SUB")))

 +3        QUIT X

ST        ; Show TMP Array

 +1        NEW NN,NC

           SET NN="^TMP(""LEXCNT"")"

           SET NC="^TMP(""LEXCNT"","

 +2        FOR 

               SET NN=$QUERY(@NN)

               if NN=""!(NN'[NC)

                   QUIT 

               Begin DoDot:1

 +3                WRITE !,NN,"=",@NN

               End DoDot:1

 +4        QUIT 

EP(X,Y)   ;   Elapsed Time (Begin, End)

 +1        NEW LEXTIM,LEXBEG,LEXEND

 +2        SET LEXBEG=$GET(X)

           SET LEXEND=$GET(Y)

           if +LEXBEG'>0

               QUIT ""

           if +LEXEND'>0

               QUIT ""

 +3        SET LEXTIM=$$FMDIFF^XLFDT(LEXEND,LEXBEG,2)

           if +LEXTIM'>0

               QUIT "00:00:00"

 +4        SET LEXTIM=$$TIM(LEXTIM)

 +5        QUIT LEXTIM

TIM(X)    ;   Format Time Elapsed

 +1        NEW LEXD,LEXH,LEXM,LEXS,LEXT,LEXV

           SET X=+($GET(X))

           if X'>0

               QUIT "00:00:00"

 +2        SET LEXD=X\86400

           SET LEXV=LEXD*86400

           if +LEXV>0&(LEXV<X)

               SET X=X-LEXV

 +3        SET LEXH=X\3600

           SET LEXV=LEXH*3600

           if +LEXV>0&(LEXV<X)

               SET X=X-LEXV

 +4        if $LENGTH(LEXH)<2

               SET LEXH="0"_LEXH

           if $LENGTH(LEXH)<2

               SET LEXH="0"_LEXH

 +5        SET LEXM=X\60

           SET LEXV=LEXM*60

           if +LEXV>0&(LEXV<X)

               SET X=X-LEXV

 +6        if $LENGTH(LEXM)<2

               SET LEXM="0"_LEXM

           if $LENGTH(LEXM)<2

               SET LEXM="0"_LEXM

 +7        SET LEXS=X

           if $LENGTH(LEXS)<2

               SET LEXS="0"_LEXS

           if $LENGTH(LEXS)<2

               SET LEXS="0"_LEXS

 +8        SET LEXT=""

           if +LEXD>0

               SET LEXT=+LEXD_" day"_$SELECT(+LEXD>1:"s",1:"")_" "

 +9        SET LEXT=LEXT_LEXH_":"_LEXM_":"_LEXS

           SET X=LEXT

 +10       QUIT X