Changeset 636 for FOIAVistA/tag/r/DIETETICS-FH/FHASP1.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 )
• DIETETICS-FH/FHASP1.m (modified) (2 diffs)

FOIAVistA/tag/r/DIETETICS-FH/FHASP1.m

@@ -1 +1 @@
 FHASP1 ; HISC/REL/JH - Nutrition Profile (cont) ;5/2/01  10:14
- ;;5.5;DIETETICS;**8,9**;Jan 28, 2005;Build 7
+ ;;5.5;DIETETICS;**8**;Jan 28, 2005;Build 28
  ;
  I '$G(FHET) S X="T-365",%DT="XT" D ^%DT S FHET=Y K %DT
@@ -63 +63 @@
  F KK=35:-1:1 Q:$E(X,KK-1,KK)=", "
  W $E(X,1,KK-2) S X=$E(X,KK+1,999) Q
-SP Q:'$P(X,U)  S M1=$P(X,"^",2) S:M1="A"!(M1="") M1="BNE" S Z=$G(^FH(115.2,+X,0)) Q:$P(Z,U)=""!($P(Z,U,2)="")  S L1=$P(Z,"^",1),KK=$P(Z,"^",2),M="",DAS=$P(X,"^",4)
+SP Q:'$P(X,U)  S M1=$P(X,"^",2) S:M1="A" M1="BNE" S Z=$G(^FH(115.2,+X,0)) Q:$P(Z,U)=""!($P(Z,U,2)="")  S L1=$P(Z,"^",1),KK=$P(Z,"^",2),M="",DAS=$P(X,"^",4)
  I KK="L" S Q=$P(X,"^",3),L1=$S(Q:Q,1:1)_" "_L1
  I M1="BNE" S M="1~All Meals" G SP1