| [613] | 1 | FHORX2 ; HISC/REL,RTK - List Patient Events ;8/2/94 10:07
|
|---|
| 2 | ;;5.5;DIETETICS;;Jan 28, 2005
|
|---|
| 3 | S FHALL=1 D ^FHOMDPA
|
|---|
| 4 | I 'DFN,'IEN200 G KIL
|
|---|
| 5 | G:FHDFN="" KIL D NOW^%DTC S DT=%\1
|
|---|
| 6 | I '$D(^FH(119.8,"AP",FHDFN)) W !!,"No Dietetic Events on File." G FHORX2
|
|---|
| 7 | D DT G:'SDT!('EDT) FHORX2 S EDT=EDT+.3
|
|---|
| 8 | K IOP S %ZIS="MQ",%ZIS("B")="HOME" W ! D ^%ZIS K %ZIS,IOP G:POP KIL
|
|---|
| 9 | I $D(IO("Q")) S FHPGM="Q1^FHORX2",FHLST="FHDFN^DFN^SDT^EDT" D EN2^FH G KIL
|
|---|
| 10 | U IO D Q1 D ^%ZISC K %ZIS,IOP G FHORX2
|
|---|
| 11 | Q1 ; Process List
|
|---|
| 12 | D HDR F KK=SDT-.1:0 S KK=$O(^FH(119.8,"AP",FHDFN,KK)) Q:KK>EDT!(KK<1) F DA=0:0 S DA=$O(^FH(119.8,"AP",FHDFN,KK,DA)) Q:DA<1 D ^FHORX3
|
|---|
| 13 | G KIL
|
|---|
| 14 | HDR I DFN S X="Dietetic Events for "_$P($G(^DPT(DFN,0)),"^",1) W:$E(IOST,1,2)="C-" @IOF W !?(80-$L(X)\2),X
|
|---|
| 15 | I 'DFN S X="Dietetic Events for "_$P($G(^VA(200,IEN200,0)),"^",1) W:$E(IOST,1,2)="C-" @IOF W !?(80-$L(X)\2),X
|
|---|
| 16 | W !!?26,"From " S D1=SDT D DTP^FHORX3 W " to " S D1=EDT\1 D DTP^FHORX3 W !
|
|---|
| 17 | Q
|
|---|
| 18 | DT ; Get From/To Dates
|
|---|
| 19 | D1 S (SDT,EDT)=0,%DT="AEPX",%DT("A")="Starting Date: " W ! D ^%DT S:$D(DTOUT) X="^" G D3:U[X,D1:Y<1 S SDT=+Y
|
|---|
| 20 | I SDT>DT W *7," [Cannot Start after Today!] " G D1
|
|---|
| 21 | D2 S EDT=0,%DT="AEPX",%DT("A")=" Ending Date: ",%DT("B")="T" D ^%DT S:$D(DTOUT) X="^" G D3:U[X,D2:Y<1 S EDT=+Y
|
|---|
| 22 | I EDT>DT W *7," [Cannot End after Today!] " G D2
|
|---|
| 23 | I EDT<SDT W *7," [End before Start?] " G D1
|
|---|
| 24 | D3 K %DT Q
|
|---|
| 25 | KIL G KILL^XUSCLEAN
|
|---|
