SROPLIS ;B'HAM ISC/MAM - LIST OF OPERATIONS ; [ 09/22/98 11:36 AM ]
;;3.0;Surgery;**77,50,182**;24 Jun 93;Build 49
S SRQ=0 W @IOF,!,"List of Operations",!
DATE D DATE^SROUTL(.SRSD,.SRED,.SRQ) G:SRQ END
S SRD=SRSD-.0001
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 OPERATIONS",ZTRTN="EN^SROPLIS",(ZTSAVE("SRD"),ZTSAVE("SRED"),ZTSAVE("SRSD"),ZTSAVE("SRSITE*"))="",%ZIS="QM" D ^%ZTLOAD G END
EN ; entry when queued
G ^SROPLIST
HDR ; print heading
I $D(ZTQUEUED) D ^SROSTOP I SRHALT S SRQ=1 Q
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: "
W !,?(132-$L(SRFRTO)\2),SRFRTO,?100,SRPRINT
W !!,"DATE",?13,"PATIENT",?38,"SERVICE",?90,"PRIMARY 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 "="
S PAGE=PAGE+1
Q
END I 'SRQ,($E(IOST)'="P") W !!,"Press RETURN to continue " R X:DTIME
W ! D ^SRSKILL K SRTN D ^%ZISC W @IOF
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSROPLIS 1211 printed Oct 16, 2024@18:45:43 Page 2
SROPLIS ;B'HAM ISC/MAM - LIST OF OPERATIONS ; [ 09/22/98 11:36 AM ]
+1 ;;3.0;Surgery;**77,50,182**;24 Jun 93;Build 49
+2 SET SRQ=0
WRITE @IOF,!,"List of Operations",!
DATE DO DATE^SROUTL(.SRSD,.SRED,.SRQ)
if SRQ
GOTO END
+1 SET SRD=SRSD-.0001
+2 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
+3 IF $DATA(IO("Q"))
KILL IO("Q")
SET ZTDESC="LIST OF OPERATIONS"
SET ZTRTN="EN^SROPLIS"
SET (ZTSAVE("SRD"),ZTSAVE("SRED"),ZTSAVE("SRSD"),ZTSAVE("SRSITE*"))=""
SET %ZIS="QM"
DO ^%ZTLOAD
GOTO END
EN ; entry when queued
+1 GOTO ^SROPLIST
HDR ; print heading
+1 IF $DATA(ZTQUEUED)
DO ^SROSTOP
IF SRHALT
SET SRQ=1
QUIT
+2 if $Y
WRITE @IOF
WRITE !,?(132-$LENGTH(SRINST)\2),SRINST,?120,"PAGE ",PAGE,!,?58,"SURGICAL SERVICE",?100,"REVIEWED BY: ",!,?57,"LIST OF OPERATIONS",?100,"DATE REVIEWED: "
+3 WRITE !,?(132-$LENGTH(SRFRTO)\2),SRFRTO,?100,SRPRINT
+4 WRITE !!,"DATE",?13,"PATIENT",?38,"SERVICE",?90,"PRIMARY SURGEON",?114,"ANESTHESIA TECH",!,"CASE #",?15,"ID#",?38,"OPERATION(S)",?90,"1ST ASSISTANT",!,?13,"PRIORITY",?90,"2ND ASSISTANT"
WRITE !
FOR I=1:1:IOM
WRITE "="
+5 SET PAGE=PAGE+1
+6 QUIT
END IF 'SRQ
IF ($EXTRACT(IOST)'="P")
WRITE !!,"Press RETURN to continue "
READ X:DTIME
+1 WRITE !
DO ^SRSKILL
KILL SRTN
DO ^%ZISC
WRITE @IOF
+2 QUIT
