SD53111P.m

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 ---SD53111P   1488     printed  Apr 09, 2024@21:43:34                                                                                                                                                                                                    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      ;