source: WorldVistAEHR/trunk/r/GENERIC_CODE_SHEET-GEC/GECSSCOM.m@ 1042

Last change on this file since 1042 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 577 bytes
Line 
1GECSSCOM ;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.