| 1 | FHDMP5 ; HISC/REL/NCA - Patient Data Log (cont) ;2/17/93 16:23
|
|---|
| 2 | ;;5.5;DIETETICS;;Jan 28, 2005
|
|---|
| 3 | D:$Y>(S1-4) HDR^FHDMP G:QT="^" KIL^FHDMP W !,LN,!?25,"S T A N D I N G O R D E R S"
|
|---|
| 4 | S CT=0 F K=0:0 S K=$O(^FHPT(FHDFN,"A",ADM,"SP",K)) Q:K<1 I $D(^(K,0)) S X=^(0) I $P(X,"^",4)'<SDT D:$Y>(S1-6) HDR^FHDMP G:QT="^" KIL^FHDMP D SP
|
|---|
| 5 | I 'CT W !!,"No Standing Orders for this Admission"
|
|---|
| 6 | W !
|
|---|
| 7 | D:$Y>(S1-4) HDR^FHDMP G:QT="^" KIL^FHDMP W !,LN,!?23,"A D D I T I O N A L O R D E R S"
|
|---|
| 8 | S CT=0 F K=0:0 S K=$O(^FHPT(FHDFN,"A",ADM,"OO",K)) Q:K<1 I $D(^(K,0)) S X=^(0) I $P(X,"^",2)'<SDT D:$Y>(S1-6) HDR^FHDMP G:QT="^" KIL^FHDMP D L1
|
|---|
| 9 | I 'CT W !!,"No Additional Orders for this Admission"
|
|---|
| 10 | W ! Q
|
|---|
| 11 | SP S CT=CT+1 W !!,"Order #: ",K
|
|---|
| 12 | S M1=$P(X,"^",3) I M1="BNE" S M2="All Meals" G S1
|
|---|
| 13 | S L=$E(M1,1),M2=$S(L="B":"Break",L="N":"Noon",1:"Even")
|
|---|
| 14 | S L=$E(M1,2) I L'="" S M2=M2_","_$S(L="B":"Break",L="N":"Noon",1:"Even")
|
|---|
| 15 | S1 W ?40,"Meals: ",M2
|
|---|
| 16 | S Y=$P(X,"^",2),Q=$P(X,"^",8) W !,"Order: ",$S(Q:Q,1:1)," ",$P($G(^FH(118.3,+Y,0)),"^",1)
|
|---|
| 17 | S Y=$P(X,"^",4) W !,"Ordered: " D DTP S Y=$P(X,"^",5) W ?40,"By: ",$P($G(^VA(200,+Y,0)),"^",1)
|
|---|
| 18 | S Y=$P(X,"^",6) W !,"Cancelled: " D DTP S Y=$P(X,"^",7) W ?40,"By: ",$P($G(^VA(200,+Y,0)),"^",1)
|
|---|
| 19 | S Y=$P(X,"^",9) W !,"Diet Associated: ",$S(Y="Y":"Yes",1:"No") Q
|
|---|
| 20 | L1 S CT=CT+1 W !!,"Order #: ",K S Y=$P(X,"^",5) W ?40,"Status: ",$S(Y="C":"Complete",Y="A":"Active",Y="S":"Saved",Y="X":"Cancelled",1:"")
|
|---|
| 21 | W !,"Order: ",$P(X,"^",3)
|
|---|
| 22 | S Y=$P(X,"^",2) W !,"Ordered: " D DTP S Y=$P(X,"^",4) W ?40,"By: ",$P($G(^VA(200,+Y,0)),"^",1)
|
|---|
| 23 | S Y=$P(X,"^",6) W !,"Cleared: " D DTP S Y=$P(X,"^",7) W ?40,"By: ",$P($G(^VA(200,+Y,0)),"^",1) Q
|
|---|
| 24 | DTP ; Printable Date/Time
|
|---|
| 25 | 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)
|
|---|
| 26 | 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")
|
|---|
| 27 | K % Q
|
|---|
