XU8P690 ;ALB/GTS - Patch XU*8*690 post-init ;1/12/18 14:50
;;8.0;KERNEL;**690**;Jul 10, 1995;Build 18
;Per VHA VA Directive 6402, this routine should not be modified
;
ENPOST ; -- main entry point for XU*8*690 post-init
NEW XU690ST
SET XU690ST=$$XU690ST()
IF +XU690ST'=2 DO BMES^XPDUTL(" o 'ABNL IMA' addition to ALERT CRITICAL TEXT file (#8992.3) "_$SELECT(+XU690ST:"succeeded.",1:"failed."))
IF +XU690ST<1 DO MES^XPDUTL(" Error: "_$P(XU690ST,"^",2))
IF +XU690ST=2 DO
. DO BMES^XPDUTL(" o "_$P(XU690ST,"^",2))
. DO MES^XPDUTL(" ...no need to add '"_$$ALERTNAM_"' to file #8992.3")
QUIT
;
; -- Add ABNL IMA to file 8992.3
XU690ST() ;* Create Alert Critical Text file (#8992.3) entry
SET RESULT="1^SUCCESS"
SET DA=$$FIND1^DIC(8992.3,"","BX",$$ALERTNAM,"","","ERR")
IF +DA>0 SET RESULT="2^'"_$$ALERTNAM_"' ALERT CRITICAL TEXT file entry exists."
;
; Add A1VS PKG MGT PARAMETERS Parameter Template
IF +DA'>0 DO
. KILL DO
. SET DIC="^XTV(8992.3,",DIC(0)="LU" ;Do not execute Input Transforms on .01 field
. SET X=$$ALERTNAM()
. DO FILE^DICN
. SET XU690DA=+Y
. IF +XU690DA'>0 SET RESULT="0^ALERT CRITICAL TEXT file entry failure!"
. IF +XU690DA>0 DO
. . SET DA=XU690DA
. . SET DIE="^XTV(8992.3,"
. . SET DR=".02///"_$$PKGID()_";.03///"_$$CRTPKG()
. . DO ^DIE
;
QUIT RESULT
;
; -- Parameter Template definition APIs
ALERTNAM() ; -- return Parameter Template name (fld #.01)
QUIT "ABNL IMA"
;
PKGID() ; -- Package ID text (fld #.02)
QUIT ""
;
CRTPKG() ; -- return Creating Package that needed the entry (fld #.03)
QUIT "ORDER ENTRY/RESULTS REPORTING"
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXU8P690 1643 printed Oct 16, 2024@18:09:22 Page 2
XU8P690 ;ALB/GTS - Patch XU*8*690 post-init ;1/12/18 14:50
+1 ;;8.0;KERNEL;**690**;Jul 10, 1995;Build 18
+2 ;Per VHA VA Directive 6402, this routine should not be modified
+3 ;
ENPOST ; -- main entry point for XU*8*690 post-init
+1 NEW XU690ST
+2 SET XU690ST=$$XU690ST()
+3 IF +XU690ST'=2
DO BMES^XPDUTL(" o 'ABNL IMA' addition to ALERT CRITICAL TEXT file (#8992.3) "_$SELECT(+XU690ST:"succeeded.",1:"failed."))
+4 IF +XU690ST<1
DO MES^XPDUTL(" Error: "_$PIECE(XU690ST,"^",2))
+5 IF +XU690ST=2
Begin DoDot:1
+6 DO BMES^XPDUTL(" o "_$PIECE(XU690ST,"^",2))
+7 DO MES^XPDUTL(" ...no need to add '"_$$ALERTNAM_"' to file #8992.3")
End DoDot:1
+8 QUIT
+9 ;
+10 ; -- Add ABNL IMA to file 8992.3
XU690ST() ;* Create Alert Critical Text file (#8992.3) entry
+1 SET RESULT="1^SUCCESS"
+2 SET DA=$$FIND1^DIC(8992.3,"","BX",$$ALERTNAM,"","","ERR")
+3 IF +DA>0
SET RESULT="2^'"_$$ALERTNAM_"' ALERT CRITICAL TEXT file entry exists."
+4 ;
+5 ; Add A1VS PKG MGT PARAMETERS Parameter Template
+6 IF +DA'>0
Begin DoDot:1
+7 KILL DO
+8 ;Do not execute Input Transforms on .01 field
SET DIC="^XTV(8992.3,"
SET DIC(0)="LU"
+9 SET X=$$ALERTNAM()
+10 DO FILE^DICN
+11 SET XU690DA=+Y
+12 IF +XU690DA'>0
SET RESULT="0^ALERT CRITICAL TEXT file entry failure!"
+13 IF +XU690DA>0
Begin DoDot:2
+14 SET DA=XU690DA
+15 SET DIE="^XTV(8992.3,"
+16 SET DR=".02///"_$$PKGID()_";.03///"_$$CRTPKG()
+17 DO ^DIE
End DoDot:2
End DoDot:1
+18 ;
+19 QUIT RESULT
+20 ;
+21 ; -- Parameter Template definition APIs
ALERTNAM() ; -- return Parameter Template name (fld #.01)
+1 QUIT "ABNL IMA"
+2 ;
PKGID() ; -- Package ID text (fld #.02)
+1 QUIT ""
+2 ;
CRTPKG() ; -- return Creating Package that needed the entry (fld #.03)
+1 QUIT "ORDER ENTRY/RESULTS REPORTING"
