- 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 Mar 13, 2025@21:14:37 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
