GECSPOS1.m

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