XU8P689 ;ALB/MA - Patch XU*8*689 Pre/Post init ;12/05/18
;;8.0;KERNEL;**689**;May 17, 2012;Build 113
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*689"
F I=1:1:14 S AA=$P($T(OO+I),";;",2) Q:AA="" D OUT^XPDMENU(AA,XUOO)
Q
;
;
OO ;
;;XU EPCS PRIVS
;;XU EPCS DISUSER PRIVS
;;XU EPCS SET PARMS
;;XU EPCS PRINT EDIT AUDIT
;;XU EPCS PSDRPH
;;XU EPCS PSDRPH KEY
;;XU EPCS EDIT DATA
;;XU EPCS EDIT DEA# AND XDATE
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXU8P689 799 printed Nov 22, 2024@17:18:41 Page 2
XU8P689 ;ALB/MA - Patch XU*8*689 Pre/Post init ;12/05/18
+1 ;;8.0;KERNEL;**689**;May 17, 2012;Build 113
+2 QUIT
PRE ;
+1 ;Deletes FIELD EDITED (#.03) of XUEPCS DATA FILE (#8991.6). A modified copy is sent in this patch
+2 NEW DIK,DA
SET DIK="^DD(8991.6,"
SET DA=.03
SET DA(1)=8991.6
DO ^DIK
+3 QUIT
+4 ;
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*689"
+3 FOR I=1:1:14
SET AA=$PIECE($TEXT(OO+I),";;",2)
if AA=""
QUIT
DO OUT^XPDMENU(AA,XUOO)
+4 QUIT
+5 ;
+6 ;
OO ;
+1 ;;XU EPCS PRIVS
+2 ;;XU EPCS DISUSER PRIVS
+3 ;;XU EPCS SET PARMS
+4 ;;XU EPCS PRINT EDIT AUDIT
+5 ;;XU EPCS PSDRPH
+6 ;;XU EPCS PSDRPH KEY
+7 ;;XU EPCS EDIT DATA
+8 ;;XU EPCS EDIT DEA# AND XDATE
