22 lines
862 B
Mathematica
22 lines
862 B
Mathematica
GECSPOS1 ;WISC/RFJ-version 2 GCS installation PIMS patch 5.3*47 ;30 Jun 92
|
|
;;2.0;GCS;;MAR 14, 1995
|
|
Q
|
|
;
|
|
;
|
|
PATCH ; install PIMS patch
|
|
W !!,"==================== *** INSTALLING PIMS 5.3 PATCH 47 *** =================="
|
|
W !,"Installing PIMS Patch DG*5.3*47, routine DGGECSB ..."
|
|
NEW %,%N,X,DIF,XCNP,DIE,XCN,XCM
|
|
K ^TMP($J,"GECSPOS1")
|
|
S X="GECSDG" X ^%ZOSF("TEST") I '$T W !,"Cannot install PIMS patch DG*5.3*47",!,"routine GECSDG not found!",! Q
|
|
S X="DGGECSB" X ^%ZOSF("TEST") I '$T D INST Q
|
|
S DIF="^TMP($J,""DGGECSB"",",XCNP=0,X="DGGECSB" X ^%ZOSF("LOAD") I $P($G(^TMP($J,"GECSPOS1",2,0)),";",3)'="5.3" D INST
|
|
Q
|
|
INST ;Install update DGGECSB routine
|
|
K ^TMP($J,"GECSPOS1")
|
|
S DIF="^TMP($J,""GECSPOS1"",",XCNP=0,X="GECSDG" X ^%ZOSF("LOAD")
|
|
S DIE="^TMP($J,""GECSPOS1"",",XCN=2,X="DGGECSB" X ^%ZOSF("SAVE")
|
|
K ^TMP($J,"GECSPOS1")
|
|
W " OK, DONE."
|
|
Q
|