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

XGABAR.m

Go to the documentation of this file.
  1. XGABAR ;JSH,DJW ;4/21/93 11:39 AM
  1. ;;3.01;BHL IHS Interfaces with GIS;;JUL 01, 2001
  1. ;CHCS TLS_4602; GEN 2; 12-NOV-1998
  1. ;COPYRIGHT 1993 SAIC
  1. ;
  1. Q
  1. BBASK(XGABARN) ;Button bar
  1. S XGABPOP=0 N X,XGABVAL S X=$$GET^XGABU(XGABARN,2) I 'X Q:XGABPOP "" S XGABPOP=3 Q ""
  1. K XGABESCF S XGABVAL="" D RUN^XGABR(X,0,2)
  1. Q XGABVAL
  1. ;
  1. ABASK(XGABARN) ;Action bar
  1. S XGABPOP=0 K XGABESCF N X S X=$$GET^XGABU(XGABARN,2,1) I 'X Q:XGABPOP S XGABPOP=3 Q
  1. D RUN^XGABR(X) Q
  1. ;
  1. STDHLP ;Standard help
  1. W "To choose an item you may either:"
  1. W !?5,"1. Use arrow keys to move to desired choice and press RETURN."
  1. W !?5,"2. Press the highlighted letter on the desired item (no RETURN needed)."
  1. W !!,"Press '^' or "_$$KEY^DWUTL("EXIT TEXT OR MULTIPLE")_" to exit."
  1. Q