SOWK57 ;B'HAM ISC/MAM - DELETE FILE 658 ; 3 May 1998 7:16 am
;;3.0; Social Work ;**57**;27 Apr 93
;
; call EN^DIU2, delete ^DD and Data Global
;
I '$D(^DIC(658)) G MSG
S DIU=658,DIU(0)="DT" D EN^DIU2
MSG W !!,"The NURSING HOME PROFILE file (#658) has been deleted.",!
K DIU
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSOWK57 294 printed Dec 13, 2024@02:37:43 Page 2
SOWK57 ;B'HAM ISC/MAM - DELETE FILE 658 ; 3 May 1998 7:16 am
+1 ;;3.0; Social Work ;**57**;27 Apr 93
+2 ;
+3 ; call EN^DIU2, delete ^DD and Data Global
+4 ;
+5 IF '$DATA(^DIC(658))
GOTO MSG
+6 SET DIU=658
SET DIU(0)="DT"
DO EN^DIU2
MSG WRITE !!,"The NURSING HOME PROFILE file (#658) has been deleted.",!
+1 KILL DIU
+2 QUIT