Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping
Routine: LEX2102P

LEX2102P.m

Go to the documentation of this file.

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

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

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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HLEX2102P   329     printed  Apr 09, 2024@21:11:19                                                                                                                                                                                                     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       ;