XU8P746.m

XU8P746 ;OAK/JLG - POST ROUTINE FOR PATCH XU*8*746; Feb 12, 2021@14:15

 ;;8.0;KERNEL;**746**;Jul 10, 1995;Build 7

 ;Per VA Directive 6402, this routine should not be modified.

 Q

 ;

POST    ; POST routine

 D ADDOP

 Q

 ;

ADDOP   ; Add a new option under the XUSER SEC OFCR menu option.

 N XUA,XUB,XUC

 S XUA="XUSER SEC OFCR"

 S XUB="XUSER REMOTE"

 IF $$FIND1^DIC(19,,"X",XUA,,,),$$FIND1^DIC(19,,"X",XUB,,,) S XUC=$$ADD^XPDMENU(XUA,XUB,,)

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---XU8P746   459     printed  Feb 18, 2025@23:35:08                                                                                                                                                                                                      Page 2

XU8P746   ;OAK/JLG - POST ROUTINE FOR PATCH XU*8*746; Feb 12, 2021@14:15

 +1       ;;8.0;KERNEL;**746**;Jul 10, 1995;Build 7

 +2       ;Per VA Directive 6402, this routine should not be modified.

 +3        QUIT 

 +4       ;

POST      ; POST routine

 +1        DO ADDOP

 +2        QUIT 

 +3       ;

ADDOP     ; Add a new option under the XUSER SEC OFCR menu option.

 +1        NEW XUA,XUB,XUC

 +2        SET XUA="XUSER SEC OFCR"

 +3        SET XUB="XUSER REMOTE"

 +4        IF $$FIND1^DIC(19,,"X",XUA,,,)

               IF $$FIND1^DIC(19,,"X",XUB,,,)

                   SET XUC=$$ADD^XPDMENU(XUA,XUB,,)

 +5        QUIT 

 +6       ;