Changeset 636 for FOIAVistA/tag/r/ENGINEERING-EN

Timestamp:

Dec 4, 2009, 8:26:01 PM (15 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)
• ENGINEERING-EN/ENPLS2.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:"

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

@@ -1 @@
-ENPLS2 ;WISC/SAB - Select Items from List ;12/4/07  13:24
- ;;7.0;ENGINEERING;**23,87**;Aug 17, 1993;Build 16
+ENPLS2 ;WISC/SAB - Select Items from List ;7/21/95
+ ;;7.0;ENGINEERING;**23**;Aug 17, 1993
 EN ; entry point
  ; input global
@@ -44 +44 @@
  K ENACL S ENI="" F  S ENI=$O(Y(ENI)) Q:ENI=""  S ENACL(ENI)=Y(ENI)
 EXIT ;
- W:'$G(ENGNOFF) @IOF
+ W @IOF
  K DX,DY
  Q
-EN2(ENGNOFF) ;Entry point to suppress Form Feed at end
- G EN
 SHD ; Screen Header
  W @IOF