Changeset 636 for FOIAVistA/tag/r/HEALTH_DATA_AND_INFORMATICS-HDI/HDISVCMR.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 )
• HEALTH_DATA_AND_INFORMATICS-HDI/HDISVCMR.m (modified) (2 diffs)

FOIAVistA/tag/r/HEALTH_DATA_AND_INFORMATICS-HDI/HDISVCMR.m

@@ -1 @@
-HDISVCMR ;CT/GRR Data Standardization ; 06 Oct 2005  2:12 PM
+HDISVCMR ;CT/GRR Data Standardization ; 20 APR 2006  12:17
  ;;1.0;HEALTH DATA & INFORMATICS;**1,2**;Feb 22, 2005
+ ;
+ ; 2005 05 16 (VA/JRP): fix broken IF/ELSE statement in EN.
+ ;
+ ; 2005 10 06 (VA/JRP): remove last parameter from call to
+ ; $$SNDXML^HDISVM02 at CREATE+12.
+ ;
+ ; 2006 04 11 (WV/TOAD): fix undefined error at CR8OUT when it is called
+ ; from CREATE+4, as was the case when GMRA*4*23 was installed on the
+ ; VOE server.
  ;
 EN(HDISDOM,HDISFILE) ;
@@ -41 +50 @@
  I 'HDISOUT S HDISMESS=$P(HDISOUT,"^",2) D ERR^HDISVF09(HDISNM,HDISDT,HDISMESS) G CR8OUT
  ;
-CR8OUT K @HDISARRY
+CR8OUT I $G(DISARRAY)'="" K @HDISARRY ; WV/TOAD: added IF to avoid UNDEF
  Q