LEXXFI5 ; ISL/KER - File Info - Versions/Revisions ; 07/28/2004
;;2.0;LEXICON UTILITY;**32**;Sep 23, 1996
Q
;
; Global Variables
; None
;
; External References
; None
;
ONE(X) ; Version/Revision - One File
N LEXCTL,LEXCTR,LEXEX,LEXFC,LEXFI,LEXLINE,LEXRTN,LEXTAG
Q:'$L(X) S LEXCTL=+($G(X)) Q:+LEXCTL'>0
S LEXFI="",LEXTAG="FILES",LEXRTN="LEXXFI",(LEXCTR,LEXFC)=0
F D Q:LEXFI=""
. S LEXCTR=LEXCTR+1,LEXEX="S LEXLINE=$T("_LEXTAG_"+"_LEXCTR_"^"_LEXRTN_")"
. X LEXEX S LEXFI=$P(LEXLINE,";;",3) Q:'$L(LEXFI) Q:LEXFI'=LEXCTL D VR(LEXFI)
Q
ALL ; Version/Revision
N LEXCTR,LEXEX,LEXFC,LEXFI,LEXLINE,LEXRTN,LEXTAG
S LEXFI="",LEXTAG="FILES",LEXRTN="LEXXFI",(LEXCTR,LEXFC)=0
F D Q:LEXFI=""
. S LEXCTR=LEXCTR+1,LEXEX="S LEXLINE=$T("_LEXTAG_"+"_LEXCTR_"^"_LEXRTN_")"
. X LEXEX S LEXFI=$P(LEXLINE,";;",3) Q:'$L(LEXFI) D VR(LEXFI)
Q
VR(X) ; Get Version/Revision
N LEXDD,LEXFI,LEXFIT,LEXFN,LEXIN,LEXLDR,LEXR,LEXRD,LEXRT,LEXT
N LEXV,LEXVD,LEXVT S LEXFI=+($G(X)) Q:+LEXFI'>0
S LEXFIT=$J($P(LEXFI,".",1),3)
S:LEXFI["."&($L($P(LEXFI,".",2))) LEXFIT=LEXFIT_"."_$P(LEXFI,".",2)
F Q:$L(LEXFIT)'<7 S LEXFIT=LEXFIT_" "
S LEXFN=$E($$FN^LEXXFI8(LEXFI),1,25)
F Q:LEXFN'["CATEGORY" S LEXFN=$P(LEXFN,"CATEGORY",1)_"CAT"_$P(LEXFN,"CATEGORY",2)
F Q:LEXFN'["PROCEDURE" S LEXFN=$P(LEXFN,"PROCEDURE",1)_"PROC"_$P(LEXFN,"PROCEDURE",2)
F Q:LEXFN'["NARRATIVES" S LEXFN=$P(LEXFN,"NARRATIVES",1)_"NARR"_$P(LEXFN,"NARRATIVES",2)
F Q:$L(LEXFN)'<20 S LEXFN=LEXFN_" "
S LEXV=$$VR^LEXXFI8(LEXFI)
S LEXVD=$P(LEXV,"^",2) S:'$L(LEXVD) LEXVD="--/--/----" F Q:$L(LEXVD)'<10 S LEXVD=LEXVD_" "
S LEXDD=$P(LEXV,"^",3)
S LEXLDR=" "
S LEXV=$P(LEXV,"^",1)
S LEXVT=$J($P(LEXV,".",1),3)
S:LEXV["."&($L($P(LEXV,".",2))) LEXVT=LEXVT_"."_$P(LEXV,".",2)
F Q:$L(LEXVT)'<4 S LEXVT=LEXVT_" "
S LEXR=$$RV^LEXXFI8(LEXFI)
S LEXRD=$P(LEXR,"^",2)
S:'$L(LEXRD) LEXRD="--/--/----" F Q:$L(LEXRD)'<10 S LEXRD=LEXRD_" "
S LEXR=$P(LEXR,"^",1) S:'$L(LEXR) LEXR="--" S LEXR=$J(LEXR,2)
S LEXIN=$$INS^LEXXFI8(LEXFI) S:LEXIN="" LEXIN="--/--/----"
S LEXFC=LEXFC+1 I LEXFC=1 D
. D:+($G(LEXMUL))>0 TT^LEXXFI8("","Versions/Revisions")
. D:+($G(LEXMUL))'>0 TT^LEXXFI8(LEXFI,"Version/Revision")
. D BL^LEXXFI8 S LEXT=" Version Revision Install"
. D TL^LEXXFI8(LEXT)
. S LEXT=" File # File Name VR Date RV Date Date"
. D TL^LEXXFI8(LEXT)
. S LEXT=" ------- -------------------- ---- ---------- -- ---------- ----------"
. D TL^LEXXFI8(LEXT)
S LEXT=LEXLDR_LEXFIT_" "_LEXFN_" "_LEXVT_" "_LEXVD_" "_LEXR_" "_LEXRD_" "_LEXIN
D TL^LEXXFI8(LEXT)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HLEXXFI5 2767 printed Oct 16, 2024@18:10:48 Page 2
LEXXFI5 ; ISL/KER - File Info - Versions/Revisions ; 07/28/2004
+1 ;;2.0;LEXICON UTILITY;**32**;Sep 23, 1996
+2 QUIT
+3 ;
+4 ; Global Variables
+5 ; None
+6 ;
+7 ; External References
+8 ; None
+9 ;
ONE(X) ; Version/Revision - One File
+1 NEW LEXCTL,LEXCTR,LEXEX,LEXFC,LEXFI,LEXLINE,LEXRTN,LEXTAG
+2 if '$LENGTH(X)
QUIT
SET LEXCTL=+($GET(X))
if +LEXCTL'>0
QUIT
+3 SET LEXFI=""
SET LEXTAG="FILES"
SET LEXRTN="LEXXFI"
SET (LEXCTR,LEXFC)=0
+4 FOR
Begin DoDot:1
+5 SET LEXCTR=LEXCTR+1
SET LEXEX="S LEXLINE=$T("_LEXTAG_"+"_LEXCTR_"^"_LEXRTN_")"
+6 XECUTE LEXEX
SET LEXFI=$PIECE(LEXLINE,";;",3)
if '$LENGTH(LEXFI)
QUIT
if LEXFI'=LEXCTL
QUIT
DO VR(LEXFI)
End DoDot:1
if LEXFI=""
QUIT
+7 QUIT
ALL ; Version/Revision
+1 NEW LEXCTR,LEXEX,LEXFC,LEXFI,LEXLINE,LEXRTN,LEXTAG
+2 SET LEXFI=""
SET LEXTAG="FILES"
SET LEXRTN="LEXXFI"
SET (LEXCTR,LEXFC)=0
+3 FOR
Begin DoDot:1
+4 SET LEXCTR=LEXCTR+1
SET LEXEX="S LEXLINE=$T("_LEXTAG_"+"_LEXCTR_"^"_LEXRTN_")"
+5 XECUTE LEXEX
SET LEXFI=$PIECE(LEXLINE,";;",3)
if '$LENGTH(LEXFI)
QUIT
DO VR(LEXFI)
End DoDot:1
if LEXFI=""
QUIT
+6 QUIT
VR(X) ; Get Version/Revision
+1 NEW LEXDD,LEXFI,LEXFIT,LEXFN,LEXIN,LEXLDR,LEXR,LEXRD,LEXRT,LEXT
+2 NEW LEXV,LEXVD,LEXVT
SET LEXFI=+($GET(X))
if +LEXFI'>0
QUIT
+3 SET LEXFIT=$JUSTIFY($PIECE(LEXFI,".",1),3)
+4 if LEXFI["."&($LENGTH($PIECE(LEXFI,".",2)))
SET LEXFIT=LEXFIT_"."_$PIECE(LEXFI,".",2)
+5 FOR
if $LENGTH(LEXFIT)'<7
QUIT
SET LEXFIT=LEXFIT_" "
+6 SET LEXFN=$EXTRACT($$FN^LEXXFI8(LEXFI),1,25)
+7 FOR
if LEXFN'["CATEGORY"
QUIT
SET LEXFN=$PIECE(LEXFN,"CATEGORY",1)_"CAT"_$PIECE(LEXFN,"CATEGORY",2)
+8 FOR
if LEXFN'["PROCEDURE"
QUIT
SET LEXFN=$PIECE(LEXFN,"PROCEDURE",1)_"PROC"_$PIECE(LEXFN,"PROCEDURE",2)
+9 FOR
if LEXFN'["NARRATIVES"
QUIT
SET LEXFN=$PIECE(LEXFN,"NARRATIVES",1)_"NARR"_$PIECE(LEXFN,"NARRATIVES",2)
+10 FOR
if $LENGTH(LEXFN)'<20
QUIT
SET LEXFN=LEXFN_" "
+11 SET LEXV=$$VR^LEXXFI8(LEXFI)
+12 SET LEXVD=$PIECE(LEXV,"^",2)
if '$LENGTH(LEXVD)
SET LEXVD="--/--/----"
FOR
if $LENGTH(LEXVD)'<10
QUIT
SET LEXVD=LEXVD_" "
+13 SET LEXDD=$PIECE(LEXV,"^",3)
+14 SET LEXLDR=" "
+15 SET LEXV=$PIECE(LEXV,"^",1)
+16 SET LEXVT=$JUSTIFY($PIECE(LEXV,".",1),3)
+17 if LEXV["."&($LENGTH($PIECE(LEXV,".",2)))
SET LEXVT=LEXVT_"."_$PIECE(LEXV,".",2)
+18 FOR
if $LENGTH(LEXVT)'<4
QUIT
SET LEXVT=LEXVT_" "
+19 SET LEXR=$$RV^LEXXFI8(LEXFI)
+20 SET LEXRD=$PIECE(LEXR,"^",2)
+21 if '$LENGTH(LEXRD)
SET LEXRD="--/--/----"
FOR
if $LENGTH(LEXRD)'<10
QUIT
SET LEXRD=LEXRD_" "
+22 SET LEXR=$PIECE(LEXR,"^",1)
if '$LENGTH(LEXR)
SET LEXR="--"
SET LEXR=$JUSTIFY(LEXR,2)
+23 SET LEXIN=$$INS^LEXXFI8(LEXFI)
if LEXIN=""
SET LEXIN="--/--/----"
+24 SET LEXFC=LEXFC+1
IF LEXFC=1
Begin DoDot:1
+25 if +($GET(LEXMUL))>0
DO TT^LEXXFI8("","Versions/Revisions")
+26 if +($GET(LEXMUL))'>0
DO TT^LEXXFI8(LEXFI,"Version/Revision")
+27 DO BL^LEXXFI8
SET LEXT=" Version Revision Install"
+28 DO TL^LEXXFI8(LEXT)
+29 SET LEXT=" File # File Name VR Date RV Date Date"
+30 DO TL^LEXXFI8(LEXT)
+31 SET LEXT=" ------- -------------------- ---- ---------- -- ---------- ----------"
+32 DO TL^LEXXFI8(LEXT)
End DoDot:1
+33 SET LEXT=LEXLDR_LEXFIT_" "_LEXFN_" "_LEXVT_" "_LEXVD_" "_LEXR_" "_LEXRD_" "_LEXIN
+34 DO TL^LEXXFI8(LEXT)
+35 QUIT
