Changeset 636 for FOIAVistA/tag/r/ENGINEERING-EN/ENPLS2.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/ENPLS2.m (modified) (2 diffs)

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