Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: GECSSCOM

GECSSCOM.m

Go to the documentation of this file.
  1. GECSSCOM ;WISC/RFJ-stacker file enter user comments ;27 Sep 94
  1. ;;2.0;GCS;;MAR 14, 1995
  1. N D0,DA,DATA,DI,DIC,DIE,DQ,DR,GECSDOC,GECSXMZ,STATUS,X
  1. F S DA=$$SELECT^GECSSTAA("","","","","Select Stack Document: ") Q:'DA S GECSDOC=$P(DA,"^",2),DA=+DA D
  1. . L +^GECS(2100.1,DA):5 I '$T W !,"Another user is working with the stack document, try again later." Q
  1. . S STATUS=$P(^GECS(2100.1,DA,0),"^",4) S:STATUS="" STATUS="?"
  1. . W !?5,"Current Status: ",$$STATUS^GECSSGET(GECSDOC)
  1. . ;
  1. . S (DIC,DIE)="^GECS(2100.1,",DR=4.1 D ^DIE
  1. . L -^GECS(2100.1,DA)
  1. Q