- 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 Jan 18, 2025@02:57:36 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