Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping
Routine: SOWK58

SOWK58.m

Go to the documentation of this file.

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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSOWK58   293     printed  Apr 09, 2024@21:40:18                                                                                                                                                                                                       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