| 1 | FHASN7 ; HISC/NCA - Print Status Average ;3/10/95 08:55
|
|---|
| 2 | ;;5.5;DIETETICS;;Jan 28, 2005
|
|---|
| 3 | F0 R !!,"Print by CLINICIAN or WARD? WARD// ",X:DTIME G:'$T!(X["^") KIL S:X="" X="W" D TR^FH I $P("CLINICIAN",X,1)'="",$P("WARD",X,1)'="" W *7," Answer with C or W" G F0
|
|---|
| 4 | S SRT=$E(X,1)
|
|---|
| 5 | DT ; Get From/To Dates
|
|---|
| 6 | D1 S %DT="AEPX",%DT("A")="Starting Date: " W ! D ^%DT S:$D(DTOUT) X="^" G KIL:U[X,D1:Y<1 S SDT=+Y
|
|---|
| 7 | I SDT'<DT W *7," [Must Start before Today!] " G D1
|
|---|
| 8 | D2 S %DT="AEPX",%DT("A")=" Ending Date: " D ^%DT S:$D(DTOUT) X="^" G KIL:U[X,D2:Y<1 S EDT=+Y
|
|---|
| 9 | I EDT>DT W *7," [Greater than Today?] " G D1
|
|---|
| 10 | I EDT<SDT W *7," [End before Start?] " G D1
|
|---|
| 11 | L0 K IOP,%ZIS,ZTRTN,ZTSAVE,ZTDESC
|
|---|
| 12 | W !!,"The report requires a 132 column printer.",!
|
|---|
| 13 | S %ZIS="QM",%ZIS("B")="",IOP="Q" W !! D ^%ZIS K %ZIS,IOP G:POP KIL
|
|---|
| 14 | I $D(IO("Q")) D G KIL
|
|---|
| 15 | .K IO("Q")
|
|---|
| 16 | .S ZTRTN="TSK^FHASN7",ZTREQ="@"
|
|---|
| 17 | .S ZTSAVE("SRT")="",ZTSAVE("SDT")="",ZTSAVE("EDT")="",ZTSAVE("ZTREQ")=""
|
|---|
| 18 | .S ZTDESC="Nutrition Status Average"
|
|---|
| 19 | .D ^%ZTLOAD
|
|---|
| 20 | .Q
|
|---|
| 21 | E D G L0
|
|---|
| 22 | .D ^%ZISC
|
|---|
| 23 | .W !?5,"This is a very time consuming report,"
|
|---|
| 24 | .W !?5,"it must be queued to print.",*7
|
|---|
| 25 | .Q
|
|---|
| 26 | G KIL
|
|---|
| 27 | TSK ; Tasking the Report
|
|---|
| 28 | U IO D Q0^FHASN71 D ^%ZISC K %ZIS,IOP,ZTSK G KIL
|
|---|
| 29 | KIL K ^TMP($J) G KILL^XUSCLEAN
|
|---|
