| 1 | QAOSENT1 ;HISC/DAD-ENTER EDIT AN OCCURRENCE (Cont.) ;2/4/93 08:01
|
|---|
| 2 | ;;3.0;Occurrence Screen;;09/14/1993
|
|---|
| 3 | S QAOSQUIT=""
|
|---|
| 4 | F QAOSD0=0:0 S QAOSD0=$O(^QA(741,"AA",QASCRN,QADATE,QANAME,QAOSD0)) Q:QAOSD0'>0 S LOC=$S($D(^QA(741,QAOSD0,0))#2:$P(^(0),"^",11)+1\3+1,1:0) S:LOC $P(QAOSQUIT,"^",LOC)=1
|
|---|
| 5 | I QAOSQUIT="" S QAOSQUIT=0 G EXIT
|
|---|
| 6 | I +QAOSQUIT D G EXIT
|
|---|
| 7 | . W !!?5,"*** THIS OCCURRENCE HAS ALREADY BEEN ENTERED ***",*7
|
|---|
| 8 | . W !!?5,"To create another similar occurrence screen record for this"
|
|---|
| 9 | . W !?5,"patient, enter a UNIQUE DATE AND TIME for the occurrence.",!
|
|---|
| 10 | . S QAOSQUIT=1
|
|---|
| 11 | . Q
|
|---|
| 12 | W !!?5,"*** A SIMILAR 'DELETED' OCCURRENCE HAS BEEN FOUND ***",*7,!
|
|---|
| 13 | ASK ;
|
|---|
| 14 | W !?5,"Do you want to continue"
|
|---|
| 15 | S %=2 D YN^DICN S QAOSQUIT=$S(%=2:1,%=-1:1,1:0) G:QAOSQUIT EXIT
|
|---|
| 16 | I '% D G ASK
|
|---|
| 17 | . W !!?5,"Please answer Y(es) or N(o)"
|
|---|
| 18 | . W !!,"Answering Y(es) will add a new record to the file."
|
|---|
| 19 | . W !,"Answering N(o) will abort the entry process and allow you to enter"
|
|---|
| 20 | . W !,"a different new record, or you may use the 'Reopen Closed/Deleted"
|
|---|
| 21 | . W !,"Occurrence Screen Record' option to work with the old record.",!
|
|---|
| 22 | . Q
|
|---|
| 23 | EXIT ;
|
|---|
| 24 | K %,QAOSD0
|
|---|
| 25 | Q
|
|---|
