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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGECSPOS1 883 printed Dec 13, 2024@01:56:17 Page 2
GECSPOS1 ;WISC/RFJ-version 2 GCS installation PIMS patch 5.3*47 ;30 Jun 92
+1 ;;2.0;GCS;;MAR 14, 1995
+2 QUIT
+3 ;
+4 ;
PATCH ; install PIMS patch
+1 WRITE !!,"==================== *** INSTALLING PIMS 5.3 PATCH 47 *** =================="
+2 WRITE !,"Installing PIMS Patch DG*5.3*47, routine DGGECSB ..."
+3 NEW %,%N,X,DIF,XCNP,DIE,XCN,XCM
+4 KILL ^TMP($JOB,"GECSPOS1")
+5 SET X="GECSDG"
XECUTE ^%ZOSF("TEST")
IF '$TEST
WRITE !,"Cannot install PIMS patch DG*5.3*47",!,"routine GECSDG not found!",!
QUIT
+6 SET X="DGGECSB"
XECUTE ^%ZOSF("TEST")
IF '$TEST
DO INST
QUIT
+7 SET DIF="^TMP($J,""DGGECSB"","
SET XCNP=0
SET X="DGGECSB"
XECUTE ^%ZOSF("LOAD")
IF $PIECE($GET(^TMP($JOB,"GECSPOS1",2,0)),";",3)'="5.3"
DO INST
+8 QUIT
INST ;Install update DGGECSB routine
+1 KILL ^TMP($JOB,"GECSPOS1")
+2 SET DIF="^TMP($J,""GECSPOS1"","
SET XCNP=0
SET X="GECSDG"
XECUTE ^%ZOSF("LOAD")
+3 SET DIE="^TMP($J,""GECSPOS1"","
SET XCN=2
SET X="DGGECSB"
XECUTE ^%ZOSF("SAVE")
+4 KILL ^TMP($JOB,"GECSPOS1")
+5 WRITE " OK, DONE."
+6 QUIT
