Routine: XU8P727

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.

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")

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXU8P727   429     printed  Feb 18, 2025@23:35:06                                                                                                                                                                                                      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

XU8P727.m