XU8P582 ;BP-OAK/BT - Error Trap Summary Utilities ;08/02/2011
;;8.0;KERNEL;**582**;Jul 10, 1995;Build 6
;Per VHA Directive 2004-038, this routine should not be modified.
Q
POST ;Post-init for patch XU*8*582
N FDA,XU582
S XU582=+$P($G(^XTV(8989.3,1,"ZTER")),"^",1)
I XU582=10 S FDA(8989.3,"1,",520.1)=100 D FILE^DIE("","FDA")
D GETXUIEN ; Update Descption for the option XUERTRP AUTO CLEAN
D PATCH^ZTMGRSET(582)
Q
;
GETXUIEN ; get IEN of the option XUERTRP AUTO CLEAN
N XUIEN S XUIEN=$$FIND1^DIC(19,"","MX","XUERTRP AUTO CLEAN","","","ERR")
I XUIEN'>0 Q
D DEF1(XUIEN) ; Update Description for the option XUERTRP AUTO CLEAN
Q
;
DEF1(XUIEN) ; Update TEXT Description for an option
N XUI1,XUDATA,XUY
K ^TMP($J,"XUBA")
F XUY=1:1:4 S XUDATA=$T(TEXT+XUY) Q:XUDATA=" ;;END" D
. S ^TMP($J,"XUBA",XUIEN,XUY,0)=$P(XUDATA,";;",2)
S XUI1=XUIEN_","
D WP^DIE(19,XUI1,3.5,"K","^TMP($J,""XUBA"",XUIEN)")
K ^TMP($J,"XUBA")
Q
;
TEXT ;
;;This is a queueable option to clean up the error trap. This option will
;;clean-up any errors that were recorded more than a number of days ago. The
;;number of days is defined on the KEEP ERROR TRAP field (#520.3) in the KERNEL
;;SYSTEM PARAMETERS file (#8989.3). The default is 7 if the field is blank.
;;END
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXU8P582 1295 printed Nov 22, 2024@17:18:24 Page 2
XU8P582 ;BP-OAK/BT - Error Trap Summary Utilities ;08/02/2011
+1 ;;8.0;KERNEL;**582**;Jul 10, 1995;Build 6
+2 ;Per VHA Directive 2004-038, this routine should not be modified.
+3 QUIT
POST ;Post-init for patch XU*8*582
+1 NEW FDA,XU582
+2 SET XU582=+$PIECE($GET(^XTV(8989.3,1,"ZTER")),"^",1)
+3 IF XU582=10
SET FDA(8989.3,"1,",520.1)=100
DO FILE^DIE("","FDA")
+4 ; Update Descption for the option XUERTRP AUTO CLEAN
DO GETXUIEN
+5 DO PATCH^ZTMGRSET(582)
+6 QUIT
+7 ;
GETXUIEN ; get IEN of the option XUERTRP AUTO CLEAN
+1 NEW XUIEN
SET XUIEN=$$FIND1^DIC(19,"","MX","XUERTRP AUTO CLEAN","","","ERR")
+2 IF XUIEN'>0
QUIT
+3 ; Update Description for the option XUERTRP AUTO CLEAN
DO DEF1(XUIEN)
+4 QUIT
+5 ;
DEF1(XUIEN) ; Update TEXT Description for an option
+1 NEW XUI1,XUDATA,XUY
+2 KILL ^TMP($JOB,"XUBA")
+3 FOR XUY=1:1:4
SET XUDATA=$TEXT(TEXT+XUY)
if XUDATA=" ;;END"
QUIT
Begin DoDot:1
+4 SET ^TMP($JOB,"XUBA",XUIEN,XUY,0)=$PIECE(XUDATA,";;",2)
End DoDot:1
+5 SET XUI1=XUIEN_","
+6 DO WP^DIE(19,XUI1,3.5,"K","^TMP($J,""XUBA"",XUIEN)")
+7 KILL ^TMP($JOB,"XUBA")
+8 QUIT
+9 ;
TEXT ;
+1 ;;This is a queueable option to clean up the error trap. This option will
+2 ;;clean-up any errors that were recorded more than a number of days ago. The
+3 ;;number of days is defined on the KEEP ERROR TRAP field (#520.3) in the KERNEL
+4 ;;SYSTEM PARAMETERS file (#8989.3). The default is 7 if the field is blank.
+5 ;;END
