| 1 | SROPLIS ;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",!
|
|---|
| 4 | DATE 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
|
|---|
| 8 | EN ; entry when queued
|
|---|
| 9 | G ^SROPLIST
|
|---|
| 10 | HDR ; 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
|
|---|
| 17 | END 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
|
|---|
