| 1 | LEXXFI5 ; ISL/KER - File Info - Versions/Revisions ; 07/28/2004
|
|---|
| 2 | ;;2.0;LEXICON UTILITY;**32**;Sep 23, 1996
|
|---|
| 3 | Q
|
|---|
| 4 | ;
|
|---|
| 5 | ; Global Variables
|
|---|
| 6 | ; None
|
|---|
| 7 | ;
|
|---|
| 8 | ; External References
|
|---|
| 9 | ; None
|
|---|
| 10 | ;
|
|---|
| 11 | ONE(X) ; Version/Revision - One File
|
|---|
| 12 | N LEXCTL,LEXCTR,LEXEX,LEXFC,LEXFI,LEXLINE,LEXRTN,LEXTAG
|
|---|
| 13 | Q:'$L(X) S LEXCTL=+($G(X)) Q:+LEXCTL'>0
|
|---|
| 14 | S LEXFI="",LEXTAG="FILES",LEXRTN="LEXXFI",(LEXCTR,LEXFC)=0
|
|---|
| 15 | F D Q:LEXFI=""
|
|---|
| 16 | . S LEXCTR=LEXCTR+1,LEXEX="S LEXLINE=$T("_LEXTAG_"+"_LEXCTR_"^"_LEXRTN_")"
|
|---|
| 17 | . X LEXEX S LEXFI=$P(LEXLINE,";;",3) Q:'$L(LEXFI) Q:LEXFI'=LEXCTL D VR(LEXFI)
|
|---|
| 18 | Q
|
|---|
| 19 | ALL ; Version/Revision
|
|---|
| 20 | N LEXCTR,LEXEX,LEXFC,LEXFI,LEXLINE,LEXRTN,LEXTAG
|
|---|
| 21 | S LEXFI="",LEXTAG="FILES",LEXRTN="LEXXFI",(LEXCTR,LEXFC)=0
|
|---|
| 22 | F D Q:LEXFI=""
|
|---|
| 23 | . S LEXCTR=LEXCTR+1,LEXEX="S LEXLINE=$T("_LEXTAG_"+"_LEXCTR_"^"_LEXRTN_")"
|
|---|
| 24 | . X LEXEX S LEXFI=$P(LEXLINE,";;",3) Q:'$L(LEXFI) D VR(LEXFI)
|
|---|
| 25 | Q
|
|---|
| 26 | VR(X) ; Get Version/Revision
|
|---|
| 27 | N LEXDD,LEXFI,LEXFIT,LEXFN,LEXIN,LEXLDR,LEXR,LEXRD,LEXRT,LEXT
|
|---|
| 28 | N LEXV,LEXVD,LEXVT S LEXFI=+($G(X)) Q:+LEXFI'>0
|
|---|
| 29 | S LEXFIT=$J($P(LEXFI,".",1),3)
|
|---|
| 30 | S:LEXFI["."&($L($P(LEXFI,".",2))) LEXFIT=LEXFIT_"."_$P(LEXFI,".",2)
|
|---|
| 31 | F Q:$L(LEXFIT)'<7 S LEXFIT=LEXFIT_" "
|
|---|
| 32 | S LEXFN=$E($$FN^LEXXFI8(LEXFI),1,25)
|
|---|
| 33 | F Q:LEXFN'["CATEGORY" S LEXFN=$P(LEXFN,"CATEGORY",1)_"CAT"_$P(LEXFN,"CATEGORY",2)
|
|---|
| 34 | F Q:LEXFN'["PROCEDURE" S LEXFN=$P(LEXFN,"PROCEDURE",1)_"PROC"_$P(LEXFN,"PROCEDURE",2)
|
|---|
| 35 | F Q:LEXFN'["NARRATIVES" S LEXFN=$P(LEXFN,"NARRATIVES",1)_"NARR"_$P(LEXFN,"NARRATIVES",2)
|
|---|
| 36 | F Q:$L(LEXFN)'<20 S LEXFN=LEXFN_" "
|
|---|
| 37 | S LEXV=$$VR^LEXXFI8(LEXFI)
|
|---|
| 38 | S LEXVD=$P(LEXV,"^",2) S:'$L(LEXVD) LEXVD="--/--/----" F Q:$L(LEXVD)'<10 S LEXVD=LEXVD_" "
|
|---|
| 39 | S LEXDD=$P(LEXV,"^",3)
|
|---|
| 40 | S LEXLDR=" "
|
|---|
| 41 | S LEXV=$P(LEXV,"^",1)
|
|---|
| 42 | S LEXVT=$J($P(LEXV,".",1),3)
|
|---|
| 43 | S:LEXV["."&($L($P(LEXV,".",2))) LEXVT=LEXVT_"."_$P(LEXV,".",2)
|
|---|
| 44 | F Q:$L(LEXVT)'<4 S LEXVT=LEXVT_" "
|
|---|
| 45 | S LEXR=$$RV^LEXXFI8(LEXFI)
|
|---|
| 46 | S LEXRD=$P(LEXR,"^",2)
|
|---|
| 47 | S:'$L(LEXRD) LEXRD="--/--/----" F Q:$L(LEXRD)'<10 S LEXRD=LEXRD_" "
|
|---|
| 48 | S LEXR=$P(LEXR,"^",1) S:'$L(LEXR) LEXR="--" S LEXR=$J(LEXR,2)
|
|---|
| 49 | S LEXIN=$$INS^LEXXFI8(LEXFI) S:LEXIN="" LEXIN="--/--/----"
|
|---|
| 50 | S LEXFC=LEXFC+1 I LEXFC=1 D
|
|---|
| 51 | . D:+($G(LEXMUL))>0 TT^LEXXFI8("","Versions/Revisions")
|
|---|
| 52 | . D:+($G(LEXMUL))'>0 TT^LEXXFI8(LEXFI,"Version/Revision")
|
|---|
| 53 | . D BL^LEXXFI8 S LEXT=" Version Revision Install"
|
|---|
| 54 | . D TL^LEXXFI8(LEXT)
|
|---|
| 55 | . S LEXT=" File # File Name VR Date RV Date Date"
|
|---|
| 56 | . D TL^LEXXFI8(LEXT)
|
|---|
| 57 | . S LEXT=" ------- -------------------- ---- ---------- -- ---------- ----------"
|
|---|
| 58 | . D TL^LEXXFI8(LEXT)
|
|---|
| 59 | S LEXT=LEXLDR_LEXFIT_" "_LEXFN_" "_LEXVT_" "_LEXVD_" "_LEXR_" "_LEXRD_" "_LEXIN
|
|---|
| 60 | D TL^LEXXFI8(LEXT)
|
|---|
| 61 | Q
|
|---|
