- SROANP1 ;B'HAM ISC/MAM - LIST OF ANESTHETIC PROCEDURES ; [ 09/22/98 11:28 AM ]
- ;;3.0; Surgery ;**77,50**;24 Jun 93
- EN ;
- S (SRF,SRFLG,SRSOUT)=0 W @IOF,!,"List of Anesthetic Procedures"
- D DATE^SROUTL(.SRSD,.SRED,.SRSOUT) G:SRSOUT END
- ASK W @IOF,!,"Print List of Anesthetic Procedures for",!!,"1. O.R. Surgical Procedures.",!,"2. Non-O.R. Procedures.",!,"3. Both O.R. Surgical Procedures and Non-O.R. Procedures."
- W !!,"Select Number: 1// " R X:DTIME I '$T!(X["^") G END
- S:X="" X=1 I X>3!(X<1)!(X'?.N) D HELP G:SRSOUT END G ASK
- S SRFLG=X
- 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
- I $D(IO("Q")) K IO("Q") S ZTDESC="LIST OF ANESTHETIC PROCEDURES",ZTRTN="EN1^SROANP1",(ZTSAVE("SRED"),ZTSAVE("SRSD"),ZTSAVE("SRFLG"),ZTSAVE("SRSITE*"))="" D ^%ZTLOAD G END
- EN1 D BEG^SROANP
- END W:$E(IOST)="P" @IOF I $D(ZTQUEUED) Q:$G(ZTSTOP) S ZTREQ="@" Q
- I 'SRF,$E(IOST)'="P" W !!,"Press RETURN to continue " R X:DTIME
- D ^SRSKILL K SRTN D ^%ZISC W @IOF
- Q
- HELP W !!,"Enter '1' or press <RET> to print the List of Anesthetic Procedures",!,"performed in the OR with a surgical procedure. Enter '2' to print the"
- W !,"List of Anesthetic Procedures performed as or with a Non-OR Procedure.",!,"Enter '3' to print the List of Anesthetic Procedures including both of",!,"the above categories of procedures."
- W !!,"Press <RET> to continue, or '^' to quit " R X:DTIME I '$T!(X["^") S SRSOUT=1
- Q
- HDR I $D(ZTQUEUED) D ^SROSTOP I SRHALT S SRF=1 Q
- W:$Y @IOF W !,?(132-$L(SRINST)\2),SRINST,?120,"PAGE: "_PAGE,!,?58,"SURGICAL SERVICE",?100,"REVIEWED BY:",!,?51,"LIST OF ANESTHETIC PROCEDURES",?100,"DATE REVIEWED:"
- W !,$S(SRFLG=1:"O.R. SURGICAL PROCEDURES",SRFLG=2:"NON-O.R. PROCEDURES",1:"O.R. SURGICAL AND NON-O.R. PROCEDURES"),?(132-$L(SRFRTO)\2),SRFRTO,?100,SRPRINT
- W !!,?2,"DATE",?18,"PATIENT",?45,"PRINCIPAL DIAGNOSIS",?97,"PRIN ANESTHETIST",?117,"START TIME",!,?2,"CASE #",?20,"ID#",?45,"PROCEDURE(S)",?97,"ANESTH TECHNIQUE",?118,"END TIME"
- W !,?17,"ASA CLASS",?97,"ANESTH AGENT",?118,"ELAPSED",! F LINE=1:1:IOM W "="
- S PAGE=PAGE+1
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSROANP1 2173 printed Mar 13, 2025@21:46:23 Page 2
- SROANP1 ;B'HAM ISC/MAM - LIST OF ANESTHETIC PROCEDURES ; [ 09/22/98 11:28 AM ]
- +1 ;;3.0; Surgery ;**77,50**;24 Jun 93
- EN ;
- +1 SET (SRF,SRFLG,SRSOUT)=0
- WRITE @IOF,!,"List of Anesthetic Procedures"
- +2 DO DATE^SROUTL(.SRSD,.SRED,.SRSOUT)
- if SRSOUT
- GOTO END
- ASK WRITE @IOF,!,"Print List of Anesthetic Procedures for",!!,"1. O.R. Surgical Procedures.",!,"2. Non-O.R. Procedures.",!,"3. Both O.R. Surgical Procedures and Non-O.R. Procedures."
- +1 WRITE !!,"Select Number: 1// "
- READ X:DTIME
- IF '$TEST!(X["^")
- GOTO END
- +2 if X=""
- SET X=1
- IF X>3!(X<1)!(X'?.N)
- DO HELP
- if SRSOUT
- GOTO END
- GOTO ASK
- +3 SET SRFLG=X
- +4 KILL IOP,%ZIS,POP,IO("Q")
- SET %ZIS("A")="Print the Report on which Device: "
- SET %ZIS="QM"
- WRITE !!,"This report is designed to use a 132 column format.",!
- DO ^%ZIS
- if POP
- GOTO END
- +5 IF $DATA(IO("Q"))
- KILL IO("Q")
- SET ZTDESC="LIST OF ANESTHETIC PROCEDURES"
- SET ZTRTN="EN1^SROANP1"
- SET (ZTSAVE("SRED"),ZTSAVE("SRSD"),ZTSAVE("SRFLG"),ZTSAVE("SRSITE*"))=""
- DO ^%ZTLOAD
- GOTO END
- EN1 DO BEG^SROANP
- END if $EXTRACT(IOST)="P"
- WRITE @IOF
- IF $DATA(ZTQUEUED)
- if $GET(ZTSTOP)
- QUIT
- SET ZTREQ="@"
- QUIT
- +1 IF 'SRF
- IF $EXTRACT(IOST)'="P"
- WRITE !!,"Press RETURN to continue "
- READ X:DTIME
- +2 DO ^SRSKILL
- KILL SRTN
- DO ^%ZISC
- WRITE @IOF
- +3 QUIT
- HELP WRITE !!,"Enter '1' or press <RET> to print the List of Anesthetic Procedures",!,"performed in the OR with a surgical procedure. Enter '2' to print the"
- +1 WRITE !,"List of Anesthetic Procedures performed as or with a Non-OR Procedure.",!,"Enter '3' to print the List of Anesthetic Procedures including both of",!,"the above categories of procedures."
- +2 WRITE !!,"Press <RET> to continue, or '^' to quit "
- READ X:DTIME
- IF '$TEST!(X["^")
- SET SRSOUT=1
- +3 QUIT
- HDR IF $DATA(ZTQUEUED)
- DO ^SROSTOP
- IF SRHALT
- SET SRF=1
- QUIT
- +1 if $Y
- WRITE @IOF
- WRITE !,?(132-$LENGTH(SRINST)\2),SRINST,?120,"PAGE: "_PAGE,!,?58,"SURGICAL SERVICE",?100,"REVIEWED BY:",!,?51,"LIST OF ANESTHETIC PROCEDURES",?100,"DATE REVIEWED:"
- +2 WRITE !,$SELECT(SRFLG=1:"O.R. SURGICAL PROCEDURES",SRFLG=2:"NON-O.R. PROCEDURES",1:"O.R. SURGICAL AND NON-O.R. PROCEDURES"),?(132-$LENGTH(SRFRTO)\2),SRFRTO,?100,SRPRINT
- +3 WRITE !!,?2,"DATE",?18,"PATIENT",?45,"PRINCIPAL DIAGNOSIS",?97,"PRIN ANESTHETIST",?117,"START TIME",!,?2,"CASE #",?20,"ID#",?45,"PROCEDURE(S)",?97,"ANESTH TECHNIQUE",?118,"END TIME"
- +4 WRITE !,?17,"ASA CLASS",?97,"ANESTH AGENT",?118,"ELAPSED",!
- FOR LINE=1:1:IOM
- WRITE "="
- +5 SET PAGE=PAGE+1
- +6 QUIT
