|
Last change
on this file since 1430 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
577 bytes
|
| Rev | Line | |
|---|
| [613] | 1 | GECSSCOM ;WISC/RFJ-stacker file enter user comments ;27 Sep 94
|
|---|
| 2 | ;;2.0;GCS;;MAR 14, 1995
|
|---|
| 3 | N D0,DA,DATA,DI,DIC,DIE,DQ,DR,GECSDOC,GECSXMZ,STATUS,X
|
|---|
| 4 | F S DA=$$SELECT^GECSSTAA("","","","","Select Stack Document: ") Q:'DA S GECSDOC=$P(DA,"^",2),DA=+DA D
|
|---|
| 5 | . L +^GECS(2100.1,DA):5 I '$T W !,"Another user is working with the stack document, try again later." Q
|
|---|
| 6 | . S STATUS=$P(^GECS(2100.1,DA,0),"^",4) S:STATUS="" STATUS="?"
|
|---|
| 7 | . W !?5,"Current Status: ",$$STATUS^GECSSGET(GECSDOC)
|
|---|
| 8 | . ;
|
|---|
| 9 | . S (DIC,DIE)="^GECS(2100.1,",DR=4.1 D ^DIE
|
|---|
| 10 | . L -^GECS(2100.1,DA)
|
|---|
| 11 | Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
