source: FOIAVistA/trunk/r/DIETETICS-FH/FHDMP5.m@ 1166

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

initial load of FOIAVistA 6/30/08 version

File size: 1.9 KB
Line 
1FHDMP5 ; 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
11SP 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")
15S1 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
20L1 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
24DTP ; 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
Note: See TracBrowser for help on using the repository browser.