DG53181P.m

DG53181P ;ALB/MM Delete field #1819 from Ward Location file (#42) - ;5/19/98

 ;;5.3;Registration;**181**;Aug 13 1993

EN ;   

 D BMES^XPDUTL(">>>DG*5.3*181 will delete the *SCHEDULED ADMISSION PATIENT field (#1819)")

 D MES^XPDUTL("   subfile #42.182 from the WARD LOCATION File (#42).  The data dictionary")

 D MES^XPDUTL("   and data found on the ""RSV"" node will be deleted.  This field has been")

 D MES^XPDUTL("   starred for deletion.")

DEL ;

 I '$D(^DD(42.182)) D BMES^XPDUTL("   Data dictionary not found on your system.  No updating needed.") Q

 N DIU

 S DIU=42.182

 S DIU(0)="DS"

 D EN^DIU2

 K ^DIC(42,"ARSV")

 D BMES^XPDUTL("   Done.")

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DG53181P   666     printed  Feb 19, 2025@00:02:33                                                                                                                                                                                                     Page 2

DG53181P  ;ALB/MM Delete field #1819 from Ward Location file (#42) - ;5/19/98

 +1       ;;5.3;Registration;**181**;Aug 13 1993

EN        ;   

 +1        DO BMES^XPDUTL(">>>DG*5.3*181 will delete the *SCHEDULED ADMISSION PATIENT field (#1819)")

 +2        DO MES^XPDUTL("   subfile #42.182 from the WARD LOCATION File (#42).  The data dictionary")

 +3        DO MES^XPDUTL("   and data found on the ""RSV"" node will be deleted.  This field has been")

 +4        DO MES^XPDUTL("   starred for deletion.")

DEL       ;

 +1        IF '$DATA(^DD(42.182))

               DO BMES^XPDUTL("   Data dictionary not found on your system.  No updating needed.")

               QUIT 

 +2        NEW DIU

 +3        SET DIU=42.182

 +4        SET DIU(0)="DS"

 +5        DO EN^DIU2

 +6        KILL ^DIC(42,"ARSV")

 +7        DO BMES^XPDUTL("   Done.")

 +8        QUIT