| 1 | SROPREQ ;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
|
|---|
| 5 | ASK 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
|
|---|
| 8 | SPEC 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
|
|---|
| 15 | END 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
|
|---|
