Changeset 636 for FOIAVistA/tag/r/ENGINEERING-EN/ENEQ4.m

Timestamp:

Dec 4, 2009, 8:26:01 PM (14 years ago)

Author:

George Lilly

Message:

WorldVistAEHR overlayed on FOIAVistA

Location:

FOIAVistA/tag/r

Files:

• . (copied) (copied from FOIAVistA/trunk/r )
• ENGINEERING-EN/ENEQ4.m (modified) (2 diffs)

FOIAVistA/tag/r/ENGINEERING-EN/ENEQ4.m

@@ -1 @@
-ENEQ4 ;WIRMFO/SAB-PURGE EQUIPMENT INV FILE ;12/28/07  13:54
- ;;7.0;ENGINEERING;**40,87**;Aug 17, 1993;Build 16
+ENEQ4 ;WIRMFO/SAB-PURGE EQUIPMENT INV FILE ;2.25.97
+ ;;7.0;ENGINEERING;**40**;Aug 17, 1993
  ;
 DEL ;Delete Equipment Record entry
@@ -36 +36 @@
  I $P(ENY(3),U,1)=1 S ENV(4)="USE STATUS is IN USE."
  I $P(ENY(3),U,11)="" S ENV(5)="DISPOSITION DATE is blank."
- I $D(^ENG(6916.3,"B",ENDA)) S ENV(6)="It is linked to an IT Assignment record."
  I $D(ENV) D  G DELSEQ
  . W $C(7),!,"This equipment entry can not be deleted because:"