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 Dec 13, 2024@01:51:25 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
