source: WorldVistAEHR/trunk/r/DIETETICS-FH/FHOMUPD.m@ 701

Last change on this file since 701 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 473 bytes
Line 
1FHOMUPD ;Hines OIFO/RTK OUTPATIENT MEALS UPDATE INP/OUTP FIELD ;9/18/03 13:15
2 ;;5.5;DIETETICS;;Jan 28, 2005
3 ;
4 Q
5 ;
6 F FHPTIEN=0:0 S FHPTIEN=$O(^FHPT(FHPTIEN)) Q:FHPTIEN'>0 D
7 .S FHPTNUM=$P($G(^FHPT(FHPTIEN,0)),U,1)
8 .S FHIOFLD=$P($G(^FHPT(FHPTIEN,0)),U,2)
9 .I FHPTNUM["N",FHIOFLD'="O" S FHVAL="O" D UPD Q
10 .S FHDPTR=$E(FHPTNUM,2,99) I FHDPTR="" Q
11 .I $D(^DPT(FHDPTR,.1)) S FHVAL="I" D UPD Q
12 Q
13UPD ;
14 K DIE S DIE="^FHPT(",DA=FHPTIEN
15 S DR="13////^S X=FHVAL" D ^DIE
16 Q
Note: See TracBrowser for help on using the repository browser.