IBY135PR.m

IBY135PR ;ALB/TMK - IB*2*135 PRE-INSTALL ;06-OCT-03

 ;;2.0;INTEGRATED BILLING;**135**;21-MAR-94

 ;

 N DA,DIK,X,Y

 D BMES^XPDUTL("Pre-Installation Updates")

 D BMES^XPDUTL("Delete PROCEDURE field in file #361.1, subfield 15 that changes from pointer to free text")

 I $D(^DD(361.115,.04,0)) S DA(1)=361.115,DA=.04,DIK="^DD(361.115," D ^DIK

 ;

 D BMES^XPDUTL("Pre-install complete")

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---IBY135PR   398     printed  Feb 18, 2025@23:59:51                                                                                                                                                                                                     Page 2

IBY135PR  ;ALB/TMK - IB*2*135 PRE-INSTALL ;06-OCT-03

 +1       ;;2.0;INTEGRATED BILLING;**135**;21-MAR-94

 +2       ;

 +3        NEW DA,DIK,X,Y

 +4        DO BMES^XPDUTL("Pre-Installation Updates")

 +5        DO BMES^XPDUTL("Delete PROCEDURE field in file #361.1, subfield 15 that changes from pointer to free text")

 +6        IF $DATA(^DD(361.115,.04,0))

               SET DA(1)=361.115

               SET DA=.04

               SET DIK="^DD(361.115,"

               DO ^DIK

 +7       ;

 +8        DO BMES^XPDUTL("Pre-install complete")

 +9        QUIT 

 +10      ;