GECSSCOM ;WISC/RFJ-stacker file enter user comments ;27 Sep 94
;;2.0;GCS;;MAR 14, 1995
N D0,DA,DATA,DI,DIC,DIE,DQ,DR,GECSDOC,GECSXMZ,STATUS,X
F S DA=$$SELECT^GECSSTAA("","","","","Select Stack Document: ") Q:'DA S GECSDOC=$P(DA,"^",2),DA=+DA D
. L +^GECS(2100.1,DA):5 I '$T W !,"Another user is working with the stack document, try again later." Q
. S STATUS=$P(^GECS(2100.1,DA,0),"^",4) S:STATUS="" STATUS="?"
. W !?5,"Current Status: ",$$STATUS^GECSSGET(GECSDOC)
. ;
. S (DIC,DIE)="^GECS(2100.1,",DR=4.1 D ^DIE
. L -^GECS(2100.1,DA)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGECSSCOM 588 printed Dec 13, 2024@01:56:24 Page 2
GECSSCOM ;WISC/RFJ-stacker file enter user comments ;27 Sep 94
+1 ;;2.0;GCS;;MAR 14, 1995
+2 NEW D0,DA,DATA,DI,DIC,DIE,DQ,DR,GECSDOC,GECSXMZ,STATUS,X
+3 FOR
SET DA=$$SELECT^GECSSTAA("","","","","Select Stack Document: ")
if 'DA
QUIT
SET GECSDOC=$PIECE(DA,"^",2)
SET DA=+DA
Begin DoDot:1
+4 LOCK +^GECS(2100.1,DA):5
IF '$TEST
WRITE !,"Another user is working with the stack document, try again later."
QUIT
+5 SET STATUS=$PIECE(^GECS(2100.1,DA,0),"^",4)
if STATUS=""
SET STATUS="?"
+6 WRITE !?5,"Current Status: ",$$STATUS^GECSSGET(GECSDOC)
+7 ;
+8 SET (DIC,DIE)="^GECS(2100.1,"
SET DR=4.1
DO ^DIE
+9 LOCK -^GECS(2100.1,DA)
End DoDot:1
+10 QUIT
