SRSCHCC ;B'HAM ISC/MAM - DELETE CONCURRENT CASES ; [ 04/26/97 3:08 PM ]
;;3.0; Surgery ;**3,67**;24 Jun 93
BEG W @IOF,!,"The following information has already been entered." S CON=0 F I=0:0 S CON=$O(SRSCON(CON)) Q:'CON D LIST^SRSCHDC
W !!!,"Since you have not entered all of the required operating room information, the",!,"schedule cannot be updated."
W !!,"You have the following options available to you at this point. One of these",!,"two options must be selected. Entering an '^' will not be accepted."
ASK W !!,"1. Create an Operation Request for the "_$S($D(SRSCON(2)):"Concurrent Cases",1:"Case"),!,"2. Delete the "_$S($D(SRSCON(2)):"Concurrent Cases",1:"Case")
W !!,"Select Number: 1// " R X:DTIME I '$T S X=2
S:X="" X=1 I X["^" G BEG
I X'=1,X'=2 D HELP G ASK
I X=2 D DEL Q
S CON=0 F I=0:0 S CON=$O(SRSCON(CON)) Q:'CON D REQ
Q
REQ ; make requests
S SRTN=SRSCON(CON),SRSOP=SRSCON(CON,"OP"),SRSDOC=SRSCON(CON,"DOC")
D NOW^%DTC S SRDT=$E(%,1,12)
K DIE,DR,DA S DIE=130,DR="36////1;Q;.09////"_SRSDATE_";1.099////"_DUZ_";1.098////"_SRDT,DA=SRTN D ^DIE
S SROERR=SRTN D ^SROERR0
Q
DEL W !!,"Are you sure you want to delete "_$S($D(SRSCON(2)):"these cases",1:"this case")_" ? YES// " R SRYN:DTIME I '$T!(SRYN["^") S SRYN="Y"
S SRYN=$E(SRYN) S:SRYN="" SRYN="Y"
I "YyNn"'[SRYN S SRTN=1 W !!,"Enter RETURN to delete the "_$S($D(SRSCON(2)):"entries",1:"entry")_" from your records."
I "Yy"'[SRYN S SRSOUT=0 Q
S CON=0 F S CON=$O(SRSCON(CON)) Q:'CON W !!," Deleting Case "_SRSCON(CON)_" ..." D OERR S DA=SRSCON(CON),DIK="^SRF(" D ^DIK K SRTN
Q
OERR ; delete from ORDER file (100)
N SRTN S SRTN=SRSCON(C0N) D DEL^SROERR
Q
HELP W !!,"If you want to make an operation request for the "_$S($D(SRSCON(2)):"cases",1:"case")_" entered, select '1'."
W !,"A request will be created for "_$S($D(SRSCON(2)):"both cases",1:"case "_SRSCON(1))_" on "_SRSDT_"."
W !!,"Select '2' if you want to REMOVE this record ENTIRELY from your records. "
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSRSCHCC 1991 printed Oct 16, 2024@18:47:50 Page 2
SRSCHCC ;B'HAM ISC/MAM - DELETE CONCURRENT CASES ; [ 04/26/97 3:08 PM ]
+1 ;;3.0; Surgery ;**3,67**;24 Jun 93
BEG WRITE @IOF,!,"The following information has already been entered."
SET CON=0
FOR I=0:0
SET CON=$ORDER(SRSCON(CON))
if 'CON
QUIT
DO LIST^SRSCHDC
+1 WRITE !!!,"Since you have not entered all of the required operating room information, the",!,"schedule cannot be updated."
+2 WRITE !!,"You have the following options available to you at this point. One of these",!,"two options must be selected. Entering an '^' will not be accepted."
ASK WRITE !!,"1. Create an Operation Request for the "_$SELECT($DATA(SRSCON(2)):"Concurrent Cases",1:"Case"),!,"2. Delete the "_$SELECT($DATA(SRSCON(2)):"Concurrent Cases",1:"Case")
+1 WRITE !!,"Select Number: 1// "
READ X:DTIME
IF '$TEST
SET X=2
+2 if X=""
SET X=1
IF X["^"
GOTO BEG
+3 IF X'=1
IF X'=2
DO HELP
GOTO ASK
+4 IF X=2
DO DEL
QUIT
+5 SET CON=0
FOR I=0:0
SET CON=$ORDER(SRSCON(CON))
if 'CON
QUIT
DO REQ
+6 QUIT
REQ ; make requests
+1 SET SRTN=SRSCON(CON)
SET SRSOP=SRSCON(CON,"OP")
SET SRSDOC=SRSCON(CON,"DOC")
+2 DO NOW^%DTC
SET SRDT=$EXTRACT(%,1,12)
+3 KILL DIE,DR,DA
SET DIE=130
SET DR="36////1;Q;.09////"_SRSDATE_";1.099////"_DUZ_";1.098////"_SRDT
SET DA=SRTN
DO ^DIE
+4 SET SROERR=SRTN
DO ^SROERR0
+5 QUIT
DEL WRITE !!,"Are you sure you want to delete "_$SELECT($DATA(SRSCON(2)):"these cases",1:"this case")_" ? YES// "
READ SRYN:DTIME
IF '$TEST!(SRYN["^")
SET SRYN="Y"
+1 SET SRYN=$EXTRACT(SRYN)
if SRYN=""
SET SRYN="Y"
+2 IF "YyNn"'[SRYN
SET SRTN=1
WRITE !!,"Enter RETURN to delete the "_$SELECT($DATA(SRSCON(2)):"entries",1:"entry")_" from your records."
+3 IF "Yy"'[SRYN
SET SRSOUT=0
QUIT
+4 SET CON=0
FOR
SET CON=$ORDER(SRSCON(CON))
if 'CON
QUIT
WRITE !!," Deleting Case "_SRSCON(CON)_" ..."
DO OERR
SET DA=SRSCON(CON)
SET DIK="^SRF("
DO ^DIK
KILL SRTN
+5 QUIT
OERR ; delete from ORDER file (100)
+1 NEW SRTN
SET SRTN=SRSCON(C0N)
DO DEL^SROERR
+2 QUIT
HELP WRITE !!,"If you want to make an operation request for the "_$SELECT($DATA(SRSCON(2)):"cases",1:"case")_" entered, select '1'."
+1 WRITE !,"A request will be created for "_$SELECT($DATA(SRSCON(2)):"both cases",1:"case "_SRSCON(1))_" on "_SRSDT_"."
+2 WRITE !!,"Select '2' if you want to REMOVE this record ENTIRELY from your records. "
+3 QUIT
