WVENV ;HCIOFO/FT-Environment Check ;9/24/98 09:07
;;1.0;WOMEN'S HEALTH;;Sep 30, 1998
;;
EN ; check if Rad/nm patch is installed.
I '$$PATCH^XPDUTL("RA*5.0*2") D
.S WVTEXT(1)="NOTE: The Radiology/Nuclear Medicine v5.0 package has an event"
.S WVTEXT(2)=" point (included with RA*5.0*2) which will notify the Women's"
.S WVTEXT(3)=" Health package whenever a radiology report is verified"
.S WVTEXT(4)=" for a mammogram. This event point allows mammograms"
.S WVTEXT(5)=" to be automatically entered into the Women's Health"
.S WVTEXT(6)=" Procedure file (#790.1)."
.S WVTEXT(7)=" "
.S WVTEXT(8)=" To use this functionality install RA*5.0*2."
.S WVTEXT(9)=" Please continue with this package installation."
.D BMES^XPDUTL(.WVTEXT)
.Q
K WVTEXT
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HWVENV 813 printed Sep 23, 2025@20:23:13 Page 2
WVENV ;HCIOFO/FT-Environment Check ;9/24/98 09:07
+1 ;;1.0;WOMEN'S HEALTH;;Sep 30, 1998
+2 ;;
EN ; check if Rad/nm patch is installed.
+1 IF '$$PATCH^XPDUTL("RA*5.0*2")
Begin DoDot:1
+2 SET WVTEXT(1)="NOTE: The Radiology/Nuclear Medicine v5.0 package has an event"
+3 SET WVTEXT(2)=" point (included with RA*5.0*2) which will notify the Women's"
+4 SET WVTEXT(3)=" Health package whenever a radiology report is verified"
+5 SET WVTEXT(4)=" for a mammogram. This event point allows mammograms"
+6 SET WVTEXT(5)=" to be automatically entered into the Women's Health"
+7 SET WVTEXT(6)=" Procedure file (#790.1)."
+8 SET WVTEXT(7)=" "
+9 SET WVTEXT(8)=" To use this functionality install RA*5.0*2."
+10 SET WVTEXT(9)=" Please continue with this package installation."
+11 DO BMES^XPDUTL(.WVTEXT)
+12 QUIT
End DoDot:1
+13 KILL WVTEXT
+14 QUIT
