APCPREXP.m

APCPREXP ;IHS/CMI/LAB -  [ 09/27/99  8:10 AM ]

 ;

 ;

 NEW X

 S X=$$ADD^XPDMENU("APCPMENU","APCP RE-EXPORT MENU","REX",99)

 I 'X W "Attempt to add Re-Export Menu failed." H 3

 Q

APCPREXP  ;IHS/CMI/LAB -  [ 09/27/99  8:10 AM ]

 +1       ;

 +2       ;

 +3        NEW X

 +4        SET X=$$ADD^XPDMENU("APCPMENU","APCP RE-EXPORT MENU","REX",99)

 +5        IF 'X

               WRITE "Attempt to add Re-Export Menu failed."

               HANG 3

 +6        QUIT