source: WorldVistAEHR/trunk/r/KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/XPDZLST1.m@ 701

Last change on this file since 701 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 2.2 KB
Line 
1XPDZLST1 ;FGO/JFW;Package File Last Patch Installed; 10-17-01 [2/18/04 12:51pm]
2 ;;8.0;KERNEL;**L999**;Jul 10, 1995
3 ; Copied then modified XPDZLAST(written by FGO/JHS) - 02-18-2004/JFW
4 D UCI^%ZOSV S AAQU=$P(Y,",",1)
5 ;S RV1="$C(27,91,55,109)",RV0="$C(27,91,109)" ;Reverse Video VT100
6 G:AAQU="VAH" HDR
7HDR W !!,"Package File Last Patch Installed - "_AAQU_" - " S X=$$NOW^XLFDT S AAQDT=$$FMTE^XLFDT(X) W AAQDT,!
8 W !!,?3,"This will display information from the PACKAGE file only.",!
9HDR2 ;
10 S U="^",DIC="^DIC(9.4,",DIC(0)="AEQM",DIC("A")="Enter a Package Namespace: "
11 D ^DIC G:Y=-1 EXIT W ! S AAQJDA=+Y,AAQJPV=$P(Y,U,2),AAQJPKG=$P(AAQJPV,"*",1),AAQOVER=$P(AAQJPV,"*",2)
12 S X=AAQJPKG,AAQX=X S AAQNVER=$$VERSION^XPDUTL(X) D VERSION^XPDZPRE1
13 I AAQOVER'=AAQNVER W !,?3,"Changing to Version ",AAQNVER,! S AAQJPV=AAQJPKG_"*"_AAQNVER
14 I AAQNVER<.1 W !!,"**",!,"** Invalid version found, not a valid Package entry. **",!,"**",! G HDR2
15 S X=AAQJPKG,I=$O(^DIC(9.4,"C",X,0)) S:I'>0 I=$O(^DIC(9.4,"B",X,0))
16 S AAQPKG=$P(^DIC(9.4,I,0),U) W !,?3,AAQPKG," Version "_AAQNVER_" was installed "_$$FMTE^XLFDT(DATE),".",!
17 S AAQPREF=$P(^DIC(9.4,I,0),U,2)
18 I $E(AAQJPKG,1,5)="LOCAL" W !!,?3,"Use this option for National Packages only.",! G HDR2
19 I $E(AAQPREF,$L(AAQPREF))="Z" W !!,?3,"Namespace ends in Z, cannot use this option for this Namespace.",! G HDR2
20LAST S PKG=AAQPKG,PKGIEN=$O(^DIC(9.4,"B",PKG,"")) Q:'PKGIEN -1
21 S VER=AAQNVER,VERIEN=$O(^DIC(9.4,PKGIEN,22,"B",VER,"")) Q:'VERIEN -1
22 S LATEST=-1,PATCH=-1,SUBIEN=0
23 F S SUBIEN=$O(^DIC(9.4,PKGIEN,22,VERIEN,"PAH",SUBIEN)) Q:SUBIEN'>0 D
24 . I $P(^DIC(9.4,PKGIEN,22,VERIEN,"PAH",SUBIEN,0),U,2)'<LATEST S LATEST=$P(^(0),U,2),PATCH=$P($G(^(0)),U)
25 ;
26 I PATCH<.1 W !!,"**",!,"** No Patches for "_AAQJPKG_" were found in the Package file. **",!,"**",! G HDR2
27 W !,?3,"--------------------------",!
28 W !,?3,"The last patch installed for the package is:"
29 W !!,?6,AAQPREF_"*"_AAQNVER_"*"_PATCH_" installed on ",$$FMTE^XLFDT(LATEST)_".",!
30 W !,?3,"--------------------------",! G HDR2
31 G EXIT
32 Q
33EXIT K AAQDA,AAQDONE,AAQDT,AAQINS,AAQJDA,AAQJPAT,AAQJPKG,AAQJPV,AAQOVER,AAQPAT,AAQPDA,AAQPKG,AAQNVER,AAQTST,AAQTSW,AAQU,AAQX,DA,DATE,DIC,I,LATEST,PATCH,PKG,PKGIEN,RV0,RV1,SUBIEN,VER,VERIEN,X,Y,AAQPREF
34 K D0,DN,IFN,VERSION,XCF,XCN,XMZ ;Set by called routines
35 Q
Note: See TracBrowser for help on using the repository browser.