- SROPAC1 ;B'HAM ISC/MAM - DAILY ACTIVITY REPORT (CONT) ; 17 SEPT 1990 8:05 AM
- ;;3.0; Surgery ;;24 Jun 93
- I $Y+8>IOSL D PAGE I SRSOUT Q
- W !,SRNM,?24,SRINTIME,?40,SRDIAG,?92,SRAN1,?115,SRSUR,!,VA("PID"),?16,VADM(4),?24,SROUTIME,?40,SROP(1),?92,SRAN2,?115,SRFST
- W !,SRSLOC,?23,SRTN W:$D(SROP(2)) ?40,SROP(2) W ?115,SRATT
- I $D(SROP(3)) W !,?40,SROP(3) I $D(SROP(4)) W !,?40,SROP(4) I $D(SROP(5)) W !,?40,SROP(5)
- I $D(^SRF(SRTN,"CON")),$P(^("CON"),"^") S SRCON=+^("CON") W !,?24,"Concurrent Case #"_SRCON
- W !
- Q
- 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
- I X["?" W !!,"Enter RETURN to continue printing this report, or '^' to exit from this option." G PAGE
- D HDR Q:SRSOUT W !!,"OPERATING ROOM: "_SROR,!
- Q
- HDR ; print heading
- I $D(ZTQUEUED) D ^SROSTOP I SRHALT S SRSOUT=1 Q
- W:$Y @IOF W !,?(132-$L(SRINST)\2),SRINST,!,?58,"SURGICAL SERVICE",!,?47,"DAILY REPORT OF OPERATING ROOM ACTIVITY",!,?58,"FOR: "_SRSDT
- 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."
- W !,"WARD",?23,"CASE NUMBER",?115,"ATT SURGEON"
- W ! F LINE=1:1:132 W "="
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSROPAC1 1287 printed Jan 18, 2025@03:45:58 Page 2
- SROPAC1 ;B'HAM ISC/MAM - DAILY ACTIVITY REPORT (CONT) ; 17 SEPT 1990 8:05 AM
- +1 ;;3.0; Surgery ;;24 Jun 93
- +2 IF $Y+8>IOSL
- DO PAGE
- IF SRSOUT
- QUIT
- +3 WRITE !,SRNM,?24,SRINTIME,?40,SRDIAG,?92,SRAN1,?115,SRSUR,!,VA("PID"),?16,VADM(4),?24,SROUTIME,?40,SROP(1),?92,SRAN2,?115,SRFST
- +4 WRITE !,SRSLOC,?23,SRTN
- if $DATA(SROP(2))
- WRITE ?40,SROP(2)
- WRITE ?115,SRATT
- +5 IF $DATA(SROP(3))
- WRITE !,?40,SROP(3)
- IF $DATA(SROP(4))
- WRITE !,?40,SROP(4)
- IF $DATA(SROP(5))
- WRITE !,?40,SROP(5)
- +6 IF $DATA(^SRF(SRTN,"CON"))
- IF $PIECE(^("CON"),"^")
- SET SRCON=+^("CON")
- WRITE !,?24,"Concurrent Case #"_SRCON
- +7 WRITE !
- +8 QUIT
- PAGE SET X=""
- IF $EXTRACT(IOST)'="P"
- WRITE !!,"Press RETURN to continue, or '^' to quit: "
- READ X:DTIME
- IF '$TEST!(X["^")
- SET SRSOUT=1
- QUIT
- +1 IF X["?"
- WRITE !!,"Enter RETURN to continue printing this report, or '^' to exit from this option."
- GOTO PAGE
- +2 DO HDR
- if SRSOUT
- QUIT
- WRITE !!,"OPERATING ROOM: "_SROR,!
- +3 QUIT
- HDR ; print heading
- +1 IF $DATA(ZTQUEUED)
- DO ^SROSTOP
- IF SRHALT
- SET SRSOUT=1
- QUIT
- +2 if $Y
- WRITE @IOF
- WRITE !,?(132-$LENGTH(SRINST)\2),SRINST,!,?58,"SURGICAL SERVICE",!,?47,"DAILY REPORT OF OPERATING ROOM ACTIVITY",!,?58,"FOR: "_SRSDT
- +3 WRITE !!!,"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."
- +4 WRITE !,"WARD",?23,"CASE NUMBER",?115,"ATT SURGEON"
- +5 WRITE !
- FOR LINE=1:1:132
- WRITE "="
- +6 QUIT