| 1 | XPDZLAST ;FGO/JHS;Last Patch Installed for Package ; 12/2/05 9:15pm
|
|---|
| 2 | ;;8.0;KERNEL;**L33**;Jul 10, 1995
|
|---|
| 3 | D UCI^%ZOSV S AAQU=$P(Y,",",1)
|
|---|
| 4 | S RV1="$C(27,91,55,109)",RV0="$C(27,91,109)" ;Reverse Video VT100
|
|---|
| 5 | ;;G:AAQU="VAH" HDR
|
|---|
| 6 | G:AAQU="EHR" HDR
|
|---|
| 7 | W !!,$C(7),"This routine cannot be run on the Test (TST) system.",!,"It uses the PACKAGE file (#9.4) and the PATCH RECORD file (#437016)."
|
|---|
| 8 | W !,"The accurate updating of those files is only done on",!,"the Production (EHR) system.",! G EXIT
|
|---|
| 9 | HDR W !!,"Simple Patch - Most Recently Installed - "_AAQU_" - " S X=$$NOW^XLFDT S AAQDT=$$FMTE^XLFDT(X) W AAQDT,!
|
|---|
| 10 | D RV1NOTE W ?6,"This will display information for the Latest Version only",!,?6,"of a package, even if you select a prior version.",!
|
|---|
| 11 | W !,?6,"This will display National Patches only. Local patches cannot",!,?6,"be uniquely identified in the PACKAGE file Patch History.",!
|
|---|
| 12 | W !,?6,"This will not display a patch that has been installed in TST only.",!
|
|---|
| 13 | S U="^",DIC="^DIZ(437016,",DIC(0)="AEQM",DIC("A")="Enter a package prefix or namespace: "
|
|---|
| 14 | D ^DIC G:Y=-1 EXIT W ! S AAQJDA=+Y,AAQJPV=$P(Y,U,2),AAQJPKG=$P(AAQJPV,"*",1),AAQOVER=$P(AAQJPV,"*",2)
|
|---|
| 15 | I '$D(^DIC(9.4,"C",AAQJPKG)) D RV1NOTE W "Sorry. Package couldn't be found with "_AAQJPKG_" Prefix." G EXIT
|
|---|
| 16 | S X=AAQJPKG,AAQX=X S AAQNVER=$$VERSION^XPDUTL(X) D VERSION^XPDZPRE1
|
|---|
| 17 | I AAQOVER'=AAQNVER D RV1NOTE W "Changing to Version ",AAQNVER,! S AAQJPV=AAQJPKG_"*"_AAQNVER D REPKG
|
|---|
| 18 | S X=AAQJPKG,I=$O(^DIC(9.4,"C",X,0)) S:I'>0 I=$O(^DIC(9.4,"B",X,0))
|
|---|
| 19 | S AAQPKG=$P(^DIC(9.4,I,0),U) W !,AAQPKG," Version "_AAQNVER_" was installed "_$$FMTE^XLFDT(DATE),".",!
|
|---|
| 20 | LAST 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(^(0),U)
|
|---|
| 25 | W !,"The Most Recent Patch in the PACKAGE file Patch History is:"
|
|---|
| 26 | W !!,AAQJPKG_"*"_AAQNVER_"*"_PATCH_" which was installed in EHR on ",$$FMTE^XLFDT(LATEST)_".",!
|
|---|
| 27 | INQ W !,"The option 'Inquire for Patch/Install' will run now."
|
|---|
| 28 | W !,"For DEVICE: Enter a printer name or press Enter for screen display.",!
|
|---|
| 29 | S (AAQINS,AAQDONE,AAQTST,AAQTSW)=0 S AAQPKG=AAQJPV,AAQJPKG=AAQPKG,AAQPDA=+PATCH
|
|---|
| 30 | I '$D(^DIZ(437016,AAQJDA,1,"B",AAQPDA)) D MANINQ G PINQX
|
|---|
| 31 | S X=AAQPKG,DIC="^DIZ(437016,",DIC(0)="XM" D ^DIC I +Y>0 S AAQJDA=+Y
|
|---|
| 32 | S AAQPDA=$P(PATCH," ") S AAQDA=0 S DA=$O(^DIZ(437016,AAQJDA,1,"B",AAQPDA,AAQDA))
|
|---|
| 33 | S AAQJPAT=$P(^DIZ(437016,AAQJDA,1,DA,0),"^")
|
|---|
| 34 | S AAQPAT=AAQJPAT D INIT^XMVVITAE D MRP^AAQJPINQ
|
|---|
| 35 | PINQX D:$D(AAQDA) EXITA^AAQJPINQ
|
|---|
| 36 | G EXIT
|
|---|
| 37 | REPKG S AAQX=0 S AAQJDA=$O(^DIZ(437016,"B",AAQJPV,AAQX))
|
|---|
| 38 | Q
|
|---|
| 39 | RV1NOTE W !,@RV1,"NOTE:",@RV0,$C(7)," " Q
|
|---|
| 40 | MANINQ W $C(7),!,"Patch ",AAQPDA," cannot be uniquely identified in the Patch Record."
|
|---|
| 41 | W !,"There may be one or more National TEST Patches installed."
|
|---|
| 42 | W !,"You need to run a Patch Inquire if more information is desired."
|
|---|
| 43 | W !,"Press Enter at the next prompt if you do not want a Patch Inquire.",!
|
|---|
| 44 | D ^AAQJPINQ
|
|---|
| 45 | Q
|
|---|
| 46 | EXIT 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
|
|---|
| 47 | K D0,DN,IFN,VERSION,XCF,XCN,XMZ ;Set by called routines
|
|---|
| 48 | Q
|
|---|
