WV29PST.m

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 ---WV29PST   1469     printed  Mar 13, 2025@21:51:28                                                                                                                                                                                                     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