source: WorldVistAEHR/trunk/r/SURGERY-SR/SROPLIS.m@ 1306

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

initial load of WorldVistAEHR

File size: 1.1 KB
Line 
1SROPLIS ;B'HAM ISC/MAM - LIST OF OPERATIONS ; [ 09/22/98 11:36 AM ]
2 ;;3.0; Surgery ;**77,50**;24 Jun 93
3 S SRQ=0 W @IOF,!,"List of Operations",!
4DATE D DATE^SROUTL(.SRSD,.SRED,.SRQ) G:SRQ END
5 S SRD=SRSD-.0001
6 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 G:POP END
7 I $D(IO("Q")) K IO("Q") S ZTDESC="LIST OF OPERATIONS",ZTRTN="EN^SROPLIS",(ZTSAVE("SRD"),ZTSAVE("SRED"),ZTSAVE("SRSD"),ZTSAVE("SRSITE*"))="",%ZIS="QM" D ^%ZTLOAD G END
8EN ; entry when queued
9 G ^SROPLIST
10HDR ; print heading
11 I $D(ZTQUEUED) D ^SROSTOP I SRHALT S SRQ=1 Q
12 W:$Y @IOF W !,?(132-$L(SRINST)\2),SRINST,?120,"PAGE ",PAGE,!,?58,"SURGICAL SERVICE",?100,"REVIEWED BY: ",!,?57,"LIST OF OPERATIONS",?100,"DATE REVIEWED: "
13 W !,?(132-$L(SRFRTO)\2),SRFRTO,?100,SRPRINT
14 W !!,"DATE",?13,"PATIENT",?38,"SERVICE",?90,"SURGEON",?114,"ANESTHESIA TECH",!,"CASE #",?15,"ID#",?38,"OPERATION(S)",?90,"1ST ASSISTANT",!,?13,"PRIORITY",?90,"2ND ASSISTANT" W ! F I=1:1:IOM W "="
15 S PAGE=PAGE+1
16 Q
17END I 'SRQ,($E(IOST)'="P") W !!,"Press RETURN to continue " R X:DTIME
18 W ! D ^SRSKILL K SRTN D ^%ZISC W @IOF
19 Q
Note: See TracBrowser for help on using the repository browser.