SD53111P ;ALB/ABR - SD*5.3*111 POST-INSTALL; 4/2/97
;;5.3;Scheduling;**111**;Aug 13, 1993
;
EN ; This routine will delete the DD and data for files
; 409.71, 409.72, 409.81, 409.82, 409.3, and 40.6
;
;
D BMES^XPDUTL("The data, data dictionary, and associated templates will be deleted"),MES^XPDUTL("for the following files:")
D MES^XPDUTL(" 409.71 - AMBULATORY PROCEDURE"),MES^XPDUTL(" 409.72 - AMBULATORY PROCEDURE TIME SENSITIVE")
D MES^XPDUTL(" 409.3 - AMBULATORY PROCEDURE GROUPS"),MES^XPDUTL(" 409.81 - RAM GROUP"),MES^XPDUTL(" 409.82 - RAM REIMBURSEMENT")
D MES^XPDUTL(" 40.6 - AMBULATORY SURGERY PROCEDURE")
;
D DELDD
D BMES^XPDUTL(">>> FILE DELETIONS COMPLETE.")
Q
;
DELDD ; file deletions
N DIU
S DIU="^SD(409.71,",DIU(0)="DT" D EN^DIU2 K DIU
D BMES^XPDUTL("File #409.71, AMBULATORY PROCEDURE, has been deleted")
S DIU="^SD(409.72,",DIU(0)="DT" D EN^DIU2 K DIU
D MES^XPDUTL("File #409.71, AMBULATORY PROCEDURE TIME SENSITIVE, has been deleted")
S DIU="^SD(409.3,",DIU(0)="DT" D EN^DIU2 K DIU
D MES^XPDUTL("File #409.3, AMBULATORY PROCEDURE GROUPS, has been deleted")
S DIU="^SD(409.81,",DIU(0)="DT" D EN^DIU2 K DIU
D MES^XPDUTL("File #409.81, RAM GROUP has been deleted")
S DIU="^SD(409.82,",DIU(0)="DT" D EN^DIU2 K DIU
D MES^XPDUTL("File #409.81, RAM REIMBURSEMENT has been deleted")
S DIU="^DIC(40.6,",DIU(0)="DT" D EN^DIU2 K DIU
D MES^XPDUTL("File #40.6, AMBULATORY SURGERY PROCEDURE has been deleted")
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSD53111P 1488 printed Nov 22, 2024@17:54:45 Page 2
SD53111P ;ALB/ABR - SD*5.3*111 POST-INSTALL; 4/2/97
+1 ;;5.3;Scheduling;**111**;Aug 13, 1993
+2 ;
EN ; This routine will delete the DD and data for files
+1 ; 409.71, 409.72, 409.81, 409.82, 409.3, and 40.6
+2 ;
+3 ;
+4 DO BMES^XPDUTL("The data, data dictionary, and associated templates will be deleted")
DO MES^XPDUTL("for the following files:")
+5 DO MES^XPDUTL(" 409.71 - AMBULATORY PROCEDURE")
DO MES^XPDUTL(" 409.72 - AMBULATORY PROCEDURE TIME SENSITIVE")
+6 DO MES^XPDUTL(" 409.3 - AMBULATORY PROCEDURE GROUPS")
DO MES^XPDUTL(" 409.81 - RAM GROUP")
DO MES^XPDUTL(" 409.82 - RAM REIMBURSEMENT")
+7 DO MES^XPDUTL(" 40.6 - AMBULATORY SURGERY PROCEDURE")
+8 ;
+9 DO DELDD
+10 DO BMES^XPDUTL(">>> FILE DELETIONS COMPLETE.")
+11 QUIT
+12 ;
DELDD ; file deletions
+1 NEW DIU
+2 SET DIU="^SD(409.71,"
SET DIU(0)="DT"
DO EN^DIU2
KILL DIU
+3 DO BMES^XPDUTL("File #409.71, AMBULATORY PROCEDURE, has been deleted")
+4 SET DIU="^SD(409.72,"
SET DIU(0)="DT"
DO EN^DIU2
KILL DIU
+5 DO MES^XPDUTL("File #409.71, AMBULATORY PROCEDURE TIME SENSITIVE, has been deleted")
+6 SET DIU="^SD(409.3,"
SET DIU(0)="DT"
DO EN^DIU2
KILL DIU
+7 DO MES^XPDUTL("File #409.3, AMBULATORY PROCEDURE GROUPS, has been deleted")
+8 SET DIU="^SD(409.81,"
SET DIU(0)="DT"
DO EN^DIU2
KILL DIU
+9 DO MES^XPDUTL("File #409.81, RAM GROUP has been deleted")
+10 SET DIU="^SD(409.82,"
SET DIU(0)="DT"
DO EN^DIU2
KILL DIU
+11 DO MES^XPDUTL("File #409.81, RAM REIMBURSEMENT has been deleted")
+12 SET DIU="^DIC(40.6,"
SET DIU(0)="DT"
DO EN^DIU2
KILL DIU
+13 DO MES^XPDUTL("File #40.6, AMBULATORY SURGERY PROCEDURE has been deleted")
+14 QUIT
+15 ;
