SROADEL ;BIR/MAM - DELETE ASSESSMENT ;05/05/10
;;3.0; Surgery ;**38,83,100,174**;24 Jun 93;Build 8
S SRASTAT=$P($G(^SRF(SRTN,"RA")),"^")
I SRASTAT="T" W !!,"This assessment has already been verified and transmitted. It cannot be",!,"deleted. If the assessment was transmitted in error, use the option 'Update",!,"an Assessment Transmitted in Error'." D RET Q
I SRASTAT="V" W !!,"This assessment has already been verified. It cannot be deleted. If the",!,"assessment was verified in error, use the option 'Update an Assessment Verified",!,"in Error'." D RET Q
DEL W !!,"This assessment has a current status of "_$S(SRASTAT="I":"'Incomplete'",1:"'Complete/Unverified'"),!!,"Are you sure that you want to delete this assessment ? NO// " R SRYN:DTIME I '$T!(SRYN["^") S SRSOUT=1 Q
S SRYN=$E(SRYN) I "Nn"[SRYN S SRSOUT=1 Q
I "Yy"'[SRYN W !!,"Enter <RET> if this assessment was selected in error and should not be deleted.",!,"If you want to delete this assessment, enter 'YES'." G DEL
I $$LOCK^SROUTL(SRTN) D D UNLOCK^SROUTL(SRTN)
.K DR,DIE,DA S DA=SRTN,DIE=130,DR="235///@;284///@;393///@;260///@;272///@;272.1///@;323///@;102///@" D ^DIE W !!,"Deleting Assessment..."
.K DA,DIK S DIK="^SRF(",DIK(1)=".232^AQ",DA=SRTN D EN1^DIK
Q
RET W !!,"Press <RET> to continue " R X:DTIME
K SRTN
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSROADEL 1315 printed Dec 13, 2024@02:40:22 Page 2
SROADEL ;BIR/MAM - DELETE ASSESSMENT ;05/05/10
+1 ;;3.0; Surgery ;**38,83,100,174**;24 Jun 93;Build 8
+2 SET SRASTAT=$PIECE($GET(^SRF(SRTN,"RA")),"^")
+3 IF SRASTAT="T"
WRITE !!,"This assessment has already been verified and transmitted. It cannot be",!,"deleted. If the assessment was transmitted in error, use the option 'Update",!,"an Assessment Transmitted in Error'."
DO RET
QUIT
+4 IF SRASTAT="V"
WRITE !!,"This assessment has already been verified. It cannot be deleted. If the",!,"assessment was verified in error, use the option 'Update an Assessment Verified",!,"in Error'."
DO RET
QUIT
DEL WRITE !!,"This assessment has a current status of "_$SELECT(SRASTAT="I":"'Incomplete'",1:"'Complete/Unverified'"),!!,"Are you sure that you want to delete this assessment ? NO// "
READ SRYN:DTIME
IF '$TEST!(SRYN["^")
SET SRSOUT=1
QUIT
+1 SET SRYN=$EXTRACT(SRYN)
IF "Nn"[SRYN
SET SRSOUT=1
QUIT
+2 IF "Yy"'[SRYN
WRITE !!,"Enter <RET> if this assessment was selected in error and should not be deleted.",!,"If you want to delete this assessment, enter 'YES'."
GOTO DEL
+3 IF $$LOCK^SROUTL(SRTN)
Begin DoDot:1
+4 KILL DR,DIE,DA
SET DA=SRTN
SET DIE=130
SET DR="235///@;284///@;393///@;260///@;272///@;272.1///@;323///@;102///@"
DO ^DIE
WRITE !!,"Deleting Assessment..."
+5 KILL DA,DIK
SET DIK="^SRF("
SET DIK(1)=".232^AQ"
SET DA=SRTN
DO EN1^DIK
End DoDot:1
DO UNLOCK^SROUTL(SRTN)
+6 QUIT
RET WRITE !!,"Press <RET> to continue "
READ X:DTIME
+1 KILL SRTN
+2 QUIT
