XGABAR.m

XGABAR ;JSH,DJW ;4/21/93  11:39 AM

 ;;3.01;BHL IHS Interfaces with GIS;;JUL 01, 2001

 ;CHCS TLS_4602; GEN 2; 12-NOV-1998

 ;COPYRIGHT 1993 SAIC

 ;

 Q

BBASK(XGABARN) ;Button bar

 S XGABPOP=0 N X,XGABVAL S X=$$GET^XGABU(XGABARN,2) I 'X Q:XGABPOP "" S XGABPOP=3 Q ""

 K XGABESCF S XGABVAL="" D RUN^XGABR(X,0,2)

 Q XGABVAL

 ;

ABASK(XGABARN) ;Action bar

 S XGABPOP=0 K XGABESCF N X S X=$$GET^XGABU(XGABARN,2,1) I 'X Q:XGABPOP  S XGABPOP=3 Q

 D RUN^XGABR(X) Q

 ;

STDHLP ;Standard help

 W "To choose an item you may either:"

 W !?5,"1.  Use arrow keys to move to desired choice and press RETURN."

 W !?5,"2.  Press the highlighted letter on the desired item (no RETURN needed)."

 W !!,"Press '^' or "_$$KEY^DWUTL("EXIT TEXT OR MULTIPLE")_" to exit."

 Q

XGABAR    ;JSH,DJW ;4/21/93  11:39 AM

 +1       ;;3.01;BHL IHS Interfaces with GIS;;JUL 01, 2001

 +2       ;CHCS TLS_4602; GEN 2; 12-NOV-1998

 +3       ;COPYRIGHT 1993 SAIC

 +4       ;

 +5        QUIT 

BBASK(XGABARN) ;Button bar

 +1        SET XGABPOP=0

           NEW X,XGABVAL

           SET X=$$GET^XGABU(XGABARN,2)

           IF 'X

               IF XGABPOP

                   QUIT ""

               SET XGABPOP=3

               QUIT ""

 +2        KILL XGABESCF

           SET XGABVAL=""

           DO RUN^XGABR(X,0,2)

 +3        QUIT XGABVAL

 +4       ;

ABASK(XGABARN) ;Action bar

 +1        SET XGABPOP=0

           KILL XGABESCF

           NEW X

           SET X=$$GET^XGABU(XGABARN,2,1)

           IF 'X

               IF XGABPOP

                   QUIT 

               SET XGABPOP=3

               QUIT 

 +2        DO RUN^XGABR(X)

           QUIT 

 +3       ;

STDHLP    ;Standard help

 +1        WRITE "To choose an item you may either:"

 +2        WRITE !?5,"1.  Use arrow keys to move to desired choice and press RETURN."

 +3        WRITE !?5,"2.  Press the highlighted letter on the desired item (no RETURN needed)."

 +4        WRITE !!,"Press '^' or "_$$KEY^DWUTL("EXIT TEXT OR MULTIPLE")_" to exit."

 +5        QUIT