- 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 ---[H[J[2J[HEDP2PRE 722 printed Apr 23, 2025@18:05:55 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
