source: WorldVistAEHR/trunk/r/SURGERY-SR/SROCAN.m@ 1259

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

initial load of WorldVistAEHR

File size: 1.7 KB
Line 
1SROCAN ;B'HAM ISC/MAM - REPORT OF CANCELLATIONS; [ 04/06/00 9:54 AM ]
2 ;;3.0; Surgery ;**77,94**;24 Jun 93
3EN S (SRSOUT,SRSP)=0
4 W @IOF,!,"Report of Cancellations",!!,"NOTE: This report contains all cancelled cases, including those that were",!," cancelled after the patient had entered the operating room. Aborted "
5 W !," cases are identified by an '*' next to the procedure name.",!
6DATE D DATE^SROUTL(.SRSD,.SRED,.SRSOUT) G:SRSOUT END
7 N SRINSTP S SRINST=$$INST^SROUTL0() G:SRINST="^" END S SRINSTP=$P(SRINST,U),SRINST=$S(SRINST["ALL DIVISIONS":SRINST,1:$P(SRINST,U,2))
8SPEC W !!!,"Do you want to print the report for all Surgical Specialties ? YES// " R SRYN:DTIME I '$T!(SRYN["^") S SRSOUT=1 G END
9 S SRYN=$E(SRYN) S:SRYN="" SRYN="Y"
10 I "YyNn"'[SRYN W !!,"Enter RETURN to print this report for all surgical specialties, or 'NO' to",!,"select a specific specialty." G SPEC
11 I "Nn"[SRYN D SP I SRSOUT G END
12DEVICE K IOP,%ZIS,POP,IO("Q") S %ZIS="QM",%ZIS("A")="Print the Report on which Device: " W !!,"This report is designed to use a 132 column format.",! D ^%ZIS G:POP END
13 I $D(IO("Q")) K IO("Q") S ZTDESC="REPORT OF CANCELLATIONS",ZTRTN="EN1^SROCAN",(ZTSAVE("SRSD"),ZTSAVE("SRED"),ZTSAVE("SRINST"),ZTSAVE("SRINSTP"),ZTSAVE("SRSP*"))="" D ^%ZTLOAD G END
14EN1 G ^SROCAN0
15 Q
16SP W !! S SRSP=1 K DIC S DIC("S")="I '$P(^(0),""^"",3)",DIC=137.45,DIC(0)="QEAMZ",DIC("A")="Print the report for which Specialty ? " D ^DIC I Y<0 S SRSOUT=1 Q
17 S SRCT=+Y,SRSP(SRCT)=+Y
18MORE ; ask for more surgical specialties
19 K DIC S DIC("S")="I '$P(^(0),""^"",3)",DIC=137.45,DIC(0)="QEAMZ",DIC("A")="Select An Additional Specialty: " D ^DIC I Y>0 S SRCT=+Y,SRSP(SRCT)=+Y G MORE
20 Q
21END I 'SRSOUT W !!,"Press RETURN to continue " R X:DTIME
22 D ^SRSKILL,^%ZISC W @IOF
23 Q
Note: See TracBrowser for help on using the repository browser.