DVBA149P.m

DVBA149P ;ALB/RPM - PATCH DVBA*2.7*149 PRE-INSTALL ; 1/26/11 3:46pm

 ;;2.7;AMIE;**149**;Apr 10, 1995;Build 16

 ;

 Q  ;NO DIRECT ENTRY

 ;

PRE ;Main entry point for Pre-init items.

 ;

 N DVBERR,DVBIEN,DVBFDA

 ;if the 2507 cancellation reason, 'VETERAN PLANS TO SUBMIT DBQ',

 ;exists in File #396.5, then delete the entry prior to installing 

 ;the build.

 S DVBIEN=$$FIND1^DIC(396.5,"","BX","VETERAN PLANS TO SUBMIT DBQ","","","DVBERR")

 I +DVBIEN D

 .S DVBFDA(396.5,DVBIEN_",",.01)="@"

 .D FILE^DIE("SK","DVBFDA","DVBERR")

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DVBA149P   541     printed  Apr 09, 2024@20:58:09                                                                                                                                                                                                     Page 2

DVBA149P  ;ALB/RPM - PATCH DVBA*2.7*149 PRE-INSTALL ; 1/26/11 3:46pm

 +1       ;;2.7;AMIE;**149**;Apr 10, 1995;Build 16

 +2       ;

 +3       ;NO DIRECT ENTRY

           QUIT 

 +4       ;

PRE       ;Main entry point for Pre-init items.

 +1       ;

 +2        NEW DVBERR,DVBIEN,DVBFDA

 +3       ;if the 2507 cancellation reason, 'VETERAN PLANS TO SUBMIT DBQ',

 +4       ;exists in File #396.5, then delete the entry prior to installing 

 +5       ;the build.

 +6        SET DVBIEN=$$FIND1^DIC(396.5,"","BX","VETERAN PLANS TO SUBMIT DBQ","","","DVBERR")

 +7        IF +DVBIEN

               Begin DoDot:1

 +8                SET DVBFDA(396.5,DVBIEN_",",.01)="@"

 +9                DO FILE^DIE("SK","DVBFDA","DVBERR")

               End DoDot:1

 +10       QUIT