source: WorldVistAEHR/trunk/r/SURGERY-SR/SROPLST1.m@ 1313

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

initial load of WorldVistAEHR

File size: 1.4 KB
Line 
1SROPLST1 ;B'HAM ISC/MAM - LIST OF OPERATIONS BY SERVICE; [ 09/22/98 11:36 AM ]
2 ;;3.0; Surgery ;**77,50**;24 Jun 93
3EN ; entry point
4 W @IOF,!,"List of Operations sorted by Surgical Specialty",!!
5DATE S (TC,SRSOUT)=0 D DATE^SROUTL(.SRSD,.SRED,.SRSOUT) G:SRSOUT END
6 S SRD=SRSD-1
7SEL W !!,"Do you want to print the report for all Specialties ? YES// " R ANS:DTIME I '$T!(ANS["^") S SRSOUT=1 G END
8 S ANS=$E(ANS) I "YyNn"'[ANS W !!,"Enter RETURN to print the report for all services, or 'N' to print the",!,"report for a specific surgical specialty." G SEL
9 I "Yy"'[ANS W ! S DIC("S")="I '$P(^(0),""^"",3)",DIC=137.45,DIC("A")="Print the report for which Surgical Specialty ? ",DIC(0)="QEAMZ" D ^DIC G:Y'>0 END S SRTS=$P(Y(0),"^"),SRT1=+Y,SRZZ=1
10 K IOP,%ZIS,POP,IO("Q") S %ZIS("A")="Print the Report on which Device: ",%ZIS="QM" W !!,"This report is designed to use a 132 column format.",! D ^%ZIS I POP S SRSOUT=1 G END
11 I $D(SRZZ) I $D(IO("Q")) K IO("Q") S ZTDESC="LIST OF OPERATIONS",ZTRTN="2^SROPLSTS",(ZTSAVE("SRD"),ZTSAVE("SRED"),ZTSAVE("SRSD"),ZTSAVE("SRSITE*"),ZTSAVE("SRT1"),ZTSAVE("SRTS"))="" D ^%ZTLOAD G END
12 I $D(IO("Q")) K IO("Q") S ZTDESC="LIST OF OPERATIONS",ZTRTN="1^SROPLSTS",(ZTSAVE("SRD"),ZTSAVE("SRED"),ZTSAVE("SRSD"),ZTSAVE("SRSITE*"))="",%ZIS="Q" D ^%ZTLOAD G END
13 G 1^SROPLSTS
14END I $E(IOST)'="P",'SRSOUT W !!,"Press RETURN to continue " R X:DTIME
15 W ! D ^SRSKILL W @IOF
16 Q
Note: See TracBrowser for help on using the repository browser.