DG53174P.m

DG53174P ;ALB/SCK - DG*5.3*174 POST-INSTALL; 4/6/98

 ;;5.3;Registration;**174**;Aug 13, 1993

 ;

EN ; This routine will delete the FISCAL YEAR SUBFILE, #40.803, of the

 ; MEDICAL CENTER DIVISION File, #40.8.  This sub file has been marked

 ; for deletion

 ;

 D BMES^XPDUTL("The FISCAL YEAR SUB-FIELD, Field #20, of the MEDICAL CENTER DIVISION")

 D MES^XPDUTL("File, #40.8, has been marked for deletion.  This patch, as part of the")

 D MES^XPDUTL("Year 2000 renovations, will delete this subfile, #40.803, and any data")

 D MES^XPDUTL("and associated templates")

 ;

 D DELDD

 D BMES^XPDUTL(">>> Deletion of sub-file complete.")

 Q

 ;

DELDD ;

 N DIU

 S DIU=40.803,DIU(0)="DST" D EN^DIU2 K DIU

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DG53174P   714     printed  Dec 13, 2024@02:36:25                                                                                                                                                                                                     Page 2

DG53174P  ;ALB/SCK - DG*5.3*174 POST-INSTALL; 4/6/98

 +1       ;;5.3;Registration;**174**;Aug 13, 1993

 +2       ;

EN        ; This routine will delete the FISCAL YEAR SUBFILE, #40.803, of the

 +1       ; MEDICAL CENTER DIVISION File, #40.8.  This sub file has been marked

 +2       ; for deletion

 +3       ;

 +4        DO BMES^XPDUTL("The FISCAL YEAR SUB-FIELD, Field #20, of the MEDICAL CENTER DIVISION")

 +5        DO MES^XPDUTL("File, #40.8, has been marked for deletion.  This patch, as part of the")

 +6        DO MES^XPDUTL("Year 2000 renovations, will delete this subfile, #40.803, and any data")

 +7        DO MES^XPDUTL("and associated templates")

 +8       ;

 +9        DO DELDD

 +10       DO BMES^XPDUTL(">>> Deletion of sub-file complete.")

 +11       QUIT 

 +12      ;

DELDD     ;

 +1        NEW DIU

 +2        SET DIU=40.803

           SET DIU(0)="DST"

           DO EN^DIU2

           KILL DIU

 +3        QUIT