| [613] | 1 | GECSPOS1 ;WISC/RFJ-version 2 GCS installation PIMS patch 5.3*47 ;30 Jun 92
|
|---|
| 2 | ;;2.0;GCS;;MAR 14, 1995
|
|---|
| 3 | Q
|
|---|
| 4 | ;
|
|---|
| 5 | ;
|
|---|
| 6 | PATCH ; install PIMS patch
|
|---|
| 7 | W !!,"==================== *** INSTALLING PIMS 5.3 PATCH 47 *** =================="
|
|---|
| 8 | W !,"Installing PIMS Patch DG*5.3*47, routine DGGECSB ..."
|
|---|
| 9 | NEW %,%N,X,DIF,XCNP,DIE,XCN,XCM
|
|---|
| 10 | K ^TMP($J,"GECSPOS1")
|
|---|
| 11 | S X="GECSDG" X ^%ZOSF("TEST") I '$T W !,"Cannot install PIMS patch DG*5.3*47",!,"routine GECSDG not found!",! Q
|
|---|
| 12 | S X="DGGECSB" X ^%ZOSF("TEST") I '$T D INST Q
|
|---|
| 13 | 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
|
|---|
| 14 | Q
|
|---|
| 15 | INST ;Install update DGGECSB routine
|
|---|
| 16 | K ^TMP($J,"GECSPOS1")
|
|---|
| 17 | S DIF="^TMP($J,""GECSPOS1"",",XCNP=0,X="GECSDG" X ^%ZOSF("LOAD")
|
|---|
| 18 | S DIE="^TMP($J,""GECSPOS1"",",XCN=2,X="DGGECSB" X ^%ZOSF("SAVE")
|
|---|
| 19 | K ^TMP($J,"GECSPOS1")
|
|---|
| 20 | W " OK, DONE."
|
|---|
| 21 | Q
|
|---|
