source: WorldVistAEHR/trunk/r/SURGERY-SR/SROPAC1.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.2 KB
Line 
1SROPAC1 ;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
10PAGE 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
14HDR ; 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
Note: See TracBrowser for help on using the repository browser.