WV29PST ;SLC/WAS-WV*1*29 POST INSTALLATION ROUTINE; Aug 17,2022@14:28
;;1.0;WOMEN'S HEALTH;**29**;Sep 30, 1998;Build 20
;
; Reference to ^XPDUTL in ICR #10141
; Reference to ^DIE in ICR #10013
; Reference to ^DIE in ICR #10018
;
ENV ; Environment check point.
;
S XPDABORT=""
D PROGCHK(.XPDABORT) ;checks programmer variables
I XPDABORT="" K XPDABORT
Q
;
PRE ; Main entry point for Pre-init items.
;
D BMES^XPDUTL("Pre-installation begin...")
;
; Delete invalid pointers in .07 in file #790.404
N TSTFLD,DR,DIE,DA
S DA="" F S DA=$O(^WV(790.404,DA)) Q:DA="" D
.S TSTFLD=$P($G(^WV(790.404,DA,0)),"^",7)
.I (TSTFLD'="") D
..I '$D(^WV(790.51,TSTFLD)) D
...S DIE="^WV(790.404,",DR=".07///@" D ^DIE
;
D BMES^XPDUTL("Pre-installation complete...")
;
Q
;
POST ; Main entry point for Post-init items.
;
D BMES^XPDUTL("Post-installation begin...")
;
; Update the BREAST NEED MRI value to "BREAST MRI" in file #790.404
N DR,DIE
N DA S DA=$O(^WV(790.404,"U","BREAST NEED MRI","")) Q:'DA
S DIE="^WV(790.404,",DR=".07///Breast MRI" D ^DIE
;
D BMES^XPDUTL("Post-installation complete...")
;
Q
;
PROGCHK(XPDABORT) ; Checks for necessary programmer variables
;
I '$G(DUZ)!($G(DUZ(0))'="@")!('$G(DT))!($G(U)'="^") D
.D MES^XPDUTL("*****")
.D MES^XPDUTL("Your programming variables are not set up properly.")
.D MES^XPDUTL("Installation aborted.")
.D MES^XPDUTL("*****")
.S XPDABORT=2
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HWV29PST 1469 printed Dec 13, 2024@02:46:30 Page 2
WV29PST ;SLC/WAS-WV*1*29 POST INSTALLATION ROUTINE; Aug 17,2022@14:28
+1 ;;1.0;WOMEN'S HEALTH;**29**;Sep 30, 1998;Build 20
+2 ;
+3 ; Reference to ^XPDUTL in ICR #10141
+4 ; Reference to ^DIE in ICR #10013
+5 ; Reference to ^DIE in ICR #10018
+6 ;
ENV ; Environment check point.
+1 ;
+2 SET XPDABORT=""
+3 ;checks programmer variables
DO PROGCHK(.XPDABORT)
+4 IF XPDABORT=""
KILL XPDABORT
+5 QUIT
+6 ;
PRE ; Main entry point for Pre-init items.
+1 ;
+2 DO BMES^XPDUTL("Pre-installation begin...")
+3 ;
+4 ; Delete invalid pointers in .07 in file #790.404
+5 NEW TSTFLD,DR,DIE,DA
+6 SET DA=""
FOR
SET DA=$ORDER(^WV(790.404,DA))
if DA=""
QUIT
Begin DoDot:1
+7 SET TSTFLD=$PIECE($GET(^WV(790.404,DA,0)),"^",7)
+8 IF (TSTFLD'="")
Begin DoDot:2
+9 IF '$DATA(^WV(790.51,TSTFLD))
Begin DoDot:3
+10 SET DIE="^WV(790.404,"
SET DR=".07///@"
DO ^DIE
End DoDot:3
End DoDot:2
End DoDot:1
+11 ;
+12 DO BMES^XPDUTL("Pre-installation complete...")
+13 ;
+14 QUIT
+15 ;
POST ; Main entry point for Post-init items.
+1 ;
+2 DO BMES^XPDUTL("Post-installation begin...")
+3 ;
+4 ; Update the BREAST NEED MRI value to "BREAST MRI" in file #790.404
+5 NEW DR,DIE
+6 NEW DA
SET DA=$ORDER(^WV(790.404,"U","BREAST NEED MRI",""))
if 'DA
QUIT
+7 SET DIE="^WV(790.404,"
SET DR=".07///Breast MRI"
DO ^DIE
+8 ;
+9 DO BMES^XPDUTL("Post-installation complete...")
+10 ;
+11 QUIT
+12 ;
PROGCHK(XPDABORT) ; Checks for necessary programmer variables
+1 ;
+2 IF '$GET(DUZ)!($GET(DUZ(0))'="@")!('$GET(DT))!($GET(U)'="^")
Begin DoDot:1
+3 DO MES^XPDUTL("*****")
+4 DO MES^XPDUTL("Your programming variables are not set up properly.")
+5 DO MES^XPDUTL("Installation aborted.")
+6 DO MES^XPDUTL("*****")
+7 SET XPDABORT=2
End DoDot:1
+8 QUIT
