| [613] | 1 | SROADEL ;B'HAM ISC/MAM - DELETE ASSESSMENT ; [ 01/23/01 1:52 PM ]
|
|---|
| 2 | ;;3.0; Surgery ;**38,83,100**;24 Jun 93
|
|---|
| 3 | S SRASTAT=$P($G(^SRF(SRTN,"RA")),"^")
|
|---|
| 4 | 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
|
|---|
| 5 | 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
|
|---|
| 6 | 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
|
|---|
| 7 | S SRYN=$E(SRYN) I "Nn"[SRYN S SRSOUT=1 Q
|
|---|
| 8 | 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
|
|---|
| 9 | I $$LOCK^SROUTL(SRTN) D D UNLOCK^SROUTL(SRTN)
|
|---|
| 10 | .K DR,DIE,DA S DA=SRTN,DIE=130,DR="235///@;284///@;393///@;260///@;272///@;323///@;102///@" D ^DIE W !!,"Deleting Assessment..."
|
|---|
| 11 | .K DA,DIK S DIK="^SRF(",DIK(1)=".232^AQ",DA=SRTN D EN1^DIK
|
|---|
| 12 | Q
|
|---|
| 13 | RET W !!,"Press <RET> to continue " R X:DTIME
|
|---|
| 14 | K SRTN
|
|---|
| 15 | Q
|
|---|
