| 1 | SROAERR ;B'HAM ISC/MAM - UPDATE ASSESSMENTS ENTERED IN ERROR ; [ 01/23/01 2:09 PM ]
|
|---|
| 2 | ;;3.0; Surgery ;**38,65,100**;24 Jun 93
|
|---|
| 3 | TRANS ; update assessments transmitted in error
|
|---|
| 4 | I '$D(SRSTAT) S SRSTAT="T"
|
|---|
| 5 | S SRSOUT=0 K SRNEW D ^SROASS I '$D(SRTN) S SRSOUT=1 G END
|
|---|
| 6 | S SRASTAT=$P($G(^SRF(SRTN,"RA")),"^") I SRSTAT'=SRASTAT D GOOF I GOOF G END
|
|---|
| 7 | ASK W !!,"Are you sure that you want to change the status of this assessment"
|
|---|
| 8 | W !,"from "_$S(SRASTAT="C":"'COMPLETE'",1:"'TRANSMITTED'")_" to 'INCOMPLETE' ? YES// " R SRYN:DTIME I '$T!(SRYN["^") S SRSOUT=1 G END
|
|---|
| 9 | S SRYN=$E(SRYN) I "YyNn"'[SRYN D HELP G ASK
|
|---|
| 10 | S:SRYN="" SRYN="Y" I "Nn"[SRYN G END
|
|---|
| 11 | I $$LOCK^SROUTL(SRTN) D STAT Q
|
|---|
| 12 | E W !!,"No action taken." G END
|
|---|
| 13 | Q
|
|---|
| 14 | STAT K DR S DIE=130,DA=SRTN,DR="235////I;393////"_$S(SRASTAT="T":1,1:"") D ^DIE K DR
|
|---|
| 15 | I SRASTAT="C"&($P($G(^SRF(SRTN,"RA")),"^",3)'="1") K DR S DIE=130,DA=SRTN,DR="272////@" D ^DIE K DR
|
|---|
| 16 | W !!,"The Assessment Status has been changed to 'INCOMPLETE'."
|
|---|
| 17 | D UNLOCK^SROUTL(SRTN)
|
|---|
| 18 | END I 'SRSOUT W !!,"Press <RET> to continue " R X:DTIME
|
|---|
| 19 | D ^SRSKILL K SRTN W @IOF
|
|---|
| 20 | Q
|
|---|
| 21 | GOOF S GOOF=0 I SRASTAT="I" W !!,"This assessment already has the status, 'INCOMPLETE'." S GOOF=1 Q
|
|---|
| 22 | Q
|
|---|
| 23 | HELP W !!,"Enter RETURN if the assessment was "_$S(SRASTAT="C":"completed",1:"transmitted")_" in error and the status",!,"should be changed to 'INCOMPLETE' to allow editing. Otherwise, enter 'NO'."
|
|---|
| 24 | Q
|
|---|
