XU8P689.m

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 ---XU8P689   799     printed  Apr 09, 2024@21:05:18                                                                                                                                                                                                      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