XU8P727 ;OAK/BT - POST ROUTINE FOR PATCH XU*8*727; 03/26/2020
;;8.0;KERNEL;**727**;Jul 10, 1995;Build 4
;Per VA Directive 6402, this routine should not be modified.
Q
;
POST ; Post routine
N XUOPIEN,XARR,XOPTRM
S XUOPIEN=+$$FIND1^DIC(19,,"","XUS SIGNON") I XUOPIEN'>0 Q
S XOPTRM=+$$FIND1^DIC(8994,,"","XUS IS USER ACTIVE") I XOPTRM'>0 Q
S XARR(19.05,"?+2,"_XUOPIEN_",",.01)=XOPTRM
D UPDATE^DIE("","XARR")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXU8P727 429 printed Sep 23, 2025@19:44:46 Page 2
XU8P727 ;OAK/BT - POST ROUTINE FOR PATCH XU*8*727; 03/26/2020
+1 ;;8.0;KERNEL;**727**;Jul 10, 1995;Build 4
+2 ;Per VA Directive 6402, this routine should not be modified.
+3 QUIT
+4 ;
POST ; Post routine
+1 NEW XUOPIEN,XARR,XOPTRM
+2 SET XUOPIEN=+$$FIND1^DIC(19,,"","XUS SIGNON")
IF XUOPIEN'>0
QUIT
+3 SET XOPTRM=+$$FIND1^DIC(8994,,"","XUS IS USER ACTIVE")
IF XOPTRM'>0
QUIT
+4 SET XARR(19.05,"?+2,"_XUOPIEN_",",.01)=XOPTRM
+5 DO UPDATE^DIE("","XARR")
+6 QUIT
