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

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

@@ -1 +1 @@
 FHNO2 ; HISC/REL/NCA - Supplemental Feeding Labels ;8/26/94  12:01 
- ;;5.5;DIETETICS;**5,13**;Jan 28, 2005;Build 1
+ ;;5.5;DIETETICS;**5**;Jan 28, 2005;Build 53
  ;patch #5 - add outpatient SFs.
 D0 R !!,"Select by S=SUPPLEMENTAL FEEDING SITE or W=WARD: ",XX:DTIME G:'$T!("^"[XX) KIL I "sw"[XX S X=XX D TR^FH S XX=X
@@ -89 +89 @@
  .S FHODAT=$G(^FHPT(FHDFN,"OP",ADM,0)),FHNO=$P($G(^FHPT(FHDFN,"OP",ADM,"SF",0)),U,3) Q:'$G(FHNO)
  .S FHMEAL=$P(FHODAT,U,4),FHOWARD=$P(FHODAT,U,3)
- .S X1=$G(^FH(119.6,FHOWARD,0))
+ .S X1=$G(^FH(119.6,FHOWARD,0)),WRDN=$P(X1,U,1)
  .Q:'FHOWARD!'$D(^FH(119.6,FHOWARD,0))
  .I XX="W",W1 Q:W1'=FHOWARD
- .S WRDN=$P(X1,U,1)
  .I XX="S" S D2=$P(X1,"^",9) Q:D1'=D2  I D1=D2 S P0=$P(X1,"^",4),P0=$S(P0<1:99,P0<10:"0"_P0,1:P0)
  .S P1=$S(FHMEAL="N":13,FHMEAL="E":21,1:5)