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

SOWK57.m

Go to the documentation of this file.

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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSOWK57   294     printed  Mar 13, 2025@21:42:56                                                                                                                                                                                                       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