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 ---[H[J[2J[HDG53181P 666 printed Dec 13, 2024@02:36:29 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
