XU8P771 ;OAK/JLG - POST ROUTINE FOR PATCH XU*8*771; Apr 08, 2022@13:47
;;8.0;KERNEL;**771**;Jul 10, 1995;Build 8
;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 ---[H[J[2J[HXU8P771 459 printed Sep 15, 2024@21:32:58 Page 2
XU8P771 ;OAK/JLG - POST ROUTINE FOR PATCH XU*8*771; Apr 08, 2022@13:47
+1 ;;8.0;KERNEL;**771**;Jul 10, 1995;Build 8
+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 ;
