BSDP10PS.m

BSDP10PS ;cmi/anch/maw - PIMS Patch 1010 Post Init 2/27/2007 10:32:52 AM

 ;;5.3;PIMS;**1010**;FEB 27,2007;

 ;

 ;

 ;

 ;

EN ;EP - Post Init Entry Point

 D ADDMENU

 Q

 ;

ADDMENU ;-- add menu items

 N X

 S X=$$ADD^XPDMENU("BSD MENU SUPERVISOR","BSDSM INACTIVATE WAIT LIST","IWL","")

 I 'X W !,"Attempt to add BSDSM INACTIVATE WAIT LIST option failed.." H 3

 S X=$$ADD^XPDMENU("BDG SECURITY MENU","BDG SECURITY REPORT USER","UAR","")

 I 'X W !,"Attempt to add BDG SECURITY REPORT USER option failed.." H 3

 Q

 ;

BSDP10PS  ;cmi/anch/maw - PIMS Patch 1010 Post Init 2/27/2007 10:32:52 AM

 +1       ;;5.3;PIMS;**1010**;FEB 27,2007;

 +2       ;

 +3       ;

 +4       ;

 +5       ;

EN        ;EP - Post Init Entry Point

 +1        DO ADDMENU

 +2        QUIT 

 +3       ;

ADDMENU   ;-- add menu items

 +1        NEW X

 +2        SET X=$$ADD^XPDMENU("BSD MENU SUPERVISOR","BSDSM INACTIVATE WAIT LIST","IWL","")

 +3        IF 'X

               WRITE !,"Attempt to add BSDSM INACTIVATE WAIT LIST option failed.."

               HANG 3

 +4        SET X=$$ADD^XPDMENU("BDG SECURITY MENU","BDG SECURITY REPORT USER","UAR","")

 +5        IF 'X

               WRITE !,"Attempt to add BDG SECURITY REPORT USER option failed.."

               HANG 3

 +6        QUIT 

 +7       ;