Changeset 636 for FOIAVistA/tag/r/DIETETICS-FH/FHOMPP.m
- Timestamp:
- Dec 4, 2009, 8:26:01 PM (14 years ago)
- Location:
- FOIAVistA/tag/r
- Files:
-
- 1 edited
- 1 copied
Legend:
- Unmodified
- Added
- Removed
-
FOIAVistA/tag/r/DIETETICS-FH/FHOMPP.m
r628 r636 1 FHOMPP ; OIFO/RTK - Patient Profile for Outpatients ; 7/2/20072 ;;5.5;DIETETICS; **9**;Jan 28, 2005;Build 71 FHOMPP ; OIFO/RTK - Patient Profile for Outpatients ;6/23/03 1:04 2 ;;5.5;DIETETICS;;Jan 28, 2005 3 3 D DEV Q 4 4 DEV ;get device and set up queue … … 49 49 ; Data is returned in ^TMP($J,"FHPROF",DFN,FHX) 50 50 S FHZ115="P"_DFN D CHECK^FHOMDPA I FHDFN="" Q "-1^Invalid outpatient" 51 K ^TMP($J,"FHPROF" ),^TMP($J,"L"),^TMP($J,"D") S (FHX,N)=0 D PATNAME^FHOMUTL51 K ^TMP($J,"FHPROF",DFN) S (FHX,N)=0 D PATNAME^FHOMUTL 52 52 S FHB="" F I=1:1:80 S FHB=FHB_" " 53 53 S ^TMP($J,"FHPROF",DFN,FHX)="OUTPATIENT NAME: "_FHPTNM_" "_FHSSN … … 67 67 I $D(^TMP($J,"L")) S N=1 D NEWL S ^TMP($J,"FHPROF",DFN,FHX)="Likes" 68 68 S FHM="" F S FHM=$O(^TMP($J,"L",FHM)) Q:FHM="" D 69 .F FHP=0:0 S FHP=$O(^TMP($J,"L",FHM,FHP)) Q:FHP'>0 S N=0 D NEWL S ^TMP($J,"FHPROF",DFN,FHX)=^TMP($J,"L",FHM,FHP) 69 .F FHP=0:0 S FHP=$O(^TMP($J,"L",FHM,FHP)) Q:FHP'>0 S N=0 D NEWL S ^TMP($J,"FHPROF",DFN,FHX)=^TMP($J,"L",FHM,FHP) Q 70 70 I $D(^TMP($J,"D")) S N=1 D NEWL S ^TMP($J,"FHPROF",DFN,FHX)="Dislikes" 71 71 S FHM="" F S FHM=$O(^TMP($J,"D",FHM)) Q:FHM="" D 72 .F FHP=0:0 S FHP=$O(^TMP($J,"D",FHM,FHP)) Q:FHP'>0 S N=0 D NEWL S ^TMP($J,"FHPROF",DFN,FHX)=^TMP($J,"D",FHM,FHP) 72 .F FHP=0:0 S FHP=$O(^TMP($J,"D",FHM,FHP)) Q:FHP'>0 S N=0 D NEWL S ^TMP($J,"FHPROF",DFN,FHX)=^TMP($J,"D",FHM,FHP) Q 73 73 ; 74 74 S N=1 D NEWL S ^TMP($J,"FHPROF",DFN,FHX)="Recurring Meals on File: "
Note:
See TracChangeset
for help on using the changeset viewer.