Changeset 636 for FOIAVistA/tag/r/HEALTH_SUMMARY-GMTS

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_SUMMARY-GMTS/GMTSUP.m (modified) (2 diffs)

FOIAVistA/tag/r/HEALTH_SUMMARY-GMTS/GMTSUP.m

@@ -1 +1 @@
 GMTSUP ; SLC/KER - Utilities for Paging HS           ; 01/06/2003
- ;;2.7;Health Summary;**2,7,21,27,28,30,35,47,56,58,85**;Oct 20, 1995;Build 24
+ ;;2.7;Health Summary;**2,7,21,27,28,30,35,47,56,58**;Oct 20, 1995
  ;
  ; External References
@@ -118 +118 @@
  ;     Name, SSAN, Ward, DOB
  I '$D(GMTSLFG) D
- .I $G(GMTSTITL)'["AD HOC",($G(GMTSTITL)'["PDX"),($G(HSTAG)="") D EN^GMTSHCPR  ;GMTS,85 restrict ssn/dob on HS Type hard copies 
  . I $G(GMTSPHDR("TWO")) D
  . . I $D(GMTSOBJ),'$D(GMTSOBJ("REPORT HEADER")),$L($G(GMTSOBJ("LABEL"))) D LABEL