source: WorldVistAEHR/trunk/r/SURGERY-SR/SROAERR.m@ 1006

Last change on this file since 1006 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.3 KB
Line 
1SROAERR ;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
3TRANS ; 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
7ASK 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
14STAT 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)
18END I 'SRSOUT W !!,"Press <RET> to continue " R X:DTIME
19 D ^SRSKILL K SRTN W @IOF
20 Q
21GOOF S GOOF=0 I SRASTAT="I" W !!,"This assessment already has the status, 'INCOMPLETE'." S GOOF=1 Q
22 Q
23HELP 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
Note: See TracBrowser for help on using the repository browser.