XU8P765 ;ALB/MA - Patch XU*8*765 Post init ;12/05/18
;;8.0;KERNEL;**765**;May 17, 2012;Build 3
Q
;PRE ;
;Deletes FIELD EDITED (#.03) of XUEPCS DATA FILE (#8991.6). A modified copy is sent in this patch
;N DIK,DA S DIK="^DD(8991.6,",DA=.03,DA(1)=8991.6 D ^DIK
;Q
;
POST ;The listed XU EPCS options are placed out of order as they are moved over to PSO namespace
D BMES^XPDUTL("...Placing XU EPCS UTILITY FUNCTIONS menu options out of order...")
N XUOO,AA,I S XUOO="PLACED OUT OF ORDER BY XU*8*765"
F I=1:1:7 S AA=$P($T(OO+I),";;",2) Q:AA="" D OUT^XPDMENU(AA,XUOO)
Q
;
;
OO ;
;;XU EPCS LOGICAL ACCESS
;;XU EPCS PSDRPH AUDIT
;;XU EPCS PSDRPH KEY
;;XU EPCS EXP DATE
;;XU EPCS DISUSER EXP DATE
;;XU EPCS XDATE EXPIRES
;;XU EPCS DISUSER XDATE EXPIRES
;;
;;XU EPCS EDIT DEA# AND XDATE
;;XU EPCS EDIT DATA
;;XU EPCS PRIVS
;;XU EPCS DISUSER PRIVS
;;XU EPCS PSDRPH
;;XU EPCS SET PARMS
;;XU EPCS PRINT EDIT AUDIT
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXU8P765 963 printed Nov 22, 2024@17:18:53 Page 2
XU8P765 ;ALB/MA - Patch XU*8*765 Post init ;12/05/18
+1 ;;8.0;KERNEL;**765**;May 17, 2012;Build 3
+2 QUIT
+3 ;PRE ;
+4 ;Deletes FIELD EDITED (#.03) of XUEPCS DATA FILE (#8991.6). A modified copy is sent in this patch
+5 ;N DIK,DA S DIK="^DD(8991.6,",DA=.03,DA(1)=8991.6 D ^DIK
+6 ;Q
+7 ;
POST ;The listed XU EPCS options are placed out of order as they are moved over to PSO namespace
+1 DO BMES^XPDUTL("...Placing XU EPCS UTILITY FUNCTIONS menu options out of order...")
+2 NEW XUOO,AA,I
SET XUOO="PLACED OUT OF ORDER BY XU*8*765"
+3 FOR I=1:1:7
SET AA=$PIECE($TEXT(OO+I),";;",2)
if AA=""
QUIT
DO OUT^XPDMENU(AA,XUOO)
+4 QUIT
+5 ;
+6 ;
OO ;
+1 ;;XU EPCS LOGICAL ACCESS
+2 ;;XU EPCS PSDRPH AUDIT
+3 ;;XU EPCS PSDRPH KEY
+4 ;;XU EPCS EXP DATE
+5 ;;XU EPCS DISUSER EXP DATE
+6 ;;XU EPCS XDATE EXPIRES
+7 ;;XU EPCS DISUSER XDATE EXPIRES
+8 ;;
+9 ;;XU EPCS EDIT DEA# AND XDATE
+10 ;;XU EPCS EDIT DATA
+11 ;;XU EPCS PRIVS
+12 ;;XU EPCS DISUSER PRIVS
+13 ;;XU EPCS PSDRPH
+14 ;;XU EPCS SET PARMS
+15 ;;XU EPCS PRINT EDIT AUDIT
