source: WorldVistAEHR/trunk/r/SURGERY-SR/SROPREQ.m@ 1766

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

initial load of WorldVistAEHR

File size: 1.3 KB
Line 
1SROPREQ ;BIR/MAM - OPERATION REQUESTS FOR A DAY ; [ 12/09/99 11:54 AM ]
2 ;;3.0; Surgery ;**77,92**;24 Jun 93
3 W @IOF,! S SRSOUT=0 K %DT S %DT("A")="Print Requests for which date ? ",%DT="AEFX" D ^%DT I Y<0 S SRSOUT=1 G END
4 S SRSDATE=Y
5ASK R !!,"Would you like the long or short form ? SHORT// ",TYPE:DTIME S:'$T TYPE="^" I TYPE["^" S SRSOUT=1 G END
6 S:TYPE="" TYPE="S" S TYPE=$E(TYPE) I "SsLl"'[TYPE W !!,"Enter RETURN to view requests in a short form, or 'LONG' to see more detailed",!,"information on each request.",! G ASK
7 I "Ll"[TYPE G ^SROREQ
8SPEC W @IOF,!,"Do you want the requests for all surgical specialties ? YES// " R SRYN:DTIME I '$T!(SRYN["^") S SRSOUT=1 G END
9 S SRYN=$E(SRYN) I SRYN="" S SRYN="Y"
10 I "YyNn"'[SRYN W !!,"Enter 'YES' to print the requests for all surgical specialties, or 'NO'",!,"to select a specific specialty.",!!,"Press RETURN to continue " R X:DTIME G SPEC
11 I "Nn"[SRYN G ^SROREQ3
12 W ! K IOP,%ZIS,POP,IO("Q") S %ZIS("A")="Print the Report on which Device: ",%ZIS="Q" D ^%ZIS G:POP END
13 I $D(IO("Q")) K IO("Q") S ZTDESC="REQUEST FOR A DAY - SHORT FORM",ZTRTN="BEG^SROREQ4",ZTSAVE("SRSDATE")=SRSDATE,ZTSAVE("SRSITE*")="" D ^%ZTLOAD G END
14 G BEG^SROREQ4
15END K SRPRINT I $E(IOST)="P" S SRSOUT=1,SRPRINT=1
16 I 'SRSOUT W !!,"Press RETURN to continue " R X:DTIME
17 W @IOF D ^%ZISC K SRTN I $D(SRPRINT) W @IOF
18 D ^SRSKILL
19 Q
Note: See TracBrowser for help on using the repository browser.