LEX2102P.m

LEX2102P ;SLC/PKR - LEX*2.0*102 Pre/Post Install ;08/18/2015

 ;;2.0;LEXICON UTILITY;**102**;Sep 23, 1996;Build 20

 Q

 ;

PRE ; Pre-Install

 ;If the DD exists remove it and the data.

 I $$VFILE^DILFD(757.5)=0 Q

 D MES^XPDUTL("Deleting #757.5 data dictionary and data.")

 N DIU

 S DIU=757.5,DIU(0)="D"

 D EN^DIU2

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---LEX2102P   329     printed  Mar 13, 2025@21:09:48                                                                                                                                                                                                     Page 2

LEX2102P  ;SLC/PKR - LEX*2.0*102 Pre/Post Install ;08/18/2015

 +1       ;;2.0;LEXICON UTILITY;**102**;Sep 23, 1996;Build 20

 +2        QUIT 

 +3       ;

PRE       ; Pre-Install

 +1       ;If the DD exists remove it and the data.

 +2        IF $$VFILE^DILFD(757.5)=0

               QUIT 

 +3        DO MES^XPDUTL("Deleting #757.5 data dictionary and data.")

 +4        NEW DIU

 +5        SET DIU=757.5

           SET DIU(0)="D"

 +6        DO EN^DIU2

 +7        QUIT 

 +8       ;