AVAMENU.m

AVAMENU ;IHS/SET/GTH - MENU SUBROUTINES ; [ 09/12/2002   3:15 PM ]

 ;;93.2;VA SUPPORT FILES;**13,23**;JUL 01, 1993;Build 12

 ;

 ; IHS/SET/GTH AVA*93.2*13 09/12/2002

 ; IHS/OIT/FBD AVA*93.2*23 12/17/2014

 ;

HDR(AVA) ;EP - From options.

 W @IOF,!!,$$CJ^XLFSTR("AVA v "_$$VERSION^XPDUTL("AVA"),IOM),!,$$CJ^XLFSTR(AVA,IOM),!,$$CJ^XLFSTR(XQUSER,IOM),!,$$CJ^XLFSTR($P(^DIC(4,DUZ(2),0),U),IOM)

 D ^XBFMK  ;IHS/OIT/FBD - AVA*93.2*23 - ADDED LINE TO CLEAN FILEMAN-RELATED GARBAGE FROM PREVIOUS PROCESSES AS PART OF OPTION ENTRY

 Q

 ;

AVAMENU   ;IHS/SET/GTH - MENU SUBROUTINES ; [ 09/12/2002   3:15 PM ]

 +1       ;;93.2;VA SUPPORT FILES;**13,23**;JUL 01, 1993;Build 12

 +2       ;

 +3       ; IHS/SET/GTH AVA*93.2*13 09/12/2002

 +4       ; IHS/OIT/FBD AVA*93.2*23 12/17/2014

 +5       ;

HDR(AVA)  ;EP - From options.

 +1        WRITE @IOF,!!,$$CJ^XLFSTR("AVA v "_$$VERSION^XPDUTL("AVA"),IOM),!,$$CJ^XLFSTR(AVA,IOM),!,$$CJ^XLFSTR(XQUSER,IOM),!,$$CJ^XLFSTR($PIECE(^DIC(4,DUZ(2),0),U),IOM)

 +2       ;IHS/OIT/FBD - AVA*93.2*23 - ADDED LINE TO CLEAN FILEMAN-RELATED GARBAGE FROM PREVIOUS PROCESSES AS PART OF OPTION ENTRY

           DO ^XBFMK

 +3        QUIT 

 +4       ;