SOWK58 ;B'HAM ISC/MAM - DELETE FILE 657 ; 24 July 1998 7:16 am
;;3.0; Social Work ;**58**;27 Apr 93
;
; call EN^DIU2, delete ^DD and Data Global
;
I '$D(^DIC(657)) G MSG
S DIU=657,DIU(0)="DT" D EN^DIU2
MSG W !!,"The CNHC COST CONTROL file (#657) has been deleted.",!
K DIU
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSOWK58 293 printed Nov 22, 2024@17:47:44 Page 2
SOWK58 ;B'HAM ISC/MAM - DELETE FILE 657 ; 24 July 1998 7:16 am
+1 ;;3.0; Social Work ;**58**;27 Apr 93
+2 ;
+3 ; call EN^DIU2, delete ^DD and Data Global
+4 ;
+5 IF '$DATA(^DIC(657))
GOTO MSG
+6 SET DIU=657
SET DIU(0)="DT"
DO EN^DIU2
MSG WRITE !!,"The CNHC COST CONTROL file (#657) has been deleted.",!
+1 KILL DIU
+2 QUIT