| 1 | FHDMP1 ; HISC/REL/FAI - Patient Data Log (cont) ;10/19/04 14:37
|
|---|
| 2 | ;;5.5;DIETETICS;;Jan 28, 2005
|
|---|
| 3 | I IEN200'="",DFN="" Q
|
|---|
| 4 | Q:$G(ADM)=""
|
|---|
| 5 | D:$Y>(S1-3) HDR^FHDMP G:QT="^" KIL^FHDMP
|
|---|
| 6 | I $Y>(S1-9) D HDR^FHDMP G:QT="^" KIL^FHDMP
|
|---|
| 7 | ADMIT ;
|
|---|
| 8 | S ISO=$P($G(^FHPT(FHDFN,"A",ADM,0)),U,10)
|
|---|
| 9 | D:$Y>(S1-3) HDR^FHDMP G:QT="^" KIL^FHDMP
|
|---|
| 10 | W !,LN,!?20,"~ ~ ~ A D M I S S I O N D A T A ~ ~ ~"
|
|---|
| 11 | S Y=$P($G(^DGPM(ADM,0)),"^",1) W !!,"Admitted: " D DTP
|
|---|
| 12 | S Y=$P($G(^DGPM(ADM,0)),"^",17) S:Y>0 Y=$P($G(^DGPM(+Y,0)),"^",1) W ?50,"Discharged: " D DTP
|
|---|
| 13 | S X=$G(^FHPT(FHDFN,"A",ADM,0))
|
|---|
| 14 | S Y=$P(X,"^",8) I Y W !!,"Nutrition Ward: ",$P($G(^FH(119.6,Y,0)),"^",1) S Y=$P(X,"^",9) W ?50,"Room-Bed: " I Y W $P($G(^DG(405.4,Y,0)),"^",1)
|
|---|
| 15 | W !!,"Current Diet Order: ",?20,$P(X,"^",2) S Y=$P(X,"^",3) W ?50,"Expires: ",?62 D DTP
|
|---|
| 16 | S Y=$P(X,"^",5) W !,"Current Service: ",?20,$S(Y="T":"Tray",Y="C":"Cafeteria",Y="D":"Dining Room",1:"")
|
|---|
| 17 | S Y=$P(X,"^",10) W !,"Current Isolation/Precaution: ",?20,$P($G(^FH(119.4,+Y,0)),"^",1)
|
|---|
| 18 | W ?50,"Current Tubefeed Order: ",?76,$P(X,"^",4)
|
|---|
| 19 | S Y=$P(X,"^",11) W !,"Last Label Ward: ",?20,$P($G(^FH(119.6,+Y,0)),"^",1)
|
|---|
| 20 | W ?50,"Current Supp. Fdg. Order: ",?76,$P(X,"^",7)
|
|---|
| 21 | W !,"Last Label Room: ",?20,$P(X,"^",12),!
|
|---|
| 22 | G ^FHDMP2
|
|---|
| 23 | DTP ; Printable Date/Time
|
|---|
| 24 | Q:Y<1 W $J(+$E(Y,6,7),2)_"-"_$P("Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec"," ",+$E(Y,4,5))_"-"_$E(Y,2,3)
|
|---|
| 25 | I Y["." S %=+$E(Y_"0",9,10) W $J($S(%>12:%-12,1:%),3)_":"_$E(Y_"000",11,12)_$S(%<12:"am",%<24:"pm",1:"m")
|
|---|
| 26 | K % Q
|
|---|
