source: FOIAVistA/tag/r/DIETETICS-FH/FHASN7.m@ 1185

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

initial load of FOIAVistA 6/30/08 version

File size: 1.2 KB
Line 
1FHASN7 ; HISC/NCA - Print Status Average ;3/10/95 08:55
2 ;;5.5;DIETETICS;;Jan 28, 2005
3F0 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)
5DT ; Get From/To Dates
6D1 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
8D2 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
11L0 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
27TSK ; Tasking the Report
28 U IO D Q0^FHASN71 D ^%ZISC K %ZIS,IOP,ZTSK G KIL
29KIL K ^TMP($J) G KILL^XUSCLEAN
Note: See TracBrowser for help on using the repository browser.