IBY296PR.m

IBY296PR ;ALB/TMK - IB*2*296 PRE-INSTALL ;12-JAN-05

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

 ;

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

 ;

 D BMES^XPDUTL("Updating/removing output formatter records")

 S DA=1015,DIE="^IBA(364.7,",DR=".03////5" D ^DIE

 ;

 D ENDST

 ;

 D END

 Q

 ;

ENDST ;

 D BMES^XPDUTL("Step complete")

 Q

 ;

END ;

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

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---IBY296PR   402     printed  Apr 09, 2024@21:10:18                                                                                                                                                                                                     Page 2

IBY296PR  ;ALB/TMK - IB*2*296 PRE-INSTALL ;12-JAN-05

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

 +2       ;

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

 +4       ;

 +5        DO BMES^XPDUTL("Updating/removing output formatter records")

 +6        SET DA=1015

           SET DIE="^IBA(364.7,"

           SET DR=".03////5"

           DO ^DIE

 +7       ;

 +8        DO ENDST

 +9       ;

 +10       DO END

 +11       QUIT 

 +12      ;

ENDST     ;

 +1        DO BMES^XPDUTL("Step complete")

 +2        QUIT 

 +3       ;

END       ;

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

 +2        QUIT 

 +3       ;