| 1 | SROPAC1 ;B'HAM ISC/MAM - DAILY ACTIVITY REPORT (CONT) ; 17 SEPT 1990 8:05 AM
|
|---|
| 2 | ;;3.0; Surgery ;;24 Jun 93
|
|---|
| 3 | I $Y+8>IOSL D PAGE I SRSOUT Q
|
|---|
| 4 | W !,SRNM,?24,SRINTIME,?40,SRDIAG,?92,SRAN1,?115,SRSUR,!,VA("PID"),?16,VADM(4),?24,SROUTIME,?40,SROP(1),?92,SRAN2,?115,SRFST
|
|---|
| 5 | W !,SRSLOC,?23,SRTN W:$D(SROP(2)) ?40,SROP(2) W ?115,SRATT
|
|---|
| 6 | I $D(SROP(3)) W !,?40,SROP(3) I $D(SROP(4)) W !,?40,SROP(4) I $D(SROP(5)) W !,?40,SROP(5)
|
|---|
| 7 | I $D(^SRF(SRTN,"CON")),$P(^("CON"),"^") S SRCON=+^("CON") W !,?24,"Concurrent Case #"_SRCON
|
|---|
| 8 | W !
|
|---|
| 9 | Q
|
|---|
| 10 | PAGE S X="" I $E(IOST)'="P" W !!,"Press RETURN to continue, or '^' to quit: " R X:DTIME I '$T!(X["^") S SRSOUT=1 Q
|
|---|
| 11 | I X["?" W !!,"Enter RETURN to continue printing this report, or '^' to exit from this option." G PAGE
|
|---|
| 12 | D HDR Q:SRSOUT W !!,"OPERATING ROOM: "_SROR,!
|
|---|
| 13 | Q
|
|---|
| 14 | HDR ; print heading
|
|---|
| 15 | I $D(ZTQUEUED) D ^SROSTOP I SRHALT S SRSOUT=1 Q
|
|---|
| 16 | W:$Y @IOF W !,?(132-$L(SRINST)\2),SRINST,!,?58,"SURGICAL SERVICE",!,?47,"DAILY REPORT OF OPERATING ROOM ACTIVITY",!,?58,"FOR: "_SRSDT
|
|---|
| 17 | W !!!,"PATIENT",?23,"TIME IN OR",?40,"POSTOPERATIVE DIAGNOSIS",?92,"ANESTHESIOLOGIST",?115,"SURGEON",!,"ID #",?15,"AGE",?23,"TIME OUT OR",?40,"PROCEDURE(S)",?92,"PRIN. ANESTHETIST",?115,"FIRST ASST."
|
|---|
| 18 | W !,"WARD",?23,"CASE NUMBER",?115,"ATT SURGEON"
|
|---|
| 19 | W ! F LINE=1:1:132 W "="
|
|---|
| 20 | Q
|
|---|
