EDP2PRE.m

EDP2PRE ;SLC/BWF - Post-init for facility install ;6/5/13 2:25pm

 ;;2.0;EMERGENCY DEPARTMENT;**6**;Feb 24, 2012;Build 200

 ;

 D CLEAR,DEL

 Q

 ;

CLEAR ;

 N I

 ; delete components

 S I=0 F  S I=$O(^EDPB(232.72,I)) Q:'I  D

 .S FDA(232.72,I_",",.01)="@" D FILE^DIE(,"FDA")

 ; delete sections

 S I=0 F  S I=$O(^EDPB(232.71,I)) Q:'I  D

 .S FDA(232.71,I_",",.01)="@" D FILE^DIE(,"FDA")

 ; delete worksheets

 S I=0 F  S I=$O(^EDPB(232.6,I)) Q:'I  D

 .S FDA(232.6,I_",",.01)="@" D FILE^DIE(,"FDA")

 ; delete widgets

 S I=0 F  S I=$O(^EDPB(232.73,I)) Q:'I  D

 .S FDA(232.73,I_",",.01)="@" D FILE^DIE(,"FDA")

 Q

DEL ;

 ; delete data dictionary for file 232.6

 N ERR

 D DELIXN^DDMOD(232.72,"C","K","","")

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---EDP2PRE   722     printed  Apr 09, 2024@20:56:54                                                                                                                                                                                                      Page 2

EDP2PRE   ;SLC/BWF - Post-init for facility install ;6/5/13 2:25pm

 +1       ;;2.0;EMERGENCY DEPARTMENT;**6**;Feb 24, 2012;Build 200

 +2       ;

 +3        DO CLEAR

           DO DEL

 +4        QUIT 

 +5       ;

CLEAR     ;

 +1        NEW I

 +2       ; delete components

 +3        SET I=0

           FOR 

               SET I=$ORDER(^EDPB(232.72,I))

               if 'I

                   QUIT 

               Begin DoDot:1

 +4                SET FDA(232.72,I_",",.01)="@"

                   DO FILE^DIE(,"FDA")

               End DoDot:1

 +5       ; delete sections

 +6        SET I=0

           FOR 

               SET I=$ORDER(^EDPB(232.71,I))

               if 'I

                   QUIT 

               Begin DoDot:1

 +7                SET FDA(232.71,I_",",.01)="@"

                   DO FILE^DIE(,"FDA")

               End DoDot:1

 +8       ; delete worksheets

 +9        SET I=0

           FOR 

               SET I=$ORDER(^EDPB(232.6,I))

               if 'I

                   QUIT 

               Begin DoDot:1

 +10               SET FDA(232.6,I_",",.01)="@"

                   DO FILE^DIE(,"FDA")

               End DoDot:1

 +11      ; delete widgets

 +12       SET I=0

           FOR 

               SET I=$ORDER(^EDPB(232.73,I))

               if 'I

                   QUIT 

               Begin DoDot:1

 +13               SET FDA(232.73,I_",",.01)="@"

                   DO FILE^DIE(,"FDA")

               End DoDot:1

 +14       QUIT 

DEL       ;

 +1       ; delete data dictionary for file 232.6

 +2        NEW ERR

 +3        DO DELIXN^DDMOD(232.72,"C","K","","")

 +4        QUIT