Changeset 636 for FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUPR222.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 )
• TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUPR222.m (modified) (2 diffs)

FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUPR222.m

@@ -1 @@
-TIUPR222 ; SLC/AJB - TIU Form Letter Update;06Mar07
+TIUPR222 ; SLC/AJB - TIU Form Letter Update;06Mar07 ;12/27/07  18:20
  ;;1.0;TEXT INTEGRATION UTILITIES;**222**;Jun 20, 1997
  Q
@@ -8 +8 @@
  . . I $$CHKTITLE(8925.1,NAME)>0 S TIUQUIT=1
  I +$G(TIUQUIT) W !!,"Titles have already been installed and will not be installed again." Q
- I '$D(ZTQUEUED) X ^%ZOSF("EON") W IOCUON,@IOF
+ I '$D(ZTQUEUED) X ^%ZOSF("EON") W $G(IOCUON),@IOF ;WVEHR/VOE IOCUON TO $G(IOCUON)
  I $$CHKTITLE(8925.1,"PROGRESS NOTES")<0 G EXIT
  W !!,"Creating the new DOCUMENT CLASS ""FORM LETTERS"" and"